From 131ae7b49de8c723fafaa3f867dc9804c587f375 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 20 May 2010 12:54:47 +0200 Subject: [PATCH] remove *mode* fluid from psyntax * module/ice-9/psyntax.scm: Remove the *mode* fluid. Whee :) (macroexpand): No need to bind aa *mode* fluid. * module/ice-9/psyntax-pp.scm: Regenerated. --- module/ice-9/psyntax-pp.scm | 16538 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 5 +- 2 files changed, 8235 insertions(+), 8308 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 2cdd06bed..2cb9e205b 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,644 +1,638 @@ (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 () () @@ -652,10 +646,10 @@ (top) (top) (top)) - #("i3014" - "i3015" - "i3016" - "i3017")) + #("i968" + "i969" + "i970" + "i971")) #(ribcage (check rest key @@ -666,15 +660,15 @@ (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 @@ -809,8 +803,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -944,143 +937,141 @@ (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 @@ -1088,228 +1079,228 @@ ((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) @@ -1317,8 +1308,8 @@ #(a b) #((top) (top)) - #("i3129" - "i3130")) + #("i1083" + "i1084")) #(ribcage () () @@ -1330,9 +1321,9 @@ #((top) (top) (top)) - #("i3119" - "i3120" - "i3121")) + #("i1073" + "i1074" + "i1075")) #(ribcage (check rest key @@ -1343,15 +1334,15 @@ (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 @@ -1486,8 +1477,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -1621,143 +1611,141 @@ (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 @@ -1765,341 +1753,341 @@ ((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 @@ -2234,8 +2222,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -2369,1433 +2356,1431 @@ (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) @@ -3810,11 +3795,11 @@ (top) (top) (top)) - #("i3841" - "i3842" - "i3843" - "i3844" - "i3845")) + #("i1795" + "i1796" + "i1797" + "i1798" + "i1799")) #(ribcage () () @@ -3836,12 +3821,12 @@ (top) (top) (top)) - #("i3788" - "i3789" - "i3790" - "i3791" - "i3792" - "i3793")) + #("i1742" + "i1743" + "i1744" + "i1745" + "i1746" + "i1747")) #(ribcage () () @@ -3849,7 +3834,7 @@ #(ribcage #(first) #((top)) - #("i3780")) + #("i1734")) #(ribcage () () @@ -3877,13 +3862,13 @@ (top) (top) (top)) - #("i3757" - "i3758" - "i3759" - "i3760" - "i3761" - "i3762" - "i3763")) + #("i1711" + "i1712" + "i1713" + "i1714" + "i1715" + "i1716" + "i1717")) #(ribcage (lambda-var-list gen-var @@ -4018,8 +4003,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -4153,143 +4137,141 @@ (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 @@ -4297,38 +4279,38 @@ ((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) @@ -4337,8 +4319,8 @@ name) #((top) (top)) - #("i3858" - "i3859")) + #("i1812" + "i1813")) #(ribcage () () @@ -4360,12 +4342,12 @@ (top) (top) (top)) - #("i3788" - "i3789" - "i3790" - "i3791" - "i3792" - "i3793")) + #("i1742" + "i1743" + "i1744" + "i1745" + "i1746" + "i1747")) #(ribcage () () @@ -4373,7 +4355,7 @@ #(ribcage #(first) #((top)) - #("i3780")) + #("i1734")) #(ribcage () () @@ -4401,13 +4383,13 @@ (top) (top) (top)) - #("i3757" - "i3758" - "i3759" - "i3760" - "i3761" - "i3762" - "i3763")) + #("i1711" + "i1712" + "i1713" + "i1714" + "i1715" + "i1716" + "i1717")) #(ribcage (lambda-var-list gen-var @@ -4542,8 +4524,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -4677,143 +4658,141 @@ (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 @@ -4821,9 +4800,9 @@ ((top) (top) (top)) - ("i2066" - "i2065" - "i2063"))) + ("i22" + "i21" + "i19"))) (hygiene guile)) #(syntax-object @@ -4834,8 +4813,8 @@ name) #((top) (top)) - #("i3858" - "i3859")) + #("i1812" + "i1813")) #(ribcage () () @@ -4857,12 +4836,12 @@ (top) (top) (top)) - #("i3788" - "i3789" - "i3790" - "i3791" - "i3792" - "i3793")) + #("i1742" + "i1743" + "i1744" + "i1745" + "i1746" + "i1747")) #(ribcage () () @@ -4870,7 +4849,7 @@ #(ribcage #(first) #((top)) - #("i3780")) + #("i1734")) #(ribcage () () @@ -4898,13 +4877,13 @@ (top) (top) (top)) - #("i3757" - "i3758" - "i3759" - "i3760" - "i3761" - "i3762" - "i3763")) + #("i1711" + "i1712" + "i1713" + "i1714" + "i1715" + "i1716" + "i1717")) #(ribcage (lambda-var-list gen-var @@ -5039,8 +5018,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -5174,143 +5152,141 @@ (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 @@ -5318,9 +5294,9 @@ ((top) (top) (top)) - ("i2066" - "i2065" - "i2063"))) + ("i22" + "i21" + "i19"))) (hygiene guile)) #(syntax-object @@ -5331,8 +5307,8 @@ name) #((top) (top)) - #("i3858" - "i3859")) + #("i1812" + "i1813")) #(ribcage () () @@ -5354,12 +5330,12 @@ (top) (top) (top)) - #("i3788" - "i3789" - "i3790" - "i3791" - "i3792" - "i3793")) + #("i1742" + "i1743" + "i1744" + "i1745" + "i1746" + "i1747")) #(ribcage () () @@ -5367,7 +5343,7 @@ #(ribcage #(first) #((top)) - #("i3780")) + #("i1734")) #(ribcage () () @@ -5395,13 +5371,13 @@ (top) (top) (top)) - #("i3757" - "i3758" - "i3759" - "i3760" - "i3761" - "i3762" - "i3763")) + #("i1711" + "i1712" + "i1713" + "i1714" + "i1715" + "i1716" + "i1717")) #(ribcage (lambda-var-list gen-var @@ -5536,8 +5512,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -5671,143 +5646,141 @@ (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 @@ -5815,110 +5788,110 @@ ((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) @@ -5928,17 +5901,17 @@ #(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 @@ -6073,8 +6046,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -6208,153 +6180,151 @@ (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) @@ -6364,21 +6334,21 @@ #(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 @@ -6513,8 +6483,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -6648,155 +6617,151 @@ (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) @@ -6806,23 +6771,23 @@ #(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 @@ -6957,8 +6922,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -7092,155 +7056,151 @@ (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) @@ -7250,23 +7210,23 @@ #(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 @@ -7401,8 +7361,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -7536,2415 +7495,2403 @@ (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) @@ -9963,22 +9910,22 @@ (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) @@ -9987,11 +9934,11 @@ (top) (top) (top)) - #("i5356" - "i5357" - "i5358" - "i5359" - "i5360")) + #("i3310" + "i3311" + "i3312" + "i3313" + "i3314")) #(ribcage (lambda-var-list gen-var @@ -10126,8 +10073,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -10261,201 +10207,197 @@ (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 @@ -10464,12 +10406,12 @@ #(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 @@ -10604,8 +10546,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -10739,215 +10680,213 @@ (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 @@ -10955,15 +10894,15 @@ #(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 @@ -11098,8 +11037,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -11233,333 +11171,331 @@ (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 @@ -11572,11 +11508,11 @@ (top) (top) (top)) - #("i5579" - "i5580" - "i5581" - "i5582" - "i5583")) + #("i3533" + "i3534" + "i3535" + "i3536" + "i3537")) #(ribcage (gen-syntax-case gen-clause @@ -11586,10 +11522,10 @@ (top) (top) (top)) - ("i5572" - "i5570" - "i5568" - "i5566")) + ("i3526" + "i3524" + "i3522" + "i3520")) #(ribcage (lambda-var-list gen-var @@ -11724,8 +11660,7 @@ make-lexical-ref make-primitive-ref make-const - make-void - *mode*) + make-void) ((top) (top) (top) @@ -11859,1046 +11794,1041 @@ (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))))))))) @@ -12907,50 +12837,50 @@ (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) @@ -12961,27 +12891,27 @@ (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) @@ -12992,16 +12922,16 @@ (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 @@ -13013,20 +12943,20 @@ (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) @@ -13041,11 +12971,11 @@ (top) (top) (top)) - #("i6115" - "i6116" - "i6117" - "i6118" - "i6119")) + #("i4069" + "i4070" + "i4071" + "i4072" + "i4073")) #(ribcage () () @@ -13053,53 +12983,53 @@ #(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 @@ -13107,13 +13037,13 @@ #(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 @@ -13122,13 +13052,13 @@ #(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 @@ -13137,13 +13067,13 @@ #(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 @@ -13159,34 +13089,34 @@ (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 @@ -13202,20 +13132,20 @@ (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) @@ -13230,11 +13160,11 @@ (top) (top) (top)) - #("i6132" - "i6133" - "i6134" - "i6135" - "i6136")) + #("i4086" + "i4087" + "i4088" + "i4089" + "i4090")) #(ribcage () () @@ -13242,10 +13172,10 @@ #(ribcage #(x) #((top)) - #("i6129"))) + #("i4083"))) (hygiene guile)) - #{tmp\ 6144}#) + #{tmp\ 4098}#) (list '#(syntax-object syntax ((top) @@ -13260,11 +13190,11 @@ (top) (top) (top)) - #("i6132" - "i6133" - "i6134" - "i6135" - "i6136")) + #("i4086" + "i4087" + "i4088" + "i4089" + "i4090")) #(ribcage () () @@ -13272,47 +13202,47 @@ #(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) @@ -13320,7 +13250,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i6171" "i6172")) + #("i4125" "i4126")) #(ribcage #(let* x v e1 e2) #((top) @@ -13328,25 +13258,25 @@ (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) @@ -13355,8 +13285,8 @@ binding) #((top) (top)) - #("i6181" - "i6182")) + #("i4135" + "i4136")) #(ribcage () () @@ -13366,8 +13296,8 @@ bindings) #((top) (top)) - #("i6171" - "i6172")) + #("i4125" + "i4126")) #(ribcage #(let* x @@ -13379,11 +13309,11 @@ (top) (top) (top)) - #("i6161" - "i6162" - "i6163" - "i6164" - "i6165")) + #("i4115" + "i4116" + "i4117" + "i4118" + "i4119")) #(ribcage () () @@ -13391,57 +13321,57 @@ #(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 @@ -13449,7 +13379,7 @@ #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13465,13 +13395,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13479,7 +13409,7 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) '#(syntax-object @@ -13488,7 +13418,7 @@ #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13504,13 +13434,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13518,19 +13448,19 @@ #(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 @@ -13546,13 +13476,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13560,7 +13490,7 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) (list '#(syntax-object @@ -13569,7 +13499,7 @@ #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13585,13 +13515,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13599,17 +13529,17 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) - #{e0\ 6200}#) + #{e0\ 4154}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13625,13 +13555,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13639,18 +13569,18 @@ #(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 @@ -13666,13 +13596,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13680,15 +13610,15 @@ #(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) @@ -13697,12 +13627,12 @@ e2) #((top) (top)) - #("i6215" - "i6216")) + #("i4169" + "i4170")) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13718,13 +13648,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13732,7 +13662,7 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) '#(syntax-object @@ -13743,12 +13673,12 @@ e2) #((top) (top)) - #("i6215" - "i6216")) + #("i4169" + "i4170")) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13764,13 +13694,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13778,12 +13708,12 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) (map list - #{var\ 6197}# - #{init\ 6198}#) + #{var\ 4151}# + #{init\ 4152}#) (list '#(syntax-object if ((top) @@ -13792,12 +13722,12 @@ e2) #((top) (top)) - #("i6215" - "i6216")) + #("i4169" + "i4170")) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13813,13 +13743,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13827,10 +13757,10 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) - #{e0\ 6200}# + #{e0\ 4154}# (cons '#(syntax-object begin ((top) @@ -13839,12 +13769,12 @@ e2) #((top) (top)) - #("i6215" - "i6216")) + #("i4169" + "i4170")) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13860,13 +13790,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13874,11 +13804,11 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) - (cons #{e1\ 6217}# - #{e2\ 6218}#)) + (cons #{e1\ 4171}# + #{e2\ 4172}#)) (cons '#(syntax-object begin ((top) @@ -13887,12 +13817,12 @@ e2) #((top) (top)) - #("i6215" - "i6216")) + #("i4169" + "i4170")) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13908,13 +13838,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13922,11 +13852,11 @@ #(ribcage #(orig-x) #((top)) - #("i6186"))) + #("i4140"))) (hygiene guile)) (append - #{c\ 6202}# + #{c\ 4156}# (list (cons '#(syntax-object doloop ((top) @@ -13935,12 +13865,12 @@ e2) #((top) (top)) - #("i6215" - "i6216")) + #("i4169" + "i4170")) #(ribcage #(step) #((top)) - #("i6206")) + #("i4160")) #(ribcage #(_ var @@ -13956,13 +13886,13 @@ (top) (top) (top)) - #("i6189" - "i6190" - "i6191" - "i6192" - "i6193" - "i6194" - "i6195")) + #("i4143" + "i4144" + "i4145" + "i4146" + "i4147" + "i4148" + "i4149")) #(ribcage () () @@ -13970,107 +13900,107 @@ #(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 () () @@ -14084,8 +14014,8 @@ y) #((top) (top)) - #("i6248" - "i6249")) + #("i4202" + "i4203")) #(ribcage #(quasicons quasiappend @@ -14095,35 +14025,35 @@ (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 () () @@ -14137,8 +14067,8 @@ y) #((top) (top)) - #("i6248" - "i6249")) + #("i4202" + "i4203")) #(ribcage #(quasicons quasiappend @@ -14148,31 +14078,31 @@ (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 () () @@ -14186,8 +14116,8 @@ y) #((top) (top)) - #("i6248" - "i6249")) + #("i4202" + "i4203")) #(ribcage #(quasicons quasiappend @@ -14197,17 +14127,17 @@ (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 @@ -14215,13 +14145,13 @@ #(ribcage #(dy) #((top)) - #("i6259")) + #("i4213")) #(ribcage #(x y) #((top) (top)) - #("i6253" - "i6254")) + #("i4207" + "i4208")) #(ribcage () () @@ -14234,8 +14164,8 @@ #(x y) #((top) (top)) - #("i6248" - "i6249")) + #("i4202" + "i4203")) #(ribcage #(quasicons quasiappend @@ -14245,32 +14175,32 @@ (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 () () @@ -14284,8 +14214,8 @@ y) #((top) (top)) - #("i6248" - "i6249")) + #("i4202" + "i4203")) #(ribcage #(quasicons quasiappend @@ -14295,29 +14225,29 @@ (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 () () @@ -14330,8 +14260,8 @@ #(x y) #((top) (top)) - #("i6248" - "i6249")) + #("i4202" + "i4203")) #(ribcage #(quasicons quasiappend @@ -14341,17 +14271,17 @@ (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 @@ -14359,13 +14289,13 @@ #(ribcage #(x y) #((top) (top)) - #("i6253" "i6254")) + #("i4207" "i4208")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i6248" "i6249")) + #("i4202" "i4203")) #(ribcage #(quasicons quasiappend @@ -14375,15 +14305,15 @@ (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 @@ -14391,13 +14321,13 @@ #(ribcage #(x y) #((top) (top)) - #("i6253" "i6254")) + #("i4207" "i4208")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i6248" "i6249")) + #("i4202" "i4203")) #(ribcage #(quasicons quasiappend @@ -14407,44 +14337,44 @@ (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 () () @@ -14456,8 +14386,8 @@ #(ribcage #(x y) #((top) (top)) - #("i6274" - "i6275")) + #("i4228" + "i4229")) #(ribcage #(quasicons quasiappend @@ -14467,16 +14397,16 @@ (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 @@ -14484,13 +14414,13 @@ #(ribcage #(x y) #((top) (top)) - #("i6279" "i6280")) + #("i4233" "i4234")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i6274" "i6275")) + #("i4228" "i4229")) #(ribcage #(quasicons quasiappend @@ -14500,45 +14430,45 @@ (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 @@ -14548,28 +14478,28 @@ (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 () () @@ -14581,7 +14511,7 @@ #(ribcage #(x) #((top)) - #("i6288")) + #("i4242")) #(ribcage #(quasicons quasiappend @@ -14591,31 +14521,31 @@ (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 @@ -14625,15 +14555,15 @@ (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 @@ -14641,82 +14571,82 @@ #(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 @@ -14724,50 +14654,50 @@ #(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 @@ -14777,33 +14707,33 @@ (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 () () @@ -14811,8 +14741,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i6306" - "i6307")) + #("i4260" + "i4261")) #(ribcage #(quasicons quasiappend @@ -14822,10 +14752,10 @@ (top) (top) (top)) - #("i6238" - "i6239" - "i6240" - "i6241"))) + #("i4192" + "i4193" + "i4194" + "i4195"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14833,8 +14763,8 @@ #(ribcage #(p q) #((top) (top)) - #("i6318" - "i6319")) + #("i4272" + "i4273")) #(ribcage () () @@ -14842,8 +14772,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i6306" - "i6307")) + #("i4260" + "i4261")) #(ribcage #(quasicons quasiappend @@ -14853,31 +14783,31 @@ (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) @@ -14885,8 +14815,8 @@ #(args q) #((top) (top)) - #("i6327" - "i6328")) + #("i4281" + "i4282")) #(ribcage () () @@ -14895,8 +14825,8 @@ #(p lev) #((top) (top)) - #("i6306" - "i6307")) + #("i4260" + "i4261")) #(ribcage #(quasicons quasiappend @@ -14906,25 +14836,25 @@ (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 () () @@ -14933,8 +14863,8 @@ #(p lev) #((top) (top)) - #("i6306" - "i6307")) + #("i4260" + "i4261")) #(ribcage #(quasicons quasiappend @@ -14944,10 +14874,10 @@ (top) (top) (top)) - #("i6238" - "i6239" - "i6240" - "i6241"))) + #("i4192" + "i4193" + "i4194" + "i4195"))) (hygiene guile)) #(syntax-object @@ -14956,7 +14886,7 @@ #(ribcage #(p) #((top)) - #("i6332")) + #("i4286")) #(ribcage () () @@ -14965,8 +14895,8 @@ #(p lev) #((top) (top)) - #("i6306" - "i6307")) + #("i4260" + "i4261")) #(ribcage #(quasicons quasiappend @@ -14976,45 +14906,45 @@ (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 () () @@ -15024,8 +14954,8 @@ lev) #((top) (top)) - #("i6306" - "i6307")) + #("i4260" + "i4261")) #(ribcage #(quasicons quasiappend @@ -15035,23 +14965,23 @@ (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 @@ -15060,7 +14990,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i6306" "i6307")) + #("i4260" "i4261")) #(ribcage #(quasicons quasiappend @@ -15070,14 +15000,14 @@ (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 @@ -15086,7 +15016,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i6306" "i6307")) + #("i4260" "i4261")) #(ribcage #(quasicons quasiappend @@ -15096,17 +15026,17 @@ (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 @@ -15115,23 +15045,23 @@ #(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 @@ -15140,19 +15070,19 @@ #(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 @@ -15161,244 +15091,244 @@ #(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 @@ -15406,35 +15336,35 @@ #(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) @@ -15443,8 +15373,8 @@ e2) #((top) (top)) - #("i6442" - "i6443")) + #("i4396" + "i4397")) #(ribcage () () @@ -15456,9 +15386,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15468,10 +15398,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15479,17 +15409,17 @@ #(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) @@ -15500,9 +15430,9 @@ #((top) (top) (top)) - #("i6448" - "i6449" - "i6450")) + #("i4402" + "i4403" + "i4404")) #(ribcage () () @@ -15514,9 +15444,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15526,10 +15456,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15537,7 +15467,7 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) (list '#(syntax-object @@ -15550,9 +15480,9 @@ #((top) (top) (top)) - #("i6448" - "i6449" - "i6450")) + #("i4402" + "i4403" + "i4404")) #(ribcage () () @@ -15564,9 +15494,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15576,10 +15506,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15587,7 +15517,7 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) '#(syntax-object @@ -15600,9 +15530,9 @@ #((top) (top) (top)) - #("i6448" - "i6449" - "i6450")) + #("i4402" + "i4403" + "i4404")) #(ribcage () () @@ -15614,9 +15544,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15626,10 +15556,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15637,7 +15567,7 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) (list '#(syntax-object @@ -15650,9 +15580,9 @@ #((top) (top) (top)) - #("i6448" - "i6449" - "i6450")) + #("i4402" + "i4403" + "i4404")) #(ribcage () () @@ -15664,9 +15594,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15676,10 +15606,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15687,10 +15617,10 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) - #{k\ 6451}#)) + #{k\ 4405}#)) (cons '#(syntax-object begin ((top) @@ -15701,9 +15631,9 @@ #((top) (top) (top)) - #("i6448" - "i6449" - "i6450")) + #("i4402" + "i4403" + "i4404")) #(ribcage () () @@ -15715,9 +15645,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15727,10 +15657,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15738,27 +15668,27 @@ #(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 @@ -15769,37 +15699,37 @@ #((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) @@ -15810,13 +15740,13 @@ #((top) (top) (top)) - #("i6464" - "i6465" - "i6466")) + #("i4418" + "i4419" + "i4420")) #(ribcage #(rest) #((top)) - #("i6460")) + #("i4414")) #(ribcage () () @@ -15828,9 +15758,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15840,10 +15770,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15851,7 +15781,7 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) (list '#(syntax-object @@ -15864,13 +15794,13 @@ #((top) (top) (top)) - #("i6464" - "i6465" - "i6466")) + #("i4418" + "i4419" + "i4420")) #(ribcage #(rest) #((top)) - #("i6460")) + #("i4414")) #(ribcage () () @@ -15882,9 +15812,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15894,10 +15824,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15905,7 +15835,7 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) '#(syntax-object @@ -15918,13 +15848,13 @@ #((top) (top) (top)) - #("i6464" - "i6465" - "i6466")) + #("i4418" + "i4419" + "i4420")) #(ribcage #(rest) #((top)) - #("i6460")) + #("i4414")) #(ribcage () () @@ -15936,9 +15866,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -15948,10 +15878,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -15959,7 +15889,7 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) (list '#(syntax-object @@ -15972,13 +15902,13 @@ #((top) (top) (top)) - #("i6464" - "i6465" - "i6466")) + #("i4418" + "i4419" + "i4420")) #(ribcage #(rest) #((top)) - #("i6460")) + #("i4414")) #(ribcage () () @@ -15990,9 +15920,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -16002,10 +15932,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -16013,10 +15943,10 @@ #(ribcage #(x) #((top)) - #("i6418"))) + #("i4372"))) (hygiene guile)) - #{k\ 6467}#)) + #{k\ 4421}#)) (cons '#(syntax-object begin ((top) @@ -16027,13 +15957,13 @@ #((top) (top) (top)) - #("i6464" - "i6465" - "i6466")) + #("i4418" + "i4419" + "i4420")) #(ribcage #(rest) #((top)) - #("i6460")) + #("i4414")) #(ribcage () () @@ -16045,9 +15975,9 @@ #((top) (top) (top)) - #("i6433" - "i6434" - "i6435")) + #("i4387" + "i4388" + "i4389")) #(ribcage #(_ e @@ -16057,10 +15987,10 @@ (top) (top) (top)) - #("i6421" - "i6422" - "i6423" - "i6424")) + #("i4375" + "i4376" + "i4377" + "i4378")) #(ribcage () () @@ -16068,61 +15998,61 @@ #(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 @@ -16130,9 +16060,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i6475"))) + #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -16140,9 +16070,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i6475"))) + #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile)) . #(syntax-object @@ -16151,9 +16081,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i6475"))) + #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -16161,12 +16091,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)) '#(syntax-object x @@ -16174,12 +16104,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)) '() (list '#(syntax-object @@ -16188,12 +16118,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)) '(#(syntax-object identifier? @@ -16201,12 +16131,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)) (#(syntax-object syntax @@ -16214,12 +16144,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)) #(syntax-object id @@ -16227,12 +16157,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -16240,27 +16170,27 @@ #(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 ... @@ -16268,12 +16198,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i6478" "i6479")) + #("i4432" "i4433")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -16281,14 +16211,14 @@ #(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) @@ -16296,8 +16226,8 @@ #(_ e) #((top) (top)) - #("i6478" - "i6479")) + #("i4432" + "i4433")) #(ribcage () () @@ -16305,7 +16235,7 @@ #(ribcage #(x) #((top)) - #("i6475"))) + #("i4429"))) (hygiene guile)) #(syntax-object ... @@ -16314,8 +16244,8 @@ #(_ e) #((top) (top)) - #("i6478" - "i6479")) + #("i4432" + "i4433")) #(ribcage () () @@ -16323,72 +16253,72 @@ #(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 @@ -16396,44 +16326,44 @@ #(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))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index b7b6285a4..724952ec1 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -294,8 +294,6 @@ ...)))))) (let () - (define *mode* (make-fluid)) - (define-expansion-constructors) ;;; hooks to nonportable run-time helpers @@ -2372,8 +2370,7 @@ '(eval) (cadr rest))) (mod (cons 'hygiene (module-name (current-module))))) - (with-fluids ((*mode* m)) - (chi-top x null-env top-wrap m esew mod))))) + (chi-top x null-env top-wrap m esew mod)))) (set! identifier? (lambda (x)