(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 20}#
- (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*\ 30}#
+ (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#)
+ (let ((#{t\ 210}# (null? #{first\ 203}#)))
+ (if #{t\ 210}#
+ #{t\ 210}#
+ (if (null? #{rest\ 204}#)
+ (letrec ((#{andmap\ 214}#
+ (lambda (#{first\ 215}#)
+ (let ((#{x\ 218}# (car #{first\ 215}#))
+ (#{first\ 219}# (cdr #{first\ 215}#)))
+ (if (null? #{first\ 219}#)
+ (#{f\ 202}# #{x\ 218}#)
+ (if (#{f\ 202}# #{x\ 218}#)
+ (#{andmap\ 214}# #{first\ 219}#)
#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\ 214}# #{first\ 203}#))
+ (letrec ((#{andmap\ 225}#
+ (lambda (#{first\ 226}# #{rest\ 227}#)
+ (let ((#{x\ 232}# (car #{first\ 226}#))
+ (#{xr\ 233}# (map car #{rest\ 227}#))
+ (#{first\ 234}# (cdr #{first\ 226}#))
+ (#{rest\ 235}# (map cdr #{rest\ 227}#)))
+ (if (null? #{first\ 234}#)
+ (apply #{f\ 202}#
+ (cons #{x\ 232}# #{xr\ 233}#))
+ (if (apply #{f\ 202}#
+ (cons #{x\ 232}# #{xr\ 233}#))
+ (#{andmap\ 225}#
+ #{first\ 234}#
+ #{rest\ 235}#)
#f))))))
- (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#))))))))
- (letrec ((#{lambda-var-list\ 487}#
- (lambda (#{vars\ 702}#)
- (letrec ((#{lvl\ 708}#
- (lambda (#{vars\ 709}# #{ls\ 710}# #{w\ 711}#)
- (if (pair? #{vars\ 709}#)
- (#{lvl\ 708}#
- (cdr #{vars\ 709}#)
- (cons (#{wrap\ 441}#
- (car #{vars\ 709}#)
- #{w\ 711}#
+ (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#))))))))
+ (letrec ((#{lambda-var-list\ 497}#
+ (lambda (#{vars\ 712}#)
+ (letrec ((#{lvl\ 718}#
+ (lambda (#{vars\ 719}# #{ls\ 720}# #{w\ 721}#)
+ (if (pair? #{vars\ 719}#)
+ (#{lvl\ 718}#
+ (cdr #{vars\ 719}#)
+ (cons (#{wrap\ 451}#
+ (car #{vars\ 719}#)
+ #{w\ 721}#
#f)
- #{ls\ 710}#)
- #{w\ 711}#)
- (if (#{id?\ 372}# #{vars\ 709}#)
- (cons (#{wrap\ 441}#
- #{vars\ 709}#
- #{w\ 711}#
+ #{ls\ 720}#)
+ #{w\ 721}#)
+ (if (#{id?\ 382}# #{vars\ 719}#)
+ (cons (#{wrap\ 451}#
+ #{vars\ 719}#
+ #{w\ 721}#
#f)
- #{ls\ 710}#)
- (if (null? #{vars\ 709}#)
- #{ls\ 710}#
- (if (#{syntax-object?\ 336}# #{vars\ 709}#)
- (#{lvl\ 708}#
- (#{syntax-object-expression\ 338}#
- #{vars\ 709}#)
- #{ls\ 710}#
- (#{join-wraps\ 423}#
- #{w\ 711}#
- (#{syntax-object-wrap\ 340}#
- #{vars\ 709}#)))
- (cons #{vars\ 709}# #{ls\ 710}#))))))))
- (#{lvl\ 708}#
- #{vars\ 702}#
+ #{ls\ 720}#)
+ (if (null? #{vars\ 719}#)
+ #{ls\ 720}#
+ (if (#{syntax-object?\ 346}# #{vars\ 719}#)
+ (#{lvl\ 718}#
+ (#{syntax-object-expression\ 348}#
+ #{vars\ 719}#)
+ #{ls\ 720}#
+ (#{join-wraps\ 433}#
+ #{w\ 721}#
+ (#{syntax-object-wrap\ 350}#
+ #{vars\ 719}#)))
+ (cons #{vars\ 719}# #{ls\ 720}#))))))))
+ (#{lvl\ 718}#
+ #{vars\ 712}#
'()
'(())))))
- (#{gen-var\ 485}#
- (lambda (#{id\ 722}#)
- (let ((#{id\ 725}#
- (if (#{syntax-object?\ 336}# #{id\ 722}#)
- (#{syntax-object-expression\ 338}# #{id\ 722}#)
- #{id\ 722}#)))
+ (#{gen-var\ 495}#
+ (lambda (#{id\ 732}#)
+ (let ((#{id\ 735}#
+ (if (#{syntax-object?\ 346}# #{id\ 732}#)
+ (#{syntax-object-expression\ 348}# #{id\ 732}#)
+ #{id\ 732}#)))
(gensym
- (string-append (symbol->string #{id\ 725}#) " ")))))
- (#{strip\ 483}#
- (lambda (#{x\ 727}# #{w\ 728}#)
+ (string-append (symbol->string #{id\ 735}#) " ")))))
+ (#{strip\ 493}#
+ (lambda (#{x\ 737}# #{w\ 738}#)
(if (memq 'top
- (#{wrap-marks\ 379}# #{w\ 728}#))
- #{x\ 727}#
- (letrec ((#{f\ 734}# (lambda (#{x\ 735}#)
- (if (#{syntax-object?\ 336}#
- #{x\ 735}#)
- (#{strip\ 483}#
- (#{syntax-object-expression\ 338}#
- #{x\ 735}#)
- (#{syntax-object-wrap\ 340}#
- #{x\ 735}#))
- (if (pair? #{x\ 735}#)
- (let ((#{a\ 742}# (#{f\ 734}# (car #{x\ 735}#)))
- (#{d\ 743}# (#{f\ 734}# (cdr #{x\ 735}#))))
- (if (if (eq? #{a\ 742}#
- (car #{x\ 735}#))
- (eq? #{d\ 743}#
- (cdr #{x\ 735}#))
+ (#{wrap-marks\ 389}# #{w\ 738}#))
+ #{x\ 737}#
+ (letrec ((#{f\ 744}# (lambda (#{x\ 745}#)
+ (if (#{syntax-object?\ 346}#
+ #{x\ 745}#)
+ (#{strip\ 493}#
+ (#{syntax-object-expression\ 348}#
+ #{x\ 745}#)
+ (#{syntax-object-wrap\ 350}#
+ #{x\ 745}#))
+ (if (pair? #{x\ 745}#)
+ (let ((#{a\ 752}# (#{f\ 744}# (car #{x\ 745}#)))
+ (#{d\ 753}# (#{f\ 744}# (cdr #{x\ 745}#))))
+ (if (if (eq? #{a\ 752}#
+ (car #{x\ 745}#))
+ (eq? #{d\ 753}#
+ (cdr #{x\ 745}#))
#f)
- #{x\ 735}#
- (cons #{a\ 742}# #{d\ 743}#)))
- (if (vector? #{x\ 735}#)
- (let ((#{old\ 749}#
+ #{x\ 745}#
+ (cons #{a\ 752}# #{d\ 753}#)))
+ (if (vector? #{x\ 745}#)
+ (let ((#{old\ 759}#
(vector->list
- #{x\ 735}#)))
- (let ((#{new\ 751}#
- (map #{f\ 734}#
- #{old\ 749}#)))
- (if (#{and-map*\ 20}#
+ #{x\ 745}#)))
+ (let ((#{new\ 761}#
+ (map #{f\ 744}#
+ #{old\ 759}#)))
+ (if (#{and-map*\ 30}#
eq?
- #{old\ 749}#
- #{new\ 751}#)
- #{x\ 735}#
+ #{old\ 759}#
+ #{new\ 761}#)
+ #{x\ 745}#
(list->vector
- #{new\ 751}#))))
- #{x\ 735}#))))))
- (#{f\ 734}# #{x\ 727}#)))))
- (#{chi-lambda-case\ 481}#
- (lambda (#{e\ 753}#
- #{r\ 754}#
- #{w\ 755}#
- #{s\ 756}#
- #{mod\ 757}#
- #{get-formals\ 758}#
- #{clauses\ 759}#)
- (letrec ((#{expand-body\ 774}#
- (lambda (#{req\ 775}#
- #{opt\ 776}#
- #{rest\ 777}#
- #{kw\ 778}#
- #{body\ 779}#
- #{vars\ 780}#
- #{r*\ 781}#
- #{w*\ 782}#
- #{inits\ 783}#
- #{meta\ 784}#)
- ((lambda (#{tmp\ 795}#)
- ((lambda (#{tmp\ 796}#)
- (if (if #{tmp\ 796}#
- (apply (lambda (#{docstring\ 800}#
- #{e1\ 801}#
- #{e2\ 802}#)
+ #{new\ 761}#))))
+ #{x\ 745}#))))))
+ (#{f\ 744}# #{x\ 737}#)))))
+ (#{chi-lambda-case\ 491}#
+ (lambda (#{e\ 763}#
+ #{r\ 764}#
+ #{w\ 765}#
+ #{s\ 766}#
+ #{mod\ 767}#
+ #{get-formals\ 768}#
+ #{clauses\ 769}#)
+ (letrec ((#{expand-body\ 784}#
+ (lambda (#{req\ 785}#
+ #{opt\ 786}#
+ #{rest\ 787}#
+ #{kw\ 788}#
+ #{body\ 789}#
+ #{vars\ 790}#
+ #{r*\ 791}#
+ #{w*\ 792}#
+ #{inits\ 793}#
+ #{meta\ 794}#)
+ ((lambda (#{tmp\ 805}#)
+ ((lambda (#{tmp\ 806}#)
+ (if (if #{tmp\ 806}#
+ (apply (lambda (#{docstring\ 810}#
+ #{e1\ 811}#
+ #{e2\ 812}#)
(string?
(syntax->datum
- #{docstring\ 800}#)))
- #{tmp\ 796}#)
+ #{docstring\ 810}#)))
+ #{tmp\ 806}#)
#f)
- (apply (lambda (#{docstring\ 806}#
- #{e1\ 807}#
- #{e2\ 808}#)
- (#{expand-body\ 774}#
- #{req\ 775}#
- #{opt\ 776}#
- #{rest\ 777}#
- #{kw\ 778}#
- (cons #{e1\ 807}# #{e2\ 808}#)
- #{vars\ 780}#
- #{r*\ 781}#
- #{w*\ 782}#
- #{inits\ 783}#
+ (apply (lambda (#{docstring\ 816}#
+ #{e1\ 817}#
+ #{e2\ 818}#)
+ (#{expand-body\ 784}#
+ #{req\ 785}#
+ #{opt\ 786}#
+ #{rest\ 787}#
+ #{kw\ 788}#
+ (cons #{e1\ 817}# #{e2\ 818}#)
+ #{vars\ 790}#
+ #{r*\ 791}#
+ #{w*\ 792}#
+ #{inits\ 793}#
(append
- #{meta\ 784}#
+ #{meta\ 794}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 806}#))))))
- #{tmp\ 796}#)
- ((lambda (#{tmp\ 811}#)
- (if #{tmp\ 811}#
- (apply (lambda (#{k\ 816}#
- #{v\ 817}#
- #{e1\ 818}#
- #{e2\ 819}#)
- (#{expand-body\ 774}#
- #{req\ 775}#
- #{opt\ 776}#
- #{rest\ 777}#
- #{kw\ 778}#
- (cons #{e1\ 818}#
- #{e2\ 819}#)
- #{vars\ 780}#
- #{r*\ 781}#
- #{w*\ 782}#
- #{inits\ 783}#
+ #{docstring\ 816}#))))))
+ #{tmp\ 806}#)
+ ((lambda (#{tmp\ 821}#)
+ (if #{tmp\ 821}#
+ (apply (lambda (#{k\ 826}#
+ #{v\ 827}#
+ #{e1\ 828}#
+ #{e2\ 829}#)
+ (#{expand-body\ 784}#
+ #{req\ 785}#
+ #{opt\ 786}#
+ #{rest\ 787}#
+ #{kw\ 788}#
+ (cons #{e1\ 828}#
+ #{e2\ 829}#)
+ #{vars\ 790}#
+ #{r*\ 791}#
+ #{w*\ 792}#
+ #{inits\ 793}#
(append
- #{meta\ 784}#
+ #{meta\ 794}#
(syntax->datum
(map cons
- #{k\ 816}#
- #{v\ 817}#)))))
- #{tmp\ 811}#)
- ((lambda (#{tmp\ 823}#)
- (if #{tmp\ 823}#
- (apply (lambda (#{e1\ 826}#
- #{e2\ 827}#)
+ #{k\ 826}#
+ #{v\ 827}#)))))
+ #{tmp\ 821}#)
+ ((lambda (#{tmp\ 833}#)
+ (if #{tmp\ 833}#
+ (apply (lambda (#{e1\ 836}#
+ #{e2\ 837}#)
(values
- #{meta\ 784}#
- #{req\ 775}#
- #{opt\ 776}#
- #{rest\ 777}#
- #{kw\ 778}#
- #{inits\ 783}#
- #{vars\ 780}#
- (#{chi-body\ 465}#
- (cons #{e1\ 826}#
- #{e2\ 827}#)
- (#{source-wrap\ 443}#
- #{e\ 753}#
- #{w\ 755}#
- #{s\ 756}#
- #{mod\ 757}#)
- #{r*\ 781}#
- #{w*\ 782}#
- #{mod\ 757}#)))
- #{tmp\ 823}#)
+ #{meta\ 794}#
+ #{req\ 785}#
+ #{opt\ 786}#
+ #{rest\ 787}#
+ #{kw\ 788}#
+ #{inits\ 793}#
+ #{vars\ 790}#
+ (#{chi-body\ 475}#
+ (cons #{e1\ 836}#
+ #{e2\ 837}#)
+ (#{source-wrap\ 453}#
+ #{e\ 763}#
+ #{w\ 765}#
+ #{s\ 766}#
+ #{mod\ 767}#)
+ #{r*\ 791}#
+ #{w*\ 792}#
+ #{mod\ 767}#)))
+ #{tmp\ 833}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 795}#)))
+ #{tmp\ 805}#)))
($sc-dispatch
- #{tmp\ 795}#
+ #{tmp\ 805}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 795}#
+ #{tmp\ 805}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 795}#
+ #{tmp\ 805}#
'(any any . each-any))))
- #{body\ 779}#)))
- (#{expand-kw\ 772}#
- (lambda (#{req\ 829}#
- #{opt\ 830}#
- #{rest\ 831}#
- #{kw\ 832}#
- #{body\ 833}#
- #{vars\ 834}#
- #{r*\ 835}#
- #{w*\ 836}#
- #{aok\ 837}#
- #{out\ 838}#
- #{inits\ 839}#)
- (if (pair? #{kw\ 832}#)
- ((lambda (#{tmp\ 853}#)
- ((lambda (#{tmp\ 854}#)
- (if #{tmp\ 854}#
- (apply (lambda (#{k\ 858}#
- #{id\ 859}#
- #{i\ 860}#)
- (let ((#{v\ 863}# (#{gen-var\ 485}#
- #{id\ 859}#)))
- (let ((#{l\ 865}# (#{gen-labels\ 390}#
- (list #{v\ 863}#))))
- (let ((#{r**\ 867}#
- (#{extend-var-env\ 362}#
- #{l\ 865}#
- (list #{v\ 863}#)
- #{r*\ 835}#)))
- (let ((#{w**\ 869}#
- (#{make-binding-wrap\ 419}#
- (list #{id\ 859}#)
- #{l\ 865}#
- #{w*\ 836}#)))
- (#{expand-kw\ 772}#
- #{req\ 829}#
- #{opt\ 830}#
- #{rest\ 831}#
- (cdr #{kw\ 832}#)
- #{body\ 833}#
- (cons #{v\ 863}#
- #{vars\ 834}#)
- #{r**\ 867}#
- #{w**\ 869}#
- #{aok\ 837}#
+ #{body\ 789}#)))
+ (#{expand-kw\ 782}#
+ (lambda (#{req\ 839}#
+ #{opt\ 840}#
+ #{rest\ 841}#
+ #{kw\ 842}#
+ #{body\ 843}#
+ #{vars\ 844}#
+ #{r*\ 845}#
+ #{w*\ 846}#
+ #{aok\ 847}#
+ #{out\ 848}#
+ #{inits\ 849}#)
+ (if (pair? #{kw\ 842}#)
+ ((lambda (#{tmp\ 863}#)
+ ((lambda (#{tmp\ 864}#)
+ (if #{tmp\ 864}#
+ (apply (lambda (#{k\ 868}#
+ #{id\ 869}#
+ #{i\ 870}#)
+ (let ((#{v\ 873}# (#{gen-var\ 495}#
+ #{id\ 869}#)))
+ (let ((#{l\ 875}# (#{gen-labels\ 400}#
+ (list #{v\ 873}#))))
+ (let ((#{r**\ 877}#
+ (#{extend-var-env\ 372}#
+ #{l\ 875}#
+ (list #{v\ 873}#)
+ #{r*\ 845}#)))
+ (let ((#{w**\ 879}#
+ (#{make-binding-wrap\ 429}#
+ (list #{id\ 869}#)
+ #{l\ 875}#
+ #{w*\ 846}#)))
+ (#{expand-kw\ 782}#
+ #{req\ 839}#
+ #{opt\ 840}#
+ #{rest\ 841}#
+ (cdr #{kw\ 842}#)
+ #{body\ 843}#
+ (cons #{v\ 873}#
+ #{vars\ 844}#)
+ #{r**\ 877}#
+ #{w**\ 879}#
+ #{aok\ 847}#
(cons (list (syntax->datum
- #{k\ 858}#)
+ #{k\ 868}#)
(syntax->datum
- #{id\ 859}#)
- #{v\ 863}#)
- #{out\ 838}#)
- (cons (#{chi\ 457}#
- #{i\ 860}#
- #{r*\ 835}#
- #{w*\ 836}#
- #{mod\ 757}#)
- #{inits\ 839}#)))))))
- #{tmp\ 854}#)
+ #{id\ 869}#)
+ #{v\ 873}#)
+ #{out\ 848}#)
+ (cons (#{chi\ 467}#
+ #{i\ 870}#
+ #{r*\ 845}#
+ #{w*\ 846}#
+ #{mod\ 767}#)
+ #{inits\ 849}#)))))))
+ #{tmp\ 864}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 853}#)))
+ #{tmp\ 863}#)))
($sc-dispatch
- #{tmp\ 853}#
+ #{tmp\ 863}#
'(any any any))))
- (car #{kw\ 832}#))
- (#{expand-body\ 774}#
- #{req\ 829}#
- #{opt\ 830}#
- #{rest\ 831}#
- (if (let ((#{t\ 873}# #{aok\ 837}#))
- (if #{t\ 873}#
- #{t\ 873}#
- (pair? #{out\ 838}#)))
- (cons #{aok\ 837}# (reverse #{out\ 838}#))
+ (car #{kw\ 842}#))
+ (#{expand-body\ 784}#
+ #{req\ 839}#
+ #{opt\ 840}#
+ #{rest\ 841}#
+ (if (let ((#{t\ 883}# #{aok\ 847}#))
+ (if #{t\ 883}#
+ #{t\ 883}#
+ (pair? #{out\ 848}#)))
+ (cons #{aok\ 847}# (reverse #{out\ 848}#))
#f)
- #{body\ 833}#
- (reverse #{vars\ 834}#)
- #{r*\ 835}#
- #{w*\ 836}#
- (reverse #{inits\ 839}#)
+ #{body\ 843}#
+ (reverse #{vars\ 844}#)
+ #{r*\ 845}#
+ #{w*\ 846}#
+ (reverse #{inits\ 849}#)
'()))))
- (#{expand-opt\ 770}#
- (lambda (#{req\ 875}#
- #{opt\ 876}#
- #{rest\ 877}#
- #{kw\ 878}#
- #{body\ 879}#
- #{vars\ 880}#
- #{r*\ 881}#
- #{w*\ 882}#
- #{out\ 883}#
- #{inits\ 884}#)
- (if (pair? #{opt\ 876}#)
- ((lambda (#{tmp\ 897}#)
- ((lambda (#{tmp\ 898}#)
- (if #{tmp\ 898}#
- (apply (lambda (#{id\ 901}# #{i\ 902}#)
- (let ((#{v\ 905}# (#{gen-var\ 485}#
- #{id\ 901}#)))
- (let ((#{l\ 907}# (#{gen-labels\ 390}#
- (list #{v\ 905}#))))
- (let ((#{r**\ 909}#
- (#{extend-var-env\ 362}#
- #{l\ 907}#
- (list #{v\ 905}#)
- #{r*\ 881}#)))
- (let ((#{w**\ 911}#
- (#{make-binding-wrap\ 419}#
- (list #{id\ 901}#)
- #{l\ 907}#
- #{w*\ 882}#)))
- (#{expand-opt\ 770}#
- #{req\ 875}#
- (cdr #{opt\ 876}#)
- #{rest\ 877}#
- #{kw\ 878}#
- #{body\ 879}#
- (cons #{v\ 905}#
- #{vars\ 880}#)
- #{r**\ 909}#
- #{w**\ 911}#
+ (#{expand-opt\ 780}#
+ (lambda (#{req\ 885}#
+ #{opt\ 886}#
+ #{rest\ 887}#
+ #{kw\ 888}#
+ #{body\ 889}#
+ #{vars\ 890}#
+ #{r*\ 891}#
+ #{w*\ 892}#
+ #{out\ 893}#
+ #{inits\ 894}#)
+ (if (pair? #{opt\ 886}#)
+ ((lambda (#{tmp\ 907}#)
+ ((lambda (#{tmp\ 908}#)
+ (if #{tmp\ 908}#
+ (apply (lambda (#{id\ 911}# #{i\ 912}#)
+ (let ((#{v\ 915}# (#{gen-var\ 495}#
+ #{id\ 911}#)))
+ (let ((#{l\ 917}# (#{gen-labels\ 400}#
+ (list #{v\ 915}#))))
+ (let ((#{r**\ 919}#
+ (#{extend-var-env\ 372}#
+ #{l\ 917}#
+ (list #{v\ 915}#)
+ #{r*\ 891}#)))
+ (let ((#{w**\ 921}#
+ (#{make-binding-wrap\ 429}#
+ (list #{id\ 911}#)
+ #{l\ 917}#
+ #{w*\ 892}#)))
+ (#{expand-opt\ 780}#
+ #{req\ 885}#
+ (cdr #{opt\ 886}#)
+ #{rest\ 887}#
+ #{kw\ 888}#
+ #{body\ 889}#
+ (cons #{v\ 915}#
+ #{vars\ 890}#)
+ #{r**\ 919}#
+ #{w**\ 921}#
(cons (syntax->datum
- #{id\ 901}#)
- #{out\ 883}#)
- (cons (#{chi\ 457}#
- #{i\ 902}#
- #{r*\ 881}#
- #{w*\ 882}#
- #{mod\ 757}#)
- #{inits\ 884}#)))))))
- #{tmp\ 898}#)
+ #{id\ 911}#)
+ #{out\ 893}#)
+ (cons (#{chi\ 467}#
+ #{i\ 912}#
+ #{r*\ 891}#
+ #{w*\ 892}#
+ #{mod\ 767}#)
+ #{inits\ 894}#)))))))
+ #{tmp\ 908}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 897}#)))
+ #{tmp\ 907}#)))
($sc-dispatch
- #{tmp\ 897}#
+ #{tmp\ 907}#
'(any any))))
- (car #{opt\ 876}#))
- (if #{rest\ 877}#
- (let ((#{v\ 916}# (#{gen-var\ 485}#
- #{rest\ 877}#)))
- (let ((#{l\ 918}# (#{gen-labels\ 390}#
- (list #{v\ 916}#))))
- (let ((#{r*\ 920}#
- (#{extend-var-env\ 362}#
- #{l\ 918}#
- (list #{v\ 916}#)
- #{r*\ 881}#)))
- (let ((#{w*\ 922}#
- (#{make-binding-wrap\ 419}#
- (list #{rest\ 877}#)
- #{l\ 918}#
- #{w*\ 882}#)))
- (#{expand-kw\ 772}#
- #{req\ 875}#
- (if (pair? #{out\ 883}#)
- (reverse #{out\ 883}#)
+ (car #{opt\ 886}#))
+ (if #{rest\ 887}#
+ (let ((#{v\ 926}# (#{gen-var\ 495}#
+ #{rest\ 887}#)))
+ (let ((#{l\ 928}# (#{gen-labels\ 400}#
+ (list #{v\ 926}#))))
+ (let ((#{r*\ 930}#
+ (#{extend-var-env\ 372}#
+ #{l\ 928}#
+ (list #{v\ 926}#)
+ #{r*\ 891}#)))
+ (let ((#{w*\ 932}#
+ (#{make-binding-wrap\ 429}#
+ (list #{rest\ 887}#)
+ #{l\ 928}#
+ #{w*\ 892}#)))
+ (#{expand-kw\ 782}#
+ #{req\ 885}#
+ (if (pair? #{out\ 893}#)
+ (reverse #{out\ 893}#)
#f)
- (syntax->datum #{rest\ 877}#)
- (if (pair? #{kw\ 878}#)
- (cdr #{kw\ 878}#)
- #{kw\ 878}#)
- #{body\ 879}#
- (cons #{v\ 916}# #{vars\ 880}#)
- #{r*\ 920}#
- #{w*\ 922}#
- (if (pair? #{kw\ 878}#)
- (car #{kw\ 878}#)
+ (syntax->datum #{rest\ 887}#)
+ (if (pair? #{kw\ 888}#)
+ (cdr #{kw\ 888}#)
+ #{kw\ 888}#)
+ #{body\ 889}#
+ (cons #{v\ 926}# #{vars\ 890}#)
+ #{r*\ 930}#
+ #{w*\ 932}#
+ (if (pair? #{kw\ 888}#)
+ (car #{kw\ 888}#)
#f)
'()
- #{inits\ 884}#)))))
- (#{expand-kw\ 772}#
- #{req\ 875}#
- (if (pair? #{out\ 883}#)
- (reverse #{out\ 883}#)
+ #{inits\ 894}#)))))
+ (#{expand-kw\ 782}#
+ #{req\ 885}#
+ (if (pair? #{out\ 893}#)
+ (reverse #{out\ 893}#)
#f)
#f
- (if (pair? #{kw\ 878}#)
- (cdr #{kw\ 878}#)
- #{kw\ 878}#)
- #{body\ 879}#
- #{vars\ 880}#
- #{r*\ 881}#
- #{w*\ 882}#
- (if (pair? #{kw\ 878}#) (car #{kw\ 878}#) #f)
+ (if (pair? #{kw\ 888}#)
+ (cdr #{kw\ 888}#)
+ #{kw\ 888}#)
+ #{body\ 889}#
+ #{vars\ 890}#
+ #{r*\ 891}#
+ #{w*\ 892}#
+ (if (pair? #{kw\ 888}#) (car #{kw\ 888}#) #f)
'()
- #{inits\ 884}#)))))
- (#{expand-req\ 768}#
- (lambda (#{req\ 924}#
- #{opt\ 925}#
- #{rest\ 926}#
- #{kw\ 927}#
- #{body\ 928}#)
- (let ((#{vars\ 936}#
- (map #{gen-var\ 485}# #{req\ 924}#))
- (#{labels\ 937}#
- (#{gen-labels\ 390}# #{req\ 924}#)))
- (let ((#{r*\ 940}#
- (#{extend-var-env\ 362}#
- #{labels\ 937}#
- #{vars\ 936}#
- #{r\ 754}#))
- (#{w*\ 941}#
- (#{make-binding-wrap\ 419}#
- #{req\ 924}#
- #{labels\ 937}#
- #{w\ 755}#)))
- (#{expand-opt\ 770}#
- (map syntax->datum #{req\ 924}#)
- #{opt\ 925}#
- #{rest\ 926}#
- #{kw\ 927}#
- #{body\ 928}#
- (reverse #{vars\ 936}#)
- #{r*\ 940}#
- #{w*\ 941}#
+ #{inits\ 894}#)))))
+ (#{expand-req\ 778}#
+ (lambda (#{req\ 934}#
+ #{opt\ 935}#
+ #{rest\ 936}#
+ #{kw\ 937}#
+ #{body\ 938}#)
+ (let ((#{vars\ 946}#
+ (map #{gen-var\ 495}# #{req\ 934}#))
+ (#{labels\ 947}#
+ (#{gen-labels\ 400}# #{req\ 934}#)))
+ (let ((#{r*\ 950}#
+ (#{extend-var-env\ 372}#
+ #{labels\ 947}#
+ #{vars\ 946}#
+ #{r\ 764}#))
+ (#{w*\ 951}#
+ (#{make-binding-wrap\ 429}#
+ #{req\ 934}#
+ #{labels\ 947}#
+ #{w\ 765}#)))
+ (#{expand-opt\ 780}#
+ (map syntax->datum #{req\ 934}#)
+ #{opt\ 935}#
+ #{rest\ 936}#
+ #{kw\ 937}#
+ #{body\ 938}#
+ (reverse #{vars\ 946}#)
+ #{r*\ 950}#
+ #{w*\ 951}#
'()
'()))))))
- ((lambda (#{tmp\ 942}#)
- ((lambda (#{tmp\ 943}#)
- (if #{tmp\ 943}#
+ ((lambda (#{tmp\ 952}#)
+ ((lambda (#{tmp\ 953}#)
+ (if #{tmp\ 953}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 943}#)
- ((lambda (#{tmp\ 944}#)
- (if #{tmp\ 944}#
- (apply (lambda (#{args\ 951}#
- #{e1\ 952}#
- #{e2\ 953}#
- #{args*\ 954}#
- #{e1*\ 955}#
- #{e2*\ 956}#)
+ #{tmp\ 953}#)
+ ((lambda (#{tmp\ 954}#)
+ (if #{tmp\ 954}#
+ (apply (lambda (#{args\ 961}#
+ #{e1\ 962}#
+ #{e2\ 963}#
+ #{args*\ 964}#
+ #{e1*\ 965}#
+ #{e2*\ 966}#)
(call-with-values
(lambda ()
- (#{get-formals\ 758}#
- #{args\ 951}#))
- (lambda (#{req\ 957}#
- #{opt\ 958}#
- #{rest\ 959}#
- #{kw\ 960}#)
+ (#{get-formals\ 768}#
+ #{args\ 961}#))
+ (lambda (#{req\ 967}#
+ #{opt\ 968}#
+ #{rest\ 969}#
+ #{kw\ 970}#)
(call-with-values
(lambda ()
- (#{expand-req\ 768}#
- #{req\ 957}#
- #{opt\ 958}#
- #{rest\ 959}#
- #{kw\ 960}#
- (cons #{e1\ 952}#
- #{e2\ 953}#)))
- (lambda (#{meta\ 966}#
- #{req\ 967}#
- #{opt\ 968}#
- #{rest\ 969}#
- #{kw\ 970}#
- #{inits\ 971}#
- #{vars\ 972}#
- #{body\ 973}#)
+ (#{expand-req\ 778}#
+ #{req\ 967}#
+ #{opt\ 968}#
+ #{rest\ 969}#
+ #{kw\ 970}#
+ (cons #{e1\ 962}#
+ #{e2\ 963}#)))
+ (lambda (#{meta\ 976}#
+ #{req\ 977}#
+ #{opt\ 978}#
+ #{rest\ 979}#
+ #{kw\ 980}#
+ #{inits\ 981}#
+ #{vars\ 982}#
+ #{body\ 983}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 481}#
- #{e\ 753}#
- #{r\ 754}#
- #{w\ 755}#
- #{s\ 756}#
- #{mod\ 757}#
- #{get-formals\ 758}#
- (map (lambda (#{tmp\ 984}#
- #{tmp\ 983}#
- #{tmp\ 982}#)
- (cons #{tmp\ 982}#
- (cons #{tmp\ 983}#
- #{tmp\ 984}#)))
- #{e2*\ 956}#
- #{e1*\ 955}#
- #{args*\ 954}#)))
- (lambda (#{meta*\ 986}#
- #{else*\ 987}#)
+ (#{chi-lambda-case\ 491}#
+ #{e\ 763}#
+ #{r\ 764}#
+ #{w\ 765}#
+ #{s\ 766}#
+ #{mod\ 767}#
+ #{get-formals\ 768}#
+ (map (lambda (#{tmp\ 994}#
+ #{tmp\ 993}#
+ #{tmp\ 992}#)
+ (cons #{tmp\ 992}#
+ (cons #{tmp\ 993}#
+ #{tmp\ 994}#)))
+ #{e2*\ 966}#
+ #{e1*\ 965}#
+ #{args*\ 964}#)))
+ (lambda (#{meta*\ 996}#
+ #{else*\ 997}#)
(values
(append
- #{meta\ 966}#
- #{meta*\ 986}#)
- (#{build-lambda-case\ 318}#
- #{s\ 756}#
- #{req\ 967}#
- #{opt\ 968}#
- #{rest\ 969}#
- #{kw\ 970}#
- #{inits\ 971}#
- #{vars\ 972}#
- #{body\ 973}#
- #{else*\ 987}#)))))))))
- #{tmp\ 944}#)
+ #{meta\ 976}#
+ #{meta*\ 996}#)
+ (#{build-lambda-case\ 328}#
+ #{s\ 766}#
+ #{req\ 977}#
+ #{opt\ 978}#
+ #{rest\ 979}#
+ #{kw\ 980}#
+ #{inits\ 981}#
+ #{vars\ 982}#
+ #{body\ 983}#
+ #{else*\ 997}#)))))))))
+ #{tmp\ 954}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 942}#)))
+ #{tmp\ 952}#)))
($sc-dispatch
- #{tmp\ 942}#
+ #{tmp\ 952}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 942}# (quote ()))))
- #{clauses\ 759}#))))
- (#{lambda*-formals\ 479}#
- (lambda (#{orig-args\ 990}#)
- (letrec ((#{check\ 1001}#
- (lambda (#{req\ 1002}#
- #{opt\ 1003}#
- #{rest\ 1004}#
- #{kw\ 1005}#)
- (if (#{distinct-bound-ids?\ 437}#
+ ($sc-dispatch #{tmp\ 952}# (quote ()))))
+ #{clauses\ 769}#))))
+ (#{lambda*-formals\ 489}#
+ (lambda (#{orig-args\ 1000}#)
+ (letrec ((#{check\ 1011}#
+ (lambda (#{req\ 1012}#
+ #{opt\ 1013}#
+ #{rest\ 1014}#
+ #{kw\ 1015}#)
+ (if (#{distinct-bound-ids?\ 447}#
(append
- #{req\ 1002}#
- (map car #{opt\ 1003}#)
- (if #{rest\ 1004}#
- (list #{rest\ 1004}#)
+ #{req\ 1012}#
+ (map car #{opt\ 1013}#)
+ (if #{rest\ 1014}#
+ (list #{rest\ 1014}#)
'())
- (if (pair? #{kw\ 1005}#)
- (map cadr (cdr #{kw\ 1005}#))
+ (if (pair? #{kw\ 1015}#)
+ (map cadr (cdr #{kw\ 1015}#))
'())))
(values
- #{req\ 1002}#
- #{opt\ 1003}#
- #{rest\ 1004}#
- #{kw\ 1005}#)
+ #{req\ 1012}#
+ #{opt\ 1013}#
+ #{rest\ 1014}#
+ #{kw\ 1015}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 990}#))))
- (#{rest\ 999}#
- (lambda (#{args\ 1013}#
- #{req\ 1014}#
- #{opt\ 1015}#
- #{kw\ 1016}#)
- ((lambda (#{tmp\ 1021}#)
- ((lambda (#{tmp\ 1022}#)
- (if (if #{tmp\ 1022}#
- (apply (lambda (#{r\ 1024}#)
- (#{id?\ 372}# #{r\ 1024}#))
- #{tmp\ 1022}#)
+ #{orig-args\ 1000}#))))
+ (#{rest\ 1009}#
+ (lambda (#{args\ 1023}#
+ #{req\ 1024}#
+ #{opt\ 1025}#
+ #{kw\ 1026}#)
+ ((lambda (#{tmp\ 1031}#)
+ ((lambda (#{tmp\ 1032}#)
+ (if (if #{tmp\ 1032}#
+ (apply (lambda (#{r\ 1034}#)
+ (#{id?\ 382}# #{r\ 1034}#))
+ #{tmp\ 1032}#)
#f)
- (apply (lambda (#{r\ 1026}#)
- (#{check\ 1001}#
- #{req\ 1014}#
- #{opt\ 1015}#
- #{r\ 1026}#
- #{kw\ 1016}#))
- #{tmp\ 1022}#)
- ((lambda (#{else\ 1028}#)
+ (apply (lambda (#{r\ 1036}#)
+ (#{check\ 1011}#
+ #{req\ 1024}#
+ #{opt\ 1025}#
+ #{r\ 1036}#
+ #{kw\ 1026}#))
+ #{tmp\ 1032}#)
+ ((lambda (#{else\ 1038}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 990}#
- #{args\ 1013}#))
- #{tmp\ 1021}#)))
- (list #{tmp\ 1021}#)))
- #{args\ 1013}#)))
- (#{key\ 997}#
- (lambda (#{args\ 1029}#
- #{req\ 1030}#
- #{opt\ 1031}#
- #{rkey\ 1032}#)
- ((lambda (#{tmp\ 1037}#)
- ((lambda (#{tmp\ 1038}#)
- (if #{tmp\ 1038}#
+ #{orig-args\ 1000}#
+ #{args\ 1023}#))
+ #{tmp\ 1031}#)))
+ (list #{tmp\ 1031}#)))
+ #{args\ 1023}#)))
+ (#{key\ 1007}#
+ (lambda (#{args\ 1039}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
+ #{rkey\ 1042}#)
+ ((lambda (#{tmp\ 1047}#)
+ ((lambda (#{tmp\ 1048}#)
+ (if #{tmp\ 1048}#
(apply (lambda ()
- (#{check\ 1001}#
- #{req\ 1030}#
- #{opt\ 1031}#
+ (#{check\ 1011}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
#f
(cons #f
(reverse
- #{rkey\ 1032}#))))
- #{tmp\ 1038}#)
- ((lambda (#{tmp\ 1039}#)
- (if (if #{tmp\ 1039}#
- (apply (lambda (#{a\ 1042}#
- #{b\ 1043}#)
- (#{id?\ 372}#
- #{a\ 1042}#))
- #{tmp\ 1039}#)
+ #{rkey\ 1042}#))))
+ #{tmp\ 1048}#)
+ ((lambda (#{tmp\ 1049}#)
+ (if (if #{tmp\ 1049}#
+ (apply (lambda (#{a\ 1052}#
+ #{b\ 1053}#)
+ (#{id?\ 382}#
+ #{a\ 1052}#))
+ #{tmp\ 1049}#)
#f)
- (apply (lambda (#{a\ 1046}#
- #{b\ 1047}#)
- ((lambda (#{tmp\ 1049}#)
- ((lambda (#{k\ 1051}#)
- (#{key\ 997}#
- #{b\ 1047}#
- #{req\ 1030}#
- #{opt\ 1031}#
- (cons (cons #{k\ 1051}#
- (cons #{a\ 1046}#
+ (apply (lambda (#{a\ 1056}#
+ #{b\ 1057}#)
+ ((lambda (#{tmp\ 1059}#)
+ ((lambda (#{k\ 1061}#)
+ (#{key\ 1007}#
+ #{b\ 1057}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
+ (cons (cons #{k\ 1061}#
+ (cons #{a\ 1056}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i1050"))
+ #("i1060"))
#(ribcage
#(a
b)
#((top)
(top))
- #("i1044"
- "i1045"))
+ #("i1054"
+ "i1055"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1033"
- "i1034"
- "i1035"
- "i1036"))
+ #("i1043"
+ "i1044"
+ "i1045"
+ "i1046"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i1000"
- "i998"
- "i996"
- "i994"
- "i992"))
+ ("i1010"
+ "i1008"
+ "i1006"
+ "i1004"
+ "i1002"))
#(ribcage
#(orig-args)
#((top))
- #("i991"))
+ #("i1001"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene
guile)))))
- #{rkey\ 1032}#)))
- #{tmp\ 1049}#))
+ #{rkey\ 1042}#)))
+ #{tmp\ 1059}#))
(symbol->keyword
(syntax->datum
- #{a\ 1046}#))))
- #{tmp\ 1039}#)
- ((lambda (#{tmp\ 1052}#)
- (if (if #{tmp\ 1052}#
- (apply (lambda (#{a\ 1056}#
- #{init\ 1057}#
- #{b\ 1058}#)
- (#{id?\ 372}#
- #{a\ 1056}#))
- #{tmp\ 1052}#)
+ #{a\ 1056}#))))
+ #{tmp\ 1049}#)
+ ((lambda (#{tmp\ 1062}#)
+ (if (if #{tmp\ 1062}#
+ (apply (lambda (#{a\ 1066}#
+ #{init\ 1067}#
+ #{b\ 1068}#)
+ (#{id?\ 382}#
+ #{a\ 1066}#))
+ #{tmp\ 1062}#)
#f)
- (apply (lambda (#{a\ 1062}#
- #{init\ 1063}#
- #{b\ 1064}#)
- ((lambda (#{tmp\ 1066}#)
- ((lambda (#{k\ 1068}#)
- (#{key\ 997}#
- #{b\ 1064}#
- #{req\ 1030}#
- #{opt\ 1031}#
- (cons (list #{k\ 1068}#
- #{a\ 1062}#
- #{init\ 1063}#)
- #{rkey\ 1032}#)))
- #{tmp\ 1066}#))
+ (apply (lambda (#{a\ 1072}#
+ #{init\ 1073}#
+ #{b\ 1074}#)
+ ((lambda (#{tmp\ 1076}#)
+ ((lambda (#{k\ 1078}#)
+ (#{key\ 1007}#
+ #{b\ 1074}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
+ (cons (list #{k\ 1078}#
+ #{a\ 1072}#
+ #{init\ 1073}#)
+ #{rkey\ 1042}#)))
+ #{tmp\ 1076}#))
(symbol->keyword
(syntax->datum
- #{a\ 1062}#))))
- #{tmp\ 1052}#)
- ((lambda (#{tmp\ 1069}#)
- (if (if #{tmp\ 1069}#
- (apply (lambda (#{a\ 1074}#
- #{init\ 1075}#
- #{k\ 1076}#
- #{b\ 1077}#)
- (if (#{id?\ 372}#
- #{a\ 1074}#)
+ #{a\ 1072}#))))
+ #{tmp\ 1062}#)
+ ((lambda (#{tmp\ 1079}#)
+ (if (if #{tmp\ 1079}#
+ (apply (lambda (#{a\ 1084}#
+ #{init\ 1085}#
+ #{k\ 1086}#
+ #{b\ 1087}#)
+ (if (#{id?\ 382}#
+ #{a\ 1084}#)
(keyword?
(syntax->datum
- #{k\ 1076}#))
+ #{k\ 1086}#))
#f))
- #{tmp\ 1069}#)
+ #{tmp\ 1079}#)
#f)
- (apply (lambda (#{a\ 1084}#
- #{init\ 1085}#
- #{k\ 1086}#
- #{b\ 1087}#)
- (#{key\ 997}#
- #{b\ 1087}#
- #{req\ 1030}#
- #{opt\ 1031}#
- (cons (list #{k\ 1086}#
- #{a\ 1084}#
- #{init\ 1085}#)
- #{rkey\ 1032}#)))
- #{tmp\ 1069}#)
- ((lambda (#{tmp\ 1088}#)
- (if (if #{tmp\ 1088}#
- (apply (lambda (#{aok\ 1090}#)
+ (apply (lambda (#{a\ 1094}#
+ #{init\ 1095}#
+ #{k\ 1096}#
+ #{b\ 1097}#)
+ (#{key\ 1007}#
+ #{b\ 1097}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
+ (cons (list #{k\ 1096}#
+ #{a\ 1094}#
+ #{init\ 1095}#)
+ #{rkey\ 1042}#)))
+ #{tmp\ 1079}#)
+ ((lambda (#{tmp\ 1098}#)
+ (if (if #{tmp\ 1098}#
+ (apply (lambda (#{aok\ 1100}#)
(eq? (syntax->datum
- #{aok\ 1090}#)
+ #{aok\ 1100}#)
#:allow-other-keys))
- #{tmp\ 1088}#)
+ #{tmp\ 1098}#)
#f)
- (apply (lambda (#{aok\ 1092}#)
- (#{check\ 1001}#
- #{req\ 1030}#
- #{opt\ 1031}#
+ (apply (lambda (#{aok\ 1102}#)
+ (#{check\ 1011}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
#f
(cons #t
(reverse
- #{rkey\ 1032}#))))
- #{tmp\ 1088}#)
- ((lambda (#{tmp\ 1093}#)
- (if (if #{tmp\ 1093}#
- (apply (lambda (#{aok\ 1097}#
- #{a\ 1098}#
- #{b\ 1099}#)
+ #{rkey\ 1042}#))))
+ #{tmp\ 1098}#)
+ ((lambda (#{tmp\ 1103}#)
+ (if (if #{tmp\ 1103}#
+ (apply (lambda (#{aok\ 1107}#
+ #{a\ 1108}#
+ #{b\ 1109}#)
(if (eq? (syntax->datum
- #{aok\ 1097}#)
+ #{aok\ 1107}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 1098}#)
+ #{a\ 1108}#)
#:rest)
#f))
- #{tmp\ 1093}#)
+ #{tmp\ 1103}#)
#f)
- (apply (lambda (#{aok\ 1105}#
- #{a\ 1106}#
- #{b\ 1107}#)
- (#{rest\ 999}#
- #{b\ 1107}#
- #{req\ 1030}#
- #{opt\ 1031}#
+ (apply (lambda (#{aok\ 1115}#
+ #{a\ 1116}#
+ #{b\ 1117}#)
+ (#{rest\ 1009}#
+ #{b\ 1117}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
(cons #t
(reverse
- #{rkey\ 1032}#))))
- #{tmp\ 1093}#)
- ((lambda (#{tmp\ 1108}#)
- (if (if #{tmp\ 1108}#
- (apply (lambda (#{aok\ 1111}#
- #{r\ 1112}#)
+ #{rkey\ 1042}#))))
+ #{tmp\ 1103}#)
+ ((lambda (#{tmp\ 1118}#)
+ (if (if #{tmp\ 1118}#
+ (apply (lambda (#{aok\ 1121}#
+ #{r\ 1122}#)
(if (eq? (syntax->datum
- #{aok\ 1111}#)
+ #{aok\ 1121}#)
#:allow-other-keys)
- (#{id?\ 372}#
- #{r\ 1112}#)
+ (#{id?\ 382}#
+ #{r\ 1122}#)
#f))
- #{tmp\ 1108}#)
+ #{tmp\ 1118}#)
#f)
- (apply (lambda (#{aok\ 1117}#
- #{r\ 1118}#)
- (#{rest\ 999}#
- #{r\ 1118}#
- #{req\ 1030}#
- #{opt\ 1031}#
+ (apply (lambda (#{aok\ 1127}#
+ #{r\ 1128}#)
+ (#{rest\ 1009}#
+ #{r\ 1128}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
(cons #t
(reverse
- #{rkey\ 1032}#))))
- #{tmp\ 1108}#)
- ((lambda (#{tmp\ 1119}#)
- (if (if #{tmp\ 1119}#
- (apply (lambda (#{a\ 1122}#
- #{b\ 1123}#)
+ #{rkey\ 1042}#))))
+ #{tmp\ 1118}#)
+ ((lambda (#{tmp\ 1129}#)
+ (if (if #{tmp\ 1129}#
+ (apply (lambda (#{a\ 1132}#
+ #{b\ 1133}#)
(eq? (syntax->datum
- #{a\ 1122}#)
+ #{a\ 1132}#)
#:rest))
- #{tmp\ 1119}#)
+ #{tmp\ 1129}#)
#f)
- (apply (lambda (#{a\ 1126}#
- #{b\ 1127}#)
- (#{rest\ 999}#
- #{b\ 1127}#
- #{req\ 1030}#
- #{opt\ 1031}#
+ (apply (lambda (#{a\ 1136}#
+ #{b\ 1137}#)
+ (#{rest\ 1009}#
+ #{b\ 1137}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
(cons #f
(reverse
- #{rkey\ 1032}#))))
- #{tmp\ 1119}#)
- ((lambda (#{tmp\ 1128}#)
- (if (if #{tmp\ 1128}#
- (apply (lambda (#{r\ 1130}#)
- (#{id?\ 372}#
- #{r\ 1130}#))
- #{tmp\ 1128}#)
+ #{rkey\ 1042}#))))
+ #{tmp\ 1129}#)
+ ((lambda (#{tmp\ 1138}#)
+ (if (if #{tmp\ 1138}#
+ (apply (lambda (#{r\ 1140}#)
+ (#{id?\ 382}#
+ #{r\ 1140}#))
+ #{tmp\ 1138}#)
#f)
- (apply (lambda (#{r\ 1132}#)
- (#{rest\ 999}#
- #{r\ 1132}#
- #{req\ 1030}#
- #{opt\ 1031}#
+ (apply (lambda (#{r\ 1142}#)
+ (#{rest\ 1009}#
+ #{r\ 1142}#
+ #{req\ 1040}#
+ #{opt\ 1041}#
(cons #f
(reverse
- #{rkey\ 1032}#))))
- #{tmp\ 1128}#)
- ((lambda (#{else\ 1134}#)
+ #{rkey\ 1042}#))))
+ #{tmp\ 1138}#)
+ ((lambda (#{else\ 1144}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 990}#
- #{args\ 1029}#))
- #{tmp\ 1037}#)))
- (list #{tmp\ 1037}#))))
+ #{orig-args\ 1000}#
+ #{args\ 1039}#))
+ #{tmp\ 1047}#)))
+ (list #{tmp\ 1047}#))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'(any)))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1037}#
+ #{tmp\ 1047}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1037}# (quote ()))))
- #{args\ 1029}#)))
- (#{opt\ 995}#
- (lambda (#{args\ 1135}# #{req\ 1136}# #{ropt\ 1137}#)
- ((lambda (#{tmp\ 1141}#)
- ((lambda (#{tmp\ 1142}#)
- (if #{tmp\ 1142}#
+ ($sc-dispatch #{tmp\ 1047}# (quote ()))))
+ #{args\ 1039}#)))
+ (#{opt\ 1005}#
+ (lambda (#{args\ 1145}# #{req\ 1146}# #{ropt\ 1147}#)
+ ((lambda (#{tmp\ 1151}#)
+ ((lambda (#{tmp\ 1152}#)
+ (if #{tmp\ 1152}#
(apply (lambda ()
- (#{check\ 1001}#
- #{req\ 1136}#
- (reverse #{ropt\ 1137}#)
+ (#{check\ 1011}#
+ #{req\ 1146}#
+ (reverse #{ropt\ 1147}#)
#f
'()))
- #{tmp\ 1142}#)
- ((lambda (#{tmp\ 1143}#)
- (if (if #{tmp\ 1143}#
- (apply (lambda (#{a\ 1146}#
- #{b\ 1147}#)
- (#{id?\ 372}#
- #{a\ 1146}#))
- #{tmp\ 1143}#)
+ #{tmp\ 1152}#)
+ ((lambda (#{tmp\ 1153}#)
+ (if (if #{tmp\ 1153}#
+ (apply (lambda (#{a\ 1156}#
+ #{b\ 1157}#)
+ (#{id?\ 382}#
+ #{a\ 1156}#))
+ #{tmp\ 1153}#)
#f)
- (apply (lambda (#{a\ 1150}#
- #{b\ 1151}#)
- (#{opt\ 995}#
- #{b\ 1151}#
- #{req\ 1136}#
- (cons (cons #{a\ 1150}#
+ (apply (lambda (#{a\ 1160}#
+ #{b\ 1161}#)
+ (#{opt\ 1005}#
+ #{b\ 1161}#
+ #{req\ 1146}#
+ (cons (cons #{a\ 1160}#
'(#(syntax-object
#f
((top)
#(a b)
#((top)
(top))
- #("i1148"
- "i1149"))
+ #("i1158"
+ "i1159"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i1138"
- "i1139"
- "i1140"))
+ #("i1148"
+ "i1149"
+ "i1150"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i1000"
- "i998"
- "i996"
- "i994"
- "i992"))
+ ("i1010"
+ "i1008"
+ "i1006"
+ "i1004"
+ "i1002"))
#(ribcage
#(orig-args)
#((top))
- #("i991"))
+ #("i1001"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene
guile))))
- #{ropt\ 1137}#)))
- #{tmp\ 1143}#)
- ((lambda (#{tmp\ 1152}#)
- (if (if #{tmp\ 1152}#
- (apply (lambda (#{a\ 1156}#
- #{init\ 1157}#
- #{b\ 1158}#)
- (#{id?\ 372}#
- #{a\ 1156}#))
- #{tmp\ 1152}#)
+ #{ropt\ 1147}#)))
+ #{tmp\ 1153}#)
+ ((lambda (#{tmp\ 1162}#)
+ (if (if #{tmp\ 1162}#
+ (apply (lambda (#{a\ 1166}#
+ #{init\ 1167}#
+ #{b\ 1168}#)
+ (#{id?\ 382}#
+ #{a\ 1166}#))
+ #{tmp\ 1162}#)
#f)
- (apply (lambda (#{a\ 1162}#
- #{init\ 1163}#
- #{b\ 1164}#)
- (#{opt\ 995}#
- #{b\ 1164}#
- #{req\ 1136}#
- (cons (list #{a\ 1162}#
- #{init\ 1163}#)
- #{ropt\ 1137}#)))
- #{tmp\ 1152}#)
- ((lambda (#{tmp\ 1165}#)
- (if (if #{tmp\ 1165}#
- (apply (lambda (#{a\ 1168}#
- #{b\ 1169}#)
+ (apply (lambda (#{a\ 1172}#
+ #{init\ 1173}#
+ #{b\ 1174}#)
+ (#{opt\ 1005}#
+ #{b\ 1174}#
+ #{req\ 1146}#
+ (cons (list #{a\ 1172}#
+ #{init\ 1173}#)
+ #{ropt\ 1147}#)))
+ #{tmp\ 1162}#)
+ ((lambda (#{tmp\ 1175}#)
+ (if (if #{tmp\ 1175}#
+ (apply (lambda (#{a\ 1178}#
+ #{b\ 1179}#)
(eq? (syntax->datum
- #{a\ 1168}#)
+ #{a\ 1178}#)
#:key))
- #{tmp\ 1165}#)
+ #{tmp\ 1175}#)
#f)
- (apply (lambda (#{a\ 1172}#
- #{b\ 1173}#)
- (#{key\ 997}#
- #{b\ 1173}#
- #{req\ 1136}#
+ (apply (lambda (#{a\ 1182}#
+ #{b\ 1183}#)
+ (#{key\ 1007}#
+ #{b\ 1183}#
+ #{req\ 1146}#
(reverse
- #{ropt\ 1137}#)
+ #{ropt\ 1147}#)
'()))
- #{tmp\ 1165}#)
- ((lambda (#{tmp\ 1174}#)
- (if (if #{tmp\ 1174}#
- (apply (lambda (#{a\ 1177}#
- #{b\ 1178}#)
+ #{tmp\ 1175}#)
+ ((lambda (#{tmp\ 1184}#)
+ (if (if #{tmp\ 1184}#
+ (apply (lambda (#{a\ 1187}#
+ #{b\ 1188}#)
(eq? (syntax->datum
- #{a\ 1177}#)
+ #{a\ 1187}#)
#:rest))
- #{tmp\ 1174}#)
+ #{tmp\ 1184}#)
#f)
- (apply (lambda (#{a\ 1181}#
- #{b\ 1182}#)
- (#{rest\ 999}#
- #{b\ 1182}#
- #{req\ 1136}#
+ (apply (lambda (#{a\ 1191}#
+ #{b\ 1192}#)
+ (#{rest\ 1009}#
+ #{b\ 1192}#
+ #{req\ 1146}#
(reverse
- #{ropt\ 1137}#)
+ #{ropt\ 1147}#)
'()))
- #{tmp\ 1174}#)
- ((lambda (#{tmp\ 1183}#)
- (if (if #{tmp\ 1183}#
- (apply (lambda (#{r\ 1185}#)
- (#{id?\ 372}#
- #{r\ 1185}#))
- #{tmp\ 1183}#)
+ #{tmp\ 1184}#)
+ ((lambda (#{tmp\ 1193}#)
+ (if (if #{tmp\ 1193}#
+ (apply (lambda (#{r\ 1195}#)
+ (#{id?\ 382}#
+ #{r\ 1195}#))
+ #{tmp\ 1193}#)
#f)
- (apply (lambda (#{r\ 1187}#)
- (#{rest\ 999}#
- #{r\ 1187}#
- #{req\ 1136}#
+ (apply (lambda (#{r\ 1197}#)
+ (#{rest\ 1009}#
+ #{r\ 1197}#
+ #{req\ 1146}#
(reverse
- #{ropt\ 1137}#)
+ #{ropt\ 1147}#)
'()))
- #{tmp\ 1183}#)
- ((lambda (#{else\ 1189}#)
+ #{tmp\ 1193}#)
+ ((lambda (#{else\ 1199}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 990}#
- #{args\ 1135}#))
- #{tmp\ 1141}#)))
- (list #{tmp\ 1141}#))))
+ #{orig-args\ 1000}#
+ #{args\ 1145}#))
+ #{tmp\ 1151}#)))
+ (list #{tmp\ 1151}#))))
($sc-dispatch
- #{tmp\ 1141}#
+ #{tmp\ 1151}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1141}#
+ #{tmp\ 1151}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1141}#
+ #{tmp\ 1151}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1141}#
+ #{tmp\ 1151}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1141}# (quote ()))))
- #{args\ 1135}#)))
- (#{req\ 993}#
- (lambda (#{args\ 1190}# #{rreq\ 1191}#)
- ((lambda (#{tmp\ 1194}#)
- ((lambda (#{tmp\ 1195}#)
- (if #{tmp\ 1195}#
+ ($sc-dispatch #{tmp\ 1151}# (quote ()))))
+ #{args\ 1145}#)))
+ (#{req\ 1003}#
+ (lambda (#{args\ 1200}# #{rreq\ 1201}#)
+ ((lambda (#{tmp\ 1204}#)
+ ((lambda (#{tmp\ 1205}#)
+ (if #{tmp\ 1205}#
(apply (lambda ()
- (#{check\ 1001}#
- (reverse #{rreq\ 1191}#)
+ (#{check\ 1011}#
+ (reverse #{rreq\ 1201}#)
'()
#f
'()))
- #{tmp\ 1195}#)
- ((lambda (#{tmp\ 1196}#)
- (if (if #{tmp\ 1196}#
- (apply (lambda (#{a\ 1199}#
- #{b\ 1200}#)
- (#{id?\ 372}#
- #{a\ 1199}#))
- #{tmp\ 1196}#)
+ #{tmp\ 1205}#)
+ ((lambda (#{tmp\ 1206}#)
+ (if (if #{tmp\ 1206}#
+ (apply (lambda (#{a\ 1209}#
+ #{b\ 1210}#)
+ (#{id?\ 382}#
+ #{a\ 1209}#))
+ #{tmp\ 1206}#)
#f)
- (apply (lambda (#{a\ 1203}#
- #{b\ 1204}#)
- (#{req\ 993}#
- #{b\ 1204}#
- (cons #{a\ 1203}#
- #{rreq\ 1191}#)))
- #{tmp\ 1196}#)
- ((lambda (#{tmp\ 1205}#)
- (if (if #{tmp\ 1205}#
- (apply (lambda (#{a\ 1208}#
- #{b\ 1209}#)
+ (apply (lambda (#{a\ 1213}#
+ #{b\ 1214}#)
+ (#{req\ 1003}#
+ #{b\ 1214}#
+ (cons #{a\ 1213}#
+ #{rreq\ 1201}#)))
+ #{tmp\ 1206}#)
+ ((lambda (#{tmp\ 1215}#)
+ (if (if #{tmp\ 1215}#
+ (apply (lambda (#{a\ 1218}#
+ #{b\ 1219}#)
(eq? (syntax->datum
- #{a\ 1208}#)
+ #{a\ 1218}#)
#:optional))
- #{tmp\ 1205}#)
+ #{tmp\ 1215}#)
#f)
- (apply (lambda (#{a\ 1212}#
- #{b\ 1213}#)
- (#{opt\ 995}#
- #{b\ 1213}#
+ (apply (lambda (#{a\ 1222}#
+ #{b\ 1223}#)
+ (#{opt\ 1005}#
+ #{b\ 1223}#
(reverse
- #{rreq\ 1191}#)
+ #{rreq\ 1201}#)
'()))
- #{tmp\ 1205}#)
- ((lambda (#{tmp\ 1214}#)
- (if (if #{tmp\ 1214}#
- (apply (lambda (#{a\ 1217}#
- #{b\ 1218}#)
+ #{tmp\ 1215}#)
+ ((lambda (#{tmp\ 1224}#)
+ (if (if #{tmp\ 1224}#
+ (apply (lambda (#{a\ 1227}#
+ #{b\ 1228}#)
(eq? (syntax->datum
- #{a\ 1217}#)
+ #{a\ 1227}#)
#:key))
- #{tmp\ 1214}#)
+ #{tmp\ 1224}#)
#f)
- (apply (lambda (#{a\ 1221}#
- #{b\ 1222}#)
- (#{key\ 997}#
- #{b\ 1222}#
+ (apply (lambda (#{a\ 1231}#
+ #{b\ 1232}#)
+ (#{key\ 1007}#
+ #{b\ 1232}#
(reverse
- #{rreq\ 1191}#)
+ #{rreq\ 1201}#)
'()
'()))
- #{tmp\ 1214}#)
- ((lambda (#{tmp\ 1223}#)
- (if (if #{tmp\ 1223}#
- (apply (lambda (#{a\ 1226}#
- #{b\ 1227}#)
+ #{tmp\ 1224}#)
+ ((lambda (#{tmp\ 1233}#)
+ (if (if #{tmp\ 1233}#
+ (apply (lambda (#{a\ 1236}#
+ #{b\ 1237}#)
(eq? (syntax->datum
- #{a\ 1226}#)
+ #{a\ 1236}#)
#:rest))
- #{tmp\ 1223}#)
+ #{tmp\ 1233}#)
#f)
- (apply (lambda (#{a\ 1230}#
- #{b\ 1231}#)
- (#{rest\ 999}#
- #{b\ 1231}#
+ (apply (lambda (#{a\ 1240}#
+ #{b\ 1241}#)
+ (#{rest\ 1009}#
+ #{b\ 1241}#
(reverse
- #{rreq\ 1191}#)
+ #{rreq\ 1201}#)
'()
'()))
- #{tmp\ 1223}#)
- ((lambda (#{tmp\ 1232}#)
- (if (if #{tmp\ 1232}#
- (apply (lambda (#{r\ 1234}#)
- (#{id?\ 372}#
- #{r\ 1234}#))
- #{tmp\ 1232}#)
+ #{tmp\ 1233}#)
+ ((lambda (#{tmp\ 1242}#)
+ (if (if #{tmp\ 1242}#
+ (apply (lambda (#{r\ 1244}#)
+ (#{id?\ 382}#
+ #{r\ 1244}#))
+ #{tmp\ 1242}#)
#f)
- (apply (lambda (#{r\ 1236}#)
- (#{rest\ 999}#
- #{r\ 1236}#
+ (apply (lambda (#{r\ 1246}#)
+ (#{rest\ 1009}#
+ #{r\ 1246}#
(reverse
- #{rreq\ 1191}#)
+ #{rreq\ 1201}#)
'()
'()))
- #{tmp\ 1232}#)
- ((lambda (#{else\ 1238}#)
+ #{tmp\ 1242}#)
+ ((lambda (#{else\ 1248}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 990}#
- #{args\ 1190}#))
- #{tmp\ 1194}#)))
- (list #{tmp\ 1194}#))))
+ #{orig-args\ 1000}#
+ #{args\ 1200}#))
+ #{tmp\ 1204}#)))
+ (list #{tmp\ 1204}#))))
($sc-dispatch
- #{tmp\ 1194}#
+ #{tmp\ 1204}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1194}#
+ #{tmp\ 1204}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1194}#
+ #{tmp\ 1204}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1194}#
+ #{tmp\ 1204}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1194}# (quote ()))))
- #{args\ 1190}#))))
- (#{req\ 993}# #{orig-args\ 990}# (quote ())))))
- (#{chi-simple-lambda\ 477}#
- (lambda (#{e\ 1239}#
- #{r\ 1240}#
- #{w\ 1241}#
- #{s\ 1242}#
- #{mod\ 1243}#
- #{req\ 1244}#
- #{rest\ 1245}#
- #{meta\ 1246}#
- #{body\ 1247}#)
- (let ((#{ids\ 1259}#
- (if #{rest\ 1245}#
- (append #{req\ 1244}# (list #{rest\ 1245}#))
- #{req\ 1244}#)))
- (let ((#{vars\ 1261}#
- (map #{gen-var\ 485}# #{ids\ 1259}#)))
- (let ((#{labels\ 1263}#
- (#{gen-labels\ 390}# #{ids\ 1259}#)))
- (#{build-simple-lambda\ 314}#
- #{s\ 1242}#
- (map syntax->datum #{req\ 1244}#)
- (if #{rest\ 1245}#
- (syntax->datum #{rest\ 1245}#)
+ ($sc-dispatch #{tmp\ 1204}# (quote ()))))
+ #{args\ 1200}#))))
+ (#{req\ 1003}# #{orig-args\ 1000}# (quote ())))))
+ (#{chi-simple-lambda\ 487}#
+ (lambda (#{e\ 1249}#
+ #{r\ 1250}#
+ #{w\ 1251}#
+ #{s\ 1252}#
+ #{mod\ 1253}#
+ #{req\ 1254}#
+ #{rest\ 1255}#
+ #{meta\ 1256}#
+ #{body\ 1257}#)
+ (let ((#{ids\ 1269}#
+ (if #{rest\ 1255}#
+ (append #{req\ 1254}# (list #{rest\ 1255}#))
+ #{req\ 1254}#)))
+ (let ((#{vars\ 1271}#
+ (map #{gen-var\ 495}# #{ids\ 1269}#)))
+ (let ((#{labels\ 1273}#
+ (#{gen-labels\ 400}# #{ids\ 1269}#)))
+ (#{build-simple-lambda\ 324}#
+ #{s\ 1252}#
+ (map syntax->datum #{req\ 1254}#)
+ (if #{rest\ 1255}#
+ (syntax->datum #{rest\ 1255}#)
#f)
- #{vars\ 1261}#
- #{meta\ 1246}#
- (#{chi-body\ 465}#
- #{body\ 1247}#
- (#{source-wrap\ 443}#
- #{e\ 1239}#
- #{w\ 1241}#
- #{s\ 1242}#
- #{mod\ 1243}#)
- (#{extend-var-env\ 362}#
- #{labels\ 1263}#
- #{vars\ 1261}#
- #{r\ 1240}#)
- (#{make-binding-wrap\ 419}#
- #{ids\ 1259}#
- #{labels\ 1263}#
- #{w\ 1241}#)
- #{mod\ 1243}#)))))))
- (#{lambda-formals\ 475}#
- (lambda (#{orig-args\ 1266}#)
- (letrec ((#{check\ 1271}#
- (lambda (#{req\ 1272}# #{rest\ 1273}#)
- (if (#{distinct-bound-ids?\ 437}#
- (if #{rest\ 1273}#
- (cons #{rest\ 1273}# #{req\ 1272}#)
- #{req\ 1272}#))
- (values #{req\ 1272}# #f #{rest\ 1273}# #f)
+ #{vars\ 1271}#
+ #{meta\ 1256}#
+ (#{chi-body\ 475}#
+ #{body\ 1257}#
+ (#{source-wrap\ 453}#
+ #{e\ 1249}#
+ #{w\ 1251}#
+ #{s\ 1252}#
+ #{mod\ 1253}#)
+ (#{extend-var-env\ 372}#
+ #{labels\ 1273}#
+ #{vars\ 1271}#
+ #{r\ 1250}#)
+ (#{make-binding-wrap\ 429}#
+ #{ids\ 1269}#
+ #{labels\ 1273}#
+ #{w\ 1251}#)
+ #{mod\ 1253}#)))))))
+ (#{lambda-formals\ 485}#
+ (lambda (#{orig-args\ 1276}#)
+ (letrec ((#{check\ 1281}#
+ (lambda (#{req\ 1282}# #{rest\ 1283}#)
+ (if (#{distinct-bound-ids?\ 447}#
+ (if #{rest\ 1283}#
+ (cons #{rest\ 1283}# #{req\ 1282}#)
+ #{req\ 1282}#))
+ (values #{req\ 1282}# #f #{rest\ 1283}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 1266}#))))
- (#{req\ 1269}#
- (lambda (#{args\ 1279}# #{rreq\ 1280}#)
- ((lambda (#{tmp\ 1283}#)
- ((lambda (#{tmp\ 1284}#)
- (if #{tmp\ 1284}#
+ #{orig-args\ 1276}#))))
+ (#{req\ 1279}#
+ (lambda (#{args\ 1289}# #{rreq\ 1290}#)
+ ((lambda (#{tmp\ 1293}#)
+ ((lambda (#{tmp\ 1294}#)
+ (if #{tmp\ 1294}#
(apply (lambda ()
- (#{check\ 1271}#
- (reverse #{rreq\ 1280}#)
+ (#{check\ 1281}#
+ (reverse #{rreq\ 1290}#)
#f))
- #{tmp\ 1284}#)
- ((lambda (#{tmp\ 1285}#)
- (if (if #{tmp\ 1285}#
- (apply (lambda (#{a\ 1288}#
- #{b\ 1289}#)
- (#{id?\ 372}#
- #{a\ 1288}#))
- #{tmp\ 1285}#)
+ #{tmp\ 1294}#)
+ ((lambda (#{tmp\ 1295}#)
+ (if (if #{tmp\ 1295}#
+ (apply (lambda (#{a\ 1298}#
+ #{b\ 1299}#)
+ (#{id?\ 382}#
+ #{a\ 1298}#))
+ #{tmp\ 1295}#)
#f)
- (apply (lambda (#{a\ 1292}#
- #{b\ 1293}#)
- (#{req\ 1269}#
- #{b\ 1293}#
- (cons #{a\ 1292}#
- #{rreq\ 1280}#)))
- #{tmp\ 1285}#)
- ((lambda (#{tmp\ 1294}#)
- (if (if #{tmp\ 1294}#
- (apply (lambda (#{r\ 1296}#)
- (#{id?\ 372}#
- #{r\ 1296}#))
- #{tmp\ 1294}#)
+ (apply (lambda (#{a\ 1302}#
+ #{b\ 1303}#)
+ (#{req\ 1279}#
+ #{b\ 1303}#
+ (cons #{a\ 1302}#
+ #{rreq\ 1290}#)))
+ #{tmp\ 1295}#)
+ ((lambda (#{tmp\ 1304}#)
+ (if (if #{tmp\ 1304}#
+ (apply (lambda (#{r\ 1306}#)
+ (#{id?\ 382}#
+ #{r\ 1306}#))
+ #{tmp\ 1304}#)
#f)
- (apply (lambda (#{r\ 1298}#)
- (#{check\ 1271}#
+ (apply (lambda (#{r\ 1308}#)
+ (#{check\ 1281}#
(reverse
- #{rreq\ 1280}#)
- #{r\ 1298}#))
- #{tmp\ 1294}#)
- ((lambda (#{else\ 1300}#)
+ #{rreq\ 1290}#)
+ #{r\ 1308}#))
+ #{tmp\ 1304}#)
+ ((lambda (#{else\ 1310}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 1266}#
- #{args\ 1279}#))
- #{tmp\ 1283}#)))
- (list #{tmp\ 1283}#))))
+ #{orig-args\ 1276}#
+ #{args\ 1289}#))
+ #{tmp\ 1293}#)))
+ (list #{tmp\ 1293}#))))
($sc-dispatch
- #{tmp\ 1283}#
+ #{tmp\ 1293}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1283}# (quote ()))))
- #{args\ 1279}#))))
- (#{req\ 1269}# #{orig-args\ 1266}# (quote ())))))
- (#{ellipsis?\ 473}#
- (lambda (#{x\ 1301}#)
- (if (#{nonsymbol-id?\ 370}# #{x\ 1301}#)
- (#{free-id=?\ 431}#
- #{x\ 1301}#
+ ($sc-dispatch #{tmp\ 1293}# (quote ()))))
+ #{args\ 1289}#))))
+ (#{req\ 1279}# #{orig-args\ 1276}# (quote ())))))
+ (#{ellipsis?\ 483}#
+ (lambda (#{x\ 1311}#)
+ (if (#{nonsymbol-id?\ 380}# #{x\ 1311}#)
+ (#{free-id=?\ 441}#
+ #{x\ 1311}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1302"))
+ #(ribcage #(x) #((top)) #("i1312"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i23" "i22" "i21" "i19")))
+ ("i33" "i32" "i31" "i29")))
(hygiene guile)))
#f)))
- (#{chi-void\ 471}#
- (lambda () (#{build-void\ 292}# #f)))
- (#{eval-local-transformer\ 469}#
- (lambda (#{expanded\ 1306}# #{mod\ 1307}#)
- (let ((#{p\ 1311}#
- (#{local-eval-hook\ 283}#
- #{expanded\ 1306}#
- #{mod\ 1307}#)))
- (if (procedure? #{p\ 1311}#)
- #{p\ 1311}#
+ (#{chi-void\ 481}#
+ (lambda () (#{build-void\ 302}# #f)))
+ (#{eval-local-transformer\ 479}#
+ (lambda (#{expanded\ 1316}# #{mod\ 1317}#)
+ (let ((#{p\ 1321}#
+ (#{local-eval-hook\ 293}#
+ #{expanded\ 1316}#
+ #{mod\ 1317}#)))
+ (if (procedure? #{p\ 1321}#)
+ #{p\ 1321}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1311}#)))))
- (#{chi-local-syntax\ 467}#
- (lambda (#{rec?\ 1312}#
- #{e\ 1313}#
- #{r\ 1314}#
- #{w\ 1315}#
- #{s\ 1316}#
- #{mod\ 1317}#
- #{k\ 1318}#)
- ((lambda (#{tmp\ 1326}#)
- ((lambda (#{tmp\ 1327}#)
- (if #{tmp\ 1327}#
- (apply (lambda (#{_\ 1333}#
- #{id\ 1334}#
- #{val\ 1335}#
- #{e1\ 1336}#
- #{e2\ 1337}#)
- (let ((#{ids\ 1339}# #{id\ 1334}#))
- (if (not (#{valid-bound-ids?\ 435}#
- #{ids\ 1339}#))
+ #{p\ 1321}#)))))
+ (#{chi-local-syntax\ 477}#
+ (lambda (#{rec?\ 1322}#
+ #{e\ 1323}#
+ #{r\ 1324}#
+ #{w\ 1325}#
+ #{s\ 1326}#
+ #{mod\ 1327}#
+ #{k\ 1328}#)
+ ((lambda (#{tmp\ 1336}#)
+ ((lambda (#{tmp\ 1337}#)
+ (if #{tmp\ 1337}#
+ (apply (lambda (#{_\ 1343}#
+ #{id\ 1344}#
+ #{val\ 1345}#
+ #{e1\ 1346}#
+ #{e2\ 1347}#)
+ (let ((#{ids\ 1349}# #{id\ 1344}#))
+ (if (not (#{valid-bound-ids?\ 445}#
+ #{ids\ 1349}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1313}#)
- (let ((#{labels\ 1342}#
- (#{gen-labels\ 390}#
- #{ids\ 1339}#)))
- (let ((#{new-w\ 1344}#
- (#{make-binding-wrap\ 419}#
- #{ids\ 1339}#
- #{labels\ 1342}#
- #{w\ 1315}#)))
- (#{k\ 1318}#
- (cons #{e1\ 1336}# #{e2\ 1337}#)
- (#{extend-env\ 360}#
- #{labels\ 1342}#
- (let ((#{w\ 1348}#
- (if #{rec?\ 1312}#
- #{new-w\ 1344}#
- #{w\ 1315}#))
- (#{trans-r\ 1349}#
- (#{macros-only-env\ 364}#
- #{r\ 1314}#)))
- (map (lambda (#{x\ 1350}#)
+ #{e\ 1323}#)
+ (let ((#{labels\ 1352}#
+ (#{gen-labels\ 400}#
+ #{ids\ 1349}#)))
+ (let ((#{new-w\ 1354}#
+ (#{make-binding-wrap\ 429}#
+ #{ids\ 1349}#
+ #{labels\ 1352}#
+ #{w\ 1325}#)))
+ (#{k\ 1328}#
+ (cons #{e1\ 1346}# #{e2\ 1347}#)
+ (#{extend-env\ 370}#
+ #{labels\ 1352}#
+ (let ((#{w\ 1358}#
+ (if #{rec?\ 1322}#
+ #{new-w\ 1354}#
+ #{w\ 1325}#))
+ (#{trans-r\ 1359}#
+ (#{macros-only-env\ 374}#
+ #{r\ 1324}#)))
+ (map (lambda (#{x\ 1360}#)
(cons 'macro
- (#{eval-local-transformer\ 469}#
- (#{chi\ 457}#
- #{x\ 1350}#
- #{trans-r\ 1349}#
- #{w\ 1348}#
- #{mod\ 1317}#)
- #{mod\ 1317}#)))
- #{val\ 1335}#))
- #{r\ 1314}#)
- #{new-w\ 1344}#
- #{s\ 1316}#
- #{mod\ 1317}#))))))
- #{tmp\ 1327}#)
- ((lambda (#{_\ 1355}#)
+ (#{eval-local-transformer\ 479}#
+ (#{chi\ 467}#
+ #{x\ 1360}#
+ #{trans-r\ 1359}#
+ #{w\ 1358}#
+ #{mod\ 1327}#)
+ #{mod\ 1327}#)))
+ #{val\ 1345}#))
+ #{r\ 1324}#)
+ #{new-w\ 1354}#
+ #{s\ 1326}#
+ #{mod\ 1327}#))))))
+ #{tmp\ 1337}#)
+ ((lambda (#{_\ 1365}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 443}#
- #{e\ 1313}#
- #{w\ 1315}#
- #{s\ 1316}#
- #{mod\ 1317}#)))
- #{tmp\ 1326}#)))
+ (#{source-wrap\ 453}#
+ #{e\ 1323}#
+ #{w\ 1325}#
+ #{s\ 1326}#
+ #{mod\ 1327}#)))
+ #{tmp\ 1336}#)))
($sc-dispatch
- #{tmp\ 1326}#
+ #{tmp\ 1336}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1313}#)))
- (#{chi-body\ 465}#
- (lambda (#{body\ 1356}#
- #{outer-form\ 1357}#
- #{r\ 1358}#
- #{w\ 1359}#
- #{mod\ 1360}#)
- (let ((#{r\ 1368}#
+ #{e\ 1323}#)))
+ (#{chi-body\ 475}#
+ (lambda (#{body\ 1366}#
+ #{outer-form\ 1367}#
+ #{r\ 1368}#
+ #{w\ 1369}#
+ #{mod\ 1370}#)
+ (let ((#{r\ 1378}#
(cons '("placeholder" placeholder)
- #{r\ 1358}#)))
- (let ((#{ribcage\ 1370}#
- (#{make-ribcage\ 393}#
+ #{r\ 1368}#)))
+ (let ((#{ribcage\ 1380}#
+ (#{make-ribcage\ 403}#
'()
'()
'())))
- (let ((#{w\ 1373}#
- (#{make-wrap\ 377}#
- (#{wrap-marks\ 379}# #{w\ 1359}#)
- (cons #{ribcage\ 1370}#
- (#{wrap-subst\ 381}# #{w\ 1359}#)))))
- (letrec ((#{parse\ 1382}#
- (lambda (#{body\ 1383}#
- #{ids\ 1384}#
- #{labels\ 1385}#
- #{var-ids\ 1386}#
- #{vars\ 1387}#
- #{vals\ 1388}#
- #{bindings\ 1389}#)
- (if (null? #{body\ 1383}#)
+ (let ((#{w\ 1383}#
+ (#{make-wrap\ 387}#
+ (#{wrap-marks\ 389}# #{w\ 1369}#)
+ (cons #{ribcage\ 1380}#
+ (#{wrap-subst\ 391}# #{w\ 1369}#)))))
+ (letrec ((#{parse\ 1392}#
+ (lambda (#{body\ 1393}#
+ #{ids\ 1394}#
+ #{labels\ 1395}#
+ #{var-ids\ 1396}#
+ #{vars\ 1397}#
+ #{vals\ 1398}#
+ #{bindings\ 1399}#)
+ (if (null? #{body\ 1393}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1357}#)
- (let ((#{e\ 1394}# (cdar #{body\ 1383}#))
- (#{er\ 1395}# (caar #{body\ 1383}#)))
+ #{outer-form\ 1367}#)
+ (let ((#{e\ 1404}# (cdar #{body\ 1393}#))
+ (#{er\ 1405}# (caar #{body\ 1393}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 453}#
- #{e\ 1394}#
- #{er\ 1395}#
+ (#{syntax-type\ 463}#
+ #{e\ 1404}#
+ #{er\ 1405}#
'(())
- (#{source-annotation\ 351}#
- #{er\ 1395}#)
- #{ribcage\ 1370}#
- #{mod\ 1360}#
+ (#{source-annotation\ 361}#
+ #{er\ 1405}#)
+ #{ribcage\ 1380}#
+ #{mod\ 1370}#
#f))
- (lambda (#{type\ 1397}#
- #{value\ 1398}#
- #{e\ 1399}#
- #{w\ 1400}#
- #{s\ 1401}#
- #{mod\ 1402}#)
- (if (memv #{type\ 1397}#
+ (lambda (#{type\ 1407}#
+ #{value\ 1408}#
+ #{e\ 1409}#
+ #{w\ 1410}#
+ #{s\ 1411}#
+ #{mod\ 1412}#)
+ (if (memv #{type\ 1407}#
'(define-form))
- (let ((#{id\ 1412}#
- (#{wrap\ 441}#
- #{value\ 1398}#
- #{w\ 1400}#
- #{mod\ 1402}#))
- (#{label\ 1413}#
- (#{gen-label\ 388}#)))
- (let ((#{var\ 1415}#
- (#{gen-var\ 485}#
- #{id\ 1412}#)))
+ (let ((#{id\ 1422}#
+ (#{wrap\ 451}#
+ #{value\ 1408}#
+ #{w\ 1410}#
+ #{mod\ 1412}#))
+ (#{label\ 1423}#
+ (#{gen-label\ 398}#)))
+ (let ((#{var\ 1425}#
+ (#{gen-var\ 495}#
+ #{id\ 1422}#)))
(begin
- (#{extend-ribcage!\ 417}#
- #{ribcage\ 1370}#
- #{id\ 1412}#
- #{label\ 1413}#)
- (#{parse\ 1382}#
- (cdr #{body\ 1383}#)
- (cons #{id\ 1412}#
- #{ids\ 1384}#)
- (cons #{label\ 1413}#
- #{labels\ 1385}#)
- (cons #{id\ 1412}#
- #{var-ids\ 1386}#)
- (cons #{var\ 1415}#
- #{vars\ 1387}#)
- (cons (cons #{er\ 1395}#
- (#{wrap\ 441}#
- #{e\ 1399}#
- #{w\ 1400}#
- #{mod\ 1402}#))
- #{vals\ 1388}#)
+ (#{extend-ribcage!\ 427}#
+ #{ribcage\ 1380}#
+ #{id\ 1422}#
+ #{label\ 1423}#)
+ (#{parse\ 1392}#
+ (cdr #{body\ 1393}#)
+ (cons #{id\ 1422}#
+ #{ids\ 1394}#)
+ (cons #{label\ 1423}#
+ #{labels\ 1395}#)
+ (cons #{id\ 1422}#
+ #{var-ids\ 1396}#)
+ (cons #{var\ 1425}#
+ #{vars\ 1397}#)
+ (cons (cons #{er\ 1405}#
+ (#{wrap\ 451}#
+ #{e\ 1409}#
+ #{w\ 1410}#
+ #{mod\ 1412}#))
+ #{vals\ 1398}#)
(cons (cons 'lexical
- #{var\ 1415}#)
- #{bindings\ 1389}#)))))
- (if (memv #{type\ 1397}#
+ #{var\ 1425}#)
+ #{bindings\ 1399}#)))))
+ (if (memv #{type\ 1407}#
'(define-syntax-form))
- (let ((#{id\ 1420}#
- (#{wrap\ 441}#
- #{value\ 1398}#
- #{w\ 1400}#
- #{mod\ 1402}#))
- (#{label\ 1421}#
- (#{gen-label\ 388}#)))
+ (let ((#{id\ 1430}#
+ (#{wrap\ 451}#
+ #{value\ 1408}#
+ #{w\ 1410}#
+ #{mod\ 1412}#))
+ (#{label\ 1431}#
+ (#{gen-label\ 398}#)))
(begin
- (#{extend-ribcage!\ 417}#
- #{ribcage\ 1370}#
- #{id\ 1420}#
- #{label\ 1421}#)
- (#{parse\ 1382}#
- (cdr #{body\ 1383}#)
- (cons #{id\ 1420}#
- #{ids\ 1384}#)
- (cons #{label\ 1421}#
- #{labels\ 1385}#)
- #{var-ids\ 1386}#
- #{vars\ 1387}#
- #{vals\ 1388}#
+ (#{extend-ribcage!\ 427}#
+ #{ribcage\ 1380}#
+ #{id\ 1430}#
+ #{label\ 1431}#)
+ (#{parse\ 1392}#
+ (cdr #{body\ 1393}#)
+ (cons #{id\ 1430}#
+ #{ids\ 1394}#)
+ (cons #{label\ 1431}#
+ #{labels\ 1395}#)
+ #{var-ids\ 1396}#
+ #{vars\ 1397}#
+ #{vals\ 1398}#
(cons (cons 'macro
- (cons #{er\ 1395}#
- (#{wrap\ 441}#
- #{e\ 1399}#
- #{w\ 1400}#
- #{mod\ 1402}#)))
- #{bindings\ 1389}#))))
- (if (memv #{type\ 1397}#
+ (cons #{er\ 1405}#
+ (#{wrap\ 451}#
+ #{e\ 1409}#
+ #{w\ 1410}#
+ #{mod\ 1412}#)))
+ #{bindings\ 1399}#))))
+ (if (memv #{type\ 1407}#
'(begin-form))
- ((lambda (#{tmp\ 1424}#)
- ((lambda (#{tmp\ 1425}#)
- (if #{tmp\ 1425}#
- (apply (lambda (#{_\ 1428}#
- #{e1\ 1429}#)
- (#{parse\ 1382}#
- (letrec ((#{f\ 1432}#
- (lambda (#{forms\ 1433}#)
- (if (null? #{forms\ 1433}#)
- (cdr #{body\ 1383}#)
- (cons (cons #{er\ 1395}#
- (#{wrap\ 441}#
- (car #{forms\ 1433}#)
- #{w\ 1400}#
- #{mod\ 1402}#))
- (#{f\ 1432}#
- (cdr #{forms\ 1433}#)))))))
- (#{f\ 1432}#
- #{e1\ 1429}#))
- #{ids\ 1384}#
- #{labels\ 1385}#
- #{var-ids\ 1386}#
- #{vars\ 1387}#
- #{vals\ 1388}#
- #{bindings\ 1389}#))
- #{tmp\ 1425}#)
+ ((lambda (#{tmp\ 1434}#)
+ ((lambda (#{tmp\ 1435}#)
+ (if #{tmp\ 1435}#
+ (apply (lambda (#{_\ 1438}#
+ #{e1\ 1439}#)
+ (#{parse\ 1392}#
+ (letrec ((#{f\ 1442}#
+ (lambda (#{forms\ 1443}#)
+ (if (null? #{forms\ 1443}#)
+ (cdr #{body\ 1393}#)
+ (cons (cons #{er\ 1405}#
+ (#{wrap\ 451}#
+ (car #{forms\ 1443}#)
+ #{w\ 1410}#
+ #{mod\ 1412}#))
+ (#{f\ 1442}#
+ (cdr #{forms\ 1443}#)))))))
+ (#{f\ 1442}#
+ #{e1\ 1439}#))
+ #{ids\ 1394}#
+ #{labels\ 1395}#
+ #{var-ids\ 1396}#
+ #{vars\ 1397}#
+ #{vals\ 1398}#
+ #{bindings\ 1399}#))
+ #{tmp\ 1435}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1424}#)))
+ #{tmp\ 1434}#)))
($sc-dispatch
- #{tmp\ 1424}#
+ #{tmp\ 1434}#
'(any . each-any))))
- #{e\ 1399}#)
- (if (memv #{type\ 1397}#
+ #{e\ 1409}#)
+ (if (memv #{type\ 1407}#
'(local-syntax-form))
- (#{chi-local-syntax\ 467}#
- #{value\ 1398}#
- #{e\ 1399}#
- #{er\ 1395}#
- #{w\ 1400}#
- #{s\ 1401}#
- #{mod\ 1402}#
- (lambda (#{forms\ 1436}#
- #{er\ 1437}#
- #{w\ 1438}#
- #{s\ 1439}#
- #{mod\ 1440}#)
- (#{parse\ 1382}#
- (letrec ((#{f\ 1448}#
- (lambda (#{forms\ 1449}#)
- (if (null? #{forms\ 1449}#)
- (cdr #{body\ 1383}#)
- (cons (cons #{er\ 1437}#
- (#{wrap\ 441}#
- (car #{forms\ 1449}#)
- #{w\ 1438}#
- #{mod\ 1440}#))
- (#{f\ 1448}#
- (cdr #{forms\ 1449}#)))))))
- (#{f\ 1448}#
- #{forms\ 1436}#))
- #{ids\ 1384}#
- #{labels\ 1385}#
- #{var-ids\ 1386}#
- #{vars\ 1387}#
- #{vals\ 1388}#
- #{bindings\ 1389}#)))
- (if (null? #{ids\ 1384}#)
- (#{build-sequence\ 324}#
+ (#{chi-local-syntax\ 477}#
+ #{value\ 1408}#
+ #{e\ 1409}#
+ #{er\ 1405}#
+ #{w\ 1410}#
+ #{s\ 1411}#
+ #{mod\ 1412}#
+ (lambda (#{forms\ 1446}#
+ #{er\ 1447}#
+ #{w\ 1448}#
+ #{s\ 1449}#
+ #{mod\ 1450}#)
+ (#{parse\ 1392}#
+ (letrec ((#{f\ 1458}#
+ (lambda (#{forms\ 1459}#)
+ (if (null? #{forms\ 1459}#)
+ (cdr #{body\ 1393}#)
+ (cons (cons #{er\ 1447}#
+ (#{wrap\ 451}#
+ (car #{forms\ 1459}#)
+ #{w\ 1448}#
+ #{mod\ 1450}#))
+ (#{f\ 1458}#
+ (cdr #{forms\ 1459}#)))))))
+ (#{f\ 1458}#
+ #{forms\ 1446}#))
+ #{ids\ 1394}#
+ #{labels\ 1395}#
+ #{var-ids\ 1396}#
+ #{vars\ 1397}#
+ #{vals\ 1398}#
+ #{bindings\ 1399}#)))
+ (if (null? #{ids\ 1394}#)
+ (#{build-sequence\ 334}#
#f
- (map (lambda (#{x\ 1452}#)
- (#{chi\ 457}#
- (cdr #{x\ 1452}#)
- (car #{x\ 1452}#)
+ (map (lambda (#{x\ 1462}#)
+ (#{chi\ 467}#
+ (cdr #{x\ 1462}#)
+ (car #{x\ 1462}#)
'(())
- #{mod\ 1402}#))
- (cons (cons #{er\ 1395}#
- (#{source-wrap\ 443}#
- #{e\ 1399}#
- #{w\ 1400}#
- #{s\ 1401}#
- #{mod\ 1402}#))
- (cdr #{body\ 1383}#))))
+ #{mod\ 1412}#))
+ (cons (cons #{er\ 1405}#
+ (#{source-wrap\ 453}#
+ #{e\ 1409}#
+ #{w\ 1410}#
+ #{s\ 1411}#
+ #{mod\ 1412}#))
+ (cdr #{body\ 1393}#))))
(begin
- (if (not (#{valid-bound-ids?\ 435}#
- #{ids\ 1384}#))
+ (if (not (#{valid-bound-ids?\ 445}#
+ #{ids\ 1394}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 1357}#))
- (letrec ((#{loop\ 1459}#
- (lambda (#{bs\ 1460}#
- #{er-cache\ 1461}#
- #{r-cache\ 1462}#)
- (if (not (null? #{bs\ 1460}#))
- (let ((#{b\ 1465}#
- (car #{bs\ 1460}#)))
- (if (eq? (car #{b\ 1465}#)
+ #{outer-form\ 1367}#))
+ (letrec ((#{loop\ 1469}#
+ (lambda (#{bs\ 1470}#
+ #{er-cache\ 1471}#
+ #{r-cache\ 1472}#)
+ (if (not (null? #{bs\ 1470}#))
+ (let ((#{b\ 1475}#
+ (car #{bs\ 1470}#)))
+ (if (eq? (car #{b\ 1475}#)
'macro)
- (let ((#{er\ 1468}#
- (cadr #{b\ 1465}#)))
- (let ((#{r-cache\ 1470}#
- (if (eq? #{er\ 1468}#
- #{er-cache\ 1461}#)
- #{r-cache\ 1462}#
- (#{macros-only-env\ 364}#
- #{er\ 1468}#))))
+ (let ((#{er\ 1478}#
+ (cadr #{b\ 1475}#)))
+ (let ((#{r-cache\ 1480}#
+ (if (eq? #{er\ 1478}#
+ #{er-cache\ 1471}#)
+ #{r-cache\ 1472}#
+ (#{macros-only-env\ 374}#
+ #{er\ 1478}#))))
(begin
(set-cdr!
- #{b\ 1465}#
- (#{eval-local-transformer\ 469}#
- (#{chi\ 457}#
- (cddr #{b\ 1465}#)
- #{r-cache\ 1470}#
+ #{b\ 1475}#
+ (#{eval-local-transformer\ 479}#
+ (#{chi\ 467}#
+ (cddr #{b\ 1475}#)
+ #{r-cache\ 1480}#
'(())
- #{mod\ 1402}#)
- #{mod\ 1402}#))
- (#{loop\ 1459}#
- (cdr #{bs\ 1460}#)
- #{er\ 1468}#
- #{r-cache\ 1470}#))))
- (#{loop\ 1459}#
- (cdr #{bs\ 1460}#)
- #{er-cache\ 1461}#
- #{r-cache\ 1462}#)))))))
- (#{loop\ 1459}#
- #{bindings\ 1389}#
+ #{mod\ 1412}#)
+ #{mod\ 1412}#))
+ (#{loop\ 1469}#
+ (cdr #{bs\ 1470}#)
+ #{er\ 1478}#
+ #{r-cache\ 1480}#))))
+ (#{loop\ 1469}#
+ (cdr #{bs\ 1470}#)
+ #{er-cache\ 1471}#
+ #{r-cache\ 1472}#)))))))
+ (#{loop\ 1469}#
+ #{bindings\ 1399}#
#f
#f))
(set-cdr!
- #{r\ 1368}#
- (#{extend-env\ 360}#
- #{labels\ 1385}#
- #{bindings\ 1389}#
- (cdr #{r\ 1368}#)))
- (#{build-letrec\ 330}#
+ #{r\ 1378}#
+ (#{extend-env\ 370}#
+ #{labels\ 1395}#
+ #{bindings\ 1399}#
+ (cdr #{r\ 1378}#)))
+ (#{build-letrec\ 340}#
#f
(map syntax->datum
- #{var-ids\ 1386}#)
- #{vars\ 1387}#
- (map (lambda (#{x\ 1473}#)
- (#{chi\ 457}#
- (cdr #{x\ 1473}#)
- (car #{x\ 1473}#)
+ #{var-ids\ 1396}#)
+ #{vars\ 1397}#
+ (map (lambda (#{x\ 1483}#)
+ (#{chi\ 467}#
+ (cdr #{x\ 1483}#)
+ (car #{x\ 1483}#)
'(())
- #{mod\ 1402}#))
- #{vals\ 1388}#)
- (#{build-sequence\ 324}#
+ #{mod\ 1412}#))
+ #{vals\ 1398}#)
+ (#{build-sequence\ 334}#
#f
- (map (lambda (#{x\ 1477}#)
- (#{chi\ 457}#
- (cdr #{x\ 1477}#)
- (car #{x\ 1477}#)
+ (map (lambda (#{x\ 1487}#)
+ (#{chi\ 467}#
+ (cdr #{x\ 1487}#)
+ (car #{x\ 1487}#)
'(())
- #{mod\ 1402}#))
- (cons (cons #{er\ 1395}#
- (#{source-wrap\ 443}#
- #{e\ 1399}#
- #{w\ 1400}#
- #{s\ 1401}#
- #{mod\ 1402}#))
- (cdr #{body\ 1383}#))))))))))))))))))
- (#{parse\ 1382}#
- (map (lambda (#{x\ 1390}#)
- (cons #{r\ 1368}#
- (#{wrap\ 441}#
- #{x\ 1390}#
- #{w\ 1373}#
- #{mod\ 1360}#)))
- #{body\ 1356}#)
+ #{mod\ 1412}#))
+ (cons (cons #{er\ 1405}#
+ (#{source-wrap\ 453}#
+ #{e\ 1409}#
+ #{w\ 1410}#
+ #{s\ 1411}#
+ #{mod\ 1412}#))
+ (cdr #{body\ 1393}#))))))))))))))))))
+ (#{parse\ 1392}#
+ (map (lambda (#{x\ 1400}#)
+ (cons #{r\ 1378}#
+ (#{wrap\ 451}#
+ #{x\ 1400}#
+ #{w\ 1383}#
+ #{mod\ 1370}#)))
+ #{body\ 1366}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 463}#
- (lambda (#{p\ 1480}#
- #{e\ 1481}#
- #{r\ 1482}#
- #{w\ 1483}#
- #{s\ 1484}#
- #{rib\ 1485}#
- #{mod\ 1486}#)
- (letrec ((#{rebuild-macro-output\ 1495}#
- (lambda (#{x\ 1496}# #{m\ 1497}#)
- (if (pair? #{x\ 1496}#)
- (#{decorate-source\ 290}#
- (cons (#{rebuild-macro-output\ 1495}#
- (car #{x\ 1496}#)
- #{m\ 1497}#)
- (#{rebuild-macro-output\ 1495}#
- (cdr #{x\ 1496}#)
- #{m\ 1497}#))
- #{s\ 1484}#)
- (if (#{syntax-object?\ 336}# #{x\ 1496}#)
- (let ((#{w\ 1505}#
- (#{syntax-object-wrap\ 340}#
- #{x\ 1496}#)))
- (let ((#{ms\ 1508}#
- (#{wrap-marks\ 379}# #{w\ 1505}#))
- (#{s\ 1509}#
- (#{wrap-subst\ 381}# #{w\ 1505}#)))
- (if (if (pair? #{ms\ 1508}#)
- (eq? (car #{ms\ 1508}#) #f)
+ (#{chi-macro\ 473}#
+ (lambda (#{p\ 1490}#
+ #{e\ 1491}#
+ #{r\ 1492}#
+ #{w\ 1493}#
+ #{s\ 1494}#
+ #{rib\ 1495}#
+ #{mod\ 1496}#)
+ (letrec ((#{rebuild-macro-output\ 1505}#
+ (lambda (#{x\ 1506}# #{m\ 1507}#)
+ (if (pair? #{x\ 1506}#)
+ (#{decorate-source\ 300}#
+ (cons (#{rebuild-macro-output\ 1505}#
+ (car #{x\ 1506}#)
+ #{m\ 1507}#)
+ (#{rebuild-macro-output\ 1505}#
+ (cdr #{x\ 1506}#)
+ #{m\ 1507}#))
+ #{s\ 1494}#)
+ (if (#{syntax-object?\ 346}# #{x\ 1506}#)
+ (let ((#{w\ 1515}#
+ (#{syntax-object-wrap\ 350}#
+ #{x\ 1506}#)))
+ (let ((#{ms\ 1518}#
+ (#{wrap-marks\ 389}# #{w\ 1515}#))
+ (#{s\ 1519}#
+ (#{wrap-subst\ 391}# #{w\ 1515}#)))
+ (if (if (pair? #{ms\ 1518}#)
+ (eq? (car #{ms\ 1518}#) #f)
#f)
- (#{make-syntax-object\ 334}#
- (#{syntax-object-expression\ 338}#
- #{x\ 1496}#)
- (#{make-wrap\ 377}#
- (cdr #{ms\ 1508}#)
- (if #{rib\ 1485}#
- (cons #{rib\ 1485}#
- (cdr #{s\ 1509}#))
- (cdr #{s\ 1509}#)))
- (#{syntax-object-module\ 342}#
- #{x\ 1496}#))
- (#{make-syntax-object\ 334}#
- (#{decorate-source\ 290}#
- (#{syntax-object-expression\ 338}#
- #{x\ 1496}#)
- #{s\ 1509}#)
- (#{make-wrap\ 377}#
- (cons #{m\ 1497}# #{ms\ 1508}#)
- (if #{rib\ 1485}#
- (cons #{rib\ 1485}#
+ (#{make-syntax-object\ 344}#
+ (#{syntax-object-expression\ 348}#
+ #{x\ 1506}#)
+ (#{make-wrap\ 387}#
+ (cdr #{ms\ 1518}#)
+ (if #{rib\ 1495}#
+ (cons #{rib\ 1495}#
+ (cdr #{s\ 1519}#))
+ (cdr #{s\ 1519}#)))
+ (#{syntax-object-module\ 352}#
+ #{x\ 1506}#))
+ (#{make-syntax-object\ 344}#
+ (#{decorate-source\ 300}#
+ (#{syntax-object-expression\ 348}#
+ #{x\ 1506}#)
+ #{s\ 1519}#)
+ (#{make-wrap\ 387}#
+ (cons #{m\ 1507}# #{ms\ 1518}#)
+ (if #{rib\ 1495}#
+ (cons #{rib\ 1495}#
(cons 'shift
- #{s\ 1509}#))
- (cons (quote shift) #{s\ 1509}#)))
- (#{syntax-object-module\ 342}#
- #{x\ 1496}#)))))
- (if (vector? #{x\ 1496}#)
- (let ((#{n\ 1517}#
- (vector-length #{x\ 1496}#)))
- (let ((#{v\ 1519}#
- (#{decorate-source\ 290}#
- (make-vector #{n\ 1517}#)
- #{x\ 1496}#)))
- (letrec ((#{loop\ 1522}#
- (lambda (#{i\ 1523}#)
- (if (#{fx=\ 277}#
- #{i\ 1523}#
- #{n\ 1517}#)
+ #{s\ 1519}#))
+ (cons (quote shift) #{s\ 1519}#)))
+ (#{syntax-object-module\ 352}#
+ #{x\ 1506}#)))))
+ (if (vector? #{x\ 1506}#)
+ (let ((#{n\ 1527}#
+ (vector-length #{x\ 1506}#)))
+ (let ((#{v\ 1529}#
+ (#{decorate-source\ 300}#
+ (make-vector #{n\ 1527}#)
+ #{x\ 1506}#)))
+ (letrec ((#{loop\ 1532}#
+ (lambda (#{i\ 1533}#)
+ (if (#{fx=\ 287}#
+ #{i\ 1533}#
+ #{n\ 1527}#)
(begin
(if #f #f)
- #{v\ 1519}#)
+ #{v\ 1529}#)
(begin
(vector-set!
- #{v\ 1519}#
- #{i\ 1523}#
- (#{rebuild-macro-output\ 1495}#
+ #{v\ 1529}#
+ #{i\ 1533}#
+ (#{rebuild-macro-output\ 1505}#
(vector-ref
- #{x\ 1496}#
- #{i\ 1523}#)
- #{m\ 1497}#))
- (#{loop\ 1522}#
- (#{fx+\ 273}#
- #{i\ 1523}#
+ #{x\ 1506}#
+ #{i\ 1533}#)
+ #{m\ 1507}#))
+ (#{loop\ 1532}#
+ (#{fx+\ 283}#
+ #{i\ 1533}#
1)))))))
- (#{loop\ 1522}# 0))))
- (if (symbol? #{x\ 1496}#)
+ (#{loop\ 1532}# 0))))
+ (if (symbol? #{x\ 1506}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 443}#
- #{e\ 1481}#
- #{w\ 1483}#
- (#{wrap-subst\ 381}# #{w\ 1483}#)
- #{mod\ 1486}#)
- #{x\ 1496}#)
- (#{decorate-source\ 290}#
- #{x\ 1496}#
- #{s\ 1484}#))))))))
- (#{rebuild-macro-output\ 1495}#
- (#{p\ 1480}#
- (#{source-wrap\ 443}#
- #{e\ 1481}#
- (#{anti-mark\ 413}# #{w\ 1483}#)
- #{s\ 1484}#
- #{mod\ 1486}#))
+ (#{source-wrap\ 453}#
+ #{e\ 1491}#
+ #{w\ 1493}#
+ (#{wrap-subst\ 391}# #{w\ 1493}#)
+ #{mod\ 1496}#)
+ #{x\ 1506}#)
+ (#{decorate-source\ 300}#
+ #{x\ 1506}#
+ #{s\ 1494}#))))))))
+ (#{rebuild-macro-output\ 1505}#
+ (#{p\ 1490}#
+ (#{source-wrap\ 453}#
+ #{e\ 1491}#
+ (#{anti-mark\ 423}# #{w\ 1493}#)
+ #{s\ 1494}#
+ #{mod\ 1496}#))
(gensym "m")))))
- (#{chi-application\ 461}#
- (lambda (#{x\ 1530}#
- #{e\ 1531}#
- #{r\ 1532}#
- #{w\ 1533}#
- #{s\ 1534}#
- #{mod\ 1535}#)
- ((lambda (#{tmp\ 1542}#)
- ((lambda (#{tmp\ 1543}#)
- (if #{tmp\ 1543}#
- (apply (lambda (#{e0\ 1546}# #{e1\ 1547}#)
- (#{build-application\ 294}#
- #{s\ 1534}#
- #{x\ 1530}#
- (map (lambda (#{e\ 1548}#)
- (#{chi\ 457}#
- #{e\ 1548}#
- #{r\ 1532}#
- #{w\ 1533}#
- #{mod\ 1535}#))
- #{e1\ 1547}#)))
- #{tmp\ 1543}#)
+ (#{chi-application\ 471}#
+ (lambda (#{x\ 1540}#
+ #{e\ 1541}#
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{s\ 1544}#
+ #{mod\ 1545}#)
+ ((lambda (#{tmp\ 1552}#)
+ ((lambda (#{tmp\ 1553}#)
+ (if #{tmp\ 1553}#
+ (apply (lambda (#{e0\ 1556}# #{e1\ 1557}#)
+ (#{build-application\ 304}#
+ #{s\ 1544}#
+ #{x\ 1540}#
+ (map (lambda (#{e\ 1558}#)
+ (#{chi\ 467}#
+ #{e\ 1558}#
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{mod\ 1545}#))
+ #{e1\ 1557}#)))
+ #{tmp\ 1553}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1542}#)))
+ #{tmp\ 1552}#)))
($sc-dispatch
- #{tmp\ 1542}#
+ #{tmp\ 1552}#
'(any . each-any))))
- #{e\ 1531}#)))
- (#{chi-expr\ 459}#
- (lambda (#{type\ 1551}#
- #{value\ 1552}#
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
- (if (memv #{type\ 1551}# (quote (lexical)))
- (#{build-lexical-reference\ 300}#
+ #{e\ 1541}#)))
+ (#{chi-expr\ 469}#
+ (lambda (#{type\ 1561}#
+ #{value\ 1562}#
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
+ (if (memv #{type\ 1561}# (quote (lexical)))
+ (#{build-lexical-reference\ 310}#
'value
- #{s\ 1556}#
- #{e\ 1553}#
- #{value\ 1552}#)
- (if (memv #{type\ 1551}# (quote (core core-form)))
- (#{value\ 1552}#
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
- (if (memv #{type\ 1551}# (quote (module-ref)))
+ #{s\ 1566}#
+ #{e\ 1563}#
+ #{value\ 1562}#)
+ (if (memv #{type\ 1561}# (quote (core core-form)))
+ (#{value\ 1562}#
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
+ (if (memv #{type\ 1561}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 1552}#
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#))
- (lambda (#{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (#{chi\ 457}#
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{mod\ 1572}#)))
- (if (memv #{type\ 1551}# (quote (lexical-call)))
- (#{chi-application\ 461}#
- (let ((#{id\ 1580}# (car #{e\ 1553}#)))
- (#{build-lexical-reference\ 300}#
+ (#{value\ 1562}#
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#))
+ (lambda (#{e\ 1578}#
+ #{r\ 1579}#
+ #{w\ 1580}#
+ #{s\ 1581}#
+ #{mod\ 1582}#)
+ (#{chi\ 467}#
+ #{e\ 1578}#
+ #{r\ 1579}#
+ #{w\ 1580}#
+ #{mod\ 1582}#)))
+ (if (memv #{type\ 1561}# (quote (lexical-call)))
+ (#{chi-application\ 471}#
+ (let ((#{id\ 1590}# (car #{e\ 1563}#)))
+ (#{build-lexical-reference\ 310}#
'fun
- (#{source-annotation\ 351}# #{id\ 1580}#)
- (if (#{syntax-object?\ 336}# #{id\ 1580}#)
- (syntax->datum #{id\ 1580}#)
- #{id\ 1580}#)
- #{value\ 1552}#))
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
- (if (memv #{type\ 1551}# (quote (global-call)))
- (#{chi-application\ 461}#
- (#{build-global-reference\ 306}#
- (#{source-annotation\ 351}# (car #{e\ 1553}#))
- (if (#{syntax-object?\ 336}# #{value\ 1552}#)
- (#{syntax-object-expression\ 338}#
- #{value\ 1552}#)
- #{value\ 1552}#)
- (if (#{syntax-object?\ 336}# #{value\ 1552}#)
- (#{syntax-object-module\ 342}# #{value\ 1552}#)
- #{mod\ 1557}#))
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
- (if (memv #{type\ 1551}# (quote (constant)))
- (#{build-data\ 322}#
- #{s\ 1556}#
- (#{strip\ 483}#
- (#{source-wrap\ 443}#
- #{e\ 1553}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
+ (#{source-annotation\ 361}# #{id\ 1590}#)
+ (if (#{syntax-object?\ 346}# #{id\ 1590}#)
+ (syntax->datum #{id\ 1590}#)
+ #{id\ 1590}#)
+ #{value\ 1562}#))
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
+ (if (memv #{type\ 1561}# (quote (global-call)))
+ (#{chi-application\ 471}#
+ (#{build-global-reference\ 316}#
+ (#{source-annotation\ 361}# (car #{e\ 1563}#))
+ (if (#{syntax-object?\ 346}# #{value\ 1562}#)
+ (#{syntax-object-expression\ 348}#
+ #{value\ 1562}#)
+ #{value\ 1562}#)
+ (if (#{syntax-object?\ 346}# #{value\ 1562}#)
+ (#{syntax-object-module\ 352}# #{value\ 1562}#)
+ #{mod\ 1567}#))
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
+ (if (memv #{type\ 1561}# (quote (constant)))
+ (#{build-data\ 332}#
+ #{s\ 1566}#
+ (#{strip\ 493}#
+ (#{source-wrap\ 453}#
+ #{e\ 1563}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
'(())))
- (if (memv #{type\ 1551}# (quote (global)))
- (#{build-global-reference\ 306}#
- #{s\ 1556}#
- #{value\ 1552}#
- #{mod\ 1557}#)
- (if (memv #{type\ 1551}# (quote (call)))
- (#{chi-application\ 461}#
- (#{chi\ 457}#
- (car #{e\ 1553}#)
- #{r\ 1554}#
- #{w\ 1555}#
- #{mod\ 1557}#)
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
- (if (memv #{type\ 1551}# (quote (begin-form)))
- ((lambda (#{tmp\ 1587}#)
- ((lambda (#{tmp\ 1588}#)
- (if #{tmp\ 1588}#
- (apply (lambda (#{_\ 1592}#
- #{e1\ 1593}#
- #{e2\ 1594}#)
- (#{chi-sequence\ 445}#
- (cons #{e1\ 1593}#
- #{e2\ 1594}#)
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#))
- #{tmp\ 1588}#)
+ (if (memv #{type\ 1561}# (quote (global)))
+ (#{build-global-reference\ 316}#
+ #{s\ 1566}#
+ #{value\ 1562}#
+ #{mod\ 1567}#)
+ (if (memv #{type\ 1561}# (quote (call)))
+ (#{chi-application\ 471}#
+ (#{chi\ 467}#
+ (car #{e\ 1563}#)
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{mod\ 1567}#)
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
+ (if (memv #{type\ 1561}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1597}#)
+ ((lambda (#{tmp\ 1598}#)
+ (if #{tmp\ 1598}#
+ (apply (lambda (#{_\ 1602}#
+ #{e1\ 1603}#
+ #{e2\ 1604}#)
+ (#{chi-sequence\ 455}#
+ (cons #{e1\ 1603}#
+ #{e2\ 1604}#)
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#))
+ #{tmp\ 1598}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1587}#)))
+ #{tmp\ 1597}#)))
($sc-dispatch
- #{tmp\ 1587}#
+ #{tmp\ 1597}#
'(any any . each-any))))
- #{e\ 1553}#)
- (if (memv #{type\ 1551}#
+ #{e\ 1563}#)
+ (if (memv #{type\ 1561}#
'(local-syntax-form))
- (#{chi-local-syntax\ 467}#
- #{value\ 1552}#
- #{e\ 1553}#
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#
- #{chi-sequence\ 445}#)
- (if (memv #{type\ 1551}#
+ (#{chi-local-syntax\ 477}#
+ #{value\ 1562}#
+ #{e\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#
+ #{chi-sequence\ 455}#)
+ (if (memv #{type\ 1561}#
'(eval-when-form))
- ((lambda (#{tmp\ 1598}#)
- ((lambda (#{tmp\ 1599}#)
- (if #{tmp\ 1599}#
- (apply (lambda (#{_\ 1604}#
- #{x\ 1605}#
- #{e1\ 1606}#
- #{e2\ 1607}#)
- (let ((#{when-list\ 1609}#
- (#{chi-when-list\ 451}#
- #{e\ 1553}#
- #{x\ 1605}#
- #{w\ 1555}#)))
+ ((lambda (#{tmp\ 1608}#)
+ ((lambda (#{tmp\ 1609}#)
+ (if #{tmp\ 1609}#
+ (apply (lambda (#{_\ 1614}#
+ #{x\ 1615}#
+ #{e1\ 1616}#
+ #{e2\ 1617}#)
+ (let ((#{when-list\ 1619}#
+ (#{chi-when-list\ 461}#
+ #{e\ 1563}#
+ #{x\ 1615}#
+ #{w\ 1565}#)))
(if (memq 'eval
- #{when-list\ 1609}#)
- (#{chi-sequence\ 445}#
- (cons #{e1\ 1606}#
- #{e2\ 1607}#)
- #{r\ 1554}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#)
- (#{chi-void\ 471}#))))
- #{tmp\ 1599}#)
+ #{when-list\ 1619}#)
+ (#{chi-sequence\ 455}#
+ (cons #{e1\ 1616}#
+ #{e2\ 1617}#)
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#)
+ (#{chi-void\ 481}#))))
+ #{tmp\ 1609}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1598}#)))
+ #{tmp\ 1608}#)))
($sc-dispatch
- #{tmp\ 1598}#
+ #{tmp\ 1608}#
'(any each-any any . each-any))))
- #{e\ 1553}#)
- (if (memv #{type\ 1551}#
+ #{e\ 1563}#)
+ (if (memv #{type\ 1561}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1553}#
- (#{wrap\ 441}#
- #{value\ 1552}#
- #{w\ 1555}#
- #{mod\ 1557}#))
- (if (memv #{type\ 1551}#
+ #{e\ 1563}#
+ (#{wrap\ 451}#
+ #{value\ 1562}#
+ #{w\ 1565}#
+ #{mod\ 1567}#))
+ (if (memv #{type\ 1561}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 443}#
- #{e\ 1553}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#))
- (if (memv #{type\ 1551}#
+ (#{source-wrap\ 453}#
+ #{e\ 1563}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#))
+ (if (memv #{type\ 1561}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 443}#
- #{e\ 1553}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#))
+ (#{source-wrap\ 453}#
+ #{e\ 1563}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 443}#
- #{e\ 1553}#
- #{w\ 1555}#
- #{s\ 1556}#
- #{mod\ 1557}#))))))))))))))))))
- (#{chi\ 457}#
- (lambda (#{e\ 1616}#
- #{r\ 1617}#
- #{w\ 1618}#
- #{mod\ 1619}#)
+ (#{source-wrap\ 453}#
+ #{e\ 1563}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{mod\ 1567}#))))))))))))))))))
+ (#{chi\ 467}#
+ (lambda (#{e\ 1626}#
+ #{r\ 1627}#
+ #{w\ 1628}#
+ #{mod\ 1629}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 453}#
- #{e\ 1616}#
- #{r\ 1617}#
- #{w\ 1618}#
- (#{source-annotation\ 351}# #{e\ 1616}#)
+ (#{syntax-type\ 463}#
+ #{e\ 1626}#
+ #{r\ 1627}#
+ #{w\ 1628}#
+ (#{source-annotation\ 361}# #{e\ 1626}#)
#f
- #{mod\ 1619}#
+ #{mod\ 1629}#
#f))
- (lambda (#{type\ 1624}#
- #{value\ 1625}#
- #{e\ 1626}#
- #{w\ 1627}#
- #{s\ 1628}#
- #{mod\ 1629}#)
- (#{chi-expr\ 459}#
- #{type\ 1624}#
- #{value\ 1625}#
- #{e\ 1626}#
- #{r\ 1617}#
- #{w\ 1627}#
- #{s\ 1628}#
- #{mod\ 1629}#)))))
- (#{chi-top\ 455}#
- (lambda (#{e\ 1636}#
- #{r\ 1637}#
- #{w\ 1638}#
- #{m\ 1639}#
- #{esew\ 1640}#
- #{mod\ 1641}#)
+ (lambda (#{type\ 1634}#
+ #{value\ 1635}#
+ #{e\ 1636}#
+ #{w\ 1637}#
+ #{s\ 1638}#
+ #{mod\ 1639}#)
+ (#{chi-expr\ 469}#
+ #{type\ 1634}#
+ #{value\ 1635}#
+ #{e\ 1636}#
+ #{r\ 1627}#
+ #{w\ 1637}#
+ #{s\ 1638}#
+ #{mod\ 1639}#)))))
+ (#{chi-top\ 465}#
+ (lambda (#{e\ 1646}#
+ #{r\ 1647}#
+ #{w\ 1648}#
+ #{m\ 1649}#
+ #{esew\ 1650}#
+ #{mod\ 1651}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 453}#
- #{e\ 1636}#
- #{r\ 1637}#
- #{w\ 1638}#
- (#{source-annotation\ 351}# #{e\ 1636}#)
+ (#{syntax-type\ 463}#
+ #{e\ 1646}#
+ #{r\ 1647}#
+ #{w\ 1648}#
+ (#{source-annotation\ 361}# #{e\ 1646}#)
#f
- #{mod\ 1641}#
+ #{mod\ 1651}#
#f))
- (lambda (#{type\ 1662}#
- #{value\ 1663}#
- #{e\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (if (memv #{type\ 1662}# (quote (begin-form)))
- ((lambda (#{tmp\ 1675}#)
- ((lambda (#{tmp\ 1676}#)
- (if #{tmp\ 1676}#
- (apply (lambda (#{_\ 1678}#) (#{chi-void\ 471}#))
- #{tmp\ 1676}#)
- ((lambda (#{tmp\ 1679}#)
- (if #{tmp\ 1679}#
- (apply (lambda (#{_\ 1683}#
- #{e1\ 1684}#
- #{e2\ 1685}#)
- (#{chi-top-sequence\ 447}#
- (cons #{e1\ 1684}# #{e2\ 1685}#)
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{m\ 1639}#
- #{esew\ 1640}#
- #{mod\ 1667}#))
- #{tmp\ 1679}#)
+ (lambda (#{type\ 1672}#
+ #{value\ 1673}#
+ #{e\ 1674}#
+ #{w\ 1675}#
+ #{s\ 1676}#
+ #{mod\ 1677}#)
+ (if (memv #{type\ 1672}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1685}#)
+ ((lambda (#{tmp\ 1686}#)
+ (if #{tmp\ 1686}#
+ (apply (lambda (#{_\ 1688}#) (#{chi-void\ 481}#))
+ #{tmp\ 1686}#)
+ ((lambda (#{tmp\ 1689}#)
+ (if #{tmp\ 1689}#
+ (apply (lambda (#{_\ 1693}#
+ #{e1\ 1694}#
+ #{e2\ 1695}#)
+ (#{chi-top-sequence\ 457}#
+ (cons #{e1\ 1694}# #{e2\ 1695}#)
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
+ #{m\ 1649}#
+ #{esew\ 1650}#
+ #{mod\ 1677}#))
+ #{tmp\ 1689}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1675}#)))
+ #{tmp\ 1685}#)))
($sc-dispatch
- #{tmp\ 1675}#
+ #{tmp\ 1685}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1675}# (quote (any)))))
- #{e\ 1664}#)
- (if (memv #{type\ 1662}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 467}#
- #{value\ 1663}#
- #{e\ 1664}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#
- (lambda (#{body\ 1688}#
- #{r\ 1689}#
- #{w\ 1690}#
- #{s\ 1691}#
- #{mod\ 1692}#)
- (#{chi-top-sequence\ 447}#
- #{body\ 1688}#
- #{r\ 1689}#
- #{w\ 1690}#
- #{s\ 1691}#
- #{m\ 1639}#
- #{esew\ 1640}#
- #{mod\ 1692}#)))
- (if (memv #{type\ 1662}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1699}#)
- ((lambda (#{tmp\ 1700}#)
- (if #{tmp\ 1700}#
- (apply (lambda (#{_\ 1705}#
- #{x\ 1706}#
- #{e1\ 1707}#
- #{e2\ 1708}#)
- (let ((#{when-list\ 1711}#
- (#{chi-when-list\ 451}#
- #{e\ 1664}#
- #{x\ 1706}#
- #{w\ 1665}#))
- (#{body\ 1712}#
- (cons #{e1\ 1707}#
- #{e2\ 1708}#)))
- (if (eq? #{m\ 1639}# (quote e))
+ ($sc-dispatch #{tmp\ 1685}# (quote (any)))))
+ #{e\ 1674}#)
+ (if (memv #{type\ 1672}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 477}#
+ #{value\ 1673}#
+ #{e\ 1674}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
+ #{mod\ 1677}#
+ (lambda (#{body\ 1698}#
+ #{r\ 1699}#
+ #{w\ 1700}#
+ #{s\ 1701}#
+ #{mod\ 1702}#)
+ (#{chi-top-sequence\ 457}#
+ #{body\ 1698}#
+ #{r\ 1699}#
+ #{w\ 1700}#
+ #{s\ 1701}#
+ #{m\ 1649}#
+ #{esew\ 1650}#
+ #{mod\ 1702}#)))
+ (if (memv #{type\ 1672}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1709}#)
+ ((lambda (#{tmp\ 1710}#)
+ (if #{tmp\ 1710}#
+ (apply (lambda (#{_\ 1715}#
+ #{x\ 1716}#
+ #{e1\ 1717}#
+ #{e2\ 1718}#)
+ (let ((#{when-list\ 1721}#
+ (#{chi-when-list\ 461}#
+ #{e\ 1674}#
+ #{x\ 1716}#
+ #{w\ 1675}#))
+ (#{body\ 1722}#
+ (cons #{e1\ 1717}#
+ #{e2\ 1718}#)))
+ (if (eq? #{m\ 1649}# (quote e))
(if (memq 'eval
- #{when-list\ 1711}#)
- (#{chi-top-sequence\ 447}#
- #{body\ 1712}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
+ #{when-list\ 1721}#)
+ (#{chi-top-sequence\ 457}#
+ #{body\ 1722}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
(if (memq 'expand
- #{when-list\ 1711}#)
+ #{when-list\ 1721}#)
'c&e
'e)
'(eval)
- #{mod\ 1667}#)
+ #{mod\ 1677}#)
(begin
(if (memq 'expand
- #{when-list\ 1711}#)
- (#{top-level-eval-hook\ 281}#
- (#{chi-top-sequence\ 447}#
- #{body\ 1712}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
+ #{when-list\ 1721}#)
+ (#{top-level-eval-hook\ 291}#
+ (#{chi-top-sequence\ 457}#
+ #{body\ 1722}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
'e
'(eval)
- #{mod\ 1667}#)
- #{mod\ 1667}#))
- (#{chi-void\ 471}#)))
+ #{mod\ 1677}#)
+ #{mod\ 1677}#))
+ (#{chi-void\ 481}#)))
(if (memq 'load
- #{when-list\ 1711}#)
- (if (let ((#{t\ 1721}#
+ #{when-list\ 1721}#)
+ (if (let ((#{t\ 1731}#
(memq 'compile
- #{when-list\ 1711}#)))
- (if #{t\ 1721}#
- #{t\ 1721}#
- (let ((#{t\ 1724}#
+ #{when-list\ 1721}#)))
+ (if #{t\ 1731}#
+ #{t\ 1731}#
+ (let ((#{t\ 1734}#
(memq 'expand
- #{when-list\ 1711}#)))
- (if #{t\ 1724}#
- #{t\ 1724}#
- (if (eq? #{m\ 1639}#
+ #{when-list\ 1721}#)))
+ (if #{t\ 1734}#
+ #{t\ 1734}#
+ (if (eq? #{m\ 1649}#
'c&e)
(memq 'eval
- #{when-list\ 1711}#)
+ #{when-list\ 1721}#)
#f)))))
- (#{chi-top-sequence\ 447}#
- #{body\ 1712}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
+ (#{chi-top-sequence\ 457}#
+ #{body\ 1722}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
'c&e
'(compile load)
- #{mod\ 1667}#)
- (if (memq #{m\ 1639}#
+ #{mod\ 1677}#)
+ (if (memq #{m\ 1649}#
'(c c&e))
- (#{chi-top-sequence\ 447}#
- #{body\ 1712}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
+ (#{chi-top-sequence\ 457}#
+ #{body\ 1722}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
'c
'(load)
- #{mod\ 1667}#)
- (#{chi-void\ 471}#)))
- (if (let ((#{t\ 1732}#
+ #{mod\ 1677}#)
+ (#{chi-void\ 481}#)))
+ (if (let ((#{t\ 1742}#
(memq 'compile
- #{when-list\ 1711}#)))
- (if #{t\ 1732}#
- #{t\ 1732}#
- (let ((#{t\ 1735}#
+ #{when-list\ 1721}#)))
+ (if #{t\ 1742}#
+ #{t\ 1742}#
+ (let ((#{t\ 1745}#
(memq 'expand
- #{when-list\ 1711}#)))
- (if #{t\ 1735}#
- #{t\ 1735}#
- (if (eq? #{m\ 1639}#
+ #{when-list\ 1721}#)))
+ (if #{t\ 1745}#
+ #{t\ 1745}#
+ (if (eq? #{m\ 1649}#
'c&e)
(memq 'eval
- #{when-list\ 1711}#)
+ #{when-list\ 1721}#)
#f)))))
(begin
- (#{top-level-eval-hook\ 281}#
- (#{chi-top-sequence\ 447}#
- #{body\ 1712}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
+ (#{top-level-eval-hook\ 291}#
+ (#{chi-top-sequence\ 457}#
+ #{body\ 1722}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
'e
'(eval)
- #{mod\ 1667}#)
- #{mod\ 1667}#)
- (#{chi-void\ 471}#))
- (#{chi-void\ 471}#))))))
- #{tmp\ 1700}#)
+ #{mod\ 1677}#)
+ #{mod\ 1677}#)
+ (#{chi-void\ 481}#))
+ (#{chi-void\ 481}#))))))
+ #{tmp\ 1710}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1699}#)))
+ #{tmp\ 1709}#)))
($sc-dispatch
- #{tmp\ 1699}#
+ #{tmp\ 1709}#
'(any each-any any . each-any))))
- #{e\ 1664}#)
- (if (memv #{type\ 1662}#
+ #{e\ 1674}#)
+ (if (memv #{type\ 1672}#
'(define-syntax-form))
- (let ((#{n\ 1743}#
- (#{id-var-name\ 429}#
- #{value\ 1663}#
- #{w\ 1665}#))
- (#{r\ 1744}#
- (#{macros-only-env\ 364}# #{r\ 1637}#)))
- (if (memv #{m\ 1639}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1640}#)
- (let ((#{e\ 1747}#
- (#{chi-install-global\ 449}#
- #{n\ 1743}#
- (#{chi\ 457}#
- #{e\ 1664}#
- #{r\ 1744}#
- #{w\ 1665}#
- #{mod\ 1667}#))))
+ (let ((#{n\ 1753}#
+ (#{id-var-name\ 439}#
+ #{value\ 1673}#
+ #{w\ 1675}#))
+ (#{r\ 1754}#
+ (#{macros-only-env\ 374}# #{r\ 1647}#)))
+ (if (memv #{m\ 1649}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1650}#)
+ (let ((#{e\ 1757}#
+ (#{chi-install-global\ 459}#
+ #{n\ 1753}#
+ (#{chi\ 467}#
+ #{e\ 1674}#
+ #{r\ 1754}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))))
(begin
- (#{top-level-eval-hook\ 281}#
- #{e\ 1747}#
- #{mod\ 1667}#)
- (if (memq (quote load) #{esew\ 1640}#)
- #{e\ 1747}#
- (#{chi-void\ 471}#))))
- (if (memq (quote load) #{esew\ 1640}#)
- (#{chi-install-global\ 449}#
- #{n\ 1743}#
- (#{chi\ 457}#
- #{e\ 1664}#
- #{r\ 1744}#
- #{w\ 1665}#
- #{mod\ 1667}#))
- (#{chi-void\ 471}#)))
- (if (memv #{m\ 1639}# (quote (c&e)))
- (let ((#{e\ 1750}#
- (#{chi-install-global\ 449}#
- #{n\ 1743}#
- (#{chi\ 457}#
- #{e\ 1664}#
- #{r\ 1744}#
- #{w\ 1665}#
- #{mod\ 1667}#))))
+ (#{top-level-eval-hook\ 291}#
+ #{e\ 1757}#
+ #{mod\ 1677}#)
+ (if (memq (quote load) #{esew\ 1650}#)
+ #{e\ 1757}#
+ (#{chi-void\ 481}#))))
+ (if (memq (quote load) #{esew\ 1650}#)
+ (#{chi-install-global\ 459}#
+ #{n\ 1753}#
+ (#{chi\ 467}#
+ #{e\ 1674}#
+ #{r\ 1754}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))
+ (#{chi-void\ 481}#)))
+ (if (memv #{m\ 1649}# (quote (c&e)))
+ (let ((#{e\ 1760}#
+ (#{chi-install-global\ 459}#
+ #{n\ 1753}#
+ (#{chi\ 467}#
+ #{e\ 1674}#
+ #{r\ 1754}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))))
(begin
- (#{top-level-eval-hook\ 281}#
- #{e\ 1750}#
- #{mod\ 1667}#)
- #{e\ 1750}#))
+ (#{top-level-eval-hook\ 291}#
+ #{e\ 1760}#
+ #{mod\ 1677}#)
+ #{e\ 1760}#))
(begin
- (if (memq (quote eval) #{esew\ 1640}#)
- (#{top-level-eval-hook\ 281}#
- (#{chi-install-global\ 449}#
- #{n\ 1743}#
- (#{chi\ 457}#
- #{e\ 1664}#
- #{r\ 1744}#
- #{w\ 1665}#
- #{mod\ 1667}#))
- #{mod\ 1667}#))
- (#{chi-void\ 471}#)))))
- (if (memv #{type\ 1662}# (quote (define-form)))
- (let ((#{n\ 1755}#
- (#{id-var-name\ 429}#
- #{value\ 1663}#
- #{w\ 1665}#)))
- (let ((#{type\ 1757}#
- (#{binding-type\ 355}#
- (#{lookup\ 366}#
- #{n\ 1755}#
- #{r\ 1637}#
- #{mod\ 1667}#))))
- (if (memv #{type\ 1757}#
+ (if (memq (quote eval) #{esew\ 1650}#)
+ (#{top-level-eval-hook\ 291}#
+ (#{chi-install-global\ 459}#
+ #{n\ 1753}#
+ (#{chi\ 467}#
+ #{e\ 1674}#
+ #{r\ 1754}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))
+ #{mod\ 1677}#))
+ (#{chi-void\ 481}#)))))
+ (if (memv #{type\ 1672}# (quote (define-form)))
+ (let ((#{n\ 1765}#
+ (#{id-var-name\ 439}#
+ #{value\ 1673}#
+ #{w\ 1675}#)))
+ (let ((#{type\ 1767}#
+ (#{binding-type\ 365}#
+ (#{lookup\ 376}#
+ #{n\ 1765}#
+ #{r\ 1647}#
+ #{mod\ 1677}#))))
+ (if (memv #{type\ 1767}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 1639}# (quote (c c&e)))
+ (if (if (memq #{m\ 1649}# (quote (c c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 1755}#))
+ #{n\ 1765}#))
(current-module)
#f)
#f)
- (let ((#{old\ 1763}#
+ (let ((#{old\ 1773}#
(module-variable
(current-module)
- #{n\ 1755}#)))
+ #{n\ 1765}#)))
(module-define!
(current-module)
- #{n\ 1755}#
- (if (variable? #{old\ 1763}#)
- (variable-ref #{old\ 1763}#)
+ #{n\ 1765}#
+ (if (variable? #{old\ 1773}#)
+ (variable-ref #{old\ 1773}#)
#f))))
- (let ((#{x\ 1766}#
- (#{build-global-definition\ 312}#
- #{s\ 1666}#
- #{n\ 1755}#
- (#{chi\ 457}#
- #{e\ 1664}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{mod\ 1667}#))))
+ (let ((#{x\ 1776}#
+ (#{build-global-definition\ 322}#
+ #{s\ 1676}#
+ #{n\ 1765}#
+ (#{chi\ 467}#
+ #{e\ 1674}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))))
(begin
- (if (eq? #{m\ 1639}# (quote c&e))
- (#{top-level-eval-hook\ 281}#
- #{x\ 1766}#
- #{mod\ 1667}#))
- #{x\ 1766}#)))
- (if (memv #{type\ 1757}#
+ (if (eq? #{m\ 1649}# (quote c&e))
+ (#{top-level-eval-hook\ 291}#
+ #{x\ 1776}#
+ #{mod\ 1677}#))
+ #{x\ 1776}#)))
+ (if (memv #{type\ 1767}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1664}#
- (#{wrap\ 441}#
- #{value\ 1663}#
- #{w\ 1665}#
- #{mod\ 1667}#))
+ #{e\ 1674}#
+ (#{wrap\ 451}#
+ #{value\ 1673}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1664}#
- (#{wrap\ 441}#
- #{value\ 1663}#
- #{w\ 1665}#
- #{mod\ 1667}#))))))
- (let ((#{x\ 1772}#
- (#{chi-expr\ 459}#
- #{type\ 1662}#
- #{value\ 1663}#
- #{e\ 1664}#
- #{r\ 1637}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)))
+ #{e\ 1674}#
+ (#{wrap\ 451}#
+ #{value\ 1673}#
+ #{w\ 1675}#
+ #{mod\ 1677}#))))))
+ (let ((#{x\ 1782}#
+ (#{chi-expr\ 469}#
+ #{type\ 1672}#
+ #{value\ 1673}#
+ #{e\ 1674}#
+ #{r\ 1647}#
+ #{w\ 1675}#
+ #{s\ 1676}#
+ #{mod\ 1677}#)))
(begin
- (if (eq? #{m\ 1639}# (quote c&e))
- (#{top-level-eval-hook\ 281}#
- #{x\ 1772}#
- #{mod\ 1667}#))
- #{x\ 1772}#)))))))))))
- (#{syntax-type\ 453}#
- (lambda (#{e\ 1773}#
- #{r\ 1774}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{rib\ 1777}#
- #{mod\ 1778}#
- #{for-car?\ 1779}#)
- (if (symbol? #{e\ 1773}#)
- (let ((#{n\ 1791}#
- (#{id-var-name\ 429}# #{e\ 1773}# #{w\ 1775}#)))
- (let ((#{b\ 1793}#
- (#{lookup\ 366}#
- #{n\ 1791}#
- #{r\ 1774}#
- #{mod\ 1778}#)))
- (let ((#{type\ 1795}#
- (#{binding-type\ 355}# #{b\ 1793}#)))
- (if (memv #{type\ 1795}# (quote (lexical)))
+ (if (eq? #{m\ 1649}# (quote c&e))
+ (#{top-level-eval-hook\ 291}#
+ #{x\ 1782}#
+ #{mod\ 1677}#))
+ #{x\ 1782}#)))))))))))
+ (#{syntax-type\ 463}#
+ (lambda (#{e\ 1783}#
+ #{r\ 1784}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{rib\ 1787}#
+ #{mod\ 1788}#
+ #{for-car?\ 1789}#)
+ (if (symbol? #{e\ 1783}#)
+ (let ((#{n\ 1801}#
+ (#{id-var-name\ 439}# #{e\ 1783}# #{w\ 1785}#)))
+ (let ((#{b\ 1803}#
+ (#{lookup\ 376}#
+ #{n\ 1801}#
+ #{r\ 1784}#
+ #{mod\ 1788}#)))
+ (let ((#{type\ 1805}#
+ (#{binding-type\ 365}# #{b\ 1803}#)))
+ (if (memv #{type\ 1805}# (quote (lexical)))
(values
- #{type\ 1795}#
- (#{binding-value\ 357}# #{b\ 1793}#)
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{type\ 1795}# (quote (global)))
+ #{type\ 1805}#
+ (#{binding-value\ 367}# #{b\ 1803}#)
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{type\ 1805}# (quote (global)))
(values
- #{type\ 1795}#
- #{n\ 1791}#
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{type\ 1795}# (quote (macro)))
- (if #{for-car?\ 1779}#
+ #{type\ 1805}#
+ #{n\ 1801}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{type\ 1805}# (quote (macro)))
+ (if #{for-car?\ 1789}#
(values
- #{type\ 1795}#
- (#{binding-value\ 357}# #{b\ 1793}#)
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (#{syntax-type\ 453}#
- (#{chi-macro\ 463}#
- (#{binding-value\ 357}# #{b\ 1793}#)
- #{e\ 1773}#
- #{r\ 1774}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{rib\ 1777}#
- #{mod\ 1778}#)
- #{r\ 1774}#
+ #{type\ 1805}#
+ (#{binding-value\ 367}# #{b\ 1803}#)
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (#{syntax-type\ 463}#
+ (#{chi-macro\ 473}#
+ (#{binding-value\ 367}# #{b\ 1803}#)
+ #{e\ 1783}#
+ #{r\ 1784}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{rib\ 1787}#
+ #{mod\ 1788}#)
+ #{r\ 1784}#
'(())
- #{s\ 1776}#
- #{rib\ 1777}#
- #{mod\ 1778}#
+ #{s\ 1786}#
+ #{rib\ 1787}#
+ #{mod\ 1788}#
#f))
(values
- #{type\ 1795}#
- (#{binding-value\ 357}# #{b\ 1793}#)
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)))))))
- (if (pair? #{e\ 1773}#)
- (let ((#{first\ 1804}# (car #{e\ 1773}#)))
+ #{type\ 1805}#
+ (#{binding-value\ 367}# #{b\ 1803}#)
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)))))))
+ (if (pair? #{e\ 1783}#)
+ (let ((#{first\ 1814}# (car #{e\ 1783}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 453}#
- #{first\ 1804}#
- #{r\ 1774}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{rib\ 1777}#
- #{mod\ 1778}#
+ (#{syntax-type\ 463}#
+ #{first\ 1814}#
+ #{r\ 1784}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{rib\ 1787}#
+ #{mod\ 1788}#
#t))
- (lambda (#{ftype\ 1805}#
- #{fval\ 1806}#
- #{fe\ 1807}#
- #{fw\ 1808}#
- #{fs\ 1809}#
- #{fmod\ 1810}#)
- (if (memv #{ftype\ 1805}# (quote (lexical)))
+ (lambda (#{ftype\ 1815}#
+ #{fval\ 1816}#
+ #{fe\ 1817}#
+ #{fw\ 1818}#
+ #{fs\ 1819}#
+ #{fmod\ 1820}#)
+ (if (memv #{ftype\ 1815}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1806}#
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{ftype\ 1805}# (quote (global)))
+ #{fval\ 1816}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{ftype\ 1815}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 334}#
- #{fval\ 1806}#
- #{w\ 1775}#
- #{fmod\ 1810}#)
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{ftype\ 1805}# (quote (macro)))
- (#{syntax-type\ 453}#
- (#{chi-macro\ 463}#
- #{fval\ 1806}#
- #{e\ 1773}#
- #{r\ 1774}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{rib\ 1777}#
- #{mod\ 1778}#)
- #{r\ 1774}#
+ (#{make-syntax-object\ 344}#
+ #{fval\ 1816}#
+ #{w\ 1785}#
+ #{fmod\ 1820}#)
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{ftype\ 1815}# (quote (macro)))
+ (#{syntax-type\ 463}#
+ (#{chi-macro\ 473}#
+ #{fval\ 1816}#
+ #{e\ 1783}#
+ #{r\ 1784}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{rib\ 1787}#
+ #{mod\ 1788}#)
+ #{r\ 1784}#
'(())
- #{s\ 1776}#
- #{rib\ 1777}#
- #{mod\ 1778}#
- #{for-car?\ 1779}#)
- (if (memv #{ftype\ 1805}# (quote (module-ref)))
+ #{s\ 1786}#
+ #{rib\ 1787}#
+ #{mod\ 1788}#
+ #{for-car?\ 1789}#)
+ (if (memv #{ftype\ 1815}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 1806}#
- #{e\ 1773}#
- #{r\ 1774}#
- #{w\ 1775}#))
- (lambda (#{e\ 1822}#
- #{r\ 1823}#
- #{w\ 1824}#
- #{s\ 1825}#
- #{mod\ 1826}#)
- (#{syntax-type\ 453}#
- #{e\ 1822}#
- #{r\ 1823}#
- #{w\ 1824}#
- #{s\ 1825}#
- #{rib\ 1777}#
- #{mod\ 1826}#
- #{for-car?\ 1779}#)))
- (if (memv #{ftype\ 1805}# (quote (core)))
+ (#{fval\ 1816}#
+ #{e\ 1783}#
+ #{r\ 1784}#
+ #{w\ 1785}#))
+ (lambda (#{e\ 1832}#
+ #{r\ 1833}#
+ #{w\ 1834}#
+ #{s\ 1835}#
+ #{mod\ 1836}#)
+ (#{syntax-type\ 463}#
+ #{e\ 1832}#
+ #{r\ 1833}#
+ #{w\ 1834}#
+ #{s\ 1835}#
+ #{rib\ 1787}#
+ #{mod\ 1836}#
+ #{for-car?\ 1789}#)))
+ (if (memv #{ftype\ 1815}# (quote (core)))
(values
'core-form
- #{fval\ 1806}#
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{ftype\ 1805}#
+ #{fval\ 1816}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{ftype\ 1815}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1806}#
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{ftype\ 1805}# (quote (begin)))
+ #{fval\ 1816}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{ftype\ 1815}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{ftype\ 1805}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{ftype\ 1815}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
- (if (memv #{ftype\ 1805}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
+ (if (memv #{ftype\ 1815}#
'(define))
- ((lambda (#{tmp\ 1837}#)
- ((lambda (#{tmp\ 1838}#)
- (if (if #{tmp\ 1838}#
- (apply (lambda (#{_\ 1842}#
- #{name\ 1843}#
- #{val\ 1844}#)
- (#{id?\ 372}#
- #{name\ 1843}#))
- #{tmp\ 1838}#)
+ ((lambda (#{tmp\ 1847}#)
+ ((lambda (#{tmp\ 1848}#)
+ (if (if #{tmp\ 1848}#
+ (apply (lambda (#{_\ 1852}#
+ #{name\ 1853}#
+ #{val\ 1854}#)
+ (#{id?\ 382}#
+ #{name\ 1853}#))
+ #{tmp\ 1848}#)
#f)
- (apply (lambda (#{_\ 1848}#
- #{name\ 1849}#
- #{val\ 1850}#)
+ (apply (lambda (#{_\ 1858}#
+ #{name\ 1859}#
+ #{val\ 1860}#)
(values
'define-form
- #{name\ 1849}#
- #{val\ 1850}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#))
- #{tmp\ 1838}#)
- ((lambda (#{tmp\ 1851}#)
- (if (if #{tmp\ 1851}#
- (apply (lambda (#{_\ 1857}#
- #{name\ 1858}#
- #{args\ 1859}#
- #{e1\ 1860}#
- #{e2\ 1861}#)
- (if (#{id?\ 372}#
- #{name\ 1858}#)
- (#{valid-bound-ids?\ 435}#
- (#{lambda-var-list\ 487}#
- #{args\ 1859}#))
+ #{name\ 1859}#
+ #{val\ 1860}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#))
+ #{tmp\ 1848}#)
+ ((lambda (#{tmp\ 1861}#)
+ (if (if #{tmp\ 1861}#
+ (apply (lambda (#{_\ 1867}#
+ #{name\ 1868}#
+ #{args\ 1869}#
+ #{e1\ 1870}#
+ #{e2\ 1871}#)
+ (if (#{id?\ 382}#
+ #{name\ 1868}#)
+ (#{valid-bound-ids?\ 445}#
+ (#{lambda-var-list\ 497}#
+ #{args\ 1869}#))
#f))
- #{tmp\ 1851}#)
+ #{tmp\ 1861}#)
#f)
- (apply (lambda (#{_\ 1869}#
- #{name\ 1870}#
- #{args\ 1871}#
- #{e1\ 1872}#
- #{e2\ 1873}#)
+ (apply (lambda (#{_\ 1879}#
+ #{name\ 1880}#
+ #{args\ 1881}#
+ #{e1\ 1882}#
+ #{e2\ 1883}#)
(values
'define-form
- (#{wrap\ 441}#
- #{name\ 1870}#
- #{w\ 1775}#
- #{mod\ 1778}#)
- (#{decorate-source\ 290}#
+ (#{wrap\ 451}#
+ #{name\ 1880}#
+ #{w\ 1785}#
+ #{mod\ 1788}#)
+ (#{decorate-source\ 300}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i1864"
- "i1865"
- "i1866"
- "i1867"
- "i1868"))
+ #("i1874"
+ "i1875"
+ "i1876"
+ "i1877"
+ "i1878"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1811"
- "i1812"
- "i1813"
- "i1814"
- "i1815"
- "i1816"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1803"))
+ #("i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1780"
- "i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
+ #("i1790"
+ "i1791"
+ "i1792"
+ "i1793"
+ "i1794"
+ "i1795"
+ "i1796"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene
guile))
- (#{wrap\ 441}#
- (cons #{args\ 1871}#
- (cons #{e1\ 1872}#
- #{e2\ 1873}#))
- #{w\ 1775}#
- #{mod\ 1778}#))
- #{s\ 1776}#)
+ (#{wrap\ 451}#
+ (cons #{args\ 1881}#
+ (cons #{e1\ 1882}#
+ #{e2\ 1883}#))
+ #{w\ 1785}#
+ #{mod\ 1788}#))
+ #{s\ 1786}#)
'(())
- #{s\ 1776}#
- #{mod\ 1778}#))
- #{tmp\ 1851}#)
- ((lambda (#{tmp\ 1876}#)
- (if (if #{tmp\ 1876}#
- (apply (lambda (#{_\ 1879}#
- #{name\ 1880}#)
- (#{id?\ 372}#
- #{name\ 1880}#))
- #{tmp\ 1876}#)
+ #{s\ 1786}#
+ #{mod\ 1788}#))
+ #{tmp\ 1861}#)
+ ((lambda (#{tmp\ 1886}#)
+ (if (if #{tmp\ 1886}#
+ (apply (lambda (#{_\ 1889}#
+ #{name\ 1890}#)
+ (#{id?\ 382}#
+ #{name\ 1890}#))
+ #{tmp\ 1886}#)
#f)
- (apply (lambda (#{_\ 1883}#
- #{name\ 1884}#)
+ (apply (lambda (#{_\ 1893}#
+ #{name\ 1894}#)
(values
'define-form
- (#{wrap\ 441}#
- #{name\ 1884}#
- #{w\ 1775}#
- #{mod\ 1778}#)
+ (#{wrap\ 451}#
+ #{name\ 1894}#
+ #{w\ 1785}#
+ #{mod\ 1788}#)
'(#(syntax-object
if
((top)
name)
#((top)
(top))
- #("i1881"
- "i1882"))
+ #("i1891"
+ "i1892"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1811"
- "i1812"
- "i1813"
- "i1814"
- "i1815"
- "i1816"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1803"))
+ #("i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1780"
- "i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
+ #("i1790"
+ "i1791"
+ "i1792"
+ "i1793"
+ "i1794"
+ "i1795"
+ "i1796"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i1881"
- "i1882"))
+ #("i1891"
+ "i1892"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1811"
- "i1812"
- "i1813"
- "i1814"
- "i1815"
- "i1816"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1803"))
+ #("i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1780"
- "i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
+ #("i1790"
+ "i1791"
+ "i1792"
+ "i1793"
+ "i1794"
+ "i1795"
+ "i1796"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i1881"
- "i1882"))
+ #("i1891"
+ "i1892"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1811"
- "i1812"
- "i1813"
- "i1814"
- "i1815"
- "i1816"))
+ #("i1821"
+ "i1822"
+ "i1823"
+ "i1824"
+ "i1825"
+ "i1826"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1803"))
+ #("i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1780"
- "i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
+ #("i1790"
+ "i1791"
+ "i1792"
+ "i1793"
+ "i1794"
+ "i1795"
+ "i1796"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene
guile)))
'(())
- #{s\ 1776}#
- #{mod\ 1778}#))
- #{tmp\ 1876}#)
+ #{s\ 1786}#
+ #{mod\ 1788}#))
+ #{tmp\ 1886}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1837}#)))
+ #{tmp\ 1847}#)))
($sc-dispatch
- #{tmp\ 1837}#
+ #{tmp\ 1847}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1837}#
+ #{tmp\ 1847}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1837}#
+ #{tmp\ 1847}#
'(any any any))))
- #{e\ 1773}#)
- (if (memv #{ftype\ 1805}#
+ #{e\ 1783}#)
+ (if (memv #{ftype\ 1815}#
'(define-syntax))
- ((lambda (#{tmp\ 1887}#)
- ((lambda (#{tmp\ 1888}#)
- (if (if #{tmp\ 1888}#
- (apply (lambda (#{_\ 1892}#
- #{name\ 1893}#
- #{val\ 1894}#)
- (#{id?\ 372}#
- #{name\ 1893}#))
- #{tmp\ 1888}#)
+ ((lambda (#{tmp\ 1897}#)
+ ((lambda (#{tmp\ 1898}#)
+ (if (if #{tmp\ 1898}#
+ (apply (lambda (#{_\ 1902}#
+ #{name\ 1903}#
+ #{val\ 1904}#)
+ (#{id?\ 382}#
+ #{name\ 1903}#))
+ #{tmp\ 1898}#)
#f)
- (apply (lambda (#{_\ 1898}#
- #{name\ 1899}#
- #{val\ 1900}#)
+ (apply (lambda (#{_\ 1908}#
+ #{name\ 1909}#
+ #{val\ 1910}#)
(values
'define-syntax-form
- #{name\ 1899}#
- #{val\ 1900}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#))
- #{tmp\ 1888}#)
+ #{name\ 1909}#
+ #{val\ 1910}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#))
+ #{tmp\ 1898}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1887}#)))
+ #{tmp\ 1897}#)))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 1897}#
'(any any any))))
- #{e\ 1773}#)
+ #{e\ 1783}#)
(values
'call
#f
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#))))))))))))))
- (if (#{syntax-object?\ 336}# #{e\ 1773}#)
- (#{syntax-type\ 453}#
- (#{syntax-object-expression\ 338}# #{e\ 1773}#)
- #{r\ 1774}#
- (#{join-wraps\ 423}#
- #{w\ 1775}#
- (#{syntax-object-wrap\ 340}# #{e\ 1773}#))
- (let ((#{t\ 1906}#
- (#{source-annotation\ 351}# #{e\ 1773}#)))
- (if #{t\ 1906}# #{t\ 1906}# #{s\ 1776}#))
- #{rib\ 1777}#
- (let ((#{t\ 1910}#
- (#{syntax-object-module\ 342}# #{e\ 1773}#)))
- (if #{t\ 1910}# #{t\ 1910}# #{mod\ 1778}#))
- #{for-car?\ 1779}#)
- (if (self-evaluating? #{e\ 1773}#)
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#))))))))))))))
+ (if (#{syntax-object?\ 346}# #{e\ 1783}#)
+ (#{syntax-type\ 463}#
+ (#{syntax-object-expression\ 348}# #{e\ 1783}#)
+ #{r\ 1784}#
+ (#{join-wraps\ 433}#
+ #{w\ 1785}#
+ (#{syntax-object-wrap\ 350}# #{e\ 1783}#))
+ (let ((#{t\ 1916}#
+ (#{source-annotation\ 361}# #{e\ 1783}#)))
+ (if #{t\ 1916}# #{t\ 1916}# #{s\ 1786}#))
+ #{rib\ 1787}#
+ (let ((#{t\ 1920}#
+ (#{syntax-object-module\ 352}# #{e\ 1783}#)))
+ (if #{t\ 1920}# #{t\ 1920}# #{mod\ 1788}#))
+ #{for-car?\ 1789}#)
+ (if (self-evaluating? #{e\ 1783}#)
(values
'constant
#f
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)
(values
'other
#f
- #{e\ 1773}#
- #{w\ 1775}#
- #{s\ 1776}#
- #{mod\ 1778}#)))))))
- (#{chi-when-list\ 451}#
- (lambda (#{e\ 1915}# #{when-list\ 1916}# #{w\ 1917}#)
- (letrec ((#{f\ 1924}#
- (lambda (#{when-list\ 1925}# #{situations\ 1926}#)
- (if (null? #{when-list\ 1925}#)
- #{situations\ 1926}#
- (#{f\ 1924}#
- (cdr #{when-list\ 1925}#)
- (cons (let ((#{x\ 1928}#
- (car #{when-list\ 1925}#)))
- (if (#{free-id=?\ 431}#
- #{x\ 1928}#
+ #{e\ 1783}#
+ #{w\ 1785}#
+ #{s\ 1786}#
+ #{mod\ 1788}#)))))))
+ (#{chi-when-list\ 461}#
+ (lambda (#{e\ 1925}# #{when-list\ 1926}# #{w\ 1927}#)
+ (letrec ((#{f\ 1934}#
+ (lambda (#{when-list\ 1935}# #{situations\ 1936}#)
+ (if (null? #{when-list\ 1935}#)
+ #{situations\ 1936}#
+ (#{f\ 1934}#
+ (cdr #{when-list\ 1935}#)
+ (cons (let ((#{x\ 1938}#
+ (car #{when-list\ 1935}#)))
+ (if (#{free-id=?\ 441}#
+ #{x\ 1938}#
'#(syntax-object
compile
((top)
#(ribcage
#(x)
#((top))
- #("i1927"))
+ #("i1937"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1921" "i1922" "i1923"))
+ #("i1931" "i1932" "i1933"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1918" "i1919" "i1920"))
+ #("i1928" "i1929" "i1930"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i23" "i22" "i21" "i19")))
+ ("i33" "i32" "i31" "i29")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 431}#
- #{x\ 1928}#
+ (if (#{free-id=?\ 441}#
+ #{x\ 1938}#
'#(syntax-object
load
((top)
#(ribcage
#(x)
#((top))
- #("i1927"))
+ #("i1937"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1921"
- "i1922"
- "i1923"))
+ #("i1931"
+ "i1932"
+ "i1933"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1918"
- "i1919"
- "i1920"))
+ #("i1928"
+ "i1929"
+ "i1930"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 431}#
- #{x\ 1928}#
+ (if (#{free-id=?\ 441}#
+ #{x\ 1938}#
'#(syntax-object
eval
((top)
#(ribcage
#(x)
#((top))
- #("i1927"))
+ #("i1937"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1921"
- "i1922"
- "i1923"))
+ #("i1931"
+ "i1932"
+ "i1933"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1918"
- "i1919"
- "i1920"))
+ #("i1928"
+ "i1929"
+ "i1930"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 431}#
- #{x\ 1928}#
+ (if (#{free-id=?\ 441}#
+ #{x\ 1938}#
'#(syntax-object
expand
((top)
#(ribcage
#(x)
#((top))
- #("i1927"))
+ #("i1937"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1921"
- "i1922"
- "i1923"))
+ #("i1931"
+ "i1932"
+ "i1933"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1918"
- "i1919"
- "i1920"))
+ #("i1928"
+ "i1929"
+ "i1930"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1915}#
- (#{wrap\ 441}#
- #{x\ 1928}#
- #{w\ 1917}#
+ #{e\ 1925}#
+ (#{wrap\ 451}#
+ #{x\ 1938}#
+ #{w\ 1927}#
#f)))))))
- #{situations\ 1926}#))))))
- (#{f\ 1924}# #{when-list\ 1916}# (quote ())))))
- (#{chi-install-global\ 449}#
- (lambda (#{name\ 1938}# #{e\ 1939}#)
- (#{build-global-definition\ 312}#
+ #{situations\ 1936}#))))))
+ (#{f\ 1934}# #{when-list\ 1926}# (quote ())))))
+ (#{chi-install-global\ 459}#
+ (lambda (#{name\ 1948}# #{e\ 1949}#)
+ (#{build-global-definition\ 322}#
#f
- #{name\ 1938}#
- (#{build-application\ 294}#
+ #{name\ 1948}#
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 320}#
+ (#{build-primref\ 330}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 322}# #f #{name\ 1938}#)
- (#{build-data\ 322}# #f (quote macro))
- #{e\ 1939}#)))))
- (#{chi-top-sequence\ 447}#
- (lambda (#{body\ 1947}#
- #{r\ 1948}#
- #{w\ 1949}#
- #{s\ 1950}#
- #{m\ 1951}#
- #{esew\ 1952}#
- #{mod\ 1953}#)
- (#{build-sequence\ 324}#
- #{s\ 1950}#
- (letrec ((#{dobody\ 1969}#
- (lambda (#{body\ 1970}#
- #{r\ 1971}#
- #{w\ 1972}#
- #{m\ 1973}#
- #{esew\ 1974}#
- #{mod\ 1975}#
- #{out\ 1976}#)
- (if (null? #{body\ 1970}#)
- (reverse #{out\ 1976}#)
- (#{dobody\ 1969}#
- (cdr #{body\ 1970}#)
- #{r\ 1971}#
- #{w\ 1972}#
- #{m\ 1973}#
- #{esew\ 1974}#
- #{mod\ 1975}#
- (cons (#{chi-top\ 455}#
- (car #{body\ 1970}#)
- #{r\ 1971}#
- #{w\ 1972}#
- #{m\ 1973}#
- #{esew\ 1974}#
- #{mod\ 1975}#)
- #{out\ 1976}#))))))
- (#{dobody\ 1969}#
- #{body\ 1947}#
- #{r\ 1948}#
- #{w\ 1949}#
- #{m\ 1951}#
- #{esew\ 1952}#
- #{mod\ 1953}#
+ (list (#{build-data\ 332}# #f #{name\ 1948}#)
+ (#{build-data\ 332}# #f (quote macro))
+ #{e\ 1949}#)))))
+ (#{chi-top-sequence\ 457}#
+ (lambda (#{body\ 1957}#
+ #{r\ 1958}#
+ #{w\ 1959}#
+ #{s\ 1960}#
+ #{m\ 1961}#
+ #{esew\ 1962}#
+ #{mod\ 1963}#)
+ (#{build-sequence\ 334}#
+ #{s\ 1960}#
+ (letrec ((#{dobody\ 1979}#
+ (lambda (#{body\ 1980}#
+ #{r\ 1981}#
+ #{w\ 1982}#
+ #{m\ 1983}#
+ #{esew\ 1984}#
+ #{mod\ 1985}#
+ #{out\ 1986}#)
+ (if (null? #{body\ 1980}#)
+ (reverse #{out\ 1986}#)
+ (#{dobody\ 1979}#
+ (cdr #{body\ 1980}#)
+ #{r\ 1981}#
+ #{w\ 1982}#
+ #{m\ 1983}#
+ #{esew\ 1984}#
+ #{mod\ 1985}#
+ (cons (#{chi-top\ 465}#
+ (car #{body\ 1980}#)
+ #{r\ 1981}#
+ #{w\ 1982}#
+ #{m\ 1983}#
+ #{esew\ 1984}#
+ #{mod\ 1985}#)
+ #{out\ 1986}#))))))
+ (#{dobody\ 1979}#
+ #{body\ 1957}#
+ #{r\ 1958}#
+ #{w\ 1959}#
+ #{m\ 1961}#
+ #{esew\ 1962}#
+ #{mod\ 1963}#
'())))))
- (#{chi-sequence\ 445}#
- (lambda (#{body\ 1977}#
- #{r\ 1978}#
- #{w\ 1979}#
- #{s\ 1980}#
- #{mod\ 1981}#)
- (#{build-sequence\ 324}#
- #{s\ 1980}#
- (letrec ((#{dobody\ 1992}#
- (lambda (#{body\ 1993}#
- #{r\ 1994}#
- #{w\ 1995}#
- #{mod\ 1996}#)
- (if (null? #{body\ 1993}#)
+ (#{chi-sequence\ 455}#
+ (lambda (#{body\ 1987}#
+ #{r\ 1988}#
+ #{w\ 1989}#
+ #{s\ 1990}#
+ #{mod\ 1991}#)
+ (#{build-sequence\ 334}#
+ #{s\ 1990}#
+ (letrec ((#{dobody\ 2002}#
+ (lambda (#{body\ 2003}#
+ #{r\ 2004}#
+ #{w\ 2005}#
+ #{mod\ 2006}#)
+ (if (null? #{body\ 2003}#)
'()
- (let ((#{first\ 1998}#
- (#{chi\ 457}#
- (car #{body\ 1993}#)
- #{r\ 1994}#
- #{w\ 1995}#
- #{mod\ 1996}#)))
- (cons #{first\ 1998}#
- (#{dobody\ 1992}#
- (cdr #{body\ 1993}#)
- #{r\ 1994}#
- #{w\ 1995}#
- #{mod\ 1996}#)))))))
- (#{dobody\ 1992}#
- #{body\ 1977}#
- #{r\ 1978}#
- #{w\ 1979}#
- #{mod\ 1981}#)))))
- (#{source-wrap\ 443}#
- (lambda (#{x\ 1999}#
- #{w\ 2000}#
- #{s\ 2001}#
- #{defmod\ 2002}#)
- (#{wrap\ 441}#
- (#{decorate-source\ 290}#
- #{x\ 1999}#
- #{s\ 2001}#)
- #{w\ 2000}#
- #{defmod\ 2002}#)))
- (#{wrap\ 441}#
- (lambda (#{x\ 2007}# #{w\ 2008}# #{defmod\ 2009}#)
- (if (if (null? (#{wrap-marks\ 379}# #{w\ 2008}#))
- (null? (#{wrap-subst\ 381}# #{w\ 2008}#))
+ (let ((#{first\ 2008}#
+ (#{chi\ 467}#
+ (car #{body\ 2003}#)
+ #{r\ 2004}#
+ #{w\ 2005}#
+ #{mod\ 2006}#)))
+ (cons #{first\ 2008}#
+ (#{dobody\ 2002}#
+ (cdr #{body\ 2003}#)
+ #{r\ 2004}#
+ #{w\ 2005}#
+ #{mod\ 2006}#)))))))
+ (#{dobody\ 2002}#
+ #{body\ 1987}#
+ #{r\ 1988}#
+ #{w\ 1989}#
+ #{mod\ 1991}#)))))
+ (#{source-wrap\ 453}#
+ (lambda (#{x\ 2009}#
+ #{w\ 2010}#
+ #{s\ 2011}#
+ #{defmod\ 2012}#)
+ (#{wrap\ 451}#
+ (#{decorate-source\ 300}#
+ #{x\ 2009}#
+ #{s\ 2011}#)
+ #{w\ 2010}#
+ #{defmod\ 2012}#)))
+ (#{wrap\ 451}#
+ (lambda (#{x\ 2017}# #{w\ 2018}# #{defmod\ 2019}#)
+ (if (if (null? (#{wrap-marks\ 389}# #{w\ 2018}#))
+ (null? (#{wrap-subst\ 391}# #{w\ 2018}#))
#f)
- #{x\ 2007}#
- (if (#{syntax-object?\ 336}# #{x\ 2007}#)
- (#{make-syntax-object\ 334}#
- (#{syntax-object-expression\ 338}# #{x\ 2007}#)
- (#{join-wraps\ 423}#
- #{w\ 2008}#
- (#{syntax-object-wrap\ 340}# #{x\ 2007}#))
- (#{syntax-object-module\ 342}# #{x\ 2007}#))
- (if (null? #{x\ 2007}#)
- #{x\ 2007}#
- (#{make-syntax-object\ 334}#
- #{x\ 2007}#
- #{w\ 2008}#
- #{defmod\ 2009}#))))))
- (#{bound-id-member?\ 439}#
- (lambda (#{x\ 2022}# #{list\ 2023}#)
- (if (not (null? #{list\ 2023}#))
- (let ((#{t\ 2030}#
- (#{bound-id=?\ 433}#
- #{x\ 2022}#
- (car #{list\ 2023}#))))
- (if #{t\ 2030}#
- #{t\ 2030}#
- (#{bound-id-member?\ 439}#
- #{x\ 2022}#
- (cdr #{list\ 2023}#))))
+ #{x\ 2017}#
+ (if (#{syntax-object?\ 346}# #{x\ 2017}#)
+ (#{make-syntax-object\ 344}#
+ (#{syntax-object-expression\ 348}# #{x\ 2017}#)
+ (#{join-wraps\ 433}#
+ #{w\ 2018}#
+ (#{syntax-object-wrap\ 350}# #{x\ 2017}#))
+ (#{syntax-object-module\ 352}# #{x\ 2017}#))
+ (if (null? #{x\ 2017}#)
+ #{x\ 2017}#
+ (#{make-syntax-object\ 344}#
+ #{x\ 2017}#
+ #{w\ 2018}#
+ #{defmod\ 2019}#))))))
+ (#{bound-id-member?\ 449}#
+ (lambda (#{x\ 2032}# #{list\ 2033}#)
+ (if (not (null? #{list\ 2033}#))
+ (let ((#{t\ 2040}#
+ (#{bound-id=?\ 443}#
+ #{x\ 2032}#
+ (car #{list\ 2033}#))))
+ (if #{t\ 2040}#
+ #{t\ 2040}#
+ (#{bound-id-member?\ 449}#
+ #{x\ 2032}#
+ (cdr #{list\ 2033}#))))
#f)))
- (#{distinct-bound-ids?\ 437}#
- (lambda (#{ids\ 2032}#)
- (letrec ((#{distinct?\ 2036}#
- (lambda (#{ids\ 2037}#)
- (let ((#{t\ 2040}# (null? #{ids\ 2037}#)))
- (if #{t\ 2040}#
- #{t\ 2040}#
- (if (not (#{bound-id-member?\ 439}#
- (car #{ids\ 2037}#)
- (cdr #{ids\ 2037}#)))
- (#{distinct?\ 2036}# (cdr #{ids\ 2037}#))
+ (#{distinct-bound-ids?\ 447}#
+ (lambda (#{ids\ 2042}#)
+ (letrec ((#{distinct?\ 2046}#
+ (lambda (#{ids\ 2047}#)
+ (let ((#{t\ 2050}# (null? #{ids\ 2047}#)))
+ (if #{t\ 2050}#
+ #{t\ 2050}#
+ (if (not (#{bound-id-member?\ 449}#
+ (car #{ids\ 2047}#)
+ (cdr #{ids\ 2047}#)))
+ (#{distinct?\ 2046}# (cdr #{ids\ 2047}#))
#f))))))
- (#{distinct?\ 2036}# #{ids\ 2032}#))))
- (#{valid-bound-ids?\ 435}#
- (lambda (#{ids\ 2044}#)
- (if (letrec ((#{all-ids?\ 2049}#
- (lambda (#{ids\ 2050}#)
- (let ((#{t\ 2053}# (null? #{ids\ 2050}#)))
- (if #{t\ 2053}#
- #{t\ 2053}#
- (if (#{id?\ 372}# (car #{ids\ 2050}#))
- (#{all-ids?\ 2049}# (cdr #{ids\ 2050}#))
+ (#{distinct?\ 2046}# #{ids\ 2042}#))))
+ (#{valid-bound-ids?\ 445}#
+ (lambda (#{ids\ 2054}#)
+ (if (letrec ((#{all-ids?\ 2059}#
+ (lambda (#{ids\ 2060}#)
+ (let ((#{t\ 2063}# (null? #{ids\ 2060}#)))
+ (if #{t\ 2063}#
+ #{t\ 2063}#
+ (if (#{id?\ 382}# (car #{ids\ 2060}#))
+ (#{all-ids?\ 2059}# (cdr #{ids\ 2060}#))
#f))))))
- (#{all-ids?\ 2049}# #{ids\ 2044}#))
- (#{distinct-bound-ids?\ 437}# #{ids\ 2044}#)
+ (#{all-ids?\ 2059}# #{ids\ 2054}#))
+ (#{distinct-bound-ids?\ 447}# #{ids\ 2054}#)
#f)))
- (#{bound-id=?\ 433}#
- (lambda (#{i\ 2058}# #{j\ 2059}#)
- (if (if (#{syntax-object?\ 336}# #{i\ 2058}#)
- (#{syntax-object?\ 336}# #{j\ 2059}#)
+ (#{bound-id=?\ 443}#
+ (lambda (#{i\ 2068}# #{j\ 2069}#)
+ (if (if (#{syntax-object?\ 346}# #{i\ 2068}#)
+ (#{syntax-object?\ 346}# #{j\ 2069}#)
#f)
- (if (eq? (#{syntax-object-expression\ 338}# #{i\ 2058}#)
- (#{syntax-object-expression\ 338}# #{j\ 2059}#))
- (#{same-marks?\ 427}#
- (#{wrap-marks\ 379}#
- (#{syntax-object-wrap\ 340}# #{i\ 2058}#))
- (#{wrap-marks\ 379}#
- (#{syntax-object-wrap\ 340}# #{j\ 2059}#)))
+ (if (eq? (#{syntax-object-expression\ 348}# #{i\ 2068}#)
+ (#{syntax-object-expression\ 348}# #{j\ 2069}#))
+ (#{same-marks?\ 437}#
+ (#{wrap-marks\ 389}#
+ (#{syntax-object-wrap\ 350}# #{i\ 2068}#))
+ (#{wrap-marks\ 389}#
+ (#{syntax-object-wrap\ 350}# #{j\ 2069}#)))
#f)
- (eq? #{i\ 2058}# #{j\ 2059}#))))
- (#{free-id=?\ 431}#
- (lambda (#{i\ 2066}# #{j\ 2067}#)
- (if (eq? (let ((#{x\ 2073}# #{i\ 2066}#))
- (if (#{syntax-object?\ 336}# #{x\ 2073}#)
- (#{syntax-object-expression\ 338}# #{x\ 2073}#)
- #{x\ 2073}#))
- (let ((#{x\ 2076}# #{j\ 2067}#))
- (if (#{syntax-object?\ 336}# #{x\ 2076}#)
- (#{syntax-object-expression\ 338}# #{x\ 2076}#)
- #{x\ 2076}#)))
- (eq? (#{id-var-name\ 429}# #{i\ 2066}# (quote (())))
- (#{id-var-name\ 429}# #{j\ 2067}# (quote (()))))
+ (eq? #{i\ 2068}# #{j\ 2069}#))))
+ (#{free-id=?\ 441}#
+ (lambda (#{i\ 2076}# #{j\ 2077}#)
+ (if (eq? (let ((#{x\ 2083}# #{i\ 2076}#))
+ (if (#{syntax-object?\ 346}# #{x\ 2083}#)
+ (#{syntax-object-expression\ 348}# #{x\ 2083}#)
+ #{x\ 2083}#))
+ (let ((#{x\ 2086}# #{j\ 2077}#))
+ (if (#{syntax-object?\ 346}# #{x\ 2086}#)
+ (#{syntax-object-expression\ 348}# #{x\ 2086}#)
+ #{x\ 2086}#)))
+ (eq? (#{id-var-name\ 439}# #{i\ 2076}# (quote (())))
+ (#{id-var-name\ 439}# #{j\ 2077}# (quote (()))))
#f)))
- (#{id-var-name\ 429}#
- (lambda (#{id\ 2080}# #{w\ 2081}#)
- (letrec ((#{search-vector-rib\ 2090}#
- (lambda (#{sym\ 2102}#
- #{subst\ 2103}#
- #{marks\ 2104}#
- #{symnames\ 2105}#
- #{ribcage\ 2106}#)
- (let ((#{n\ 2113}#
- (vector-length #{symnames\ 2105}#)))
- (letrec ((#{f\ 2116}#
- (lambda (#{i\ 2117}#)
- (if (#{fx=\ 277}#
- #{i\ 2117}#
- #{n\ 2113}#)
- (#{search\ 2086}#
- #{sym\ 2102}#
- (cdr #{subst\ 2103}#)
- #{marks\ 2104}#)
+ (#{id-var-name\ 439}#
+ (lambda (#{id\ 2090}# #{w\ 2091}#)
+ (letrec ((#{search-vector-rib\ 2100}#
+ (lambda (#{sym\ 2112}#
+ #{subst\ 2113}#
+ #{marks\ 2114}#
+ #{symnames\ 2115}#
+ #{ribcage\ 2116}#)
+ (let ((#{n\ 2123}#
+ (vector-length #{symnames\ 2115}#)))
+ (letrec ((#{f\ 2126}#
+ (lambda (#{i\ 2127}#)
+ (if (#{fx=\ 287}#
+ #{i\ 2127}#
+ #{n\ 2123}#)
+ (#{search\ 2096}#
+ #{sym\ 2112}#
+ (cdr #{subst\ 2113}#)
+ #{marks\ 2114}#)
(if (if (eq? (vector-ref
- #{symnames\ 2105}#
- #{i\ 2117}#)
- #{sym\ 2102}#)
- (#{same-marks?\ 427}#
- #{marks\ 2104}#
+ #{symnames\ 2115}#
+ #{i\ 2127}#)
+ #{sym\ 2112}#)
+ (#{same-marks?\ 437}#
+ #{marks\ 2114}#
(vector-ref
- (#{ribcage-marks\ 399}#
- #{ribcage\ 2106}#)
- #{i\ 2117}#))
+ (#{ribcage-marks\ 409}#
+ #{ribcage\ 2116}#)
+ #{i\ 2127}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 401}#
- #{ribcage\ 2106}#)
- #{i\ 2117}#)
- #{marks\ 2104}#)
- (#{f\ 2116}#
- (#{fx+\ 273}#
- #{i\ 2117}#
+ (#{ribcage-labels\ 411}#
+ #{ribcage\ 2116}#)
+ #{i\ 2127}#)
+ #{marks\ 2114}#)
+ (#{f\ 2126}#
+ (#{fx+\ 283}#
+ #{i\ 2127}#
1)))))))
- (#{f\ 2116}# 0)))))
- (#{search-list-rib\ 2088}#
- (lambda (#{sym\ 2125}#
- #{subst\ 2126}#
- #{marks\ 2127}#
- #{symnames\ 2128}#
- #{ribcage\ 2129}#)
- (letrec ((#{f\ 2138}#
- (lambda (#{symnames\ 2139}# #{i\ 2140}#)
- (if (null? #{symnames\ 2139}#)
- (#{search\ 2086}#
- #{sym\ 2125}#
- (cdr #{subst\ 2126}#)
- #{marks\ 2127}#)
- (if (if (eq? (car #{symnames\ 2139}#)
- #{sym\ 2125}#)
- (#{same-marks?\ 427}#
- #{marks\ 2127}#
+ (#{f\ 2126}# 0)))))
+ (#{search-list-rib\ 2098}#
+ (lambda (#{sym\ 2135}#
+ #{subst\ 2136}#
+ #{marks\ 2137}#
+ #{symnames\ 2138}#
+ #{ribcage\ 2139}#)
+ (letrec ((#{f\ 2148}#
+ (lambda (#{symnames\ 2149}# #{i\ 2150}#)
+ (if (null? #{symnames\ 2149}#)
+ (#{search\ 2096}#
+ #{sym\ 2135}#
+ (cdr #{subst\ 2136}#)
+ #{marks\ 2137}#)
+ (if (if (eq? (car #{symnames\ 2149}#)
+ #{sym\ 2135}#)
+ (#{same-marks?\ 437}#
+ #{marks\ 2137}#
(list-ref
- (#{ribcage-marks\ 399}#
- #{ribcage\ 2129}#)
- #{i\ 2140}#))
+ (#{ribcage-marks\ 409}#
+ #{ribcage\ 2139}#)
+ #{i\ 2150}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 401}#
- #{ribcage\ 2129}#)
- #{i\ 2140}#)
- #{marks\ 2127}#)
- (#{f\ 2138}#
- (cdr #{symnames\ 2139}#)
- (#{fx+\ 273}#
- #{i\ 2140}#
+ (#{ribcage-labels\ 411}#
+ #{ribcage\ 2139}#)
+ #{i\ 2150}#)
+ #{marks\ 2137}#)
+ (#{f\ 2148}#
+ (cdr #{symnames\ 2149}#)
+ (#{fx+\ 283}#
+ #{i\ 2150}#
1)))))))
- (#{f\ 2138}# #{symnames\ 2128}# 0))))
- (#{search\ 2086}#
- (lambda (#{sym\ 2148}#
- #{subst\ 2149}#
- #{marks\ 2150}#)
- (if (null? #{subst\ 2149}#)
- (values #f #{marks\ 2150}#)
- (let ((#{fst\ 2155}# (car #{subst\ 2149}#)))
- (if (eq? #{fst\ 2155}# (quote shift))
- (#{search\ 2086}#
- #{sym\ 2148}#
- (cdr #{subst\ 2149}#)
- (cdr #{marks\ 2150}#))
- (let ((#{symnames\ 2157}#
- (#{ribcage-symnames\ 397}#
- #{fst\ 2155}#)))
- (if (vector? #{symnames\ 2157}#)
- (#{search-vector-rib\ 2090}#
- #{sym\ 2148}#
- #{subst\ 2149}#
- #{marks\ 2150}#
- #{symnames\ 2157}#
- #{fst\ 2155}#)
- (#{search-list-rib\ 2088}#
- #{sym\ 2148}#
- #{subst\ 2149}#
- #{marks\ 2150}#
- #{symnames\ 2157}#
- #{fst\ 2155}#)))))))))
- (if (symbol? #{id\ 2080}#)
- (let ((#{t\ 2160}#
+ (#{f\ 2148}# #{symnames\ 2138}# 0))))
+ (#{search\ 2096}#
+ (lambda (#{sym\ 2158}#
+ #{subst\ 2159}#
+ #{marks\ 2160}#)
+ (if (null? #{subst\ 2159}#)
+ (values #f #{marks\ 2160}#)
+ (let ((#{fst\ 2165}# (car #{subst\ 2159}#)))
+ (if (eq? #{fst\ 2165}# (quote shift))
+ (#{search\ 2096}#
+ #{sym\ 2158}#
+ (cdr #{subst\ 2159}#)
+ (cdr #{marks\ 2160}#))
+ (let ((#{symnames\ 2167}#
+ (#{ribcage-symnames\ 407}#
+ #{fst\ 2165}#)))
+ (if (vector? #{symnames\ 2167}#)
+ (#{search-vector-rib\ 2100}#
+ #{sym\ 2158}#
+ #{subst\ 2159}#
+ #{marks\ 2160}#
+ #{symnames\ 2167}#
+ #{fst\ 2165}#)
+ (#{search-list-rib\ 2098}#
+ #{sym\ 2158}#
+ #{subst\ 2159}#
+ #{marks\ 2160}#
+ #{symnames\ 2167}#
+ #{fst\ 2165}#)))))))))
+ (if (symbol? #{id\ 2090}#)
+ (let ((#{t\ 2170}#
(call-with-values
(lambda ()
- (#{search\ 2086}#
- #{id\ 2080}#
- (#{wrap-subst\ 381}# #{w\ 2081}#)
- (#{wrap-marks\ 379}# #{w\ 2081}#)))
- (lambda (#{x\ 2162}# . #{ignore\ 2163}#)
- #{x\ 2162}#))))
- (if #{t\ 2160}# #{t\ 2160}# #{id\ 2080}#))
- (if (#{syntax-object?\ 336}# #{id\ 2080}#)
- (let ((#{id\ 2171}#
- (#{syntax-object-expression\ 338}# #{id\ 2080}#))
- (#{w1\ 2172}#
- (#{syntax-object-wrap\ 340}# #{id\ 2080}#)))
- (let ((#{marks\ 2174}#
- (#{join-marks\ 425}#
- (#{wrap-marks\ 379}# #{w\ 2081}#)
- (#{wrap-marks\ 379}# #{w1\ 2172}#))))
+ (#{search\ 2096}#
+ #{id\ 2090}#
+ (#{wrap-subst\ 391}# #{w\ 2091}#)
+ (#{wrap-marks\ 389}# #{w\ 2091}#)))
+ (lambda (#{x\ 2172}# . #{ignore\ 2173}#)
+ #{x\ 2172}#))))
+ (if #{t\ 2170}# #{t\ 2170}# #{id\ 2090}#))
+ (if (#{syntax-object?\ 346}# #{id\ 2090}#)
+ (let ((#{id\ 2181}#
+ (#{syntax-object-expression\ 348}# #{id\ 2090}#))
+ (#{w1\ 2182}#
+ (#{syntax-object-wrap\ 350}# #{id\ 2090}#)))
+ (let ((#{marks\ 2184}#
+ (#{join-marks\ 435}#
+ (#{wrap-marks\ 389}# #{w\ 2091}#)
+ (#{wrap-marks\ 389}# #{w1\ 2182}#))))
(call-with-values
(lambda ()
- (#{search\ 2086}#
- #{id\ 2171}#
- (#{wrap-subst\ 381}# #{w\ 2081}#)
- #{marks\ 2174}#))
- (lambda (#{new-id\ 2175}# #{marks\ 2176}#)
- (let ((#{t\ 2181}# #{new-id\ 2175}#))
- (if #{t\ 2181}#
- #{t\ 2181}#
- (let ((#{t\ 2184}#
+ (#{search\ 2096}#
+ #{id\ 2181}#
+ (#{wrap-subst\ 391}# #{w\ 2091}#)
+ #{marks\ 2184}#))
+ (lambda (#{new-id\ 2185}# #{marks\ 2186}#)
+ (let ((#{t\ 2191}# #{new-id\ 2185}#))
+ (if #{t\ 2191}#
+ #{t\ 2191}#
+ (let ((#{t\ 2194}#
(call-with-values
(lambda ()
- (#{search\ 2086}#
- #{id\ 2171}#
- (#{wrap-subst\ 381}#
- #{w1\ 2172}#)
- #{marks\ 2176}#))
- (lambda (#{x\ 2186}#
+ (#{search\ 2096}#
+ #{id\ 2181}#
+ (#{wrap-subst\ 391}#
+ #{w1\ 2182}#)
+ #{marks\ 2186}#))
+ (lambda (#{x\ 2196}#
.
- #{ignore\ 2187}#)
- #{x\ 2186}#))))
- (if #{t\ 2184}#
- #{t\ 2184}#
- #{id\ 2171}#))))))))
+ #{ignore\ 2197}#)
+ #{x\ 2196}#))))
+ (if #{t\ 2194}#
+ #{t\ 2194}#
+ #{id\ 2181}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 2080}#))))))
- (#{same-marks?\ 427}#
- (lambda (#{x\ 2192}# #{y\ 2193}#)
- (let ((#{t\ 2198}# (eq? #{x\ 2192}# #{y\ 2193}#)))
- (if #{t\ 2198}#
- #{t\ 2198}#
- (if (not (null? #{x\ 2192}#))
- (if (not (null? #{y\ 2193}#))
- (if (eq? (car #{x\ 2192}#) (car #{y\ 2193}#))
- (#{same-marks?\ 427}#
- (cdr #{x\ 2192}#)
- (cdr #{y\ 2193}#))
+ #{id\ 2090}#))))))
+ (#{same-marks?\ 437}#
+ (lambda (#{x\ 2202}# #{y\ 2203}#)
+ (let ((#{t\ 2208}# (eq? #{x\ 2202}# #{y\ 2203}#)))
+ (if #{t\ 2208}#
+ #{t\ 2208}#
+ (if (not (null? #{x\ 2202}#))
+ (if (not (null? #{y\ 2203}#))
+ (if (eq? (car #{x\ 2202}#) (car #{y\ 2203}#))
+ (#{same-marks?\ 437}#
+ (cdr #{x\ 2202}#)
+ (cdr #{y\ 2203}#))
#f)
#f)
#f)))))
- (#{join-marks\ 425}#
- (lambda (#{m1\ 2204}# #{m2\ 2205}#)
- (#{smart-append\ 421}# #{m1\ 2204}# #{m2\ 2205}#)))
- (#{join-wraps\ 423}#
- (lambda (#{w1\ 2208}# #{w2\ 2209}#)
- (let ((#{m1\ 2214}# (#{wrap-marks\ 379}# #{w1\ 2208}#))
- (#{s1\ 2215}# (#{wrap-subst\ 381}# #{w1\ 2208}#)))
- (if (null? #{m1\ 2214}#)
- (if (null? #{s1\ 2215}#)
- #{w2\ 2209}#
- (#{make-wrap\ 377}#
- (#{wrap-marks\ 379}# #{w2\ 2209}#)
- (#{smart-append\ 421}#
- #{s1\ 2215}#
- (#{wrap-subst\ 381}# #{w2\ 2209}#))))
- (#{make-wrap\ 377}#
- (#{smart-append\ 421}#
- #{m1\ 2214}#
- (#{wrap-marks\ 379}# #{w2\ 2209}#))
- (#{smart-append\ 421}#
- #{s1\ 2215}#
- (#{wrap-subst\ 381}# #{w2\ 2209}#)))))))
- (#{smart-append\ 421}#
- (lambda (#{m1\ 2216}# #{m2\ 2217}#)
- (if (null? #{m2\ 2217}#)
- #{m1\ 2216}#
- (append #{m1\ 2216}# #{m2\ 2217}#))))
- (#{make-binding-wrap\ 419}#
- (lambda (#{ids\ 2220}# #{labels\ 2221}# #{w\ 2222}#)
- (if (null? #{ids\ 2220}#)
- #{w\ 2222}#
- (#{make-wrap\ 377}#
- (#{wrap-marks\ 379}# #{w\ 2222}#)
- (cons (let ((#{labelvec\ 2227}#
- (list->vector #{labels\ 2221}#)))
- (let ((#{n\ 2229}#
- (vector-length #{labelvec\ 2227}#)))
- (let ((#{symnamevec\ 2232}#
- (make-vector #{n\ 2229}#))
- (#{marksvec\ 2233}#
- (make-vector #{n\ 2229}#)))
+ (#{join-marks\ 435}#
+ (lambda (#{m1\ 2214}# #{m2\ 2215}#)
+ (#{smart-append\ 431}# #{m1\ 2214}# #{m2\ 2215}#)))
+ (#{join-wraps\ 433}#
+ (lambda (#{w1\ 2218}# #{w2\ 2219}#)
+ (let ((#{m1\ 2224}# (#{wrap-marks\ 389}# #{w1\ 2218}#))
+ (#{s1\ 2225}# (#{wrap-subst\ 391}# #{w1\ 2218}#)))
+ (if (null? #{m1\ 2224}#)
+ (if (null? #{s1\ 2225}#)
+ #{w2\ 2219}#
+ (#{make-wrap\ 387}#
+ (#{wrap-marks\ 389}# #{w2\ 2219}#)
+ (#{smart-append\ 431}#
+ #{s1\ 2225}#
+ (#{wrap-subst\ 391}# #{w2\ 2219}#))))
+ (#{make-wrap\ 387}#
+ (#{smart-append\ 431}#
+ #{m1\ 2224}#
+ (#{wrap-marks\ 389}# #{w2\ 2219}#))
+ (#{smart-append\ 431}#
+ #{s1\ 2225}#
+ (#{wrap-subst\ 391}# #{w2\ 2219}#)))))))
+ (#{smart-append\ 431}#
+ (lambda (#{m1\ 2226}# #{m2\ 2227}#)
+ (if (null? #{m2\ 2227}#)
+ #{m1\ 2226}#
+ (append #{m1\ 2226}# #{m2\ 2227}#))))
+ (#{make-binding-wrap\ 429}#
+ (lambda (#{ids\ 2230}# #{labels\ 2231}# #{w\ 2232}#)
+ (if (null? #{ids\ 2230}#)
+ #{w\ 2232}#
+ (#{make-wrap\ 387}#
+ (#{wrap-marks\ 389}# #{w\ 2232}#)
+ (cons (let ((#{labelvec\ 2237}#
+ (list->vector #{labels\ 2231}#)))
+ (let ((#{n\ 2239}#
+ (vector-length #{labelvec\ 2237}#)))
+ (let ((#{symnamevec\ 2242}#
+ (make-vector #{n\ 2239}#))
+ (#{marksvec\ 2243}#
+ (make-vector #{n\ 2239}#)))
(begin
- (letrec ((#{f\ 2237}#
- (lambda (#{ids\ 2238}# #{i\ 2239}#)
- (if (not (null? #{ids\ 2238}#))
+ (letrec ((#{f\ 2247}#
+ (lambda (#{ids\ 2248}# #{i\ 2249}#)
+ (if (not (null? #{ids\ 2248}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 375}#
- (car #{ids\ 2238}#)
- #{w\ 2222}#))
- (lambda (#{symname\ 2240}#
- #{marks\ 2241}#)
+ (#{id-sym-name&marks\ 385}#
+ (car #{ids\ 2248}#)
+ #{w\ 2232}#))
+ (lambda (#{symname\ 2250}#
+ #{marks\ 2251}#)
(begin
(vector-set!
- #{symnamevec\ 2232}#
- #{i\ 2239}#
- #{symname\ 2240}#)
+ #{symnamevec\ 2242}#
+ #{i\ 2249}#
+ #{symname\ 2250}#)
(vector-set!
- #{marksvec\ 2233}#
- #{i\ 2239}#
- #{marks\ 2241}#)
- (#{f\ 2237}#
- (cdr #{ids\ 2238}#)
- (#{fx+\ 273}#
- #{i\ 2239}#
+ #{marksvec\ 2243}#
+ #{i\ 2249}#
+ #{marks\ 2251}#)
+ (#{f\ 2247}#
+ (cdr #{ids\ 2248}#)
+ (#{fx+\ 283}#
+ #{i\ 2249}#
1)))))))))
- (#{f\ 2237}# #{ids\ 2220}# 0))
- (#{make-ribcage\ 393}#
- #{symnamevec\ 2232}#
- #{marksvec\ 2233}#
- #{labelvec\ 2227}#)))))
- (#{wrap-subst\ 381}# #{w\ 2222}#))))))
- (#{extend-ribcage!\ 417}#
- (lambda (#{ribcage\ 2244}# #{id\ 2245}# #{label\ 2246}#)
+ (#{f\ 2247}# #{ids\ 2230}# 0))
+ (#{make-ribcage\ 403}#
+ #{symnamevec\ 2242}#
+ #{marksvec\ 2243}#
+ #{labelvec\ 2237}#)))))
+ (#{wrap-subst\ 391}# #{w\ 2232}#))))))
+ (#{extend-ribcage!\ 427}#
+ (lambda (#{ribcage\ 2254}# #{id\ 2255}# #{label\ 2256}#)
(begin
- (#{set-ribcage-symnames!\ 403}#
- #{ribcage\ 2244}#
- (cons (#{syntax-object-expression\ 338}# #{id\ 2245}#)
- (#{ribcage-symnames\ 397}# #{ribcage\ 2244}#)))
- (#{set-ribcage-marks!\ 405}#
- #{ribcage\ 2244}#
- (cons (#{wrap-marks\ 379}#
- (#{syntax-object-wrap\ 340}# #{id\ 2245}#))
- (#{ribcage-marks\ 399}# #{ribcage\ 2244}#)))
- (#{set-ribcage-labels!\ 407}#
- #{ribcage\ 2244}#
- (cons #{label\ 2246}#
- (#{ribcage-labels\ 401}# #{ribcage\ 2244}#))))))
- (#{anti-mark\ 413}#
- (lambda (#{w\ 2250}#)
- (#{make-wrap\ 377}#
- (cons #f (#{wrap-marks\ 379}# #{w\ 2250}#))
+ (#{set-ribcage-symnames!\ 413}#
+ #{ribcage\ 2254}#
+ (cons (#{syntax-object-expression\ 348}# #{id\ 2255}#)
+ (#{ribcage-symnames\ 407}# #{ribcage\ 2254}#)))
+ (#{set-ribcage-marks!\ 415}#
+ #{ribcage\ 2254}#
+ (cons (#{wrap-marks\ 389}#
+ (#{syntax-object-wrap\ 350}# #{id\ 2255}#))
+ (#{ribcage-marks\ 409}# #{ribcage\ 2254}#)))
+ (#{set-ribcage-labels!\ 417}#
+ #{ribcage\ 2254}#
+ (cons #{label\ 2256}#
+ (#{ribcage-labels\ 411}# #{ribcage\ 2254}#))))))
+ (#{anti-mark\ 423}#
+ (lambda (#{w\ 2260}#)
+ (#{make-wrap\ 387}#
+ (cons #f (#{wrap-marks\ 389}# #{w\ 2260}#))
(cons 'shift
- (#{wrap-subst\ 381}# #{w\ 2250}#)))))
- (#{set-ribcage-labels!\ 407}#
- (lambda (#{x\ 2253}# #{update\ 2254}#)
- (vector-set! #{x\ 2253}# 3 #{update\ 2254}#)))
- (#{set-ribcage-marks!\ 405}#
- (lambda (#{x\ 2257}# #{update\ 2258}#)
- (vector-set! #{x\ 2257}# 2 #{update\ 2258}#)))
- (#{set-ribcage-symnames!\ 403}#
- (lambda (#{x\ 2261}# #{update\ 2262}#)
- (vector-set! #{x\ 2261}# 1 #{update\ 2262}#)))
- (#{ribcage-labels\ 401}#
- (lambda (#{x\ 2265}#) (vector-ref #{x\ 2265}# 3)))
- (#{ribcage-marks\ 399}#
- (lambda (#{x\ 2267}#) (vector-ref #{x\ 2267}# 2)))
- (#{ribcage-symnames\ 397}#
- (lambda (#{x\ 2269}#) (vector-ref #{x\ 2269}# 1)))
- (#{ribcage?\ 395}#
- (lambda (#{x\ 2271}#)
- (if (vector? #{x\ 2271}#)
- (if (= (vector-length #{x\ 2271}#) 4)
- (eq? (vector-ref #{x\ 2271}# 0) (quote ribcage))
+ (#{wrap-subst\ 391}# #{w\ 2260}#)))))
+ (#{set-ribcage-labels!\ 417}#
+ (lambda (#{x\ 2263}# #{update\ 2264}#)
+ (vector-set! #{x\ 2263}# 3 #{update\ 2264}#)))
+ (#{set-ribcage-marks!\ 415}#
+ (lambda (#{x\ 2267}# #{update\ 2268}#)
+ (vector-set! #{x\ 2267}# 2 #{update\ 2268}#)))
+ (#{set-ribcage-symnames!\ 413}#
+ (lambda (#{x\ 2271}# #{update\ 2272}#)
+ (vector-set! #{x\ 2271}# 1 #{update\ 2272}#)))
+ (#{ribcage-labels\ 411}#
+ (lambda (#{x\ 2275}#) (vector-ref #{x\ 2275}# 3)))
+ (#{ribcage-marks\ 409}#
+ (lambda (#{x\ 2277}#) (vector-ref #{x\ 2277}# 2)))
+ (#{ribcage-symnames\ 407}#
+ (lambda (#{x\ 2279}#) (vector-ref #{x\ 2279}# 1)))
+ (#{ribcage?\ 405}#
+ (lambda (#{x\ 2281}#)
+ (if (vector? #{x\ 2281}#)
+ (if (= (vector-length #{x\ 2281}#) 4)
+ (eq? (vector-ref #{x\ 2281}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 393}#
- (lambda (#{symnames\ 2276}#
- #{marks\ 2277}#
- #{labels\ 2278}#)
+ (#{make-ribcage\ 403}#
+ (lambda (#{symnames\ 2286}#
+ #{marks\ 2287}#
+ #{labels\ 2288}#)
(vector
'ribcage
- #{symnames\ 2276}#
- #{marks\ 2277}#
- #{labels\ 2278}#)))
- (#{gen-labels\ 390}#
- (lambda (#{ls\ 2282}#)
- (if (null? #{ls\ 2282}#)
+ #{symnames\ 2286}#
+ #{marks\ 2287}#
+ #{labels\ 2288}#)))
+ (#{gen-labels\ 400}#
+ (lambda (#{ls\ 2292}#)
+ (if (null? #{ls\ 2292}#)
'()
- (cons (#{gen-label\ 388}#)
- (#{gen-labels\ 390}# (cdr #{ls\ 2282}#))))))
- (#{gen-label\ 388}#
+ (cons (#{gen-label\ 398}#)
+ (#{gen-labels\ 400}# (cdr #{ls\ 2292}#))))))
+ (#{gen-label\ 398}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 381}# cdr)
- (#{wrap-marks\ 379}# car)
- (#{make-wrap\ 377}# cons)
- (#{id-sym-name&marks\ 375}#
- (lambda (#{x\ 2284}# #{w\ 2285}#)
- (if (#{syntax-object?\ 336}# #{x\ 2284}#)
+ (#{wrap-subst\ 391}# cdr)
+ (#{wrap-marks\ 389}# car)
+ (#{make-wrap\ 387}# cons)
+ (#{id-sym-name&marks\ 385}#
+ (lambda (#{x\ 2294}# #{w\ 2295}#)
+ (if (#{syntax-object?\ 346}# #{x\ 2294}#)
(values
- (#{syntax-object-expression\ 338}# #{x\ 2284}#)
- (#{join-marks\ 425}#
- (#{wrap-marks\ 379}# #{w\ 2285}#)
- (#{wrap-marks\ 379}#
- (#{syntax-object-wrap\ 340}# #{x\ 2284}#))))
+ (#{syntax-object-expression\ 348}# #{x\ 2294}#)
+ (#{join-marks\ 435}#
+ (#{wrap-marks\ 389}# #{w\ 2295}#)
+ (#{wrap-marks\ 389}#
+ (#{syntax-object-wrap\ 350}# #{x\ 2294}#))))
(values
- #{x\ 2284}#
- (#{wrap-marks\ 379}# #{w\ 2285}#)))))
- (#{id?\ 372}#
- (lambda (#{x\ 2288}#)
- (if (symbol? #{x\ 2288}#)
+ #{x\ 2294}#
+ (#{wrap-marks\ 389}# #{w\ 2295}#)))))
+ (#{id?\ 382}#
+ (lambda (#{x\ 2298}#)
+ (if (symbol? #{x\ 2298}#)
#t
- (if (#{syntax-object?\ 336}# #{x\ 2288}#)
+ (if (#{syntax-object?\ 346}# #{x\ 2298}#)
(symbol?
- (#{syntax-object-expression\ 338}# #{x\ 2288}#))
+ (#{syntax-object-expression\ 348}# #{x\ 2298}#))
#f))))
- (#{nonsymbol-id?\ 370}#
- (lambda (#{x\ 2295}#)
- (if (#{syntax-object?\ 336}# #{x\ 2295}#)
+ (#{nonsymbol-id?\ 380}#
+ (lambda (#{x\ 2305}#)
+ (if (#{syntax-object?\ 346}# #{x\ 2305}#)
(symbol?
- (#{syntax-object-expression\ 338}# #{x\ 2295}#))
+ (#{syntax-object-expression\ 348}# #{x\ 2305}#))
#f)))
- (#{global-extend\ 368}#
- (lambda (#{type\ 2299}# #{sym\ 2300}# #{val\ 2301}#)
- (#{put-global-definition-hook\ 286}#
- #{sym\ 2300}#
- #{type\ 2299}#
- #{val\ 2301}#)))
- (#{lookup\ 366}#
- (lambda (#{x\ 2305}# #{r\ 2306}# #{mod\ 2307}#)
- (let ((#{t\ 2313}# (assq #{x\ 2305}# #{r\ 2306}#)))
- (if #{t\ 2313}#
- (cdr #{t\ 2313}#)
- (if (symbol? #{x\ 2305}#)
- (let ((#{t\ 2319}#
- (#{get-global-definition-hook\ 288}#
- #{x\ 2305}#
- #{mod\ 2307}#)))
- (if #{t\ 2319}# #{t\ 2319}# (quote (global))))
+ (#{global-extend\ 378}#
+ (lambda (#{type\ 2309}# #{sym\ 2310}# #{val\ 2311}#)
+ (#{put-global-definition-hook\ 296}#
+ #{sym\ 2310}#
+ #{type\ 2309}#
+ #{val\ 2311}#)))
+ (#{lookup\ 376}#
+ (lambda (#{x\ 2315}# #{r\ 2316}# #{mod\ 2317}#)
+ (let ((#{t\ 2323}# (assq #{x\ 2315}# #{r\ 2316}#)))
+ (if #{t\ 2323}#
+ (cdr #{t\ 2323}#)
+ (if (symbol? #{x\ 2315}#)
+ (let ((#{t\ 2329}#
+ (#{get-global-definition-hook\ 298}#
+ #{x\ 2315}#
+ #{mod\ 2317}#)))
+ (if #{t\ 2329}# #{t\ 2329}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 364}#
- (lambda (#{r\ 2324}#)
- (if (null? #{r\ 2324}#)
+ (#{macros-only-env\ 374}#
+ (lambda (#{r\ 2334}#)
+ (if (null? #{r\ 2334}#)
'()
- (let ((#{a\ 2327}# (car #{r\ 2324}#)))
- (if (eq? (cadr #{a\ 2327}#) (quote macro))
- (cons #{a\ 2327}#
- (#{macros-only-env\ 364}# (cdr #{r\ 2324}#)))
- (#{macros-only-env\ 364}# (cdr #{r\ 2324}#)))))))
- (#{extend-var-env\ 362}#
- (lambda (#{labels\ 2328}# #{vars\ 2329}# #{r\ 2330}#)
- (if (null? #{labels\ 2328}#)
- #{r\ 2330}#
- (#{extend-var-env\ 362}#
- (cdr #{labels\ 2328}#)
- (cdr #{vars\ 2329}#)
- (cons (cons (car #{labels\ 2328}#)
- (cons (quote lexical) (car #{vars\ 2329}#)))
- #{r\ 2330}#)))))
- (#{extend-env\ 360}#
- (lambda (#{labels\ 2335}# #{bindings\ 2336}# #{r\ 2337}#)
- (if (null? #{labels\ 2335}#)
- #{r\ 2337}#
- (#{extend-env\ 360}#
- (cdr #{labels\ 2335}#)
- (cdr #{bindings\ 2336}#)
- (cons (cons (car #{labels\ 2335}#)
- (car #{bindings\ 2336}#))
- #{r\ 2337}#)))))
- (#{binding-value\ 357}# cdr)
- (#{binding-type\ 355}# car)
- (#{source-annotation\ 351}#
- (lambda (#{x\ 2341}#)
- (if (#{syntax-object?\ 336}# #{x\ 2341}#)
- (#{source-annotation\ 351}#
- (#{syntax-object-expression\ 338}# #{x\ 2341}#))
- (if (pair? #{x\ 2341}#)
- (let ((#{props\ 2348}# (source-properties #{x\ 2341}#)))
- (if (pair? #{props\ 2348}#) #{props\ 2348}# #f))
+ (let ((#{a\ 2337}# (car #{r\ 2334}#)))
+ (if (eq? (cadr #{a\ 2337}#) (quote macro))
+ (cons #{a\ 2337}#
+ (#{macros-only-env\ 374}# (cdr #{r\ 2334}#)))
+ (#{macros-only-env\ 374}# (cdr #{r\ 2334}#)))))))
+ (#{extend-var-env\ 372}#
+ (lambda (#{labels\ 2338}# #{vars\ 2339}# #{r\ 2340}#)
+ (if (null? #{labels\ 2338}#)
+ #{r\ 2340}#
+ (#{extend-var-env\ 372}#
+ (cdr #{labels\ 2338}#)
+ (cdr #{vars\ 2339}#)
+ (cons (cons (car #{labels\ 2338}#)
+ (cons (quote lexical) (car #{vars\ 2339}#)))
+ #{r\ 2340}#)))))
+ (#{extend-env\ 370}#
+ (lambda (#{labels\ 2345}# #{bindings\ 2346}# #{r\ 2347}#)
+ (if (null? #{labels\ 2345}#)
+ #{r\ 2347}#
+ (#{extend-env\ 370}#
+ (cdr #{labels\ 2345}#)
+ (cdr #{bindings\ 2346}#)
+ (cons (cons (car #{labels\ 2345}#)
+ (car #{bindings\ 2346}#))
+ #{r\ 2347}#)))))
+ (#{binding-value\ 367}# cdr)
+ (#{binding-type\ 365}# car)
+ (#{source-annotation\ 361}#
+ (lambda (#{x\ 2351}#)
+ (if (#{syntax-object?\ 346}# #{x\ 2351}#)
+ (#{source-annotation\ 361}#
+ (#{syntax-object-expression\ 348}# #{x\ 2351}#))
+ (if (pair? #{x\ 2351}#)
+ (let ((#{props\ 2358}# (source-properties #{x\ 2351}#)))
+ (if (pair? #{props\ 2358}#) #{props\ 2358}# #f))
#f))))
- (#{set-syntax-object-module!\ 348}#
- (lambda (#{x\ 2350}# #{update\ 2351}#)
- (vector-set! #{x\ 2350}# 3 #{update\ 2351}#)))
- (#{set-syntax-object-wrap!\ 346}#
- (lambda (#{x\ 2354}# #{update\ 2355}#)
- (vector-set! #{x\ 2354}# 2 #{update\ 2355}#)))
- (#{set-syntax-object-expression!\ 344}#
- (lambda (#{x\ 2358}# #{update\ 2359}#)
- (vector-set! #{x\ 2358}# 1 #{update\ 2359}#)))
- (#{syntax-object-module\ 342}#
- (lambda (#{x\ 2362}#) (vector-ref #{x\ 2362}# 3)))
- (#{syntax-object-wrap\ 340}#
- (lambda (#{x\ 2364}#) (vector-ref #{x\ 2364}# 2)))
- (#{syntax-object-expression\ 338}#
- (lambda (#{x\ 2366}#) (vector-ref #{x\ 2366}# 1)))
- (#{syntax-object?\ 336}#
- (lambda (#{x\ 2368}#)
- (if (vector? #{x\ 2368}#)
- (if (= (vector-length #{x\ 2368}#) 4)
- (eq? (vector-ref #{x\ 2368}# 0)
+ (#{set-syntax-object-module!\ 358}#
+ (lambda (#{x\ 2360}# #{update\ 2361}#)
+ (vector-set! #{x\ 2360}# 3 #{update\ 2361}#)))
+ (#{set-syntax-object-wrap!\ 356}#
+ (lambda (#{x\ 2364}# #{update\ 2365}#)
+ (vector-set! #{x\ 2364}# 2 #{update\ 2365}#)))
+ (#{set-syntax-object-expression!\ 354}#
+ (lambda (#{x\ 2368}# #{update\ 2369}#)
+ (vector-set! #{x\ 2368}# 1 #{update\ 2369}#)))
+ (#{syntax-object-module\ 352}#
+ (lambda (#{x\ 2372}#) (vector-ref #{x\ 2372}# 3)))
+ (#{syntax-object-wrap\ 350}#
+ (lambda (#{x\ 2374}#) (vector-ref #{x\ 2374}# 2)))
+ (#{syntax-object-expression\ 348}#
+ (lambda (#{x\ 2376}#) (vector-ref #{x\ 2376}# 1)))
+ (#{syntax-object?\ 346}#
+ (lambda (#{x\ 2378}#)
+ (if (vector? #{x\ 2378}#)
+ (if (= (vector-length #{x\ 2378}#) 4)
+ (eq? (vector-ref #{x\ 2378}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 334}#
- (lambda (#{expression\ 2373}#
- #{wrap\ 2374}#
- #{module\ 2375}#)
+ (#{make-syntax-object\ 344}#
+ (lambda (#{expression\ 2383}#
+ #{wrap\ 2384}#
+ #{module\ 2385}#)
(vector
'syntax-object
- #{expression\ 2373}#
- #{wrap\ 2374}#
- #{module\ 2375}#)))
- (#{build-letrec\ 330}#
- (lambda (#{src\ 2379}#
- #{ids\ 2380}#
- #{vars\ 2381}#
- #{val-exps\ 2382}#
- #{body-exp\ 2383}#)
- (if (null? #{vars\ 2381}#)
- #{body-exp\ 2383}#
- (begin
- (for-each
- #{maybe-name-value!\ 310}#
- #{ids\ 2380}#
- #{val-exps\ 2382}#)
- (#{make-letrec\ 262}#
- #{src\ 2379}#
- #{ids\ 2380}#
- #{vars\ 2381}#
- #{val-exps\ 2382}#
- #{body-exp\ 2383}#)))))
- (#{build-named-let\ 328}#
+ #{expression\ 2383}#
+ #{wrap\ 2384}#
+ #{module\ 2385}#)))
+ (#{build-letrec\ 340}#
(lambda (#{src\ 2389}#
#{ids\ 2390}#
#{vars\ 2391}#
#{val-exps\ 2392}#
#{body-exp\ 2393}#)
- (let ((#{f\ 2403}# (car #{vars\ 2391}#))
- (#{f-name\ 2404}# (car #{ids\ 2390}#))
- (#{vars\ 2405}# (cdr #{vars\ 2391}#))
- (#{ids\ 2406}# (cdr #{ids\ 2390}#)))
- (let ((#{proc\ 2408}#
- (#{build-simple-lambda\ 314}#
- #{src\ 2389}#
- #{ids\ 2406}#
+ (if (null? #{vars\ 2391}#)
+ #{body-exp\ 2393}#
+ (begin
+ (for-each
+ #{maybe-name-value!\ 320}#
+ #{ids\ 2390}#
+ #{val-exps\ 2392}#)
+ (#{make-letrec\ 272}#
+ #{src\ 2389}#
+ #f
+ #{ids\ 2390}#
+ #{vars\ 2391}#
+ #{val-exps\ 2392}#
+ #{body-exp\ 2393}#)))))
+ (#{build-named-let\ 338}#
+ (lambda (#{src\ 2399}#
+ #{ids\ 2400}#
+ #{vars\ 2401}#
+ #{val-exps\ 2402}#
+ #{body-exp\ 2403}#)
+ (let ((#{f\ 2413}# (car #{vars\ 2401}#))
+ (#{f-name\ 2414}# (car #{ids\ 2400}#))
+ (#{vars\ 2415}# (cdr #{vars\ 2401}#))
+ (#{ids\ 2416}# (cdr #{ids\ 2400}#)))
+ (let ((#{proc\ 2418}#
+ (#{build-simple-lambda\ 324}#
+ #{src\ 2399}#
+ #{ids\ 2416}#
#f
- #{vars\ 2405}#
+ #{vars\ 2415}#
'()
- #{body-exp\ 2393}#)))
+ #{body-exp\ 2403}#)))
(begin
- (#{maybe-name-value!\ 310}#
- #{f-name\ 2404}#
- #{proc\ 2408}#)
+ (#{maybe-name-value!\ 320}#
+ #{f-name\ 2414}#
+ #{proc\ 2418}#)
(for-each
- #{maybe-name-value!\ 310}#
- #{ids\ 2406}#
- #{val-exps\ 2392}#)
- (#{make-letrec\ 262}#
- #{src\ 2389}#
- (list #{f-name\ 2404}#)
- (list #{f\ 2403}#)
- (list #{proc\ 2408}#)
- (#{build-application\ 294}#
- #{src\ 2389}#
- (#{build-lexical-reference\ 300}#
+ #{maybe-name-value!\ 320}#
+ #{ids\ 2416}#
+ #{val-exps\ 2402}#)
+ (#{make-letrec\ 272}#
+ #{src\ 2399}#
+ #f
+ (list #{f-name\ 2414}#)
+ (list #{f\ 2413}#)
+ (list #{proc\ 2418}#)
+ (#{build-application\ 304}#
+ #{src\ 2399}#
+ (#{build-lexical-reference\ 310}#
'fun
- #{src\ 2389}#
- #{f-name\ 2404}#
- #{f\ 2403}#)
- #{val-exps\ 2392}#)))))))
- (#{build-let\ 326}#
- (lambda (#{src\ 2409}#
- #{ids\ 2410}#
- #{vars\ 2411}#
- #{val-exps\ 2412}#
- #{body-exp\ 2413}#)
+ #{src\ 2399}#
+ #{f-name\ 2414}#
+ #{f\ 2413}#)
+ #{val-exps\ 2402}#)))))))
+ (#{build-let\ 336}#
+ (lambda (#{src\ 2419}#
+ #{ids\ 2420}#
+ #{vars\ 2421}#
+ #{val-exps\ 2422}#
+ #{body-exp\ 2423}#)
(begin
(for-each
- #{maybe-name-value!\ 310}#
- #{ids\ 2410}#
- #{val-exps\ 2412}#)
- (if (null? #{vars\ 2411}#)
- #{body-exp\ 2413}#
- (#{make-let\ 260}#
- #{src\ 2409}#
- #{ids\ 2410}#
- #{vars\ 2411}#
- #{val-exps\ 2412}#
- #{body-exp\ 2413}#)))))
- (#{build-sequence\ 324}#
- (lambda (#{src\ 2419}# #{exps\ 2420}#)
- (if (null? (cdr #{exps\ 2420}#))
- (car #{exps\ 2420}#)
- (#{make-sequence\ 254}#
- #{src\ 2419}#
- #{exps\ 2420}#))))
- (#{build-data\ 322}#
- (lambda (#{src\ 2423}# #{exp\ 2424}#)
- (#{make-const\ 232}# #{src\ 2423}# #{exp\ 2424}#)))
- (#{build-primref\ 320}#
- (lambda (#{src\ 2427}# #{name\ 2428}#)
+ #{maybe-name-value!\ 320}#
+ #{ids\ 2420}#
+ #{val-exps\ 2422}#)
+ (if (null? #{vars\ 2421}#)
+ #{body-exp\ 2423}#
+ (#{make-let\ 270}#
+ #{src\ 2419}#
+ #{ids\ 2420}#
+ #{vars\ 2421}#
+ #{val-exps\ 2422}#
+ #{body-exp\ 2423}#)))))
+ (#{build-sequence\ 334}#
+ (lambda (#{src\ 2429}# #{exps\ 2430}#)
+ (if (null? (cdr #{exps\ 2430}#))
+ (car #{exps\ 2430}#)
+ (#{make-sequence\ 264}#
+ #{src\ 2429}#
+ #{exps\ 2430}#))))
+ (#{build-data\ 332}#
+ (lambda (#{src\ 2433}# #{exp\ 2434}#)
+ (#{make-const\ 242}# #{src\ 2433}# #{exp\ 2434}#)))
+ (#{build-primref\ 330}#
+ (lambda (#{src\ 2437}# #{name\ 2438}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 244}#
- #{src\ 2427}#
- #{name\ 2428}#)
- (#{make-module-ref\ 240}#
- #{src\ 2427}#
+ (#{make-toplevel-ref\ 254}#
+ #{src\ 2437}#
+ #{name\ 2438}#)
+ (#{make-module-ref\ 250}#
+ #{src\ 2437}#
'(guile)
- #{name\ 2428}#
+ #{name\ 2438}#
#f))))
- (#{build-lambda-case\ 318}#
- (lambda (#{src\ 2431}#
- #{req\ 2432}#
- #{opt\ 2433}#
- #{rest\ 2434}#
- #{kw\ 2435}#
- #{inits\ 2436}#
- #{vars\ 2437}#
- #{body\ 2438}#
- #{else-case\ 2439}#)
- (#{make-lambda-case\ 258}#
- #{src\ 2431}#
- #{req\ 2432}#
- #{opt\ 2433}#
- #{rest\ 2434}#
- #{kw\ 2435}#
- #{inits\ 2436}#
- #{vars\ 2437}#
- #{body\ 2438}#
- #{else-case\ 2439}#)))
- (#{build-case-lambda\ 316}#
- (lambda (#{src\ 2449}# #{meta\ 2450}# #{body\ 2451}#)
- (#{make-lambda\ 256}#
- #{src\ 2449}#
- #{meta\ 2450}#
- #{body\ 2451}#)))
- (#{build-simple-lambda\ 314}#
- (lambda (#{src\ 2455}#
- #{req\ 2456}#
- #{rest\ 2457}#
- #{vars\ 2458}#
- #{meta\ 2459}#
- #{exp\ 2460}#)
- (#{make-lambda\ 256}#
- #{src\ 2455}#
- #{meta\ 2459}#
- (#{make-lambda-case\ 258}#
- #{src\ 2455}#
- #{req\ 2456}#
+ (#{build-lambda-case\ 328}#
+ (lambda (#{src\ 2441}#
+ #{req\ 2442}#
+ #{opt\ 2443}#
+ #{rest\ 2444}#
+ #{kw\ 2445}#
+ #{inits\ 2446}#
+ #{vars\ 2447}#
+ #{body\ 2448}#
+ #{else-case\ 2449}#)
+ (#{make-lambda-case\ 268}#
+ #{src\ 2441}#
+ #{req\ 2442}#
+ #{opt\ 2443}#
+ #{rest\ 2444}#
+ #{kw\ 2445}#
+ #{inits\ 2446}#
+ #{vars\ 2447}#
+ #{body\ 2448}#
+ #{else-case\ 2449}#)))
+ (#{build-case-lambda\ 326}#
+ (lambda (#{src\ 2459}# #{meta\ 2460}# #{body\ 2461}#)
+ (#{make-lambda\ 266}#
+ #{src\ 2459}#
+ #{meta\ 2460}#
+ #{body\ 2461}#)))
+ (#{build-simple-lambda\ 324}#
+ (lambda (#{src\ 2465}#
+ #{req\ 2466}#
+ #{rest\ 2467}#
+ #{vars\ 2468}#
+ #{meta\ 2469}#
+ #{exp\ 2470}#)
+ (#{make-lambda\ 266}#
+ #{src\ 2465}#
+ #{meta\ 2469}#
+ (#{make-lambda-case\ 268}#
+ #{src\ 2465}#
+ #{req\ 2466}#
#f
- #{rest\ 2457}#
+ #{rest\ 2467}#
#f
'()
- #{vars\ 2458}#
- #{exp\ 2460}#
+ #{vars\ 2468}#
+ #{exp\ 2470}#
#f))))
- (#{build-global-definition\ 312}#
- (lambda (#{source\ 2467}# #{var\ 2468}# #{exp\ 2469}#)
+ (#{build-global-definition\ 322}#
+ (lambda (#{source\ 2477}# #{var\ 2478}# #{exp\ 2479}#)
(begin
- (#{maybe-name-value!\ 310}#
- #{var\ 2468}#
- #{exp\ 2469}#)
- (#{make-toplevel-define\ 248}#
- #{source\ 2467}#
- #{var\ 2468}#
- #{exp\ 2469}#))))
- (#{maybe-name-value!\ 310}#
- (lambda (#{name\ 2473}# #{val\ 2474}#)
- (if (#{lambda?\ 267}# #{val\ 2474}#)
- (let ((#{meta\ 2478}#
- (#{lambda-meta\ 269}# #{val\ 2474}#)))
- (if (not (assq (quote name) #{meta\ 2478}#))
- (#{set-lambda-meta!\ 271}#
- #{val\ 2474}#
+ (#{maybe-name-value!\ 320}#
+ #{var\ 2478}#
+ #{exp\ 2479}#)
+ (#{make-toplevel-define\ 258}#
+ #{source\ 2477}#
+ #{var\ 2478}#
+ #{exp\ 2479}#))))
+ (#{maybe-name-value!\ 320}#
+ (lambda (#{name\ 2483}# #{val\ 2484}#)
+ (if (#{lambda?\ 277}# #{val\ 2484}#)
+ (let ((#{meta\ 2488}#
+ (#{lambda-meta\ 279}# #{val\ 2484}#)))
+ (if (not (assq (quote name) #{meta\ 2488}#))
+ (#{set-lambda-meta!\ 281}#
+ #{val\ 2484}#
(acons 'name
- #{name\ 2473}#
- #{meta\ 2478}#)))))))
- (#{build-global-assignment\ 308}#
- (lambda (#{source\ 2479}#
- #{var\ 2480}#
- #{exp\ 2481}#
- #{mod\ 2482}#)
- (#{analyze-variable\ 304}#
- #{mod\ 2482}#
- #{var\ 2480}#
- (lambda (#{mod\ 2487}# #{var\ 2488}# #{public?\ 2489}#)
- (#{make-module-set\ 242}#
- #{source\ 2479}#
- #{mod\ 2487}#
- #{var\ 2488}#
- #{public?\ 2489}#
- #{exp\ 2481}#))
- (lambda (#{var\ 2493}#)
- (#{make-toplevel-set\ 246}#
- #{source\ 2479}#
- #{var\ 2493}#
- #{exp\ 2481}#)))))
- (#{build-global-reference\ 306}#
- (lambda (#{source\ 2495}# #{var\ 2496}# #{mod\ 2497}#)
- (#{analyze-variable\ 304}#
- #{mod\ 2497}#
- #{var\ 2496}#
- (lambda (#{mod\ 2501}# #{var\ 2502}# #{public?\ 2503}#)
- (#{make-module-ref\ 240}#
- #{source\ 2495}#
- #{mod\ 2501}#
- #{var\ 2502}#
- #{public?\ 2503}#))
- (lambda (#{var\ 2507}#)
- (#{make-toplevel-ref\ 244}#
- #{source\ 2495}#
- #{var\ 2507}#)))))
- (#{analyze-variable\ 304}#
- (lambda (#{mod\ 2509}#
- #{var\ 2510}#
- #{modref-cont\ 2511}#
- #{bare-cont\ 2512}#)
- (if (not #{mod\ 2509}#)
- (#{bare-cont\ 2512}# #{var\ 2510}#)
- (let ((#{kind\ 2519}# (car #{mod\ 2509}#))
- (#{mod\ 2520}# (cdr #{mod\ 2509}#)))
- (if (memv #{kind\ 2519}# (quote (public)))
- (#{modref-cont\ 2511}#
- #{mod\ 2520}#
- #{var\ 2510}#
+ #{name\ 2483}#
+ #{meta\ 2488}#)))))))
+ (#{build-global-assignment\ 318}#
+ (lambda (#{source\ 2489}#
+ #{var\ 2490}#
+ #{exp\ 2491}#
+ #{mod\ 2492}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 2492}#
+ #{var\ 2490}#
+ (lambda (#{mod\ 2497}# #{var\ 2498}# #{public?\ 2499}#)
+ (#{make-module-set\ 252}#
+ #{source\ 2489}#
+ #{mod\ 2497}#
+ #{var\ 2498}#
+ #{public?\ 2499}#
+ #{exp\ 2491}#))
+ (lambda (#{var\ 2503}#)
+ (#{make-toplevel-set\ 256}#
+ #{source\ 2489}#
+ #{var\ 2503}#
+ #{exp\ 2491}#)))))
+ (#{build-global-reference\ 316}#
+ (lambda (#{source\ 2505}# #{var\ 2506}# #{mod\ 2507}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 2507}#
+ #{var\ 2506}#
+ (lambda (#{mod\ 2511}# #{var\ 2512}# #{public?\ 2513}#)
+ (#{make-module-ref\ 250}#
+ #{source\ 2505}#
+ #{mod\ 2511}#
+ #{var\ 2512}#
+ #{public?\ 2513}#))
+ (lambda (#{var\ 2517}#)
+ (#{make-toplevel-ref\ 254}#
+ #{source\ 2505}#
+ #{var\ 2517}#)))))
+ (#{analyze-variable\ 314}#
+ (lambda (#{mod\ 2519}#
+ #{var\ 2520}#
+ #{modref-cont\ 2521}#
+ #{bare-cont\ 2522}#)
+ (if (not #{mod\ 2519}#)
+ (#{bare-cont\ 2522}# #{var\ 2520}#)
+ (let ((#{kind\ 2529}# (car #{mod\ 2519}#))
+ (#{mod\ 2530}# (cdr #{mod\ 2519}#)))
+ (if (memv #{kind\ 2529}# (quote (public)))
+ (#{modref-cont\ 2521}#
+ #{mod\ 2530}#
+ #{var\ 2520}#
#t)
- (if (memv #{kind\ 2519}# (quote (private)))
+ (if (memv #{kind\ 2529}# (quote (private)))
(if (not (equal?
- #{mod\ 2520}#
+ #{mod\ 2530}#
(module-name (current-module))))
- (#{modref-cont\ 2511}#
- #{mod\ 2520}#
- #{var\ 2510}#
+ (#{modref-cont\ 2521}#
+ #{mod\ 2530}#
+ #{var\ 2520}#
#f)
- (#{bare-cont\ 2512}# #{var\ 2510}#))
- (if (memv #{kind\ 2519}# (quote (bare)))
- (#{bare-cont\ 2512}# #{var\ 2510}#)
- (if (memv #{kind\ 2519}# (quote (hygiene)))
+ (#{bare-cont\ 2522}# #{var\ 2520}#))
+ (if (memv #{kind\ 2529}# (quote (bare)))
+ (#{bare-cont\ 2522}# #{var\ 2520}#)
+ (if (memv #{kind\ 2529}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2520}#
+ #{mod\ 2530}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2520}#)
- #{var\ 2510}#)
+ (resolve-module #{mod\ 2530}#)
+ #{var\ 2520}#)
#f)
- (#{modref-cont\ 2511}#
- #{mod\ 2520}#
- #{var\ 2510}#
+ (#{modref-cont\ 2521}#
+ #{mod\ 2530}#
+ #{var\ 2520}#
#f)
- (#{bare-cont\ 2512}# #{var\ 2510}#))
+ (#{bare-cont\ 2522}# #{var\ 2520}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2510}#
- #{mod\ 2520}#)))))))))
- (#{build-lexical-assignment\ 302}#
- (lambda (#{source\ 2528}#
- #{name\ 2529}#
- #{var\ 2530}#
- #{exp\ 2531}#)
- (#{make-lexical-set\ 238}#
- #{source\ 2528}#
- #{name\ 2529}#
- #{var\ 2530}#
- #{exp\ 2531}#)))
- (#{build-lexical-reference\ 300}#
- (lambda (#{type\ 2536}#
- #{source\ 2537}#
- #{name\ 2538}#
- #{var\ 2539}#)
- (#{make-lexical-ref\ 236}#
- #{source\ 2537}#
- #{name\ 2538}#
- #{var\ 2539}#)))
- (#{build-dynlet\ 298}#
- (lambda (#{source\ 2544}#
- #{fluids\ 2545}#
- #{vals\ 2546}#
- #{body\ 2547}#)
- (#{make-dynlet\ 264}#
- #{source\ 2544}#
- #{fluids\ 2545}#
- #{vals\ 2546}#
- #{body\ 2547}#)))
- (#{build-conditional\ 296}#
- (lambda (#{source\ 2552}#
- #{test-exp\ 2553}#
- #{then-exp\ 2554}#
- #{else-exp\ 2555}#)
- (#{make-conditional\ 250}#
- #{source\ 2552}#
- #{test-exp\ 2553}#
- #{then-exp\ 2554}#
- #{else-exp\ 2555}#)))
- (#{build-application\ 294}#
- (lambda (#{source\ 2560}#
- #{fun-exp\ 2561}#
- #{arg-exps\ 2562}#)
- (#{make-application\ 252}#
- #{source\ 2560}#
- #{fun-exp\ 2561}#
- #{arg-exps\ 2562}#)))
- (#{build-void\ 292}#
- (lambda (#{source\ 2566}#)
- (#{make-void\ 230}# #{source\ 2566}#)))
- (#{decorate-source\ 290}#
- (lambda (#{e\ 2568}# #{s\ 2569}#)
+ #{var\ 2520}#
+ #{mod\ 2530}#)))))))))
+ (#{build-lexical-assignment\ 312}#
+ (lambda (#{source\ 2538}#
+ #{name\ 2539}#
+ #{var\ 2540}#
+ #{exp\ 2541}#)
+ (#{make-lexical-set\ 248}#
+ #{source\ 2538}#
+ #{name\ 2539}#
+ #{var\ 2540}#
+ #{exp\ 2541}#)))
+ (#{build-lexical-reference\ 310}#
+ (lambda (#{type\ 2546}#
+ #{source\ 2547}#
+ #{name\ 2548}#
+ #{var\ 2549}#)
+ (#{make-lexical-ref\ 246}#
+ #{source\ 2547}#
+ #{name\ 2548}#
+ #{var\ 2549}#)))
+ (#{build-dynlet\ 308}#
+ (lambda (#{source\ 2554}#
+ #{fluids\ 2555}#
+ #{vals\ 2556}#
+ #{body\ 2557}#)
+ (#{make-dynlet\ 274}#
+ #{source\ 2554}#
+ #{fluids\ 2555}#
+ #{vals\ 2556}#
+ #{body\ 2557}#)))
+ (#{build-conditional\ 306}#
+ (lambda (#{source\ 2562}#
+ #{test-exp\ 2563}#
+ #{then-exp\ 2564}#
+ #{else-exp\ 2565}#)
+ (#{make-conditional\ 260}#
+ #{source\ 2562}#
+ #{test-exp\ 2563}#
+ #{then-exp\ 2564}#
+ #{else-exp\ 2565}#)))
+ (#{build-application\ 304}#
+ (lambda (#{source\ 2570}#
+ #{fun-exp\ 2571}#
+ #{arg-exps\ 2572}#)
+ (#{make-application\ 262}#
+ #{source\ 2570}#
+ #{fun-exp\ 2571}#
+ #{arg-exps\ 2572}#)))
+ (#{build-void\ 302}#
+ (lambda (#{source\ 2576}#)
+ (#{make-void\ 240}# #{source\ 2576}#)))
+ (#{decorate-source\ 300}#
+ (lambda (#{e\ 2578}# #{s\ 2579}#)
(begin
- (if (if (pair? #{e\ 2568}#) #{s\ 2569}# #f)
- (set-source-properties! #{e\ 2568}# #{s\ 2569}#))
- #{e\ 2568}#)))
- (#{get-global-definition-hook\ 288}#
- (lambda (#{symbol\ 2574}# #{module\ 2575}#)
+ (if (if (pair? #{e\ 2578}#) #{s\ 2579}# #f)
+ (set-source-properties! #{e\ 2578}# #{s\ 2579}#))
+ #{e\ 2578}#)))
+ (#{get-global-definition-hook\ 298}#
+ (lambda (#{symbol\ 2584}# #{module\ 2585}#)
(begin
- (if (if (not #{module\ 2575}#) (current-module) #f)
+ (if (if (not #{module\ 2585}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2574}#))
- (let ((#{v\ 2581}#
+ #{symbol\ 2584}#))
+ (let ((#{v\ 2591}#
(module-variable
- (if #{module\ 2575}#
- (resolve-module (cdr #{module\ 2575}#))
+ (if #{module\ 2585}#
+ (resolve-module (cdr #{module\ 2585}#))
(current-module))
- #{symbol\ 2574}#)))
- (if #{v\ 2581}#
- (if (variable-bound? #{v\ 2581}#)
- (let ((#{val\ 2586}# (variable-ref #{v\ 2581}#)))
- (if (macro? #{val\ 2586}#)
- (if (macro-type #{val\ 2586}#)
- (cons (macro-type #{val\ 2586}#)
- (macro-binding #{val\ 2586}#))
+ #{symbol\ 2584}#)))
+ (if #{v\ 2591}#
+ (if (variable-bound? #{v\ 2591}#)
+ (let ((#{val\ 2596}# (variable-ref #{v\ 2591}#)))
+ (if (macro? #{val\ 2596}#)
+ (if (macro-type #{val\ 2596}#)
+ (cons (macro-type #{val\ 2596}#)
+ (macro-binding #{val\ 2596}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 286}#
- (lambda (#{symbol\ 2590}# #{type\ 2591}# #{val\ 2592}#)
+ (#{put-global-definition-hook\ 296}#
+ (lambda (#{symbol\ 2600}# #{type\ 2601}# #{val\ 2602}#)
(module-define!
(current-module)
- #{symbol\ 2590}#
+ #{symbol\ 2600}#
(make-syntax-transformer
- #{symbol\ 2590}#
- #{type\ 2591}#
- #{val\ 2592}#))))
- (#{local-eval-hook\ 283}#
- (lambda (#{x\ 2596}# #{mod\ 2597}#)
- (primitive-eval #{x\ 2596}#)))
- (#{top-level-eval-hook\ 281}#
- (lambda (#{x\ 2600}# #{mod\ 2601}#)
- (primitive-eval #{x\ 2600}#)))
- (#{fx<\ 279}# <)
- (#{fx=\ 277}# =)
- (#{fx-\ 275}# -)
- (#{fx+\ 273}# +)
- (#{set-lambda-meta!\ 271}#
- (lambda (#{x\ 2604}# #{v\ 2605}#)
- (struct-set! #{x\ 2604}# 1 #{v\ 2605}#)))
- (#{lambda-meta\ 269}#
- (lambda (#{x\ 2608}#) (struct-ref #{x\ 2608}# 1)))
- (#{lambda?\ 267}#
- (lambda (#{x\ 2610}#)
- (if (struct? #{x\ 2610}#)
- (eq? (struct-vtable #{x\ 2610}#)
+ #{symbol\ 2600}#
+ #{type\ 2601}#
+ #{val\ 2602}#))))
+ (#{local-eval-hook\ 293}#
+ (lambda (#{x\ 2606}# #{mod\ 2607}#)
+ (primitive-eval #{x\ 2606}#)))
+ (#{top-level-eval-hook\ 291}#
+ (lambda (#{x\ 2610}# #{mod\ 2611}#)
+ (primitive-eval #{x\ 2610}#)))
+ (#{fx<\ 289}# <)
+ (#{fx=\ 287}# =)
+ (#{fx-\ 285}# -)
+ (#{fx+\ 283}# +)
+ (#{set-lambda-meta!\ 281}#
+ (lambda (#{x\ 2614}# #{v\ 2615}#)
+ (struct-set! #{x\ 2614}# 1 #{v\ 2615}#)))
+ (#{lambda-meta\ 279}#
+ (lambda (#{x\ 2618}#) (struct-ref #{x\ 2618}# 1)))
+ (#{lambda?\ 277}#
+ (lambda (#{x\ 2620}#)
+ (if (struct? #{x\ 2620}#)
+ (eq? (struct-vtable #{x\ 2620}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{make-dynlet\ 264}#
- (lambda (#{src\ 2614}#
- #{fluids\ 2615}#
- #{vals\ 2616}#
- #{body\ 2617}#)
+ (#{make-dynlet\ 274}#
+ (lambda (#{src\ 2624}#
+ #{fluids\ 2625}#
+ #{vals\ 2626}#
+ #{body\ 2627}#)
(make-struct
(vector-ref %expanded-vtables 17)
0
- #{src\ 2614}#
- #{fluids\ 2615}#
- #{vals\ 2616}#
- #{body\ 2617}#)))
- (#{make-letrec\ 262}#
- (lambda (#{src\ 2622}#
- #{names\ 2623}#
- #{gensyms\ 2624}#
- #{vals\ 2625}#
- #{body\ 2626}#)
+ #{src\ 2624}#
+ #{fluids\ 2625}#
+ #{vals\ 2626}#
+ #{body\ 2627}#)))
+ (#{make-letrec\ 272}#
+ (lambda (#{src\ 2632}#
+ #{in-order?\ 2633}#
+ #{names\ 2634}#
+ #{gensyms\ 2635}#
+ #{vals\ 2636}#
+ #{body\ 2637}#)
(make-struct
(vector-ref %expanded-vtables 16)
0
- #{src\ 2622}#
- #{names\ 2623}#
- #{gensyms\ 2624}#
- #{vals\ 2625}#
- #{body\ 2626}#)))
- (#{make-let\ 260}#
- (lambda (#{src\ 2632}#
- #{names\ 2633}#
- #{gensyms\ 2634}#
- #{vals\ 2635}#
- #{body\ 2636}#)
+ #{src\ 2632}#
+ #{in-order?\ 2633}#
+ #{names\ 2634}#
+ #{gensyms\ 2635}#
+ #{vals\ 2636}#
+ #{body\ 2637}#)))
+ (#{make-let\ 270}#
+ (lambda (#{src\ 2644}#
+ #{names\ 2645}#
+ #{gensyms\ 2646}#
+ #{vals\ 2647}#
+ #{body\ 2648}#)
(make-struct
(vector-ref %expanded-vtables 15)
0
- #{src\ 2632}#
- #{names\ 2633}#
- #{gensyms\ 2634}#
- #{vals\ 2635}#
- #{body\ 2636}#)))
- (#{make-lambda-case\ 258}#
- (lambda (#{src\ 2642}#
- #{req\ 2643}#
- #{opt\ 2644}#
- #{rest\ 2645}#
- #{kw\ 2646}#
- #{inits\ 2647}#
- #{gensyms\ 2648}#
- #{body\ 2649}#
- #{alternate\ 2650}#)
+ #{src\ 2644}#
+ #{names\ 2645}#
+ #{gensyms\ 2646}#
+ #{vals\ 2647}#
+ #{body\ 2648}#)))
+ (#{make-lambda-case\ 268}#
+ (lambda (#{src\ 2654}#
+ #{req\ 2655}#
+ #{opt\ 2656}#
+ #{rest\ 2657}#
+ #{kw\ 2658}#
+ #{inits\ 2659}#
+ #{gensyms\ 2660}#
+ #{body\ 2661}#
+ #{alternate\ 2662}#)
(make-struct
(vector-ref %expanded-vtables 14)
0
- #{src\ 2642}#
- #{req\ 2643}#
- #{opt\ 2644}#
- #{rest\ 2645}#
- #{kw\ 2646}#
- #{inits\ 2647}#
- #{gensyms\ 2648}#
- #{body\ 2649}#
- #{alternate\ 2650}#)))
- (#{make-lambda\ 256}#
- (lambda (#{src\ 2660}# #{meta\ 2661}# #{body\ 2662}#)
+ #{src\ 2654}#
+ #{req\ 2655}#
+ #{opt\ 2656}#
+ #{rest\ 2657}#
+ #{kw\ 2658}#
+ #{inits\ 2659}#
+ #{gensyms\ 2660}#
+ #{body\ 2661}#
+ #{alternate\ 2662}#)))
+ (#{make-lambda\ 266}#
+ (lambda (#{src\ 2672}# #{meta\ 2673}# #{body\ 2674}#)
(make-struct
(vector-ref %expanded-vtables 13)
0
- #{src\ 2660}#
- #{meta\ 2661}#
- #{body\ 2662}#)))
- (#{make-sequence\ 254}#
- (lambda (#{src\ 2666}# #{exps\ 2667}#)
+ #{src\ 2672}#
+ #{meta\ 2673}#
+ #{body\ 2674}#)))
+ (#{make-sequence\ 264}#
+ (lambda (#{src\ 2678}# #{exps\ 2679}#)
(make-struct
(vector-ref %expanded-vtables 12)
0
- #{src\ 2666}#
- #{exps\ 2667}#)))
- (#{make-application\ 252}#
- (lambda (#{src\ 2670}# #{proc\ 2671}# #{args\ 2672}#)
+ #{src\ 2678}#
+ #{exps\ 2679}#)))
+ (#{make-application\ 262}#
+ (lambda (#{src\ 2682}# #{proc\ 2683}# #{args\ 2684}#)
(make-struct
(vector-ref %expanded-vtables 11)
0
- #{src\ 2670}#
- #{proc\ 2671}#
- #{args\ 2672}#)))
- (#{make-conditional\ 250}#
- (lambda (#{src\ 2676}#
- #{test\ 2677}#
- #{consequent\ 2678}#
- #{alternate\ 2679}#)
+ #{src\ 2682}#
+ #{proc\ 2683}#
+ #{args\ 2684}#)))
+ (#{make-conditional\ 260}#
+ (lambda (#{src\ 2688}#
+ #{test\ 2689}#
+ #{consequent\ 2690}#
+ #{alternate\ 2691}#)
(make-struct
(vector-ref %expanded-vtables 10)
0
- #{src\ 2676}#
- #{test\ 2677}#
- #{consequent\ 2678}#
- #{alternate\ 2679}#)))
- (#{make-toplevel-define\ 248}#
- (lambda (#{src\ 2684}# #{name\ 2685}# #{exp\ 2686}#)
+ #{src\ 2688}#
+ #{test\ 2689}#
+ #{consequent\ 2690}#
+ #{alternate\ 2691}#)))
+ (#{make-toplevel-define\ 258}#
+ (lambda (#{src\ 2696}# #{name\ 2697}# #{exp\ 2698}#)
(make-struct
(vector-ref %expanded-vtables 9)
0
- #{src\ 2684}#
- #{name\ 2685}#
- #{exp\ 2686}#)))
- (#{make-toplevel-set\ 246}#
- (lambda (#{src\ 2690}# #{name\ 2691}# #{exp\ 2692}#)
+ #{src\ 2696}#
+ #{name\ 2697}#
+ #{exp\ 2698}#)))
+ (#{make-toplevel-set\ 256}#
+ (lambda (#{src\ 2702}# #{name\ 2703}# #{exp\ 2704}#)
(make-struct
(vector-ref %expanded-vtables 8)
0
- #{src\ 2690}#
- #{name\ 2691}#
- #{exp\ 2692}#)))
- (#{make-toplevel-ref\ 244}#
- (lambda (#{src\ 2696}# #{name\ 2697}#)
+ #{src\ 2702}#
+ #{name\ 2703}#
+ #{exp\ 2704}#)))
+ (#{make-toplevel-ref\ 254}#
+ (lambda (#{src\ 2708}# #{name\ 2709}#)
(make-struct
(vector-ref %expanded-vtables 7)
0
- #{src\ 2696}#
- #{name\ 2697}#)))
- (#{make-module-set\ 242}#
- (lambda (#{src\ 2700}#
- #{mod\ 2701}#
- #{name\ 2702}#
- #{public?\ 2703}#
- #{exp\ 2704}#)
+ #{src\ 2708}#
+ #{name\ 2709}#)))
+ (#{make-module-set\ 252}#
+ (lambda (#{src\ 2712}#
+ #{mod\ 2713}#
+ #{name\ 2714}#
+ #{public?\ 2715}#
+ #{exp\ 2716}#)
(make-struct
(vector-ref %expanded-vtables 6)
0
- #{src\ 2700}#
- #{mod\ 2701}#
- #{name\ 2702}#
- #{public?\ 2703}#
- #{exp\ 2704}#)))
- (#{make-module-ref\ 240}#
- (lambda (#{src\ 2710}#
- #{mod\ 2711}#
- #{name\ 2712}#
- #{public?\ 2713}#)
+ #{src\ 2712}#
+ #{mod\ 2713}#
+ #{name\ 2714}#
+ #{public?\ 2715}#
+ #{exp\ 2716}#)))
+ (#{make-module-ref\ 250}#
+ (lambda (#{src\ 2722}#
+ #{mod\ 2723}#
+ #{name\ 2724}#
+ #{public?\ 2725}#)
(make-struct
(vector-ref %expanded-vtables 5)
0
- #{src\ 2710}#
- #{mod\ 2711}#
- #{name\ 2712}#
- #{public?\ 2713}#)))
- (#{make-lexical-set\ 238}#
- (lambda (#{src\ 2718}#
- #{name\ 2719}#
- #{gensym\ 2720}#
- #{exp\ 2721}#)
+ #{src\ 2722}#
+ #{mod\ 2723}#
+ #{name\ 2724}#
+ #{public?\ 2725}#)))
+ (#{make-lexical-set\ 248}#
+ (lambda (#{src\ 2730}#
+ #{name\ 2731}#
+ #{gensym\ 2732}#
+ #{exp\ 2733}#)
(make-struct
(vector-ref %expanded-vtables 4)
0
- #{src\ 2718}#
- #{name\ 2719}#
- #{gensym\ 2720}#
- #{exp\ 2721}#)))
- (#{make-lexical-ref\ 236}#
- (lambda (#{src\ 2726}# #{name\ 2727}# #{gensym\ 2728}#)
+ #{src\ 2730}#
+ #{name\ 2731}#
+ #{gensym\ 2732}#
+ #{exp\ 2733}#)))
+ (#{make-lexical-ref\ 246}#
+ (lambda (#{src\ 2738}# #{name\ 2739}# #{gensym\ 2740}#)
(make-struct
(vector-ref %expanded-vtables 3)
0
- #{src\ 2726}#
- #{name\ 2727}#
- #{gensym\ 2728}#)))
- (#{make-primitive-ref\ 234}#
- (lambda (#{src\ 2732}# #{name\ 2733}#)
+ #{src\ 2738}#
+ #{name\ 2739}#
+ #{gensym\ 2740}#)))
+ (#{make-primitive-ref\ 244}#
+ (lambda (#{src\ 2744}# #{name\ 2745}#)
(make-struct
(vector-ref %expanded-vtables 2)
0
- #{src\ 2732}#
- #{name\ 2733}#)))
- (#{make-const\ 232}#
- (lambda (#{src\ 2736}# #{exp\ 2737}#)
+ #{src\ 2744}#
+ #{name\ 2745}#)))
+ (#{make-const\ 242}#
+ (lambda (#{src\ 2748}# #{exp\ 2749}#)
(make-struct
(vector-ref %expanded-vtables 1)
0
- #{src\ 2736}#
- #{exp\ 2737}#)))
- (#{make-void\ 230}#
- (lambda (#{src\ 2740}#)
+ #{src\ 2748}#
+ #{exp\ 2749}#)))
+ (#{make-void\ 240}#
+ (lambda (#{src\ 2752}#)
(make-struct
(vector-ref %expanded-vtables 0)
0
- #{src\ 2740}#))))
+ #{src\ 2752}#))))
(begin
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2742}#
- #{r\ 2743}#
- #{w\ 2744}#
- #{s\ 2745}#
- #{mod\ 2746}#)
- ((lambda (#{tmp\ 2752}#)
- ((lambda (#{tmp\ 2753}#)
- (if (if #{tmp\ 2753}#
- (apply (lambda (#{_\ 2759}#
- #{var\ 2760}#
- #{val\ 2761}#
- #{e1\ 2762}#
- #{e2\ 2763}#)
- (#{valid-bound-ids?\ 435}# #{var\ 2760}#))
- #{tmp\ 2753}#)
+ (lambda (#{e\ 2754}#
+ #{r\ 2755}#
+ #{w\ 2756}#
+ #{s\ 2757}#
+ #{mod\ 2758}#)
+ ((lambda (#{tmp\ 2764}#)
+ ((lambda (#{tmp\ 2765}#)
+ (if (if #{tmp\ 2765}#
+ (apply (lambda (#{_\ 2771}#
+ #{var\ 2772}#
+ #{val\ 2773}#
+ #{e1\ 2774}#
+ #{e2\ 2775}#)
+ (#{valid-bound-ids?\ 445}# #{var\ 2772}#))
+ #{tmp\ 2765}#)
#f)
- (apply (lambda (#{_\ 2770}#
- #{var\ 2771}#
- #{val\ 2772}#
- #{e1\ 2773}#
- #{e2\ 2774}#)
- (let ((#{names\ 2776}#
- (map (lambda (#{x\ 2777}#)
- (#{id-var-name\ 429}#
- #{x\ 2777}#
- #{w\ 2744}#))
- #{var\ 2771}#)))
+ (apply (lambda (#{_\ 2782}#
+ #{var\ 2783}#
+ #{val\ 2784}#
+ #{e1\ 2785}#
+ #{e2\ 2786}#)
+ (let ((#{names\ 2788}#
+ (map (lambda (#{x\ 2789}#)
+ (#{id-var-name\ 439}#
+ #{x\ 2789}#
+ #{w\ 2756}#))
+ #{var\ 2783}#)))
(begin
(for-each
- (lambda (#{id\ 2780}# #{n\ 2781}#)
- (let ((#{atom-key\ 2786}#
- (#{binding-type\ 355}#
- (#{lookup\ 366}#
- #{n\ 2781}#
- #{r\ 2743}#
- #{mod\ 2746}#))))
- (if (memv #{atom-key\ 2786}#
+ (lambda (#{id\ 2792}# #{n\ 2793}#)
+ (let ((#{atom-key\ 2798}#
+ (#{binding-type\ 365}#
+ (#{lookup\ 376}#
+ #{n\ 2793}#
+ #{r\ 2755}#
+ #{mod\ 2758}#))))
+ (if (memv #{atom-key\ 2798}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2742}#
- (#{source-wrap\ 443}#
- #{id\ 2780}#
- #{w\ 2744}#
- #{s\ 2745}#
- #{mod\ 2746}#)))))
- #{var\ 2771}#
- #{names\ 2776}#)
- (#{chi-body\ 465}#
- (cons #{e1\ 2773}# #{e2\ 2774}#)
- (#{source-wrap\ 443}#
- #{e\ 2742}#
- #{w\ 2744}#
- #{s\ 2745}#
- #{mod\ 2746}#)
- (#{extend-env\ 360}#
- #{names\ 2776}#
- (let ((#{trans-r\ 2791}#
- (#{macros-only-env\ 364}#
- #{r\ 2743}#)))
- (map (lambda (#{x\ 2792}#)
+ #{e\ 2754}#
+ (#{source-wrap\ 453}#
+ #{id\ 2792}#
+ #{w\ 2756}#
+ #{s\ 2757}#
+ #{mod\ 2758}#)))))
+ #{var\ 2783}#
+ #{names\ 2788}#)
+ (#{chi-body\ 475}#
+ (cons #{e1\ 2785}# #{e2\ 2786}#)
+ (#{source-wrap\ 453}#
+ #{e\ 2754}#
+ #{w\ 2756}#
+ #{s\ 2757}#
+ #{mod\ 2758}#)
+ (#{extend-env\ 370}#
+ #{names\ 2788}#
+ (let ((#{trans-r\ 2803}#
+ (#{macros-only-env\ 374}#
+ #{r\ 2755}#)))
+ (map (lambda (#{x\ 2804}#)
(cons 'macro
- (#{eval-local-transformer\ 469}#
- (#{chi\ 457}#
- #{x\ 2792}#
- #{trans-r\ 2791}#
- #{w\ 2744}#
- #{mod\ 2746}#)
- #{mod\ 2746}#)))
- #{val\ 2772}#))
- #{r\ 2743}#)
- #{w\ 2744}#
- #{mod\ 2746}#))))
- #{tmp\ 2753}#)
- ((lambda (#{_\ 2797}#)
+ (#{eval-local-transformer\ 479}#
+ (#{chi\ 467}#
+ #{x\ 2804}#
+ #{trans-r\ 2803}#
+ #{w\ 2756}#
+ #{mod\ 2758}#)
+ #{mod\ 2758}#)))
+ #{val\ 2784}#))
+ #{r\ 2755}#)
+ #{w\ 2756}#
+ #{mod\ 2758}#))))
+ #{tmp\ 2765}#)
+ ((lambda (#{_\ 2809}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 443}#
- #{e\ 2742}#
- #{w\ 2744}#
- #{s\ 2745}#
- #{mod\ 2746}#)))
- #{tmp\ 2752}#)))
+ (#{source-wrap\ 453}#
+ #{e\ 2754}#
+ #{w\ 2756}#
+ #{s\ 2757}#
+ #{mod\ 2758}#)))
+ #{tmp\ 2764}#)))
($sc-dispatch
- #{tmp\ 2752}#
+ #{tmp\ 2764}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2742}#)))
- (#{global-extend\ 368}#
+ #{e\ 2754}#)))
+ (#{global-extend\ 378}#
'core
'quote
- (lambda (#{e\ 2798}#
- #{r\ 2799}#
- #{w\ 2800}#
- #{s\ 2801}#
- #{mod\ 2802}#)
- ((lambda (#{tmp\ 2808}#)
- ((lambda (#{tmp\ 2809}#)
- (if #{tmp\ 2809}#
- (apply (lambda (#{_\ 2812}# #{e\ 2813}#)
- (#{build-data\ 322}#
- #{s\ 2801}#
- (#{strip\ 483}# #{e\ 2813}# #{w\ 2800}#)))
- #{tmp\ 2809}#)
- ((lambda (#{_\ 2815}#)
+ (lambda (#{e\ 2810}#
+ #{r\ 2811}#
+ #{w\ 2812}#
+ #{s\ 2813}#
+ #{mod\ 2814}#)
+ ((lambda (#{tmp\ 2820}#)
+ ((lambda (#{tmp\ 2821}#)
+ (if #{tmp\ 2821}#
+ (apply (lambda (#{_\ 2824}# #{e\ 2825}#)
+ (#{build-data\ 332}#
+ #{s\ 2813}#
+ (#{strip\ 493}# #{e\ 2825}# #{w\ 2812}#)))
+ #{tmp\ 2821}#)
+ ((lambda (#{_\ 2827}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 443}#
- #{e\ 2798}#
- #{w\ 2800}#
- #{s\ 2801}#
- #{mod\ 2802}#)))
- #{tmp\ 2808}#)))
- ($sc-dispatch #{tmp\ 2808}# (quote (any any)))))
- #{e\ 2798}#)))
- (#{global-extend\ 368}#
+ (#{source-wrap\ 453}#
+ #{e\ 2810}#
+ #{w\ 2812}#
+ #{s\ 2813}#
+ #{mod\ 2814}#)))
+ #{tmp\ 2820}#)))
+ ($sc-dispatch #{tmp\ 2820}# (quote (any any)))))
+ #{e\ 2810}#)))
+ (#{global-extend\ 378}#
'core
'syntax
- (letrec ((#{regen\ 2831}#
- (lambda (#{x\ 2832}#)
- (let ((#{atom-key\ 2836}# (car #{x\ 2832}#)))
- (if (memv #{atom-key\ 2836}# (quote (ref)))
- (#{build-lexical-reference\ 300}#
+ (letrec ((#{regen\ 2843}#
+ (lambda (#{x\ 2844}#)
+ (let ((#{atom-key\ 2848}# (car #{x\ 2844}#)))
+ (if (memv #{atom-key\ 2848}# (quote (ref)))
+ (#{build-lexical-reference\ 310}#
'value
#f
- (cadr #{x\ 2832}#)
- (cadr #{x\ 2832}#))
- (if (memv #{atom-key\ 2836}# (quote (primitive)))
- (#{build-primref\ 320}# #f (cadr #{x\ 2832}#))
- (if (memv #{atom-key\ 2836}# (quote (quote)))
- (#{build-data\ 322}# #f (cadr #{x\ 2832}#))
- (if (memv #{atom-key\ 2836}# (quote (lambda)))
- (if (list? (cadr #{x\ 2832}#))
- (#{build-simple-lambda\ 314}#
+ (cadr #{x\ 2844}#)
+ (cadr #{x\ 2844}#))
+ (if (memv #{atom-key\ 2848}# (quote (primitive)))
+ (#{build-primref\ 330}# #f (cadr #{x\ 2844}#))
+ (if (memv #{atom-key\ 2848}# (quote (quote)))
+ (#{build-data\ 332}# #f (cadr #{x\ 2844}#))
+ (if (memv #{atom-key\ 2848}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2844}#))
+ (#{build-simple-lambda\ 324}#
#f
- (cadr #{x\ 2832}#)
+ (cadr #{x\ 2844}#)
#f
- (cadr #{x\ 2832}#)
+ (cadr #{x\ 2844}#)
'()
- (#{regen\ 2831}# (caddr #{x\ 2832}#)))
- (error "how did we get here" #{x\ 2832}#))
- (#{build-application\ 294}#
+ (#{regen\ 2843}# (caddr #{x\ 2844}#)))
+ (error "how did we get here" #{x\ 2844}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 320}# #f (car #{x\ 2832}#))
- (map #{regen\ 2831}#
- (cdr #{x\ 2832}#))))))))))
- (#{gen-vector\ 2829}#
- (lambda (#{x\ 2848}#)
- (if (eq? (car #{x\ 2848}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2848}#))
- (if (eq? (car #{x\ 2848}#) (quote quote))
+ (#{build-primref\ 330}# #f (car #{x\ 2844}#))
+ (map #{regen\ 2843}#
+ (cdr #{x\ 2844}#))))))))))
+ (#{gen-vector\ 2841}#
+ (lambda (#{x\ 2860}#)
+ (if (eq? (car #{x\ 2860}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2860}#))
+ (if (eq? (car #{x\ 2860}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 2848}#)))
- (list (quote list->vector) #{x\ 2848}#)))))
- (#{gen-append\ 2827}#
- (lambda (#{x\ 2858}# #{y\ 2859}#)
- (if (equal? #{y\ 2859}# (quote (quote ())))
- #{x\ 2858}#
- (list (quote append) #{x\ 2858}# #{y\ 2859}#))))
- (#{gen-cons\ 2825}#
- (lambda (#{x\ 2863}# #{y\ 2864}#)
- (let ((#{atom-key\ 2869}# (car #{y\ 2864}#)))
- (if (memv #{atom-key\ 2869}# (quote (quote)))
- (if (eq? (car #{x\ 2863}#) (quote quote))
+ (list->vector (cadr #{x\ 2860}#)))
+ (list (quote list->vector) #{x\ 2860}#)))))
+ (#{gen-append\ 2839}#
+ (lambda (#{x\ 2870}# #{y\ 2871}#)
+ (if (equal? #{y\ 2871}# (quote (quote ())))
+ #{x\ 2870}#
+ (list (quote append) #{x\ 2870}# #{y\ 2871}#))))
+ (#{gen-cons\ 2837}#
+ (lambda (#{x\ 2875}# #{y\ 2876}#)
+ (let ((#{atom-key\ 2881}# (car #{y\ 2876}#)))
+ (if (memv #{atom-key\ 2881}# (quote (quote)))
+ (if (eq? (car #{x\ 2875}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 2863}#) (cadr #{y\ 2864}#)))
- (if (eq? (cadr #{y\ 2864}#) (quote ()))
- (list (quote list) #{x\ 2863}#)
- (list (quote cons) #{x\ 2863}# #{y\ 2864}#)))
- (if (memv #{atom-key\ 2869}# (quote (list)))
+ (cons (cadr #{x\ 2875}#) (cadr #{y\ 2876}#)))
+ (if (eq? (cadr #{y\ 2876}#) (quote ()))
+ (list (quote list) #{x\ 2875}#)
+ (list (quote cons) #{x\ 2875}# #{y\ 2876}#)))
+ (if (memv #{atom-key\ 2881}# (quote (list)))
(cons 'list
- (cons #{x\ 2863}# (cdr #{y\ 2864}#)))
- (list (quote cons) #{x\ 2863}# #{y\ 2864}#))))))
- (#{gen-map\ 2823}#
- (lambda (#{e\ 2878}# #{map-env\ 2879}#)
- (let ((#{formals\ 2884}# (map cdr #{map-env\ 2879}#))
- (#{actuals\ 2885}#
- (map (lambda (#{x\ 2886}#)
- (list (quote ref) (car #{x\ 2886}#)))
- #{map-env\ 2879}#)))
- (if (eq? (car #{e\ 2878}#) (quote ref))
- (car #{actuals\ 2885}#)
+ (cons #{x\ 2875}# (cdr #{y\ 2876}#)))
+ (list (quote cons) #{x\ 2875}# #{y\ 2876}#))))))
+ (#{gen-map\ 2835}#
+ (lambda (#{e\ 2890}# #{map-env\ 2891}#)
+ (let ((#{formals\ 2896}# (map cdr #{map-env\ 2891}#))
+ (#{actuals\ 2897}#
+ (map (lambda (#{x\ 2898}#)
+ (list (quote ref) (car #{x\ 2898}#)))
+ #{map-env\ 2891}#)))
+ (if (eq? (car #{e\ 2890}#) (quote ref))
+ (car #{actuals\ 2897}#)
(if (and-map
- (lambda (#{x\ 2893}#)
- (if (eq? (car #{x\ 2893}#) (quote ref))
- (memq (cadr #{x\ 2893}#) #{formals\ 2884}#)
+ (lambda (#{x\ 2905}#)
+ (if (eq? (car #{x\ 2905}#) (quote ref))
+ (memq (cadr #{x\ 2905}#) #{formals\ 2896}#)
#f))
- (cdr #{e\ 2878}#))
+ (cdr #{e\ 2890}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2878}#))
- (map (let ((#{r\ 2899}#
+ (car #{e\ 2890}#))
+ (map (let ((#{r\ 2911}#
(map cons
- #{formals\ 2884}#
- #{actuals\ 2885}#)))
- (lambda (#{x\ 2900}#)
- (cdr (assq (cadr #{x\ 2900}#)
- #{r\ 2899}#))))
- (cdr #{e\ 2878}#))))
+ #{formals\ 2896}#
+ #{actuals\ 2897}#)))
+ (lambda (#{x\ 2912}#)
+ (cdr (assq (cadr #{x\ 2912}#)
+ #{r\ 2911}#))))
+ (cdr #{e\ 2890}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2884}#
- #{e\ 2878}#)
- #{actuals\ 2885}#)))))))
- (#{gen-mappend\ 2821}#
- (lambda (#{e\ 2904}# #{map-env\ 2905}#)
+ #{formals\ 2896}#
+ #{e\ 2890}#)
+ #{actuals\ 2897}#)))))))
+ (#{gen-mappend\ 2833}#
+ (lambda (#{e\ 2916}# #{map-env\ 2917}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2823}# #{e\ 2904}# #{map-env\ 2905}#))))
- (#{gen-ref\ 2819}#
- (lambda (#{src\ 2909}#
- #{var\ 2910}#
- #{level\ 2911}#
- #{maps\ 2912}#)
- (if (#{fx=\ 277}# #{level\ 2911}# 0)
- (values #{var\ 2910}# #{maps\ 2912}#)
- (if (null? #{maps\ 2912}#)
+ (#{gen-map\ 2835}# #{e\ 2916}# #{map-env\ 2917}#))))
+ (#{gen-ref\ 2831}#
+ (lambda (#{src\ 2921}#
+ #{var\ 2922}#
+ #{level\ 2923}#
+ #{maps\ 2924}#)
+ (if (#{fx=\ 287}# #{level\ 2923}# 0)
+ (values #{var\ 2922}# #{maps\ 2924}#)
+ (if (null? #{maps\ 2924}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2909}#)
+ #{src\ 2921}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2819}#
- #{src\ 2909}#
- #{var\ 2910}#
- (#{fx-\ 275}# #{level\ 2911}# 1)
- (cdr #{maps\ 2912}#)))
- (lambda (#{outer-var\ 2917}# #{outer-maps\ 2918}#)
- (let ((#{b\ 2922}#
- (assq #{outer-var\ 2917}#
- (car #{maps\ 2912}#))))
- (if #{b\ 2922}#
- (values (cdr #{b\ 2922}#) #{maps\ 2912}#)
- (let ((#{inner-var\ 2924}#
- (#{gen-var\ 485}# (quote tmp))))
+ (#{gen-ref\ 2831}#
+ #{src\ 2921}#
+ #{var\ 2922}#
+ (#{fx-\ 285}# #{level\ 2923}# 1)
+ (cdr #{maps\ 2924}#)))
+ (lambda (#{outer-var\ 2929}# #{outer-maps\ 2930}#)
+ (let ((#{b\ 2934}#
+ (assq #{outer-var\ 2929}#
+ (car #{maps\ 2924}#))))
+ (if #{b\ 2934}#
+ (values (cdr #{b\ 2934}#) #{maps\ 2924}#)
+ (let ((#{inner-var\ 2936}#
+ (#{gen-var\ 495}# (quote tmp))))
(values
- #{inner-var\ 2924}#
- (cons (cons (cons #{outer-var\ 2917}#
- #{inner-var\ 2924}#)
- (car #{maps\ 2912}#))
- #{outer-maps\ 2918}#)))))))))))
- (#{gen-syntax\ 2817}#
- (lambda (#{src\ 2925}#
- #{e\ 2926}#
- #{r\ 2927}#
- #{maps\ 2928}#
- #{ellipsis?\ 2929}#
- #{mod\ 2930}#)
- (if (#{id?\ 372}# #{e\ 2926}#)
- (let ((#{label\ 2938}#
- (#{id-var-name\ 429}#
- #{e\ 2926}#
+ #{inner-var\ 2936}#
+ (cons (cons (cons #{outer-var\ 2929}#
+ #{inner-var\ 2936}#)
+ (car #{maps\ 2924}#))
+ #{outer-maps\ 2930}#)))))))))))
+ (#{gen-syntax\ 2829}#
+ (lambda (#{src\ 2937}#
+ #{e\ 2938}#
+ #{r\ 2939}#
+ #{maps\ 2940}#
+ #{ellipsis?\ 2941}#
+ #{mod\ 2942}#)
+ (if (#{id?\ 382}# #{e\ 2938}#)
+ (let ((#{label\ 2950}#
+ (#{id-var-name\ 439}#
+ #{e\ 2938}#
'(()))))
- (let ((#{b\ 2941}#
- (#{lookup\ 366}#
- #{label\ 2938}#
- #{r\ 2927}#
- #{mod\ 2930}#)))
- (if (eq? (#{binding-type\ 355}# #{b\ 2941}#)
+ (let ((#{b\ 2953}#
+ (#{lookup\ 376}#
+ #{label\ 2950}#
+ #{r\ 2939}#
+ #{mod\ 2942}#)))
+ (if (eq? (#{binding-type\ 365}# #{b\ 2953}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 2943}#
- (#{binding-value\ 357}# #{b\ 2941}#)))
- (#{gen-ref\ 2819}#
- #{src\ 2925}#
- (car #{var.lev\ 2943}#)
- (cdr #{var.lev\ 2943}#)
- #{maps\ 2928}#)))
- (lambda (#{var\ 2944}# #{maps\ 2945}#)
+ (let ((#{var.lev\ 2955}#
+ (#{binding-value\ 367}# #{b\ 2953}#)))
+ (#{gen-ref\ 2831}#
+ #{src\ 2937}#
+ (car #{var.lev\ 2955}#)
+ (cdr #{var.lev\ 2955}#)
+ #{maps\ 2940}#)))
+ (lambda (#{var\ 2956}# #{maps\ 2957}#)
(values
- (list (quote ref) #{var\ 2944}#)
- #{maps\ 2945}#)))
- (if (#{ellipsis?\ 2929}# #{e\ 2926}#)
+ (list (quote ref) #{var\ 2956}#)
+ #{maps\ 2957}#)))
+ (if (#{ellipsis?\ 2941}# #{e\ 2938}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2925}#)
+ #{src\ 2937}#)
(values
- (list (quote quote) #{e\ 2926}#)
- #{maps\ 2928}#)))))
- ((lambda (#{tmp\ 2950}#)
- ((lambda (#{tmp\ 2951}#)
- (if (if #{tmp\ 2951}#
- (apply (lambda (#{dots\ 2954}# #{e\ 2955}#)
- (#{ellipsis?\ 2929}#
- #{dots\ 2954}#))
- #{tmp\ 2951}#)
+ (list (quote quote) #{e\ 2938}#)
+ #{maps\ 2940}#)))))
+ ((lambda (#{tmp\ 2962}#)
+ ((lambda (#{tmp\ 2963}#)
+ (if (if #{tmp\ 2963}#
+ (apply (lambda (#{dots\ 2966}# #{e\ 2967}#)
+ (#{ellipsis?\ 2941}#
+ #{dots\ 2966}#))
+ #{tmp\ 2963}#)
#f)
- (apply (lambda (#{dots\ 2958}# #{e\ 2959}#)
- (#{gen-syntax\ 2817}#
- #{src\ 2925}#
- #{e\ 2959}#
- #{r\ 2927}#
- #{maps\ 2928}#
- (lambda (#{x\ 2960}#) #f)
- #{mod\ 2930}#))
- #{tmp\ 2951}#)
- ((lambda (#{tmp\ 2962}#)
- (if (if #{tmp\ 2962}#
- (apply (lambda (#{x\ 2966}#
- #{dots\ 2967}#
- #{y\ 2968}#)
- (#{ellipsis?\ 2929}#
- #{dots\ 2967}#))
- #{tmp\ 2962}#)
+ (apply (lambda (#{dots\ 2970}# #{e\ 2971}#)
+ (#{gen-syntax\ 2829}#
+ #{src\ 2937}#
+ #{e\ 2971}#
+ #{r\ 2939}#
+ #{maps\ 2940}#
+ (lambda (#{x\ 2972}#) #f)
+ #{mod\ 2942}#))
+ #{tmp\ 2963}#)
+ ((lambda (#{tmp\ 2974}#)
+ (if (if #{tmp\ 2974}#
+ (apply (lambda (#{x\ 2978}#
+ #{dots\ 2979}#
+ #{y\ 2980}#)
+ (#{ellipsis?\ 2941}#
+ #{dots\ 2979}#))
+ #{tmp\ 2974}#)
#f)
- (apply (lambda (#{x\ 2972}#
- #{dots\ 2973}#
- #{y\ 2974}#)
- (letrec ((#{f\ 2978}#
- (lambda (#{y\ 2979}#
- #{k\ 2980}#)
- ((lambda (#{tmp\ 2987}#)
- ((lambda (#{tmp\ 2988}#)
- (if (if #{tmp\ 2988}#
- (apply (lambda (#{dots\ 2991}#
- #{y\ 2992}#)
- (#{ellipsis?\ 2929}#
- #{dots\ 2991}#))
- #{tmp\ 2988}#)
+ (apply (lambda (#{x\ 2984}#
+ #{dots\ 2985}#
+ #{y\ 2986}#)
+ (letrec ((#{f\ 2990}#
+ (lambda (#{y\ 2991}#
+ #{k\ 2992}#)
+ ((lambda (#{tmp\ 2999}#)
+ ((lambda (#{tmp\ 3000}#)
+ (if (if #{tmp\ 3000}#
+ (apply (lambda (#{dots\ 3003}#
+ #{y\ 3004}#)
+ (#{ellipsis?\ 2941}#
+ #{dots\ 3003}#))
+ #{tmp\ 3000}#)
#f)
- (apply (lambda (#{dots\ 2995}#
- #{y\ 2996}#)
- (#{f\ 2978}#
- #{y\ 2996}#
- (lambda (#{maps\ 2997}#)
+ (apply (lambda (#{dots\ 3007}#
+ #{y\ 3008}#)
+ (#{f\ 2990}#
+ #{y\ 3008}#
+ (lambda (#{maps\ 3009}#)
(call-with-values
(lambda ()
- (#{k\ 2980}#
+ (#{k\ 2992}#
(cons '()
- #{maps\ 2997}#)))
- (lambda (#{x\ 2999}#
- #{maps\ 3000}#)
- (if (null? (car #{maps\ 3000}#))
+ #{maps\ 3009}#)))
+ (lambda (#{x\ 3011}#
+ #{maps\ 3012}#)
+ (if (null? (car #{maps\ 3012}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2925}#)
+ #{src\ 2937}#)
(values
- (#{gen-mappend\ 2821}#
- #{x\ 2999}#
- (car #{maps\ 3000}#))
- (cdr #{maps\ 3000}#))))))))
- #{tmp\ 2988}#)
- ((lambda (#{_\ 3004}#)
+ (#{gen-mappend\ 2833}#
+ #{x\ 3011}#
+ (car #{maps\ 3012}#))
+ (cdr #{maps\ 3012}#))))))))
+ #{tmp\ 3000}#)
+ ((lambda (#{_\ 3016}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2817}#
- #{src\ 2925}#
- #{y\ 2979}#
- #{r\ 2927}#
- #{maps\ 2928}#
- #{ellipsis?\ 2929}#
- #{mod\ 2930}#))
- (lambda (#{y\ 3005}#
- #{maps\ 3006}#)
+ (#{gen-syntax\ 2829}#
+ #{src\ 2937}#
+ #{y\ 2991}#
+ #{r\ 2939}#
+ #{maps\ 2940}#
+ #{ellipsis?\ 2941}#
+ #{mod\ 2942}#))
+ (lambda (#{y\ 3017}#
+ #{maps\ 3018}#)
(call-with-values
(lambda ()
- (#{k\ 2980}#
- #{maps\ 3006}#))
- (lambda (#{x\ 3009}#
- #{maps\ 3010}#)
+ (#{k\ 2992}#
+ #{maps\ 3018}#))
+ (lambda (#{x\ 3021}#
+ #{maps\ 3022}#)
(values
- (#{gen-append\ 2827}#
- #{x\ 3009}#
- #{y\ 3005}#)
- #{maps\ 3010}#))))))
- #{tmp\ 2987}#)))
+ (#{gen-append\ 2839}#
+ #{x\ 3021}#
+ #{y\ 3017}#)
+ #{maps\ 3022}#))))))
+ #{tmp\ 2999}#)))
($sc-dispatch
- #{tmp\ 2987}#
+ #{tmp\ 2999}#
'(any . any))))
- #{y\ 2979}#))))
- (#{f\ 2978}#
- #{y\ 2974}#
- (lambda (#{maps\ 2981}#)
+ #{y\ 2991}#))))
+ (#{f\ 2990}#
+ #{y\ 2986}#
+ (lambda (#{maps\ 2993}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2817}#
- #{src\ 2925}#
- #{x\ 2972}#
- #{r\ 2927}#
+ (#{gen-syntax\ 2829}#
+ #{src\ 2937}#
+ #{x\ 2984}#
+ #{r\ 2939}#
(cons '()
- #{maps\ 2981}#)
- #{ellipsis?\ 2929}#
- #{mod\ 2930}#))
- (lambda (#{x\ 2983}#
- #{maps\ 2984}#)
- (if (null? (car #{maps\ 2984}#))
+ #{maps\ 2993}#)
+ #{ellipsis?\ 2941}#
+ #{mod\ 2942}#))
+ (lambda (#{x\ 2995}#
+ #{maps\ 2996}#)
+ (if (null? (car #{maps\ 2996}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2925}#)
+ #{src\ 2937}#)
(values
- (#{gen-map\ 2823}#
- #{x\ 2983}#
- (car #{maps\ 2984}#))
- (cdr #{maps\ 2984}#)))))))))
- #{tmp\ 2962}#)
- ((lambda (#{tmp\ 3013}#)
- (if #{tmp\ 3013}#
- (apply (lambda (#{x\ 3016}#
- #{y\ 3017}#)
+ (#{gen-map\ 2835}#
+ #{x\ 2995}#
+ (car #{maps\ 2996}#))
+ (cdr #{maps\ 2996}#)))))))))
+ #{tmp\ 2974}#)
+ ((lambda (#{tmp\ 3025}#)
+ (if #{tmp\ 3025}#
+ (apply (lambda (#{x\ 3028}#
+ #{y\ 3029}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2817}#
- #{src\ 2925}#
- #{x\ 3016}#
- #{r\ 2927}#
- #{maps\ 2928}#
- #{ellipsis?\ 2929}#
- #{mod\ 2930}#))
- (lambda (#{x\ 3018}#
- #{maps\ 3019}#)
+ (#{gen-syntax\ 2829}#
+ #{src\ 2937}#
+ #{x\ 3028}#
+ #{r\ 2939}#
+ #{maps\ 2940}#
+ #{ellipsis?\ 2941}#
+ #{mod\ 2942}#))
+ (lambda (#{x\ 3030}#
+ #{maps\ 3031}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2817}#
- #{src\ 2925}#
- #{y\ 3017}#
- #{r\ 2927}#
- #{maps\ 3019}#
- #{ellipsis?\ 2929}#
- #{mod\ 2930}#))
- (lambda (#{y\ 3022}#
- #{maps\ 3023}#)
+ (#{gen-syntax\ 2829}#
+ #{src\ 2937}#
+ #{y\ 3029}#
+ #{r\ 2939}#
+ #{maps\ 3031}#
+ #{ellipsis?\ 2941}#
+ #{mod\ 2942}#))
+ (lambda (#{y\ 3034}#
+ #{maps\ 3035}#)
(values
- (#{gen-cons\ 2825}#
- #{x\ 3018}#
- #{y\ 3022}#)
- #{maps\ 3023}#))))))
- #{tmp\ 3013}#)
- ((lambda (#{tmp\ 3026}#)
- (if #{tmp\ 3026}#
- (apply (lambda (#{e1\ 3029}#
- #{e2\ 3030}#)
+ (#{gen-cons\ 2837}#
+ #{x\ 3030}#
+ #{y\ 3034}#)
+ #{maps\ 3035}#))))))
+ #{tmp\ 3025}#)
+ ((lambda (#{tmp\ 3038}#)
+ (if #{tmp\ 3038}#
+ (apply (lambda (#{e1\ 3041}#
+ #{e2\ 3042}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2817}#
- #{src\ 2925}#
- (cons #{e1\ 3029}#
- #{e2\ 3030}#)
- #{r\ 2927}#
- #{maps\ 2928}#
- #{ellipsis?\ 2929}#
- #{mod\ 2930}#))
- (lambda (#{e\ 3032}#
- #{maps\ 3033}#)
+ (#{gen-syntax\ 2829}#
+ #{src\ 2937}#
+ (cons #{e1\ 3041}#
+ #{e2\ 3042}#)
+ #{r\ 2939}#
+ #{maps\ 2940}#
+ #{ellipsis?\ 2941}#
+ #{mod\ 2942}#))
+ (lambda (#{e\ 3044}#
+ #{maps\ 3045}#)
(values
- (#{gen-vector\ 2829}#
- #{e\ 3032}#)
- #{maps\ 3033}#))))
- #{tmp\ 3026}#)
- ((lambda (#{_\ 3037}#)
+ (#{gen-vector\ 2841}#
+ #{e\ 3044}#)
+ #{maps\ 3045}#))))
+ #{tmp\ 3038}#)
+ ((lambda (#{_\ 3049}#)
(values
(list 'quote
- #{e\ 2926}#)
- #{maps\ 2928}#))
- #{tmp\ 2950}#)))
+ #{e\ 2938}#)
+ #{maps\ 2940}#))
+ #{tmp\ 2962}#)))
($sc-dispatch
- #{tmp\ 2950}#
+ #{tmp\ 2962}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 2950}#
+ #{tmp\ 2962}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2950}#
+ #{tmp\ 2962}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 2950}# (quote (any any)))))
- #{e\ 2926}#)))))
- (lambda (#{e\ 3039}#
- #{r\ 3040}#
- #{w\ 3041}#
- #{s\ 3042}#
- #{mod\ 3043}#)
- (let ((#{e\ 3050}#
- (#{source-wrap\ 443}#
- #{e\ 3039}#
- #{w\ 3041}#
- #{s\ 3042}#
- #{mod\ 3043}#)))
- ((lambda (#{tmp\ 3051}#)
- ((lambda (#{tmp\ 3052}#)
- (if #{tmp\ 3052}#
- (apply (lambda (#{_\ 3055}# #{x\ 3056}#)
+ ($sc-dispatch #{tmp\ 2962}# (quote (any any)))))
+ #{e\ 2938}#)))))
+ (lambda (#{e\ 3051}#
+ #{r\ 3052}#
+ #{w\ 3053}#
+ #{s\ 3054}#
+ #{mod\ 3055}#)
+ (let ((#{e\ 3062}#
+ (#{source-wrap\ 453}#
+ #{e\ 3051}#
+ #{w\ 3053}#
+ #{s\ 3054}#
+ #{mod\ 3055}#)))
+ ((lambda (#{tmp\ 3063}#)
+ ((lambda (#{tmp\ 3064}#)
+ (if #{tmp\ 3064}#
+ (apply (lambda (#{_\ 3067}# #{x\ 3068}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2817}#
- #{e\ 3050}#
- #{x\ 3056}#
- #{r\ 3040}#
+ (#{gen-syntax\ 2829}#
+ #{e\ 3062}#
+ #{x\ 3068}#
+ #{r\ 3052}#
'()
- #{ellipsis?\ 473}#
- #{mod\ 3043}#))
- (lambda (#{e\ 3057}# #{maps\ 3058}#)
- (#{regen\ 2831}# #{e\ 3057}#))))
- #{tmp\ 3052}#)
- ((lambda (#{_\ 3062}#)
+ #{ellipsis?\ 483}#
+ #{mod\ 3055}#))
+ (lambda (#{e\ 3069}# #{maps\ 3070}#)
+ (#{regen\ 2843}# #{e\ 3069}#))))
+ #{tmp\ 3064}#)
+ ((lambda (#{_\ 3074}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3050}#))
- #{tmp\ 3051}#)))
- ($sc-dispatch #{tmp\ 3051}# (quote (any any)))))
- #{e\ 3050}#)))))
- (#{global-extend\ 368}#
+ #{e\ 3062}#))
+ #{tmp\ 3063}#)))
+ ($sc-dispatch #{tmp\ 3063}# (quote (any any)))))
+ #{e\ 3062}#)))))
+ (#{global-extend\ 378}#
'core
'lambda
- (lambda (#{e\ 3063}#
- #{r\ 3064}#
- #{w\ 3065}#
- #{s\ 3066}#
- #{mod\ 3067}#)
- ((lambda (#{tmp\ 3073}#)
- ((lambda (#{tmp\ 3074}#)
- (if #{tmp\ 3074}#
- (apply (lambda (#{_\ 3079}#
- #{args\ 3080}#
- #{e1\ 3081}#
- #{e2\ 3082}#)
+ (lambda (#{e\ 3075}#
+ #{r\ 3076}#
+ #{w\ 3077}#
+ #{s\ 3078}#
+ #{mod\ 3079}#)
+ ((lambda (#{tmp\ 3085}#)
+ ((lambda (#{tmp\ 3086}#)
+ (if #{tmp\ 3086}#
+ (apply (lambda (#{_\ 3091}#
+ #{args\ 3092}#
+ #{e1\ 3093}#
+ #{e2\ 3094}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 475}# #{args\ 3080}#))
- (lambda (#{req\ 3083}#
- #{opt\ 3084}#
- #{rest\ 3085}#
- #{kw\ 3086}#)
- (letrec ((#{lp\ 3094}#
- (lambda (#{body\ 3095}#
- #{meta\ 3096}#)
- ((lambda (#{tmp\ 3098}#)
- ((lambda (#{tmp\ 3099}#)
- (if (if #{tmp\ 3099}#
- (apply (lambda (#{docstring\ 3103}#
- #{e1\ 3104}#
- #{e2\ 3105}#)
+ (#{lambda-formals\ 485}# #{args\ 3092}#))
+ (lambda (#{req\ 3095}#
+ #{opt\ 3096}#
+ #{rest\ 3097}#
+ #{kw\ 3098}#)
+ (letrec ((#{lp\ 3106}#
+ (lambda (#{body\ 3107}#
+ #{meta\ 3108}#)
+ ((lambda (#{tmp\ 3110}#)
+ ((lambda (#{tmp\ 3111}#)
+ (if (if #{tmp\ 3111}#
+ (apply (lambda (#{docstring\ 3115}#
+ #{e1\ 3116}#
+ #{e2\ 3117}#)
(string?
(syntax->datum
- #{docstring\ 3103}#)))
- #{tmp\ 3099}#)
+ #{docstring\ 3115}#)))
+ #{tmp\ 3111}#)
#f)
- (apply (lambda (#{docstring\ 3109}#
- #{e1\ 3110}#
- #{e2\ 3111}#)
- (#{lp\ 3094}#
- (cons #{e1\ 3110}#
- #{e2\ 3111}#)
+ (apply (lambda (#{docstring\ 3121}#
+ #{e1\ 3122}#
+ #{e2\ 3123}#)
+ (#{lp\ 3106}#
+ (cons #{e1\ 3122}#
+ #{e2\ 3123}#)
(append
- #{meta\ 3096}#
+ #{meta\ 3108}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 3109}#))))))
- #{tmp\ 3099}#)
- ((lambda (#{tmp\ 3114}#)
- (if #{tmp\ 3114}#
- (apply (lambda (#{k\ 3119}#
- #{v\ 3120}#
- #{e1\ 3121}#
- #{e2\ 3122}#)
- (#{lp\ 3094}#
- (cons #{e1\ 3121}#
- #{e2\ 3122}#)
+ #{docstring\ 3121}#))))))
+ #{tmp\ 3111}#)
+ ((lambda (#{tmp\ 3126}#)
+ (if #{tmp\ 3126}#
+ (apply (lambda (#{k\ 3131}#
+ #{v\ 3132}#
+ #{e1\ 3133}#
+ #{e2\ 3134}#)
+ (#{lp\ 3106}#
+ (cons #{e1\ 3133}#
+ #{e2\ 3134}#)
(append
- #{meta\ 3096}#
+ #{meta\ 3108}#
(syntax->datum
(map cons
- #{k\ 3119}#
- #{v\ 3120}#)))))
- #{tmp\ 3114}#)
- ((lambda (#{_\ 3127}#)
- (#{chi-simple-lambda\ 477}#
- #{e\ 3063}#
- #{r\ 3064}#
- #{w\ 3065}#
- #{s\ 3066}#
- #{mod\ 3067}#
- #{req\ 3083}#
- #{rest\ 3085}#
- #{meta\ 3096}#
- #{body\ 3095}#))
- #{tmp\ 3098}#)))
+ #{k\ 3131}#
+ #{v\ 3132}#)))))
+ #{tmp\ 3126}#)
+ ((lambda (#{_\ 3139}#)
+ (#{chi-simple-lambda\ 487}#
+ #{e\ 3075}#
+ #{r\ 3076}#
+ #{w\ 3077}#
+ #{s\ 3078}#
+ #{mod\ 3079}#
+ #{req\ 3095}#
+ #{rest\ 3097}#
+ #{meta\ 3108}#
+ #{body\ 3107}#))
+ #{tmp\ 3110}#)))
($sc-dispatch
- #{tmp\ 3098}#
+ #{tmp\ 3110}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 3098}#
+ #{tmp\ 3110}#
'(any any . each-any))))
- #{body\ 3095}#))))
- (#{lp\ 3094}#
- (cons #{e1\ 3081}# #{e2\ 3082}#)
+ #{body\ 3107}#))))
+ (#{lp\ 3106}#
+ (cons #{e1\ 3093}# #{e2\ 3094}#)
'())))))
- #{tmp\ 3074}#)
- ((lambda (#{_\ 3129}#)
+ #{tmp\ 3086}#)
+ ((lambda (#{_\ 3141}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3063}#))
- #{tmp\ 3073}#)))
+ #{e\ 3075}#))
+ #{tmp\ 3085}#)))
($sc-dispatch
- #{tmp\ 3073}#
+ #{tmp\ 3085}#
'(any any any . each-any))))
- #{e\ 3063}#)))
- (#{global-extend\ 368}#
+ #{e\ 3075}#)))
+ (#{global-extend\ 378}#
'core
'lambda*
- (lambda (#{e\ 3130}#
- #{r\ 3131}#
- #{w\ 3132}#
- #{s\ 3133}#
- #{mod\ 3134}#)
- ((lambda (#{tmp\ 3140}#)
- ((lambda (#{tmp\ 3141}#)
- (if #{tmp\ 3141}#
- (apply (lambda (#{_\ 3146}#
- #{args\ 3147}#
- #{e1\ 3148}#
- #{e2\ 3149}#)
+ (lambda (#{e\ 3142}#
+ #{r\ 3143}#
+ #{w\ 3144}#
+ #{s\ 3145}#
+ #{mod\ 3146}#)
+ ((lambda (#{tmp\ 3152}#)
+ ((lambda (#{tmp\ 3153}#)
+ (if #{tmp\ 3153}#
+ (apply (lambda (#{_\ 3158}#
+ #{args\ 3159}#
+ #{e1\ 3160}#
+ #{e2\ 3161}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 481}#
- #{e\ 3130}#
- #{r\ 3131}#
- #{w\ 3132}#
- #{s\ 3133}#
- #{mod\ 3134}#
- #{lambda*-formals\ 479}#
- (list (cons #{args\ 3147}#
- (cons #{e1\ 3148}#
- #{e2\ 3149}#)))))
- (lambda (#{meta\ 3151}# #{lcase\ 3152}#)
- (#{build-case-lambda\ 316}#
- #{s\ 3133}#
- #{meta\ 3151}#
- #{lcase\ 3152}#))))
- #{tmp\ 3141}#)
- ((lambda (#{_\ 3156}#)
+ (#{chi-lambda-case\ 491}#
+ #{e\ 3142}#
+ #{r\ 3143}#
+ #{w\ 3144}#
+ #{s\ 3145}#
+ #{mod\ 3146}#
+ #{lambda*-formals\ 489}#
+ (list (cons #{args\ 3159}#
+ (cons #{e1\ 3160}#
+ #{e2\ 3161}#)))))
+ (lambda (#{meta\ 3163}# #{lcase\ 3164}#)
+ (#{build-case-lambda\ 326}#
+ #{s\ 3145}#
+ #{meta\ 3163}#
+ #{lcase\ 3164}#))))
+ #{tmp\ 3153}#)
+ ((lambda (#{_\ 3168}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3130}#))
- #{tmp\ 3140}#)))
+ #{e\ 3142}#))
+ #{tmp\ 3152}#)))
($sc-dispatch
- #{tmp\ 3140}#
+ #{tmp\ 3152}#
'(any any any . each-any))))
- #{e\ 3130}#)))
- (#{global-extend\ 368}#
+ #{e\ 3142}#)))
+ (#{global-extend\ 378}#
'core
'case-lambda
- (lambda (#{e\ 3157}#
- #{r\ 3158}#
- #{w\ 3159}#
- #{s\ 3160}#
- #{mod\ 3161}#)
- ((lambda (#{tmp\ 3167}#)
- ((lambda (#{tmp\ 3168}#)
- (if #{tmp\ 3168}#
- (apply (lambda (#{_\ 3176}#
- #{args\ 3177}#
- #{e1\ 3178}#
- #{e2\ 3179}#
- #{args*\ 3180}#
- #{e1*\ 3181}#
- #{e2*\ 3182}#)
+ (lambda (#{e\ 3169}#
+ #{r\ 3170}#
+ #{w\ 3171}#
+ #{s\ 3172}#
+ #{mod\ 3173}#)
+ ((lambda (#{tmp\ 3179}#)
+ ((lambda (#{tmp\ 3180}#)
+ (if #{tmp\ 3180}#
+ (apply (lambda (#{_\ 3188}#
+ #{args\ 3189}#
+ #{e1\ 3190}#
+ #{e2\ 3191}#
+ #{args*\ 3192}#
+ #{e1*\ 3193}#
+ #{e2*\ 3194}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 481}#
- #{e\ 3157}#
- #{r\ 3158}#
- #{w\ 3159}#
- #{s\ 3160}#
- #{mod\ 3161}#
- #{lambda-formals\ 475}#
- (cons (cons #{args\ 3177}#
- (cons #{e1\ 3178}# #{e2\ 3179}#))
- (map (lambda (#{tmp\ 3186}#
- #{tmp\ 3185}#
- #{tmp\ 3184}#)
- (cons #{tmp\ 3184}#
- (cons #{tmp\ 3185}#
- #{tmp\ 3186}#)))
- #{e2*\ 3182}#
- #{e1*\ 3181}#
- #{args*\ 3180}#))))
- (lambda (#{meta\ 3188}# #{lcase\ 3189}#)
- (#{build-case-lambda\ 316}#
- #{s\ 3160}#
- #{meta\ 3188}#
- #{lcase\ 3189}#))))
- #{tmp\ 3168}#)
- ((lambda (#{_\ 3193}#)
+ (#{chi-lambda-case\ 491}#
+ #{e\ 3169}#
+ #{r\ 3170}#
+ #{w\ 3171}#
+ #{s\ 3172}#
+ #{mod\ 3173}#
+ #{lambda-formals\ 485}#
+ (cons (cons #{args\ 3189}#
+ (cons #{e1\ 3190}# #{e2\ 3191}#))
+ (map (lambda (#{tmp\ 3198}#
+ #{tmp\ 3197}#
+ #{tmp\ 3196}#)
+ (cons #{tmp\ 3196}#
+ (cons #{tmp\ 3197}#
+ #{tmp\ 3198}#)))
+ #{e2*\ 3194}#
+ #{e1*\ 3193}#
+ #{args*\ 3192}#))))
+ (lambda (#{meta\ 3200}# #{lcase\ 3201}#)
+ (#{build-case-lambda\ 326}#
+ #{s\ 3172}#
+ #{meta\ 3200}#
+ #{lcase\ 3201}#))))
+ #{tmp\ 3180}#)
+ ((lambda (#{_\ 3205}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3157}#))
- #{tmp\ 3167}#)))
+ #{e\ 3169}#))
+ #{tmp\ 3179}#)))
($sc-dispatch
- #{tmp\ 3167}#
+ #{tmp\ 3179}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3157}#)))
- (#{global-extend\ 368}#
+ #{e\ 3169}#)))
+ (#{global-extend\ 378}#
'core
'case-lambda*
- (lambda (#{e\ 3194}#
- #{r\ 3195}#
- #{w\ 3196}#
- #{s\ 3197}#
- #{mod\ 3198}#)
- ((lambda (#{tmp\ 3204}#)
- ((lambda (#{tmp\ 3205}#)
- (if #{tmp\ 3205}#
- (apply (lambda (#{_\ 3213}#
- #{args\ 3214}#
- #{e1\ 3215}#
- #{e2\ 3216}#
- #{args*\ 3217}#
- #{e1*\ 3218}#
- #{e2*\ 3219}#)
+ (lambda (#{e\ 3206}#
+ #{r\ 3207}#
+ #{w\ 3208}#
+ #{s\ 3209}#
+ #{mod\ 3210}#)
+ ((lambda (#{tmp\ 3216}#)
+ ((lambda (#{tmp\ 3217}#)
+ (if #{tmp\ 3217}#
+ (apply (lambda (#{_\ 3225}#
+ #{args\ 3226}#
+ #{e1\ 3227}#
+ #{e2\ 3228}#
+ #{args*\ 3229}#
+ #{e1*\ 3230}#
+ #{e2*\ 3231}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 481}#
- #{e\ 3194}#
- #{r\ 3195}#
- #{w\ 3196}#
- #{s\ 3197}#
- #{mod\ 3198}#
- #{lambda*-formals\ 479}#
- (cons (cons #{args\ 3214}#
- (cons #{e1\ 3215}# #{e2\ 3216}#))
- (map (lambda (#{tmp\ 3223}#
- #{tmp\ 3222}#
- #{tmp\ 3221}#)
- (cons #{tmp\ 3221}#
- (cons #{tmp\ 3222}#
- #{tmp\ 3223}#)))
- #{e2*\ 3219}#
- #{e1*\ 3218}#
- #{args*\ 3217}#))))
- (lambda (#{meta\ 3225}# #{lcase\ 3226}#)
- (#{build-case-lambda\ 316}#
- #{s\ 3197}#
- #{meta\ 3225}#
- #{lcase\ 3226}#))))
- #{tmp\ 3205}#)
- ((lambda (#{_\ 3230}#)
+ (#{chi-lambda-case\ 491}#
+ #{e\ 3206}#
+ #{r\ 3207}#
+ #{w\ 3208}#
+ #{s\ 3209}#
+ #{mod\ 3210}#
+ #{lambda*-formals\ 489}#
+ (cons (cons #{args\ 3226}#
+ (cons #{e1\ 3227}# #{e2\ 3228}#))
+ (map (lambda (#{tmp\ 3235}#
+ #{tmp\ 3234}#
+ #{tmp\ 3233}#)
+ (cons #{tmp\ 3233}#
+ (cons #{tmp\ 3234}#
+ #{tmp\ 3235}#)))
+ #{e2*\ 3231}#
+ #{e1*\ 3230}#
+ #{args*\ 3229}#))))
+ (lambda (#{meta\ 3237}# #{lcase\ 3238}#)
+ (#{build-case-lambda\ 326}#
+ #{s\ 3209}#
+ #{meta\ 3237}#
+ #{lcase\ 3238}#))))
+ #{tmp\ 3217}#)
+ ((lambda (#{_\ 3242}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3194}#))
- #{tmp\ 3204}#)))
+ #{e\ 3206}#))
+ #{tmp\ 3216}#)))
($sc-dispatch
- #{tmp\ 3204}#
+ #{tmp\ 3216}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3194}#)))
- (#{global-extend\ 368}#
+ #{e\ 3206}#)))
+ (#{global-extend\ 378}#
'core
'let
- (letrec ((#{chi-let\ 3232}#
- (lambda (#{e\ 3233}#
- #{r\ 3234}#
- #{w\ 3235}#
- #{s\ 3236}#
- #{mod\ 3237}#
- #{constructor\ 3238}#
- #{ids\ 3239}#
- #{vals\ 3240}#
- #{exps\ 3241}#)
- (if (not (#{valid-bound-ids?\ 435}# #{ids\ 3239}#))
+ (letrec ((#{chi-let\ 3244}#
+ (lambda (#{e\ 3245}#
+ #{r\ 3246}#
+ #{w\ 3247}#
+ #{s\ 3248}#
+ #{mod\ 3249}#
+ #{constructor\ 3250}#
+ #{ids\ 3251}#
+ #{vals\ 3252}#
+ #{exps\ 3253}#)
+ (if (not (#{valid-bound-ids?\ 445}# #{ids\ 3251}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3233}#)
- (let ((#{labels\ 3253}#
- (#{gen-labels\ 390}# #{ids\ 3239}#))
- (#{new-vars\ 3254}#
- (map #{gen-var\ 485}# #{ids\ 3239}#)))
- (let ((#{nw\ 3257}#
- (#{make-binding-wrap\ 419}#
- #{ids\ 3239}#
- #{labels\ 3253}#
- #{w\ 3235}#))
- (#{nr\ 3258}#
- (#{extend-var-env\ 362}#
- #{labels\ 3253}#
- #{new-vars\ 3254}#
- #{r\ 3234}#)))
- (#{constructor\ 3238}#
- #{s\ 3236}#
- (map syntax->datum #{ids\ 3239}#)
- #{new-vars\ 3254}#
- (map (lambda (#{x\ 3259}#)
- (#{chi\ 457}#
- #{x\ 3259}#
- #{r\ 3234}#
- #{w\ 3235}#
- #{mod\ 3237}#))
- #{vals\ 3240}#)
- (#{chi-body\ 465}#
- #{exps\ 3241}#
- (#{source-wrap\ 443}#
- #{e\ 3233}#
- #{nw\ 3257}#
- #{s\ 3236}#
- #{mod\ 3237}#)
- #{nr\ 3258}#
- #{nw\ 3257}#
- #{mod\ 3237}#))))))))
- (lambda (#{e\ 3261}#
- #{r\ 3262}#
- #{w\ 3263}#
- #{s\ 3264}#
- #{mod\ 3265}#)
- ((lambda (#{tmp\ 3271}#)
- ((lambda (#{tmp\ 3272}#)
- (if (if #{tmp\ 3272}#
- (apply (lambda (#{_\ 3278}#
- #{id\ 3279}#
- #{val\ 3280}#
- #{e1\ 3281}#
- #{e2\ 3282}#)
- (and-map #{id?\ 372}# #{id\ 3279}#))
- #{tmp\ 3272}#)
+ #{e\ 3245}#)
+ (let ((#{labels\ 3265}#
+ (#{gen-labels\ 400}# #{ids\ 3251}#))
+ (#{new-vars\ 3266}#
+ (map #{gen-var\ 495}# #{ids\ 3251}#)))
+ (let ((#{nw\ 3269}#
+ (#{make-binding-wrap\ 429}#
+ #{ids\ 3251}#
+ #{labels\ 3265}#
+ #{w\ 3247}#))
+ (#{nr\ 3270}#
+ (#{extend-var-env\ 372}#
+ #{labels\ 3265}#
+ #{new-vars\ 3266}#
+ #{r\ 3246}#)))
+ (#{constructor\ 3250}#
+ #{s\ 3248}#
+ (map syntax->datum #{ids\ 3251}#)
+ #{new-vars\ 3266}#
+ (map (lambda (#{x\ 3271}#)
+ (#{chi\ 467}#
+ #{x\ 3271}#
+ #{r\ 3246}#
+ #{w\ 3247}#
+ #{mod\ 3249}#))
+ #{vals\ 3252}#)
+ (#{chi-body\ 475}#
+ #{exps\ 3253}#
+ (#{source-wrap\ 453}#
+ #{e\ 3245}#
+ #{nw\ 3269}#
+ #{s\ 3248}#
+ #{mod\ 3249}#)
+ #{nr\ 3270}#
+ #{nw\ 3269}#
+ #{mod\ 3249}#))))))))
+ (lambda (#{e\ 3273}#
+ #{r\ 3274}#
+ #{w\ 3275}#
+ #{s\ 3276}#
+ #{mod\ 3277}#)
+ ((lambda (#{tmp\ 3283}#)
+ ((lambda (#{tmp\ 3284}#)
+ (if (if #{tmp\ 3284}#
+ (apply (lambda (#{_\ 3290}#
+ #{id\ 3291}#
+ #{val\ 3292}#
+ #{e1\ 3293}#
+ #{e2\ 3294}#)
+ (and-map #{id?\ 382}# #{id\ 3291}#))
+ #{tmp\ 3284}#)
#f)
- (apply (lambda (#{_\ 3289}#
- #{id\ 3290}#
- #{val\ 3291}#
- #{e1\ 3292}#
- #{e2\ 3293}#)
- (#{chi-let\ 3232}#
- #{e\ 3261}#
- #{r\ 3262}#
- #{w\ 3263}#
- #{s\ 3264}#
- #{mod\ 3265}#
- #{build-let\ 326}#
- #{id\ 3290}#
- #{val\ 3291}#
- (cons #{e1\ 3292}# #{e2\ 3293}#)))
- #{tmp\ 3272}#)
- ((lambda (#{tmp\ 3297}#)
- (if (if #{tmp\ 3297}#
- (apply (lambda (#{_\ 3304}#
- #{f\ 3305}#
- #{id\ 3306}#
- #{val\ 3307}#
- #{e1\ 3308}#
- #{e2\ 3309}#)
- (if (#{id?\ 372}# #{f\ 3305}#)
- (and-map #{id?\ 372}# #{id\ 3306}#)
+ (apply (lambda (#{_\ 3301}#
+ #{id\ 3302}#
+ #{val\ 3303}#
+ #{e1\ 3304}#
+ #{e2\ 3305}#)
+ (#{chi-let\ 3244}#
+ #{e\ 3273}#
+ #{r\ 3274}#
+ #{w\ 3275}#
+ #{s\ 3276}#
+ #{mod\ 3277}#
+ #{build-let\ 336}#
+ #{id\ 3302}#
+ #{val\ 3303}#
+ (cons #{e1\ 3304}# #{e2\ 3305}#)))
+ #{tmp\ 3284}#)
+ ((lambda (#{tmp\ 3309}#)
+ (if (if #{tmp\ 3309}#
+ (apply (lambda (#{_\ 3316}#
+ #{f\ 3317}#
+ #{id\ 3318}#
+ #{val\ 3319}#
+ #{e1\ 3320}#
+ #{e2\ 3321}#)
+ (if (#{id?\ 382}# #{f\ 3317}#)
+ (and-map #{id?\ 382}# #{id\ 3318}#)
#f))
- #{tmp\ 3297}#)
+ #{tmp\ 3309}#)
#f)
- (apply (lambda (#{_\ 3319}#
- #{f\ 3320}#
- #{id\ 3321}#
- #{val\ 3322}#
- #{e1\ 3323}#
- #{e2\ 3324}#)
- (#{chi-let\ 3232}#
- #{e\ 3261}#
- #{r\ 3262}#
- #{w\ 3263}#
- #{s\ 3264}#
- #{mod\ 3265}#
- #{build-named-let\ 328}#
- (cons #{f\ 3320}# #{id\ 3321}#)
- #{val\ 3322}#
- (cons #{e1\ 3323}# #{e2\ 3324}#)))
- #{tmp\ 3297}#)
- ((lambda (#{_\ 3329}#)
+ (apply (lambda (#{_\ 3331}#
+ #{f\ 3332}#
+ #{id\ 3333}#
+ #{val\ 3334}#
+ #{e1\ 3335}#
+ #{e2\ 3336}#)
+ (#{chi-let\ 3244}#
+ #{e\ 3273}#
+ #{r\ 3274}#
+ #{w\ 3275}#
+ #{s\ 3276}#
+ #{mod\ 3277}#
+ #{build-named-let\ 338}#
+ (cons #{f\ 3332}# #{id\ 3333}#)
+ #{val\ 3334}#
+ (cons #{e1\ 3335}# #{e2\ 3336}#)))
+ #{tmp\ 3309}#)
+ ((lambda (#{_\ 3341}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 443}#
- #{e\ 3261}#
- #{w\ 3263}#
- #{s\ 3264}#
- #{mod\ 3265}#)))
- #{tmp\ 3271}#)))
+ (#{source-wrap\ 453}#
+ #{e\ 3273}#
+ #{w\ 3275}#
+ #{s\ 3276}#
+ #{mod\ 3277}#)))
+ #{tmp\ 3283}#)))
($sc-dispatch
- #{tmp\ 3271}#
+ #{tmp\ 3283}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3271}#
+ #{tmp\ 3283}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3261}#))))
- (#{global-extend\ 368}#
+ #{e\ 3273}#))))
+ (#{global-extend\ 378}#
'core
'letrec
- (lambda (#{e\ 3330}#
- #{r\ 3331}#
- #{w\ 3332}#
- #{s\ 3333}#
- #{mod\ 3334}#)
- ((lambda (#{tmp\ 3340}#)
- ((lambda (#{tmp\ 3341}#)
- (if (if #{tmp\ 3341}#
- (apply (lambda (#{_\ 3347}#
- #{id\ 3348}#
- #{val\ 3349}#
- #{e1\ 3350}#
- #{e2\ 3351}#)
- (and-map #{id?\ 372}# #{id\ 3348}#))
- #{tmp\ 3341}#)
+ (lambda (#{e\ 3342}#
+ #{r\ 3343}#
+ #{w\ 3344}#
+ #{s\ 3345}#
+ #{mod\ 3346}#)
+ ((lambda (#{tmp\ 3352}#)
+ ((lambda (#{tmp\ 3353}#)
+ (if (if #{tmp\ 3353}#
+ (apply (lambda (#{_\ 3359}#
+ #{id\ 3360}#
+ #{val\ 3361}#
+ #{e1\ 3362}#
+ #{e2\ 3363}#)
+ (and-map #{id?\ 382}# #{id\ 3360}#))
+ #{tmp\ 3353}#)
#f)
- (apply (lambda (#{_\ 3358}#
- #{id\ 3359}#
- #{val\ 3360}#
- #{e1\ 3361}#
- #{e2\ 3362}#)
- (let ((#{ids\ 3364}# #{id\ 3359}#))
- (if (not (#{valid-bound-ids?\ 435}#
- #{ids\ 3364}#))
+ (apply (lambda (#{_\ 3370}#
+ #{id\ 3371}#
+ #{val\ 3372}#
+ #{e1\ 3373}#
+ #{e2\ 3374}#)
+ (let ((#{ids\ 3376}# #{id\ 3371}#))
+ (if (not (#{valid-bound-ids?\ 445}#
+ #{ids\ 3376}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3330}#)
- (let ((#{labels\ 3368}#
- (#{gen-labels\ 390}# #{ids\ 3364}#))
- (#{new-vars\ 3369}#
- (map #{gen-var\ 485}# #{ids\ 3364}#)))
- (let ((#{w\ 3372}#
- (#{make-binding-wrap\ 419}#
- #{ids\ 3364}#
- #{labels\ 3368}#
- #{w\ 3332}#))
- (#{r\ 3373}#
- (#{extend-var-env\ 362}#
- #{labels\ 3368}#
- #{new-vars\ 3369}#
- #{r\ 3331}#)))
- (#{build-letrec\ 330}#
- #{s\ 3333}#
- (map syntax->datum #{ids\ 3364}#)
- #{new-vars\ 3369}#
- (map (lambda (#{x\ 3374}#)
- (#{chi\ 457}#
- #{x\ 3374}#
- #{r\ 3373}#
- #{w\ 3372}#
- #{mod\ 3334}#))
- #{val\ 3360}#)
- (#{chi-body\ 465}#
- (cons #{e1\ 3361}# #{e2\ 3362}#)
- (#{source-wrap\ 443}#
- #{e\ 3330}#
- #{w\ 3372}#
- #{s\ 3333}#
- #{mod\ 3334}#)
- #{r\ 3373}#
- #{w\ 3372}#
- #{mod\ 3334}#)))))))
- #{tmp\ 3341}#)
- ((lambda (#{_\ 3379}#)
+ #{e\ 3342}#)
+ (let ((#{labels\ 3380}#
+ (#{gen-labels\ 400}# #{ids\ 3376}#))
+ (#{new-vars\ 3381}#
+ (map #{gen-var\ 495}# #{ids\ 3376}#)))
+ (let ((#{w\ 3384}#
+ (#{make-binding-wrap\ 429}#
+ #{ids\ 3376}#
+ #{labels\ 3380}#
+ #{w\ 3344}#))
+ (#{r\ 3385}#
+ (#{extend-var-env\ 372}#
+ #{labels\ 3380}#
+ #{new-vars\ 3381}#
+ #{r\ 3343}#)))
+ (#{build-letrec\ 340}#
+ #{s\ 3345}#
+ (map syntax->datum #{ids\ 3376}#)
+ #{new-vars\ 3381}#
+ (map (lambda (#{x\ 3386}#)
+ (#{chi\ 467}#
+ #{x\ 3386}#
+ #{r\ 3385}#
+ #{w\ 3384}#
+ #{mod\ 3346}#))
+ #{val\ 3372}#)
+ (#{chi-body\ 475}#
+ (cons #{e1\ 3373}# #{e2\ 3374}#)
+ (#{source-wrap\ 453}#
+ #{e\ 3342}#
+ #{w\ 3384}#
+ #{s\ 3345}#
+ #{mod\ 3346}#)
+ #{r\ 3385}#
+ #{w\ 3384}#
+ #{mod\ 3346}#)))))))
+ #{tmp\ 3353}#)
+ ((lambda (#{_\ 3391}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 443}#
- #{e\ 3330}#
- #{w\ 3332}#
- #{s\ 3333}#
- #{mod\ 3334}#)))
- #{tmp\ 3340}#)))
+ (#{source-wrap\ 453}#
+ #{e\ 3342}#
+ #{w\ 3344}#
+ #{s\ 3345}#
+ #{mod\ 3346}#)))
+ #{tmp\ 3352}#)))
($sc-dispatch
- #{tmp\ 3340}#
+ #{tmp\ 3352}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3330}#)))
- (#{global-extend\ 368}#
+ #{e\ 3342}#)))
+ (#{global-extend\ 378}#
'core
'set!
- (lambda (#{e\ 3380}#
- #{r\ 3381}#
- #{w\ 3382}#
- #{s\ 3383}#
- #{mod\ 3384}#)
- ((lambda (#{tmp\ 3390}#)
- ((lambda (#{tmp\ 3391}#)
- (if (if #{tmp\ 3391}#
- (apply (lambda (#{_\ 3395}# #{id\ 3396}# #{val\ 3397}#)
- (#{id?\ 372}# #{id\ 3396}#))
- #{tmp\ 3391}#)
+ (lambda (#{e\ 3392}#
+ #{r\ 3393}#
+ #{w\ 3394}#
+ #{s\ 3395}#
+ #{mod\ 3396}#)
+ ((lambda (#{tmp\ 3402}#)
+ ((lambda (#{tmp\ 3403}#)
+ (if (if #{tmp\ 3403}#
+ (apply (lambda (#{_\ 3407}# #{id\ 3408}# #{val\ 3409}#)
+ (#{id?\ 382}# #{id\ 3408}#))
+ #{tmp\ 3403}#)
#f)
- (apply (lambda (#{_\ 3401}# #{id\ 3402}# #{val\ 3403}#)
- (let ((#{val\ 3406}#
- (#{chi\ 457}#
- #{val\ 3403}#
- #{r\ 3381}#
- #{w\ 3382}#
- #{mod\ 3384}#))
- (#{n\ 3407}#
- (#{id-var-name\ 429}#
- #{id\ 3402}#
- #{w\ 3382}#)))
- (let ((#{b\ 3409}#
- (#{lookup\ 366}#
- #{n\ 3407}#
- #{r\ 3381}#
- #{mod\ 3384}#)))
- (let ((#{atom-key\ 3412}#
- (#{binding-type\ 355}# #{b\ 3409}#)))
- (if (memv #{atom-key\ 3412}#
+ (apply (lambda (#{_\ 3413}# #{id\ 3414}# #{val\ 3415}#)
+ (let ((#{val\ 3418}#
+ (#{chi\ 467}#
+ #{val\ 3415}#
+ #{r\ 3393}#
+ #{w\ 3394}#
+ #{mod\ 3396}#))
+ (#{n\ 3419}#
+ (#{id-var-name\ 439}#
+ #{id\ 3414}#
+ #{w\ 3394}#)))
+ (let ((#{b\ 3421}#
+ (#{lookup\ 376}#
+ #{n\ 3419}#
+ #{r\ 3393}#
+ #{mod\ 3396}#)))
+ (let ((#{atom-key\ 3424}#
+ (#{binding-type\ 365}# #{b\ 3421}#)))
+ (if (memv #{atom-key\ 3424}#
'(lexical))
- (#{build-lexical-assignment\ 302}#
- #{s\ 3383}#
- (syntax->datum #{id\ 3402}#)
- (#{binding-value\ 357}# #{b\ 3409}#)
- #{val\ 3406}#)
- (if (memv #{atom-key\ 3412}#
+ (#{build-lexical-assignment\ 312}#
+ #{s\ 3395}#
+ (syntax->datum #{id\ 3414}#)
+ (#{binding-value\ 367}# #{b\ 3421}#)
+ #{val\ 3418}#)
+ (if (memv #{atom-key\ 3424}#
'(global))
- (#{build-global-assignment\ 308}#
- #{s\ 3383}#
- #{n\ 3407}#
- #{val\ 3406}#
- #{mod\ 3384}#)
- (if (memv #{atom-key\ 3412}#
+ (#{build-global-assignment\ 318}#
+ #{s\ 3395}#
+ #{n\ 3419}#
+ #{val\ 3418}#
+ #{mod\ 3396}#)
+ (if (memv #{atom-key\ 3424}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 441}#
- #{id\ 3402}#
- #{w\ 3382}#
- #{mod\ 3384}#))
+ (#{wrap\ 451}#
+ #{id\ 3414}#
+ #{w\ 3394}#
+ #{mod\ 3396}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 443}#
- #{e\ 3380}#
- #{w\ 3382}#
- #{s\ 3383}#
- #{mod\ 3384}#)))))))))
- #{tmp\ 3391}#)
- ((lambda (#{tmp\ 3417}#)
- (if #{tmp\ 3417}#
- (apply (lambda (#{_\ 3422}#
- #{head\ 3423}#
- #{tail\ 3424}#
- #{val\ 3425}#)
+ (#{source-wrap\ 453}#
+ #{e\ 3392}#
+ #{w\ 3394}#
+ #{s\ 3395}#
+ #{mod\ 3396}#)))))))))
+ #{tmp\ 3403}#)
+ ((lambda (#{tmp\ 3429}#)
+ (if #{tmp\ 3429}#
+ (apply (lambda (#{_\ 3434}#
+ #{head\ 3435}#
+ #{tail\ 3436}#
+ #{val\ 3437}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 453}#
- #{head\ 3423}#
- #{r\ 3381}#
+ (#{syntax-type\ 463}#
+ #{head\ 3435}#
+ #{r\ 3393}#
'(())
#f
#f
- #{mod\ 3384}#
+ #{mod\ 3396}#
#t))
- (lambda (#{type\ 3428}#
- #{value\ 3429}#
- #{ee\ 3430}#
- #{ww\ 3431}#
- #{ss\ 3432}#
- #{modmod\ 3433}#)
- (if (memv #{type\ 3428}#
+ (lambda (#{type\ 3440}#
+ #{value\ 3441}#
+ #{ee\ 3442}#
+ #{ww\ 3443}#
+ #{ss\ 3444}#
+ #{modmod\ 3445}#)
+ (if (memv #{type\ 3440}#
'(module-ref))
- (let ((#{val\ 3442}#
- (#{chi\ 457}#
- #{val\ 3425}#
- #{r\ 3381}#
- #{w\ 3382}#
- #{mod\ 3384}#)))
+ (let ((#{val\ 3454}#
+ (#{chi\ 467}#
+ #{val\ 3437}#
+ #{r\ 3393}#
+ #{w\ 3394}#
+ #{mod\ 3396}#)))
(call-with-values
(lambda ()
- (#{value\ 3429}#
- (cons #{head\ 3423}#
- #{tail\ 3424}#)
- #{r\ 3381}#
- #{w\ 3382}#))
- (lambda (#{e\ 3444}#
- #{r\ 3445}#
- #{w\ 3446}#
- #{s*\ 3447}#
- #{mod\ 3448}#)
- ((lambda (#{tmp\ 3454}#)
- ((lambda (#{tmp\ 3455}#)
- (if (if #{tmp\ 3455}#
- (apply (lambda (#{e\ 3457}#)
- (#{id?\ 372}#
- #{e\ 3457}#))
- #{tmp\ 3455}#)
+ (#{value\ 3441}#
+ (cons #{head\ 3435}#
+ #{tail\ 3436}#)
+ #{r\ 3393}#
+ #{w\ 3394}#))
+ (lambda (#{e\ 3456}#
+ #{r\ 3457}#
+ #{w\ 3458}#
+ #{s*\ 3459}#
+ #{mod\ 3460}#)
+ ((lambda (#{tmp\ 3466}#)
+ ((lambda (#{tmp\ 3467}#)
+ (if (if #{tmp\ 3467}#
+ (apply (lambda (#{e\ 3469}#)
+ (#{id?\ 382}#
+ #{e\ 3469}#))
+ #{tmp\ 3467}#)
#f)
- (apply (lambda (#{e\ 3459}#)
- (#{build-global-assignment\ 308}#
- #{s\ 3383}#
+ (apply (lambda (#{e\ 3471}#)
+ (#{build-global-assignment\ 318}#
+ #{s\ 3395}#
(syntax->datum
- #{e\ 3459}#)
- #{val\ 3442}#
- #{mod\ 3448}#))
- #{tmp\ 3455}#)
+ #{e\ 3471}#)
+ #{val\ 3454}#
+ #{mod\ 3460}#))
+ #{tmp\ 3467}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3454}#)))
- (list #{tmp\ 3454}#)))
- #{e\ 3444}#))))
- (#{build-application\ 294}#
- #{s\ 3383}#
- (#{chi\ 457}#
+ #{tmp\ 3466}#)))
+ (list #{tmp\ 3466}#)))
+ #{e\ 3456}#))))
+ (#{build-application\ 304}#
+ #{s\ 3395}#
+ (#{chi\ 467}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i3434"
- "i3435"
- "i3436"
- "i3437"
- "i3438"
- "i3439"))
+ #("i3446"
+ "i3447"
+ "i3448"
+ "i3449"
+ "i3450"
+ "i3451"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i3418"
- "i3419"
- "i3420"
- "i3421"))
+ #("i3430"
+ "i3431"
+ "i3432"
+ "i3433"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("i3385"
- "i3386"
- "i3387"
- "i3388"
- "i3389"))
+ #("i3397"
+ "i3398"
+ "i3399"
+ "i3400"
+ "i3401"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene guile))
- #{head\ 3423}#)
- #{r\ 3381}#
- #{w\ 3382}#
- #{mod\ 3384}#)
- (map (lambda (#{e\ 3461}#)
- (#{chi\ 457}#
- #{e\ 3461}#
- #{r\ 3381}#
- #{w\ 3382}#
- #{mod\ 3384}#))
+ #{head\ 3435}#)
+ #{r\ 3393}#
+ #{w\ 3394}#
+ #{mod\ 3396}#)
+ (map (lambda (#{e\ 3473}#)
+ (#{chi\ 467}#
+ #{e\ 3473}#
+ #{r\ 3393}#
+ #{w\ 3394}#
+ #{mod\ 3396}#))
(append
- #{tail\ 3424}#
- (list #{val\ 3425}#))))))))
- #{tmp\ 3417}#)
- ((lambda (#{_\ 3465}#)
+ #{tail\ 3436}#
+ (list #{val\ 3437}#))))))))
+ #{tmp\ 3429}#)
+ ((lambda (#{_\ 3477}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 443}#
- #{e\ 3380}#
- #{w\ 3382}#
- #{s\ 3383}#
- #{mod\ 3384}#)))
- #{tmp\ 3390}#)))
+ (#{source-wrap\ 453}#
+ #{e\ 3392}#
+ #{w\ 3394}#
+ #{s\ 3395}#
+ #{mod\ 3396}#)))
+ #{tmp\ 3402}#)))
($sc-dispatch
- #{tmp\ 3390}#
+ #{tmp\ 3402}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 3390}#
+ #{tmp\ 3402}#
'(any any any))))
- #{e\ 3380}#)))
- (#{global-extend\ 368}#
+ #{e\ 3392}#)))
+ (#{global-extend\ 378}#
'module-ref
'@
- (lambda (#{e\ 3466}# #{r\ 3467}# #{w\ 3468}#)
- ((lambda (#{tmp\ 3472}#)
- ((lambda (#{tmp\ 3473}#)
- (if (if #{tmp\ 3473}#
- (apply (lambda (#{_\ 3477}# #{mod\ 3478}# #{id\ 3479}#)
- (if (and-map #{id?\ 372}# #{mod\ 3478}#)
- (#{id?\ 372}# #{id\ 3479}#)
+ (lambda (#{e\ 3478}# #{r\ 3479}# #{w\ 3480}#)
+ ((lambda (#{tmp\ 3484}#)
+ ((lambda (#{tmp\ 3485}#)
+ (if (if #{tmp\ 3485}#
+ (apply (lambda (#{_\ 3489}# #{mod\ 3490}# #{id\ 3491}#)
+ (if (and-map #{id?\ 382}# #{mod\ 3490}#)
+ (#{id?\ 382}# #{id\ 3491}#)
#f))
- #{tmp\ 3473}#)
+ #{tmp\ 3485}#)
#f)
- (apply (lambda (#{_\ 3486}# #{mod\ 3487}# #{id\ 3488}#)
+ (apply (lambda (#{_\ 3498}# #{mod\ 3499}# #{id\ 3500}#)
(values
- (syntax->datum #{id\ 3488}#)
- #{r\ 3467}#
- #{w\ 3468}#
+ (syntax->datum #{id\ 3500}#)
+ #{r\ 3479}#
+ #{w\ 3480}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3483" "i3484" "i3485"))
+ #("i3495" "i3496" "i3497"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3469" "i3470" "i3471"))
+ #("i3481" "i3482" "i3483"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i23" "i22" "i21" "i19")))
+ ("i33" "i32" "i31" "i29")))
(hygiene guile))
- #{mod\ 3487}#))))
- #{tmp\ 3473}#)
+ #{mod\ 3499}#))))
+ #{tmp\ 3485}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3472}#)))
+ #{tmp\ 3484}#)))
($sc-dispatch
- #{tmp\ 3472}#
+ #{tmp\ 3484}#
'(any each-any any))))
- #{e\ 3466}#)))
- (#{global-extend\ 368}#
+ #{e\ 3478}#)))
+ (#{global-extend\ 378}#
'module-ref
'@@
- (lambda (#{e\ 3490}# #{r\ 3491}# #{w\ 3492}#)
- (letrec ((#{remodulate\ 3497}#
- (lambda (#{x\ 3498}# #{mod\ 3499}#)
- (if (pair? #{x\ 3498}#)
- (cons (#{remodulate\ 3497}#
- (car #{x\ 3498}#)
- #{mod\ 3499}#)
- (#{remodulate\ 3497}#
- (cdr #{x\ 3498}#)
- #{mod\ 3499}#))
- (if (#{syntax-object?\ 336}# #{x\ 3498}#)
- (#{make-syntax-object\ 334}#
- (#{remodulate\ 3497}#
- (#{syntax-object-expression\ 338}# #{x\ 3498}#)
- #{mod\ 3499}#)
- (#{syntax-object-wrap\ 340}# #{x\ 3498}#)
- #{mod\ 3499}#)
- (if (vector? #{x\ 3498}#)
- (let ((#{n\ 3510}# (vector-length #{x\ 3498}#)))
- (let ((#{v\ 3512}# (make-vector #{n\ 3510}#)))
- (letrec ((#{loop\ 3515}#
- (lambda (#{i\ 3516}#)
- (if (#{fx=\ 277}#
- #{i\ 3516}#
- #{n\ 3510}#)
- (begin (if #f #f) #{v\ 3512}#)
+ (lambda (#{e\ 3502}# #{r\ 3503}# #{w\ 3504}#)
+ (letrec ((#{remodulate\ 3509}#
+ (lambda (#{x\ 3510}# #{mod\ 3511}#)
+ (if (pair? #{x\ 3510}#)
+ (cons (#{remodulate\ 3509}#
+ (car #{x\ 3510}#)
+ #{mod\ 3511}#)
+ (#{remodulate\ 3509}#
+ (cdr #{x\ 3510}#)
+ #{mod\ 3511}#))
+ (if (#{syntax-object?\ 346}# #{x\ 3510}#)
+ (#{make-syntax-object\ 344}#
+ (#{remodulate\ 3509}#
+ (#{syntax-object-expression\ 348}# #{x\ 3510}#)
+ #{mod\ 3511}#)
+ (#{syntax-object-wrap\ 350}# #{x\ 3510}#)
+ #{mod\ 3511}#)
+ (if (vector? #{x\ 3510}#)
+ (let ((#{n\ 3522}# (vector-length #{x\ 3510}#)))
+ (let ((#{v\ 3524}# (make-vector #{n\ 3522}#)))
+ (letrec ((#{loop\ 3527}#
+ (lambda (#{i\ 3528}#)
+ (if (#{fx=\ 287}#
+ #{i\ 3528}#
+ #{n\ 3522}#)
+ (begin (if #f #f) #{v\ 3524}#)
(begin
(vector-set!
- #{v\ 3512}#
- #{i\ 3516}#
- (#{remodulate\ 3497}#
+ #{v\ 3524}#
+ #{i\ 3528}#
+ (#{remodulate\ 3509}#
(vector-ref
- #{x\ 3498}#
- #{i\ 3516}#)
- #{mod\ 3499}#))
- (#{loop\ 3515}#
- (#{fx+\ 273}#
- #{i\ 3516}#
+ #{x\ 3510}#
+ #{i\ 3528}#)
+ #{mod\ 3511}#))
+ (#{loop\ 3527}#
+ (#{fx+\ 283}#
+ #{i\ 3528}#
1)))))))
- (#{loop\ 3515}# 0))))
- #{x\ 3498}#))))))
- ((lambda (#{tmp\ 3520}#)
- ((lambda (#{tmp\ 3521}#)
- (if (if #{tmp\ 3521}#
- (apply (lambda (#{_\ 3525}#
- #{mod\ 3526}#
- #{exp\ 3527}#)
- (and-map #{id?\ 372}# #{mod\ 3526}#))
- #{tmp\ 3521}#)
+ (#{loop\ 3527}# 0))))
+ #{x\ 3510}#))))))
+ ((lambda (#{tmp\ 3532}#)
+ ((lambda (#{tmp\ 3533}#)
+ (if (if #{tmp\ 3533}#
+ (apply (lambda (#{_\ 3537}#
+ #{mod\ 3538}#
+ #{exp\ 3539}#)
+ (and-map #{id?\ 382}# #{mod\ 3538}#))
+ #{tmp\ 3533}#)
#f)
- (apply (lambda (#{_\ 3532}# #{mod\ 3533}# #{exp\ 3534}#)
- (let ((#{mod\ 3536}#
+ (apply (lambda (#{_\ 3544}# #{mod\ 3545}# #{exp\ 3546}#)
+ (let ((#{mod\ 3548}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i3529" "i3530" "i3531"))
+ #("i3541" "i3542" "i3543"))
#(ribcage
(remodulate)
((top))
- ("i3496"))
+ ("i3508"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3493" "i3494" "i3495"))
+ #("i3505" "i3506" "i3507"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i23" "i22" "i21" "i19")))
+ ("i33" "i32" "i31" "i29")))
(hygiene guile))
- #{mod\ 3533}#))))
+ #{mod\ 3545}#))))
(values
- (#{remodulate\ 3497}#
- #{exp\ 3534}#
- #{mod\ 3536}#)
- #{r\ 3491}#
- #{w\ 3492}#
- (#{source-annotation\ 351}# #{exp\ 3534}#)
- #{mod\ 3536}#)))
- #{tmp\ 3521}#)
+ (#{remodulate\ 3509}#
+ #{exp\ 3546}#
+ #{mod\ 3548}#)
+ #{r\ 3503}#
+ #{w\ 3504}#
+ (#{source-annotation\ 361}# #{exp\ 3546}#)
+ #{mod\ 3548}#)))
+ #{tmp\ 3533}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3520}#)))
+ #{tmp\ 3532}#)))
($sc-dispatch
- #{tmp\ 3520}#
+ #{tmp\ 3532}#
'(any each-any any))))
- #{e\ 3490}#))))
- (#{global-extend\ 368}#
+ #{e\ 3502}#))))
+ (#{global-extend\ 378}#
'core
'if
- (lambda (#{e\ 3538}#
- #{r\ 3539}#
- #{w\ 3540}#
- #{s\ 3541}#
- #{mod\ 3542}#)
- ((lambda (#{tmp\ 3548}#)
- ((lambda (#{tmp\ 3549}#)
- (if #{tmp\ 3549}#
- (apply (lambda (#{_\ 3553}# #{test\ 3554}# #{then\ 3555}#)
- (#{build-conditional\ 296}#
- #{s\ 3541}#
- (#{chi\ 457}#
- #{test\ 3554}#
- #{r\ 3539}#
- #{w\ 3540}#
- #{mod\ 3542}#)
- (#{chi\ 457}#
- #{then\ 3555}#
- #{r\ 3539}#
- #{w\ 3540}#
- #{mod\ 3542}#)
- (#{build-void\ 292}# #f)))
- #{tmp\ 3549}#)
- ((lambda (#{tmp\ 3557}#)
- (if #{tmp\ 3557}#
- (apply (lambda (#{_\ 3562}#
- #{test\ 3563}#
- #{then\ 3564}#
- #{else\ 3565}#)
- (#{build-conditional\ 296}#
- #{s\ 3541}#
- (#{chi\ 457}#
- #{test\ 3563}#
- #{r\ 3539}#
- #{w\ 3540}#
- #{mod\ 3542}#)
- (#{chi\ 457}#
- #{then\ 3564}#
- #{r\ 3539}#
- #{w\ 3540}#
- #{mod\ 3542}#)
- (#{chi\ 457}#
- #{else\ 3565}#
- #{r\ 3539}#
- #{w\ 3540}#
- #{mod\ 3542}#)))
- #{tmp\ 3557}#)
+ (lambda (#{e\ 3550}#
+ #{r\ 3551}#
+ #{w\ 3552}#
+ #{s\ 3553}#
+ #{mod\ 3554}#)
+ ((lambda (#{tmp\ 3560}#)
+ ((lambda (#{tmp\ 3561}#)
+ (if #{tmp\ 3561}#
+ (apply (lambda (#{_\ 3565}# #{test\ 3566}# #{then\ 3567}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3553}#
+ (#{chi\ 467}#
+ #{test\ 3566}#
+ #{r\ 3551}#
+ #{w\ 3552}#
+ #{mod\ 3554}#)
+ (#{chi\ 467}#
+ #{then\ 3567}#
+ #{r\ 3551}#
+ #{w\ 3552}#
+ #{mod\ 3554}#)
+ (#{build-void\ 302}# #f)))
+ #{tmp\ 3561}#)
+ ((lambda (#{tmp\ 3569}#)
+ (if #{tmp\ 3569}#
+ (apply (lambda (#{_\ 3574}#
+ #{test\ 3575}#
+ #{then\ 3576}#
+ #{else\ 3577}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3553}#
+ (#{chi\ 467}#
+ #{test\ 3575}#
+ #{r\ 3551}#
+ #{w\ 3552}#
+ #{mod\ 3554}#)
+ (#{chi\ 467}#
+ #{then\ 3576}#
+ #{r\ 3551}#
+ #{w\ 3552}#
+ #{mod\ 3554}#)
+ (#{chi\ 467}#
+ #{else\ 3577}#
+ #{r\ 3551}#
+ #{w\ 3552}#
+ #{mod\ 3554}#)))
+ #{tmp\ 3569}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3548}#)))
+ #{tmp\ 3560}#)))
($sc-dispatch
- #{tmp\ 3548}#
+ #{tmp\ 3560}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 3548}#
+ #{tmp\ 3560}#
'(any any any))))
- #{e\ 3538}#)))
- (#{global-extend\ 368}#
+ #{e\ 3550}#)))
+ (#{global-extend\ 378}#
'core
'with-fluids
- (lambda (#{e\ 3566}#
- #{r\ 3567}#
- #{w\ 3568}#
- #{s\ 3569}#
- #{mod\ 3570}#)
- ((lambda (#{tmp\ 3576}#)
- ((lambda (#{tmp\ 3577}#)
- (if #{tmp\ 3577}#
- (apply (lambda (#{_\ 3583}#
- #{fluid\ 3584}#
- #{val\ 3585}#
- #{b\ 3586}#
- #{b*\ 3587}#)
- (#{build-dynlet\ 298}#
- #{s\ 3569}#
- (map (lambda (#{x\ 3588}#)
- (#{chi\ 457}#
- #{x\ 3588}#
- #{r\ 3567}#
- #{w\ 3568}#
- #{mod\ 3570}#))
- #{fluid\ 3584}#)
- (map (lambda (#{x\ 3591}#)
- (#{chi\ 457}#
- #{x\ 3591}#
- #{r\ 3567}#
- #{w\ 3568}#
- #{mod\ 3570}#))
- #{val\ 3585}#)
- (#{chi-body\ 465}#
- (cons #{b\ 3586}# #{b*\ 3587}#)
- (#{source-wrap\ 443}#
- #{e\ 3566}#
- #{w\ 3568}#
- #{s\ 3569}#
- #{mod\ 3570}#)
- #{r\ 3567}#
- #{w\ 3568}#
- #{mod\ 3570}#)))
- #{tmp\ 3577}#)
+ (lambda (#{e\ 3578}#
+ #{r\ 3579}#
+ #{w\ 3580}#
+ #{s\ 3581}#
+ #{mod\ 3582}#)
+ ((lambda (#{tmp\ 3588}#)
+ ((lambda (#{tmp\ 3589}#)
+ (if #{tmp\ 3589}#
+ (apply (lambda (#{_\ 3595}#
+ #{fluid\ 3596}#
+ #{val\ 3597}#
+ #{b\ 3598}#
+ #{b*\ 3599}#)
+ (#{build-dynlet\ 308}#
+ #{s\ 3581}#
+ (map (lambda (#{x\ 3600}#)
+ (#{chi\ 467}#
+ #{x\ 3600}#
+ #{r\ 3579}#
+ #{w\ 3580}#
+ #{mod\ 3582}#))
+ #{fluid\ 3596}#)
+ (map (lambda (#{x\ 3603}#)
+ (#{chi\ 467}#
+ #{x\ 3603}#
+ #{r\ 3579}#
+ #{w\ 3580}#
+ #{mod\ 3582}#))
+ #{val\ 3597}#)
+ (#{chi-body\ 475}#
+ (cons #{b\ 3598}# #{b*\ 3599}#)
+ (#{source-wrap\ 453}#
+ #{e\ 3578}#
+ #{w\ 3580}#
+ #{s\ 3581}#
+ #{mod\ 3582}#)
+ #{r\ 3579}#
+ #{w\ 3580}#
+ #{mod\ 3582}#)))
+ #{tmp\ 3589}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3576}#)))
+ #{tmp\ 3588}#)))
($sc-dispatch
- #{tmp\ 3576}#
+ #{tmp\ 3588}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3566}#)))
- (#{global-extend\ 368}#
+ #{e\ 3578}#)))
+ (#{global-extend\ 378}#
'begin
'begin
'())
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'define
'define
'())
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'eval-when
'eval-when
'())
- (#{global-extend\ 368}#
+ (#{global-extend\ 378}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 3602}#
- (lambda (#{x\ 3603}#
- #{keys\ 3604}#
- #{clauses\ 3605}#
- #{r\ 3606}#
- #{mod\ 3607}#)
- (if (null? #{clauses\ 3605}#)
- (#{build-application\ 294}#
+ (letrec ((#{gen-syntax-case\ 3614}#
+ (lambda (#{x\ 3615}#
+ #{keys\ 3616}#
+ #{clauses\ 3617}#
+ #{r\ 3618}#
+ #{mod\ 3619}#)
+ (if (null? #{clauses\ 3617}#)
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 320}#
+ (#{build-primref\ 330}#
#f
'syntax-violation)
- (list (#{build-data\ 322}# #f #f)
- (#{build-data\ 322}#
+ (list (#{build-data\ 332}# #f #f)
+ (#{build-data\ 332}#
#f
"source expression failed to match any pattern")
- #{x\ 3603}#))
- ((lambda (#{tmp\ 3617}#)
- ((lambda (#{tmp\ 3618}#)
- (if #{tmp\ 3618}#
- (apply (lambda (#{pat\ 3621}# #{exp\ 3622}#)
- (if (if (#{id?\ 372}# #{pat\ 3621}#)
+ #{x\ 3615}#))
+ ((lambda (#{tmp\ 3629}#)
+ ((lambda (#{tmp\ 3630}#)
+ (if #{tmp\ 3630}#
+ (apply (lambda (#{pat\ 3633}# #{exp\ 3634}#)
+ (if (if (#{id?\ 382}# #{pat\ 3633}#)
(and-map
- (lambda (#{x\ 3625}#)
- (not (#{free-id=?\ 431}#
- #{pat\ 3621}#
- #{x\ 3625}#)))
+ (lambda (#{x\ 3637}#)
+ (not (#{free-id=?\ 441}#
+ #{pat\ 3633}#
+ #{x\ 3637}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3619" "i3620"))
+ #("i3631" "i3632"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("i3608"
- "i3609"
- "i3610"
- "i3611"
- "i3612"))
+ #("i3620"
+ "i3621"
+ "i3622"
+ "i3623"
+ "i3624"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i3601"
- "i3599"
- "i3597"
- "i3595"))
+ ("i3613"
+ "i3611"
+ "i3609"
+ "i3607"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i486"
+ ("i496"
+ "i494"
+ "i492"
+ "i490"
+ "i488"
+ "i486"
"i484"
"i482"
"i480"
"i430"
"i428"
"i426"
+ "i425"
"i424"
"i422"
+ "i421"
"i420"
+ "i419"
"i418"
"i416"
- "i415"
"i414"
"i412"
- "i411"
"i410"
- "i409"
"i408"
"i406"
"i404"
"i402"
- "i400"
- "i398"
+ "i399"
+ "i397"
"i396"
+ "i395"
"i394"
+ "i393"
"i392"
- "i389"
- "i387"
+ "i390"
+ "i388"
"i386"
- "i385"
"i384"
"i383"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
"i373"
"i371"
"i369"
- "i367"
- "i365"
+ "i368"
+ "i366"
+ "i364"
"i363"
- "i361"
+ "i362"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
+ "i357"
+ "i355"
"i353"
- "i352"
- "i350"
+ "i351"
"i349"
"i347"
"i345"
"i299"
"i297"
"i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
"i284"
"i282"
"i280"
"i278"
"i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
"i263"
"i261"
"i259"
"i245"
"i243"
"i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"))
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i23"
- "i22"
- "i21"
- "i19")))
+ ("i33"
+ "i32"
+ "i31"
+ "i29")))
(hygiene guile))
- #{keys\ 3604}#))
+ #{keys\ 3616}#))
#f)
- (let ((#{labels\ 3629}#
- (list (#{gen-label\ 388}#)))
- (#{var\ 3630}#
- (#{gen-var\ 485}#
- #{pat\ 3621}#)))
- (#{build-application\ 294}#
+ (let ((#{labels\ 3641}#
+ (list (#{gen-label\ 398}#)))
+ (#{var\ 3642}#
+ (#{gen-var\ 495}#
+ #{pat\ 3633}#)))
+ (#{build-application\ 304}#
#f
- (#{build-simple-lambda\ 314}#
+ (#{build-simple-lambda\ 324}#
#f
(list (syntax->datum
- #{pat\ 3621}#))
+ #{pat\ 3633}#))
#f
- (list #{var\ 3630}#)
+ (list #{var\ 3642}#)
'()
- (#{chi\ 457}#
- #{exp\ 3622}#
- (#{extend-env\ 360}#
- #{labels\ 3629}#
+ (#{chi\ 467}#
+ #{exp\ 3634}#
+ (#{extend-env\ 370}#
+ #{labels\ 3641}#
(list (cons 'syntax
- (cons #{var\ 3630}#
+ (cons #{var\ 3642}#
0)))
- #{r\ 3606}#)
- (#{make-binding-wrap\ 419}#
- (list #{pat\ 3621}#)
- #{labels\ 3629}#
+ #{r\ 3618}#)
+ (#{make-binding-wrap\ 429}#
+ (list #{pat\ 3633}#)
+ #{labels\ 3641}#
'(()))
- #{mod\ 3607}#))
- (list #{x\ 3603}#)))
- (#{gen-clause\ 3600}#
- #{x\ 3603}#
- #{keys\ 3604}#
- (cdr #{clauses\ 3605}#)
- #{r\ 3606}#
- #{pat\ 3621}#
+ #{mod\ 3619}#))
+ (list #{x\ 3615}#)))
+ (#{gen-clause\ 3612}#
+ #{x\ 3615}#
+ #{keys\ 3616}#
+ (cdr #{clauses\ 3617}#)
+ #{r\ 3618}#
+ #{pat\ 3633}#
#t
- #{exp\ 3622}#
- #{mod\ 3607}#)))
- #{tmp\ 3618}#)
- ((lambda (#{tmp\ 3636}#)
- (if #{tmp\ 3636}#
- (apply (lambda (#{pat\ 3640}#
- #{fender\ 3641}#
- #{exp\ 3642}#)
- (#{gen-clause\ 3600}#
- #{x\ 3603}#
- #{keys\ 3604}#
- (cdr #{clauses\ 3605}#)
- #{r\ 3606}#
- #{pat\ 3640}#
- #{fender\ 3641}#
- #{exp\ 3642}#
- #{mod\ 3607}#))
- #{tmp\ 3636}#)
- ((lambda (#{_\ 3644}#)
+ #{exp\ 3634}#
+ #{mod\ 3619}#)))
+ #{tmp\ 3630}#)
+ ((lambda (#{tmp\ 3648}#)
+ (if #{tmp\ 3648}#
+ (apply (lambda (#{pat\ 3652}#
+ #{fender\ 3653}#
+ #{exp\ 3654}#)
+ (#{gen-clause\ 3612}#
+ #{x\ 3615}#
+ #{keys\ 3616}#
+ (cdr #{clauses\ 3617}#)
+ #{r\ 3618}#
+ #{pat\ 3652}#
+ #{fender\ 3653}#
+ #{exp\ 3654}#
+ #{mod\ 3619}#))
+ #{tmp\ 3648}#)
+ ((lambda (#{_\ 3656}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3605}#)))
- #{tmp\ 3617}#)))
+ (car #{clauses\ 3617}#)))
+ #{tmp\ 3629}#)))
($sc-dispatch
- #{tmp\ 3617}#
+ #{tmp\ 3629}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 3617}# (quote (any any)))))
- (car #{clauses\ 3605}#)))))
- (#{gen-clause\ 3600}#
- (lambda (#{x\ 3645}#
- #{keys\ 3646}#
- #{clauses\ 3647}#
- #{r\ 3648}#
- #{pat\ 3649}#
- #{fender\ 3650}#
- #{exp\ 3651}#
- #{mod\ 3652}#)
+ ($sc-dispatch #{tmp\ 3629}# (quote (any any)))))
+ (car #{clauses\ 3617}#)))))
+ (#{gen-clause\ 3612}#
+ (lambda (#{x\ 3657}#
+ #{keys\ 3658}#
+ #{clauses\ 3659}#
+ #{r\ 3660}#
+ #{pat\ 3661}#
+ #{fender\ 3662}#
+ #{exp\ 3663}#
+ #{mod\ 3664}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3596}#
- #{pat\ 3649}#
- #{keys\ 3646}#))
- (lambda (#{p\ 3661}# #{pvars\ 3662}#)
- (if (not (#{distinct-bound-ids?\ 437}#
- (map car #{pvars\ 3662}#)))
+ (#{convert-pattern\ 3608}#
+ #{pat\ 3661}#
+ #{keys\ 3658}#))
+ (lambda (#{p\ 3673}# #{pvars\ 3674}#)
+ (if (not (#{distinct-bound-ids?\ 447}#
+ (map car #{pvars\ 3674}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3649}#)
+ #{pat\ 3661}#)
(if (not (and-map
- (lambda (#{x\ 3669}#)
- (not (#{ellipsis?\ 473}#
- (car #{x\ 3669}#))))
- #{pvars\ 3662}#))
+ (lambda (#{x\ 3681}#)
+ (not (#{ellipsis?\ 483}#
+ (car #{x\ 3681}#))))
+ #{pvars\ 3674}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3649}#)
- (let ((#{y\ 3673}#
- (#{gen-var\ 485}# (quote tmp))))
- (#{build-application\ 294}#
+ #{pat\ 3661}#)
+ (let ((#{y\ 3685}#
+ (#{gen-var\ 495}# (quote tmp))))
+ (#{build-application\ 304}#
#f
- (#{build-simple-lambda\ 314}#
+ (#{build-simple-lambda\ 324}#
#f
(list (quote tmp))
#f
- (list #{y\ 3673}#)
+ (list #{y\ 3685}#)
'()
- (let ((#{y\ 3677}#
- (#{build-lexical-reference\ 300}#
+ (let ((#{y\ 3689}#
+ (#{build-lexical-reference\ 310}#
'value
#f
'tmp
- #{y\ 3673}#)))
- (#{build-conditional\ 296}#
+ #{y\ 3685}#)))
+ (#{build-conditional\ 306}#
#f
- ((lambda (#{tmp\ 3680}#)
- ((lambda (#{tmp\ 3681}#)
- (if #{tmp\ 3681}#
- (apply (lambda () #{y\ 3677}#)
- #{tmp\ 3681}#)
- ((lambda (#{_\ 3683}#)
- (#{build-conditional\ 296}#
+ ((lambda (#{tmp\ 3692}#)
+ ((lambda (#{tmp\ 3693}#)
+ (if #{tmp\ 3693}#
+ (apply (lambda () #{y\ 3689}#)
+ #{tmp\ 3693}#)
+ ((lambda (#{_\ 3695}#)
+ (#{build-conditional\ 306}#
#f
- #{y\ 3677}#
- (#{build-dispatch-call\ 3598}#
- #{pvars\ 3662}#
- #{fender\ 3650}#
- #{y\ 3677}#
- #{r\ 3648}#
- #{mod\ 3652}#)
- (#{build-data\ 322}#
+ #{y\ 3689}#
+ (#{build-dispatch-call\ 3610}#
+ #{pvars\ 3674}#
+ #{fender\ 3662}#
+ #{y\ 3689}#
+ #{r\ 3660}#
+ #{mod\ 3664}#)
+ (#{build-data\ 332}#
#f
#f)))
- #{tmp\ 3680}#)))
+ #{tmp\ 3692}#)))
($sc-dispatch
- #{tmp\ 3680}#
+ #{tmp\ 3692}#
'#(atom #t))))
- #{fender\ 3650}#)
- (#{build-dispatch-call\ 3598}#
- #{pvars\ 3662}#
- #{exp\ 3651}#
- #{y\ 3677}#
- #{r\ 3648}#
- #{mod\ 3652}#)
- (#{gen-syntax-case\ 3602}#
- #{x\ 3645}#
- #{keys\ 3646}#
- #{clauses\ 3647}#
- #{r\ 3648}#
- #{mod\ 3652}#))))
- (list (if (eq? #{p\ 3661}# (quote any))
- (#{build-application\ 294}#
+ #{fender\ 3662}#)
+ (#{build-dispatch-call\ 3610}#
+ #{pvars\ 3674}#
+ #{exp\ 3663}#
+ #{y\ 3689}#
+ #{r\ 3660}#
+ #{mod\ 3664}#)
+ (#{gen-syntax-case\ 3614}#
+ #{x\ 3657}#
+ #{keys\ 3658}#
+ #{clauses\ 3659}#
+ #{r\ 3660}#
+ #{mod\ 3664}#))))
+ (list (if (eq? #{p\ 3673}# (quote any))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 320}#
+ (#{build-primref\ 330}#
#f
'list)
- (list #{x\ 3645}#))
- (#{build-application\ 294}#
+ (list #{x\ 3657}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 320}#
+ (#{build-primref\ 330}#
#f
'$sc-dispatch)
- (list #{x\ 3645}#
- (#{build-data\ 322}#
+ (list #{x\ 3657}#
+ (#{build-data\ 332}#
#f
- #{p\ 3661}#)))))))))))))
- (#{build-dispatch-call\ 3598}#
- (lambda (#{pvars\ 3691}#
- #{exp\ 3692}#
- #{y\ 3693}#
- #{r\ 3694}#
- #{mod\ 3695}#)
- (let ((#{ids\ 3703}# (map car #{pvars\ 3691}#))
- (#{levels\ 3704}# (map cdr #{pvars\ 3691}#)))
- (let ((#{labels\ 3707}#
- (#{gen-labels\ 390}# #{ids\ 3703}#))
- (#{new-vars\ 3708}#
- (map #{gen-var\ 485}# #{ids\ 3703}#)))
- (#{build-application\ 294}#
+ #{p\ 3673}#)))))))))))))
+ (#{build-dispatch-call\ 3610}#
+ (lambda (#{pvars\ 3703}#
+ #{exp\ 3704}#
+ #{y\ 3705}#
+ #{r\ 3706}#
+ #{mod\ 3707}#)
+ (let ((#{ids\ 3715}# (map car #{pvars\ 3703}#))
+ (#{levels\ 3716}# (map cdr #{pvars\ 3703}#)))
+ (let ((#{labels\ 3719}#
+ (#{gen-labels\ 400}# #{ids\ 3715}#))
+ (#{new-vars\ 3720}#
+ (map #{gen-var\ 495}# #{ids\ 3715}#)))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 320}# #f (quote apply))
- (list (#{build-simple-lambda\ 314}#
+ (#{build-primref\ 330}# #f (quote apply))
+ (list (#{build-simple-lambda\ 324}#
#f
- (map syntax->datum #{ids\ 3703}#)
+ (map syntax->datum #{ids\ 3715}#)
#f
- #{new-vars\ 3708}#
+ #{new-vars\ 3720}#
'()
- (#{chi\ 457}#
- #{exp\ 3692}#
- (#{extend-env\ 360}#
- #{labels\ 3707}#
- (map (lambda (#{var\ 3712}#
- #{level\ 3713}#)
+ (#{chi\ 467}#
+ #{exp\ 3704}#
+ (#{extend-env\ 370}#
+ #{labels\ 3719}#
+ (map (lambda (#{var\ 3724}#
+ #{level\ 3725}#)
(cons 'syntax
- (cons #{var\ 3712}#
- #{level\ 3713}#)))
- #{new-vars\ 3708}#
- (map cdr #{pvars\ 3691}#))
- #{r\ 3694}#)
- (#{make-binding-wrap\ 419}#
- #{ids\ 3703}#
- #{labels\ 3707}#
+ (cons #{var\ 3724}#
+ #{level\ 3725}#)))
+ #{new-vars\ 3720}#
+ (map cdr #{pvars\ 3703}#))
+ #{r\ 3706}#)
+ (#{make-binding-wrap\ 429}#
+ #{ids\ 3715}#
+ #{labels\ 3719}#
'(()))
- #{mod\ 3695}#))
- #{y\ 3693}#))))))
- (#{convert-pattern\ 3596}#
- (lambda (#{pattern\ 3719}# #{keys\ 3720}#)
- (letrec ((#{cvt\ 3726}#
- (lambda (#{p\ 3727}# #{n\ 3728}# #{ids\ 3729}#)
- (if (#{id?\ 372}# #{p\ 3727}#)
- (if (#{bound-id-member?\ 439}#
- #{p\ 3727}#
- #{keys\ 3720}#)
+ #{mod\ 3707}#))
+ #{y\ 3705}#))))))
+ (#{convert-pattern\ 3608}#
+ (lambda (#{pattern\ 3731}# #{keys\ 3732}#)
+ (letrec ((#{cvt\ 3738}#
+ (lambda (#{p\ 3739}# #{n\ 3740}# #{ids\ 3741}#)
+ (if (#{id?\ 382}# #{p\ 3739}#)
+ (if (#{bound-id-member?\ 449}#
+ #{p\ 3739}#
+ #{keys\ 3732}#)
(values
- (vector (quote free-id) #{p\ 3727}#)
- #{ids\ 3729}#)
+ (vector (quote free-id) #{p\ 3739}#)
+ #{ids\ 3741}#)
(values
'any
- (cons (cons #{p\ 3727}# #{n\ 3728}#)
- #{ids\ 3729}#)))
- ((lambda (#{tmp\ 3733}#)
- ((lambda (#{tmp\ 3734}#)
- (if (if #{tmp\ 3734}#
- (apply (lambda (#{x\ 3737}#
- #{dots\ 3738}#)
- (#{ellipsis?\ 473}#
- #{dots\ 3738}#))
- #{tmp\ 3734}#)
+ (cons (cons #{p\ 3739}# #{n\ 3740}#)
+ #{ids\ 3741}#)))
+ ((lambda (#{tmp\ 3745}#)
+ ((lambda (#{tmp\ 3746}#)
+ (if (if #{tmp\ 3746}#
+ (apply (lambda (#{x\ 3749}#
+ #{dots\ 3750}#)
+ (#{ellipsis?\ 483}#
+ #{dots\ 3750}#))
+ #{tmp\ 3746}#)
#f)
- (apply (lambda (#{x\ 3741}#
- #{dots\ 3742}#)
+ (apply (lambda (#{x\ 3753}#
+ #{dots\ 3754}#)
(call-with-values
(lambda ()
- (#{cvt\ 3726}#
- #{x\ 3741}#
- (#{fx+\ 273}#
- #{n\ 3728}#
+ (#{cvt\ 3738}#
+ #{x\ 3753}#
+ (#{fx+\ 283}#
+ #{n\ 3740}#
1)
- #{ids\ 3729}#))
- (lambda (#{p\ 3743}#
- #{ids\ 3744}#)
+ #{ids\ 3741}#))
+ (lambda (#{p\ 3755}#
+ #{ids\ 3756}#)
(values
- (if (eq? #{p\ 3743}#
+ (if (eq? #{p\ 3755}#
'any)
'each-any
(vector
'each
- #{p\ 3743}#))
- #{ids\ 3744}#))))
- #{tmp\ 3734}#)
- ((lambda (#{tmp\ 3747}#)
- (if (if #{tmp\ 3747}#
- (apply (lambda (#{x\ 3751}#
- #{dots\ 3752}#
- #{ys\ 3753}#)
- (#{ellipsis?\ 473}#
- #{dots\ 3752}#))
- #{tmp\ 3747}#)
+ #{p\ 3755}#))
+ #{ids\ 3756}#))))
+ #{tmp\ 3746}#)
+ ((lambda (#{tmp\ 3759}#)
+ (if (if #{tmp\ 3759}#
+ (apply (lambda (#{x\ 3763}#
+ #{dots\ 3764}#
+ #{ys\ 3765}#)
+ (#{ellipsis?\ 483}#
+ #{dots\ 3764}#))
+ #{tmp\ 3759}#)
#f)
- (apply (lambda (#{x\ 3757}#
- #{dots\ 3758}#
- #{ys\ 3759}#)
+ (apply (lambda (#{x\ 3769}#
+ #{dots\ 3770}#
+ #{ys\ 3771}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3724}#
- #{ys\ 3759}#
- #{n\ 3728}#
- #{ids\ 3729}#))
- (lambda (#{ys\ 3761}#
- #{ids\ 3762}#)
+ (#{cvt*\ 3736}#
+ #{ys\ 3771}#
+ #{n\ 3740}#
+ #{ids\ 3741}#))
+ (lambda (#{ys\ 3773}#
+ #{ids\ 3774}#)
(call-with-values
(lambda ()
- (#{cvt\ 3726}#
- #{x\ 3757}#
- (+ #{n\ 3728}#
+ (#{cvt\ 3738}#
+ #{x\ 3769}#
+ (+ #{n\ 3740}#
1)
- #{ids\ 3762}#))
- (lambda (#{x\ 3765}#
- #{ids\ 3766}#)
+ #{ids\ 3774}#))
+ (lambda (#{x\ 3777}#
+ #{ids\ 3778}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3765}#
+ (cons #{x\ 3777}#
(cons (reverse
- #{ys\ 3761}#)
+ #{ys\ 3773}#)
'(())))))
- #{ids\ 3766}#))))))
- #{tmp\ 3747}#)
- ((lambda (#{tmp\ 3770}#)
- (if #{tmp\ 3770}#
- (apply (lambda (#{x\ 3773}#
- #{y\ 3774}#)
+ #{ids\ 3778}#))))))
+ #{tmp\ 3759}#)
+ ((lambda (#{tmp\ 3782}#)
+ (if #{tmp\ 3782}#
+ (apply (lambda (#{x\ 3785}#
+ #{y\ 3786}#)
(call-with-values
(lambda ()
- (#{cvt\ 3726}#
- #{y\ 3774}#
- #{n\ 3728}#
- #{ids\ 3729}#))
- (lambda (#{y\ 3775}#
- #{ids\ 3776}#)
+ (#{cvt\ 3738}#
+ #{y\ 3786}#
+ #{n\ 3740}#
+ #{ids\ 3741}#))
+ (lambda (#{y\ 3787}#
+ #{ids\ 3788}#)
(call-with-values
(lambda ()
- (#{cvt\ 3726}#
- #{x\ 3773}#
- #{n\ 3728}#
- #{ids\ 3776}#))
- (lambda (#{x\ 3779}#
- #{ids\ 3780}#)
+ (#{cvt\ 3738}#
+ #{x\ 3785}#
+ #{n\ 3740}#
+ #{ids\ 3788}#))
+ (lambda (#{x\ 3791}#
+ #{ids\ 3792}#)
(values
- (cons #{x\ 3779}#
- #{y\ 3775}#)
- #{ids\ 3780}#))))))
- #{tmp\ 3770}#)
- ((lambda (#{tmp\ 3783}#)
- (if #{tmp\ 3783}#
+ (cons #{x\ 3791}#
+ #{y\ 3787}#)
+ #{ids\ 3792}#))))))
+ #{tmp\ 3782}#)
+ ((lambda (#{tmp\ 3795}#)
+ (if #{tmp\ 3795}#
(apply (lambda ()
(values
'()
- #{ids\ 3729}#))
- #{tmp\ 3783}#)
- ((lambda (#{tmp\ 3784}#)
- (if #{tmp\ 3784}#
- (apply (lambda (#{x\ 3786}#)
+ #{ids\ 3741}#))
+ #{tmp\ 3795}#)
+ ((lambda (#{tmp\ 3796}#)
+ (if #{tmp\ 3796}#
+ (apply (lambda (#{x\ 3798}#)
(call-with-values
(lambda ()
- (#{cvt\ 3726}#
- #{x\ 3786}#
- #{n\ 3728}#
- #{ids\ 3729}#))
- (lambda (#{p\ 3788}#
- #{ids\ 3789}#)
+ (#{cvt\ 3738}#
+ #{x\ 3798}#
+ #{n\ 3740}#
+ #{ids\ 3741}#))
+ (lambda (#{p\ 3800}#
+ #{ids\ 3801}#)
(values
(vector
'vector
- #{p\ 3788}#)
- #{ids\ 3789}#))))
- #{tmp\ 3784}#)
- ((lambda (#{x\ 3793}#)
+ #{p\ 3800}#)
+ #{ids\ 3801}#))))
+ #{tmp\ 3796}#)
+ ((lambda (#{x\ 3805}#)
(values
(vector
'atom
- (#{strip\ 483}#
- #{p\ 3727}#
+ (#{strip\ 493}#
+ #{p\ 3739}#
'(())))
- #{ids\ 3729}#))
- #{tmp\ 3733}#)))
+ #{ids\ 3741}#))
+ #{tmp\ 3745}#)))
($sc-dispatch
- #{tmp\ 3733}#
+ #{tmp\ 3745}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 3733}#
+ #{tmp\ 3745}#
'()))))
($sc-dispatch
- #{tmp\ 3733}#
+ #{tmp\ 3745}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3733}#
+ #{tmp\ 3745}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 3733}#
+ #{tmp\ 3745}#
'(any any))))
- #{p\ 3727}#))))
- (#{cvt*\ 3724}#
- (lambda (#{p*\ 3795}#
- #{n\ 3796}#
- #{ids\ 3797}#)
- (if (null? #{p*\ 3795}#)
- (values (quote ()) #{ids\ 3797}#)
+ #{p\ 3739}#))))
+ (#{cvt*\ 3736}#
+ (lambda (#{p*\ 3807}#
+ #{n\ 3808}#
+ #{ids\ 3809}#)
+ (if (null? #{p*\ 3807}#)
+ (values (quote ()) #{ids\ 3809}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3724}#
- (cdr #{p*\ 3795}#)
- #{n\ 3796}#
- #{ids\ 3797}#))
- (lambda (#{y\ 3801}# #{ids\ 3802}#)
+ (#{cvt*\ 3736}#
+ (cdr #{p*\ 3807}#)
+ #{n\ 3808}#
+ #{ids\ 3809}#))
+ (lambda (#{y\ 3813}# #{ids\ 3814}#)
(call-with-values
(lambda ()
- (#{cvt\ 3726}#
- (car #{p*\ 3795}#)
- #{n\ 3796}#
- #{ids\ 3802}#))
- (lambda (#{x\ 3805}# #{ids\ 3806}#)
+ (#{cvt\ 3738}#
+ (car #{p*\ 3807}#)
+ #{n\ 3808}#
+ #{ids\ 3814}#))
+ (lambda (#{x\ 3817}# #{ids\ 3818}#)
(values
- (cons #{x\ 3805}# #{y\ 3801}#)
- #{ids\ 3806}#)))))))))
- (#{cvt\ 3726}# #{pattern\ 3719}# 0 (quote ()))))))
- (lambda (#{e\ 3809}#
- #{r\ 3810}#
- #{w\ 3811}#
- #{s\ 3812}#
- #{mod\ 3813}#)
- (let ((#{e\ 3820}#
- (#{source-wrap\ 443}#
- #{e\ 3809}#
- #{w\ 3811}#
- #{s\ 3812}#
- #{mod\ 3813}#)))
- ((lambda (#{tmp\ 3821}#)
- ((lambda (#{tmp\ 3822}#)
- (if #{tmp\ 3822}#
- (apply (lambda (#{_\ 3827}#
- #{val\ 3828}#
- #{key\ 3829}#
- #{m\ 3830}#)
+ (cons #{x\ 3817}# #{y\ 3813}#)
+ #{ids\ 3818}#)))))))))
+ (#{cvt\ 3738}# #{pattern\ 3731}# 0 (quote ()))))))
+ (lambda (#{e\ 3821}#
+ #{r\ 3822}#
+ #{w\ 3823}#
+ #{s\ 3824}#
+ #{mod\ 3825}#)
+ (let ((#{e\ 3832}#
+ (#{source-wrap\ 453}#
+ #{e\ 3821}#
+ #{w\ 3823}#
+ #{s\ 3824}#
+ #{mod\ 3825}#)))
+ ((lambda (#{tmp\ 3833}#)
+ ((lambda (#{tmp\ 3834}#)
+ (if #{tmp\ 3834}#
+ (apply (lambda (#{_\ 3839}#
+ #{val\ 3840}#
+ #{key\ 3841}#
+ #{m\ 3842}#)
(if (and-map
- (lambda (#{x\ 3831}#)
- (if (#{id?\ 372}# #{x\ 3831}#)
- (not (#{ellipsis?\ 473}# #{x\ 3831}#))
+ (lambda (#{x\ 3843}#)
+ (if (#{id?\ 382}# #{x\ 3843}#)
+ (not (#{ellipsis?\ 483}# #{x\ 3843}#))
#f))
- #{key\ 3829}#)
- (let ((#{x\ 3837}#
- (#{gen-var\ 485}# (quote tmp))))
- (#{build-application\ 294}#
- #{s\ 3812}#
- (#{build-simple-lambda\ 314}#
+ #{key\ 3841}#)
+ (let ((#{x\ 3849}#
+ (#{gen-var\ 495}# (quote tmp))))
+ (#{build-application\ 304}#
+ #{s\ 3824}#
+ (#{build-simple-lambda\ 324}#
#f
(list (quote tmp))
#f
- (list #{x\ 3837}#)
+ (list #{x\ 3849}#)
'()
- (#{gen-syntax-case\ 3602}#
- (#{build-lexical-reference\ 300}#
+ (#{gen-syntax-case\ 3614}#
+ (#{build-lexical-reference\ 310}#
'value
#f
'tmp
- #{x\ 3837}#)
- #{key\ 3829}#
- #{m\ 3830}#
- #{r\ 3810}#
- #{mod\ 3813}#))
- (list (#{chi\ 457}#
- #{val\ 3828}#
- #{r\ 3810}#
+ #{x\ 3849}#)
+ #{key\ 3841}#
+ #{m\ 3842}#
+ #{r\ 3822}#
+ #{mod\ 3825}#))
+ (list (#{chi\ 467}#
+ #{val\ 3840}#
+ #{r\ 3822}#
'(())
- #{mod\ 3813}#))))
+ #{mod\ 3825}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3820}#)))
- #{tmp\ 3822}#)
+ #{e\ 3832}#)))
+ #{tmp\ 3834}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3821}#)))
+ #{tmp\ 3833}#)))
($sc-dispatch
- #{tmp\ 3821}#
+ #{tmp\ 3833}#
'(any any each-any . each-any))))
- #{e\ 3820}#)))))
+ #{e\ 3832}#)))))
(set! macroexpand
(lambda*
- (#{x\ 3843}#
+ (#{x\ 3855}#
#:optional
- (#{m\ 3845}# (quote e))
- (#{esew\ 3847}# (quote (eval))))
- (#{chi-top\ 455}#
- #{x\ 3843}#
+ (#{m\ 3857}# (quote e))
+ (#{esew\ 3859}# (quote (eval))))
+ (#{chi-top\ 465}#
+ #{x\ 3855}#
'()
'((top))
- #{m\ 3845}#
- #{esew\ 3847}#
+ #{m\ 3857}#
+ #{esew\ 3859}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3851}#)
- (#{nonsymbol-id?\ 370}# #{x\ 3851}#)))
+ (lambda (#{x\ 3863}#)
+ (#{nonsymbol-id?\ 380}# #{x\ 3863}#)))
(set! datum->syntax
- (lambda (#{id\ 3853}# #{datum\ 3854}#)
- (#{make-syntax-object\ 334}#
- #{datum\ 3854}#
- (#{syntax-object-wrap\ 340}# #{id\ 3853}#)
- (#{syntax-object-module\ 342}# #{id\ 3853}#))))
+ (lambda (#{id\ 3865}# #{datum\ 3866}#)
+ (#{make-syntax-object\ 344}#
+ #{datum\ 3866}#
+ (#{syntax-object-wrap\ 350}# #{id\ 3865}#)
+ (#{syntax-object-module\ 352}# #{id\ 3865}#))))
(set! syntax->datum
- (lambda (#{x\ 3857}#)
- (#{strip\ 483}# #{x\ 3857}# (quote (())))))
+ (lambda (#{x\ 3869}#)
+ (#{strip\ 493}# #{x\ 3869}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 3860}#)
- (#{source-annotation\ 351}# #{x\ 3860}#)))
+ (lambda (#{x\ 3872}#)
+ (#{source-annotation\ 361}# #{x\ 3872}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3862}#)
+ (lambda (#{ls\ 3874}#)
(begin
- (let ((#{x\ 3866}# #{ls\ 3862}#))
- (if (not (list? #{x\ 3866}#))
+ (let ((#{x\ 3878}# #{ls\ 3874}#))
+ (if (not (list? #{x\ 3878}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3866}#)))
- (map (lambda (#{x\ 3867}#)
- (#{wrap\ 441}# (gensym) (quote ((top))) #f))
- #{ls\ 3862}#))))
+ #{x\ 3878}#)))
+ (map (lambda (#{x\ 3879}#)
+ (#{wrap\ 451}# (gensym) (quote ((top))) #f))
+ #{ls\ 3874}#))))
(set! free-identifier=?
- (lambda (#{x\ 3871}# #{y\ 3872}#)
+ (lambda (#{x\ 3883}# #{y\ 3884}#)
(begin
- (let ((#{x\ 3877}# #{x\ 3871}#))
- (if (not (#{nonsymbol-id?\ 370}# #{x\ 3877}#))
+ (let ((#{x\ 3889}# #{x\ 3883}#))
+ (if (not (#{nonsymbol-id?\ 380}# #{x\ 3889}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3877}#)))
- (let ((#{x\ 3880}# #{y\ 3872}#))
- (if (not (#{nonsymbol-id?\ 370}# #{x\ 3880}#))
+ #{x\ 3889}#)))
+ (let ((#{x\ 3892}# #{y\ 3884}#))
+ (if (not (#{nonsymbol-id?\ 380}# #{x\ 3892}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3880}#)))
- (#{free-id=?\ 431}# #{x\ 3871}# #{y\ 3872}#))))
+ #{x\ 3892}#)))
+ (#{free-id=?\ 441}# #{x\ 3883}# #{y\ 3884}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3881}# #{y\ 3882}#)
+ (lambda (#{x\ 3893}# #{y\ 3894}#)
(begin
- (let ((#{x\ 3887}# #{x\ 3881}#))
- (if (not (#{nonsymbol-id?\ 370}# #{x\ 3887}#))
+ (let ((#{x\ 3899}# #{x\ 3893}#))
+ (if (not (#{nonsymbol-id?\ 380}# #{x\ 3899}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3887}#)))
- (let ((#{x\ 3890}# #{y\ 3882}#))
- (if (not (#{nonsymbol-id?\ 370}# #{x\ 3890}#))
+ #{x\ 3899}#)))
+ (let ((#{x\ 3902}# #{y\ 3894}#))
+ (if (not (#{nonsymbol-id?\ 380}# #{x\ 3902}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3890}#)))
- (#{bound-id=?\ 433}# #{x\ 3881}# #{y\ 3882}#))))
+ #{x\ 3902}#)))
+ (#{bound-id=?\ 443}# #{x\ 3893}# #{y\ 3894}#))))
(set! syntax-violation
- (lambda (#{who\ 3891}#
- #{message\ 3892}#
- #{form\ 3893}#
+ (lambda (#{who\ 3903}#
+ #{message\ 3904}#
+ #{form\ 3905}#
.
- #{subform\ 3894}#)
+ #{subform\ 3906}#)
(begin
- (let ((#{x\ 3901}# #{who\ 3891}#))
- (if (not ((lambda (#{x\ 3902}#)
- (let ((#{t\ 3906}# (not #{x\ 3902}#)))
- (if #{t\ 3906}#
- #{t\ 3906}#
- (let ((#{t\ 3909}# (string? #{x\ 3902}#)))
- (if #{t\ 3909}#
- #{t\ 3909}#
- (symbol? #{x\ 3902}#))))))
- #{x\ 3901}#))
+ (let ((#{x\ 3913}# #{who\ 3903}#))
+ (if (not ((lambda (#{x\ 3914}#)
+ (let ((#{t\ 3918}# (not #{x\ 3914}#)))
+ (if #{t\ 3918}#
+ #{t\ 3918}#
+ (let ((#{t\ 3921}# (string? #{x\ 3914}#)))
+ (if #{t\ 3921}#
+ #{t\ 3921}#
+ (symbol? #{x\ 3914}#))))))
+ #{x\ 3913}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3901}#)))
- (let ((#{x\ 3913}# #{message\ 3892}#))
- (if (not (string? #{x\ 3913}#))
+ #{x\ 3913}#)))
+ (let ((#{x\ 3925}# #{message\ 3904}#))
+ (if (not (string? #{x\ 3925}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3913}#)))
+ #{x\ 3925}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3891}# "~a: " "")
+ (if #{who\ 3903}# "~a: " "")
"~a "
- (if (null? #{subform\ 3894}#)
+ (if (null? #{subform\ 3906}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 3915}#
- (cons #{message\ 3892}#
- (map (lambda (#{x\ 3916}#)
- (#{strip\ 483}# #{x\ 3916}# (quote (()))))
+ (let ((#{tail\ 3927}#
+ (cons #{message\ 3904}#
+ (map (lambda (#{x\ 3928}#)
+ (#{strip\ 493}# #{x\ 3928}# (quote (()))))
(append
- #{subform\ 3894}#
- (list #{form\ 3893}#))))))
- (if #{who\ 3891}#
- (cons #{who\ 3891}# #{tail\ 3915}#)
- #{tail\ 3915}#))
+ #{subform\ 3906}#
+ (list #{form\ 3905}#))))))
+ (if #{who\ 3903}#
+ (cons #{who\ 3903}# #{tail\ 3927}#)
+ #{tail\ 3927}#))
#f))))
- (letrec ((#{match\ 3932}#
- (lambda (#{e\ 3933}#
- #{p\ 3934}#
- #{w\ 3935}#
- #{r\ 3936}#
- #{mod\ 3937}#)
- (if (not #{r\ 3936}#)
+ (letrec ((#{match\ 3944}#
+ (lambda (#{e\ 3945}#
+ #{p\ 3946}#
+ #{w\ 3947}#
+ #{r\ 3948}#
+ #{mod\ 3949}#)
+ (if (not #{r\ 3948}#)
#f
- (if (eq? #{p\ 3934}# (quote any))
- (cons (#{wrap\ 441}#
- #{e\ 3933}#
- #{w\ 3935}#
- #{mod\ 3937}#)
- #{r\ 3936}#)
- (if (#{syntax-object?\ 336}# #{e\ 3933}#)
- (#{match*\ 3930}#
- (#{syntax-object-expression\ 338}# #{e\ 3933}#)
- #{p\ 3934}#
- (#{join-wraps\ 423}#
- #{w\ 3935}#
- (#{syntax-object-wrap\ 340}# #{e\ 3933}#))
- #{r\ 3936}#
- (#{syntax-object-module\ 342}# #{e\ 3933}#))
- (#{match*\ 3930}#
- #{e\ 3933}#
- #{p\ 3934}#
- #{w\ 3935}#
- #{r\ 3936}#
- #{mod\ 3937}#))))))
- (#{match*\ 3930}#
- (lambda (#{e\ 3950}#
- #{p\ 3951}#
- #{w\ 3952}#
- #{r\ 3953}#
- #{mod\ 3954}#)
- (if (null? #{p\ 3951}#)
- (if (null? #{e\ 3950}#) #{r\ 3953}# #f)
- (if (pair? #{p\ 3951}#)
- (if (pair? #{e\ 3950}#)
- (#{match\ 3932}#
- (car #{e\ 3950}#)
- (car #{p\ 3951}#)
- #{w\ 3952}#
- (#{match\ 3932}#
- (cdr #{e\ 3950}#)
- (cdr #{p\ 3951}#)
- #{w\ 3952}#
- #{r\ 3953}#
- #{mod\ 3954}#)
- #{mod\ 3954}#)
+ (if (eq? #{p\ 3946}# (quote any))
+ (cons (#{wrap\ 451}#
+ #{e\ 3945}#
+ #{w\ 3947}#
+ #{mod\ 3949}#)
+ #{r\ 3948}#)
+ (if (#{syntax-object?\ 346}# #{e\ 3945}#)
+ (#{match*\ 3942}#
+ (#{syntax-object-expression\ 348}# #{e\ 3945}#)
+ #{p\ 3946}#
+ (#{join-wraps\ 433}#
+ #{w\ 3947}#
+ (#{syntax-object-wrap\ 350}# #{e\ 3945}#))
+ #{r\ 3948}#
+ (#{syntax-object-module\ 352}# #{e\ 3945}#))
+ (#{match*\ 3942}#
+ #{e\ 3945}#
+ #{p\ 3946}#
+ #{w\ 3947}#
+ #{r\ 3948}#
+ #{mod\ 3949}#))))))
+ (#{match*\ 3942}#
+ (lambda (#{e\ 3962}#
+ #{p\ 3963}#
+ #{w\ 3964}#
+ #{r\ 3965}#
+ #{mod\ 3966}#)
+ (if (null? #{p\ 3963}#)
+ (if (null? #{e\ 3962}#) #{r\ 3965}# #f)
+ (if (pair? #{p\ 3963}#)
+ (if (pair? #{e\ 3962}#)
+ (#{match\ 3944}#
+ (car #{e\ 3962}#)
+ (car #{p\ 3963}#)
+ #{w\ 3964}#
+ (#{match\ 3944}#
+ (cdr #{e\ 3962}#)
+ (cdr #{p\ 3963}#)
+ #{w\ 3964}#
+ #{r\ 3965}#
+ #{mod\ 3966}#)
+ #{mod\ 3966}#)
#f)
- (if (eq? #{p\ 3951}# (quote each-any))
- (let ((#{l\ 3971}#
- (#{match-each-any\ 3924}#
- #{e\ 3950}#
- #{w\ 3952}#
- #{mod\ 3954}#)))
- (if #{l\ 3971}#
- (cons #{l\ 3971}# #{r\ 3953}#)
+ (if (eq? #{p\ 3963}# (quote each-any))
+ (let ((#{l\ 3983}#
+ (#{match-each-any\ 3936}#
+ #{e\ 3962}#
+ #{w\ 3964}#
+ #{mod\ 3966}#)))
+ (if #{l\ 3983}#
+ (cons #{l\ 3983}# #{r\ 3965}#)
#f))
- (let ((#{atom-key\ 3977}# (vector-ref #{p\ 3951}# 0)))
- (if (memv #{atom-key\ 3977}# (quote (each)))
- (if (null? #{e\ 3950}#)
- (#{match-empty\ 3926}#
- (vector-ref #{p\ 3951}# 1)
- #{r\ 3953}#)
- (let ((#{l\ 3980}#
- (#{match-each\ 3920}#
- #{e\ 3950}#
- (vector-ref #{p\ 3951}# 1)
- #{w\ 3952}#
- #{mod\ 3954}#)))
- (if #{l\ 3980}#
- (letrec ((#{collect\ 3985}#
- (lambda (#{l\ 3986}#)
- (if (null? (car #{l\ 3986}#))
- #{r\ 3953}#
- (cons (map car #{l\ 3986}#)
- (#{collect\ 3985}#
+ (let ((#{atom-key\ 3989}# (vector-ref #{p\ 3963}# 0)))
+ (if (memv #{atom-key\ 3989}# (quote (each)))
+ (if (null? #{e\ 3962}#)
+ (#{match-empty\ 3938}#
+ (vector-ref #{p\ 3963}# 1)
+ #{r\ 3965}#)
+ (let ((#{l\ 3992}#
+ (#{match-each\ 3932}#
+ #{e\ 3962}#
+ (vector-ref #{p\ 3963}# 1)
+ #{w\ 3964}#
+ #{mod\ 3966}#)))
+ (if #{l\ 3992}#
+ (letrec ((#{collect\ 3997}#
+ (lambda (#{l\ 3998}#)
+ (if (null? (car #{l\ 3998}#))
+ #{r\ 3965}#
+ (cons (map car #{l\ 3998}#)
+ (#{collect\ 3997}#
(map cdr
- #{l\ 3986}#)))))))
- (#{collect\ 3985}# #{l\ 3980}#))
+ #{l\ 3998}#)))))))
+ (#{collect\ 3997}# #{l\ 3992}#))
#f)))
- (if (memv #{atom-key\ 3977}# (quote (each+)))
+ (if (memv #{atom-key\ 3989}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 3922}#
- #{e\ 3950}#
- (vector-ref #{p\ 3951}# 1)
- (vector-ref #{p\ 3951}# 2)
- (vector-ref #{p\ 3951}# 3)
- #{w\ 3952}#
- #{r\ 3953}#
- #{mod\ 3954}#))
- (lambda (#{xr*\ 3988}#
- #{y-pat\ 3989}#
- #{r\ 3990}#)
- (if #{r\ 3990}#
- (if (null? #{y-pat\ 3989}#)
- (if (null? #{xr*\ 3988}#)
- (#{match-empty\ 3926}#
- (vector-ref #{p\ 3951}# 1)
- #{r\ 3990}#)
- (#{combine\ 3928}#
- #{xr*\ 3988}#
- #{r\ 3990}#))
+ (#{match-each+\ 3934}#
+ #{e\ 3962}#
+ (vector-ref #{p\ 3963}# 1)
+ (vector-ref #{p\ 3963}# 2)
+ (vector-ref #{p\ 3963}# 3)
+ #{w\ 3964}#
+ #{r\ 3965}#
+ #{mod\ 3966}#))
+ (lambda (#{xr*\ 4000}#
+ #{y-pat\ 4001}#
+ #{r\ 4002}#)
+ (if #{r\ 4002}#
+ (if (null? #{y-pat\ 4001}#)
+ (if (null? #{xr*\ 4000}#)
+ (#{match-empty\ 3938}#
+ (vector-ref #{p\ 3963}# 1)
+ #{r\ 4002}#)
+ (#{combine\ 3940}#
+ #{xr*\ 4000}#
+ #{r\ 4002}#))
#f)
#f)))
- (if (memv #{atom-key\ 3977}# (quote (free-id)))
- (if (#{id?\ 372}# #{e\ 3950}#)
- (if (#{free-id=?\ 431}#
- (#{wrap\ 441}#
- #{e\ 3950}#
- #{w\ 3952}#
- #{mod\ 3954}#)
- (vector-ref #{p\ 3951}# 1))
- #{r\ 3953}#
+ (if (memv #{atom-key\ 3989}# (quote (free-id)))
+ (if (#{id?\ 382}# #{e\ 3962}#)
+ (if (#{free-id=?\ 441}#
+ (#{wrap\ 451}#
+ #{e\ 3962}#
+ #{w\ 3964}#
+ #{mod\ 3966}#)
+ (vector-ref #{p\ 3963}# 1))
+ #{r\ 3965}#
#f)
#f)
- (if (memv #{atom-key\ 3977}# (quote (atom)))
+ (if (memv #{atom-key\ 3989}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 3951}# 1)
- (#{strip\ 483}#
- #{e\ 3950}#
- #{w\ 3952}#))
- #{r\ 3953}#
+ (vector-ref #{p\ 3963}# 1)
+ (#{strip\ 493}#
+ #{e\ 3962}#
+ #{w\ 3964}#))
+ #{r\ 3965}#
#f)
- (if (memv #{atom-key\ 3977}#
+ (if (memv #{atom-key\ 3989}#
'(vector))
- (if (vector? #{e\ 3950}#)
- (#{match\ 3932}#
- (vector->list #{e\ 3950}#)
- (vector-ref #{p\ 3951}# 1)
- #{w\ 3952}#
- #{r\ 3953}#
- #{mod\ 3954}#)
+ (if (vector? #{e\ 3962}#)
+ (#{match\ 3944}#
+ (vector->list #{e\ 3962}#)
+ (vector-ref #{p\ 3963}# 1)
+ #{w\ 3964}#
+ #{r\ 3965}#
+ #{mod\ 3966}#)
#f))))))))))))
- (#{combine\ 3928}#
- (lambda (#{r*\ 4007}# #{r\ 4008}#)
- (if (null? (car #{r*\ 4007}#))
- #{r\ 4008}#
- (cons (map car #{r*\ 4007}#)
- (#{combine\ 3928}#
- (map cdr #{r*\ 4007}#)
- #{r\ 4008}#)))))
- (#{match-empty\ 3926}#
- (lambda (#{p\ 4011}# #{r\ 4012}#)
- (if (null? #{p\ 4011}#)
- #{r\ 4012}#
- (if (eq? #{p\ 4011}# (quote any))
- (cons (quote ()) #{r\ 4012}#)
- (if (pair? #{p\ 4011}#)
- (#{match-empty\ 3926}#
- (car #{p\ 4011}#)
- (#{match-empty\ 3926}#
- (cdr #{p\ 4011}#)
- #{r\ 4012}#))
- (if (eq? #{p\ 4011}# (quote each-any))
- (cons (quote ()) #{r\ 4012}#)
- (let ((#{atom-key\ 4026}#
- (vector-ref #{p\ 4011}# 0)))
- (if (memv #{atom-key\ 4026}# (quote (each)))
- (#{match-empty\ 3926}#
- (vector-ref #{p\ 4011}# 1)
- #{r\ 4012}#)
- (if (memv #{atom-key\ 4026}# (quote (each+)))
- (#{match-empty\ 3926}#
- (vector-ref #{p\ 4011}# 1)
- (#{match-empty\ 3926}#
- (reverse (vector-ref #{p\ 4011}# 2))
- (#{match-empty\ 3926}#
- (vector-ref #{p\ 4011}# 3)
- #{r\ 4012}#)))
- (if (memv #{atom-key\ 4026}#
+ (#{combine\ 3940}#
+ (lambda (#{r*\ 4019}# #{r\ 4020}#)
+ (if (null? (car #{r*\ 4019}#))
+ #{r\ 4020}#
+ (cons (map car #{r*\ 4019}#)
+ (#{combine\ 3940}#
+ (map cdr #{r*\ 4019}#)
+ #{r\ 4020}#)))))
+ (#{match-empty\ 3938}#
+ (lambda (#{p\ 4023}# #{r\ 4024}#)
+ (if (null? #{p\ 4023}#)
+ #{r\ 4024}#
+ (if (eq? #{p\ 4023}# (quote any))
+ (cons (quote ()) #{r\ 4024}#)
+ (if (pair? #{p\ 4023}#)
+ (#{match-empty\ 3938}#
+ (car #{p\ 4023}#)
+ (#{match-empty\ 3938}#
+ (cdr #{p\ 4023}#)
+ #{r\ 4024}#))
+ (if (eq? #{p\ 4023}# (quote each-any))
+ (cons (quote ()) #{r\ 4024}#)
+ (let ((#{atom-key\ 4038}#
+ (vector-ref #{p\ 4023}# 0)))
+ (if (memv #{atom-key\ 4038}# (quote (each)))
+ (#{match-empty\ 3938}#
+ (vector-ref #{p\ 4023}# 1)
+ #{r\ 4024}#)
+ (if (memv #{atom-key\ 4038}# (quote (each+)))
+ (#{match-empty\ 3938}#
+ (vector-ref #{p\ 4023}# 1)
+ (#{match-empty\ 3938}#
+ (reverse (vector-ref #{p\ 4023}# 2))
+ (#{match-empty\ 3938}#
+ (vector-ref #{p\ 4023}# 3)
+ #{r\ 4024}#)))
+ (if (memv #{atom-key\ 4038}#
'(free-id atom))
- #{r\ 4012}#
- (if (memv #{atom-key\ 4026}#
+ #{r\ 4024}#
+ (if (memv #{atom-key\ 4038}#
'(vector))
- (#{match-empty\ 3926}#
- (vector-ref #{p\ 4011}# 1)
- #{r\ 4012}#))))))))))))
- (#{match-each-any\ 3924}#
- (lambda (#{e\ 4031}# #{w\ 4032}# #{mod\ 4033}#)
- (if (pair? #{e\ 4031}#)
- (let ((#{l\ 4040}#
- (#{match-each-any\ 3924}#
- (cdr #{e\ 4031}#)
- #{w\ 4032}#
- #{mod\ 4033}#)))
- (if #{l\ 4040}#
- (cons (#{wrap\ 441}#
- (car #{e\ 4031}#)
- #{w\ 4032}#
- #{mod\ 4033}#)
- #{l\ 4040}#)
+ (#{match-empty\ 3938}#
+ (vector-ref #{p\ 4023}# 1)
+ #{r\ 4024}#))))))))))))
+ (#{match-each-any\ 3936}#
+ (lambda (#{e\ 4043}# #{w\ 4044}# #{mod\ 4045}#)
+ (if (pair? #{e\ 4043}#)
+ (let ((#{l\ 4052}#
+ (#{match-each-any\ 3936}#
+ (cdr #{e\ 4043}#)
+ #{w\ 4044}#
+ #{mod\ 4045}#)))
+ (if #{l\ 4052}#
+ (cons (#{wrap\ 451}#
+ (car #{e\ 4043}#)
+ #{w\ 4044}#
+ #{mod\ 4045}#)
+ #{l\ 4052}#)
#f))
- (if (null? #{e\ 4031}#)
+ (if (null? #{e\ 4043}#)
'()
- (if (#{syntax-object?\ 336}# #{e\ 4031}#)
- (#{match-each-any\ 3924}#
- (#{syntax-object-expression\ 338}# #{e\ 4031}#)
- (#{join-wraps\ 423}#
- #{w\ 4032}#
- (#{syntax-object-wrap\ 340}# #{e\ 4031}#))
- #{mod\ 4033}#)
+ (if (#{syntax-object?\ 346}# #{e\ 4043}#)
+ (#{match-each-any\ 3936}#
+ (#{syntax-object-expression\ 348}# #{e\ 4043}#)
+ (#{join-wraps\ 433}#
+ #{w\ 4044}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4043}#))
+ #{mod\ 4045}#)
#f)))))
- (#{match-each+\ 3922}#
- (lambda (#{e\ 4048}#
- #{x-pat\ 4049}#
- #{y-pat\ 4050}#
- #{z-pat\ 4051}#
- #{w\ 4052}#
- #{r\ 4053}#
- #{mod\ 4054}#)
- (letrec ((#{f\ 4065}#
- (lambda (#{e\ 4066}# #{w\ 4067}#)
- (if (pair? #{e\ 4066}#)
+ (#{match-each+\ 3934}#
+ (lambda (#{e\ 4060}#
+ #{x-pat\ 4061}#
+ #{y-pat\ 4062}#
+ #{z-pat\ 4063}#
+ #{w\ 4064}#
+ #{r\ 4065}#
+ #{mod\ 4066}#)
+ (letrec ((#{f\ 4077}#
+ (lambda (#{e\ 4078}# #{w\ 4079}#)
+ (if (pair? #{e\ 4078}#)
(call-with-values
(lambda ()
- (#{f\ 4065}#
- (cdr #{e\ 4066}#)
- #{w\ 4067}#))
- (lambda (#{xr*\ 4070}#
- #{y-pat\ 4071}#
- #{r\ 4072}#)
- (if #{r\ 4072}#
- (if (null? #{y-pat\ 4071}#)
- (let ((#{xr\ 4077}#
- (#{match\ 3932}#
- (car #{e\ 4066}#)
- #{x-pat\ 4049}#
- #{w\ 4067}#
+ (#{f\ 4077}#
+ (cdr #{e\ 4078}#)
+ #{w\ 4079}#))
+ (lambda (#{xr*\ 4082}#
+ #{y-pat\ 4083}#
+ #{r\ 4084}#)
+ (if #{r\ 4084}#
+ (if (null? #{y-pat\ 4083}#)
+ (let ((#{xr\ 4089}#
+ (#{match\ 3944}#
+ (car #{e\ 4078}#)
+ #{x-pat\ 4061}#
+ #{w\ 4079}#
'()
- #{mod\ 4054}#)))
- (if #{xr\ 4077}#
+ #{mod\ 4066}#)))
+ (if #{xr\ 4089}#
(values
- (cons #{xr\ 4077}#
- #{xr*\ 4070}#)
- #{y-pat\ 4071}#
- #{r\ 4072}#)
+ (cons #{xr\ 4089}#
+ #{xr*\ 4082}#)
+ #{y-pat\ 4083}#
+ #{r\ 4084}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 4071}#)
- (#{match\ 3932}#
- (car #{e\ 4066}#)
- (car #{y-pat\ 4071}#)
- #{w\ 4067}#
- #{r\ 4072}#
- #{mod\ 4054}#)))
+ (cdr #{y-pat\ 4083}#)
+ (#{match\ 3944}#
+ (car #{e\ 4078}#)
+ (car #{y-pat\ 4083}#)
+ #{w\ 4079}#
+ #{r\ 4084}#
+ #{mod\ 4066}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 336}# #{e\ 4066}#)
- (#{f\ 4065}#
- (#{syntax-object-expression\ 338}#
- #{e\ 4066}#)
- (#{join-wraps\ 423}#
- #{w\ 4067}#
- #{e\ 4066}#))
+ (if (#{syntax-object?\ 346}# #{e\ 4078}#)
+ (#{f\ 4077}#
+ (#{syntax-object-expression\ 348}#
+ #{e\ 4078}#)
+ (#{join-wraps\ 433}#
+ #{w\ 4079}#
+ #{e\ 4078}#))
(values
'()
- #{y-pat\ 4050}#
- (#{match\ 3932}#
- #{e\ 4066}#
- #{z-pat\ 4051}#
- #{w\ 4067}#
- #{r\ 4053}#
- #{mod\ 4054}#)))))))
- (#{f\ 4065}# #{e\ 4048}# #{w\ 4052}#))))
- (#{match-each\ 3920}#
- (lambda (#{e\ 4081}#
- #{p\ 4082}#
- #{w\ 4083}#
- #{mod\ 4084}#)
- (if (pair? #{e\ 4081}#)
- (let ((#{first\ 4092}#
- (#{match\ 3932}#
- (car #{e\ 4081}#)
- #{p\ 4082}#
- #{w\ 4083}#
+ #{y-pat\ 4062}#
+ (#{match\ 3944}#
+ #{e\ 4078}#
+ #{z-pat\ 4063}#
+ #{w\ 4079}#
+ #{r\ 4065}#
+ #{mod\ 4066}#)))))))
+ (#{f\ 4077}# #{e\ 4060}# #{w\ 4064}#))))
+ (#{match-each\ 3932}#
+ (lambda (#{e\ 4093}#
+ #{p\ 4094}#
+ #{w\ 4095}#
+ #{mod\ 4096}#)
+ (if (pair? #{e\ 4093}#)
+ (let ((#{first\ 4104}#
+ (#{match\ 3944}#
+ (car #{e\ 4093}#)
+ #{p\ 4094}#
+ #{w\ 4095}#
'()
- #{mod\ 4084}#)))
- (if #{first\ 4092}#
- (let ((#{rest\ 4096}#
- (#{match-each\ 3920}#
- (cdr #{e\ 4081}#)
- #{p\ 4082}#
- #{w\ 4083}#
- #{mod\ 4084}#)))
- (if #{rest\ 4096}#
- (cons #{first\ 4092}# #{rest\ 4096}#)
+ #{mod\ 4096}#)))
+ (if #{first\ 4104}#
+ (let ((#{rest\ 4108}#
+ (#{match-each\ 3932}#
+ (cdr #{e\ 4093}#)
+ #{p\ 4094}#
+ #{w\ 4095}#
+ #{mod\ 4096}#)))
+ (if #{rest\ 4108}#
+ (cons #{first\ 4104}# #{rest\ 4108}#)
#f))
#f))
- (if (null? #{e\ 4081}#)
+ (if (null? #{e\ 4093}#)
'()
- (if (#{syntax-object?\ 336}# #{e\ 4081}#)
- (#{match-each\ 3920}#
- (#{syntax-object-expression\ 338}# #{e\ 4081}#)
- #{p\ 4082}#
- (#{join-wraps\ 423}#
- #{w\ 4083}#
- (#{syntax-object-wrap\ 340}# #{e\ 4081}#))
- (#{syntax-object-module\ 342}# #{e\ 4081}#))
+ (if (#{syntax-object?\ 346}# #{e\ 4093}#)
+ (#{match-each\ 3932}#
+ (#{syntax-object-expression\ 348}# #{e\ 4093}#)
+ #{p\ 4094}#
+ (#{join-wraps\ 433}#
+ #{w\ 4095}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4093}#))
+ (#{syntax-object-module\ 352}# #{e\ 4093}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 4104}# #{p\ 4105}#)
- (if (eq? #{p\ 4105}# (quote any))
- (list #{e\ 4104}#)
- (if (#{syntax-object?\ 336}# #{e\ 4104}#)
- (#{match*\ 3930}#
- (#{syntax-object-expression\ 338}# #{e\ 4104}#)
- #{p\ 4105}#
- (#{syntax-object-wrap\ 340}# #{e\ 4104}#)
+ (lambda (#{e\ 4116}# #{p\ 4117}#)
+ (if (eq? #{p\ 4117}# (quote any))
+ (list #{e\ 4116}#)
+ (if (#{syntax-object?\ 346}# #{e\ 4116}#)
+ (#{match*\ 3942}#
+ (#{syntax-object-expression\ 348}# #{e\ 4116}#)
+ #{p\ 4117}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4116}#)
'()
- (#{syntax-object-module\ 342}# #{e\ 4104}#))
- (#{match*\ 3930}#
- #{e\ 4104}#
- #{p\ 4105}#
+ (#{syntax-object-module\ 352}# #{e\ 4116}#))
+ (#{match*\ 3942}#
+ #{e\ 4116}#
+ #{p\ 4117}#
'(())
'()
#f)))))))))
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4114}#)
- ((lambda (#{tmp\ 4116}#)
- ((lambda (#{tmp\ 4117}#)
- (if #{tmp\ 4117}#
- (apply (lambda (#{_\ 4121}# #{e1\ 4122}# #{e2\ 4123}#)
+ (lambda (#{x\ 4126}#)
+ ((lambda (#{tmp\ 4128}#)
+ ((lambda (#{tmp\ 4129}#)
+ (if #{tmp\ 4129}#
+ (apply (lambda (#{_\ 4133}# #{e1\ 4134}# #{e2\ 4135}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i4118" "i4119" "i4120"))
+ #("i4130" "i4131" "i4132"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4115")))
+ #(ribcage #(x) #((top)) #("i4127")))
(hygiene guile))
- (cons #{e1\ 4122}# #{e2\ 4123}#)))
- #{tmp\ 4117}#)
- ((lambda (#{tmp\ 4125}#)
- (if #{tmp\ 4125}#
- (apply (lambda (#{_\ 4131}#
- #{out\ 4132}#
- #{in\ 4133}#
- #{e1\ 4134}#
- #{e2\ 4135}#)
+ (cons #{e1\ 4134}# #{e2\ 4135}#)))
+ #{tmp\ 4129}#)
+ ((lambda (#{tmp\ 4137}#)
+ (if #{tmp\ 4137}#
+ (apply (lambda (#{_\ 4143}#
+ #{out\ 4144}#
+ #{in\ 4145}#
+ #{e1\ 4146}#
+ #{e2\ 4147}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4126"
- "i4127"
- "i4128"
- "i4129"
- "i4130"))
+ #("i4138"
+ "i4139"
+ "i4140"
+ "i4141"
+ "i4142"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4115")))
+ #(ribcage #(x) #((top)) #("i4127")))
(hygiene guile))
- #{in\ 4133}#
+ #{in\ 4145}#
'()
- (list #{out\ 4132}#
+ (list #{out\ 4144}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i4126"
- "i4127"
- "i4128"
- "i4129"
- "i4130"))
+ #("i4138"
+ "i4139"
+ "i4140"
+ "i4141"
+ "i4142"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4115")))
+ #("i4127")))
(hygiene guile))
- (cons #{e1\ 4134}#
- #{e2\ 4135}#)))))
- #{tmp\ 4125}#)
- ((lambda (#{tmp\ 4137}#)
- (if #{tmp\ 4137}#
- (apply (lambda (#{_\ 4143}#
- #{out\ 4144}#
- #{in\ 4145}#
- #{e1\ 4146}#
- #{e2\ 4147}#)
+ (cons #{e1\ 4146}#
+ #{e2\ 4147}#)))))
+ #{tmp\ 4137}#)
+ ((lambda (#{tmp\ 4149}#)
+ (if #{tmp\ 4149}#
+ (apply (lambda (#{_\ 4155}#
+ #{out\ 4156}#
+ #{in\ 4157}#
+ #{e1\ 4158}#
+ #{e2\ 4159}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4138"
- "i4139"
- "i4140"
- "i4141"
- "i4142"))
+ #("i4150"
+ "i4151"
+ "i4152"
+ "i4153"
+ "i4154"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4115")))
+ #(ribcage #(x) #((top)) #("i4127")))
(hygiene guile))
(cons '#(syntax-object
list
(top)
(top)
(top))
- #("i4138"
- "i4139"
- "i4140"
- "i4141"
- "i4142"))
+ #("i4150"
+ "i4151"
+ "i4152"
+ "i4153"
+ "i4154"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4115")))
+ #("i4127")))
(hygiene guile))
- #{in\ 4145}#)
+ #{in\ 4157}#)
'()
- (list #{out\ 4144}#
+ (list #{out\ 4156}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i4138"
- "i4139"
- "i4140"
- "i4141"
- "i4142"))
+ #("i4150"
+ "i4151"
+ "i4152"
+ "i4153"
+ "i4154"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4115")))
+ #("i4127")))
(hygiene guile))
- (cons #{e1\ 4146}#
- #{e2\ 4147}#)))))
- #{tmp\ 4137}#)
+ (cons #{e1\ 4158}#
+ #{e2\ 4159}#)))))
+ #{tmp\ 4149}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4116}#)))
+ #{tmp\ 4128}#)))
($sc-dispatch
- #{tmp\ 4116}#
+ #{tmp\ 4128}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 4116}#
+ #{tmp\ 4128}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 4116}#
+ #{tmp\ 4128}#
'(any () any . each-any))))
- #{x\ 4114}#))))
+ #{x\ 4126}#))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4151}#)
- ((lambda (#{tmp\ 4153}#)
- ((lambda (#{tmp\ 4154}#)
- (if #{tmp\ 4154}#
- (apply (lambda (#{_\ 4160}#
- #{k\ 4161}#
- #{keyword\ 4162}#
- #{pattern\ 4163}#
- #{template\ 4164}#)
+ (lambda (#{x\ 4163}#)
+ ((lambda (#{tmp\ 4165}#)
+ ((lambda (#{tmp\ 4166}#)
+ (if #{tmp\ 4166}#
+ (apply (lambda (#{_\ 4172}#
+ #{k\ 4173}#
+ #{keyword\ 4174}#
+ #{pattern\ 4175}#
+ #{template\ 4176}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155" "i4156" "i4157" "i4158" "i4159"))
+ #("i4167" "i4168" "i4169" "i4170" "i4171"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4152")))
+ #(ribcage #(x) #((top)) #("i4164")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155" "i4156" "i4157" "i4158" "i4159"))
+ #("i4167" "i4168" "i4169" "i4170" "i4171"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4152")))
+ #(ribcage #(x) #((top)) #("i4164")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4152")))
+ #(ribcage #(x) #((top)) #("i4164")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4152")))
+ #(ribcage #(x) #((top)) #("i4164")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4152")))
+ #(ribcage #(x) #((top)) #("i4164")))
(hygiene guile))
- #{pattern\ 4163}#))
+ #{pattern\ 4175}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4152")))
+ #(ribcage #(x) #((top)) #("i4164")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4152")))
+ #("i4164")))
(hygiene guile))
- (cons #{k\ 4161}#
- (map (lambda (#{tmp\ 4168}#
- #{tmp\ 4167}#)
+ (cons #{k\ 4173}#
+ (map (lambda (#{tmp\ 4180}#
+ #{tmp\ 4179}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4152")))
+ #("i4164")))
(hygiene
guile))
- #{tmp\ 4167}#)
+ #{tmp\ 4179}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4155"
- "i4156"
- "i4157"
- "i4158"
- "i4159"))
+ #("i4167"
+ "i4168"
+ "i4169"
+ "i4170"
+ "i4171"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4152")))
+ #("i4164")))
(hygiene
guile))
- #{tmp\ 4168}#)))
- #{template\ 4164}#
- #{pattern\ 4163}#))))))
- #{tmp\ 4154}#)
+ #{tmp\ 4180}#)))
+ #{template\ 4176}#
+ #{pattern\ 4175}#))))))
+ #{tmp\ 4166}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4153}#)))
+ #{tmp\ 4165}#)))
($sc-dispatch
- #{tmp\ 4153}#
+ #{tmp\ 4165}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 4151}#))))
+ #{x\ 4163}#))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4169}#)
- ((lambda (#{tmp\ 4171}#)
- ((lambda (#{tmp\ 4172}#)
- (if (if #{tmp\ 4172}#
- (apply (lambda (#{let*\ 4178}#
- #{x\ 4179}#
- #{v\ 4180}#
- #{e1\ 4181}#
- #{e2\ 4182}#)
- (and-map identifier? #{x\ 4179}#))
- #{tmp\ 4172}#)
+ (lambda (#{x\ 4181}#)
+ ((lambda (#{tmp\ 4183}#)
+ ((lambda (#{tmp\ 4184}#)
+ (if (if #{tmp\ 4184}#
+ (apply (lambda (#{let*\ 4190}#
+ #{x\ 4191}#
+ #{v\ 4192}#
+ #{e1\ 4193}#
+ #{e2\ 4194}#)
+ (and-map identifier? #{x\ 4191}#))
+ #{tmp\ 4184}#)
#f)
- (apply (lambda (#{let*\ 4189}#
- #{x\ 4190}#
- #{v\ 4191}#
- #{e1\ 4192}#
- #{e2\ 4193}#)
- (letrec ((#{f\ 4196}#
- (lambda (#{bindings\ 4197}#)
- (if (null? #{bindings\ 4197}#)
+ (apply (lambda (#{let*\ 4201}#
+ #{x\ 4202}#
+ #{v\ 4203}#
+ #{e1\ 4204}#
+ #{e2\ 4205}#)
+ (letrec ((#{f\ 4208}#
+ (lambda (#{bindings\ 4209}#)
+ (if (null? #{bindings\ 4209}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4194" "i4195"))
+ #("i4206" "i4207"))
#(ribcage
#(let* x v e1 e2)
#((top)
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i4196"
+ "i4197"
+ "i4198"
+ "i4199"
+ "i4200"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4170")))
+ #("i4182")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4192}#
- #{e2\ 4193}#)))
- ((lambda (#{tmp\ 4202}#)
- ((lambda (#{tmp\ 4203}#)
- (if #{tmp\ 4203}#
- (apply (lambda (#{body\ 4206}#
- #{binding\ 4207}#)
+ (cons #{e1\ 4204}#
+ #{e2\ 4205}#)))
+ ((lambda (#{tmp\ 4214}#)
+ ((lambda (#{tmp\ 4215}#)
+ (if #{tmp\ 4215}#
+ (apply (lambda (#{body\ 4218}#
+ #{binding\ 4219}#)
(list '#(syntax-object
let
((top)
binding)
#((top)
(top))
- #("i4204"
- "i4205"))
+ #("i4216"
+ "i4217"))
#(ribcage
()
()
bindings)
#((top)
(top))
- #("i4194"
- "i4195"))
+ #("i4206"
+ "i4207"))
#(ribcage
#(let*
x
(top)
(top)
(top))
- #("i4184"
- "i4185"
- "i4186"
- "i4187"
- "i4188"))
+ #("i4196"
+ "i4197"
+ "i4198"
+ "i4199"
+ "i4200"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4170")))
+ #("i4182")))
(hygiene
guile))
- (list #{binding\ 4207}#)
- #{body\ 4206}#))
- #{tmp\ 4203}#)
+ (list #{binding\ 4219}#)
+ #{body\ 4218}#))
+ #{tmp\ 4215}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4202}#)))
+ #{tmp\ 4214}#)))
($sc-dispatch
- #{tmp\ 4202}#
+ #{tmp\ 4214}#
'(any any))))
- (list (#{f\ 4196}#
- (cdr #{bindings\ 4197}#))
- (car #{bindings\ 4197}#)))))))
- (#{f\ 4196}# (map list #{x\ 4190}# #{v\ 4191}#))))
- #{tmp\ 4172}#)
+ (list (#{f\ 4208}#
+ (cdr #{bindings\ 4209}#))
+ (car #{bindings\ 4209}#)))))))
+ (#{f\ 4208}# (map list #{x\ 4202}# #{v\ 4203}#))))
+ #{tmp\ 4184}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4171}#)))
+ #{tmp\ 4183}#)))
($sc-dispatch
- #{tmp\ 4171}#
+ #{tmp\ 4183}#
'(any #(each (any any)) any . each-any))))
- #{x\ 4169}#))))
+ #{x\ 4181}#))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4208}#)
- ((lambda (#{tmp\ 4210}#)
- ((lambda (#{tmp\ 4211}#)
- (if #{tmp\ 4211}#
- (apply (lambda (#{_\ 4219}#
- #{var\ 4220}#
- #{init\ 4221}#
- #{step\ 4222}#
- #{e0\ 4223}#
- #{e1\ 4224}#
- #{c\ 4225}#)
- ((lambda (#{tmp\ 4227}#)
- ((lambda (#{tmp\ 4228}#)
- (if #{tmp\ 4228}#
- (apply (lambda (#{step\ 4230}#)
- ((lambda (#{tmp\ 4231}#)
- ((lambda (#{tmp\ 4232}#)
- (if #{tmp\ 4232}#
+ (lambda (#{orig-x\ 4220}#)
+ ((lambda (#{tmp\ 4222}#)
+ ((lambda (#{tmp\ 4223}#)
+ (if #{tmp\ 4223}#
+ (apply (lambda (#{_\ 4231}#
+ #{var\ 4232}#
+ #{init\ 4233}#
+ #{step\ 4234}#
+ #{e0\ 4235}#
+ #{e1\ 4236}#
+ #{c\ 4237}#)
+ ((lambda (#{tmp\ 4239}#)
+ ((lambda (#{tmp\ 4240}#)
+ (if #{tmp\ 4240}#
+ (apply (lambda (#{step\ 4242}#)
+ ((lambda (#{tmp\ 4243}#)
+ ((lambda (#{tmp\ 4244}#)
+ (if #{tmp\ 4244}#
(apply (lambda ()
(list '#(syntax-object
let
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
'#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
(map list
- #{var\ 4220}#
- #{init\ 4221}#)
+ #{var\ 4232}#
+ #{init\ 4233}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
- #{e0\ 4223}#)
+ #{e0\ 4235}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
(append
- #{c\ 4225}#
+ #{c\ 4237}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
- #{step\ 4230}#)))))))
- #{tmp\ 4232}#)
- ((lambda (#{tmp\ 4237}#)
- (if #{tmp\ 4237}#
- (apply (lambda (#{e1\ 4240}#
- #{e2\ 4241}#)
+ #{step\ 4242}#)))))))
+ #{tmp\ 4244}#)
+ ((lambda (#{tmp\ 4249}#)
+ (if #{tmp\ 4249}#
+ (apply (lambda (#{e1\ 4252}#
+ #{e2\ 4253}#)
(list '#(syntax-object
let
((top)
e2)
#((top)
(top))
- #("i4238"
- "i4239"))
+ #("i4250"
+ "i4251"))
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
'#(syntax-object
e2)
#((top)
(top))
- #("i4238"
- "i4239"))
+ #("i4250"
+ "i4251"))
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
(map list
- #{var\ 4220}#
- #{init\ 4221}#)
+ #{var\ 4232}#
+ #{init\ 4233}#)
(list '#(syntax-object
if
((top)
e2)
#((top)
(top))
- #("i4238"
- "i4239"))
+ #("i4250"
+ "i4251"))
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
- #{e0\ 4223}#
+ #{e0\ 4235}#
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4238"
- "i4239"))
+ #("i4250"
+ "i4251"))
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
- (cons #{e1\ 4240}#
- #{e2\ 4241}#))
+ (cons #{e1\ 4252}#
+ #{e2\ 4253}#))
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4238"
- "i4239"))
+ #("i4250"
+ "i4251"))
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
(append
- #{c\ 4225}#
+ #{c\ 4237}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4238"
- "i4239"))
+ #("i4250"
+ "i4251"))
#(ribcage
#(step)
#((top))
- #("i4229"))
+ #("i4241"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4212"
- "i4213"
- "i4214"
- "i4215"
- "i4216"
- "i4217"
- "i4218"))
+ #("i4224"
+ "i4225"
+ "i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4209")))
+ #("i4221")))
(hygiene
guile))
- #{step\ 4230}#)))))))
- #{tmp\ 4237}#)
+ #{step\ 4242}#)))))))
+ #{tmp\ 4249}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4231}#)))
+ #{tmp\ 4243}#)))
($sc-dispatch
- #{tmp\ 4231}#
+ #{tmp\ 4243}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4231}#
+ #{tmp\ 4243}#
'())))
- #{e1\ 4224}#))
- #{tmp\ 4228}#)
+ #{e1\ 4236}#))
+ #{tmp\ 4240}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4227}#)))
- ($sc-dispatch #{tmp\ 4227}# (quote each-any))))
- (map (lambda (#{v\ 4248}# #{s\ 4249}#)
- ((lambda (#{tmp\ 4252}#)
- ((lambda (#{tmp\ 4253}#)
- (if #{tmp\ 4253}#
- (apply (lambda () #{v\ 4248}#)
- #{tmp\ 4253}#)
- ((lambda (#{tmp\ 4254}#)
- (if #{tmp\ 4254}#
- (apply (lambda (#{e\ 4256}#)
- #{e\ 4256}#)
- #{tmp\ 4254}#)
- ((lambda (#{_\ 4258}#)
+ #{tmp\ 4239}#)))
+ ($sc-dispatch #{tmp\ 4239}# (quote each-any))))
+ (map (lambda (#{v\ 4260}# #{s\ 4261}#)
+ ((lambda (#{tmp\ 4264}#)
+ ((lambda (#{tmp\ 4265}#)
+ (if #{tmp\ 4265}#
+ (apply (lambda () #{v\ 4260}#)
+ #{tmp\ 4265}#)
+ ((lambda (#{tmp\ 4266}#)
+ (if #{tmp\ 4266}#
+ (apply (lambda (#{e\ 4268}#)
+ #{e\ 4268}#)
+ #{tmp\ 4266}#)
+ ((lambda (#{_\ 4270}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4208}#
- #{s\ 4249}#))
- #{tmp\ 4252}#)))
+ #{orig-x\ 4220}#
+ #{s\ 4261}#))
+ #{tmp\ 4264}#)))
($sc-dispatch
- #{tmp\ 4252}#
+ #{tmp\ 4264}#
'(any)))))
- ($sc-dispatch #{tmp\ 4252}# (quote ()))))
- #{s\ 4249}#))
- #{var\ 4220}#
- #{step\ 4222}#)))
- #{tmp\ 4211}#)
+ ($sc-dispatch #{tmp\ 4264}# (quote ()))))
+ #{s\ 4261}#))
+ #{var\ 4232}#
+ #{step\ 4234}#)))
+ #{tmp\ 4223}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4210}#)))
+ #{tmp\ 4222}#)))
($sc-dispatch
- #{tmp\ 4210}#
+ #{tmp\ 4222}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 4208}#))))
+ #{orig-x\ 4220}#))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (letrec ((#{quasicons\ 4265}#
- (lambda (#{x\ 4269}# #{y\ 4270}#)
- ((lambda (#{tmp\ 4274}#)
- ((lambda (#{tmp\ 4275}#)
- (if #{tmp\ 4275}#
- (apply (lambda (#{x\ 4278}# #{y\ 4279}#)
- ((lambda (#{tmp\ 4280}#)
- ((lambda (#{tmp\ 4281}#)
- (if #{tmp\ 4281}#
- (apply (lambda (#{dy\ 4283}#)
- ((lambda (#{tmp\ 4284}#)
- ((lambda (#{tmp\ 4285}#)
- (if #{tmp\ 4285}#
- (apply (lambda (#{dx\ 4287}#)
+ (letrec ((#{quasicons\ 4277}#
+ (lambda (#{x\ 4281}# #{y\ 4282}#)
+ ((lambda (#{tmp\ 4286}#)
+ ((lambda (#{tmp\ 4287}#)
+ (if #{tmp\ 4287}#
+ (apply (lambda (#{x\ 4290}# #{y\ 4291}#)
+ ((lambda (#{tmp\ 4292}#)
+ ((lambda (#{tmp\ 4293}#)
+ (if #{tmp\ 4293}#
+ (apply (lambda (#{dy\ 4295}#)
+ ((lambda (#{tmp\ 4296}#)
+ ((lambda (#{tmp\ 4297}#)
+ (if #{tmp\ 4297}#
+ (apply (lambda (#{dx\ 4299}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4286"))
+ #("i4298"))
#(ribcage
#(dy)
#((top))
- #("i4282"))
+ #("i4294"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4276"
- "i4277"))
+ #("i4288"
+ "i4289"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4271"
- "i4272"))
+ #("i4283"
+ "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene
guile))
- (cons #{dx\ 4287}#
- #{dy\ 4283}#)))
- #{tmp\ 4285}#)
- ((lambda (#{_\ 4289}#)
- (if (null? #{dy\ 4283}#)
+ (cons #{dx\ 4299}#
+ #{dy\ 4295}#)))
+ #{tmp\ 4297}#)
+ ((lambda (#{_\ 4301}#)
+ (if (null? #{dy\ 4295}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4288"))
+ #("i4300"))
#(ribcage
#(dy)
#((top))
- #("i4282"))
+ #("i4294"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4276"
- "i4277"))
+ #("i4288"
+ "i4289"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4271"
- "i4272"))
+ #("i4283"
+ "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene
guile))
- #{x\ 4278}#)
+ #{x\ 4290}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4288"))
+ #("i4300"))
#(ribcage
#(dy)
#((top))
- #("i4282"))
+ #("i4294"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4276"
- "i4277"))
+ #("i4288"
+ "i4289"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4271"
- "i4272"))
+ #("i4283"
+ "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene
guile))
- #{x\ 4278}#
- #{y\ 4279}#)))
- #{tmp\ 4284}#)))
+ #{x\ 4290}#
+ #{y\ 4291}#)))
+ #{tmp\ 4296}#)))
($sc-dispatch
- #{tmp\ 4284}#
+ #{tmp\ 4296}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(dy)
#((top))
- #("i4282"))
+ #("i4294"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4276"
- "i4277"))
+ #("i4288"
+ "i4289"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i4271"
- "i4272"))
+ #("i4283"
+ "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene
guile)))
any))))
- #{x\ 4278}#))
- #{tmp\ 4281}#)
- ((lambda (#{tmp\ 4290}#)
- (if #{tmp\ 4290}#
- (apply (lambda (#{stuff\ 4292}#)
+ #{x\ 4290}#))
+ #{tmp\ 4293}#)
+ ((lambda (#{tmp\ 4302}#)
+ (if #{tmp\ 4302}#
+ (apply (lambda (#{stuff\ 4304}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4291"))
+ #("i4303"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4276"
- "i4277"))
+ #("i4288"
+ "i4289"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i4271"
- "i4272"))
+ #("i4283"
+ "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene
guile))
- (cons #{x\ 4278}#
- #{stuff\ 4292}#)))
- #{tmp\ 4290}#)
- ((lambda (#{else\ 4294}#)
+ (cons #{x\ 4290}#
+ #{stuff\ 4304}#)))
+ #{tmp\ 4302}#)
+ ((lambda (#{else\ 4306}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4293"))
+ #("i4305"))
#(ribcage
#(x y)
#((top) (top))
- #("i4276"
- "i4277"))
+ #("i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4271"
- "i4272"))
+ #("i4283"
+ "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- #{x\ 4278}#
- #{y\ 4279}#))
- #{tmp\ 4280}#)))
+ #{x\ 4290}#
+ #{y\ 4291}#))
+ #{tmp\ 4292}#)))
($sc-dispatch
- #{tmp\ 4280}#
+ #{tmp\ 4292}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x y)
#((top) (top))
- #("i4276" "i4277"))
+ #("i4288" "i4289"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4271" "i4272"))
+ #("i4283" "i4284"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4280}#
+ #{tmp\ 4292}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4276" "i4277"))
+ #("i4288" "i4289"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4271" "i4272"))
+ #("i4283" "i4284"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
any))))
- #{y\ 4279}#))
- #{tmp\ 4275}#)
+ #{y\ 4291}#))
+ #{tmp\ 4287}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4274}#)))
- ($sc-dispatch #{tmp\ 4274}# (quote (any any)))))
- (list #{x\ 4269}# #{y\ 4270}#))))
- (#{quasiappend\ 4266}#
- (lambda (#{x\ 4295}# #{y\ 4296}#)
- ((lambda (#{tmp\ 4300}#)
- ((lambda (#{tmp\ 4301}#)
- (if #{tmp\ 4301}#
- (apply (lambda (#{x\ 4304}# #{y\ 4305}#)
- ((lambda (#{tmp\ 4306}#)
- ((lambda (#{tmp\ 4307}#)
- (if #{tmp\ 4307}#
- (apply (lambda () #{x\ 4304}#)
- #{tmp\ 4307}#)
- ((lambda (#{_\ 4309}#)
+ #{tmp\ 4286}#)))
+ ($sc-dispatch #{tmp\ 4286}# (quote (any any)))))
+ (list #{x\ 4281}# #{y\ 4282}#))))
+ (#{quasiappend\ 4278}#
+ (lambda (#{x\ 4307}# #{y\ 4308}#)
+ ((lambda (#{tmp\ 4312}#)
+ ((lambda (#{tmp\ 4313}#)
+ (if #{tmp\ 4313}#
+ (apply (lambda (#{x\ 4316}# #{y\ 4317}#)
+ ((lambda (#{tmp\ 4318}#)
+ ((lambda (#{tmp\ 4319}#)
+ (if #{tmp\ 4319}#
+ (apply (lambda () #{x\ 4316}#)
+ #{tmp\ 4319}#)
+ ((lambda (#{_\ 4321}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i4308"))
+ #("i4320"))
#(ribcage
#(x y)
#((top) (top))
- #("i4302" "i4303"))
+ #("i4314" "i4315"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4297" "i4298"))
+ #("i4309" "i4310"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- #{x\ 4304}#
- #{y\ 4305}#))
- #{tmp\ 4306}#)))
+ #{x\ 4316}#
+ #{y\ 4317}#))
+ #{tmp\ 4318}#)))
($sc-dispatch
- #{tmp\ 4306}#
+ #{tmp\ 4318}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4302" "i4303"))
+ #("i4314" "i4315"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4297" "i4298"))
+ #("i4309" "i4310"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
()))))
- #{y\ 4305}#))
- #{tmp\ 4301}#)
+ #{y\ 4317}#))
+ #{tmp\ 4313}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4300}#)))
- ($sc-dispatch #{tmp\ 4300}# (quote (any any)))))
- (list #{x\ 4295}# #{y\ 4296}#))))
- (#{quasivector\ 4267}#
- (lambda (#{x\ 4310}#)
- ((lambda (#{tmp\ 4313}#)
- ((lambda (#{x\ 4315}#)
- ((lambda (#{tmp\ 4316}#)
- ((lambda (#{tmp\ 4317}#)
- (if #{tmp\ 4317}#
- (apply (lambda (#{x\ 4319}#)
+ #{tmp\ 4312}#)))
+ ($sc-dispatch #{tmp\ 4312}# (quote (any any)))))
+ (list #{x\ 4307}# #{y\ 4308}#))))
+ (#{quasivector\ 4279}#
+ (lambda (#{x\ 4322}#)
+ ((lambda (#{tmp\ 4325}#)
+ ((lambda (#{x\ 4327}#)
+ ((lambda (#{tmp\ 4328}#)
+ ((lambda (#{tmp\ 4329}#)
+ (if #{tmp\ 4329}#
+ (apply (lambda (#{x\ 4331}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i4318"))
+ #("i4330"))
#(ribcage
#(x)
#((top))
- #("i4314"))
+ #("i4326"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4311"))
+ #("i4323"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- (list->vector #{x\ 4319}#)))
- #{tmp\ 4317}#)
- ((lambda (#{tmp\ 4321}#)
- (if #{tmp\ 4321}#
- (apply (lambda (#{x\ 4323}#)
+ (list->vector #{x\ 4331}#)))
+ #{tmp\ 4329}#)
+ ((lambda (#{tmp\ 4333}#)
+ (if #{tmp\ 4333}#
+ (apply (lambda (#{x\ 4335}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i4322"))
+ #("i4334"))
#(ribcage
#(x)
#((top))
- #("i4314"))
+ #("i4326"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4311"))
+ #("i4323"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- #{x\ 4323}#))
- #{tmp\ 4321}#)
- ((lambda (#{_\ 4326}#)
+ #{x\ 4335}#))
+ #{tmp\ 4333}#)
+ ((lambda (#{_\ 4338}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i4325"))
+ #("i4337"))
#(ribcage
#(x)
#((top))
- #("i4314"))
+ #("i4326"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4311"))
+ #("i4323"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- #{x\ 4315}#))
- #{tmp\ 4316}#)))
+ #{x\ 4327}#))
+ #{tmp\ 4328}#)))
($sc-dispatch
- #{tmp\ 4316}#
+ #{tmp\ 4328}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4314"))
+ #(ribcage #(x) #((top)) #("i4326"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4311"))
+ #(ribcage #(x) #((top)) #("i4323"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264")))
+ #("i4273" "i4274" "i4275" "i4276")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 4316}#
+ #{tmp\ 4328}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4314"))
+ #(ribcage #(x) #((top)) #("i4326"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4311"))
+ #(ribcage #(x) #((top)) #("i4323"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264")))
+ #("i4273" "i4274" "i4275" "i4276")))
(hygiene guile)))
each-any))))
- #{x\ 4315}#))
- #{tmp\ 4313}#))
- #{x\ 4310}#)))
- (#{quasi\ 4268}#
- (lambda (#{p\ 4327}# #{lev\ 4328}#)
- ((lambda (#{tmp\ 4331}#)
- ((lambda (#{tmp\ 4332}#)
- (if #{tmp\ 4332}#
- (apply (lambda (#{p\ 4334}#)
- (if (= #{lev\ 4328}# 0)
- #{p\ 4334}#
- (#{quasicons\ 4265}#
+ #{x\ 4327}#))
+ #{tmp\ 4325}#))
+ #{x\ 4322}#)))
+ (#{quasi\ 4280}#
+ (lambda (#{p\ 4339}# #{lev\ 4340}#)
+ ((lambda (#{tmp\ 4343}#)
+ ((lambda (#{tmp\ 4344}#)
+ (if #{tmp\ 4344}#
+ (apply (lambda (#{p\ 4346}#)
+ (if (= #{lev\ 4340}# 0)
+ #{p\ 4346}#
+ (#{quasicons\ 4277}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4333"))
+ #(ribcage #(p) #((top)) #("i4345"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4333"))
+ #(ribcage #(p) #((top)) #("i4345"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
- (#{quasi\ 4268}#
- (list #{p\ 4334}#)
- (- #{lev\ 4328}# 1)))))
- #{tmp\ 4332}#)
- ((lambda (#{tmp\ 4335}#)
- (if (if #{tmp\ 4335}#
- (apply (lambda (#{args\ 4337}#)
- (= #{lev\ 4328}# 0))
- #{tmp\ 4335}#)
+ (#{quasi\ 4280}#
+ (list #{p\ 4346}#)
+ (- #{lev\ 4340}# 1)))))
+ #{tmp\ 4344}#)
+ ((lambda (#{tmp\ 4347}#)
+ (if (if #{tmp\ 4347}#
+ (apply (lambda (#{args\ 4349}#)
+ (= #{lev\ 4340}# 0))
+ #{tmp\ 4347}#)
#f)
- (apply (lambda (#{args\ 4339}#)
+ (apply (lambda (#{args\ 4351}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4327}#
+ #{p\ 4339}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i4338"))
+ #("i4350"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- #{args\ 4339}#)))
- #{tmp\ 4335}#)
- ((lambda (#{tmp\ 4340}#)
- (if #{tmp\ 4340}#
- (apply (lambda (#{p\ 4343}# #{q\ 4344}#)
- (if (= #{lev\ 4328}# 0)
- (#{quasiappend\ 4266}#
- #{p\ 4343}#
- (#{quasi\ 4268}#
- #{q\ 4344}#
- #{lev\ 4328}#))
- (#{quasicons\ 4265}#
- (#{quasicons\ 4265}#
+ #{args\ 4351}#)))
+ #{tmp\ 4347}#)
+ ((lambda (#{tmp\ 4352}#)
+ (if #{tmp\ 4352}#
+ (apply (lambda (#{p\ 4355}# #{q\ 4356}#)
+ (if (= #{lev\ 4340}# 0)
+ (#{quasiappend\ 4278}#
+ #{p\ 4355}#
+ (#{quasi\ 4280}#
+ #{q\ 4356}#
+ #{lev\ 4340}#))
+ (#{quasicons\ 4277}#
+ (#{quasicons\ 4277}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4341" "i4342"))
+ #("i4353" "i4354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4341" "i4342"))
+ #("i4353" "i4354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
- (#{quasi\ 4268}#
- (list #{p\ 4343}#)
- (- #{lev\ 4328}# 1)))
- (#{quasi\ 4268}#
- #{q\ 4344}#
- #{lev\ 4328}#))))
- #{tmp\ 4340}#)
- ((lambda (#{tmp\ 4345}#)
- (if (if #{tmp\ 4345}#
- (apply (lambda (#{args\ 4348}#
- #{q\ 4349}#)
- (= #{lev\ 4328}# 0))
- #{tmp\ 4345}#)
+ (#{quasi\ 4280}#
+ (list #{p\ 4355}#)
+ (- #{lev\ 4340}# 1)))
+ (#{quasi\ 4280}#
+ #{q\ 4356}#
+ #{lev\ 4340}#))))
+ #{tmp\ 4352}#)
+ ((lambda (#{tmp\ 4357}#)
+ (if (if #{tmp\ 4357}#
+ (apply (lambda (#{args\ 4360}#
+ #{q\ 4361}#)
+ (= #{lev\ 4340}# 0))
+ #{tmp\ 4357}#)
#f)
- (apply (lambda (#{args\ 4352}#
- #{q\ 4353}#)
+ (apply (lambda (#{args\ 4364}#
+ #{q\ 4365}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 4327}#
+ #{p\ 4339}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4350"
- "i4351"))
+ #("i4362"
+ "i4363"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4329"
- "i4330"))
+ #("i4341"
+ "i4342"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
- #{args\ 4352}#)))
- #{tmp\ 4345}#)
- ((lambda (#{tmp\ 4354}#)
- (if #{tmp\ 4354}#
- (apply (lambda (#{p\ 4356}#)
- (#{quasicons\ 4265}#
+ #{args\ 4364}#)))
+ #{tmp\ 4357}#)
+ ((lambda (#{tmp\ 4366}#)
+ (if #{tmp\ 4366}#
+ (apply (lambda (#{p\ 4368}#)
+ (#{quasicons\ 4277}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4355"))
+ #("i4367"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4329"
- "i4330"))
+ #("i4341"
+ "i4342"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile))
#(syntax-object
quasiquote
#(ribcage
#(p)
#((top))
- #("i4355"))
+ #("i4367"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4329"
- "i4330"))
+ #("i4341"
+ "i4342"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
- (#{quasi\ 4268}#
- (list #{p\ 4356}#)
- (+ #{lev\ 4328}#
+ (#{quasi\ 4280}#
+ (list #{p\ 4368}#)
+ (+ #{lev\ 4340}#
1))))
- #{tmp\ 4354}#)
- ((lambda (#{tmp\ 4357}#)
- (if #{tmp\ 4357}#
- (apply (lambda (#{p\ 4360}#
- #{q\ 4361}#)
- (#{quasicons\ 4265}#
- (#{quasi\ 4268}#
- #{p\ 4360}#
- #{lev\ 4328}#)
- (#{quasi\ 4268}#
- #{q\ 4361}#
- #{lev\ 4328}#)))
- #{tmp\ 4357}#)
- ((lambda (#{tmp\ 4362}#)
- (if #{tmp\ 4362}#
- (apply (lambda (#{x\ 4364}#)
- (#{quasivector\ 4267}#
- (#{quasi\ 4268}#
- #{x\ 4364}#
- #{lev\ 4328}#)))
- #{tmp\ 4362}#)
- ((lambda (#{p\ 4367}#)
+ #{tmp\ 4366}#)
+ ((lambda (#{tmp\ 4369}#)
+ (if #{tmp\ 4369}#
+ (apply (lambda (#{p\ 4372}#
+ #{q\ 4373}#)
+ (#{quasicons\ 4277}#
+ (#{quasi\ 4280}#
+ #{p\ 4372}#
+ #{lev\ 4340}#)
+ (#{quasi\ 4280}#
+ #{q\ 4373}#
+ #{lev\ 4340}#)))
+ #{tmp\ 4369}#)
+ ((lambda (#{tmp\ 4374}#)
+ (if #{tmp\ 4374}#
+ (apply (lambda (#{x\ 4376}#)
+ (#{quasivector\ 4279}#
+ (#{quasi\ 4280}#
+ #{x\ 4376}#
+ #{lev\ 4340}#)))
+ #{tmp\ 4374}#)
+ ((lambda (#{p\ 4379}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4366"))
+ #("i4378"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4329"
- "i4330"))
+ #("i4341"
+ "i4342"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene
guile))
- #{p\ 4367}#))
- #{tmp\ 4331}#)))
+ #{p\ 4379}#))
+ #{tmp\ 4343}#)))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'#(vector each-any)))))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264")))
+ #("i4273"
+ "i4274"
+ "i4275"
+ "i4276")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264")))
+ #("i4273" "i4274" "i4275" "i4276")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264")))
+ #("i4273" "i4274" "i4275" "i4276")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4331}#
+ #{tmp\ 4343}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4329" "i4330"))
+ #("i4341" "i4342"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264")))
+ #("i4273" "i4274" "i4275" "i4276")))
(hygiene guile)))
any))))
- #{p\ 4327}#))))
- (lambda (#{x\ 4368}#)
- ((lambda (#{tmp\ 4370}#)
- ((lambda (#{tmp\ 4371}#)
- (if #{tmp\ 4371}#
- (apply (lambda (#{_\ 4374}# #{e\ 4375}#)
- (#{quasi\ 4268}# #{e\ 4375}# 0))
- #{tmp\ 4371}#)
+ #{p\ 4339}#))))
+ (lambda (#{x\ 4380}#)
+ ((lambda (#{tmp\ 4382}#)
+ ((lambda (#{tmp\ 4383}#)
+ (if #{tmp\ 4383}#
+ (apply (lambda (#{_\ 4386}# #{e\ 4387}#)
+ (#{quasi\ 4280}# #{e\ 4387}# 0))
+ #{tmp\ 4383}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4370}#)))
- ($sc-dispatch #{tmp\ 4370}# (quote (any any)))))
- #{x\ 4368}#)))))
+ #{tmp\ 4382}#)))
+ ($sc-dispatch #{tmp\ 4382}# (quote (any any)))))
+ #{x\ 4380}#)))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4376}#)
- (letrec ((#{read-file\ 4379}#
- (lambda (#{fn\ 4380}# #{k\ 4381}#)
- (let ((#{p\ 4385}# (open-input-file #{fn\ 4380}#)))
- (letrec ((#{f\ 4389}#
- (lambda (#{x\ 4390}# #{result\ 4391}#)
- (if (eof-object? #{x\ 4390}#)
+ (lambda (#{x\ 4388}#)
+ (letrec ((#{read-file\ 4391}#
+ (lambda (#{fn\ 4392}# #{k\ 4393}#)
+ (let ((#{p\ 4397}# (open-input-file #{fn\ 4392}#)))
+ (letrec ((#{f\ 4401}#
+ (lambda (#{x\ 4402}# #{result\ 4403}#)
+ (if (eof-object? #{x\ 4402}#)
(begin
- (close-input-port #{p\ 4385}#)
- (reverse #{result\ 4391}#))
- (#{f\ 4389}#
- (read #{p\ 4385}#)
+ (close-input-port #{p\ 4397}#)
+ (reverse #{result\ 4403}#))
+ (#{f\ 4401}#
+ (read #{p\ 4397}#)
(cons (datum->syntax
- #{k\ 4381}#
- #{x\ 4390}#)
- #{result\ 4391}#))))))
- (#{f\ 4389}# (read #{p\ 4385}#) (quote ())))))))
- ((lambda (#{tmp\ 4392}#)
- ((lambda (#{tmp\ 4393}#)
- (if #{tmp\ 4393}#
- (apply (lambda (#{k\ 4396}# #{filename\ 4397}#)
- (let ((#{fn\ 4399}#
- (syntax->datum #{filename\ 4397}#)))
- ((lambda (#{tmp\ 4401}#)
- ((lambda (#{tmp\ 4402}#)
- (if #{tmp\ 4402}#
- (apply (lambda (#{exp\ 4404}#)
+ #{k\ 4393}#
+ #{x\ 4402}#)
+ #{result\ 4403}#))))))
+ (#{f\ 4401}# (read #{p\ 4397}#) (quote ())))))))
+ ((lambda (#{tmp\ 4404}#)
+ ((lambda (#{tmp\ 4405}#)
+ (if #{tmp\ 4405}#
+ (apply (lambda (#{k\ 4408}# #{filename\ 4409}#)
+ (let ((#{fn\ 4411}#
+ (syntax->datum #{filename\ 4409}#)))
+ ((lambda (#{tmp\ 4413}#)
+ ((lambda (#{tmp\ 4414}#)
+ (if #{tmp\ 4414}#
+ (apply (lambda (#{exp\ 4416}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4403"))
+ #("i4415"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4398"))
+ #("i4410"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4394" "i4395"))
+ #("i4406" "i4407"))
#(ribcage
(read-file)
((top))
- ("i4378"))
+ ("i4390"))
#(ribcage
#(x)
#((top))
- #("i4377")))
+ #("i4389")))
(hygiene guile))
- #{exp\ 4404}#))
- #{tmp\ 4402}#)
+ #{exp\ 4416}#))
+ #{tmp\ 4414}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4401}#)))
- ($sc-dispatch #{tmp\ 4401}# (quote each-any))))
- (#{read-file\ 4379}#
- #{fn\ 4399}#
- #{filename\ 4397}#))))
- #{tmp\ 4393}#)
+ #{tmp\ 4413}#)))
+ ($sc-dispatch #{tmp\ 4413}# (quote each-any))))
+ (#{read-file\ 4391}#
+ #{fn\ 4411}#
+ #{filename\ 4409}#))))
+ #{tmp\ 4405}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4392}#)))
- ($sc-dispatch #{tmp\ 4392}# (quote (any any)))))
- #{x\ 4376}#)))))
+ #{tmp\ 4404}#)))
+ ($sc-dispatch #{tmp\ 4404}# (quote (any any)))))
+ #{x\ 4388}#)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4406}#)
- ((lambda (#{tmp\ 4408}#)
- ((lambda (#{tmp\ 4409}#)
- (if #{tmp\ 4409}#
- (apply (lambda (#{k\ 4412}# #{filename\ 4413}#)
- (let ((#{fn\ 4415}# (syntax->datum #{filename\ 4413}#)))
- ((lambda (#{tmp\ 4417}#)
- ((lambda (#{fn\ 4419}#)
+ (lambda (#{x\ 4418}#)
+ ((lambda (#{tmp\ 4420}#)
+ ((lambda (#{tmp\ 4421}#)
+ (if #{tmp\ 4421}#
+ (apply (lambda (#{k\ 4424}# #{filename\ 4425}#)
+ (let ((#{fn\ 4427}# (syntax->datum #{filename\ 4425}#)))
+ ((lambda (#{tmp\ 4429}#)
+ ((lambda (#{fn\ 4431}#)
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4418"))
+ #(ribcage #(fn) #((top)) #("i4430"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4414"))
+ #(ribcage #(fn) #((top)) #("i4426"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4422" "i4423"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4407")))
+ #(ribcage #(x) #((top)) #("i4419")))
(hygiene guile))
- #{fn\ 4419}#))
- #{tmp\ 4417}#))
+ #{fn\ 4431}#))
+ #{tmp\ 4429}#))
(datum->syntax
- #{filename\ 4413}#
- (let ((#{t\ 4422}#
- (%search-load-path #{fn\ 4415}#)))
- (if #{t\ 4422}#
- #{t\ 4422}#
+ #{filename\ 4425}#
+ (let ((#{t\ 4434}#
+ (%search-load-path #{fn\ 4427}#)))
+ (if #{t\ 4434}#
+ #{t\ 4434}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4406}#
- #{filename\ 4413}#)))))))
- #{tmp\ 4409}#)
+ #{x\ 4418}#
+ #{filename\ 4425}#)))))))
+ #{tmp\ 4421}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4408}#)))
- ($sc-dispatch #{tmp\ 4408}# (quote (any any)))))
- #{x\ 4406}#))))
+ #{tmp\ 4420}#)))
+ ($sc-dispatch #{tmp\ 4420}# (quote (any any)))))
+ #{x\ 4418}#))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4424}#)
- ((lambda (#{tmp\ 4426}#)
- ((lambda (#{tmp\ 4427}#)
- (if #{tmp\ 4427}#
- (apply (lambda (#{_\ 4430}# #{e\ 4431}#)
+ (lambda (#{x\ 4436}#)
+ ((lambda (#{tmp\ 4438}#)
+ ((lambda (#{tmp\ 4439}#)
+ (if #{tmp\ 4439}#
+ (apply (lambda (#{_\ 4442}# #{e\ 4443}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4424}#))
- #{tmp\ 4427}#)
+ #{x\ 4436}#))
+ #{tmp\ 4439}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4426}#)))
- ($sc-dispatch #{tmp\ 4426}# (quote (any any)))))
- #{x\ 4424}#))))
+ #{tmp\ 4438}#)))
+ ($sc-dispatch #{tmp\ 4438}# (quote (any any)))))
+ #{x\ 4436}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4432}#)
- ((lambda (#{tmp\ 4434}#)
- ((lambda (#{tmp\ 4435}#)
- (if #{tmp\ 4435}#
- (apply (lambda (#{_\ 4438}# #{e\ 4439}#)
+ (lambda (#{x\ 4444}#)
+ ((lambda (#{tmp\ 4446}#)
+ ((lambda (#{tmp\ 4447}#)
+ (if #{tmp\ 4447}#
+ (apply (lambda (#{_\ 4450}# #{e\ 4451}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4432}#))
- #{tmp\ 4435}#)
+ #{x\ 4444}#))
+ #{tmp\ 4447}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4434}#)))
- ($sc-dispatch #{tmp\ 4434}# (quote (any any)))))
- #{x\ 4432}#))))
+ #{tmp\ 4446}#)))
+ ($sc-dispatch #{tmp\ 4446}# (quote (any any)))))
+ #{x\ 4444}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4440}#)
- ((lambda (#{tmp\ 4442}#)
- ((lambda (#{tmp\ 4443}#)
- (if #{tmp\ 4443}#
- (apply (lambda (#{_\ 4448}#
- #{e\ 4449}#
- #{m1\ 4450}#
- #{m2\ 4451}#)
- ((lambda (#{tmp\ 4453}#)
- ((lambda (#{body\ 4455}#)
+ (lambda (#{x\ 4452}#)
+ ((lambda (#{tmp\ 4454}#)
+ ((lambda (#{tmp\ 4455}#)
+ (if #{tmp\ 4455}#
+ (apply (lambda (#{_\ 4460}#
+ #{e\ 4461}#
+ #{m1\ 4462}#
+ #{m2\ 4463}#)
+ ((lambda (#{tmp\ 4465}#)
+ ((lambda (#{body\ 4467}#)
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4454"))
+ #(ribcage #(body) #((top)) #("i4466"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4444" "i4445" "i4446" "i4447"))
+ #("i4456" "i4457" "i4458" "i4459"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4441")))
+ #(ribcage #(x) #((top)) #("i4453")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4454"))
+ #("i4466"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene guile))
- #{e\ 4449}#))
- #{body\ 4455}#))
- #{tmp\ 4453}#))
- (letrec ((#{f\ 4459}#
- (lambda (#{clause\ 4460}# #{clauses\ 4461}#)
- (if (null? #{clauses\ 4461}#)
- ((lambda (#{tmp\ 4463}#)
- ((lambda (#{tmp\ 4464}#)
- (if #{tmp\ 4464}#
- (apply (lambda (#{e1\ 4467}#
- #{e2\ 4468}#)
+ #{e\ 4461}#))
+ #{body\ 4467}#))
+ #{tmp\ 4465}#))
+ (letrec ((#{f\ 4471}#
+ (lambda (#{clause\ 4472}# #{clauses\ 4473}#)
+ (if (null? #{clauses\ 4473}#)
+ ((lambda (#{tmp\ 4475}#)
+ ((lambda (#{tmp\ 4476}#)
+ (if #{tmp\ 4476}#
+ (apply (lambda (#{e1\ 4479}#
+ #{e2\ 4480}#)
(cons '#(syntax-object
begin
((top)
#(e1 e2)
#((top)
(top))
- #("i4465"
- "i4466"))
+ #("i4477"
+ "i4478"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
- (cons #{e1\ 4467}#
- #{e2\ 4468}#)))
- #{tmp\ 4464}#)
- ((lambda (#{tmp\ 4470}#)
- (if #{tmp\ 4470}#
- (apply (lambda (#{k\ 4474}#
- #{e1\ 4475}#
- #{e2\ 4476}#)
+ (cons #{e1\ 4479}#
+ #{e2\ 4480}#)))
+ #{tmp\ 4476}#)
+ ((lambda (#{tmp\ 4482}#)
+ (if #{tmp\ 4482}#
+ (apply (lambda (#{k\ 4486}#
+ #{e1\ 4487}#
+ #{e2\ 4488}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i4471"
- "i4472"
- "i4473"))
+ #("i4483"
+ "i4484"
+ "i4485"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4471"
- "i4472"
- "i4473"))
+ #("i4483"
+ "i4484"
+ "i4485"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i4471"
- "i4472"
- "i4473"))
+ #("i4483"
+ "i4484"
+ "i4485"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4471"
- "i4472"
- "i4473"))
+ #("i4483"
+ "i4484"
+ "i4485"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
- #{k\ 4474}#))
+ #{k\ 4486}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4471"
- "i4472"
- "i4473"))
+ #("i4483"
+ "i4484"
+ "i4485"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
- (cons #{e1\ 4475}#
- #{e2\ 4476}#))))
- #{tmp\ 4470}#)
- ((lambda (#{_\ 4480}#)
+ (cons #{e1\ 4487}#
+ #{e2\ 4488}#))))
+ #{tmp\ 4482}#)
+ ((lambda (#{_\ 4492}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4440}#
- #{clause\ 4460}#))
- #{tmp\ 4463}#)))
+ #{x\ 4452}#
+ #{clause\ 4472}#))
+ #{tmp\ 4475}#)))
($sc-dispatch
- #{tmp\ 4463}#
+ #{tmp\ 4475}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4463}#
+ #{tmp\ 4475}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 4460}#)
- ((lambda (#{tmp\ 4482}#)
- ((lambda (#{rest\ 4484}#)
- ((lambda (#{tmp\ 4485}#)
- ((lambda (#{tmp\ 4486}#)
- (if #{tmp\ 4486}#
- (apply (lambda (#{k\ 4490}#
- #{e1\ 4491}#
- #{e2\ 4492}#)
+ #{clause\ 4472}#)
+ ((lambda (#{tmp\ 4494}#)
+ ((lambda (#{rest\ 4496}#)
+ ((lambda (#{tmp\ 4497}#)
+ ((lambda (#{tmp\ 4498}#)
+ (if #{tmp\ 4498}#
+ (apply (lambda (#{k\ 4502}#
+ #{e1\ 4503}#
+ #{e2\ 4504}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i4487"
- "i4488"
- "i4489"))
+ #("i4499"
+ "i4500"
+ "i4501"))
#(ribcage
#(rest)
#((top))
- #("i4483"))
+ #("i4495"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4487"
- "i4488"
- "i4489"))
+ #("i4499"
+ "i4500"
+ "i4501"))
#(ribcage
#(rest)
#((top))
- #("i4483"))
+ #("i4495"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i4487"
- "i4488"
- "i4489"))
+ #("i4499"
+ "i4500"
+ "i4501"))
#(ribcage
#(rest)
#((top))
- #("i4483"))
+ #("i4495"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4487"
- "i4488"
- "i4489"))
+ #("i4499"
+ "i4500"
+ "i4501"))
#(ribcage
#(rest)
#((top))
- #("i4483"))
+ #("i4495"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
- #{k\ 4490}#))
+ #{k\ 4502}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4487"
- "i4488"
- "i4489"))
+ #("i4499"
+ "i4500"
+ "i4501"))
#(ribcage
#(rest)
#((top))
- #("i4483"))
+ #("i4495"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4456"
- "i4457"
- "i4458"))
+ #("i4468"
+ "i4469"
+ "i4470"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4444"
- "i4445"
- "i4446"
- "i4447"))
+ #("i4456"
+ "i4457"
+ "i4458"
+ "i4459"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4441")))
+ #("i4453")))
(hygiene
guile))
- (cons #{e1\ 4491}#
- #{e2\ 4492}#))
- #{rest\ 4484}#))
- #{tmp\ 4486}#)
- ((lambda (#{_\ 4496}#)
+ (cons #{e1\ 4503}#
+ #{e2\ 4504}#))
+ #{rest\ 4496}#))
+ #{tmp\ 4498}#)
+ ((lambda (#{_\ 4508}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4440}#
- #{clause\ 4460}#))
- #{tmp\ 4485}#)))
+ #{x\ 4452}#
+ #{clause\ 4472}#))
+ #{tmp\ 4497}#)))
($sc-dispatch
- #{tmp\ 4485}#
+ #{tmp\ 4497}#
'(each-any
any
.
each-any))))
- #{clause\ 4460}#))
- #{tmp\ 4482}#))
- (#{f\ 4459}#
- (car #{clauses\ 4461}#)
- (cdr #{clauses\ 4461}#)))))))
- (#{f\ 4459}# #{m1\ 4450}# #{m2\ 4451}#))))
- #{tmp\ 4443}#)
+ #{clause\ 4472}#))
+ #{tmp\ 4494}#))
+ (#{f\ 4471}#
+ (car #{clauses\ 4473}#)
+ (cdr #{clauses\ 4473}#)))))))
+ (#{f\ 4471}# #{m1\ 4462}# #{m2\ 4463}#))))
+ #{tmp\ 4455}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4442}#)))
+ #{tmp\ 4454}#)))
($sc-dispatch
- #{tmp\ 4442}#
+ #{tmp\ 4454}#
'(any any any . each-any))))
- #{x\ 4440}#))))
+ #{x\ 4452}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4497}#)
- ((lambda (#{tmp\ 4499}#)
- ((lambda (#{tmp\ 4500}#)
- (if #{tmp\ 4500}#
- (apply (lambda (#{_\ 4503}# #{e\ 4504}#)
+ (lambda (#{x\ 4509}#)
+ ((lambda (#{tmp\ 4511}#)
+ ((lambda (#{tmp\ 4512}#)
+ (if #{tmp\ 4512}#
+ (apply (lambda (#{_\ 4515}# #{e\ 4516}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4498")))
+ #(ribcage #(x) #((top)) #("i4510")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4498")))
+ #(ribcage #(x) #((top)) #("i4510")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4498")))
+ #(ribcage #(x) #((top)) #("i4510")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4498")))
+ #(ribcage #(x) #((top)) #("i4510")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4498")))
+ #(ribcage #(x) #((top)) #("i4510")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4498")))
+ #(ribcage #(x) #((top)) #("i4510")))
(hygiene guile))
'()
(list '#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
'(#(syntax-object
identifier?
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
(#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
#(syntax-object
id
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
- #{e\ 4504}#))
- (list (cons #{_\ 4503}#
+ #{e\ 4516}#))
+ (list (cons #{_\ 4515}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
- (cons #{e\ 4504}#
+ (cons #{e\ 4516}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4513" "i4514"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4498")))
+ #("i4510")))
(hygiene
guile)))))))))
- #{tmp\ 4500}#)
+ #{tmp\ 4512}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4499}#)))
- ($sc-dispatch #{tmp\ 4499}# (quote (any any)))))
- #{x\ 4497}#))))
+ #{tmp\ 4511}#)))
+ ($sc-dispatch #{tmp\ 4511}# (quote (any any)))))
+ #{x\ 4509}#))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4505}#)
- ((lambda (#{tmp\ 4507}#)
- ((lambda (#{tmp\ 4508}#)
- (if #{tmp\ 4508}#
- (apply (lambda (#{_\ 4514}#
- #{id\ 4515}#
- #{args\ 4516}#
- #{b0\ 4517}#
- #{b1\ 4518}#)
+ (lambda (#{x\ 4517}#)
+ ((lambda (#{tmp\ 4519}#)
+ ((lambda (#{tmp\ 4520}#)
+ (if #{tmp\ 4520}#
+ (apply (lambda (#{_\ 4526}#
+ #{id\ 4527}#
+ #{args\ 4528}#
+ #{b0\ 4529}#
+ #{b1\ 4530}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4509" "i4510" "i4511" "i4512" "i4513"))
+ #("i4521" "i4522" "i4523" "i4524" "i4525"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4506")))
+ #(ribcage #(x) #((top)) #("i4518")))
(hygiene guile))
- #{id\ 4515}#
+ #{id\ 4527}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4509"
- "i4510"
- "i4511"
- "i4512"
- "i4513"))
+ #("i4521"
+ "i4522"
+ "i4523"
+ "i4524"
+ "i4525"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4506")))
+ #(ribcage #(x) #((top)) #("i4518")))
(hygiene guile))
- (cons #{args\ 4516}#
- (cons #{b0\ 4517}# #{b1\ 4518}#)))))
- #{tmp\ 4508}#)
- ((lambda (#{tmp\ 4520}#)
- (if (if #{tmp\ 4520}#
- (apply (lambda (#{_\ 4524}# #{id\ 4525}# #{val\ 4526}#)
+ (cons #{args\ 4528}#
+ (cons #{b0\ 4529}# #{b1\ 4530}#)))))
+ #{tmp\ 4520}#)
+ ((lambda (#{tmp\ 4532}#)
+ (if (if #{tmp\ 4532}#
+ (apply (lambda (#{_\ 4536}# #{id\ 4537}# #{val\ 4538}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4521" "i4522" "i4523"))
+ #("i4533" "i4534" "i4535"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4506")))
+ #(ribcage #(x) #((top)) #("i4518")))
(hygiene guile))))
- #{tmp\ 4520}#)
+ #{tmp\ 4532}#)
#f)
- (apply (lambda (#{_\ 4530}# #{id\ 4531}# #{val\ 4532}#)
+ (apply (lambda (#{_\ 4542}# #{id\ 4543}# #{val\ 4544}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4527" "i4528" "i4529"))
+ #("i4539" "i4540" "i4541"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4506")))
+ #(ribcage #(x) #((top)) #("i4518")))
(hygiene guile))
- #{id\ 4531}#
- #{val\ 4532}#))
- #{tmp\ 4520}#)
+ #{id\ 4543}#
+ #{val\ 4544}#))
+ #{tmp\ 4532}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4507}#)))
+ #{tmp\ 4519}#)))
($sc-dispatch
- #{tmp\ 4507}#
+ #{tmp\ 4519}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 4507}#
+ #{tmp\ 4519}#
'(any (any . any) any . each-any))))
- #{x\ 4505}#))))
+ #{x\ 4517}#))))
HCoop / bpt / guile.git / commitdiff