(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 2064}#
- (lambda (#{f\ 2178}# #{first\ 2179}# . #{rest\ 2180}#)
- (let ((#{t\ 2186}# (null? #{first\ 2179}#)))
- (if #{t\ 2186}#
- #{t\ 2186}#
- (if (null? #{rest\ 2180}#)
- (letrec ((#{andmap\ 2190}#
- (lambda (#{first\ 2191}#)
- (let ((#{x\ 2194}# (car #{first\ 2191}#))
- (#{first\ 2195}# (cdr #{first\ 2191}#)))
- (if (null? #{first\ 2195}#)
- (#{f\ 2178}# #{x\ 2194}#)
- (if (#{f\ 2178}# #{x\ 2194}#)
- (#{andmap\ 2190}# #{first\ 2195}#)
+(letrec ((#{and-map*\ 20}#
+ (lambda (#{f\ 134}# #{first\ 135}# . #{rest\ 136}#)
+ (let ((#{t\ 142}# (null? #{first\ 135}#)))
+ (if #{t\ 142}#
+ #{t\ 142}#
+ (if (null? #{rest\ 136}#)
+ (letrec ((#{andmap\ 146}#
+ (lambda (#{first\ 147}#)
+ (let ((#{x\ 150}# (car #{first\ 147}#))
+ (#{first\ 151}# (cdr #{first\ 147}#)))
+ (if (null? #{first\ 151}#)
+ (#{f\ 134}# #{x\ 150}#)
+ (if (#{f\ 134}# #{x\ 150}#)
+ (#{andmap\ 146}# #{first\ 151}#)
#f))))))
- (#{andmap\ 2190}# #{first\ 2179}#))
- (letrec ((#{andmap\ 2201}#
- (lambda (#{first\ 2202}# #{rest\ 2203}#)
- (let ((#{x\ 2208}# (car #{first\ 2202}#))
- (#{xr\ 2209}# (map car #{rest\ 2203}#))
- (#{first\ 2210}# (cdr #{first\ 2202}#))
- (#{rest\ 2211}#
- (map cdr #{rest\ 2203}#)))
- (if (null? #{first\ 2210}#)
- (apply #{f\ 2178}#
- (cons #{x\ 2208}# #{xr\ 2209}#))
- (if (apply #{f\ 2178}#
- (cons #{x\ 2208}# #{xr\ 2209}#))
- (#{andmap\ 2201}#
- #{first\ 2210}#
- #{rest\ 2211}#)
+ (#{andmap\ 146}# #{first\ 135}#))
+ (letrec ((#{andmap\ 157}#
+ (lambda (#{first\ 158}# #{rest\ 159}#)
+ (let ((#{x\ 164}# (car #{first\ 158}#))
+ (#{xr\ 165}# (map car #{rest\ 159}#))
+ (#{first\ 166}# (cdr #{first\ 158}#))
+ (#{rest\ 167}# (map cdr #{rest\ 159}#)))
+ (if (null? #{first\ 166}#)
+ (apply #{f\ 134}#
+ (cons #{x\ 164}# #{xr\ 165}#))
+ (if (apply #{f\ 134}#
+ (cons #{x\ 164}# #{xr\ 165}#))
+ (#{andmap\ 157}#
+ #{first\ 166}#
+ #{rest\ 167}#)
#f))))))
- (#{andmap\ 2201}# #{first\ 2179}# #{rest\ 2180}#))))))))
- (letrec ((#{lambda-var-list\ 2468}#
- (lambda (#{vars\ 2683}#)
- (letrec ((#{lvl\ 2689}#
- (lambda (#{vars\ 2690}# #{ls\ 2691}# #{w\ 2692}#)
- (if (pair? #{vars\ 2690}#)
- (#{lvl\ 2689}#
- (cdr #{vars\ 2690}#)
- (cons (#{wrap\ 2422}#
- (car #{vars\ 2690}#)
- #{w\ 2692}#
+ (#{andmap\ 157}# #{first\ 135}# #{rest\ 136}#))))))))
+ (letrec ((#{lambda-var-list\ 422}#
+ (lambda (#{vars\ 637}#)
+ (letrec ((#{lvl\ 643}#
+ (lambda (#{vars\ 644}# #{ls\ 645}# #{w\ 646}#)
+ (if (pair? #{vars\ 644}#)
+ (#{lvl\ 643}#
+ (cdr #{vars\ 644}#)
+ (cons (#{wrap\ 376}#
+ (car #{vars\ 644}#)
+ #{w\ 646}#
#f)
- #{ls\ 2691}#)
- #{w\ 2692}#)
- (if (#{id?\ 2353}# #{vars\ 2690}#)
- (cons (#{wrap\ 2422}#
- #{vars\ 2690}#
- #{w\ 2692}#
+ #{ls\ 645}#)
+ #{w\ 646}#)
+ (if (#{id?\ 307}# #{vars\ 644}#)
+ (cons (#{wrap\ 376}#
+ #{vars\ 644}#
+ #{w\ 646}#
#f)
- #{ls\ 2691}#)
- (if (null? #{vars\ 2690}#)
- #{ls\ 2691}#
- (if (#{syntax-object?\ 2317}# #{vars\ 2690}#)
- (#{lvl\ 2689}#
- (#{syntax-object-expression\ 2319}#
- #{vars\ 2690}#)
- #{ls\ 2691}#
- (#{join-wraps\ 2404}#
- #{w\ 2692}#
- (#{syntax-object-wrap\ 2321}#
- #{vars\ 2690}#)))
- (cons #{vars\ 2690}# #{ls\ 2691}#))))))))
- (#{lvl\ 2689}#
- #{vars\ 2683}#
+ #{ls\ 645}#)
+ (if (null? #{vars\ 644}#)
+ #{ls\ 645}#
+ (if (#{syntax-object?\ 271}# #{vars\ 644}#)
+ (#{lvl\ 643}#
+ (#{syntax-object-expression\ 273}#
+ #{vars\ 644}#)
+ #{ls\ 645}#
+ (#{join-wraps\ 358}#
+ #{w\ 646}#
+ (#{syntax-object-wrap\ 275}#
+ #{vars\ 644}#)))
+ (cons #{vars\ 644}# #{ls\ 645}#))))))))
+ (#{lvl\ 643}#
+ #{vars\ 637}#
'()
'(())))))
- (#{gen-var\ 2466}#
- (lambda (#{id\ 2703}#)
- (let ((#{id\ 2706}#
- (if (#{syntax-object?\ 2317}# #{id\ 2703}#)
- (#{syntax-object-expression\ 2319}# #{id\ 2703}#)
- #{id\ 2703}#)))
+ (#{gen-var\ 420}#
+ (lambda (#{id\ 657}#)
+ (let ((#{id\ 660}#
+ (if (#{syntax-object?\ 271}# #{id\ 657}#)
+ (#{syntax-object-expression\ 273}# #{id\ 657}#)
+ #{id\ 657}#)))
(gensym
- (string-append (symbol->string #{id\ 2706}#) " ")))))
- (#{strip\ 2464}#
- (lambda (#{x\ 2708}# #{w\ 2709}#)
+ (string-append (symbol->string #{id\ 660}#) " ")))))
+ (#{strip\ 418}#
+ (lambda (#{x\ 662}# #{w\ 663}#)
(if (memq 'top
- (#{wrap-marks\ 2360}# #{w\ 2709}#))
- #{x\ 2708}#
- (letrec ((#{f\ 2715}#
- (lambda (#{x\ 2716}#)
- (if (#{syntax-object?\ 2317}# #{x\ 2716}#)
- (#{strip\ 2464}#
- (#{syntax-object-expression\ 2319}#
- #{x\ 2716}#)
- (#{syntax-object-wrap\ 2321}# #{x\ 2716}#))
- (if (pair? #{x\ 2716}#)
- (let ((#{a\ 2723}#
- (#{f\ 2715}# (car #{x\ 2716}#)))
- (#{d\ 2724}#
- (#{f\ 2715}# (cdr #{x\ 2716}#))))
- (if (if (eq? #{a\ 2723}# (car #{x\ 2716}#))
- (eq? #{d\ 2724}# (cdr #{x\ 2716}#))
- #f)
- #{x\ 2716}#
- (cons #{a\ 2723}# #{d\ 2724}#)))
- (if (vector? #{x\ 2716}#)
- (let ((#{old\ 2730}#
- (vector->list #{x\ 2716}#)))
- (let ((#{new\ 2732}#
- (map #{f\ 2715}# #{old\ 2730}#)))
- (if (#{and-map*\ 2064}#
- eq?
- #{old\ 2730}#
- #{new\ 2732}#)
- #{x\ 2716}#
- (list->vector #{new\ 2732}#))))
- #{x\ 2716}#))))))
- (#{f\ 2715}# #{x\ 2708}#)))))
- (#{chi-lambda-case\ 2462}#
- (lambda (#{e\ 2734}#
- #{r\ 2735}#
- #{w\ 2736}#
- #{s\ 2737}#
- #{mod\ 2738}#
- #{get-formals\ 2739}#
- #{clauses\ 2740}#)
- (letrec ((#{expand-body\ 2755}#
- (lambda (#{req\ 2756}#
- #{opt\ 2757}#
- #{rest\ 2758}#
- #{kw\ 2759}#
- #{body\ 2760}#
- #{vars\ 2761}#
- #{r*\ 2762}#
- #{w*\ 2763}#
- #{inits\ 2764}#
- #{meta\ 2765}#)
- ((lambda (#{tmp\ 2776}#)
- ((lambda (#{tmp\ 2777}#)
- (if (if #{tmp\ 2777}#
- (apply (lambda (#{docstring\ 2781}#
- #{e1\ 2782}#
- #{e2\ 2783}#)
+ (#{wrap-marks\ 314}# #{w\ 663}#))
+ #{x\ 662}#
+ (letrec ((#{f\ 669}# (lambda (#{x\ 670}#)
+ (if (#{syntax-object?\ 271}#
+ #{x\ 670}#)
+ (#{strip\ 418}#
+ (#{syntax-object-expression\ 273}#
+ #{x\ 670}#)
+ (#{syntax-object-wrap\ 275}#
+ #{x\ 670}#))
+ (if (pair? #{x\ 670}#)
+ (let ((#{a\ 677}# (#{f\ 669}# (car #{x\ 670}#)))
+ (#{d\ 678}# (#{f\ 669}# (cdr #{x\ 670}#))))
+ (if (if (eq? #{a\ 677}#
+ (car #{x\ 670}#))
+ (eq? #{d\ 678}#
+ (cdr #{x\ 670}#))
+ #f)
+ #{x\ 670}#
+ (cons #{a\ 677}# #{d\ 678}#)))
+ (if (vector? #{x\ 670}#)
+ (let ((#{old\ 684}#
+ (vector->list
+ #{x\ 670}#)))
+ (let ((#{new\ 686}#
+ (map #{f\ 669}#
+ #{old\ 684}#)))
+ (if (#{and-map*\ 20}#
+ eq?
+ #{old\ 684}#
+ #{new\ 686}#)
+ #{x\ 670}#
+ (list->vector
+ #{new\ 686}#))))
+ #{x\ 670}#))))))
+ (#{f\ 669}# #{x\ 662}#)))))
+ (#{chi-lambda-case\ 416}#
+ (lambda (#{e\ 688}#
+ #{r\ 689}#
+ #{w\ 690}#
+ #{s\ 691}#
+ #{mod\ 692}#
+ #{get-formals\ 693}#
+ #{clauses\ 694}#)
+ (letrec ((#{expand-body\ 709}#
+ (lambda (#{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ #{body\ 714}#
+ #{vars\ 715}#
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{inits\ 718}#
+ #{meta\ 719}#)
+ ((lambda (#{tmp\ 730}#)
+ ((lambda (#{tmp\ 731}#)
+ (if (if #{tmp\ 731}#
+ (apply (lambda (#{docstring\ 735}#
+ #{e1\ 736}#
+ #{e2\ 737}#)
(string?
(syntax->datum
- #{docstring\ 2781}#)))
- #{tmp\ 2777}#)
+ #{docstring\ 735}#)))
+ #{tmp\ 731}#)
#f)
- (apply (lambda (#{docstring\ 2787}#
- #{e1\ 2788}#
- #{e2\ 2789}#)
- (#{expand-body\ 2755}#
- #{req\ 2756}#
- #{opt\ 2757}#
- #{rest\ 2758}#
- #{kw\ 2759}#
- (cons #{e1\ 2788}# #{e2\ 2789}#)
- #{vars\ 2761}#
- #{r*\ 2762}#
- #{w*\ 2763}#
- #{inits\ 2764}#
+ (apply (lambda (#{docstring\ 741}#
+ #{e1\ 742}#
+ #{e2\ 743}#)
+ (#{expand-body\ 709}#
+ #{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ (cons #{e1\ 742}# #{e2\ 743}#)
+ #{vars\ 715}#
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{inits\ 718}#
(append
- #{meta\ 2765}#
+ #{meta\ 719}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2787}#))))))
- #{tmp\ 2777}#)
- ((lambda (#{tmp\ 2792}#)
- (if #{tmp\ 2792}#
- (apply (lambda (#{k\ 2797}#
- #{v\ 2798}#
- #{e1\ 2799}#
- #{e2\ 2800}#)
- (#{expand-body\ 2755}#
- #{req\ 2756}#
- #{opt\ 2757}#
- #{rest\ 2758}#
- #{kw\ 2759}#
- (cons #{e1\ 2799}#
- #{e2\ 2800}#)
- #{vars\ 2761}#
- #{r*\ 2762}#
- #{w*\ 2763}#
- #{inits\ 2764}#
+ #{docstring\ 741}#))))))
+ #{tmp\ 731}#)
+ ((lambda (#{tmp\ 746}#)
+ (if #{tmp\ 746}#
+ (apply (lambda (#{k\ 751}#
+ #{v\ 752}#
+ #{e1\ 753}#
+ #{e2\ 754}#)
+ (#{expand-body\ 709}#
+ #{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ (cons #{e1\ 753}#
+ #{e2\ 754}#)
+ #{vars\ 715}#
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{inits\ 718}#
(append
- #{meta\ 2765}#
+ #{meta\ 719}#
(syntax->datum
(map cons
- #{k\ 2797}#
- #{v\ 2798}#)))))
- #{tmp\ 2792}#)
- ((lambda (#{tmp\ 2804}#)
- (if #{tmp\ 2804}#
- (apply (lambda (#{e1\ 2807}#
- #{e2\ 2808}#)
+ #{k\ 751}#
+ #{v\ 752}#)))))
+ #{tmp\ 746}#)
+ ((lambda (#{tmp\ 758}#)
+ (if #{tmp\ 758}#
+ (apply (lambda (#{e1\ 761}#
+ #{e2\ 762}#)
(values
- #{meta\ 2765}#
- #{req\ 2756}#
- #{opt\ 2757}#
- #{rest\ 2758}#
- #{kw\ 2759}#
- #{inits\ 2764}#
- #{vars\ 2761}#
- (#{chi-body\ 2446}#
- (cons #{e1\ 2807}#
- #{e2\ 2808}#)
- (#{source-wrap\ 2424}#
- #{e\ 2734}#
- #{w\ 2736}#
- #{s\ 2737}#
- #{mod\ 2738}#)
- #{r*\ 2762}#
- #{w*\ 2763}#
- #{mod\ 2738}#)))
- #{tmp\ 2804}#)
+ #{meta\ 719}#
+ #{req\ 710}#
+ #{opt\ 711}#
+ #{rest\ 712}#
+ #{kw\ 713}#
+ #{inits\ 718}#
+ #{vars\ 715}#
+ (#{chi-body\ 400}#
+ (cons #{e1\ 761}#
+ #{e2\ 762}#)
+ (#{source-wrap\ 378}#
+ #{e\ 688}#
+ #{w\ 690}#
+ #{s\ 691}#
+ #{mod\ 692}#)
+ #{r*\ 716}#
+ #{w*\ 717}#
+ #{mod\ 692}#)))
+ #{tmp\ 758}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2776}#)))
+ #{tmp\ 730}#)))
($sc-dispatch
- #{tmp\ 2776}#
+ #{tmp\ 730}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 2776}#
+ #{tmp\ 730}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 2776}#
+ #{tmp\ 730}#
'(any any . each-any))))
- #{body\ 2760}#)))
- (#{expand-kw\ 2753}#
- (lambda (#{req\ 2810}#
- #{opt\ 2811}#
- #{rest\ 2812}#
- #{kw\ 2813}#
- #{body\ 2814}#
- #{vars\ 2815}#
- #{r*\ 2816}#
- #{w*\ 2817}#
- #{aok\ 2818}#
- #{out\ 2819}#
- #{inits\ 2820}#)
- (if (pair? #{kw\ 2813}#)
- ((lambda (#{tmp\ 2834}#)
- ((lambda (#{tmp\ 2835}#)
- (if #{tmp\ 2835}#
- (apply (lambda (#{k\ 2839}#
- #{id\ 2840}#
- #{i\ 2841}#)
- (let ((#{v\ 2844}#
- (#{gen-var\ 2466}#
- #{id\ 2840}#)))
- (let ((#{l\ 2846}#
- (#{gen-labels\ 2371}#
- (list #{v\ 2844}#))))
- (let ((#{r**\ 2848}#
- (#{extend-var-env\ 2343}#
- #{l\ 2846}#
- (list #{v\ 2844}#)
- #{r*\ 2816}#)))
- (let ((#{w**\ 2850}#
- (#{make-binding-wrap\ 2400}#
- (list #{id\ 2840}#)
- #{l\ 2846}#
- #{w*\ 2817}#)))
- (#{expand-kw\ 2753}#
- #{req\ 2810}#
- #{opt\ 2811}#
- #{rest\ 2812}#
- (cdr #{kw\ 2813}#)
- #{body\ 2814}#
- (cons #{v\ 2844}#
- #{vars\ 2815}#)
- #{r**\ 2848}#
- #{w**\ 2850}#
- #{aok\ 2818}#
+ #{body\ 714}#)))
+ (#{expand-kw\ 707}#
+ (lambda (#{req\ 764}#
+ #{opt\ 765}#
+ #{rest\ 766}#
+ #{kw\ 767}#
+ #{body\ 768}#
+ #{vars\ 769}#
+ #{r*\ 770}#
+ #{w*\ 771}#
+ #{aok\ 772}#
+ #{out\ 773}#
+ #{inits\ 774}#)
+ (if (pair? #{kw\ 767}#)
+ ((lambda (#{tmp\ 788}#)
+ ((lambda (#{tmp\ 789}#)
+ (if #{tmp\ 789}#
+ (apply (lambda (#{k\ 793}#
+ #{id\ 794}#
+ #{i\ 795}#)
+ (let ((#{v\ 798}# (#{gen-var\ 420}#
+ #{id\ 794}#)))
+ (let ((#{l\ 800}# (#{gen-labels\ 325}#
+ (list #{v\ 798}#))))
+ (let ((#{r**\ 802}#
+ (#{extend-var-env\ 297}#
+ #{l\ 800}#
+ (list #{v\ 798}#)
+ #{r*\ 770}#)))
+ (let ((#{w**\ 804}#
+ (#{make-binding-wrap\ 354}#
+ (list #{id\ 794}#)
+ #{l\ 800}#
+ #{w*\ 771}#)))
+ (#{expand-kw\ 707}#
+ #{req\ 764}#
+ #{opt\ 765}#
+ #{rest\ 766}#
+ (cdr #{kw\ 767}#)
+ #{body\ 768}#
+ (cons #{v\ 798}#
+ #{vars\ 769}#)
+ #{r**\ 802}#
+ #{w**\ 804}#
+ #{aok\ 772}#
(cons (list (syntax->datum
- #{k\ 2839}#)
+ #{k\ 793}#)
(syntax->datum
- #{id\ 2840}#)
- #{v\ 2844}#)
- #{out\ 2819}#)
- (cons (#{chi\ 2438}#
- #{i\ 2841}#
- #{r*\ 2816}#
- #{w*\ 2817}#
- #{mod\ 2738}#)
- #{inits\ 2820}#)))))))
- #{tmp\ 2835}#)
+ #{id\ 794}#)
+ #{v\ 798}#)
+ #{out\ 773}#)
+ (cons (#{chi\ 392}#
+ #{i\ 795}#
+ #{r*\ 770}#
+ #{w*\ 771}#
+ #{mod\ 692}#)
+ #{inits\ 774}#)))))))
+ #{tmp\ 789}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2834}#)))
+ #{tmp\ 788}#)))
($sc-dispatch
- #{tmp\ 2834}#
+ #{tmp\ 788}#
'(any any any))))
- (car #{kw\ 2813}#))
- (#{expand-body\ 2755}#
- #{req\ 2810}#
- #{opt\ 2811}#
- #{rest\ 2812}#
- (if (let ((#{t\ 2854}# #{aok\ 2818}#))
- (if #{t\ 2854}#
- #{t\ 2854}#
- (pair? #{out\ 2819}#)))
- (cons #{aok\ 2818}# (reverse #{out\ 2819}#))
+ (car #{kw\ 767}#))
+ (#{expand-body\ 709}#
+ #{req\ 764}#
+ #{opt\ 765}#
+ #{rest\ 766}#
+ (if (let ((#{t\ 808}# #{aok\ 772}#))
+ (if #{t\ 808}#
+ #{t\ 808}#
+ (pair? #{out\ 773}#)))
+ (cons #{aok\ 772}# (reverse #{out\ 773}#))
#f)
- #{body\ 2814}#
- (reverse #{vars\ 2815}#)
- #{r*\ 2816}#
- #{w*\ 2817}#
- (reverse #{inits\ 2820}#)
+ #{body\ 768}#
+ (reverse #{vars\ 769}#)
+ #{r*\ 770}#
+ #{w*\ 771}#
+ (reverse #{inits\ 774}#)
'()))))
- (#{expand-opt\ 2751}#
- (lambda (#{req\ 2856}#
- #{opt\ 2857}#
- #{rest\ 2858}#
- #{kw\ 2859}#
- #{body\ 2860}#
- #{vars\ 2861}#
- #{r*\ 2862}#
- #{w*\ 2863}#
- #{out\ 2864}#
- #{inits\ 2865}#)
- (if (pair? #{opt\ 2857}#)
- ((lambda (#{tmp\ 2878}#)
- ((lambda (#{tmp\ 2879}#)
- (if #{tmp\ 2879}#
- (apply (lambda (#{id\ 2882}# #{i\ 2883}#)
- (let ((#{v\ 2886}#
- (#{gen-var\ 2466}#
- #{id\ 2882}#)))
- (let ((#{l\ 2888}#
- (#{gen-labels\ 2371}#
- (list #{v\ 2886}#))))
- (let ((#{r**\ 2890}#
- (#{extend-var-env\ 2343}#
- #{l\ 2888}#
- (list #{v\ 2886}#)
- #{r*\ 2862}#)))
- (let ((#{w**\ 2892}#
- (#{make-binding-wrap\ 2400}#
- (list #{id\ 2882}#)
- #{l\ 2888}#
- #{w*\ 2863}#)))
- (#{expand-opt\ 2751}#
- #{req\ 2856}#
- (cdr #{opt\ 2857}#)
- #{rest\ 2858}#
- #{kw\ 2859}#
- #{body\ 2860}#
- (cons #{v\ 2886}#
- #{vars\ 2861}#)
- #{r**\ 2890}#
- #{w**\ 2892}#
+ (#{expand-opt\ 705}#
+ (lambda (#{req\ 810}#
+ #{opt\ 811}#
+ #{rest\ 812}#
+ #{kw\ 813}#
+ #{body\ 814}#
+ #{vars\ 815}#
+ #{r*\ 816}#
+ #{w*\ 817}#
+ #{out\ 818}#
+ #{inits\ 819}#)
+ (if (pair? #{opt\ 811}#)
+ ((lambda (#{tmp\ 832}#)
+ ((lambda (#{tmp\ 833}#)
+ (if #{tmp\ 833}#
+ (apply (lambda (#{id\ 836}# #{i\ 837}#)
+ (let ((#{v\ 840}# (#{gen-var\ 420}#
+ #{id\ 836}#)))
+ (let ((#{l\ 842}# (#{gen-labels\ 325}#
+ (list #{v\ 840}#))))
+ (let ((#{r**\ 844}#
+ (#{extend-var-env\ 297}#
+ #{l\ 842}#
+ (list #{v\ 840}#)
+ #{r*\ 816}#)))
+ (let ((#{w**\ 846}#
+ (#{make-binding-wrap\ 354}#
+ (list #{id\ 836}#)
+ #{l\ 842}#
+ #{w*\ 817}#)))
+ (#{expand-opt\ 705}#
+ #{req\ 810}#
+ (cdr #{opt\ 811}#)
+ #{rest\ 812}#
+ #{kw\ 813}#
+ #{body\ 814}#
+ (cons #{v\ 840}#
+ #{vars\ 815}#)
+ #{r**\ 844}#
+ #{w**\ 846}#
(cons (syntax->datum
- #{id\ 2882}#)
- #{out\ 2864}#)
- (cons (#{chi\ 2438}#
- #{i\ 2883}#
- #{r*\ 2862}#
- #{w*\ 2863}#
- #{mod\ 2738}#)
- #{inits\ 2865}#)))))))
- #{tmp\ 2879}#)
+ #{id\ 836}#)
+ #{out\ 818}#)
+ (cons (#{chi\ 392}#
+ #{i\ 837}#
+ #{r*\ 816}#
+ #{w*\ 817}#
+ #{mod\ 692}#)
+ #{inits\ 819}#)))))))
+ #{tmp\ 833}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2878}#)))
+ #{tmp\ 832}#)))
($sc-dispatch
- #{tmp\ 2878}#
+ #{tmp\ 832}#
'(any any))))
- (car #{opt\ 2857}#))
- (if #{rest\ 2858}#
- (let ((#{v\ 2897}#
- (#{gen-var\ 2466}# #{rest\ 2858}#)))
- (let ((#{l\ 2899}#
- (#{gen-labels\ 2371}#
- (list #{v\ 2897}#))))
- (let ((#{r*\ 2901}#
- (#{extend-var-env\ 2343}#
- #{l\ 2899}#
- (list #{v\ 2897}#)
- #{r*\ 2862}#)))
- (let ((#{w*\ 2903}#
- (#{make-binding-wrap\ 2400}#
- (list #{rest\ 2858}#)
- #{l\ 2899}#
- #{w*\ 2863}#)))
- (#{expand-kw\ 2753}#
- #{req\ 2856}#
- (if (pair? #{out\ 2864}#)
- (reverse #{out\ 2864}#)
+ (car #{opt\ 811}#))
+ (if #{rest\ 812}#
+ (let ((#{v\ 851}# (#{gen-var\ 420}#
+ #{rest\ 812}#)))
+ (let ((#{l\ 853}# (#{gen-labels\ 325}#
+ (list #{v\ 851}#))))
+ (let ((#{r*\ 855}#
+ (#{extend-var-env\ 297}#
+ #{l\ 853}#
+ (list #{v\ 851}#)
+ #{r*\ 816}#)))
+ (let ((#{w*\ 857}#
+ (#{make-binding-wrap\ 354}#
+ (list #{rest\ 812}#)
+ #{l\ 853}#
+ #{w*\ 817}#)))
+ (#{expand-kw\ 707}#
+ #{req\ 810}#
+ (if (pair? #{out\ 818}#)
+ (reverse #{out\ 818}#)
#f)
- (syntax->datum #{rest\ 2858}#)
- (if (pair? #{kw\ 2859}#)
- (cdr #{kw\ 2859}#)
- #{kw\ 2859}#)
- #{body\ 2860}#
- (cons #{v\ 2897}# #{vars\ 2861}#)
- #{r*\ 2901}#
- #{w*\ 2903}#
- (if (pair? #{kw\ 2859}#)
- (car #{kw\ 2859}#)
+ (syntax->datum #{rest\ 812}#)
+ (if (pair? #{kw\ 813}#)
+ (cdr #{kw\ 813}#)
+ #{kw\ 813}#)
+ #{body\ 814}#
+ (cons #{v\ 851}# #{vars\ 815}#)
+ #{r*\ 855}#
+ #{w*\ 857}#
+ (if (pair? #{kw\ 813}#)
+ (car #{kw\ 813}#)
#f)
'()
- #{inits\ 2865}#)))))
- (#{expand-kw\ 2753}#
- #{req\ 2856}#
- (if (pair? #{out\ 2864}#)
- (reverse #{out\ 2864}#)
+ #{inits\ 819}#)))))
+ (#{expand-kw\ 707}#
+ #{req\ 810}#
+ (if (pair? #{out\ 818}#)
+ (reverse #{out\ 818}#)
#f)
#f
- (if (pair? #{kw\ 2859}#)
- (cdr #{kw\ 2859}#)
- #{kw\ 2859}#)
- #{body\ 2860}#
- #{vars\ 2861}#
- #{r*\ 2862}#
- #{w*\ 2863}#
- (if (pair? #{kw\ 2859}#)
- (car #{kw\ 2859}#)
- #f)
+ (if (pair? #{kw\ 813}#)
+ (cdr #{kw\ 813}#)
+ #{kw\ 813}#)
+ #{body\ 814}#
+ #{vars\ 815}#
+ #{r*\ 816}#
+ #{w*\ 817}#
+ (if (pair? #{kw\ 813}#) (car #{kw\ 813}#) #f)
'()
- #{inits\ 2865}#)))))
- (#{expand-req\ 2749}#
- (lambda (#{req\ 2905}#
- #{opt\ 2906}#
- #{rest\ 2907}#
- #{kw\ 2908}#
- #{body\ 2909}#)
- (let ((#{vars\ 2917}#
- (map #{gen-var\ 2466}# #{req\ 2905}#))
- (#{labels\ 2918}#
- (#{gen-labels\ 2371}# #{req\ 2905}#)))
- (let ((#{r*\ 2921}#
- (#{extend-var-env\ 2343}#
- #{labels\ 2918}#
- #{vars\ 2917}#
- #{r\ 2735}#))
- (#{w*\ 2922}#
- (#{make-binding-wrap\ 2400}#
- #{req\ 2905}#
- #{labels\ 2918}#
- #{w\ 2736}#)))
- (#{expand-opt\ 2751}#
- (map syntax->datum #{req\ 2905}#)
- #{opt\ 2906}#
- #{rest\ 2907}#
- #{kw\ 2908}#
- #{body\ 2909}#
- (reverse #{vars\ 2917}#)
- #{r*\ 2921}#
- #{w*\ 2922}#
+ #{inits\ 819}#)))))
+ (#{expand-req\ 703}#
+ (lambda (#{req\ 859}#
+ #{opt\ 860}#
+ #{rest\ 861}#
+ #{kw\ 862}#
+ #{body\ 863}#)
+ (let ((#{vars\ 871}#
+ (map #{gen-var\ 420}# #{req\ 859}#))
+ (#{labels\ 872}#
+ (#{gen-labels\ 325}# #{req\ 859}#)))
+ (let ((#{r*\ 875}#
+ (#{extend-var-env\ 297}#
+ #{labels\ 872}#
+ #{vars\ 871}#
+ #{r\ 689}#))
+ (#{w*\ 876}#
+ (#{make-binding-wrap\ 354}#
+ #{req\ 859}#
+ #{labels\ 872}#
+ #{w\ 690}#)))
+ (#{expand-opt\ 705}#
+ (map syntax->datum #{req\ 859}#)
+ #{opt\ 860}#
+ #{rest\ 861}#
+ #{kw\ 862}#
+ #{body\ 863}#
+ (reverse #{vars\ 871}#)
+ #{r*\ 875}#
+ #{w*\ 876}#
'()
'()))))))
- ((lambda (#{tmp\ 2923}#)
- ((lambda (#{tmp\ 2924}#)
- (if #{tmp\ 2924}#
+ ((lambda (#{tmp\ 877}#)
+ ((lambda (#{tmp\ 878}#)
+ (if #{tmp\ 878}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 2924}#)
- ((lambda (#{tmp\ 2925}#)
- (if #{tmp\ 2925}#
- (apply (lambda (#{args\ 2932}#
- #{e1\ 2933}#
- #{e2\ 2934}#
- #{args*\ 2935}#
- #{e1*\ 2936}#
- #{e2*\ 2937}#)
+ #{tmp\ 878}#)
+ ((lambda (#{tmp\ 879}#)
+ (if #{tmp\ 879}#
+ (apply (lambda (#{args\ 886}#
+ #{e1\ 887}#
+ #{e2\ 888}#
+ #{args*\ 889}#
+ #{e1*\ 890}#
+ #{e2*\ 891}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2739}#
- #{args\ 2932}#))
- (lambda (#{req\ 2938}#
- #{opt\ 2939}#
- #{rest\ 2940}#
- #{kw\ 2941}#)
+ (#{get-formals\ 693}#
+ #{args\ 886}#))
+ (lambda (#{req\ 892}#
+ #{opt\ 893}#
+ #{rest\ 894}#
+ #{kw\ 895}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2749}#
- #{req\ 2938}#
- #{opt\ 2939}#
- #{rest\ 2940}#
- #{kw\ 2941}#
- (cons #{e1\ 2933}#
- #{e2\ 2934}#)))
- (lambda (#{meta\ 2947}#
- #{req\ 2948}#
- #{opt\ 2949}#
- #{rest\ 2950}#
- #{kw\ 2951}#
- #{inits\ 2952}#
- #{vars\ 2953}#
- #{body\ 2954}#)
+ (#{expand-req\ 703}#
+ #{req\ 892}#
+ #{opt\ 893}#
+ #{rest\ 894}#
+ #{kw\ 895}#
+ (cons #{e1\ 887}#
+ #{e2\ 888}#)))
+ (lambda (#{meta\ 901}#
+ #{req\ 902}#
+ #{opt\ 903}#
+ #{rest\ 904}#
+ #{kw\ 905}#
+ #{inits\ 906}#
+ #{vars\ 907}#
+ #{body\ 908}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2462}#
- #{e\ 2734}#
- #{r\ 2735}#
- #{w\ 2736}#
- #{s\ 2737}#
- #{mod\ 2738}#
- #{get-formals\ 2739}#
- (map (lambda (#{tmp\ 2965}#
- #{tmp\ 2964}#
- #{tmp\ 2963}#)
- (cons #{tmp\ 2963}#
- (cons #{tmp\ 2964}#
- #{tmp\ 2965}#)))
- #{e2*\ 2937}#
- #{e1*\ 2936}#
- #{args*\ 2935}#)))
- (lambda (#{meta*\ 2967}#
- #{else*\ 2968}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 688}#
+ #{r\ 689}#
+ #{w\ 690}#
+ #{s\ 691}#
+ #{mod\ 692}#
+ #{get-formals\ 693}#
+ (map (lambda (#{tmp\ 919}#
+ #{tmp\ 918}#
+ #{tmp\ 917}#)
+ (cons #{tmp\ 917}#
+ (cons #{tmp\ 918}#
+ #{tmp\ 919}#)))
+ #{e2*\ 891}#
+ #{e1*\ 890}#
+ #{args*\ 889}#)))
+ (lambda (#{meta*\ 921}#
+ #{else*\ 922}#)
(values
(append
- #{meta\ 2947}#
- #{meta*\ 2967}#)
- (#{build-lambda-case\ 2299}#
- #{s\ 2737}#
- #{req\ 2948}#
- #{opt\ 2949}#
- #{rest\ 2950}#
- #{kw\ 2951}#
- #{inits\ 2952}#
- #{vars\ 2953}#
- #{body\ 2954}#
- #{else*\ 2968}#)))))))))
- #{tmp\ 2925}#)
+ #{meta\ 901}#
+ #{meta*\ 921}#)
+ (#{build-lambda-case\ 253}#
+ #{s\ 691}#
+ #{req\ 902}#
+ #{opt\ 903}#
+ #{rest\ 904}#
+ #{kw\ 905}#
+ #{inits\ 906}#
+ #{vars\ 907}#
+ #{body\ 908}#
+ #{else*\ 922}#)))))))))
+ #{tmp\ 879}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2923}#)))
+ #{tmp\ 877}#)))
($sc-dispatch
- #{tmp\ 2923}#
+ #{tmp\ 877}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 2923}# (quote ()))))
- #{clauses\ 2740}#))))
- (#{lambda*-formals\ 2460}#
- (lambda (#{orig-args\ 2971}#)
- (letrec ((#{check\ 2982}#
- (lambda (#{req\ 2983}#
- #{opt\ 2984}#
- #{rest\ 2985}#
- #{kw\ 2986}#)
- (if (#{distinct-bound-ids?\ 2418}#
+ ($sc-dispatch #{tmp\ 877}# (quote ()))))
+ #{clauses\ 694}#))))
+ (#{lambda*-formals\ 414}#
+ (lambda (#{orig-args\ 925}#)
+ (letrec ((#{check\ 936}#
+ (lambda (#{req\ 937}#
+ #{opt\ 938}#
+ #{rest\ 939}#
+ #{kw\ 940}#)
+ (if (#{distinct-bound-ids?\ 372}#
(append
- #{req\ 2983}#
- (map car #{opt\ 2984}#)
- (if #{rest\ 2985}#
- (list #{rest\ 2985}#)
+ #{req\ 937}#
+ (map car #{opt\ 938}#)
+ (if #{rest\ 939}#
+ (list #{rest\ 939}#)
'())
- (if (pair? #{kw\ 2986}#)
- (map cadr (cdr #{kw\ 2986}#))
+ (if (pair? #{kw\ 940}#)
+ (map cadr (cdr #{kw\ 940}#))
'())))
(values
- #{req\ 2983}#
- #{opt\ 2984}#
- #{rest\ 2985}#
- #{kw\ 2986}#)
+ #{req\ 937}#
+ #{opt\ 938}#
+ #{rest\ 939}#
+ #{kw\ 940}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2971}#))))
- (#{rest\ 2980}#
- (lambda (#{args\ 2994}#
- #{req\ 2995}#
- #{opt\ 2996}#
- #{kw\ 2997}#)
- ((lambda (#{tmp\ 3002}#)
- ((lambda (#{tmp\ 3003}#)
- (if (if #{tmp\ 3003}#
- (apply (lambda (#{r\ 3005}#)
- (#{id?\ 2353}# #{r\ 3005}#))
- #{tmp\ 3003}#)
+ #{orig-args\ 925}#))))
+ (#{rest\ 934}#
+ (lambda (#{args\ 948}#
+ #{req\ 949}#
+ #{opt\ 950}#
+ #{kw\ 951}#)
+ ((lambda (#{tmp\ 956}#)
+ ((lambda (#{tmp\ 957}#)
+ (if (if #{tmp\ 957}#
+ (apply (lambda (#{r\ 959}#)
+ (#{id?\ 307}# #{r\ 959}#))
+ #{tmp\ 957}#)
#f)
- (apply (lambda (#{r\ 3007}#)
- (#{check\ 2982}#
- #{req\ 2995}#
- #{opt\ 2996}#
- #{r\ 3007}#
- #{kw\ 2997}#))
- #{tmp\ 3003}#)
- ((lambda (#{else\ 3009}#)
+ (apply (lambda (#{r\ 961}#)
+ (#{check\ 936}#
+ #{req\ 949}#
+ #{opt\ 950}#
+ #{r\ 961}#
+ #{kw\ 951}#))
+ #{tmp\ 957}#)
+ ((lambda (#{else\ 963}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2971}#
- #{args\ 2994}#))
- #{tmp\ 3002}#)))
- (list #{tmp\ 3002}#)))
- #{args\ 2994}#)))
- (#{key\ 2978}#
- (lambda (#{args\ 3010}#
- #{req\ 3011}#
- #{opt\ 3012}#
- #{rkey\ 3013}#)
- ((lambda (#{tmp\ 3018}#)
- ((lambda (#{tmp\ 3019}#)
- (if #{tmp\ 3019}#
+ #{orig-args\ 925}#
+ #{args\ 948}#))
+ #{tmp\ 956}#)))
+ (list #{tmp\ 956}#)))
+ #{args\ 948}#)))
+ (#{key\ 932}#
+ (lambda (#{args\ 964}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ #{rkey\ 967}#)
+ ((lambda (#{tmp\ 972}#)
+ ((lambda (#{tmp\ 973}#)
+ (if #{tmp\ 973}#
(apply (lambda ()
- (#{check\ 2982}#
- #{req\ 3011}#
- #{opt\ 3012}#
+ (#{check\ 936}#
+ #{req\ 965}#
+ #{opt\ 966}#
#f
(cons #f
- (reverse
- #{rkey\ 3013}#))))
- #{tmp\ 3019}#)
- ((lambda (#{tmp\ 3020}#)
- (if (if #{tmp\ 3020}#
- (apply (lambda (#{a\ 3023}#
- #{b\ 3024}#)
- (#{id?\ 2353}#
- #{a\ 3023}#))
- #{tmp\ 3020}#)
+ (reverse #{rkey\ 967}#))))
+ #{tmp\ 973}#)
+ ((lambda (#{tmp\ 974}#)
+ (if (if #{tmp\ 974}#
+ (apply (lambda (#{a\ 977}#
+ #{b\ 978}#)
+ (#{id?\ 307}#
+ #{a\ 977}#))
+ #{tmp\ 974}#)
#f)
- (apply (lambda (#{a\ 3027}#
- #{b\ 3028}#)
- ((lambda (#{tmp\ 3030}#)
- ((lambda (#{k\ 3032}#)
- (#{key\ 2978}#
- #{b\ 3028}#
- #{req\ 3011}#
- #{opt\ 3012}#
- (cons (cons #{k\ 3032}#
- (cons #{a\ 3027}#
+ (apply (lambda (#{a\ 981}# #{b\ 982}#)
+ ((lambda (#{tmp\ 984}#)
+ ((lambda (#{k\ 986}#)
+ (#{key\ 932}#
+ #{b\ 982}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ (cons (cons #{k\ 986}#
+ (cons #{a\ 981}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i3031"))
+ #("i985"))
#(ribcage
#(a
b)
#((top)
(top))
- #("i3025"
- "i3026"))
+ #("i979"
+ "i980"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3014"
- "i3015"
- "i3016"
- "i3017"))
+ #("i968"
+ "i969"
+ "i970"
+ "i971"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i2981"
- "i2979"
- "i2977"
- "i2975"
- "i2973"))
+ ("i935"
+ "i933"
+ "i931"
+ "i929"
+ "i927"))
#(ribcage
#(orig-args)
#((top))
- #("i2972"))
+ #("i926"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene
guile)))))
- #{rkey\ 3013}#)))
- #{tmp\ 3030}#))
+ #{rkey\ 967}#)))
+ #{tmp\ 984}#))
(symbol->keyword
(syntax->datum
- #{a\ 3027}#))))
- #{tmp\ 3020}#)
- ((lambda (#{tmp\ 3033}#)
- (if (if #{tmp\ 3033}#
- (apply (lambda (#{a\ 3037}#
- #{init\ 3038}#
- #{b\ 3039}#)
- (#{id?\ 2353}#
- #{a\ 3037}#))
- #{tmp\ 3033}#)
+ #{a\ 981}#))))
+ #{tmp\ 974}#)
+ ((lambda (#{tmp\ 987}#)
+ (if (if #{tmp\ 987}#
+ (apply (lambda (#{a\ 991}#
+ #{init\ 992}#
+ #{b\ 993}#)
+ (#{id?\ 307}#
+ #{a\ 991}#))
+ #{tmp\ 987}#)
#f)
- (apply (lambda (#{a\ 3043}#
- #{init\ 3044}#
- #{b\ 3045}#)
- ((lambda (#{tmp\ 3047}#)
- ((lambda (#{k\ 3049}#)
- (#{key\ 2978}#
- #{b\ 3045}#
- #{req\ 3011}#
- #{opt\ 3012}#
- (cons (list #{k\ 3049}#
- #{a\ 3043}#
- #{init\ 3044}#)
- #{rkey\ 3013}#)))
- #{tmp\ 3047}#))
+ (apply (lambda (#{a\ 997}#
+ #{init\ 998}#
+ #{b\ 999}#)
+ ((lambda (#{tmp\ 1001}#)
+ ((lambda (#{k\ 1003}#)
+ (#{key\ 932}#
+ #{b\ 999}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ (cons (list #{k\ 1003}#
+ #{a\ 997}#
+ #{init\ 998}#)
+ #{rkey\ 967}#)))
+ #{tmp\ 1001}#))
(symbol->keyword
(syntax->datum
- #{a\ 3043}#))))
- #{tmp\ 3033}#)
- ((lambda (#{tmp\ 3050}#)
- (if (if #{tmp\ 3050}#
- (apply (lambda (#{a\ 3055}#
- #{init\ 3056}#
- #{k\ 3057}#
- #{b\ 3058}#)
- (if (#{id?\ 2353}#
- #{a\ 3055}#)
+ #{a\ 997}#))))
+ #{tmp\ 987}#)
+ ((lambda (#{tmp\ 1004}#)
+ (if (if #{tmp\ 1004}#
+ (apply (lambda (#{a\ 1009}#
+ #{init\ 1010}#
+ #{k\ 1011}#
+ #{b\ 1012}#)
+ (if (#{id?\ 307}#
+ #{a\ 1009}#)
(keyword?
(syntax->datum
- #{k\ 3057}#))
+ #{k\ 1011}#))
#f))
- #{tmp\ 3050}#)
+ #{tmp\ 1004}#)
#f)
- (apply (lambda (#{a\ 3065}#
- #{init\ 3066}#
- #{k\ 3067}#
- #{b\ 3068}#)
- (#{key\ 2978}#
- #{b\ 3068}#
- #{req\ 3011}#
- #{opt\ 3012}#
- (cons (list #{k\ 3067}#
- #{a\ 3065}#
- #{init\ 3066}#)
- #{rkey\ 3013}#)))
- #{tmp\ 3050}#)
- ((lambda (#{tmp\ 3069}#)
- (if (if #{tmp\ 3069}#
- (apply (lambda (#{aok\ 3071}#)
+ (apply (lambda (#{a\ 1019}#
+ #{init\ 1020}#
+ #{k\ 1021}#
+ #{b\ 1022}#)
+ (#{key\ 932}#
+ #{b\ 1022}#
+ #{req\ 965}#
+ #{opt\ 966}#
+ (cons (list #{k\ 1021}#
+ #{a\ 1019}#
+ #{init\ 1020}#)
+ #{rkey\ 967}#)))
+ #{tmp\ 1004}#)
+ ((lambda (#{tmp\ 1023}#)
+ (if (if #{tmp\ 1023}#
+ (apply (lambda (#{aok\ 1025}#)
(eq? (syntax->datum
- #{aok\ 3071}#)
+ #{aok\ 1025}#)
#:allow-other-keys))
- #{tmp\ 3069}#)
+ #{tmp\ 1023}#)
#f)
- (apply (lambda (#{aok\ 3073}#)
- (#{check\ 2982}#
- #{req\ 3011}#
- #{opt\ 3012}#
+ (apply (lambda (#{aok\ 1027}#)
+ (#{check\ 936}#
+ #{req\ 965}#
+ #{opt\ 966}#
#f
(cons #t
(reverse
- #{rkey\ 3013}#))))
- #{tmp\ 3069}#)
- ((lambda (#{tmp\ 3074}#)
- (if (if #{tmp\ 3074}#
- (apply (lambda (#{aok\ 3078}#
- #{a\ 3079}#
- #{b\ 3080}#)
+ #{rkey\ 967}#))))
+ #{tmp\ 1023}#)
+ ((lambda (#{tmp\ 1028}#)
+ (if (if #{tmp\ 1028}#
+ (apply (lambda (#{aok\ 1032}#
+ #{a\ 1033}#
+ #{b\ 1034}#)
(if (eq? (syntax->datum
- #{aok\ 3078}#)
+ #{aok\ 1032}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 3079}#)
+ #{a\ 1033}#)
#:rest)
#f))
- #{tmp\ 3074}#)
+ #{tmp\ 1028}#)
#f)
- (apply (lambda (#{aok\ 3086}#
- #{a\ 3087}#
- #{b\ 3088}#)
- (#{rest\ 2980}#
- #{b\ 3088}#
- #{req\ 3011}#
- #{opt\ 3012}#
+ (apply (lambda (#{aok\ 1040}#
+ #{a\ 1041}#
+ #{b\ 1042}#)
+ (#{rest\ 934}#
+ #{b\ 1042}#
+ #{req\ 965}#
+ #{opt\ 966}#
(cons #t
(reverse
- #{rkey\ 3013}#))))
- #{tmp\ 3074}#)
- ((lambda (#{tmp\ 3089}#)
- (if (if #{tmp\ 3089}#
- (apply (lambda (#{aok\ 3092}#
- #{r\ 3093}#)
+ #{rkey\ 967}#))))
+ #{tmp\ 1028}#)
+ ((lambda (#{tmp\ 1043}#)
+ (if (if #{tmp\ 1043}#
+ (apply (lambda (#{aok\ 1046}#
+ #{r\ 1047}#)
(if (eq? (syntax->datum
- #{aok\ 3092}#)
+ #{aok\ 1046}#)
#:allow-other-keys)
- (#{id?\ 2353}#
- #{r\ 3093}#)
+ (#{id?\ 307}#
+ #{r\ 1047}#)
#f))
- #{tmp\ 3089}#)
+ #{tmp\ 1043}#)
#f)
- (apply (lambda (#{aok\ 3098}#
- #{r\ 3099}#)
- (#{rest\ 2980}#
- #{r\ 3099}#
- #{req\ 3011}#
- #{opt\ 3012}#
+ (apply (lambda (#{aok\ 1052}#
+ #{r\ 1053}#)
+ (#{rest\ 934}#
+ #{r\ 1053}#
+ #{req\ 965}#
+ #{opt\ 966}#
(cons #t
(reverse
- #{rkey\ 3013}#))))
- #{tmp\ 3089}#)
- ((lambda (#{tmp\ 3100}#)
- (if (if #{tmp\ 3100}#
- (apply (lambda (#{a\ 3103}#
- #{b\ 3104}#)
+ #{rkey\ 967}#))))
+ #{tmp\ 1043}#)
+ ((lambda (#{tmp\ 1054}#)
+ (if (if #{tmp\ 1054}#
+ (apply (lambda (#{a\ 1057}#
+ #{b\ 1058}#)
(eq? (syntax->datum
- #{a\ 3103}#)
+ #{a\ 1057}#)
#:rest))
- #{tmp\ 3100}#)
+ #{tmp\ 1054}#)
#f)
- (apply (lambda (#{a\ 3107}#
- #{b\ 3108}#)
- (#{rest\ 2980}#
- #{b\ 3108}#
- #{req\ 3011}#
- #{opt\ 3012}#
+ (apply (lambda (#{a\ 1061}#
+ #{b\ 1062}#)
+ (#{rest\ 934}#
+ #{b\ 1062}#
+ #{req\ 965}#
+ #{opt\ 966}#
(cons #f
(reverse
- #{rkey\ 3013}#))))
- #{tmp\ 3100}#)
- ((lambda (#{tmp\ 3109}#)
- (if (if #{tmp\ 3109}#
- (apply (lambda (#{r\ 3111}#)
- (#{id?\ 2353}#
- #{r\ 3111}#))
- #{tmp\ 3109}#)
+ #{rkey\ 967}#))))
+ #{tmp\ 1054}#)
+ ((lambda (#{tmp\ 1063}#)
+ (if (if #{tmp\ 1063}#
+ (apply (lambda (#{r\ 1065}#)
+ (#{id?\ 307}#
+ #{r\ 1065}#))
+ #{tmp\ 1063}#)
#f)
- (apply (lambda (#{r\ 3113}#)
- (#{rest\ 2980}#
- #{r\ 3113}#
- #{req\ 3011}#
- #{opt\ 3012}#
+ (apply (lambda (#{r\ 1067}#)
+ (#{rest\ 934}#
+ #{r\ 1067}#
+ #{req\ 965}#
+ #{opt\ 966}#
(cons #f
(reverse
- #{rkey\ 3013}#))))
- #{tmp\ 3109}#)
- ((lambda (#{else\ 3115}#)
+ #{rkey\ 967}#))))
+ #{tmp\ 1063}#)
+ ((lambda (#{else\ 1069}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 2971}#
- #{args\ 3010}#))
- #{tmp\ 3018}#)))
- (list #{tmp\ 3018}#))))
+ #{orig-args\ 925}#
+ #{args\ 964}#))
+ #{tmp\ 972}#)))
+ (list #{tmp\ 972}#))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'(any any)))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'(any)))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 3018}#
+ #{tmp\ 972}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 3018}# (quote ()))))
- #{args\ 3010}#)))
- (#{opt\ 2976}#
- (lambda (#{args\ 3116}# #{req\ 3117}# #{ropt\ 3118}#)
- ((lambda (#{tmp\ 3122}#)
- ((lambda (#{tmp\ 3123}#)
- (if #{tmp\ 3123}#
+ ($sc-dispatch #{tmp\ 972}# (quote ()))))
+ #{args\ 964}#)))
+ (#{opt\ 930}#
+ (lambda (#{args\ 1070}# #{req\ 1071}# #{ropt\ 1072}#)
+ ((lambda (#{tmp\ 1076}#)
+ ((lambda (#{tmp\ 1077}#)
+ (if #{tmp\ 1077}#
(apply (lambda ()
- (#{check\ 2982}#
- #{req\ 3117}#
- (reverse #{ropt\ 3118}#)
+ (#{check\ 936}#
+ #{req\ 1071}#
+ (reverse #{ropt\ 1072}#)
#f
'()))
- #{tmp\ 3123}#)
- ((lambda (#{tmp\ 3124}#)
- (if (if #{tmp\ 3124}#
- (apply (lambda (#{a\ 3127}#
- #{b\ 3128}#)
- (#{id?\ 2353}#
- #{a\ 3127}#))
- #{tmp\ 3124}#)
+ #{tmp\ 1077}#)
+ ((lambda (#{tmp\ 1078}#)
+ (if (if #{tmp\ 1078}#
+ (apply (lambda (#{a\ 1081}#
+ #{b\ 1082}#)
+ (#{id?\ 307}#
+ #{a\ 1081}#))
+ #{tmp\ 1078}#)
#f)
- (apply (lambda (#{a\ 3131}#
- #{b\ 3132}#)
- (#{opt\ 2976}#
- #{b\ 3132}#
- #{req\ 3117}#
- (cons (cons #{a\ 3131}#
+ (apply (lambda (#{a\ 1085}#
+ #{b\ 1086}#)
+ (#{opt\ 930}#
+ #{b\ 1086}#
+ #{req\ 1071}#
+ (cons (cons #{a\ 1085}#
'(#(syntax-object
#f
((top)
#(a b)
#((top)
(top))
- #("i3129"
- "i3130"))
+ #("i1083"
+ "i1084"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i3119"
- "i3120"
- "i3121"))
+ #("i1073"
+ "i1074"
+ "i1075"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i2981"
- "i2979"
- "i2977"
- "i2975"
- "i2973"))
+ ("i935"
+ "i933"
+ "i931"
+ "i929"
+ "i927"))
#(ribcage
#(orig-args)
#((top))
- #("i2972"))
+ #("i926"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene
guile))))
- #{ropt\ 3118}#)))
- #{tmp\ 3124}#)
- ((lambda (#{tmp\ 3133}#)
- (if (if #{tmp\ 3133}#
- (apply (lambda (#{a\ 3137}#
- #{init\ 3138}#
- #{b\ 3139}#)
- (#{id?\ 2353}#
- #{a\ 3137}#))
- #{tmp\ 3133}#)
+ #{ropt\ 1072}#)))
+ #{tmp\ 1078}#)
+ ((lambda (#{tmp\ 1087}#)
+ (if (if #{tmp\ 1087}#
+ (apply (lambda (#{a\ 1091}#
+ #{init\ 1092}#
+ #{b\ 1093}#)
+ (#{id?\ 307}#
+ #{a\ 1091}#))
+ #{tmp\ 1087}#)
#f)
- (apply (lambda (#{a\ 3143}#
- #{init\ 3144}#
- #{b\ 3145}#)
- (#{opt\ 2976}#
- #{b\ 3145}#
- #{req\ 3117}#
- (cons (list #{a\ 3143}#
- #{init\ 3144}#)
- #{ropt\ 3118}#)))
- #{tmp\ 3133}#)
- ((lambda (#{tmp\ 3146}#)
- (if (if #{tmp\ 3146}#
- (apply (lambda (#{a\ 3149}#
- #{b\ 3150}#)
+ (apply (lambda (#{a\ 1097}#
+ #{init\ 1098}#
+ #{b\ 1099}#)
+ (#{opt\ 930}#
+ #{b\ 1099}#
+ #{req\ 1071}#
+ (cons (list #{a\ 1097}#
+ #{init\ 1098}#)
+ #{ropt\ 1072}#)))
+ #{tmp\ 1087}#)
+ ((lambda (#{tmp\ 1100}#)
+ (if (if #{tmp\ 1100}#
+ (apply (lambda (#{a\ 1103}#
+ #{b\ 1104}#)
(eq? (syntax->datum
- #{a\ 3149}#)
+ #{a\ 1103}#)
#:key))
- #{tmp\ 3146}#)
+ #{tmp\ 1100}#)
#f)
- (apply (lambda (#{a\ 3153}#
- #{b\ 3154}#)
- (#{key\ 2978}#
- #{b\ 3154}#
- #{req\ 3117}#
+ (apply (lambda (#{a\ 1107}#
+ #{b\ 1108}#)
+ (#{key\ 932}#
+ #{b\ 1108}#
+ #{req\ 1071}#
(reverse
- #{ropt\ 3118}#)
+ #{ropt\ 1072}#)
'()))
- #{tmp\ 3146}#)
- ((lambda (#{tmp\ 3155}#)
- (if (if #{tmp\ 3155}#
- (apply (lambda (#{a\ 3158}#
- #{b\ 3159}#)
+ #{tmp\ 1100}#)
+ ((lambda (#{tmp\ 1109}#)
+ (if (if #{tmp\ 1109}#
+ (apply (lambda (#{a\ 1112}#
+ #{b\ 1113}#)
(eq? (syntax->datum
- #{a\ 3158}#)
+ #{a\ 1112}#)
#:rest))
- #{tmp\ 3155}#)
+ #{tmp\ 1109}#)
#f)
- (apply (lambda (#{a\ 3162}#
- #{b\ 3163}#)
- (#{rest\ 2980}#
- #{b\ 3163}#
- #{req\ 3117}#
+ (apply (lambda (#{a\ 1116}#
+ #{b\ 1117}#)
+ (#{rest\ 934}#
+ #{b\ 1117}#
+ #{req\ 1071}#
(reverse
- #{ropt\ 3118}#)
+ #{ropt\ 1072}#)
'()))
- #{tmp\ 3155}#)
- ((lambda (#{tmp\ 3164}#)
- (if (if #{tmp\ 3164}#
- (apply (lambda (#{r\ 3166}#)
- (#{id?\ 2353}#
- #{r\ 3166}#))
- #{tmp\ 3164}#)
+ #{tmp\ 1109}#)
+ ((lambda (#{tmp\ 1118}#)
+ (if (if #{tmp\ 1118}#
+ (apply (lambda (#{r\ 1120}#)
+ (#{id?\ 307}#
+ #{r\ 1120}#))
+ #{tmp\ 1118}#)
#f)
- (apply (lambda (#{r\ 3168}#)
- (#{rest\ 2980}#
- #{r\ 3168}#
- #{req\ 3117}#
+ (apply (lambda (#{r\ 1122}#)
+ (#{rest\ 934}#
+ #{r\ 1122}#
+ #{req\ 1071}#
(reverse
- #{ropt\ 3118}#)
+ #{ropt\ 1072}#)
'()))
- #{tmp\ 3164}#)
- ((lambda (#{else\ 3170}#)
+ #{tmp\ 1118}#)
+ ((lambda (#{else\ 1124}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 2971}#
- #{args\ 3116}#))
- #{tmp\ 3122}#)))
- (list #{tmp\ 3122}#))))
+ #{orig-args\ 925}#
+ #{args\ 1070}#))
+ #{tmp\ 1076}#)))
+ (list #{tmp\ 1076}#))))
($sc-dispatch
- #{tmp\ 3122}#
+ #{tmp\ 1076}#
'(any any)))))
($sc-dispatch
- #{tmp\ 3122}#
+ #{tmp\ 1076}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3122}#
+ #{tmp\ 1076}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 3122}#
+ #{tmp\ 1076}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 3122}# (quote ()))))
- #{args\ 3116}#)))
- (#{req\ 2974}#
- (lambda (#{args\ 3171}# #{rreq\ 3172}#)
- ((lambda (#{tmp\ 3175}#)
- ((lambda (#{tmp\ 3176}#)
- (if #{tmp\ 3176}#
+ ($sc-dispatch #{tmp\ 1076}# (quote ()))))
+ #{args\ 1070}#)))
+ (#{req\ 928}#
+ (lambda (#{args\ 1125}# #{rreq\ 1126}#)
+ ((lambda (#{tmp\ 1129}#)
+ ((lambda (#{tmp\ 1130}#)
+ (if #{tmp\ 1130}#
(apply (lambda ()
- (#{check\ 2982}#
- (reverse #{rreq\ 3172}#)
+ (#{check\ 936}#
+ (reverse #{rreq\ 1126}#)
'()
#f
'()))
- #{tmp\ 3176}#)
- ((lambda (#{tmp\ 3177}#)
- (if (if #{tmp\ 3177}#
- (apply (lambda (#{a\ 3180}#
- #{b\ 3181}#)
- (#{id?\ 2353}#
- #{a\ 3180}#))
- #{tmp\ 3177}#)
+ #{tmp\ 1130}#)
+ ((lambda (#{tmp\ 1131}#)
+ (if (if #{tmp\ 1131}#
+ (apply (lambda (#{a\ 1134}#
+ #{b\ 1135}#)
+ (#{id?\ 307}#
+ #{a\ 1134}#))
+ #{tmp\ 1131}#)
#f)
- (apply (lambda (#{a\ 3184}#
- #{b\ 3185}#)
- (#{req\ 2974}#
- #{b\ 3185}#
- (cons #{a\ 3184}#
- #{rreq\ 3172}#)))
- #{tmp\ 3177}#)
- ((lambda (#{tmp\ 3186}#)
- (if (if #{tmp\ 3186}#
- (apply (lambda (#{a\ 3189}#
- #{b\ 3190}#)
+ (apply (lambda (#{a\ 1138}#
+ #{b\ 1139}#)
+ (#{req\ 928}#
+ #{b\ 1139}#
+ (cons #{a\ 1138}#
+ #{rreq\ 1126}#)))
+ #{tmp\ 1131}#)
+ ((lambda (#{tmp\ 1140}#)
+ (if (if #{tmp\ 1140}#
+ (apply (lambda (#{a\ 1143}#
+ #{b\ 1144}#)
(eq? (syntax->datum
- #{a\ 3189}#)
+ #{a\ 1143}#)
#:optional))
- #{tmp\ 3186}#)
+ #{tmp\ 1140}#)
#f)
- (apply (lambda (#{a\ 3193}#
- #{b\ 3194}#)
- (#{opt\ 2976}#
- #{b\ 3194}#
+ (apply (lambda (#{a\ 1147}#
+ #{b\ 1148}#)
+ (#{opt\ 930}#
+ #{b\ 1148}#
(reverse
- #{rreq\ 3172}#)
+ #{rreq\ 1126}#)
'()))
- #{tmp\ 3186}#)
- ((lambda (#{tmp\ 3195}#)
- (if (if #{tmp\ 3195}#
- (apply (lambda (#{a\ 3198}#
- #{b\ 3199}#)
+ #{tmp\ 1140}#)
+ ((lambda (#{tmp\ 1149}#)
+ (if (if #{tmp\ 1149}#
+ (apply (lambda (#{a\ 1152}#
+ #{b\ 1153}#)
(eq? (syntax->datum
- #{a\ 3198}#)
+ #{a\ 1152}#)
#:key))
- #{tmp\ 3195}#)
+ #{tmp\ 1149}#)
#f)
- (apply (lambda (#{a\ 3202}#
- #{b\ 3203}#)
- (#{key\ 2978}#
- #{b\ 3203}#
+ (apply (lambda (#{a\ 1156}#
+ #{b\ 1157}#)
+ (#{key\ 932}#
+ #{b\ 1157}#
(reverse
- #{rreq\ 3172}#)
+ #{rreq\ 1126}#)
'()
'()))
- #{tmp\ 3195}#)
- ((lambda (#{tmp\ 3204}#)
- (if (if #{tmp\ 3204}#
- (apply (lambda (#{a\ 3207}#
- #{b\ 3208}#)
+ #{tmp\ 1149}#)
+ ((lambda (#{tmp\ 1158}#)
+ (if (if #{tmp\ 1158}#
+ (apply (lambda (#{a\ 1161}#
+ #{b\ 1162}#)
(eq? (syntax->datum
- #{a\ 3207}#)
+ #{a\ 1161}#)
#:rest))
- #{tmp\ 3204}#)
+ #{tmp\ 1158}#)
#f)
- (apply (lambda (#{a\ 3211}#
- #{b\ 3212}#)
- (#{rest\ 2980}#
- #{b\ 3212}#
+ (apply (lambda (#{a\ 1165}#
+ #{b\ 1166}#)
+ (#{rest\ 934}#
+ #{b\ 1166}#
(reverse
- #{rreq\ 3172}#)
+ #{rreq\ 1126}#)
'()
'()))
- #{tmp\ 3204}#)
- ((lambda (#{tmp\ 3213}#)
- (if (if #{tmp\ 3213}#
- (apply (lambda (#{r\ 3215}#)
- (#{id?\ 2353}#
- #{r\ 3215}#))
- #{tmp\ 3213}#)
+ #{tmp\ 1158}#)
+ ((lambda (#{tmp\ 1167}#)
+ (if (if #{tmp\ 1167}#
+ (apply (lambda (#{r\ 1169}#)
+ (#{id?\ 307}#
+ #{r\ 1169}#))
+ #{tmp\ 1167}#)
#f)
- (apply (lambda (#{r\ 3217}#)
- (#{rest\ 2980}#
- #{r\ 3217}#
+ (apply (lambda (#{r\ 1171}#)
+ (#{rest\ 934}#
+ #{r\ 1171}#
(reverse
- #{rreq\ 3172}#)
+ #{rreq\ 1126}#)
'()
'()))
- #{tmp\ 3213}#)
- ((lambda (#{else\ 3219}#)
+ #{tmp\ 1167}#)
+ ((lambda (#{else\ 1173}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2971}#
- #{args\ 3171}#))
- #{tmp\ 3175}#)))
- (list #{tmp\ 3175}#))))
+ #{orig-args\ 925}#
+ #{args\ 1125}#))
+ #{tmp\ 1129}#)))
+ (list #{tmp\ 1129}#))))
($sc-dispatch
- #{tmp\ 3175}#
+ #{tmp\ 1129}#
'(any any)))))
($sc-dispatch
- #{tmp\ 3175}#
+ #{tmp\ 1129}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3175}#
+ #{tmp\ 1129}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3175}#
+ #{tmp\ 1129}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 3175}# (quote ()))))
- #{args\ 3171}#))))
- (#{req\ 2974}# #{orig-args\ 2971}# (quote ())))))
- (#{chi-simple-lambda\ 2458}#
- (lambda (#{e\ 3220}#
- #{r\ 3221}#
- #{w\ 3222}#
- #{s\ 3223}#
- #{mod\ 3224}#
- #{req\ 3225}#
- #{rest\ 3226}#
- #{meta\ 3227}#
- #{body\ 3228}#)
- (let ((#{ids\ 3240}#
- (if #{rest\ 3226}#
- (append #{req\ 3225}# (list #{rest\ 3226}#))
- #{req\ 3225}#)))
- (let ((#{vars\ 3242}#
- (map #{gen-var\ 2466}# #{ids\ 3240}#)))
- (let ((#{labels\ 3244}#
- (#{gen-labels\ 2371}# #{ids\ 3240}#)))
- (#{build-simple-lambda\ 2295}#
- #{s\ 3223}#
- (map syntax->datum #{req\ 3225}#)
- (if #{rest\ 3226}#
- (syntax->datum #{rest\ 3226}#)
+ ($sc-dispatch #{tmp\ 1129}# (quote ()))))
+ #{args\ 1125}#))))
+ (#{req\ 928}# #{orig-args\ 925}# (quote ())))))
+ (#{chi-simple-lambda\ 412}#
+ (lambda (#{e\ 1174}#
+ #{r\ 1175}#
+ #{w\ 1176}#
+ #{s\ 1177}#
+ #{mod\ 1178}#
+ #{req\ 1179}#
+ #{rest\ 1180}#
+ #{meta\ 1181}#
+ #{body\ 1182}#)
+ (let ((#{ids\ 1194}#
+ (if #{rest\ 1180}#
+ (append #{req\ 1179}# (list #{rest\ 1180}#))
+ #{req\ 1179}#)))
+ (let ((#{vars\ 1196}#
+ (map #{gen-var\ 420}# #{ids\ 1194}#)))
+ (let ((#{labels\ 1198}#
+ (#{gen-labels\ 325}# #{ids\ 1194}#)))
+ (#{build-simple-lambda\ 249}#
+ #{s\ 1177}#
+ (map syntax->datum #{req\ 1179}#)
+ (if #{rest\ 1180}#
+ (syntax->datum #{rest\ 1180}#)
#f)
- #{vars\ 3242}#
- #{meta\ 3227}#
- (#{chi-body\ 2446}#
- #{body\ 3228}#
- (#{source-wrap\ 2424}#
- #{e\ 3220}#
- #{w\ 3222}#
- #{s\ 3223}#
- #{mod\ 3224}#)
- (#{extend-var-env\ 2343}#
- #{labels\ 3244}#
- #{vars\ 3242}#
- #{r\ 3221}#)
- (#{make-binding-wrap\ 2400}#
- #{ids\ 3240}#
- #{labels\ 3244}#
- #{w\ 3222}#)
- #{mod\ 3224}#)))))))
- (#{lambda-formals\ 2456}#
- (lambda (#{orig-args\ 3247}#)
- (letrec ((#{check\ 3252}#
- (lambda (#{req\ 3253}# #{rest\ 3254}#)
- (if (#{distinct-bound-ids?\ 2418}#
- (if #{rest\ 3254}#
- (cons #{rest\ 3254}# #{req\ 3253}#)
- #{req\ 3253}#))
- (values #{req\ 3253}# #f #{rest\ 3254}# #f)
+ #{vars\ 1196}#
+ #{meta\ 1181}#
+ (#{chi-body\ 400}#
+ #{body\ 1182}#
+ (#{source-wrap\ 378}#
+ #{e\ 1174}#
+ #{w\ 1176}#
+ #{s\ 1177}#
+ #{mod\ 1178}#)
+ (#{extend-var-env\ 297}#
+ #{labels\ 1198}#
+ #{vars\ 1196}#
+ #{r\ 1175}#)
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 1194}#
+ #{labels\ 1198}#
+ #{w\ 1176}#)
+ #{mod\ 1178}#)))))))
+ (#{lambda-formals\ 410}#
+ (lambda (#{orig-args\ 1201}#)
+ (letrec ((#{check\ 1206}#
+ (lambda (#{req\ 1207}# #{rest\ 1208}#)
+ (if (#{distinct-bound-ids?\ 372}#
+ (if #{rest\ 1208}#
+ (cons #{rest\ 1208}# #{req\ 1207}#)
+ #{req\ 1207}#))
+ (values #{req\ 1207}# #f #{rest\ 1208}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 3247}#))))
- (#{req\ 3250}#
- (lambda (#{args\ 3260}# #{rreq\ 3261}#)
- ((lambda (#{tmp\ 3264}#)
- ((lambda (#{tmp\ 3265}#)
- (if #{tmp\ 3265}#
+ #{orig-args\ 1201}#))))
+ (#{req\ 1204}#
+ (lambda (#{args\ 1214}# #{rreq\ 1215}#)
+ ((lambda (#{tmp\ 1218}#)
+ ((lambda (#{tmp\ 1219}#)
+ (if #{tmp\ 1219}#
(apply (lambda ()
- (#{check\ 3252}#
- (reverse #{rreq\ 3261}#)
+ (#{check\ 1206}#
+ (reverse #{rreq\ 1215}#)
#f))
- #{tmp\ 3265}#)
- ((lambda (#{tmp\ 3266}#)
- (if (if #{tmp\ 3266}#
- (apply (lambda (#{a\ 3269}#
- #{b\ 3270}#)
- (#{id?\ 2353}#
- #{a\ 3269}#))
- #{tmp\ 3266}#)
+ #{tmp\ 1219}#)
+ ((lambda (#{tmp\ 1220}#)
+ (if (if #{tmp\ 1220}#
+ (apply (lambda (#{a\ 1223}#
+ #{b\ 1224}#)
+ (#{id?\ 307}#
+ #{a\ 1223}#))
+ #{tmp\ 1220}#)
#f)
- (apply (lambda (#{a\ 3273}#
- #{b\ 3274}#)
- (#{req\ 3250}#
- #{b\ 3274}#
- (cons #{a\ 3273}#
- #{rreq\ 3261}#)))
- #{tmp\ 3266}#)
- ((lambda (#{tmp\ 3275}#)
- (if (if #{tmp\ 3275}#
- (apply (lambda (#{r\ 3277}#)
- (#{id?\ 2353}#
- #{r\ 3277}#))
- #{tmp\ 3275}#)
+ (apply (lambda (#{a\ 1227}#
+ #{b\ 1228}#)
+ (#{req\ 1204}#
+ #{b\ 1228}#
+ (cons #{a\ 1227}#
+ #{rreq\ 1215}#)))
+ #{tmp\ 1220}#)
+ ((lambda (#{tmp\ 1229}#)
+ (if (if #{tmp\ 1229}#
+ (apply (lambda (#{r\ 1231}#)
+ (#{id?\ 307}#
+ #{r\ 1231}#))
+ #{tmp\ 1229}#)
#f)
- (apply (lambda (#{r\ 3279}#)
- (#{check\ 3252}#
+ (apply (lambda (#{r\ 1233}#)
+ (#{check\ 1206}#
(reverse
- #{rreq\ 3261}#)
- #{r\ 3279}#))
- #{tmp\ 3275}#)
- ((lambda (#{else\ 3281}#)
+ #{rreq\ 1215}#)
+ #{r\ 1233}#))
+ #{tmp\ 1229}#)
+ ((lambda (#{else\ 1235}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 3247}#
- #{args\ 3260}#))
- #{tmp\ 3264}#)))
- (list #{tmp\ 3264}#))))
+ #{orig-args\ 1201}#
+ #{args\ 1214}#))
+ #{tmp\ 1218}#)))
+ (list #{tmp\ 1218}#))))
($sc-dispatch
- #{tmp\ 3264}#
+ #{tmp\ 1218}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 3264}# (quote ()))))
- #{args\ 3260}#))))
- (#{req\ 3250}# #{orig-args\ 3247}# (quote ())))))
- (#{ellipsis?\ 2454}#
- (lambda (#{x\ 3282}#)
- (if (#{nonsymbol-id?\ 2351}# #{x\ 3282}#)
- (#{free-id=?\ 2412}#
- #{x\ 3282}#
+ ($sc-dispatch #{tmp\ 1218}# (quote ()))))
+ #{args\ 1214}#))))
+ (#{req\ 1204}# #{orig-args\ 1201}# (quote ())))))
+ (#{ellipsis?\ 408}#
+ (lambda (#{x\ 1236}#)
+ (if (#{nonsymbol-id?\ 305}# #{x\ 1236}#)
+ (#{free-id=?\ 366}#
+ #{x\ 1236}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3283"))
+ #(ribcage #(x) #((top)) #("i1237"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066" "i2065" "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
#f)))
- (#{chi-void\ 2452}#
- (lambda () (#{build-void\ 2273}# #f)))
- (#{eval-local-transformer\ 2450}#
- (lambda (#{expanded\ 3287}# #{mod\ 3288}#)
- (let ((#{p\ 3292}#
- (#{local-eval-hook\ 2264}#
- #{expanded\ 3287}#
- #{mod\ 3288}#)))
- (if (procedure? #{p\ 3292}#)
- (cons #{p\ 3292}# (module-name (current-module)))
+ (#{chi-void\ 406}#
+ (lambda () (#{build-void\ 227}# #f)))
+ (#{eval-local-transformer\ 404}#
+ (lambda (#{expanded\ 1241}# #{mod\ 1242}#)
+ (let ((#{p\ 1246}#
+ (#{local-eval-hook\ 218}#
+ #{expanded\ 1241}#
+ #{mod\ 1242}#)))
+ (if (procedure? #{p\ 1246}#)
+ (cons #{p\ 1246}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 3292}#)))))
- (#{chi-local-syntax\ 2448}#
- (lambda (#{rec?\ 3293}#
- #{e\ 3294}#
- #{r\ 3295}#
- #{w\ 3296}#
- #{s\ 3297}#
- #{mod\ 3298}#
- #{k\ 3299}#)
- ((lambda (#{tmp\ 3307}#)
- ((lambda (#{tmp\ 3308}#)
- (if #{tmp\ 3308}#
- (apply (lambda (#{_\ 3314}#
- #{id\ 3315}#
- #{val\ 3316}#
- #{e1\ 3317}#
- #{e2\ 3318}#)
- (let ((#{ids\ 3320}# #{id\ 3315}#))
- (if (not (#{valid-bound-ids?\ 2416}#
- #{ids\ 3320}#))
+ #{p\ 1246}#)))))
+ (#{chi-local-syntax\ 402}#
+ (lambda (#{rec?\ 1247}#
+ #{e\ 1248}#
+ #{r\ 1249}#
+ #{w\ 1250}#
+ #{s\ 1251}#
+ #{mod\ 1252}#
+ #{k\ 1253}#)
+ ((lambda (#{tmp\ 1261}#)
+ ((lambda (#{tmp\ 1262}#)
+ (if #{tmp\ 1262}#
+ (apply (lambda (#{_\ 1268}#
+ #{id\ 1269}#
+ #{val\ 1270}#
+ #{e1\ 1271}#
+ #{e2\ 1272}#)
+ (let ((#{ids\ 1274}# #{id\ 1269}#))
+ (if (not (#{valid-bound-ids?\ 370}#
+ #{ids\ 1274}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 3294}#)
- (let ((#{labels\ 3323}#
- (#{gen-labels\ 2371}#
- #{ids\ 3320}#)))
- (let ((#{new-w\ 3325}#
- (#{make-binding-wrap\ 2400}#
- #{ids\ 3320}#
- #{labels\ 3323}#
- #{w\ 3296}#)))
- (#{k\ 3299}#
- (cons #{e1\ 3317}# #{e2\ 3318}#)
- (#{extend-env\ 2341}#
- #{labels\ 3323}#
- (let ((#{w\ 3329}#
- (if #{rec?\ 3293}#
- #{new-w\ 3325}#
- #{w\ 3296}#))
- (#{trans-r\ 3330}#
- (#{macros-only-env\ 2345}#
- #{r\ 3295}#)))
- (map (lambda (#{x\ 3331}#)
+ #{e\ 1248}#)
+ (let ((#{labels\ 1277}#
+ (#{gen-labels\ 325}#
+ #{ids\ 1274}#)))
+ (let ((#{new-w\ 1279}#
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 1274}#
+ #{labels\ 1277}#
+ #{w\ 1250}#)))
+ (#{k\ 1253}#
+ (cons #{e1\ 1271}# #{e2\ 1272}#)
+ (#{extend-env\ 295}#
+ #{labels\ 1277}#
+ (let ((#{w\ 1283}#
+ (if #{rec?\ 1247}#
+ #{new-w\ 1279}#
+ #{w\ 1250}#))
+ (#{trans-r\ 1284}#
+ (#{macros-only-env\ 299}#
+ #{r\ 1249}#)))
+ (map (lambda (#{x\ 1285}#)
(cons 'macro
- (#{eval-local-transformer\ 2450}#
- (#{chi\ 2438}#
- #{x\ 3331}#
- #{trans-r\ 3330}#
- #{w\ 3329}#
- #{mod\ 3298}#)
- #{mod\ 3298}#)))
- #{val\ 3316}#))
- #{r\ 3295}#)
- #{new-w\ 3325}#
- #{s\ 3297}#
- #{mod\ 3298}#))))))
- #{tmp\ 3308}#)
- ((lambda (#{_\ 3336}#)
+ (#{eval-local-transformer\ 404}#
+ (#{chi\ 392}#
+ #{x\ 1285}#
+ #{trans-r\ 1284}#
+ #{w\ 1283}#
+ #{mod\ 1252}#)
+ #{mod\ 1252}#)))
+ #{val\ 1270}#))
+ #{r\ 1249}#)
+ #{new-w\ 1279}#
+ #{s\ 1251}#
+ #{mod\ 1252}#))))))
+ #{tmp\ 1262}#)
+ ((lambda (#{_\ 1290}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 2424}#
- #{e\ 3294}#
- #{w\ 3296}#
- #{s\ 3297}#
- #{mod\ 3298}#)))
- #{tmp\ 3307}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 1248}#
+ #{w\ 1250}#
+ #{s\ 1251}#
+ #{mod\ 1252}#)))
+ #{tmp\ 1261}#)))
($sc-dispatch
- #{tmp\ 3307}#
+ #{tmp\ 1261}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3294}#)))
- (#{chi-body\ 2446}#
- (lambda (#{body\ 3337}#
- #{outer-form\ 3338}#
- #{r\ 3339}#
- #{w\ 3340}#
- #{mod\ 3341}#)
- (let ((#{r\ 3349}#
+ #{e\ 1248}#)))
+ (#{chi-body\ 400}#
+ (lambda (#{body\ 1291}#
+ #{outer-form\ 1292}#
+ #{r\ 1293}#
+ #{w\ 1294}#
+ #{mod\ 1295}#)
+ (let ((#{r\ 1303}#
(cons '("placeholder" placeholder)
- #{r\ 3339}#)))
- (let ((#{ribcage\ 3351}#
- (#{make-ribcage\ 2374}#
+ #{r\ 1293}#)))
+ (let ((#{ribcage\ 1305}#
+ (#{make-ribcage\ 328}#
'()
'()
'())))
- (let ((#{w\ 3354}#
- (#{make-wrap\ 2358}#
- (#{wrap-marks\ 2360}# #{w\ 3340}#)
- (cons #{ribcage\ 3351}#
- (#{wrap-subst\ 2362}# #{w\ 3340}#)))))
- (letrec ((#{parse\ 3363}#
- (lambda (#{body\ 3364}#
- #{ids\ 3365}#
- #{labels\ 3366}#
- #{var-ids\ 3367}#
- #{vars\ 3368}#
- #{vals\ 3369}#
- #{bindings\ 3370}#)
- (if (null? #{body\ 3364}#)
+ (let ((#{w\ 1308}#
+ (#{make-wrap\ 312}#
+ (#{wrap-marks\ 314}# #{w\ 1294}#)
+ (cons #{ribcage\ 1305}#
+ (#{wrap-subst\ 316}# #{w\ 1294}#)))))
+ (letrec ((#{parse\ 1317}#
+ (lambda (#{body\ 1318}#
+ #{ids\ 1319}#
+ #{labels\ 1320}#
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
+ #{bindings\ 1324}#)
+ (if (null? #{body\ 1318}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 3338}#)
- (let ((#{e\ 3375}# (cdar #{body\ 3364}#))
- (#{er\ 3376}# (caar #{body\ 3364}#)))
+ #{outer-form\ 1292}#)
+ (let ((#{e\ 1329}# (cdar #{body\ 1318}#))
+ (#{er\ 1330}# (caar #{body\ 1318}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 2434}#
- #{e\ 3375}#
- #{er\ 3376}#
+ (#{syntax-type\ 388}#
+ #{e\ 1329}#
+ #{er\ 1330}#
'(())
- (#{source-annotation\ 2332}#
- #{er\ 3376}#)
- #{ribcage\ 3351}#
- #{mod\ 3341}#
+ (#{source-annotation\ 286}#
+ #{er\ 1330}#)
+ #{ribcage\ 1305}#
+ #{mod\ 1295}#
#f))
- (lambda (#{type\ 3378}#
- #{value\ 3379}#
- #{e\ 3380}#
- #{w\ 3381}#
- #{s\ 3382}#
- #{mod\ 3383}#)
- (if (memv #{type\ 3378}#
+ (lambda (#{type\ 1332}#
+ #{value\ 1333}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{s\ 1336}#
+ #{mod\ 1337}#)
+ (if (memv #{type\ 1332}#
'(define-form))
- (let ((#{id\ 3393}#
- (#{wrap\ 2422}#
- #{value\ 3379}#
- #{w\ 3381}#
- #{mod\ 3383}#))
- (#{label\ 3394}#
- (#{gen-label\ 2369}#)))
- (let ((#{var\ 3396}#
- (#{gen-var\ 2466}#
- #{id\ 3393}#)))
+ (let ((#{id\ 1347}#
+ (#{wrap\ 376}#
+ #{value\ 1333}#
+ #{w\ 1335}#
+ #{mod\ 1337}#))
+ (#{label\ 1348}#
+ (#{gen-label\ 323}#)))
+ (let ((#{var\ 1350}#
+ (#{gen-var\ 420}#
+ #{id\ 1347}#)))
(begin
- (#{extend-ribcage!\ 2398}#
- #{ribcage\ 3351}#
- #{id\ 3393}#
- #{label\ 3394}#)
- (#{parse\ 3363}#
- (cdr #{body\ 3364}#)
- (cons #{id\ 3393}#
- #{ids\ 3365}#)
- (cons #{label\ 3394}#
- #{labels\ 3366}#)
- (cons #{id\ 3393}#
- #{var-ids\ 3367}#)
- (cons #{var\ 3396}#
- #{vars\ 3368}#)
- (cons (cons #{er\ 3376}#
- (#{wrap\ 2422}#
- #{e\ 3380}#
- #{w\ 3381}#
- #{mod\ 3383}#))
- #{vals\ 3369}#)
+ (#{extend-ribcage!\ 352}#
+ #{ribcage\ 1305}#
+ #{id\ 1347}#
+ #{label\ 1348}#)
+ (#{parse\ 1317}#
+ (cdr #{body\ 1318}#)
+ (cons #{id\ 1347}#
+ #{ids\ 1319}#)
+ (cons #{label\ 1348}#
+ #{labels\ 1320}#)
+ (cons #{id\ 1347}#
+ #{var-ids\ 1321}#)
+ (cons #{var\ 1350}#
+ #{vars\ 1322}#)
+ (cons (cons #{er\ 1330}#
+ (#{wrap\ 376}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{mod\ 1337}#))
+ #{vals\ 1323}#)
(cons (cons 'lexical
- #{var\ 3396}#)
- #{bindings\ 3370}#)))))
- (if (memv #{type\ 3378}#
+ #{var\ 1350}#)
+ #{bindings\ 1324}#)))))
+ (if (memv #{type\ 1332}#
'(define-syntax-form))
- (let ((#{id\ 3401}#
- (#{wrap\ 2422}#
- #{value\ 3379}#
- #{w\ 3381}#
- #{mod\ 3383}#))
- (#{label\ 3402}#
- (#{gen-label\ 2369}#)))
+ (let ((#{id\ 1355}#
+ (#{wrap\ 376}#
+ #{value\ 1333}#
+ #{w\ 1335}#
+ #{mod\ 1337}#))
+ (#{label\ 1356}#
+ (#{gen-label\ 323}#)))
(begin
- (#{extend-ribcage!\ 2398}#
- #{ribcage\ 3351}#
- #{id\ 3401}#
- #{label\ 3402}#)
- (#{parse\ 3363}#
- (cdr #{body\ 3364}#)
- (cons #{id\ 3401}#
- #{ids\ 3365}#)
- (cons #{label\ 3402}#
- #{labels\ 3366}#)
- #{var-ids\ 3367}#
- #{vars\ 3368}#
- #{vals\ 3369}#
+ (#{extend-ribcage!\ 352}#
+ #{ribcage\ 1305}#
+ #{id\ 1355}#
+ #{label\ 1356}#)
+ (#{parse\ 1317}#
+ (cdr #{body\ 1318}#)
+ (cons #{id\ 1355}#
+ #{ids\ 1319}#)
+ (cons #{label\ 1356}#
+ #{labels\ 1320}#)
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
(cons (cons 'macro
- (cons #{er\ 3376}#
- (#{wrap\ 2422}#
- #{e\ 3380}#
- #{w\ 3381}#
- #{mod\ 3383}#)))
- #{bindings\ 3370}#))))
- (if (memv #{type\ 3378}#
+ (cons #{er\ 1330}#
+ (#{wrap\ 376}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{mod\ 1337}#)))
+ #{bindings\ 1324}#))))
+ (if (memv #{type\ 1332}#
'(begin-form))
- ((lambda (#{tmp\ 3405}#)
- ((lambda (#{tmp\ 3406}#)
- (if #{tmp\ 3406}#
- (apply (lambda (#{_\ 3409}#
- #{e1\ 3410}#)
- (#{parse\ 3363}#
- (letrec ((#{f\ 3413}#
- (lambda (#{forms\ 3414}#)
- (if (null? #{forms\ 3414}#)
- (cdr #{body\ 3364}#)
- (cons (cons #{er\ 3376}#
- (#{wrap\ 2422}#
- (car #{forms\ 3414}#)
- #{w\ 3381}#
- #{mod\ 3383}#))
- (#{f\ 3413}#
- (cdr #{forms\ 3414}#)))))))
- (#{f\ 3413}#
- #{e1\ 3410}#))
- #{ids\ 3365}#
- #{labels\ 3366}#
- #{var-ids\ 3367}#
- #{vars\ 3368}#
- #{vals\ 3369}#
- #{bindings\ 3370}#))
- #{tmp\ 3406}#)
+ ((lambda (#{tmp\ 1359}#)
+ ((lambda (#{tmp\ 1360}#)
+ (if #{tmp\ 1360}#
+ (apply (lambda (#{_\ 1363}#
+ #{e1\ 1364}#)
+ (#{parse\ 1317}#
+ (letrec ((#{f\ 1367}#
+ (lambda (#{forms\ 1368}#)
+ (if (null? #{forms\ 1368}#)
+ (cdr #{body\ 1318}#)
+ (cons (cons #{er\ 1330}#
+ (#{wrap\ 376}#
+ (car #{forms\ 1368}#)
+ #{w\ 1335}#
+ #{mod\ 1337}#))
+ (#{f\ 1367}#
+ (cdr #{forms\ 1368}#)))))))
+ (#{f\ 1367}#
+ #{e1\ 1364}#))
+ #{ids\ 1319}#
+ #{labels\ 1320}#
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
+ #{bindings\ 1324}#))
+ #{tmp\ 1360}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3405}#)))
+ #{tmp\ 1359}#)))
($sc-dispatch
- #{tmp\ 3405}#
+ #{tmp\ 1359}#
'(any . each-any))))
- #{e\ 3380}#)
- (if (memv #{type\ 3378}#
+ #{e\ 1334}#)
+ (if (memv #{type\ 1332}#
'(local-syntax-form))
- (#{chi-local-syntax\ 2448}#
- #{value\ 3379}#
- #{e\ 3380}#
- #{er\ 3376}#
- #{w\ 3381}#
- #{s\ 3382}#
- #{mod\ 3383}#
- (lambda (#{forms\ 3417}#
- #{er\ 3418}#
- #{w\ 3419}#
- #{s\ 3420}#
- #{mod\ 3421}#)
- (#{parse\ 3363}#
- (letrec ((#{f\ 3429}#
- (lambda (#{forms\ 3430}#)
- (if (null? #{forms\ 3430}#)
- (cdr #{body\ 3364}#)
- (cons (cons #{er\ 3418}#
- (#{wrap\ 2422}#
- (car #{forms\ 3430}#)
- #{w\ 3419}#
- #{mod\ 3421}#))
- (#{f\ 3429}#
- (cdr #{forms\ 3430}#)))))))
- (#{f\ 3429}#
- #{forms\ 3417}#))
- #{ids\ 3365}#
- #{labels\ 3366}#
- #{var-ids\ 3367}#
- #{vars\ 3368}#
- #{vals\ 3369}#
- #{bindings\ 3370}#)))
- (if (null? #{ids\ 3365}#)
- (#{build-sequence\ 2305}#
+ (#{chi-local-syntax\ 402}#
+ #{value\ 1333}#
+ #{e\ 1334}#
+ #{er\ 1330}#
+ #{w\ 1335}#
+ #{s\ 1336}#
+ #{mod\ 1337}#
+ (lambda (#{forms\ 1371}#
+ #{er\ 1372}#
+ #{w\ 1373}#
+ #{s\ 1374}#
+ #{mod\ 1375}#)
+ (#{parse\ 1317}#
+ (letrec ((#{f\ 1383}#
+ (lambda (#{forms\ 1384}#)
+ (if (null? #{forms\ 1384}#)
+ (cdr #{body\ 1318}#)
+ (cons (cons #{er\ 1372}#
+ (#{wrap\ 376}#
+ (car #{forms\ 1384}#)
+ #{w\ 1373}#
+ #{mod\ 1375}#))
+ (#{f\ 1383}#
+ (cdr #{forms\ 1384}#)))))))
+ (#{f\ 1383}#
+ #{forms\ 1371}#))
+ #{ids\ 1319}#
+ #{labels\ 1320}#
+ #{var-ids\ 1321}#
+ #{vars\ 1322}#
+ #{vals\ 1323}#
+ #{bindings\ 1324}#)))
+ (if (null? #{ids\ 1319}#)
+ (#{build-sequence\ 259}#
#f
- (map (lambda (#{x\ 3433}#)
- (#{chi\ 2438}#
- (cdr #{x\ 3433}#)
- (car #{x\ 3433}#)
+ (map (lambda (#{x\ 1387}#)
+ (#{chi\ 392}#
+ (cdr #{x\ 1387}#)
+ (car #{x\ 1387}#)
'(())
- #{mod\ 3383}#))
- (cons (cons #{er\ 3376}#
- (#{source-wrap\ 2424}#
- #{e\ 3380}#
- #{w\ 3381}#
- #{s\ 3382}#
- #{mod\ 3383}#))
- (cdr #{body\ 3364}#))))
+ #{mod\ 1337}#))
+ (cons (cons #{er\ 1330}#
+ (#{source-wrap\ 378}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{s\ 1336}#
+ #{mod\ 1337}#))
+ (cdr #{body\ 1318}#))))
(begin
- (if (not (#{valid-bound-ids?\ 2416}#
- #{ids\ 3365}#))
+ (if (not (#{valid-bound-ids?\ 370}#
+ #{ids\ 1319}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 3338}#))
- (letrec ((#{loop\ 3440}#
- (lambda (#{bs\ 3441}#
- #{er-cache\ 3442}#
- #{r-cache\ 3443}#)
- (if (not (null? #{bs\ 3441}#))
- (let ((#{b\ 3446}#
- (car #{bs\ 3441}#)))
- (if (eq? (car #{b\ 3446}#)
+ #{outer-form\ 1292}#))
+ (letrec ((#{loop\ 1394}#
+ (lambda (#{bs\ 1395}#
+ #{er-cache\ 1396}#
+ #{r-cache\ 1397}#)
+ (if (not (null? #{bs\ 1395}#))
+ (let ((#{b\ 1400}#
+ (car #{bs\ 1395}#)))
+ (if (eq? (car #{b\ 1400}#)
'macro)
- (let ((#{er\ 3449}#
- (cadr #{b\ 3446}#)))
- (let ((#{r-cache\ 3451}#
- (if (eq? #{er\ 3449}#
- #{er-cache\ 3442}#)
- #{r-cache\ 3443}#
- (#{macros-only-env\ 2345}#
- #{er\ 3449}#))))
+ (let ((#{er\ 1403}#
+ (cadr #{b\ 1400}#)))
+ (let ((#{r-cache\ 1405}#
+ (if (eq? #{er\ 1403}#
+ #{er-cache\ 1396}#)
+ #{r-cache\ 1397}#
+ (#{macros-only-env\ 299}#
+ #{er\ 1403}#))))
(begin
(set-cdr!
- #{b\ 3446}#
- (#{eval-local-transformer\ 2450}#
- (#{chi\ 2438}#
- (cddr #{b\ 3446}#)
- #{r-cache\ 3451}#
+ #{b\ 1400}#
+ (#{eval-local-transformer\ 404}#
+ (#{chi\ 392}#
+ (cddr #{b\ 1400}#)
+ #{r-cache\ 1405}#
'(())
- #{mod\ 3383}#)
- #{mod\ 3383}#))
- (#{loop\ 3440}#
- (cdr #{bs\ 3441}#)
- #{er\ 3449}#
- #{r-cache\ 3451}#))))
- (#{loop\ 3440}#
- (cdr #{bs\ 3441}#)
- #{er-cache\ 3442}#
- #{r-cache\ 3443}#)))))))
- (#{loop\ 3440}#
- #{bindings\ 3370}#
+ #{mod\ 1337}#)
+ #{mod\ 1337}#))
+ (#{loop\ 1394}#
+ (cdr #{bs\ 1395}#)
+ #{er\ 1403}#
+ #{r-cache\ 1405}#))))
+ (#{loop\ 1394}#
+ (cdr #{bs\ 1395}#)
+ #{er-cache\ 1396}#
+ #{r-cache\ 1397}#)))))))
+ (#{loop\ 1394}#
+ #{bindings\ 1324}#
#f
#f))
(set-cdr!
- #{r\ 3349}#
- (#{extend-env\ 2341}#
- #{labels\ 3366}#
- #{bindings\ 3370}#
- (cdr #{r\ 3349}#)))
- (#{build-letrec\ 2311}#
+ #{r\ 1303}#
+ (#{extend-env\ 295}#
+ #{labels\ 1320}#
+ #{bindings\ 1324}#
+ (cdr #{r\ 1303}#)))
+ (#{build-letrec\ 265}#
#f
(map syntax->datum
- #{var-ids\ 3367}#)
- #{vars\ 3368}#
- (map (lambda (#{x\ 3454}#)
- (#{chi\ 2438}#
- (cdr #{x\ 3454}#)
- (car #{x\ 3454}#)
+ #{var-ids\ 1321}#)
+ #{vars\ 1322}#
+ (map (lambda (#{x\ 1408}#)
+ (#{chi\ 392}#
+ (cdr #{x\ 1408}#)
+ (car #{x\ 1408}#)
'(())
- #{mod\ 3383}#))
- #{vals\ 3369}#)
- (#{build-sequence\ 2305}#
+ #{mod\ 1337}#))
+ #{vals\ 1323}#)
+ (#{build-sequence\ 259}#
#f
- (map (lambda (#{x\ 3458}#)
- (#{chi\ 2438}#
- (cdr #{x\ 3458}#)
- (car #{x\ 3458}#)
+ (map (lambda (#{x\ 1412}#)
+ (#{chi\ 392}#
+ (cdr #{x\ 1412}#)
+ (car #{x\ 1412}#)
'(())
- #{mod\ 3383}#))
- (cons (cons #{er\ 3376}#
- (#{source-wrap\ 2424}#
- #{e\ 3380}#
- #{w\ 3381}#
- #{s\ 3382}#
- #{mod\ 3383}#))
- (cdr #{body\ 3364}#))))))))))))))))))
- (#{parse\ 3363}#
- (map (lambda (#{x\ 3371}#)
- (cons #{r\ 3349}#
- (#{wrap\ 2422}#
- #{x\ 3371}#
- #{w\ 3354}#
- #{mod\ 3341}#)))
- #{body\ 3337}#)
+ #{mod\ 1337}#))
+ (cons (cons #{er\ 1330}#
+ (#{source-wrap\ 378}#
+ #{e\ 1334}#
+ #{w\ 1335}#
+ #{s\ 1336}#
+ #{mod\ 1337}#))
+ (cdr #{body\ 1318}#))))))))))))))))))
+ (#{parse\ 1317}#
+ (map (lambda (#{x\ 1325}#)
+ (cons #{r\ 1303}#
+ (#{wrap\ 376}#
+ #{x\ 1325}#
+ #{w\ 1308}#
+ #{mod\ 1295}#)))
+ #{body\ 1291}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 2444}#
- (lambda (#{p\ 3461}#
- #{e\ 3462}#
- #{r\ 3463}#
- #{w\ 3464}#
- #{rib\ 3465}#
- #{mod\ 3466}#)
- (letrec ((#{rebuild-macro-output\ 3474}#
- (lambda (#{x\ 3475}# #{m\ 3476}#)
- (if (pair? #{x\ 3475}#)
- (cons (#{rebuild-macro-output\ 3474}#
- (car #{x\ 3475}#)
- #{m\ 3476}#)
- (#{rebuild-macro-output\ 3474}#
- (cdr #{x\ 3475}#)
- #{m\ 3476}#))
- (if (#{syntax-object?\ 2317}# #{x\ 3475}#)
- (let ((#{w\ 3484}#
- (#{syntax-object-wrap\ 2321}#
- #{x\ 3475}#)))
- (let ((#{ms\ 3487}#
- (#{wrap-marks\ 2360}# #{w\ 3484}#))
- (#{s\ 3488}#
- (#{wrap-subst\ 2362}# #{w\ 3484}#)))
- (if (if (pair? #{ms\ 3487}#)
- (eq? (car #{ms\ 3487}#) #f)
+ (#{chi-macro\ 398}#
+ (lambda (#{p\ 1415}#
+ #{e\ 1416}#
+ #{r\ 1417}#
+ #{w\ 1418}#
+ #{rib\ 1419}#
+ #{mod\ 1420}#)
+ (letrec ((#{rebuild-macro-output\ 1428}#
+ (lambda (#{x\ 1429}# #{m\ 1430}#)
+ (if (pair? #{x\ 1429}#)
+ (cons (#{rebuild-macro-output\ 1428}#
+ (car #{x\ 1429}#)
+ #{m\ 1430}#)
+ (#{rebuild-macro-output\ 1428}#
+ (cdr #{x\ 1429}#)
+ #{m\ 1430}#))
+ (if (#{syntax-object?\ 271}# #{x\ 1429}#)
+ (let ((#{w\ 1438}#
+ (#{syntax-object-wrap\ 275}#
+ #{x\ 1429}#)))
+ (let ((#{ms\ 1441}#
+ (#{wrap-marks\ 314}# #{w\ 1438}#))
+ (#{s\ 1442}#
+ (#{wrap-subst\ 316}# #{w\ 1438}#)))
+ (if (if (pair? #{ms\ 1441}#)
+ (eq? (car #{ms\ 1441}#) #f)
#f)
- (#{make-syntax-object\ 2315}#
- (#{syntax-object-expression\ 2319}#
- #{x\ 3475}#)
- (#{make-wrap\ 2358}#
- (cdr #{ms\ 3487}#)
- (if #{rib\ 3465}#
- (cons #{rib\ 3465}#
- (cdr #{s\ 3488}#))
- (cdr #{s\ 3488}#)))
- (#{syntax-object-module\ 2323}#
- #{x\ 3475}#))
- (#{make-syntax-object\ 2315}#
- (#{syntax-object-expression\ 2319}#
- #{x\ 3475}#)
- (#{make-wrap\ 2358}#
- (cons #{m\ 3476}# #{ms\ 3487}#)
- (if #{rib\ 3465}#
- (cons #{rib\ 3465}#
+ (#{make-syntax-object\ 269}#
+ (#{syntax-object-expression\ 273}#
+ #{x\ 1429}#)
+ (#{make-wrap\ 312}#
+ (cdr #{ms\ 1441}#)
+ (if #{rib\ 1419}#
+ (cons #{rib\ 1419}#
+ (cdr #{s\ 1442}#))
+ (cdr #{s\ 1442}#)))
+ (#{syntax-object-module\ 277}#
+ #{x\ 1429}#))
+ (#{make-syntax-object\ 269}#
+ (#{syntax-object-expression\ 273}#
+ #{x\ 1429}#)
+ (#{make-wrap\ 312}#
+ (cons #{m\ 1430}# #{ms\ 1441}#)
+ (if #{rib\ 1419}#
+ (cons #{rib\ 1419}#
(cons 'shift
- #{s\ 3488}#))
- (cons (quote shift) #{s\ 3488}#)))
+ #{s\ 1442}#))
+ (cons (quote shift) #{s\ 1442}#)))
(cons 'hygiene
- (cdr #{p\ 3461}#))))))
- (if (vector? #{x\ 3475}#)
- (let ((#{n\ 3496}#
- (vector-length #{x\ 3475}#)))
- (let ((#{v\ 3498}#
- (make-vector #{n\ 3496}#)))
- (letrec ((#{loop\ 3501}#
- (lambda (#{i\ 3502}#)
- (if (#{fx=\ 2258}#
- #{i\ 3502}#
- #{n\ 3496}#)
+ (cdr #{p\ 1415}#))))))
+ (if (vector? #{x\ 1429}#)
+ (let ((#{n\ 1450}#
+ (vector-length #{x\ 1429}#)))
+ (let ((#{v\ 1452}#
+ (make-vector #{n\ 1450}#)))
+ (letrec ((#{loop\ 1455}#
+ (lambda (#{i\ 1456}#)
+ (if (#{fx=\ 212}#
+ #{i\ 1456}#
+ #{n\ 1450}#)
(begin
(if #f #f)
- #{v\ 3498}#)
+ #{v\ 1452}#)
(begin
(vector-set!
- #{v\ 3498}#
- #{i\ 3502}#
- (#{rebuild-macro-output\ 3474}#
+ #{v\ 1452}#
+ #{i\ 1456}#
+ (#{rebuild-macro-output\ 1428}#
(vector-ref
- #{x\ 3475}#
- #{i\ 3502}#)
- #{m\ 3476}#))
- (#{loop\ 3501}#
- (#{fx+\ 2254}#
- #{i\ 3502}#
+ #{x\ 1429}#
+ #{i\ 1456}#)
+ #{m\ 1430}#))
+ (#{loop\ 1455}#
+ (#{fx+\ 208}#
+ #{i\ 1456}#
1)))))))
- (#{loop\ 3501}# 0))))
- (if (symbol? #{x\ 3475}#)
+ (#{loop\ 1455}# 0))))
+ (if (symbol? #{x\ 1429}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 2424}#
- #{e\ 3462}#
- #{w\ 3464}#
- (#{wrap-subst\ 2362}# #{w\ 3464}#)
- #{mod\ 3466}#)
- #{x\ 3475}#)
- #{x\ 3475}#)))))))
- (#{rebuild-macro-output\ 3474}#
- ((car #{p\ 3461}#)
- (#{wrap\ 2422}#
- #{e\ 3462}#
- (#{anti-mark\ 2394}# #{w\ 3464}#)
- #{mod\ 3466}#))
+ (#{source-wrap\ 378}#
+ #{e\ 1416}#
+ #{w\ 1418}#
+ (#{wrap-subst\ 316}# #{w\ 1418}#)
+ #{mod\ 1420}#)
+ #{x\ 1429}#)
+ #{x\ 1429}#)))))))
+ (#{rebuild-macro-output\ 1428}#
+ ((car #{p\ 1415}#)
+ (#{wrap\ 376}#
+ #{e\ 1416}#
+ (#{anti-mark\ 348}# #{w\ 1418}#)
+ #{mod\ 1420}#))
(gensym "m")))))
- (#{chi-application\ 2442}#
- (lambda (#{x\ 3509}#
- #{e\ 3510}#
- #{r\ 3511}#
- #{w\ 3512}#
- #{s\ 3513}#
- #{mod\ 3514}#)
- ((lambda (#{tmp\ 3521}#)
- ((lambda (#{tmp\ 3522}#)
- (if #{tmp\ 3522}#
- (apply (lambda (#{e0\ 3525}# #{e1\ 3526}#)
- (#{build-application\ 2275}#
- #{s\ 3513}#
- #{x\ 3509}#
- (map (lambda (#{e\ 3527}#)
- (#{chi\ 2438}#
- #{e\ 3527}#
- #{r\ 3511}#
- #{w\ 3512}#
- #{mod\ 3514}#))
- #{e1\ 3526}#)))
- #{tmp\ 3522}#)
+ (#{chi-application\ 396}#
+ (lambda (#{x\ 1463}#
+ #{e\ 1464}#
+ #{r\ 1465}#
+ #{w\ 1466}#
+ #{s\ 1467}#
+ #{mod\ 1468}#)
+ ((lambda (#{tmp\ 1475}#)
+ ((lambda (#{tmp\ 1476}#)
+ (if #{tmp\ 1476}#
+ (apply (lambda (#{e0\ 1479}# #{e1\ 1480}#)
+ (#{build-application\ 229}#
+ #{s\ 1467}#
+ #{x\ 1463}#
+ (map (lambda (#{e\ 1481}#)
+ (#{chi\ 392}#
+ #{e\ 1481}#
+ #{r\ 1465}#
+ #{w\ 1466}#
+ #{mod\ 1468}#))
+ #{e1\ 1480}#)))
+ #{tmp\ 1476}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3521}#)))
+ #{tmp\ 1475}#)))
($sc-dispatch
- #{tmp\ 3521}#
+ #{tmp\ 1475}#
'(any . each-any))))
- #{e\ 3510}#)))
- (#{chi-expr\ 2440}#
- (lambda (#{type\ 3530}#
- #{value\ 3531}#
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
- (if (memv #{type\ 3530}# (quote (lexical)))
- (#{build-lexical-reference\ 2281}#
+ #{e\ 1464}#)))
+ (#{chi-expr\ 394}#
+ (lambda (#{type\ 1484}#
+ #{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (lexical)))
+ (#{build-lexical-reference\ 235}#
'value
- #{s\ 3535}#
- #{e\ 3532}#
- #{value\ 3531}#)
- (if (memv #{type\ 3530}# (quote (core core-form)))
- (#{value\ 3531}#
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
- (if (memv #{type\ 3530}# (quote (module-ref)))
+ #{s\ 1489}#
+ #{e\ 1486}#
+ #{value\ 1485}#)
+ (if (memv #{type\ 1484}# (quote (core core-form)))
+ (#{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 3531}#
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#))
- (lambda (#{e\ 3547}#
- #{r\ 3548}#
- #{w\ 3549}#
- #{s\ 3550}#
- #{mod\ 3551}#)
- (#{chi\ 2438}#
- #{e\ 3547}#
- #{r\ 3548}#
- #{w\ 3549}#
- #{mod\ 3551}#)))
- (if (memv #{type\ 3530}# (quote (lexical-call)))
- (#{chi-application\ 2442}#
- (#{build-lexical-reference\ 2281}#
+ (#{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#))
+ (lambda (#{e\ 1501}#
+ #{r\ 1502}#
+ #{w\ 1503}#
+ #{s\ 1504}#
+ #{mod\ 1505}#)
+ (#{chi\ 392}#
+ #{e\ 1501}#
+ #{r\ 1502}#
+ #{w\ 1503}#
+ #{mod\ 1505}#)))
+ (if (memv #{type\ 1484}# (quote (lexical-call)))
+ (#{chi-application\ 396}#
+ (#{build-lexical-reference\ 235}#
'fun
- (#{source-annotation\ 2332}# (car #{e\ 3532}#))
- (car #{e\ 3532}#)
- #{value\ 3531}#)
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
- (if (memv #{type\ 3530}# (quote (global-call)))
- (#{chi-application\ 2442}#
- (#{build-global-reference\ 2287}#
- (#{source-annotation\ 2332}# (car #{e\ 3532}#))
- (if (#{syntax-object?\ 2317}# #{value\ 3531}#)
- (#{syntax-object-expression\ 2319}#
- #{value\ 3531}#)
- #{value\ 3531}#)
- (if (#{syntax-object?\ 2317}# #{value\ 3531}#)
- (#{syntax-object-module\ 2323}# #{value\ 3531}#)
- #{mod\ 3536}#))
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
- (if (memv #{type\ 3530}# (quote (constant)))
- (#{build-data\ 2303}#
- #{s\ 3535}#
- (#{strip\ 2464}#
- (#{source-wrap\ 2424}#
- #{e\ 3532}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
+ (#{source-annotation\ 286}# (car #{e\ 1486}#))
+ (car #{e\ 1486}#)
+ #{value\ 1485}#)
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (global-call)))
+ (#{chi-application\ 396}#
+ (#{build-global-reference\ 241}#
+ (#{source-annotation\ 286}# (car #{e\ 1486}#))
+ (if (#{syntax-object?\ 271}# #{value\ 1485}#)
+ (#{syntax-object-expression\ 273}#
+ #{value\ 1485}#)
+ #{value\ 1485}#)
+ (if (#{syntax-object?\ 271}# #{value\ 1485}#)
+ (#{syntax-object-module\ 277}# #{value\ 1485}#)
+ #{mod\ 1490}#))
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (constant)))
+ (#{build-data\ 257}#
+ #{s\ 1489}#
+ (#{strip\ 418}#
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
'(())))
- (if (memv #{type\ 3530}# (quote (global)))
- (#{build-global-reference\ 2287}#
- #{s\ 3535}#
- #{value\ 3531}#
- #{mod\ 3536}#)
- (if (memv #{type\ 3530}# (quote (call)))
- (#{chi-application\ 2442}#
- (#{chi\ 2438}#
- (car #{e\ 3532}#)
- #{r\ 3533}#
- #{w\ 3534}#
- #{mod\ 3536}#)
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
- (if (memv #{type\ 3530}# (quote (begin-form)))
- ((lambda (#{tmp\ 3564}#)
- ((lambda (#{tmp\ 3565}#)
- (if #{tmp\ 3565}#
- (apply (lambda (#{_\ 3569}#
- #{e1\ 3570}#
- #{e2\ 3571}#)
- (#{chi-sequence\ 2426}#
- (cons #{e1\ 3570}#
- #{e2\ 3571}#)
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#))
- #{tmp\ 3565}#)
+ (if (memv #{type\ 1484}# (quote (global)))
+ (#{build-global-reference\ 241}#
+ #{s\ 1489}#
+ #{value\ 1485}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (call)))
+ (#{chi-application\ 396}#
+ (#{chi\ 392}#
+ (car #{e\ 1486}#)
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{mod\ 1490}#)
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (if (memv #{type\ 1484}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1518}#)
+ ((lambda (#{tmp\ 1519}#)
+ (if #{tmp\ 1519}#
+ (apply (lambda (#{_\ 1523}#
+ #{e1\ 1524}#
+ #{e2\ 1525}#)
+ (#{chi-sequence\ 380}#
+ (cons #{e1\ 1524}#
+ #{e2\ 1525}#)
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))
+ #{tmp\ 1519}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3564}#)))
+ #{tmp\ 1518}#)))
($sc-dispatch
- #{tmp\ 3564}#
+ #{tmp\ 1518}#
'(any any . each-any))))
- #{e\ 3532}#)
- (if (memv #{type\ 3530}#
+ #{e\ 1486}#)
+ (if (memv #{type\ 1484}#
'(local-syntax-form))
- (#{chi-local-syntax\ 2448}#
- #{value\ 3531}#
- #{e\ 3532}#
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#
- #{chi-sequence\ 2426}#)
- (if (memv #{type\ 3530}#
+ (#{chi-local-syntax\ 402}#
+ #{value\ 1485}#
+ #{e\ 1486}#
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#
+ #{chi-sequence\ 380}#)
+ (if (memv #{type\ 1484}#
'(eval-when-form))
- ((lambda (#{tmp\ 3575}#)
- ((lambda (#{tmp\ 3576}#)
- (if #{tmp\ 3576}#
- (apply (lambda (#{_\ 3581}#
- #{x\ 3582}#
- #{e1\ 3583}#
- #{e2\ 3584}#)
- (let ((#{when-list\ 3586}#
- (#{chi-when-list\ 2432}#
- #{e\ 3532}#
- #{x\ 3582}#
- #{w\ 3534}#)))
+ ((lambda (#{tmp\ 1529}#)
+ ((lambda (#{tmp\ 1530}#)
+ (if #{tmp\ 1530}#
+ (apply (lambda (#{_\ 1535}#
+ #{x\ 1536}#
+ #{e1\ 1537}#
+ #{e2\ 1538}#)
+ (let ((#{when-list\ 1540}#
+ (#{chi-when-list\ 386}#
+ #{e\ 1486}#
+ #{x\ 1536}#
+ #{w\ 1488}#)))
(if (memq 'eval
- #{when-list\ 3586}#)
- (#{chi-sequence\ 2426}#
- (cons #{e1\ 3583}#
- #{e2\ 3584}#)
- #{r\ 3533}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#)
- (#{chi-void\ 2452}#))))
- #{tmp\ 3576}#)
+ #{when-list\ 1540}#)
+ (#{chi-sequence\ 380}#
+ (cons #{e1\ 1537}#
+ #{e2\ 1538}#)
+ #{r\ 1487}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#)
+ (#{chi-void\ 406}#))))
+ #{tmp\ 1530}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3575}#)))
+ #{tmp\ 1529}#)))
($sc-dispatch
- #{tmp\ 3575}#
+ #{tmp\ 1529}#
'(any each-any any . each-any))))
- #{e\ 3532}#)
- (if (memv #{type\ 3530}#
+ #{e\ 1486}#)
+ (if (memv #{type\ 1484}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 3532}#
- (#{wrap\ 2422}#
- #{value\ 3531}#
- #{w\ 3534}#
- #{mod\ 3536}#))
- (if (memv #{type\ 3530}#
+ #{e\ 1486}#
+ (#{wrap\ 376}#
+ #{value\ 1485}#
+ #{w\ 1488}#
+ #{mod\ 1490}#))
+ (if (memv #{type\ 1484}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 2424}#
- #{e\ 3532}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#))
- (if (memv #{type\ 3530}#
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))
+ (if (memv #{type\ 1484}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 2424}#
- #{e\ 3532}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#))
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 2424}#
- #{e\ 3532}#
- #{w\ 3534}#
- #{s\ 3535}#
- #{mod\ 3536}#))))))))))))))))))
- (#{chi\ 2438}#
- (lambda (#{e\ 3593}#
- #{r\ 3594}#
- #{w\ 3595}#
- #{mod\ 3596}#)
+ (#{source-wrap\ 378}#
+ #{e\ 1486}#
+ #{w\ 1488}#
+ #{s\ 1489}#
+ #{mod\ 1490}#))))))))))))))))))
+ (#{chi\ 392}#
+ (lambda (#{e\ 1547}#
+ #{r\ 1548}#
+ #{w\ 1549}#
+ #{mod\ 1550}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2434}#
- #{e\ 3593}#
- #{r\ 3594}#
- #{w\ 3595}#
- (#{source-annotation\ 2332}# #{e\ 3593}#)
+ (#{syntax-type\ 388}#
+ #{e\ 1547}#
+ #{r\ 1548}#
+ #{w\ 1549}#
+ (#{source-annotation\ 286}# #{e\ 1547}#)
#f
- #{mod\ 3596}#
+ #{mod\ 1550}#
#f))
- (lambda (#{type\ 3601}#
- #{value\ 3602}#
- #{e\ 3603}#
- #{w\ 3604}#
- #{s\ 3605}#
- #{mod\ 3606}#)
- (#{chi-expr\ 2440}#
- #{type\ 3601}#
- #{value\ 3602}#
- #{e\ 3603}#
- #{r\ 3594}#
- #{w\ 3604}#
- #{s\ 3605}#
- #{mod\ 3606}#)))))
- (#{chi-top\ 2436}#
- (lambda (#{e\ 3613}#
- #{r\ 3614}#
- #{w\ 3615}#
- #{m\ 3616}#
- #{esew\ 3617}#
- #{mod\ 3618}#)
+ (lambda (#{type\ 1555}#
+ #{value\ 1556}#
+ #{e\ 1557}#
+ #{w\ 1558}#
+ #{s\ 1559}#
+ #{mod\ 1560}#)
+ (#{chi-expr\ 394}#
+ #{type\ 1555}#
+ #{value\ 1556}#
+ #{e\ 1557}#
+ #{r\ 1548}#
+ #{w\ 1558}#
+ #{s\ 1559}#
+ #{mod\ 1560}#)))))
+ (#{chi-top\ 390}#
+ (lambda (#{e\ 1567}#
+ #{r\ 1568}#
+ #{w\ 1569}#
+ #{m\ 1570}#
+ #{esew\ 1571}#
+ #{mod\ 1572}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2434}#
- #{e\ 3613}#
- #{r\ 3614}#
- #{w\ 3615}#
- (#{source-annotation\ 2332}# #{e\ 3613}#)
+ (#{syntax-type\ 388}#
+ #{e\ 1567}#
+ #{r\ 1568}#
+ #{w\ 1569}#
+ (#{source-annotation\ 286}# #{e\ 1567}#)
#f
- #{mod\ 3618}#
+ #{mod\ 1572}#
#f))
- (lambda (#{type\ 3639}#
- #{value\ 3640}#
- #{e\ 3641}#
- #{w\ 3642}#
- #{s\ 3643}#
- #{mod\ 3644}#)
- (if (memv #{type\ 3639}# (quote (begin-form)))
- ((lambda (#{tmp\ 3652}#)
- ((lambda (#{tmp\ 3653}#)
- (if #{tmp\ 3653}#
- (apply (lambda (#{_\ 3655}#) (#{chi-void\ 2452}#))
- #{tmp\ 3653}#)
- ((lambda (#{tmp\ 3656}#)
- (if #{tmp\ 3656}#
- (apply (lambda (#{_\ 3660}#
- #{e1\ 3661}#
- #{e2\ 3662}#)
- (#{chi-top-sequence\ 2428}#
- (cons #{e1\ 3661}# #{e2\ 3662}#)
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
- #{m\ 3616}#
- #{esew\ 3617}#
- #{mod\ 3644}#))
- #{tmp\ 3656}#)
+ (lambda (#{type\ 1593}#
+ #{value\ 1594}#
+ #{e\ 1595}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{mod\ 1598}#)
+ (if (memv #{type\ 1593}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1606}#)
+ ((lambda (#{tmp\ 1607}#)
+ (if #{tmp\ 1607}#
+ (apply (lambda (#{_\ 1609}#) (#{chi-void\ 406}#))
+ #{tmp\ 1607}#)
+ ((lambda (#{tmp\ 1610}#)
+ (if #{tmp\ 1610}#
+ (apply (lambda (#{_\ 1614}#
+ #{e1\ 1615}#
+ #{e2\ 1616}#)
+ (#{chi-top-sequence\ 382}#
+ (cons #{e1\ 1615}# #{e2\ 1616}#)
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{m\ 1570}#
+ #{esew\ 1571}#
+ #{mod\ 1598}#))
+ #{tmp\ 1610}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3652}#)))
+ #{tmp\ 1606}#)))
($sc-dispatch
- #{tmp\ 3652}#
+ #{tmp\ 1606}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 3652}# (quote (any)))))
- #{e\ 3641}#)
- (if (memv #{type\ 3639}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 2448}#
- #{value\ 3640}#
- #{e\ 3641}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
- #{mod\ 3644}#
- (lambda (#{body\ 3665}#
- #{r\ 3666}#
- #{w\ 3667}#
- #{s\ 3668}#
- #{mod\ 3669}#)
- (#{chi-top-sequence\ 2428}#
- #{body\ 3665}#
- #{r\ 3666}#
- #{w\ 3667}#
- #{s\ 3668}#
- #{m\ 3616}#
- #{esew\ 3617}#
- #{mod\ 3669}#)))
- (if (memv #{type\ 3639}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 3676}#)
- ((lambda (#{tmp\ 3677}#)
- (if #{tmp\ 3677}#
- (apply (lambda (#{_\ 3682}#
- #{x\ 3683}#
- #{e1\ 3684}#
- #{e2\ 3685}#)
- (let ((#{when-list\ 3688}#
- (#{chi-when-list\ 2432}#
- #{e\ 3641}#
- #{x\ 3683}#
- #{w\ 3642}#))
- (#{body\ 3689}#
- (cons #{e1\ 3684}#
- #{e2\ 3685}#)))
- (if (eq? #{m\ 3616}# (quote e))
+ ($sc-dispatch #{tmp\ 1606}# (quote (any)))))
+ #{e\ 1595}#)
+ (if (memv #{type\ 1593}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 402}#
+ #{value\ 1594}#
+ #{e\ 1595}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{mod\ 1598}#
+ (lambda (#{body\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{mod\ 1623}#)
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1619}#
+ #{r\ 1620}#
+ #{w\ 1621}#
+ #{s\ 1622}#
+ #{m\ 1570}#
+ #{esew\ 1571}#
+ #{mod\ 1623}#)))
+ (if (memv #{type\ 1593}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1630}#)
+ ((lambda (#{tmp\ 1631}#)
+ (if #{tmp\ 1631}#
+ (apply (lambda (#{_\ 1636}#
+ #{x\ 1637}#
+ #{e1\ 1638}#
+ #{e2\ 1639}#)
+ (let ((#{when-list\ 1642}#
+ (#{chi-when-list\ 386}#
+ #{e\ 1595}#
+ #{x\ 1637}#
+ #{w\ 1596}#))
+ (#{body\ 1643}#
+ (cons #{e1\ 1638}#
+ #{e2\ 1639}#)))
+ (if (eq? #{m\ 1570}# (quote e))
(if (memq 'eval
- #{when-list\ 3688}#)
- (#{chi-top-sequence\ 2428}#
- #{body\ 3689}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
+ #{when-list\ 1642}#)
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
(if (memq 'expand
- #{when-list\ 3688}#)
+ #{when-list\ 1642}#)
'c&e
'e)
'(eval)
- #{mod\ 3644}#)
+ #{mod\ 1598}#)
(begin
(if (memq 'expand
- #{when-list\ 3688}#)
- (#{top-level-eval-hook\ 2262}#
- (#{chi-top-sequence\ 2428}#
- #{body\ 3689}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
+ #{when-list\ 1642}#)
+ (#{top-level-eval-hook\ 216}#
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'e
'(eval)
- #{mod\ 3644}#)
- #{mod\ 3644}#))
- (#{chi-void\ 2452}#)))
+ #{mod\ 1598}#)
+ #{mod\ 1598}#))
+ (#{chi-void\ 406}#)))
(if (memq 'load
- #{when-list\ 3688}#)
- (if (let ((#{t\ 3698}#
+ #{when-list\ 1642}#)
+ (if (let ((#{t\ 1652}#
(memq 'compile
- #{when-list\ 3688}#)))
- (if #{t\ 3698}#
- #{t\ 3698}#
- (let ((#{t\ 3701}#
+ #{when-list\ 1642}#)))
+ (if #{t\ 1652}#
+ #{t\ 1652}#
+ (let ((#{t\ 1655}#
(memq 'expand
- #{when-list\ 3688}#)))
- (if #{t\ 3701}#
- #{t\ 3701}#
- (if (eq? #{m\ 3616}#
+ #{when-list\ 1642}#)))
+ (if #{t\ 1655}#
+ #{t\ 1655}#
+ (if (eq? #{m\ 1570}#
'c&e)
(memq 'eval
- #{when-list\ 3688}#)
+ #{when-list\ 1642}#)
#f)))))
- (#{chi-top-sequence\ 2428}#
- #{body\ 3689}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'c&e
'(compile load)
- #{mod\ 3644}#)
- (if (memq #{m\ 3616}#
+ #{mod\ 1598}#)
+ (if (memq #{m\ 1570}#
'(c c&e))
- (#{chi-top-sequence\ 2428}#
- #{body\ 3689}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'c
'(load)
- #{mod\ 3644}#)
- (#{chi-void\ 2452}#)))
- (if (let ((#{t\ 3709}#
+ #{mod\ 1598}#)
+ (#{chi-void\ 406}#)))
+ (if (let ((#{t\ 1663}#
(memq 'compile
- #{when-list\ 3688}#)))
- (if #{t\ 3709}#
- #{t\ 3709}#
- (let ((#{t\ 3712}#
+ #{when-list\ 1642}#)))
+ (if #{t\ 1663}#
+ #{t\ 1663}#
+ (let ((#{t\ 1666}#
(memq 'expand
- #{when-list\ 3688}#)))
- (if #{t\ 3712}#
- #{t\ 3712}#
- (if (eq? #{m\ 3616}#
+ #{when-list\ 1642}#)))
+ (if #{t\ 1666}#
+ #{t\ 1666}#
+ (if (eq? #{m\ 1570}#
'c&e)
(memq 'eval
- #{when-list\ 3688}#)
+ #{when-list\ 1642}#)
#f)))))
(begin
- (#{top-level-eval-hook\ 2262}#
- (#{chi-top-sequence\ 2428}#
- #{body\ 3689}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
+ (#{top-level-eval-hook\ 216}#
+ (#{chi-top-sequence\ 382}#
+ #{body\ 1643}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
'e
'(eval)
- #{mod\ 3644}#)
- #{mod\ 3644}#)
- (#{chi-void\ 2452}#))
- (#{chi-void\ 2452}#))))))
- #{tmp\ 3677}#)
+ #{mod\ 1598}#)
+ #{mod\ 1598}#)
+ (#{chi-void\ 406}#))
+ (#{chi-void\ 406}#))))))
+ #{tmp\ 1631}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3676}#)))
+ #{tmp\ 1630}#)))
($sc-dispatch
- #{tmp\ 3676}#
+ #{tmp\ 1630}#
'(any each-any any . each-any))))
- #{e\ 3641}#)
- (if (memv #{type\ 3639}#
+ #{e\ 1595}#)
+ (if (memv #{type\ 1593}#
'(define-syntax-form))
- (let ((#{n\ 3720}#
- (#{id-var-name\ 2410}#
- #{value\ 3640}#
- #{w\ 3642}#))
- (#{r\ 3721}#
- (#{macros-only-env\ 2345}# #{r\ 3614}#)))
- (if (memv #{m\ 3616}# (quote (c)))
- (if (memq (quote compile) #{esew\ 3617}#)
- (let ((#{e\ 3724}#
- (#{chi-install-global\ 2430}#
- #{n\ 3720}#
- (#{chi\ 2438}#
- #{e\ 3641}#
- #{r\ 3721}#
- #{w\ 3642}#
- #{mod\ 3644}#))))
+ (let ((#{n\ 1674}#
+ (#{id-var-name\ 364}#
+ #{value\ 1594}#
+ #{w\ 1596}#))
+ (#{r\ 1675}#
+ (#{macros-only-env\ 299}# #{r\ 1568}#)))
+ (if (memv #{m\ 1570}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1571}#)
+ (let ((#{e\ 1678}#
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))
(begin
- (#{top-level-eval-hook\ 2262}#
- #{e\ 3724}#
- #{mod\ 3644}#)
- (if (memq (quote load) #{esew\ 3617}#)
- #{e\ 3724}#
- (#{chi-void\ 2452}#))))
- (if (memq (quote load) #{esew\ 3617}#)
- (#{chi-install-global\ 2430}#
- #{n\ 3720}#
- (#{chi\ 2438}#
- #{e\ 3641}#
- #{r\ 3721}#
- #{w\ 3642}#
- #{mod\ 3644}#))
- (#{chi-void\ 2452}#)))
- (if (memv #{m\ 3616}# (quote (c&e)))
- (let ((#{e\ 3727}#
- (#{chi-install-global\ 2430}#
- #{n\ 3720}#
- (#{chi\ 2438}#
- #{e\ 3641}#
- #{r\ 3721}#
- #{w\ 3642}#
- #{mod\ 3644}#))))
+ (#{top-level-eval-hook\ 216}#
+ #{e\ 1678}#
+ #{mod\ 1598}#)
+ (if (memq (quote load) #{esew\ 1571}#)
+ #{e\ 1678}#
+ (#{chi-void\ 406}#))))
+ (if (memq (quote load) #{esew\ 1571}#)
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))
+ (#{chi-void\ 406}#)))
+ (if (memv #{m\ 1570}# (quote (c&e)))
+ (let ((#{e\ 1681}#
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))
(begin
- (#{top-level-eval-hook\ 2262}#
- #{e\ 3727}#
- #{mod\ 3644}#)
- #{e\ 3727}#))
+ (#{top-level-eval-hook\ 216}#
+ #{e\ 1681}#
+ #{mod\ 1598}#)
+ #{e\ 1681}#))
(begin
- (if (memq (quote eval) #{esew\ 3617}#)
- (#{top-level-eval-hook\ 2262}#
- (#{chi-install-global\ 2430}#
- #{n\ 3720}#
- (#{chi\ 2438}#
- #{e\ 3641}#
- #{r\ 3721}#
- #{w\ 3642}#
- #{mod\ 3644}#))
- #{mod\ 3644}#))
- (#{chi-void\ 2452}#)))))
- (if (memv #{type\ 3639}# (quote (define-form)))
- (let ((#{n\ 3732}#
- (#{id-var-name\ 2410}#
- #{value\ 3640}#
- #{w\ 3642}#)))
- (let ((#{type\ 3734}#
- (#{binding-type\ 2336}#
- (#{lookup\ 2347}#
- #{n\ 3732}#
- #{r\ 3614}#
- #{mod\ 3644}#))))
- (if (memv #{type\ 3734}#
+ (if (memq (quote eval) #{esew\ 1571}#)
+ (#{top-level-eval-hook\ 216}#
+ (#{chi-install-global\ 384}#
+ #{n\ 1674}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1675}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))
+ #{mod\ 1598}#))
+ (#{chi-void\ 406}#)))))
+ (if (memv #{type\ 1593}# (quote (define-form)))
+ (let ((#{n\ 1686}#
+ (#{id-var-name\ 364}#
+ #{value\ 1594}#
+ #{w\ 1596}#)))
+ (let ((#{type\ 1688}#
+ (#{binding-type\ 290}#
+ (#{lookup\ 301}#
+ #{n\ 1686}#
+ #{r\ 1568}#
+ #{mod\ 1598}#))))
+ (if (memv #{type\ 1688}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 3616}# (quote (c c&e)))
+ (if (if (memq #{m\ 1570}# (quote (c c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 3732}#))
+ #{n\ 1686}#))
(current-module)
#f)
#f)
- (let ((#{old\ 3740}#
+ (let ((#{old\ 1694}#
(module-variable
(current-module)
- #{n\ 3732}#)))
+ #{n\ 1686}#)))
(module-define!
(current-module)
- #{n\ 3732}#
- (if (variable? #{old\ 3740}#)
- (variable-ref #{old\ 3740}#)
+ #{n\ 1686}#
+ (if (variable? #{old\ 1694}#)
+ (variable-ref #{old\ 1694}#)
#f))))
- (let ((#{x\ 3743}#
- (#{build-global-definition\ 2293}#
- #{s\ 3643}#
- #{n\ 3732}#
- (#{chi\ 2438}#
- #{e\ 3641}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{mod\ 3644}#))))
+ (let ((#{x\ 1697}#
+ (#{build-global-definition\ 247}#
+ #{s\ 1597}#
+ #{n\ 1686}#
+ (#{chi\ 392}#
+ #{e\ 1595}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))
(begin
- (if (eq? #{m\ 3616}# (quote c&e))
- (#{top-level-eval-hook\ 2262}#
- #{x\ 3743}#
- #{mod\ 3644}#))
- #{x\ 3743}#)))
- (if (memv #{type\ 3734}#
+ (if (eq? #{m\ 1570}# (quote c&e))
+ (#{top-level-eval-hook\ 216}#
+ #{x\ 1697}#
+ #{mod\ 1598}#))
+ #{x\ 1697}#)))
+ (if (memv #{type\ 1688}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 3641}#
- (#{wrap\ 2422}#
- #{value\ 3640}#
- #{w\ 3642}#
- #{mod\ 3644}#))
+ #{e\ 1595}#
+ (#{wrap\ 376}#
+ #{value\ 1594}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 3641}#
- (#{wrap\ 2422}#
- #{value\ 3640}#
- #{w\ 3642}#
- #{mod\ 3644}#))))))
- (let ((#{x\ 3749}#
- (#{chi-expr\ 2440}#
- #{type\ 3639}#
- #{value\ 3640}#
- #{e\ 3641}#
- #{r\ 3614}#
- #{w\ 3642}#
- #{s\ 3643}#
- #{mod\ 3644}#)))
+ #{e\ 1595}#
+ (#{wrap\ 376}#
+ #{value\ 1594}#
+ #{w\ 1596}#
+ #{mod\ 1598}#))))))
+ (let ((#{x\ 1703}#
+ (#{chi-expr\ 394}#
+ #{type\ 1593}#
+ #{value\ 1594}#
+ #{e\ 1595}#
+ #{r\ 1568}#
+ #{w\ 1596}#
+ #{s\ 1597}#
+ #{mod\ 1598}#)))
(begin
- (if (eq? #{m\ 3616}# (quote c&e))
- (#{top-level-eval-hook\ 2262}#
- #{x\ 3749}#
- #{mod\ 3644}#))
- #{x\ 3749}#)))))))))))
- (#{syntax-type\ 2434}#
- (lambda (#{e\ 3750}#
- #{r\ 3751}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{rib\ 3754}#
- #{mod\ 3755}#
- #{for-car?\ 3756}#)
- (if (symbol? #{e\ 3750}#)
- (let ((#{n\ 3768}#
- (#{id-var-name\ 2410}# #{e\ 3750}# #{w\ 3752}#)))
- (let ((#{b\ 3770}#
- (#{lookup\ 2347}#
- #{n\ 3768}#
- #{r\ 3751}#
- #{mod\ 3755}#)))
- (let ((#{type\ 3772}#
- (#{binding-type\ 2336}# #{b\ 3770}#)))
- (if (memv #{type\ 3772}# (quote (lexical)))
+ (if (eq? #{m\ 1570}# (quote c&e))
+ (#{top-level-eval-hook\ 216}#
+ #{x\ 1703}#
+ #{mod\ 1598}#))
+ #{x\ 1703}#)))))))))))
+ (#{syntax-type\ 388}#
+ (lambda (#{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
+ #{for-car?\ 1710}#)
+ (if (symbol? #{e\ 1704}#)
+ (let ((#{n\ 1722}#
+ (#{id-var-name\ 364}# #{e\ 1704}# #{w\ 1706}#)))
+ (let ((#{b\ 1724}#
+ (#{lookup\ 301}#
+ #{n\ 1722}#
+ #{r\ 1705}#
+ #{mod\ 1709}#)))
+ (let ((#{type\ 1726}#
+ (#{binding-type\ 290}# #{b\ 1724}#)))
+ (if (memv #{type\ 1726}# (quote (lexical)))
(values
- #{type\ 3772}#
- (#{binding-value\ 2338}# #{b\ 3770}#)
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{type\ 3772}# (quote (global)))
+ #{type\ 1726}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{type\ 1726}# (quote (global)))
(values
- #{type\ 3772}#
- #{n\ 3768}#
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{type\ 3772}# (quote (macro)))
- (if #{for-car?\ 3756}#
+ #{type\ 1726}#
+ #{n\ 1722}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{type\ 1726}# (quote (macro)))
+ (if #{for-car?\ 1710}#
(values
- #{type\ 3772}#
- (#{binding-value\ 2338}# #{b\ 3770}#)
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (#{syntax-type\ 2434}#
- (#{chi-macro\ 2444}#
- (#{binding-value\ 2338}# #{b\ 3770}#)
- #{e\ 3750}#
- #{r\ 3751}#
- #{w\ 3752}#
- #{rib\ 3754}#
- #{mod\ 3755}#)
- #{r\ 3751}#
+ #{type\ 1726}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (#{syntax-type\ 388}#
+ (#{chi-macro\ 398}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#)
+ #{r\ 1705}#
'(())
- #{s\ 3753}#
- #{rib\ 3754}#
- #{mod\ 3755}#
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
#f))
(values
- #{type\ 3772}#
- (#{binding-value\ 2338}# #{b\ 3770}#)
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)))))))
- (if (pair? #{e\ 3750}#)
- (let ((#{first\ 3781}# (car #{e\ 3750}#)))
+ #{type\ 1726}#
+ (#{binding-value\ 292}# #{b\ 1724}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)))))))
+ (if (pair? #{e\ 1704}#)
+ (let ((#{first\ 1735}# (car #{e\ 1704}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 2434}#
- #{first\ 3781}#
- #{r\ 3751}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{rib\ 3754}#
- #{mod\ 3755}#
+ (#{syntax-type\ 388}#
+ #{first\ 1735}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
#t))
- (lambda (#{ftype\ 3782}#
- #{fval\ 3783}#
- #{fe\ 3784}#
- #{fw\ 3785}#
- #{fs\ 3786}#
- #{fmod\ 3787}#)
- (if (memv #{ftype\ 3782}# (quote (lexical)))
+ (lambda (#{ftype\ 1736}#
+ #{fval\ 1737}#
+ #{fe\ 1738}#
+ #{fw\ 1739}#
+ #{fs\ 1740}#
+ #{fmod\ 1741}#)
+ (if (memv #{ftype\ 1736}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 3783}#
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{ftype\ 3782}# (quote (global)))
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 2315}#
- #{fval\ 3783}#
- #{w\ 3752}#
- #{fmod\ 3787}#)
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{ftype\ 3782}# (quote (macro)))
- (#{syntax-type\ 2434}#
- (#{chi-macro\ 2444}#
- #{fval\ 3783}#
- #{e\ 3750}#
- #{r\ 3751}#
- #{w\ 3752}#
- #{rib\ 3754}#
- #{mod\ 3755}#)
- #{r\ 3751}#
+ (#{make-syntax-object\ 269}#
+ #{fval\ 1737}#
+ #{w\ 1706}#
+ #{fmod\ 1741}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}# (quote (macro)))
+ (#{syntax-type\ 388}#
+ (#{chi-macro\ 398}#
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#)
+ #{r\ 1705}#
'(())
- #{s\ 3753}#
- #{rib\ 3754}#
- #{mod\ 3755}#
- #{for-car?\ 3756}#)
- (if (memv #{ftype\ 3782}# (quote (module-ref)))
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ #{mod\ 1709}#
+ #{for-car?\ 1710}#)
+ (if (memv #{ftype\ 1736}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 3783}#
- #{e\ 3750}#
- #{r\ 3751}#
- #{w\ 3752}#))
- (lambda (#{e\ 3799}#
- #{r\ 3800}#
- #{w\ 3801}#
- #{s\ 3802}#
- #{mod\ 3803}#)
- (#{syntax-type\ 2434}#
- #{e\ 3799}#
- #{r\ 3800}#
- #{w\ 3801}#
- #{s\ 3802}#
- #{rib\ 3754}#
- #{mod\ 3803}#
- #{for-car?\ 3756}#)))
- (if (memv #{ftype\ 3782}# (quote (core)))
+ (#{fval\ 1737}#
+ #{e\ 1704}#
+ #{r\ 1705}#
+ #{w\ 1706}#))
+ (lambda (#{e\ 1753}#
+ #{r\ 1754}#
+ #{w\ 1755}#
+ #{s\ 1756}#
+ #{mod\ 1757}#)
+ (#{syntax-type\ 388}#
+ #{e\ 1753}#
+ #{r\ 1754}#
+ #{w\ 1755}#
+ #{s\ 1756}#
+ #{rib\ 1708}#
+ #{mod\ 1757}#
+ #{for-car?\ 1710}#)))
+ (if (memv #{ftype\ 1736}# (quote (core)))
(values
'core-form
- #{fval\ 3783}#
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{ftype\ 3782}#
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 3783}#
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{ftype\ 3782}# (quote (begin)))
+ #{fval\ 1737}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{ftype\ 3782}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
- (if (memv #{ftype\ 3782}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
+ (if (memv #{ftype\ 1736}#
'(define))
- ((lambda (#{tmp\ 3814}#)
- ((lambda (#{tmp\ 3815}#)
- (if (if #{tmp\ 3815}#
- (apply (lambda (#{_\ 3819}#
- #{name\ 3820}#
- #{val\ 3821}#)
- (#{id?\ 2353}#
- #{name\ 3820}#))
- #{tmp\ 3815}#)
+ ((lambda (#{tmp\ 1768}#)
+ ((lambda (#{tmp\ 1769}#)
+ (if (if #{tmp\ 1769}#
+ (apply (lambda (#{_\ 1773}#
+ #{name\ 1774}#
+ #{val\ 1775}#)
+ (#{id?\ 307}#
+ #{name\ 1774}#))
+ #{tmp\ 1769}#)
#f)
- (apply (lambda (#{_\ 3825}#
- #{name\ 3826}#
- #{val\ 3827}#)
+ (apply (lambda (#{_\ 1779}#
+ #{name\ 1780}#
+ #{val\ 1781}#)
(values
'define-form
- #{name\ 3826}#
- #{val\ 3827}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#))
- #{tmp\ 3815}#)
- ((lambda (#{tmp\ 3828}#)
- (if (if #{tmp\ 3828}#
- (apply (lambda (#{_\ 3834}#
- #{name\ 3835}#
- #{args\ 3836}#
- #{e1\ 3837}#
- #{e2\ 3838}#)
- (if (#{id?\ 2353}#
- #{name\ 3835}#)
- (#{valid-bound-ids?\ 2416}#
- (#{lambda-var-list\ 2468}#
- #{args\ 3836}#))
+ #{name\ 1780}#
+ #{val\ 1781}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#))
+ #{tmp\ 1769}#)
+ ((lambda (#{tmp\ 1782}#)
+ (if (if #{tmp\ 1782}#
+ (apply (lambda (#{_\ 1788}#
+ #{name\ 1789}#
+ #{args\ 1790}#
+ #{e1\ 1791}#
+ #{e2\ 1792}#)
+ (if (#{id?\ 307}#
+ #{name\ 1789}#)
+ (#{valid-bound-ids?\ 370}#
+ (#{lambda-var-list\ 422}#
+ #{args\ 1790}#))
#f))
- #{tmp\ 3828}#)
+ #{tmp\ 1782}#)
#f)
- (apply (lambda (#{_\ 3846}#
- #{name\ 3847}#
- #{args\ 3848}#
- #{e1\ 3849}#
- #{e2\ 3850}#)
+ (apply (lambda (#{_\ 1800}#
+ #{name\ 1801}#
+ #{args\ 1802}#
+ #{e1\ 1803}#
+ #{e2\ 1804}#)
(values
'define-form
- (#{wrap\ 2422}#
- #{name\ 3847}#
- #{w\ 3752}#
- #{mod\ 3755}#)
- (#{decorate-source\ 2271}#
+ (#{wrap\ 376}#
+ #{name\ 1801}#
+ #{w\ 1706}#
+ #{mod\ 1709}#)
+ (#{decorate-source\ 225}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i3841"
- "i3842"
- "i3843"
- "i3844"
- "i3845"))
+ #("i1795"
+ "i1796"
+ "i1797"
+ "i1798"
+ "i1799"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3788"
- "i3789"
- "i3790"
- "i3791"
- "i3792"
- "i3793"))
+ #("i1742"
+ "i1743"
+ "i1744"
+ "i1745"
+ "i1746"
+ "i1747"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i3780"))
+ #("i1734"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3757"
- "i3758"
- "i3759"
- "i3760"
- "i3761"
- "i3762"
- "i3763"))
+ #("i1711"
+ "i1712"
+ "i1713"
+ "i1714"
+ "i1715"
+ "i1716"
+ "i1717"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene
guile))
- (#{wrap\ 2422}#
- (cons #{args\ 3848}#
- (cons #{e1\ 3849}#
- #{e2\ 3850}#))
- #{w\ 3752}#
- #{mod\ 3755}#))
- #{s\ 3753}#)
+ (#{wrap\ 376}#
+ (cons #{args\ 1802}#
+ (cons #{e1\ 1803}#
+ #{e2\ 1804}#))
+ #{w\ 1706}#
+ #{mod\ 1709}#))
+ #{s\ 1707}#)
'(())
- #{s\ 3753}#
- #{mod\ 3755}#))
- #{tmp\ 3828}#)
- ((lambda (#{tmp\ 3853}#)
- (if (if #{tmp\ 3853}#
- (apply (lambda (#{_\ 3856}#
- #{name\ 3857}#)
- (#{id?\ 2353}#
- #{name\ 3857}#))
- #{tmp\ 3853}#)
+ #{s\ 1707}#
+ #{mod\ 1709}#))
+ #{tmp\ 1782}#)
+ ((lambda (#{tmp\ 1807}#)
+ (if (if #{tmp\ 1807}#
+ (apply (lambda (#{_\ 1810}#
+ #{name\ 1811}#)
+ (#{id?\ 307}#
+ #{name\ 1811}#))
+ #{tmp\ 1807}#)
#f)
- (apply (lambda (#{_\ 3860}#
- #{name\ 3861}#)
+ (apply (lambda (#{_\ 1814}#
+ #{name\ 1815}#)
(values
'define-form
- (#{wrap\ 2422}#
- #{name\ 3861}#
- #{w\ 3752}#
- #{mod\ 3755}#)
+ (#{wrap\ 376}#
+ #{name\ 1815}#
+ #{w\ 1706}#
+ #{mod\ 1709}#)
'(#(syntax-object
if
((top)
name)
#((top)
(top))
- #("i3858"
- "i3859"))
+ #("i1812"
+ "i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3788"
- "i3789"
- "i3790"
- "i3791"
- "i3792"
- "i3793"))
+ #("i1742"
+ "i1743"
+ "i1744"
+ "i1745"
+ "i1746"
+ "i1747"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i3780"))
+ #("i1734"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3757"
- "i3758"
- "i3759"
- "i3760"
- "i3761"
- "i3762"
- "i3763"))
+ #("i1711"
+ "i1712"
+ "i1713"
+ "i1714"
+ "i1715"
+ "i1716"
+ "i1717"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i3858"
- "i3859"))
+ #("i1812"
+ "i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3788"
- "i3789"
- "i3790"
- "i3791"
- "i3792"
- "i3793"))
+ #("i1742"
+ "i1743"
+ "i1744"
+ "i1745"
+ "i1746"
+ "i1747"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i3780"))
+ #("i1734"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3757"
- "i3758"
- "i3759"
- "i3760"
- "i3761"
- "i3762"
- "i3763"))
+ #("i1711"
+ "i1712"
+ "i1713"
+ "i1714"
+ "i1715"
+ "i1716"
+ "i1717"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i3858"
- "i3859"))
+ #("i1812"
+ "i1813"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3788"
- "i3789"
- "i3790"
- "i3791"
- "i3792"
- "i3793"))
+ #("i1742"
+ "i1743"
+ "i1744"
+ "i1745"
+ "i1746"
+ "i1747"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i3780"))
+ #("i1734"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i3757"
- "i3758"
- "i3759"
- "i3760"
- "i3761"
- "i3762"
- "i3763"))
+ #("i1711"
+ "i1712"
+ "i1713"
+ "i1714"
+ "i1715"
+ "i1716"
+ "i1717"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
((top)
(top)
(top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene
guile)))
'(())
- #{s\ 3753}#
- #{mod\ 3755}#))
- #{tmp\ 3853}#)
+ #{s\ 1707}#
+ #{mod\ 1709}#))
+ #{tmp\ 1807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3814}#)))
+ #{tmp\ 1768}#)))
($sc-dispatch
- #{tmp\ 3814}#
+ #{tmp\ 1768}#
'(any any)))))
($sc-dispatch
- #{tmp\ 3814}#
+ #{tmp\ 1768}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 3814}#
+ #{tmp\ 1768}#
'(any any any))))
- #{e\ 3750}#)
- (if (memv #{ftype\ 3782}#
+ #{e\ 1704}#)
+ (if (memv #{ftype\ 1736}#
'(define-syntax))
- ((lambda (#{tmp\ 3864}#)
- ((lambda (#{tmp\ 3865}#)
- (if (if #{tmp\ 3865}#
- (apply (lambda (#{_\ 3869}#
- #{name\ 3870}#
- #{val\ 3871}#)
- (#{id?\ 2353}#
- #{name\ 3870}#))
- #{tmp\ 3865}#)
+ ((lambda (#{tmp\ 1818}#)
+ ((lambda (#{tmp\ 1819}#)
+ (if (if #{tmp\ 1819}#
+ (apply (lambda (#{_\ 1823}#
+ #{name\ 1824}#
+ #{val\ 1825}#)
+ (#{id?\ 307}#
+ #{name\ 1824}#))
+ #{tmp\ 1819}#)
#f)
- (apply (lambda (#{_\ 3875}#
- #{name\ 3876}#
- #{val\ 3877}#)
+ (apply (lambda (#{_\ 1829}#
+ #{name\ 1830}#
+ #{val\ 1831}#)
(values
'define-syntax-form
- #{name\ 3876}#
- #{val\ 3877}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#))
- #{tmp\ 3865}#)
+ #{name\ 1830}#
+ #{val\ 1831}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#))
+ #{tmp\ 1819}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3864}#)))
+ #{tmp\ 1818}#)))
($sc-dispatch
- #{tmp\ 3864}#
+ #{tmp\ 1818}#
'(any any any))))
- #{e\ 3750}#)
+ #{e\ 1704}#)
(values
'call
#f
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#))))))))))))))
- (if (#{syntax-object?\ 2317}# #{e\ 3750}#)
- (#{syntax-type\ 2434}#
- (#{syntax-object-expression\ 2319}# #{e\ 3750}#)
- #{r\ 3751}#
- (#{join-wraps\ 2404}#
- #{w\ 3752}#
- (#{syntax-object-wrap\ 2321}# #{e\ 3750}#))
- #{s\ 3753}#
- #{rib\ 3754}#
- (let ((#{t\ 3883}#
- (#{syntax-object-module\ 2323}# #{e\ 3750}#)))
- (if #{t\ 3883}# #{t\ 3883}# #{mod\ 3755}#))
- #{for-car?\ 3756}#)
- (if (self-evaluating? #{e\ 3750}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#))))))))))))))
+ (if (#{syntax-object?\ 271}# #{e\ 1704}#)
+ (#{syntax-type\ 388}#
+ (#{syntax-object-expression\ 273}# #{e\ 1704}#)
+ #{r\ 1705}#
+ (#{join-wraps\ 358}#
+ #{w\ 1706}#
+ (#{syntax-object-wrap\ 275}# #{e\ 1704}#))
+ #{s\ 1707}#
+ #{rib\ 1708}#
+ (let ((#{t\ 1837}#
+ (#{syntax-object-module\ 277}# #{e\ 1704}#)))
+ (if #{t\ 1837}# #{t\ 1837}# #{mod\ 1709}#))
+ #{for-car?\ 1710}#)
+ (if (self-evaluating? #{e\ 1704}#)
(values
'constant
#f
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)
(values
'other
#f
- #{e\ 3750}#
- #{w\ 3752}#
- #{s\ 3753}#
- #{mod\ 3755}#)))))))
- (#{chi-when-list\ 2432}#
- (lambda (#{e\ 3888}# #{when-list\ 3889}# #{w\ 3890}#)
- (letrec ((#{f\ 3897}#
- (lambda (#{when-list\ 3898}# #{situations\ 3899}#)
- (if (null? #{when-list\ 3898}#)
- #{situations\ 3899}#
- (#{f\ 3897}#
- (cdr #{when-list\ 3898}#)
- (cons (let ((#{x\ 3901}#
- (car #{when-list\ 3898}#)))
- (if (#{free-id=?\ 2412}#
- #{x\ 3901}#
+ #{e\ 1704}#
+ #{w\ 1706}#
+ #{s\ 1707}#
+ #{mod\ 1709}#)))))))
+ (#{chi-when-list\ 386}#
+ (lambda (#{e\ 1842}# #{when-list\ 1843}# #{w\ 1844}#)
+ (letrec ((#{f\ 1851}#
+ (lambda (#{when-list\ 1852}# #{situations\ 1853}#)
+ (if (null? #{when-list\ 1852}#)
+ #{situations\ 1853}#
+ (#{f\ 1851}#
+ (cdr #{when-list\ 1852}#)
+ (cons (let ((#{x\ 1855}#
+ (car #{when-list\ 1852}#)))
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
compile
((top)
#(ribcage
#(x)
#((top))
- #("i3900"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3894" "i3895" "i3896"))
+ #("i1848" "i1849" "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3891" "i3892" "i3893"))
+ #("i1845" "i1846" "i1847"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066" "i2065" "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 2412}#
- #{x\ 3901}#
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
load
((top)
#(ribcage
#(x)
#((top))
- #("i3900"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3894"
- "i3895"
- "i3896"))
+ #("i1848"
+ "i1849"
+ "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3891"
- "i3892"
- "i3893"))
+ #("i1845"
+ "i1846"
+ "i1847"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 2412}#
- #{x\ 3901}#
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
eval
((top)
#(ribcage
#(x)
#((top))
- #("i3900"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i3894"
- "i3895"
- "i3896"))
+ #("i1848"
+ "i1849"
+ "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3891"
- "i3892"
- "i3893"))
+ #("i1845"
+ "i1846"
+ "i1847"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 2412}#
- #{x\ 3901}#
+ (if (#{free-id=?\ 366}#
+ #{x\ 1855}#
'#(syntax-object
expand
((top)
#(ribcage
#(x)
#((top))
- #("i3900"))
+ #("i1854"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i3894"
- "i3895"
- "i3896"))
+ #("i1848"
+ "i1849"
+ "i1850"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3891"
- "i3892"
- "i3893"))
+ #("i1845"
+ "i1846"
+ "i1847"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 3888}#
- (#{wrap\ 2422}#
- #{x\ 3901}#
- #{w\ 3890}#
+ #{e\ 1842}#
+ (#{wrap\ 376}#
+ #{x\ 1855}#
+ #{w\ 1844}#
#f)))))))
- #{situations\ 3899}#))))))
- (#{f\ 3897}# #{when-list\ 3889}# (quote ())))))
- (#{chi-install-global\ 2430}#
- (lambda (#{name\ 3911}# #{e\ 3912}#)
- (#{build-global-definition\ 2293}#
+ #{situations\ 1853}#))))))
+ (#{f\ 1851}# #{when-list\ 1843}# (quote ())))))
+ (#{chi-install-global\ 384}#
+ (lambda (#{name\ 1865}# #{e\ 1866}#)
+ (#{build-global-definition\ 247}#
#f
- #{name\ 3911}#
- (#{build-application\ 2275}#
+ #{name\ 1865}#
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}#
+ (#{build-primref\ 255}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 2303}# #f #{name\ 3911}#)
- (#{build-data\ 2303}# #f (quote macro))
- (#{build-application\ 2275}#
+ (list (#{build-data\ 257}# #f #{name\ 1865}#)
+ (#{build-data\ 257}# #f (quote macro))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}# #f (quote cons))
- (list #{e\ 3912}#
- (#{build-application\ 2275}#
+ (#{build-primref\ 255}# #f (quote cons))
+ (list #{e\ 1866}#
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}#
+ (#{build-primref\ 255}#
#f
'module-name)
- (list (#{build-application\ 2275}#
+ (list (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}#
+ (#{build-primref\ 255}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 2428}#
- (lambda (#{body\ 3926}#
- #{r\ 3927}#
- #{w\ 3928}#
- #{s\ 3929}#
- #{m\ 3930}#
- #{esew\ 3931}#
- #{mod\ 3932}#)
- (#{build-sequence\ 2305}#
- #{s\ 3929}#
- (letrec ((#{dobody\ 3948}#
- (lambda (#{body\ 3949}#
- #{r\ 3950}#
- #{w\ 3951}#
- #{m\ 3952}#
- #{esew\ 3953}#
- #{mod\ 3954}#
- #{out\ 3955}#)
- (if (null? #{body\ 3949}#)
- (reverse #{out\ 3955}#)
- (#{dobody\ 3948}#
- (cdr #{body\ 3949}#)
- #{r\ 3950}#
- #{w\ 3951}#
- #{m\ 3952}#
- #{esew\ 3953}#
- #{mod\ 3954}#
- (cons (#{chi-top\ 2436}#
- (car #{body\ 3949}#)
- #{r\ 3950}#
- #{w\ 3951}#
- #{m\ 3952}#
- #{esew\ 3953}#
- #{mod\ 3954}#)
- #{out\ 3955}#))))))
- (#{dobody\ 3948}#
- #{body\ 3926}#
- #{r\ 3927}#
- #{w\ 3928}#
- #{m\ 3930}#
- #{esew\ 3931}#
- #{mod\ 3932}#
+ (#{chi-top-sequence\ 382}#
+ (lambda (#{body\ 1880}#
+ #{r\ 1881}#
+ #{w\ 1882}#
+ #{s\ 1883}#
+ #{m\ 1884}#
+ #{esew\ 1885}#
+ #{mod\ 1886}#)
+ (#{build-sequence\ 259}#
+ #{s\ 1883}#
+ (letrec ((#{dobody\ 1902}#
+ (lambda (#{body\ 1903}#
+ #{r\ 1904}#
+ #{w\ 1905}#
+ #{m\ 1906}#
+ #{esew\ 1907}#
+ #{mod\ 1908}#
+ #{out\ 1909}#)
+ (if (null? #{body\ 1903}#)
+ (reverse #{out\ 1909}#)
+ (#{dobody\ 1902}#
+ (cdr #{body\ 1903}#)
+ #{r\ 1904}#
+ #{w\ 1905}#
+ #{m\ 1906}#
+ #{esew\ 1907}#
+ #{mod\ 1908}#
+ (cons (#{chi-top\ 390}#
+ (car #{body\ 1903}#)
+ #{r\ 1904}#
+ #{w\ 1905}#
+ #{m\ 1906}#
+ #{esew\ 1907}#
+ #{mod\ 1908}#)
+ #{out\ 1909}#))))))
+ (#{dobody\ 1902}#
+ #{body\ 1880}#
+ #{r\ 1881}#
+ #{w\ 1882}#
+ #{m\ 1884}#
+ #{esew\ 1885}#
+ #{mod\ 1886}#
'())))))
- (#{chi-sequence\ 2426}#
- (lambda (#{body\ 3956}#
- #{r\ 3957}#
- #{w\ 3958}#
- #{s\ 3959}#
- #{mod\ 3960}#)
- (#{build-sequence\ 2305}#
- #{s\ 3959}#
- (letrec ((#{dobody\ 3971}#
- (lambda (#{body\ 3972}#
- #{r\ 3973}#
- #{w\ 3974}#
- #{mod\ 3975}#)
- (if (null? #{body\ 3972}#)
+ (#{chi-sequence\ 380}#
+ (lambda (#{body\ 1910}#
+ #{r\ 1911}#
+ #{w\ 1912}#
+ #{s\ 1913}#
+ #{mod\ 1914}#)
+ (#{build-sequence\ 259}#
+ #{s\ 1913}#
+ (letrec ((#{dobody\ 1925}#
+ (lambda (#{body\ 1926}#
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{mod\ 1929}#)
+ (if (null? #{body\ 1926}#)
'()
- (let ((#{first\ 3977}#
- (#{chi\ 2438}#
- (car #{body\ 3972}#)
- #{r\ 3973}#
- #{w\ 3974}#
- #{mod\ 3975}#)))
- (cons #{first\ 3977}#
- (#{dobody\ 3971}#
- (cdr #{body\ 3972}#)
- #{r\ 3973}#
- #{w\ 3974}#
- #{mod\ 3975}#)))))))
- (#{dobody\ 3971}#
- #{body\ 3956}#
- #{r\ 3957}#
- #{w\ 3958}#
- #{mod\ 3960}#)))))
- (#{source-wrap\ 2424}#
- (lambda (#{x\ 3978}#
- #{w\ 3979}#
- #{s\ 3980}#
- #{defmod\ 3981}#)
- (#{wrap\ 2422}#
- (#{decorate-source\ 2271}#
- #{x\ 3978}#
- #{s\ 3980}#)
- #{w\ 3979}#
- #{defmod\ 3981}#)))
- (#{wrap\ 2422}#
- (lambda (#{x\ 3986}# #{w\ 3987}# #{defmod\ 3988}#)
- (if (if (null? (#{wrap-marks\ 2360}# #{w\ 3987}#))
- (null? (#{wrap-subst\ 2362}# #{w\ 3987}#))
+ (let ((#{first\ 1931}#
+ (#{chi\ 392}#
+ (car #{body\ 1926}#)
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{mod\ 1929}#)))
+ (cons #{first\ 1931}#
+ (#{dobody\ 1925}#
+ (cdr #{body\ 1926}#)
+ #{r\ 1927}#
+ #{w\ 1928}#
+ #{mod\ 1929}#)))))))
+ (#{dobody\ 1925}#
+ #{body\ 1910}#
+ #{r\ 1911}#
+ #{w\ 1912}#
+ #{mod\ 1914}#)))))
+ (#{source-wrap\ 378}#
+ (lambda (#{x\ 1932}#
+ #{w\ 1933}#
+ #{s\ 1934}#
+ #{defmod\ 1935}#)
+ (#{wrap\ 376}#
+ (#{decorate-source\ 225}#
+ #{x\ 1932}#
+ #{s\ 1934}#)
+ #{w\ 1933}#
+ #{defmod\ 1935}#)))
+ (#{wrap\ 376}#
+ (lambda (#{x\ 1940}# #{w\ 1941}# #{defmod\ 1942}#)
+ (if (if (null? (#{wrap-marks\ 314}# #{w\ 1941}#))
+ (null? (#{wrap-subst\ 316}# #{w\ 1941}#))
#f)
- #{x\ 3986}#
- (if (#{syntax-object?\ 2317}# #{x\ 3986}#)
- (#{make-syntax-object\ 2315}#
- (#{syntax-object-expression\ 2319}# #{x\ 3986}#)
- (#{join-wraps\ 2404}#
- #{w\ 3987}#
- (#{syntax-object-wrap\ 2321}# #{x\ 3986}#))
- (#{syntax-object-module\ 2323}# #{x\ 3986}#))
- (if (null? #{x\ 3986}#)
- #{x\ 3986}#
- (#{make-syntax-object\ 2315}#
- #{x\ 3986}#
- #{w\ 3987}#
- #{defmod\ 3988}#))))))
- (#{bound-id-member?\ 2420}#
- (lambda (#{x\ 4001}# #{list\ 4002}#)
- (if (not (null? #{list\ 4002}#))
- (let ((#{t\ 4009}#
- (#{bound-id=?\ 2414}#
- #{x\ 4001}#
- (car #{list\ 4002}#))))
- (if #{t\ 4009}#
- #{t\ 4009}#
- (#{bound-id-member?\ 2420}#
- #{x\ 4001}#
- (cdr #{list\ 4002}#))))
+ #{x\ 1940}#
+ (if (#{syntax-object?\ 271}# #{x\ 1940}#)
+ (#{make-syntax-object\ 269}#
+ (#{syntax-object-expression\ 273}# #{x\ 1940}#)
+ (#{join-wraps\ 358}#
+ #{w\ 1941}#
+ (#{syntax-object-wrap\ 275}# #{x\ 1940}#))
+ (#{syntax-object-module\ 277}# #{x\ 1940}#))
+ (if (null? #{x\ 1940}#)
+ #{x\ 1940}#
+ (#{make-syntax-object\ 269}#
+ #{x\ 1940}#
+ #{w\ 1941}#
+ #{defmod\ 1942}#))))))
+ (#{bound-id-member?\ 374}#
+ (lambda (#{x\ 1955}# #{list\ 1956}#)
+ (if (not (null? #{list\ 1956}#))
+ (let ((#{t\ 1963}#
+ (#{bound-id=?\ 368}#
+ #{x\ 1955}#
+ (car #{list\ 1956}#))))
+ (if #{t\ 1963}#
+ #{t\ 1963}#
+ (#{bound-id-member?\ 374}#
+ #{x\ 1955}#
+ (cdr #{list\ 1956}#))))
#f)))
- (#{distinct-bound-ids?\ 2418}#
- (lambda (#{ids\ 4011}#)
- (letrec ((#{distinct?\ 4015}#
- (lambda (#{ids\ 4016}#)
- (let ((#{t\ 4019}# (null? #{ids\ 4016}#)))
- (if #{t\ 4019}#
- #{t\ 4019}#
- (if (not (#{bound-id-member?\ 2420}#
- (car #{ids\ 4016}#)
- (cdr #{ids\ 4016}#)))
- (#{distinct?\ 4015}# (cdr #{ids\ 4016}#))
+ (#{distinct-bound-ids?\ 372}#
+ (lambda (#{ids\ 1965}#)
+ (letrec ((#{distinct?\ 1969}#
+ (lambda (#{ids\ 1970}#)
+ (let ((#{t\ 1973}# (null? #{ids\ 1970}#)))
+ (if #{t\ 1973}#
+ #{t\ 1973}#
+ (if (not (#{bound-id-member?\ 374}#
+ (car #{ids\ 1970}#)
+ (cdr #{ids\ 1970}#)))
+ (#{distinct?\ 1969}# (cdr #{ids\ 1970}#))
#f))))))
- (#{distinct?\ 4015}# #{ids\ 4011}#))))
- (#{valid-bound-ids?\ 2416}#
- (lambda (#{ids\ 4023}#)
- (if (letrec ((#{all-ids?\ 4028}#
- (lambda (#{ids\ 4029}#)
- (let ((#{t\ 4032}# (null? #{ids\ 4029}#)))
- (if #{t\ 4032}#
- #{t\ 4032}#
- (if (#{id?\ 2353}# (car #{ids\ 4029}#))
- (#{all-ids?\ 4028}# (cdr #{ids\ 4029}#))
+ (#{distinct?\ 1969}# #{ids\ 1965}#))))
+ (#{valid-bound-ids?\ 370}#
+ (lambda (#{ids\ 1977}#)
+ (if (letrec ((#{all-ids?\ 1982}#
+ (lambda (#{ids\ 1983}#)
+ (let ((#{t\ 1986}# (null? #{ids\ 1983}#)))
+ (if #{t\ 1986}#
+ #{t\ 1986}#
+ (if (#{id?\ 307}# (car #{ids\ 1983}#))
+ (#{all-ids?\ 1982}# (cdr #{ids\ 1983}#))
#f))))))
- (#{all-ids?\ 4028}# #{ids\ 4023}#))
- (#{distinct-bound-ids?\ 2418}# #{ids\ 4023}#)
+ (#{all-ids?\ 1982}# #{ids\ 1977}#))
+ (#{distinct-bound-ids?\ 372}# #{ids\ 1977}#)
#f)))
- (#{bound-id=?\ 2414}#
- (lambda (#{i\ 4037}# #{j\ 4038}#)
- (if (if (#{syntax-object?\ 2317}# #{i\ 4037}#)
- (#{syntax-object?\ 2317}# #{j\ 4038}#)
+ (#{bound-id=?\ 368}#
+ (lambda (#{i\ 1991}# #{j\ 1992}#)
+ (if (if (#{syntax-object?\ 271}# #{i\ 1991}#)
+ (#{syntax-object?\ 271}# #{j\ 1992}#)
#f)
- (if (eq? (#{syntax-object-expression\ 2319}# #{i\ 4037}#)
- (#{syntax-object-expression\ 2319}# #{j\ 4038}#))
- (#{same-marks?\ 2408}#
- (#{wrap-marks\ 2360}#
- (#{syntax-object-wrap\ 2321}# #{i\ 4037}#))
- (#{wrap-marks\ 2360}#
- (#{syntax-object-wrap\ 2321}# #{j\ 4038}#)))
+ (if (eq? (#{syntax-object-expression\ 273}# #{i\ 1991}#)
+ (#{syntax-object-expression\ 273}# #{j\ 1992}#))
+ (#{same-marks?\ 362}#
+ (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{i\ 1991}#))
+ (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{j\ 1992}#)))
#f)
- (eq? #{i\ 4037}# #{j\ 4038}#))))
- (#{free-id=?\ 2412}#
- (lambda (#{i\ 4045}# #{j\ 4046}#)
- (if (eq? (let ((#{x\ 4052}# #{i\ 4045}#))
- (if (#{syntax-object?\ 2317}# #{x\ 4052}#)
- (#{syntax-object-expression\ 2319}# #{x\ 4052}#)
- #{x\ 4052}#))
- (let ((#{x\ 4055}# #{j\ 4046}#))
- (if (#{syntax-object?\ 2317}# #{x\ 4055}#)
- (#{syntax-object-expression\ 2319}# #{x\ 4055}#)
- #{x\ 4055}#)))
- (eq? (#{id-var-name\ 2410}# #{i\ 4045}# (quote (())))
- (#{id-var-name\ 2410}# #{j\ 4046}# (quote (()))))
+ (eq? #{i\ 1991}# #{j\ 1992}#))))
+ (#{free-id=?\ 366}#
+ (lambda (#{i\ 1999}# #{j\ 2000}#)
+ (if (eq? (let ((#{x\ 2006}# #{i\ 1999}#))
+ (if (#{syntax-object?\ 271}# #{x\ 2006}#)
+ (#{syntax-object-expression\ 273}# #{x\ 2006}#)
+ #{x\ 2006}#))
+ (let ((#{x\ 2009}# #{j\ 2000}#))
+ (if (#{syntax-object?\ 271}# #{x\ 2009}#)
+ (#{syntax-object-expression\ 273}# #{x\ 2009}#)
+ #{x\ 2009}#)))
+ (eq? (#{id-var-name\ 364}# #{i\ 1999}# (quote (())))
+ (#{id-var-name\ 364}# #{j\ 2000}# (quote (()))))
#f)))
- (#{id-var-name\ 2410}#
- (lambda (#{id\ 4059}# #{w\ 4060}#)
- (letrec ((#{search-vector-rib\ 4069}#
- (lambda (#{sym\ 4081}#
- #{subst\ 4082}#
- #{marks\ 4083}#
- #{symnames\ 4084}#
- #{ribcage\ 4085}#)
- (let ((#{n\ 4092}#
- (vector-length #{symnames\ 4084}#)))
- (letrec ((#{f\ 4095}#
- (lambda (#{i\ 4096}#)
- (if (#{fx=\ 2258}#
- #{i\ 4096}#
- #{n\ 4092}#)
- (#{search\ 4065}#
- #{sym\ 4081}#
- (cdr #{subst\ 4082}#)
- #{marks\ 4083}#)
+ (#{id-var-name\ 364}#
+ (lambda (#{id\ 2013}# #{w\ 2014}#)
+ (letrec ((#{search-vector-rib\ 2023}#
+ (lambda (#{sym\ 2035}#
+ #{subst\ 2036}#
+ #{marks\ 2037}#
+ #{symnames\ 2038}#
+ #{ribcage\ 2039}#)
+ (let ((#{n\ 2046}#
+ (vector-length #{symnames\ 2038}#)))
+ (letrec ((#{f\ 2049}#
+ (lambda (#{i\ 2050}#)
+ (if (#{fx=\ 212}#
+ #{i\ 2050}#
+ #{n\ 2046}#)
+ (#{search\ 2019}#
+ #{sym\ 2035}#
+ (cdr #{subst\ 2036}#)
+ #{marks\ 2037}#)
(if (if (eq? (vector-ref
- #{symnames\ 4084}#
- #{i\ 4096}#)
- #{sym\ 4081}#)
- (#{same-marks?\ 2408}#
- #{marks\ 4083}#
+ #{symnames\ 2038}#
+ #{i\ 2050}#)
+ #{sym\ 2035}#)
+ (#{same-marks?\ 362}#
+ #{marks\ 2037}#
(vector-ref
- (#{ribcage-marks\ 2380}#
- #{ribcage\ 4085}#)
- #{i\ 4096}#))
+ (#{ribcage-marks\ 334}#
+ #{ribcage\ 2039}#)
+ #{i\ 2050}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 2382}#
- #{ribcage\ 4085}#)
- #{i\ 4096}#)
- #{marks\ 4083}#)
- (#{f\ 4095}#
- (#{fx+\ 2254}#
- #{i\ 4096}#
+ (#{ribcage-labels\ 336}#
+ #{ribcage\ 2039}#)
+ #{i\ 2050}#)
+ #{marks\ 2037}#)
+ (#{f\ 2049}#
+ (#{fx+\ 208}#
+ #{i\ 2050}#
1)))))))
- (#{f\ 4095}# 0)))))
- (#{search-list-rib\ 4067}#
- (lambda (#{sym\ 4104}#
- #{subst\ 4105}#
- #{marks\ 4106}#
- #{symnames\ 4107}#
- #{ribcage\ 4108}#)
- (letrec ((#{f\ 4117}#
- (lambda (#{symnames\ 4118}# #{i\ 4119}#)
- (if (null? #{symnames\ 4118}#)
- (#{search\ 4065}#
- #{sym\ 4104}#
- (cdr #{subst\ 4105}#)
- #{marks\ 4106}#)
- (if (if (eq? (car #{symnames\ 4118}#)
- #{sym\ 4104}#)
- (#{same-marks?\ 2408}#
- #{marks\ 4106}#
+ (#{f\ 2049}# 0)))))
+ (#{search-list-rib\ 2021}#
+ (lambda (#{sym\ 2058}#
+ #{subst\ 2059}#
+ #{marks\ 2060}#
+ #{symnames\ 2061}#
+ #{ribcage\ 2062}#)
+ (letrec ((#{f\ 2071}#
+ (lambda (#{symnames\ 2072}# #{i\ 2073}#)
+ (if (null? #{symnames\ 2072}#)
+ (#{search\ 2019}#
+ #{sym\ 2058}#
+ (cdr #{subst\ 2059}#)
+ #{marks\ 2060}#)
+ (if (if (eq? (car #{symnames\ 2072}#)
+ #{sym\ 2058}#)
+ (#{same-marks?\ 362}#
+ #{marks\ 2060}#
(list-ref
- (#{ribcage-marks\ 2380}#
- #{ribcage\ 4108}#)
- #{i\ 4119}#))
+ (#{ribcage-marks\ 334}#
+ #{ribcage\ 2062}#)
+ #{i\ 2073}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 2382}#
- #{ribcage\ 4108}#)
- #{i\ 4119}#)
- #{marks\ 4106}#)
- (#{f\ 4117}#
- (cdr #{symnames\ 4118}#)
- (#{fx+\ 2254}#
- #{i\ 4119}#
+ (#{ribcage-labels\ 336}#
+ #{ribcage\ 2062}#)
+ #{i\ 2073}#)
+ #{marks\ 2060}#)
+ (#{f\ 2071}#
+ (cdr #{symnames\ 2072}#)
+ (#{fx+\ 208}#
+ #{i\ 2073}#
1)))))))
- (#{f\ 4117}# #{symnames\ 4107}# 0))))
- (#{search\ 4065}#
- (lambda (#{sym\ 4127}#
- #{subst\ 4128}#
- #{marks\ 4129}#)
- (if (null? #{subst\ 4128}#)
- (values #f #{marks\ 4129}#)
- (let ((#{fst\ 4134}# (car #{subst\ 4128}#)))
- (if (eq? #{fst\ 4134}# (quote shift))
- (#{search\ 4065}#
- #{sym\ 4127}#
- (cdr #{subst\ 4128}#)
- (cdr #{marks\ 4129}#))
- (let ((#{symnames\ 4136}#
- (#{ribcage-symnames\ 2378}#
- #{fst\ 4134}#)))
- (if (vector? #{symnames\ 4136}#)
- (#{search-vector-rib\ 4069}#
- #{sym\ 4127}#
- #{subst\ 4128}#
- #{marks\ 4129}#
- #{symnames\ 4136}#
- #{fst\ 4134}#)
- (#{search-list-rib\ 4067}#
- #{sym\ 4127}#
- #{subst\ 4128}#
- #{marks\ 4129}#
- #{symnames\ 4136}#
- #{fst\ 4134}#)))))))))
- (if (symbol? #{id\ 4059}#)
- (let ((#{t\ 4139}#
+ (#{f\ 2071}# #{symnames\ 2061}# 0))))
+ (#{search\ 2019}#
+ (lambda (#{sym\ 2081}#
+ #{subst\ 2082}#
+ #{marks\ 2083}#)
+ (if (null? #{subst\ 2082}#)
+ (values #f #{marks\ 2083}#)
+ (let ((#{fst\ 2088}# (car #{subst\ 2082}#)))
+ (if (eq? #{fst\ 2088}# (quote shift))
+ (#{search\ 2019}#
+ #{sym\ 2081}#
+ (cdr #{subst\ 2082}#)
+ (cdr #{marks\ 2083}#))
+ (let ((#{symnames\ 2090}#
+ (#{ribcage-symnames\ 332}#
+ #{fst\ 2088}#)))
+ (if (vector? #{symnames\ 2090}#)
+ (#{search-vector-rib\ 2023}#
+ #{sym\ 2081}#
+ #{subst\ 2082}#
+ #{marks\ 2083}#
+ #{symnames\ 2090}#
+ #{fst\ 2088}#)
+ (#{search-list-rib\ 2021}#
+ #{sym\ 2081}#
+ #{subst\ 2082}#
+ #{marks\ 2083}#
+ #{symnames\ 2090}#
+ #{fst\ 2088}#)))))))))
+ (if (symbol? #{id\ 2013}#)
+ (let ((#{t\ 2093}#
(call-with-values
(lambda ()
- (#{search\ 4065}#
- #{id\ 4059}#
- (#{wrap-subst\ 2362}# #{w\ 4060}#)
- (#{wrap-marks\ 2360}# #{w\ 4060}#)))
- (lambda (#{x\ 4141}# . #{ignore\ 4142}#)
- #{x\ 4141}#))))
- (if #{t\ 4139}# #{t\ 4139}# #{id\ 4059}#))
- (if (#{syntax-object?\ 2317}# #{id\ 4059}#)
- (let ((#{id\ 4150}#
- (#{syntax-object-expression\ 2319}# #{id\ 4059}#))
- (#{w1\ 4151}#
- (#{syntax-object-wrap\ 2321}# #{id\ 4059}#)))
- (let ((#{marks\ 4153}#
- (#{join-marks\ 2406}#
- (#{wrap-marks\ 2360}# #{w\ 4060}#)
- (#{wrap-marks\ 2360}# #{w1\ 4151}#))))
+ (#{search\ 2019}#
+ #{id\ 2013}#
+ (#{wrap-subst\ 316}# #{w\ 2014}#)
+ (#{wrap-marks\ 314}# #{w\ 2014}#)))
+ (lambda (#{x\ 2095}# . #{ignore\ 2096}#)
+ #{x\ 2095}#))))
+ (if #{t\ 2093}# #{t\ 2093}# #{id\ 2013}#))
+ (if (#{syntax-object?\ 271}# #{id\ 2013}#)
+ (let ((#{id\ 2104}#
+ (#{syntax-object-expression\ 273}# #{id\ 2013}#))
+ (#{w1\ 2105}#
+ (#{syntax-object-wrap\ 275}# #{id\ 2013}#)))
+ (let ((#{marks\ 2107}#
+ (#{join-marks\ 360}#
+ (#{wrap-marks\ 314}# #{w\ 2014}#)
+ (#{wrap-marks\ 314}# #{w1\ 2105}#))))
(call-with-values
(lambda ()
- (#{search\ 4065}#
- #{id\ 4150}#
- (#{wrap-subst\ 2362}# #{w\ 4060}#)
- #{marks\ 4153}#))
- (lambda (#{new-id\ 4154}# #{marks\ 4155}#)
- (let ((#{t\ 4160}# #{new-id\ 4154}#))
- (if #{t\ 4160}#
- #{t\ 4160}#
- (let ((#{t\ 4163}#
+ (#{search\ 2019}#
+ #{id\ 2104}#
+ (#{wrap-subst\ 316}# #{w\ 2014}#)
+ #{marks\ 2107}#))
+ (lambda (#{new-id\ 2108}# #{marks\ 2109}#)
+ (let ((#{t\ 2114}# #{new-id\ 2108}#))
+ (if #{t\ 2114}#
+ #{t\ 2114}#
+ (let ((#{t\ 2117}#
(call-with-values
(lambda ()
- (#{search\ 4065}#
- #{id\ 4150}#
- (#{wrap-subst\ 2362}#
- #{w1\ 4151}#)
- #{marks\ 4155}#))
- (lambda (#{x\ 4165}#
+ (#{search\ 2019}#
+ #{id\ 2104}#
+ (#{wrap-subst\ 316}#
+ #{w1\ 2105}#)
+ #{marks\ 2109}#))
+ (lambda (#{x\ 2119}#
.
- #{ignore\ 4166}#)
- #{x\ 4165}#))))
- (if #{t\ 4163}#
- #{t\ 4163}#
- #{id\ 4150}#))))))))
+ #{ignore\ 2120}#)
+ #{x\ 2119}#))))
+ (if #{t\ 2117}#
+ #{t\ 2117}#
+ #{id\ 2104}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 4059}#))))))
- (#{same-marks?\ 2408}#
- (lambda (#{x\ 4171}# #{y\ 4172}#)
- (let ((#{t\ 4177}# (eq? #{x\ 4171}# #{y\ 4172}#)))
- (if #{t\ 4177}#
- #{t\ 4177}#
- (if (not (null? #{x\ 4171}#))
- (if (not (null? #{y\ 4172}#))
- (if (eq? (car #{x\ 4171}#) (car #{y\ 4172}#))
- (#{same-marks?\ 2408}#
- (cdr #{x\ 4171}#)
- (cdr #{y\ 4172}#))
+ #{id\ 2013}#))))))
+ (#{same-marks?\ 362}#
+ (lambda (#{x\ 2125}# #{y\ 2126}#)
+ (let ((#{t\ 2131}# (eq? #{x\ 2125}# #{y\ 2126}#)))
+ (if #{t\ 2131}#
+ #{t\ 2131}#
+ (if (not (null? #{x\ 2125}#))
+ (if (not (null? #{y\ 2126}#))
+ (if (eq? (car #{x\ 2125}#) (car #{y\ 2126}#))
+ (#{same-marks?\ 362}#
+ (cdr #{x\ 2125}#)
+ (cdr #{y\ 2126}#))
#f)
#f)
#f)))))
- (#{join-marks\ 2406}#
- (lambda (#{m1\ 4183}# #{m2\ 4184}#)
- (#{smart-append\ 2402}#
- #{m1\ 4183}#
- #{m2\ 4184}#)))
- (#{join-wraps\ 2404}#
- (lambda (#{w1\ 4187}# #{w2\ 4188}#)
- (let ((#{m1\ 4193}#
- (#{wrap-marks\ 2360}# #{w1\ 4187}#))
- (#{s1\ 4194}#
- (#{wrap-subst\ 2362}# #{w1\ 4187}#)))
- (if (null? #{m1\ 4193}#)
- (if (null? #{s1\ 4194}#)
- #{w2\ 4188}#
- (#{make-wrap\ 2358}#
- (#{wrap-marks\ 2360}# #{w2\ 4188}#)
- (#{smart-append\ 2402}#
- #{s1\ 4194}#
- (#{wrap-subst\ 2362}# #{w2\ 4188}#))))
- (#{make-wrap\ 2358}#
- (#{smart-append\ 2402}#
- #{m1\ 4193}#
- (#{wrap-marks\ 2360}# #{w2\ 4188}#))
- (#{smart-append\ 2402}#
- #{s1\ 4194}#
- (#{wrap-subst\ 2362}# #{w2\ 4188}#)))))))
- (#{smart-append\ 2402}#
- (lambda (#{m1\ 4195}# #{m2\ 4196}#)
- (if (null? #{m2\ 4196}#)
- #{m1\ 4195}#
- (append #{m1\ 4195}# #{m2\ 4196}#))))
- (#{make-binding-wrap\ 2400}#
- (lambda (#{ids\ 4199}# #{labels\ 4200}# #{w\ 4201}#)
- (if (null? #{ids\ 4199}#)
- #{w\ 4201}#
- (#{make-wrap\ 2358}#
- (#{wrap-marks\ 2360}# #{w\ 4201}#)
- (cons (let ((#{labelvec\ 4206}#
- (list->vector #{labels\ 4200}#)))
- (let ((#{n\ 4208}#
- (vector-length #{labelvec\ 4206}#)))
- (let ((#{symnamevec\ 4211}#
- (make-vector #{n\ 4208}#))
- (#{marksvec\ 4212}#
- (make-vector #{n\ 4208}#)))
+ (#{join-marks\ 360}#
+ (lambda (#{m1\ 2137}# #{m2\ 2138}#)
+ (#{smart-append\ 356}# #{m1\ 2137}# #{m2\ 2138}#)))
+ (#{join-wraps\ 358}#
+ (lambda (#{w1\ 2141}# #{w2\ 2142}#)
+ (let ((#{m1\ 2147}# (#{wrap-marks\ 314}# #{w1\ 2141}#))
+ (#{s1\ 2148}# (#{wrap-subst\ 316}# #{w1\ 2141}#)))
+ (if (null? #{m1\ 2147}#)
+ (if (null? #{s1\ 2148}#)
+ #{w2\ 2142}#
+ (#{make-wrap\ 312}#
+ (#{wrap-marks\ 314}# #{w2\ 2142}#)
+ (#{smart-append\ 356}#
+ #{s1\ 2148}#
+ (#{wrap-subst\ 316}# #{w2\ 2142}#))))
+ (#{make-wrap\ 312}#
+ (#{smart-append\ 356}#
+ #{m1\ 2147}#
+ (#{wrap-marks\ 314}# #{w2\ 2142}#))
+ (#{smart-append\ 356}#
+ #{s1\ 2148}#
+ (#{wrap-subst\ 316}# #{w2\ 2142}#)))))))
+ (#{smart-append\ 356}#
+ (lambda (#{m1\ 2149}# #{m2\ 2150}#)
+ (if (null? #{m2\ 2150}#)
+ #{m1\ 2149}#
+ (append #{m1\ 2149}# #{m2\ 2150}#))))
+ (#{make-binding-wrap\ 354}#
+ (lambda (#{ids\ 2153}# #{labels\ 2154}# #{w\ 2155}#)
+ (if (null? #{ids\ 2153}#)
+ #{w\ 2155}#
+ (#{make-wrap\ 312}#
+ (#{wrap-marks\ 314}# #{w\ 2155}#)
+ (cons (let ((#{labelvec\ 2160}#
+ (list->vector #{labels\ 2154}#)))
+ (let ((#{n\ 2162}#
+ (vector-length #{labelvec\ 2160}#)))
+ (let ((#{symnamevec\ 2165}#
+ (make-vector #{n\ 2162}#))
+ (#{marksvec\ 2166}#
+ (make-vector #{n\ 2162}#)))
(begin
- (letrec ((#{f\ 4216}#
- (lambda (#{ids\ 4217}# #{i\ 4218}#)
- (if (not (null? #{ids\ 4217}#))
+ (letrec ((#{f\ 2170}#
+ (lambda (#{ids\ 2171}# #{i\ 2172}#)
+ (if (not (null? #{ids\ 2171}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 2356}#
- (car #{ids\ 4217}#)
- #{w\ 4201}#))
- (lambda (#{symname\ 4219}#
- #{marks\ 4220}#)
+ (#{id-sym-name&marks\ 310}#
+ (car #{ids\ 2171}#)
+ #{w\ 2155}#))
+ (lambda (#{symname\ 2173}#
+ #{marks\ 2174}#)
(begin
(vector-set!
- #{symnamevec\ 4211}#
- #{i\ 4218}#
- #{symname\ 4219}#)
+ #{symnamevec\ 2165}#
+ #{i\ 2172}#
+ #{symname\ 2173}#)
(vector-set!
- #{marksvec\ 4212}#
- #{i\ 4218}#
- #{marks\ 4220}#)
- (#{f\ 4216}#
- (cdr #{ids\ 4217}#)
- (#{fx+\ 2254}#
- #{i\ 4218}#
+ #{marksvec\ 2166}#
+ #{i\ 2172}#
+ #{marks\ 2174}#)
+ (#{f\ 2170}#
+ (cdr #{ids\ 2171}#)
+ (#{fx+\ 208}#
+ #{i\ 2172}#
1)))))))))
- (#{f\ 4216}# #{ids\ 4199}# 0))
- (#{make-ribcage\ 2374}#
- #{symnamevec\ 4211}#
- #{marksvec\ 4212}#
- #{labelvec\ 4206}#)))))
- (#{wrap-subst\ 2362}# #{w\ 4201}#))))))
- (#{extend-ribcage!\ 2398}#
- (lambda (#{ribcage\ 4223}# #{id\ 4224}# #{label\ 4225}#)
+ (#{f\ 2170}# #{ids\ 2153}# 0))
+ (#{make-ribcage\ 328}#
+ #{symnamevec\ 2165}#
+ #{marksvec\ 2166}#
+ #{labelvec\ 2160}#)))))
+ (#{wrap-subst\ 316}# #{w\ 2155}#))))))
+ (#{extend-ribcage!\ 352}#
+ (lambda (#{ribcage\ 2177}# #{id\ 2178}# #{label\ 2179}#)
(begin
- (#{set-ribcage-symnames!\ 2384}#
- #{ribcage\ 4223}#
- (cons (#{syntax-object-expression\ 2319}# #{id\ 4224}#)
- (#{ribcage-symnames\ 2378}# #{ribcage\ 4223}#)))
- (#{set-ribcage-marks!\ 2386}#
- #{ribcage\ 4223}#
- (cons (#{wrap-marks\ 2360}#
- (#{syntax-object-wrap\ 2321}# #{id\ 4224}#))
- (#{ribcage-marks\ 2380}# #{ribcage\ 4223}#)))
- (#{set-ribcage-labels!\ 2388}#
- #{ribcage\ 4223}#
- (cons #{label\ 4225}#
- (#{ribcage-labels\ 2382}# #{ribcage\ 4223}#))))))
- (#{anti-mark\ 2394}#
- (lambda (#{w\ 4229}#)
- (#{make-wrap\ 2358}#
- (cons #f (#{wrap-marks\ 2360}# #{w\ 4229}#))
+ (#{set-ribcage-symnames!\ 338}#
+ #{ribcage\ 2177}#
+ (cons (#{syntax-object-expression\ 273}# #{id\ 2178}#)
+ (#{ribcage-symnames\ 332}# #{ribcage\ 2177}#)))
+ (#{set-ribcage-marks!\ 340}#
+ #{ribcage\ 2177}#
+ (cons (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{id\ 2178}#))
+ (#{ribcage-marks\ 334}# #{ribcage\ 2177}#)))
+ (#{set-ribcage-labels!\ 342}#
+ #{ribcage\ 2177}#
+ (cons #{label\ 2179}#
+ (#{ribcage-labels\ 336}# #{ribcage\ 2177}#))))))
+ (#{anti-mark\ 348}#
+ (lambda (#{w\ 2183}#)
+ (#{make-wrap\ 312}#
+ (cons #f (#{wrap-marks\ 314}# #{w\ 2183}#))
(cons 'shift
- (#{wrap-subst\ 2362}# #{w\ 4229}#)))))
- (#{set-ribcage-labels!\ 2388}#
- (lambda (#{x\ 4232}# #{update\ 4233}#)
- (vector-set! #{x\ 4232}# 3 #{update\ 4233}#)))
- (#{set-ribcage-marks!\ 2386}#
- (lambda (#{x\ 4236}# #{update\ 4237}#)
- (vector-set! #{x\ 4236}# 2 #{update\ 4237}#)))
- (#{set-ribcage-symnames!\ 2384}#
- (lambda (#{x\ 4240}# #{update\ 4241}#)
- (vector-set! #{x\ 4240}# 1 #{update\ 4241}#)))
- (#{ribcage-labels\ 2382}#
- (lambda (#{x\ 4244}#) (vector-ref #{x\ 4244}# 3)))
- (#{ribcage-marks\ 2380}#
- (lambda (#{x\ 4246}#) (vector-ref #{x\ 4246}# 2)))
- (#{ribcage-symnames\ 2378}#
- (lambda (#{x\ 4248}#) (vector-ref #{x\ 4248}# 1)))
- (#{ribcage?\ 2376}#
- (lambda (#{x\ 4250}#)
- (if (vector? #{x\ 4250}#)
- (if (= (vector-length #{x\ 4250}#) 4)
- (eq? (vector-ref #{x\ 4250}# 0) (quote ribcage))
+ (#{wrap-subst\ 316}# #{w\ 2183}#)))))
+ (#{set-ribcage-labels!\ 342}#
+ (lambda (#{x\ 2186}# #{update\ 2187}#)
+ (vector-set! #{x\ 2186}# 3 #{update\ 2187}#)))
+ (#{set-ribcage-marks!\ 340}#
+ (lambda (#{x\ 2190}# #{update\ 2191}#)
+ (vector-set! #{x\ 2190}# 2 #{update\ 2191}#)))
+ (#{set-ribcage-symnames!\ 338}#
+ (lambda (#{x\ 2194}# #{update\ 2195}#)
+ (vector-set! #{x\ 2194}# 1 #{update\ 2195}#)))
+ (#{ribcage-labels\ 336}#
+ (lambda (#{x\ 2198}#) (vector-ref #{x\ 2198}# 3)))
+ (#{ribcage-marks\ 334}#
+ (lambda (#{x\ 2200}#) (vector-ref #{x\ 2200}# 2)))
+ (#{ribcage-symnames\ 332}#
+ (lambda (#{x\ 2202}#) (vector-ref #{x\ 2202}# 1)))
+ (#{ribcage?\ 330}#
+ (lambda (#{x\ 2204}#)
+ (if (vector? #{x\ 2204}#)
+ (if (= (vector-length #{x\ 2204}#) 4)
+ (eq? (vector-ref #{x\ 2204}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 2374}#
- (lambda (#{symnames\ 4255}#
- #{marks\ 4256}#
- #{labels\ 4257}#)
+ (#{make-ribcage\ 328}#
+ (lambda (#{symnames\ 2209}#
+ #{marks\ 2210}#
+ #{labels\ 2211}#)
(vector
'ribcage
- #{symnames\ 4255}#
- #{marks\ 4256}#
- #{labels\ 4257}#)))
- (#{gen-labels\ 2371}#
- (lambda (#{ls\ 4261}#)
- (if (null? #{ls\ 4261}#)
+ #{symnames\ 2209}#
+ #{marks\ 2210}#
+ #{labels\ 2211}#)))
+ (#{gen-labels\ 325}#
+ (lambda (#{ls\ 2215}#)
+ (if (null? #{ls\ 2215}#)
'()
- (cons (#{gen-label\ 2369}#)
- (#{gen-labels\ 2371}# (cdr #{ls\ 4261}#))))))
- (#{gen-label\ 2369}#
+ (cons (#{gen-label\ 323}#)
+ (#{gen-labels\ 325}# (cdr #{ls\ 2215}#))))))
+ (#{gen-label\ 323}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 2362}# cdr)
- (#{wrap-marks\ 2360}# car)
- (#{make-wrap\ 2358}# cons)
- (#{id-sym-name&marks\ 2356}#
- (lambda (#{x\ 4263}# #{w\ 4264}#)
- (if (#{syntax-object?\ 2317}# #{x\ 4263}#)
+ (#{wrap-subst\ 316}# cdr)
+ (#{wrap-marks\ 314}# car)
+ (#{make-wrap\ 312}# cons)
+ (#{id-sym-name&marks\ 310}#
+ (lambda (#{x\ 2217}# #{w\ 2218}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2217}#)
(values
- (#{syntax-object-expression\ 2319}# #{x\ 4263}#)
- (#{join-marks\ 2406}#
- (#{wrap-marks\ 2360}# #{w\ 4264}#)
- (#{wrap-marks\ 2360}#
- (#{syntax-object-wrap\ 2321}# #{x\ 4263}#))))
+ (#{syntax-object-expression\ 273}# #{x\ 2217}#)
+ (#{join-marks\ 360}#
+ (#{wrap-marks\ 314}# #{w\ 2218}#)
+ (#{wrap-marks\ 314}#
+ (#{syntax-object-wrap\ 275}# #{x\ 2217}#))))
(values
- #{x\ 4263}#
- (#{wrap-marks\ 2360}# #{w\ 4264}#)))))
- (#{id?\ 2353}#
- (lambda (#{x\ 4267}#)
- (if (symbol? #{x\ 4267}#)
+ #{x\ 2217}#
+ (#{wrap-marks\ 314}# #{w\ 2218}#)))))
+ (#{id?\ 307}#
+ (lambda (#{x\ 2221}#)
+ (if (symbol? #{x\ 2221}#)
#t
- (if (#{syntax-object?\ 2317}# #{x\ 4267}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2221}#)
(symbol?
- (#{syntax-object-expression\ 2319}# #{x\ 4267}#))
+ (#{syntax-object-expression\ 273}# #{x\ 2221}#))
#f))))
- (#{nonsymbol-id?\ 2351}#
- (lambda (#{x\ 4274}#)
- (if (#{syntax-object?\ 2317}# #{x\ 4274}#)
+ (#{nonsymbol-id?\ 305}#
+ (lambda (#{x\ 2228}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2228}#)
(symbol?
- (#{syntax-object-expression\ 2319}# #{x\ 4274}#))
+ (#{syntax-object-expression\ 273}# #{x\ 2228}#))
#f)))
- (#{global-extend\ 2349}#
- (lambda (#{type\ 4278}# #{sym\ 4279}# #{val\ 4280}#)
- (#{put-global-definition-hook\ 2267}#
- #{sym\ 4279}#
- #{type\ 4278}#
- #{val\ 4280}#)))
- (#{lookup\ 2347}#
- (lambda (#{x\ 4284}# #{r\ 4285}# #{mod\ 4286}#)
- (let ((#{t\ 4292}# (assq #{x\ 4284}# #{r\ 4285}#)))
- (if #{t\ 4292}#
- (cdr #{t\ 4292}#)
- (if (symbol? #{x\ 4284}#)
- (let ((#{t\ 4298}#
- (#{get-global-definition-hook\ 2269}#
- #{x\ 4284}#
- #{mod\ 4286}#)))
- (if #{t\ 4298}# #{t\ 4298}# (quote (global))))
+ (#{global-extend\ 303}#
+ (lambda (#{type\ 2232}# #{sym\ 2233}# #{val\ 2234}#)
+ (#{put-global-definition-hook\ 221}#
+ #{sym\ 2233}#
+ #{type\ 2232}#
+ #{val\ 2234}#)))
+ (#{lookup\ 301}#
+ (lambda (#{x\ 2238}# #{r\ 2239}# #{mod\ 2240}#)
+ (let ((#{t\ 2246}# (assq #{x\ 2238}# #{r\ 2239}#)))
+ (if #{t\ 2246}#
+ (cdr #{t\ 2246}#)
+ (if (symbol? #{x\ 2238}#)
+ (let ((#{t\ 2252}#
+ (#{get-global-definition-hook\ 223}#
+ #{x\ 2238}#
+ #{mod\ 2240}#)))
+ (if #{t\ 2252}# #{t\ 2252}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 2345}#
- (lambda (#{r\ 4303}#)
- (if (null? #{r\ 4303}#)
+ (#{macros-only-env\ 299}#
+ (lambda (#{r\ 2257}#)
+ (if (null? #{r\ 2257}#)
'()
- (let ((#{a\ 4306}# (car #{r\ 4303}#)))
- (if (eq? (cadr #{a\ 4306}#) (quote macro))
- (cons #{a\ 4306}#
- (#{macros-only-env\ 2345}# (cdr #{r\ 4303}#)))
- (#{macros-only-env\ 2345}# (cdr #{r\ 4303}#)))))))
- (#{extend-var-env\ 2343}#
- (lambda (#{labels\ 4307}# #{vars\ 4308}# #{r\ 4309}#)
- (if (null? #{labels\ 4307}#)
- #{r\ 4309}#
- (#{extend-var-env\ 2343}#
- (cdr #{labels\ 4307}#)
- (cdr #{vars\ 4308}#)
- (cons (cons (car #{labels\ 4307}#)
- (cons (quote lexical) (car #{vars\ 4308}#)))
- #{r\ 4309}#)))))
- (#{extend-env\ 2341}#
- (lambda (#{labels\ 4314}# #{bindings\ 4315}# #{r\ 4316}#)
- (if (null? #{labels\ 4314}#)
- #{r\ 4316}#
- (#{extend-env\ 2341}#
- (cdr #{labels\ 4314}#)
- (cdr #{bindings\ 4315}#)
- (cons (cons (car #{labels\ 4314}#)
- (car #{bindings\ 4315}#))
- #{r\ 4316}#)))))
- (#{binding-value\ 2338}# cdr)
- (#{binding-type\ 2336}# car)
- (#{source-annotation\ 2332}#
- (lambda (#{x\ 4320}#)
- (if (#{syntax-object?\ 2317}# #{x\ 4320}#)
- (#{source-annotation\ 2332}#
- (#{syntax-object-expression\ 2319}# #{x\ 4320}#))
- (if (pair? #{x\ 4320}#)
- (let ((#{props\ 4327}# (source-properties #{x\ 4320}#)))
- (if (pair? #{props\ 4327}#) #{props\ 4327}# #f))
+ (let ((#{a\ 2260}# (car #{r\ 2257}#)))
+ (if (eq? (cadr #{a\ 2260}#) (quote macro))
+ (cons #{a\ 2260}#
+ (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))
+ (#{macros-only-env\ 299}# (cdr #{r\ 2257}#)))))))
+ (#{extend-var-env\ 297}#
+ (lambda (#{labels\ 2261}# #{vars\ 2262}# #{r\ 2263}#)
+ (if (null? #{labels\ 2261}#)
+ #{r\ 2263}#
+ (#{extend-var-env\ 297}#
+ (cdr #{labels\ 2261}#)
+ (cdr #{vars\ 2262}#)
+ (cons (cons (car #{labels\ 2261}#)
+ (cons (quote lexical) (car #{vars\ 2262}#)))
+ #{r\ 2263}#)))))
+ (#{extend-env\ 295}#
+ (lambda (#{labels\ 2268}# #{bindings\ 2269}# #{r\ 2270}#)
+ (if (null? #{labels\ 2268}#)
+ #{r\ 2270}#
+ (#{extend-env\ 295}#
+ (cdr #{labels\ 2268}#)
+ (cdr #{bindings\ 2269}#)
+ (cons (cons (car #{labels\ 2268}#)
+ (car #{bindings\ 2269}#))
+ #{r\ 2270}#)))))
+ (#{binding-value\ 292}# cdr)
+ (#{binding-type\ 290}# car)
+ (#{source-annotation\ 286}#
+ (lambda (#{x\ 2274}#)
+ (if (#{syntax-object?\ 271}# #{x\ 2274}#)
+ (#{source-annotation\ 286}#
+ (#{syntax-object-expression\ 273}# #{x\ 2274}#))
+ (if (pair? #{x\ 2274}#)
+ (let ((#{props\ 2281}# (source-properties #{x\ 2274}#)))
+ (if (pair? #{props\ 2281}#) #{props\ 2281}# #f))
#f))))
- (#{set-syntax-object-module!\ 2329}#
- (lambda (#{x\ 4329}# #{update\ 4330}#)
- (vector-set! #{x\ 4329}# 3 #{update\ 4330}#)))
- (#{set-syntax-object-wrap!\ 2327}#
- (lambda (#{x\ 4333}# #{update\ 4334}#)
- (vector-set! #{x\ 4333}# 2 #{update\ 4334}#)))
- (#{set-syntax-object-expression!\ 2325}#
- (lambda (#{x\ 4337}# #{update\ 4338}#)
- (vector-set! #{x\ 4337}# 1 #{update\ 4338}#)))
- (#{syntax-object-module\ 2323}#
- (lambda (#{x\ 4341}#) (vector-ref #{x\ 4341}# 3)))
- (#{syntax-object-wrap\ 2321}#
- (lambda (#{x\ 4343}#) (vector-ref #{x\ 4343}# 2)))
- (#{syntax-object-expression\ 2319}#
- (lambda (#{x\ 4345}#) (vector-ref #{x\ 4345}# 1)))
- (#{syntax-object?\ 2317}#
- (lambda (#{x\ 4347}#)
- (if (vector? #{x\ 4347}#)
- (if (= (vector-length #{x\ 4347}#) 4)
- (eq? (vector-ref #{x\ 4347}# 0)
+ (#{set-syntax-object-module!\ 283}#
+ (lambda (#{x\ 2283}# #{update\ 2284}#)
+ (vector-set! #{x\ 2283}# 3 #{update\ 2284}#)))
+ (#{set-syntax-object-wrap!\ 281}#
+ (lambda (#{x\ 2287}# #{update\ 2288}#)
+ (vector-set! #{x\ 2287}# 2 #{update\ 2288}#)))
+ (#{set-syntax-object-expression!\ 279}#
+ (lambda (#{x\ 2291}# #{update\ 2292}#)
+ (vector-set! #{x\ 2291}# 1 #{update\ 2292}#)))
+ (#{syntax-object-module\ 277}#
+ (lambda (#{x\ 2295}#) (vector-ref #{x\ 2295}# 3)))
+ (#{syntax-object-wrap\ 275}#
+ (lambda (#{x\ 2297}#) (vector-ref #{x\ 2297}# 2)))
+ (#{syntax-object-expression\ 273}#
+ (lambda (#{x\ 2299}#) (vector-ref #{x\ 2299}# 1)))
+ (#{syntax-object?\ 271}#
+ (lambda (#{x\ 2301}#)
+ (if (vector? #{x\ 2301}#)
+ (if (= (vector-length #{x\ 2301}#) 4)
+ (eq? (vector-ref #{x\ 2301}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 2315}#
- (lambda (#{expression\ 4352}#
- #{wrap\ 4353}#
- #{module\ 4354}#)
+ (#{make-syntax-object\ 269}#
+ (lambda (#{expression\ 2306}#
+ #{wrap\ 2307}#
+ #{module\ 2308}#)
(vector
'syntax-object
- #{expression\ 4352}#
- #{wrap\ 4353}#
- #{module\ 4354}#)))
- (#{build-letrec\ 2311}#
- (lambda (#{src\ 4358}#
- #{ids\ 4359}#
- #{vars\ 4360}#
- #{val-exps\ 4361}#
- #{body-exp\ 4362}#)
- (if (null? #{vars\ 4360}#)
- #{body-exp\ 4362}#
- (#{make-letrec\ 2250}#
- #{src\ 4358}#
- #{ids\ 4359}#
- #{vars\ 4360}#
- #{val-exps\ 4361}#
- #{body-exp\ 4362}#))))
- (#{build-named-let\ 2309}#
- (lambda (#{src\ 4368}#
- #{ids\ 4369}#
- #{vars\ 4370}#
- #{val-exps\ 4371}#
- #{body-exp\ 4372}#)
- (let ((#{f\ 4382}# (car #{vars\ 4370}#))
- (#{f-name\ 4383}# (car #{ids\ 4369}#))
- (#{vars\ 4384}# (cdr #{vars\ 4370}#))
- (#{ids\ 4385}# (cdr #{ids\ 4369}#)))
- (let ((#{proc\ 4387}#
- (#{build-simple-lambda\ 2295}#
- #{src\ 4368}#
- #{ids\ 4385}#
+ #{expression\ 2306}#
+ #{wrap\ 2307}#
+ #{module\ 2308}#)))
+ (#{build-letrec\ 265}#
+ (lambda (#{src\ 2312}#
+ #{ids\ 2313}#
+ #{vars\ 2314}#
+ #{val-exps\ 2315}#
+ #{body-exp\ 2316}#)
+ (if (null? #{vars\ 2314}#)
+ #{body-exp\ 2316}#
+ (#{make-letrec\ 204}#
+ #{src\ 2312}#
+ #{ids\ 2313}#
+ #{vars\ 2314}#
+ #{val-exps\ 2315}#
+ #{body-exp\ 2316}#))))
+ (#{build-named-let\ 263}#
+ (lambda (#{src\ 2322}#
+ #{ids\ 2323}#
+ #{vars\ 2324}#
+ #{val-exps\ 2325}#
+ #{body-exp\ 2326}#)
+ (let ((#{f\ 2336}# (car #{vars\ 2324}#))
+ (#{f-name\ 2337}# (car #{ids\ 2323}#))
+ (#{vars\ 2338}# (cdr #{vars\ 2324}#))
+ (#{ids\ 2339}# (cdr #{ids\ 2323}#)))
+ (let ((#{proc\ 2341}#
+ (#{build-simple-lambda\ 249}#
+ #{src\ 2322}#
+ #{ids\ 2339}#
#f
- #{vars\ 4384}#
+ #{vars\ 2338}#
'()
- #{body-exp\ 4372}#)))
- (#{make-letrec\ 2250}#
- #{src\ 4368}#
- (list #{f-name\ 4383}#)
- (list #{f\ 4382}#)
- (list #{proc\ 4387}#)
- (#{build-application\ 2275}#
- #{src\ 4368}#
- (#{build-lexical-reference\ 2281}#
+ #{body-exp\ 2326}#)))
+ (#{make-letrec\ 204}#
+ #{src\ 2322}#
+ (list #{f-name\ 2337}#)
+ (list #{f\ 2336}#)
+ (list #{proc\ 2341}#)
+ (#{build-application\ 229}#
+ #{src\ 2322}#
+ (#{build-lexical-reference\ 235}#
'fun
- #{src\ 4368}#
- #{f-name\ 4383}#
- #{f\ 4382}#)
- #{val-exps\ 4371}#))))))
- (#{build-let\ 2307}#
- (lambda (#{src\ 4388}#
- #{ids\ 4389}#
- #{vars\ 4390}#
- #{val-exps\ 4391}#
- #{body-exp\ 4392}#)
- (if (null? #{vars\ 4390}#)
- #{body-exp\ 4392}#
- (#{make-let\ 2248}#
- #{src\ 4388}#
- #{ids\ 4389}#
- #{vars\ 4390}#
- #{val-exps\ 4391}#
- #{body-exp\ 4392}#))))
- (#{build-sequence\ 2305}#
- (lambda (#{src\ 4398}# #{exps\ 4399}#)
- (if (null? (cdr #{exps\ 4399}#))
- (car #{exps\ 4399}#)
- (#{make-sequence\ 2242}#
- #{src\ 4398}#
- #{exps\ 4399}#))))
- (#{build-data\ 2303}#
- (lambda (#{src\ 4402}# #{exp\ 4403}#)
- (#{make-const\ 2220}#
- #{src\ 4402}#
- #{exp\ 4403}#)))
- (#{build-primref\ 2301}#
- (lambda (#{src\ 4406}# #{name\ 4407}#)
+ #{src\ 2322}#
+ #{f-name\ 2337}#
+ #{f\ 2336}#)
+ #{val-exps\ 2325}#))))))
+ (#{build-let\ 261}#
+ (lambda (#{src\ 2342}#
+ #{ids\ 2343}#
+ #{vars\ 2344}#
+ #{val-exps\ 2345}#
+ #{body-exp\ 2346}#)
+ (if (null? #{vars\ 2344}#)
+ #{body-exp\ 2346}#
+ (#{make-let\ 202}#
+ #{src\ 2342}#
+ #{ids\ 2343}#
+ #{vars\ 2344}#
+ #{val-exps\ 2345}#
+ #{body-exp\ 2346}#))))
+ (#{build-sequence\ 259}#
+ (lambda (#{src\ 2352}# #{exps\ 2353}#)
+ (if (null? (cdr #{exps\ 2353}#))
+ (car #{exps\ 2353}#)
+ (#{make-sequence\ 196}#
+ #{src\ 2352}#
+ #{exps\ 2353}#))))
+ (#{build-data\ 257}#
+ (lambda (#{src\ 2356}# #{exp\ 2357}#)
+ (#{make-const\ 174}# #{src\ 2356}# #{exp\ 2357}#)))
+ (#{build-primref\ 255}#
+ (lambda (#{src\ 2360}# #{name\ 2361}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 2232}#
- #{src\ 4406}#
- #{name\ 4407}#)
- (#{make-module-ref\ 2228}#
- #{src\ 4406}#
+ (#{make-toplevel-ref\ 186}#
+ #{src\ 2360}#
+ #{name\ 2361}#)
+ (#{make-module-ref\ 182}#
+ #{src\ 2360}#
'(guile)
- #{name\ 4407}#
+ #{name\ 2361}#
#f))))
- (#{build-lambda-case\ 2299}#
- (lambda (#{src\ 4410}#
- #{req\ 4411}#
- #{opt\ 4412}#
- #{rest\ 4413}#
- #{kw\ 4414}#
- #{inits\ 4415}#
- #{vars\ 4416}#
- #{body\ 4417}#
- #{else-case\ 4418}#)
- (#{make-lambda-case\ 2246}#
- #{src\ 4410}#
- #{req\ 4411}#
- #{opt\ 4412}#
- #{rest\ 4413}#
- #{kw\ 4414}#
- #{inits\ 4415}#
- #{vars\ 4416}#
- #{body\ 4417}#
- #{else-case\ 4418}#)))
- (#{build-case-lambda\ 2297}#
- (lambda (#{src\ 4428}# #{meta\ 4429}# #{body\ 4430}#)
- (#{make-lambda\ 2244}#
- #{src\ 4428}#
- #{meta\ 4429}#
- #{body\ 4430}#)))
- (#{build-simple-lambda\ 2295}#
- (lambda (#{src\ 4434}#
- #{req\ 4435}#
- #{rest\ 4436}#
- #{vars\ 4437}#
- #{meta\ 4438}#
- #{exp\ 4439}#)
- (#{make-lambda\ 2244}#
- #{src\ 4434}#
- #{meta\ 4438}#
- (#{make-lambda-case\ 2246}#
- #{src\ 4434}#
- #{req\ 4435}#
+ (#{build-lambda-case\ 253}#
+ (lambda (#{src\ 2364}#
+ #{req\ 2365}#
+ #{opt\ 2366}#
+ #{rest\ 2367}#
+ #{kw\ 2368}#
+ #{inits\ 2369}#
+ #{vars\ 2370}#
+ #{body\ 2371}#
+ #{else-case\ 2372}#)
+ (#{make-lambda-case\ 200}#
+ #{src\ 2364}#
+ #{req\ 2365}#
+ #{opt\ 2366}#
+ #{rest\ 2367}#
+ #{kw\ 2368}#
+ #{inits\ 2369}#
+ #{vars\ 2370}#
+ #{body\ 2371}#
+ #{else-case\ 2372}#)))
+ (#{build-case-lambda\ 251}#
+ (lambda (#{src\ 2382}# #{meta\ 2383}# #{body\ 2384}#)
+ (#{make-lambda\ 198}#
+ #{src\ 2382}#
+ #{meta\ 2383}#
+ #{body\ 2384}#)))
+ (#{build-simple-lambda\ 249}#
+ (lambda (#{src\ 2388}#
+ #{req\ 2389}#
+ #{rest\ 2390}#
+ #{vars\ 2391}#
+ #{meta\ 2392}#
+ #{exp\ 2393}#)
+ (#{make-lambda\ 198}#
+ #{src\ 2388}#
+ #{meta\ 2392}#
+ (#{make-lambda-case\ 200}#
+ #{src\ 2388}#
+ #{req\ 2389}#
#f
- #{rest\ 4436}#
+ #{rest\ 2390}#
#f
'()
- #{vars\ 4437}#
- #{exp\ 4439}#
+ #{vars\ 2391}#
+ #{exp\ 2393}#
#f))))
- (#{build-global-definition\ 2293}#
- (lambda (#{source\ 4446}# #{var\ 4447}# #{exp\ 4448}#)
- (#{make-toplevel-define\ 2236}#
- #{source\ 4446}#
- #{var\ 4447}#
- #{exp\ 4448}#)))
- (#{maybe-name-value!\ 2291}#
- (lambda (#{name\ 4452}# #{val\ 4453}#)
- (if ((@ (language tree-il) lambda?) #{val\ 4453}#)
- (let ((#{meta\ 4459}#
+ (#{build-global-definition\ 247}#
+ (lambda (#{source\ 2400}# #{var\ 2401}# #{exp\ 2402}#)
+ (#{make-toplevel-define\ 190}#
+ #{source\ 2400}#
+ #{var\ 2401}#
+ #{exp\ 2402}#)))
+ (#{maybe-name-value!\ 245}#
+ (lambda (#{name\ 2406}# #{val\ 2407}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 2407}#)
+ (let ((#{meta\ 2413}#
((@ (language tree-il) lambda-meta)
- #{val\ 4453}#)))
- (if (not (assq (quote name) #{meta\ 4459}#))
+ #{val\ 2407}#)))
+ (if (not (assq (quote name) #{meta\ 2413}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 4453}#
+ #{val\ 2407}#
(acons 'name
- #{name\ 4452}#
- #{meta\ 4459}#)))))))
- (#{build-global-assignment\ 2289}#
- (lambda (#{source\ 4460}#
- #{var\ 4461}#
- #{exp\ 4462}#
- #{mod\ 4463}#)
- (#{analyze-variable\ 2285}#
- #{mod\ 4463}#
- #{var\ 4461}#
- (lambda (#{mod\ 4468}# #{var\ 4469}# #{public?\ 4470}#)
- (#{make-module-set\ 2230}#
- #{source\ 4460}#
- #{mod\ 4468}#
- #{var\ 4469}#
- #{public?\ 4470}#
- #{exp\ 4462}#))
- (lambda (#{var\ 4474}#)
- (#{make-toplevel-set\ 2234}#
- #{source\ 4460}#
- #{var\ 4474}#
- #{exp\ 4462}#)))))
- (#{build-global-reference\ 2287}#
- (lambda (#{source\ 4476}# #{var\ 4477}# #{mod\ 4478}#)
- (#{analyze-variable\ 2285}#
- #{mod\ 4478}#
- #{var\ 4477}#
- (lambda (#{mod\ 4482}# #{var\ 4483}# #{public?\ 4484}#)
- (#{make-module-ref\ 2228}#
- #{source\ 4476}#
- #{mod\ 4482}#
- #{var\ 4483}#
- #{public?\ 4484}#))
- (lambda (#{var\ 4488}#)
- (#{make-toplevel-ref\ 2232}#
- #{source\ 4476}#
- #{var\ 4488}#)))))
- (#{analyze-variable\ 2285}#
- (lambda (#{mod\ 4490}#
- #{var\ 4491}#
- #{modref-cont\ 4492}#
- #{bare-cont\ 4493}#)
- (if (not #{mod\ 4490}#)
- (#{bare-cont\ 4493}# #{var\ 4491}#)
- (let ((#{kind\ 4500}# (car #{mod\ 4490}#))
- (#{mod\ 4501}# (cdr #{mod\ 4490}#)))
- (if (memv #{kind\ 4500}# (quote (public)))
- (#{modref-cont\ 4492}#
- #{mod\ 4501}#
- #{var\ 4491}#
+ #{name\ 2406}#
+ #{meta\ 2413}#)))))))
+ (#{build-global-assignment\ 243}#
+ (lambda (#{source\ 2414}#
+ #{var\ 2415}#
+ #{exp\ 2416}#
+ #{mod\ 2417}#)
+ (#{analyze-variable\ 239}#
+ #{mod\ 2417}#
+ #{var\ 2415}#
+ (lambda (#{mod\ 2422}# #{var\ 2423}# #{public?\ 2424}#)
+ (#{make-module-set\ 184}#
+ #{source\ 2414}#
+ #{mod\ 2422}#
+ #{var\ 2423}#
+ #{public?\ 2424}#
+ #{exp\ 2416}#))
+ (lambda (#{var\ 2428}#)
+ (#{make-toplevel-set\ 188}#
+ #{source\ 2414}#
+ #{var\ 2428}#
+ #{exp\ 2416}#)))))
+ (#{build-global-reference\ 241}#
+ (lambda (#{source\ 2430}# #{var\ 2431}# #{mod\ 2432}#)
+ (#{analyze-variable\ 239}#
+ #{mod\ 2432}#
+ #{var\ 2431}#
+ (lambda (#{mod\ 2436}# #{var\ 2437}# #{public?\ 2438}#)
+ (#{make-module-ref\ 182}#
+ #{source\ 2430}#
+ #{mod\ 2436}#
+ #{var\ 2437}#
+ #{public?\ 2438}#))
+ (lambda (#{var\ 2442}#)
+ (#{make-toplevel-ref\ 186}#
+ #{source\ 2430}#
+ #{var\ 2442}#)))))
+ (#{analyze-variable\ 239}#
+ (lambda (#{mod\ 2444}#
+ #{var\ 2445}#
+ #{modref-cont\ 2446}#
+ #{bare-cont\ 2447}#)
+ (if (not #{mod\ 2444}#)
+ (#{bare-cont\ 2447}# #{var\ 2445}#)
+ (let ((#{kind\ 2454}# (car #{mod\ 2444}#))
+ (#{mod\ 2455}# (cdr #{mod\ 2444}#)))
+ (if (memv #{kind\ 2454}# (quote (public)))
+ (#{modref-cont\ 2446}#
+ #{mod\ 2455}#
+ #{var\ 2445}#
#t)
- (if (memv #{kind\ 4500}# (quote (private)))
+ (if (memv #{kind\ 2454}# (quote (private)))
(if (not (equal?
- #{mod\ 4501}#
+ #{mod\ 2455}#
(module-name (current-module))))
- (#{modref-cont\ 4492}#
- #{mod\ 4501}#
- #{var\ 4491}#
+ (#{modref-cont\ 2446}#
+ #{mod\ 2455}#
+ #{var\ 2445}#
#f)
- (#{bare-cont\ 4493}# #{var\ 4491}#))
- (if (memv #{kind\ 4500}# (quote (bare)))
- (#{bare-cont\ 4493}# #{var\ 4491}#)
- (if (memv #{kind\ 4500}# (quote (hygiene)))
+ (#{bare-cont\ 2447}# #{var\ 2445}#))
+ (if (memv #{kind\ 2454}# (quote (bare)))
+ (#{bare-cont\ 2447}# #{var\ 2445}#)
+ (if (memv #{kind\ 2454}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 4501}#
+ #{mod\ 2455}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 4501}#)
- #{var\ 4491}#)
+ (resolve-module #{mod\ 2455}#)
+ #{var\ 2445}#)
#f)
- (#{modref-cont\ 4492}#
- #{mod\ 4501}#
- #{var\ 4491}#
+ (#{modref-cont\ 2446}#
+ #{mod\ 2455}#
+ #{var\ 2445}#
#f)
- (#{bare-cont\ 4493}# #{var\ 4491}#))
+ (#{bare-cont\ 2447}# #{var\ 2445}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 4491}#
- #{mod\ 4501}#)))))))))
- (#{build-lexical-assignment\ 2283}#
- (lambda (#{source\ 4509}#
- #{name\ 4510}#
- #{var\ 4511}#
- #{exp\ 4512}#)
- (#{make-lexical-set\ 2226}#
- #{source\ 4509}#
- #{name\ 4510}#
- #{var\ 4511}#
- #{exp\ 4512}#)))
- (#{build-lexical-reference\ 2281}#
- (lambda (#{type\ 4517}#
- #{source\ 4518}#
- #{name\ 4519}#
- #{var\ 4520}#)
- (#{make-lexical-ref\ 2224}#
- #{source\ 4518}#
- #{name\ 4519}#
- #{var\ 4520}#)))
- (#{build-dynlet\ 2279}#
- (lambda (#{source\ 4525}#
- #{fluids\ 4526}#
- #{vals\ 4527}#
- #{body\ 4528}#)
- (#{make-dynlet\ 2252}#
- #{source\ 4525}#
- #{fluids\ 4526}#
- #{vals\ 4527}#
- #{body\ 4528}#)))
- (#{build-conditional\ 2277}#
- (lambda (#{source\ 4533}#
- #{test-exp\ 4534}#
- #{then-exp\ 4535}#
- #{else-exp\ 4536}#)
- (#{make-conditional\ 2238}#
- #{source\ 4533}#
- #{test-exp\ 4534}#
- #{then-exp\ 4535}#
- #{else-exp\ 4536}#)))
- (#{build-application\ 2275}#
- (lambda (#{source\ 4541}#
- #{fun-exp\ 4542}#
- #{arg-exps\ 4543}#)
- (#{make-application\ 2240}#
- #{source\ 4541}#
- #{fun-exp\ 4542}#
- #{arg-exps\ 4543}#)))
- (#{build-void\ 2273}#
- (lambda (#{source\ 4547}#)
- (#{make-void\ 2218}# #{source\ 4547}#)))
- (#{decorate-source\ 2271}#
- (lambda (#{e\ 4549}# #{s\ 4550}#)
+ #{var\ 2445}#
+ #{mod\ 2455}#)))))))))
+ (#{build-lexical-assignment\ 237}#
+ (lambda (#{source\ 2463}#
+ #{name\ 2464}#
+ #{var\ 2465}#
+ #{exp\ 2466}#)
+ (#{make-lexical-set\ 180}#
+ #{source\ 2463}#
+ #{name\ 2464}#
+ #{var\ 2465}#
+ #{exp\ 2466}#)))
+ (#{build-lexical-reference\ 235}#
+ (lambda (#{type\ 2471}#
+ #{source\ 2472}#
+ #{name\ 2473}#
+ #{var\ 2474}#)
+ (#{make-lexical-ref\ 178}#
+ #{source\ 2472}#
+ #{name\ 2473}#
+ #{var\ 2474}#)))
+ (#{build-dynlet\ 233}#
+ (lambda (#{source\ 2479}#
+ #{fluids\ 2480}#
+ #{vals\ 2481}#
+ #{body\ 2482}#)
+ (#{make-dynlet\ 206}#
+ #{source\ 2479}#
+ #{fluids\ 2480}#
+ #{vals\ 2481}#
+ #{body\ 2482}#)))
+ (#{build-conditional\ 231}#
+ (lambda (#{source\ 2487}#
+ #{test-exp\ 2488}#
+ #{then-exp\ 2489}#
+ #{else-exp\ 2490}#)
+ (#{make-conditional\ 192}#
+ #{source\ 2487}#
+ #{test-exp\ 2488}#
+ #{then-exp\ 2489}#
+ #{else-exp\ 2490}#)))
+ (#{build-application\ 229}#
+ (lambda (#{source\ 2495}#
+ #{fun-exp\ 2496}#
+ #{arg-exps\ 2497}#)
+ (#{make-application\ 194}#
+ #{source\ 2495}#
+ #{fun-exp\ 2496}#
+ #{arg-exps\ 2497}#)))
+ (#{build-void\ 227}#
+ (lambda (#{source\ 2501}#)
+ (#{make-void\ 172}# #{source\ 2501}#)))
+ (#{decorate-source\ 225}#
+ (lambda (#{e\ 2503}# #{s\ 2504}#)
(begin
- (if (if (pair? #{e\ 4549}#) #{s\ 4550}# #f)
- (set-source-properties! #{e\ 4549}# #{s\ 4550}#))
- #{e\ 4549}#)))
- (#{get-global-definition-hook\ 2269}#
- (lambda (#{symbol\ 4555}# #{module\ 4556}#)
+ (if (if (pair? #{e\ 2503}#) #{s\ 2504}# #f)
+ (set-source-properties! #{e\ 2503}# #{s\ 2504}#))
+ #{e\ 2503}#)))
+ (#{get-global-definition-hook\ 223}#
+ (lambda (#{symbol\ 2509}# #{module\ 2510}#)
(begin
- (if (if (not #{module\ 4556}#) (current-module) #f)
+ (if (if (not #{module\ 2510}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 4555}#))
- (let ((#{v\ 4562}#
+ #{symbol\ 2509}#))
+ (let ((#{v\ 2516}#
(module-variable
- (if #{module\ 4556}#
- (resolve-module (cdr #{module\ 4556}#))
+ (if #{module\ 2510}#
+ (resolve-module (cdr #{module\ 2510}#))
(current-module))
- #{symbol\ 4555}#)))
- (if #{v\ 4562}#
- (if (variable-bound? #{v\ 4562}#)
- (let ((#{val\ 4567}# (variable-ref #{v\ 4562}#)))
- (if (macro? #{val\ 4567}#)
- (if (macro-type #{val\ 4567}#)
- (cons (macro-type #{val\ 4567}#)
- (macro-binding #{val\ 4567}#))
+ #{symbol\ 2509}#)))
+ (if #{v\ 2516}#
+ (if (variable-bound? #{v\ 2516}#)
+ (let ((#{val\ 2521}# (variable-ref #{v\ 2516}#)))
+ (if (macro? #{val\ 2521}#)
+ (if (macro-type #{val\ 2521}#)
+ (cons (macro-type #{val\ 2521}#)
+ (macro-binding #{val\ 2521}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 2267}#
- (lambda (#{symbol\ 4571}# #{type\ 4572}# #{val\ 4573}#)
+ (#{put-global-definition-hook\ 221}#
+ (lambda (#{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#)
(module-define!
(current-module)
- #{symbol\ 4571}#
+ #{symbol\ 2525}#
(make-syntax-transformer
- #{symbol\ 4571}#
- #{type\ 4572}#
- #{val\ 4573}#))))
- (#{local-eval-hook\ 2264}#
- (lambda (#{x\ 4577}# #{mod\ 4578}#)
- (primitive-eval #{x\ 4577}#)))
- (#{top-level-eval-hook\ 2262}#
- (lambda (#{x\ 4581}# #{mod\ 4582}#)
- (primitive-eval #{x\ 4581}#)))
- (#{fx<\ 2260}# <)
- (#{fx=\ 2258}# =)
- (#{fx-\ 2256}# -)
- (#{fx+\ 2254}# +)
- (#{make-dynlet\ 2252}#
- (lambda (#{src\ 4585}#
- #{fluids\ 4586}#
- #{vals\ 4587}#
- #{body\ 4588}#)
+ #{symbol\ 2525}#
+ #{type\ 2526}#
+ #{val\ 2527}#))))
+ (#{local-eval-hook\ 218}#
+ (lambda (#{x\ 2531}# #{mod\ 2532}#)
+ (primitive-eval #{x\ 2531}#)))
+ (#{top-level-eval-hook\ 216}#
+ (lambda (#{x\ 2535}# #{mod\ 2536}#)
+ (primitive-eval #{x\ 2535}#)))
+ (#{fx<\ 214}# <)
+ (#{fx=\ 212}# =)
+ (#{fx-\ 210}# -)
+ (#{fx+\ 208}# +)
+ (#{make-dynlet\ 206}#
+ (lambda (#{src\ 2539}#
+ #{fluids\ 2540}#
+ #{vals\ 2541}#
+ #{body\ 2542}#)
(make-struct
(vector-ref %expanded-vtables 17)
0
- #{src\ 4585}#
- #{fluids\ 4586}#
- #{vals\ 4587}#
- #{body\ 4588}#)))
- (#{make-letrec\ 2250}#
- (lambda (#{src\ 4593}#
- #{names\ 4594}#
- #{gensyms\ 4595}#
- #{vals\ 4596}#
- #{body\ 4597}#)
+ #{src\ 2539}#
+ #{fluids\ 2540}#
+ #{vals\ 2541}#
+ #{body\ 2542}#)))
+ (#{make-letrec\ 204}#
+ (lambda (#{src\ 2547}#
+ #{names\ 2548}#
+ #{gensyms\ 2549}#
+ #{vals\ 2550}#
+ #{body\ 2551}#)
(make-struct
(vector-ref %expanded-vtables 16)
0
- #{src\ 4593}#
- #{names\ 4594}#
- #{gensyms\ 4595}#
- #{vals\ 4596}#
- #{body\ 4597}#)))
- (#{make-let\ 2248}#
- (lambda (#{src\ 4603}#
- #{names\ 4604}#
- #{gensyms\ 4605}#
- #{vals\ 4606}#
- #{body\ 4607}#)
+ #{src\ 2547}#
+ #{names\ 2548}#
+ #{gensyms\ 2549}#
+ #{vals\ 2550}#
+ #{body\ 2551}#)))
+ (#{make-let\ 202}#
+ (lambda (#{src\ 2557}#
+ #{names\ 2558}#
+ #{gensyms\ 2559}#
+ #{vals\ 2560}#
+ #{body\ 2561}#)
(make-struct
(vector-ref %expanded-vtables 15)
0
- #{src\ 4603}#
- #{names\ 4604}#
- #{gensyms\ 4605}#
- #{vals\ 4606}#
- #{body\ 4607}#)))
- (#{make-lambda-case\ 2246}#
- (lambda (#{src\ 4613}#
- #{req\ 4614}#
- #{opt\ 4615}#
- #{rest\ 4616}#
- #{kw\ 4617}#
- #{inits\ 4618}#
- #{gensyms\ 4619}#
- #{body\ 4620}#
- #{alternate\ 4621}#)
+ #{src\ 2557}#
+ #{names\ 2558}#
+ #{gensyms\ 2559}#
+ #{vals\ 2560}#
+ #{body\ 2561}#)))
+ (#{make-lambda-case\ 200}#
+ (lambda (#{src\ 2567}#
+ #{req\ 2568}#
+ #{opt\ 2569}#
+ #{rest\ 2570}#
+ #{kw\ 2571}#
+ #{inits\ 2572}#
+ #{gensyms\ 2573}#
+ #{body\ 2574}#
+ #{alternate\ 2575}#)
(make-struct
(vector-ref %expanded-vtables 14)
0
- #{src\ 4613}#
- #{req\ 4614}#
- #{opt\ 4615}#
- #{rest\ 4616}#
- #{kw\ 4617}#
- #{inits\ 4618}#
- #{gensyms\ 4619}#
- #{body\ 4620}#
- #{alternate\ 4621}#)))
- (#{make-lambda\ 2244}#
- (lambda (#{src\ 4631}# #{meta\ 4632}# #{body\ 4633}#)
+ #{src\ 2567}#
+ #{req\ 2568}#
+ #{opt\ 2569}#
+ #{rest\ 2570}#
+ #{kw\ 2571}#
+ #{inits\ 2572}#
+ #{gensyms\ 2573}#
+ #{body\ 2574}#
+ #{alternate\ 2575}#)))
+ (#{make-lambda\ 198}#
+ (lambda (#{src\ 2585}# #{meta\ 2586}# #{body\ 2587}#)
(make-struct
(vector-ref %expanded-vtables 13)
0
- #{src\ 4631}#
- #{meta\ 4632}#
- #{body\ 4633}#)))
- (#{make-sequence\ 2242}#
- (lambda (#{src\ 4637}# #{exps\ 4638}#)
+ #{src\ 2585}#
+ #{meta\ 2586}#
+ #{body\ 2587}#)))
+ (#{make-sequence\ 196}#
+ (lambda (#{src\ 2591}# #{exps\ 2592}#)
(make-struct
(vector-ref %expanded-vtables 12)
0
- #{src\ 4637}#
- #{exps\ 4638}#)))
- (#{make-application\ 2240}#
- (lambda (#{src\ 4641}# #{proc\ 4642}# #{args\ 4643}#)
+ #{src\ 2591}#
+ #{exps\ 2592}#)))
+ (#{make-application\ 194}#
+ (lambda (#{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#)
(make-struct
(vector-ref %expanded-vtables 11)
0
- #{src\ 4641}#
- #{proc\ 4642}#
- #{args\ 4643}#)))
- (#{make-conditional\ 2238}#
- (lambda (#{src\ 4647}#
- #{test\ 4648}#
- #{consequent\ 4649}#
- #{alternate\ 4650}#)
+ #{src\ 2595}#
+ #{proc\ 2596}#
+ #{args\ 2597}#)))
+ (#{make-conditional\ 192}#
+ (lambda (#{src\ 2601}#
+ #{test\ 2602}#
+ #{consequent\ 2603}#
+ #{alternate\ 2604}#)
(make-struct
(vector-ref %expanded-vtables 10)
0
- #{src\ 4647}#
- #{test\ 4648}#
- #{consequent\ 4649}#
- #{alternate\ 4650}#)))
- (#{make-toplevel-define\ 2236}#
- (lambda (#{src\ 4655}# #{name\ 4656}# #{exp\ 4657}#)
+ #{src\ 2601}#
+ #{test\ 2602}#
+ #{consequent\ 2603}#
+ #{alternate\ 2604}#)))
+ (#{make-toplevel-define\ 190}#
+ (lambda (#{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#)
(make-struct
(vector-ref %expanded-vtables 9)
0
- #{src\ 4655}#
- #{name\ 4656}#
- #{exp\ 4657}#)))
- (#{make-toplevel-set\ 2234}#
- (lambda (#{src\ 4661}# #{name\ 4662}# #{exp\ 4663}#)
+ #{src\ 2609}#
+ #{name\ 2610}#
+ #{exp\ 2611}#)))
+ (#{make-toplevel-set\ 188}#
+ (lambda (#{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#)
(make-struct
(vector-ref %expanded-vtables 8)
0
- #{src\ 4661}#
- #{name\ 4662}#
- #{exp\ 4663}#)))
- (#{make-toplevel-ref\ 2232}#
- (lambda (#{src\ 4667}# #{name\ 4668}#)
+ #{src\ 2615}#
+ #{name\ 2616}#
+ #{exp\ 2617}#)))
+ (#{make-toplevel-ref\ 186}#
+ (lambda (#{src\ 2621}# #{name\ 2622}#)
(make-struct
(vector-ref %expanded-vtables 7)
0
- #{src\ 4667}#
- #{name\ 4668}#)))
- (#{make-module-set\ 2230}#
- (lambda (#{src\ 4671}#
- #{mod\ 4672}#
- #{name\ 4673}#
- #{public?\ 4674}#
- #{exp\ 4675}#)
+ #{src\ 2621}#
+ #{name\ 2622}#)))
+ (#{make-module-set\ 184}#
+ (lambda (#{src\ 2625}#
+ #{mod\ 2626}#
+ #{name\ 2627}#
+ #{public?\ 2628}#
+ #{exp\ 2629}#)
(make-struct
(vector-ref %expanded-vtables 6)
0
- #{src\ 4671}#
- #{mod\ 4672}#
- #{name\ 4673}#
- #{public?\ 4674}#
- #{exp\ 4675}#)))
- (#{make-module-ref\ 2228}#
- (lambda (#{src\ 4681}#
- #{mod\ 4682}#
- #{name\ 4683}#
- #{public?\ 4684}#)
+ #{src\ 2625}#
+ #{mod\ 2626}#
+ #{name\ 2627}#
+ #{public?\ 2628}#
+ #{exp\ 2629}#)))
+ (#{make-module-ref\ 182}#
+ (lambda (#{src\ 2635}#
+ #{mod\ 2636}#
+ #{name\ 2637}#
+ #{public?\ 2638}#)
(make-struct
(vector-ref %expanded-vtables 5)
0
- #{src\ 4681}#
- #{mod\ 4682}#
- #{name\ 4683}#
- #{public?\ 4684}#)))
- (#{make-lexical-set\ 2226}#
- (lambda (#{src\ 4689}#
- #{name\ 4690}#
- #{gensym\ 4691}#
- #{exp\ 4692}#)
+ #{src\ 2635}#
+ #{mod\ 2636}#
+ #{name\ 2637}#
+ #{public?\ 2638}#)))
+ (#{make-lexical-set\ 180}#
+ (lambda (#{src\ 2643}#
+ #{name\ 2644}#
+ #{gensym\ 2645}#
+ #{exp\ 2646}#)
(make-struct
(vector-ref %expanded-vtables 4)
0
- #{src\ 4689}#
- #{name\ 4690}#
- #{gensym\ 4691}#
- #{exp\ 4692}#)))
- (#{make-lexical-ref\ 2224}#
- (lambda (#{src\ 4697}# #{name\ 4698}# #{gensym\ 4699}#)
+ #{src\ 2643}#
+ #{name\ 2644}#
+ #{gensym\ 2645}#
+ #{exp\ 2646}#)))
+ (#{make-lexical-ref\ 178}#
+ (lambda (#{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#)
(make-struct
(vector-ref %expanded-vtables 3)
0
- #{src\ 4697}#
- #{name\ 4698}#
- #{gensym\ 4699}#)))
- (#{make-primitive-ref\ 2222}#
- (lambda (#{src\ 4703}# #{name\ 4704}#)
+ #{src\ 2651}#
+ #{name\ 2652}#
+ #{gensym\ 2653}#)))
+ (#{make-primitive-ref\ 176}#
+ (lambda (#{src\ 2657}# #{name\ 2658}#)
(make-struct
(vector-ref %expanded-vtables 2)
0
- #{src\ 4703}#
- #{name\ 4704}#)))
- (#{make-const\ 2220}#
- (lambda (#{src\ 4707}# #{exp\ 4708}#)
+ #{src\ 2657}#
+ #{name\ 2658}#)))
+ (#{make-const\ 174}#
+ (lambda (#{src\ 2661}# #{exp\ 2662}#)
(make-struct
(vector-ref %expanded-vtables 1)
0
- #{src\ 4707}#
- #{exp\ 4708}#)))
- (#{make-void\ 2218}#
- (lambda (#{src\ 4711}#)
+ #{src\ 2661}#
+ #{exp\ 2662}#)))
+ (#{make-void\ 172}#
+ (lambda (#{src\ 2665}#)
(make-struct
(vector-ref %expanded-vtables 0)
0
- #{src\ 4711}#)))
- (#{*mode*\ 2215}# (make-fluid)))
+ #{src\ 2665}#))))
(begin
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'core
'fluid-let-syntax
- (lambda (#{e\ 4713}#
- #{r\ 4714}#
- #{w\ 4715}#
- #{s\ 4716}#
- #{mod\ 4717}#)
- ((lambda (#{tmp\ 4723}#)
- ((lambda (#{tmp\ 4724}#)
- (if (if #{tmp\ 4724}#
- (apply (lambda (#{_\ 4730}#
- #{var\ 4731}#
- #{val\ 4732}#
- #{e1\ 4733}#
- #{e2\ 4734}#)
- (#{valid-bound-ids?\ 2416}# #{var\ 4731}#))
- #{tmp\ 4724}#)
+ (lambda (#{e\ 2667}#
+ #{r\ 2668}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)
+ ((lambda (#{tmp\ 2677}#)
+ ((lambda (#{tmp\ 2678}#)
+ (if (if #{tmp\ 2678}#
+ (apply (lambda (#{_\ 2684}#
+ #{var\ 2685}#
+ #{val\ 2686}#
+ #{e1\ 2687}#
+ #{e2\ 2688}#)
+ (#{valid-bound-ids?\ 370}# #{var\ 2685}#))
+ #{tmp\ 2678}#)
#f)
- (apply (lambda (#{_\ 4741}#
- #{var\ 4742}#
- #{val\ 4743}#
- #{e1\ 4744}#
- #{e2\ 4745}#)
- (let ((#{names\ 4747}#
- (map (lambda (#{x\ 4748}#)
- (#{id-var-name\ 2410}#
- #{x\ 4748}#
- #{w\ 4715}#))
- #{var\ 4742}#)))
+ (apply (lambda (#{_\ 2695}#
+ #{var\ 2696}#
+ #{val\ 2697}#
+ #{e1\ 2698}#
+ #{e2\ 2699}#)
+ (let ((#{names\ 2701}#
+ (map (lambda (#{x\ 2702}#)
+ (#{id-var-name\ 364}#
+ #{x\ 2702}#
+ #{w\ 2669}#))
+ #{var\ 2696}#)))
(begin
(for-each
- (lambda (#{id\ 4751}# #{n\ 4752}#)
- (let ((#{atom-key\ 4757}#
- (#{binding-type\ 2336}#
- (#{lookup\ 2347}#
- #{n\ 4752}#
- #{r\ 4714}#
- #{mod\ 4717}#))))
- (if (memv #{atom-key\ 4757}#
+ (lambda (#{id\ 2705}# #{n\ 2706}#)
+ (let ((#{atom-key\ 2711}#
+ (#{binding-type\ 290}#
+ (#{lookup\ 301}#
+ #{n\ 2706}#
+ #{r\ 2668}#
+ #{mod\ 2671}#))))
+ (if (memv #{atom-key\ 2711}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 4713}#
- (#{source-wrap\ 2424}#
- #{id\ 4751}#
- #{w\ 4715}#
- #{s\ 4716}#
- #{mod\ 4717}#)))))
- #{var\ 4742}#
- #{names\ 4747}#)
- (#{chi-body\ 2446}#
- (cons #{e1\ 4744}# #{e2\ 4745}#)
- (#{source-wrap\ 2424}#
- #{e\ 4713}#
- #{w\ 4715}#
- #{s\ 4716}#
- #{mod\ 4717}#)
- (#{extend-env\ 2341}#
- #{names\ 4747}#
- (let ((#{trans-r\ 4762}#
- (#{macros-only-env\ 2345}#
- #{r\ 4714}#)))
- (map (lambda (#{x\ 4763}#)
+ #{e\ 2667}#
+ (#{source-wrap\ 378}#
+ #{id\ 2705}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)))))
+ #{var\ 2696}#
+ #{names\ 2701}#)
+ (#{chi-body\ 400}#
+ (cons #{e1\ 2698}# #{e2\ 2699}#)
+ (#{source-wrap\ 378}#
+ #{e\ 2667}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)
+ (#{extend-env\ 295}#
+ #{names\ 2701}#
+ (let ((#{trans-r\ 2716}#
+ (#{macros-only-env\ 299}#
+ #{r\ 2668}#)))
+ (map (lambda (#{x\ 2717}#)
(cons 'macro
- (#{eval-local-transformer\ 2450}#
- (#{chi\ 2438}#
- #{x\ 4763}#
- #{trans-r\ 4762}#
- #{w\ 4715}#
- #{mod\ 4717}#)
- #{mod\ 4717}#)))
- #{val\ 4743}#))
- #{r\ 4714}#)
- #{w\ 4715}#
- #{mod\ 4717}#))))
- #{tmp\ 4724}#)
- ((lambda (#{_\ 4768}#)
+ (#{eval-local-transformer\ 404}#
+ (#{chi\ 392}#
+ #{x\ 2717}#
+ #{trans-r\ 2716}#
+ #{w\ 2669}#
+ #{mod\ 2671}#)
+ #{mod\ 2671}#)))
+ #{val\ 2697}#))
+ #{r\ 2668}#)
+ #{w\ 2669}#
+ #{mod\ 2671}#))))
+ #{tmp\ 2678}#)
+ ((lambda (#{_\ 2722}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 2424}#
- #{e\ 4713}#
- #{w\ 4715}#
- #{s\ 4716}#
- #{mod\ 4717}#)))
- #{tmp\ 4723}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 2667}#
+ #{w\ 2669}#
+ #{s\ 2670}#
+ #{mod\ 2671}#)))
+ #{tmp\ 2677}#)))
($sc-dispatch
- #{tmp\ 4723}#
+ #{tmp\ 2677}#
'(any #(each (any any)) any . each-any))))
- #{e\ 4713}#)))
- (#{global-extend\ 2349}#
+ #{e\ 2667}#)))
+ (#{global-extend\ 303}#
'core
'quote
- (lambda (#{e\ 4769}#
- #{r\ 4770}#
- #{w\ 4771}#
- #{s\ 4772}#
- #{mod\ 4773}#)
- ((lambda (#{tmp\ 4779}#)
- ((lambda (#{tmp\ 4780}#)
- (if #{tmp\ 4780}#
- (apply (lambda (#{_\ 4783}# #{e\ 4784}#)
- (#{build-data\ 2303}#
- #{s\ 4772}#
- (#{strip\ 2464}# #{e\ 4784}# #{w\ 4771}#)))
- #{tmp\ 4780}#)
- ((lambda (#{_\ 4786}#)
+ (lambda (#{e\ 2723}#
+ #{r\ 2724}#
+ #{w\ 2725}#
+ #{s\ 2726}#
+ #{mod\ 2727}#)
+ ((lambda (#{tmp\ 2733}#)
+ ((lambda (#{tmp\ 2734}#)
+ (if #{tmp\ 2734}#
+ (apply (lambda (#{_\ 2737}# #{e\ 2738}#)
+ (#{build-data\ 257}#
+ #{s\ 2726}#
+ (#{strip\ 418}# #{e\ 2738}# #{w\ 2725}#)))
+ #{tmp\ 2734}#)
+ ((lambda (#{_\ 2740}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 2424}#
- #{e\ 4769}#
- #{w\ 4771}#
- #{s\ 4772}#
- #{mod\ 4773}#)))
- #{tmp\ 4779}#)))
- ($sc-dispatch #{tmp\ 4779}# (quote (any any)))))
- #{e\ 4769}#)))
- (#{global-extend\ 2349}#
+ (#{source-wrap\ 378}#
+ #{e\ 2723}#
+ #{w\ 2725}#
+ #{s\ 2726}#
+ #{mod\ 2727}#)))
+ #{tmp\ 2733}#)))
+ ($sc-dispatch #{tmp\ 2733}# (quote (any any)))))
+ #{e\ 2723}#)))
+ (#{global-extend\ 303}#
'core
'syntax
- (letrec ((#{regen\ 4802}#
- (lambda (#{x\ 4803}#)
- (let ((#{atom-key\ 4807}# (car #{x\ 4803}#)))
- (if (memv #{atom-key\ 4807}# (quote (ref)))
- (#{build-lexical-reference\ 2281}#
+ (letrec ((#{regen\ 2756}#
+ (lambda (#{x\ 2757}#)
+ (let ((#{atom-key\ 2761}# (car #{x\ 2757}#)))
+ (if (memv #{atom-key\ 2761}# (quote (ref)))
+ (#{build-lexical-reference\ 235}#
'value
#f
- (cadr #{x\ 4803}#)
- (cadr #{x\ 4803}#))
- (if (memv #{atom-key\ 4807}# (quote (primitive)))
- (#{build-primref\ 2301}# #f (cadr #{x\ 4803}#))
- (if (memv #{atom-key\ 4807}# (quote (quote)))
- (#{build-data\ 2303}# #f (cadr #{x\ 4803}#))
- (if (memv #{atom-key\ 4807}# (quote (lambda)))
- (if (list? (cadr #{x\ 4803}#))
- (#{build-simple-lambda\ 2295}#
+ (cadr #{x\ 2757}#)
+ (cadr #{x\ 2757}#))
+ (if (memv #{atom-key\ 2761}# (quote (primitive)))
+ (#{build-primref\ 255}# #f (cadr #{x\ 2757}#))
+ (if (memv #{atom-key\ 2761}# (quote (quote)))
+ (#{build-data\ 257}# #f (cadr #{x\ 2757}#))
+ (if (memv #{atom-key\ 2761}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2757}#))
+ (#{build-simple-lambda\ 249}#
#f
- (cadr #{x\ 4803}#)
+ (cadr #{x\ 2757}#)
#f
- (cadr #{x\ 4803}#)
+ (cadr #{x\ 2757}#)
'()
- (#{regen\ 4802}# (caddr #{x\ 4803}#)))
- (error "how did we get here" #{x\ 4803}#))
- (#{build-application\ 2275}#
+ (#{regen\ 2756}# (caddr #{x\ 2757}#)))
+ (error "how did we get here" #{x\ 2757}#))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}# #f (car #{x\ 4803}#))
- (map #{regen\ 4802}#
- (cdr #{x\ 4803}#))))))))))
- (#{gen-vector\ 4800}#
- (lambda (#{x\ 4819}#)
- (if (eq? (car #{x\ 4819}#) (quote list))
- (cons (quote vector) (cdr #{x\ 4819}#))
- (if (eq? (car #{x\ 4819}#) (quote quote))
+ (#{build-primref\ 255}# #f (car #{x\ 2757}#))
+ (map #{regen\ 2756}#
+ (cdr #{x\ 2757}#))))))))))
+ (#{gen-vector\ 2754}#
+ (lambda (#{x\ 2773}#)
+ (if (eq? (car #{x\ 2773}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2773}#))
+ (if (eq? (car #{x\ 2773}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 4819}#)))
- (list (quote list->vector) #{x\ 4819}#)))))
- (#{gen-append\ 4798}#
- (lambda (#{x\ 4829}# #{y\ 4830}#)
- (if (equal? #{y\ 4830}# (quote (quote ())))
- #{x\ 4829}#
- (list (quote append) #{x\ 4829}# #{y\ 4830}#))))
- (#{gen-cons\ 4796}#
- (lambda (#{x\ 4834}# #{y\ 4835}#)
- (let ((#{atom-key\ 4840}# (car #{y\ 4835}#)))
- (if (memv #{atom-key\ 4840}# (quote (quote)))
- (if (eq? (car #{x\ 4834}#) (quote quote))
+ (list->vector (cadr #{x\ 2773}#)))
+ (list (quote list->vector) #{x\ 2773}#)))))
+ (#{gen-append\ 2752}#
+ (lambda (#{x\ 2783}# #{y\ 2784}#)
+ (if (equal? #{y\ 2784}# (quote (quote ())))
+ #{x\ 2783}#
+ (list (quote append) #{x\ 2783}# #{y\ 2784}#))))
+ (#{gen-cons\ 2750}#
+ (lambda (#{x\ 2788}# #{y\ 2789}#)
+ (let ((#{atom-key\ 2794}# (car #{y\ 2789}#)))
+ (if (memv #{atom-key\ 2794}# (quote (quote)))
+ (if (eq? (car #{x\ 2788}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 4834}#) (cadr #{y\ 4835}#)))
- (if (eq? (cadr #{y\ 4835}#) (quote ()))
- (list (quote list) #{x\ 4834}#)
- (list (quote cons) #{x\ 4834}# #{y\ 4835}#)))
- (if (memv #{atom-key\ 4840}# (quote (list)))
+ (cons (cadr #{x\ 2788}#) (cadr #{y\ 2789}#)))
+ (if (eq? (cadr #{y\ 2789}#) (quote ()))
+ (list (quote list) #{x\ 2788}#)
+ (list (quote cons) #{x\ 2788}# #{y\ 2789}#)))
+ (if (memv #{atom-key\ 2794}# (quote (list)))
(cons 'list
- (cons #{x\ 4834}# (cdr #{y\ 4835}#)))
- (list (quote cons) #{x\ 4834}# #{y\ 4835}#))))))
- (#{gen-map\ 4794}#
- (lambda (#{e\ 4849}# #{map-env\ 4850}#)
- (let ((#{formals\ 4855}# (map cdr #{map-env\ 4850}#))
- (#{actuals\ 4856}#
- (map (lambda (#{x\ 4857}#)
- (list (quote ref) (car #{x\ 4857}#)))
- #{map-env\ 4850}#)))
- (if (eq? (car #{e\ 4849}#) (quote ref))
- (car #{actuals\ 4856}#)
+ (cons #{x\ 2788}# (cdr #{y\ 2789}#)))
+ (list (quote cons) #{x\ 2788}# #{y\ 2789}#))))))
+ (#{gen-map\ 2748}#
+ (lambda (#{e\ 2803}# #{map-env\ 2804}#)
+ (let ((#{formals\ 2809}# (map cdr #{map-env\ 2804}#))
+ (#{actuals\ 2810}#
+ (map (lambda (#{x\ 2811}#)
+ (list (quote ref) (car #{x\ 2811}#)))
+ #{map-env\ 2804}#)))
+ (if (eq? (car #{e\ 2803}#) (quote ref))
+ (car #{actuals\ 2810}#)
(if (and-map
- (lambda (#{x\ 4864}#)
- (if (eq? (car #{x\ 4864}#) (quote ref))
- (memq (cadr #{x\ 4864}#) #{formals\ 4855}#)
+ (lambda (#{x\ 2818}#)
+ (if (eq? (car #{x\ 2818}#) (quote ref))
+ (memq (cadr #{x\ 2818}#) #{formals\ 2809}#)
#f))
- (cdr #{e\ 4849}#))
+ (cdr #{e\ 2803}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 4849}#))
- (map (let ((#{r\ 4870}#
+ (car #{e\ 2803}#))
+ (map (let ((#{r\ 2824}#
(map cons
- #{formals\ 4855}#
- #{actuals\ 4856}#)))
- (lambda (#{x\ 4871}#)
- (cdr (assq (cadr #{x\ 4871}#)
- #{r\ 4870}#))))
- (cdr #{e\ 4849}#))))
+ #{formals\ 2809}#
+ #{actuals\ 2810}#)))
+ (lambda (#{x\ 2825}#)
+ (cdr (assq (cadr #{x\ 2825}#)
+ #{r\ 2824}#))))
+ (cdr #{e\ 2803}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 4855}#
- #{e\ 4849}#)
- #{actuals\ 4856}#)))))))
- (#{gen-mappend\ 4792}#
- (lambda (#{e\ 4875}# #{map-env\ 4876}#)
+ #{formals\ 2809}#
+ #{e\ 2803}#)
+ #{actuals\ 2810}#)))))))
+ (#{gen-mappend\ 2746}#
+ (lambda (#{e\ 2829}# #{map-env\ 2830}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 4794}# #{e\ 4875}# #{map-env\ 4876}#))))
- (#{gen-ref\ 4790}#
- (lambda (#{src\ 4880}#
- #{var\ 4881}#
- #{level\ 4882}#
- #{maps\ 4883}#)
- (if (#{fx=\ 2258}# #{level\ 4882}# 0)
- (values #{var\ 4881}# #{maps\ 4883}#)
- (if (null? #{maps\ 4883}#)
+ (#{gen-map\ 2748}# #{e\ 2829}# #{map-env\ 2830}#))))
+ (#{gen-ref\ 2744}#
+ (lambda (#{src\ 2834}#
+ #{var\ 2835}#
+ #{level\ 2836}#
+ #{maps\ 2837}#)
+ (if (#{fx=\ 212}# #{level\ 2836}# 0)
+ (values #{var\ 2835}# #{maps\ 2837}#)
+ (if (null? #{maps\ 2837}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 4880}#)
+ #{src\ 2834}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 4790}#
- #{src\ 4880}#
- #{var\ 4881}#
- (#{fx-\ 2256}# #{level\ 4882}# 1)
- (cdr #{maps\ 4883}#)))
- (lambda (#{outer-var\ 4888}# #{outer-maps\ 4889}#)
- (let ((#{b\ 4893}#
- (assq #{outer-var\ 4888}#
- (car #{maps\ 4883}#))))
- (if #{b\ 4893}#
- (values (cdr #{b\ 4893}#) #{maps\ 4883}#)
- (let ((#{inner-var\ 4895}#
- (#{gen-var\ 2466}# (quote tmp))))
+ (#{gen-ref\ 2744}#
+ #{src\ 2834}#
+ #{var\ 2835}#
+ (#{fx-\ 210}# #{level\ 2836}# 1)
+ (cdr #{maps\ 2837}#)))
+ (lambda (#{outer-var\ 2842}# #{outer-maps\ 2843}#)
+ (let ((#{b\ 2847}#
+ (assq #{outer-var\ 2842}#
+ (car #{maps\ 2837}#))))
+ (if #{b\ 2847}#
+ (values (cdr #{b\ 2847}#) #{maps\ 2837}#)
+ (let ((#{inner-var\ 2849}#
+ (#{gen-var\ 420}# (quote tmp))))
(values
- #{inner-var\ 4895}#
- (cons (cons (cons #{outer-var\ 4888}#
- #{inner-var\ 4895}#)
- (car #{maps\ 4883}#))
- #{outer-maps\ 4889}#)))))))))))
- (#{gen-syntax\ 4788}#
- (lambda (#{src\ 4896}#
- #{e\ 4897}#
- #{r\ 4898}#
- #{maps\ 4899}#
- #{ellipsis?\ 4900}#
- #{mod\ 4901}#)
- (if (#{id?\ 2353}# #{e\ 4897}#)
- (let ((#{label\ 4909}#
- (#{id-var-name\ 2410}#
- #{e\ 4897}#
+ #{inner-var\ 2849}#
+ (cons (cons (cons #{outer-var\ 2842}#
+ #{inner-var\ 2849}#)
+ (car #{maps\ 2837}#))
+ #{outer-maps\ 2843}#)))))))))))
+ (#{gen-syntax\ 2742}#
+ (lambda (#{src\ 2850}#
+ #{e\ 2851}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#)
+ (if (#{id?\ 307}# #{e\ 2851}#)
+ (let ((#{label\ 2863}#
+ (#{id-var-name\ 364}#
+ #{e\ 2851}#
'(()))))
- (let ((#{b\ 4912}#
- (#{lookup\ 2347}#
- #{label\ 4909}#
- #{r\ 4898}#
- #{mod\ 4901}#)))
- (if (eq? (#{binding-type\ 2336}# #{b\ 4912}#)
+ (let ((#{b\ 2866}#
+ (#{lookup\ 301}#
+ #{label\ 2863}#
+ #{r\ 2852}#
+ #{mod\ 2855}#)))
+ (if (eq? (#{binding-type\ 290}# #{b\ 2866}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 4914}#
- (#{binding-value\ 2338}#
- #{b\ 4912}#)))
- (#{gen-ref\ 4790}#
- #{src\ 4896}#
- (car #{var.lev\ 4914}#)
- (cdr #{var.lev\ 4914}#)
- #{maps\ 4899}#)))
- (lambda (#{var\ 4915}# #{maps\ 4916}#)
+ (let ((#{var.lev\ 2868}#
+ (#{binding-value\ 292}# #{b\ 2866}#)))
+ (#{gen-ref\ 2744}#
+ #{src\ 2850}#
+ (car #{var.lev\ 2868}#)
+ (cdr #{var.lev\ 2868}#)
+ #{maps\ 2853}#)))
+ (lambda (#{var\ 2869}# #{maps\ 2870}#)
(values
- (list (quote ref) #{var\ 4915}#)
- #{maps\ 4916}#)))
- (if (#{ellipsis?\ 4900}# #{e\ 4897}#)
+ (list (quote ref) #{var\ 2869}#)
+ #{maps\ 2870}#)))
+ (if (#{ellipsis?\ 2854}# #{e\ 2851}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 4896}#)
+ #{src\ 2850}#)
(values
- (list (quote quote) #{e\ 4897}#)
- #{maps\ 4899}#)))))
- ((lambda (#{tmp\ 4921}#)
- ((lambda (#{tmp\ 4922}#)
- (if (if #{tmp\ 4922}#
- (apply (lambda (#{dots\ 4925}# #{e\ 4926}#)
- (#{ellipsis?\ 4900}#
- #{dots\ 4925}#))
- #{tmp\ 4922}#)
+ (list (quote quote) #{e\ 2851}#)
+ #{maps\ 2853}#)))))
+ ((lambda (#{tmp\ 2875}#)
+ ((lambda (#{tmp\ 2876}#)
+ (if (if #{tmp\ 2876}#
+ (apply (lambda (#{dots\ 2879}# #{e\ 2880}#)
+ (#{ellipsis?\ 2854}#
+ #{dots\ 2879}#))
+ #{tmp\ 2876}#)
#f)
- (apply (lambda (#{dots\ 4929}# #{e\ 4930}#)
- (#{gen-syntax\ 4788}#
- #{src\ 4896}#
- #{e\ 4930}#
- #{r\ 4898}#
- #{maps\ 4899}#
- (lambda (#{x\ 4931}#) #f)
- #{mod\ 4901}#))
- #{tmp\ 4922}#)
- ((lambda (#{tmp\ 4933}#)
- (if (if #{tmp\ 4933}#
- (apply (lambda (#{x\ 4937}#
- #{dots\ 4938}#
- #{y\ 4939}#)
- (#{ellipsis?\ 4900}#
- #{dots\ 4938}#))
- #{tmp\ 4933}#)
+ (apply (lambda (#{dots\ 2883}# #{e\ 2884}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{e\ 2884}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ (lambda (#{x\ 2885}#) #f)
+ #{mod\ 2855}#))
+ #{tmp\ 2876}#)
+ ((lambda (#{tmp\ 2887}#)
+ (if (if #{tmp\ 2887}#
+ (apply (lambda (#{x\ 2891}#
+ #{dots\ 2892}#
+ #{y\ 2893}#)
+ (#{ellipsis?\ 2854}#
+ #{dots\ 2892}#))
+ #{tmp\ 2887}#)
#f)
- (apply (lambda (#{x\ 4943}#
- #{dots\ 4944}#
- #{y\ 4945}#)
- (letrec ((#{f\ 4949}#
- (lambda (#{y\ 4950}#
- #{k\ 4951}#)
- ((lambda (#{tmp\ 4958}#)
- ((lambda (#{tmp\ 4959}#)
- (if (if #{tmp\ 4959}#
- (apply (lambda (#{dots\ 4962}#
- #{y\ 4963}#)
- (#{ellipsis?\ 4900}#
- #{dots\ 4962}#))
- #{tmp\ 4959}#)
+ (apply (lambda (#{x\ 2897}#
+ #{dots\ 2898}#
+ #{y\ 2899}#)
+ (letrec ((#{f\ 2903}#
+ (lambda (#{y\ 2904}#
+ #{k\ 2905}#)
+ ((lambda (#{tmp\ 2912}#)
+ ((lambda (#{tmp\ 2913}#)
+ (if (if #{tmp\ 2913}#
+ (apply (lambda (#{dots\ 2916}#
+ #{y\ 2917}#)
+ (#{ellipsis?\ 2854}#
+ #{dots\ 2916}#))
+ #{tmp\ 2913}#)
#f)
- (apply (lambda (#{dots\ 4966}#
- #{y\ 4967}#)
- (#{f\ 4949}#
- #{y\ 4967}#
- (lambda (#{maps\ 4968}#)
+ (apply (lambda (#{dots\ 2920}#
+ #{y\ 2921}#)
+ (#{f\ 2903}#
+ #{y\ 2921}#
+ (lambda (#{maps\ 2922}#)
(call-with-values
(lambda ()
- (#{k\ 4951}#
+ (#{k\ 2905}#
(cons '()
- #{maps\ 4968}#)))
- (lambda (#{x\ 4970}#
- #{maps\ 4971}#)
- (if (null? (car #{maps\ 4971}#))
+ #{maps\ 2922}#)))
+ (lambda (#{x\ 2924}#
+ #{maps\ 2925}#)
+ (if (null? (car #{maps\ 2925}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 4896}#)
+ #{src\ 2850}#)
(values
- (#{gen-mappend\ 4792}#
- #{x\ 4970}#
- (car #{maps\ 4971}#))
- (cdr #{maps\ 4971}#))))))))
- #{tmp\ 4959}#)
- ((lambda (#{_\ 4975}#)
+ (#{gen-mappend\ 2746}#
+ #{x\ 2924}#
+ (car #{maps\ 2925}#))
+ (cdr #{maps\ 2925}#))))))))
+ #{tmp\ 2913}#)
+ ((lambda (#{_\ 2929}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4788}#
- #{src\ 4896}#
- #{y\ 4950}#
- #{r\ 4898}#
- #{maps\ 4899}#
- #{ellipsis?\ 4900}#
- #{mod\ 4901}#))
- (lambda (#{y\ 4976}#
- #{maps\ 4977}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{y\ 2904}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{y\ 2930}#
+ #{maps\ 2931}#)
(call-with-values
(lambda ()
- (#{k\ 4951}#
- #{maps\ 4977}#))
- (lambda (#{x\ 4980}#
- #{maps\ 4981}#)
+ (#{k\ 2905}#
+ #{maps\ 2931}#))
+ (lambda (#{x\ 2934}#
+ #{maps\ 2935}#)
(values
- (#{gen-append\ 4798}#
- #{x\ 4980}#
- #{y\ 4976}#)
- #{maps\ 4981}#))))))
- #{tmp\ 4958}#)))
+ (#{gen-append\ 2752}#
+ #{x\ 2934}#
+ #{y\ 2930}#)
+ #{maps\ 2935}#))))))
+ #{tmp\ 2912}#)))
($sc-dispatch
- #{tmp\ 4958}#
+ #{tmp\ 2912}#
'(any . any))))
- #{y\ 4950}#))))
- (#{f\ 4949}#
- #{y\ 4945}#
- (lambda (#{maps\ 4952}#)
+ #{y\ 2904}#))))
+ (#{f\ 2903}#
+ #{y\ 2899}#
+ (lambda (#{maps\ 2906}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4788}#
- #{src\ 4896}#
- #{x\ 4943}#
- #{r\ 4898}#
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{x\ 2897}#
+ #{r\ 2852}#
(cons '()
- #{maps\ 4952}#)
- #{ellipsis?\ 4900}#
- #{mod\ 4901}#))
- (lambda (#{x\ 4954}#
- #{maps\ 4955}#)
- (if (null? (car #{maps\ 4955}#))
+ #{maps\ 2906}#)
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{x\ 2908}#
+ #{maps\ 2909}#)
+ (if (null? (car #{maps\ 2909}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 4896}#)
+ #{src\ 2850}#)
(values
- (#{gen-map\ 4794}#
- #{x\ 4954}#
- (car #{maps\ 4955}#))
- (cdr #{maps\ 4955}#)))))))))
- #{tmp\ 4933}#)
- ((lambda (#{tmp\ 4984}#)
- (if #{tmp\ 4984}#
- (apply (lambda (#{x\ 4987}#
- #{y\ 4988}#)
+ (#{gen-map\ 2748}#
+ #{x\ 2908}#
+ (car #{maps\ 2909}#))
+ (cdr #{maps\ 2909}#)))))))))
+ #{tmp\ 2887}#)
+ ((lambda (#{tmp\ 2938}#)
+ (if #{tmp\ 2938}#
+ (apply (lambda (#{x\ 2941}#
+ #{y\ 2942}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4788}#
- #{src\ 4896}#
- #{x\ 4987}#
- #{r\ 4898}#
- #{maps\ 4899}#
- #{ellipsis?\ 4900}#
- #{mod\ 4901}#))
- (lambda (#{x\ 4989}#
- #{maps\ 4990}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{x\ 2941}#
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{x\ 2943}#
+ #{maps\ 2944}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4788}#
- #{src\ 4896}#
- #{y\ 4988}#
- #{r\ 4898}#
- #{maps\ 4990}#
- #{ellipsis?\ 4900}#
- #{mod\ 4901}#))
- (lambda (#{y\ 4993}#
- #{maps\ 4994}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ #{y\ 2942}#
+ #{r\ 2852}#
+ #{maps\ 2944}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{y\ 2947}#
+ #{maps\ 2948}#)
(values
- (#{gen-cons\ 4796}#
- #{x\ 4989}#
- #{y\ 4993}#)
- #{maps\ 4994}#))))))
- #{tmp\ 4984}#)
- ((lambda (#{tmp\ 4997}#)
- (if #{tmp\ 4997}#
- (apply (lambda (#{e1\ 5000}#
- #{e2\ 5001}#)
+ (#{gen-cons\ 2750}#
+ #{x\ 2943}#
+ #{y\ 2947}#)
+ #{maps\ 2948}#))))))
+ #{tmp\ 2938}#)
+ ((lambda (#{tmp\ 2951}#)
+ (if #{tmp\ 2951}#
+ (apply (lambda (#{e1\ 2954}#
+ #{e2\ 2955}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4788}#
- #{src\ 4896}#
- (cons #{e1\ 5000}#
- #{e2\ 5001}#)
- #{r\ 4898}#
- #{maps\ 4899}#
- #{ellipsis?\ 4900}#
- #{mod\ 4901}#))
- (lambda (#{e\ 5003}#
- #{maps\ 5004}#)
+ (#{gen-syntax\ 2742}#
+ #{src\ 2850}#
+ (cons #{e1\ 2954}#
+ #{e2\ 2955}#)
+ #{r\ 2852}#
+ #{maps\ 2853}#
+ #{ellipsis?\ 2854}#
+ #{mod\ 2855}#))
+ (lambda (#{e\ 2957}#
+ #{maps\ 2958}#)
(values
- (#{gen-vector\ 4800}#
- #{e\ 5003}#)
- #{maps\ 5004}#))))
- #{tmp\ 4997}#)
- ((lambda (#{_\ 5008}#)
+ (#{gen-vector\ 2754}#
+ #{e\ 2957}#)
+ #{maps\ 2958}#))))
+ #{tmp\ 2951}#)
+ ((lambda (#{_\ 2962}#)
(values
(list 'quote
- #{e\ 4897}#)
- #{maps\ 4899}#))
- #{tmp\ 4921}#)))
+ #{e\ 2851}#)
+ #{maps\ 2853}#))
+ #{tmp\ 2875}#)))
($sc-dispatch
- #{tmp\ 4921}#
+ #{tmp\ 2875}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 4921}#
+ #{tmp\ 2875}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4921}#
+ #{tmp\ 2875}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 4921}# (quote (any any)))))
- #{e\ 4897}#)))))
- (lambda (#{e\ 5010}#
- #{r\ 5011}#
- #{w\ 5012}#
- #{s\ 5013}#
- #{mod\ 5014}#)
- (let ((#{e\ 5021}#
- (#{source-wrap\ 2424}#
- #{e\ 5010}#
- #{w\ 5012}#
- #{s\ 5013}#
- #{mod\ 5014}#)))
- ((lambda (#{tmp\ 5022}#)
- ((lambda (#{tmp\ 5023}#)
- (if #{tmp\ 5023}#
- (apply (lambda (#{_\ 5026}# #{x\ 5027}#)
+ ($sc-dispatch #{tmp\ 2875}# (quote (any any)))))
+ #{e\ 2851}#)))))
+ (lambda (#{e\ 2964}#
+ #{r\ 2965}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#)
+ (let ((#{e\ 2975}#
+ (#{source-wrap\ 378}#
+ #{e\ 2964}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#)))
+ ((lambda (#{tmp\ 2976}#)
+ ((lambda (#{tmp\ 2977}#)
+ (if #{tmp\ 2977}#
+ (apply (lambda (#{_\ 2980}# #{x\ 2981}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4788}#
- #{e\ 5021}#
- #{x\ 5027}#
- #{r\ 5011}#
+ (#{gen-syntax\ 2742}#
+ #{e\ 2975}#
+ #{x\ 2981}#
+ #{r\ 2965}#
'()
- #{ellipsis?\ 2454}#
- #{mod\ 5014}#))
- (lambda (#{e\ 5028}# #{maps\ 5029}#)
- (#{regen\ 4802}# #{e\ 5028}#))))
- #{tmp\ 5023}#)
- ((lambda (#{_\ 5033}#)
+ #{ellipsis?\ 408}#
+ #{mod\ 2968}#))
+ (lambda (#{e\ 2982}# #{maps\ 2983}#)
+ (#{regen\ 2756}# #{e\ 2982}#))))
+ #{tmp\ 2977}#)
+ ((lambda (#{_\ 2987}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 5021}#))
- #{tmp\ 5022}#)))
- ($sc-dispatch #{tmp\ 5022}# (quote (any any)))))
- #{e\ 5021}#)))))
- (#{global-extend\ 2349}#
+ #{e\ 2975}#))
+ #{tmp\ 2976}#)))
+ ($sc-dispatch #{tmp\ 2976}# (quote (any any)))))
+ #{e\ 2975}#)))))
+ (#{global-extend\ 303}#
'core
'lambda
- (lambda (#{e\ 5034}#
- #{r\ 5035}#
- #{w\ 5036}#
- #{s\ 5037}#
- #{mod\ 5038}#)
- ((lambda (#{tmp\ 5044}#)
- ((lambda (#{tmp\ 5045}#)
- (if #{tmp\ 5045}#
- (apply (lambda (#{_\ 5050}#
- #{args\ 5051}#
- #{e1\ 5052}#
- #{e2\ 5053}#)
+ (lambda (#{e\ 2988}#
+ #{r\ 2989}#
+ #{w\ 2990}#
+ #{s\ 2991}#
+ #{mod\ 2992}#)
+ ((lambda (#{tmp\ 2998}#)
+ ((lambda (#{tmp\ 2999}#)
+ (if #{tmp\ 2999}#
+ (apply (lambda (#{_\ 3004}#
+ #{args\ 3005}#
+ #{e1\ 3006}#
+ #{e2\ 3007}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 2456}# #{args\ 5051}#))
- (lambda (#{req\ 5054}#
- #{opt\ 5055}#
- #{rest\ 5056}#
- #{kw\ 5057}#)
- (letrec ((#{lp\ 5065}#
- (lambda (#{body\ 5066}#
- #{meta\ 5067}#)
- ((lambda (#{tmp\ 5069}#)
- ((lambda (#{tmp\ 5070}#)
- (if (if #{tmp\ 5070}#
- (apply (lambda (#{docstring\ 5074}#
- #{e1\ 5075}#
- #{e2\ 5076}#)
+ (#{lambda-formals\ 410}# #{args\ 3005}#))
+ (lambda (#{req\ 3008}#
+ #{opt\ 3009}#
+ #{rest\ 3010}#
+ #{kw\ 3011}#)
+ (letrec ((#{lp\ 3019}#
+ (lambda (#{body\ 3020}#
+ #{meta\ 3021}#)
+ ((lambda (#{tmp\ 3023}#)
+ ((lambda (#{tmp\ 3024}#)
+ (if (if #{tmp\ 3024}#
+ (apply (lambda (#{docstring\ 3028}#
+ #{e1\ 3029}#
+ #{e2\ 3030}#)
(string?
(syntax->datum
- #{docstring\ 5074}#)))
- #{tmp\ 5070}#)
+ #{docstring\ 3028}#)))
+ #{tmp\ 3024}#)
#f)
- (apply (lambda (#{docstring\ 5080}#
- #{e1\ 5081}#
- #{e2\ 5082}#)
- (#{lp\ 5065}#
- (cons #{e1\ 5081}#
- #{e2\ 5082}#)
+ (apply (lambda (#{docstring\ 3034}#
+ #{e1\ 3035}#
+ #{e2\ 3036}#)
+ (#{lp\ 3019}#
+ (cons #{e1\ 3035}#
+ #{e2\ 3036}#)
(append
- #{meta\ 5067}#
+ #{meta\ 3021}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 5080}#))))))
- #{tmp\ 5070}#)
- ((lambda (#{tmp\ 5085}#)
- (if #{tmp\ 5085}#
- (apply (lambda (#{k\ 5090}#
- #{v\ 5091}#
- #{e1\ 5092}#
- #{e2\ 5093}#)
- (#{lp\ 5065}#
- (cons #{e1\ 5092}#
- #{e2\ 5093}#)
+ #{docstring\ 3034}#))))))
+ #{tmp\ 3024}#)
+ ((lambda (#{tmp\ 3039}#)
+ (if #{tmp\ 3039}#
+ (apply (lambda (#{k\ 3044}#
+ #{v\ 3045}#
+ #{e1\ 3046}#
+ #{e2\ 3047}#)
+ (#{lp\ 3019}#
+ (cons #{e1\ 3046}#
+ #{e2\ 3047}#)
(append
- #{meta\ 5067}#
+ #{meta\ 3021}#
(syntax->datum
(map cons
- #{k\ 5090}#
- #{v\ 5091}#)))))
- #{tmp\ 5085}#)
- ((lambda (#{_\ 5098}#)
- (#{chi-simple-lambda\ 2458}#
- #{e\ 5034}#
- #{r\ 5035}#
- #{w\ 5036}#
- #{s\ 5037}#
- #{mod\ 5038}#
- #{req\ 5054}#
- #{rest\ 5056}#
- #{meta\ 5067}#
- #{body\ 5066}#))
- #{tmp\ 5069}#)))
+ #{k\ 3044}#
+ #{v\ 3045}#)))))
+ #{tmp\ 3039}#)
+ ((lambda (#{_\ 3052}#)
+ (#{chi-simple-lambda\ 412}#
+ #{e\ 2988}#
+ #{r\ 2989}#
+ #{w\ 2990}#
+ #{s\ 2991}#
+ #{mod\ 2992}#
+ #{req\ 3008}#
+ #{rest\ 3010}#
+ #{meta\ 3021}#
+ #{body\ 3020}#))
+ #{tmp\ 3023}#)))
($sc-dispatch
- #{tmp\ 5069}#
+ #{tmp\ 3023}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 5069}#
+ #{tmp\ 3023}#
'(any any . each-any))))
- #{body\ 5066}#))))
- (#{lp\ 5065}#
- (cons #{e1\ 5052}# #{e2\ 5053}#)
+ #{body\ 3020}#))))
+ (#{lp\ 3019}#
+ (cons #{e1\ 3006}# #{e2\ 3007}#)
'())))))
- #{tmp\ 5045}#)
- ((lambda (#{_\ 5100}#)
+ #{tmp\ 2999}#)
+ ((lambda (#{_\ 3054}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 5034}#))
- #{tmp\ 5044}#)))
+ #{e\ 2988}#))
+ #{tmp\ 2998}#)))
($sc-dispatch
- #{tmp\ 5044}#
+ #{tmp\ 2998}#
'(any any any . each-any))))
- #{e\ 5034}#)))
- (#{global-extend\ 2349}#
+ #{e\ 2988}#)))
+ (#{global-extend\ 303}#
'core
'lambda*
- (lambda (#{e\ 5101}#
- #{r\ 5102}#
- #{w\ 5103}#
- #{s\ 5104}#
- #{mod\ 5105}#)
- ((lambda (#{tmp\ 5111}#)
- ((lambda (#{tmp\ 5112}#)
- (if #{tmp\ 5112}#
- (apply (lambda (#{_\ 5117}#
- #{args\ 5118}#
- #{e1\ 5119}#
- #{e2\ 5120}#)
+ (lambda (#{e\ 3055}#
+ #{r\ 3056}#
+ #{w\ 3057}#
+ #{s\ 3058}#
+ #{mod\ 3059}#)
+ ((lambda (#{tmp\ 3065}#)
+ ((lambda (#{tmp\ 3066}#)
+ (if #{tmp\ 3066}#
+ (apply (lambda (#{_\ 3071}#
+ #{args\ 3072}#
+ #{e1\ 3073}#
+ #{e2\ 3074}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2462}#
- #{e\ 5101}#
- #{r\ 5102}#
- #{w\ 5103}#
- #{s\ 5104}#
- #{mod\ 5105}#
- #{lambda*-formals\ 2460}#
- (list (cons #{args\ 5118}#
- (cons #{e1\ 5119}#
- #{e2\ 5120}#)))))
- (lambda (#{meta\ 5122}# #{lcase\ 5123}#)
- (#{build-case-lambda\ 2297}#
- #{s\ 5104}#
- #{meta\ 5122}#
- #{lcase\ 5123}#))))
- #{tmp\ 5112}#)
- ((lambda (#{_\ 5127}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 3055}#
+ #{r\ 3056}#
+ #{w\ 3057}#
+ #{s\ 3058}#
+ #{mod\ 3059}#
+ #{lambda*-formals\ 414}#
+ (list (cons #{args\ 3072}#
+ (cons #{e1\ 3073}#
+ #{e2\ 3074}#)))))
+ (lambda (#{meta\ 3076}# #{lcase\ 3077}#)
+ (#{build-case-lambda\ 251}#
+ #{s\ 3058}#
+ #{meta\ 3076}#
+ #{lcase\ 3077}#))))
+ #{tmp\ 3066}#)
+ ((lambda (#{_\ 3081}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 5101}#))
- #{tmp\ 5111}#)))
+ #{e\ 3055}#))
+ #{tmp\ 3065}#)))
($sc-dispatch
- #{tmp\ 5111}#
+ #{tmp\ 3065}#
'(any any any . each-any))))
- #{e\ 5101}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3055}#)))
+ (#{global-extend\ 303}#
'core
'case-lambda
- (lambda (#{e\ 5128}#
- #{r\ 5129}#
- #{w\ 5130}#
- #{s\ 5131}#
- #{mod\ 5132}#)
- ((lambda (#{tmp\ 5138}#)
- ((lambda (#{tmp\ 5139}#)
- (if #{tmp\ 5139}#
- (apply (lambda (#{_\ 5147}#
- #{args\ 5148}#
- #{e1\ 5149}#
- #{e2\ 5150}#
- #{args*\ 5151}#
- #{e1*\ 5152}#
- #{e2*\ 5153}#)
+ (lambda (#{e\ 3082}#
+ #{r\ 3083}#
+ #{w\ 3084}#
+ #{s\ 3085}#
+ #{mod\ 3086}#)
+ ((lambda (#{tmp\ 3092}#)
+ ((lambda (#{tmp\ 3093}#)
+ (if #{tmp\ 3093}#
+ (apply (lambda (#{_\ 3101}#
+ #{args\ 3102}#
+ #{e1\ 3103}#
+ #{e2\ 3104}#
+ #{args*\ 3105}#
+ #{e1*\ 3106}#
+ #{e2*\ 3107}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2462}#
- #{e\ 5128}#
- #{r\ 5129}#
- #{w\ 5130}#
- #{s\ 5131}#
- #{mod\ 5132}#
- #{lambda-formals\ 2456}#
- (cons (cons #{args\ 5148}#
- (cons #{e1\ 5149}# #{e2\ 5150}#))
- (map (lambda (#{tmp\ 5157}#
- #{tmp\ 5156}#
- #{tmp\ 5155}#)
- (cons #{tmp\ 5155}#
- (cons #{tmp\ 5156}#
- #{tmp\ 5157}#)))
- #{e2*\ 5153}#
- #{e1*\ 5152}#
- #{args*\ 5151}#))))
- (lambda (#{meta\ 5159}# #{lcase\ 5160}#)
- (#{build-case-lambda\ 2297}#
- #{s\ 5131}#
- #{meta\ 5159}#
- #{lcase\ 5160}#))))
- #{tmp\ 5139}#)
- ((lambda (#{_\ 5164}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 3082}#
+ #{r\ 3083}#
+ #{w\ 3084}#
+ #{s\ 3085}#
+ #{mod\ 3086}#
+ #{lambda-formals\ 410}#
+ (cons (cons #{args\ 3102}#
+ (cons #{e1\ 3103}# #{e2\ 3104}#))
+ (map (lambda (#{tmp\ 3111}#
+ #{tmp\ 3110}#
+ #{tmp\ 3109}#)
+ (cons #{tmp\ 3109}#
+ (cons #{tmp\ 3110}#
+ #{tmp\ 3111}#)))
+ #{e2*\ 3107}#
+ #{e1*\ 3106}#
+ #{args*\ 3105}#))))
+ (lambda (#{meta\ 3113}# #{lcase\ 3114}#)
+ (#{build-case-lambda\ 251}#
+ #{s\ 3085}#
+ #{meta\ 3113}#
+ #{lcase\ 3114}#))))
+ #{tmp\ 3093}#)
+ ((lambda (#{_\ 3118}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 5128}#))
- #{tmp\ 5138}#)))
+ #{e\ 3082}#))
+ #{tmp\ 3092}#)))
($sc-dispatch
- #{tmp\ 5138}#
+ #{tmp\ 3092}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 5128}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3082}#)))
+ (#{global-extend\ 303}#
'core
'case-lambda*
- (lambda (#{e\ 5165}#
- #{r\ 5166}#
- #{w\ 5167}#
- #{s\ 5168}#
- #{mod\ 5169}#)
- ((lambda (#{tmp\ 5175}#)
- ((lambda (#{tmp\ 5176}#)
- (if #{tmp\ 5176}#
- (apply (lambda (#{_\ 5184}#
- #{args\ 5185}#
- #{e1\ 5186}#
- #{e2\ 5187}#
- #{args*\ 5188}#
- #{e1*\ 5189}#
- #{e2*\ 5190}#)
+ (lambda (#{e\ 3119}#
+ #{r\ 3120}#
+ #{w\ 3121}#
+ #{s\ 3122}#
+ #{mod\ 3123}#)
+ ((lambda (#{tmp\ 3129}#)
+ ((lambda (#{tmp\ 3130}#)
+ (if #{tmp\ 3130}#
+ (apply (lambda (#{_\ 3138}#
+ #{args\ 3139}#
+ #{e1\ 3140}#
+ #{e2\ 3141}#
+ #{args*\ 3142}#
+ #{e1*\ 3143}#
+ #{e2*\ 3144}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2462}#
- #{e\ 5165}#
- #{r\ 5166}#
- #{w\ 5167}#
- #{s\ 5168}#
- #{mod\ 5169}#
- #{lambda*-formals\ 2460}#
- (cons (cons #{args\ 5185}#
- (cons #{e1\ 5186}# #{e2\ 5187}#))
- (map (lambda (#{tmp\ 5194}#
- #{tmp\ 5193}#
- #{tmp\ 5192}#)
- (cons #{tmp\ 5192}#
- (cons #{tmp\ 5193}#
- #{tmp\ 5194}#)))
- #{e2*\ 5190}#
- #{e1*\ 5189}#
- #{args*\ 5188}#))))
- (lambda (#{meta\ 5196}# #{lcase\ 5197}#)
- (#{build-case-lambda\ 2297}#
- #{s\ 5168}#
- #{meta\ 5196}#
- #{lcase\ 5197}#))))
- #{tmp\ 5176}#)
- ((lambda (#{_\ 5201}#)
+ (#{chi-lambda-case\ 416}#
+ #{e\ 3119}#
+ #{r\ 3120}#
+ #{w\ 3121}#
+ #{s\ 3122}#
+ #{mod\ 3123}#
+ #{lambda*-formals\ 414}#
+ (cons (cons #{args\ 3139}#
+ (cons #{e1\ 3140}# #{e2\ 3141}#))
+ (map (lambda (#{tmp\ 3148}#
+ #{tmp\ 3147}#
+ #{tmp\ 3146}#)
+ (cons #{tmp\ 3146}#
+ (cons #{tmp\ 3147}#
+ #{tmp\ 3148}#)))
+ #{e2*\ 3144}#
+ #{e1*\ 3143}#
+ #{args*\ 3142}#))))
+ (lambda (#{meta\ 3150}# #{lcase\ 3151}#)
+ (#{build-case-lambda\ 251}#
+ #{s\ 3122}#
+ #{meta\ 3150}#
+ #{lcase\ 3151}#))))
+ #{tmp\ 3130}#)
+ ((lambda (#{_\ 3155}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 5165}#))
- #{tmp\ 5175}#)))
+ #{e\ 3119}#))
+ #{tmp\ 3129}#)))
($sc-dispatch
- #{tmp\ 5175}#
+ #{tmp\ 3129}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 5165}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3119}#)))
+ (#{global-extend\ 303}#
'core
'let
- (letrec ((#{chi-let\ 5203}#
- (lambda (#{e\ 5204}#
- #{r\ 5205}#
- #{w\ 5206}#
- #{s\ 5207}#
- #{mod\ 5208}#
- #{constructor\ 5209}#
- #{ids\ 5210}#
- #{vals\ 5211}#
- #{exps\ 5212}#)
- (if (not (#{valid-bound-ids?\ 2416}# #{ids\ 5210}#))
+ (letrec ((#{chi-let\ 3157}#
+ (lambda (#{e\ 3158}#
+ #{r\ 3159}#
+ #{w\ 3160}#
+ #{s\ 3161}#
+ #{mod\ 3162}#
+ #{constructor\ 3163}#
+ #{ids\ 3164}#
+ #{vals\ 3165}#
+ #{exps\ 3166}#)
+ (if (not (#{valid-bound-ids?\ 370}# #{ids\ 3164}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 5204}#)
- (let ((#{labels\ 5224}#
- (#{gen-labels\ 2371}# #{ids\ 5210}#))
- (#{new-vars\ 5225}#
- (map #{gen-var\ 2466}# #{ids\ 5210}#)))
- (let ((#{nw\ 5228}#
- (#{make-binding-wrap\ 2400}#
- #{ids\ 5210}#
- #{labels\ 5224}#
- #{w\ 5206}#))
- (#{nr\ 5229}#
- (#{extend-var-env\ 2343}#
- #{labels\ 5224}#
- #{new-vars\ 5225}#
- #{r\ 5205}#)))
- (#{constructor\ 5209}#
- #{s\ 5207}#
- (map syntax->datum #{ids\ 5210}#)
- #{new-vars\ 5225}#
- (map (lambda (#{x\ 5230}#)
- (#{chi\ 2438}#
- #{x\ 5230}#
- #{r\ 5205}#
- #{w\ 5206}#
- #{mod\ 5208}#))
- #{vals\ 5211}#)
- (#{chi-body\ 2446}#
- #{exps\ 5212}#
- (#{source-wrap\ 2424}#
- #{e\ 5204}#
- #{nw\ 5228}#
- #{s\ 5207}#
- #{mod\ 5208}#)
- #{nr\ 5229}#
- #{nw\ 5228}#
- #{mod\ 5208}#))))))))
- (lambda (#{e\ 5232}#
- #{r\ 5233}#
- #{w\ 5234}#
- #{s\ 5235}#
- #{mod\ 5236}#)
- ((lambda (#{tmp\ 5242}#)
- ((lambda (#{tmp\ 5243}#)
- (if (if #{tmp\ 5243}#
- (apply (lambda (#{_\ 5249}#
- #{id\ 5250}#
- #{val\ 5251}#
- #{e1\ 5252}#
- #{e2\ 5253}#)
- (and-map #{id?\ 2353}# #{id\ 5250}#))
- #{tmp\ 5243}#)
+ #{e\ 3158}#)
+ (let ((#{labels\ 3178}#
+ (#{gen-labels\ 325}# #{ids\ 3164}#))
+ (#{new-vars\ 3179}#
+ (map #{gen-var\ 420}# #{ids\ 3164}#)))
+ (let ((#{nw\ 3182}#
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 3164}#
+ #{labels\ 3178}#
+ #{w\ 3160}#))
+ (#{nr\ 3183}#
+ (#{extend-var-env\ 297}#
+ #{labels\ 3178}#
+ #{new-vars\ 3179}#
+ #{r\ 3159}#)))
+ (#{constructor\ 3163}#
+ #{s\ 3161}#
+ (map syntax->datum #{ids\ 3164}#)
+ #{new-vars\ 3179}#
+ (map (lambda (#{x\ 3184}#)
+ (#{chi\ 392}#
+ #{x\ 3184}#
+ #{r\ 3159}#
+ #{w\ 3160}#
+ #{mod\ 3162}#))
+ #{vals\ 3165}#)
+ (#{chi-body\ 400}#
+ #{exps\ 3166}#
+ (#{source-wrap\ 378}#
+ #{e\ 3158}#
+ #{nw\ 3182}#
+ #{s\ 3161}#
+ #{mod\ 3162}#)
+ #{nr\ 3183}#
+ #{nw\ 3182}#
+ #{mod\ 3162}#))))))))
+ (lambda (#{e\ 3186}#
+ #{r\ 3187}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#)
+ ((lambda (#{tmp\ 3196}#)
+ ((lambda (#{tmp\ 3197}#)
+ (if (if #{tmp\ 3197}#
+ (apply (lambda (#{_\ 3203}#
+ #{id\ 3204}#
+ #{val\ 3205}#
+ #{e1\ 3206}#
+ #{e2\ 3207}#)
+ (and-map #{id?\ 307}# #{id\ 3204}#))
+ #{tmp\ 3197}#)
#f)
- (apply (lambda (#{_\ 5260}#
- #{id\ 5261}#
- #{val\ 5262}#
- #{e1\ 5263}#
- #{e2\ 5264}#)
- (#{chi-let\ 5203}#
- #{e\ 5232}#
- #{r\ 5233}#
- #{w\ 5234}#
- #{s\ 5235}#
- #{mod\ 5236}#
- #{build-let\ 2307}#
- #{id\ 5261}#
- #{val\ 5262}#
- (cons #{e1\ 5263}# #{e2\ 5264}#)))
- #{tmp\ 5243}#)
- ((lambda (#{tmp\ 5268}#)
- (if (if #{tmp\ 5268}#
- (apply (lambda (#{_\ 5275}#
- #{f\ 5276}#
- #{id\ 5277}#
- #{val\ 5278}#
- #{e1\ 5279}#
- #{e2\ 5280}#)
- (if (#{id?\ 2353}# #{f\ 5276}#)
- (and-map #{id?\ 2353}# #{id\ 5277}#)
+ (apply (lambda (#{_\ 3214}#
+ #{id\ 3215}#
+ #{val\ 3216}#
+ #{e1\ 3217}#
+ #{e2\ 3218}#)
+ (#{chi-let\ 3157}#
+ #{e\ 3186}#
+ #{r\ 3187}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#
+ #{build-let\ 261}#
+ #{id\ 3215}#
+ #{val\ 3216}#
+ (cons #{e1\ 3217}# #{e2\ 3218}#)))
+ #{tmp\ 3197}#)
+ ((lambda (#{tmp\ 3222}#)
+ (if (if #{tmp\ 3222}#
+ (apply (lambda (#{_\ 3229}#
+ #{f\ 3230}#
+ #{id\ 3231}#
+ #{val\ 3232}#
+ #{e1\ 3233}#
+ #{e2\ 3234}#)
+ (if (#{id?\ 307}# #{f\ 3230}#)
+ (and-map #{id?\ 307}# #{id\ 3231}#)
#f))
- #{tmp\ 5268}#)
+ #{tmp\ 3222}#)
#f)
- (apply (lambda (#{_\ 5290}#
- #{f\ 5291}#
- #{id\ 5292}#
- #{val\ 5293}#
- #{e1\ 5294}#
- #{e2\ 5295}#)
- (#{chi-let\ 5203}#
- #{e\ 5232}#
- #{r\ 5233}#
- #{w\ 5234}#
- #{s\ 5235}#
- #{mod\ 5236}#
- #{build-named-let\ 2309}#
- (cons #{f\ 5291}# #{id\ 5292}#)
- #{val\ 5293}#
- (cons #{e1\ 5294}# #{e2\ 5295}#)))
- #{tmp\ 5268}#)
- ((lambda (#{_\ 5300}#)
+ (apply (lambda (#{_\ 3244}#
+ #{f\ 3245}#
+ #{id\ 3246}#
+ #{val\ 3247}#
+ #{e1\ 3248}#
+ #{e2\ 3249}#)
+ (#{chi-let\ 3157}#
+ #{e\ 3186}#
+ #{r\ 3187}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#
+ #{build-named-let\ 263}#
+ (cons #{f\ 3245}# #{id\ 3246}#)
+ #{val\ 3247}#
+ (cons #{e1\ 3248}# #{e2\ 3249}#)))
+ #{tmp\ 3222}#)
+ ((lambda (#{_\ 3254}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 2424}#
- #{e\ 5232}#
- #{w\ 5234}#
- #{s\ 5235}#
- #{mod\ 5236}#)))
- #{tmp\ 5242}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 3186}#
+ #{w\ 3188}#
+ #{s\ 3189}#
+ #{mod\ 3190}#)))
+ #{tmp\ 3196}#)))
($sc-dispatch
- #{tmp\ 5242}#
+ #{tmp\ 3196}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 5242}#
+ #{tmp\ 3196}#
'(any #(each (any any)) any . each-any))))
- #{e\ 5232}#))))
- (#{global-extend\ 2349}#
+ #{e\ 3186}#))))
+ (#{global-extend\ 303}#
'core
'letrec
- (lambda (#{e\ 5301}#
- #{r\ 5302}#
- #{w\ 5303}#
- #{s\ 5304}#
- #{mod\ 5305}#)
- ((lambda (#{tmp\ 5311}#)
- ((lambda (#{tmp\ 5312}#)
- (if (if #{tmp\ 5312}#
- (apply (lambda (#{_\ 5318}#
- #{id\ 5319}#
- #{val\ 5320}#
- #{e1\ 5321}#
- #{e2\ 5322}#)
- (and-map #{id?\ 2353}# #{id\ 5319}#))
- #{tmp\ 5312}#)
+ (lambda (#{e\ 3255}#
+ #{r\ 3256}#
+ #{w\ 3257}#
+ #{s\ 3258}#
+ #{mod\ 3259}#)
+ ((lambda (#{tmp\ 3265}#)
+ ((lambda (#{tmp\ 3266}#)
+ (if (if #{tmp\ 3266}#
+ (apply (lambda (#{_\ 3272}#
+ #{id\ 3273}#
+ #{val\ 3274}#
+ #{e1\ 3275}#
+ #{e2\ 3276}#)
+ (and-map #{id?\ 307}# #{id\ 3273}#))
+ #{tmp\ 3266}#)
#f)
- (apply (lambda (#{_\ 5329}#
- #{id\ 5330}#
- #{val\ 5331}#
- #{e1\ 5332}#
- #{e2\ 5333}#)
- (let ((#{ids\ 5335}# #{id\ 5330}#))
- (if (not (#{valid-bound-ids?\ 2416}#
- #{ids\ 5335}#))
+ (apply (lambda (#{_\ 3283}#
+ #{id\ 3284}#
+ #{val\ 3285}#
+ #{e1\ 3286}#
+ #{e2\ 3287}#)
+ (let ((#{ids\ 3289}# #{id\ 3284}#))
+ (if (not (#{valid-bound-ids?\ 370}#
+ #{ids\ 3289}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 5301}#)
- (let ((#{labels\ 5339}#
- (#{gen-labels\ 2371}# #{ids\ 5335}#))
- (#{new-vars\ 5340}#
- (map #{gen-var\ 2466}# #{ids\ 5335}#)))
- (let ((#{w\ 5343}#
- (#{make-binding-wrap\ 2400}#
- #{ids\ 5335}#
- #{labels\ 5339}#
- #{w\ 5303}#))
- (#{r\ 5344}#
- (#{extend-var-env\ 2343}#
- #{labels\ 5339}#
- #{new-vars\ 5340}#
- #{r\ 5302}#)))
- (#{build-letrec\ 2311}#
- #{s\ 5304}#
- (map syntax->datum #{ids\ 5335}#)
- #{new-vars\ 5340}#
- (map (lambda (#{x\ 5345}#)
- (#{chi\ 2438}#
- #{x\ 5345}#
- #{r\ 5344}#
- #{w\ 5343}#
- #{mod\ 5305}#))
- #{val\ 5331}#)
- (#{chi-body\ 2446}#
- (cons #{e1\ 5332}# #{e2\ 5333}#)
- (#{source-wrap\ 2424}#
- #{e\ 5301}#
- #{w\ 5343}#
- #{s\ 5304}#
- #{mod\ 5305}#)
- #{r\ 5344}#
- #{w\ 5343}#
- #{mod\ 5305}#)))))))
- #{tmp\ 5312}#)
- ((lambda (#{_\ 5350}#)
+ #{e\ 3255}#)
+ (let ((#{labels\ 3293}#
+ (#{gen-labels\ 325}# #{ids\ 3289}#))
+ (#{new-vars\ 3294}#
+ (map #{gen-var\ 420}# #{ids\ 3289}#)))
+ (let ((#{w\ 3297}#
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 3289}#
+ #{labels\ 3293}#
+ #{w\ 3257}#))
+ (#{r\ 3298}#
+ (#{extend-var-env\ 297}#
+ #{labels\ 3293}#
+ #{new-vars\ 3294}#
+ #{r\ 3256}#)))
+ (#{build-letrec\ 265}#
+ #{s\ 3258}#
+ (map syntax->datum #{ids\ 3289}#)
+ #{new-vars\ 3294}#
+ (map (lambda (#{x\ 3299}#)
+ (#{chi\ 392}#
+ #{x\ 3299}#
+ #{r\ 3298}#
+ #{w\ 3297}#
+ #{mod\ 3259}#))
+ #{val\ 3285}#)
+ (#{chi-body\ 400}#
+ (cons #{e1\ 3286}# #{e2\ 3287}#)
+ (#{source-wrap\ 378}#
+ #{e\ 3255}#
+ #{w\ 3297}#
+ #{s\ 3258}#
+ #{mod\ 3259}#)
+ #{r\ 3298}#
+ #{w\ 3297}#
+ #{mod\ 3259}#)))))))
+ #{tmp\ 3266}#)
+ ((lambda (#{_\ 3304}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 2424}#
- #{e\ 5301}#
- #{w\ 5303}#
- #{s\ 5304}#
- #{mod\ 5305}#)))
- #{tmp\ 5311}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 3255}#
+ #{w\ 3257}#
+ #{s\ 3258}#
+ #{mod\ 3259}#)))
+ #{tmp\ 3265}#)))
($sc-dispatch
- #{tmp\ 5311}#
+ #{tmp\ 3265}#
'(any #(each (any any)) any . each-any))))
- #{e\ 5301}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3255}#)))
+ (#{global-extend\ 303}#
'core
'set!
- (lambda (#{e\ 5351}#
- #{r\ 5352}#
- #{w\ 5353}#
- #{s\ 5354}#
- #{mod\ 5355}#)
- ((lambda (#{tmp\ 5361}#)
- ((lambda (#{tmp\ 5362}#)
- (if (if #{tmp\ 5362}#
- (apply (lambda (#{_\ 5366}# #{id\ 5367}# #{val\ 5368}#)
- (#{id?\ 2353}# #{id\ 5367}#))
- #{tmp\ 5362}#)
+ (lambda (#{e\ 3305}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{s\ 3308}#
+ #{mod\ 3309}#)
+ ((lambda (#{tmp\ 3315}#)
+ ((lambda (#{tmp\ 3316}#)
+ (if (if #{tmp\ 3316}#
+ (apply (lambda (#{_\ 3320}# #{id\ 3321}# #{val\ 3322}#)
+ (#{id?\ 307}# #{id\ 3321}#))
+ #{tmp\ 3316}#)
#f)
- (apply (lambda (#{_\ 5372}# #{id\ 5373}# #{val\ 5374}#)
- (let ((#{val\ 5377}#
- (#{chi\ 2438}#
- #{val\ 5374}#
- #{r\ 5352}#
- #{w\ 5353}#
- #{mod\ 5355}#))
- (#{n\ 5378}#
- (#{id-var-name\ 2410}#
- #{id\ 5373}#
- #{w\ 5353}#)))
- (let ((#{b\ 5380}#
- (#{lookup\ 2347}#
- #{n\ 5378}#
- #{r\ 5352}#
- #{mod\ 5355}#)))
- (let ((#{atom-key\ 5383}#
- (#{binding-type\ 2336}# #{b\ 5380}#)))
- (if (memv #{atom-key\ 5383}#
+ (apply (lambda (#{_\ 3326}# #{id\ 3327}# #{val\ 3328}#)
+ (let ((#{val\ 3331}#
+ (#{chi\ 392}#
+ #{val\ 3328}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#))
+ (#{n\ 3332}#
+ (#{id-var-name\ 364}#
+ #{id\ 3327}#
+ #{w\ 3307}#)))
+ (let ((#{b\ 3334}#
+ (#{lookup\ 301}#
+ #{n\ 3332}#
+ #{r\ 3306}#
+ #{mod\ 3309}#)))
+ (let ((#{atom-key\ 3337}#
+ (#{binding-type\ 290}# #{b\ 3334}#)))
+ (if (memv #{atom-key\ 3337}#
'(lexical))
- (#{build-lexical-assignment\ 2283}#
- #{s\ 5354}#
- (syntax->datum #{id\ 5373}#)
- (#{binding-value\ 2338}# #{b\ 5380}#)
- #{val\ 5377}#)
- (if (memv #{atom-key\ 5383}#
+ (#{build-lexical-assignment\ 237}#
+ #{s\ 3308}#
+ (syntax->datum #{id\ 3327}#)
+ (#{binding-value\ 292}# #{b\ 3334}#)
+ #{val\ 3331}#)
+ (if (memv #{atom-key\ 3337}#
'(global))
- (#{build-global-assignment\ 2289}#
- #{s\ 5354}#
- #{n\ 5378}#
- #{val\ 5377}#
- #{mod\ 5355}#)
- (if (memv #{atom-key\ 5383}#
+ (#{build-global-assignment\ 243}#
+ #{s\ 3308}#
+ #{n\ 3332}#
+ #{val\ 3331}#
+ #{mod\ 3309}#)
+ (if (memv #{atom-key\ 3337}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 2422}#
- #{id\ 5373}#
- #{w\ 5353}#
- #{mod\ 5355}#))
+ (#{wrap\ 376}#
+ #{id\ 3327}#
+ #{w\ 3307}#
+ #{mod\ 3309}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 2424}#
- #{e\ 5351}#
- #{w\ 5353}#
- #{s\ 5354}#
- #{mod\ 5355}#)))))))))
- #{tmp\ 5362}#)
- ((lambda (#{tmp\ 5388}#)
- (if #{tmp\ 5388}#
- (apply (lambda (#{_\ 5393}#
- #{head\ 5394}#
- #{tail\ 5395}#
- #{val\ 5396}#)
+ (#{source-wrap\ 378}#
+ #{e\ 3305}#
+ #{w\ 3307}#
+ #{s\ 3308}#
+ #{mod\ 3309}#)))))))))
+ #{tmp\ 3316}#)
+ ((lambda (#{tmp\ 3342}#)
+ (if #{tmp\ 3342}#
+ (apply (lambda (#{_\ 3347}#
+ #{head\ 3348}#
+ #{tail\ 3349}#
+ #{val\ 3350}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2434}#
- #{head\ 5394}#
- #{r\ 5352}#
+ (#{syntax-type\ 388}#
+ #{head\ 3348}#
+ #{r\ 3306}#
'(())
#f
#f
- #{mod\ 5355}#
+ #{mod\ 3309}#
#t))
- (lambda (#{type\ 5399}#
- #{value\ 5400}#
- #{ee\ 5401}#
- #{ww\ 5402}#
- #{ss\ 5403}#
- #{modmod\ 5404}#)
- (if (memv #{type\ 5399}#
+ (lambda (#{type\ 3353}#
+ #{value\ 3354}#
+ #{ee\ 3355}#
+ #{ww\ 3356}#
+ #{ss\ 3357}#
+ #{modmod\ 3358}#)
+ (if (memv #{type\ 3353}#
'(module-ref))
- (let ((#{val\ 5413}#
- (#{chi\ 2438}#
- #{val\ 5396}#
- #{r\ 5352}#
- #{w\ 5353}#
- #{mod\ 5355}#)))
+ (let ((#{val\ 3367}#
+ (#{chi\ 392}#
+ #{val\ 3350}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#)))
(call-with-values
(lambda ()
- (#{value\ 5400}#
- (cons #{head\ 5394}#
- #{tail\ 5395}#)
- #{r\ 5352}#
- #{w\ 5353}#))
- (lambda (#{e\ 5415}#
- #{r\ 5416}#
- #{w\ 5417}#
- #{s*\ 5418}#
- #{mod\ 5419}#)
- ((lambda (#{tmp\ 5425}#)
- ((lambda (#{tmp\ 5426}#)
- (if (if #{tmp\ 5426}#
- (apply (lambda (#{e\ 5428}#)
- (#{id?\ 2353}#
- #{e\ 5428}#))
- #{tmp\ 5426}#)
+ (#{value\ 3354}#
+ (cons #{head\ 3348}#
+ #{tail\ 3349}#)
+ #{r\ 3306}#
+ #{w\ 3307}#))
+ (lambda (#{e\ 3369}#
+ #{r\ 3370}#
+ #{w\ 3371}#
+ #{s*\ 3372}#
+ #{mod\ 3373}#)
+ ((lambda (#{tmp\ 3379}#)
+ ((lambda (#{tmp\ 3380}#)
+ (if (if #{tmp\ 3380}#
+ (apply (lambda (#{e\ 3382}#)
+ (#{id?\ 307}#
+ #{e\ 3382}#))
+ #{tmp\ 3380}#)
#f)
- (apply (lambda (#{e\ 5430}#)
- (#{build-global-assignment\ 2289}#
- #{s\ 5354}#
+ (apply (lambda (#{e\ 3384}#)
+ (#{build-global-assignment\ 243}#
+ #{s\ 3308}#
(syntax->datum
- #{e\ 5430}#)
- #{val\ 5413}#
- #{mod\ 5419}#))
- #{tmp\ 5426}#)
+ #{e\ 3384}#)
+ #{val\ 3367}#
+ #{mod\ 3373}#))
+ #{tmp\ 3380}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5425}#)))
- (list #{tmp\ 5425}#)))
- #{e\ 5415}#))))
- (#{build-application\ 2275}#
- #{s\ 5354}#
- (#{chi\ 2438}#
+ #{tmp\ 3379}#)))
+ (list #{tmp\ 3379}#)))
+ #{e\ 3369}#))))
+ (#{build-application\ 229}#
+ #{s\ 3308}#
+ (#{chi\ 392}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i5405"
- "i5406"
- "i5407"
- "i5408"
- "i5409"
- "i5410"))
+ #("i3359"
+ "i3360"
+ "i3361"
+ "i3362"
+ "i3363"
+ "i3364"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i5389"
- "i5390"
- "i5391"
- "i5392"))
+ #("i3343"
+ "i3344"
+ "i3345"
+ "i3346"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("i5356"
- "i5357"
- "i5358"
- "i5359"
- "i5360"))
+ #("i3310"
+ "i3311"
+ "i3312"
+ "i3313"
+ "i3314"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile))
- #{head\ 5394}#)
- #{r\ 5352}#
- #{w\ 5353}#
- #{mod\ 5355}#)
- (map (lambda (#{e\ 5432}#)
- (#{chi\ 2438}#
- #{e\ 5432}#
- #{r\ 5352}#
- #{w\ 5353}#
- #{mod\ 5355}#))
+ #{head\ 3348}#)
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#)
+ (map (lambda (#{e\ 3386}#)
+ (#{chi\ 392}#
+ #{e\ 3386}#
+ #{r\ 3306}#
+ #{w\ 3307}#
+ #{mod\ 3309}#))
(append
- #{tail\ 5395}#
- (list #{val\ 5396}#))))))))
- #{tmp\ 5388}#)
- ((lambda (#{_\ 5436}#)
+ #{tail\ 3349}#
+ (list #{val\ 3350}#))))))))
+ #{tmp\ 3342}#)
+ ((lambda (#{_\ 3390}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 2424}#
- #{e\ 5351}#
- #{w\ 5353}#
- #{s\ 5354}#
- #{mod\ 5355}#)))
- #{tmp\ 5361}#)))
+ (#{source-wrap\ 378}#
+ #{e\ 3305}#
+ #{w\ 3307}#
+ #{s\ 3308}#
+ #{mod\ 3309}#)))
+ #{tmp\ 3315}#)))
($sc-dispatch
- #{tmp\ 5361}#
+ #{tmp\ 3315}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 5361}#
+ #{tmp\ 3315}#
'(any any any))))
- #{e\ 5351}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3305}#)))
+ (#{global-extend\ 303}#
'module-ref
'@
- (lambda (#{e\ 5437}# #{r\ 5438}# #{w\ 5439}#)
- ((lambda (#{tmp\ 5443}#)
- ((lambda (#{tmp\ 5444}#)
- (if (if #{tmp\ 5444}#
- (apply (lambda (#{_\ 5448}# #{mod\ 5449}# #{id\ 5450}#)
- (if (and-map #{id?\ 2353}# #{mod\ 5449}#)
- (#{id?\ 2353}# #{id\ 5450}#)
+ (lambda (#{e\ 3391}# #{r\ 3392}# #{w\ 3393}#)
+ ((lambda (#{tmp\ 3397}#)
+ ((lambda (#{tmp\ 3398}#)
+ (if (if #{tmp\ 3398}#
+ (apply (lambda (#{_\ 3402}# #{mod\ 3403}# #{id\ 3404}#)
+ (if (and-map #{id?\ 307}# #{mod\ 3403}#)
+ (#{id?\ 307}# #{id\ 3404}#)
#f))
- #{tmp\ 5444}#)
+ #{tmp\ 3398}#)
#f)
- (apply (lambda (#{_\ 5457}# #{mod\ 5458}# #{id\ 5459}#)
+ (apply (lambda (#{_\ 3411}# #{mod\ 3412}# #{id\ 3413}#)
(values
- (syntax->datum #{id\ 5459}#)
- #{r\ 5438}#
- #{w\ 5439}#
+ (syntax->datum #{id\ 3413}#)
+ #{r\ 3392}#
+ #{w\ 3393}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i5454" "i5455" "i5456"))
+ #("i3408" "i3409" "i3410"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i5440" "i5441" "i5442"))
+ #("i3394" "i3395" "i3396"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066" "i2065" "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile))
- #{mod\ 5458}#))))
- #{tmp\ 5444}#)
+ #{mod\ 3412}#))))
+ #{tmp\ 3398}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5443}#)))
+ #{tmp\ 3397}#)))
($sc-dispatch
- #{tmp\ 5443}#
+ #{tmp\ 3397}#
'(any each-any any))))
- #{e\ 5437}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3391}#)))
+ (#{global-extend\ 303}#
'module-ref
'@@
- (lambda (#{e\ 5461}# #{r\ 5462}# #{w\ 5463}#)
- (letrec ((#{remodulate\ 5468}#
- (lambda (#{x\ 5469}# #{mod\ 5470}#)
- (if (pair? #{x\ 5469}#)
- (cons (#{remodulate\ 5468}#
- (car #{x\ 5469}#)
- #{mod\ 5470}#)
- (#{remodulate\ 5468}#
- (cdr #{x\ 5469}#)
- #{mod\ 5470}#))
- (if (#{syntax-object?\ 2317}# #{x\ 5469}#)
- (#{make-syntax-object\ 2315}#
- (#{remodulate\ 5468}#
- (#{syntax-object-expression\ 2319}# #{x\ 5469}#)
- #{mod\ 5470}#)
- (#{syntax-object-wrap\ 2321}# #{x\ 5469}#)
- #{mod\ 5470}#)
- (if (vector? #{x\ 5469}#)
- (let ((#{n\ 5481}# (vector-length #{x\ 5469}#)))
- (let ((#{v\ 5483}# (make-vector #{n\ 5481}#)))
- (letrec ((#{loop\ 5486}#
- (lambda (#{i\ 5487}#)
- (if (#{fx=\ 2258}#
- #{i\ 5487}#
- #{n\ 5481}#)
- (begin (if #f #f) #{v\ 5483}#)
+ (lambda (#{e\ 3415}# #{r\ 3416}# #{w\ 3417}#)
+ (letrec ((#{remodulate\ 3422}#
+ (lambda (#{x\ 3423}# #{mod\ 3424}#)
+ (if (pair? #{x\ 3423}#)
+ (cons (#{remodulate\ 3422}#
+ (car #{x\ 3423}#)
+ #{mod\ 3424}#)
+ (#{remodulate\ 3422}#
+ (cdr #{x\ 3423}#)
+ #{mod\ 3424}#))
+ (if (#{syntax-object?\ 271}# #{x\ 3423}#)
+ (#{make-syntax-object\ 269}#
+ (#{remodulate\ 3422}#
+ (#{syntax-object-expression\ 273}# #{x\ 3423}#)
+ #{mod\ 3424}#)
+ (#{syntax-object-wrap\ 275}# #{x\ 3423}#)
+ #{mod\ 3424}#)
+ (if (vector? #{x\ 3423}#)
+ (let ((#{n\ 3435}# (vector-length #{x\ 3423}#)))
+ (let ((#{v\ 3437}# (make-vector #{n\ 3435}#)))
+ (letrec ((#{loop\ 3440}#
+ (lambda (#{i\ 3441}#)
+ (if (#{fx=\ 212}#
+ #{i\ 3441}#
+ #{n\ 3435}#)
+ (begin (if #f #f) #{v\ 3437}#)
(begin
(vector-set!
- #{v\ 5483}#
- #{i\ 5487}#
- (#{remodulate\ 5468}#
+ #{v\ 3437}#
+ #{i\ 3441}#
+ (#{remodulate\ 3422}#
(vector-ref
- #{x\ 5469}#
- #{i\ 5487}#)
- #{mod\ 5470}#))
- (#{loop\ 5486}#
- (#{fx+\ 2254}#
- #{i\ 5487}#
+ #{x\ 3423}#
+ #{i\ 3441}#)
+ #{mod\ 3424}#))
+ (#{loop\ 3440}#
+ (#{fx+\ 208}#
+ #{i\ 3441}#
1)))))))
- (#{loop\ 5486}# 0))))
- #{x\ 5469}#))))))
- ((lambda (#{tmp\ 5491}#)
- ((lambda (#{tmp\ 5492}#)
- (if (if #{tmp\ 5492}#
- (apply (lambda (#{_\ 5496}#
- #{mod\ 5497}#
- #{exp\ 5498}#)
- (and-map #{id?\ 2353}# #{mod\ 5497}#))
- #{tmp\ 5492}#)
+ (#{loop\ 3440}# 0))))
+ #{x\ 3423}#))))))
+ ((lambda (#{tmp\ 3445}#)
+ ((lambda (#{tmp\ 3446}#)
+ (if (if #{tmp\ 3446}#
+ (apply (lambda (#{_\ 3450}#
+ #{mod\ 3451}#
+ #{exp\ 3452}#)
+ (and-map #{id?\ 307}# #{mod\ 3451}#))
+ #{tmp\ 3446}#)
#f)
- (apply (lambda (#{_\ 5503}# #{mod\ 5504}# #{exp\ 5505}#)
- (let ((#{mod\ 5507}#
+ (apply (lambda (#{_\ 3457}# #{mod\ 3458}# #{exp\ 3459}#)
+ (let ((#{mod\ 3461}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i5500" "i5501" "i5502"))
+ #("i3454" "i3455" "i3456"))
#(ribcage
(remodulate)
((top))
- ("i5467"))
+ ("i3421"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i5464" "i5465" "i5466"))
+ #("i3418" "i3419" "i3420"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066" "i2065" "i2063")))
+ ("i22" "i21" "i19")))
(hygiene guile))
- #{mod\ 5504}#))))
+ #{mod\ 3458}#))))
(values
- (#{remodulate\ 5468}#
- #{exp\ 5505}#
- #{mod\ 5507}#)
- #{r\ 5462}#
- #{w\ 5463}#
- (#{source-annotation\ 2332}# #{exp\ 5505}#)
- #{mod\ 5507}#)))
- #{tmp\ 5492}#)
+ (#{remodulate\ 3422}#
+ #{exp\ 3459}#
+ #{mod\ 3461}#)
+ #{r\ 3416}#
+ #{w\ 3417}#
+ (#{source-annotation\ 286}# #{exp\ 3459}#)
+ #{mod\ 3461}#)))
+ #{tmp\ 3446}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5491}#)))
+ #{tmp\ 3445}#)))
($sc-dispatch
- #{tmp\ 5491}#
+ #{tmp\ 3445}#
'(any each-any any))))
- #{e\ 5461}#))))
- (#{global-extend\ 2349}#
+ #{e\ 3415}#))))
+ (#{global-extend\ 303}#
'core
'if
- (lambda (#{e\ 5509}#
- #{r\ 5510}#
- #{w\ 5511}#
- #{s\ 5512}#
- #{mod\ 5513}#)
- ((lambda (#{tmp\ 5519}#)
- ((lambda (#{tmp\ 5520}#)
- (if #{tmp\ 5520}#
- (apply (lambda (#{_\ 5524}# #{test\ 5525}# #{then\ 5526}#)
- (#{build-conditional\ 2277}#
- #{s\ 5512}#
- (#{chi\ 2438}#
- #{test\ 5525}#
- #{r\ 5510}#
- #{w\ 5511}#
- #{mod\ 5513}#)
- (#{chi\ 2438}#
- #{then\ 5526}#
- #{r\ 5510}#
- #{w\ 5511}#
- #{mod\ 5513}#)
- (#{build-void\ 2273}# #f)))
- #{tmp\ 5520}#)
- ((lambda (#{tmp\ 5528}#)
- (if #{tmp\ 5528}#
- (apply (lambda (#{_\ 5533}#
- #{test\ 5534}#
- #{then\ 5535}#
- #{else\ 5536}#)
- (#{build-conditional\ 2277}#
- #{s\ 5512}#
- (#{chi\ 2438}#
- #{test\ 5534}#
- #{r\ 5510}#
- #{w\ 5511}#
- #{mod\ 5513}#)
- (#{chi\ 2438}#
- #{then\ 5535}#
- #{r\ 5510}#
- #{w\ 5511}#
- #{mod\ 5513}#)
- (#{chi\ 2438}#
- #{else\ 5536}#
- #{r\ 5510}#
- #{w\ 5511}#
- #{mod\ 5513}#)))
- #{tmp\ 5528}#)
+ (lambda (#{e\ 3463}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{s\ 3466}#
+ #{mod\ 3467}#)
+ ((lambda (#{tmp\ 3473}#)
+ ((lambda (#{tmp\ 3474}#)
+ (if #{tmp\ 3474}#
+ (apply (lambda (#{_\ 3478}# #{test\ 3479}# #{then\ 3480}#)
+ (#{build-conditional\ 231}#
+ #{s\ 3466}#
+ (#{chi\ 392}#
+ #{test\ 3479}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{chi\ 392}#
+ #{then\ 3480}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{build-void\ 227}# #f)))
+ #{tmp\ 3474}#)
+ ((lambda (#{tmp\ 3482}#)
+ (if #{tmp\ 3482}#
+ (apply (lambda (#{_\ 3487}#
+ #{test\ 3488}#
+ #{then\ 3489}#
+ #{else\ 3490}#)
+ (#{build-conditional\ 231}#
+ #{s\ 3466}#
+ (#{chi\ 392}#
+ #{test\ 3488}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{chi\ 392}#
+ #{then\ 3489}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{chi\ 392}#
+ #{else\ 3490}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)))
+ #{tmp\ 3482}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5519}#)))
+ #{tmp\ 3473}#)))
($sc-dispatch
- #{tmp\ 5519}#
+ #{tmp\ 3473}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 5519}#
+ #{tmp\ 3473}#
'(any any any))))
- #{e\ 5509}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3463}#)))
+ (#{global-extend\ 303}#
'core
'with-fluids
- (lambda (#{e\ 5537}#
- #{r\ 5538}#
- #{w\ 5539}#
- #{s\ 5540}#
- #{mod\ 5541}#)
- ((lambda (#{tmp\ 5547}#)
- ((lambda (#{tmp\ 5548}#)
- (if #{tmp\ 5548}#
- (apply (lambda (#{_\ 5554}#
- #{fluid\ 5555}#
- #{val\ 5556}#
- #{b\ 5557}#
- #{b*\ 5558}#)
- (#{build-dynlet\ 2279}#
- #{s\ 5540}#
- (map (lambda (#{x\ 5559}#)
- (#{chi\ 2438}#
- #{x\ 5559}#
- #{r\ 5538}#
- #{w\ 5539}#
- #{mod\ 5541}#))
- #{fluid\ 5555}#)
- (map (lambda (#{x\ 5562}#)
- (#{chi\ 2438}#
- #{x\ 5562}#
- #{r\ 5538}#
- #{w\ 5539}#
- #{mod\ 5541}#))
- #{val\ 5556}#)
- (#{chi-body\ 2446}#
- (cons #{b\ 5557}# #{b*\ 5558}#)
- (#{source-wrap\ 2424}#
- #{e\ 5537}#
- #{w\ 5539}#
- #{s\ 5540}#
- #{mod\ 5541}#)
- #{r\ 5538}#
- #{w\ 5539}#
- #{mod\ 5541}#)))
- #{tmp\ 5548}#)
+ (lambda (#{e\ 3491}#
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{s\ 3494}#
+ #{mod\ 3495}#)
+ ((lambda (#{tmp\ 3501}#)
+ ((lambda (#{tmp\ 3502}#)
+ (if #{tmp\ 3502}#
+ (apply (lambda (#{_\ 3508}#
+ #{fluid\ 3509}#
+ #{val\ 3510}#
+ #{b\ 3511}#
+ #{b*\ 3512}#)
+ (#{build-dynlet\ 233}#
+ #{s\ 3494}#
+ (map (lambda (#{x\ 3513}#)
+ (#{chi\ 392}#
+ #{x\ 3513}#
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{mod\ 3495}#))
+ #{fluid\ 3509}#)
+ (map (lambda (#{x\ 3516}#)
+ (#{chi\ 392}#
+ #{x\ 3516}#
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{mod\ 3495}#))
+ #{val\ 3510}#)
+ (#{chi-body\ 400}#
+ (cons #{b\ 3511}# #{b*\ 3512}#)
+ (#{source-wrap\ 378}#
+ #{e\ 3491}#
+ #{w\ 3493}#
+ #{s\ 3494}#
+ #{mod\ 3495}#)
+ #{r\ 3492}#
+ #{w\ 3493}#
+ #{mod\ 3495}#)))
+ #{tmp\ 3502}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5547}#)))
+ #{tmp\ 3501}#)))
($sc-dispatch
- #{tmp\ 5547}#
+ #{tmp\ 3501}#
'(any #(each (any any)) any . each-any))))
- #{e\ 5537}#)))
- (#{global-extend\ 2349}#
+ #{e\ 3491}#)))
+ (#{global-extend\ 303}#
'begin
'begin
'())
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'define
'define
'())
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'eval-when
'eval-when
'())
- (#{global-extend\ 2349}#
+ (#{global-extend\ 303}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 5573}#
- (lambda (#{x\ 5574}#
- #{keys\ 5575}#
- #{clauses\ 5576}#
- #{r\ 5577}#
- #{mod\ 5578}#)
- (if (null? #{clauses\ 5576}#)
- (#{build-application\ 2275}#
+ (letrec ((#{gen-syntax-case\ 3527}#
+ (lambda (#{x\ 3528}#
+ #{keys\ 3529}#
+ #{clauses\ 3530}#
+ #{r\ 3531}#
+ #{mod\ 3532}#)
+ (if (null? #{clauses\ 3530}#)
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}#
+ (#{build-primref\ 255}#
#f
'syntax-violation)
- (list (#{build-data\ 2303}# #f #f)
- (#{build-data\ 2303}#
+ (list (#{build-data\ 257}# #f #f)
+ (#{build-data\ 257}#
#f
"source expression failed to match any pattern")
- #{x\ 5574}#))
- ((lambda (#{tmp\ 5588}#)
- ((lambda (#{tmp\ 5589}#)
- (if #{tmp\ 5589}#
- (apply (lambda (#{pat\ 5592}# #{exp\ 5593}#)
- (if (if (#{id?\ 2353}# #{pat\ 5592}#)
+ #{x\ 3528}#))
+ ((lambda (#{tmp\ 3542}#)
+ ((lambda (#{tmp\ 3543}#)
+ (if #{tmp\ 3543}#
+ (apply (lambda (#{pat\ 3546}# #{exp\ 3547}#)
+ (if (if (#{id?\ 307}# #{pat\ 3546}#)
(and-map
- (lambda (#{x\ 5596}#)
- (not (#{free-id=?\ 2412}#
- #{pat\ 5592}#
- #{x\ 5596}#)))
+ (lambda (#{x\ 3550}#)
+ (not (#{free-id=?\ 366}#
+ #{pat\ 3546}#
+ #{x\ 3550}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i5590" "i5591"))
+ #("i3544" "i3545"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("i5579"
- "i5580"
- "i5581"
- "i5582"
- "i5583"))
+ #("i3533"
+ "i3534"
+ "i3535"
+ "i3536"
+ "i3537"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i5572"
- "i5570"
- "i5568"
- "i5566"))
+ ("i3526"
+ "i3524"
+ "i3522"
+ "i3520"))
#(ribcage
(lambda-var-list
gen-var
make-lexical-ref
make-primitive-ref
make-const
- make-void
- *mode*)
+ make-void)
((top)
(top)
(top)
(top)
(top)
(top)
- (top)
(top))
- ("i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"
- "i2403"
- "i2401"
- "i2399"
- "i2397"
- "i2396"
- "i2395"
- "i2393"
- "i2392"
- "i2391"
- "i2390"
- "i2389"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2370"
- "i2368"
- "i2367"
- "i2366"
- "i2365"
- "i2364"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2354"
- "i2352"
- "i2350"
- "i2348"
- "i2346"
- "i2344"
- "i2342"
- "i2340"
- "i2339"
- "i2337"
- "i2335"
- "i2334"
- "i2333"
- "i2331"
- "i2330"
- "i2328"
- "i2326"
- "i2324"
- "i2322"
- "i2320"
- "i2318"
- "i2316"
- "i2314"
- "i2312"
- "i2310"
- "i2308"
- "i2306"
- "i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"
- "i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"
- "i2284"
- "i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"
- "i2266"
- "i2265"
- "i2263"
- "i2261"
- "i2259"
- "i2257"
- "i2255"
- "i2253"
- "i2251"
- "i2249"
- "i2247"
- "i2245"
- "i2243"
- "i2241"
- "i2239"
- "i2237"
- "i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"
- "i2225"
- "i2223"
- "i2221"
- "i2219"
- "i2217"
- "i2214"))
+ ("i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i391"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i350"
+ "i349"
+ "i347"
+ "i346"
+ "i345"
+ "i344"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i324"
+ "i322"
+ "i321"
+ "i320"
+ "i319"
+ "i318"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i293"
+ "i291"
+ "i289"
+ "i288"
+ "i287"
+ "i285"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i173"
+ "i171"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i2066"
- "i2065"
- "i2063")))
+ ("i22"
+ "i21"
+ "i19")))
(hygiene guile))
- #{keys\ 5575}#))
+ #{keys\ 3529}#))
#f)
- (let ((#{labels\ 5600}#
- (list (#{gen-label\ 2369}#)))
- (#{var\ 5601}#
- (#{gen-var\ 2466}#
- #{pat\ 5592}#)))
- (#{build-application\ 2275}#
+ (let ((#{labels\ 3554}#
+ (list (#{gen-label\ 323}#)))
+ (#{var\ 3555}#
+ (#{gen-var\ 420}#
+ #{pat\ 3546}#)))
+ (#{build-application\ 229}#
#f
- (#{build-simple-lambda\ 2295}#
+ (#{build-simple-lambda\ 249}#
#f
(list (syntax->datum
- #{pat\ 5592}#))
+ #{pat\ 3546}#))
#f
- (list #{var\ 5601}#)
+ (list #{var\ 3555}#)
'()
- (#{chi\ 2438}#
- #{exp\ 5593}#
- (#{extend-env\ 2341}#
- #{labels\ 5600}#
+ (#{chi\ 392}#
+ #{exp\ 3547}#
+ (#{extend-env\ 295}#
+ #{labels\ 3554}#
(list (cons 'syntax
- (cons #{var\ 5601}#
+ (cons #{var\ 3555}#
0)))
- #{r\ 5577}#)
- (#{make-binding-wrap\ 2400}#
- (list #{pat\ 5592}#)
- #{labels\ 5600}#
+ #{r\ 3531}#)
+ (#{make-binding-wrap\ 354}#
+ (list #{pat\ 3546}#)
+ #{labels\ 3554}#
'(()))
- #{mod\ 5578}#))
- (list #{x\ 5574}#)))
- (#{gen-clause\ 5571}#
- #{x\ 5574}#
- #{keys\ 5575}#
- (cdr #{clauses\ 5576}#)
- #{r\ 5577}#
- #{pat\ 5592}#
+ #{mod\ 3532}#))
+ (list #{x\ 3528}#)))
+ (#{gen-clause\ 3525}#
+ #{x\ 3528}#
+ #{keys\ 3529}#
+ (cdr #{clauses\ 3530}#)
+ #{r\ 3531}#
+ #{pat\ 3546}#
#t
- #{exp\ 5593}#
- #{mod\ 5578}#)))
- #{tmp\ 5589}#)
- ((lambda (#{tmp\ 5607}#)
- (if #{tmp\ 5607}#
- (apply (lambda (#{pat\ 5611}#
- #{fender\ 5612}#
- #{exp\ 5613}#)
- (#{gen-clause\ 5571}#
- #{x\ 5574}#
- #{keys\ 5575}#
- (cdr #{clauses\ 5576}#)
- #{r\ 5577}#
- #{pat\ 5611}#
- #{fender\ 5612}#
- #{exp\ 5613}#
- #{mod\ 5578}#))
- #{tmp\ 5607}#)
- ((lambda (#{_\ 5615}#)
+ #{exp\ 3547}#
+ #{mod\ 3532}#)))
+ #{tmp\ 3543}#)
+ ((lambda (#{tmp\ 3561}#)
+ (if #{tmp\ 3561}#
+ (apply (lambda (#{pat\ 3565}#
+ #{fender\ 3566}#
+ #{exp\ 3567}#)
+ (#{gen-clause\ 3525}#
+ #{x\ 3528}#
+ #{keys\ 3529}#
+ (cdr #{clauses\ 3530}#)
+ #{r\ 3531}#
+ #{pat\ 3565}#
+ #{fender\ 3566}#
+ #{exp\ 3567}#
+ #{mod\ 3532}#))
+ #{tmp\ 3561}#)
+ ((lambda (#{_\ 3569}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 5576}#)))
- #{tmp\ 5588}#)))
+ (car #{clauses\ 3530}#)))
+ #{tmp\ 3542}#)))
($sc-dispatch
- #{tmp\ 5588}#
+ #{tmp\ 3542}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 5588}# (quote (any any)))))
- (car #{clauses\ 5576}#)))))
- (#{gen-clause\ 5571}#
- (lambda (#{x\ 5616}#
- #{keys\ 5617}#
- #{clauses\ 5618}#
- #{r\ 5619}#
- #{pat\ 5620}#
- #{fender\ 5621}#
- #{exp\ 5622}#
- #{mod\ 5623}#)
+ ($sc-dispatch #{tmp\ 3542}# (quote (any any)))))
+ (car #{clauses\ 3530}#)))))
+ (#{gen-clause\ 3525}#
+ (lambda (#{x\ 3570}#
+ #{keys\ 3571}#
+ #{clauses\ 3572}#
+ #{r\ 3573}#
+ #{pat\ 3574}#
+ #{fender\ 3575}#
+ #{exp\ 3576}#
+ #{mod\ 3577}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 5567}#
- #{pat\ 5620}#
- #{keys\ 5617}#))
- (lambda (#{p\ 5632}# #{pvars\ 5633}#)
- (if (not (#{distinct-bound-ids?\ 2418}#
- (map car #{pvars\ 5633}#)))
+ (#{convert-pattern\ 3521}#
+ #{pat\ 3574}#
+ #{keys\ 3571}#))
+ (lambda (#{p\ 3586}# #{pvars\ 3587}#)
+ (if (not (#{distinct-bound-ids?\ 372}#
+ (map car #{pvars\ 3587}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 5620}#)
+ #{pat\ 3574}#)
(if (not (and-map
- (lambda (#{x\ 5640}#)
- (not (#{ellipsis?\ 2454}#
- (car #{x\ 5640}#))))
- #{pvars\ 5633}#))
+ (lambda (#{x\ 3594}#)
+ (not (#{ellipsis?\ 408}#
+ (car #{x\ 3594}#))))
+ #{pvars\ 3587}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 5620}#)
- (let ((#{y\ 5644}#
- (#{gen-var\ 2466}# (quote tmp))))
- (#{build-application\ 2275}#
+ #{pat\ 3574}#)
+ (let ((#{y\ 3598}#
+ (#{gen-var\ 420}# (quote tmp))))
+ (#{build-application\ 229}#
#f
- (#{build-simple-lambda\ 2295}#
+ (#{build-simple-lambda\ 249}#
#f
(list (quote tmp))
#f
- (list #{y\ 5644}#)
+ (list #{y\ 3598}#)
'()
- (let ((#{y\ 5648}#
- (#{build-lexical-reference\ 2281}#
+ (let ((#{y\ 3602}#
+ (#{build-lexical-reference\ 235}#
'value
#f
'tmp
- #{y\ 5644}#)))
- (#{build-conditional\ 2277}#
+ #{y\ 3598}#)))
+ (#{build-conditional\ 231}#
#f
- ((lambda (#{tmp\ 5651}#)
- ((lambda (#{tmp\ 5652}#)
- (if #{tmp\ 5652}#
- (apply (lambda () #{y\ 5648}#)
- #{tmp\ 5652}#)
- ((lambda (#{_\ 5654}#)
- (#{build-conditional\ 2277}#
+ ((lambda (#{tmp\ 3605}#)
+ ((lambda (#{tmp\ 3606}#)
+ (if #{tmp\ 3606}#
+ (apply (lambda () #{y\ 3602}#)
+ #{tmp\ 3606}#)
+ ((lambda (#{_\ 3608}#)
+ (#{build-conditional\ 231}#
#f
- #{y\ 5648}#
- (#{build-dispatch-call\ 5569}#
- #{pvars\ 5633}#
- #{fender\ 5621}#
- #{y\ 5648}#
- #{r\ 5619}#
- #{mod\ 5623}#)
- (#{build-data\ 2303}#
+ #{y\ 3602}#
+ (#{build-dispatch-call\ 3523}#
+ #{pvars\ 3587}#
+ #{fender\ 3575}#
+ #{y\ 3602}#
+ #{r\ 3573}#
+ #{mod\ 3577}#)
+ (#{build-data\ 257}#
#f
#f)))
- #{tmp\ 5651}#)))
+ #{tmp\ 3605}#)))
($sc-dispatch
- #{tmp\ 5651}#
+ #{tmp\ 3605}#
'#(atom #t))))
- #{fender\ 5621}#)
- (#{build-dispatch-call\ 5569}#
- #{pvars\ 5633}#
- #{exp\ 5622}#
- #{y\ 5648}#
- #{r\ 5619}#
- #{mod\ 5623}#)
- (#{gen-syntax-case\ 5573}#
- #{x\ 5616}#
- #{keys\ 5617}#
- #{clauses\ 5618}#
- #{r\ 5619}#
- #{mod\ 5623}#))))
- (list (if (eq? #{p\ 5632}# (quote any))
- (#{build-application\ 2275}#
+ #{fender\ 3575}#)
+ (#{build-dispatch-call\ 3523}#
+ #{pvars\ 3587}#
+ #{exp\ 3576}#
+ #{y\ 3602}#
+ #{r\ 3573}#
+ #{mod\ 3577}#)
+ (#{gen-syntax-case\ 3527}#
+ #{x\ 3570}#
+ #{keys\ 3571}#
+ #{clauses\ 3572}#
+ #{r\ 3573}#
+ #{mod\ 3577}#))))
+ (list (if (eq? #{p\ 3586}# (quote any))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}#
+ (#{build-primref\ 255}#
#f
'list)
- (list #{x\ 5616}#))
- (#{build-application\ 2275}#
+ (list #{x\ 3570}#))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}#
+ (#{build-primref\ 255}#
#f
'$sc-dispatch)
- (list #{x\ 5616}#
- (#{build-data\ 2303}#
+ (list #{x\ 3570}#
+ (#{build-data\ 257}#
#f
- #{p\ 5632}#)))))))))))))
- (#{build-dispatch-call\ 5569}#
- (lambda (#{pvars\ 5662}#
- #{exp\ 5663}#
- #{y\ 5664}#
- #{r\ 5665}#
- #{mod\ 5666}#)
- (let ((#{ids\ 5674}# (map car #{pvars\ 5662}#))
- (#{levels\ 5675}# (map cdr #{pvars\ 5662}#)))
- (let ((#{labels\ 5678}#
- (#{gen-labels\ 2371}# #{ids\ 5674}#))
- (#{new-vars\ 5679}#
- (map #{gen-var\ 2466}# #{ids\ 5674}#)))
- (#{build-application\ 2275}#
+ #{p\ 3586}#)))))))))))))
+ (#{build-dispatch-call\ 3523}#
+ (lambda (#{pvars\ 3616}#
+ #{exp\ 3617}#
+ #{y\ 3618}#
+ #{r\ 3619}#
+ #{mod\ 3620}#)
+ (let ((#{ids\ 3628}# (map car #{pvars\ 3616}#))
+ (#{levels\ 3629}# (map cdr #{pvars\ 3616}#)))
+ (let ((#{labels\ 3632}#
+ (#{gen-labels\ 325}# #{ids\ 3628}#))
+ (#{new-vars\ 3633}#
+ (map #{gen-var\ 420}# #{ids\ 3628}#)))
+ (#{build-application\ 229}#
#f
- (#{build-primref\ 2301}# #f (quote apply))
- (list (#{build-simple-lambda\ 2295}#
+ (#{build-primref\ 255}# #f (quote apply))
+ (list (#{build-simple-lambda\ 249}#
#f
- (map syntax->datum #{ids\ 5674}#)
+ (map syntax->datum #{ids\ 3628}#)
#f
- #{new-vars\ 5679}#
+ #{new-vars\ 3633}#
'()
- (#{chi\ 2438}#
- #{exp\ 5663}#
- (#{extend-env\ 2341}#
- #{labels\ 5678}#
- (map (lambda (#{var\ 5683}#
- #{level\ 5684}#)
+ (#{chi\ 392}#
+ #{exp\ 3617}#
+ (#{extend-env\ 295}#
+ #{labels\ 3632}#
+ (map (lambda (#{var\ 3637}#
+ #{level\ 3638}#)
(cons 'syntax
- (cons #{var\ 5683}#
- #{level\ 5684}#)))
- #{new-vars\ 5679}#
- (map cdr #{pvars\ 5662}#))
- #{r\ 5665}#)
- (#{make-binding-wrap\ 2400}#
- #{ids\ 5674}#
- #{labels\ 5678}#
+ (cons #{var\ 3637}#
+ #{level\ 3638}#)))
+ #{new-vars\ 3633}#
+ (map cdr #{pvars\ 3616}#))
+ #{r\ 3619}#)
+ (#{make-binding-wrap\ 354}#
+ #{ids\ 3628}#
+ #{labels\ 3632}#
'(()))
- #{mod\ 5666}#))
- #{y\ 5664}#))))))
- (#{convert-pattern\ 5567}#
- (lambda (#{pattern\ 5690}# #{keys\ 5691}#)
- (letrec ((#{cvt\ 5697}#
- (lambda (#{p\ 5698}# #{n\ 5699}# #{ids\ 5700}#)
- (if (#{id?\ 2353}# #{p\ 5698}#)
- (if (#{bound-id-member?\ 2420}#
- #{p\ 5698}#
- #{keys\ 5691}#)
+ #{mod\ 3620}#))
+ #{y\ 3618}#))))))
+ (#{convert-pattern\ 3521}#
+ (lambda (#{pattern\ 3644}# #{keys\ 3645}#)
+ (letrec ((#{cvt\ 3651}#
+ (lambda (#{p\ 3652}# #{n\ 3653}# #{ids\ 3654}#)
+ (if (#{id?\ 307}# #{p\ 3652}#)
+ (if (#{bound-id-member?\ 374}#
+ #{p\ 3652}#
+ #{keys\ 3645}#)
(values
- (vector (quote free-id) #{p\ 5698}#)
- #{ids\ 5700}#)
+ (vector (quote free-id) #{p\ 3652}#)
+ #{ids\ 3654}#)
(values
'any
- (cons (cons #{p\ 5698}# #{n\ 5699}#)
- #{ids\ 5700}#)))
- ((lambda (#{tmp\ 5704}#)
- ((lambda (#{tmp\ 5705}#)
- (if (if #{tmp\ 5705}#
- (apply (lambda (#{x\ 5708}#
- #{dots\ 5709}#)
- (#{ellipsis?\ 2454}#
- #{dots\ 5709}#))
- #{tmp\ 5705}#)
+ (cons (cons #{p\ 3652}# #{n\ 3653}#)
+ #{ids\ 3654}#)))
+ ((lambda (#{tmp\ 3658}#)
+ ((lambda (#{tmp\ 3659}#)
+ (if (if #{tmp\ 3659}#
+ (apply (lambda (#{x\ 3662}#
+ #{dots\ 3663}#)
+ (#{ellipsis?\ 408}#
+ #{dots\ 3663}#))
+ #{tmp\ 3659}#)
#f)
- (apply (lambda (#{x\ 5712}#
- #{dots\ 5713}#)
+ (apply (lambda (#{x\ 3666}#
+ #{dots\ 3667}#)
(call-with-values
(lambda ()
- (#{cvt\ 5697}#
- #{x\ 5712}#
- (#{fx+\ 2254}#
- #{n\ 5699}#
+ (#{cvt\ 3651}#
+ #{x\ 3666}#
+ (#{fx+\ 208}#
+ #{n\ 3653}#
1)
- #{ids\ 5700}#))
- (lambda (#{p\ 5714}#
- #{ids\ 5715}#)
+ #{ids\ 3654}#))
+ (lambda (#{p\ 3668}#
+ #{ids\ 3669}#)
(values
- (if (eq? #{p\ 5714}#
+ (if (eq? #{p\ 3668}#
'any)
'each-any
(vector
'each
- #{p\ 5714}#))
- #{ids\ 5715}#))))
- #{tmp\ 5705}#)
- ((lambda (#{tmp\ 5718}#)
- (if (if #{tmp\ 5718}#
- (apply (lambda (#{x\ 5722}#
- #{dots\ 5723}#
- #{ys\ 5724}#)
- (#{ellipsis?\ 2454}#
- #{dots\ 5723}#))
- #{tmp\ 5718}#)
+ #{p\ 3668}#))
+ #{ids\ 3669}#))))
+ #{tmp\ 3659}#)
+ ((lambda (#{tmp\ 3672}#)
+ (if (if #{tmp\ 3672}#
+ (apply (lambda (#{x\ 3676}#
+ #{dots\ 3677}#
+ #{ys\ 3678}#)
+ (#{ellipsis?\ 408}#
+ #{dots\ 3677}#))
+ #{tmp\ 3672}#)
#f)
- (apply (lambda (#{x\ 5728}#
- #{dots\ 5729}#
- #{ys\ 5730}#)
+ (apply (lambda (#{x\ 3682}#
+ #{dots\ 3683}#
+ #{ys\ 3684}#)
(call-with-values
(lambda ()
- (#{cvt*\ 5695}#
- #{ys\ 5730}#
- #{n\ 5699}#
- #{ids\ 5700}#))
- (lambda (#{ys\ 5732}#
- #{ids\ 5733}#)
+ (#{cvt*\ 3649}#
+ #{ys\ 3684}#
+ #{n\ 3653}#
+ #{ids\ 3654}#))
+ (lambda (#{ys\ 3686}#
+ #{ids\ 3687}#)
(call-with-values
(lambda ()
- (#{cvt\ 5697}#
- #{x\ 5728}#
- (+ #{n\ 5699}#
+ (#{cvt\ 3651}#
+ #{x\ 3682}#
+ (+ #{n\ 3653}#
1)
- #{ids\ 5733}#))
- (lambda (#{x\ 5736}#
- #{ids\ 5737}#)
+ #{ids\ 3687}#))
+ (lambda (#{x\ 3690}#
+ #{ids\ 3691}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 5736}#
+ (cons #{x\ 3690}#
(cons (reverse
- #{ys\ 5732}#)
+ #{ys\ 3686}#)
'(())))))
- #{ids\ 5737}#))))))
- #{tmp\ 5718}#)
- ((lambda (#{tmp\ 5741}#)
- (if #{tmp\ 5741}#
- (apply (lambda (#{x\ 5744}#
- #{y\ 5745}#)
+ #{ids\ 3691}#))))))
+ #{tmp\ 3672}#)
+ ((lambda (#{tmp\ 3695}#)
+ (if #{tmp\ 3695}#
+ (apply (lambda (#{x\ 3698}#
+ #{y\ 3699}#)
(call-with-values
(lambda ()
- (#{cvt\ 5697}#
- #{y\ 5745}#
- #{n\ 5699}#
- #{ids\ 5700}#))
- (lambda (#{y\ 5746}#
- #{ids\ 5747}#)
+ (#{cvt\ 3651}#
+ #{y\ 3699}#
+ #{n\ 3653}#
+ #{ids\ 3654}#))
+ (lambda (#{y\ 3700}#
+ #{ids\ 3701}#)
(call-with-values
(lambda ()
- (#{cvt\ 5697}#
- #{x\ 5744}#
- #{n\ 5699}#
- #{ids\ 5747}#))
- (lambda (#{x\ 5750}#
- #{ids\ 5751}#)
+ (#{cvt\ 3651}#
+ #{x\ 3698}#
+ #{n\ 3653}#
+ #{ids\ 3701}#))
+ (lambda (#{x\ 3704}#
+ #{ids\ 3705}#)
(values
- (cons #{x\ 5750}#
- #{y\ 5746}#)
- #{ids\ 5751}#))))))
- #{tmp\ 5741}#)
- ((lambda (#{tmp\ 5754}#)
- (if #{tmp\ 5754}#
+ (cons #{x\ 3704}#
+ #{y\ 3700}#)
+ #{ids\ 3705}#))))))
+ #{tmp\ 3695}#)
+ ((lambda (#{tmp\ 3708}#)
+ (if #{tmp\ 3708}#
(apply (lambda ()
(values
'()
- #{ids\ 5700}#))
- #{tmp\ 5754}#)
- ((lambda (#{tmp\ 5755}#)
- (if #{tmp\ 5755}#
- (apply (lambda (#{x\ 5757}#)
+ #{ids\ 3654}#))
+ #{tmp\ 3708}#)
+ ((lambda (#{tmp\ 3709}#)
+ (if #{tmp\ 3709}#
+ (apply (lambda (#{x\ 3711}#)
(call-with-values
(lambda ()
- (#{cvt\ 5697}#
- #{x\ 5757}#
- #{n\ 5699}#
- #{ids\ 5700}#))
- (lambda (#{p\ 5759}#
- #{ids\ 5760}#)
+ (#{cvt\ 3651}#
+ #{x\ 3711}#
+ #{n\ 3653}#
+ #{ids\ 3654}#))
+ (lambda (#{p\ 3713}#
+ #{ids\ 3714}#)
(values
(vector
'vector
- #{p\ 5759}#)
- #{ids\ 5760}#))))
- #{tmp\ 5755}#)
- ((lambda (#{x\ 5764}#)
+ #{p\ 3713}#)
+ #{ids\ 3714}#))))
+ #{tmp\ 3709}#)
+ ((lambda (#{x\ 3718}#)
(values
(vector
'atom
- (#{strip\ 2464}#
- #{p\ 5698}#
+ (#{strip\ 418}#
+ #{p\ 3652}#
'(())))
- #{ids\ 5700}#))
- #{tmp\ 5704}#)))
+ #{ids\ 3654}#))
+ #{tmp\ 3658}#)))
($sc-dispatch
- #{tmp\ 5704}#
+ #{tmp\ 3658}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 5704}#
+ #{tmp\ 3658}#
'()))))
($sc-dispatch
- #{tmp\ 5704}#
+ #{tmp\ 3658}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 5704}#
+ #{tmp\ 3658}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 5704}#
+ #{tmp\ 3658}#
'(any any))))
- #{p\ 5698}#))))
- (#{cvt*\ 5695}#
- (lambda (#{p*\ 5766}#
- #{n\ 5767}#
- #{ids\ 5768}#)
- (if (null? #{p*\ 5766}#)
- (values (quote ()) #{ids\ 5768}#)
+ #{p\ 3652}#))))
+ (#{cvt*\ 3649}#
+ (lambda (#{p*\ 3720}#
+ #{n\ 3721}#
+ #{ids\ 3722}#)
+ (if (null? #{p*\ 3720}#)
+ (values (quote ()) #{ids\ 3722}#)
(call-with-values
(lambda ()
- (#{cvt*\ 5695}#
- (cdr #{p*\ 5766}#)
- #{n\ 5767}#
- #{ids\ 5768}#))
- (lambda (#{y\ 5772}# #{ids\ 5773}#)
+ (#{cvt*\ 3649}#
+ (cdr #{p*\ 3720}#)
+ #{n\ 3721}#
+ #{ids\ 3722}#))
+ (lambda (#{y\ 3726}# #{ids\ 3727}#)
(call-with-values
(lambda ()
- (#{cvt\ 5697}#
- (car #{p*\ 5766}#)
- #{n\ 5767}#
- #{ids\ 5773}#))
- (lambda (#{x\ 5776}# #{ids\ 5777}#)
+ (#{cvt\ 3651}#
+ (car #{p*\ 3720}#)
+ #{n\ 3721}#
+ #{ids\ 3727}#))
+ (lambda (#{x\ 3730}# #{ids\ 3731}#)
(values
- (cons #{x\ 5776}# #{y\ 5772}#)
- #{ids\ 5777}#)))))))))
- (#{cvt\ 5697}# #{pattern\ 5690}# 0 (quote ()))))))
- (lambda (#{e\ 5780}#
- #{r\ 5781}#
- #{w\ 5782}#
- #{s\ 5783}#
- #{mod\ 5784}#)
- (let ((#{e\ 5791}#
- (#{source-wrap\ 2424}#
- #{e\ 5780}#
- #{w\ 5782}#
- #{s\ 5783}#
- #{mod\ 5784}#)))
- ((lambda (#{tmp\ 5792}#)
- ((lambda (#{tmp\ 5793}#)
- (if #{tmp\ 5793}#
- (apply (lambda (#{_\ 5798}#
- #{val\ 5799}#
- #{key\ 5800}#
- #{m\ 5801}#)
+ (cons #{x\ 3730}# #{y\ 3726}#)
+ #{ids\ 3731}#)))))))))
+ (#{cvt\ 3651}# #{pattern\ 3644}# 0 (quote ()))))))
+ (lambda (#{e\ 3734}#
+ #{r\ 3735}#
+ #{w\ 3736}#
+ #{s\ 3737}#
+ #{mod\ 3738}#)
+ (let ((#{e\ 3745}#
+ (#{source-wrap\ 378}#
+ #{e\ 3734}#
+ #{w\ 3736}#
+ #{s\ 3737}#
+ #{mod\ 3738}#)))
+ ((lambda (#{tmp\ 3746}#)
+ ((lambda (#{tmp\ 3747}#)
+ (if #{tmp\ 3747}#
+ (apply (lambda (#{_\ 3752}#
+ #{val\ 3753}#
+ #{key\ 3754}#
+ #{m\ 3755}#)
(if (and-map
- (lambda (#{x\ 5802}#)
- (if (#{id?\ 2353}# #{x\ 5802}#)
- (not (#{ellipsis?\ 2454}#
- #{x\ 5802}#))
+ (lambda (#{x\ 3756}#)
+ (if (#{id?\ 307}# #{x\ 3756}#)
+ (not (#{ellipsis?\ 408}# #{x\ 3756}#))
#f))
- #{key\ 5800}#)
- (let ((#{x\ 5808}#
- (#{gen-var\ 2466}# (quote tmp))))
- (#{build-application\ 2275}#
- #{s\ 5783}#
- (#{build-simple-lambda\ 2295}#
+ #{key\ 3754}#)
+ (let ((#{x\ 3762}#
+ (#{gen-var\ 420}# (quote tmp))))
+ (#{build-application\ 229}#
+ #{s\ 3737}#
+ (#{build-simple-lambda\ 249}#
#f
(list (quote tmp))
#f
- (list #{x\ 5808}#)
+ (list #{x\ 3762}#)
'()
- (#{gen-syntax-case\ 5573}#
- (#{build-lexical-reference\ 2281}#
+ (#{gen-syntax-case\ 3527}#
+ (#{build-lexical-reference\ 235}#
'value
#f
'tmp
- #{x\ 5808}#)
- #{key\ 5800}#
- #{m\ 5801}#
- #{r\ 5781}#
- #{mod\ 5784}#))
- (list (#{chi\ 2438}#
- #{val\ 5799}#
- #{r\ 5781}#
+ #{x\ 3762}#)
+ #{key\ 3754}#
+ #{m\ 3755}#
+ #{r\ 3735}#
+ #{mod\ 3738}#))
+ (list (#{chi\ 392}#
+ #{val\ 3753}#
+ #{r\ 3735}#
'(())
- #{mod\ 5784}#))))
+ #{mod\ 3738}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 5791}#)))
- #{tmp\ 5793}#)
+ #{e\ 3745}#)))
+ #{tmp\ 3747}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5792}#)))
+ #{tmp\ 3746}#)))
($sc-dispatch
- #{tmp\ 5792}#
+ #{tmp\ 3746}#
'(any any each-any . each-any))))
- #{e\ 5791}#)))))
+ #{e\ 3745}#)))))
(set! macroexpand
- (lambda (#{x\ 5814}# . #{rest\ 5815}#)
- (let ((#{m\ 5821}#
- (if (null? #{rest\ 5815}#)
+ (lambda (#{x\ 3768}# . #{rest\ 3769}#)
+ (let ((#{m\ 3775}#
+ (if (null? #{rest\ 3769}#)
'e
- (car #{rest\ 5815}#)))
- (#{esew\ 5822}#
- (if (let ((#{t\ 5826}# (null? #{rest\ 5815}#)))
- (if #{t\ 5826}#
- #{t\ 5826}#
- (null? (cdr #{rest\ 5815}#))))
+ (car #{rest\ 3769}#)))
+ (#{esew\ 3776}#
+ (if (let ((#{t\ 3780}# (null? #{rest\ 3769}#)))
+ (if #{t\ 3780}#
+ #{t\ 3780}#
+ (null? (cdr #{rest\ 3769}#))))
'(eval)
- (cadr #{rest\ 5815}#)))
- (#{mod\ 5823}#
+ (cadr #{rest\ 3769}#)))
+ (#{mod\ 3777}#
(cons 'hygiene
(module-name (current-module)))))
- (with-fluids
- ((#{*mode*\ 2215}# #{m\ 5821}#))
- (#{chi-top\ 2436}#
- #{x\ 5814}#
- '()
- '((top))
- #{m\ 5821}#
- #{esew\ 5822}#
- #{mod\ 5823}#)))))
+ (#{chi-top\ 390}#
+ #{x\ 3768}#
+ '()
+ '((top))
+ #{m\ 3775}#
+ #{esew\ 3776}#
+ #{mod\ 3777}#))))
(set! identifier?
- (lambda (#{x\ 5830}#)
- (#{nonsymbol-id?\ 2351}# #{x\ 5830}#)))
+ (lambda (#{x\ 3784}#)
+ (#{nonsymbol-id?\ 305}# #{x\ 3784}#)))
(set! datum->syntax
- (lambda (#{id\ 5832}# #{datum\ 5833}#)
- (#{make-syntax-object\ 2315}#
- #{datum\ 5833}#
- (#{syntax-object-wrap\ 2321}# #{id\ 5832}#)
+ (lambda (#{id\ 3786}# #{datum\ 3787}#)
+ (#{make-syntax-object\ 269}#
+ #{datum\ 3787}#
+ (#{syntax-object-wrap\ 275}# #{id\ 3786}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 5836}#)
- (#{strip\ 2464}# #{x\ 5836}# (quote (())))))
+ (lambda (#{x\ 3790}#)
+ (#{strip\ 418}# #{x\ 3790}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 5839}#)
+ (lambda (#{ls\ 3793}#)
(begin
- (let ((#{x\ 5843}# #{ls\ 5839}#))
- (if (not (list? #{x\ 5843}#))
+ (let ((#{x\ 3797}# #{ls\ 3793}#))
+ (if (not (list? #{x\ 3797}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 5843}#)))
- (map (lambda (#{x\ 5844}#)
- (#{wrap\ 2422}# (gensym) (quote ((top))) #f))
- #{ls\ 5839}#))))
+ #{x\ 3797}#)))
+ (map (lambda (#{x\ 3798}#)
+ (#{wrap\ 376}# (gensym) (quote ((top))) #f))
+ #{ls\ 3793}#))))
(set! free-identifier=?
- (lambda (#{x\ 5848}# #{y\ 5849}#)
+ (lambda (#{x\ 3802}# #{y\ 3803}#)
(begin
- (let ((#{x\ 5854}# #{x\ 5848}#))
- (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5854}#))
+ (let ((#{x\ 3808}# #{x\ 3802}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3808}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 5854}#)))
- (let ((#{x\ 5857}# #{y\ 5849}#))
- (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5857}#))
+ #{x\ 3808}#)))
+ (let ((#{x\ 3811}# #{y\ 3803}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3811}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 5857}#)))
- (#{free-id=?\ 2412}# #{x\ 5848}# #{y\ 5849}#))))
+ #{x\ 3811}#)))
+ (#{free-id=?\ 366}# #{x\ 3802}# #{y\ 3803}#))))
(set! bound-identifier=?
- (lambda (#{x\ 5858}# #{y\ 5859}#)
+ (lambda (#{x\ 3812}# #{y\ 3813}#)
(begin
- (let ((#{x\ 5864}# #{x\ 5858}#))
- (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5864}#))
+ (let ((#{x\ 3818}# #{x\ 3812}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3818}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 5864}#)))
- (let ((#{x\ 5867}# #{y\ 5859}#))
- (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5867}#))
+ #{x\ 3818}#)))
+ (let ((#{x\ 3821}# #{y\ 3813}#))
+ (if (not (#{nonsymbol-id?\ 305}# #{x\ 3821}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 5867}#)))
- (#{bound-id=?\ 2414}# #{x\ 5858}# #{y\ 5859}#))))
+ #{x\ 3821}#)))
+ (#{bound-id=?\ 368}# #{x\ 3812}# #{y\ 3813}#))))
(set! syntax-violation
- (lambda (#{who\ 5868}#
- #{message\ 5869}#
- #{form\ 5870}#
+ (lambda (#{who\ 3822}#
+ #{message\ 3823}#
+ #{form\ 3824}#
.
- #{subform\ 5871}#)
+ #{subform\ 3825}#)
(begin
- (let ((#{x\ 5878}# #{who\ 5868}#))
- (if (not ((lambda (#{x\ 5879}#)
- (let ((#{t\ 5883}# (not #{x\ 5879}#)))
- (if #{t\ 5883}#
- #{t\ 5883}#
- (let ((#{t\ 5886}# (string? #{x\ 5879}#)))
- (if #{t\ 5886}#
- #{t\ 5886}#
- (symbol? #{x\ 5879}#))))))
- #{x\ 5878}#))
+ (let ((#{x\ 3832}# #{who\ 3822}#))
+ (if (not ((lambda (#{x\ 3833}#)
+ (let ((#{t\ 3837}# (not #{x\ 3833}#)))
+ (if #{t\ 3837}#
+ #{t\ 3837}#
+ (let ((#{t\ 3840}# (string? #{x\ 3833}#)))
+ (if #{t\ 3840}#
+ #{t\ 3840}#
+ (symbol? #{x\ 3833}#))))))
+ #{x\ 3832}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 5878}#)))
- (let ((#{x\ 5890}# #{message\ 5869}#))
- (if (not (string? #{x\ 5890}#))
+ #{x\ 3832}#)))
+ (let ((#{x\ 3844}# #{message\ 3823}#))
+ (if (not (string? #{x\ 3844}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 5890}#)))
+ #{x\ 3844}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 5868}# "~a: " "")
+ (if #{who\ 3822}# "~a: " "")
"~a "
- (if (null? #{subform\ 5871}#)
+ (if (null? #{subform\ 3825}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 5892}#
- (cons #{message\ 5869}#
- (map (lambda (#{x\ 5893}#)
- (#{strip\ 2464}# #{x\ 5893}# (quote (()))))
+ (let ((#{tail\ 3846}#
+ (cons #{message\ 3823}#
+ (map (lambda (#{x\ 3847}#)
+ (#{strip\ 418}# #{x\ 3847}# (quote (()))))
(append
- #{subform\ 5871}#
- (list #{form\ 5870}#))))))
- (if #{who\ 5868}#
- (cons #{who\ 5868}# #{tail\ 5892}#)
- #{tail\ 5892}#))
+ #{subform\ 3825}#
+ (list #{form\ 3824}#))))))
+ (if #{who\ 3822}#
+ (cons #{who\ 3822}# #{tail\ 3846}#)
+ #{tail\ 3846}#))
#f))))
- (letrec ((#{match\ 5909}#
- (lambda (#{e\ 5910}#
- #{p\ 5911}#
- #{w\ 5912}#
- #{r\ 5913}#
- #{mod\ 5914}#)
- (if (not #{r\ 5913}#)
+ (letrec ((#{match\ 3863}#
+ (lambda (#{e\ 3864}#
+ #{p\ 3865}#
+ #{w\ 3866}#
+ #{r\ 3867}#
+ #{mod\ 3868}#)
+ (if (not #{r\ 3867}#)
#f
- (if (eq? #{p\ 5911}# (quote any))
- (cons (#{wrap\ 2422}#
- #{e\ 5910}#
- #{w\ 5912}#
- #{mod\ 5914}#)
- #{r\ 5913}#)
- (if (#{syntax-object?\ 2317}# #{e\ 5910}#)
- (#{match*\ 5907}#
- (#{syntax-object-expression\ 2319}# #{e\ 5910}#)
- #{p\ 5911}#
- (#{join-wraps\ 2404}#
- #{w\ 5912}#
- (#{syntax-object-wrap\ 2321}# #{e\ 5910}#))
- #{r\ 5913}#
- (#{syntax-object-module\ 2323}# #{e\ 5910}#))
- (#{match*\ 5907}#
- #{e\ 5910}#
- #{p\ 5911}#
- #{w\ 5912}#
- #{r\ 5913}#
- #{mod\ 5914}#))))))
- (#{match*\ 5907}#
- (lambda (#{e\ 5927}#
- #{p\ 5928}#
- #{w\ 5929}#
- #{r\ 5930}#
- #{mod\ 5931}#)
- (if (null? #{p\ 5928}#)
- (if (null? #{e\ 5927}#) #{r\ 5930}# #f)
- (if (pair? #{p\ 5928}#)
- (if (pair? #{e\ 5927}#)
- (#{match\ 5909}#
- (car #{e\ 5927}#)
- (car #{p\ 5928}#)
- #{w\ 5929}#
- (#{match\ 5909}#
- (cdr #{e\ 5927}#)
- (cdr #{p\ 5928}#)
- #{w\ 5929}#
- #{r\ 5930}#
- #{mod\ 5931}#)
- #{mod\ 5931}#)
+ (if (eq? #{p\ 3865}# (quote any))
+ (cons (#{wrap\ 376}#
+ #{e\ 3864}#
+ #{w\ 3866}#
+ #{mod\ 3868}#)
+ #{r\ 3867}#)
+ (if (#{syntax-object?\ 271}# #{e\ 3864}#)
+ (#{match*\ 3861}#
+ (#{syntax-object-expression\ 273}# #{e\ 3864}#)
+ #{p\ 3865}#
+ (#{join-wraps\ 358}#
+ #{w\ 3866}#
+ (#{syntax-object-wrap\ 275}# #{e\ 3864}#))
+ #{r\ 3867}#
+ (#{syntax-object-module\ 277}# #{e\ 3864}#))
+ (#{match*\ 3861}#
+ #{e\ 3864}#
+ #{p\ 3865}#
+ #{w\ 3866}#
+ #{r\ 3867}#
+ #{mod\ 3868}#))))))
+ (#{match*\ 3861}#
+ (lambda (#{e\ 3881}#
+ #{p\ 3882}#
+ #{w\ 3883}#
+ #{r\ 3884}#
+ #{mod\ 3885}#)
+ (if (null? #{p\ 3882}#)
+ (if (null? #{e\ 3881}#) #{r\ 3884}# #f)
+ (if (pair? #{p\ 3882}#)
+ (if (pair? #{e\ 3881}#)
+ (#{match\ 3863}#
+ (car #{e\ 3881}#)
+ (car #{p\ 3882}#)
+ #{w\ 3883}#
+ (#{match\ 3863}#
+ (cdr #{e\ 3881}#)
+ (cdr #{p\ 3882}#)
+ #{w\ 3883}#
+ #{r\ 3884}#
+ #{mod\ 3885}#)
+ #{mod\ 3885}#)
#f)
- (if (eq? #{p\ 5928}# (quote each-any))
- (let ((#{l\ 5948}#
- (#{match-each-any\ 5901}#
- #{e\ 5927}#
- #{w\ 5929}#
- #{mod\ 5931}#)))
- (if #{l\ 5948}#
- (cons #{l\ 5948}# #{r\ 5930}#)
+ (if (eq? #{p\ 3882}# (quote each-any))
+ (let ((#{l\ 3902}#
+ (#{match-each-any\ 3855}#
+ #{e\ 3881}#
+ #{w\ 3883}#
+ #{mod\ 3885}#)))
+ (if #{l\ 3902}#
+ (cons #{l\ 3902}# #{r\ 3884}#)
#f))
- (let ((#{atom-key\ 5954}# (vector-ref #{p\ 5928}# 0)))
- (if (memv #{atom-key\ 5954}# (quote (each)))
- (if (null? #{e\ 5927}#)
- (#{match-empty\ 5903}#
- (vector-ref #{p\ 5928}# 1)
- #{r\ 5930}#)
- (let ((#{l\ 5957}#
- (#{match-each\ 5897}#
- #{e\ 5927}#
- (vector-ref #{p\ 5928}# 1)
- #{w\ 5929}#
- #{mod\ 5931}#)))
- (if #{l\ 5957}#
- (letrec ((#{collect\ 5962}#
- (lambda (#{l\ 5963}#)
- (if (null? (car #{l\ 5963}#))
- #{r\ 5930}#
- (cons (map car #{l\ 5963}#)
- (#{collect\ 5962}#
+ (let ((#{atom-key\ 3908}# (vector-ref #{p\ 3882}# 0)))
+ (if (memv #{atom-key\ 3908}# (quote (each)))
+ (if (null? #{e\ 3881}#)
+ (#{match-empty\ 3857}#
+ (vector-ref #{p\ 3882}# 1)
+ #{r\ 3884}#)
+ (let ((#{l\ 3911}#
+ (#{match-each\ 3851}#
+ #{e\ 3881}#
+ (vector-ref #{p\ 3882}# 1)
+ #{w\ 3883}#
+ #{mod\ 3885}#)))
+ (if #{l\ 3911}#
+ (letrec ((#{collect\ 3916}#
+ (lambda (#{l\ 3917}#)
+ (if (null? (car #{l\ 3917}#))
+ #{r\ 3884}#
+ (cons (map car #{l\ 3917}#)
+ (#{collect\ 3916}#
(map cdr
- #{l\ 5963}#)))))))
- (#{collect\ 5962}# #{l\ 5957}#))
+ #{l\ 3917}#)))))))
+ (#{collect\ 3916}# #{l\ 3911}#))
#f)))
- (if (memv #{atom-key\ 5954}# (quote (each+)))
+ (if (memv #{atom-key\ 3908}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 5899}#
- #{e\ 5927}#
- (vector-ref #{p\ 5928}# 1)
- (vector-ref #{p\ 5928}# 2)
- (vector-ref #{p\ 5928}# 3)
- #{w\ 5929}#
- #{r\ 5930}#
- #{mod\ 5931}#))
- (lambda (#{xr*\ 5965}#
- #{y-pat\ 5966}#
- #{r\ 5967}#)
- (if #{r\ 5967}#
- (if (null? #{y-pat\ 5966}#)
- (if (null? #{xr*\ 5965}#)
- (#{match-empty\ 5903}#
- (vector-ref #{p\ 5928}# 1)
- #{r\ 5967}#)
- (#{combine\ 5905}#
- #{xr*\ 5965}#
- #{r\ 5967}#))
+ (#{match-each+\ 3853}#
+ #{e\ 3881}#
+ (vector-ref #{p\ 3882}# 1)
+ (vector-ref #{p\ 3882}# 2)
+ (vector-ref #{p\ 3882}# 3)
+ #{w\ 3883}#
+ #{r\ 3884}#
+ #{mod\ 3885}#))
+ (lambda (#{xr*\ 3919}#
+ #{y-pat\ 3920}#
+ #{r\ 3921}#)
+ (if #{r\ 3921}#
+ (if (null? #{y-pat\ 3920}#)
+ (if (null? #{xr*\ 3919}#)
+ (#{match-empty\ 3857}#
+ (vector-ref #{p\ 3882}# 1)
+ #{r\ 3921}#)
+ (#{combine\ 3859}#
+ #{xr*\ 3919}#
+ #{r\ 3921}#))
#f)
#f)))
- (if (memv #{atom-key\ 5954}# (quote (free-id)))
- (if (#{id?\ 2353}# #{e\ 5927}#)
- (if (#{free-id=?\ 2412}#
- (#{wrap\ 2422}#
- #{e\ 5927}#
- #{w\ 5929}#
- #{mod\ 5931}#)
- (vector-ref #{p\ 5928}# 1))
- #{r\ 5930}#
+ (if (memv #{atom-key\ 3908}# (quote (free-id)))
+ (if (#{id?\ 307}# #{e\ 3881}#)
+ (if (#{free-id=?\ 366}#
+ (#{wrap\ 376}#
+ #{e\ 3881}#
+ #{w\ 3883}#
+ #{mod\ 3885}#)
+ (vector-ref #{p\ 3882}# 1))
+ #{r\ 3884}#
#f)
#f)
- (if (memv #{atom-key\ 5954}# (quote (atom)))
+ (if (memv #{atom-key\ 3908}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 5928}# 1)
- (#{strip\ 2464}#
- #{e\ 5927}#
- #{w\ 5929}#))
- #{r\ 5930}#
+ (vector-ref #{p\ 3882}# 1)
+ (#{strip\ 418}#
+ #{e\ 3881}#
+ #{w\ 3883}#))
+ #{r\ 3884}#
#f)
- (if (memv #{atom-key\ 5954}#
+ (if (memv #{atom-key\ 3908}#
'(vector))
- (if (vector? #{e\ 5927}#)
- (#{match\ 5909}#
- (vector->list #{e\ 5927}#)
- (vector-ref #{p\ 5928}# 1)
- #{w\ 5929}#
- #{r\ 5930}#
- #{mod\ 5931}#)
+ (if (vector? #{e\ 3881}#)
+ (#{match\ 3863}#
+ (vector->list #{e\ 3881}#)
+ (vector-ref #{p\ 3882}# 1)
+ #{w\ 3883}#
+ #{r\ 3884}#
+ #{mod\ 3885}#)
#f))))))))))))
- (#{combine\ 5905}#
- (lambda (#{r*\ 5984}# #{r\ 5985}#)
- (if (null? (car #{r*\ 5984}#))
- #{r\ 5985}#
- (cons (map car #{r*\ 5984}#)
- (#{combine\ 5905}#
- (map cdr #{r*\ 5984}#)
- #{r\ 5985}#)))))
- (#{match-empty\ 5903}#
- (lambda (#{p\ 5988}# #{r\ 5989}#)
- (if (null? #{p\ 5988}#)
- #{r\ 5989}#
- (if (eq? #{p\ 5988}# (quote any))
- (cons (quote ()) #{r\ 5989}#)
- (if (pair? #{p\ 5988}#)
- (#{match-empty\ 5903}#
- (car #{p\ 5988}#)
- (#{match-empty\ 5903}#
- (cdr #{p\ 5988}#)
- #{r\ 5989}#))
- (if (eq? #{p\ 5988}# (quote each-any))
- (cons (quote ()) #{r\ 5989}#)
- (let ((#{atom-key\ 6003}#
- (vector-ref #{p\ 5988}# 0)))
- (if (memv #{atom-key\ 6003}# (quote (each)))
- (#{match-empty\ 5903}#
- (vector-ref #{p\ 5988}# 1)
- #{r\ 5989}#)
- (if (memv #{atom-key\ 6003}# (quote (each+)))
- (#{match-empty\ 5903}#
- (vector-ref #{p\ 5988}# 1)
- (#{match-empty\ 5903}#
- (reverse (vector-ref #{p\ 5988}# 2))
- (#{match-empty\ 5903}#
- (vector-ref #{p\ 5988}# 3)
- #{r\ 5989}#)))
- (if (memv #{atom-key\ 6003}#
+ (#{combine\ 3859}#
+ (lambda (#{r*\ 3938}# #{r\ 3939}#)
+ (if (null? (car #{r*\ 3938}#))
+ #{r\ 3939}#
+ (cons (map car #{r*\ 3938}#)
+ (#{combine\ 3859}#
+ (map cdr #{r*\ 3938}#)
+ #{r\ 3939}#)))))
+ (#{match-empty\ 3857}#
+ (lambda (#{p\ 3942}# #{r\ 3943}#)
+ (if (null? #{p\ 3942}#)
+ #{r\ 3943}#
+ (if (eq? #{p\ 3942}# (quote any))
+ (cons (quote ()) #{r\ 3943}#)
+ (if (pair? #{p\ 3942}#)
+ (#{match-empty\ 3857}#
+ (car #{p\ 3942}#)
+ (#{match-empty\ 3857}#
+ (cdr #{p\ 3942}#)
+ #{r\ 3943}#))
+ (if (eq? #{p\ 3942}# (quote each-any))
+ (cons (quote ()) #{r\ 3943}#)
+ (let ((#{atom-key\ 3957}#
+ (vector-ref #{p\ 3942}# 0)))
+ (if (memv #{atom-key\ 3957}# (quote (each)))
+ (#{match-empty\ 3857}#
+ (vector-ref #{p\ 3942}# 1)
+ #{r\ 3943}#)
+ (if (memv #{atom-key\ 3957}# (quote (each+)))
+ (#{match-empty\ 3857}#
+ (vector-ref #{p\ 3942}# 1)
+ (#{match-empty\ 3857}#
+ (reverse (vector-ref #{p\ 3942}# 2))
+ (#{match-empty\ 3857}#
+ (vector-ref #{p\ 3942}# 3)
+ #{r\ 3943}#)))
+ (if (memv #{atom-key\ 3957}#
'(free-id atom))
- #{r\ 5989}#
- (if (memv #{atom-key\ 6003}#
+ #{r\ 3943}#
+ (if (memv #{atom-key\ 3957}#
'(vector))
- (#{match-empty\ 5903}#
- (vector-ref #{p\ 5988}# 1)
- #{r\ 5989}#))))))))))))
- (#{match-each-any\ 5901}#
- (lambda (#{e\ 6008}# #{w\ 6009}# #{mod\ 6010}#)
- (if (pair? #{e\ 6008}#)
- (let ((#{l\ 6017}#
- (#{match-each-any\ 5901}#
- (cdr #{e\ 6008}#)
- #{w\ 6009}#
- #{mod\ 6010}#)))
- (if #{l\ 6017}#
- (cons (#{wrap\ 2422}#
- (car #{e\ 6008}#)
- #{w\ 6009}#
- #{mod\ 6010}#)
- #{l\ 6017}#)
+ (#{match-empty\ 3857}#
+ (vector-ref #{p\ 3942}# 1)
+ #{r\ 3943}#))))))))))))
+ (#{match-each-any\ 3855}#
+ (lambda (#{e\ 3962}# #{w\ 3963}# #{mod\ 3964}#)
+ (if (pair? #{e\ 3962}#)
+ (let ((#{l\ 3971}#
+ (#{match-each-any\ 3855}#
+ (cdr #{e\ 3962}#)
+ #{w\ 3963}#
+ #{mod\ 3964}#)))
+ (if #{l\ 3971}#
+ (cons (#{wrap\ 376}#
+ (car #{e\ 3962}#)
+ #{w\ 3963}#
+ #{mod\ 3964}#)
+ #{l\ 3971}#)
#f))
- (if (null? #{e\ 6008}#)
+ (if (null? #{e\ 3962}#)
'()
- (if (#{syntax-object?\ 2317}# #{e\ 6008}#)
- (#{match-each-any\ 5901}#
- (#{syntax-object-expression\ 2319}# #{e\ 6008}#)
- (#{join-wraps\ 2404}#
- #{w\ 6009}#
- (#{syntax-object-wrap\ 2321}# #{e\ 6008}#))
- #{mod\ 6010}#)
+ (if (#{syntax-object?\ 271}# #{e\ 3962}#)
+ (#{match-each-any\ 3855}#
+ (#{syntax-object-expression\ 273}# #{e\ 3962}#)
+ (#{join-wraps\ 358}#
+ #{w\ 3963}#
+ (#{syntax-object-wrap\ 275}# #{e\ 3962}#))
+ #{mod\ 3964}#)
#f)))))
- (#{match-each+\ 5899}#
- (lambda (#{e\ 6025}#
- #{x-pat\ 6026}#
- #{y-pat\ 6027}#
- #{z-pat\ 6028}#
- #{w\ 6029}#
- #{r\ 6030}#
- #{mod\ 6031}#)
- (letrec ((#{f\ 6042}#
- (lambda (#{e\ 6043}# #{w\ 6044}#)
- (if (pair? #{e\ 6043}#)
+ (#{match-each+\ 3853}#
+ (lambda (#{e\ 3979}#
+ #{x-pat\ 3980}#
+ #{y-pat\ 3981}#
+ #{z-pat\ 3982}#
+ #{w\ 3983}#
+ #{r\ 3984}#
+ #{mod\ 3985}#)
+ (letrec ((#{f\ 3996}#
+ (lambda (#{e\ 3997}# #{w\ 3998}#)
+ (if (pair? #{e\ 3997}#)
(call-with-values
(lambda ()
- (#{f\ 6042}#
- (cdr #{e\ 6043}#)
- #{w\ 6044}#))
- (lambda (#{xr*\ 6047}#
- #{y-pat\ 6048}#
- #{r\ 6049}#)
- (if #{r\ 6049}#
- (if (null? #{y-pat\ 6048}#)
- (let ((#{xr\ 6054}#
- (#{match\ 5909}#
- (car #{e\ 6043}#)
- #{x-pat\ 6026}#
- #{w\ 6044}#
+ (#{f\ 3996}#
+ (cdr #{e\ 3997}#)
+ #{w\ 3998}#))
+ (lambda (#{xr*\ 4001}#
+ #{y-pat\ 4002}#
+ #{r\ 4003}#)
+ (if #{r\ 4003}#
+ (if (null? #{y-pat\ 4002}#)
+ (let ((#{xr\ 4008}#
+ (#{match\ 3863}#
+ (car #{e\ 3997}#)
+ #{x-pat\ 3980}#
+ #{w\ 3998}#
'()
- #{mod\ 6031}#)))
- (if #{xr\ 6054}#
+ #{mod\ 3985}#)))
+ (if #{xr\ 4008}#
(values
- (cons #{xr\ 6054}#
- #{xr*\ 6047}#)
- #{y-pat\ 6048}#
- #{r\ 6049}#)
+ (cons #{xr\ 4008}#
+ #{xr*\ 4001}#)
+ #{y-pat\ 4002}#
+ #{r\ 4003}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 6048}#)
- (#{match\ 5909}#
- (car #{e\ 6043}#)
- (car #{y-pat\ 6048}#)
- #{w\ 6044}#
- #{r\ 6049}#
- #{mod\ 6031}#)))
+ (cdr #{y-pat\ 4002}#)
+ (#{match\ 3863}#
+ (car #{e\ 3997}#)
+ (car #{y-pat\ 4002}#)
+ #{w\ 3998}#
+ #{r\ 4003}#
+ #{mod\ 3985}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 2317}# #{e\ 6043}#)
- (#{f\ 6042}#
- (#{syntax-object-expression\ 2319}#
- #{e\ 6043}#)
- (#{join-wraps\ 2404}#
- #{w\ 6044}#
- #{e\ 6043}#))
+ (if (#{syntax-object?\ 271}# #{e\ 3997}#)
+ (#{f\ 3996}#
+ (#{syntax-object-expression\ 273}#
+ #{e\ 3997}#)
+ (#{join-wraps\ 358}#
+ #{w\ 3998}#
+ #{e\ 3997}#))
(values
'()
- #{y-pat\ 6027}#
- (#{match\ 5909}#
- #{e\ 6043}#
- #{z-pat\ 6028}#
- #{w\ 6044}#
- #{r\ 6030}#
- #{mod\ 6031}#)))))))
- (#{f\ 6042}# #{e\ 6025}# #{w\ 6029}#))))
- (#{match-each\ 5897}#
- (lambda (#{e\ 6058}#
- #{p\ 6059}#
- #{w\ 6060}#
- #{mod\ 6061}#)
- (if (pair? #{e\ 6058}#)
- (let ((#{first\ 6069}#
- (#{match\ 5909}#
- (car #{e\ 6058}#)
- #{p\ 6059}#
- #{w\ 6060}#
+ #{y-pat\ 3981}#
+ (#{match\ 3863}#
+ #{e\ 3997}#
+ #{z-pat\ 3982}#
+ #{w\ 3998}#
+ #{r\ 3984}#
+ #{mod\ 3985}#)))))))
+ (#{f\ 3996}# #{e\ 3979}# #{w\ 3983}#))))
+ (#{match-each\ 3851}#
+ (lambda (#{e\ 4012}#
+ #{p\ 4013}#
+ #{w\ 4014}#
+ #{mod\ 4015}#)
+ (if (pair? #{e\ 4012}#)
+ (let ((#{first\ 4023}#
+ (#{match\ 3863}#
+ (car #{e\ 4012}#)
+ #{p\ 4013}#
+ #{w\ 4014}#
'()
- #{mod\ 6061}#)))
- (if #{first\ 6069}#
- (let ((#{rest\ 6073}#
- (#{match-each\ 5897}#
- (cdr #{e\ 6058}#)
- #{p\ 6059}#
- #{w\ 6060}#
- #{mod\ 6061}#)))
- (if #{rest\ 6073}#
- (cons #{first\ 6069}# #{rest\ 6073}#)
+ #{mod\ 4015}#)))
+ (if #{first\ 4023}#
+ (let ((#{rest\ 4027}#
+ (#{match-each\ 3851}#
+ (cdr #{e\ 4012}#)
+ #{p\ 4013}#
+ #{w\ 4014}#
+ #{mod\ 4015}#)))
+ (if #{rest\ 4027}#
+ (cons #{first\ 4023}# #{rest\ 4027}#)
#f))
#f))
- (if (null? #{e\ 6058}#)
+ (if (null? #{e\ 4012}#)
'()
- (if (#{syntax-object?\ 2317}# #{e\ 6058}#)
- (#{match-each\ 5897}#
- (#{syntax-object-expression\ 2319}# #{e\ 6058}#)
- #{p\ 6059}#
- (#{join-wraps\ 2404}#
- #{w\ 6060}#
- (#{syntax-object-wrap\ 2321}# #{e\ 6058}#))
- (#{syntax-object-module\ 2323}# #{e\ 6058}#))
+ (if (#{syntax-object?\ 271}# #{e\ 4012}#)
+ (#{match-each\ 3851}#
+ (#{syntax-object-expression\ 273}# #{e\ 4012}#)
+ #{p\ 4013}#
+ (#{join-wraps\ 358}#
+ #{w\ 4014}#
+ (#{syntax-object-wrap\ 275}# #{e\ 4012}#))
+ (#{syntax-object-module\ 277}# #{e\ 4012}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 6081}# #{p\ 6082}#)
- (if (eq? #{p\ 6082}# (quote any))
- (list #{e\ 6081}#)
- (if (#{syntax-object?\ 2317}# #{e\ 6081}#)
- (#{match*\ 5907}#
- (#{syntax-object-expression\ 2319}# #{e\ 6081}#)
- #{p\ 6082}#
- (#{syntax-object-wrap\ 2321}# #{e\ 6081}#)
+ (lambda (#{e\ 4035}# #{p\ 4036}#)
+ (if (eq? #{p\ 4036}# (quote any))
+ (list #{e\ 4035}#)
+ (if (#{syntax-object?\ 271}# #{e\ 4035}#)
+ (#{match*\ 3861}#
+ (#{syntax-object-expression\ 273}# #{e\ 4035}#)
+ #{p\ 4036}#
+ (#{syntax-object-wrap\ 275}# #{e\ 4035}#)
'()
- (#{syntax-object-module\ 2323}# #{e\ 6081}#))
- (#{match*\ 5907}#
- #{e\ 6081}#
- #{p\ 6082}#
+ (#{syntax-object-module\ 277}# #{e\ 4035}#))
+ (#{match*\ 3861}#
+ #{e\ 4035}#
+ #{p\ 4036}#
'(())
'()
#f)))))))))
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 6091}#)
- ((lambda (#{tmp\ 6093}#)
- ((lambda (#{tmp\ 6094}#)
- (if #{tmp\ 6094}#
- (apply (lambda (#{_\ 6098}# #{e1\ 6099}# #{e2\ 6100}#)
+ (cons (lambda (#{x\ 4045}#)
+ ((lambda (#{tmp\ 4047}#)
+ ((lambda (#{tmp\ 4048}#)
+ (if #{tmp\ 4048}#
+ (apply (lambda (#{_\ 4052}# #{e1\ 4053}# #{e2\ 4054}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i6095" "i6096" "i6097"))
+ #("i4049" "i4050" "i4051"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6092")))
+ #(ribcage #(x) #((top)) #("i4046")))
(hygiene guile))
- (cons #{e1\ 6099}# #{e2\ 6100}#)))
- #{tmp\ 6094}#)
- ((lambda (#{tmp\ 6102}#)
- (if #{tmp\ 6102}#
- (apply (lambda (#{_\ 6108}#
- #{out\ 6109}#
- #{in\ 6110}#
- #{e1\ 6111}#
- #{e2\ 6112}#)
+ (cons #{e1\ 4053}# #{e2\ 4054}#)))
+ #{tmp\ 4048}#)
+ ((lambda (#{tmp\ 4056}#)
+ (if #{tmp\ 4056}#
+ (apply (lambda (#{_\ 4062}#
+ #{out\ 4063}#
+ #{in\ 4064}#
+ #{e1\ 4065}#
+ #{e2\ 4066}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i6103"
- "i6104"
- "i6105"
- "i6106"
- "i6107"))
+ #("i4057"
+ "i4058"
+ "i4059"
+ "i4060"
+ "i4061"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6092")))
+ #("i4046")))
(hygiene guile))
- #{in\ 6110}#
+ #{in\ 4064}#
'()
- (list #{out\ 6109}#
+ (list #{out\ 4063}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i6103"
- "i6104"
- "i6105"
- "i6106"
- "i6107"))
+ #("i4057"
+ "i4058"
+ "i4059"
+ "i4060"
+ "i4061"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6092")))
+ #("i4046")))
(hygiene guile))
- (cons #{e1\ 6111}#
- #{e2\ 6112}#)))))
- #{tmp\ 6102}#)
- ((lambda (#{tmp\ 6114}#)
- (if #{tmp\ 6114}#
- (apply (lambda (#{_\ 6120}#
- #{out\ 6121}#
- #{in\ 6122}#
- #{e1\ 6123}#
- #{e2\ 6124}#)
+ (cons #{e1\ 4065}#
+ #{e2\ 4066}#)))))
+ #{tmp\ 4056}#)
+ ((lambda (#{tmp\ 4068}#)
+ (if #{tmp\ 4068}#
+ (apply (lambda (#{_\ 4074}#
+ #{out\ 4075}#
+ #{in\ 4076}#
+ #{e1\ 4077}#
+ #{e2\ 4078}#)
(list '#(syntax-object
syntax-case
((top)
(top)
(top)
(top))
- #("i6115"
- "i6116"
- "i6117"
- "i6118"
- "i6119"))
+ #("i4069"
+ "i4070"
+ "i4071"
+ "i4072"
+ "i4073"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6092")))
+ #("i4046")))
(hygiene guile))
(cons '#(syntax-object
list
(top)
(top)
(top))
- #("i6115"
- "i6116"
- "i6117"
- "i6118"
- "i6119"))
+ #("i4069"
+ "i4070"
+ "i4071"
+ "i4072"
+ "i4073"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6092")))
+ #("i4046")))
(hygiene guile))
- #{in\ 6122}#)
+ #{in\ 4076}#)
'()
- (list #{out\ 6121}#
+ (list #{out\ 4075}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i6115"
- "i6116"
- "i6117"
- "i6118"
- "i6119"))
+ #("i4069"
+ "i4070"
+ "i4071"
+ "i4072"
+ "i4073"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6092")))
+ #("i4046")))
(hygiene guile))
- (cons #{e1\ 6123}#
- #{e2\ 6124}#)))))
- #{tmp\ 6114}#)
+ (cons #{e1\ 4077}#
+ #{e2\ 4078}#)))))
+ #{tmp\ 4068}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6093}#)))
+ #{tmp\ 4047}#)))
($sc-dispatch
- #{tmp\ 6093}#
+ #{tmp\ 4047}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 6093}#
+ #{tmp\ 4047}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 6093}#
+ #{tmp\ 4047}#
'(any () any . each-any))))
- #{x\ 6091}#))
+ #{x\ 4045}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 6128}#)
- ((lambda (#{tmp\ 6130}#)
- ((lambda (#{tmp\ 6131}#)
- (if #{tmp\ 6131}#
- (apply (lambda (#{_\ 6137}#
- #{k\ 6138}#
- #{keyword\ 6139}#
- #{pattern\ 6140}#
- #{template\ 6141}#)
+ (cons (lambda (#{x\ 4082}#)
+ ((lambda (#{tmp\ 4084}#)
+ ((lambda (#{tmp\ 4085}#)
+ (if #{tmp\ 4085}#
+ (apply (lambda (#{_\ 4091}#
+ #{k\ 4092}#
+ #{keyword\ 4093}#
+ #{pattern\ 4094}#
+ #{template\ 4095}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6129")))
+ #(ribcage #(x) #((top)) #("i4083")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6129")))
+ #(ribcage #(x) #((top)) #("i4083")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6129")))
+ #(ribcage #(x) #((top)) #("i4083")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6129")))
+ #(ribcage #(x) #((top)) #("i4083")))
(hygiene guile)))
(cons '#(syntax-object
patterns
(top)
(top)
(top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6129")))
+ #("i4083")))
(hygiene guile))
- #{pattern\ 6140}#))
+ #{pattern\ 4094}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6129")))
+ #("i4083")))
(hygiene guile))
(cons '#(syntax-object
x
(top)
(top)
(top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6129")))
+ #("i4083")))
(hygiene guile))
- (cons #{k\ 6138}#
- (map (lambda (#{tmp\ 6145}#
- #{tmp\ 6144}#)
+ (cons #{k\ 4092}#
+ (map (lambda (#{tmp\ 4099}#
+ #{tmp\ 4098}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6129")))
+ #("i4083")))
(hygiene
guile))
- #{tmp\ 6144}#)
+ #{tmp\ 4098}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i6132"
- "i6133"
- "i6134"
- "i6135"
- "i6136"))
+ #("i4086"
+ "i4087"
+ "i4088"
+ "i4089"
+ "i4090"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6129")))
+ #("i4083")))
(hygiene
guile))
- #{tmp\ 6145}#)))
- #{template\ 6141}#
- #{pattern\ 6140}#))))))
- #{tmp\ 6131}#)
+ #{tmp\ 4099}#)))
+ #{template\ 4095}#
+ #{pattern\ 4094}#))))))
+ #{tmp\ 4085}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6130}#)))
+ #{tmp\ 4084}#)))
($sc-dispatch
- #{tmp\ 6130}#
+ #{tmp\ 4084}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 6128}#))
+ #{x\ 4082}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 6146}#)
- ((lambda (#{tmp\ 6148}#)
- ((lambda (#{tmp\ 6149}#)
- (if (if #{tmp\ 6149}#
- (apply (lambda (#{let*\ 6155}#
- #{x\ 6156}#
- #{v\ 6157}#
- #{e1\ 6158}#
- #{e2\ 6159}#)
- (and-map identifier? #{x\ 6156}#))
- #{tmp\ 6149}#)
+ (cons (lambda (#{x\ 4100}#)
+ ((lambda (#{tmp\ 4102}#)
+ ((lambda (#{tmp\ 4103}#)
+ (if (if #{tmp\ 4103}#
+ (apply (lambda (#{let*\ 4109}#
+ #{x\ 4110}#
+ #{v\ 4111}#
+ #{e1\ 4112}#
+ #{e2\ 4113}#)
+ (and-map identifier? #{x\ 4110}#))
+ #{tmp\ 4103}#)
#f)
- (apply (lambda (#{let*\ 6166}#
- #{x\ 6167}#
- #{v\ 6168}#
- #{e1\ 6169}#
- #{e2\ 6170}#)
- (letrec ((#{f\ 6173}#
- (lambda (#{bindings\ 6174}#)
- (if (null? #{bindings\ 6174}#)
+ (apply (lambda (#{let*\ 4120}#
+ #{x\ 4121}#
+ #{v\ 4122}#
+ #{e1\ 4123}#
+ #{e2\ 4124}#)
+ (letrec ((#{f\ 4127}#
+ (lambda (#{bindings\ 4128}#)
+ (if (null? #{bindings\ 4128}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i6171" "i6172"))
+ #("i4125" "i4126"))
#(ribcage
#(let* x v e1 e2)
#((top)
(top)
(top)
(top))
- #("i6161"
- "i6162"
- "i6163"
- "i6164"
- "i6165"))
+ #("i4115"
+ "i4116"
+ "i4117"
+ "i4118"
+ "i4119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6147")))
+ #("i4101")))
(hygiene guile))
(cons '()
- (cons #{e1\ 6169}#
- #{e2\ 6170}#)))
- ((lambda (#{tmp\ 6179}#)
- ((lambda (#{tmp\ 6180}#)
- (if #{tmp\ 6180}#
- (apply (lambda (#{body\ 6183}#
- #{binding\ 6184}#)
+ (cons #{e1\ 4123}#
+ #{e2\ 4124}#)))
+ ((lambda (#{tmp\ 4133}#)
+ ((lambda (#{tmp\ 4134}#)
+ (if #{tmp\ 4134}#
+ (apply (lambda (#{body\ 4137}#
+ #{binding\ 4138}#)
(list '#(syntax-object
let
((top)
binding)
#((top)
(top))
- #("i6181"
- "i6182"))
+ #("i4135"
+ "i4136"))
#(ribcage
()
()
bindings)
#((top)
(top))
- #("i6171"
- "i6172"))
+ #("i4125"
+ "i4126"))
#(ribcage
#(let*
x
(top)
(top)
(top))
- #("i6161"
- "i6162"
- "i6163"
- "i6164"
- "i6165"))
+ #("i4115"
+ "i4116"
+ "i4117"
+ "i4118"
+ "i4119"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6147")))
+ #("i4101")))
(hygiene
guile))
- (list #{binding\ 6184}#)
- #{body\ 6183}#))
- #{tmp\ 6180}#)
+ (list #{binding\ 4138}#)
+ #{body\ 4137}#))
+ #{tmp\ 4134}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6179}#)))
+ #{tmp\ 4133}#)))
($sc-dispatch
- #{tmp\ 6179}#
+ #{tmp\ 4133}#
'(any any))))
- (list (#{f\ 6173}#
- (cdr #{bindings\ 6174}#))
- (car #{bindings\ 6174}#)))))))
- (#{f\ 6173}#
- (map list #{x\ 6167}# #{v\ 6168}#))))
- #{tmp\ 6149}#)
+ (list (#{f\ 4127}#
+ (cdr #{bindings\ 4128}#))
+ (car #{bindings\ 4128}#)))))))
+ (#{f\ 4127}#
+ (map list #{x\ 4121}# #{v\ 4122}#))))
+ #{tmp\ 4103}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6148}#)))
+ #{tmp\ 4102}#)))
($sc-dispatch
- #{tmp\ 6148}#
+ #{tmp\ 4102}#
'(any #(each (any any)) any . each-any))))
- #{x\ 6146}#))
+ #{x\ 4100}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 6185}#)
- ((lambda (#{tmp\ 6187}#)
- ((lambda (#{tmp\ 6188}#)
- (if #{tmp\ 6188}#
- (apply (lambda (#{_\ 6196}#
- #{var\ 6197}#
- #{init\ 6198}#
- #{step\ 6199}#
- #{e0\ 6200}#
- #{e1\ 6201}#
- #{c\ 6202}#)
- ((lambda (#{tmp\ 6204}#)
- ((lambda (#{tmp\ 6205}#)
- (if #{tmp\ 6205}#
- (apply (lambda (#{step\ 6207}#)
- ((lambda (#{tmp\ 6208}#)
- ((lambda (#{tmp\ 6209}#)
- (if #{tmp\ 6209}#
+ (cons (lambda (#{orig-x\ 4139}#)
+ ((lambda (#{tmp\ 4141}#)
+ ((lambda (#{tmp\ 4142}#)
+ (if #{tmp\ 4142}#
+ (apply (lambda (#{_\ 4150}#
+ #{var\ 4151}#
+ #{init\ 4152}#
+ #{step\ 4153}#
+ #{e0\ 4154}#
+ #{e1\ 4155}#
+ #{c\ 4156}#)
+ ((lambda (#{tmp\ 4158}#)
+ ((lambda (#{tmp\ 4159}#)
+ (if #{tmp\ 4159}#
+ (apply (lambda (#{step\ 4161}#)
+ ((lambda (#{tmp\ 4162}#)
+ ((lambda (#{tmp\ 4163}#)
+ (if #{tmp\ 4163}#
(apply (lambda ()
(list '#(syntax-object
let
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
'#(syntax-object
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
(map list
- #{var\ 6197}#
- #{init\ 6198}#)
+ #{var\ 4151}#
+ #{init\ 4152}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
- #{e0\ 6200}#)
+ #{e0\ 4154}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
(append
- #{c\ 6202}#
+ #{c\ 4156}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
- #{step\ 6207}#)))))))
- #{tmp\ 6209}#)
- ((lambda (#{tmp\ 6214}#)
- (if #{tmp\ 6214}#
- (apply (lambda (#{e1\ 6217}#
- #{e2\ 6218}#)
+ #{step\ 4161}#)))))))
+ #{tmp\ 4163}#)
+ ((lambda (#{tmp\ 4168}#)
+ (if #{tmp\ 4168}#
+ (apply (lambda (#{e1\ 4171}#
+ #{e2\ 4172}#)
(list '#(syntax-object
let
((top)
e2)
#((top)
(top))
- #("i6215"
- "i6216"))
+ #("i4169"
+ "i4170"))
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
'#(syntax-object
e2)
#((top)
(top))
- #("i6215"
- "i6216"))
+ #("i4169"
+ "i4170"))
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
(map list
- #{var\ 6197}#
- #{init\ 6198}#)
+ #{var\ 4151}#
+ #{init\ 4152}#)
(list '#(syntax-object
if
((top)
e2)
#((top)
(top))
- #("i6215"
- "i6216"))
+ #("i4169"
+ "i4170"))
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
- #{e0\ 6200}#
+ #{e0\ 4154}#
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i6215"
- "i6216"))
+ #("i4169"
+ "i4170"))
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
- (cons #{e1\ 6217}#
- #{e2\ 6218}#))
+ (cons #{e1\ 4171}#
+ #{e2\ 4172}#))
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i6215"
- "i6216"))
+ #("i4169"
+ "i4170"))
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
(append
- #{c\ 6202}#
+ #{c\ 4156}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i6215"
- "i6216"))
+ #("i4169"
+ "i4170"))
#(ribcage
#(step)
#((top))
- #("i6206"))
+ #("i4160"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i6189"
- "i6190"
- "i6191"
- "i6192"
- "i6193"
- "i6194"
- "i6195"))
+ #("i4143"
+ "i4144"
+ "i4145"
+ "i4146"
+ "i4147"
+ "i4148"
+ "i4149"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i6186")))
+ #("i4140")))
(hygiene
guile))
- #{step\ 6207}#)))))))
- #{tmp\ 6214}#)
+ #{step\ 4161}#)))))))
+ #{tmp\ 4168}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6208}#)))
+ #{tmp\ 4162}#)))
($sc-dispatch
- #{tmp\ 6208}#
+ #{tmp\ 4162}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 6208}#
+ #{tmp\ 4162}#
'())))
- #{e1\ 6201}#))
- #{tmp\ 6205}#)
+ #{e1\ 4155}#))
+ #{tmp\ 4159}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6204}#)))
+ #{tmp\ 4158}#)))
($sc-dispatch
- #{tmp\ 6204}#
+ #{tmp\ 4158}#
'each-any)))
- (map (lambda (#{v\ 6225}# #{s\ 6226}#)
- ((lambda (#{tmp\ 6229}#)
- ((lambda (#{tmp\ 6230}#)
- (if #{tmp\ 6230}#
- (apply (lambda () #{v\ 6225}#)
- #{tmp\ 6230}#)
- ((lambda (#{tmp\ 6231}#)
- (if #{tmp\ 6231}#
- (apply (lambda (#{e\ 6233}#)
- #{e\ 6233}#)
- #{tmp\ 6231}#)
- ((lambda (#{_\ 6235}#)
+ (map (lambda (#{v\ 4179}# #{s\ 4180}#)
+ ((lambda (#{tmp\ 4183}#)
+ ((lambda (#{tmp\ 4184}#)
+ (if #{tmp\ 4184}#
+ (apply (lambda () #{v\ 4179}#)
+ #{tmp\ 4184}#)
+ ((lambda (#{tmp\ 4185}#)
+ (if #{tmp\ 4185}#
+ (apply (lambda (#{e\ 4187}#)
+ #{e\ 4187}#)
+ #{tmp\ 4185}#)
+ ((lambda (#{_\ 4189}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 6185}#
- #{s\ 6226}#))
- #{tmp\ 6229}#)))
+ #{orig-x\ 4139}#
+ #{s\ 4180}#))
+ #{tmp\ 4183}#)))
($sc-dispatch
- #{tmp\ 6229}#
+ #{tmp\ 4183}#
'(any)))))
($sc-dispatch
- #{tmp\ 6229}#
+ #{tmp\ 4183}#
'())))
- #{s\ 6226}#))
- #{var\ 6197}#
- #{step\ 6199}#)))
- #{tmp\ 6188}#)
+ #{s\ 4180}#))
+ #{var\ 4151}#
+ #{step\ 4153}#)))
+ #{tmp\ 4142}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6187}#)))
+ #{tmp\ 4141}#)))
($sc-dispatch
- #{tmp\ 6187}#
+ #{tmp\ 4141}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 6185}#))
+ #{orig-x\ 4139}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 6242}#
- (lambda (#{x\ 6246}# #{y\ 6247}#)
- ((lambda (#{tmp\ 6251}#)
- ((lambda (#{tmp\ 6252}#)
- (if #{tmp\ 6252}#
- (apply (lambda (#{x\ 6255}# #{y\ 6256}#)
- ((lambda (#{tmp\ 6257}#)
- ((lambda (#{tmp\ 6258}#)
- (if #{tmp\ 6258}#
- (apply (lambda (#{dy\ 6260}#)
- ((lambda (#{tmp\ 6261}#)
- ((lambda (#{tmp\ 6262}#)
- (if #{tmp\ 6262}#
- (apply (lambda (#{dx\ 6264}#)
+ (cons (letrec ((#{quasicons\ 4196}#
+ (lambda (#{x\ 4200}# #{y\ 4201}#)
+ ((lambda (#{tmp\ 4205}#)
+ ((lambda (#{tmp\ 4206}#)
+ (if #{tmp\ 4206}#
+ (apply (lambda (#{x\ 4209}# #{y\ 4210}#)
+ ((lambda (#{tmp\ 4211}#)
+ ((lambda (#{tmp\ 4212}#)
+ (if #{tmp\ 4212}#
+ (apply (lambda (#{dy\ 4214}#)
+ ((lambda (#{tmp\ 4215}#)
+ ((lambda (#{tmp\ 4216}#)
+ (if #{tmp\ 4216}#
+ (apply (lambda (#{dx\ 4218}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i6263"))
+ #("i4217"))
#(ribcage
#(dy)
#((top))
- #("i6259"))
+ #("i4213"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i6253"
- "i6254"))
+ #("i4207"
+ "i4208"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i6248"
- "i6249"))
+ #("i4202"
+ "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- (cons #{dx\ 6264}#
- #{dy\ 6260}#)))
- #{tmp\ 6262}#)
- ((lambda (#{_\ 6266}#)
- (if (null? #{dy\ 6260}#)
+ (cons #{dx\ 4218}#
+ #{dy\ 4214}#)))
+ #{tmp\ 4216}#)
+ ((lambda (#{_\ 4220}#)
+ (if (null? #{dy\ 4214}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i6265"))
+ #("i4219"))
#(ribcage
#(dy)
#((top))
- #("i6259"))
+ #("i4213"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i6253"
- "i6254"))
+ #("i4207"
+ "i4208"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i6248"
- "i6249"))
+ #("i4202"
+ "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- #{x\ 6255}#)
+ #{x\ 4209}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i6265"))
+ #("i4219"))
#(ribcage
#(dy)
#((top))
- #("i6259"))
+ #("i4213"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i6253"
- "i6254"))
+ #("i4207"
+ "i4208"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i6248"
- "i6249"))
+ #("i4202"
+ "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- #{x\ 6255}#
- #{y\ 6256}#)))
- #{tmp\ 6261}#)))
+ #{x\ 4209}#
+ #{y\ 4210}#)))
+ #{tmp\ 4215}#)))
($sc-dispatch
- #{tmp\ 6261}#
+ #{tmp\ 4215}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(dy)
#((top))
- #("i6259"))
+ #("i4213"))
#(ribcage
#(x y)
#((top)
(top))
- #("i6253"
- "i6254"))
+ #("i4207"
+ "i4208"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i6248"
- "i6249"))
+ #("i4202"
+ "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile)))
any))))
- #{x\ 6255}#))
- #{tmp\ 6258}#)
- ((lambda (#{tmp\ 6267}#)
- (if #{tmp\ 6267}#
- (apply (lambda (#{stuff\ 6269}#)
+ #{x\ 4209}#))
+ #{tmp\ 4212}#)
+ ((lambda (#{tmp\ 4221}#)
+ (if #{tmp\ 4221}#
+ (apply (lambda (#{stuff\ 4223}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i6268"))
+ #("i4222"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i6253"
- "i6254"))
+ #("i4207"
+ "i4208"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i6248"
- "i6249"))
+ #("i4202"
+ "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- (cons #{x\ 6255}#
- #{stuff\ 6269}#)))
- #{tmp\ 6267}#)
- ((lambda (#{else\ 6271}#)
+ (cons #{x\ 4209}#
+ #{stuff\ 4223}#)))
+ #{tmp\ 4221}#)
+ ((lambda (#{else\ 4225}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i6270"))
+ #("i4224"))
#(ribcage
#(x y)
#((top)
(top))
- #("i6253"
- "i6254"))
+ #("i4207"
+ "i4208"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i6248"
- "i6249"))
+ #("i4202"
+ "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- #{x\ 6255}#
- #{y\ 6256}#))
- #{tmp\ 6257}#)))
+ #{x\ 4209}#
+ #{y\ 4210}#))
+ #{tmp\ 4211}#)))
($sc-dispatch
- #{tmp\ 6257}#
+ #{tmp\ 4211}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x y)
#((top) (top))
- #("i6253" "i6254"))
+ #("i4207" "i4208"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6248" "i6249"))
+ #("i4202" "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 6257}#
+ #{tmp\ 4211}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i6253" "i6254"))
+ #("i4207" "i4208"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6248" "i6249"))
+ #("i4202" "i4203"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
any))))
- #{y\ 6256}#))
- #{tmp\ 6252}#)
+ #{y\ 4210}#))
+ #{tmp\ 4206}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6251}#)))
- ($sc-dispatch #{tmp\ 6251}# (quote (any any)))))
- (list #{x\ 6246}# #{y\ 6247}#))))
- (#{quasiappend\ 6243}#
- (lambda (#{x\ 6272}# #{y\ 6273}#)
- ((lambda (#{tmp\ 6277}#)
- ((lambda (#{tmp\ 6278}#)
- (if #{tmp\ 6278}#
- (apply (lambda (#{x\ 6281}# #{y\ 6282}#)
- ((lambda (#{tmp\ 6283}#)
- ((lambda (#{tmp\ 6284}#)
- (if #{tmp\ 6284}#
- (apply (lambda () #{x\ 6281}#)
- #{tmp\ 6284}#)
- ((lambda (#{_\ 6286}#)
+ #{tmp\ 4205}#)))
+ ($sc-dispatch #{tmp\ 4205}# (quote (any any)))))
+ (list #{x\ 4200}# #{y\ 4201}#))))
+ (#{quasiappend\ 4197}#
+ (lambda (#{x\ 4226}# #{y\ 4227}#)
+ ((lambda (#{tmp\ 4231}#)
+ ((lambda (#{tmp\ 4232}#)
+ (if #{tmp\ 4232}#
+ (apply (lambda (#{x\ 4235}# #{y\ 4236}#)
+ ((lambda (#{tmp\ 4237}#)
+ ((lambda (#{tmp\ 4238}#)
+ (if #{tmp\ 4238}#
+ (apply (lambda () #{x\ 4235}#)
+ #{tmp\ 4238}#)
+ ((lambda (#{_\ 4240}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i6285"))
+ #("i4239"))
#(ribcage
#(x y)
#((top) (top))
- #("i6279"
- "i6280"))
+ #("i4233"
+ "i4234"))
#(ribcage
()
()
#(ribcage
#(x y)
#((top) (top))
- #("i6274"
- "i6275"))
+ #("i4228"
+ "i4229"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
- #{x\ 6281}#
- #{y\ 6282}#))
- #{tmp\ 6283}#)))
+ #{x\ 4235}#
+ #{y\ 4236}#))
+ #{tmp\ 4237}#)))
($sc-dispatch
- #{tmp\ 6283}#
+ #{tmp\ 4237}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i6279" "i6280"))
+ #("i4233" "i4234"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6274" "i6275"))
+ #("i4228" "i4229"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
()))))
- #{y\ 6282}#))
- #{tmp\ 6278}#)
+ #{y\ 4236}#))
+ #{tmp\ 4232}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6277}#)))
- ($sc-dispatch #{tmp\ 6277}# (quote (any any)))))
- (list #{x\ 6272}# #{y\ 6273}#))))
- (#{quasivector\ 6244}#
- (lambda (#{x\ 6287}#)
- ((lambda (#{tmp\ 6290}#)
- ((lambda (#{x\ 6292}#)
- ((lambda (#{tmp\ 6293}#)
- ((lambda (#{tmp\ 6294}#)
- (if #{tmp\ 6294}#
- (apply (lambda (#{x\ 6296}#)
+ #{tmp\ 4231}#)))
+ ($sc-dispatch #{tmp\ 4231}# (quote (any any)))))
+ (list #{x\ 4226}# #{y\ 4227}#))))
+ (#{quasivector\ 4198}#
+ (lambda (#{x\ 4241}#)
+ ((lambda (#{tmp\ 4244}#)
+ ((lambda (#{x\ 4246}#)
+ ((lambda (#{tmp\ 4247}#)
+ ((lambda (#{tmp\ 4248}#)
+ (if #{tmp\ 4248}#
+ (apply (lambda (#{x\ 4250}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i6295"))
+ #("i4249"))
#(ribcage
#(x)
#((top))
- #("i6291"))
+ #("i4245"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6288"))
+ #("i4242"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
(list->vector
- #{x\ 6296}#)))
- #{tmp\ 6294}#)
- ((lambda (#{tmp\ 6298}#)
- (if #{tmp\ 6298}#
- (apply (lambda (#{x\ 6300}#)
+ #{x\ 4250}#)))
+ #{tmp\ 4248}#)
+ ((lambda (#{tmp\ 4252}#)
+ (if #{tmp\ 4252}#
+ (apply (lambda (#{x\ 4254}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i6299"))
+ #("i4253"))
#(ribcage
#(x)
#((top))
- #("i6291"))
+ #("i4245"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6288"))
+ #("i4242"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
- #{x\ 6300}#))
- #{tmp\ 6298}#)
- ((lambda (#{_\ 6303}#)
+ #{x\ 4254}#))
+ #{tmp\ 4252}#)
+ ((lambda (#{_\ 4257}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i6302"))
+ #("i4256"))
#(ribcage
#(x)
#((top))
- #("i6291"))
+ #("i4245"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6288"))
+ #("i4242"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
- #{x\ 6292}#))
- #{tmp\ 6293}#)))
+ #{x\ 4246}#))
+ #{tmp\ 4247}#)))
($sc-dispatch
- #{tmp\ 6293}#
+ #{tmp\ 4247}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x)
#((top))
- #("i6291"))
+ #("i4245"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6288"))
+ #("i4242"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 6293}#
+ #{tmp\ 4247}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i6291"))
+ #(ribcage #(x) #((top)) #("i4245"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6288"))
+ #(ribcage #(x) #((top)) #("i4242"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
each-any))))
- #{x\ 6292}#))
- #{tmp\ 6290}#))
- #{x\ 6287}#)))
- (#{quasi\ 6245}#
- (lambda (#{p\ 6304}# #{lev\ 6305}#)
- ((lambda (#{tmp\ 6308}#)
- ((lambda (#{tmp\ 6309}#)
- (if #{tmp\ 6309}#
- (apply (lambda (#{p\ 6311}#)
- (if (= #{lev\ 6305}# 0)
- #{p\ 6311}#
- (#{quasicons\ 6242}#
+ #{x\ 4246}#))
+ #{tmp\ 4244}#))
+ #{x\ 4241}#)))
+ (#{quasi\ 4199}#
+ (lambda (#{p\ 4258}# #{lev\ 4259}#)
+ ((lambda (#{tmp\ 4262}#)
+ ((lambda (#{tmp\ 4263}#)
+ (if #{tmp\ 4263}#
+ (apply (lambda (#{p\ 4265}#)
+ (if (= #{lev\ 4259}# 0)
+ #{p\ 4265}#
+ (#{quasicons\ 4196}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i6310"))
+ #("i4264"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i6310"))
+ #("i4264"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
- (#{quasi\ 6245}#
- (list #{p\ 6311}#)
- (- #{lev\ 6305}# 1)))))
- #{tmp\ 6309}#)
- ((lambda (#{tmp\ 6312}#)
- (if (if #{tmp\ 6312}#
- (apply (lambda (#{args\ 6314}#)
- (= #{lev\ 6305}# 0))
- #{tmp\ 6312}#)
+ (#{quasi\ 4199}#
+ (list #{p\ 4265}#)
+ (- #{lev\ 4259}# 1)))))
+ #{tmp\ 4263}#)
+ ((lambda (#{tmp\ 4266}#)
+ (if (if #{tmp\ 4266}#
+ (apply (lambda (#{args\ 4268}#)
+ (= #{lev\ 4259}# 0))
+ #{tmp\ 4266}#)
#f)
- (apply (lambda (#{args\ 6316}#)
+ (apply (lambda (#{args\ 4270}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 6304}#
+ #{p\ 4258}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i6315"))
+ #("i4269"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
- #{args\ 6316}#)))
- #{tmp\ 6312}#)
- ((lambda (#{tmp\ 6317}#)
- (if #{tmp\ 6317}#
- (apply (lambda (#{p\ 6320}#
- #{q\ 6321}#)
- (if (= #{lev\ 6305}# 0)
- (#{quasiappend\ 6243}#
- #{p\ 6320}#
- (#{quasi\ 6245}#
- #{q\ 6321}#
- #{lev\ 6305}#))
- (#{quasicons\ 6242}#
- (#{quasicons\ 6242}#
+ #{args\ 4270}#)))
+ #{tmp\ 4266}#)
+ ((lambda (#{tmp\ 4271}#)
+ (if #{tmp\ 4271}#
+ (apply (lambda (#{p\ 4274}#
+ #{q\ 4275}#)
+ (if (= #{lev\ 4259}# 0)
+ (#{quasiappend\ 4197}#
+ #{p\ 4274}#
+ (#{quasi\ 4199}#
+ #{q\ 4275}#
+ #{lev\ 4259}#))
+ (#{quasicons\ 4196}#
+ (#{quasicons\ 4196}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i6318"
- "i6319"))
+ #("i4272"
+ "i4273"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i6306"
- "i6307"))
+ #("i4260"
+ "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i6318"
- "i6319"))
+ #("i4272"
+ "i4273"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i6306"
- "i6307"))
+ #("i4260"
+ "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
- (#{quasi\ 6245}#
- (list #{p\ 6320}#)
- (- #{lev\ 6305}# 1)))
- (#{quasi\ 6245}#
- #{q\ 6321}#
- #{lev\ 6305}#))))
- #{tmp\ 6317}#)
- ((lambda (#{tmp\ 6322}#)
- (if (if #{tmp\ 6322}#
- (apply (lambda (#{args\ 6325}#
- #{q\ 6326}#)
- (= #{lev\ 6305}# 0))
- #{tmp\ 6322}#)
+ (#{quasi\ 4199}#
+ (list #{p\ 4274}#)
+ (- #{lev\ 4259}# 1)))
+ (#{quasi\ 4199}#
+ #{q\ 4275}#
+ #{lev\ 4259}#))))
+ #{tmp\ 4271}#)
+ ((lambda (#{tmp\ 4276}#)
+ (if (if #{tmp\ 4276}#
+ (apply (lambda (#{args\ 4279}#
+ #{q\ 4280}#)
+ (= #{lev\ 4259}# 0))
+ #{tmp\ 4276}#)
#f)
- (apply (lambda (#{args\ 6329}#
- #{q\ 6330}#)
+ (apply (lambda (#{args\ 4283}#
+ #{q\ 4284}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 6304}#
+ #{p\ 4258}#
(cons '#(syntax-object
unquote-splicing
((top)
#(args q)
#((top)
(top))
- #("i6327"
- "i6328"))
+ #("i4281"
+ "i4282"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i6306"
- "i6307"))
+ #("i4260"
+ "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- #{args\ 6329}#)))
- #{tmp\ 6322}#)
- ((lambda (#{tmp\ 6331}#)
- (if #{tmp\ 6331}#
- (apply (lambda (#{p\ 6333}#)
- (#{quasicons\ 6242}#
+ #{args\ 4283}#)))
+ #{tmp\ 4276}#)
+ ((lambda (#{tmp\ 4285}#)
+ (if #{tmp\ 4285}#
+ (apply (lambda (#{p\ 4287}#)
+ (#{quasicons\ 4196}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i6332"))
+ #("i4286"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i6306"
- "i6307"))
+ #("i4260"
+ "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
#(syntax-object
#(ribcage
#(p)
#((top))
- #("i6332"))
+ #("i4286"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i6306"
- "i6307"))
+ #("i4260"
+ "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile)))
- (#{quasi\ 6245}#
- (list #{p\ 6333}#)
- (+ #{lev\ 6305}#
+ (#{quasi\ 4199}#
+ (list #{p\ 4287}#)
+ (+ #{lev\ 4259}#
1))))
- #{tmp\ 6331}#)
- ((lambda (#{tmp\ 6334}#)
- (if #{tmp\ 6334}#
- (apply (lambda (#{p\ 6337}#
- #{q\ 6338}#)
- (#{quasicons\ 6242}#
- (#{quasi\ 6245}#
- #{p\ 6337}#
- #{lev\ 6305}#)
- (#{quasi\ 6245}#
- #{q\ 6338}#
- #{lev\ 6305}#)))
- #{tmp\ 6334}#)
- ((lambda (#{tmp\ 6339}#)
- (if #{tmp\ 6339}#
- (apply (lambda (#{x\ 6341}#)
- (#{quasivector\ 6244}#
- (#{quasi\ 6245}#
- #{x\ 6341}#
- #{lev\ 6305}#)))
- #{tmp\ 6339}#)
- ((lambda (#{p\ 6344}#)
+ #{tmp\ 4285}#)
+ ((lambda (#{tmp\ 4288}#)
+ (if #{tmp\ 4288}#
+ (apply (lambda (#{p\ 4291}#
+ #{q\ 4292}#)
+ (#{quasicons\ 4196}#
+ (#{quasi\ 4199}#
+ #{p\ 4291}#
+ #{lev\ 4259}#)
+ (#{quasi\ 4199}#
+ #{q\ 4292}#
+ #{lev\ 4259}#)))
+ #{tmp\ 4288}#)
+ ((lambda (#{tmp\ 4293}#)
+ (if #{tmp\ 4293}#
+ (apply (lambda (#{x\ 4295}#)
+ (#{quasivector\ 4198}#
+ (#{quasi\ 4199}#
+ #{x\ 4295}#
+ #{lev\ 4259}#)))
+ #{tmp\ 4293}#)
+ ((lambda (#{p\ 4298}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i6343"))
+ #("i4297"))
#(ribcage
()
()
lev)
#((top)
(top))
- #("i6306"
- "i6307"))
+ #("i4260"
+ "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene
guile))
- #{p\ 6344}#))
- #{tmp\ 6308}#)))
+ #{p\ 4298}#))
+ #{tmp\ 4262}#)))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238"
- "i6239"
- "i6240"
- "i6241")))
+ #("i4192"
+ "i4193"
+ "i4194"
+ "i4195")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238" "i6239" "i6240" "i6241")))
+ #("i4192" "i4193" "i4194" "i4195")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 6308}#
+ #{tmp\ 4262}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i6306" "i6307"))
+ #("i4260" "i4261"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6238" "i6239" "i6240" "i6241")))
+ #("i4192" "i4193" "i4194" "i4195")))
(hygiene guile)))
any))))
- #{p\ 6304}#))))
- (lambda (#{x\ 6345}#)
- ((lambda (#{tmp\ 6347}#)
- ((lambda (#{tmp\ 6348}#)
- (if #{tmp\ 6348}#
- (apply (lambda (#{_\ 6351}# #{e\ 6352}#)
- (#{quasi\ 6245}# #{e\ 6352}# 0))
- #{tmp\ 6348}#)
+ #{p\ 4258}#))))
+ (lambda (#{x\ 4299}#)
+ ((lambda (#{tmp\ 4301}#)
+ ((lambda (#{tmp\ 4302}#)
+ (if #{tmp\ 4302}#
+ (apply (lambda (#{_\ 4305}# #{e\ 4306}#)
+ (#{quasi\ 4199}# #{e\ 4306}# 0))
+ #{tmp\ 4302}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6347}#)))
- ($sc-dispatch #{tmp\ 6347}# (quote (any any)))))
- #{x\ 6345}#)))
+ #{tmp\ 4301}#)))
+ ($sc-dispatch #{tmp\ 4301}# (quote (any any)))))
+ #{x\ 4299}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 6353}#)
- (letrec ((#{read-file\ 6356}#
- (lambda (#{fn\ 6357}# #{k\ 6358}#)
- (let ((#{p\ 6362}# (open-input-file #{fn\ 6357}#)))
- (letrec ((#{f\ 6366}#
- (lambda (#{x\ 6367}# #{result\ 6368}#)
- (if (eof-object? #{x\ 6367}#)
+ (cons (lambda (#{x\ 4307}#)
+ (letrec ((#{read-file\ 4310}#
+ (lambda (#{fn\ 4311}# #{k\ 4312}#)
+ (let ((#{p\ 4316}# (open-input-file #{fn\ 4311}#)))
+ (letrec ((#{f\ 4320}#
+ (lambda (#{x\ 4321}# #{result\ 4322}#)
+ (if (eof-object? #{x\ 4321}#)
(begin
- (close-input-port #{p\ 6362}#)
- (reverse #{result\ 6368}#))
- (#{f\ 6366}#
- (read #{p\ 6362}#)
+ (close-input-port #{p\ 4316}#)
+ (reverse #{result\ 4322}#))
+ (#{f\ 4320}#
+ (read #{p\ 4316}#)
(cons (datum->syntax
- #{k\ 6358}#
- #{x\ 6367}#)
- #{result\ 6368}#))))))
- (#{f\ 6366}# (read #{p\ 6362}#) (quote ())))))))
- ((lambda (#{tmp\ 6369}#)
- ((lambda (#{tmp\ 6370}#)
- (if #{tmp\ 6370}#
- (apply (lambda (#{k\ 6373}# #{filename\ 6374}#)
- (let ((#{fn\ 6376}#
- (syntax->datum #{filename\ 6374}#)))
- ((lambda (#{tmp\ 6378}#)
- ((lambda (#{tmp\ 6379}#)
- (if #{tmp\ 6379}#
- (apply (lambda (#{exp\ 6381}#)
+ #{k\ 4312}#
+ #{x\ 4321}#)
+ #{result\ 4322}#))))))
+ (#{f\ 4320}# (read #{p\ 4316}#) (quote ())))))))
+ ((lambda (#{tmp\ 4323}#)
+ ((lambda (#{tmp\ 4324}#)
+ (if #{tmp\ 4324}#
+ (apply (lambda (#{k\ 4327}# #{filename\ 4328}#)
+ (let ((#{fn\ 4330}#
+ (syntax->datum #{filename\ 4328}#)))
+ ((lambda (#{tmp\ 4332}#)
+ ((lambda (#{tmp\ 4333}#)
+ (if #{tmp\ 4333}#
+ (apply (lambda (#{exp\ 4335}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i6380"))
+ #("i4334"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i6375"))
+ #("i4329"))
#(ribcage
#(k filename)
#((top) (top))
- #("i6371"
- "i6372"))
+ #("i4325"
+ "i4326"))
#(ribcage
(read-file)
((top))
- ("i6355"))
+ ("i4309"))
#(ribcage
#(x)
#((top))
- #("i6354")))
+ #("i4308")))
(hygiene guile))
- #{exp\ 6381}#))
- #{tmp\ 6379}#)
+ #{exp\ 4335}#))
+ #{tmp\ 4333}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6378}#)))
+ #{tmp\ 4332}#)))
($sc-dispatch
- #{tmp\ 6378}#
+ #{tmp\ 4332}#
'each-any)))
- (#{read-file\ 6356}#
- #{fn\ 6376}#
- #{k\ 6373}#))))
- #{tmp\ 6370}#)
+ (#{read-file\ 4310}#
+ #{fn\ 4330}#
+ #{k\ 4327}#))))
+ #{tmp\ 4324}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6369}#)))
- ($sc-dispatch #{tmp\ 6369}# (quote (any any)))))
- #{x\ 6353}#)))
+ #{tmp\ 4323}#)))
+ ($sc-dispatch #{tmp\ 4323}# (quote (any any)))))
+ #{x\ 4307}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 6383}#)
- ((lambda (#{tmp\ 6385}#)
- ((lambda (#{tmp\ 6386}#)
- (if #{tmp\ 6386}#
- (apply (lambda (#{k\ 6389}# #{filename\ 6390}#)
- (let ((#{fn\ 6392}#
- (syntax->datum #{filename\ 6390}#)))
- ((lambda (#{tmp\ 6394}#)
- ((lambda (#{fn\ 6396}#)
+ (cons (lambda (#{x\ 4337}#)
+ ((lambda (#{tmp\ 4339}#)
+ ((lambda (#{tmp\ 4340}#)
+ (if #{tmp\ 4340}#
+ (apply (lambda (#{k\ 4343}# #{filename\ 4344}#)
+ (let ((#{fn\ 4346}#
+ (syntax->datum #{filename\ 4344}#)))
+ ((lambda (#{tmp\ 4348}#)
+ ((lambda (#{fn\ 4350}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i6395"))
+ #("i4349"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i6391"))
+ #("i4345"))
#(ribcage
#(k filename)
#((top) (top))
- #("i6387" "i6388"))
+ #("i4341" "i4342"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6384")))
+ #("i4338")))
(hygiene guile))
- #{fn\ 6396}#))
- #{tmp\ 6394}#))
- (let ((#{t\ 6399}#
- (%search-load-path #{fn\ 6392}#)))
- (if #{t\ 6399}#
- #{t\ 6399}#
+ #{fn\ 4350}#))
+ #{tmp\ 4348}#))
+ (let ((#{t\ 4353}#
+ (%search-load-path #{fn\ 4346}#)))
+ (if #{t\ 4353}#
+ #{t\ 4353}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 6383}#
- #{filename\ 6390}#))))))
- #{tmp\ 6386}#)
+ #{x\ 4337}#
+ #{filename\ 4344}#))))))
+ #{tmp\ 4340}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6385}#)))
- ($sc-dispatch #{tmp\ 6385}# (quote (any any)))))
- #{x\ 6383}#))
+ #{tmp\ 4339}#)))
+ ($sc-dispatch #{tmp\ 4339}# (quote (any any)))))
+ #{x\ 4337}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 6401}#)
- ((lambda (#{tmp\ 6403}#)
- ((lambda (#{tmp\ 6404}#)
- (if #{tmp\ 6404}#
- (apply (lambda (#{_\ 6407}# #{e\ 6408}#)
+ (cons (lambda (#{x\ 4355}#)
+ ((lambda (#{tmp\ 4357}#)
+ ((lambda (#{tmp\ 4358}#)
+ (if #{tmp\ 4358}#
+ (apply (lambda (#{_\ 4361}# #{e\ 4362}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 6401}#))
- #{tmp\ 6404}#)
+ #{x\ 4355}#))
+ #{tmp\ 4358}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6403}#)))
- ($sc-dispatch #{tmp\ 6403}# (quote (any any)))))
- #{x\ 6401}#))
+ #{tmp\ 4357}#)))
+ ($sc-dispatch #{tmp\ 4357}# (quote (any any)))))
+ #{x\ 4355}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 6409}#)
- ((lambda (#{tmp\ 6411}#)
- ((lambda (#{tmp\ 6412}#)
- (if #{tmp\ 6412}#
- (apply (lambda (#{_\ 6415}# #{e\ 6416}#)
+ (cons (lambda (#{x\ 4363}#)
+ ((lambda (#{tmp\ 4365}#)
+ ((lambda (#{tmp\ 4366}#)
+ (if #{tmp\ 4366}#
+ (apply (lambda (#{_\ 4369}# #{e\ 4370}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 6409}#))
- #{tmp\ 6412}#)
+ #{x\ 4363}#))
+ #{tmp\ 4366}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6411}#)))
- ($sc-dispatch #{tmp\ 6411}# (quote (any any)))))
- #{x\ 6409}#))
+ #{tmp\ 4365}#)))
+ ($sc-dispatch #{tmp\ 4365}# (quote (any any)))))
+ #{x\ 4363}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 6417}#)
- ((lambda (#{tmp\ 6419}#)
- ((lambda (#{tmp\ 6420}#)
- (if #{tmp\ 6420}#
- (apply (lambda (#{_\ 6425}#
- #{e\ 6426}#
- #{m1\ 6427}#
- #{m2\ 6428}#)
- ((lambda (#{tmp\ 6430}#)
- ((lambda (#{body\ 6432}#)
+ (cons (lambda (#{x\ 4371}#)
+ ((lambda (#{tmp\ 4373}#)
+ ((lambda (#{tmp\ 4374}#)
+ (if #{tmp\ 4374}#
+ (apply (lambda (#{_\ 4379}#
+ #{e\ 4380}#
+ #{m1\ 4381}#
+ #{m2\ 4382}#)
+ ((lambda (#{tmp\ 4384}#)
+ ((lambda (#{body\ 4386}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i6431"))
+ #("i4385"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i6431"))
+ #("i4385"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene guile))
- #{e\ 6426}#))
- #{body\ 6432}#))
- #{tmp\ 6430}#))
- (letrec ((#{f\ 6436}#
- (lambda (#{clause\ 6437}#
- #{clauses\ 6438}#)
- (if (null? #{clauses\ 6438}#)
- ((lambda (#{tmp\ 6440}#)
- ((lambda (#{tmp\ 6441}#)
- (if #{tmp\ 6441}#
- (apply (lambda (#{e1\ 6444}#
- #{e2\ 6445}#)
+ #{e\ 4380}#))
+ #{body\ 4386}#))
+ #{tmp\ 4384}#))
+ (letrec ((#{f\ 4390}#
+ (lambda (#{clause\ 4391}#
+ #{clauses\ 4392}#)
+ (if (null? #{clauses\ 4392}#)
+ ((lambda (#{tmp\ 4394}#)
+ ((lambda (#{tmp\ 4395}#)
+ (if #{tmp\ 4395}#
+ (apply (lambda (#{e1\ 4398}#
+ #{e2\ 4399}#)
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i6442"
- "i6443"))
+ #("i4396"
+ "i4397"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
- (cons #{e1\ 6444}#
- #{e2\ 6445}#)))
- #{tmp\ 6441}#)
- ((lambda (#{tmp\ 6447}#)
- (if #{tmp\ 6447}#
- (apply (lambda (#{k\ 6451}#
- #{e1\ 6452}#
- #{e2\ 6453}#)
+ (cons #{e1\ 4398}#
+ #{e2\ 4399}#)))
+ #{tmp\ 4395}#)
+ ((lambda (#{tmp\ 4401}#)
+ (if #{tmp\ 4401}#
+ (apply (lambda (#{k\ 4405}#
+ #{e1\ 4406}#
+ #{e2\ 4407}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i6448"
- "i6449"
- "i6450"))
+ #("i4402"
+ "i4403"
+ "i4404"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i6448"
- "i6449"
- "i6450"))
+ #("i4402"
+ "i4403"
+ "i4404"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i6448"
- "i6449"
- "i6450"))
+ #("i4402"
+ "i4403"
+ "i4404"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i6448"
- "i6449"
- "i6450"))
+ #("i4402"
+ "i4403"
+ "i4404"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
- #{k\ 6451}#))
+ #{k\ 4405}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i6448"
- "i6449"
- "i6450"))
+ #("i4402"
+ "i4403"
+ "i4404"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
- (cons #{e1\ 6452}#
- #{e2\ 6453}#))))
- #{tmp\ 6447}#)
- ((lambda (#{_\ 6457}#)
+ (cons #{e1\ 4406}#
+ #{e2\ 4407}#))))
+ #{tmp\ 4401}#)
+ ((lambda (#{_\ 4411}#)
(syntax-violation
'case
"bad clause"
- #{x\ 6417}#
- #{clause\ 6437}#))
- #{tmp\ 6440}#)))
+ #{x\ 4371}#
+ #{clause\ 4391}#))
+ #{tmp\ 4394}#)))
($sc-dispatch
- #{tmp\ 6440}#
+ #{tmp\ 4394}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 6440}#
+ #{tmp\ 4394}#
'(#(free-id
#(syntax-object
else
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 6437}#)
- ((lambda (#{tmp\ 6459}#)
- ((lambda (#{rest\ 6461}#)
- ((lambda (#{tmp\ 6462}#)
- ((lambda (#{tmp\ 6463}#)
- (if #{tmp\ 6463}#
- (apply (lambda (#{k\ 6467}#
- #{e1\ 6468}#
- #{e2\ 6469}#)
+ #{clause\ 4391}#)
+ ((lambda (#{tmp\ 4413}#)
+ ((lambda (#{rest\ 4415}#)
+ ((lambda (#{tmp\ 4416}#)
+ ((lambda (#{tmp\ 4417}#)
+ (if #{tmp\ 4417}#
+ (apply (lambda (#{k\ 4421}#
+ #{e1\ 4422}#
+ #{e2\ 4423}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i6464"
- "i6465"
- "i6466"))
+ #("i4418"
+ "i4419"
+ "i4420"))
#(ribcage
#(rest)
#((top))
- #("i6460"))
+ #("i4414"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i6464"
- "i6465"
- "i6466"))
+ #("i4418"
+ "i4419"
+ "i4420"))
#(ribcage
#(rest)
#((top))
- #("i6460"))
+ #("i4414"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i6464"
- "i6465"
- "i6466"))
+ #("i4418"
+ "i4419"
+ "i4420"))
#(ribcage
#(rest)
#((top))
- #("i6460"))
+ #("i4414"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i6464"
- "i6465"
- "i6466"))
+ #("i4418"
+ "i4419"
+ "i4420"))
#(ribcage
#(rest)
#((top))
- #("i6460"))
+ #("i4414"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
- #{k\ 6467}#))
+ #{k\ 4421}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i6464"
- "i6465"
- "i6466"))
+ #("i4418"
+ "i4419"
+ "i4420"))
#(ribcage
#(rest)
#((top))
- #("i6460"))
+ #("i4414"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i6433"
- "i6434"
- "i6435"))
+ #("i4387"
+ "i4388"
+ "i4389"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i6421"
- "i6422"
- "i6423"
- "i6424"))
+ #("i4375"
+ "i4376"
+ "i4377"
+ "i4378"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6418")))
+ #("i4372")))
(hygiene
guile))
- (cons #{e1\ 6468}#
- #{e2\ 6469}#))
- #{rest\ 6461}#))
- #{tmp\ 6463}#)
- ((lambda (#{_\ 6473}#)
+ (cons #{e1\ 4422}#
+ #{e2\ 4423}#))
+ #{rest\ 4415}#))
+ #{tmp\ 4417}#)
+ ((lambda (#{_\ 4427}#)
(syntax-violation
'case
"bad clause"
- #{x\ 6417}#
- #{clause\ 6437}#))
- #{tmp\ 6462}#)))
+ #{x\ 4371}#
+ #{clause\ 4391}#))
+ #{tmp\ 4416}#)))
($sc-dispatch
- #{tmp\ 6462}#
+ #{tmp\ 4416}#
'(each-any
any
.
each-any))))
- #{clause\ 6437}#))
- #{tmp\ 6459}#))
- (#{f\ 6436}#
- (car #{clauses\ 6438}#)
- (cdr #{clauses\ 6438}#)))))))
- (#{f\ 6436}# #{m1\ 6427}# #{m2\ 6428}#))))
- #{tmp\ 6420}#)
+ #{clause\ 4391}#))
+ #{tmp\ 4413}#))
+ (#{f\ 4390}#
+ (car #{clauses\ 4392}#)
+ (cdr #{clauses\ 4392}#)))))))
+ (#{f\ 4390}# #{m1\ 4381}# #{m2\ 4382}#))))
+ #{tmp\ 4374}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6419}#)))
+ #{tmp\ 4373}#)))
($sc-dispatch
- #{tmp\ 6419}#
+ #{tmp\ 4373}#
'(any any any . each-any))))
- #{x\ 6417}#))
+ #{x\ 4371}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 6474}#)
- ((lambda (#{tmp\ 6476}#)
- ((lambda (#{tmp\ 6477}#)
- (if #{tmp\ 6477}#
- (apply (lambda (#{_\ 6480}# #{e\ 6481}#)
+ (cons (lambda (#{x\ 4428}#)
+ ((lambda (#{tmp\ 4430}#)
+ ((lambda (#{tmp\ 4431}#)
+ (if #{tmp\ 4431}#
+ (apply (lambda (#{_\ 4434}# #{e\ 4435}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6475")))
+ #(ribcage #(x) #((top)) #("i4429")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6475")))
+ #(ribcage #(x) #((top)) #("i4429")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6475")))
+ #(ribcage #(x) #((top)) #("i4429")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6475")))
+ #(ribcage #(x) #((top)) #("i4429")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
'()
(list '#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
'(#(syntax-object
identifier?
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
(#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
#(syntax-object
id
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
- #{e\ 6481}#))
- (list (cons #{_\ 6480}#
+ #{e\ 4435}#))
+ (list (cons #{_\ 4434}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i6478" "i6479"))
+ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
- (cons #{e\ 6481}#
+ (cons #{e\ 4435}#
'(#(syntax-object
x
((top)
#(_ e)
#((top)
(top))
- #("i6478"
- "i6479"))
+ #("i4432"
+ "i4433"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene guile))
#(syntax-object
...
#(_ e)
#((top)
(top))
- #("i6478"
- "i6479"))
+ #("i4432"
+ "i4433"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i6475")))
+ #("i4429")))
(hygiene
guile)))))))))
- #{tmp\ 6477}#)
+ #{tmp\ 4431}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6476}#)))
- ($sc-dispatch #{tmp\ 6476}# (quote (any any)))))
- #{x\ 6474}#))
+ #{tmp\ 4430}#)))
+ ($sc-dispatch #{tmp\ 4430}# (quote (any any)))))
+ #{x\ 4428}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 6482}#)
- ((lambda (#{tmp\ 6484}#)
- ((lambda (#{tmp\ 6485}#)
- (if #{tmp\ 6485}#
- (apply (lambda (#{_\ 6491}#
- #{id\ 6492}#
- #{args\ 6493}#
- #{b0\ 6494}#
- #{b1\ 6495}#)
+ (cons (lambda (#{x\ 4436}#)
+ ((lambda (#{tmp\ 4438}#)
+ ((lambda (#{tmp\ 4439}#)
+ (if #{tmp\ 4439}#
+ (apply (lambda (#{_\ 4445}#
+ #{id\ 4446}#
+ #{args\ 4447}#
+ #{b0\ 4448}#
+ #{b1\ 4449}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i6486"
- "i6487"
- "i6488"
- "i6489"
- "i6490"))
+ #("i4440"
+ "i4441"
+ "i4442"
+ "i4443"
+ "i4444"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6483")))
+ #(ribcage #(x) #((top)) #("i4437")))
(hygiene guile))
- #{id\ 6492}#
+ #{id\ 4446}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i6486"
- "i6487"
- "i6488"
- "i6489"
- "i6490"))
+ #("i4440"
+ "i4441"
+ "i4442"
+ "i4443"
+ "i4444"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6483")))
+ #("i4437")))
(hygiene guile))
- (cons #{args\ 6493}#
- (cons #{b0\ 6494}#
- #{b1\ 6495}#)))))
- #{tmp\ 6485}#)
- ((lambda (#{tmp\ 6497}#)
- (if (if #{tmp\ 6497}#
- (apply (lambda (#{_\ 6501}#
- #{id\ 6502}#
- #{val\ 6503}#)
+ (cons #{args\ 4447}#
+ (cons #{b0\ 4448}#
+ #{b1\ 4449}#)))))
+ #{tmp\ 4439}#)
+ ((lambda (#{tmp\ 4451}#)
+ (if (if #{tmp\ 4451}#
+ (apply (lambda (#{_\ 4455}#
+ #{id\ 4456}#
+ #{val\ 4457}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i6498" "i6499" "i6500"))
+ #("i4452" "i4453" "i4454"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6483")))
+ #("i4437")))
(hygiene guile))))
- #{tmp\ 6497}#)
+ #{tmp\ 4451}#)
#f)
- (apply (lambda (#{_\ 6507}#
- #{id\ 6508}#
- #{val\ 6509}#)
+ (apply (lambda (#{_\ 4461}#
+ #{id\ 4462}#
+ #{val\ 4463}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i6504" "i6505" "i6506"))
+ #("i4458" "i4459" "i4460"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6483")))
+ #("i4437")))
(hygiene guile))
- #{id\ 6508}#
- #{val\ 6509}#))
- #{tmp\ 6497}#)
+ #{id\ 4462}#
+ #{val\ 4463}#))
+ #{tmp\ 4451}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6484}#)))
+ #{tmp\ 4438}#)))
($sc-dispatch
- #{tmp\ 6484}#
+ #{tmp\ 4438}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 6484}#
+ #{tmp\ 4438}#
'(any (any . any) any . each-any))))
- #{x\ 6482}#))
+ #{x\ 4436}#))
(module-name (current-module)))))
HCoop / bpt / guile.git / commitdiff