From 22cf27c815b756cac6893b5b239898767e6cb498 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 2 Jun 2010 16:07:11 +0200 Subject: [PATCH] fix procedure naming * module/ice-9/psyntax.scm (define-expansion-accessors): New helper, to define accesors for a particular expansion data structure. Use it later to define lambda?, lambda-meta, and set-lambda-meta!. (maybe-name-value): Update to work with the newly defined accessors. (build-global-reference, build-let, build-named-let, build-letrec): Re-enable naming of procedures. * module/ice-9/psyntax-pp.scm: Regenerated. --- module/ice-9/psyntax-pp.scm | 15090 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 59 +- 2 files changed, 7694 insertions(+), 7455 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 76f409c61..87dc15931 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,637 +2,639 @@ (if #f #f) (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}#) + (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#) + (let ((#{t\ 200}# (null? #{first\ 193}#))) + (if #{t\ 200}# + #{t\ 200}# + (if (null? #{rest\ 194}#) + (letrec ((#{andmap\ 204}# + (lambda (#{first\ 205}#) + (let ((#{x\ 208}# (car #{first\ 205}#)) + (#{first\ 209}# (cdr #{first\ 205}#))) + (if (null? #{first\ 209}#) + (#{f\ 192}# #{x\ 208}#) + (if (#{f\ 192}# #{x\ 208}#) + (#{andmap\ 204}# #{first\ 209}#) #f)))))) - (#{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}#) + (#{andmap\ 204}# #{first\ 193}#)) + (letrec ((#{andmap\ 215}# + (lambda (#{first\ 216}# #{rest\ 217}#) + (let ((#{x\ 222}# (car #{first\ 216}#)) + (#{xr\ 223}# (map car #{rest\ 217}#)) + (#{first\ 224}# (cdr #{first\ 216}#)) + (#{rest\ 225}# (map cdr #{rest\ 217}#))) + (if (null? #{first\ 224}#) + (apply #{f\ 192}# + (cons #{x\ 222}# #{xr\ 223}#)) + (if (apply #{f\ 192}# + (cons #{x\ 222}# #{xr\ 223}#)) + (#{andmap\ 215}# + #{first\ 224}# + #{rest\ 225}#) #f)))))) - (#{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}# + (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#)))))))) + (letrec ((#{lambda-var-list\ 487}# + (lambda (#{vars\ 702}#) + (letrec ((#{lvl\ 708}# + (lambda (#{vars\ 709}# #{ls\ 710}# #{w\ 711}#) + (if (pair? #{vars\ 709}#) + (#{lvl\ 708}# + (cdr #{vars\ 709}#) + (cons (#{wrap\ 441}# + (car #{vars\ 709}#) + #{w\ 711}# #f) - #{ls\ 645}#) - #{w\ 646}#) - (if (#{id?\ 307}# #{vars\ 644}#) - (cons (#{wrap\ 376}# - #{vars\ 644}# - #{w\ 646}# + #{ls\ 710}#) + #{w\ 711}#) + (if (#{id?\ 372}# #{vars\ 709}#) + (cons (#{wrap\ 441}# + #{vars\ 709}# + #{w\ 711}# #f) - #{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}# + #{ls\ 710}#) + (if (null? #{vars\ 709}#) + #{ls\ 710}# + (if (#{syntax-object?\ 336}# #{vars\ 709}#) + (#{lvl\ 708}# + (#{syntax-object-expression\ 338}# + #{vars\ 709}#) + #{ls\ 710}# + (#{join-wraps\ 423}# + #{w\ 711}# + (#{syntax-object-wrap\ 340}# + #{vars\ 709}#))) + (cons #{vars\ 709}# #{ls\ 710}#)))))))) + (#{lvl\ 708}# + #{vars\ 702}# '() '(()))))) - (#{gen-var\ 420}# - (lambda (#{id\ 657}#) - (let ((#{id\ 660}# - (if (#{syntax-object?\ 271}# #{id\ 657}#) - (#{syntax-object-expression\ 273}# #{id\ 657}#) - #{id\ 657}#))) + (#{gen-var\ 485}# + (lambda (#{id\ 722}#) + (let ((#{id\ 725}# + (if (#{syntax-object?\ 336}# #{id\ 722}#) + (#{syntax-object-expression\ 338}# #{id\ 722}#) + #{id\ 722}#))) (gensym - (string-append (symbol->string #{id\ 660}#) " "))))) - (#{strip\ 418}# - (lambda (#{x\ 662}# #{w\ 663}#) + (string-append (symbol->string #{id\ 725}#) " "))))) + (#{strip\ 483}# + (lambda (#{x\ 727}# #{w\ 728}#) (if (memq 'top - (#{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}#)) + (#{wrap-marks\ 379}# #{w\ 728}#)) + #{x\ 727}# + (letrec ((#{f\ 734}# (lambda (#{x\ 735}#) + (if (#{syntax-object?\ 336}# + #{x\ 735}#) + (#{strip\ 483}# + (#{syntax-object-expression\ 338}# + #{x\ 735}#) + (#{syntax-object-wrap\ 340}# + #{x\ 735}#)) + (if (pair? #{x\ 735}#) + (let ((#{a\ 742}# (#{f\ 734}# (car #{x\ 735}#))) + (#{d\ 743}# (#{f\ 734}# (cdr #{x\ 735}#)))) + (if (if (eq? #{a\ 742}# + (car #{x\ 735}#)) + (eq? #{d\ 743}# + (cdr #{x\ 735}#)) #f) - #{x\ 670}# - (cons #{a\ 677}# #{d\ 678}#))) - (if (vector? #{x\ 670}#) - (let ((#{old\ 684}# + #{x\ 735}# + (cons #{a\ 742}# #{d\ 743}#))) + (if (vector? #{x\ 735}#) + (let ((#{old\ 749}# (vector->list - #{x\ 670}#))) - (let ((#{new\ 686}# - (map #{f\ 669}# - #{old\ 684}#))) + #{x\ 735}#))) + (let ((#{new\ 751}# + (map #{f\ 734}# + #{old\ 749}#))) (if (#{and-map*\ 20}# eq? - #{old\ 684}# - #{new\ 686}#) - #{x\ 670}# + #{old\ 749}# + #{new\ 751}#) + #{x\ 735}# (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}#) + #{new\ 751}#)))) + #{x\ 735}#)))))) + (#{f\ 734}# #{x\ 727}#))))) + (#{chi-lambda-case\ 481}# + (lambda (#{e\ 753}# + #{r\ 754}# + #{w\ 755}# + #{s\ 756}# + #{mod\ 757}# + #{get-formals\ 758}# + #{clauses\ 759}#) + (letrec ((#{expand-body\ 774}# + (lambda (#{req\ 775}# + #{opt\ 776}# + #{rest\ 777}# + #{kw\ 778}# + #{body\ 779}# + #{vars\ 780}# + #{r*\ 781}# + #{w*\ 782}# + #{inits\ 783}# + #{meta\ 784}#) + ((lambda (#{tmp\ 795}#) + ((lambda (#{tmp\ 796}#) + (if (if #{tmp\ 796}# + (apply (lambda (#{docstring\ 800}# + #{e1\ 801}# + #{e2\ 802}#) (string? (syntax->datum - #{docstring\ 735}#))) - #{tmp\ 731}#) + #{docstring\ 800}#))) + #{tmp\ 796}#) #f) - (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}# + (apply (lambda (#{docstring\ 806}# + #{e1\ 807}# + #{e2\ 808}#) + (#{expand-body\ 774}# + #{req\ 775}# + #{opt\ 776}# + #{rest\ 777}# + #{kw\ 778}# + (cons #{e1\ 807}# #{e2\ 808}#) + #{vars\ 780}# + #{r*\ 781}# + #{w*\ 782}# + #{inits\ 783}# (append - #{meta\ 719}# + #{meta\ 784}# (list (cons 'documentation (syntax->datum - #{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}# + #{docstring\ 806}#)))))) + #{tmp\ 796}#) + ((lambda (#{tmp\ 811}#) + (if #{tmp\ 811}# + (apply (lambda (#{k\ 816}# + #{v\ 817}# + #{e1\ 818}# + #{e2\ 819}#) + (#{expand-body\ 774}# + #{req\ 775}# + #{opt\ 776}# + #{rest\ 777}# + #{kw\ 778}# + (cons #{e1\ 818}# + #{e2\ 819}#) + #{vars\ 780}# + #{r*\ 781}# + #{w*\ 782}# + #{inits\ 783}# (append - #{meta\ 719}# + #{meta\ 784}# (syntax->datum (map cons - #{k\ 751}# - #{v\ 752}#))))) - #{tmp\ 746}#) - ((lambda (#{tmp\ 758}#) - (if #{tmp\ 758}# - (apply (lambda (#{e1\ 761}# - #{e2\ 762}#) + #{k\ 816}# + #{v\ 817}#))))) + #{tmp\ 811}#) + ((lambda (#{tmp\ 823}#) + (if #{tmp\ 823}# + (apply (lambda (#{e1\ 826}# + #{e2\ 827}#) (values - #{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}#) + #{meta\ 784}# + #{req\ 775}# + #{opt\ 776}# + #{rest\ 777}# + #{kw\ 778}# + #{inits\ 783}# + #{vars\ 780}# + (#{chi-body\ 465}# + (cons #{e1\ 826}# + #{e2\ 827}#) + (#{source-wrap\ 443}# + #{e\ 753}# + #{w\ 755}# + #{s\ 756}# + #{mod\ 757}#) + #{r*\ 781}# + #{w*\ 782}# + #{mod\ 757}#))) + #{tmp\ 823}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 730}#))) + #{tmp\ 795}#))) ($sc-dispatch - #{tmp\ 730}# + #{tmp\ 795}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 730}# + #{tmp\ 795}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 730}# + #{tmp\ 795}# '(any any . each-any)))) - #{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}# + #{body\ 779}#))) + (#{expand-kw\ 772}# + (lambda (#{req\ 829}# + #{opt\ 830}# + #{rest\ 831}# + #{kw\ 832}# + #{body\ 833}# + #{vars\ 834}# + #{r*\ 835}# + #{w*\ 836}# + #{aok\ 837}# + #{out\ 838}# + #{inits\ 839}#) + (if (pair? #{kw\ 832}#) + ((lambda (#{tmp\ 853}#) + ((lambda (#{tmp\ 854}#) + (if #{tmp\ 854}# + (apply (lambda (#{k\ 858}# + #{id\ 859}# + #{i\ 860}#) + (let ((#{v\ 863}# (#{gen-var\ 485}# + #{id\ 859}#))) + (let ((#{l\ 865}# (#{gen-labels\ 390}# + (list #{v\ 863}#)))) + (let ((#{r**\ 867}# + (#{extend-var-env\ 362}# + #{l\ 865}# + (list #{v\ 863}#) + #{r*\ 835}#))) + (let ((#{w**\ 869}# + (#{make-binding-wrap\ 419}# + (list #{id\ 859}#) + #{l\ 865}# + #{w*\ 836}#))) + (#{expand-kw\ 772}# + #{req\ 829}# + #{opt\ 830}# + #{rest\ 831}# + (cdr #{kw\ 832}#) + #{body\ 833}# + (cons #{v\ 863}# + #{vars\ 834}#) + #{r**\ 867}# + #{w**\ 869}# + #{aok\ 837}# (cons (list (syntax->datum - #{k\ 793}#) + #{k\ 858}#) (syntax->datum - #{id\ 794}#) - #{v\ 798}#) - #{out\ 773}#) - (cons (#{chi\ 392}# - #{i\ 795}# - #{r*\ 770}# - #{w*\ 771}# - #{mod\ 692}#) - #{inits\ 774}#))))))) - #{tmp\ 789}#) + #{id\ 859}#) + #{v\ 863}#) + #{out\ 838}#) + (cons (#{chi\ 457}# + #{i\ 860}# + #{r*\ 835}# + #{w*\ 836}# + #{mod\ 757}#) + #{inits\ 839}#))))))) + #{tmp\ 854}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 788}#))) + #{tmp\ 853}#))) ($sc-dispatch - #{tmp\ 788}# + #{tmp\ 853}# '(any any any)))) - (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}#)) + (car #{kw\ 832}#)) + (#{expand-body\ 774}# + #{req\ 829}# + #{opt\ 830}# + #{rest\ 831}# + (if (let ((#{t\ 873}# #{aok\ 837}#)) + (if #{t\ 873}# + #{t\ 873}# + (pair? #{out\ 838}#))) + (cons #{aok\ 837}# (reverse #{out\ 838}#)) #f) - #{body\ 768}# - (reverse #{vars\ 769}#) - #{r*\ 770}# - #{w*\ 771}# - (reverse #{inits\ 774}#) + #{body\ 833}# + (reverse #{vars\ 834}#) + #{r*\ 835}# + #{w*\ 836}# + (reverse #{inits\ 839}#) '())))) - (#{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}# + (#{expand-opt\ 770}# + (lambda (#{req\ 875}# + #{opt\ 876}# + #{rest\ 877}# + #{kw\ 878}# + #{body\ 879}# + #{vars\ 880}# + #{r*\ 881}# + #{w*\ 882}# + #{out\ 883}# + #{inits\ 884}#) + (if (pair? #{opt\ 876}#) + ((lambda (#{tmp\ 897}#) + ((lambda (#{tmp\ 898}#) + (if #{tmp\ 898}# + (apply (lambda (#{id\ 901}# #{i\ 902}#) + (let ((#{v\ 905}# (#{gen-var\ 485}# + #{id\ 901}#))) + (let ((#{l\ 907}# (#{gen-labels\ 390}# + (list #{v\ 905}#)))) + (let ((#{r**\ 909}# + (#{extend-var-env\ 362}# + #{l\ 907}# + (list #{v\ 905}#) + #{r*\ 881}#))) + (let ((#{w**\ 911}# + (#{make-binding-wrap\ 419}# + (list #{id\ 901}#) + #{l\ 907}# + #{w*\ 882}#))) + (#{expand-opt\ 770}# + #{req\ 875}# + (cdr #{opt\ 876}#) + #{rest\ 877}# + #{kw\ 878}# + #{body\ 879}# + (cons #{v\ 905}# + #{vars\ 880}#) + #{r**\ 909}# + #{w**\ 911}# (cons (syntax->datum - #{id\ 836}#) - #{out\ 818}#) - (cons (#{chi\ 392}# - #{i\ 837}# - #{r*\ 816}# - #{w*\ 817}# - #{mod\ 692}#) - #{inits\ 819}#))))))) - #{tmp\ 833}#) + #{id\ 901}#) + #{out\ 883}#) + (cons (#{chi\ 457}# + #{i\ 902}# + #{r*\ 881}# + #{w*\ 882}# + #{mod\ 757}#) + #{inits\ 884}#))))))) + #{tmp\ 898}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 832}#))) + #{tmp\ 897}#))) ($sc-dispatch - #{tmp\ 832}# + #{tmp\ 897}# '(any any)))) - (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}#) + (car #{opt\ 876}#)) + (if #{rest\ 877}# + (let ((#{v\ 916}# (#{gen-var\ 485}# + #{rest\ 877}#))) + (let ((#{l\ 918}# (#{gen-labels\ 390}# + (list #{v\ 916}#)))) + (let ((#{r*\ 920}# + (#{extend-var-env\ 362}# + #{l\ 918}# + (list #{v\ 916}#) + #{r*\ 881}#))) + (let ((#{w*\ 922}# + (#{make-binding-wrap\ 419}# + (list #{rest\ 877}#) + #{l\ 918}# + #{w*\ 882}#))) + (#{expand-kw\ 772}# + #{req\ 875}# + (if (pair? #{out\ 883}#) + (reverse #{out\ 883}#) #f) - (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}#) + (syntax->datum #{rest\ 877}#) + (if (pair? #{kw\ 878}#) + (cdr #{kw\ 878}#) + #{kw\ 878}#) + #{body\ 879}# + (cons #{v\ 916}# #{vars\ 880}#) + #{r*\ 920}# + #{w*\ 922}# + (if (pair? #{kw\ 878}#) + (car #{kw\ 878}#) #f) '() - #{inits\ 819}#))))) - (#{expand-kw\ 707}# - #{req\ 810}# - (if (pair? #{out\ 818}#) - (reverse #{out\ 818}#) + #{inits\ 884}#))))) + (#{expand-kw\ 772}# + #{req\ 875}# + (if (pair? #{out\ 883}#) + (reverse #{out\ 883}#) #f) #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) + (if (pair? #{kw\ 878}#) + (cdr #{kw\ 878}#) + #{kw\ 878}#) + #{body\ 879}# + #{vars\ 880}# + #{r*\ 881}# + #{w*\ 882}# + (if (pair? #{kw\ 878}#) (car #{kw\ 878}#) #f) '() - #{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}# + #{inits\ 884}#))))) + (#{expand-req\ 768}# + (lambda (#{req\ 924}# + #{opt\ 925}# + #{rest\ 926}# + #{kw\ 927}# + #{body\ 928}#) + (let ((#{vars\ 936}# + (map #{gen-var\ 485}# #{req\ 924}#)) + (#{labels\ 937}# + (#{gen-labels\ 390}# #{req\ 924}#))) + (let ((#{r*\ 940}# + (#{extend-var-env\ 362}# + #{labels\ 937}# + #{vars\ 936}# + #{r\ 754}#)) + (#{w*\ 941}# + (#{make-binding-wrap\ 419}# + #{req\ 924}# + #{labels\ 937}# + #{w\ 755}#))) + (#{expand-opt\ 770}# + (map syntax->datum #{req\ 924}#) + #{opt\ 925}# + #{rest\ 926}# + #{kw\ 927}# + #{body\ 928}# + (reverse #{vars\ 936}#) + #{r*\ 940}# + #{w*\ 941}# '() '())))))) - ((lambda (#{tmp\ 877}#) - ((lambda (#{tmp\ 878}#) - (if #{tmp\ 878}# + ((lambda (#{tmp\ 942}#) + ((lambda (#{tmp\ 943}#) + (if #{tmp\ 943}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 878}#) - ((lambda (#{tmp\ 879}#) - (if #{tmp\ 879}# - (apply (lambda (#{args\ 886}# - #{e1\ 887}# - #{e2\ 888}# - #{args*\ 889}# - #{e1*\ 890}# - #{e2*\ 891}#) + #{tmp\ 943}#) + ((lambda (#{tmp\ 944}#) + (if #{tmp\ 944}# + (apply (lambda (#{args\ 951}# + #{e1\ 952}# + #{e2\ 953}# + #{args*\ 954}# + #{e1*\ 955}# + #{e2*\ 956}#) (call-with-values (lambda () - (#{get-formals\ 693}# - #{args\ 886}#)) - (lambda (#{req\ 892}# - #{opt\ 893}# - #{rest\ 894}# - #{kw\ 895}#) + (#{get-formals\ 758}# + #{args\ 951}#)) + (lambda (#{req\ 957}# + #{opt\ 958}# + #{rest\ 959}# + #{kw\ 960}#) (call-with-values (lambda () - (#{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}#) + (#{expand-req\ 768}# + #{req\ 957}# + #{opt\ 958}# + #{rest\ 959}# + #{kw\ 960}# + (cons #{e1\ 952}# + #{e2\ 953}#))) + (lambda (#{meta\ 966}# + #{req\ 967}# + #{opt\ 968}# + #{rest\ 969}# + #{kw\ 970}# + #{inits\ 971}# + #{vars\ 972}# + #{body\ 973}#) (call-with-values (lambda () - (#{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}#) + (#{chi-lambda-case\ 481}# + #{e\ 753}# + #{r\ 754}# + #{w\ 755}# + #{s\ 756}# + #{mod\ 757}# + #{get-formals\ 758}# + (map (lambda (#{tmp\ 984}# + #{tmp\ 983}# + #{tmp\ 982}#) + (cons #{tmp\ 982}# + (cons #{tmp\ 983}# + #{tmp\ 984}#))) + #{e2*\ 956}# + #{e1*\ 955}# + #{args*\ 954}#))) + (lambda (#{meta*\ 986}# + #{else*\ 987}#) (values (append - #{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}#) + #{meta\ 966}# + #{meta*\ 986}#) + (#{build-lambda-case\ 318}# + #{s\ 756}# + #{req\ 967}# + #{opt\ 968}# + #{rest\ 969}# + #{kw\ 970}# + #{inits\ 971}# + #{vars\ 972}# + #{body\ 973}# + #{else*\ 987}#))))))))) + #{tmp\ 944}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 877}#))) + #{tmp\ 942}#))) ($sc-dispatch - #{tmp\ 877}# + #{tmp\ 942}# '((any any . each-any) . #(each (any any . each-any))))))) - ($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}# + ($sc-dispatch #{tmp\ 942}# (quote ())))) + #{clauses\ 759}#)))) + (#{lambda*-formals\ 479}# + (lambda (#{orig-args\ 990}#) + (letrec ((#{check\ 1001}# + (lambda (#{req\ 1002}# + #{opt\ 1003}# + #{rest\ 1004}# + #{kw\ 1005}#) + (if (#{distinct-bound-ids?\ 437}# (append - #{req\ 937}# - (map car #{opt\ 938}#) - (if #{rest\ 939}# - (list #{rest\ 939}#) + #{req\ 1002}# + (map car #{opt\ 1003}#) + (if #{rest\ 1004}# + (list #{rest\ 1004}#) '()) - (if (pair? #{kw\ 940}#) - (map cadr (cdr #{kw\ 940}#)) + (if (pair? #{kw\ 1005}#) + (map cadr (cdr #{kw\ 1005}#)) '()))) (values - #{req\ 937}# - #{opt\ 938}# - #{rest\ 939}# - #{kw\ 940}#) + #{req\ 1002}# + #{opt\ 1003}# + #{rest\ 1004}# + #{kw\ 1005}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{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}#) + #{orig-args\ 990}#)))) + (#{rest\ 999}# + (lambda (#{args\ 1013}# + #{req\ 1014}# + #{opt\ 1015}# + #{kw\ 1016}#) + ((lambda (#{tmp\ 1021}#) + ((lambda (#{tmp\ 1022}#) + (if (if #{tmp\ 1022}# + (apply (lambda (#{r\ 1024}#) + (#{id?\ 372}# #{r\ 1024}#)) + #{tmp\ 1022}#) #f) - (apply (lambda (#{r\ 961}#) - (#{check\ 936}# - #{req\ 949}# - #{opt\ 950}# - #{r\ 961}# - #{kw\ 951}#)) - #{tmp\ 957}#) - ((lambda (#{else\ 963}#) + (apply (lambda (#{r\ 1026}#) + (#{check\ 1001}# + #{req\ 1014}# + #{opt\ 1015}# + #{r\ 1026}# + #{kw\ 1016}#)) + #{tmp\ 1022}#) + ((lambda (#{else\ 1028}#) (syntax-violation 'lambda* "invalid rest argument" - #{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}# + #{orig-args\ 990}# + #{args\ 1013}#)) + #{tmp\ 1021}#))) + (list #{tmp\ 1021}#))) + #{args\ 1013}#))) + (#{key\ 997}# + (lambda (#{args\ 1029}# + #{req\ 1030}# + #{opt\ 1031}# + #{rkey\ 1032}#) + ((lambda (#{tmp\ 1037}#) + ((lambda (#{tmp\ 1038}#) + (if #{tmp\ 1038}# (apply (lambda () - (#{check\ 936}# - #{req\ 965}# - #{opt\ 966}# + (#{check\ 1001}# + #{req\ 1030}# + #{opt\ 1031}# #f (cons #f - (reverse #{rkey\ 967}#)))) - #{tmp\ 973}#) - ((lambda (#{tmp\ 974}#) - (if (if #{tmp\ 974}# - (apply (lambda (#{a\ 977}# - #{b\ 978}#) - (#{id?\ 307}# - #{a\ 977}#)) - #{tmp\ 974}#) + (reverse + #{rkey\ 1032}#)))) + #{tmp\ 1038}#) + ((lambda (#{tmp\ 1039}#) + (if (if #{tmp\ 1039}# + (apply (lambda (#{a\ 1042}# + #{b\ 1043}#) + (#{id?\ 372}# + #{a\ 1042}#)) + #{tmp\ 1039}#) #f) - (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}# + (apply (lambda (#{a\ 1046}# + #{b\ 1047}#) + ((lambda (#{tmp\ 1049}#) + ((lambda (#{k\ 1051}#) + (#{key\ 997}# + #{b\ 1047}# + #{req\ 1030}# + #{opt\ 1031}# + (cons (cons #{k\ 1051}# + (cons #{a\ 1046}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i985")) + #("i1050")) #(ribcage #(a b) #((top) (top)) - #("i979" - "i980")) + #("i1044" + "i1045")) #(ribcage () () @@ -646,10 +648,10 @@ (top) (top) (top)) - #("i968" - "i969" - "i970" - "i971")) + #("i1033" + "i1034" + "i1035" + "i1036")) #(ribcage (check rest key @@ -660,15 +662,15 @@ (top) (top) (top)) - ("i935" - "i933" - "i931" - "i929" - "i927")) + ("i1000" + "i998" + "i996" + "i994" + "i992")) #(ribcage #(orig-args) #((top)) - #("i926")) + #("i991")) #(ribcage (lambda-var-list gen-var @@ -786,6 +788,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -937,31 +942,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -970,16 +1016,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -989,29 +1034,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -1024,283 +1065,256 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) ((top) + (top) (top) (top)) - ("i22" + ("i23" + "i22" "i21" "i19"))) (hygiene guile))))) - #{rkey\ 967}#))) - #{tmp\ 984}#)) + #{rkey\ 1032}#))) + #{tmp\ 1049}#)) (symbol->keyword (syntax->datum - #{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}#) + #{a\ 1046}#)))) + #{tmp\ 1039}#) + ((lambda (#{tmp\ 1052}#) + (if (if #{tmp\ 1052}# + (apply (lambda (#{a\ 1056}# + #{init\ 1057}# + #{b\ 1058}#) + (#{id?\ 372}# + #{a\ 1056}#)) + #{tmp\ 1052}#) #f) - (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}#)) + (apply (lambda (#{a\ 1062}# + #{init\ 1063}# + #{b\ 1064}#) + ((lambda (#{tmp\ 1066}#) + ((lambda (#{k\ 1068}#) + (#{key\ 997}# + #{b\ 1064}# + #{req\ 1030}# + #{opt\ 1031}# + (cons (list #{k\ 1068}# + #{a\ 1062}# + #{init\ 1063}#) + #{rkey\ 1032}#))) + #{tmp\ 1066}#)) (symbol->keyword (syntax->datum - #{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}#) + #{a\ 1062}#)))) + #{tmp\ 1052}#) + ((lambda (#{tmp\ 1069}#) + (if (if #{tmp\ 1069}# + (apply (lambda (#{a\ 1074}# + #{init\ 1075}# + #{k\ 1076}# + #{b\ 1077}#) + (if (#{id?\ 372}# + #{a\ 1074}#) (keyword? (syntax->datum - #{k\ 1011}#)) + #{k\ 1076}#)) #f)) - #{tmp\ 1004}#) + #{tmp\ 1069}#) #f) - (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}#) + (apply (lambda (#{a\ 1084}# + #{init\ 1085}# + #{k\ 1086}# + #{b\ 1087}#) + (#{key\ 997}# + #{b\ 1087}# + #{req\ 1030}# + #{opt\ 1031}# + (cons (list #{k\ 1086}# + #{a\ 1084}# + #{init\ 1085}#) + #{rkey\ 1032}#))) + #{tmp\ 1069}#) + ((lambda (#{tmp\ 1088}#) + (if (if #{tmp\ 1088}# + (apply (lambda (#{aok\ 1090}#) (eq? (syntax->datum - #{aok\ 1025}#) + #{aok\ 1090}#) #:allow-other-keys)) - #{tmp\ 1023}#) + #{tmp\ 1088}#) #f) - (apply (lambda (#{aok\ 1027}#) - (#{check\ 936}# - #{req\ 965}# - #{opt\ 966}# + (apply (lambda (#{aok\ 1092}#) + (#{check\ 1001}# + #{req\ 1030}# + #{opt\ 1031}# #f (cons #t (reverse - #{rkey\ 967}#)))) - #{tmp\ 1023}#) - ((lambda (#{tmp\ 1028}#) - (if (if #{tmp\ 1028}# - (apply (lambda (#{aok\ 1032}# - #{a\ 1033}# - #{b\ 1034}#) + #{rkey\ 1032}#)))) + #{tmp\ 1088}#) + ((lambda (#{tmp\ 1093}#) + (if (if #{tmp\ 1093}# + (apply (lambda (#{aok\ 1097}# + #{a\ 1098}# + #{b\ 1099}#) (if (eq? (syntax->datum - #{aok\ 1032}#) + #{aok\ 1097}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 1033}#) + #{a\ 1098}#) #:rest) #f)) - #{tmp\ 1028}#) + #{tmp\ 1093}#) #f) - (apply (lambda (#{aok\ 1040}# - #{a\ 1041}# - #{b\ 1042}#) - (#{rest\ 934}# - #{b\ 1042}# - #{req\ 965}# - #{opt\ 966}# + (apply (lambda (#{aok\ 1105}# + #{a\ 1106}# + #{b\ 1107}#) + (#{rest\ 999}# + #{b\ 1107}# + #{req\ 1030}# + #{opt\ 1031}# (cons #t (reverse - #{rkey\ 967}#)))) - #{tmp\ 1028}#) - ((lambda (#{tmp\ 1043}#) - (if (if #{tmp\ 1043}# - (apply (lambda (#{aok\ 1046}# - #{r\ 1047}#) + #{rkey\ 1032}#)))) + #{tmp\ 1093}#) + ((lambda (#{tmp\ 1108}#) + (if (if #{tmp\ 1108}# + (apply (lambda (#{aok\ 1111}# + #{r\ 1112}#) (if (eq? (syntax->datum - #{aok\ 1046}#) + #{aok\ 1111}#) #:allow-other-keys) - (#{id?\ 307}# - #{r\ 1047}#) + (#{id?\ 372}# + #{r\ 1112}#) #f)) - #{tmp\ 1043}#) + #{tmp\ 1108}#) #f) - (apply (lambda (#{aok\ 1052}# - #{r\ 1053}#) - (#{rest\ 934}# - #{r\ 1053}# - #{req\ 965}# - #{opt\ 966}# + (apply (lambda (#{aok\ 1117}# + #{r\ 1118}#) + (#{rest\ 999}# + #{r\ 1118}# + #{req\ 1030}# + #{opt\ 1031}# (cons #t (reverse - #{rkey\ 967}#)))) - #{tmp\ 1043}#) - ((lambda (#{tmp\ 1054}#) - (if (if #{tmp\ 1054}# - (apply (lambda (#{a\ 1057}# - #{b\ 1058}#) + #{rkey\ 1032}#)))) + #{tmp\ 1108}#) + ((lambda (#{tmp\ 1119}#) + (if (if #{tmp\ 1119}# + (apply (lambda (#{a\ 1122}# + #{b\ 1123}#) (eq? (syntax->datum - #{a\ 1057}#) + #{a\ 1122}#) #:rest)) - #{tmp\ 1054}#) + #{tmp\ 1119}#) #f) - (apply (lambda (#{a\ 1061}# - #{b\ 1062}#) - (#{rest\ 934}# - #{b\ 1062}# - #{req\ 965}# - #{opt\ 966}# + (apply (lambda (#{a\ 1126}# + #{b\ 1127}#) + (#{rest\ 999}# + #{b\ 1127}# + #{req\ 1030}# + #{opt\ 1031}# (cons #f (reverse - #{rkey\ 967}#)))) - #{tmp\ 1054}#) - ((lambda (#{tmp\ 1063}#) - (if (if #{tmp\ 1063}# - (apply (lambda (#{r\ 1065}#) - (#{id?\ 307}# - #{r\ 1065}#)) - #{tmp\ 1063}#) + #{rkey\ 1032}#)))) + #{tmp\ 1119}#) + ((lambda (#{tmp\ 1128}#) + (if (if #{tmp\ 1128}# + (apply (lambda (#{r\ 1130}#) + (#{id?\ 372}# + #{r\ 1130}#)) + #{tmp\ 1128}#) #f) - (apply (lambda (#{r\ 1067}#) - (#{rest\ 934}# - #{r\ 1067}# - #{req\ 965}# - #{opt\ 966}# + (apply (lambda (#{r\ 1132}#) + (#{rest\ 999}# + #{r\ 1132}# + #{req\ 1030}# + #{opt\ 1031}# (cons #f (reverse - #{rkey\ 967}#)))) - #{tmp\ 1063}#) - ((lambda (#{else\ 1069}#) + #{rkey\ 1032}#)))) + #{tmp\ 1128}#) + ((lambda (#{else\ 1134}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 925}# - #{args\ 964}#)) - #{tmp\ 972}#))) - (list #{tmp\ 972}#)))) + #{orig-args\ 990}# + #{args\ 1029}#)) + #{tmp\ 1037}#))) + (list #{tmp\ 1037}#)))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '(any any))))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '(any . any))))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '(any any any))))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '(any))))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 972}# + #{tmp\ 1037}# '(any . any))))) - ($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}# + ($sc-dispatch #{tmp\ 1037}# (quote ())))) + #{args\ 1029}#))) + (#{opt\ 995}# + (lambda (#{args\ 1135}# #{req\ 1136}# #{ropt\ 1137}#) + ((lambda (#{tmp\ 1141}#) + ((lambda (#{tmp\ 1142}#) + (if #{tmp\ 1142}# (apply (lambda () - (#{check\ 936}# - #{req\ 1071}# - (reverse #{ropt\ 1072}#) + (#{check\ 1001}# + #{req\ 1136}# + (reverse #{ropt\ 1137}#) #f '())) - #{tmp\ 1077}#) - ((lambda (#{tmp\ 1078}#) - (if (if #{tmp\ 1078}# - (apply (lambda (#{a\ 1081}# - #{b\ 1082}#) - (#{id?\ 307}# - #{a\ 1081}#)) - #{tmp\ 1078}#) + #{tmp\ 1142}#) + ((lambda (#{tmp\ 1143}#) + (if (if #{tmp\ 1143}# + (apply (lambda (#{a\ 1146}# + #{b\ 1147}#) + (#{id?\ 372}# + #{a\ 1146}#)) + #{tmp\ 1143}#) #f) - (apply (lambda (#{a\ 1085}# - #{b\ 1086}#) - (#{opt\ 930}# - #{b\ 1086}# - #{req\ 1071}# - (cons (cons #{a\ 1085}# + (apply (lambda (#{a\ 1150}# + #{b\ 1151}#) + (#{opt\ 995}# + #{b\ 1151}# + #{req\ 1136}# + (cons (cons #{a\ 1150}# '(#(syntax-object #f ((top) @@ -1308,8 +1322,8 @@ #(a b) #((top) (top)) - #("i1083" - "i1084")) + #("i1148" + "i1149")) #(ribcage () () @@ -1321,9 +1335,9 @@ #((top) (top) (top)) - #("i1073" - "i1074" - "i1075")) + #("i1138" + "i1139" + "i1140")) #(ribcage (check rest key @@ -1334,15 +1348,15 @@ (top) (top) (top)) - ("i935" - "i933" - "i931" - "i929" - "i927")) + ("i1000" + "i998" + "i996" + "i994" + "i992")) #(ribcage #(orig-args) #((top)) - #("i926")) + #("i991")) #(ribcage (lambda-var-list gen-var @@ -1460,6 +1474,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -1611,31 +1628,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -1644,16 +1702,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -1663,29 +1720,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -1698,396 +1751,369 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) ((top) + (top) (top) (top)) - ("i22" + ("i23" + "i22" "i21" "i19"))) (hygiene guile)))) - #{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}#) + #{ropt\ 1137}#))) + #{tmp\ 1143}#) + ((lambda (#{tmp\ 1152}#) + (if (if #{tmp\ 1152}# + (apply (lambda (#{a\ 1156}# + #{init\ 1157}# + #{b\ 1158}#) + (#{id?\ 372}# + #{a\ 1156}#)) + #{tmp\ 1152}#) #f) - (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}#) + (apply (lambda (#{a\ 1162}# + #{init\ 1163}# + #{b\ 1164}#) + (#{opt\ 995}# + #{b\ 1164}# + #{req\ 1136}# + (cons (list #{a\ 1162}# + #{init\ 1163}#) + #{ropt\ 1137}#))) + #{tmp\ 1152}#) + ((lambda (#{tmp\ 1165}#) + (if (if #{tmp\ 1165}# + (apply (lambda (#{a\ 1168}# + #{b\ 1169}#) (eq? (syntax->datum - #{a\ 1103}#) + #{a\ 1168}#) #:key)) - #{tmp\ 1100}#) + #{tmp\ 1165}#) #f) - (apply (lambda (#{a\ 1107}# - #{b\ 1108}#) - (#{key\ 932}# - #{b\ 1108}# - #{req\ 1071}# + (apply (lambda (#{a\ 1172}# + #{b\ 1173}#) + (#{key\ 997}# + #{b\ 1173}# + #{req\ 1136}# (reverse - #{ropt\ 1072}#) + #{ropt\ 1137}#) '())) - #{tmp\ 1100}#) - ((lambda (#{tmp\ 1109}#) - (if (if #{tmp\ 1109}# - (apply (lambda (#{a\ 1112}# - #{b\ 1113}#) + #{tmp\ 1165}#) + ((lambda (#{tmp\ 1174}#) + (if (if #{tmp\ 1174}# + (apply (lambda (#{a\ 1177}# + #{b\ 1178}#) (eq? (syntax->datum - #{a\ 1112}#) + #{a\ 1177}#) #:rest)) - #{tmp\ 1109}#) + #{tmp\ 1174}#) #f) - (apply (lambda (#{a\ 1116}# - #{b\ 1117}#) - (#{rest\ 934}# - #{b\ 1117}# - #{req\ 1071}# + (apply (lambda (#{a\ 1181}# + #{b\ 1182}#) + (#{rest\ 999}# + #{b\ 1182}# + #{req\ 1136}# (reverse - #{ropt\ 1072}#) + #{ropt\ 1137}#) '())) - #{tmp\ 1109}#) - ((lambda (#{tmp\ 1118}#) - (if (if #{tmp\ 1118}# - (apply (lambda (#{r\ 1120}#) - (#{id?\ 307}# - #{r\ 1120}#)) - #{tmp\ 1118}#) + #{tmp\ 1174}#) + ((lambda (#{tmp\ 1183}#) + (if (if #{tmp\ 1183}# + (apply (lambda (#{r\ 1185}#) + (#{id?\ 372}# + #{r\ 1185}#)) + #{tmp\ 1183}#) #f) - (apply (lambda (#{r\ 1122}#) - (#{rest\ 934}# - #{r\ 1122}# - #{req\ 1071}# + (apply (lambda (#{r\ 1187}#) + (#{rest\ 999}# + #{r\ 1187}# + #{req\ 1136}# (reverse - #{ropt\ 1072}#) + #{ropt\ 1137}#) '())) - #{tmp\ 1118}#) - ((lambda (#{else\ 1124}#) + #{tmp\ 1183}#) + ((lambda (#{else\ 1189}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 925}# - #{args\ 1070}#)) - #{tmp\ 1076}#))) - (list #{tmp\ 1076}#)))) + #{orig-args\ 990}# + #{args\ 1135}#)) + #{tmp\ 1141}#))) + (list #{tmp\ 1141}#)))) ($sc-dispatch - #{tmp\ 1076}# + #{tmp\ 1141}# '(any any))))) ($sc-dispatch - #{tmp\ 1076}# + #{tmp\ 1141}# '(any . any))))) ($sc-dispatch - #{tmp\ 1076}# + #{tmp\ 1141}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1076}# + #{tmp\ 1141}# '(any . any))))) - ($sc-dispatch #{tmp\ 1076}# (quote ())))) - #{args\ 1070}#))) - (#{req\ 928}# - (lambda (#{args\ 1125}# #{rreq\ 1126}#) - ((lambda (#{tmp\ 1129}#) - ((lambda (#{tmp\ 1130}#) - (if #{tmp\ 1130}# + ($sc-dispatch #{tmp\ 1141}# (quote ())))) + #{args\ 1135}#))) + (#{req\ 993}# + (lambda (#{args\ 1190}# #{rreq\ 1191}#) + ((lambda (#{tmp\ 1194}#) + ((lambda (#{tmp\ 1195}#) + (if #{tmp\ 1195}# (apply (lambda () - (#{check\ 936}# - (reverse #{rreq\ 1126}#) + (#{check\ 1001}# + (reverse #{rreq\ 1191}#) '() #f '())) - #{tmp\ 1130}#) - ((lambda (#{tmp\ 1131}#) - (if (if #{tmp\ 1131}# - (apply (lambda (#{a\ 1134}# - #{b\ 1135}#) - (#{id?\ 307}# - #{a\ 1134}#)) - #{tmp\ 1131}#) + #{tmp\ 1195}#) + ((lambda (#{tmp\ 1196}#) + (if (if #{tmp\ 1196}# + (apply (lambda (#{a\ 1199}# + #{b\ 1200}#) + (#{id?\ 372}# + #{a\ 1199}#)) + #{tmp\ 1196}#) #f) - (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}#) + (apply (lambda (#{a\ 1203}# + #{b\ 1204}#) + (#{req\ 993}# + #{b\ 1204}# + (cons #{a\ 1203}# + #{rreq\ 1191}#))) + #{tmp\ 1196}#) + ((lambda (#{tmp\ 1205}#) + (if (if #{tmp\ 1205}# + (apply (lambda (#{a\ 1208}# + #{b\ 1209}#) (eq? (syntax->datum - #{a\ 1143}#) + #{a\ 1208}#) #:optional)) - #{tmp\ 1140}#) + #{tmp\ 1205}#) #f) - (apply (lambda (#{a\ 1147}# - #{b\ 1148}#) - (#{opt\ 930}# - #{b\ 1148}# + (apply (lambda (#{a\ 1212}# + #{b\ 1213}#) + (#{opt\ 995}# + #{b\ 1213}# (reverse - #{rreq\ 1126}#) + #{rreq\ 1191}#) '())) - #{tmp\ 1140}#) - ((lambda (#{tmp\ 1149}#) - (if (if #{tmp\ 1149}# - (apply (lambda (#{a\ 1152}# - #{b\ 1153}#) + #{tmp\ 1205}#) + ((lambda (#{tmp\ 1214}#) + (if (if #{tmp\ 1214}# + (apply (lambda (#{a\ 1217}# + #{b\ 1218}#) (eq? (syntax->datum - #{a\ 1152}#) + #{a\ 1217}#) #:key)) - #{tmp\ 1149}#) + #{tmp\ 1214}#) #f) - (apply (lambda (#{a\ 1156}# - #{b\ 1157}#) - (#{key\ 932}# - #{b\ 1157}# + (apply (lambda (#{a\ 1221}# + #{b\ 1222}#) + (#{key\ 997}# + #{b\ 1222}# (reverse - #{rreq\ 1126}#) + #{rreq\ 1191}#) '() '())) - #{tmp\ 1149}#) - ((lambda (#{tmp\ 1158}#) - (if (if #{tmp\ 1158}# - (apply (lambda (#{a\ 1161}# - #{b\ 1162}#) + #{tmp\ 1214}#) + ((lambda (#{tmp\ 1223}#) + (if (if #{tmp\ 1223}# + (apply (lambda (#{a\ 1226}# + #{b\ 1227}#) (eq? (syntax->datum - #{a\ 1161}#) + #{a\ 1226}#) #:rest)) - #{tmp\ 1158}#) + #{tmp\ 1223}#) #f) - (apply (lambda (#{a\ 1165}# - #{b\ 1166}#) - (#{rest\ 934}# - #{b\ 1166}# + (apply (lambda (#{a\ 1230}# + #{b\ 1231}#) + (#{rest\ 999}# + #{b\ 1231}# (reverse - #{rreq\ 1126}#) + #{rreq\ 1191}#) '() '())) - #{tmp\ 1158}#) - ((lambda (#{tmp\ 1167}#) - (if (if #{tmp\ 1167}# - (apply (lambda (#{r\ 1169}#) - (#{id?\ 307}# - #{r\ 1169}#)) - #{tmp\ 1167}#) + #{tmp\ 1223}#) + ((lambda (#{tmp\ 1232}#) + (if (if #{tmp\ 1232}# + (apply (lambda (#{r\ 1234}#) + (#{id?\ 372}# + #{r\ 1234}#)) + #{tmp\ 1232}#) #f) - (apply (lambda (#{r\ 1171}#) - (#{rest\ 934}# - #{r\ 1171}# + (apply (lambda (#{r\ 1236}#) + (#{rest\ 999}# + #{r\ 1236}# (reverse - #{rreq\ 1126}#) + #{rreq\ 1191}#) '() '())) - #{tmp\ 1167}#) - ((lambda (#{else\ 1173}#) + #{tmp\ 1232}#) + ((lambda (#{else\ 1238}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 925}# - #{args\ 1125}#)) - #{tmp\ 1129}#))) - (list #{tmp\ 1129}#)))) + #{orig-args\ 990}# + #{args\ 1190}#)) + #{tmp\ 1194}#))) + (list #{tmp\ 1194}#)))) ($sc-dispatch - #{tmp\ 1129}# + #{tmp\ 1194}# '(any any))))) ($sc-dispatch - #{tmp\ 1129}# + #{tmp\ 1194}# '(any . any))))) ($sc-dispatch - #{tmp\ 1129}# + #{tmp\ 1194}# '(any . any))))) ($sc-dispatch - #{tmp\ 1129}# + #{tmp\ 1194}# '(any . any))))) - ($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}#) + ($sc-dispatch #{tmp\ 1194}# (quote ())))) + #{args\ 1190}#)))) + (#{req\ 993}# #{orig-args\ 990}# (quote ()))))) + (#{chi-simple-lambda\ 477}# + (lambda (#{e\ 1239}# + #{r\ 1240}# + #{w\ 1241}# + #{s\ 1242}# + #{mod\ 1243}# + #{req\ 1244}# + #{rest\ 1245}# + #{meta\ 1246}# + #{body\ 1247}#) + (let ((#{ids\ 1259}# + (if #{rest\ 1245}# + (append #{req\ 1244}# (list #{rest\ 1245}#)) + #{req\ 1244}#))) + (let ((#{vars\ 1261}# + (map #{gen-var\ 485}# #{ids\ 1259}#))) + (let ((#{labels\ 1263}# + (#{gen-labels\ 390}# #{ids\ 1259}#))) + (#{build-simple-lambda\ 314}# + #{s\ 1242}# + (map syntax->datum #{req\ 1244}#) + (if #{rest\ 1245}# + (syntax->datum #{rest\ 1245}#) #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) + #{vars\ 1261}# + #{meta\ 1246}# + (#{chi-body\ 465}# + #{body\ 1247}# + (#{source-wrap\ 443}# + #{e\ 1239}# + #{w\ 1241}# + #{s\ 1242}# + #{mod\ 1243}#) + (#{extend-var-env\ 362}# + #{labels\ 1263}# + #{vars\ 1261}# + #{r\ 1240}#) + (#{make-binding-wrap\ 419}# + #{ids\ 1259}# + #{labels\ 1263}# + #{w\ 1241}#) + #{mod\ 1243}#))))))) + (#{lambda-formals\ 475}# + (lambda (#{orig-args\ 1266}#) + (letrec ((#{check\ 1271}# + (lambda (#{req\ 1272}# #{rest\ 1273}#) + (if (#{distinct-bound-ids?\ 437}# + (if #{rest\ 1273}# + (cons #{rest\ 1273}# #{req\ 1272}#) + #{req\ 1272}#)) + (values #{req\ 1272}# #f #{rest\ 1273}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1201}#)))) - (#{req\ 1204}# - (lambda (#{args\ 1214}# #{rreq\ 1215}#) - ((lambda (#{tmp\ 1218}#) - ((lambda (#{tmp\ 1219}#) - (if #{tmp\ 1219}# + #{orig-args\ 1266}#)))) + (#{req\ 1269}# + (lambda (#{args\ 1279}# #{rreq\ 1280}#) + ((lambda (#{tmp\ 1283}#) + ((lambda (#{tmp\ 1284}#) + (if #{tmp\ 1284}# (apply (lambda () - (#{check\ 1206}# - (reverse #{rreq\ 1215}#) + (#{check\ 1271}# + (reverse #{rreq\ 1280}#) #f)) - #{tmp\ 1219}#) - ((lambda (#{tmp\ 1220}#) - (if (if #{tmp\ 1220}# - (apply (lambda (#{a\ 1223}# - #{b\ 1224}#) - (#{id?\ 307}# - #{a\ 1223}#)) - #{tmp\ 1220}#) + #{tmp\ 1284}#) + ((lambda (#{tmp\ 1285}#) + (if (if #{tmp\ 1285}# + (apply (lambda (#{a\ 1288}# + #{b\ 1289}#) + (#{id?\ 372}# + #{a\ 1288}#)) + #{tmp\ 1285}#) #f) - (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}#) + (apply (lambda (#{a\ 1292}# + #{b\ 1293}#) + (#{req\ 1269}# + #{b\ 1293}# + (cons #{a\ 1292}# + #{rreq\ 1280}#))) + #{tmp\ 1285}#) + ((lambda (#{tmp\ 1294}#) + (if (if #{tmp\ 1294}# + (apply (lambda (#{r\ 1296}#) + (#{id?\ 372}# + #{r\ 1296}#)) + #{tmp\ 1294}#) #f) - (apply (lambda (#{r\ 1233}#) - (#{check\ 1206}# + (apply (lambda (#{r\ 1298}#) + (#{check\ 1271}# (reverse - #{rreq\ 1215}#) - #{r\ 1233}#)) - #{tmp\ 1229}#) - ((lambda (#{else\ 1235}#) + #{rreq\ 1280}#) + #{r\ 1298}#)) + #{tmp\ 1294}#) + ((lambda (#{else\ 1300}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1201}# - #{args\ 1214}#)) - #{tmp\ 1218}#))) - (list #{tmp\ 1218}#)))) + #{orig-args\ 1266}# + #{args\ 1279}#)) + #{tmp\ 1283}#))) + (list #{tmp\ 1283}#)))) ($sc-dispatch - #{tmp\ 1218}# + #{tmp\ 1283}# '(any . any))))) - ($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}# + ($sc-dispatch #{tmp\ 1283}# (quote ())))) + #{args\ 1279}#)))) + (#{req\ 1269}# #{orig-args\ 1266}# (quote ()))))) + (#{ellipsis?\ 473}# + (lambda (#{x\ 1301}#) + (if (#{nonsymbol-id?\ 370}# #{x\ 1301}#) + (#{free-id=?\ 431}# + #{x\ 1301}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1237")) + #(ribcage #(x) #((top)) #("i1302")) #(ribcage (lambda-var-list gen-var @@ -2205,6 +2231,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -2356,31 +2385,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -2389,16 +2459,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -2408,29 +2477,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -2443,1344 +2508,1315 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) (top) (top) (top)) + ("i23" "i22" "i21" "i19"))) (hygiene guile))) #f))) - (#{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))) + (#{chi-void\ 471}# + (lambda () (#{build-void\ 292}# #f))) + (#{eval-local-transformer\ 469}# + (lambda (#{expanded\ 1306}# #{mod\ 1307}#) + (let ((#{p\ 1311}# + (#{local-eval-hook\ 283}# + #{expanded\ 1306}# + #{mod\ 1307}#))) + (if (procedure? #{p\ 1311}#) + (cons #{p\ 1311}# (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{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}#)) + #{p\ 1311}#))))) + (#{chi-local-syntax\ 467}# + (lambda (#{rec?\ 1312}# + #{e\ 1313}# + #{r\ 1314}# + #{w\ 1315}# + #{s\ 1316}# + #{mod\ 1317}# + #{k\ 1318}#) + ((lambda (#{tmp\ 1326}#) + ((lambda (#{tmp\ 1327}#) + (if #{tmp\ 1327}# + (apply (lambda (#{_\ 1333}# + #{id\ 1334}# + #{val\ 1335}# + #{e1\ 1336}# + #{e2\ 1337}#) + (let ((#{ids\ 1339}# #{id\ 1334}#)) + (if (not (#{valid-bound-ids?\ 435}# + #{ids\ 1339}#)) (syntax-violation #f "duplicate bound keyword" - #{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}#) + #{e\ 1313}#) + (let ((#{labels\ 1342}# + (#{gen-labels\ 390}# + #{ids\ 1339}#))) + (let ((#{new-w\ 1344}# + (#{make-binding-wrap\ 419}# + #{ids\ 1339}# + #{labels\ 1342}# + #{w\ 1315}#))) + (#{k\ 1318}# + (cons #{e1\ 1336}# #{e2\ 1337}#) + (#{extend-env\ 360}# + #{labels\ 1342}# + (let ((#{w\ 1348}# + (if #{rec?\ 1312}# + #{new-w\ 1344}# + #{w\ 1315}#)) + (#{trans-r\ 1349}# + (#{macros-only-env\ 364}# + #{r\ 1314}#))) + (map (lambda (#{x\ 1350}#) (cons 'macro - (#{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}#) + (#{eval-local-transformer\ 469}# + (#{chi\ 457}# + #{x\ 1350}# + #{trans-r\ 1349}# + #{w\ 1348}# + #{mod\ 1317}#) + #{mod\ 1317}#))) + #{val\ 1335}#)) + #{r\ 1314}#) + #{new-w\ 1344}# + #{s\ 1316}# + #{mod\ 1317}#)))))) + #{tmp\ 1327}#) + ((lambda (#{_\ 1355}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 378}# - #{e\ 1248}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#))) - #{tmp\ 1261}#))) + (#{source-wrap\ 443}# + #{e\ 1313}# + #{w\ 1315}# + #{s\ 1316}# + #{mod\ 1317}#))) + #{tmp\ 1326}#))) ($sc-dispatch - #{tmp\ 1261}# + #{tmp\ 1326}# '(any #(each (any any)) any . each-any)))) - #{e\ 1248}#))) - (#{chi-body\ 400}# - (lambda (#{body\ 1291}# - #{outer-form\ 1292}# - #{r\ 1293}# - #{w\ 1294}# - #{mod\ 1295}#) - (let ((#{r\ 1303}# + #{e\ 1313}#))) + (#{chi-body\ 465}# + (lambda (#{body\ 1356}# + #{outer-form\ 1357}# + #{r\ 1358}# + #{w\ 1359}# + #{mod\ 1360}#) + (let ((#{r\ 1368}# (cons '("placeholder" placeholder) - #{r\ 1293}#))) - (let ((#{ribcage\ 1305}# - (#{make-ribcage\ 328}# + #{r\ 1358}#))) + (let ((#{ribcage\ 1370}# + (#{make-ribcage\ 393}# '() '() '()))) - (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}#) + (let ((#{w\ 1373}# + (#{make-wrap\ 377}# + (#{wrap-marks\ 379}# #{w\ 1359}#) + (cons #{ribcage\ 1370}# + (#{wrap-subst\ 381}# #{w\ 1359}#))))) + (letrec ((#{parse\ 1382}# + (lambda (#{body\ 1383}# + #{ids\ 1384}# + #{labels\ 1385}# + #{var-ids\ 1386}# + #{vars\ 1387}# + #{vals\ 1388}# + #{bindings\ 1389}#) + (if (null? #{body\ 1383}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1292}#) - (let ((#{e\ 1329}# (cdar #{body\ 1318}#)) - (#{er\ 1330}# (caar #{body\ 1318}#))) + #{outer-form\ 1357}#) + (let ((#{e\ 1394}# (cdar #{body\ 1383}#)) + (#{er\ 1395}# (caar #{body\ 1383}#))) (call-with-values (lambda () - (#{syntax-type\ 388}# - #{e\ 1329}# - #{er\ 1330}# + (#{syntax-type\ 453}# + #{e\ 1394}# + #{er\ 1395}# '(()) - (#{source-annotation\ 286}# - #{er\ 1330}#) - #{ribcage\ 1305}# - #{mod\ 1295}# + (#{source-annotation\ 351}# + #{er\ 1395}#) + #{ribcage\ 1370}# + #{mod\ 1360}# #f)) - (lambda (#{type\ 1332}# - #{value\ 1333}# - #{e\ 1334}# - #{w\ 1335}# - #{s\ 1336}# - #{mod\ 1337}#) - (if (memv #{type\ 1332}# + (lambda (#{type\ 1397}# + #{value\ 1398}# + #{e\ 1399}# + #{w\ 1400}# + #{s\ 1401}# + #{mod\ 1402}#) + (if (memv #{type\ 1397}# '(define-form)) - (let ((#{id\ 1347}# - (#{wrap\ 376}# - #{value\ 1333}# - #{w\ 1335}# - #{mod\ 1337}#)) - (#{label\ 1348}# - (#{gen-label\ 323}#))) - (let ((#{var\ 1350}# - (#{gen-var\ 420}# - #{id\ 1347}#))) + (let ((#{id\ 1412}# + (#{wrap\ 441}# + #{value\ 1398}# + #{w\ 1400}# + #{mod\ 1402}#)) + (#{label\ 1413}# + (#{gen-label\ 388}#))) + (let ((#{var\ 1415}# + (#{gen-var\ 485}# + #{id\ 1412}#))) (begin - (#{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}#) + (#{extend-ribcage!\ 417}# + #{ribcage\ 1370}# + #{id\ 1412}# + #{label\ 1413}#) + (#{parse\ 1382}# + (cdr #{body\ 1383}#) + (cons #{id\ 1412}# + #{ids\ 1384}#) + (cons #{label\ 1413}# + #{labels\ 1385}#) + (cons #{id\ 1412}# + #{var-ids\ 1386}#) + (cons #{var\ 1415}# + #{vars\ 1387}#) + (cons (cons #{er\ 1395}# + (#{wrap\ 441}# + #{e\ 1399}# + #{w\ 1400}# + #{mod\ 1402}#)) + #{vals\ 1388}#) (cons (cons 'lexical - #{var\ 1350}#) - #{bindings\ 1324}#))))) - (if (memv #{type\ 1332}# + #{var\ 1415}#) + #{bindings\ 1389}#))))) + (if (memv #{type\ 1397}# '(define-syntax-form)) - (let ((#{id\ 1355}# - (#{wrap\ 376}# - #{value\ 1333}# - #{w\ 1335}# - #{mod\ 1337}#)) - (#{label\ 1356}# - (#{gen-label\ 323}#))) + (let ((#{id\ 1420}# + (#{wrap\ 441}# + #{value\ 1398}# + #{w\ 1400}# + #{mod\ 1402}#)) + (#{label\ 1421}# + (#{gen-label\ 388}#))) (begin - (#{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}# + (#{extend-ribcage!\ 417}# + #{ribcage\ 1370}# + #{id\ 1420}# + #{label\ 1421}#) + (#{parse\ 1382}# + (cdr #{body\ 1383}#) + (cons #{id\ 1420}# + #{ids\ 1384}#) + (cons #{label\ 1421}# + #{labels\ 1385}#) + #{var-ids\ 1386}# + #{vars\ 1387}# + #{vals\ 1388}# (cons (cons 'macro - (cons #{er\ 1330}# - (#{wrap\ 376}# - #{e\ 1334}# - #{w\ 1335}# - #{mod\ 1337}#))) - #{bindings\ 1324}#)))) - (if (memv #{type\ 1332}# + (cons #{er\ 1395}# + (#{wrap\ 441}# + #{e\ 1399}# + #{w\ 1400}# + #{mod\ 1402}#))) + #{bindings\ 1389}#)))) + (if (memv #{type\ 1397}# '(begin-form)) - ((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}#) + ((lambda (#{tmp\ 1424}#) + ((lambda (#{tmp\ 1425}#) + (if #{tmp\ 1425}# + (apply (lambda (#{_\ 1428}# + #{e1\ 1429}#) + (#{parse\ 1382}# + (letrec ((#{f\ 1432}# + (lambda (#{forms\ 1433}#) + (if (null? #{forms\ 1433}#) + (cdr #{body\ 1383}#) + (cons (cons #{er\ 1395}# + (#{wrap\ 441}# + (car #{forms\ 1433}#) + #{w\ 1400}# + #{mod\ 1402}#)) + (#{f\ 1432}# + (cdr #{forms\ 1433}#))))))) + (#{f\ 1432}# + #{e1\ 1429}#)) + #{ids\ 1384}# + #{labels\ 1385}# + #{var-ids\ 1386}# + #{vars\ 1387}# + #{vals\ 1388}# + #{bindings\ 1389}#)) + #{tmp\ 1425}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1359}#))) + #{tmp\ 1424}#))) ($sc-dispatch - #{tmp\ 1359}# + #{tmp\ 1424}# '(any . each-any)))) - #{e\ 1334}#) - (if (memv #{type\ 1332}# + #{e\ 1399}#) + (if (memv #{type\ 1397}# '(local-syntax-form)) - (#{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}# + (#{chi-local-syntax\ 467}# + #{value\ 1398}# + #{e\ 1399}# + #{er\ 1395}# + #{w\ 1400}# + #{s\ 1401}# + #{mod\ 1402}# + (lambda (#{forms\ 1436}# + #{er\ 1437}# + #{w\ 1438}# + #{s\ 1439}# + #{mod\ 1440}#) + (#{parse\ 1382}# + (letrec ((#{f\ 1448}# + (lambda (#{forms\ 1449}#) + (if (null? #{forms\ 1449}#) + (cdr #{body\ 1383}#) + (cons (cons #{er\ 1437}# + (#{wrap\ 441}# + (car #{forms\ 1449}#) + #{w\ 1438}# + #{mod\ 1440}#)) + (#{f\ 1448}# + (cdr #{forms\ 1449}#))))))) + (#{f\ 1448}# + #{forms\ 1436}#)) + #{ids\ 1384}# + #{labels\ 1385}# + #{var-ids\ 1386}# + #{vars\ 1387}# + #{vals\ 1388}# + #{bindings\ 1389}#))) + (if (null? #{ids\ 1384}#) + (#{build-sequence\ 324}# #f - (map (lambda (#{x\ 1387}#) - (#{chi\ 392}# - (cdr #{x\ 1387}#) - (car #{x\ 1387}#) + (map (lambda (#{x\ 1452}#) + (#{chi\ 457}# + (cdr #{x\ 1452}#) + (car #{x\ 1452}#) '(()) - #{mod\ 1337}#)) - (cons (cons #{er\ 1330}# - (#{source-wrap\ 378}# - #{e\ 1334}# - #{w\ 1335}# - #{s\ 1336}# - #{mod\ 1337}#)) - (cdr #{body\ 1318}#)))) + #{mod\ 1402}#)) + (cons (cons #{er\ 1395}# + (#{source-wrap\ 443}# + #{e\ 1399}# + #{w\ 1400}# + #{s\ 1401}# + #{mod\ 1402}#)) + (cdr #{body\ 1383}#)))) (begin - (if (not (#{valid-bound-ids?\ 370}# - #{ids\ 1319}#)) + (if (not (#{valid-bound-ids?\ 435}# + #{ids\ 1384}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{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}#) + #{outer-form\ 1357}#)) + (letrec ((#{loop\ 1459}# + (lambda (#{bs\ 1460}# + #{er-cache\ 1461}# + #{r-cache\ 1462}#) + (if (not (null? #{bs\ 1460}#)) + (let ((#{b\ 1465}# + (car #{bs\ 1460}#))) + (if (eq? (car #{b\ 1465}#) 'macro) - (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}#)))) + (let ((#{er\ 1468}# + (cadr #{b\ 1465}#))) + (let ((#{r-cache\ 1470}# + (if (eq? #{er\ 1468}# + #{er-cache\ 1461}#) + #{r-cache\ 1462}# + (#{macros-only-env\ 364}# + #{er\ 1468}#)))) (begin (set-cdr! - #{b\ 1400}# - (#{eval-local-transformer\ 404}# - (#{chi\ 392}# - (cddr #{b\ 1400}#) - #{r-cache\ 1405}# + #{b\ 1465}# + (#{eval-local-transformer\ 469}# + (#{chi\ 457}# + (cddr #{b\ 1465}#) + #{r-cache\ 1470}# '(()) - #{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}# + #{mod\ 1402}#) + #{mod\ 1402}#)) + (#{loop\ 1459}# + (cdr #{bs\ 1460}#) + #{er\ 1468}# + #{r-cache\ 1470}#)))) + (#{loop\ 1459}# + (cdr #{bs\ 1460}#) + #{er-cache\ 1461}# + #{r-cache\ 1462}#))))))) + (#{loop\ 1459}# + #{bindings\ 1389}# #f #f)) (set-cdr! - #{r\ 1303}# - (#{extend-env\ 295}# - #{labels\ 1320}# - #{bindings\ 1324}# - (cdr #{r\ 1303}#))) - (#{build-letrec\ 265}# + #{r\ 1368}# + (#{extend-env\ 360}# + #{labels\ 1385}# + #{bindings\ 1389}# + (cdr #{r\ 1368}#))) + (#{build-letrec\ 330}# #f (map syntax->datum - #{var-ids\ 1321}#) - #{vars\ 1322}# - (map (lambda (#{x\ 1408}#) - (#{chi\ 392}# - (cdr #{x\ 1408}#) - (car #{x\ 1408}#) + #{var-ids\ 1386}#) + #{vars\ 1387}# + (map (lambda (#{x\ 1473}#) + (#{chi\ 457}# + (cdr #{x\ 1473}#) + (car #{x\ 1473}#) '(()) - #{mod\ 1337}#)) - #{vals\ 1323}#) - (#{build-sequence\ 259}# + #{mod\ 1402}#)) + #{vals\ 1388}#) + (#{build-sequence\ 324}# #f - (map (lambda (#{x\ 1412}#) - (#{chi\ 392}# - (cdr #{x\ 1412}#) - (car #{x\ 1412}#) + (map (lambda (#{x\ 1477}#) + (#{chi\ 457}# + (cdr #{x\ 1477}#) + (car #{x\ 1477}#) '(()) - #{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}#) + #{mod\ 1402}#)) + (cons (cons #{er\ 1395}# + (#{source-wrap\ 443}# + #{e\ 1399}# + #{w\ 1400}# + #{s\ 1401}# + #{mod\ 1402}#)) + (cdr #{body\ 1383}#)))))))))))))))))) + (#{parse\ 1382}# + (map (lambda (#{x\ 1390}#) + (cons #{r\ 1368}# + (#{wrap\ 441}# + #{x\ 1390}# + #{w\ 1373}# + #{mod\ 1360}#))) + #{body\ 1356}#) '() '() '() '() '() '()))))))) - (#{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) + (#{chi-macro\ 463}# + (lambda (#{p\ 1480}# + #{e\ 1481}# + #{r\ 1482}# + #{w\ 1483}# + #{rib\ 1484}# + #{mod\ 1485}#) + (letrec ((#{rebuild-macro-output\ 1493}# + (lambda (#{x\ 1494}# #{m\ 1495}#) + (if (pair? #{x\ 1494}#) + (cons (#{rebuild-macro-output\ 1493}# + (car #{x\ 1494}#) + #{m\ 1495}#) + (#{rebuild-macro-output\ 1493}# + (cdr #{x\ 1494}#) + #{m\ 1495}#)) + (if (#{syntax-object?\ 336}# #{x\ 1494}#) + (let ((#{w\ 1503}# + (#{syntax-object-wrap\ 340}# + #{x\ 1494}#))) + (let ((#{ms\ 1506}# + (#{wrap-marks\ 379}# #{w\ 1503}#)) + (#{s\ 1507}# + (#{wrap-subst\ 381}# #{w\ 1503}#))) + (if (if (pair? #{ms\ 1506}#) + (eq? (car #{ms\ 1506}#) #f) #f) - (#{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}# + (#{make-syntax-object\ 334}# + (#{syntax-object-expression\ 338}# + #{x\ 1494}#) + (#{make-wrap\ 377}# + (cdr #{ms\ 1506}#) + (if #{rib\ 1484}# + (cons #{rib\ 1484}# + (cdr #{s\ 1507}#)) + (cdr #{s\ 1507}#))) + (#{syntax-object-module\ 342}# + #{x\ 1494}#)) + (#{make-syntax-object\ 334}# + (#{syntax-object-expression\ 338}# + #{x\ 1494}#) + (#{make-wrap\ 377}# + (cons #{m\ 1495}# #{ms\ 1506}#) + (if #{rib\ 1484}# + (cons #{rib\ 1484}# (cons 'shift - #{s\ 1442}#)) - (cons (quote shift) #{s\ 1442}#))) + #{s\ 1507}#)) + (cons (quote shift) #{s\ 1507}#))) (cons 'hygiene - (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}#) + (cdr #{p\ 1480}#)))))) + (if (vector? #{x\ 1494}#) + (let ((#{n\ 1515}# + (vector-length #{x\ 1494}#))) + (let ((#{v\ 1517}# + (make-vector #{n\ 1515}#))) + (letrec ((#{loop\ 1520}# + (lambda (#{i\ 1521}#) + (if (#{fx=\ 277}# + #{i\ 1521}# + #{n\ 1515}#) (begin (if #f #f) - #{v\ 1452}#) + #{v\ 1517}#) (begin (vector-set! - #{v\ 1452}# - #{i\ 1456}# - (#{rebuild-macro-output\ 1428}# + #{v\ 1517}# + #{i\ 1521}# + (#{rebuild-macro-output\ 1493}# (vector-ref - #{x\ 1429}# - #{i\ 1456}#) - #{m\ 1430}#)) - (#{loop\ 1455}# - (#{fx+\ 208}# - #{i\ 1456}# + #{x\ 1494}# + #{i\ 1521}#) + #{m\ 1495}#)) + (#{loop\ 1520}# + (#{fx+\ 273}# + #{i\ 1521}# 1))))))) - (#{loop\ 1455}# 0)))) - (if (symbol? #{x\ 1429}#) + (#{loop\ 1520}# 0)))) + (if (symbol? #{x\ 1494}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{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}#)) + (#{source-wrap\ 443}# + #{e\ 1481}# + #{w\ 1483}# + (#{wrap-subst\ 381}# #{w\ 1483}#) + #{mod\ 1485}#) + #{x\ 1494}#) + #{x\ 1494}#))))))) + (#{rebuild-macro-output\ 1493}# + ((car #{p\ 1480}#) + (#{wrap\ 441}# + #{e\ 1481}# + (#{anti-mark\ 413}# #{w\ 1483}#) + #{mod\ 1485}#)) (gensym "m"))))) - (#{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}#) + (#{chi-application\ 461}# + (lambda (#{x\ 1528}# + #{e\ 1529}# + #{r\ 1530}# + #{w\ 1531}# + #{s\ 1532}# + #{mod\ 1533}#) + ((lambda (#{tmp\ 1540}#) + ((lambda (#{tmp\ 1541}#) + (if #{tmp\ 1541}# + (apply (lambda (#{e0\ 1544}# #{e1\ 1545}#) + (#{build-application\ 294}# + #{s\ 1532}# + #{x\ 1528}# + (map (lambda (#{e\ 1546}#) + (#{chi\ 457}# + #{e\ 1546}# + #{r\ 1530}# + #{w\ 1531}# + #{mod\ 1533}#)) + #{e1\ 1545}#))) + #{tmp\ 1541}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1475}#))) + #{tmp\ 1540}#))) ($sc-dispatch - #{tmp\ 1475}# + #{tmp\ 1540}# '(any . each-any)))) - #{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}# + #{e\ 1529}#))) + (#{chi-expr\ 459}# + (lambda (#{type\ 1549}# + #{value\ 1550}# + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) + (if (memv #{type\ 1549}# (quote (lexical))) + (#{build-lexical-reference\ 300}# 'value - #{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))) + #{s\ 1554}# + #{e\ 1551}# + #{value\ 1550}#) + (if (memv #{type\ 1549}# (quote (core core-form))) + (#{value\ 1550}# + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) + (if (memv #{type\ 1549}# (quote (module-ref))) (call-with-values (lambda () - (#{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}# + (#{value\ 1550}# + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}#)) + (lambda (#{e\ 1566}# + #{r\ 1567}# + #{w\ 1568}# + #{s\ 1569}# + #{mod\ 1570}#) + (#{chi\ 457}# + #{e\ 1566}# + #{r\ 1567}# + #{w\ 1568}# + #{mod\ 1570}#))) + (if (memv #{type\ 1549}# (quote (lexical-call))) + (#{chi-application\ 461}# + (#{build-lexical-reference\ 300}# 'fun - (#{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}#) + (#{source-annotation\ 351}# (car #{e\ 1551}#)) + (car #{e\ 1551}#) + #{value\ 1550}#) + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) + (if (memv #{type\ 1549}# (quote (global-call))) + (#{chi-application\ 461}# + (#{build-global-reference\ 306}# + (#{source-annotation\ 351}# (car #{e\ 1551}#)) + (if (#{syntax-object?\ 336}# #{value\ 1550}#) + (#{syntax-object-expression\ 338}# + #{value\ 1550}#) + #{value\ 1550}#) + (if (#{syntax-object?\ 336}# #{value\ 1550}#) + (#{syntax-object-module\ 342}# #{value\ 1550}#) + #{mod\ 1555}#)) + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) + (if (memv #{type\ 1549}# (quote (constant))) + (#{build-data\ 322}# + #{s\ 1554}# + (#{strip\ 483}# + (#{source-wrap\ 443}# + #{e\ 1551}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) '(()))) - (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}#) + (if (memv #{type\ 1549}# (quote (global))) + (#{build-global-reference\ 306}# + #{s\ 1554}# + #{value\ 1550}# + #{mod\ 1555}#) + (if (memv #{type\ 1549}# (quote (call))) + (#{chi-application\ 461}# + (#{chi\ 457}# + (car #{e\ 1551}#) + #{r\ 1552}# + #{w\ 1553}# + #{mod\ 1555}#) + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) + (if (memv #{type\ 1549}# (quote (begin-form))) + ((lambda (#{tmp\ 1583}#) + ((lambda (#{tmp\ 1584}#) + (if #{tmp\ 1584}# + (apply (lambda (#{_\ 1588}# + #{e1\ 1589}# + #{e2\ 1590}#) + (#{chi-sequence\ 445}# + (cons #{e1\ 1589}# + #{e2\ 1590}#) + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#)) + #{tmp\ 1584}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1518}#))) + #{tmp\ 1583}#))) ($sc-dispatch - #{tmp\ 1518}# + #{tmp\ 1583}# '(any any . each-any)))) - #{e\ 1486}#) - (if (memv #{type\ 1484}# + #{e\ 1551}#) + (if (memv #{type\ 1549}# '(local-syntax-form)) - (#{chi-local-syntax\ 402}# - #{value\ 1485}# - #{e\ 1486}# - #{r\ 1487}# - #{w\ 1488}# - #{s\ 1489}# - #{mod\ 1490}# - #{chi-sequence\ 380}#) - (if (memv #{type\ 1484}# + (#{chi-local-syntax\ 467}# + #{value\ 1550}# + #{e\ 1551}# + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}# + #{chi-sequence\ 445}#) + (if (memv #{type\ 1549}# '(eval-when-form)) - ((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}#))) + ((lambda (#{tmp\ 1594}#) + ((lambda (#{tmp\ 1595}#) + (if #{tmp\ 1595}# + (apply (lambda (#{_\ 1600}# + #{x\ 1601}# + #{e1\ 1602}# + #{e2\ 1603}#) + (let ((#{when-list\ 1605}# + (#{chi-when-list\ 451}# + #{e\ 1551}# + #{x\ 1601}# + #{w\ 1553}#))) (if (memq 'eval - #{when-list\ 1540}#) - (#{chi-sequence\ 380}# - (cons #{e1\ 1537}# - #{e2\ 1538}#) - #{r\ 1487}# - #{w\ 1488}# - #{s\ 1489}# - #{mod\ 1490}#) - (#{chi-void\ 406}#)))) - #{tmp\ 1530}#) + #{when-list\ 1605}#) + (#{chi-sequence\ 445}# + (cons #{e1\ 1602}# + #{e2\ 1603}#) + #{r\ 1552}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#) + (#{chi-void\ 471}#)))) + #{tmp\ 1595}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1529}#))) + #{tmp\ 1594}#))) ($sc-dispatch - #{tmp\ 1529}# + #{tmp\ 1594}# '(any each-any any . each-any)))) - #{e\ 1486}#) - (if (memv #{type\ 1484}# + #{e\ 1551}#) + (if (memv #{type\ 1549}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1486}# - (#{wrap\ 376}# - #{value\ 1485}# - #{w\ 1488}# - #{mod\ 1490}#)) - (if (memv #{type\ 1484}# + #{e\ 1551}# + (#{wrap\ 441}# + #{value\ 1550}# + #{w\ 1553}# + #{mod\ 1555}#)) + (if (memv #{type\ 1549}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 378}# - #{e\ 1486}# - #{w\ 1488}# - #{s\ 1489}# - #{mod\ 1490}#)) - (if (memv #{type\ 1484}# + (#{source-wrap\ 443}# + #{e\ 1551}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#)) + (if (memv #{type\ 1549}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 378}# - #{e\ 1486}# - #{w\ 1488}# - #{s\ 1489}# - #{mod\ 1490}#)) + (#{source-wrap\ 443}# + #{e\ 1551}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 378}# - #{e\ 1486}# - #{w\ 1488}# - #{s\ 1489}# - #{mod\ 1490}#)))))))))))))))))) - (#{chi\ 392}# - (lambda (#{e\ 1547}# - #{r\ 1548}# - #{w\ 1549}# - #{mod\ 1550}#) + (#{source-wrap\ 443}# + #{e\ 1551}# + #{w\ 1553}# + #{s\ 1554}# + #{mod\ 1555}#)))))))))))))))))) + (#{chi\ 457}# + (lambda (#{e\ 1612}# + #{r\ 1613}# + #{w\ 1614}# + #{mod\ 1615}#) (call-with-values (lambda () - (#{syntax-type\ 388}# - #{e\ 1547}# - #{r\ 1548}# - #{w\ 1549}# - (#{source-annotation\ 286}# #{e\ 1547}#) + (#{syntax-type\ 453}# + #{e\ 1612}# + #{r\ 1613}# + #{w\ 1614}# + (#{source-annotation\ 351}# #{e\ 1612}#) #f - #{mod\ 1550}# + #{mod\ 1615}# #f)) - (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}#) + (lambda (#{type\ 1620}# + #{value\ 1621}# + #{e\ 1622}# + #{w\ 1623}# + #{s\ 1624}# + #{mod\ 1625}#) + (#{chi-expr\ 459}# + #{type\ 1620}# + #{value\ 1621}# + #{e\ 1622}# + #{r\ 1613}# + #{w\ 1623}# + #{s\ 1624}# + #{mod\ 1625}#))))) + (#{chi-top\ 455}# + (lambda (#{e\ 1632}# + #{r\ 1633}# + #{w\ 1634}# + #{m\ 1635}# + #{esew\ 1636}# + #{mod\ 1637}#) (call-with-values (lambda () - (#{syntax-type\ 388}# - #{e\ 1567}# - #{r\ 1568}# - #{w\ 1569}# - (#{source-annotation\ 286}# #{e\ 1567}#) + (#{syntax-type\ 453}# + #{e\ 1632}# + #{r\ 1633}# + #{w\ 1634}# + (#{source-annotation\ 351}# #{e\ 1632}#) #f - #{mod\ 1572}# + #{mod\ 1637}# #f)) - (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}#) + (lambda (#{type\ 1658}# + #{value\ 1659}# + #{e\ 1660}# + #{w\ 1661}# + #{s\ 1662}# + #{mod\ 1663}#) + (if (memv #{type\ 1658}# (quote (begin-form))) + ((lambda (#{tmp\ 1671}#) + ((lambda (#{tmp\ 1672}#) + (if #{tmp\ 1672}# + (apply (lambda (#{_\ 1674}#) (#{chi-void\ 471}#)) + #{tmp\ 1672}#) + ((lambda (#{tmp\ 1675}#) + (if #{tmp\ 1675}# + (apply (lambda (#{_\ 1679}# + #{e1\ 1680}# + #{e2\ 1681}#) + (#{chi-top-sequence\ 447}# + (cons #{e1\ 1680}# #{e2\ 1681}#) + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# + #{m\ 1635}# + #{esew\ 1636}# + #{mod\ 1663}#)) + #{tmp\ 1675}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1606}#))) + #{tmp\ 1671}#))) ($sc-dispatch - #{tmp\ 1606}# + #{tmp\ 1671}# '(any any . each-any))))) - ($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)) + ($sc-dispatch #{tmp\ 1671}# (quote (any))))) + #{e\ 1660}#) + (if (memv #{type\ 1658}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 467}# + #{value\ 1659}# + #{e\ 1660}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# + #{mod\ 1663}# + (lambda (#{body\ 1684}# + #{r\ 1685}# + #{w\ 1686}# + #{s\ 1687}# + #{mod\ 1688}#) + (#{chi-top-sequence\ 447}# + #{body\ 1684}# + #{r\ 1685}# + #{w\ 1686}# + #{s\ 1687}# + #{m\ 1635}# + #{esew\ 1636}# + #{mod\ 1688}#))) + (if (memv #{type\ 1658}# (quote (eval-when-form))) + ((lambda (#{tmp\ 1695}#) + ((lambda (#{tmp\ 1696}#) + (if #{tmp\ 1696}# + (apply (lambda (#{_\ 1701}# + #{x\ 1702}# + #{e1\ 1703}# + #{e2\ 1704}#) + (let ((#{when-list\ 1707}# + (#{chi-when-list\ 451}# + #{e\ 1660}# + #{x\ 1702}# + #{w\ 1661}#)) + (#{body\ 1708}# + (cons #{e1\ 1703}# + #{e2\ 1704}#))) + (if (eq? #{m\ 1635}# (quote e)) (if (memq 'eval - #{when-list\ 1642}#) - (#{chi-top-sequence\ 382}# - #{body\ 1643}# - #{r\ 1568}# - #{w\ 1596}# - #{s\ 1597}# + #{when-list\ 1707}#) + (#{chi-top-sequence\ 447}# + #{body\ 1708}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# (if (memq 'expand - #{when-list\ 1642}#) + #{when-list\ 1707}#) 'c&e 'e) '(eval) - #{mod\ 1598}#) + #{mod\ 1663}#) (begin (if (memq 'expand - #{when-list\ 1642}#) - (#{top-level-eval-hook\ 216}# - (#{chi-top-sequence\ 382}# - #{body\ 1643}# - #{r\ 1568}# - #{w\ 1596}# - #{s\ 1597}# + #{when-list\ 1707}#) + (#{top-level-eval-hook\ 281}# + (#{chi-top-sequence\ 447}# + #{body\ 1708}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# 'e '(eval) - #{mod\ 1598}#) - #{mod\ 1598}#)) - (#{chi-void\ 406}#))) + #{mod\ 1663}#) + #{mod\ 1663}#)) + (#{chi-void\ 471}#))) (if (memq 'load - #{when-list\ 1642}#) - (if (let ((#{t\ 1652}# + #{when-list\ 1707}#) + (if (let ((#{t\ 1717}# (memq 'compile - #{when-list\ 1642}#))) - (if #{t\ 1652}# - #{t\ 1652}# - (let ((#{t\ 1655}# + #{when-list\ 1707}#))) + (if #{t\ 1717}# + #{t\ 1717}# + (let ((#{t\ 1720}# (memq 'expand - #{when-list\ 1642}#))) - (if #{t\ 1655}# - #{t\ 1655}# - (if (eq? #{m\ 1570}# + #{when-list\ 1707}#))) + (if #{t\ 1720}# + #{t\ 1720}# + (if (eq? #{m\ 1635}# 'c&e) (memq 'eval - #{when-list\ 1642}#) + #{when-list\ 1707}#) #f))))) - (#{chi-top-sequence\ 382}# - #{body\ 1643}# - #{r\ 1568}# - #{w\ 1596}# - #{s\ 1597}# + (#{chi-top-sequence\ 447}# + #{body\ 1708}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# 'c&e '(compile load) - #{mod\ 1598}#) - (if (memq #{m\ 1570}# + #{mod\ 1663}#) + (if (memq #{m\ 1635}# '(c c&e)) - (#{chi-top-sequence\ 382}# - #{body\ 1643}# - #{r\ 1568}# - #{w\ 1596}# - #{s\ 1597}# + (#{chi-top-sequence\ 447}# + #{body\ 1708}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# 'c '(load) - #{mod\ 1598}#) - (#{chi-void\ 406}#))) - (if (let ((#{t\ 1663}# + #{mod\ 1663}#) + (#{chi-void\ 471}#))) + (if (let ((#{t\ 1728}# (memq 'compile - #{when-list\ 1642}#))) - (if #{t\ 1663}# - #{t\ 1663}# - (let ((#{t\ 1666}# + #{when-list\ 1707}#))) + (if #{t\ 1728}# + #{t\ 1728}# + (let ((#{t\ 1731}# (memq 'expand - #{when-list\ 1642}#))) - (if #{t\ 1666}# - #{t\ 1666}# - (if (eq? #{m\ 1570}# + #{when-list\ 1707}#))) + (if #{t\ 1731}# + #{t\ 1731}# + (if (eq? #{m\ 1635}# 'c&e) (memq 'eval - #{when-list\ 1642}#) + #{when-list\ 1707}#) #f))))) (begin - (#{top-level-eval-hook\ 216}# - (#{chi-top-sequence\ 382}# - #{body\ 1643}# - #{r\ 1568}# - #{w\ 1596}# - #{s\ 1597}# + (#{top-level-eval-hook\ 281}# + (#{chi-top-sequence\ 447}# + #{body\ 1708}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# 'e '(eval) - #{mod\ 1598}#) - #{mod\ 1598}#) - (#{chi-void\ 406}#)) - (#{chi-void\ 406}#)))))) - #{tmp\ 1631}#) + #{mod\ 1663}#) + #{mod\ 1663}#) + (#{chi-void\ 471}#)) + (#{chi-void\ 471}#)))))) + #{tmp\ 1696}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1630}#))) + #{tmp\ 1695}#))) ($sc-dispatch - #{tmp\ 1630}# + #{tmp\ 1695}# '(any each-any any . each-any)))) - #{e\ 1595}#) - (if (memv #{type\ 1593}# + #{e\ 1660}#) + (if (memv #{type\ 1658}# '(define-syntax-form)) - (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}#)))) + (let ((#{n\ 1739}# + (#{id-var-name\ 429}# + #{value\ 1659}# + #{w\ 1661}#)) + (#{r\ 1740}# + (#{macros-only-env\ 364}# #{r\ 1633}#))) + (if (memv #{m\ 1635}# (quote (c))) + (if (memq (quote compile) #{esew\ 1636}#) + (let ((#{e\ 1743}# + (#{chi-install-global\ 449}# + #{n\ 1739}# + (#{chi\ 457}# + #{e\ 1660}# + #{r\ 1740}# + #{w\ 1661}# + #{mod\ 1663}#)))) (begin - (#{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}#)))) + (#{top-level-eval-hook\ 281}# + #{e\ 1743}# + #{mod\ 1663}#) + (if (memq (quote load) #{esew\ 1636}#) + #{e\ 1743}# + (#{chi-void\ 471}#)))) + (if (memq (quote load) #{esew\ 1636}#) + (#{chi-install-global\ 449}# + #{n\ 1739}# + (#{chi\ 457}# + #{e\ 1660}# + #{r\ 1740}# + #{w\ 1661}# + #{mod\ 1663}#)) + (#{chi-void\ 471}#))) + (if (memv #{m\ 1635}# (quote (c&e))) + (let ((#{e\ 1746}# + (#{chi-install-global\ 449}# + #{n\ 1739}# + (#{chi\ 457}# + #{e\ 1660}# + #{r\ 1740}# + #{w\ 1661}# + #{mod\ 1663}#)))) (begin - (#{top-level-eval-hook\ 216}# - #{e\ 1681}# - #{mod\ 1598}#) - #{e\ 1681}#)) + (#{top-level-eval-hook\ 281}# + #{e\ 1746}# + #{mod\ 1663}#) + #{e\ 1746}#)) (begin - (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}# + (if (memq (quote eval) #{esew\ 1636}#) + (#{top-level-eval-hook\ 281}# + (#{chi-install-global\ 449}# + #{n\ 1739}# + (#{chi\ 457}# + #{e\ 1660}# + #{r\ 1740}# + #{w\ 1661}# + #{mod\ 1663}#)) + #{mod\ 1663}#)) + (#{chi-void\ 471}#))))) + (if (memv #{type\ 1658}# (quote (define-form))) + (let ((#{n\ 1751}# + (#{id-var-name\ 429}# + #{value\ 1659}# + #{w\ 1661}#))) + (let ((#{type\ 1753}# + (#{binding-type\ 355}# + (#{lookup\ 366}# + #{n\ 1751}# + #{r\ 1633}# + #{mod\ 1663}#)))) + (if (memv #{type\ 1753}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 1570}# (quote (c c&e))) + (if (if (memq #{m\ 1635}# (quote (c c&e))) (if (not (module-local-variable (current-module) - #{n\ 1686}#)) + #{n\ 1751}#)) (current-module) #f) #f) - (let ((#{old\ 1694}# + (let ((#{old\ 1759}# (module-variable (current-module) - #{n\ 1686}#))) + #{n\ 1751}#))) (module-define! (current-module) - #{n\ 1686}# - (if (variable? #{old\ 1694}#) - (variable-ref #{old\ 1694}#) + #{n\ 1751}# + (if (variable? #{old\ 1759}#) + (variable-ref #{old\ 1759}#) #f)))) - (let ((#{x\ 1697}# - (#{build-global-definition\ 247}# - #{s\ 1597}# - #{n\ 1686}# - (#{chi\ 392}# - #{e\ 1595}# - #{r\ 1568}# - #{w\ 1596}# - #{mod\ 1598}#)))) + (let ((#{x\ 1762}# + (#{build-global-definition\ 312}# + #{s\ 1662}# + #{n\ 1751}# + (#{chi\ 457}# + #{e\ 1660}# + #{r\ 1633}# + #{w\ 1661}# + #{mod\ 1663}#)))) (begin - (if (eq? #{m\ 1570}# (quote c&e)) - (#{top-level-eval-hook\ 216}# - #{x\ 1697}# - #{mod\ 1598}#)) - #{x\ 1697}#))) - (if (memv #{type\ 1688}# + (if (eq? #{m\ 1635}# (quote c&e)) + (#{top-level-eval-hook\ 281}# + #{x\ 1762}# + #{mod\ 1663}#)) + #{x\ 1762}#))) + (if (memv #{type\ 1753}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1595}# - (#{wrap\ 376}# - #{value\ 1594}# - #{w\ 1596}# - #{mod\ 1598}#)) + #{e\ 1660}# + (#{wrap\ 441}# + #{value\ 1659}# + #{w\ 1661}# + #{mod\ 1663}#)) (syntax-violation #f "cannot define keyword at top level" - #{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}#))) + #{e\ 1660}# + (#{wrap\ 441}# + #{value\ 1659}# + #{w\ 1661}# + #{mod\ 1663}#)))))) + (let ((#{x\ 1768}# + (#{chi-expr\ 459}# + #{type\ 1658}# + #{value\ 1659}# + #{e\ 1660}# + #{r\ 1633}# + #{w\ 1661}# + #{s\ 1662}# + #{mod\ 1663}#))) (begin - (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))) + (if (eq? #{m\ 1635}# (quote c&e)) + (#{top-level-eval-hook\ 281}# + #{x\ 1768}# + #{mod\ 1663}#)) + #{x\ 1768}#))))))))))) + (#{syntax-type\ 453}# + (lambda (#{e\ 1769}# + #{r\ 1770}# + #{w\ 1771}# + #{s\ 1772}# + #{rib\ 1773}# + #{mod\ 1774}# + #{for-car?\ 1775}#) + (if (symbol? #{e\ 1769}#) + (let ((#{n\ 1787}# + (#{id-var-name\ 429}# #{e\ 1769}# #{w\ 1771}#))) + (let ((#{b\ 1789}# + (#{lookup\ 366}# + #{n\ 1787}# + #{r\ 1770}# + #{mod\ 1774}#))) + (let ((#{type\ 1791}# + (#{binding-type\ 355}# #{b\ 1789}#))) + (if (memv #{type\ 1791}# (quote (lexical))) (values - #{type\ 1726}# - (#{binding-value\ 292}# #{b\ 1724}#) - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{type\ 1726}# (quote (global))) + #{type\ 1791}# + (#{binding-value\ 357}# #{b\ 1789}#) + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{type\ 1791}# (quote (global))) (values - #{type\ 1726}# - #{n\ 1722}# - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{type\ 1726}# (quote (macro))) - (if #{for-car?\ 1710}# + #{type\ 1791}# + #{n\ 1787}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{type\ 1791}# (quote (macro))) + (if #{for-car?\ 1775}# (values - #{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}# + #{type\ 1791}# + (#{binding-value\ 357}# #{b\ 1789}#) + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (#{syntax-type\ 453}# + (#{chi-macro\ 463}# + (#{binding-value\ 357}# #{b\ 1789}#) + #{e\ 1769}# + #{r\ 1770}# + #{w\ 1771}# + #{rib\ 1773}# + #{mod\ 1774}#) + #{r\ 1770}# '(()) - #{s\ 1707}# - #{rib\ 1708}# - #{mod\ 1709}# + #{s\ 1772}# + #{rib\ 1773}# + #{mod\ 1774}# #f)) (values - #{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}#))) + #{type\ 1791}# + (#{binding-value\ 357}# #{b\ 1789}#) + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#))))))) + (if (pair? #{e\ 1769}#) + (let ((#{first\ 1800}# (car #{e\ 1769}#))) (call-with-values (lambda () - (#{syntax-type\ 388}# - #{first\ 1735}# - #{r\ 1705}# - #{w\ 1706}# - #{s\ 1707}# - #{rib\ 1708}# - #{mod\ 1709}# + (#{syntax-type\ 453}# + #{first\ 1800}# + #{r\ 1770}# + #{w\ 1771}# + #{s\ 1772}# + #{rib\ 1773}# + #{mod\ 1774}# #t)) - (lambda (#{ftype\ 1736}# - #{fval\ 1737}# - #{fe\ 1738}# - #{fw\ 1739}# - #{fs\ 1740}# - #{fmod\ 1741}#) - (if (memv #{ftype\ 1736}# (quote (lexical))) + (lambda (#{ftype\ 1801}# + #{fval\ 1802}# + #{fe\ 1803}# + #{fw\ 1804}# + #{fs\ 1805}# + #{fmod\ 1806}#) + (if (memv #{ftype\ 1801}# (quote (lexical))) (values 'lexical-call - #{fval\ 1737}# - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{ftype\ 1736}# (quote (global))) + #{fval\ 1802}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{ftype\ 1801}# (quote (global))) (values 'global-call - (#{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}# + (#{make-syntax-object\ 334}# + #{fval\ 1802}# + #{w\ 1771}# + #{fmod\ 1806}#) + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{ftype\ 1801}# (quote (macro))) + (#{syntax-type\ 453}# + (#{chi-macro\ 463}# + #{fval\ 1802}# + #{e\ 1769}# + #{r\ 1770}# + #{w\ 1771}# + #{rib\ 1773}# + #{mod\ 1774}#) + #{r\ 1770}# '(()) - #{s\ 1707}# - #{rib\ 1708}# - #{mod\ 1709}# - #{for-car?\ 1710}#) - (if (memv #{ftype\ 1736}# (quote (module-ref))) + #{s\ 1772}# + #{rib\ 1773}# + #{mod\ 1774}# + #{for-car?\ 1775}#) + (if (memv #{ftype\ 1801}# (quote (module-ref))) (call-with-values (lambda () - (#{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))) + (#{fval\ 1802}# + #{e\ 1769}# + #{r\ 1770}# + #{w\ 1771}#)) + (lambda (#{e\ 1818}# + #{r\ 1819}# + #{w\ 1820}# + #{s\ 1821}# + #{mod\ 1822}#) + (#{syntax-type\ 453}# + #{e\ 1818}# + #{r\ 1819}# + #{w\ 1820}# + #{s\ 1821}# + #{rib\ 1773}# + #{mod\ 1822}# + #{for-car?\ 1775}#))) + (if (memv #{ftype\ 1801}# (quote (core))) (values 'core-form - #{fval\ 1737}# - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{ftype\ 1736}# + #{fval\ 1802}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{ftype\ 1801}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1737}# - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{ftype\ 1736}# (quote (begin))) + #{fval\ 1802}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{ftype\ 1801}# (quote (begin))) (values 'begin-form #f - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{ftype\ 1736}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{ftype\ 1801}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) - (if (memv #{ftype\ 1736}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) + (if (memv #{ftype\ 1801}# '(define)) - ((lambda (#{tmp\ 1768}#) - ((lambda (#{tmp\ 1769}#) - (if (if #{tmp\ 1769}# - (apply (lambda (#{_\ 1773}# - #{name\ 1774}# - #{val\ 1775}#) - (#{id?\ 307}# - #{name\ 1774}#)) - #{tmp\ 1769}#) + ((lambda (#{tmp\ 1833}#) + ((lambda (#{tmp\ 1834}#) + (if (if #{tmp\ 1834}# + (apply (lambda (#{_\ 1838}# + #{name\ 1839}# + #{val\ 1840}#) + (#{id?\ 372}# + #{name\ 1839}#)) + #{tmp\ 1834}#) #f) - (apply (lambda (#{_\ 1779}# - #{name\ 1780}# - #{val\ 1781}#) + (apply (lambda (#{_\ 1844}# + #{name\ 1845}# + #{val\ 1846}#) (values 'define-form - #{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}#)) + #{name\ 1845}# + #{val\ 1846}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#)) + #{tmp\ 1834}#) + ((lambda (#{tmp\ 1847}#) + (if (if #{tmp\ 1847}# + (apply (lambda (#{_\ 1853}# + #{name\ 1854}# + #{args\ 1855}# + #{e1\ 1856}# + #{e2\ 1857}#) + (if (#{id?\ 372}# + #{name\ 1854}#) + (#{valid-bound-ids?\ 435}# + (#{lambda-var-list\ 487}# + #{args\ 1855}#)) #f)) - #{tmp\ 1782}#) + #{tmp\ 1847}#) #f) - (apply (lambda (#{_\ 1800}# - #{name\ 1801}# - #{args\ 1802}# - #{e1\ 1803}# - #{e2\ 1804}#) + (apply (lambda (#{_\ 1865}# + #{name\ 1866}# + #{args\ 1867}# + #{e1\ 1868}# + #{e2\ 1869}#) (values 'define-form - (#{wrap\ 376}# - #{name\ 1801}# - #{w\ 1706}# - #{mod\ 1709}#) - (#{decorate-source\ 225}# + (#{wrap\ 441}# + #{name\ 1866}# + #{w\ 1771}# + #{mod\ 1774}#) + (#{decorate-source\ 290}# (cons '#(syntax-object lambda ((top) @@ -3795,11 +3831,11 @@ (top) (top) (top)) - #("i1795" - "i1796" - "i1797" - "i1798" - "i1799")) + #("i1860" + "i1861" + "i1862" + "i1863" + "i1864")) #(ribcage () () @@ -3821,12 +3857,12 @@ (top) (top) (top)) - #("i1742" - "i1743" - "i1744" - "i1745" - "i1746" - "i1747")) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage () () @@ -3834,7 +3870,7 @@ #(ribcage #(first) #((top)) - #("i1734")) + #("i1799")) #(ribcage () () @@ -3862,13 +3898,13 @@ (top) (top) (top)) - #("i1711" - "i1712" - "i1713" - "i1714" - "i1715" - "i1716" - "i1717")) + #("i1776" + "i1777" + "i1778" + "i1779" + "i1780" + "i1781" + "i1782")) #(ribcage (lambda-var-list gen-var @@ -3986,6 +4022,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -4137,31 +4176,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -4170,16 +4250,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -4189,29 +4268,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -4224,93 +4299,66 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) ((top) + (top) (top) (top)) - ("i22" + ("i23" + "i22" "i21" "i19"))) (hygiene guile)) - (#{wrap\ 376}# - (cons #{args\ 1802}# - (cons #{e1\ 1803}# - #{e2\ 1804}#)) - #{w\ 1706}# - #{mod\ 1709}#)) - #{s\ 1707}#) + (#{wrap\ 441}# + (cons #{args\ 1867}# + (cons #{e1\ 1868}# + #{e2\ 1869}#)) + #{w\ 1771}# + #{mod\ 1774}#)) + #{s\ 1772}#) '(()) - #{s\ 1707}# - #{mod\ 1709}#)) - #{tmp\ 1782}#) - ((lambda (#{tmp\ 1807}#) - (if (if #{tmp\ 1807}# - (apply (lambda (#{_\ 1810}# - #{name\ 1811}#) - (#{id?\ 307}# - #{name\ 1811}#)) - #{tmp\ 1807}#) + #{s\ 1772}# + #{mod\ 1774}#)) + #{tmp\ 1847}#) + ((lambda (#{tmp\ 1872}#) + (if (if #{tmp\ 1872}# + (apply (lambda (#{_\ 1875}# + #{name\ 1876}#) + (#{id?\ 372}# + #{name\ 1876}#)) + #{tmp\ 1872}#) #f) - (apply (lambda (#{_\ 1814}# - #{name\ 1815}#) + (apply (lambda (#{_\ 1879}# + #{name\ 1880}#) (values 'define-form - (#{wrap\ 376}# - #{name\ 1815}# - #{w\ 1706}# - #{mod\ 1709}#) + (#{wrap\ 441}# + #{name\ 1880}# + #{w\ 1771}# + #{mod\ 1774}#) '(#(syntax-object if ((top) @@ -4319,8 +4367,8 @@ name) #((top) (top)) - #("i1812" - "i1813")) + #("i1877" + "i1878")) #(ribcage () () @@ -4342,12 +4390,12 @@ (top) (top) (top)) - #("i1742" - "i1743" - "i1744" - "i1745" - "i1746" - "i1747")) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage () () @@ -4355,7 +4403,7 @@ #(ribcage #(first) #((top)) - #("i1734")) + #("i1799")) #(ribcage () () @@ -4383,13 +4431,13 @@ (top) (top) (top)) - #("i1711" - "i1712" - "i1713" - "i1714" - "i1715" - "i1716" - "i1717")) + #("i1776" + "i1777" + "i1778" + "i1779" + "i1780" + "i1781" + "i1782")) #(ribcage (lambda-var-list gen-var @@ -4507,6 +4555,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -4658,31 +4709,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -4691,16 +4783,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -4710,29 +4801,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -4745,62 +4832,35 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) ((top) + (top) (top) (top)) - ("i22" + ("i23" + "i22" "i21" "i19"))) (hygiene @@ -4813,8 +4873,8 @@ name) #((top) (top)) - #("i1812" - "i1813")) + #("i1877" + "i1878")) #(ribcage () () @@ -4836,12 +4896,12 @@ (top) (top) (top)) - #("i1742" - "i1743" - "i1744" - "i1745" - "i1746" - "i1747")) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage () () @@ -4849,7 +4909,7 @@ #(ribcage #(first) #((top)) - #("i1734")) + #("i1799")) #(ribcage () () @@ -4877,13 +4937,13 @@ (top) (top) (top)) - #("i1711" - "i1712" - "i1713" - "i1714" - "i1715" - "i1716" - "i1717")) + #("i1776" + "i1777" + "i1778" + "i1779" + "i1780" + "i1781" + "i1782")) #(ribcage (lambda-var-list gen-var @@ -5001,6 +5061,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -5152,31 +5215,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -5185,16 +5289,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -5204,29 +5307,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -5239,62 +5338,35 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) ((top) + (top) (top) (top)) - ("i22" + ("i23" + "i22" "i21" "i19"))) (hygiene @@ -5307,8 +5379,8 @@ name) #((top) (top)) - #("i1812" - "i1813")) + #("i1877" + "i1878")) #(ribcage () () @@ -5330,12 +5402,12 @@ (top) (top) (top)) - #("i1742" - "i1743" - "i1744" - "i1745" - "i1746" - "i1747")) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage () () @@ -5343,7 +5415,7 @@ #(ribcage #(first) #((top)) - #("i1734")) + #("i1799")) #(ribcage () () @@ -5371,13 +5443,13 @@ (top) (top) (top)) - #("i1711" - "i1712" - "i1713" - "i1714" - "i1715" - "i1716" - "i1717")) + #("i1776" + "i1777" + "i1778" + "i1779" + "i1780" + "i1781" + "i1782")) #(ribcage (lambda-var-list gen-var @@ -5495,6 +5567,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -5646,31 +5721,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -5679,16 +5795,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -5698,29 +5813,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -5733,165 +5844,138 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) ((top) + (top) (top) (top)) - ("i22" + ("i23" + "i22" "i21" "i19"))) (hygiene guile))) '(()) - #{s\ 1707}# - #{mod\ 1709}#)) - #{tmp\ 1807}#) + #{s\ 1772}# + #{mod\ 1774}#)) + #{tmp\ 1872}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1768}#))) + #{tmp\ 1833}#))) ($sc-dispatch - #{tmp\ 1768}# + #{tmp\ 1833}# '(any any))))) ($sc-dispatch - #{tmp\ 1768}# + #{tmp\ 1833}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1768}# + #{tmp\ 1833}# '(any any any)))) - #{e\ 1704}#) - (if (memv #{ftype\ 1736}# + #{e\ 1769}#) + (if (memv #{ftype\ 1801}# '(define-syntax)) - ((lambda (#{tmp\ 1818}#) - ((lambda (#{tmp\ 1819}#) - (if (if #{tmp\ 1819}# - (apply (lambda (#{_\ 1823}# - #{name\ 1824}# - #{val\ 1825}#) - (#{id?\ 307}# - #{name\ 1824}#)) - #{tmp\ 1819}#) + ((lambda (#{tmp\ 1883}#) + ((lambda (#{tmp\ 1884}#) + (if (if #{tmp\ 1884}# + (apply (lambda (#{_\ 1888}# + #{name\ 1889}# + #{val\ 1890}#) + (#{id?\ 372}# + #{name\ 1889}#)) + #{tmp\ 1884}#) #f) - (apply (lambda (#{_\ 1829}# - #{name\ 1830}# - #{val\ 1831}#) + (apply (lambda (#{_\ 1894}# + #{name\ 1895}# + #{val\ 1896}#) (values 'define-syntax-form - #{name\ 1830}# - #{val\ 1831}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#)) - #{tmp\ 1819}#) + #{name\ 1895}# + #{val\ 1896}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#)) + #{tmp\ 1884}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1818}#))) + #{tmp\ 1883}#))) ($sc-dispatch - #{tmp\ 1818}# + #{tmp\ 1883}# '(any any any)))) - #{e\ 1704}#) + #{e\ 1769}#) (values 'call #f - #{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}#) + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#)))))))))))))) + (if (#{syntax-object?\ 336}# #{e\ 1769}#) + (#{syntax-type\ 453}# + (#{syntax-object-expression\ 338}# #{e\ 1769}#) + #{r\ 1770}# + (#{join-wraps\ 423}# + #{w\ 1771}# + (#{syntax-object-wrap\ 340}# #{e\ 1769}#)) + #{s\ 1772}# + #{rib\ 1773}# + (let ((#{t\ 1902}# + (#{syntax-object-module\ 342}# #{e\ 1769}#))) + (if #{t\ 1902}# #{t\ 1902}# #{mod\ 1774}#)) + #{for-car?\ 1775}#) + (if (self-evaluating? #{e\ 1769}#) (values 'constant #f - #{e\ 1704}# - #{w\ 1706}# - #{s\ 1707}# - #{mod\ 1709}#) + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#) (values 'other #f - #{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}# + #{e\ 1769}# + #{w\ 1771}# + #{s\ 1772}# + #{mod\ 1774}#))))))) + (#{chi-when-list\ 451}# + (lambda (#{e\ 1907}# #{when-list\ 1908}# #{w\ 1909}#) + (letrec ((#{f\ 1916}# + (lambda (#{when-list\ 1917}# #{situations\ 1918}#) + (if (null? #{when-list\ 1917}#) + #{situations\ 1918}# + (#{f\ 1916}# + (cdr #{when-list\ 1917}#) + (cons (let ((#{x\ 1920}# + (car #{when-list\ 1917}#))) + (if (#{free-id=?\ 431}# + #{x\ 1920}# '#(syntax-object compile ((top) @@ -5901,17 +5985,17 @@ #(ribcage #(x) #((top)) - #("i1854")) + #("i1919")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1848" "i1849" "i1850")) + #("i1913" "i1914" "i1915")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1845" "i1846" "i1847")) + #("i1910" "i1911" "i1912")) #(ribcage (lambda-var-list gen-var @@ -6029,6 +6113,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -6180,31 +6267,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -6213,16 +6341,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -6232,29 +6359,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -6267,64 +6390,35 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) (top) (top) (top)) + ("i23" "i22" "i21" "i19"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 366}# - #{x\ 1855}# + (if (#{free-id=?\ 431}# + #{x\ 1920}# '#(syntax-object load ((top) @@ -6334,21 +6428,21 @@ #(ribcage #(x) #((top)) - #("i1854")) + #("i1919")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1848" - "i1849" - "i1850")) + #("i1913" + "i1914" + "i1915")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1845" - "i1846" - "i1847")) + #("i1910" + "i1911" + "i1912")) #(ribcage (lambda-var-list gen-var @@ -6466,6 +6560,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -6617,31 +6714,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -6650,16 +6788,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -6669,29 +6806,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -6704,64 +6837,38 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) (top) (top) (top)) + ("i23" + "i22" + "i21" + "i19"))) (hygiene guile))) 'load - (if (#{free-id=?\ 366}# - #{x\ 1855}# + (if (#{free-id=?\ 431}# + #{x\ 1920}# '#(syntax-object eval ((top) @@ -6771,23 +6878,23 @@ #(ribcage #(x) #((top)) - #("i1854")) + #("i1919")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1848" - "i1849" - "i1850")) + #("i1913" + "i1914" + "i1915")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1845" - "i1846" - "i1847")) + #("i1910" + "i1911" + "i1912")) #(ribcage (lambda-var-list gen-var @@ -6905,6 +7012,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -7056,31 +7166,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -7089,16 +7240,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -7108,29 +7258,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -7143,64 +7289,41 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) + (top) + (top) + (top)) + ("i23" + "i22" + "i21" + "i19"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 366}# - #{x\ 1855}# + (if (#{free-id=?\ 431}# + #{x\ 1920}# '#(syntax-object expand ((top) @@ -7210,23 +7333,23 @@ #(ribcage #(x) #((top)) - #("i1854")) + #("i1919")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1848" - "i1849" - "i1850")) + #("i1913" + "i1914" + "i1915")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1845" - "i1846" - "i1847")) + #("i1910" + "i1911" + "i1912")) #(ribcage (lambda-var-list gen-var @@ -7344,6 +7467,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -7495,31 +7621,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -7528,16 +7695,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -7547,29 +7713,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -7582,2316 +7744,2325 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) + (top) + (top) + (top)) + ("i23" + "i22" + "i21" + "i19"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 1842}# - (#{wrap\ 376}# - #{x\ 1855}# - #{w\ 1844}# + #{e\ 1907}# + (#{wrap\ 441}# + #{x\ 1920}# + #{w\ 1909}# #f))))))) - #{situations\ 1853}#)))))) - (#{f\ 1851}# #{when-list\ 1843}# (quote ()))))) - (#{chi-install-global\ 384}# - (lambda (#{name\ 1865}# #{e\ 1866}#) - (#{build-global-definition\ 247}# + #{situations\ 1918}#)))))) + (#{f\ 1916}# #{when-list\ 1908}# (quote ()))))) + (#{chi-install-global\ 449}# + (lambda (#{name\ 1930}# #{e\ 1931}#) + (#{build-global-definition\ 312}# #f - #{name\ 1865}# - (#{build-application\ 229}# + #{name\ 1930}# + (#{build-application\ 294}# #f - (#{build-primref\ 255}# + (#{build-primref\ 320}# #f 'make-syntax-transformer) - (list (#{build-data\ 257}# #f #{name\ 1865}#) - (#{build-data\ 257}# #f (quote macro)) - (#{build-application\ 229}# + (list (#{build-data\ 322}# #f #{name\ 1930}#) + (#{build-data\ 322}# #f (quote macro)) + (#{build-application\ 294}# #f - (#{build-primref\ 255}# #f (quote cons)) - (list #{e\ 1866}# - (#{build-application\ 229}# + (#{build-primref\ 320}# #f (quote cons)) + (list #{e\ 1931}# + (#{build-application\ 294}# #f - (#{build-primref\ 255}# + (#{build-primref\ 320}# #f 'module-name) - (list (#{build-application\ 229}# + (list (#{build-application\ 294}# #f - (#{build-primref\ 255}# + (#{build-primref\ 320}# #f 'current-module) '())))))))))) - (#{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-top-sequence\ 447}# + (lambda (#{body\ 1945}# + #{r\ 1946}# + #{w\ 1947}# + #{s\ 1948}# + #{m\ 1949}# + #{esew\ 1950}# + #{mod\ 1951}#) + (#{build-sequence\ 324}# + #{s\ 1948}# + (letrec ((#{dobody\ 1967}# + (lambda (#{body\ 1968}# + #{r\ 1969}# + #{w\ 1970}# + #{m\ 1971}# + #{esew\ 1972}# + #{mod\ 1973}# + #{out\ 1974}#) + (if (null? #{body\ 1968}#) + (reverse #{out\ 1974}#) + (#{dobody\ 1967}# + (cdr #{body\ 1968}#) + #{r\ 1969}# + #{w\ 1970}# + #{m\ 1971}# + #{esew\ 1972}# + #{mod\ 1973}# + (cons (#{chi-top\ 455}# + (car #{body\ 1968}#) + #{r\ 1969}# + #{w\ 1970}# + #{m\ 1971}# + #{esew\ 1972}# + #{mod\ 1973}#) + #{out\ 1974}#)))))) + (#{dobody\ 1967}# + #{body\ 1945}# + #{r\ 1946}# + #{w\ 1947}# + #{m\ 1949}# + #{esew\ 1950}# + #{mod\ 1951}# '()))))) - (#{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}#) + (#{chi-sequence\ 445}# + (lambda (#{body\ 1975}# + #{r\ 1976}# + #{w\ 1977}# + #{s\ 1978}# + #{mod\ 1979}#) + (#{build-sequence\ 324}# + #{s\ 1978}# + (letrec ((#{dobody\ 1990}# + (lambda (#{body\ 1991}# + #{r\ 1992}# + #{w\ 1993}# + #{mod\ 1994}#) + (if (null? #{body\ 1991}#) '() - (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}#)) + (let ((#{first\ 1996}# + (#{chi\ 457}# + (car #{body\ 1991}#) + #{r\ 1992}# + #{w\ 1993}# + #{mod\ 1994}#))) + (cons #{first\ 1996}# + (#{dobody\ 1990}# + (cdr #{body\ 1991}#) + #{r\ 1992}# + #{w\ 1993}# + #{mod\ 1994}#))))))) + (#{dobody\ 1990}# + #{body\ 1975}# + #{r\ 1976}# + #{w\ 1977}# + #{mod\ 1979}#))))) + (#{source-wrap\ 443}# + (lambda (#{x\ 1997}# + #{w\ 1998}# + #{s\ 1999}# + #{defmod\ 2000}#) + (#{wrap\ 441}# + (#{decorate-source\ 290}# + #{x\ 1997}# + #{s\ 1999}#) + #{w\ 1998}# + #{defmod\ 2000}#))) + (#{wrap\ 441}# + (lambda (#{x\ 2005}# #{w\ 2006}# #{defmod\ 2007}#) + (if (if (null? (#{wrap-marks\ 379}# #{w\ 2006}#)) + (null? (#{wrap-subst\ 381}# #{w\ 2006}#)) #f) - #{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}#)))) + #{x\ 2005}# + (if (#{syntax-object?\ 336}# #{x\ 2005}#) + (#{make-syntax-object\ 334}# + (#{syntax-object-expression\ 338}# #{x\ 2005}#) + (#{join-wraps\ 423}# + #{w\ 2006}# + (#{syntax-object-wrap\ 340}# #{x\ 2005}#)) + (#{syntax-object-module\ 342}# #{x\ 2005}#)) + (if (null? #{x\ 2005}#) + #{x\ 2005}# + (#{make-syntax-object\ 334}# + #{x\ 2005}# + #{w\ 2006}# + #{defmod\ 2007}#)))))) + (#{bound-id-member?\ 439}# + (lambda (#{x\ 2020}# #{list\ 2021}#) + (if (not (null? #{list\ 2021}#)) + (let ((#{t\ 2028}# + (#{bound-id=?\ 433}# + #{x\ 2020}# + (car #{list\ 2021}#)))) + (if #{t\ 2028}# + #{t\ 2028}# + (#{bound-id-member?\ 439}# + #{x\ 2020}# + (cdr #{list\ 2021}#)))) #f))) - (#{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}#)) + (#{distinct-bound-ids?\ 437}# + (lambda (#{ids\ 2030}#) + (letrec ((#{distinct?\ 2034}# + (lambda (#{ids\ 2035}#) + (let ((#{t\ 2038}# (null? #{ids\ 2035}#))) + (if #{t\ 2038}# + #{t\ 2038}# + (if (not (#{bound-id-member?\ 439}# + (car #{ids\ 2035}#) + (cdr #{ids\ 2035}#))) + (#{distinct?\ 2034}# (cdr #{ids\ 2035}#)) #f)))))) - (#{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}#)) + (#{distinct?\ 2034}# #{ids\ 2030}#)))) + (#{valid-bound-ids?\ 435}# + (lambda (#{ids\ 2042}#) + (if (letrec ((#{all-ids?\ 2047}# + (lambda (#{ids\ 2048}#) + (let ((#{t\ 2051}# (null? #{ids\ 2048}#))) + (if #{t\ 2051}# + #{t\ 2051}# + (if (#{id?\ 372}# (car #{ids\ 2048}#)) + (#{all-ids?\ 2047}# (cdr #{ids\ 2048}#)) #f)))))) - (#{all-ids?\ 1982}# #{ids\ 1977}#)) - (#{distinct-bound-ids?\ 372}# #{ids\ 1977}#) + (#{all-ids?\ 2047}# #{ids\ 2042}#)) + (#{distinct-bound-ids?\ 437}# #{ids\ 2042}#) #f))) - (#{bound-id=?\ 368}# - (lambda (#{i\ 1991}# #{j\ 1992}#) - (if (if (#{syntax-object?\ 271}# #{i\ 1991}#) - (#{syntax-object?\ 271}# #{j\ 1992}#) + (#{bound-id=?\ 433}# + (lambda (#{i\ 2056}# #{j\ 2057}#) + (if (if (#{syntax-object?\ 336}# #{i\ 2056}#) + (#{syntax-object?\ 336}# #{j\ 2057}#) #f) - (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}#))) + (if (eq? (#{syntax-object-expression\ 338}# #{i\ 2056}#) + (#{syntax-object-expression\ 338}# #{j\ 2057}#)) + (#{same-marks?\ 427}# + (#{wrap-marks\ 379}# + (#{syntax-object-wrap\ 340}# #{i\ 2056}#)) + (#{wrap-marks\ 379}# + (#{syntax-object-wrap\ 340}# #{j\ 2057}#))) #f) - (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 (())))) + (eq? #{i\ 2056}# #{j\ 2057}#)))) + (#{free-id=?\ 431}# + (lambda (#{i\ 2064}# #{j\ 2065}#) + (if (eq? (let ((#{x\ 2071}# #{i\ 2064}#)) + (if (#{syntax-object?\ 336}# #{x\ 2071}#) + (#{syntax-object-expression\ 338}# #{x\ 2071}#) + #{x\ 2071}#)) + (let ((#{x\ 2074}# #{j\ 2065}#)) + (if (#{syntax-object?\ 336}# #{x\ 2074}#) + (#{syntax-object-expression\ 338}# #{x\ 2074}#) + #{x\ 2074}#))) + (eq? (#{id-var-name\ 429}# #{i\ 2064}# (quote (()))) + (#{id-var-name\ 429}# #{j\ 2065}# (quote (())))) #f))) - (#{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}#) + (#{id-var-name\ 429}# + (lambda (#{id\ 2078}# #{w\ 2079}#) + (letrec ((#{search-vector-rib\ 2088}# + (lambda (#{sym\ 2100}# + #{subst\ 2101}# + #{marks\ 2102}# + #{symnames\ 2103}# + #{ribcage\ 2104}#) + (let ((#{n\ 2111}# + (vector-length #{symnames\ 2103}#))) + (letrec ((#{f\ 2114}# + (lambda (#{i\ 2115}#) + (if (#{fx=\ 277}# + #{i\ 2115}# + #{n\ 2111}#) + (#{search\ 2084}# + #{sym\ 2100}# + (cdr #{subst\ 2101}#) + #{marks\ 2102}#) (if (if (eq? (vector-ref - #{symnames\ 2038}# - #{i\ 2050}#) - #{sym\ 2035}#) - (#{same-marks?\ 362}# - #{marks\ 2037}# + #{symnames\ 2103}# + #{i\ 2115}#) + #{sym\ 2100}#) + (#{same-marks?\ 427}# + #{marks\ 2102}# (vector-ref - (#{ribcage-marks\ 334}# - #{ribcage\ 2039}#) - #{i\ 2050}#)) + (#{ribcage-marks\ 399}# + #{ribcage\ 2104}#) + #{i\ 2115}#)) #f) (values (vector-ref - (#{ribcage-labels\ 336}# - #{ribcage\ 2039}#) - #{i\ 2050}#) - #{marks\ 2037}#) - (#{f\ 2049}# - (#{fx+\ 208}# - #{i\ 2050}# + (#{ribcage-labels\ 401}# + #{ribcage\ 2104}#) + #{i\ 2115}#) + #{marks\ 2102}#) + (#{f\ 2114}# + (#{fx+\ 273}# + #{i\ 2115}# 1))))))) - (#{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}# + (#{f\ 2114}# 0))))) + (#{search-list-rib\ 2086}# + (lambda (#{sym\ 2123}# + #{subst\ 2124}# + #{marks\ 2125}# + #{symnames\ 2126}# + #{ribcage\ 2127}#) + (letrec ((#{f\ 2136}# + (lambda (#{symnames\ 2137}# #{i\ 2138}#) + (if (null? #{symnames\ 2137}#) + (#{search\ 2084}# + #{sym\ 2123}# + (cdr #{subst\ 2124}#) + #{marks\ 2125}#) + (if (if (eq? (car #{symnames\ 2137}#) + #{sym\ 2123}#) + (#{same-marks?\ 427}# + #{marks\ 2125}# (list-ref - (#{ribcage-marks\ 334}# - #{ribcage\ 2062}#) - #{i\ 2073}#)) + (#{ribcage-marks\ 399}# + #{ribcage\ 2127}#) + #{i\ 2138}#)) #f) (values (list-ref - (#{ribcage-labels\ 336}# - #{ribcage\ 2062}#) - #{i\ 2073}#) - #{marks\ 2060}#) - (#{f\ 2071}# - (cdr #{symnames\ 2072}#) - (#{fx+\ 208}# - #{i\ 2073}# + (#{ribcage-labels\ 401}# + #{ribcage\ 2127}#) + #{i\ 2138}#) + #{marks\ 2125}#) + (#{f\ 2136}# + (cdr #{symnames\ 2137}#) + (#{fx+\ 273}# + #{i\ 2138}# 1))))))) - (#{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}# + (#{f\ 2136}# #{symnames\ 2126}# 0)))) + (#{search\ 2084}# + (lambda (#{sym\ 2146}# + #{subst\ 2147}# + #{marks\ 2148}#) + (if (null? #{subst\ 2147}#) + (values #f #{marks\ 2148}#) + (let ((#{fst\ 2153}# (car #{subst\ 2147}#))) + (if (eq? #{fst\ 2153}# (quote shift)) + (#{search\ 2084}# + #{sym\ 2146}# + (cdr #{subst\ 2147}#) + (cdr #{marks\ 2148}#)) + (let ((#{symnames\ 2155}# + (#{ribcage-symnames\ 397}# + #{fst\ 2153}#))) + (if (vector? #{symnames\ 2155}#) + (#{search-vector-rib\ 2088}# + #{sym\ 2146}# + #{subst\ 2147}# + #{marks\ 2148}# + #{symnames\ 2155}# + #{fst\ 2153}#) + (#{search-list-rib\ 2086}# + #{sym\ 2146}# + #{subst\ 2147}# + #{marks\ 2148}# + #{symnames\ 2155}# + #{fst\ 2153}#))))))))) + (if (symbol? #{id\ 2078}#) + (let ((#{t\ 2158}# (call-with-values (lambda () - (#{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}#)))) + (#{search\ 2084}# + #{id\ 2078}# + (#{wrap-subst\ 381}# #{w\ 2079}#) + (#{wrap-marks\ 379}# #{w\ 2079}#))) + (lambda (#{x\ 2160}# . #{ignore\ 2161}#) + #{x\ 2160}#)))) + (if #{t\ 2158}# #{t\ 2158}# #{id\ 2078}#)) + (if (#{syntax-object?\ 336}# #{id\ 2078}#) + (let ((#{id\ 2169}# + (#{syntax-object-expression\ 338}# #{id\ 2078}#)) + (#{w1\ 2170}# + (#{syntax-object-wrap\ 340}# #{id\ 2078}#))) + (let ((#{marks\ 2172}# + (#{join-marks\ 425}# + (#{wrap-marks\ 379}# #{w\ 2079}#) + (#{wrap-marks\ 379}# #{w1\ 2170}#)))) (call-with-values (lambda () - (#{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}# + (#{search\ 2084}# + #{id\ 2169}# + (#{wrap-subst\ 381}# #{w\ 2079}#) + #{marks\ 2172}#)) + (lambda (#{new-id\ 2173}# #{marks\ 2174}#) + (let ((#{t\ 2179}# #{new-id\ 2173}#)) + (if #{t\ 2179}# + #{t\ 2179}# + (let ((#{t\ 2182}# (call-with-values (lambda () - (#{search\ 2019}# - #{id\ 2104}# - (#{wrap-subst\ 316}# - #{w1\ 2105}#) - #{marks\ 2109}#)) - (lambda (#{x\ 2119}# + (#{search\ 2084}# + #{id\ 2169}# + (#{wrap-subst\ 381}# + #{w1\ 2170}#) + #{marks\ 2174}#)) + (lambda (#{x\ 2184}# . - #{ignore\ 2120}#) - #{x\ 2119}#)))) - (if #{t\ 2117}# - #{t\ 2117}# - #{id\ 2104}#)))))))) + #{ignore\ 2185}#) + #{x\ 2184}#)))) + (if #{t\ 2182}# + #{t\ 2182}# + #{id\ 2169}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{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}#)) + #{id\ 2078}#)))))) + (#{same-marks?\ 427}# + (lambda (#{x\ 2190}# #{y\ 2191}#) + (let ((#{t\ 2196}# (eq? #{x\ 2190}# #{y\ 2191}#))) + (if #{t\ 2196}# + #{t\ 2196}# + (if (not (null? #{x\ 2190}#)) + (if (not (null? #{y\ 2191}#)) + (if (eq? (car #{x\ 2190}#) (car #{y\ 2191}#)) + (#{same-marks?\ 427}# + (cdr #{x\ 2190}#) + (cdr #{y\ 2191}#)) #f) #f) #f))))) - (#{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}#))) + (#{join-marks\ 425}# + (lambda (#{m1\ 2202}# #{m2\ 2203}#) + (#{smart-append\ 421}# #{m1\ 2202}# #{m2\ 2203}#))) + (#{join-wraps\ 423}# + (lambda (#{w1\ 2206}# #{w2\ 2207}#) + (let ((#{m1\ 2212}# (#{wrap-marks\ 379}# #{w1\ 2206}#)) + (#{s1\ 2213}# (#{wrap-subst\ 381}# #{w1\ 2206}#))) + (if (null? #{m1\ 2212}#) + (if (null? #{s1\ 2213}#) + #{w2\ 2207}# + (#{make-wrap\ 377}# + (#{wrap-marks\ 379}# #{w2\ 2207}#) + (#{smart-append\ 421}# + #{s1\ 2213}# + (#{wrap-subst\ 381}# #{w2\ 2207}#)))) + (#{make-wrap\ 377}# + (#{smart-append\ 421}# + #{m1\ 2212}# + (#{wrap-marks\ 379}# #{w2\ 2207}#)) + (#{smart-append\ 421}# + #{s1\ 2213}# + (#{wrap-subst\ 381}# #{w2\ 2207}#))))))) + (#{smart-append\ 421}# + (lambda (#{m1\ 2214}# #{m2\ 2215}#) + (if (null? #{m2\ 2215}#) + #{m1\ 2214}# + (append #{m1\ 2214}# #{m2\ 2215}#)))) + (#{make-binding-wrap\ 419}# + (lambda (#{ids\ 2218}# #{labels\ 2219}# #{w\ 2220}#) + (if (null? #{ids\ 2218}#) + #{w\ 2220}# + (#{make-wrap\ 377}# + (#{wrap-marks\ 379}# #{w\ 2220}#) + (cons (let ((#{labelvec\ 2225}# + (list->vector #{labels\ 2219}#))) + (let ((#{n\ 2227}# + (vector-length #{labelvec\ 2225}#))) + (let ((#{symnamevec\ 2230}# + (make-vector #{n\ 2227}#)) + (#{marksvec\ 2231}# + (make-vector #{n\ 2227}#))) (begin - (letrec ((#{f\ 2170}# - (lambda (#{ids\ 2171}# #{i\ 2172}#) - (if (not (null? #{ids\ 2171}#)) + (letrec ((#{f\ 2235}# + (lambda (#{ids\ 2236}# #{i\ 2237}#) + (if (not (null? #{ids\ 2236}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 310}# - (car #{ids\ 2171}#) - #{w\ 2155}#)) - (lambda (#{symname\ 2173}# - #{marks\ 2174}#) + (#{id-sym-name&marks\ 375}# + (car #{ids\ 2236}#) + #{w\ 2220}#)) + (lambda (#{symname\ 2238}# + #{marks\ 2239}#) (begin (vector-set! - #{symnamevec\ 2165}# - #{i\ 2172}# - #{symname\ 2173}#) + #{symnamevec\ 2230}# + #{i\ 2237}# + #{symname\ 2238}#) (vector-set! - #{marksvec\ 2166}# - #{i\ 2172}# - #{marks\ 2174}#) - (#{f\ 2170}# - (cdr #{ids\ 2171}#) - (#{fx+\ 208}# - #{i\ 2172}# + #{marksvec\ 2231}# + #{i\ 2237}# + #{marks\ 2239}#) + (#{f\ 2235}# + (cdr #{ids\ 2236}#) + (#{fx+\ 273}# + #{i\ 2237}# 1))))))))) - (#{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}#) + (#{f\ 2235}# #{ids\ 2218}# 0)) + (#{make-ribcage\ 393}# + #{symnamevec\ 2230}# + #{marksvec\ 2231}# + #{labelvec\ 2225}#))))) + (#{wrap-subst\ 381}# #{w\ 2220}#)))))) + (#{extend-ribcage!\ 417}# + (lambda (#{ribcage\ 2242}# #{id\ 2243}# #{label\ 2244}#) (begin - (#{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}#)) + (#{set-ribcage-symnames!\ 403}# + #{ribcage\ 2242}# + (cons (#{syntax-object-expression\ 338}# #{id\ 2243}#) + (#{ribcage-symnames\ 397}# #{ribcage\ 2242}#))) + (#{set-ribcage-marks!\ 405}# + #{ribcage\ 2242}# + (cons (#{wrap-marks\ 379}# + (#{syntax-object-wrap\ 340}# #{id\ 2243}#)) + (#{ribcage-marks\ 399}# #{ribcage\ 2242}#))) + (#{set-ribcage-labels!\ 407}# + #{ribcage\ 2242}# + (cons #{label\ 2244}# + (#{ribcage-labels\ 401}# #{ribcage\ 2242}#)))))) + (#{anti-mark\ 413}# + (lambda (#{w\ 2248}#) + (#{make-wrap\ 377}# + (cons #f (#{wrap-marks\ 379}# #{w\ 2248}#)) (cons 'shift - (#{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)) + (#{wrap-subst\ 381}# #{w\ 2248}#))))) + (#{set-ribcage-labels!\ 407}# + (lambda (#{x\ 2251}# #{update\ 2252}#) + (vector-set! #{x\ 2251}# 3 #{update\ 2252}#))) + (#{set-ribcage-marks!\ 405}# + (lambda (#{x\ 2255}# #{update\ 2256}#) + (vector-set! #{x\ 2255}# 2 #{update\ 2256}#))) + (#{set-ribcage-symnames!\ 403}# + (lambda (#{x\ 2259}# #{update\ 2260}#) + (vector-set! #{x\ 2259}# 1 #{update\ 2260}#))) + (#{ribcage-labels\ 401}# + (lambda (#{x\ 2263}#) (vector-ref #{x\ 2263}# 3))) + (#{ribcage-marks\ 399}# + (lambda (#{x\ 2265}#) (vector-ref #{x\ 2265}# 2))) + (#{ribcage-symnames\ 397}# + (lambda (#{x\ 2267}#) (vector-ref #{x\ 2267}# 1))) + (#{ribcage?\ 395}# + (lambda (#{x\ 2269}#) + (if (vector? #{x\ 2269}#) + (if (= (vector-length #{x\ 2269}#) 4) + (eq? (vector-ref #{x\ 2269}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 328}# - (lambda (#{symnames\ 2209}# - #{marks\ 2210}# - #{labels\ 2211}#) + (#{make-ribcage\ 393}# + (lambda (#{symnames\ 2274}# + #{marks\ 2275}# + #{labels\ 2276}#) (vector 'ribcage - #{symnames\ 2209}# - #{marks\ 2210}# - #{labels\ 2211}#))) - (#{gen-labels\ 325}# - (lambda (#{ls\ 2215}#) - (if (null? #{ls\ 2215}#) + #{symnames\ 2274}# + #{marks\ 2275}# + #{labels\ 2276}#))) + (#{gen-labels\ 390}# + (lambda (#{ls\ 2280}#) + (if (null? #{ls\ 2280}#) '() - (cons (#{gen-label\ 323}#) - (#{gen-labels\ 325}# (cdr #{ls\ 2215}#)))))) - (#{gen-label\ 323}# + (cons (#{gen-label\ 388}#) + (#{gen-labels\ 390}# (cdr #{ls\ 2280}#)))))) + (#{gen-label\ 388}# (lambda () (symbol->string (gensym "i")))) - (#{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}#) + (#{wrap-subst\ 381}# cdr) + (#{wrap-marks\ 379}# car) + (#{make-wrap\ 377}# cons) + (#{id-sym-name&marks\ 375}# + (lambda (#{x\ 2282}# #{w\ 2283}#) + (if (#{syntax-object?\ 336}# #{x\ 2282}#) (values - (#{syntax-object-expression\ 273}# #{x\ 2217}#) - (#{join-marks\ 360}# - (#{wrap-marks\ 314}# #{w\ 2218}#) - (#{wrap-marks\ 314}# - (#{syntax-object-wrap\ 275}# #{x\ 2217}#)))) + (#{syntax-object-expression\ 338}# #{x\ 2282}#) + (#{join-marks\ 425}# + (#{wrap-marks\ 379}# #{w\ 2283}#) + (#{wrap-marks\ 379}# + (#{syntax-object-wrap\ 340}# #{x\ 2282}#)))) (values - #{x\ 2217}# - (#{wrap-marks\ 314}# #{w\ 2218}#))))) - (#{id?\ 307}# - (lambda (#{x\ 2221}#) - (if (symbol? #{x\ 2221}#) + #{x\ 2282}# + (#{wrap-marks\ 379}# #{w\ 2283}#))))) + (#{id?\ 372}# + (lambda (#{x\ 2286}#) + (if (symbol? #{x\ 2286}#) #t - (if (#{syntax-object?\ 271}# #{x\ 2221}#) + (if (#{syntax-object?\ 336}# #{x\ 2286}#) (symbol? - (#{syntax-object-expression\ 273}# #{x\ 2221}#)) + (#{syntax-object-expression\ 338}# #{x\ 2286}#)) #f)))) - (#{nonsymbol-id?\ 305}# - (lambda (#{x\ 2228}#) - (if (#{syntax-object?\ 271}# #{x\ 2228}#) + (#{nonsymbol-id?\ 370}# + (lambda (#{x\ 2293}#) + (if (#{syntax-object?\ 336}# #{x\ 2293}#) (symbol? - (#{syntax-object-expression\ 273}# #{x\ 2228}#)) + (#{syntax-object-expression\ 338}# #{x\ 2293}#)) #f))) - (#{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)))) + (#{global-extend\ 368}# + (lambda (#{type\ 2297}# #{sym\ 2298}# #{val\ 2299}#) + (#{put-global-definition-hook\ 286}# + #{sym\ 2298}# + #{type\ 2297}# + #{val\ 2299}#))) + (#{lookup\ 366}# + (lambda (#{x\ 2303}# #{r\ 2304}# #{mod\ 2305}#) + (let ((#{t\ 2311}# (assq #{x\ 2303}# #{r\ 2304}#))) + (if #{t\ 2311}# + (cdr #{t\ 2311}#) + (if (symbol? #{x\ 2303}#) + (let ((#{t\ 2317}# + (#{get-global-definition-hook\ 288}# + #{x\ 2303}# + #{mod\ 2305}#))) + (if #{t\ 2317}# #{t\ 2317}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 299}# - (lambda (#{r\ 2257}#) - (if (null? #{r\ 2257}#) + (#{macros-only-env\ 364}# + (lambda (#{r\ 2322}#) + (if (null? #{r\ 2322}#) '() - (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)) + (let ((#{a\ 2325}# (car #{r\ 2322}#))) + (if (eq? (cadr #{a\ 2325}#) (quote macro)) + (cons #{a\ 2325}# + (#{macros-only-env\ 364}# (cdr #{r\ 2322}#))) + (#{macros-only-env\ 364}# (cdr #{r\ 2322}#))))))) + (#{extend-var-env\ 362}# + (lambda (#{labels\ 2326}# #{vars\ 2327}# #{r\ 2328}#) + (if (null? #{labels\ 2326}#) + #{r\ 2328}# + (#{extend-var-env\ 362}# + (cdr #{labels\ 2326}#) + (cdr #{vars\ 2327}#) + (cons (cons (car #{labels\ 2326}#) + (cons (quote lexical) (car #{vars\ 2327}#))) + #{r\ 2328}#))))) + (#{extend-env\ 360}# + (lambda (#{labels\ 2333}# #{bindings\ 2334}# #{r\ 2335}#) + (if (null? #{labels\ 2333}#) + #{r\ 2335}# + (#{extend-env\ 360}# + (cdr #{labels\ 2333}#) + (cdr #{bindings\ 2334}#) + (cons (cons (car #{labels\ 2333}#) + (car #{bindings\ 2334}#)) + #{r\ 2335}#))))) + (#{binding-value\ 357}# cdr) + (#{binding-type\ 355}# car) + (#{source-annotation\ 351}# + (lambda (#{x\ 2339}#) + (if (#{syntax-object?\ 336}# #{x\ 2339}#) + (#{source-annotation\ 351}# + (#{syntax-object-expression\ 338}# #{x\ 2339}#)) + (if (pair? #{x\ 2339}#) + (let ((#{props\ 2346}# (source-properties #{x\ 2339}#))) + (if (pair? #{props\ 2346}#) #{props\ 2346}# #f)) #f)))) - (#{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) + (#{set-syntax-object-module!\ 348}# + (lambda (#{x\ 2348}# #{update\ 2349}#) + (vector-set! #{x\ 2348}# 3 #{update\ 2349}#))) + (#{set-syntax-object-wrap!\ 346}# + (lambda (#{x\ 2352}# #{update\ 2353}#) + (vector-set! #{x\ 2352}# 2 #{update\ 2353}#))) + (#{set-syntax-object-expression!\ 344}# + (lambda (#{x\ 2356}# #{update\ 2357}#) + (vector-set! #{x\ 2356}# 1 #{update\ 2357}#))) + (#{syntax-object-module\ 342}# + (lambda (#{x\ 2360}#) (vector-ref #{x\ 2360}# 3))) + (#{syntax-object-wrap\ 340}# + (lambda (#{x\ 2362}#) (vector-ref #{x\ 2362}# 2))) + (#{syntax-object-expression\ 338}# + (lambda (#{x\ 2364}#) (vector-ref #{x\ 2364}# 1))) + (#{syntax-object?\ 336}# + (lambda (#{x\ 2366}#) + (if (vector? #{x\ 2366}#) + (if (= (vector-length #{x\ 2366}#) 4) + (eq? (vector-ref #{x\ 2366}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 269}# - (lambda (#{expression\ 2306}# - #{wrap\ 2307}# - #{module\ 2308}#) + (#{make-syntax-object\ 334}# + (lambda (#{expression\ 2371}# + #{wrap\ 2372}# + #{module\ 2373}#) (vector 'syntax-object - #{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}# + #{expression\ 2371}# + #{wrap\ 2372}# + #{module\ 2373}#))) + (#{build-letrec\ 330}# + (lambda (#{src\ 2377}# + #{ids\ 2378}# + #{vars\ 2379}# + #{val-exps\ 2380}# + #{body-exp\ 2381}#) + (if (null? #{vars\ 2379}#) + #{body-exp\ 2381}# + (begin + (for-each + #{maybe-name-value!\ 310}# + #{ids\ 2378}# + #{val-exps\ 2380}#) + (#{make-letrec\ 262}# + #{src\ 2377}# + #{ids\ 2378}# + #{vars\ 2379}# + #{val-exps\ 2380}# + #{body-exp\ 2381}#))))) + (#{build-named-let\ 328}# + (lambda (#{src\ 2387}# + #{ids\ 2388}# + #{vars\ 2389}# + #{val-exps\ 2390}# + #{body-exp\ 2391}#) + (let ((#{f\ 2401}# (car #{vars\ 2389}#)) + (#{f-name\ 2402}# (car #{ids\ 2388}#)) + (#{vars\ 2403}# (cdr #{vars\ 2389}#)) + (#{ids\ 2404}# (cdr #{ids\ 2388}#))) + (let ((#{proc\ 2406}# + (#{build-simple-lambda\ 314}# + #{src\ 2387}# + #{ids\ 2404}# #f - #{vars\ 2338}# + #{vars\ 2403}# '() - #{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\ 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}#) + #{body-exp\ 2391}#))) + (begin + (#{maybe-name-value!\ 310}# + #{f-name\ 2402}# + #{proc\ 2406}#) + (for-each + #{maybe-name-value!\ 310}# + #{ids\ 2404}# + #{val-exps\ 2390}#) + (#{make-letrec\ 262}# + #{src\ 2387}# + (list #{f-name\ 2402}#) + (list #{f\ 2401}#) + (list #{proc\ 2406}#) + (#{build-application\ 294}# + #{src\ 2387}# + (#{build-lexical-reference\ 300}# + 'fun + #{src\ 2387}# + #{f-name\ 2402}# + #{f\ 2401}#) + #{val-exps\ 2390}#))))))) + (#{build-let\ 326}# + (lambda (#{src\ 2407}# + #{ids\ 2408}# + #{vars\ 2409}# + #{val-exps\ 2410}# + #{body-exp\ 2411}#) + (begin + (for-each + #{maybe-name-value!\ 310}# + #{ids\ 2408}# + #{val-exps\ 2410}#) + (if (null? #{vars\ 2409}#) + #{body-exp\ 2411}# + (#{make-let\ 260}# + #{src\ 2407}# + #{ids\ 2408}# + #{vars\ 2409}# + #{val-exps\ 2410}# + #{body-exp\ 2411}#))))) + (#{build-sequence\ 324}# + (lambda (#{src\ 2417}# #{exps\ 2418}#) + (if (null? (cdr #{exps\ 2418}#)) + (car #{exps\ 2418}#) + (#{make-sequence\ 254}# + #{src\ 2417}# + #{exps\ 2418}#)))) + (#{build-data\ 322}# + (lambda (#{src\ 2421}# #{exp\ 2422}#) + (#{make-const\ 232}# #{src\ 2421}# #{exp\ 2422}#))) + (#{build-primref\ 320}# + (lambda (#{src\ 2425}# #{name\ 2426}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref\ 186}# - #{src\ 2360}# - #{name\ 2361}#) - (#{make-module-ref\ 182}# - #{src\ 2360}# + (#{make-toplevel-ref\ 244}# + #{src\ 2425}# + #{name\ 2426}#) + (#{make-module-ref\ 240}# + #{src\ 2425}# '(guile) - #{name\ 2361}# + #{name\ 2426}# #f)))) - (#{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}# + (#{build-lambda-case\ 318}# + (lambda (#{src\ 2429}# + #{req\ 2430}# + #{opt\ 2431}# + #{rest\ 2432}# + #{kw\ 2433}# + #{inits\ 2434}# + #{vars\ 2435}# + #{body\ 2436}# + #{else-case\ 2437}#) + (#{make-lambda-case\ 258}# + #{src\ 2429}# + #{req\ 2430}# + #{opt\ 2431}# + #{rest\ 2432}# + #{kw\ 2433}# + #{inits\ 2434}# + #{vars\ 2435}# + #{body\ 2436}# + #{else-case\ 2437}#))) + (#{build-case-lambda\ 316}# + (lambda (#{src\ 2447}# #{meta\ 2448}# #{body\ 2449}#) + (#{make-lambda\ 256}# + #{src\ 2447}# + #{meta\ 2448}# + #{body\ 2449}#))) + (#{build-simple-lambda\ 314}# + (lambda (#{src\ 2453}# + #{req\ 2454}# + #{rest\ 2455}# + #{vars\ 2456}# + #{meta\ 2457}# + #{exp\ 2458}#) + (#{make-lambda\ 256}# + #{src\ 2453}# + #{meta\ 2457}# + (#{make-lambda-case\ 258}# + #{src\ 2453}# + #{req\ 2454}# #f - #{rest\ 2390}# + #{rest\ 2455}# #f '() - #{vars\ 2391}# - #{exp\ 2393}# + #{vars\ 2456}# + #{exp\ 2458}# #f)))) - (#{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\ 2407}#))) - (if (not (assq (quote name) #{meta\ 2413}#)) - ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2407}# - (acons 'name - #{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}# + (#{build-global-definition\ 312}# + (lambda (#{source\ 2465}# #{var\ 2466}# #{exp\ 2467}#) + (begin + (#{maybe-name-value!\ 310}# + #{var\ 2466}# + #{exp\ 2467}#) + (#{make-toplevel-define\ 248}# + #{source\ 2465}# + #{var\ 2466}# + #{exp\ 2467}#)))) + (#{maybe-name-value!\ 310}# + (lambda (#{name\ 2471}# #{val\ 2472}#) + (if (#{lambda?\ 267}# #{val\ 2472}#) + (let ((#{meta\ 2476}# + (#{lambda-meta\ 269}# #{val\ 2472}#))) + (if (not (assq (quote name) #{meta\ 2476}#)) + (#{set-lambda-meta!\ 271}# + #{val\ 2472}# + (acons 'name + #{name\ 2471}# + #{meta\ 2476}#))))))) + (#{build-global-assignment\ 308}# + (lambda (#{source\ 2477}# + #{var\ 2478}# + #{exp\ 2479}# + #{mod\ 2480}#) + (#{analyze-variable\ 304}# + #{mod\ 2480}# + #{var\ 2478}# + (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#) + (#{make-module-set\ 242}# + #{source\ 2477}# + #{mod\ 2485}# + #{var\ 2486}# + #{public?\ 2487}# + #{exp\ 2479}#)) + (lambda (#{var\ 2491}#) + (#{make-toplevel-set\ 246}# + #{source\ 2477}# + #{var\ 2491}# + #{exp\ 2479}#))))) + (#{build-global-reference\ 306}# + (lambda (#{source\ 2493}# #{var\ 2494}# #{mod\ 2495}#) + (#{analyze-variable\ 304}# + #{mod\ 2495}# + #{var\ 2494}# + (lambda (#{mod\ 2499}# #{var\ 2500}# #{public?\ 2501}#) + (#{make-module-ref\ 240}# + #{source\ 2493}# + #{mod\ 2499}# + #{var\ 2500}# + #{public?\ 2501}#)) + (lambda (#{var\ 2505}#) + (#{make-toplevel-ref\ 244}# + #{source\ 2493}# + #{var\ 2505}#))))) + (#{analyze-variable\ 304}# + (lambda (#{mod\ 2507}# + #{var\ 2508}# + #{modref-cont\ 2509}# + #{bare-cont\ 2510}#) + (if (not #{mod\ 2507}#) + (#{bare-cont\ 2510}# #{var\ 2508}#) + (let ((#{kind\ 2517}# (car #{mod\ 2507}#)) + (#{mod\ 2518}# (cdr #{mod\ 2507}#))) + (if (memv #{kind\ 2517}# (quote (public))) + (#{modref-cont\ 2509}# + #{mod\ 2518}# + #{var\ 2508}# #t) - (if (memv #{kind\ 2454}# (quote (private))) + (if (memv #{kind\ 2517}# (quote (private))) (if (not (equal? - #{mod\ 2455}# + #{mod\ 2518}# (module-name (current-module)))) - (#{modref-cont\ 2446}# - #{mod\ 2455}# - #{var\ 2445}# + (#{modref-cont\ 2509}# + #{mod\ 2518}# + #{var\ 2508}# #f) - (#{bare-cont\ 2447}# #{var\ 2445}#)) - (if (memv #{kind\ 2454}# (quote (bare))) - (#{bare-cont\ 2447}# #{var\ 2445}#) - (if (memv #{kind\ 2454}# (quote (hygiene))) + (#{bare-cont\ 2510}# #{var\ 2508}#)) + (if (memv #{kind\ 2517}# (quote (bare))) + (#{bare-cont\ 2510}# #{var\ 2508}#) + (if (memv #{kind\ 2517}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2455}# + #{mod\ 2518}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2455}#) - #{var\ 2445}#) + (resolve-module #{mod\ 2518}#) + #{var\ 2508}#) #f) - (#{modref-cont\ 2446}# - #{mod\ 2455}# - #{var\ 2445}# + (#{modref-cont\ 2509}# + #{mod\ 2518}# + #{var\ 2508}# #f) - (#{bare-cont\ 2447}# #{var\ 2445}#)) + (#{bare-cont\ 2510}# #{var\ 2508}#)) (syntax-violation #f "bad module kind" - #{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}#) + #{var\ 2508}# + #{mod\ 2518}#))))))))) + (#{build-lexical-assignment\ 302}# + (lambda (#{source\ 2526}# + #{name\ 2527}# + #{var\ 2528}# + #{exp\ 2529}#) + (#{make-lexical-set\ 238}# + #{source\ 2526}# + #{name\ 2527}# + #{var\ 2528}# + #{exp\ 2529}#))) + (#{build-lexical-reference\ 300}# + (lambda (#{type\ 2534}# + #{source\ 2535}# + #{name\ 2536}# + #{var\ 2537}#) + (#{make-lexical-ref\ 236}# + #{source\ 2535}# + #{name\ 2536}# + #{var\ 2537}#))) + (#{build-dynlet\ 298}# + (lambda (#{source\ 2542}# + #{fluids\ 2543}# + #{vals\ 2544}# + #{body\ 2545}#) + (#{make-dynlet\ 264}# + #{source\ 2542}# + #{fluids\ 2543}# + #{vals\ 2544}# + #{body\ 2545}#))) + (#{build-conditional\ 296}# + (lambda (#{source\ 2550}# + #{test-exp\ 2551}# + #{then-exp\ 2552}# + #{else-exp\ 2553}#) + (#{make-conditional\ 250}# + #{source\ 2550}# + #{test-exp\ 2551}# + #{then-exp\ 2552}# + #{else-exp\ 2553}#))) + (#{build-application\ 294}# + (lambda (#{source\ 2558}# + #{fun-exp\ 2559}# + #{arg-exps\ 2560}#) + (#{make-application\ 252}# + #{source\ 2558}# + #{fun-exp\ 2559}# + #{arg-exps\ 2560}#))) + (#{build-void\ 292}# + (lambda (#{source\ 2564}#) + (#{make-void\ 230}# #{source\ 2564}#))) + (#{decorate-source\ 290}# + (lambda (#{e\ 2566}# #{s\ 2567}#) (begin - (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}#) + (if (if (pair? #{e\ 2566}#) #{s\ 2567}# #f) + (set-source-properties! #{e\ 2566}# #{s\ 2567}#)) + #{e\ 2566}#))) + (#{get-global-definition-hook\ 288}# + (lambda (#{symbol\ 2572}# #{module\ 2573}#) (begin - (if (if (not #{module\ 2510}#) (current-module) #f) + (if (if (not #{module\ 2573}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2509}#)) - (let ((#{v\ 2516}# + #{symbol\ 2572}#)) + (let ((#{v\ 2579}# (module-variable - (if #{module\ 2510}# - (resolve-module (cdr #{module\ 2510}#)) + (if #{module\ 2573}# + (resolve-module (cdr #{module\ 2573}#)) (current-module)) - #{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}#)) + #{symbol\ 2572}#))) + (if #{v\ 2579}# + (if (variable-bound? #{v\ 2579}#) + (let ((#{val\ 2584}# (variable-ref #{v\ 2579}#))) + (if (macro? #{val\ 2584}#) + (if (macro-type #{val\ 2584}#) + (cons (macro-type #{val\ 2584}#) + (macro-binding #{val\ 2584}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 221}# - (lambda (#{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#) + (#{put-global-definition-hook\ 286}# + (lambda (#{symbol\ 2588}# #{type\ 2589}# #{val\ 2590}#) (module-define! (current-module) - #{symbol\ 2525}# + #{symbol\ 2588}# (make-syntax-transformer - #{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}#) + #{symbol\ 2588}# + #{type\ 2589}# + #{val\ 2590}#)))) + (#{local-eval-hook\ 283}# + (lambda (#{x\ 2594}# #{mod\ 2595}#) + (primitive-eval #{x\ 2594}#))) + (#{top-level-eval-hook\ 281}# + (lambda (#{x\ 2598}# #{mod\ 2599}#) + (primitive-eval #{x\ 2598}#))) + (#{fx<\ 279}# <) + (#{fx=\ 277}# =) + (#{fx-\ 275}# -) + (#{fx+\ 273}# +) + (#{set-lambda-meta!\ 271}# + (lambda (#{x\ 2602}# #{v\ 2603}#) + (struct-set! #{x\ 2602}# 1 #{v\ 2603}#))) + (#{lambda-meta\ 269}# + (lambda (#{x\ 2606}#) (struct-ref #{x\ 2606}# 1))) + (#{lambda?\ 267}# + (lambda (#{x\ 2608}#) + (if (struct? #{x\ 2608}#) + (eq? (struct-vtable #{x\ 2608}#) + (vector-ref %expanded-vtables 13)) + #f))) + (#{make-dynlet\ 264}# + (lambda (#{src\ 2612}# + #{fluids\ 2613}# + #{vals\ 2614}# + #{body\ 2615}#) (make-struct (vector-ref %expanded-vtables 17) 0 - #{src\ 2539}# - #{fluids\ 2540}# - #{vals\ 2541}# - #{body\ 2542}#))) - (#{make-letrec\ 204}# - (lambda (#{src\ 2547}# - #{names\ 2548}# - #{gensyms\ 2549}# - #{vals\ 2550}# - #{body\ 2551}#) + #{src\ 2612}# + #{fluids\ 2613}# + #{vals\ 2614}# + #{body\ 2615}#))) + (#{make-letrec\ 262}# + (lambda (#{src\ 2620}# + #{names\ 2621}# + #{gensyms\ 2622}# + #{vals\ 2623}# + #{body\ 2624}#) (make-struct (vector-ref %expanded-vtables 16) 0 - #{src\ 2547}# - #{names\ 2548}# - #{gensyms\ 2549}# - #{vals\ 2550}# - #{body\ 2551}#))) - (#{make-let\ 202}# - (lambda (#{src\ 2557}# - #{names\ 2558}# - #{gensyms\ 2559}# - #{vals\ 2560}# - #{body\ 2561}#) + #{src\ 2620}# + #{names\ 2621}# + #{gensyms\ 2622}# + #{vals\ 2623}# + #{body\ 2624}#))) + (#{make-let\ 260}# + (lambda (#{src\ 2630}# + #{names\ 2631}# + #{gensyms\ 2632}# + #{vals\ 2633}# + #{body\ 2634}#) (make-struct (vector-ref %expanded-vtables 15) 0 - #{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}#) + #{src\ 2630}# + #{names\ 2631}# + #{gensyms\ 2632}# + #{vals\ 2633}# + #{body\ 2634}#))) + (#{make-lambda-case\ 258}# + (lambda (#{src\ 2640}# + #{req\ 2641}# + #{opt\ 2642}# + #{rest\ 2643}# + #{kw\ 2644}# + #{inits\ 2645}# + #{gensyms\ 2646}# + #{body\ 2647}# + #{alternate\ 2648}#) (make-struct (vector-ref %expanded-vtables 14) 0 - #{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}#) + #{src\ 2640}# + #{req\ 2641}# + #{opt\ 2642}# + #{rest\ 2643}# + #{kw\ 2644}# + #{inits\ 2645}# + #{gensyms\ 2646}# + #{body\ 2647}# + #{alternate\ 2648}#))) + (#{make-lambda\ 256}# + (lambda (#{src\ 2658}# #{meta\ 2659}# #{body\ 2660}#) (make-struct (vector-ref %expanded-vtables 13) 0 - #{src\ 2585}# - #{meta\ 2586}# - #{body\ 2587}#))) - (#{make-sequence\ 196}# - (lambda (#{src\ 2591}# #{exps\ 2592}#) + #{src\ 2658}# + #{meta\ 2659}# + #{body\ 2660}#))) + (#{make-sequence\ 254}# + (lambda (#{src\ 2664}# #{exps\ 2665}#) (make-struct (vector-ref %expanded-vtables 12) 0 - #{src\ 2591}# - #{exps\ 2592}#))) - (#{make-application\ 194}# - (lambda (#{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#) + #{src\ 2664}# + #{exps\ 2665}#))) + (#{make-application\ 252}# + (lambda (#{src\ 2668}# #{proc\ 2669}# #{args\ 2670}#) (make-struct (vector-ref %expanded-vtables 11) 0 - #{src\ 2595}# - #{proc\ 2596}# - #{args\ 2597}#))) - (#{make-conditional\ 192}# - (lambda (#{src\ 2601}# - #{test\ 2602}# - #{consequent\ 2603}# - #{alternate\ 2604}#) + #{src\ 2668}# + #{proc\ 2669}# + #{args\ 2670}#))) + (#{make-conditional\ 250}# + (lambda (#{src\ 2674}# + #{test\ 2675}# + #{consequent\ 2676}# + #{alternate\ 2677}#) (make-struct (vector-ref %expanded-vtables 10) 0 - #{src\ 2601}# - #{test\ 2602}# - #{consequent\ 2603}# - #{alternate\ 2604}#))) - (#{make-toplevel-define\ 190}# - (lambda (#{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#) + #{src\ 2674}# + #{test\ 2675}# + #{consequent\ 2676}# + #{alternate\ 2677}#))) + (#{make-toplevel-define\ 248}# + (lambda (#{src\ 2682}# #{name\ 2683}# #{exp\ 2684}#) (make-struct (vector-ref %expanded-vtables 9) 0 - #{src\ 2609}# - #{name\ 2610}# - #{exp\ 2611}#))) - (#{make-toplevel-set\ 188}# - (lambda (#{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#) + #{src\ 2682}# + #{name\ 2683}# + #{exp\ 2684}#))) + (#{make-toplevel-set\ 246}# + (lambda (#{src\ 2688}# #{name\ 2689}# #{exp\ 2690}#) (make-struct (vector-ref %expanded-vtables 8) 0 - #{src\ 2615}# - #{name\ 2616}# - #{exp\ 2617}#))) - (#{make-toplevel-ref\ 186}# - (lambda (#{src\ 2621}# #{name\ 2622}#) + #{src\ 2688}# + #{name\ 2689}# + #{exp\ 2690}#))) + (#{make-toplevel-ref\ 244}# + (lambda (#{src\ 2694}# #{name\ 2695}#) (make-struct (vector-ref %expanded-vtables 7) 0 - #{src\ 2621}# - #{name\ 2622}#))) - (#{make-module-set\ 184}# - (lambda (#{src\ 2625}# - #{mod\ 2626}# - #{name\ 2627}# - #{public?\ 2628}# - #{exp\ 2629}#) + #{src\ 2694}# + #{name\ 2695}#))) + (#{make-module-set\ 242}# + (lambda (#{src\ 2698}# + #{mod\ 2699}# + #{name\ 2700}# + #{public?\ 2701}# + #{exp\ 2702}#) (make-struct (vector-ref %expanded-vtables 6) 0 - #{src\ 2625}# - #{mod\ 2626}# - #{name\ 2627}# - #{public?\ 2628}# - #{exp\ 2629}#))) - (#{make-module-ref\ 182}# - (lambda (#{src\ 2635}# - #{mod\ 2636}# - #{name\ 2637}# - #{public?\ 2638}#) + #{src\ 2698}# + #{mod\ 2699}# + #{name\ 2700}# + #{public?\ 2701}# + #{exp\ 2702}#))) + (#{make-module-ref\ 240}# + (lambda (#{src\ 2708}# + #{mod\ 2709}# + #{name\ 2710}# + #{public?\ 2711}#) (make-struct (vector-ref %expanded-vtables 5) 0 - #{src\ 2635}# - #{mod\ 2636}# - #{name\ 2637}# - #{public?\ 2638}#))) - (#{make-lexical-set\ 180}# - (lambda (#{src\ 2643}# - #{name\ 2644}# - #{gensym\ 2645}# - #{exp\ 2646}#) + #{src\ 2708}# + #{mod\ 2709}# + #{name\ 2710}# + #{public?\ 2711}#))) + (#{make-lexical-set\ 238}# + (lambda (#{src\ 2716}# + #{name\ 2717}# + #{gensym\ 2718}# + #{exp\ 2719}#) (make-struct (vector-ref %expanded-vtables 4) 0 - #{src\ 2643}# - #{name\ 2644}# - #{gensym\ 2645}# - #{exp\ 2646}#))) - (#{make-lexical-ref\ 178}# - (lambda (#{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#) + #{src\ 2716}# + #{name\ 2717}# + #{gensym\ 2718}# + #{exp\ 2719}#))) + (#{make-lexical-ref\ 236}# + (lambda (#{src\ 2724}# #{name\ 2725}# #{gensym\ 2726}#) (make-struct (vector-ref %expanded-vtables 3) 0 - #{src\ 2651}# - #{name\ 2652}# - #{gensym\ 2653}#))) - (#{make-primitive-ref\ 176}# - (lambda (#{src\ 2657}# #{name\ 2658}#) + #{src\ 2724}# + #{name\ 2725}# + #{gensym\ 2726}#))) + (#{make-primitive-ref\ 234}# + (lambda (#{src\ 2730}# #{name\ 2731}#) (make-struct (vector-ref %expanded-vtables 2) 0 - #{src\ 2657}# - #{name\ 2658}#))) - (#{make-const\ 174}# - (lambda (#{src\ 2661}# #{exp\ 2662}#) + #{src\ 2730}# + #{name\ 2731}#))) + (#{make-const\ 232}# + (lambda (#{src\ 2734}# #{exp\ 2735}#) (make-struct (vector-ref %expanded-vtables 1) 0 - #{src\ 2661}# - #{exp\ 2662}#))) - (#{make-void\ 172}# - (lambda (#{src\ 2665}#) + #{src\ 2734}# + #{exp\ 2735}#))) + (#{make-void\ 230}# + (lambda (#{src\ 2738}#) (make-struct (vector-ref %expanded-vtables 0) 0 - #{src\ 2665}#)))) + #{src\ 2738}#)))) (begin - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'core 'fluid-let-syntax - (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}#) + (lambda (#{e\ 2740}# + #{r\ 2741}# + #{w\ 2742}# + #{s\ 2743}# + #{mod\ 2744}#) + ((lambda (#{tmp\ 2750}#) + ((lambda (#{tmp\ 2751}#) + (if (if #{tmp\ 2751}# + (apply (lambda (#{_\ 2757}# + #{var\ 2758}# + #{val\ 2759}# + #{e1\ 2760}# + #{e2\ 2761}#) + (#{valid-bound-ids?\ 435}# #{var\ 2758}#)) + #{tmp\ 2751}#) #f) - (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}#))) + (apply (lambda (#{_\ 2768}# + #{var\ 2769}# + #{val\ 2770}# + #{e1\ 2771}# + #{e2\ 2772}#) + (let ((#{names\ 2774}# + (map (lambda (#{x\ 2775}#) + (#{id-var-name\ 429}# + #{x\ 2775}# + #{w\ 2742}#)) + #{var\ 2769}#))) (begin (for-each - (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}# + (lambda (#{id\ 2778}# #{n\ 2779}#) + (let ((#{atom-key\ 2784}# + (#{binding-type\ 355}# + (#{lookup\ 366}# + #{n\ 2779}# + #{r\ 2741}# + #{mod\ 2744}#)))) + (if (memv #{atom-key\ 2784}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{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}#) + #{e\ 2740}# + (#{source-wrap\ 443}# + #{id\ 2778}# + #{w\ 2742}# + #{s\ 2743}# + #{mod\ 2744}#))))) + #{var\ 2769}# + #{names\ 2774}#) + (#{chi-body\ 465}# + (cons #{e1\ 2771}# #{e2\ 2772}#) + (#{source-wrap\ 443}# + #{e\ 2740}# + #{w\ 2742}# + #{s\ 2743}# + #{mod\ 2744}#) + (#{extend-env\ 360}# + #{names\ 2774}# + (let ((#{trans-r\ 2789}# + (#{macros-only-env\ 364}# + #{r\ 2741}#))) + (map (lambda (#{x\ 2790}#) (cons 'macro - (#{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}#) + (#{eval-local-transformer\ 469}# + (#{chi\ 457}# + #{x\ 2790}# + #{trans-r\ 2789}# + #{w\ 2742}# + #{mod\ 2744}#) + #{mod\ 2744}#))) + #{val\ 2770}#)) + #{r\ 2741}#) + #{w\ 2742}# + #{mod\ 2744}#)))) + #{tmp\ 2751}#) + ((lambda (#{_\ 2795}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 378}# - #{e\ 2667}# - #{w\ 2669}# - #{s\ 2670}# - #{mod\ 2671}#))) - #{tmp\ 2677}#))) + (#{source-wrap\ 443}# + #{e\ 2740}# + #{w\ 2742}# + #{s\ 2743}# + #{mod\ 2744}#))) + #{tmp\ 2750}#))) ($sc-dispatch - #{tmp\ 2677}# + #{tmp\ 2750}# '(any #(each (any any)) any . each-any)))) - #{e\ 2667}#))) - (#{global-extend\ 303}# + #{e\ 2740}#))) + (#{global-extend\ 368}# 'core 'quote - (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}#) + (lambda (#{e\ 2796}# + #{r\ 2797}# + #{w\ 2798}# + #{s\ 2799}# + #{mod\ 2800}#) + ((lambda (#{tmp\ 2806}#) + ((lambda (#{tmp\ 2807}#) + (if #{tmp\ 2807}# + (apply (lambda (#{_\ 2810}# #{e\ 2811}#) + (#{build-data\ 322}# + #{s\ 2799}# + (#{strip\ 483}# #{e\ 2811}# #{w\ 2798}#))) + #{tmp\ 2807}#) + ((lambda (#{_\ 2813}#) (syntax-violation 'quote "bad syntax" - (#{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}# + (#{source-wrap\ 443}# + #{e\ 2796}# + #{w\ 2798}# + #{s\ 2799}# + #{mod\ 2800}#))) + #{tmp\ 2806}#))) + ($sc-dispatch #{tmp\ 2806}# (quote (any any))))) + #{e\ 2796}#))) + (#{global-extend\ 368}# 'core 'syntax - (letrec ((#{regen\ 2756}# - (lambda (#{x\ 2757}#) - (let ((#{atom-key\ 2761}# (car #{x\ 2757}#))) - (if (memv #{atom-key\ 2761}# (quote (ref))) - (#{build-lexical-reference\ 235}# + (letrec ((#{regen\ 2829}# + (lambda (#{x\ 2830}#) + (let ((#{atom-key\ 2834}# (car #{x\ 2830}#))) + (if (memv #{atom-key\ 2834}# (quote (ref))) + (#{build-lexical-reference\ 300}# 'value #f - (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}# + (cadr #{x\ 2830}#) + (cadr #{x\ 2830}#)) + (if (memv #{atom-key\ 2834}# (quote (primitive))) + (#{build-primref\ 320}# #f (cadr #{x\ 2830}#)) + (if (memv #{atom-key\ 2834}# (quote (quote))) + (#{build-data\ 322}# #f (cadr #{x\ 2830}#)) + (if (memv #{atom-key\ 2834}# (quote (lambda))) + (if (list? (cadr #{x\ 2830}#)) + (#{build-simple-lambda\ 314}# #f - (cadr #{x\ 2757}#) + (cadr #{x\ 2830}#) #f - (cadr #{x\ 2757}#) + (cadr #{x\ 2830}#) '() - (#{regen\ 2756}# (caddr #{x\ 2757}#))) - (error "how did we get here" #{x\ 2757}#)) - (#{build-application\ 229}# + (#{regen\ 2829}# (caddr #{x\ 2830}#))) + (error "how did we get here" #{x\ 2830}#)) + (#{build-application\ 294}# #f - (#{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)) + (#{build-primref\ 320}# #f (car #{x\ 2830}#)) + (map #{regen\ 2829}# + (cdr #{x\ 2830}#)))))))))) + (#{gen-vector\ 2827}# + (lambda (#{x\ 2846}#) + (if (eq? (car #{x\ 2846}#) (quote list)) + (cons (quote vector) (cdr #{x\ 2846}#)) + (if (eq? (car #{x\ 2846}#) (quote quote)) (list '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->vector (cadr #{x\ 2846}#))) + (list (quote list->vector) #{x\ 2846}#))))) + (#{gen-append\ 2825}# + (lambda (#{x\ 2856}# #{y\ 2857}#) + (if (equal? #{y\ 2857}# (quote (quote ()))) + #{x\ 2856}# + (list (quote append) #{x\ 2856}# #{y\ 2857}#)))) + (#{gen-cons\ 2823}# + (lambda (#{x\ 2861}# #{y\ 2862}#) + (let ((#{atom-key\ 2867}# (car #{y\ 2862}#))) + (if (memv #{atom-key\ 2867}# (quote (quote))) + (if (eq? (car #{x\ 2861}#) (quote quote)) (list 'quote - (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 (cadr #{x\ 2861}#) (cadr #{y\ 2862}#))) + (if (eq? (cadr #{y\ 2862}#) (quote ())) + (list (quote list) #{x\ 2861}#) + (list (quote cons) #{x\ 2861}# #{y\ 2862}#))) + (if (memv #{atom-key\ 2867}# (quote (list))) (cons 'list - (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}#) + (cons #{x\ 2861}# (cdr #{y\ 2862}#))) + (list (quote cons) #{x\ 2861}# #{y\ 2862}#)))))) + (#{gen-map\ 2821}# + (lambda (#{e\ 2876}# #{map-env\ 2877}#) + (let ((#{formals\ 2882}# (map cdr #{map-env\ 2877}#)) + (#{actuals\ 2883}# + (map (lambda (#{x\ 2884}#) + (list (quote ref) (car #{x\ 2884}#))) + #{map-env\ 2877}#))) + (if (eq? (car #{e\ 2876}#) (quote ref)) + (car #{actuals\ 2883}#) (if (and-map - (lambda (#{x\ 2818}#) - (if (eq? (car #{x\ 2818}#) (quote ref)) - (memq (cadr #{x\ 2818}#) #{formals\ 2809}#) + (lambda (#{x\ 2891}#) + (if (eq? (car #{x\ 2891}#) (quote ref)) + (memq (cadr #{x\ 2891}#) #{formals\ 2882}#) #f)) - (cdr #{e\ 2803}#)) + (cdr #{e\ 2876}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2803}#)) - (map (let ((#{r\ 2824}# + (car #{e\ 2876}#)) + (map (let ((#{r\ 2897}# (map cons - #{formals\ 2809}# - #{actuals\ 2810}#))) - (lambda (#{x\ 2825}#) - (cdr (assq (cadr #{x\ 2825}#) - #{r\ 2824}#)))) - (cdr #{e\ 2803}#)))) + #{formals\ 2882}# + #{actuals\ 2883}#))) + (lambda (#{x\ 2898}#) + (cdr (assq (cadr #{x\ 2898}#) + #{r\ 2897}#)))) + (cdr #{e\ 2876}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2809}# - #{e\ 2803}#) - #{actuals\ 2810}#))))))) - (#{gen-mappend\ 2746}# - (lambda (#{e\ 2829}# #{map-env\ 2830}#) + #{formals\ 2882}# + #{e\ 2876}#) + #{actuals\ 2883}#))))))) + (#{gen-mappend\ 2819}# + (lambda (#{e\ 2902}# #{map-env\ 2903}#) (list 'apply '(primitive append) - (#{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}#) + (#{gen-map\ 2821}# #{e\ 2902}# #{map-env\ 2903}#)))) + (#{gen-ref\ 2817}# + (lambda (#{src\ 2907}# + #{var\ 2908}# + #{level\ 2909}# + #{maps\ 2910}#) + (if (#{fx=\ 277}# #{level\ 2909}# 0) + (values #{var\ 2908}# #{maps\ 2910}#) + (if (null? #{maps\ 2910}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2834}#) + #{src\ 2907}#) (call-with-values (lambda () - (#{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)))) + (#{gen-ref\ 2817}# + #{src\ 2907}# + #{var\ 2908}# + (#{fx-\ 275}# #{level\ 2909}# 1) + (cdr #{maps\ 2910}#))) + (lambda (#{outer-var\ 2915}# #{outer-maps\ 2916}#) + (let ((#{b\ 2920}# + (assq #{outer-var\ 2915}# + (car #{maps\ 2910}#)))) + (if #{b\ 2920}# + (values (cdr #{b\ 2920}#) #{maps\ 2910}#) + (let ((#{inner-var\ 2922}# + (#{gen-var\ 485}# (quote tmp)))) (values - #{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}# + #{inner-var\ 2922}# + (cons (cons (cons #{outer-var\ 2915}# + #{inner-var\ 2922}#) + (car #{maps\ 2910}#)) + #{outer-maps\ 2916}#))))))))))) + (#{gen-syntax\ 2815}# + (lambda (#{src\ 2923}# + #{e\ 2924}# + #{r\ 2925}# + #{maps\ 2926}# + #{ellipsis?\ 2927}# + #{mod\ 2928}#) + (if (#{id?\ 372}# #{e\ 2924}#) + (let ((#{label\ 2936}# + (#{id-var-name\ 429}# + #{e\ 2924}# '(())))) - (let ((#{b\ 2866}# - (#{lookup\ 301}# - #{label\ 2863}# - #{r\ 2852}# - #{mod\ 2855}#))) - (if (eq? (#{binding-type\ 290}# #{b\ 2866}#) + (let ((#{b\ 2939}# + (#{lookup\ 366}# + #{label\ 2936}# + #{r\ 2925}# + #{mod\ 2928}#))) + (if (eq? (#{binding-type\ 355}# #{b\ 2939}#) 'syntax) (call-with-values (lambda () - (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}#) + (let ((#{var.lev\ 2941}# + (#{binding-value\ 357}# #{b\ 2939}#))) + (#{gen-ref\ 2817}# + #{src\ 2923}# + (car #{var.lev\ 2941}#) + (cdr #{var.lev\ 2941}#) + #{maps\ 2926}#))) + (lambda (#{var\ 2942}# #{maps\ 2943}#) (values - (list (quote ref) #{var\ 2869}#) - #{maps\ 2870}#))) - (if (#{ellipsis?\ 2854}# #{e\ 2851}#) + (list (quote ref) #{var\ 2942}#) + #{maps\ 2943}#))) + (if (#{ellipsis?\ 2927}# #{e\ 2924}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2850}#) + #{src\ 2923}#) (values - (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}#) + (list (quote quote) #{e\ 2924}#) + #{maps\ 2926}#))))) + ((lambda (#{tmp\ 2948}#) + ((lambda (#{tmp\ 2949}#) + (if (if #{tmp\ 2949}# + (apply (lambda (#{dots\ 2952}# #{e\ 2953}#) + (#{ellipsis?\ 2927}# + #{dots\ 2952}#)) + #{tmp\ 2949}#) #f) - (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}#) + (apply (lambda (#{dots\ 2956}# #{e\ 2957}#) + (#{gen-syntax\ 2815}# + #{src\ 2923}# + #{e\ 2957}# + #{r\ 2925}# + #{maps\ 2926}# + (lambda (#{x\ 2958}#) #f) + #{mod\ 2928}#)) + #{tmp\ 2949}#) + ((lambda (#{tmp\ 2960}#) + (if (if #{tmp\ 2960}# + (apply (lambda (#{x\ 2964}# + #{dots\ 2965}# + #{y\ 2966}#) + (#{ellipsis?\ 2927}# + #{dots\ 2965}#)) + #{tmp\ 2960}#) #f) - (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}#) + (apply (lambda (#{x\ 2970}# + #{dots\ 2971}# + #{y\ 2972}#) + (letrec ((#{f\ 2976}# + (lambda (#{y\ 2977}# + #{k\ 2978}#) + ((lambda (#{tmp\ 2985}#) + ((lambda (#{tmp\ 2986}#) + (if (if #{tmp\ 2986}# + (apply (lambda (#{dots\ 2989}# + #{y\ 2990}#) + (#{ellipsis?\ 2927}# + #{dots\ 2989}#)) + #{tmp\ 2986}#) #f) - (apply (lambda (#{dots\ 2920}# - #{y\ 2921}#) - (#{f\ 2903}# - #{y\ 2921}# - (lambda (#{maps\ 2922}#) + (apply (lambda (#{dots\ 2993}# + #{y\ 2994}#) + (#{f\ 2976}# + #{y\ 2994}# + (lambda (#{maps\ 2995}#) (call-with-values (lambda () - (#{k\ 2905}# + (#{k\ 2978}# (cons '() - #{maps\ 2922}#))) - (lambda (#{x\ 2924}# - #{maps\ 2925}#) - (if (null? (car #{maps\ 2925}#)) + #{maps\ 2995}#))) + (lambda (#{x\ 2997}# + #{maps\ 2998}#) + (if (null? (car #{maps\ 2998}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2850}#) + #{src\ 2923}#) (values - (#{gen-mappend\ 2746}# - #{x\ 2924}# - (car #{maps\ 2925}#)) - (cdr #{maps\ 2925}#)))))))) - #{tmp\ 2913}#) - ((lambda (#{_\ 2929}#) + (#{gen-mappend\ 2819}# + #{x\ 2997}# + (car #{maps\ 2998}#)) + (cdr #{maps\ 2998}#)))))))) + #{tmp\ 2986}#) + ((lambda (#{_\ 3002}#) (call-with-values (lambda () - (#{gen-syntax\ 2742}# - #{src\ 2850}# - #{y\ 2904}# - #{r\ 2852}# - #{maps\ 2853}# - #{ellipsis?\ 2854}# - #{mod\ 2855}#)) - (lambda (#{y\ 2930}# - #{maps\ 2931}#) + (#{gen-syntax\ 2815}# + #{src\ 2923}# + #{y\ 2977}# + #{r\ 2925}# + #{maps\ 2926}# + #{ellipsis?\ 2927}# + #{mod\ 2928}#)) + (lambda (#{y\ 3003}# + #{maps\ 3004}#) (call-with-values (lambda () - (#{k\ 2905}# - #{maps\ 2931}#)) - (lambda (#{x\ 2934}# - #{maps\ 2935}#) + (#{k\ 2978}# + #{maps\ 3004}#)) + (lambda (#{x\ 3007}# + #{maps\ 3008}#) (values - (#{gen-append\ 2752}# - #{x\ 2934}# - #{y\ 2930}#) - #{maps\ 2935}#)))))) - #{tmp\ 2912}#))) + (#{gen-append\ 2825}# + #{x\ 3007}# + #{y\ 3003}#) + #{maps\ 3008}#)))))) + #{tmp\ 2985}#))) ($sc-dispatch - #{tmp\ 2912}# + #{tmp\ 2985}# '(any . any)))) - #{y\ 2904}#)))) - (#{f\ 2903}# - #{y\ 2899}# - (lambda (#{maps\ 2906}#) + #{y\ 2977}#)))) + (#{f\ 2976}# + #{y\ 2972}# + (lambda (#{maps\ 2979}#) (call-with-values (lambda () - (#{gen-syntax\ 2742}# - #{src\ 2850}# - #{x\ 2897}# - #{r\ 2852}# + (#{gen-syntax\ 2815}# + #{src\ 2923}# + #{x\ 2970}# + #{r\ 2925}# (cons '() - #{maps\ 2906}#) - #{ellipsis?\ 2854}# - #{mod\ 2855}#)) - (lambda (#{x\ 2908}# - #{maps\ 2909}#) - (if (null? (car #{maps\ 2909}#)) + #{maps\ 2979}#) + #{ellipsis?\ 2927}# + #{mod\ 2928}#)) + (lambda (#{x\ 2981}# + #{maps\ 2982}#) + (if (null? (car #{maps\ 2982}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2850}#) + #{src\ 2923}#) (values - (#{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}#) + (#{gen-map\ 2821}# + #{x\ 2981}# + (car #{maps\ 2982}#)) + (cdr #{maps\ 2982}#))))))))) + #{tmp\ 2960}#) + ((lambda (#{tmp\ 3011}#) + (if #{tmp\ 3011}# + (apply (lambda (#{x\ 3014}# + #{y\ 3015}#) (call-with-values (lambda () - (#{gen-syntax\ 2742}# - #{src\ 2850}# - #{x\ 2941}# - #{r\ 2852}# - #{maps\ 2853}# - #{ellipsis?\ 2854}# - #{mod\ 2855}#)) - (lambda (#{x\ 2943}# - #{maps\ 2944}#) + (#{gen-syntax\ 2815}# + #{src\ 2923}# + #{x\ 3014}# + #{r\ 2925}# + #{maps\ 2926}# + #{ellipsis?\ 2927}# + #{mod\ 2928}#)) + (lambda (#{x\ 3016}# + #{maps\ 3017}#) (call-with-values (lambda () - (#{gen-syntax\ 2742}# - #{src\ 2850}# - #{y\ 2942}# - #{r\ 2852}# - #{maps\ 2944}# - #{ellipsis?\ 2854}# - #{mod\ 2855}#)) - (lambda (#{y\ 2947}# - #{maps\ 2948}#) + (#{gen-syntax\ 2815}# + #{src\ 2923}# + #{y\ 3015}# + #{r\ 2925}# + #{maps\ 3017}# + #{ellipsis?\ 2927}# + #{mod\ 2928}#)) + (lambda (#{y\ 3020}# + #{maps\ 3021}#) (values - (#{gen-cons\ 2750}# - #{x\ 2943}# - #{y\ 2947}#) - #{maps\ 2948}#)))))) - #{tmp\ 2938}#) - ((lambda (#{tmp\ 2951}#) - (if #{tmp\ 2951}# - (apply (lambda (#{e1\ 2954}# - #{e2\ 2955}#) + (#{gen-cons\ 2823}# + #{x\ 3016}# + #{y\ 3020}#) + #{maps\ 3021}#)))))) + #{tmp\ 3011}#) + ((lambda (#{tmp\ 3024}#) + (if #{tmp\ 3024}# + (apply (lambda (#{e1\ 3027}# + #{e2\ 3028}#) (call-with-values (lambda () - (#{gen-syntax\ 2742}# - #{src\ 2850}# - (cons #{e1\ 2954}# - #{e2\ 2955}#) - #{r\ 2852}# - #{maps\ 2853}# - #{ellipsis?\ 2854}# - #{mod\ 2855}#)) - (lambda (#{e\ 2957}# - #{maps\ 2958}#) + (#{gen-syntax\ 2815}# + #{src\ 2923}# + (cons #{e1\ 3027}# + #{e2\ 3028}#) + #{r\ 2925}# + #{maps\ 2926}# + #{ellipsis?\ 2927}# + #{mod\ 2928}#)) + (lambda (#{e\ 3030}# + #{maps\ 3031}#) (values - (#{gen-vector\ 2754}# - #{e\ 2957}#) - #{maps\ 2958}#)))) - #{tmp\ 2951}#) - ((lambda (#{_\ 2962}#) + (#{gen-vector\ 2827}# + #{e\ 3030}#) + #{maps\ 3031}#)))) + #{tmp\ 3024}#) + ((lambda (#{_\ 3035}#) (values (list 'quote - #{e\ 2851}#) - #{maps\ 2853}#)) - #{tmp\ 2875}#))) + #{e\ 2924}#) + #{maps\ 2926}#)) + #{tmp\ 2948}#))) ($sc-dispatch - #{tmp\ 2875}# + #{tmp\ 2948}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2875}# + #{tmp\ 2948}# '(any . any))))) ($sc-dispatch - #{tmp\ 2875}# + #{tmp\ 2948}# '(any any . any))))) - ($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}#) + ($sc-dispatch #{tmp\ 2948}# (quote (any any))))) + #{e\ 2924}#))))) + (lambda (#{e\ 3037}# + #{r\ 3038}# + #{w\ 3039}# + #{s\ 3040}# + #{mod\ 3041}#) + (let ((#{e\ 3048}# + (#{source-wrap\ 443}# + #{e\ 3037}# + #{w\ 3039}# + #{s\ 3040}# + #{mod\ 3041}#))) + ((lambda (#{tmp\ 3049}#) + ((lambda (#{tmp\ 3050}#) + (if #{tmp\ 3050}# + (apply (lambda (#{_\ 3053}# #{x\ 3054}#) (call-with-values (lambda () - (#{gen-syntax\ 2742}# - #{e\ 2975}# - #{x\ 2981}# - #{r\ 2965}# + (#{gen-syntax\ 2815}# + #{e\ 3048}# + #{x\ 3054}# + #{r\ 3038}# '() - #{ellipsis?\ 408}# - #{mod\ 2968}#)) - (lambda (#{e\ 2982}# #{maps\ 2983}#) - (#{regen\ 2756}# #{e\ 2982}#)))) - #{tmp\ 2977}#) - ((lambda (#{_\ 2987}#) + #{ellipsis?\ 473}# + #{mod\ 3041}#)) + (lambda (#{e\ 3055}# #{maps\ 3056}#) + (#{regen\ 2829}# #{e\ 3055}#)))) + #{tmp\ 3050}#) + ((lambda (#{_\ 3060}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2975}#)) - #{tmp\ 2976}#))) - ($sc-dispatch #{tmp\ 2976}# (quote (any any))))) - #{e\ 2975}#))))) - (#{global-extend\ 303}# + #{e\ 3048}#)) + #{tmp\ 3049}#))) + ($sc-dispatch #{tmp\ 3049}# (quote (any any))))) + #{e\ 3048}#))))) + (#{global-extend\ 368}# 'core 'lambda - (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}#) + (lambda (#{e\ 3061}# + #{r\ 3062}# + #{w\ 3063}# + #{s\ 3064}# + #{mod\ 3065}#) + ((lambda (#{tmp\ 3071}#) + ((lambda (#{tmp\ 3072}#) + (if #{tmp\ 3072}# + (apply (lambda (#{_\ 3077}# + #{args\ 3078}# + #{e1\ 3079}# + #{e2\ 3080}#) (call-with-values (lambda () - (#{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}#) + (#{lambda-formals\ 475}# #{args\ 3078}#)) + (lambda (#{req\ 3081}# + #{opt\ 3082}# + #{rest\ 3083}# + #{kw\ 3084}#) + (letrec ((#{lp\ 3092}# + (lambda (#{body\ 3093}# + #{meta\ 3094}#) + ((lambda (#{tmp\ 3096}#) + ((lambda (#{tmp\ 3097}#) + (if (if #{tmp\ 3097}# + (apply (lambda (#{docstring\ 3101}# + #{e1\ 3102}# + #{e2\ 3103}#) (string? (syntax->datum - #{docstring\ 3028}#))) - #{tmp\ 3024}#) + #{docstring\ 3101}#))) + #{tmp\ 3097}#) #f) - (apply (lambda (#{docstring\ 3034}# - #{e1\ 3035}# - #{e2\ 3036}#) - (#{lp\ 3019}# - (cons #{e1\ 3035}# - #{e2\ 3036}#) + (apply (lambda (#{docstring\ 3107}# + #{e1\ 3108}# + #{e2\ 3109}#) + (#{lp\ 3092}# + (cons #{e1\ 3108}# + #{e2\ 3109}#) (append - #{meta\ 3021}# + #{meta\ 3094}# (list (cons 'documentation (syntax->datum - #{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}#) + #{docstring\ 3107}#)))))) + #{tmp\ 3097}#) + ((lambda (#{tmp\ 3112}#) + (if #{tmp\ 3112}# + (apply (lambda (#{k\ 3117}# + #{v\ 3118}# + #{e1\ 3119}# + #{e2\ 3120}#) + (#{lp\ 3092}# + (cons #{e1\ 3119}# + #{e2\ 3120}#) (append - #{meta\ 3021}# + #{meta\ 3094}# (syntax->datum (map cons - #{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}#))) + #{k\ 3117}# + #{v\ 3118}#))))) + #{tmp\ 3112}#) + ((lambda (#{_\ 3125}#) + (#{chi-simple-lambda\ 477}# + #{e\ 3061}# + #{r\ 3062}# + #{w\ 3063}# + #{s\ 3064}# + #{mod\ 3065}# + #{req\ 3081}# + #{rest\ 3083}# + #{meta\ 3094}# + #{body\ 3093}#)) + #{tmp\ 3096}#))) ($sc-dispatch - #{tmp\ 3023}# + #{tmp\ 3096}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 3023}# + #{tmp\ 3096}# '(any any . each-any)))) - #{body\ 3020}#)))) - (#{lp\ 3019}# - (cons #{e1\ 3006}# #{e2\ 3007}#) + #{body\ 3093}#)))) + (#{lp\ 3092}# + (cons #{e1\ 3079}# #{e2\ 3080}#) '()))))) - #{tmp\ 2999}#) - ((lambda (#{_\ 3054}#) + #{tmp\ 3072}#) + ((lambda (#{_\ 3127}#) (syntax-violation 'lambda "bad lambda" - #{e\ 2988}#)) - #{tmp\ 2998}#))) + #{e\ 3061}#)) + #{tmp\ 3071}#))) ($sc-dispatch - #{tmp\ 2998}# + #{tmp\ 3071}# '(any any any . each-any)))) - #{e\ 2988}#))) - (#{global-extend\ 303}# + #{e\ 3061}#))) + (#{global-extend\ 368}# 'core 'lambda* - (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}#) + (lambda (#{e\ 3128}# + #{r\ 3129}# + #{w\ 3130}# + #{s\ 3131}# + #{mod\ 3132}#) + ((lambda (#{tmp\ 3138}#) + ((lambda (#{tmp\ 3139}#) + (if #{tmp\ 3139}# + (apply (lambda (#{_\ 3144}# + #{args\ 3145}# + #{e1\ 3146}# + #{e2\ 3147}#) (call-with-values (lambda () - (#{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}#) + (#{chi-lambda-case\ 481}# + #{e\ 3128}# + #{r\ 3129}# + #{w\ 3130}# + #{s\ 3131}# + #{mod\ 3132}# + #{lambda*-formals\ 479}# + (list (cons #{args\ 3145}# + (cons #{e1\ 3146}# + #{e2\ 3147}#))))) + (lambda (#{meta\ 3149}# #{lcase\ 3150}#) + (#{build-case-lambda\ 316}# + #{s\ 3131}# + #{meta\ 3149}# + #{lcase\ 3150}#)))) + #{tmp\ 3139}#) + ((lambda (#{_\ 3154}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 3055}#)) - #{tmp\ 3065}#))) + #{e\ 3128}#)) + #{tmp\ 3138}#))) ($sc-dispatch - #{tmp\ 3065}# + #{tmp\ 3138}# '(any any any . each-any)))) - #{e\ 3055}#))) - (#{global-extend\ 303}# + #{e\ 3128}#))) + (#{global-extend\ 368}# 'core 'case-lambda - (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}#) + (lambda (#{e\ 3155}# + #{r\ 3156}# + #{w\ 3157}# + #{s\ 3158}# + #{mod\ 3159}#) + ((lambda (#{tmp\ 3165}#) + ((lambda (#{tmp\ 3166}#) + (if #{tmp\ 3166}# + (apply (lambda (#{_\ 3174}# + #{args\ 3175}# + #{e1\ 3176}# + #{e2\ 3177}# + #{args*\ 3178}# + #{e1*\ 3179}# + #{e2*\ 3180}#) (call-with-values (lambda () - (#{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}#) + (#{chi-lambda-case\ 481}# + #{e\ 3155}# + #{r\ 3156}# + #{w\ 3157}# + #{s\ 3158}# + #{mod\ 3159}# + #{lambda-formals\ 475}# + (cons (cons #{args\ 3175}# + (cons #{e1\ 3176}# #{e2\ 3177}#)) + (map (lambda (#{tmp\ 3184}# + #{tmp\ 3183}# + #{tmp\ 3182}#) + (cons #{tmp\ 3182}# + (cons #{tmp\ 3183}# + #{tmp\ 3184}#))) + #{e2*\ 3180}# + #{e1*\ 3179}# + #{args*\ 3178}#)))) + (lambda (#{meta\ 3186}# #{lcase\ 3187}#) + (#{build-case-lambda\ 316}# + #{s\ 3158}# + #{meta\ 3186}# + #{lcase\ 3187}#)))) + #{tmp\ 3166}#) + ((lambda (#{_\ 3191}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3082}#)) - #{tmp\ 3092}#))) + #{e\ 3155}#)) + #{tmp\ 3165}#))) ($sc-dispatch - #{tmp\ 3092}# + #{tmp\ 3165}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3082}#))) - (#{global-extend\ 303}# + #{e\ 3155}#))) + (#{global-extend\ 368}# 'core 'case-lambda* - (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}#) + (lambda (#{e\ 3192}# + #{r\ 3193}# + #{w\ 3194}# + #{s\ 3195}# + #{mod\ 3196}#) + ((lambda (#{tmp\ 3202}#) + ((lambda (#{tmp\ 3203}#) + (if #{tmp\ 3203}# + (apply (lambda (#{_\ 3211}# + #{args\ 3212}# + #{e1\ 3213}# + #{e2\ 3214}# + #{args*\ 3215}# + #{e1*\ 3216}# + #{e2*\ 3217}#) (call-with-values (lambda () - (#{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}#) + (#{chi-lambda-case\ 481}# + #{e\ 3192}# + #{r\ 3193}# + #{w\ 3194}# + #{s\ 3195}# + #{mod\ 3196}# + #{lambda*-formals\ 479}# + (cons (cons #{args\ 3212}# + (cons #{e1\ 3213}# #{e2\ 3214}#)) + (map (lambda (#{tmp\ 3221}# + #{tmp\ 3220}# + #{tmp\ 3219}#) + (cons #{tmp\ 3219}# + (cons #{tmp\ 3220}# + #{tmp\ 3221}#))) + #{e2*\ 3217}# + #{e1*\ 3216}# + #{args*\ 3215}#)))) + (lambda (#{meta\ 3223}# #{lcase\ 3224}#) + (#{build-case-lambda\ 316}# + #{s\ 3195}# + #{meta\ 3223}# + #{lcase\ 3224}#)))) + #{tmp\ 3203}#) + ((lambda (#{_\ 3228}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3119}#)) - #{tmp\ 3129}#))) + #{e\ 3192}#)) + #{tmp\ 3202}#))) ($sc-dispatch - #{tmp\ 3129}# + #{tmp\ 3202}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3119}#))) - (#{global-extend\ 303}# + #{e\ 3192}#))) + (#{global-extend\ 368}# 'core 'let - (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}#)) + (letrec ((#{chi-let\ 3230}# + (lambda (#{e\ 3231}# + #{r\ 3232}# + #{w\ 3233}# + #{s\ 3234}# + #{mod\ 3235}# + #{constructor\ 3236}# + #{ids\ 3237}# + #{vals\ 3238}# + #{exps\ 3239}#) + (if (not (#{valid-bound-ids?\ 435}# #{ids\ 3237}#)) (syntax-violation 'let "duplicate bound variable" - #{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}#) + #{e\ 3231}#) + (let ((#{labels\ 3251}# + (#{gen-labels\ 390}# #{ids\ 3237}#)) + (#{new-vars\ 3252}# + (map #{gen-var\ 485}# #{ids\ 3237}#))) + (let ((#{nw\ 3255}# + (#{make-binding-wrap\ 419}# + #{ids\ 3237}# + #{labels\ 3251}# + #{w\ 3233}#)) + (#{nr\ 3256}# + (#{extend-var-env\ 362}# + #{labels\ 3251}# + #{new-vars\ 3252}# + #{r\ 3232}#))) + (#{constructor\ 3236}# + #{s\ 3234}# + (map syntax->datum #{ids\ 3237}#) + #{new-vars\ 3252}# + (map (lambda (#{x\ 3257}#) + (#{chi\ 457}# + #{x\ 3257}# + #{r\ 3232}# + #{w\ 3233}# + #{mod\ 3235}#)) + #{vals\ 3238}#) + (#{chi-body\ 465}# + #{exps\ 3239}# + (#{source-wrap\ 443}# + #{e\ 3231}# + #{nw\ 3255}# + #{s\ 3234}# + #{mod\ 3235}#) + #{nr\ 3256}# + #{nw\ 3255}# + #{mod\ 3235}#)))))))) + (lambda (#{e\ 3259}# + #{r\ 3260}# + #{w\ 3261}# + #{s\ 3262}# + #{mod\ 3263}#) + ((lambda (#{tmp\ 3269}#) + ((lambda (#{tmp\ 3270}#) + (if (if #{tmp\ 3270}# + (apply (lambda (#{_\ 3276}# + #{id\ 3277}# + #{val\ 3278}# + #{e1\ 3279}# + #{e2\ 3280}#) + (and-map #{id?\ 372}# #{id\ 3277}#)) + #{tmp\ 3270}#) #f) - (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}#) + (apply (lambda (#{_\ 3287}# + #{id\ 3288}# + #{val\ 3289}# + #{e1\ 3290}# + #{e2\ 3291}#) + (#{chi-let\ 3230}# + #{e\ 3259}# + #{r\ 3260}# + #{w\ 3261}# + #{s\ 3262}# + #{mod\ 3263}# + #{build-let\ 326}# + #{id\ 3288}# + #{val\ 3289}# + (cons #{e1\ 3290}# #{e2\ 3291}#))) + #{tmp\ 3270}#) + ((lambda (#{tmp\ 3295}#) + (if (if #{tmp\ 3295}# + (apply (lambda (#{_\ 3302}# + #{f\ 3303}# + #{id\ 3304}# + #{val\ 3305}# + #{e1\ 3306}# + #{e2\ 3307}#) + (if (#{id?\ 372}# #{f\ 3303}#) + (and-map #{id?\ 372}# #{id\ 3304}#) #f)) - #{tmp\ 3222}#) + #{tmp\ 3295}#) #f) - (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}#) + (apply (lambda (#{_\ 3317}# + #{f\ 3318}# + #{id\ 3319}# + #{val\ 3320}# + #{e1\ 3321}# + #{e2\ 3322}#) + (#{chi-let\ 3230}# + #{e\ 3259}# + #{r\ 3260}# + #{w\ 3261}# + #{s\ 3262}# + #{mod\ 3263}# + #{build-named-let\ 328}# + (cons #{f\ 3318}# #{id\ 3319}#) + #{val\ 3320}# + (cons #{e1\ 3321}# #{e2\ 3322}#))) + #{tmp\ 3295}#) + ((lambda (#{_\ 3327}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 378}# - #{e\ 3186}# - #{w\ 3188}# - #{s\ 3189}# - #{mod\ 3190}#))) - #{tmp\ 3196}#))) + (#{source-wrap\ 443}# + #{e\ 3259}# + #{w\ 3261}# + #{s\ 3262}# + #{mod\ 3263}#))) + #{tmp\ 3269}#))) ($sc-dispatch - #{tmp\ 3196}# + #{tmp\ 3269}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3196}# + #{tmp\ 3269}# '(any #(each (any any)) any . each-any)))) - #{e\ 3186}#)))) - (#{global-extend\ 303}# + #{e\ 3259}#)))) + (#{global-extend\ 368}# 'core 'letrec - (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}#) + (lambda (#{e\ 3328}# + #{r\ 3329}# + #{w\ 3330}# + #{s\ 3331}# + #{mod\ 3332}#) + ((lambda (#{tmp\ 3338}#) + ((lambda (#{tmp\ 3339}#) + (if (if #{tmp\ 3339}# + (apply (lambda (#{_\ 3345}# + #{id\ 3346}# + #{val\ 3347}# + #{e1\ 3348}# + #{e2\ 3349}#) + (and-map #{id?\ 372}# #{id\ 3346}#)) + #{tmp\ 3339}#) #f) - (apply (lambda (#{_\ 3283}# - #{id\ 3284}# - #{val\ 3285}# - #{e1\ 3286}# - #{e2\ 3287}#) - (let ((#{ids\ 3289}# #{id\ 3284}#)) - (if (not (#{valid-bound-ids?\ 370}# - #{ids\ 3289}#)) + (apply (lambda (#{_\ 3356}# + #{id\ 3357}# + #{val\ 3358}# + #{e1\ 3359}# + #{e2\ 3360}#) + (let ((#{ids\ 3362}# #{id\ 3357}#)) + (if (not (#{valid-bound-ids?\ 435}# + #{ids\ 3362}#)) (syntax-violation 'letrec "duplicate bound variable" - #{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}#) + #{e\ 3328}#) + (let ((#{labels\ 3366}# + (#{gen-labels\ 390}# #{ids\ 3362}#)) + (#{new-vars\ 3367}# + (map #{gen-var\ 485}# #{ids\ 3362}#))) + (let ((#{w\ 3370}# + (#{make-binding-wrap\ 419}# + #{ids\ 3362}# + #{labels\ 3366}# + #{w\ 3330}#)) + (#{r\ 3371}# + (#{extend-var-env\ 362}# + #{labels\ 3366}# + #{new-vars\ 3367}# + #{r\ 3329}#))) + (#{build-letrec\ 330}# + #{s\ 3331}# + (map syntax->datum #{ids\ 3362}#) + #{new-vars\ 3367}# + (map (lambda (#{x\ 3372}#) + (#{chi\ 457}# + #{x\ 3372}# + #{r\ 3371}# + #{w\ 3370}# + #{mod\ 3332}#)) + #{val\ 3358}#) + (#{chi-body\ 465}# + (cons #{e1\ 3359}# #{e2\ 3360}#) + (#{source-wrap\ 443}# + #{e\ 3328}# + #{w\ 3370}# + #{s\ 3331}# + #{mod\ 3332}#) + #{r\ 3371}# + #{w\ 3370}# + #{mod\ 3332}#))))))) + #{tmp\ 3339}#) + ((lambda (#{_\ 3377}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 378}# - #{e\ 3255}# - #{w\ 3257}# - #{s\ 3258}# - #{mod\ 3259}#))) - #{tmp\ 3265}#))) + (#{source-wrap\ 443}# + #{e\ 3328}# + #{w\ 3330}# + #{s\ 3331}# + #{mod\ 3332}#))) + #{tmp\ 3338}#))) ($sc-dispatch - #{tmp\ 3265}# + #{tmp\ 3338}# '(any #(each (any any)) any . each-any)))) - #{e\ 3255}#))) - (#{global-extend\ 303}# + #{e\ 3328}#))) + (#{global-extend\ 368}# 'core 'set! - (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}#) + (lambda (#{e\ 3378}# + #{r\ 3379}# + #{w\ 3380}# + #{s\ 3381}# + #{mod\ 3382}#) + ((lambda (#{tmp\ 3388}#) + ((lambda (#{tmp\ 3389}#) + (if (if #{tmp\ 3389}# + (apply (lambda (#{_\ 3393}# #{id\ 3394}# #{val\ 3395}#) + (#{id?\ 372}# #{id\ 3394}#)) + #{tmp\ 3389}#) #f) - (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}# + (apply (lambda (#{_\ 3399}# #{id\ 3400}# #{val\ 3401}#) + (let ((#{val\ 3404}# + (#{chi\ 457}# + #{val\ 3401}# + #{r\ 3379}# + #{w\ 3380}# + #{mod\ 3382}#)) + (#{n\ 3405}# + (#{id-var-name\ 429}# + #{id\ 3400}# + #{w\ 3380}#))) + (let ((#{b\ 3407}# + (#{lookup\ 366}# + #{n\ 3405}# + #{r\ 3379}# + #{mod\ 3382}#))) + (let ((#{atom-key\ 3410}# + (#{binding-type\ 355}# #{b\ 3407}#))) + (if (memv #{atom-key\ 3410}# '(lexical)) - (#{build-lexical-assignment\ 237}# - #{s\ 3308}# - (syntax->datum #{id\ 3327}#) - (#{binding-value\ 292}# #{b\ 3334}#) - #{val\ 3331}#) - (if (memv #{atom-key\ 3337}# + (#{build-lexical-assignment\ 302}# + #{s\ 3381}# + (syntax->datum #{id\ 3400}#) + (#{binding-value\ 357}# #{b\ 3407}#) + #{val\ 3404}#) + (if (memv #{atom-key\ 3410}# '(global)) - (#{build-global-assignment\ 243}# - #{s\ 3308}# - #{n\ 3332}# - #{val\ 3331}# - #{mod\ 3309}#) - (if (memv #{atom-key\ 3337}# + (#{build-global-assignment\ 308}# + #{s\ 3381}# + #{n\ 3405}# + #{val\ 3404}# + #{mod\ 3382}#) + (if (memv #{atom-key\ 3410}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 376}# - #{id\ 3327}# - #{w\ 3307}# - #{mod\ 3309}#)) + (#{wrap\ 441}# + #{id\ 3400}# + #{w\ 3380}# + #{mod\ 3382}#)) (syntax-violation 'set! "bad set!" - (#{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}#) + (#{source-wrap\ 443}# + #{e\ 3378}# + #{w\ 3380}# + #{s\ 3381}# + #{mod\ 3382}#))))))))) + #{tmp\ 3389}#) + ((lambda (#{tmp\ 3415}#) + (if #{tmp\ 3415}# + (apply (lambda (#{_\ 3420}# + #{head\ 3421}# + #{tail\ 3422}# + #{val\ 3423}#) (call-with-values (lambda () - (#{syntax-type\ 388}# - #{head\ 3348}# - #{r\ 3306}# + (#{syntax-type\ 453}# + #{head\ 3421}# + #{r\ 3379}# '(()) #f #f - #{mod\ 3309}# + #{mod\ 3382}# #t)) - (lambda (#{type\ 3353}# - #{value\ 3354}# - #{ee\ 3355}# - #{ww\ 3356}# - #{ss\ 3357}# - #{modmod\ 3358}#) - (if (memv #{type\ 3353}# + (lambda (#{type\ 3426}# + #{value\ 3427}# + #{ee\ 3428}# + #{ww\ 3429}# + #{ss\ 3430}# + #{modmod\ 3431}#) + (if (memv #{type\ 3426}# '(module-ref)) - (let ((#{val\ 3367}# - (#{chi\ 392}# - #{val\ 3350}# - #{r\ 3306}# - #{w\ 3307}# - #{mod\ 3309}#))) + (let ((#{val\ 3440}# + (#{chi\ 457}# + #{val\ 3423}# + #{r\ 3379}# + #{w\ 3380}# + #{mod\ 3382}#))) (call-with-values (lambda () - (#{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}#) + (#{value\ 3427}# + (cons #{head\ 3421}# + #{tail\ 3422}#) + #{r\ 3379}# + #{w\ 3380}#)) + (lambda (#{e\ 3442}# + #{r\ 3443}# + #{w\ 3444}# + #{s*\ 3445}# + #{mod\ 3446}#) + ((lambda (#{tmp\ 3452}#) + ((lambda (#{tmp\ 3453}#) + (if (if #{tmp\ 3453}# + (apply (lambda (#{e\ 3455}#) + (#{id?\ 372}# + #{e\ 3455}#)) + #{tmp\ 3453}#) #f) - (apply (lambda (#{e\ 3384}#) - (#{build-global-assignment\ 243}# - #{s\ 3308}# + (apply (lambda (#{e\ 3457}#) + (#{build-global-assignment\ 308}# + #{s\ 3381}# (syntax->datum - #{e\ 3384}#) - #{val\ 3367}# - #{mod\ 3373}#)) - #{tmp\ 3380}#) + #{e\ 3457}#) + #{val\ 3440}# + #{mod\ 3446}#)) + #{tmp\ 3453}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3379}#))) - (list #{tmp\ 3379}#))) - #{e\ 3369}#)))) - (#{build-application\ 229}# - #{s\ 3308}# - (#{chi\ 392}# + #{tmp\ 3452}#))) + (list #{tmp\ 3452}#))) + #{e\ 3442}#)))) + (#{build-application\ 294}# + #{s\ 3381}# + (#{chi\ 457}# (list '#(syntax-object setter ((top) @@ -9910,22 +10081,22 @@ (top) (top) (top)) - #("i3359" - "i3360" - "i3361" - "i3362" - "i3363" - "i3364")) + #("i3432" + "i3433" + "i3434" + "i3435" + "i3436" + "i3437")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3343" - "i3344" - "i3345" - "i3346")) + #("i3416" + "i3417" + "i3418" + "i3419")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9934,11 +10105,11 @@ (top) (top) (top)) - #("i3310" - "i3311" - "i3312" - "i3313" - "i3314")) + #("i3383" + "i3384" + "i3385" + "i3386" + "i3387")) #(ribcage (lambda-var-list gen-var @@ -10056,6 +10227,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -10207,31 +10381,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -10240,16 +10455,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -10259,29 +10473,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -10294,110 +10504,84 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) (top) (top) (top)) + ("i23" + "i22" + "i21" + "i19"))) (hygiene guile)) - #{head\ 3348}#) - #{r\ 3306}# - #{w\ 3307}# - #{mod\ 3309}#) - (map (lambda (#{e\ 3386}#) - (#{chi\ 392}# - #{e\ 3386}# - #{r\ 3306}# - #{w\ 3307}# - #{mod\ 3309}#)) + #{head\ 3421}#) + #{r\ 3379}# + #{w\ 3380}# + #{mod\ 3382}#) + (map (lambda (#{e\ 3459}#) + (#{chi\ 457}# + #{e\ 3459}# + #{r\ 3379}# + #{w\ 3380}# + #{mod\ 3382}#)) (append - #{tail\ 3349}# - (list #{val\ 3350}#)))))))) - #{tmp\ 3342}#) - ((lambda (#{_\ 3390}#) + #{tail\ 3422}# + (list #{val\ 3423}#)))))))) + #{tmp\ 3415}#) + ((lambda (#{_\ 3463}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 378}# - #{e\ 3305}# - #{w\ 3307}# - #{s\ 3308}# - #{mod\ 3309}#))) - #{tmp\ 3315}#))) + (#{source-wrap\ 443}# + #{e\ 3378}# + #{w\ 3380}# + #{s\ 3381}# + #{mod\ 3382}#))) + #{tmp\ 3388}#))) ($sc-dispatch - #{tmp\ 3315}# + #{tmp\ 3388}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3315}# + #{tmp\ 3388}# '(any any any)))) - #{e\ 3305}#))) - (#{global-extend\ 303}# + #{e\ 3378}#))) + (#{global-extend\ 368}# 'module-ref '@ - (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}#) + (lambda (#{e\ 3464}# #{r\ 3465}# #{w\ 3466}#) + ((lambda (#{tmp\ 3470}#) + ((lambda (#{tmp\ 3471}#) + (if (if #{tmp\ 3471}# + (apply (lambda (#{_\ 3475}# #{mod\ 3476}# #{id\ 3477}#) + (if (and-map #{id?\ 372}# #{mod\ 3476}#) + (#{id?\ 372}# #{id\ 3477}#) #f)) - #{tmp\ 3398}#) + #{tmp\ 3471}#) #f) - (apply (lambda (#{_\ 3411}# #{mod\ 3412}# #{id\ 3413}#) + (apply (lambda (#{_\ 3484}# #{mod\ 3485}# #{id\ 3486}#) (values - (syntax->datum #{id\ 3413}#) - #{r\ 3392}# - #{w\ 3393}# + (syntax->datum #{id\ 3486}#) + #{r\ 3465}# + #{w\ 3466}# #f (syntax->datum (cons '#(syntax-object @@ -10406,12 +10590,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3408" "i3409" "i3410")) + #("i3481" "i3482" "i3483")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3394" "i3395" "i3396")) + #("i3467" "i3468" "i3469")) #(ribcage (lambda-var-list gen-var @@ -10529,6 +10713,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -10680,31 +10867,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -10713,16 +10941,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -10732,29 +10959,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -10767,126 +10990,97 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) (top) (top) (top)) + ("i23" "i22" "i21" "i19"))) (hygiene guile)) - #{mod\ 3412}#)))) - #{tmp\ 3398}#) + #{mod\ 3485}#)))) + #{tmp\ 3471}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3397}#))) + #{tmp\ 3470}#))) ($sc-dispatch - #{tmp\ 3397}# + #{tmp\ 3470}# '(any each-any any)))) - #{e\ 3391}#))) - (#{global-extend\ 303}# + #{e\ 3464}#))) + (#{global-extend\ 368}# 'module-ref '@@ - (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}#) + (lambda (#{e\ 3488}# #{r\ 3489}# #{w\ 3490}#) + (letrec ((#{remodulate\ 3495}# + (lambda (#{x\ 3496}# #{mod\ 3497}#) + (if (pair? #{x\ 3496}#) + (cons (#{remodulate\ 3495}# + (car #{x\ 3496}#) + #{mod\ 3497}#) + (#{remodulate\ 3495}# + (cdr #{x\ 3496}#) + #{mod\ 3497}#)) + (if (#{syntax-object?\ 336}# #{x\ 3496}#) + (#{make-syntax-object\ 334}# + (#{remodulate\ 3495}# + (#{syntax-object-expression\ 338}# #{x\ 3496}#) + #{mod\ 3497}#) + (#{syntax-object-wrap\ 340}# #{x\ 3496}#) + #{mod\ 3497}#) + (if (vector? #{x\ 3496}#) + (let ((#{n\ 3508}# (vector-length #{x\ 3496}#))) + (let ((#{v\ 3510}# (make-vector #{n\ 3508}#))) + (letrec ((#{loop\ 3513}# + (lambda (#{i\ 3514}#) + (if (#{fx=\ 277}# + #{i\ 3514}# + #{n\ 3508}#) + (begin (if #f #f) #{v\ 3510}#) (begin (vector-set! - #{v\ 3437}# - #{i\ 3441}# - (#{remodulate\ 3422}# + #{v\ 3510}# + #{i\ 3514}# + (#{remodulate\ 3495}# (vector-ref - #{x\ 3423}# - #{i\ 3441}#) - #{mod\ 3424}#)) - (#{loop\ 3440}# - (#{fx+\ 208}# - #{i\ 3441}# + #{x\ 3496}# + #{i\ 3514}#) + #{mod\ 3497}#)) + (#{loop\ 3513}# + (#{fx+\ 273}# + #{i\ 3514}# 1))))))) - (#{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}#) + (#{loop\ 3513}# 0)))) + #{x\ 3496}#)))))) + ((lambda (#{tmp\ 3518}#) + ((lambda (#{tmp\ 3519}#) + (if (if #{tmp\ 3519}# + (apply (lambda (#{_\ 3523}# + #{mod\ 3524}# + #{exp\ 3525}#) + (and-map #{id?\ 372}# #{mod\ 3524}#)) + #{tmp\ 3519}#) #f) - (apply (lambda (#{_\ 3457}# #{mod\ 3458}# #{exp\ 3459}#) - (let ((#{mod\ 3461}# + (apply (lambda (#{_\ 3530}# #{mod\ 3531}# #{exp\ 3532}#) + (let ((#{mod\ 3534}# (syntax->datum (cons '#(syntax-object private @@ -10894,15 +11088,15 @@ #(ribcage #(_ mod exp) #((top) (top) (top)) - #("i3454" "i3455" "i3456")) + #("i3527" "i3528" "i3529")) #(ribcage (remodulate) ((top)) - ("i3421")) + ("i3494")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3418" "i3419" "i3420")) + #("i3491" "i3492" "i3493")) #(ribcage (lambda-var-list gen-var @@ -11020,6 +11214,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -11171,31 +11368,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -11204,16 +11442,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -11223,29 +11460,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -11258,244 +11491,215 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" "i21" "i19"))) + ((top) (top) (top) (top)) + ("i23" "i22" "i21" "i19"))) (hygiene guile)) - #{mod\ 3458}#)))) + #{mod\ 3531}#)))) (values - (#{remodulate\ 3422}# - #{exp\ 3459}# - #{mod\ 3461}#) - #{r\ 3416}# - #{w\ 3417}# - (#{source-annotation\ 286}# #{exp\ 3459}#) - #{mod\ 3461}#))) - #{tmp\ 3446}#) + (#{remodulate\ 3495}# + #{exp\ 3532}# + #{mod\ 3534}#) + #{r\ 3489}# + #{w\ 3490}# + (#{source-annotation\ 351}# #{exp\ 3532}#) + #{mod\ 3534}#))) + #{tmp\ 3519}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3445}#))) + #{tmp\ 3518}#))) ($sc-dispatch - #{tmp\ 3445}# + #{tmp\ 3518}# '(any each-any any)))) - #{e\ 3415}#)))) - (#{global-extend\ 303}# + #{e\ 3488}#)))) + (#{global-extend\ 368}# 'core 'if - (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}#) + (lambda (#{e\ 3536}# + #{r\ 3537}# + #{w\ 3538}# + #{s\ 3539}# + #{mod\ 3540}#) + ((lambda (#{tmp\ 3546}#) + ((lambda (#{tmp\ 3547}#) + (if #{tmp\ 3547}# + (apply (lambda (#{_\ 3551}# #{test\ 3552}# #{then\ 3553}#) + (#{build-conditional\ 296}# + #{s\ 3539}# + (#{chi\ 457}# + #{test\ 3552}# + #{r\ 3537}# + #{w\ 3538}# + #{mod\ 3540}#) + (#{chi\ 457}# + #{then\ 3553}# + #{r\ 3537}# + #{w\ 3538}# + #{mod\ 3540}#) + (#{build-void\ 292}# #f))) + #{tmp\ 3547}#) + ((lambda (#{tmp\ 3555}#) + (if #{tmp\ 3555}# + (apply (lambda (#{_\ 3560}# + #{test\ 3561}# + #{then\ 3562}# + #{else\ 3563}#) + (#{build-conditional\ 296}# + #{s\ 3539}# + (#{chi\ 457}# + #{test\ 3561}# + #{r\ 3537}# + #{w\ 3538}# + #{mod\ 3540}#) + (#{chi\ 457}# + #{then\ 3562}# + #{r\ 3537}# + #{w\ 3538}# + #{mod\ 3540}#) + (#{chi\ 457}# + #{else\ 3563}# + #{r\ 3537}# + #{w\ 3538}# + #{mod\ 3540}#))) + #{tmp\ 3555}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3473}#))) + #{tmp\ 3546}#))) ($sc-dispatch - #{tmp\ 3473}# + #{tmp\ 3546}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3473}# + #{tmp\ 3546}# '(any any any)))) - #{e\ 3463}#))) - (#{global-extend\ 303}# + #{e\ 3536}#))) + (#{global-extend\ 368}# 'core 'with-fluids - (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}#) + (lambda (#{e\ 3564}# + #{r\ 3565}# + #{w\ 3566}# + #{s\ 3567}# + #{mod\ 3568}#) + ((lambda (#{tmp\ 3574}#) + ((lambda (#{tmp\ 3575}#) + (if #{tmp\ 3575}# + (apply (lambda (#{_\ 3581}# + #{fluid\ 3582}# + #{val\ 3583}# + #{b\ 3584}# + #{b*\ 3585}#) + (#{build-dynlet\ 298}# + #{s\ 3567}# + (map (lambda (#{x\ 3586}#) + (#{chi\ 457}# + #{x\ 3586}# + #{r\ 3565}# + #{w\ 3566}# + #{mod\ 3568}#)) + #{fluid\ 3582}#) + (map (lambda (#{x\ 3589}#) + (#{chi\ 457}# + #{x\ 3589}# + #{r\ 3565}# + #{w\ 3566}# + #{mod\ 3568}#)) + #{val\ 3583}#) + (#{chi-body\ 465}# + (cons #{b\ 3584}# #{b*\ 3585}#) + (#{source-wrap\ 443}# + #{e\ 3564}# + #{w\ 3566}# + #{s\ 3567}# + #{mod\ 3568}#) + #{r\ 3565}# + #{w\ 3566}# + #{mod\ 3568}#))) + #{tmp\ 3575}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3501}#))) + #{tmp\ 3574}#))) ($sc-dispatch - #{tmp\ 3501}# + #{tmp\ 3574}# '(any #(each (any any)) any . each-any)))) - #{e\ 3491}#))) - (#{global-extend\ 303}# + #{e\ 3564}#))) + (#{global-extend\ 368}# 'begin 'begin '()) - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'define 'define '()) - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'eval-when 'eval-when '()) - (#{global-extend\ 303}# + (#{global-extend\ 368}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3527}# - (lambda (#{x\ 3528}# - #{keys\ 3529}# - #{clauses\ 3530}# - #{r\ 3531}# - #{mod\ 3532}#) - (if (null? #{clauses\ 3530}#) - (#{build-application\ 229}# + (letrec ((#{gen-syntax-case\ 3600}# + (lambda (#{x\ 3601}# + #{keys\ 3602}# + #{clauses\ 3603}# + #{r\ 3604}# + #{mod\ 3605}#) + (if (null? #{clauses\ 3603}#) + (#{build-application\ 294}# #f - (#{build-primref\ 255}# + (#{build-primref\ 320}# #f 'syntax-violation) - (list (#{build-data\ 257}# #f #f) - (#{build-data\ 257}# + (list (#{build-data\ 322}# #f #f) + (#{build-data\ 322}# #f "source expression failed to match any pattern") - #{x\ 3528}#)) - ((lambda (#{tmp\ 3542}#) - ((lambda (#{tmp\ 3543}#) - (if #{tmp\ 3543}# - (apply (lambda (#{pat\ 3546}# #{exp\ 3547}#) - (if (if (#{id?\ 307}# #{pat\ 3546}#) + #{x\ 3601}#)) + ((lambda (#{tmp\ 3615}#) + ((lambda (#{tmp\ 3616}#) + (if #{tmp\ 3616}# + (apply (lambda (#{pat\ 3619}# #{exp\ 3620}#) + (if (if (#{id?\ 372}# #{pat\ 3619}#) (and-map - (lambda (#{x\ 3550}#) - (not (#{free-id=?\ 366}# - #{pat\ 3546}# - #{x\ 3550}#))) + (lambda (#{x\ 3623}#) + (not (#{free-id=?\ 431}# + #{pat\ 3619}# + #{x\ 3623}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3544" "i3545")) + #("i3617" "i3618")) #(ribcage () () ()) #(ribcage #(x @@ -11508,11 +11712,11 @@ (top) (top) (top)) - #("i3533" - "i3534" - "i3535" - "i3536" - "i3537")) + #("i3606" + "i3607" + "i3608" + "i3609" + "i3610")) #(ribcage (gen-syntax-case gen-clause @@ -11522,10 +11726,10 @@ (top) (top) (top)) - ("i3526" - "i3524" - "i3522" - "i3520")) + ("i3599" + "i3597" + "i3595" + "i3593")) #(ribcage (lambda-var-list gen-var @@ -11643,6 +11847,9 @@ fx= fx- fx+ + set-lambda-meta! + lambda-meta + lambda? make-dynlet make-letrec make-let @@ -11794,31 +12001,72 @@ (top) (top) (top) + (top) + (top) + (top) (top)) - ("i421" - "i419" - "i417" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" "i415" - "i413" + "i414" + "i412" "i411" + "i410" "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i391" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i392" "i389" "i387" + "i386" "i385" + "i384" "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" @@ -11827,16 +12075,15 @@ "i363" "i361" "i359" - "i357" - "i355" + "i358" + "i356" + "i354" "i353" - "i351" + "i352" "i350" "i349" "i347" - "i346" "i345" - "i344" "i343" "i341" "i339" @@ -11846,29 +12093,25 @@ "i331" "i329" "i327" - "i324" - "i322" + "i325" + "i323" "i321" - "i320" "i319" - "i318" "i317" "i315" "i313" "i311" "i309" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i293" "i291" "i289" - "i288" "i287" "i285" "i284" @@ -11881,945 +12124,920 @@ "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")) + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229")) #(ribcage (define-structure + define-expansion-accessors define-expansion-constructors and-map*) - ((top) (top) (top)) - ("i22" + ((top) + (top) + (top) + (top)) + ("i23" + "i22" "i21" "i19"))) (hygiene guile)) - #{keys\ 3529}#)) + #{keys\ 3602}#)) #f) - (let ((#{labels\ 3554}# - (list (#{gen-label\ 323}#))) - (#{var\ 3555}# - (#{gen-var\ 420}# - #{pat\ 3546}#))) - (#{build-application\ 229}# + (let ((#{labels\ 3627}# + (list (#{gen-label\ 388}#))) + (#{var\ 3628}# + (#{gen-var\ 485}# + #{pat\ 3619}#))) + (#{build-application\ 294}# #f - (#{build-simple-lambda\ 249}# + (#{build-simple-lambda\ 314}# #f (list (syntax->datum - #{pat\ 3546}#)) + #{pat\ 3619}#)) #f - (list #{var\ 3555}#) + (list #{var\ 3628}#) '() - (#{chi\ 392}# - #{exp\ 3547}# - (#{extend-env\ 295}# - #{labels\ 3554}# + (#{chi\ 457}# + #{exp\ 3620}# + (#{extend-env\ 360}# + #{labels\ 3627}# (list (cons 'syntax - (cons #{var\ 3555}# + (cons #{var\ 3628}# 0))) - #{r\ 3531}#) - (#{make-binding-wrap\ 354}# - (list #{pat\ 3546}#) - #{labels\ 3554}# + #{r\ 3604}#) + (#{make-binding-wrap\ 419}# + (list #{pat\ 3619}#) + #{labels\ 3627}# '(())) - #{mod\ 3532}#)) - (list #{x\ 3528}#))) - (#{gen-clause\ 3525}# - #{x\ 3528}# - #{keys\ 3529}# - (cdr #{clauses\ 3530}#) - #{r\ 3531}# - #{pat\ 3546}# + #{mod\ 3605}#)) + (list #{x\ 3601}#))) + (#{gen-clause\ 3598}# + #{x\ 3601}# + #{keys\ 3602}# + (cdr #{clauses\ 3603}#) + #{r\ 3604}# + #{pat\ 3619}# #t - #{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}#) + #{exp\ 3620}# + #{mod\ 3605}#))) + #{tmp\ 3616}#) + ((lambda (#{tmp\ 3634}#) + (if #{tmp\ 3634}# + (apply (lambda (#{pat\ 3638}# + #{fender\ 3639}# + #{exp\ 3640}#) + (#{gen-clause\ 3598}# + #{x\ 3601}# + #{keys\ 3602}# + (cdr #{clauses\ 3603}#) + #{r\ 3604}# + #{pat\ 3638}# + #{fender\ 3639}# + #{exp\ 3640}# + #{mod\ 3605}#)) + #{tmp\ 3634}#) + ((lambda (#{_\ 3642}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3530}#))) - #{tmp\ 3542}#))) + (car #{clauses\ 3603}#))) + #{tmp\ 3615}#))) ($sc-dispatch - #{tmp\ 3542}# + #{tmp\ 3615}# '(any any any))))) - ($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}#) + ($sc-dispatch #{tmp\ 3615}# (quote (any any))))) + (car #{clauses\ 3603}#))))) + (#{gen-clause\ 3598}# + (lambda (#{x\ 3643}# + #{keys\ 3644}# + #{clauses\ 3645}# + #{r\ 3646}# + #{pat\ 3647}# + #{fender\ 3648}# + #{exp\ 3649}# + #{mod\ 3650}#) (call-with-values (lambda () - (#{convert-pattern\ 3521}# - #{pat\ 3574}# - #{keys\ 3571}#)) - (lambda (#{p\ 3586}# #{pvars\ 3587}#) - (if (not (#{distinct-bound-ids?\ 372}# - (map car #{pvars\ 3587}#))) + (#{convert-pattern\ 3594}# + #{pat\ 3647}# + #{keys\ 3644}#)) + (lambda (#{p\ 3659}# #{pvars\ 3660}#) + (if (not (#{distinct-bound-ids?\ 437}# + (map car #{pvars\ 3660}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3574}#) + #{pat\ 3647}#) (if (not (and-map - (lambda (#{x\ 3594}#) - (not (#{ellipsis?\ 408}# - (car #{x\ 3594}#)))) - #{pvars\ 3587}#)) + (lambda (#{x\ 3667}#) + (not (#{ellipsis?\ 473}# + (car #{x\ 3667}#)))) + #{pvars\ 3660}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3574}#) - (let ((#{y\ 3598}# - (#{gen-var\ 420}# (quote tmp)))) - (#{build-application\ 229}# + #{pat\ 3647}#) + (let ((#{y\ 3671}# + (#{gen-var\ 485}# (quote tmp)))) + (#{build-application\ 294}# #f - (#{build-simple-lambda\ 249}# + (#{build-simple-lambda\ 314}# #f (list (quote tmp)) #f - (list #{y\ 3598}#) + (list #{y\ 3671}#) '() - (let ((#{y\ 3602}# - (#{build-lexical-reference\ 235}# + (let ((#{y\ 3675}# + (#{build-lexical-reference\ 300}# 'value #f 'tmp - #{y\ 3598}#))) - (#{build-conditional\ 231}# + #{y\ 3671}#))) + (#{build-conditional\ 296}# #f - ((lambda (#{tmp\ 3605}#) - ((lambda (#{tmp\ 3606}#) - (if #{tmp\ 3606}# - (apply (lambda () #{y\ 3602}#) - #{tmp\ 3606}#) - ((lambda (#{_\ 3608}#) - (#{build-conditional\ 231}# + ((lambda (#{tmp\ 3678}#) + ((lambda (#{tmp\ 3679}#) + (if #{tmp\ 3679}# + (apply (lambda () #{y\ 3675}#) + #{tmp\ 3679}#) + ((lambda (#{_\ 3681}#) + (#{build-conditional\ 296}# #f - #{y\ 3602}# - (#{build-dispatch-call\ 3523}# - #{pvars\ 3587}# - #{fender\ 3575}# - #{y\ 3602}# - #{r\ 3573}# - #{mod\ 3577}#) - (#{build-data\ 257}# + #{y\ 3675}# + (#{build-dispatch-call\ 3596}# + #{pvars\ 3660}# + #{fender\ 3648}# + #{y\ 3675}# + #{r\ 3646}# + #{mod\ 3650}#) + (#{build-data\ 322}# #f #f))) - #{tmp\ 3605}#))) + #{tmp\ 3678}#))) ($sc-dispatch - #{tmp\ 3605}# + #{tmp\ 3678}# '#(atom #t)))) - #{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}# + #{fender\ 3648}#) + (#{build-dispatch-call\ 3596}# + #{pvars\ 3660}# + #{exp\ 3649}# + #{y\ 3675}# + #{r\ 3646}# + #{mod\ 3650}#) + (#{gen-syntax-case\ 3600}# + #{x\ 3643}# + #{keys\ 3644}# + #{clauses\ 3645}# + #{r\ 3646}# + #{mod\ 3650}#)))) + (list (if (eq? #{p\ 3659}# (quote any)) + (#{build-application\ 294}# #f - (#{build-primref\ 255}# + (#{build-primref\ 320}# #f 'list) - (list #{x\ 3570}#)) - (#{build-application\ 229}# + (list #{x\ 3643}#)) + (#{build-application\ 294}# #f - (#{build-primref\ 255}# + (#{build-primref\ 320}# #f '$sc-dispatch) - (list #{x\ 3570}# - (#{build-data\ 257}# + (list #{x\ 3643}# + (#{build-data\ 322}# #f - #{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}# + #{p\ 3659}#))))))))))))) + (#{build-dispatch-call\ 3596}# + (lambda (#{pvars\ 3689}# + #{exp\ 3690}# + #{y\ 3691}# + #{r\ 3692}# + #{mod\ 3693}#) + (let ((#{ids\ 3701}# (map car #{pvars\ 3689}#)) + (#{levels\ 3702}# (map cdr #{pvars\ 3689}#))) + (let ((#{labels\ 3705}# + (#{gen-labels\ 390}# #{ids\ 3701}#)) + (#{new-vars\ 3706}# + (map #{gen-var\ 485}# #{ids\ 3701}#))) + (#{build-application\ 294}# #f - (#{build-primref\ 255}# #f (quote apply)) - (list (#{build-simple-lambda\ 249}# + (#{build-primref\ 320}# #f (quote apply)) + (list (#{build-simple-lambda\ 314}# #f - (map syntax->datum #{ids\ 3628}#) + (map syntax->datum #{ids\ 3701}#) #f - #{new-vars\ 3633}# + #{new-vars\ 3706}# '() - (#{chi\ 392}# - #{exp\ 3617}# - (#{extend-env\ 295}# - #{labels\ 3632}# - (map (lambda (#{var\ 3637}# - #{level\ 3638}#) + (#{chi\ 457}# + #{exp\ 3690}# + (#{extend-env\ 360}# + #{labels\ 3705}# + (map (lambda (#{var\ 3710}# + #{level\ 3711}#) (cons 'syntax - (cons #{var\ 3637}# - #{level\ 3638}#))) - #{new-vars\ 3633}# - (map cdr #{pvars\ 3616}#)) - #{r\ 3619}#) - (#{make-binding-wrap\ 354}# - #{ids\ 3628}# - #{labels\ 3632}# + (cons #{var\ 3710}# + #{level\ 3711}#))) + #{new-vars\ 3706}# + (map cdr #{pvars\ 3689}#)) + #{r\ 3692}#) + (#{make-binding-wrap\ 419}# + #{ids\ 3701}# + #{labels\ 3705}# '(())) - #{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}#) + #{mod\ 3693}#)) + #{y\ 3691}#)))))) + (#{convert-pattern\ 3594}# + (lambda (#{pattern\ 3717}# #{keys\ 3718}#) + (letrec ((#{cvt\ 3724}# + (lambda (#{p\ 3725}# #{n\ 3726}# #{ids\ 3727}#) + (if (#{id?\ 372}# #{p\ 3725}#) + (if (#{bound-id-member?\ 439}# + #{p\ 3725}# + #{keys\ 3718}#) (values - (vector (quote free-id) #{p\ 3652}#) - #{ids\ 3654}#) + (vector (quote free-id) #{p\ 3725}#) + #{ids\ 3727}#) (values 'any - (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}#) + (cons (cons #{p\ 3725}# #{n\ 3726}#) + #{ids\ 3727}#))) + ((lambda (#{tmp\ 3731}#) + ((lambda (#{tmp\ 3732}#) + (if (if #{tmp\ 3732}# + (apply (lambda (#{x\ 3735}# + #{dots\ 3736}#) + (#{ellipsis?\ 473}# + #{dots\ 3736}#)) + #{tmp\ 3732}#) #f) - (apply (lambda (#{x\ 3666}# - #{dots\ 3667}#) + (apply (lambda (#{x\ 3739}# + #{dots\ 3740}#) (call-with-values (lambda () - (#{cvt\ 3651}# - #{x\ 3666}# - (#{fx+\ 208}# - #{n\ 3653}# + (#{cvt\ 3724}# + #{x\ 3739}# + (#{fx+\ 273}# + #{n\ 3726}# 1) - #{ids\ 3654}#)) - (lambda (#{p\ 3668}# - #{ids\ 3669}#) + #{ids\ 3727}#)) + (lambda (#{p\ 3741}# + #{ids\ 3742}#) (values - (if (eq? #{p\ 3668}# + (if (eq? #{p\ 3741}# 'any) 'each-any (vector 'each - #{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}#) + #{p\ 3741}#)) + #{ids\ 3742}#)))) + #{tmp\ 3732}#) + ((lambda (#{tmp\ 3745}#) + (if (if #{tmp\ 3745}# + (apply (lambda (#{x\ 3749}# + #{dots\ 3750}# + #{ys\ 3751}#) + (#{ellipsis?\ 473}# + #{dots\ 3750}#)) + #{tmp\ 3745}#) #f) - (apply (lambda (#{x\ 3682}# - #{dots\ 3683}# - #{ys\ 3684}#) + (apply (lambda (#{x\ 3755}# + #{dots\ 3756}# + #{ys\ 3757}#) (call-with-values (lambda () - (#{cvt*\ 3649}# - #{ys\ 3684}# - #{n\ 3653}# - #{ids\ 3654}#)) - (lambda (#{ys\ 3686}# - #{ids\ 3687}#) + (#{cvt*\ 3722}# + #{ys\ 3757}# + #{n\ 3726}# + #{ids\ 3727}#)) + (lambda (#{ys\ 3759}# + #{ids\ 3760}#) (call-with-values (lambda () - (#{cvt\ 3651}# - #{x\ 3682}# - (+ #{n\ 3653}# + (#{cvt\ 3724}# + #{x\ 3755}# + (+ #{n\ 3726}# 1) - #{ids\ 3687}#)) - (lambda (#{x\ 3690}# - #{ids\ 3691}#) + #{ids\ 3760}#)) + (lambda (#{x\ 3763}# + #{ids\ 3764}#) (values (list->vector (cons 'each+ - (cons #{x\ 3690}# + (cons #{x\ 3763}# (cons (reverse - #{ys\ 3686}#) + #{ys\ 3759}#) '(()))))) - #{ids\ 3691}#)))))) - #{tmp\ 3672}#) - ((lambda (#{tmp\ 3695}#) - (if #{tmp\ 3695}# - (apply (lambda (#{x\ 3698}# - #{y\ 3699}#) + #{ids\ 3764}#)))))) + #{tmp\ 3745}#) + ((lambda (#{tmp\ 3768}#) + (if #{tmp\ 3768}# + (apply (lambda (#{x\ 3771}# + #{y\ 3772}#) (call-with-values (lambda () - (#{cvt\ 3651}# - #{y\ 3699}# - #{n\ 3653}# - #{ids\ 3654}#)) - (lambda (#{y\ 3700}# - #{ids\ 3701}#) + (#{cvt\ 3724}# + #{y\ 3772}# + #{n\ 3726}# + #{ids\ 3727}#)) + (lambda (#{y\ 3773}# + #{ids\ 3774}#) (call-with-values (lambda () - (#{cvt\ 3651}# - #{x\ 3698}# - #{n\ 3653}# - #{ids\ 3701}#)) - (lambda (#{x\ 3704}# - #{ids\ 3705}#) + (#{cvt\ 3724}# + #{x\ 3771}# + #{n\ 3726}# + #{ids\ 3774}#)) + (lambda (#{x\ 3777}# + #{ids\ 3778}#) (values - (cons #{x\ 3704}# - #{y\ 3700}#) - #{ids\ 3705}#)))))) - #{tmp\ 3695}#) - ((lambda (#{tmp\ 3708}#) - (if #{tmp\ 3708}# + (cons #{x\ 3777}# + #{y\ 3773}#) + #{ids\ 3778}#)))))) + #{tmp\ 3768}#) + ((lambda (#{tmp\ 3781}#) + (if #{tmp\ 3781}# (apply (lambda () (values '() - #{ids\ 3654}#)) - #{tmp\ 3708}#) - ((lambda (#{tmp\ 3709}#) - (if #{tmp\ 3709}# - (apply (lambda (#{x\ 3711}#) + #{ids\ 3727}#)) + #{tmp\ 3781}#) + ((lambda (#{tmp\ 3782}#) + (if #{tmp\ 3782}# + (apply (lambda (#{x\ 3784}#) (call-with-values (lambda () - (#{cvt\ 3651}# - #{x\ 3711}# - #{n\ 3653}# - #{ids\ 3654}#)) - (lambda (#{p\ 3713}# - #{ids\ 3714}#) + (#{cvt\ 3724}# + #{x\ 3784}# + #{n\ 3726}# + #{ids\ 3727}#)) + (lambda (#{p\ 3786}# + #{ids\ 3787}#) (values (vector 'vector - #{p\ 3713}#) - #{ids\ 3714}#)))) - #{tmp\ 3709}#) - ((lambda (#{x\ 3718}#) + #{p\ 3786}#) + #{ids\ 3787}#)))) + #{tmp\ 3782}#) + ((lambda (#{x\ 3791}#) (values (vector 'atom - (#{strip\ 418}# - #{p\ 3652}# + (#{strip\ 483}# + #{p\ 3725}# '(()))) - #{ids\ 3654}#)) - #{tmp\ 3658}#))) + #{ids\ 3727}#)) + #{tmp\ 3731}#))) ($sc-dispatch - #{tmp\ 3658}# + #{tmp\ 3731}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 3658}# + #{tmp\ 3731}# '())))) ($sc-dispatch - #{tmp\ 3658}# + #{tmp\ 3731}# '(any . any))))) ($sc-dispatch - #{tmp\ 3658}# + #{tmp\ 3731}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 3658}# + #{tmp\ 3731}# '(any any)))) - #{p\ 3652}#)))) - (#{cvt*\ 3649}# - (lambda (#{p*\ 3720}# - #{n\ 3721}# - #{ids\ 3722}#) - (if (null? #{p*\ 3720}#) - (values (quote ()) #{ids\ 3722}#) + #{p\ 3725}#)))) + (#{cvt*\ 3722}# + (lambda (#{p*\ 3793}# + #{n\ 3794}# + #{ids\ 3795}#) + (if (null? #{p*\ 3793}#) + (values (quote ()) #{ids\ 3795}#) (call-with-values (lambda () - (#{cvt*\ 3649}# - (cdr #{p*\ 3720}#) - #{n\ 3721}# - #{ids\ 3722}#)) - (lambda (#{y\ 3726}# #{ids\ 3727}#) + (#{cvt*\ 3722}# + (cdr #{p*\ 3793}#) + #{n\ 3794}# + #{ids\ 3795}#)) + (lambda (#{y\ 3799}# #{ids\ 3800}#) (call-with-values (lambda () - (#{cvt\ 3651}# - (car #{p*\ 3720}#) - #{n\ 3721}# - #{ids\ 3727}#)) - (lambda (#{x\ 3730}# #{ids\ 3731}#) + (#{cvt\ 3724}# + (car #{p*\ 3793}#) + #{n\ 3794}# + #{ids\ 3800}#)) + (lambda (#{x\ 3803}# #{ids\ 3804}#) (values - (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}#) + (cons #{x\ 3803}# #{y\ 3799}#) + #{ids\ 3804}#))))))))) + (#{cvt\ 3724}# #{pattern\ 3717}# 0 (quote ())))))) + (lambda (#{e\ 3807}# + #{r\ 3808}# + #{w\ 3809}# + #{s\ 3810}# + #{mod\ 3811}#) + (let ((#{e\ 3818}# + (#{source-wrap\ 443}# + #{e\ 3807}# + #{w\ 3809}# + #{s\ 3810}# + #{mod\ 3811}#))) + ((lambda (#{tmp\ 3819}#) + ((lambda (#{tmp\ 3820}#) + (if #{tmp\ 3820}# + (apply (lambda (#{_\ 3825}# + #{val\ 3826}# + #{key\ 3827}# + #{m\ 3828}#) (if (and-map - (lambda (#{x\ 3756}#) - (if (#{id?\ 307}# #{x\ 3756}#) - (not (#{ellipsis?\ 408}# #{x\ 3756}#)) + (lambda (#{x\ 3829}#) + (if (#{id?\ 372}# #{x\ 3829}#) + (not (#{ellipsis?\ 473}# #{x\ 3829}#)) #f)) - #{key\ 3754}#) - (let ((#{x\ 3762}# - (#{gen-var\ 420}# (quote tmp)))) - (#{build-application\ 229}# - #{s\ 3737}# - (#{build-simple-lambda\ 249}# + #{key\ 3827}#) + (let ((#{x\ 3835}# + (#{gen-var\ 485}# (quote tmp)))) + (#{build-application\ 294}# + #{s\ 3810}# + (#{build-simple-lambda\ 314}# #f (list (quote tmp)) #f - (list #{x\ 3762}#) + (list #{x\ 3835}#) '() - (#{gen-syntax-case\ 3527}# - (#{build-lexical-reference\ 235}# + (#{gen-syntax-case\ 3600}# + (#{build-lexical-reference\ 300}# 'value #f 'tmp - #{x\ 3762}#) - #{key\ 3754}# - #{m\ 3755}# - #{r\ 3735}# - #{mod\ 3738}#)) - (list (#{chi\ 392}# - #{val\ 3753}# - #{r\ 3735}# + #{x\ 3835}#) + #{key\ 3827}# + #{m\ 3828}# + #{r\ 3808}# + #{mod\ 3811}#)) + (list (#{chi\ 457}# + #{val\ 3826}# + #{r\ 3808}# '(()) - #{mod\ 3738}#)))) + #{mod\ 3811}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3745}#))) - #{tmp\ 3747}#) + #{e\ 3818}#))) + #{tmp\ 3820}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3746}#))) + #{tmp\ 3819}#))) ($sc-dispatch - #{tmp\ 3746}# + #{tmp\ 3819}# '(any any each-any . each-any)))) - #{e\ 3745}#))))) + #{e\ 3818}#))))) (set! macroexpand (lambda* - (#{x\ 3768}# + (#{x\ 3841}# #:optional - (#{m\ 3770}# (quote e)) - (#{esew\ 3772}# (quote (eval)))) - (#{chi-top\ 390}# - #{x\ 3768}# + (#{m\ 3843}# (quote e)) + (#{esew\ 3845}# (quote (eval)))) + (#{chi-top\ 455}# + #{x\ 3841}# '() '((top)) - #{m\ 3770}# - #{esew\ 3772}# + #{m\ 3843}# + #{esew\ 3845}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x\ 3776}#) - (#{nonsymbol-id?\ 305}# #{x\ 3776}#))) + (lambda (#{x\ 3849}#) + (#{nonsymbol-id?\ 370}# #{x\ 3849}#))) (set! datum->syntax - (lambda (#{id\ 3778}# #{datum\ 3779}#) - (#{make-syntax-object\ 269}# - #{datum\ 3779}# - (#{syntax-object-wrap\ 275}# #{id\ 3778}#) + (lambda (#{id\ 3851}# #{datum\ 3852}#) + (#{make-syntax-object\ 334}# + #{datum\ 3852}# + (#{syntax-object-wrap\ 340}# #{id\ 3851}#) #f))) (set! syntax->datum - (lambda (#{x\ 3782}#) - (#{strip\ 418}# #{x\ 3782}# (quote (()))))) + (lambda (#{x\ 3855}#) + (#{strip\ 483}# #{x\ 3855}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 3785}#) + (lambda (#{ls\ 3858}#) (begin - (let ((#{x\ 3789}# #{ls\ 3785}#)) - (if (not (list? #{x\ 3789}#)) + (let ((#{x\ 3862}# #{ls\ 3858}#)) + (if (not (list? #{x\ 3862}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3789}#))) - (map (lambda (#{x\ 3790}#) - (#{wrap\ 376}# (gensym) (quote ((top))) #f)) - #{ls\ 3785}#)))) + #{x\ 3862}#))) + (map (lambda (#{x\ 3863}#) + (#{wrap\ 441}# (gensym) (quote ((top))) #f)) + #{ls\ 3858}#)))) (set! free-identifier=? - (lambda (#{x\ 3794}# #{y\ 3795}#) + (lambda (#{x\ 3867}# #{y\ 3868}#) (begin - (let ((#{x\ 3800}# #{x\ 3794}#)) - (if (not (#{nonsymbol-id?\ 305}# #{x\ 3800}#)) + (let ((#{x\ 3873}# #{x\ 3867}#)) + (if (not (#{nonsymbol-id?\ 370}# #{x\ 3873}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3800}#))) - (let ((#{x\ 3803}# #{y\ 3795}#)) - (if (not (#{nonsymbol-id?\ 305}# #{x\ 3803}#)) + #{x\ 3873}#))) + (let ((#{x\ 3876}# #{y\ 3868}#)) + (if (not (#{nonsymbol-id?\ 370}# #{x\ 3876}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3803}#))) - (#{free-id=?\ 366}# #{x\ 3794}# #{y\ 3795}#)))) + #{x\ 3876}#))) + (#{free-id=?\ 431}# #{x\ 3867}# #{y\ 3868}#)))) (set! bound-identifier=? - (lambda (#{x\ 3804}# #{y\ 3805}#) + (lambda (#{x\ 3877}# #{y\ 3878}#) (begin - (let ((#{x\ 3810}# #{x\ 3804}#)) - (if (not (#{nonsymbol-id?\ 305}# #{x\ 3810}#)) + (let ((#{x\ 3883}# #{x\ 3877}#)) + (if (not (#{nonsymbol-id?\ 370}# #{x\ 3883}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3810}#))) - (let ((#{x\ 3813}# #{y\ 3805}#)) - (if (not (#{nonsymbol-id?\ 305}# #{x\ 3813}#)) + #{x\ 3883}#))) + (let ((#{x\ 3886}# #{y\ 3878}#)) + (if (not (#{nonsymbol-id?\ 370}# #{x\ 3886}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3813}#))) - (#{bound-id=?\ 368}# #{x\ 3804}# #{y\ 3805}#)))) + #{x\ 3886}#))) + (#{bound-id=?\ 433}# #{x\ 3877}# #{y\ 3878}#)))) (set! syntax-violation - (lambda (#{who\ 3814}# - #{message\ 3815}# - #{form\ 3816}# + (lambda (#{who\ 3887}# + #{message\ 3888}# + #{form\ 3889}# . - #{subform\ 3817}#) + #{subform\ 3890}#) (begin - (let ((#{x\ 3824}# #{who\ 3814}#)) - (if (not ((lambda (#{x\ 3825}#) - (let ((#{t\ 3829}# (not #{x\ 3825}#))) - (if #{t\ 3829}# - #{t\ 3829}# - (let ((#{t\ 3832}# (string? #{x\ 3825}#))) - (if #{t\ 3832}# - #{t\ 3832}# - (symbol? #{x\ 3825}#)))))) - #{x\ 3824}#)) + (let ((#{x\ 3897}# #{who\ 3887}#)) + (if (not ((lambda (#{x\ 3898}#) + (let ((#{t\ 3902}# (not #{x\ 3898}#))) + (if #{t\ 3902}# + #{t\ 3902}# + (let ((#{t\ 3905}# (string? #{x\ 3898}#))) + (if #{t\ 3905}# + #{t\ 3905}# + (symbol? #{x\ 3898}#)))))) + #{x\ 3897}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3824}#))) - (let ((#{x\ 3836}# #{message\ 3815}#)) - (if (not (string? #{x\ 3836}#)) + #{x\ 3897}#))) + (let ((#{x\ 3909}# #{message\ 3888}#)) + (if (not (string? #{x\ 3909}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3836}#))) + #{x\ 3909}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 3814}# "~a: " "") + (if #{who\ 3887}# "~a: " "") "~a " - (if (null? #{subform\ 3817}#) + (if (null? #{subform\ 3890}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 3838}# - (cons #{message\ 3815}# - (map (lambda (#{x\ 3839}#) - (#{strip\ 418}# #{x\ 3839}# (quote (())))) + (let ((#{tail\ 3911}# + (cons #{message\ 3888}# + (map (lambda (#{x\ 3912}#) + (#{strip\ 483}# #{x\ 3912}# (quote (())))) (append - #{subform\ 3817}# - (list #{form\ 3816}#)))))) - (if #{who\ 3814}# - (cons #{who\ 3814}# #{tail\ 3838}#) - #{tail\ 3838}#)) + #{subform\ 3890}# + (list #{form\ 3889}#)))))) + (if #{who\ 3887}# + (cons #{who\ 3887}# #{tail\ 3911}#) + #{tail\ 3911}#)) #f)))) - (letrec ((#{match\ 3855}# - (lambda (#{e\ 3856}# - #{p\ 3857}# - #{w\ 3858}# - #{r\ 3859}# - #{mod\ 3860}#) - (if (not #{r\ 3859}#) + (letrec ((#{match\ 3928}# + (lambda (#{e\ 3929}# + #{p\ 3930}# + #{w\ 3931}# + #{r\ 3932}# + #{mod\ 3933}#) + (if (not #{r\ 3932}#) #f - (if (eq? #{p\ 3857}# (quote any)) - (cons (#{wrap\ 376}# - #{e\ 3856}# - #{w\ 3858}# - #{mod\ 3860}#) - #{r\ 3859}#) - (if (#{syntax-object?\ 271}# #{e\ 3856}#) - (#{match*\ 3853}# - (#{syntax-object-expression\ 273}# #{e\ 3856}#) - #{p\ 3857}# - (#{join-wraps\ 358}# - #{w\ 3858}# - (#{syntax-object-wrap\ 275}# #{e\ 3856}#)) - #{r\ 3859}# - (#{syntax-object-module\ 277}# #{e\ 3856}#)) - (#{match*\ 3853}# - #{e\ 3856}# - #{p\ 3857}# - #{w\ 3858}# - #{r\ 3859}# - #{mod\ 3860}#)))))) - (#{match*\ 3853}# - (lambda (#{e\ 3873}# - #{p\ 3874}# - #{w\ 3875}# - #{r\ 3876}# - #{mod\ 3877}#) - (if (null? #{p\ 3874}#) - (if (null? #{e\ 3873}#) #{r\ 3876}# #f) - (if (pair? #{p\ 3874}#) - (if (pair? #{e\ 3873}#) - (#{match\ 3855}# - (car #{e\ 3873}#) - (car #{p\ 3874}#) - #{w\ 3875}# - (#{match\ 3855}# - (cdr #{e\ 3873}#) - (cdr #{p\ 3874}#) - #{w\ 3875}# - #{r\ 3876}# - #{mod\ 3877}#) - #{mod\ 3877}#) + (if (eq? #{p\ 3930}# (quote any)) + (cons (#{wrap\ 441}# + #{e\ 3929}# + #{w\ 3931}# + #{mod\ 3933}#) + #{r\ 3932}#) + (if (#{syntax-object?\ 336}# #{e\ 3929}#) + (#{match*\ 3926}# + (#{syntax-object-expression\ 338}# #{e\ 3929}#) + #{p\ 3930}# + (#{join-wraps\ 423}# + #{w\ 3931}# + (#{syntax-object-wrap\ 340}# #{e\ 3929}#)) + #{r\ 3932}# + (#{syntax-object-module\ 342}# #{e\ 3929}#)) + (#{match*\ 3926}# + #{e\ 3929}# + #{p\ 3930}# + #{w\ 3931}# + #{r\ 3932}# + #{mod\ 3933}#)))))) + (#{match*\ 3926}# + (lambda (#{e\ 3946}# + #{p\ 3947}# + #{w\ 3948}# + #{r\ 3949}# + #{mod\ 3950}#) + (if (null? #{p\ 3947}#) + (if (null? #{e\ 3946}#) #{r\ 3949}# #f) + (if (pair? #{p\ 3947}#) + (if (pair? #{e\ 3946}#) + (#{match\ 3928}# + (car #{e\ 3946}#) + (car #{p\ 3947}#) + #{w\ 3948}# + (#{match\ 3928}# + (cdr #{e\ 3946}#) + (cdr #{p\ 3947}#) + #{w\ 3948}# + #{r\ 3949}# + #{mod\ 3950}#) + #{mod\ 3950}#) #f) - (if (eq? #{p\ 3874}# (quote each-any)) - (let ((#{l\ 3894}# - (#{match-each-any\ 3847}# - #{e\ 3873}# - #{w\ 3875}# - #{mod\ 3877}#))) - (if #{l\ 3894}# - (cons #{l\ 3894}# #{r\ 3876}#) + (if (eq? #{p\ 3947}# (quote each-any)) + (let ((#{l\ 3967}# + (#{match-each-any\ 3920}# + #{e\ 3946}# + #{w\ 3948}# + #{mod\ 3950}#))) + (if #{l\ 3967}# + (cons #{l\ 3967}# #{r\ 3949}#) #f)) - (let ((#{atom-key\ 3900}# (vector-ref #{p\ 3874}# 0))) - (if (memv #{atom-key\ 3900}# (quote (each))) - (if (null? #{e\ 3873}#) - (#{match-empty\ 3849}# - (vector-ref #{p\ 3874}# 1) - #{r\ 3876}#) - (let ((#{l\ 3903}# - (#{match-each\ 3843}# - #{e\ 3873}# - (vector-ref #{p\ 3874}# 1) - #{w\ 3875}# - #{mod\ 3877}#))) - (if #{l\ 3903}# - (letrec ((#{collect\ 3908}# - (lambda (#{l\ 3909}#) - (if (null? (car #{l\ 3909}#)) - #{r\ 3876}# - (cons (map car #{l\ 3909}#) - (#{collect\ 3908}# + (let ((#{atom-key\ 3973}# (vector-ref #{p\ 3947}# 0))) + (if (memv #{atom-key\ 3973}# (quote (each))) + (if (null? #{e\ 3946}#) + (#{match-empty\ 3922}# + (vector-ref #{p\ 3947}# 1) + #{r\ 3949}#) + (let ((#{l\ 3976}# + (#{match-each\ 3916}# + #{e\ 3946}# + (vector-ref #{p\ 3947}# 1) + #{w\ 3948}# + #{mod\ 3950}#))) + (if #{l\ 3976}# + (letrec ((#{collect\ 3981}# + (lambda (#{l\ 3982}#) + (if (null? (car #{l\ 3982}#)) + #{r\ 3949}# + (cons (map car #{l\ 3982}#) + (#{collect\ 3981}# (map cdr - #{l\ 3909}#))))))) - (#{collect\ 3908}# #{l\ 3903}#)) + #{l\ 3982}#))))))) + (#{collect\ 3981}# #{l\ 3976}#)) #f))) - (if (memv #{atom-key\ 3900}# (quote (each+))) + (if (memv #{atom-key\ 3973}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 3845}# - #{e\ 3873}# - (vector-ref #{p\ 3874}# 1) - (vector-ref #{p\ 3874}# 2) - (vector-ref #{p\ 3874}# 3) - #{w\ 3875}# - #{r\ 3876}# - #{mod\ 3877}#)) - (lambda (#{xr*\ 3911}# - #{y-pat\ 3912}# - #{r\ 3913}#) - (if #{r\ 3913}# - (if (null? #{y-pat\ 3912}#) - (if (null? #{xr*\ 3911}#) - (#{match-empty\ 3849}# - (vector-ref #{p\ 3874}# 1) - #{r\ 3913}#) - (#{combine\ 3851}# - #{xr*\ 3911}# - #{r\ 3913}#)) + (#{match-each+\ 3918}# + #{e\ 3946}# + (vector-ref #{p\ 3947}# 1) + (vector-ref #{p\ 3947}# 2) + (vector-ref #{p\ 3947}# 3) + #{w\ 3948}# + #{r\ 3949}# + #{mod\ 3950}#)) + (lambda (#{xr*\ 3984}# + #{y-pat\ 3985}# + #{r\ 3986}#) + (if #{r\ 3986}# + (if (null? #{y-pat\ 3985}#) + (if (null? #{xr*\ 3984}#) + (#{match-empty\ 3922}# + (vector-ref #{p\ 3947}# 1) + #{r\ 3986}#) + (#{combine\ 3924}# + #{xr*\ 3984}# + #{r\ 3986}#)) #f) #f))) - (if (memv #{atom-key\ 3900}# (quote (free-id))) - (if (#{id?\ 307}# #{e\ 3873}#) - (if (#{free-id=?\ 366}# - (#{wrap\ 376}# - #{e\ 3873}# - #{w\ 3875}# - #{mod\ 3877}#) - (vector-ref #{p\ 3874}# 1)) - #{r\ 3876}# + (if (memv #{atom-key\ 3973}# (quote (free-id))) + (if (#{id?\ 372}# #{e\ 3946}#) + (if (#{free-id=?\ 431}# + (#{wrap\ 441}# + #{e\ 3946}# + #{w\ 3948}# + #{mod\ 3950}#) + (vector-ref #{p\ 3947}# 1)) + #{r\ 3949}# #f) #f) - (if (memv #{atom-key\ 3900}# (quote (atom))) + (if (memv #{atom-key\ 3973}# (quote (atom))) (if (equal? - (vector-ref #{p\ 3874}# 1) - (#{strip\ 418}# - #{e\ 3873}# - #{w\ 3875}#)) - #{r\ 3876}# + (vector-ref #{p\ 3947}# 1) + (#{strip\ 483}# + #{e\ 3946}# + #{w\ 3948}#)) + #{r\ 3949}# #f) - (if (memv #{atom-key\ 3900}# + (if (memv #{atom-key\ 3973}# '(vector)) - (if (vector? #{e\ 3873}#) - (#{match\ 3855}# - (vector->list #{e\ 3873}#) - (vector-ref #{p\ 3874}# 1) - #{w\ 3875}# - #{r\ 3876}# - #{mod\ 3877}#) + (if (vector? #{e\ 3946}#) + (#{match\ 3928}# + (vector->list #{e\ 3946}#) + (vector-ref #{p\ 3947}# 1) + #{w\ 3948}# + #{r\ 3949}# + #{mod\ 3950}#) #f)))))))))))) - (#{combine\ 3851}# - (lambda (#{r*\ 3930}# #{r\ 3931}#) - (if (null? (car #{r*\ 3930}#)) - #{r\ 3931}# - (cons (map car #{r*\ 3930}#) - (#{combine\ 3851}# - (map cdr #{r*\ 3930}#) - #{r\ 3931}#))))) - (#{match-empty\ 3849}# - (lambda (#{p\ 3934}# #{r\ 3935}#) - (if (null? #{p\ 3934}#) - #{r\ 3935}# - (if (eq? #{p\ 3934}# (quote any)) - (cons (quote ()) #{r\ 3935}#) - (if (pair? #{p\ 3934}#) - (#{match-empty\ 3849}# - (car #{p\ 3934}#) - (#{match-empty\ 3849}# - (cdr #{p\ 3934}#) - #{r\ 3935}#)) - (if (eq? #{p\ 3934}# (quote each-any)) - (cons (quote ()) #{r\ 3935}#) - (let ((#{atom-key\ 3949}# - (vector-ref #{p\ 3934}# 0))) - (if (memv #{atom-key\ 3949}# (quote (each))) - (#{match-empty\ 3849}# - (vector-ref #{p\ 3934}# 1) - #{r\ 3935}#) - (if (memv #{atom-key\ 3949}# (quote (each+))) - (#{match-empty\ 3849}# - (vector-ref #{p\ 3934}# 1) - (#{match-empty\ 3849}# - (reverse (vector-ref #{p\ 3934}# 2)) - (#{match-empty\ 3849}# - (vector-ref #{p\ 3934}# 3) - #{r\ 3935}#))) - (if (memv #{atom-key\ 3949}# + (#{combine\ 3924}# + (lambda (#{r*\ 4003}# #{r\ 4004}#) + (if (null? (car #{r*\ 4003}#)) + #{r\ 4004}# + (cons (map car #{r*\ 4003}#) + (#{combine\ 3924}# + (map cdr #{r*\ 4003}#) + #{r\ 4004}#))))) + (#{match-empty\ 3922}# + (lambda (#{p\ 4007}# #{r\ 4008}#) + (if (null? #{p\ 4007}#) + #{r\ 4008}# + (if (eq? #{p\ 4007}# (quote any)) + (cons (quote ()) #{r\ 4008}#) + (if (pair? #{p\ 4007}#) + (#{match-empty\ 3922}# + (car #{p\ 4007}#) + (#{match-empty\ 3922}# + (cdr #{p\ 4007}#) + #{r\ 4008}#)) + (if (eq? #{p\ 4007}# (quote each-any)) + (cons (quote ()) #{r\ 4008}#) + (let ((#{atom-key\ 4022}# + (vector-ref #{p\ 4007}# 0))) + (if (memv #{atom-key\ 4022}# (quote (each))) + (#{match-empty\ 3922}# + (vector-ref #{p\ 4007}# 1) + #{r\ 4008}#) + (if (memv #{atom-key\ 4022}# (quote (each+))) + (#{match-empty\ 3922}# + (vector-ref #{p\ 4007}# 1) + (#{match-empty\ 3922}# + (reverse (vector-ref #{p\ 4007}# 2)) + (#{match-empty\ 3922}# + (vector-ref #{p\ 4007}# 3) + #{r\ 4008}#))) + (if (memv #{atom-key\ 4022}# '(free-id atom)) - #{r\ 3935}# - (if (memv #{atom-key\ 3949}# + #{r\ 4008}# + (if (memv #{atom-key\ 4022}# '(vector)) - (#{match-empty\ 3849}# - (vector-ref #{p\ 3934}# 1) - #{r\ 3935}#)))))))))))) - (#{match-each-any\ 3847}# - (lambda (#{e\ 3954}# #{w\ 3955}# #{mod\ 3956}#) - (if (pair? #{e\ 3954}#) - (let ((#{l\ 3963}# - (#{match-each-any\ 3847}# - (cdr #{e\ 3954}#) - #{w\ 3955}# - #{mod\ 3956}#))) - (if #{l\ 3963}# - (cons (#{wrap\ 376}# - (car #{e\ 3954}#) - #{w\ 3955}# - #{mod\ 3956}#) - #{l\ 3963}#) + (#{match-empty\ 3922}# + (vector-ref #{p\ 4007}# 1) + #{r\ 4008}#)))))))))))) + (#{match-each-any\ 3920}# + (lambda (#{e\ 4027}# #{w\ 4028}# #{mod\ 4029}#) + (if (pair? #{e\ 4027}#) + (let ((#{l\ 4036}# + (#{match-each-any\ 3920}# + (cdr #{e\ 4027}#) + #{w\ 4028}# + #{mod\ 4029}#))) + (if #{l\ 4036}# + (cons (#{wrap\ 441}# + (car #{e\ 4027}#) + #{w\ 4028}# + #{mod\ 4029}#) + #{l\ 4036}#) #f)) - (if (null? #{e\ 3954}#) + (if (null? #{e\ 4027}#) '() - (if (#{syntax-object?\ 271}# #{e\ 3954}#) - (#{match-each-any\ 3847}# - (#{syntax-object-expression\ 273}# #{e\ 3954}#) - (#{join-wraps\ 358}# - #{w\ 3955}# - (#{syntax-object-wrap\ 275}# #{e\ 3954}#)) - #{mod\ 3956}#) + (if (#{syntax-object?\ 336}# #{e\ 4027}#) + (#{match-each-any\ 3920}# + (#{syntax-object-expression\ 338}# #{e\ 4027}#) + (#{join-wraps\ 423}# + #{w\ 4028}# + (#{syntax-object-wrap\ 340}# #{e\ 4027}#)) + #{mod\ 4029}#) #f))))) - (#{match-each+\ 3845}# - (lambda (#{e\ 3971}# - #{x-pat\ 3972}# - #{y-pat\ 3973}# - #{z-pat\ 3974}# - #{w\ 3975}# - #{r\ 3976}# - #{mod\ 3977}#) - (letrec ((#{f\ 3988}# - (lambda (#{e\ 3989}# #{w\ 3990}#) - (if (pair? #{e\ 3989}#) + (#{match-each+\ 3918}# + (lambda (#{e\ 4044}# + #{x-pat\ 4045}# + #{y-pat\ 4046}# + #{z-pat\ 4047}# + #{w\ 4048}# + #{r\ 4049}# + #{mod\ 4050}#) + (letrec ((#{f\ 4061}# + (lambda (#{e\ 4062}# #{w\ 4063}#) + (if (pair? #{e\ 4062}#) (call-with-values (lambda () - (#{f\ 3988}# - (cdr #{e\ 3989}#) - #{w\ 3990}#)) - (lambda (#{xr*\ 3993}# - #{y-pat\ 3994}# - #{r\ 3995}#) - (if #{r\ 3995}# - (if (null? #{y-pat\ 3994}#) - (let ((#{xr\ 4000}# - (#{match\ 3855}# - (car #{e\ 3989}#) - #{x-pat\ 3972}# - #{w\ 3990}# + (#{f\ 4061}# + (cdr #{e\ 4062}#) + #{w\ 4063}#)) + (lambda (#{xr*\ 4066}# + #{y-pat\ 4067}# + #{r\ 4068}#) + (if #{r\ 4068}# + (if (null? #{y-pat\ 4067}#) + (let ((#{xr\ 4073}# + (#{match\ 3928}# + (car #{e\ 4062}#) + #{x-pat\ 4045}# + #{w\ 4063}# '() - #{mod\ 3977}#))) - (if #{xr\ 4000}# + #{mod\ 4050}#))) + (if #{xr\ 4073}# (values - (cons #{xr\ 4000}# - #{xr*\ 3993}#) - #{y-pat\ 3994}# - #{r\ 3995}#) + (cons #{xr\ 4073}# + #{xr*\ 4066}#) + #{y-pat\ 4067}# + #{r\ 4068}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 3994}#) - (#{match\ 3855}# - (car #{e\ 3989}#) - (car #{y-pat\ 3994}#) - #{w\ 3990}# - #{r\ 3995}# - #{mod\ 3977}#))) + (cdr #{y-pat\ 4067}#) + (#{match\ 3928}# + (car #{e\ 4062}#) + (car #{y-pat\ 4067}#) + #{w\ 4063}# + #{r\ 4068}# + #{mod\ 4050}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 271}# #{e\ 3989}#) - (#{f\ 3988}# - (#{syntax-object-expression\ 273}# - #{e\ 3989}#) - (#{join-wraps\ 358}# - #{w\ 3990}# - #{e\ 3989}#)) + (if (#{syntax-object?\ 336}# #{e\ 4062}#) + (#{f\ 4061}# + (#{syntax-object-expression\ 338}# + #{e\ 4062}#) + (#{join-wraps\ 423}# + #{w\ 4063}# + #{e\ 4062}#)) (values '() - #{y-pat\ 3973}# - (#{match\ 3855}# - #{e\ 3989}# - #{z-pat\ 3974}# - #{w\ 3990}# - #{r\ 3976}# - #{mod\ 3977}#))))))) - (#{f\ 3988}# #{e\ 3971}# #{w\ 3975}#)))) - (#{match-each\ 3843}# - (lambda (#{e\ 4004}# - #{p\ 4005}# - #{w\ 4006}# - #{mod\ 4007}#) - (if (pair? #{e\ 4004}#) - (let ((#{first\ 4015}# - (#{match\ 3855}# - (car #{e\ 4004}#) - #{p\ 4005}# - #{w\ 4006}# + #{y-pat\ 4046}# + (#{match\ 3928}# + #{e\ 4062}# + #{z-pat\ 4047}# + #{w\ 4063}# + #{r\ 4049}# + #{mod\ 4050}#))))))) + (#{f\ 4061}# #{e\ 4044}# #{w\ 4048}#)))) + (#{match-each\ 3916}# + (lambda (#{e\ 4077}# + #{p\ 4078}# + #{w\ 4079}# + #{mod\ 4080}#) + (if (pair? #{e\ 4077}#) + (let ((#{first\ 4088}# + (#{match\ 3928}# + (car #{e\ 4077}#) + #{p\ 4078}# + #{w\ 4079}# '() - #{mod\ 4007}#))) - (if #{first\ 4015}# - (let ((#{rest\ 4019}# - (#{match-each\ 3843}# - (cdr #{e\ 4004}#) - #{p\ 4005}# - #{w\ 4006}# - #{mod\ 4007}#))) - (if #{rest\ 4019}# - (cons #{first\ 4015}# #{rest\ 4019}#) + #{mod\ 4080}#))) + (if #{first\ 4088}# + (let ((#{rest\ 4092}# + (#{match-each\ 3916}# + (cdr #{e\ 4077}#) + #{p\ 4078}# + #{w\ 4079}# + #{mod\ 4080}#))) + (if #{rest\ 4092}# + (cons #{first\ 4088}# #{rest\ 4092}#) #f)) #f)) - (if (null? #{e\ 4004}#) + (if (null? #{e\ 4077}#) '() - (if (#{syntax-object?\ 271}# #{e\ 4004}#) - (#{match-each\ 3843}# - (#{syntax-object-expression\ 273}# #{e\ 4004}#) - #{p\ 4005}# - (#{join-wraps\ 358}# - #{w\ 4006}# - (#{syntax-object-wrap\ 275}# #{e\ 4004}#)) - (#{syntax-object-module\ 277}# #{e\ 4004}#)) + (if (#{syntax-object?\ 336}# #{e\ 4077}#) + (#{match-each\ 3916}# + (#{syntax-object-expression\ 338}# #{e\ 4077}#) + #{p\ 4078}# + (#{join-wraps\ 423}# + #{w\ 4079}# + (#{syntax-object-wrap\ 340}# #{e\ 4077}#)) + (#{syntax-object-module\ 342}# #{e\ 4077}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 4027}# #{p\ 4028}#) - (if (eq? #{p\ 4028}# (quote any)) - (list #{e\ 4027}#) - (if (#{syntax-object?\ 271}# #{e\ 4027}#) - (#{match*\ 3853}# - (#{syntax-object-expression\ 273}# #{e\ 4027}#) - #{p\ 4028}# - (#{syntax-object-wrap\ 275}# #{e\ 4027}#) + (lambda (#{e\ 4100}# #{p\ 4101}#) + (if (eq? #{p\ 4101}# (quote any)) + (list #{e\ 4100}#) + (if (#{syntax-object?\ 336}# #{e\ 4100}#) + (#{match*\ 3926}# + (#{syntax-object-expression\ 338}# #{e\ 4100}#) + #{p\ 4101}# + (#{syntax-object-wrap\ 340}# #{e\ 4100}#) '() - (#{syntax-object-module\ 277}# #{e\ 4027}#)) - (#{match*\ 3853}# - #{e\ 4027}# - #{p\ 4028}# + (#{syntax-object-module\ 342}# #{e\ 4100}#)) + (#{match*\ 3926}# + #{e\ 4100}# + #{p\ 4101}# '(()) '() #f))))))))) @@ -12828,50 +13046,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 4037}#) - ((lambda (#{tmp\ 4039}#) - ((lambda (#{tmp\ 4040}#) - (if #{tmp\ 4040}# - (apply (lambda (#{_\ 4044}# #{e1\ 4045}# #{e2\ 4046}#) + (cons (lambda (#{x\ 4110}#) + ((lambda (#{tmp\ 4112}#) + ((lambda (#{tmp\ 4113}#) + (if #{tmp\ 4113}# + (apply (lambda (#{_\ 4117}# #{e1\ 4118}# #{e2\ 4119}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i4041" "i4042" "i4043")) + #("i4114" "i4115" "i4116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4038"))) + #(ribcage #(x) #((top)) #("i4111"))) (hygiene guile)) - (cons #{e1\ 4045}# #{e2\ 4046}#))) - #{tmp\ 4040}#) - ((lambda (#{tmp\ 4048}#) - (if #{tmp\ 4048}# - (apply (lambda (#{_\ 4054}# - #{out\ 4055}# - #{in\ 4056}# - #{e1\ 4057}# - #{e2\ 4058}#) + (cons #{e1\ 4118}# #{e2\ 4119}#))) + #{tmp\ 4113}#) + ((lambda (#{tmp\ 4121}#) + (if #{tmp\ 4121}# + (apply (lambda (#{_\ 4127}# + #{out\ 4128}# + #{in\ 4129}# + #{e1\ 4130}# + #{e2\ 4131}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i4049" - "i4050" - "i4051" - "i4052" - "i4053")) + #("i4122" + "i4123" + "i4124" + "i4125" + "i4126")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4038"))) + #("i4111"))) (hygiene guile)) - #{in\ 4056}# + #{in\ 4129}# '() - (list #{out\ 4055}# + (list #{out\ 4128}# (cons '#(syntax-object begin ((top) @@ -12882,27 +13100,27 @@ (top) (top) (top)) - #("i4049" - "i4050" - "i4051" - "i4052" - "i4053")) + #("i4122" + "i4123" + "i4124" + "i4125" + "i4126")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4038"))) + #("i4111"))) (hygiene guile)) - (cons #{e1\ 4057}# - #{e2\ 4058}#))))) - #{tmp\ 4048}#) - ((lambda (#{tmp\ 4060}#) - (if #{tmp\ 4060}# - (apply (lambda (#{_\ 4066}# - #{out\ 4067}# - #{in\ 4068}# - #{e1\ 4069}# - #{e2\ 4070}#) + (cons #{e1\ 4130}# + #{e2\ 4131}#))))) + #{tmp\ 4121}#) + ((lambda (#{tmp\ 4133}#) + (if #{tmp\ 4133}# + (apply (lambda (#{_\ 4139}# + #{out\ 4140}# + #{in\ 4141}# + #{e1\ 4142}# + #{e2\ 4143}#) (list '#(syntax-object syntax-case ((top) @@ -12913,16 +13131,16 @@ (top) (top) (top)) - #("i4061" - "i4062" - "i4063" - "i4064" - "i4065")) + #("i4134" + "i4135" + "i4136" + "i4137" + "i4138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4038"))) + #("i4111"))) (hygiene guile)) (cons '#(syntax-object list @@ -12934,20 +13152,20 @@ (top) (top) (top)) - #("i4061" - "i4062" - "i4063" - "i4064" - "i4065")) + #("i4134" + "i4135" + "i4136" + "i4137" + "i4138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4038"))) + #("i4111"))) (hygiene guile)) - #{in\ 4068}#) + #{in\ 4141}#) '() - (list #{out\ 4067}# + (list #{out\ 4140}# (cons '#(syntax-object begin ((top) @@ -12962,11 +13180,11 @@ (top) (top) (top)) - #("i4061" - "i4062" - "i4063" - "i4064" - "i4065")) + #("i4134" + "i4135" + "i4136" + "i4137" + "i4138")) #(ribcage () () @@ -12974,53 +13192,53 @@ #(ribcage #(x) #((top)) - #("i4038"))) + #("i4111"))) (hygiene guile)) - (cons #{e1\ 4069}# - #{e2\ 4070}#))))) - #{tmp\ 4060}#) + (cons #{e1\ 4142}# + #{e2\ 4143}#))))) + #{tmp\ 4133}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4039}#))) + #{tmp\ 4112}#))) ($sc-dispatch - #{tmp\ 4039}# + #{tmp\ 4112}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 4039}# + #{tmp\ 4112}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 4039}# + #{tmp\ 4112}# '(any () any . each-any)))) - #{x\ 4037}#)) + #{x\ 4110}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 4074}#) - ((lambda (#{tmp\ 4076}#) - ((lambda (#{tmp\ 4077}#) - (if #{tmp\ 4077}# - (apply (lambda (#{_\ 4083}# - #{k\ 4084}# - #{keyword\ 4085}# - #{pattern\ 4086}# - #{template\ 4087}#) + (cons (lambda (#{x\ 4147}#) + ((lambda (#{tmp\ 4149}#) + ((lambda (#{tmp\ 4150}#) + (if #{tmp\ 4150}# + (apply (lambda (#{_\ 4156}# + #{k\ 4157}# + #{keyword\ 4158}# + #{pattern\ 4159}# + #{template\ 4160}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4075"))) + #(ribcage #(x) #((top)) #("i4148"))) (hygiene guile)) '(#(syntax-object x @@ -13028,13 +13246,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4075"))) + #(ribcage #(x) #((top)) #("i4148"))) (hygiene guile))) (vector '(#(syntax-object @@ -13043,13 +13261,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4075"))) + #(ribcage #(x) #((top)) #("i4148"))) (hygiene guile)) . #(syntax-object @@ -13058,13 +13276,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4075"))) + #(ribcage #(x) #((top)) #("i4148"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -13080,34 +13298,34 @@ (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4075"))) + #("i4148"))) (hygiene guile)) - #{pattern\ 4086}#)) + #{pattern\ 4159}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4075"))) + #("i4148"))) (hygiene guile)) (cons '#(syntax-object x @@ -13123,20 +13341,20 @@ (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4075"))) + #("i4148"))) (hygiene guile)) - (cons #{k\ 4084}# - (map (lambda (#{tmp\ 4091}# - #{tmp\ 4090}#) + (cons #{k\ 4157}# + (map (lambda (#{tmp\ 4164}# + #{tmp\ 4163}#) (list (cons '#(syntax-object dummy ((top) @@ -13151,11 +13369,11 @@ (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () @@ -13163,10 +13381,10 @@ #(ribcage #(x) #((top)) - #("i4075"))) + #("i4148"))) (hygiene guile)) - #{tmp\ 4090}#) + #{tmp\ 4163}#) (list '#(syntax-object syntax ((top) @@ -13181,11 +13399,11 @@ (top) (top) (top)) - #("i4078" - "i4079" - "i4080" - "i4081" - "i4082")) + #("i4151" + "i4152" + "i4153" + "i4154" + "i4155")) #(ribcage () () @@ -13193,47 +13411,47 @@ #(ribcage #(x) #((top)) - #("i4075"))) + #("i4148"))) (hygiene guile)) - #{tmp\ 4091}#))) - #{template\ 4087}# - #{pattern\ 4086}#)))))) - #{tmp\ 4077}#) + #{tmp\ 4164}#))) + #{template\ 4160}# + #{pattern\ 4159}#)))))) + #{tmp\ 4150}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4076}#))) + #{tmp\ 4149}#))) ($sc-dispatch - #{tmp\ 4076}# + #{tmp\ 4149}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 4074}#)) + #{x\ 4147}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 4092}#) - ((lambda (#{tmp\ 4094}#) - ((lambda (#{tmp\ 4095}#) - (if (if #{tmp\ 4095}# - (apply (lambda (#{let*\ 4101}# - #{x\ 4102}# - #{v\ 4103}# - #{e1\ 4104}# - #{e2\ 4105}#) - (and-map identifier? #{x\ 4102}#)) - #{tmp\ 4095}#) + (cons (lambda (#{x\ 4165}#) + ((lambda (#{tmp\ 4167}#) + ((lambda (#{tmp\ 4168}#) + (if (if #{tmp\ 4168}# + (apply (lambda (#{let*\ 4174}# + #{x\ 4175}# + #{v\ 4176}# + #{e1\ 4177}# + #{e2\ 4178}#) + (and-map identifier? #{x\ 4175}#)) + #{tmp\ 4168}#) #f) - (apply (lambda (#{let*\ 4112}# - #{x\ 4113}# - #{v\ 4114}# - #{e1\ 4115}# - #{e2\ 4116}#) - (letrec ((#{f\ 4119}# - (lambda (#{bindings\ 4120}#) - (if (null? #{bindings\ 4120}#) + (apply (lambda (#{let*\ 4185}# + #{x\ 4186}# + #{v\ 4187}# + #{e1\ 4188}# + #{e2\ 4189}#) + (letrec ((#{f\ 4192}# + (lambda (#{bindings\ 4193}#) + (if (null? #{bindings\ 4193}#) (cons '#(syntax-object let ((top) @@ -13241,7 +13459,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4117" "i4118")) + #("i4190" "i4191")) #(ribcage #(let* x v e1 e2) #((top) @@ -13249,25 +13467,25 @@ (top) (top) (top)) - #("i4107" - "i4108" - "i4109" - "i4110" - "i4111")) + #("i4180" + "i4181" + "i4182" + "i4183" + "i4184")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4093"))) + #("i4166"))) (hygiene guile)) (cons '() - (cons #{e1\ 4115}# - #{e2\ 4116}#))) - ((lambda (#{tmp\ 4125}#) - ((lambda (#{tmp\ 4126}#) - (if #{tmp\ 4126}# - (apply (lambda (#{body\ 4129}# - #{binding\ 4130}#) + (cons #{e1\ 4188}# + #{e2\ 4189}#))) + ((lambda (#{tmp\ 4198}#) + ((lambda (#{tmp\ 4199}#) + (if #{tmp\ 4199}# + (apply (lambda (#{body\ 4202}# + #{binding\ 4203}#) (list '#(syntax-object let ((top) @@ -13276,8 +13494,8 @@ binding) #((top) (top)) - #("i4127" - "i4128")) + #("i4200" + "i4201")) #(ribcage () () @@ -13287,8 +13505,8 @@ bindings) #((top) (top)) - #("i4117" - "i4118")) + #("i4190" + "i4191")) #(ribcage #(let* x @@ -13300,11 +13518,11 @@ (top) (top) (top)) - #("i4107" - "i4108" - "i4109" - "i4110" - "i4111")) + #("i4180" + "i4181" + "i4182" + "i4183" + "i4184")) #(ribcage () () @@ -13312,57 +13530,57 @@ #(ribcage #(x) #((top)) - #("i4093"))) + #("i4166"))) (hygiene guile)) - (list #{binding\ 4130}#) - #{body\ 4129}#)) - #{tmp\ 4126}#) + (list #{binding\ 4203}#) + #{body\ 4202}#)) + #{tmp\ 4199}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4125}#))) + #{tmp\ 4198}#))) ($sc-dispatch - #{tmp\ 4125}# + #{tmp\ 4198}# '(any any)))) - (list (#{f\ 4119}# - (cdr #{bindings\ 4120}#)) - (car #{bindings\ 4120}#))))))) - (#{f\ 4119}# - (map list #{x\ 4113}# #{v\ 4114}#)))) - #{tmp\ 4095}#) + (list (#{f\ 4192}# + (cdr #{bindings\ 4193}#)) + (car #{bindings\ 4193}#))))))) + (#{f\ 4192}# + (map list #{x\ 4186}# #{v\ 4187}#)))) + #{tmp\ 4168}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4094}#))) + #{tmp\ 4167}#))) ($sc-dispatch - #{tmp\ 4094}# + #{tmp\ 4167}# '(any #(each (any any)) any . each-any)))) - #{x\ 4092}#)) + #{x\ 4165}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 4131}#) - ((lambda (#{tmp\ 4133}#) - ((lambda (#{tmp\ 4134}#) - (if #{tmp\ 4134}# - (apply (lambda (#{_\ 4142}# - #{var\ 4143}# - #{init\ 4144}# - #{step\ 4145}# - #{e0\ 4146}# - #{e1\ 4147}# - #{c\ 4148}#) - ((lambda (#{tmp\ 4150}#) - ((lambda (#{tmp\ 4151}#) - (if #{tmp\ 4151}# - (apply (lambda (#{step\ 4153}#) - ((lambda (#{tmp\ 4154}#) - ((lambda (#{tmp\ 4155}#) - (if #{tmp\ 4155}# + (cons (lambda (#{orig-x\ 4204}#) + ((lambda (#{tmp\ 4206}#) + ((lambda (#{tmp\ 4207}#) + (if #{tmp\ 4207}# + (apply (lambda (#{_\ 4215}# + #{var\ 4216}# + #{init\ 4217}# + #{step\ 4218}# + #{e0\ 4219}# + #{e1\ 4220}# + #{c\ 4221}#) + ((lambda (#{tmp\ 4223}#) + ((lambda (#{tmp\ 4224}#) + (if #{tmp\ 4224}# + (apply (lambda (#{step\ 4226}#) + ((lambda (#{tmp\ 4227}#) + ((lambda (#{tmp\ 4228}#) + (if #{tmp\ 4228}# (apply (lambda () (list '#(syntax-object let @@ -13370,7 +13588,7 @@ #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13386,13 +13604,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13400,7 +13618,7 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) '#(syntax-object @@ -13409,7 +13627,7 @@ #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13425,13 +13643,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13439,19 +13657,19 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) (map list - #{var\ 4143}# - #{init\ 4144}#) + #{var\ 4216}# + #{init\ 4217}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13467,13 +13685,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13481,7 +13699,7 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) (list '#(syntax-object @@ -13490,7 +13708,7 @@ #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13506,13 +13724,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13520,17 +13738,17 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) - #{e0\ 4146}#) + #{e0\ 4219}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13546,13 +13764,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13560,18 +13778,18 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) (append - #{c\ 4148}# + #{c\ 4221}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13587,13 +13805,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13601,15 +13819,15 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) - #{step\ 4153}#))))))) - #{tmp\ 4155}#) - ((lambda (#{tmp\ 4160}#) - (if #{tmp\ 4160}# - (apply (lambda (#{e1\ 4163}# - #{e2\ 4164}#) + #{step\ 4226}#))))))) + #{tmp\ 4228}#) + ((lambda (#{tmp\ 4233}#) + (if #{tmp\ 4233}# + (apply (lambda (#{e1\ 4236}# + #{e2\ 4237}#) (list '#(syntax-object let ((top) @@ -13618,12 +13836,12 @@ e2) #((top) (top)) - #("i4161" - "i4162")) + #("i4234" + "i4235")) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13639,13 +13857,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13653,7 +13871,7 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) '#(syntax-object @@ -13664,12 +13882,12 @@ e2) #((top) (top)) - #("i4161" - "i4162")) + #("i4234" + "i4235")) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13685,13 +13903,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13699,12 +13917,12 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) (map list - #{var\ 4143}# - #{init\ 4144}#) + #{var\ 4216}# + #{init\ 4217}#) (list '#(syntax-object if ((top) @@ -13713,12 +13931,12 @@ e2) #((top) (top)) - #("i4161" - "i4162")) + #("i4234" + "i4235")) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13734,13 +13952,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13748,10 +13966,10 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) - #{e0\ 4146}# + #{e0\ 4219}# (cons '#(syntax-object begin ((top) @@ -13760,12 +13978,12 @@ e2) #((top) (top)) - #("i4161" - "i4162")) + #("i4234" + "i4235")) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13781,13 +13999,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13795,11 +14013,11 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) - (cons #{e1\ 4163}# - #{e2\ 4164}#)) + (cons #{e1\ 4236}# + #{e2\ 4237}#)) (cons '#(syntax-object begin ((top) @@ -13808,12 +14026,12 @@ e2) #((top) (top)) - #("i4161" - "i4162")) + #("i4234" + "i4235")) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13829,13 +14047,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13843,11 +14061,11 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) (append - #{c\ 4148}# + #{c\ 4221}# (list (cons '#(syntax-object doloop ((top) @@ -13856,12 +14074,12 @@ e2) #((top) (top)) - #("i4161" - "i4162")) + #("i4234" + "i4235")) #(ribcage #(step) #((top)) - #("i4152")) + #("i4225")) #(ribcage #(_ var @@ -13877,13 +14095,13 @@ (top) (top) (top)) - #("i4135" - "i4136" - "i4137" - "i4138" - "i4139" - "i4140" - "i4141")) + #("i4208" + "i4209" + "i4210" + "i4211" + "i4212" + "i4213" + "i4214")) #(ribcage () () @@ -13891,107 +14109,107 @@ #(ribcage #(orig-x) #((top)) - #("i4132"))) + #("i4205"))) (hygiene guile)) - #{step\ 4153}#))))))) - #{tmp\ 4160}#) + #{step\ 4226}#))))))) + #{tmp\ 4233}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4154}#))) + #{tmp\ 4227}#))) ($sc-dispatch - #{tmp\ 4154}# + #{tmp\ 4227}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4154}# + #{tmp\ 4227}# '()))) - #{e1\ 4147}#)) - #{tmp\ 4151}#) + #{e1\ 4220}#)) + #{tmp\ 4224}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4150}#))) + #{tmp\ 4223}#))) ($sc-dispatch - #{tmp\ 4150}# + #{tmp\ 4223}# 'each-any))) - (map (lambda (#{v\ 4171}# #{s\ 4172}#) - ((lambda (#{tmp\ 4175}#) - ((lambda (#{tmp\ 4176}#) - (if #{tmp\ 4176}# - (apply (lambda () #{v\ 4171}#) - #{tmp\ 4176}#) - ((lambda (#{tmp\ 4177}#) - (if #{tmp\ 4177}# - (apply (lambda (#{e\ 4179}#) - #{e\ 4179}#) - #{tmp\ 4177}#) - ((lambda (#{_\ 4181}#) + (map (lambda (#{v\ 4244}# #{s\ 4245}#) + ((lambda (#{tmp\ 4248}#) + ((lambda (#{tmp\ 4249}#) + (if #{tmp\ 4249}# + (apply (lambda () #{v\ 4244}#) + #{tmp\ 4249}#) + ((lambda (#{tmp\ 4250}#) + (if #{tmp\ 4250}# + (apply (lambda (#{e\ 4252}#) + #{e\ 4252}#) + #{tmp\ 4250}#) + ((lambda (#{_\ 4254}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4131}# - #{s\ 4172}#)) - #{tmp\ 4175}#))) + #{orig-x\ 4204}# + #{s\ 4245}#)) + #{tmp\ 4248}#))) ($sc-dispatch - #{tmp\ 4175}# + #{tmp\ 4248}# '(any))))) ($sc-dispatch - #{tmp\ 4175}# + #{tmp\ 4248}# '()))) - #{s\ 4172}#)) - #{var\ 4143}# - #{step\ 4145}#))) - #{tmp\ 4134}#) + #{s\ 4245}#)) + #{var\ 4216}# + #{step\ 4218}#))) + #{tmp\ 4207}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4133}#))) + #{tmp\ 4206}#))) ($sc-dispatch - #{tmp\ 4133}# + #{tmp\ 4206}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4131}#)) + #{orig-x\ 4204}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4188}# - (lambda (#{x\ 4192}# #{y\ 4193}#) - ((lambda (#{tmp\ 4197}#) - ((lambda (#{tmp\ 4198}#) - (if #{tmp\ 4198}# - (apply (lambda (#{x\ 4201}# #{y\ 4202}#) - ((lambda (#{tmp\ 4203}#) - ((lambda (#{tmp\ 4204}#) - (if #{tmp\ 4204}# - (apply (lambda (#{dy\ 4206}#) - ((lambda (#{tmp\ 4207}#) - ((lambda (#{tmp\ 4208}#) - (if #{tmp\ 4208}# - (apply (lambda (#{dx\ 4210}#) + (cons (letrec ((#{quasicons\ 4261}# + (lambda (#{x\ 4265}# #{y\ 4266}#) + ((lambda (#{tmp\ 4270}#) + ((lambda (#{tmp\ 4271}#) + (if #{tmp\ 4271}# + (apply (lambda (#{x\ 4274}# #{y\ 4275}#) + ((lambda (#{tmp\ 4276}#) + ((lambda (#{tmp\ 4277}#) + (if #{tmp\ 4277}# + (apply (lambda (#{dy\ 4279}#) + ((lambda (#{tmp\ 4280}#) + ((lambda (#{tmp\ 4281}#) + (if #{tmp\ 4281}# + (apply (lambda (#{dx\ 4283}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4209")) + #("i4282")) #(ribcage #(dy) #((top)) - #("i4205")) + #("i4278")) #(ribcage #(x y) #((top) (top)) - #("i4199" - "i4200")) + #("i4272" + "i4273")) #(ribcage () () @@ -14005,8 +14223,8 @@ y) #((top) (top)) - #("i4194" - "i4195")) + #("i4267" + "i4268")) #(ribcage #(quasicons quasiappend @@ -14016,35 +14234,35 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - (cons #{dx\ 4210}# - #{dy\ 4206}#))) - #{tmp\ 4208}#) - ((lambda (#{_\ 4212}#) - (if (null? #{dy\ 4206}#) + (cons #{dx\ 4283}# + #{dy\ 4279}#))) + #{tmp\ 4281}#) + ((lambda (#{_\ 4285}#) + (if (null? #{dy\ 4279}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4211")) + #("i4284")) #(ribcage #(dy) #((top)) - #("i4205")) + #("i4278")) #(ribcage #(x y) #((top) (top)) - #("i4199" - "i4200")) + #("i4272" + "i4273")) #(ribcage () () @@ -14058,8 +14276,8 @@ y) #((top) (top)) - #("i4194" - "i4195")) + #("i4267" + "i4268")) #(ribcage #(quasicons quasiappend @@ -14069,31 +14287,31 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{x\ 4201}#) + #{x\ 4274}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4211")) + #("i4284")) #(ribcage #(dy) #((top)) - #("i4205")) + #("i4278")) #(ribcage #(x y) #((top) (top)) - #("i4199" - "i4200")) + #("i4272" + "i4273")) #(ribcage () () @@ -14107,8 +14325,8 @@ y) #((top) (top)) - #("i4194" - "i4195")) + #("i4267" + "i4268")) #(ribcage #(quasicons quasiappend @@ -14118,17 +14336,17 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{x\ 4201}# - #{y\ 4202}#))) - #{tmp\ 4207}#))) + #{x\ 4274}# + #{y\ 4275}#))) + #{tmp\ 4280}#))) ($sc-dispatch - #{tmp\ 4207}# + #{tmp\ 4280}# '(#(free-id #(syntax-object quote @@ -14136,13 +14354,13 @@ #(ribcage #(dy) #((top)) - #("i4205")) + #("i4278")) #(ribcage #(x y) #((top) (top)) - #("i4199" - "i4200")) + #("i4272" + "i4273")) #(ribcage () () @@ -14155,8 +14373,8 @@ #(x y) #((top) (top)) - #("i4194" - "i4195")) + #("i4267" + "i4268")) #(ribcage #(quasicons quasiappend @@ -14166,32 +14384,32 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) any)))) - #{x\ 4201}#)) - #{tmp\ 4204}#) - ((lambda (#{tmp\ 4213}#) - (if #{tmp\ 4213}# - (apply (lambda (#{stuff\ 4215}#) + #{x\ 4274}#)) + #{tmp\ 4277}#) + ((lambda (#{tmp\ 4286}#) + (if #{tmp\ 4286}# + (apply (lambda (#{stuff\ 4288}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4214")) + #("i4287")) #(ribcage #(x y) #((top) (top)) - #("i4199" - "i4200")) + #("i4272" + "i4273")) #(ribcage () () @@ -14205,8 +14423,8 @@ y) #((top) (top)) - #("i4194" - "i4195")) + #("i4267" + "i4268")) #(ribcage #(quasicons quasiappend @@ -14216,29 +14434,29 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - (cons #{x\ 4201}# - #{stuff\ 4215}#))) - #{tmp\ 4213}#) - ((lambda (#{else\ 4217}#) + (cons #{x\ 4274}# + #{stuff\ 4288}#))) + #{tmp\ 4286}#) + ((lambda (#{else\ 4290}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4216")) + #("i4289")) #(ribcage #(x y) #((top) (top)) - #("i4199" - "i4200")) + #("i4272" + "i4273")) #(ribcage () () @@ -14251,8 +14469,8 @@ #(x y) #((top) (top)) - #("i4194" - "i4195")) + #("i4267" + "i4268")) #(ribcage #(quasicons quasiappend @@ -14262,17 +14480,17 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{x\ 4201}# - #{y\ 4202}#)) - #{tmp\ 4203}#))) + #{x\ 4274}# + #{y\ 4275}#)) + #{tmp\ 4276}#))) ($sc-dispatch - #{tmp\ 4203}# + #{tmp\ 4276}# '(#(free-id #(syntax-object list @@ -14280,13 +14498,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4199" "i4200")) + #("i4272" "i4273")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4194" "i4195")) + #("i4267" "i4268")) #(ribcage #(quasicons quasiappend @@ -14296,15 +14514,15 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4203}# + #{tmp\ 4276}# '(#(free-id #(syntax-object quote @@ -14312,13 +14530,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4199" "i4200")) + #("i4272" "i4273")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4194" "i4195")) + #("i4267" "i4268")) #(ribcage #(quasicons quasiappend @@ -14328,44 +14546,44 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) any)))) - #{y\ 4202}#)) - #{tmp\ 4198}#) + #{y\ 4275}#)) + #{tmp\ 4271}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4197}#))) - ($sc-dispatch #{tmp\ 4197}# (quote (any any))))) - (list #{x\ 4192}# #{y\ 4193}#)))) - (#{quasiappend\ 4189}# - (lambda (#{x\ 4218}# #{y\ 4219}#) - ((lambda (#{tmp\ 4223}#) - ((lambda (#{tmp\ 4224}#) - (if #{tmp\ 4224}# - (apply (lambda (#{x\ 4227}# #{y\ 4228}#) - ((lambda (#{tmp\ 4229}#) - ((lambda (#{tmp\ 4230}#) - (if #{tmp\ 4230}# - (apply (lambda () #{x\ 4227}#) - #{tmp\ 4230}#) - ((lambda (#{_\ 4232}#) + #{tmp\ 4270}#))) + ($sc-dispatch #{tmp\ 4270}# (quote (any any))))) + (list #{x\ 4265}# #{y\ 4266}#)))) + (#{quasiappend\ 4262}# + (lambda (#{x\ 4291}# #{y\ 4292}#) + ((lambda (#{tmp\ 4296}#) + ((lambda (#{tmp\ 4297}#) + (if #{tmp\ 4297}# + (apply (lambda (#{x\ 4300}# #{y\ 4301}#) + ((lambda (#{tmp\ 4302}#) + ((lambda (#{tmp\ 4303}#) + (if #{tmp\ 4303}# + (apply (lambda () #{x\ 4300}#) + #{tmp\ 4303}#) + ((lambda (#{_\ 4305}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4231")) + #("i4304")) #(ribcage #(x y) #((top) (top)) - #("i4225" - "i4226")) + #("i4298" + "i4299")) #(ribcage () () @@ -14377,8 +14595,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4220" - "i4221")) + #("i4293" + "i4294")) #(ribcage #(quasicons quasiappend @@ -14388,16 +14606,16 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{x\ 4227}# - #{y\ 4228}#)) - #{tmp\ 4229}#))) + #{x\ 4300}# + #{y\ 4301}#)) + #{tmp\ 4302}#))) ($sc-dispatch - #{tmp\ 4229}# + #{tmp\ 4302}# '(#(free-id #(syntax-object quote @@ -14405,13 +14623,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4225" "i4226")) + #("i4298" "i4299")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4220" "i4221")) + #("i4293" "i4294")) #(ribcage #(quasicons quasiappend @@ -14421,45 +14639,45 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) ())))) - #{y\ 4228}#)) - #{tmp\ 4224}#) + #{y\ 4301}#)) + #{tmp\ 4297}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4223}#))) - ($sc-dispatch #{tmp\ 4223}# (quote (any any))))) - (list #{x\ 4218}# #{y\ 4219}#)))) - (#{quasivector\ 4190}# - (lambda (#{x\ 4233}#) - ((lambda (#{tmp\ 4236}#) - ((lambda (#{x\ 4238}#) - ((lambda (#{tmp\ 4239}#) - ((lambda (#{tmp\ 4240}#) - (if #{tmp\ 4240}# - (apply (lambda (#{x\ 4242}#) + #{tmp\ 4296}#))) + ($sc-dispatch #{tmp\ 4296}# (quote (any any))))) + (list #{x\ 4291}# #{y\ 4292}#)))) + (#{quasivector\ 4263}# + (lambda (#{x\ 4306}#) + ((lambda (#{tmp\ 4309}#) + ((lambda (#{x\ 4311}#) + ((lambda (#{tmp\ 4312}#) + ((lambda (#{tmp\ 4313}#) + (if #{tmp\ 4313}# + (apply (lambda (#{x\ 4315}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4241")) + #("i4314")) #(ribcage #(x) #((top)) - #("i4237")) + #("i4310")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4234")) + #("i4307")) #(ribcage #(quasicons quasiappend @@ -14469,28 +14687,28 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) (list->vector - #{x\ 4242}#))) - #{tmp\ 4240}#) - ((lambda (#{tmp\ 4244}#) - (if #{tmp\ 4244}# - (apply (lambda (#{x\ 4246}#) + #{x\ 4315}#))) + #{tmp\ 4313}#) + ((lambda (#{tmp\ 4317}#) + (if #{tmp\ 4317}# + (apply (lambda (#{x\ 4319}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4245")) + #("i4318")) #(ribcage #(x) #((top)) - #("i4237")) + #("i4310")) #(ribcage () () @@ -14502,7 +14720,7 @@ #(ribcage #(x) #((top)) - #("i4234")) + #("i4307")) #(ribcage #(quasicons quasiappend @@ -14512,31 +14730,31 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{x\ 4246}#)) - #{tmp\ 4244}#) - ((lambda (#{_\ 4249}#) + #{x\ 4319}#)) + #{tmp\ 4317}#) + ((lambda (#{_\ 4322}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4248")) + #("i4321")) #(ribcage #(x) #((top)) - #("i4237")) + #("i4310")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4234")) + #("i4307")) #(ribcage #(quasicons quasiappend @@ -14546,15 +14764,15 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{x\ 4238}#)) - #{tmp\ 4239}#))) + #{x\ 4311}#)) + #{tmp\ 4312}#))) ($sc-dispatch - #{tmp\ 4239}# + #{tmp\ 4312}# '(#(free-id #(syntax-object list @@ -14562,82 +14780,82 @@ #(ribcage #(x) #((top)) - #("i4237")) + #("i4310")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4234")) + #("i4307")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4239}# + #{tmp\ 4312}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4237")) + #(ribcage #(x) #((top)) #("i4310")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4234")) + #(ribcage #(x) #((top)) #("i4307")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) each-any)))) - #{x\ 4238}#)) - #{tmp\ 4236}#)) - #{x\ 4233}#))) - (#{quasi\ 4191}# - (lambda (#{p\ 4250}# #{lev\ 4251}#) - ((lambda (#{tmp\ 4254}#) - ((lambda (#{tmp\ 4255}#) - (if #{tmp\ 4255}# - (apply (lambda (#{p\ 4257}#) - (if (= #{lev\ 4251}# 0) - #{p\ 4257}# - (#{quasicons\ 4188}# + #{x\ 4311}#)) + #{tmp\ 4309}#)) + #{x\ 4306}#))) + (#{quasi\ 4264}# + (lambda (#{p\ 4323}# #{lev\ 4324}#) + ((lambda (#{tmp\ 4327}#) + ((lambda (#{tmp\ 4328}#) + (if #{tmp\ 4328}# + (apply (lambda (#{p\ 4330}#) + (if (= #{lev\ 4324}# 0) + #{p\ 4330}# + (#{quasicons\ 4261}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4256")) + #("i4329")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) #(syntax-object unquote @@ -14645,50 +14863,50 @@ #(ribcage #(p) #((top)) - #("i4256")) + #("i4329")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) - (#{quasi\ 4191}# - (list #{p\ 4257}#) - (- #{lev\ 4251}# 1))))) - #{tmp\ 4255}#) - ((lambda (#{tmp\ 4258}#) - (if (if #{tmp\ 4258}# - (apply (lambda (#{args\ 4260}#) - (= #{lev\ 4251}# 0)) - #{tmp\ 4258}#) + (#{quasi\ 4264}# + (list #{p\ 4330}#) + (- #{lev\ 4324}# 1))))) + #{tmp\ 4328}#) + ((lambda (#{tmp\ 4331}#) + (if (if #{tmp\ 4331}# + (apply (lambda (#{args\ 4333}#) + (= #{lev\ 4324}# 0)) + #{tmp\ 4331}#) #f) - (apply (lambda (#{args\ 4262}#) + (apply (lambda (#{args\ 4335}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4250}# + #{p\ 4323}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4261")) + #("i4334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend @@ -14698,33 +14916,33 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{args\ 4262}#))) - #{tmp\ 4258}#) - ((lambda (#{tmp\ 4263}#) - (if #{tmp\ 4263}# - (apply (lambda (#{p\ 4266}# - #{q\ 4267}#) - (if (= #{lev\ 4251}# 0) - (#{quasiappend\ 4189}# - #{p\ 4266}# - (#{quasi\ 4191}# - #{q\ 4267}# - #{lev\ 4251}#)) - (#{quasicons\ 4188}# - (#{quasicons\ 4188}# + #{args\ 4335}#))) + #{tmp\ 4331}#) + ((lambda (#{tmp\ 4336}#) + (if #{tmp\ 4336}# + (apply (lambda (#{p\ 4339}# + #{q\ 4340}#) + (if (= #{lev\ 4324}# 0) + (#{quasiappend\ 4262}# + #{p\ 4339}# + (#{quasi\ 4264}# + #{q\ 4340}# + #{lev\ 4324}#)) + (#{quasicons\ 4261}# + (#{quasicons\ 4261}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4264" - "i4265")) + #("i4337" + "i4338")) #(ribcage () () @@ -14732,8 +14950,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" - "i4253")) + #("i4325" + "i4326")) #(ribcage #(quasicons quasiappend @@ -14743,10 +14961,10 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14754,8 +14972,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4264" - "i4265")) + #("i4337" + "i4338")) #(ribcage () () @@ -14763,8 +14981,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" - "i4253")) + #("i4325" + "i4326")) #(ribcage #(quasicons quasiappend @@ -14774,31 +14992,31 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) - (#{quasi\ 4191}# - (list #{p\ 4266}#) - (- #{lev\ 4251}# 1))) - (#{quasi\ 4191}# - #{q\ 4267}# - #{lev\ 4251}#)))) - #{tmp\ 4263}#) - ((lambda (#{tmp\ 4268}#) - (if (if #{tmp\ 4268}# - (apply (lambda (#{args\ 4271}# - #{q\ 4272}#) - (= #{lev\ 4251}# 0)) - #{tmp\ 4268}#) + (#{quasi\ 4264}# + (list #{p\ 4339}#) + (- #{lev\ 4324}# 1))) + (#{quasi\ 4264}# + #{q\ 4340}# + #{lev\ 4324}#)))) + #{tmp\ 4336}#) + ((lambda (#{tmp\ 4341}#) + (if (if #{tmp\ 4341}# + (apply (lambda (#{args\ 4344}# + #{q\ 4345}#) + (= #{lev\ 4324}# 0)) + #{tmp\ 4341}#) #f) - (apply (lambda (#{args\ 4275}# - #{q\ 4276}#) + (apply (lambda (#{args\ 4348}# + #{q\ 4349}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4250}# + #{p\ 4323}# (cons '#(syntax-object unquote-splicing ((top) @@ -14806,8 +15024,8 @@ #(args q) #((top) (top)) - #("i4273" - "i4274")) + #("i4346" + "i4347")) #(ribcage () () @@ -14816,8 +15034,8 @@ #(p lev) #((top) (top)) - #("i4252" - "i4253")) + #("i4325" + "i4326")) #(ribcage #(quasicons quasiappend @@ -14827,25 +15045,25 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{args\ 4275}#))) - #{tmp\ 4268}#) - ((lambda (#{tmp\ 4277}#) - (if #{tmp\ 4277}# - (apply (lambda (#{p\ 4279}#) - (#{quasicons\ 4188}# + #{args\ 4348}#))) + #{tmp\ 4341}#) + ((lambda (#{tmp\ 4350}#) + (if #{tmp\ 4350}# + (apply (lambda (#{p\ 4352}#) + (#{quasicons\ 4261}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4278")) + #("i4351")) #(ribcage () () @@ -14854,8 +15072,8 @@ #(p lev) #((top) (top)) - #("i4252" - "i4253")) + #("i4325" + "i4326")) #(ribcage #(quasicons quasiappend @@ -14865,10 +15083,10 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) #(syntax-object @@ -14877,7 +15095,7 @@ #(ribcage #(p) #((top)) - #("i4278")) + #("i4351")) #(ribcage () () @@ -14886,8 +15104,8 @@ #(p lev) #((top) (top)) - #("i4252" - "i4253")) + #("i4325" + "i4326")) #(ribcage #(quasicons quasiappend @@ -14897,45 +15115,45 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) - (#{quasi\ 4191}# - (list #{p\ 4279}#) - (+ #{lev\ 4251}# + (#{quasi\ 4264}# + (list #{p\ 4352}#) + (+ #{lev\ 4324}# 1)))) - #{tmp\ 4277}#) - ((lambda (#{tmp\ 4280}#) - (if #{tmp\ 4280}# - (apply (lambda (#{p\ 4283}# - #{q\ 4284}#) - (#{quasicons\ 4188}# - (#{quasi\ 4191}# - #{p\ 4283}# - #{lev\ 4251}#) - (#{quasi\ 4191}# - #{q\ 4284}# - #{lev\ 4251}#))) - #{tmp\ 4280}#) - ((lambda (#{tmp\ 4285}#) - (if #{tmp\ 4285}# - (apply (lambda (#{x\ 4287}#) - (#{quasivector\ 4190}# - (#{quasi\ 4191}# - #{x\ 4287}# - #{lev\ 4251}#))) - #{tmp\ 4285}#) - ((lambda (#{p\ 4290}#) + #{tmp\ 4350}#) + ((lambda (#{tmp\ 4353}#) + (if #{tmp\ 4353}# + (apply (lambda (#{p\ 4356}# + #{q\ 4357}#) + (#{quasicons\ 4261}# + (#{quasi\ 4264}# + #{p\ 4356}# + #{lev\ 4324}#) + (#{quasi\ 4264}# + #{q\ 4357}# + #{lev\ 4324}#))) + #{tmp\ 4353}#) + ((lambda (#{tmp\ 4358}#) + (if #{tmp\ 4358}# + (apply (lambda (#{x\ 4360}#) + (#{quasivector\ 4263}# + (#{quasi\ 4264}# + #{x\ 4360}# + #{lev\ 4324}#))) + #{tmp\ 4358}#) + ((lambda (#{p\ 4363}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4289")) + #("i4362")) #(ribcage () () @@ -14945,8 +15163,8 @@ lev) #((top) (top)) - #("i4252" - "i4253")) + #("i4325" + "i4326")) #(ribcage #(quasicons quasiappend @@ -14956,23 +15174,23 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile)) - #{p\ 4290}#)) - #{tmp\ 4254}#))) + #{p\ 4363}#)) + #{tmp\ 4327}#))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '(any . any))))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '(#(free-id #(syntax-object quasiquote @@ -14981,7 +15199,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend @@ -14991,14 +15209,14 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '((#(free-id #(syntax-object unquote-splicing @@ -15007,7 +15225,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend @@ -15017,17 +15235,17 @@ (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '((#(free-id #(syntax-object unquote-splicing @@ -15036,23 +15254,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" - "i4185" - "i4186" - "i4187"))) + #("i4257" + "i4258" + "i4259" + "i4260"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '(#(free-id #(syntax-object unquote @@ -15061,19 +15279,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" "i4185" "i4186" "i4187"))) + #("i4257" "i4258" "i4259" "i4260"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4254}# + #{tmp\ 4327}# '(#(free-id #(syntax-object unquote @@ -15082,244 +15300,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i4252" "i4253")) + #("i4325" "i4326")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4184" "i4185" "i4186" "i4187"))) + #("i4257" "i4258" "i4259" "i4260"))) (hygiene guile))) any)))) - #{p\ 4250}#)))) - (lambda (#{x\ 4291}#) - ((lambda (#{tmp\ 4293}#) - ((lambda (#{tmp\ 4294}#) - (if #{tmp\ 4294}# - (apply (lambda (#{_\ 4297}# #{e\ 4298}#) - (#{quasi\ 4191}# #{e\ 4298}# 0)) - #{tmp\ 4294}#) + #{p\ 4323}#)))) + (lambda (#{x\ 4364}#) + ((lambda (#{tmp\ 4366}#) + ((lambda (#{tmp\ 4367}#) + (if #{tmp\ 4367}# + (apply (lambda (#{_\ 4370}# #{e\ 4371}#) + (#{quasi\ 4264}# #{e\ 4371}# 0)) + #{tmp\ 4367}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4293}#))) - ($sc-dispatch #{tmp\ 4293}# (quote (any any))))) - #{x\ 4291}#))) + #{tmp\ 4366}#))) + ($sc-dispatch #{tmp\ 4366}# (quote (any any))))) + #{x\ 4364}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 4299}#) - (letrec ((#{read-file\ 4302}# - (lambda (#{fn\ 4303}# #{k\ 4304}#) - (let ((#{p\ 4308}# (open-input-file #{fn\ 4303}#))) - (letrec ((#{f\ 4312}# - (lambda (#{x\ 4313}# #{result\ 4314}#) - (if (eof-object? #{x\ 4313}#) + (cons (lambda (#{x\ 4372}#) + (letrec ((#{read-file\ 4375}# + (lambda (#{fn\ 4376}# #{k\ 4377}#) + (let ((#{p\ 4381}# (open-input-file #{fn\ 4376}#))) + (letrec ((#{f\ 4385}# + (lambda (#{x\ 4386}# #{result\ 4387}#) + (if (eof-object? #{x\ 4386}#) (begin - (close-input-port #{p\ 4308}#) - (reverse #{result\ 4314}#)) - (#{f\ 4312}# - (read #{p\ 4308}#) + (close-input-port #{p\ 4381}#) + (reverse #{result\ 4387}#)) + (#{f\ 4385}# + (read #{p\ 4381}#) (cons (datum->syntax - #{k\ 4304}# - #{x\ 4313}#) - #{result\ 4314}#)))))) - (#{f\ 4312}# (read #{p\ 4308}#) (quote ()))))))) - ((lambda (#{tmp\ 4315}#) - ((lambda (#{tmp\ 4316}#) - (if #{tmp\ 4316}# - (apply (lambda (#{k\ 4319}# #{filename\ 4320}#) - (let ((#{fn\ 4322}# - (syntax->datum #{filename\ 4320}#))) - ((lambda (#{tmp\ 4324}#) - ((lambda (#{tmp\ 4325}#) - (if #{tmp\ 4325}# - (apply (lambda (#{exp\ 4327}#) + #{k\ 4377}# + #{x\ 4386}#) + #{result\ 4387}#)))))) + (#{f\ 4385}# (read #{p\ 4381}#) (quote ()))))))) + ((lambda (#{tmp\ 4388}#) + ((lambda (#{tmp\ 4389}#) + (if #{tmp\ 4389}# + (apply (lambda (#{k\ 4392}# #{filename\ 4393}#) + (let ((#{fn\ 4395}# + (syntax->datum #{filename\ 4393}#))) + ((lambda (#{tmp\ 4397}#) + ((lambda (#{tmp\ 4398}#) + (if #{tmp\ 4398}# + (apply (lambda (#{exp\ 4400}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4326")) + #("i4399")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4321")) + #("i4394")) #(ribcage #(k filename) #((top) (top)) - #("i4317" - "i4318")) + #("i4390" + "i4391")) #(ribcage (read-file) ((top)) - ("i4301")) + ("i4374")) #(ribcage #(x) #((top)) - #("i4300"))) + #("i4373"))) (hygiene guile)) - #{exp\ 4327}#)) - #{tmp\ 4325}#) + #{exp\ 4400}#)) + #{tmp\ 4398}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4324}#))) + #{tmp\ 4397}#))) ($sc-dispatch - #{tmp\ 4324}# + #{tmp\ 4397}# 'each-any))) - (#{read-file\ 4302}# - #{fn\ 4322}# - #{k\ 4319}#)))) - #{tmp\ 4316}#) + (#{read-file\ 4375}# + #{fn\ 4395}# + #{k\ 4392}#)))) + #{tmp\ 4389}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4315}#))) - ($sc-dispatch #{tmp\ 4315}# (quote (any any))))) - #{x\ 4299}#))) + #{tmp\ 4388}#))) + ($sc-dispatch #{tmp\ 4388}# (quote (any any))))) + #{x\ 4372}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 4329}#) - ((lambda (#{tmp\ 4331}#) - ((lambda (#{tmp\ 4332}#) - (if #{tmp\ 4332}# - (apply (lambda (#{k\ 4335}# #{filename\ 4336}#) - (let ((#{fn\ 4338}# - (syntax->datum #{filename\ 4336}#))) - ((lambda (#{tmp\ 4340}#) - ((lambda (#{fn\ 4342}#) + (cons (lambda (#{x\ 4402}#) + ((lambda (#{tmp\ 4404}#) + ((lambda (#{tmp\ 4405}#) + (if #{tmp\ 4405}# + (apply (lambda (#{k\ 4408}# #{filename\ 4409}#) + (let ((#{fn\ 4411}# + (syntax->datum #{filename\ 4409}#))) + ((lambda (#{tmp\ 4413}#) + ((lambda (#{fn\ 4415}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4341")) + #("i4414")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4337")) + #("i4410")) #(ribcage #(k filename) #((top) (top)) - #("i4333" "i4334")) + #("i4406" "i4407")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4330"))) + #("i4403"))) (hygiene guile)) - #{fn\ 4342}#)) - #{tmp\ 4340}#)) - (let ((#{t\ 4345}# - (%search-load-path #{fn\ 4338}#))) - (if #{t\ 4345}# - #{t\ 4345}# + #{fn\ 4415}#)) + #{tmp\ 4413}#)) + (let ((#{t\ 4418}# + (%search-load-path #{fn\ 4411}#))) + (if #{t\ 4418}# + #{t\ 4418}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4329}# - #{filename\ 4336}#)))))) - #{tmp\ 4332}#) + #{x\ 4402}# + #{filename\ 4409}#)))))) + #{tmp\ 4405}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4331}#))) - ($sc-dispatch #{tmp\ 4331}# (quote (any any))))) - #{x\ 4329}#)) + #{tmp\ 4404}#))) + ($sc-dispatch #{tmp\ 4404}# (quote (any any))))) + #{x\ 4402}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 4347}#) - ((lambda (#{tmp\ 4349}#) - ((lambda (#{tmp\ 4350}#) - (if #{tmp\ 4350}# - (apply (lambda (#{_\ 4353}# #{e\ 4354}#) + (cons (lambda (#{x\ 4420}#) + ((lambda (#{tmp\ 4422}#) + ((lambda (#{tmp\ 4423}#) + (if #{tmp\ 4423}# + (apply (lambda (#{_\ 4426}# #{e\ 4427}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4347}#)) - #{tmp\ 4350}#) + #{x\ 4420}#)) + #{tmp\ 4423}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4349}#))) - ($sc-dispatch #{tmp\ 4349}# (quote (any any))))) - #{x\ 4347}#)) + #{tmp\ 4422}#))) + ($sc-dispatch #{tmp\ 4422}# (quote (any any))))) + #{x\ 4420}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 4355}#) - ((lambda (#{tmp\ 4357}#) - ((lambda (#{tmp\ 4358}#) - (if #{tmp\ 4358}# - (apply (lambda (#{_\ 4361}# #{e\ 4362}#) + (cons (lambda (#{x\ 4428}#) + ((lambda (#{tmp\ 4430}#) + ((lambda (#{tmp\ 4431}#) + (if #{tmp\ 4431}# + (apply (lambda (#{_\ 4434}# #{e\ 4435}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4355}#)) - #{tmp\ 4358}#) + #{x\ 4428}#)) + #{tmp\ 4431}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4357}#))) - ($sc-dispatch #{tmp\ 4357}# (quote (any any))))) - #{x\ 4355}#)) + #{tmp\ 4430}#))) + ($sc-dispatch #{tmp\ 4430}# (quote (any any))))) + #{x\ 4428}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 4363}#) - ((lambda (#{tmp\ 4365}#) - ((lambda (#{tmp\ 4366}#) - (if #{tmp\ 4366}# - (apply (lambda (#{_\ 4371}# - #{e\ 4372}# - #{m1\ 4373}# - #{m2\ 4374}#) - ((lambda (#{tmp\ 4376}#) - ((lambda (#{body\ 4378}#) + (cons (lambda (#{x\ 4436}#) + ((lambda (#{tmp\ 4438}#) + ((lambda (#{tmp\ 4439}#) + (if #{tmp\ 4439}# + (apply (lambda (#{_\ 4444}# + #{e\ 4445}# + #{m1\ 4446}# + #{m2\ 4447}#) + ((lambda (#{tmp\ 4449}#) + ((lambda (#{body\ 4451}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4377")) + #("i4450")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) (list (list '#(syntax-object t @@ -15327,35 +15545,35 @@ #(ribcage #(body) #((top)) - #("i4377")) + #("i4450")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) - #{e\ 4372}#)) - #{body\ 4378}#)) - #{tmp\ 4376}#)) - (letrec ((#{f\ 4382}# - (lambda (#{clause\ 4383}# - #{clauses\ 4384}#) - (if (null? #{clauses\ 4384}#) - ((lambda (#{tmp\ 4386}#) - ((lambda (#{tmp\ 4387}#) - (if #{tmp\ 4387}# - (apply (lambda (#{e1\ 4390}# - #{e2\ 4391}#) + #{e\ 4445}#)) + #{body\ 4451}#)) + #{tmp\ 4449}#)) + (letrec ((#{f\ 4455}# + (lambda (#{clause\ 4456}# + #{clauses\ 4457}#) + (if (null? #{clauses\ 4457}#) + ((lambda (#{tmp\ 4459}#) + ((lambda (#{tmp\ 4460}#) + (if #{tmp\ 4460}# + (apply (lambda (#{e1\ 4463}# + #{e2\ 4464}#) (cons '#(syntax-object begin ((top) @@ -15364,8 +15582,8 @@ e2) #((top) (top)) - #("i4388" - "i4389")) + #("i4461" + "i4462")) #(ribcage () () @@ -15377,9 +15595,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15389,10 +15607,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15400,17 +15618,17 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) - (cons #{e1\ 4390}# - #{e2\ 4391}#))) - #{tmp\ 4387}#) - ((lambda (#{tmp\ 4393}#) - (if #{tmp\ 4393}# - (apply (lambda (#{k\ 4397}# - #{e1\ 4398}# - #{e2\ 4399}#) + (cons #{e1\ 4463}# + #{e2\ 4464}#))) + #{tmp\ 4460}#) + ((lambda (#{tmp\ 4466}#) + (if #{tmp\ 4466}# + (apply (lambda (#{k\ 4470}# + #{e1\ 4471}# + #{e2\ 4472}#) (list '#(syntax-object if ((top) @@ -15421,9 +15639,9 @@ #((top) (top) (top)) - #("i4394" - "i4395" - "i4396")) + #("i4467" + "i4468" + "i4469")) #(ribcage () () @@ -15435,9 +15653,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15447,10 +15665,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15458,7 +15676,7 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) (list '#(syntax-object @@ -15471,9 +15689,9 @@ #((top) (top) (top)) - #("i4394" - "i4395" - "i4396")) + #("i4467" + "i4468" + "i4469")) #(ribcage () () @@ -15485,9 +15703,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15497,10 +15715,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15508,7 +15726,7 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) '#(syntax-object @@ -15521,9 +15739,9 @@ #((top) (top) (top)) - #("i4394" - "i4395" - "i4396")) + #("i4467" + "i4468" + "i4469")) #(ribcage () () @@ -15535,9 +15753,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15547,10 +15765,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15558,7 +15776,7 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) (list '#(syntax-object @@ -15571,9 +15789,9 @@ #((top) (top) (top)) - #("i4394" - "i4395" - "i4396")) + #("i4467" + "i4468" + "i4469")) #(ribcage () () @@ -15585,9 +15803,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15597,10 +15815,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15608,10 +15826,10 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) - #{k\ 4397}#)) + #{k\ 4470}#)) (cons '#(syntax-object begin ((top) @@ -15622,9 +15840,9 @@ #((top) (top) (top)) - #("i4394" - "i4395" - "i4396")) + #("i4467" + "i4468" + "i4469")) #(ribcage () () @@ -15636,9 +15854,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15648,10 +15866,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15659,27 +15877,27 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) - (cons #{e1\ 4398}# - #{e2\ 4399}#)))) - #{tmp\ 4393}#) - ((lambda (#{_\ 4403}#) + (cons #{e1\ 4471}# + #{e2\ 4472}#)))) + #{tmp\ 4466}#) + ((lambda (#{_\ 4476}#) (syntax-violation 'case "bad clause" - #{x\ 4363}# - #{clause\ 4383}#)) - #{tmp\ 4386}#))) + #{x\ 4436}# + #{clause\ 4456}#)) + #{tmp\ 4459}#))) ($sc-dispatch - #{tmp\ 4386}# + #{tmp\ 4459}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4386}# + #{tmp\ 4459}# '(#(free-id #(syntax-object else @@ -15690,37 +15908,37 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile))) any . each-any)))) - #{clause\ 4383}#) - ((lambda (#{tmp\ 4405}#) - ((lambda (#{rest\ 4407}#) - ((lambda (#{tmp\ 4408}#) - ((lambda (#{tmp\ 4409}#) - (if #{tmp\ 4409}# - (apply (lambda (#{k\ 4413}# - #{e1\ 4414}# - #{e2\ 4415}#) + #{clause\ 4456}#) + ((lambda (#{tmp\ 4478}#) + ((lambda (#{rest\ 4480}#) + ((lambda (#{tmp\ 4481}#) + ((lambda (#{tmp\ 4482}#) + (if #{tmp\ 4482}# + (apply (lambda (#{k\ 4486}# + #{e1\ 4487}# + #{e2\ 4488}#) (list '#(syntax-object if ((top) @@ -15731,13 +15949,13 @@ #((top) (top) (top)) - #("i4410" - "i4411" - "i4412")) + #("i4483" + "i4484" + "i4485")) #(ribcage #(rest) #((top)) - #("i4406")) + #("i4479")) #(ribcage () () @@ -15749,9 +15967,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15761,10 +15979,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15772,7 +15990,7 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) (list '#(syntax-object @@ -15785,13 +16003,13 @@ #((top) (top) (top)) - #("i4410" - "i4411" - "i4412")) + #("i4483" + "i4484" + "i4485")) #(ribcage #(rest) #((top)) - #("i4406")) + #("i4479")) #(ribcage () () @@ -15803,9 +16021,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15815,10 +16033,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15826,7 +16044,7 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) '#(syntax-object @@ -15839,13 +16057,13 @@ #((top) (top) (top)) - #("i4410" - "i4411" - "i4412")) + #("i4483" + "i4484" + "i4485")) #(ribcage #(rest) #((top)) - #("i4406")) + #("i4479")) #(ribcage () () @@ -15857,9 +16075,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15869,10 +16087,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15880,7 +16098,7 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) (list '#(syntax-object @@ -15893,13 +16111,13 @@ #((top) (top) (top)) - #("i4410" - "i4411" - "i4412")) + #("i4483" + "i4484" + "i4485")) #(ribcage #(rest) #((top)) - #("i4406")) + #("i4479")) #(ribcage () () @@ -15911,9 +16129,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15923,10 +16141,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15934,10 +16152,10 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) - #{k\ 4413}#)) + #{k\ 4486}#)) (cons '#(syntax-object begin ((top) @@ -15948,13 +16166,13 @@ #((top) (top) (top)) - #("i4410" - "i4411" - "i4412")) + #("i4483" + "i4484" + "i4485")) #(ribcage #(rest) #((top)) - #("i4406")) + #("i4479")) #(ribcage () () @@ -15966,9 +16184,9 @@ #((top) (top) (top)) - #("i4379" - "i4380" - "i4381")) + #("i4452" + "i4453" + "i4454")) #(ribcage #(_ e @@ -15978,10 +16196,10 @@ (top) (top) (top)) - #("i4367" - "i4368" - "i4369" - "i4370")) + #("i4440" + "i4441" + "i4442" + "i4443")) #(ribcage () () @@ -15989,61 +16207,61 @@ #(ribcage #(x) #((top)) - #("i4364"))) + #("i4437"))) (hygiene guile)) - (cons #{e1\ 4414}# - #{e2\ 4415}#)) - #{rest\ 4407}#)) - #{tmp\ 4409}#) - ((lambda (#{_\ 4419}#) + (cons #{e1\ 4487}# + #{e2\ 4488}#)) + #{rest\ 4480}#)) + #{tmp\ 4482}#) + ((lambda (#{_\ 4492}#) (syntax-violation 'case "bad clause" - #{x\ 4363}# - #{clause\ 4383}#)) - #{tmp\ 4408}#))) + #{x\ 4436}# + #{clause\ 4456}#)) + #{tmp\ 4481}#))) ($sc-dispatch - #{tmp\ 4408}# + #{tmp\ 4481}# '(each-any any . each-any)))) - #{clause\ 4383}#)) - #{tmp\ 4405}#)) - (#{f\ 4382}# - (car #{clauses\ 4384}#) - (cdr #{clauses\ 4384}#))))))) - (#{f\ 4382}# #{m1\ 4373}# #{m2\ 4374}#)))) - #{tmp\ 4366}#) + #{clause\ 4456}#)) + #{tmp\ 4478}#)) + (#{f\ 4455}# + (car #{clauses\ 4457}#) + (cdr #{clauses\ 4457}#))))))) + (#{f\ 4455}# #{m1\ 4446}# #{m2\ 4447}#)))) + #{tmp\ 4439}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4365}#))) + #{tmp\ 4438}#))) ($sc-dispatch - #{tmp\ 4365}# + #{tmp\ 4438}# '(any any any . each-any)))) - #{x\ 4363}#)) + #{x\ 4436}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 4420}#) - ((lambda (#{tmp\ 4422}#) - ((lambda (#{tmp\ 4423}#) - (if #{tmp\ 4423}# - (apply (lambda (#{_\ 4426}# #{e\ 4427}#) + (cons (lambda (#{x\ 4493}#) + ((lambda (#{tmp\ 4495}#) + ((lambda (#{tmp\ 4496}#) + (if #{tmp\ 4496}# + (apply (lambda (#{_\ 4499}# #{e\ 4500}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4421"))) + #(ribcage #(x) #((top)) #("i4494"))) (hygiene guile)) '(#(syntax-object x @@ -16051,9 +16269,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4421"))) + #(ribcage #(x) #((top)) #("i4494"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -16061,9 +16279,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4421"))) + #(ribcage #(x) #((top)) #("i4494"))) (hygiene guile)) . #(syntax-object @@ -16072,9 +16290,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4421"))) + #(ribcage #(x) #((top)) #("i4494"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -16082,12 +16300,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) '#(syntax-object x @@ -16095,12 +16313,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) '() (list '#(syntax-object @@ -16109,12 +16327,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) '(#(syntax-object identifier? @@ -16122,12 +16340,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) (#(syntax-object syntax @@ -16135,12 +16353,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) #(syntax-object id @@ -16148,12 +16366,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -16161,27 +16379,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) - #{e\ 4427}#)) - (list (cons #{_\ 4426}# + #{e\ 4500}#)) + (list (cons #{_\ 4499}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) #(syntax-object ... @@ -16189,12 +16407,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -16202,14 +16420,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i4424" "i4425")) + #("i4497" "i4498")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) - (cons #{e\ 4427}# + (cons #{e\ 4500}# '(#(syntax-object x ((top) @@ -16217,8 +16435,8 @@ #(_ e) #((top) (top)) - #("i4424" - "i4425")) + #("i4497" + "i4498")) #(ribcage () () @@ -16226,7 +16444,7 @@ #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile)) #(syntax-object ... @@ -16235,8 +16453,8 @@ #(_ e) #((top) (top)) - #("i4424" - "i4425")) + #("i4497" + "i4498")) #(ribcage () () @@ -16244,72 +16462,72 @@ #(ribcage #(x) #((top)) - #("i4421"))) + #("i4494"))) (hygiene guile))))))))) - #{tmp\ 4423}#) + #{tmp\ 4496}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4422}#))) - ($sc-dispatch #{tmp\ 4422}# (quote (any any))))) - #{x\ 4420}#)) + #{tmp\ 4495}#))) + ($sc-dispatch #{tmp\ 4495}# (quote (any any))))) + #{x\ 4493}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 4428}#) - ((lambda (#{tmp\ 4430}#) - ((lambda (#{tmp\ 4431}#) - (if #{tmp\ 4431}# - (apply (lambda (#{_\ 4437}# - #{id\ 4438}# - #{args\ 4439}# - #{b0\ 4440}# - #{b1\ 4441}#) + (cons (lambda (#{x\ 4501}#) + ((lambda (#{tmp\ 4503}#) + ((lambda (#{tmp\ 4504}#) + (if #{tmp\ 4504}# + (apply (lambda (#{_\ 4510}# + #{id\ 4511}# + #{args\ 4512}# + #{b0\ 4513}# + #{b1\ 4514}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4432" - "i4433" - "i4434" - "i4435" - "i4436")) + #("i4505" + "i4506" + "i4507" + "i4508" + "i4509")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4429"))) + #(ribcage #(x) #((top)) #("i4502"))) (hygiene guile)) - #{id\ 4438}# + #{id\ 4511}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4432" - "i4433" - "i4434" - "i4435" - "i4436")) + #("i4505" + "i4506" + "i4507" + "i4508" + "i4509")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4429"))) + #("i4502"))) (hygiene guile)) - (cons #{args\ 4439}# - (cons #{b0\ 4440}# - #{b1\ 4441}#))))) - #{tmp\ 4431}#) - ((lambda (#{tmp\ 4443}#) - (if (if #{tmp\ 4443}# - (apply (lambda (#{_\ 4447}# - #{id\ 4448}# - #{val\ 4449}#) + (cons #{args\ 4512}# + (cons #{b0\ 4513}# + #{b1\ 4514}#))))) + #{tmp\ 4504}#) + ((lambda (#{tmp\ 4516}#) + (if (if #{tmp\ 4516}# + (apply (lambda (#{_\ 4520}# + #{id\ 4521}# + #{val\ 4522}#) (identifier? '#(syntax-object x @@ -16317,44 +16535,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i4444" "i4445" "i4446")) + #("i4517" "i4518" "i4519")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4429"))) + #("i4502"))) (hygiene guile)))) - #{tmp\ 4443}#) + #{tmp\ 4516}#) #f) - (apply (lambda (#{_\ 4453}# - #{id\ 4454}# - #{val\ 4455}#) + (apply (lambda (#{_\ 4526}# + #{id\ 4527}# + #{val\ 4528}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i4450" "i4451" "i4452")) + #("i4523" "i4524" "i4525")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4429"))) + #("i4502"))) (hygiene guile)) - #{id\ 4454}# - #{val\ 4455}#)) - #{tmp\ 4443}#) + #{id\ 4527}# + #{val\ 4528}#)) + #{tmp\ 4516}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4430}#))) + #{tmp\ 4503}#))) ($sc-dispatch - #{tmp\ 4430}# + #{tmp\ 4503}# '(any any any))))) ($sc-dispatch - #{tmp\ 4430}# + #{tmp\ 4503}# '(any (any . any) any . each-any)))) - #{x\ 4428}#)) + #{x\ 4501}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 9c0c994da..285062468 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -242,6 +242,34 @@ out))) #`(begin #,@(reverse out)))))))) +(define-syntax define-expansion-accessors + (lambda (x) + (syntax-case x () + ((_ stem field ...) + (let lp ((n 0)) + (let ((vtable (vector-ref %expanded-vtables n)) + (stem (syntax->datum #'stem))) + (if (eq? (struct-ref vtable (+ vtable-offset-user 0)) stem) + #`(begin + (define (#,(datum->syntax x (symbol-append stem '?)) x) + (and (struct? x) + (eq? (struct-vtable x) + (vector-ref %expanded-vtables #,n)))) + #,@(map + (lambda (f) + (let ((get (datum->syntax x (symbol-append stem '- f))) + (set (datum->syntax x (symbol-append 'set- stem '- f '!))) + (idx (list-index (struct-ref vtable + (+ vtable-offset-user 2)) + f))) + #`(begin + (define (#,get x) + (struct-ref x #,idx)) + (define (#,set x v) + (struct-set! x #,idx v))))) + (syntax->datum #'(field ...)))) + (lp (1+ n))))))))) + (define-syntax define-structure (lambda (x) (define construct-name @@ -295,6 +323,7 @@ (let () (define-expansion-constructors) + (define-expansion-accessors lambda meta) ;;; hooks to nonportable run-time helpers (begin @@ -411,21 +440,15 @@ (lambda (var) (make-toplevel-set source var exp))))) - ;; FIXME: there is a bug that prevents (set! ((@ (foo) bar) baz) quz) - ;; from working. Hack around it. (define (maybe-name-value! name val) - (cond - (((@ (language tree-il) lambda?) val) - (let ((meta ((@ (language tree-il) lambda-meta) val))) - (if (not (assq 'name meta)) - ((setter (@ (language tree-il) lambda-meta)) - val - (acons 'name name meta))))))) + (if (lambda? val) + (let ((meta (lambda-meta val))) + (if (not (assq 'name meta)) + (set-lambda-meta! val (acons 'name name meta)))))) (define build-global-definition (lambda (source var exp) - ;; FIXME: - ;; (maybe-name-value! var exp) + (maybe-name-value! var exp) (make-toplevel-define source var exp))) ;; Ideally we would have all lambdas be case lambdas, but that would @@ -477,8 +500,7 @@ (define build-let (lambda (src ids vars val-exps body-exp) - ;; FIXME - ;; (for-each maybe-name-value! ids val-exps) + (for-each maybe-name-value! ids val-exps) (if (null? vars) body-exp (make-let src ids vars val-exps body-exp)))) @@ -490,9 +512,8 @@ (vars (cdr vars)) (ids (cdr ids))) (let ((proc (build-simple-lambda src ids #f vars '() body-exp))) - ;; FIXME - ;; (maybe-name-value! f-name proc) - ;; (for-each maybe-name-value! ids val-exps) + (maybe-name-value! f-name proc) + (for-each maybe-name-value! ids val-exps) (make-letrec src (list f-name) (list f) (list proc) @@ -503,9 +524,9 @@ (lambda (src ids vars val-exps body-exp) (if (null? vars) body-exp - ;; FIXME - ;; (for-each maybe-name-value! ids val-exps) - (make-letrec src ids vars val-exps body-exp)))) + (begin + (for-each maybe-name-value! ids val-exps) + (make-letrec src ids vars val-exps body-exp))))) ;; FIXME: use a faster gensym