From 9365d8ad3a0668859d3812c9215aca4fd0c664e2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 6 May 2010 00:15:06 +0200 Subject: [PATCH] change form of @ and @@ psyntax handlers * module/ice-9/psyntax.scm (@, @@): Take r and w args, and also return r, w, and s. Adapt callers. --- module/ice-9/psyntax-pp.scm | 15968 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 31 +- 2 files changed, 8033 insertions(+), 7966 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 7605394bd..77a303072 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,638 +1,644 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 20}# - (lambda (#{f\ 82}# #{first\ 83}# . #{rest\ 84}#) - (let ((#{t\ 90}# (null? #{first\ 83}#))) - (if #{t\ 90}# - #{t\ 90}# - (if (null? #{rest\ 84}#) - (letrec ((#{andmap\ 94}# - (lambda (#{first\ 95}#) - (let ((#{x\ 98}# (car #{first\ 95}#)) - (#{first\ 99}# (cdr #{first\ 95}#))) - (if (null? #{first\ 99}#) - (#{f\ 82}# #{x\ 98}#) - (if (#{f\ 82}# #{x\ 98}#) - (#{andmap\ 94}# #{first\ 99}#) +(letrec ((#{and-map*\ 4802}# + (lambda (#{f\ 4864}# #{first\ 4865}# . #{rest\ 4866}#) + (let ((#{t\ 4872}# (null? #{first\ 4865}#))) + (if #{t\ 4872}# + #{t\ 4872}# + (if (null? #{rest\ 4866}#) + (letrec ((#{andmap\ 4876}# + (lambda (#{first\ 4877}#) + (let ((#{x\ 4880}# (car #{first\ 4877}#)) + (#{first\ 4881}# (cdr #{first\ 4877}#))) + (if (null? #{first\ 4881}#) + (#{f\ 4864}# #{x\ 4880}#) + (if (#{f\ 4864}# #{x\ 4880}#) + (#{andmap\ 4876}# #{first\ 4881}#) #f)))))) - (#{andmap\ 94}# #{first\ 83}#)) - (letrec ((#{andmap\ 105}# - (lambda (#{first\ 106}# #{rest\ 107}#) - (let ((#{x\ 112}# (car #{first\ 106}#)) - (#{xr\ 113}# (map car #{rest\ 107}#)) - (#{first\ 114}# (cdr #{first\ 106}#)) - (#{rest\ 115}# (map cdr #{rest\ 107}#))) - (if (null? #{first\ 114}#) - (apply #{f\ 82}# - (cons #{x\ 112}# #{xr\ 113}#)) - (if (apply #{f\ 82}# - (cons #{x\ 112}# #{xr\ 113}#)) - (#{andmap\ 105}# - #{first\ 114}# - #{rest\ 115}#) + (#{andmap\ 4876}# #{first\ 4865}#)) + (letrec ((#{andmap\ 4887}# + (lambda (#{first\ 4888}# #{rest\ 4889}#) + (let ((#{x\ 4894}# (car #{first\ 4888}#)) + (#{xr\ 4895}# (map car #{rest\ 4889}#)) + (#{first\ 4896}# (cdr #{first\ 4888}#)) + (#{rest\ 4897}# + (map cdr #{rest\ 4889}#))) + (if (null? #{first\ 4896}#) + (apply #{f\ 4864}# + (cons #{x\ 4894}# #{xr\ 4895}#)) + (if (apply #{f\ 4864}# + (cons #{x\ 4894}# #{xr\ 4895}#)) + (#{andmap\ 4887}# + #{first\ 4896}# + #{rest\ 4897}#) #f)))))) - (#{andmap\ 105}# #{first\ 83}# #{rest\ 84}#)))))))) - (letrec ((#{lambda-var-list\ 337}# - (lambda (#{vars\ 552}#) - (letrec ((#{lvl\ 558}# - (lambda (#{vars\ 559}# #{ls\ 560}# #{w\ 561}#) - (if (pair? #{vars\ 559}#) - (#{lvl\ 558}# - (cdr #{vars\ 559}#) - (cons (#{wrap\ 291}# - (car #{vars\ 559}#) - #{w\ 561}# + (#{andmap\ 4887}# #{first\ 4865}# #{rest\ 4866}#)))))))) + (letrec ((#{lambda-var-list\ 5119}# + (lambda (#{vars\ 5334}#) + (letrec ((#{lvl\ 5340}# + (lambda (#{vars\ 5341}# #{ls\ 5342}# #{w\ 5343}#) + (if (pair? #{vars\ 5341}#) + (#{lvl\ 5340}# + (cdr #{vars\ 5341}#) + (cons (#{wrap\ 5073}# + (car #{vars\ 5341}#) + #{w\ 5343}# #f) - #{ls\ 560}#) - #{w\ 561}#) - (if (#{id?\ 222}# #{vars\ 559}#) - (cons (#{wrap\ 291}# - #{vars\ 559}# - #{w\ 561}# + #{ls\ 5342}#) + #{w\ 5343}#) + (if (#{id?\ 5004}# #{vars\ 5341}#) + (cons (#{wrap\ 5073}# + #{vars\ 5341}# + #{w\ 5343}# #f) - #{ls\ 560}#) - (if (null? #{vars\ 559}#) - #{ls\ 560}# - (if (#{syntax-object?\ 186}# #{vars\ 559}#) - (#{lvl\ 558}# - (#{syntax-object-expression\ 188}# - #{vars\ 559}#) - #{ls\ 560}# - (#{join-wraps\ 273}# - #{w\ 561}# - (#{syntax-object-wrap\ 190}# - #{vars\ 559}#))) - (cons #{vars\ 559}# #{ls\ 560}#)))))))) - (#{lvl\ 558}# - #{vars\ 552}# + #{ls\ 5342}#) + (if (null? #{vars\ 5341}#) + #{ls\ 5342}# + (if (#{syntax-object?\ 4968}# #{vars\ 5341}#) + (#{lvl\ 5340}# + (#{syntax-object-expression\ 4970}# + #{vars\ 5341}#) + #{ls\ 5342}# + (#{join-wraps\ 5055}# + #{w\ 5343}# + (#{syntax-object-wrap\ 4972}# + #{vars\ 5341}#))) + (cons #{vars\ 5341}# #{ls\ 5342}#)))))))) + (#{lvl\ 5340}# + #{vars\ 5334}# '() '(()))))) - (#{gen-var\ 335}# - (lambda (#{id\ 572}#) - (let ((#{id\ 575}# - (if (#{syntax-object?\ 186}# #{id\ 572}#) - (#{syntax-object-expression\ 188}# #{id\ 572}#) - #{id\ 572}#))) + (#{gen-var\ 5117}# + (lambda (#{id\ 5354}#) + (let ((#{id\ 5357}# + (if (#{syntax-object?\ 4968}# #{id\ 5354}#) + (#{syntax-object-expression\ 4970}# #{id\ 5354}#) + #{id\ 5354}#))) (gensym - (string-append (symbol->string #{id\ 575}#) " "))))) - (#{strip\ 333}# - (lambda (#{x\ 577}# #{w\ 578}#) + (string-append (symbol->string #{id\ 5357}#) " "))))) + (#{strip\ 5115}# + (lambda (#{x\ 5359}# #{w\ 5360}#) (if (memq 'top - (#{wrap-marks\ 229}# #{w\ 578}#)) - #{x\ 577}# - (letrec ((#{f\ 584}# (lambda (#{x\ 585}#) - (if (#{syntax-object?\ 186}# - #{x\ 585}#) - (#{strip\ 333}# - (#{syntax-object-expression\ 188}# - #{x\ 585}#) - (#{syntax-object-wrap\ 190}# - #{x\ 585}#)) - (if (pair? #{x\ 585}#) - (let ((#{a\ 592}# (#{f\ 584}# (car #{x\ 585}#))) - (#{d\ 593}# (#{f\ 584}# (cdr #{x\ 585}#)))) - (if (if (eq? #{a\ 592}# - (car #{x\ 585}#)) - (eq? #{d\ 593}# - (cdr #{x\ 585}#)) - #f) - #{x\ 585}# - (cons #{a\ 592}# #{d\ 593}#))) - (if (vector? #{x\ 585}#) - (let ((#{old\ 599}# - (vector->list - #{x\ 585}#))) - (let ((#{new\ 601}# - (map #{f\ 584}# - #{old\ 599}#))) - (if (#{and-map*\ 20}# - eq? - #{old\ 599}# - #{new\ 601}#) - #{x\ 585}# - (list->vector - #{new\ 601}#)))) - #{x\ 585}#)))))) - (#{f\ 584}# #{x\ 577}#))))) - (#{chi-lambda-case\ 331}# - (lambda (#{e\ 603}# - #{r\ 604}# - #{w\ 605}# - #{s\ 606}# - #{mod\ 607}# - #{get-formals\ 608}# - #{clauses\ 609}#) - (letrec ((#{expand-body\ 624}# - (lambda (#{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - #{body\ 629}# - #{vars\ 630}# - #{r*\ 631}# - #{w*\ 632}# - #{inits\ 633}# - #{meta\ 634}#) - ((lambda (#{tmp\ 645}#) - ((lambda (#{tmp\ 646}#) - (if (if #{tmp\ 646}# - (apply (lambda (#{docstring\ 650}# - #{e1\ 651}# - #{e2\ 652}#) + (#{wrap-marks\ 5011}# #{w\ 5360}#)) + #{x\ 5359}# + (letrec ((#{f\ 5366}# + (lambda (#{x\ 5367}#) + (if (#{syntax-object?\ 4968}# #{x\ 5367}#) + (#{strip\ 5115}# + (#{syntax-object-expression\ 4970}# + #{x\ 5367}#) + (#{syntax-object-wrap\ 4972}# #{x\ 5367}#)) + (if (pair? #{x\ 5367}#) + (let ((#{a\ 5374}# + (#{f\ 5366}# (car #{x\ 5367}#))) + (#{d\ 5375}# + (#{f\ 5366}# (cdr #{x\ 5367}#)))) + (if (if (eq? #{a\ 5374}# (car #{x\ 5367}#)) + (eq? #{d\ 5375}# (cdr #{x\ 5367}#)) + #f) + #{x\ 5367}# + (cons #{a\ 5374}# #{d\ 5375}#))) + (if (vector? #{x\ 5367}#) + (let ((#{old\ 5381}# + (vector->list #{x\ 5367}#))) + (let ((#{new\ 5383}# + (map #{f\ 5366}# #{old\ 5381}#))) + (if (#{and-map*\ 4802}# + eq? + #{old\ 5381}# + #{new\ 5383}#) + #{x\ 5367}# + (list->vector #{new\ 5383}#)))) + #{x\ 5367}#)))))) + (#{f\ 5366}# #{x\ 5359}#))))) + (#{chi-lambda-case\ 5113}# + (lambda (#{e\ 5385}# + #{r\ 5386}# + #{w\ 5387}# + #{s\ 5388}# + #{mod\ 5389}# + #{get-formals\ 5390}# + #{clauses\ 5391}#) + (letrec ((#{expand-body\ 5406}# + (lambda (#{req\ 5407}# + #{opt\ 5408}# + #{rest\ 5409}# + #{kw\ 5410}# + #{body\ 5411}# + #{vars\ 5412}# + #{r*\ 5413}# + #{w*\ 5414}# + #{inits\ 5415}# + #{meta\ 5416}#) + ((lambda (#{tmp\ 5427}#) + ((lambda (#{tmp\ 5428}#) + (if (if #{tmp\ 5428}# + (apply (lambda (#{docstring\ 5432}# + #{e1\ 5433}# + #{e2\ 5434}#) (string? (syntax->datum - #{docstring\ 650}#))) - #{tmp\ 646}#) + #{docstring\ 5432}#))) + #{tmp\ 5428}#) #f) - (apply (lambda (#{docstring\ 656}# - #{e1\ 657}# - #{e2\ 658}#) - (#{expand-body\ 624}# - #{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - (cons #{e1\ 657}# #{e2\ 658}#) - #{vars\ 630}# - #{r*\ 631}# - #{w*\ 632}# - #{inits\ 633}# + (apply (lambda (#{docstring\ 5438}# + #{e1\ 5439}# + #{e2\ 5440}#) + (#{expand-body\ 5406}# + #{req\ 5407}# + #{opt\ 5408}# + #{rest\ 5409}# + #{kw\ 5410}# + (cons #{e1\ 5439}# #{e2\ 5440}#) + #{vars\ 5412}# + #{r*\ 5413}# + #{w*\ 5414}# + #{inits\ 5415}# (append - #{meta\ 634}# + #{meta\ 5416}# (list (cons 'documentation (syntax->datum - #{docstring\ 656}#)))))) - #{tmp\ 646}#) - ((lambda (#{tmp\ 661}#) - (if #{tmp\ 661}# - (apply (lambda (#{k\ 666}# - #{v\ 667}# - #{e1\ 668}# - #{e2\ 669}#) - (#{expand-body\ 624}# - #{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - (cons #{e1\ 668}# - #{e2\ 669}#) - #{vars\ 630}# - #{r*\ 631}# - #{w*\ 632}# - #{inits\ 633}# + #{docstring\ 5438}#)))))) + #{tmp\ 5428}#) + ((lambda (#{tmp\ 5443}#) + (if #{tmp\ 5443}# + (apply (lambda (#{k\ 5448}# + #{v\ 5449}# + #{e1\ 5450}# + #{e2\ 5451}#) + (#{expand-body\ 5406}# + #{req\ 5407}# + #{opt\ 5408}# + #{rest\ 5409}# + #{kw\ 5410}# + (cons #{e1\ 5450}# + #{e2\ 5451}#) + #{vars\ 5412}# + #{r*\ 5413}# + #{w*\ 5414}# + #{inits\ 5415}# (append - #{meta\ 634}# + #{meta\ 5416}# (syntax->datum (map cons - #{k\ 666}# - #{v\ 667}#))))) - #{tmp\ 661}#) - ((lambda (#{tmp\ 673}#) - (if #{tmp\ 673}# - (apply (lambda (#{e1\ 676}# - #{e2\ 677}#) + #{k\ 5448}# + #{v\ 5449}#))))) + #{tmp\ 5443}#) + ((lambda (#{tmp\ 5455}#) + (if #{tmp\ 5455}# + (apply (lambda (#{e1\ 5458}# + #{e2\ 5459}#) (values - #{meta\ 634}# - #{req\ 625}# - #{opt\ 626}# - #{rest\ 627}# - #{kw\ 628}# - #{inits\ 633}# - #{vars\ 630}# - (#{chi-body\ 315}# - (cons #{e1\ 676}# - #{e2\ 677}#) - (#{source-wrap\ 293}# - #{e\ 603}# - #{w\ 605}# - #{s\ 606}# - #{mod\ 607}#) - #{r*\ 631}# - #{w*\ 632}# - #{mod\ 607}#))) - #{tmp\ 673}#) + #{meta\ 5416}# + #{req\ 5407}# + #{opt\ 5408}# + #{rest\ 5409}# + #{kw\ 5410}# + #{inits\ 5415}# + #{vars\ 5412}# + (#{chi-body\ 5097}# + (cons #{e1\ 5458}# + #{e2\ 5459}#) + (#{source-wrap\ 5075}# + #{e\ 5385}# + #{w\ 5387}# + #{s\ 5388}# + #{mod\ 5389}#) + #{r*\ 5413}# + #{w*\ 5414}# + #{mod\ 5389}#))) + #{tmp\ 5455}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 645}#))) + #{tmp\ 5427}#))) ($sc-dispatch - #{tmp\ 645}# + #{tmp\ 5427}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 645}# + #{tmp\ 5427}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 645}# + #{tmp\ 5427}# '(any any . each-any)))) - #{body\ 629}#))) - (#{expand-kw\ 622}# - (lambda (#{req\ 679}# - #{opt\ 680}# - #{rest\ 681}# - #{kw\ 682}# - #{body\ 683}# - #{vars\ 684}# - #{r*\ 685}# - #{w*\ 686}# - #{aok\ 687}# - #{out\ 688}# - #{inits\ 689}#) - (if (pair? #{kw\ 682}#) - ((lambda (#{tmp\ 703}#) - ((lambda (#{tmp\ 704}#) - (if #{tmp\ 704}# - (apply (lambda (#{k\ 708}# - #{id\ 709}# - #{i\ 710}#) - (let ((#{v\ 713}# (#{gen-var\ 335}# - #{id\ 709}#))) - (let ((#{l\ 715}# (#{gen-labels\ 240}# - (list #{v\ 713}#)))) - (let ((#{r**\ 717}# - (#{extend-var-env\ 212}# - #{l\ 715}# - (list #{v\ 713}#) - #{r*\ 685}#))) - (let ((#{w**\ 719}# - (#{make-binding-wrap\ 269}# - (list #{id\ 709}#) - #{l\ 715}# - #{w*\ 686}#))) - (#{expand-kw\ 622}# - #{req\ 679}# - #{opt\ 680}# - #{rest\ 681}# - (cdr #{kw\ 682}#) - #{body\ 683}# - (cons #{v\ 713}# - #{vars\ 684}#) - #{r**\ 717}# - #{w**\ 719}# - #{aok\ 687}# + #{body\ 5411}#))) + (#{expand-kw\ 5404}# + (lambda (#{req\ 5461}# + #{opt\ 5462}# + #{rest\ 5463}# + #{kw\ 5464}# + #{body\ 5465}# + #{vars\ 5466}# + #{r*\ 5467}# + #{w*\ 5468}# + #{aok\ 5469}# + #{out\ 5470}# + #{inits\ 5471}#) + (if (pair? #{kw\ 5464}#) + ((lambda (#{tmp\ 5485}#) + ((lambda (#{tmp\ 5486}#) + (if #{tmp\ 5486}# + (apply (lambda (#{k\ 5490}# + #{id\ 5491}# + #{i\ 5492}#) + (let ((#{v\ 5495}# + (#{gen-var\ 5117}# + #{id\ 5491}#))) + (let ((#{l\ 5497}# + (#{gen-labels\ 5022}# + (list #{v\ 5495}#)))) + (let ((#{r**\ 5499}# + (#{extend-var-env\ 4994}# + #{l\ 5497}# + (list #{v\ 5495}#) + #{r*\ 5467}#))) + (let ((#{w**\ 5501}# + (#{make-binding-wrap\ 5051}# + (list #{id\ 5491}#) + #{l\ 5497}# + #{w*\ 5468}#))) + (#{expand-kw\ 5404}# + #{req\ 5461}# + #{opt\ 5462}# + #{rest\ 5463}# + (cdr #{kw\ 5464}#) + #{body\ 5465}# + (cons #{v\ 5495}# + #{vars\ 5466}#) + #{r**\ 5499}# + #{w**\ 5501}# + #{aok\ 5469}# (cons (list (syntax->datum - #{k\ 708}#) + #{k\ 5490}#) (syntax->datum - #{id\ 709}#) - #{v\ 713}#) - #{out\ 688}#) - (cons (#{chi\ 307}# - #{i\ 710}# - #{r*\ 685}# - #{w*\ 686}# - #{mod\ 607}#) - #{inits\ 689}#))))))) - #{tmp\ 704}#) + #{id\ 5491}#) + #{v\ 5495}#) + #{out\ 5470}#) + (cons (#{chi\ 5089}# + #{i\ 5492}# + #{r*\ 5467}# + #{w*\ 5468}# + #{mod\ 5389}#) + #{inits\ 5471}#))))))) + #{tmp\ 5486}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 703}#))) + #{tmp\ 5485}#))) ($sc-dispatch - #{tmp\ 703}# + #{tmp\ 5485}# '(any any any)))) - (car #{kw\ 682}#)) - (#{expand-body\ 624}# - #{req\ 679}# - #{opt\ 680}# - #{rest\ 681}# - (if (let ((#{t\ 723}# #{aok\ 687}#)) - (if #{t\ 723}# - #{t\ 723}# - (pair? #{out\ 688}#))) - (cons #{aok\ 687}# (reverse #{out\ 688}#)) + (car #{kw\ 5464}#)) + (#{expand-body\ 5406}# + #{req\ 5461}# + #{opt\ 5462}# + #{rest\ 5463}# + (if (let ((#{t\ 5505}# #{aok\ 5469}#)) + (if #{t\ 5505}# + #{t\ 5505}# + (pair? #{out\ 5470}#))) + (cons #{aok\ 5469}# (reverse #{out\ 5470}#)) #f) - #{body\ 683}# - (reverse #{vars\ 684}#) - #{r*\ 685}# - #{w*\ 686}# - (reverse #{inits\ 689}#) + #{body\ 5465}# + (reverse #{vars\ 5466}#) + #{r*\ 5467}# + #{w*\ 5468}# + (reverse #{inits\ 5471}#) '())))) - (#{expand-opt\ 620}# - (lambda (#{req\ 725}# - #{opt\ 726}# - #{rest\ 727}# - #{kw\ 728}# - #{body\ 729}# - #{vars\ 730}# - #{r*\ 731}# - #{w*\ 732}# - #{out\ 733}# - #{inits\ 734}#) - (if (pair? #{opt\ 726}#) - ((lambda (#{tmp\ 747}#) - ((lambda (#{tmp\ 748}#) - (if #{tmp\ 748}# - (apply (lambda (#{id\ 751}# #{i\ 752}#) - (let ((#{v\ 755}# (#{gen-var\ 335}# - #{id\ 751}#))) - (let ((#{l\ 757}# (#{gen-labels\ 240}# - (list #{v\ 755}#)))) - (let ((#{r**\ 759}# - (#{extend-var-env\ 212}# - #{l\ 757}# - (list #{v\ 755}#) - #{r*\ 731}#))) - (let ((#{w**\ 761}# - (#{make-binding-wrap\ 269}# - (list #{id\ 751}#) - #{l\ 757}# - #{w*\ 732}#))) - (#{expand-opt\ 620}# - #{req\ 725}# - (cdr #{opt\ 726}#) - #{rest\ 727}# - #{kw\ 728}# - #{body\ 729}# - (cons #{v\ 755}# - #{vars\ 730}#) - #{r**\ 759}# - #{w**\ 761}# + (#{expand-opt\ 5402}# + (lambda (#{req\ 5507}# + #{opt\ 5508}# + #{rest\ 5509}# + #{kw\ 5510}# + #{body\ 5511}# + #{vars\ 5512}# + #{r*\ 5513}# + #{w*\ 5514}# + #{out\ 5515}# + #{inits\ 5516}#) + (if (pair? #{opt\ 5508}#) + ((lambda (#{tmp\ 5529}#) + ((lambda (#{tmp\ 5530}#) + (if #{tmp\ 5530}# + (apply (lambda (#{id\ 5533}# #{i\ 5534}#) + (let ((#{v\ 5537}# + (#{gen-var\ 5117}# + #{id\ 5533}#))) + (let ((#{l\ 5539}# + (#{gen-labels\ 5022}# + (list #{v\ 5537}#)))) + (let ((#{r**\ 5541}# + (#{extend-var-env\ 4994}# + #{l\ 5539}# + (list #{v\ 5537}#) + #{r*\ 5513}#))) + (let ((#{w**\ 5543}# + (#{make-binding-wrap\ 5051}# + (list #{id\ 5533}#) + #{l\ 5539}# + #{w*\ 5514}#))) + (#{expand-opt\ 5402}# + #{req\ 5507}# + (cdr #{opt\ 5508}#) + #{rest\ 5509}# + #{kw\ 5510}# + #{body\ 5511}# + (cons #{v\ 5537}# + #{vars\ 5512}#) + #{r**\ 5541}# + #{w**\ 5543}# (cons (syntax->datum - #{id\ 751}#) - #{out\ 733}#) - (cons (#{chi\ 307}# - #{i\ 752}# - #{r*\ 731}# - #{w*\ 732}# - #{mod\ 607}#) - #{inits\ 734}#))))))) - #{tmp\ 748}#) + #{id\ 5533}#) + #{out\ 5515}#) + (cons (#{chi\ 5089}# + #{i\ 5534}# + #{r*\ 5513}# + #{w*\ 5514}# + #{mod\ 5389}#) + #{inits\ 5516}#))))))) + #{tmp\ 5530}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 747}#))) + #{tmp\ 5529}#))) ($sc-dispatch - #{tmp\ 747}# + #{tmp\ 5529}# '(any any)))) - (car #{opt\ 726}#)) - (if #{rest\ 727}# - (let ((#{v\ 766}# (#{gen-var\ 335}# - #{rest\ 727}#))) - (let ((#{l\ 768}# (#{gen-labels\ 240}# - (list #{v\ 766}#)))) - (let ((#{r*\ 770}# - (#{extend-var-env\ 212}# - #{l\ 768}# - (list #{v\ 766}#) - #{r*\ 731}#))) - (let ((#{w*\ 772}# - (#{make-binding-wrap\ 269}# - (list #{rest\ 727}#) - #{l\ 768}# - #{w*\ 732}#))) - (#{expand-kw\ 622}# - #{req\ 725}# - (if (pair? #{out\ 733}#) - (reverse #{out\ 733}#) + (car #{opt\ 5508}#)) + (if #{rest\ 5509}# + (let ((#{v\ 5548}# + (#{gen-var\ 5117}# #{rest\ 5509}#))) + (let ((#{l\ 5550}# + (#{gen-labels\ 5022}# + (list #{v\ 5548}#)))) + (let ((#{r*\ 5552}# + (#{extend-var-env\ 4994}# + #{l\ 5550}# + (list #{v\ 5548}#) + #{r*\ 5513}#))) + (let ((#{w*\ 5554}# + (#{make-binding-wrap\ 5051}# + (list #{rest\ 5509}#) + #{l\ 5550}# + #{w*\ 5514}#))) + (#{expand-kw\ 5404}# + #{req\ 5507}# + (if (pair? #{out\ 5515}#) + (reverse #{out\ 5515}#) #f) - (syntax->datum #{rest\ 727}#) - (if (pair? #{kw\ 728}#) - (cdr #{kw\ 728}#) - #{kw\ 728}#) - #{body\ 729}# - (cons #{v\ 766}# #{vars\ 730}#) - #{r*\ 770}# - #{w*\ 772}# - (if (pair? #{kw\ 728}#) - (car #{kw\ 728}#) + (syntax->datum #{rest\ 5509}#) + (if (pair? #{kw\ 5510}#) + (cdr #{kw\ 5510}#) + #{kw\ 5510}#) + #{body\ 5511}# + (cons #{v\ 5548}# #{vars\ 5512}#) + #{r*\ 5552}# + #{w*\ 5554}# + (if (pair? #{kw\ 5510}#) + (car #{kw\ 5510}#) #f) '() - #{inits\ 734}#))))) - (#{expand-kw\ 622}# - #{req\ 725}# - (if (pair? #{out\ 733}#) - (reverse #{out\ 733}#) + #{inits\ 5516}#))))) + (#{expand-kw\ 5404}# + #{req\ 5507}# + (if (pair? #{out\ 5515}#) + (reverse #{out\ 5515}#) #f) #f - (if (pair? #{kw\ 728}#) - (cdr #{kw\ 728}#) - #{kw\ 728}#) - #{body\ 729}# - #{vars\ 730}# - #{r*\ 731}# - #{w*\ 732}# - (if (pair? #{kw\ 728}#) (car #{kw\ 728}#) #f) + (if (pair? #{kw\ 5510}#) + (cdr #{kw\ 5510}#) + #{kw\ 5510}#) + #{body\ 5511}# + #{vars\ 5512}# + #{r*\ 5513}# + #{w*\ 5514}# + (if (pair? #{kw\ 5510}#) + (car #{kw\ 5510}#) + #f) '() - #{inits\ 734}#))))) - (#{expand-req\ 618}# - (lambda (#{req\ 774}# - #{opt\ 775}# - #{rest\ 776}# - #{kw\ 777}# - #{body\ 778}#) - (let ((#{vars\ 786}# - (map #{gen-var\ 335}# #{req\ 774}#)) - (#{labels\ 787}# - (#{gen-labels\ 240}# #{req\ 774}#))) - (let ((#{r*\ 790}# - (#{extend-var-env\ 212}# - #{labels\ 787}# - #{vars\ 786}# - #{r\ 604}#)) - (#{w*\ 791}# - (#{make-binding-wrap\ 269}# - #{req\ 774}# - #{labels\ 787}# - #{w\ 605}#))) - (#{expand-opt\ 620}# - (map syntax->datum #{req\ 774}#) - #{opt\ 775}# - #{rest\ 776}# - #{kw\ 777}# - #{body\ 778}# - (reverse #{vars\ 786}#) - #{r*\ 790}# - #{w*\ 791}# + #{inits\ 5516}#))))) + (#{expand-req\ 5400}# + (lambda (#{req\ 5556}# + #{opt\ 5557}# + #{rest\ 5558}# + #{kw\ 5559}# + #{body\ 5560}#) + (let ((#{vars\ 5568}# + (map #{gen-var\ 5117}# #{req\ 5556}#)) + (#{labels\ 5569}# + (#{gen-labels\ 5022}# #{req\ 5556}#))) + (let ((#{r*\ 5572}# + (#{extend-var-env\ 4994}# + #{labels\ 5569}# + #{vars\ 5568}# + #{r\ 5386}#)) + (#{w*\ 5573}# + (#{make-binding-wrap\ 5051}# + #{req\ 5556}# + #{labels\ 5569}# + #{w\ 5387}#))) + (#{expand-opt\ 5402}# + (map syntax->datum #{req\ 5556}#) + #{opt\ 5557}# + #{rest\ 5558}# + #{kw\ 5559}# + #{body\ 5560}# + (reverse #{vars\ 5568}#) + #{r*\ 5572}# + #{w*\ 5573}# '() '())))))) - ((lambda (#{tmp\ 792}#) - ((lambda (#{tmp\ 793}#) - (if #{tmp\ 793}# + ((lambda (#{tmp\ 5574}#) + ((lambda (#{tmp\ 5575}#) + (if #{tmp\ 5575}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 793}#) - ((lambda (#{tmp\ 794}#) - (if #{tmp\ 794}# - (apply (lambda (#{args\ 801}# - #{e1\ 802}# - #{e2\ 803}# - #{args*\ 804}# - #{e1*\ 805}# - #{e2*\ 806}#) + #{tmp\ 5575}#) + ((lambda (#{tmp\ 5576}#) + (if #{tmp\ 5576}# + (apply (lambda (#{args\ 5583}# + #{e1\ 5584}# + #{e2\ 5585}# + #{args*\ 5586}# + #{e1*\ 5587}# + #{e2*\ 5588}#) (call-with-values (lambda () - (#{get-formals\ 608}# - #{args\ 801}#)) - (lambda (#{req\ 807}# - #{opt\ 808}# - #{rest\ 809}# - #{kw\ 810}#) + (#{get-formals\ 5390}# + #{args\ 5583}#)) + (lambda (#{req\ 5589}# + #{opt\ 5590}# + #{rest\ 5591}# + #{kw\ 5592}#) (call-with-values (lambda () - (#{expand-req\ 618}# - #{req\ 807}# - #{opt\ 808}# - #{rest\ 809}# - #{kw\ 810}# - (cons #{e1\ 802}# - #{e2\ 803}#))) - (lambda (#{meta\ 816}# - #{req\ 817}# - #{opt\ 818}# - #{rest\ 819}# - #{kw\ 820}# - #{inits\ 821}# - #{vars\ 822}# - #{body\ 823}#) + (#{expand-req\ 5400}# + #{req\ 5589}# + #{opt\ 5590}# + #{rest\ 5591}# + #{kw\ 5592}# + (cons #{e1\ 5584}# + #{e2\ 5585}#))) + (lambda (#{meta\ 5598}# + #{req\ 5599}# + #{opt\ 5600}# + #{rest\ 5601}# + #{kw\ 5602}# + #{inits\ 5603}# + #{vars\ 5604}# + #{body\ 5605}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 603}# - #{r\ 604}# - #{w\ 605}# - #{s\ 606}# - #{mod\ 607}# - #{get-formals\ 608}# - (map (lambda (#{tmp\ 834}# - #{tmp\ 833}# - #{tmp\ 832}#) - (cons #{tmp\ 832}# - (cons #{tmp\ 833}# - #{tmp\ 834}#))) - #{e2*\ 806}# - #{e1*\ 805}# - #{args*\ 804}#))) - (lambda (#{meta*\ 836}# - #{else*\ 837}#) + (#{chi-lambda-case\ 5113}# + #{e\ 5385}# + #{r\ 5386}# + #{w\ 5387}# + #{s\ 5388}# + #{mod\ 5389}# + #{get-formals\ 5390}# + (map (lambda (#{tmp\ 5616}# + #{tmp\ 5615}# + #{tmp\ 5614}#) + (cons #{tmp\ 5614}# + (cons #{tmp\ 5615}# + #{tmp\ 5616}#))) + #{e2*\ 5588}# + #{e1*\ 5587}# + #{args*\ 5586}#))) + (lambda (#{meta*\ 5618}# + #{else*\ 5619}#) (values (append - #{meta\ 816}# - #{meta*\ 836}#) - (#{build-lambda-case\ 168}# - #{s\ 606}# - #{req\ 817}# - #{opt\ 818}# - #{rest\ 819}# - #{kw\ 820}# - #{inits\ 821}# - #{vars\ 822}# - #{body\ 823}# - #{else*\ 837}#))))))))) - #{tmp\ 794}#) + #{meta\ 5598}# + #{meta*\ 5618}#) + (#{build-lambda-case\ 4950}# + #{s\ 5388}# + #{req\ 5599}# + #{opt\ 5600}# + #{rest\ 5601}# + #{kw\ 5602}# + #{inits\ 5603}# + #{vars\ 5604}# + #{body\ 5605}# + #{else*\ 5619}#))))))))) + #{tmp\ 5576}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 792}#))) + #{tmp\ 5574}#))) ($sc-dispatch - #{tmp\ 792}# + #{tmp\ 5574}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 792}# (quote ())))) - #{clauses\ 609}#)))) - (#{lambda*-formals\ 329}# - (lambda (#{orig-args\ 840}#) - (letrec ((#{check\ 851}# - (lambda (#{req\ 852}# - #{opt\ 853}# - #{rest\ 854}# - #{kw\ 855}#) - (if (#{distinct-bound-ids?\ 287}# + ($sc-dispatch #{tmp\ 5574}# (quote ())))) + #{clauses\ 5391}#)))) + (#{lambda*-formals\ 5111}# + (lambda (#{orig-args\ 5622}#) + (letrec ((#{check\ 5633}# + (lambda (#{req\ 5634}# + #{opt\ 5635}# + #{rest\ 5636}# + #{kw\ 5637}#) + (if (#{distinct-bound-ids?\ 5069}# (append - #{req\ 852}# - (map car #{opt\ 853}#) - (if #{rest\ 854}# - (list #{rest\ 854}#) + #{req\ 5634}# + (map car #{opt\ 5635}#) + (if #{rest\ 5636}# + (list #{rest\ 5636}#) '()) - (if (pair? #{kw\ 855}#) - (map cadr (cdr #{kw\ 855}#)) + (if (pair? #{kw\ 5637}#) + (map cadr (cdr #{kw\ 5637}#)) '()))) (values - #{req\ 852}# - #{opt\ 853}# - #{rest\ 854}# - #{kw\ 855}#) + #{req\ 5634}# + #{opt\ 5635}# + #{rest\ 5636}# + #{kw\ 5637}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 840}#)))) - (#{rest\ 849}# - (lambda (#{args\ 863}# - #{req\ 864}# - #{opt\ 865}# - #{kw\ 866}#) - ((lambda (#{tmp\ 871}#) - ((lambda (#{tmp\ 872}#) - (if (if #{tmp\ 872}# - (apply (lambda (#{r\ 874}#) - (#{id?\ 222}# #{r\ 874}#)) - #{tmp\ 872}#) + #{orig-args\ 5622}#)))) + (#{rest\ 5631}# + (lambda (#{args\ 5645}# + #{req\ 5646}# + #{opt\ 5647}# + #{kw\ 5648}#) + ((lambda (#{tmp\ 5653}#) + ((lambda (#{tmp\ 5654}#) + (if (if #{tmp\ 5654}# + (apply (lambda (#{r\ 5656}#) + (#{id?\ 5004}# #{r\ 5656}#)) + #{tmp\ 5654}#) #f) - (apply (lambda (#{r\ 876}#) - (#{check\ 851}# - #{req\ 864}# - #{opt\ 865}# - #{r\ 876}# - #{kw\ 866}#)) - #{tmp\ 872}#) - ((lambda (#{else\ 878}#) + (apply (lambda (#{r\ 5658}#) + (#{check\ 5633}# + #{req\ 5646}# + #{opt\ 5647}# + #{r\ 5658}# + #{kw\ 5648}#)) + #{tmp\ 5654}#) + ((lambda (#{else\ 5660}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 840}# - #{args\ 863}#)) - #{tmp\ 871}#))) - (list #{tmp\ 871}#))) - #{args\ 863}#))) - (#{key\ 847}# - (lambda (#{args\ 879}# - #{req\ 880}# - #{opt\ 881}# - #{rkey\ 882}#) - ((lambda (#{tmp\ 887}#) - ((lambda (#{tmp\ 888}#) - (if #{tmp\ 888}# + #{orig-args\ 5622}# + #{args\ 5645}#)) + #{tmp\ 5653}#))) + (list #{tmp\ 5653}#))) + #{args\ 5645}#))) + (#{key\ 5629}# + (lambda (#{args\ 5661}# + #{req\ 5662}# + #{opt\ 5663}# + #{rkey\ 5664}#) + ((lambda (#{tmp\ 5669}#) + ((lambda (#{tmp\ 5670}#) + (if #{tmp\ 5670}# (apply (lambda () - (#{check\ 851}# - #{req\ 880}# - #{opt\ 881}# + (#{check\ 5633}# + #{req\ 5662}# + #{opt\ 5663}# #f (cons #f - (reverse #{rkey\ 882}#)))) - #{tmp\ 888}#) - ((lambda (#{tmp\ 889}#) - (if (if #{tmp\ 889}# - (apply (lambda (#{a\ 892}# - #{b\ 893}#) - (#{id?\ 222}# - #{a\ 892}#)) - #{tmp\ 889}#) + (reverse + #{rkey\ 5664}#)))) + #{tmp\ 5670}#) + ((lambda (#{tmp\ 5671}#) + (if (if #{tmp\ 5671}# + (apply (lambda (#{a\ 5674}# + #{b\ 5675}#) + (#{id?\ 5004}# + #{a\ 5674}#)) + #{tmp\ 5671}#) #f) - (apply (lambda (#{a\ 896}# #{b\ 897}#) - ((lambda (#{tmp\ 899}#) - ((lambda (#{k\ 901}#) - (#{key\ 847}# - #{b\ 897}# - #{req\ 880}# - #{opt\ 881}# - (cons (cons #{k\ 901}# - (cons #{a\ 896}# + (apply (lambda (#{a\ 5678}# + #{b\ 5679}#) + ((lambda (#{tmp\ 5681}#) + ((lambda (#{k\ 5683}#) + (#{key\ 5629}# + #{b\ 5679}# + #{req\ 5662}# + #{opt\ 5663}# + (cons (cons #{k\ 5683}# + (cons #{a\ 5678}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i900")) + #("i5682")) #(ribcage #(a b) #((top) (top)) - #("i894" - "i895")) + #("i5676" + "i5677")) #(ribcage () () @@ -646,10 +652,10 @@ (top) (top) (top)) - #("i883" - "i884" - "i885" - "i886")) + #("i5665" + "i5666" + "i5667" + "i5668")) #(ribcage (check rest key @@ -660,15 +666,15 @@ (top) (top) (top)) - ("i850" - "i848" - "i846" - "i844" - "i842")) + ("i5632" + "i5630" + "i5628" + "i5626" + "i5624")) #(ribcage #(orig-args) #((top)) - #("i841")) + #("i5623")) #(ribcage (lambda-var-list gen-var @@ -906,350 +912,350 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i4803" + "i4801"))) (hygiene guile))))) - #{rkey\ 882}#))) - #{tmp\ 899}#)) + #{rkey\ 5664}#))) + #{tmp\ 5681}#)) (symbol->keyword (syntax->datum - #{a\ 896}#)))) - #{tmp\ 889}#) - ((lambda (#{tmp\ 902}#) - (if (if #{tmp\ 902}# - (apply (lambda (#{a\ 906}# - #{init\ 907}# - #{b\ 908}#) - (#{id?\ 222}# - #{a\ 906}#)) - #{tmp\ 902}#) + #{a\ 5678}#)))) + #{tmp\ 5671}#) + ((lambda (#{tmp\ 5684}#) + (if (if #{tmp\ 5684}# + (apply (lambda (#{a\ 5688}# + #{init\ 5689}# + #{b\ 5690}#) + (#{id?\ 5004}# + #{a\ 5688}#)) + #{tmp\ 5684}#) #f) - (apply (lambda (#{a\ 912}# - #{init\ 913}# - #{b\ 914}#) - ((lambda (#{tmp\ 916}#) - ((lambda (#{k\ 918}#) - (#{key\ 847}# - #{b\ 914}# - #{req\ 880}# - #{opt\ 881}# - (cons (list #{k\ 918}# - #{a\ 912}# - #{init\ 913}#) - #{rkey\ 882}#))) - #{tmp\ 916}#)) + (apply (lambda (#{a\ 5694}# + #{init\ 5695}# + #{b\ 5696}#) + ((lambda (#{tmp\ 5698}#) + ((lambda (#{k\ 5700}#) + (#{key\ 5629}# + #{b\ 5696}# + #{req\ 5662}# + #{opt\ 5663}# + (cons (list #{k\ 5700}# + #{a\ 5694}# + #{init\ 5695}#) + #{rkey\ 5664}#))) + #{tmp\ 5698}#)) (symbol->keyword (syntax->datum - #{a\ 912}#)))) - #{tmp\ 902}#) - ((lambda (#{tmp\ 919}#) - (if (if #{tmp\ 919}# - (apply (lambda (#{a\ 924}# - #{init\ 925}# - #{k\ 926}# - #{b\ 927}#) - (if (#{id?\ 222}# - #{a\ 924}#) + #{a\ 5694}#)))) + #{tmp\ 5684}#) + ((lambda (#{tmp\ 5701}#) + (if (if #{tmp\ 5701}# + (apply (lambda (#{a\ 5706}# + #{init\ 5707}# + #{k\ 5708}# + #{b\ 5709}#) + (if (#{id?\ 5004}# + #{a\ 5706}#) (keyword? (syntax->datum - #{k\ 926}#)) + #{k\ 5708}#)) #f)) - #{tmp\ 919}#) + #{tmp\ 5701}#) #f) - (apply (lambda (#{a\ 934}# - #{init\ 935}# - #{k\ 936}# - #{b\ 937}#) - (#{key\ 847}# - #{b\ 937}# - #{req\ 880}# - #{opt\ 881}# - (cons (list #{k\ 936}# - #{a\ 934}# - #{init\ 935}#) - #{rkey\ 882}#))) - #{tmp\ 919}#) - ((lambda (#{tmp\ 938}#) - (if (if #{tmp\ 938}# - (apply (lambda (#{aok\ 940}#) + (apply (lambda (#{a\ 5716}# + #{init\ 5717}# + #{k\ 5718}# + #{b\ 5719}#) + (#{key\ 5629}# + #{b\ 5719}# + #{req\ 5662}# + #{opt\ 5663}# + (cons (list #{k\ 5718}# + #{a\ 5716}# + #{init\ 5717}#) + #{rkey\ 5664}#))) + #{tmp\ 5701}#) + ((lambda (#{tmp\ 5720}#) + (if (if #{tmp\ 5720}# + (apply (lambda (#{aok\ 5722}#) (eq? (syntax->datum - #{aok\ 940}#) + #{aok\ 5722}#) #:allow-other-keys)) - #{tmp\ 938}#) + #{tmp\ 5720}#) #f) - (apply (lambda (#{aok\ 942}#) - (#{check\ 851}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{aok\ 5724}#) + (#{check\ 5633}# + #{req\ 5662}# + #{opt\ 5663}# #f (cons #t (reverse - #{rkey\ 882}#)))) - #{tmp\ 938}#) - ((lambda (#{tmp\ 943}#) - (if (if #{tmp\ 943}# - (apply (lambda (#{aok\ 947}# - #{a\ 948}# - #{b\ 949}#) + #{rkey\ 5664}#)))) + #{tmp\ 5720}#) + ((lambda (#{tmp\ 5725}#) + (if (if #{tmp\ 5725}# + (apply (lambda (#{aok\ 5729}# + #{a\ 5730}# + #{b\ 5731}#) (if (eq? (syntax->datum - #{aok\ 947}#) + #{aok\ 5729}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 948}#) + #{a\ 5730}#) #:rest) #f)) - #{tmp\ 943}#) + #{tmp\ 5725}#) #f) - (apply (lambda (#{aok\ 955}# - #{a\ 956}# - #{b\ 957}#) - (#{rest\ 849}# - #{b\ 957}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{aok\ 5737}# + #{a\ 5738}# + #{b\ 5739}#) + (#{rest\ 5631}# + #{b\ 5739}# + #{req\ 5662}# + #{opt\ 5663}# (cons #t (reverse - #{rkey\ 882}#)))) - #{tmp\ 943}#) - ((lambda (#{tmp\ 958}#) - (if (if #{tmp\ 958}# - (apply (lambda (#{aok\ 961}# - #{r\ 962}#) + #{rkey\ 5664}#)))) + #{tmp\ 5725}#) + ((lambda (#{tmp\ 5740}#) + (if (if #{tmp\ 5740}# + (apply (lambda (#{aok\ 5743}# + #{r\ 5744}#) (if (eq? (syntax->datum - #{aok\ 961}#) + #{aok\ 5743}#) #:allow-other-keys) - (#{id?\ 222}# - #{r\ 962}#) + (#{id?\ 5004}# + #{r\ 5744}#) #f)) - #{tmp\ 958}#) + #{tmp\ 5740}#) #f) - (apply (lambda (#{aok\ 967}# - #{r\ 968}#) - (#{rest\ 849}# - #{r\ 968}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{aok\ 5749}# + #{r\ 5750}#) + (#{rest\ 5631}# + #{r\ 5750}# + #{req\ 5662}# + #{opt\ 5663}# (cons #t (reverse - #{rkey\ 882}#)))) - #{tmp\ 958}#) - ((lambda (#{tmp\ 969}#) - (if (if #{tmp\ 969}# - (apply (lambda (#{a\ 972}# - #{b\ 973}#) + #{rkey\ 5664}#)))) + #{tmp\ 5740}#) + ((lambda (#{tmp\ 5751}#) + (if (if #{tmp\ 5751}# + (apply (lambda (#{a\ 5754}# + #{b\ 5755}#) (eq? (syntax->datum - #{a\ 972}#) + #{a\ 5754}#) #:rest)) - #{tmp\ 969}#) + #{tmp\ 5751}#) #f) - (apply (lambda (#{a\ 976}# - #{b\ 977}#) - (#{rest\ 849}# - #{b\ 977}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{a\ 5758}# + #{b\ 5759}#) + (#{rest\ 5631}# + #{b\ 5759}# + #{req\ 5662}# + #{opt\ 5663}# (cons #f (reverse - #{rkey\ 882}#)))) - #{tmp\ 969}#) - ((lambda (#{tmp\ 978}#) - (if (if #{tmp\ 978}# - (apply (lambda (#{r\ 980}#) - (#{id?\ 222}# - #{r\ 980}#)) - #{tmp\ 978}#) + #{rkey\ 5664}#)))) + #{tmp\ 5751}#) + ((lambda (#{tmp\ 5760}#) + (if (if #{tmp\ 5760}# + (apply (lambda (#{r\ 5762}#) + (#{id?\ 5004}# + #{r\ 5762}#)) + #{tmp\ 5760}#) #f) - (apply (lambda (#{r\ 982}#) - (#{rest\ 849}# - #{r\ 982}# - #{req\ 880}# - #{opt\ 881}# + (apply (lambda (#{r\ 5764}#) + (#{rest\ 5631}# + #{r\ 5764}# + #{req\ 5662}# + #{opt\ 5663}# (cons #f (reverse - #{rkey\ 882}#)))) - #{tmp\ 978}#) - ((lambda (#{else\ 984}#) + #{rkey\ 5664}#)))) + #{tmp\ 5760}#) + ((lambda (#{else\ 5766}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 840}# - #{args\ 879}#)) - #{tmp\ 887}#))) - (list #{tmp\ 887}#)))) + #{orig-args\ 5622}# + #{args\ 5661}#)) + #{tmp\ 5669}#))) + (list #{tmp\ 5669}#)))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '(any any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '(any . any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '(any any any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '(any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 5669}# '(any . any))))) - ($sc-dispatch #{tmp\ 887}# (quote ())))) - #{args\ 879}#))) - (#{opt\ 845}# - (lambda (#{args\ 985}# #{req\ 986}# #{ropt\ 987}#) - ((lambda (#{tmp\ 991}#) - ((lambda (#{tmp\ 992}#) - (if #{tmp\ 992}# + ($sc-dispatch #{tmp\ 5669}# (quote ())))) + #{args\ 5661}#))) + (#{opt\ 5627}# + (lambda (#{args\ 5767}# #{req\ 5768}# #{ropt\ 5769}#) + ((lambda (#{tmp\ 5773}#) + ((lambda (#{tmp\ 5774}#) + (if #{tmp\ 5774}# (apply (lambda () - (#{check\ 851}# - #{req\ 986}# - (reverse #{ropt\ 987}#) + (#{check\ 5633}# + #{req\ 5768}# + (reverse #{ropt\ 5769}#) #f '())) - #{tmp\ 992}#) - ((lambda (#{tmp\ 993}#) - (if (if #{tmp\ 993}# - (apply (lambda (#{a\ 996}# - #{b\ 997}#) - (#{id?\ 222}# - #{a\ 996}#)) - #{tmp\ 993}#) + #{tmp\ 5774}#) + ((lambda (#{tmp\ 5775}#) + (if (if #{tmp\ 5775}# + (apply (lambda (#{a\ 5778}# + #{b\ 5779}#) + (#{id?\ 5004}# + #{a\ 5778}#)) + #{tmp\ 5775}#) #f) - (apply (lambda (#{a\ 1000}# - #{b\ 1001}#) - (#{opt\ 845}# - #{b\ 1001}# - #{req\ 986}# - (cons (cons #{a\ 1000}# + (apply (lambda (#{a\ 5782}# + #{b\ 5783}#) + (#{opt\ 5627}# + #{b\ 5783}# + #{req\ 5768}# + (cons (cons #{a\ 5782}# '(#(syntax-object #f ((top) @@ -1257,8 +1263,8 @@ #(a b) #((top) (top)) - #("i998" - "i999")) + #("i5780" + "i5781")) #(ribcage () () @@ -1270,9 +1276,9 @@ #((top) (top) (top)) - #("i988" - "i989" - "i990")) + #("i5770" + "i5771" + "i5772")) #(ribcage (check rest key @@ -1283,15 +1289,15 @@ (top) (top) (top)) - ("i850" - "i848" - "i846" - "i844" - "i842")) + ("i5632" + "i5630" + "i5628" + "i5626" + "i5624")) #(ribcage #(orig-args) #((top)) - #("i841")) + #("i5623")) #(ribcage (lambda-var-list gen-var @@ -1529,463 +1535,463 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i4803" + "i4801"))) (hygiene guile)))) - #{ropt\ 987}#))) - #{tmp\ 993}#) - ((lambda (#{tmp\ 1002}#) - (if (if #{tmp\ 1002}# - (apply (lambda (#{a\ 1006}# - #{init\ 1007}# - #{b\ 1008}#) - (#{id?\ 222}# - #{a\ 1006}#)) - #{tmp\ 1002}#) + #{ropt\ 5769}#))) + #{tmp\ 5775}#) + ((lambda (#{tmp\ 5784}#) + (if (if #{tmp\ 5784}# + (apply (lambda (#{a\ 5788}# + #{init\ 5789}# + #{b\ 5790}#) + (#{id?\ 5004}# + #{a\ 5788}#)) + #{tmp\ 5784}#) #f) - (apply (lambda (#{a\ 1012}# - #{init\ 1013}# - #{b\ 1014}#) - (#{opt\ 845}# - #{b\ 1014}# - #{req\ 986}# - (cons (list #{a\ 1012}# - #{init\ 1013}#) - #{ropt\ 987}#))) - #{tmp\ 1002}#) - ((lambda (#{tmp\ 1015}#) - (if (if #{tmp\ 1015}# - (apply (lambda (#{a\ 1018}# - #{b\ 1019}#) + (apply (lambda (#{a\ 5794}# + #{init\ 5795}# + #{b\ 5796}#) + (#{opt\ 5627}# + #{b\ 5796}# + #{req\ 5768}# + (cons (list #{a\ 5794}# + #{init\ 5795}#) + #{ropt\ 5769}#))) + #{tmp\ 5784}#) + ((lambda (#{tmp\ 5797}#) + (if (if #{tmp\ 5797}# + (apply (lambda (#{a\ 5800}# + #{b\ 5801}#) (eq? (syntax->datum - #{a\ 1018}#) + #{a\ 5800}#) #:key)) - #{tmp\ 1015}#) + #{tmp\ 5797}#) #f) - (apply (lambda (#{a\ 1022}# - #{b\ 1023}#) - (#{key\ 847}# - #{b\ 1023}# - #{req\ 986}# + (apply (lambda (#{a\ 5804}# + #{b\ 5805}#) + (#{key\ 5629}# + #{b\ 5805}# + #{req\ 5768}# (reverse - #{ropt\ 987}#) + #{ropt\ 5769}#) '())) - #{tmp\ 1015}#) - ((lambda (#{tmp\ 1024}#) - (if (if #{tmp\ 1024}# - (apply (lambda (#{a\ 1027}# - #{b\ 1028}#) + #{tmp\ 5797}#) + ((lambda (#{tmp\ 5806}#) + (if (if #{tmp\ 5806}# + (apply (lambda (#{a\ 5809}# + #{b\ 5810}#) (eq? (syntax->datum - #{a\ 1027}#) + #{a\ 5809}#) #:rest)) - #{tmp\ 1024}#) + #{tmp\ 5806}#) #f) - (apply (lambda (#{a\ 1031}# - #{b\ 1032}#) - (#{rest\ 849}# - #{b\ 1032}# - #{req\ 986}# + (apply (lambda (#{a\ 5813}# + #{b\ 5814}#) + (#{rest\ 5631}# + #{b\ 5814}# + #{req\ 5768}# (reverse - #{ropt\ 987}#) + #{ropt\ 5769}#) '())) - #{tmp\ 1024}#) - ((lambda (#{tmp\ 1033}#) - (if (if #{tmp\ 1033}# - (apply (lambda (#{r\ 1035}#) - (#{id?\ 222}# - #{r\ 1035}#)) - #{tmp\ 1033}#) + #{tmp\ 5806}#) + ((lambda (#{tmp\ 5815}#) + (if (if #{tmp\ 5815}# + (apply (lambda (#{r\ 5817}#) + (#{id?\ 5004}# + #{r\ 5817}#)) + #{tmp\ 5815}#) #f) - (apply (lambda (#{r\ 1037}#) - (#{rest\ 849}# - #{r\ 1037}# - #{req\ 986}# + (apply (lambda (#{r\ 5819}#) + (#{rest\ 5631}# + #{r\ 5819}# + #{req\ 5768}# (reverse - #{ropt\ 987}#) + #{ropt\ 5769}#) '())) - #{tmp\ 1033}#) - ((lambda (#{else\ 1039}#) + #{tmp\ 5815}#) + ((lambda (#{else\ 5821}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 840}# - #{args\ 985}#)) - #{tmp\ 991}#))) - (list #{tmp\ 991}#)))) + #{orig-args\ 5622}# + #{args\ 5767}#)) + #{tmp\ 5773}#))) + (list #{tmp\ 5773}#)))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 5773}# '(any any))))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 5773}# '(any . any))))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 5773}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 991}# + #{tmp\ 5773}# '(any . any))))) - ($sc-dispatch #{tmp\ 991}# (quote ())))) - #{args\ 985}#))) - (#{req\ 843}# - (lambda (#{args\ 1040}# #{rreq\ 1041}#) - ((lambda (#{tmp\ 1044}#) - ((lambda (#{tmp\ 1045}#) - (if #{tmp\ 1045}# + ($sc-dispatch #{tmp\ 5773}# (quote ())))) + #{args\ 5767}#))) + (#{req\ 5625}# + (lambda (#{args\ 5822}# #{rreq\ 5823}#) + ((lambda (#{tmp\ 5826}#) + ((lambda (#{tmp\ 5827}#) + (if #{tmp\ 5827}# (apply (lambda () - (#{check\ 851}# - (reverse #{rreq\ 1041}#) + (#{check\ 5633}# + (reverse #{rreq\ 5823}#) '() #f '())) - #{tmp\ 1045}#) - ((lambda (#{tmp\ 1046}#) - (if (if #{tmp\ 1046}# - (apply (lambda (#{a\ 1049}# - #{b\ 1050}#) - (#{id?\ 222}# - #{a\ 1049}#)) - #{tmp\ 1046}#) + #{tmp\ 5827}#) + ((lambda (#{tmp\ 5828}#) + (if (if #{tmp\ 5828}# + (apply (lambda (#{a\ 5831}# + #{b\ 5832}#) + (#{id?\ 5004}# + #{a\ 5831}#)) + #{tmp\ 5828}#) #f) - (apply (lambda (#{a\ 1053}# - #{b\ 1054}#) - (#{req\ 843}# - #{b\ 1054}# - (cons #{a\ 1053}# - #{rreq\ 1041}#))) - #{tmp\ 1046}#) - ((lambda (#{tmp\ 1055}#) - (if (if #{tmp\ 1055}# - (apply (lambda (#{a\ 1058}# - #{b\ 1059}#) + (apply (lambda (#{a\ 5835}# + #{b\ 5836}#) + (#{req\ 5625}# + #{b\ 5836}# + (cons #{a\ 5835}# + #{rreq\ 5823}#))) + #{tmp\ 5828}#) + ((lambda (#{tmp\ 5837}#) + (if (if #{tmp\ 5837}# + (apply (lambda (#{a\ 5840}# + #{b\ 5841}#) (eq? (syntax->datum - #{a\ 1058}#) + #{a\ 5840}#) #:optional)) - #{tmp\ 1055}#) + #{tmp\ 5837}#) #f) - (apply (lambda (#{a\ 1062}# - #{b\ 1063}#) - (#{opt\ 845}# - #{b\ 1063}# + (apply (lambda (#{a\ 5844}# + #{b\ 5845}#) + (#{opt\ 5627}# + #{b\ 5845}# (reverse - #{rreq\ 1041}#) + #{rreq\ 5823}#) '())) - #{tmp\ 1055}#) - ((lambda (#{tmp\ 1064}#) - (if (if #{tmp\ 1064}# - (apply (lambda (#{a\ 1067}# - #{b\ 1068}#) + #{tmp\ 5837}#) + ((lambda (#{tmp\ 5846}#) + (if (if #{tmp\ 5846}# + (apply (lambda (#{a\ 5849}# + #{b\ 5850}#) (eq? (syntax->datum - #{a\ 1067}#) + #{a\ 5849}#) #:key)) - #{tmp\ 1064}#) + #{tmp\ 5846}#) #f) - (apply (lambda (#{a\ 1071}# - #{b\ 1072}#) - (#{key\ 847}# - #{b\ 1072}# + (apply (lambda (#{a\ 5853}# + #{b\ 5854}#) + (#{key\ 5629}# + #{b\ 5854}# (reverse - #{rreq\ 1041}#) + #{rreq\ 5823}#) '() '())) - #{tmp\ 1064}#) - ((lambda (#{tmp\ 1073}#) - (if (if #{tmp\ 1073}# - (apply (lambda (#{a\ 1076}# - #{b\ 1077}#) + #{tmp\ 5846}#) + ((lambda (#{tmp\ 5855}#) + (if (if #{tmp\ 5855}# + (apply (lambda (#{a\ 5858}# + #{b\ 5859}#) (eq? (syntax->datum - #{a\ 1076}#) + #{a\ 5858}#) #:rest)) - #{tmp\ 1073}#) + #{tmp\ 5855}#) #f) - (apply (lambda (#{a\ 1080}# - #{b\ 1081}#) - (#{rest\ 849}# - #{b\ 1081}# + (apply (lambda (#{a\ 5862}# + #{b\ 5863}#) + (#{rest\ 5631}# + #{b\ 5863}# (reverse - #{rreq\ 1041}#) + #{rreq\ 5823}#) '() '())) - #{tmp\ 1073}#) - ((lambda (#{tmp\ 1082}#) - (if (if #{tmp\ 1082}# - (apply (lambda (#{r\ 1084}#) - (#{id?\ 222}# - #{r\ 1084}#)) - #{tmp\ 1082}#) + #{tmp\ 5855}#) + ((lambda (#{tmp\ 5864}#) + (if (if #{tmp\ 5864}# + (apply (lambda (#{r\ 5866}#) + (#{id?\ 5004}# + #{r\ 5866}#)) + #{tmp\ 5864}#) #f) - (apply (lambda (#{r\ 1086}#) - (#{rest\ 849}# - #{r\ 1086}# + (apply (lambda (#{r\ 5868}#) + (#{rest\ 5631}# + #{r\ 5868}# (reverse - #{rreq\ 1041}#) + #{rreq\ 5823}#) '() '())) - #{tmp\ 1082}#) - ((lambda (#{else\ 1088}#) + #{tmp\ 5864}#) + ((lambda (#{else\ 5870}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 840}# - #{args\ 1040}#)) - #{tmp\ 1044}#))) - (list #{tmp\ 1044}#)))) + #{orig-args\ 5622}# + #{args\ 5822}#)) + #{tmp\ 5826}#))) + (list #{tmp\ 5826}#)))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 5826}# '(any any))))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 5826}# '(any . any))))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 5826}# '(any . any))))) ($sc-dispatch - #{tmp\ 1044}# + #{tmp\ 5826}# '(any . any))))) - ($sc-dispatch #{tmp\ 1044}# (quote ())))) - #{args\ 1040}#)))) - (#{req\ 843}# #{orig-args\ 840}# (quote ()))))) - (#{chi-simple-lambda\ 327}# - (lambda (#{e\ 1089}# - #{r\ 1090}# - #{w\ 1091}# - #{s\ 1092}# - #{mod\ 1093}# - #{req\ 1094}# - #{rest\ 1095}# - #{meta\ 1096}# - #{body\ 1097}#) - (let ((#{ids\ 1109}# - (if #{rest\ 1095}# - (append #{req\ 1094}# (list #{rest\ 1095}#)) - #{req\ 1094}#))) - (let ((#{vars\ 1111}# - (map #{gen-var\ 335}# #{ids\ 1109}#))) - (let ((#{labels\ 1113}# - (#{gen-labels\ 240}# #{ids\ 1109}#))) - (#{build-simple-lambda\ 164}# - #{s\ 1092}# - (map syntax->datum #{req\ 1094}#) - (if #{rest\ 1095}# - (syntax->datum #{rest\ 1095}#) + ($sc-dispatch #{tmp\ 5826}# (quote ())))) + #{args\ 5822}#)))) + (#{req\ 5625}# #{orig-args\ 5622}# (quote ()))))) + (#{chi-simple-lambda\ 5109}# + (lambda (#{e\ 5871}# + #{r\ 5872}# + #{w\ 5873}# + #{s\ 5874}# + #{mod\ 5875}# + #{req\ 5876}# + #{rest\ 5877}# + #{meta\ 5878}# + #{body\ 5879}#) + (let ((#{ids\ 5891}# + (if #{rest\ 5877}# + (append #{req\ 5876}# (list #{rest\ 5877}#)) + #{req\ 5876}#))) + (let ((#{vars\ 5893}# + (map #{gen-var\ 5117}# #{ids\ 5891}#))) + (let ((#{labels\ 5895}# + (#{gen-labels\ 5022}# #{ids\ 5891}#))) + (#{build-simple-lambda\ 4946}# + #{s\ 5874}# + (map syntax->datum #{req\ 5876}#) + (if #{rest\ 5877}# + (syntax->datum #{rest\ 5877}#) #f) - #{vars\ 1111}# - #{meta\ 1096}# - (#{chi-body\ 315}# - #{body\ 1097}# - (#{source-wrap\ 293}# - #{e\ 1089}# - #{w\ 1091}# - #{s\ 1092}# - #{mod\ 1093}#) - (#{extend-var-env\ 212}# - #{labels\ 1113}# - #{vars\ 1111}# - #{r\ 1090}#) - (#{make-binding-wrap\ 269}# - #{ids\ 1109}# - #{labels\ 1113}# - #{w\ 1091}#) - #{mod\ 1093}#))))))) - (#{lambda-formals\ 325}# - (lambda (#{orig-args\ 1116}#) - (letrec ((#{check\ 1121}# - (lambda (#{req\ 1122}# #{rest\ 1123}#) - (if (#{distinct-bound-ids?\ 287}# - (if #{rest\ 1123}# - (cons #{rest\ 1123}# #{req\ 1122}#) - #{req\ 1122}#)) - (values #{req\ 1122}# #f #{rest\ 1123}# #f) + #{vars\ 5893}# + #{meta\ 5878}# + (#{chi-body\ 5097}# + #{body\ 5879}# + (#{source-wrap\ 5075}# + #{e\ 5871}# + #{w\ 5873}# + #{s\ 5874}# + #{mod\ 5875}#) + (#{extend-var-env\ 4994}# + #{labels\ 5895}# + #{vars\ 5893}# + #{r\ 5872}#) + (#{make-binding-wrap\ 5051}# + #{ids\ 5891}# + #{labels\ 5895}# + #{w\ 5873}#) + #{mod\ 5875}#))))))) + (#{lambda-formals\ 5107}# + (lambda (#{orig-args\ 5898}#) + (letrec ((#{check\ 5903}# + (lambda (#{req\ 5904}# #{rest\ 5905}#) + (if (#{distinct-bound-ids?\ 5069}# + (if #{rest\ 5905}# + (cons #{rest\ 5905}# #{req\ 5904}#) + #{req\ 5904}#)) + (values #{req\ 5904}# #f #{rest\ 5905}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1116}#)))) - (#{req\ 1119}# - (lambda (#{args\ 1129}# #{rreq\ 1130}#) - ((lambda (#{tmp\ 1133}#) - ((lambda (#{tmp\ 1134}#) - (if #{tmp\ 1134}# + #{orig-args\ 5898}#)))) + (#{req\ 5901}# + (lambda (#{args\ 5911}# #{rreq\ 5912}#) + ((lambda (#{tmp\ 5915}#) + ((lambda (#{tmp\ 5916}#) + (if #{tmp\ 5916}# (apply (lambda () - (#{check\ 1121}# - (reverse #{rreq\ 1130}#) + (#{check\ 5903}# + (reverse #{rreq\ 5912}#) #f)) - #{tmp\ 1134}#) - ((lambda (#{tmp\ 1135}#) - (if (if #{tmp\ 1135}# - (apply (lambda (#{a\ 1138}# - #{b\ 1139}#) - (#{id?\ 222}# - #{a\ 1138}#)) - #{tmp\ 1135}#) + #{tmp\ 5916}#) + ((lambda (#{tmp\ 5917}#) + (if (if #{tmp\ 5917}# + (apply (lambda (#{a\ 5920}# + #{b\ 5921}#) + (#{id?\ 5004}# + #{a\ 5920}#)) + #{tmp\ 5917}#) #f) - (apply (lambda (#{a\ 1142}# - #{b\ 1143}#) - (#{req\ 1119}# - #{b\ 1143}# - (cons #{a\ 1142}# - #{rreq\ 1130}#))) - #{tmp\ 1135}#) - ((lambda (#{tmp\ 1144}#) - (if (if #{tmp\ 1144}# - (apply (lambda (#{r\ 1146}#) - (#{id?\ 222}# - #{r\ 1146}#)) - #{tmp\ 1144}#) + (apply (lambda (#{a\ 5924}# + #{b\ 5925}#) + (#{req\ 5901}# + #{b\ 5925}# + (cons #{a\ 5924}# + #{rreq\ 5912}#))) + #{tmp\ 5917}#) + ((lambda (#{tmp\ 5926}#) + (if (if #{tmp\ 5926}# + (apply (lambda (#{r\ 5928}#) + (#{id?\ 5004}# + #{r\ 5928}#)) + #{tmp\ 5926}#) #f) - (apply (lambda (#{r\ 1148}#) - (#{check\ 1121}# + (apply (lambda (#{r\ 5930}#) + (#{check\ 5903}# (reverse - #{rreq\ 1130}#) - #{r\ 1148}#)) - #{tmp\ 1144}#) - ((lambda (#{else\ 1150}#) + #{rreq\ 5912}#) + #{r\ 5930}#)) + #{tmp\ 5926}#) + ((lambda (#{else\ 5932}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1116}# - #{args\ 1129}#)) - #{tmp\ 1133}#))) - (list #{tmp\ 1133}#)))) + #{orig-args\ 5898}# + #{args\ 5911}#)) + #{tmp\ 5915}#))) + (list #{tmp\ 5915}#)))) ($sc-dispatch - #{tmp\ 1133}# + #{tmp\ 5915}# '(any . any))))) - ($sc-dispatch #{tmp\ 1133}# (quote ())))) - #{args\ 1129}#)))) - (#{req\ 1119}# #{orig-args\ 1116}# (quote ()))))) - (#{ellipsis?\ 323}# - (lambda (#{x\ 1151}#) - (if (#{nonsymbol-id?\ 220}# #{x\ 1151}#) - (#{free-id=?\ 281}# - #{x\ 1151}# + ($sc-dispatch #{tmp\ 5915}# (quote ())))) + #{args\ 5911}#)))) + (#{req\ 5901}# #{orig-args\ 5898}# (quote ()))))) + (#{ellipsis?\ 5105}# + (lambda (#{x\ 5933}#) + (if (#{nonsymbol-id?\ 5002}# #{x\ 5933}#) + (#{free-id=?\ 5063}# + #{x\ 5933}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1152")) + #(ribcage #(x) #((top)) #("i5934")) #(ribcage (lambda-var-list gen-var @@ -2223,1395 +2229,1412 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile))) #f))) - (#{chi-void\ 321}# - (lambda () (#{build-void\ 142}# #f))) - (#{eval-local-transformer\ 319}# - (lambda (#{expanded\ 1156}# #{mod\ 1157}#) - (let ((#{p\ 1161}# - (#{local-eval-hook\ 133}# - #{expanded\ 1156}# - #{mod\ 1157}#))) - (if (procedure? #{p\ 1161}#) - (cons #{p\ 1161}# (module-name (current-module))) + (#{chi-void\ 5103}# + (lambda () (#{build-void\ 4924}# #f))) + (#{eval-local-transformer\ 5101}# + (lambda (#{expanded\ 5938}# #{mod\ 5939}#) + (let ((#{p\ 5943}# + (#{local-eval-hook\ 4915}# + #{expanded\ 5938}# + #{mod\ 5939}#))) + (if (procedure? #{p\ 5943}#) + (cons #{p\ 5943}# (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 1161}#))))) - (#{chi-local-syntax\ 317}# - (lambda (#{rec?\ 1162}# - #{e\ 1163}# - #{r\ 1164}# - #{w\ 1165}# - #{s\ 1166}# - #{mod\ 1167}# - #{k\ 1168}#) - ((lambda (#{tmp\ 1176}#) - ((lambda (#{tmp\ 1177}#) - (if #{tmp\ 1177}# - (apply (lambda (#{_\ 1183}# - #{id\ 1184}# - #{val\ 1185}# - #{e1\ 1186}# - #{e2\ 1187}#) - (let ((#{ids\ 1189}# #{id\ 1184}#)) - (if (not (#{valid-bound-ids?\ 285}# - #{ids\ 1189}#)) + #{p\ 5943}#))))) + (#{chi-local-syntax\ 5099}# + (lambda (#{rec?\ 5944}# + #{e\ 5945}# + #{r\ 5946}# + #{w\ 5947}# + #{s\ 5948}# + #{mod\ 5949}# + #{k\ 5950}#) + ((lambda (#{tmp\ 5958}#) + ((lambda (#{tmp\ 5959}#) + (if #{tmp\ 5959}# + (apply (lambda (#{_\ 5965}# + #{id\ 5966}# + #{val\ 5967}# + #{e1\ 5968}# + #{e2\ 5969}#) + (let ((#{ids\ 5971}# #{id\ 5966}#)) + (if (not (#{valid-bound-ids?\ 5067}# + #{ids\ 5971}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1163}#) - (let ((#{labels\ 1192}# - (#{gen-labels\ 240}# - #{ids\ 1189}#))) - (let ((#{new-w\ 1194}# - (#{make-binding-wrap\ 269}# - #{ids\ 1189}# - #{labels\ 1192}# - #{w\ 1165}#))) - (#{k\ 1168}# - (cons #{e1\ 1186}# #{e2\ 1187}#) - (#{extend-env\ 210}# - #{labels\ 1192}# - (let ((#{w\ 1198}# - (if #{rec?\ 1162}# - #{new-w\ 1194}# - #{w\ 1165}#)) - (#{trans-r\ 1199}# - (#{macros-only-env\ 214}# - #{r\ 1164}#))) - (map (lambda (#{x\ 1200}#) + #{e\ 5945}#) + (let ((#{labels\ 5974}# + (#{gen-labels\ 5022}# + #{ids\ 5971}#))) + (let ((#{new-w\ 5976}# + (#{make-binding-wrap\ 5051}# + #{ids\ 5971}# + #{labels\ 5974}# + #{w\ 5947}#))) + (#{k\ 5950}# + (cons #{e1\ 5968}# #{e2\ 5969}#) + (#{extend-env\ 4992}# + #{labels\ 5974}# + (let ((#{w\ 5980}# + (if #{rec?\ 5944}# + #{new-w\ 5976}# + #{w\ 5947}#)) + (#{trans-r\ 5981}# + (#{macros-only-env\ 4996}# + #{r\ 5946}#))) + (map (lambda (#{x\ 5982}#) (cons 'macro - (#{eval-local-transformer\ 319}# - (#{chi\ 307}# - #{x\ 1200}# - #{trans-r\ 1199}# - #{w\ 1198}# - #{mod\ 1167}#) - #{mod\ 1167}#))) - #{val\ 1185}#)) - #{r\ 1164}#) - #{new-w\ 1194}# - #{s\ 1166}# - #{mod\ 1167}#)))))) - #{tmp\ 1177}#) - ((lambda (#{_\ 1205}#) + (#{eval-local-transformer\ 5101}# + (#{chi\ 5089}# + #{x\ 5982}# + #{trans-r\ 5981}# + #{w\ 5980}# + #{mod\ 5949}#) + #{mod\ 5949}#))) + #{val\ 5967}#)) + #{r\ 5946}#) + #{new-w\ 5976}# + #{s\ 5948}# + #{mod\ 5949}#)))))) + #{tmp\ 5959}#) + ((lambda (#{_\ 5987}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 293}# - #{e\ 1163}# - #{w\ 1165}# - #{s\ 1166}# - #{mod\ 1167}#))) - #{tmp\ 1176}#))) + (#{source-wrap\ 5075}# + #{e\ 5945}# + #{w\ 5947}# + #{s\ 5948}# + #{mod\ 5949}#))) + #{tmp\ 5958}#))) ($sc-dispatch - #{tmp\ 1176}# + #{tmp\ 5958}# '(any #(each (any any)) any . each-any)))) - #{e\ 1163}#))) - (#{chi-body\ 315}# - (lambda (#{body\ 1206}# - #{outer-form\ 1207}# - #{r\ 1208}# - #{w\ 1209}# - #{mod\ 1210}#) - (let ((#{r\ 1218}# + #{e\ 5945}#))) + (#{chi-body\ 5097}# + (lambda (#{body\ 5988}# + #{outer-form\ 5989}# + #{r\ 5990}# + #{w\ 5991}# + #{mod\ 5992}#) + (let ((#{r\ 6000}# (cons '("placeholder" placeholder) - #{r\ 1208}#))) - (let ((#{ribcage\ 1220}# - (#{make-ribcage\ 243}# + #{r\ 5990}#))) + (let ((#{ribcage\ 6002}# + (#{make-ribcage\ 5025}# '() '() '()))) - (let ((#{w\ 1223}# - (#{make-wrap\ 227}# - (#{wrap-marks\ 229}# #{w\ 1209}#) - (cons #{ribcage\ 1220}# - (#{wrap-subst\ 231}# #{w\ 1209}#))))) - (letrec ((#{parse\ 1232}# - (lambda (#{body\ 1233}# - #{ids\ 1234}# - #{labels\ 1235}# - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# - #{bindings\ 1239}#) - (if (null? #{body\ 1233}#) + (let ((#{w\ 6005}# + (#{make-wrap\ 5009}# + (#{wrap-marks\ 5011}# #{w\ 5991}#) + (cons #{ribcage\ 6002}# + (#{wrap-subst\ 5013}# #{w\ 5991}#))))) + (letrec ((#{parse\ 6014}# + (lambda (#{body\ 6015}# + #{ids\ 6016}# + #{labels\ 6017}# + #{var-ids\ 6018}# + #{vars\ 6019}# + #{vals\ 6020}# + #{bindings\ 6021}#) + (if (null? #{body\ 6015}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1207}#) - (let ((#{e\ 1244}# (cdar #{body\ 1233}#)) - (#{er\ 1245}# (caar #{body\ 1233}#))) + #{outer-form\ 5989}#) + (let ((#{e\ 6026}# (cdar #{body\ 6015}#)) + (#{er\ 6027}# (caar #{body\ 6015}#))) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{e\ 1244}# - #{er\ 1245}# + (#{syntax-type\ 5085}# + #{e\ 6026}# + #{er\ 6027}# '(()) - (#{source-annotation\ 201}# - #{er\ 1245}#) - #{ribcage\ 1220}# - #{mod\ 1210}# + (#{source-annotation\ 4983}# + #{er\ 6027}#) + #{ribcage\ 6002}# + #{mod\ 5992}# #f)) - (lambda (#{type\ 1247}# - #{value\ 1248}# - #{e\ 1249}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#) - (if (memv #{type\ 1247}# + (lambda (#{type\ 6029}# + #{value\ 6030}# + #{e\ 6031}# + #{w\ 6032}# + #{s\ 6033}# + #{mod\ 6034}#) + (if (memv #{type\ 6029}# '(define-form)) - (let ((#{id\ 1262}# - (#{wrap\ 291}# - #{value\ 1248}# - #{w\ 1250}# - #{mod\ 1252}#)) - (#{label\ 1263}# - (#{gen-label\ 238}#))) - (let ((#{var\ 1265}# - (#{gen-var\ 335}# - #{id\ 1262}#))) + (let ((#{id\ 6044}# + (#{wrap\ 5073}# + #{value\ 6030}# + #{w\ 6032}# + #{mod\ 6034}#)) + (#{label\ 6045}# + (#{gen-label\ 5020}#))) + (let ((#{var\ 6047}# + (#{gen-var\ 5117}# + #{id\ 6044}#))) (begin - (#{extend-ribcage!\ 267}# - #{ribcage\ 1220}# - #{id\ 1262}# - #{label\ 1263}#) - (#{parse\ 1232}# - (cdr #{body\ 1233}#) - (cons #{id\ 1262}# - #{ids\ 1234}#) - (cons #{label\ 1263}# - #{labels\ 1235}#) - (cons #{id\ 1262}# - #{var-ids\ 1236}#) - (cons #{var\ 1265}# - #{vars\ 1237}#) - (cons (cons #{er\ 1245}# - (#{wrap\ 291}# - #{e\ 1249}# - #{w\ 1250}# - #{mod\ 1252}#)) - #{vals\ 1238}#) + (#{extend-ribcage!\ 5049}# + #{ribcage\ 6002}# + #{id\ 6044}# + #{label\ 6045}#) + (#{parse\ 6014}# + (cdr #{body\ 6015}#) + (cons #{id\ 6044}# + #{ids\ 6016}#) + (cons #{label\ 6045}# + #{labels\ 6017}#) + (cons #{id\ 6044}# + #{var-ids\ 6018}#) + (cons #{var\ 6047}# + #{vars\ 6019}#) + (cons (cons #{er\ 6027}# + (#{wrap\ 5073}# + #{e\ 6031}# + #{w\ 6032}# + #{mod\ 6034}#)) + #{vals\ 6020}#) (cons (cons 'lexical - #{var\ 1265}#) - #{bindings\ 1239}#))))) - (if (memv #{type\ 1247}# + #{var\ 6047}#) + #{bindings\ 6021}#))))) + (if (memv #{type\ 6029}# '(define-syntax-form)) - (let ((#{id\ 1270}# - (#{wrap\ 291}# - #{value\ 1248}# - #{w\ 1250}# - #{mod\ 1252}#)) - (#{label\ 1271}# - (#{gen-label\ 238}#))) + (let ((#{id\ 6052}# + (#{wrap\ 5073}# + #{value\ 6030}# + #{w\ 6032}# + #{mod\ 6034}#)) + (#{label\ 6053}# + (#{gen-label\ 5020}#))) (begin - (#{extend-ribcage!\ 267}# - #{ribcage\ 1220}# - #{id\ 1270}# - #{label\ 1271}#) - (#{parse\ 1232}# - (cdr #{body\ 1233}#) - (cons #{id\ 1270}# - #{ids\ 1234}#) - (cons #{label\ 1271}# - #{labels\ 1235}#) - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# + (#{extend-ribcage!\ 5049}# + #{ribcage\ 6002}# + #{id\ 6052}# + #{label\ 6053}#) + (#{parse\ 6014}# + (cdr #{body\ 6015}#) + (cons #{id\ 6052}# + #{ids\ 6016}#) + (cons #{label\ 6053}# + #{labels\ 6017}#) + #{var-ids\ 6018}# + #{vars\ 6019}# + #{vals\ 6020}# (cons (cons 'macro - (cons #{er\ 1245}# - (#{wrap\ 291}# - #{e\ 1249}# - #{w\ 1250}# - #{mod\ 1252}#))) - #{bindings\ 1239}#)))) - (if (memv #{type\ 1247}# + (cons #{er\ 6027}# + (#{wrap\ 5073}# + #{e\ 6031}# + #{w\ 6032}# + #{mod\ 6034}#))) + #{bindings\ 6021}#)))) + (if (memv #{type\ 6029}# '(begin-form)) - ((lambda (#{tmp\ 1274}#) - ((lambda (#{tmp\ 1275}#) - (if #{tmp\ 1275}# - (apply (lambda (#{_\ 1278}# - #{e1\ 1279}#) - (#{parse\ 1232}# - (letrec ((#{f\ 1282}# - (lambda (#{forms\ 1283}#) - (if (null? #{forms\ 1283}#) - (cdr #{body\ 1233}#) - (cons (cons #{er\ 1245}# - (#{wrap\ 291}# - (car #{forms\ 1283}#) - #{w\ 1250}# - #{mod\ 1252}#)) - (#{f\ 1282}# - (cdr #{forms\ 1283}#))))))) - (#{f\ 1282}# - #{e1\ 1279}#)) - #{ids\ 1234}# - #{labels\ 1235}# - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# - #{bindings\ 1239}#)) - #{tmp\ 1275}#) + ((lambda (#{tmp\ 6056}#) + ((lambda (#{tmp\ 6057}#) + (if #{tmp\ 6057}# + (apply (lambda (#{_\ 6060}# + #{e1\ 6061}#) + (#{parse\ 6014}# + (letrec ((#{f\ 6064}# + (lambda (#{forms\ 6065}#) + (if (null? #{forms\ 6065}#) + (cdr #{body\ 6015}#) + (cons (cons #{er\ 6027}# + (#{wrap\ 5073}# + (car #{forms\ 6065}#) + #{w\ 6032}# + #{mod\ 6034}#)) + (#{f\ 6064}# + (cdr #{forms\ 6065}#))))))) + (#{f\ 6064}# + #{e1\ 6061}#)) + #{ids\ 6016}# + #{labels\ 6017}# + #{var-ids\ 6018}# + #{vars\ 6019}# + #{vals\ 6020}# + #{bindings\ 6021}#)) + #{tmp\ 6057}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1274}#))) + #{tmp\ 6056}#))) ($sc-dispatch - #{tmp\ 1274}# + #{tmp\ 6056}# '(any . each-any)))) - #{e\ 1249}#) - (if (memv #{type\ 1247}# + #{e\ 6031}#) + (if (memv #{type\ 6029}# '(local-syntax-form)) - (#{chi-local-syntax\ 317}# - #{value\ 1248}# - #{e\ 1249}# - #{er\ 1245}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}# - (lambda (#{forms\ 1286}# - #{er\ 1287}# - #{w\ 1288}# - #{s\ 1289}# - #{mod\ 1290}#) - (#{parse\ 1232}# - (letrec ((#{f\ 1298}# - (lambda (#{forms\ 1299}#) - (if (null? #{forms\ 1299}#) - (cdr #{body\ 1233}#) - (cons (cons #{er\ 1287}# - (#{wrap\ 291}# - (car #{forms\ 1299}#) - #{w\ 1288}# - #{mod\ 1290}#)) - (#{f\ 1298}# - (cdr #{forms\ 1299}#))))))) - (#{f\ 1298}# - #{forms\ 1286}#)) - #{ids\ 1234}# - #{labels\ 1235}# - #{var-ids\ 1236}# - #{vars\ 1237}# - #{vals\ 1238}# - #{bindings\ 1239}#))) - (if (null? #{ids\ 1234}#) - (#{build-sequence\ 174}# + (#{chi-local-syntax\ 5099}# + #{value\ 6030}# + #{e\ 6031}# + #{er\ 6027}# + #{w\ 6032}# + #{s\ 6033}# + #{mod\ 6034}# + (lambda (#{forms\ 6068}# + #{er\ 6069}# + #{w\ 6070}# + #{s\ 6071}# + #{mod\ 6072}#) + (#{parse\ 6014}# + (letrec ((#{f\ 6080}# + (lambda (#{forms\ 6081}#) + (if (null? #{forms\ 6081}#) + (cdr #{body\ 6015}#) + (cons (cons #{er\ 6069}# + (#{wrap\ 5073}# + (car #{forms\ 6081}#) + #{w\ 6070}# + #{mod\ 6072}#)) + (#{f\ 6080}# + (cdr #{forms\ 6081}#))))))) + (#{f\ 6080}# + #{forms\ 6068}#)) + #{ids\ 6016}# + #{labels\ 6017}# + #{var-ids\ 6018}# + #{vars\ 6019}# + #{vals\ 6020}# + #{bindings\ 6021}#))) + (if (null? #{ids\ 6016}#) + (#{build-sequence\ 4956}# #f - (map (lambda (#{x\ 1302}#) - (#{chi\ 307}# - (cdr #{x\ 1302}#) - (car #{x\ 1302}#) + (map (lambda (#{x\ 6084}#) + (#{chi\ 5089}# + (cdr #{x\ 6084}#) + (car #{x\ 6084}#) '(()) - #{mod\ 1252}#)) - (cons (cons #{er\ 1245}# - (#{source-wrap\ 293}# - #{e\ 1249}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#)) - (cdr #{body\ 1233}#)))) + #{mod\ 6034}#)) + (cons (cons #{er\ 6027}# + (#{source-wrap\ 5075}# + #{e\ 6031}# + #{w\ 6032}# + #{s\ 6033}# + #{mod\ 6034}#)) + (cdr #{body\ 6015}#)))) (begin - (if (not (#{valid-bound-ids?\ 285}# - #{ids\ 1234}#)) + (if (not (#{valid-bound-ids?\ 5067}# + #{ids\ 6016}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1207}#)) - (letrec ((#{loop\ 1309}# - (lambda (#{bs\ 1310}# - #{er-cache\ 1311}# - #{r-cache\ 1312}#) - (if (not (null? #{bs\ 1310}#)) - (let ((#{b\ 1315}# - (car #{bs\ 1310}#))) - (if (eq? (car #{b\ 1315}#) + #{outer-form\ 5989}#)) + (letrec ((#{loop\ 6091}# + (lambda (#{bs\ 6092}# + #{er-cache\ 6093}# + #{r-cache\ 6094}#) + (if (not (null? #{bs\ 6092}#)) + (let ((#{b\ 6097}# + (car #{bs\ 6092}#))) + (if (eq? (car #{b\ 6097}#) 'macro) - (let ((#{er\ 1318}# - (cadr #{b\ 1315}#))) - (let ((#{r-cache\ 1320}# - (if (eq? #{er\ 1318}# - #{er-cache\ 1311}#) - #{r-cache\ 1312}# - (#{macros-only-env\ 214}# - #{er\ 1318}#)))) + (let ((#{er\ 6100}# + (cadr #{b\ 6097}#))) + (let ((#{r-cache\ 6102}# + (if (eq? #{er\ 6100}# + #{er-cache\ 6093}#) + #{r-cache\ 6094}# + (#{macros-only-env\ 4996}# + #{er\ 6100}#)))) (begin (set-cdr! - #{b\ 1315}# - (#{eval-local-transformer\ 319}# - (#{chi\ 307}# - (cddr #{b\ 1315}#) - #{r-cache\ 1320}# + #{b\ 6097}# + (#{eval-local-transformer\ 5101}# + (#{chi\ 5089}# + (cddr #{b\ 6097}#) + #{r-cache\ 6102}# '(()) - #{mod\ 1252}#) - #{mod\ 1252}#)) - (#{loop\ 1309}# - (cdr #{bs\ 1310}#) - #{er\ 1318}# - #{r-cache\ 1320}#)))) - (#{loop\ 1309}# - (cdr #{bs\ 1310}#) - #{er-cache\ 1311}# - #{r-cache\ 1312}#))))))) - (#{loop\ 1309}# - #{bindings\ 1239}# + #{mod\ 6034}#) + #{mod\ 6034}#)) + (#{loop\ 6091}# + (cdr #{bs\ 6092}#) + #{er\ 6100}# + #{r-cache\ 6102}#)))) + (#{loop\ 6091}# + (cdr #{bs\ 6092}#) + #{er-cache\ 6093}# + #{r-cache\ 6094}#))))))) + (#{loop\ 6091}# + #{bindings\ 6021}# #f #f)) (set-cdr! - #{r\ 1218}# - (#{extend-env\ 210}# - #{labels\ 1235}# - #{bindings\ 1239}# - (cdr #{r\ 1218}#))) - (#{build-letrec\ 180}# + #{r\ 6000}# + (#{extend-env\ 4992}# + #{labels\ 6017}# + #{bindings\ 6021}# + (cdr #{r\ 6000}#))) + (#{build-letrec\ 4962}# #f (map syntax->datum - #{var-ids\ 1236}#) - #{vars\ 1237}# - (map (lambda (#{x\ 1323}#) - (#{chi\ 307}# - (cdr #{x\ 1323}#) - (car #{x\ 1323}#) + #{var-ids\ 6018}#) + #{vars\ 6019}# + (map (lambda (#{x\ 6105}#) + (#{chi\ 5089}# + (cdr #{x\ 6105}#) + (car #{x\ 6105}#) '(()) - #{mod\ 1252}#)) - #{vals\ 1238}#) - (#{build-sequence\ 174}# + #{mod\ 6034}#)) + #{vals\ 6020}#) + (#{build-sequence\ 4956}# #f - (map (lambda (#{x\ 1327}#) - (#{chi\ 307}# - (cdr #{x\ 1327}#) - (car #{x\ 1327}#) + (map (lambda (#{x\ 6109}#) + (#{chi\ 5089}# + (cdr #{x\ 6109}#) + (car #{x\ 6109}#) '(()) - #{mod\ 1252}#)) - (cons (cons #{er\ 1245}# - (#{source-wrap\ 293}# - #{e\ 1249}# - #{w\ 1250}# - #{s\ 1251}# - #{mod\ 1252}#)) - (cdr #{body\ 1233}#)))))))))))))))))) - (#{parse\ 1232}# - (map (lambda (#{x\ 1240}#) - (cons #{r\ 1218}# - (#{wrap\ 291}# - #{x\ 1240}# - #{w\ 1223}# - #{mod\ 1210}#))) - #{body\ 1206}#) + #{mod\ 6034}#)) + (cons (cons #{er\ 6027}# + (#{source-wrap\ 5075}# + #{e\ 6031}# + #{w\ 6032}# + #{s\ 6033}# + #{mod\ 6034}#)) + (cdr #{body\ 6015}#)))))))))))))))))) + (#{parse\ 6014}# + (map (lambda (#{x\ 6022}#) + (cons #{r\ 6000}# + (#{wrap\ 5073}# + #{x\ 6022}# + #{w\ 6005}# + #{mod\ 5992}#))) + #{body\ 5988}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 313}# - (lambda (#{p\ 1330}# - #{e\ 1331}# - #{r\ 1332}# - #{w\ 1333}# - #{rib\ 1334}# - #{mod\ 1335}#) - (letrec ((#{rebuild-macro-output\ 1343}# - (lambda (#{x\ 1344}# #{m\ 1345}#) - (if (pair? #{x\ 1344}#) - (cons (#{rebuild-macro-output\ 1343}# - (car #{x\ 1344}#) - #{m\ 1345}#) - (#{rebuild-macro-output\ 1343}# - (cdr #{x\ 1344}#) - #{m\ 1345}#)) - (if (#{syntax-object?\ 186}# #{x\ 1344}#) - (let ((#{w\ 1353}# - (#{syntax-object-wrap\ 190}# - #{x\ 1344}#))) - (let ((#{ms\ 1356}# - (#{wrap-marks\ 229}# #{w\ 1353}#)) - (#{s\ 1357}# - (#{wrap-subst\ 231}# #{w\ 1353}#))) - (if (if (pair? #{ms\ 1356}#) - (eq? (car #{ms\ 1356}#) #f) + (#{chi-macro\ 5095}# + (lambda (#{p\ 6112}# + #{e\ 6113}# + #{r\ 6114}# + #{w\ 6115}# + #{rib\ 6116}# + #{mod\ 6117}#) + (letrec ((#{rebuild-macro-output\ 6125}# + (lambda (#{x\ 6126}# #{m\ 6127}#) + (if (pair? #{x\ 6126}#) + (cons (#{rebuild-macro-output\ 6125}# + (car #{x\ 6126}#) + #{m\ 6127}#) + (#{rebuild-macro-output\ 6125}# + (cdr #{x\ 6126}#) + #{m\ 6127}#)) + (if (#{syntax-object?\ 4968}# #{x\ 6126}#) + (let ((#{w\ 6135}# + (#{syntax-object-wrap\ 4972}# + #{x\ 6126}#))) + (let ((#{ms\ 6138}# + (#{wrap-marks\ 5011}# #{w\ 6135}#)) + (#{s\ 6139}# + (#{wrap-subst\ 5013}# #{w\ 6135}#))) + (if (if (pair? #{ms\ 6138}#) + (eq? (car #{ms\ 6138}#) #f) #f) - (#{make-syntax-object\ 184}# - (#{syntax-object-expression\ 188}# - #{x\ 1344}#) - (#{make-wrap\ 227}# - (cdr #{ms\ 1356}#) - (if #{rib\ 1334}# - (cons #{rib\ 1334}# - (cdr #{s\ 1357}#)) - (cdr #{s\ 1357}#))) - (#{syntax-object-module\ 192}# - #{x\ 1344}#)) - (#{make-syntax-object\ 184}# - (#{syntax-object-expression\ 188}# - #{x\ 1344}#) - (#{make-wrap\ 227}# - (cons #{m\ 1345}# #{ms\ 1356}#) - (if #{rib\ 1334}# - (cons #{rib\ 1334}# + (#{make-syntax-object\ 4966}# + (#{syntax-object-expression\ 4970}# + #{x\ 6126}#) + (#{make-wrap\ 5009}# + (cdr #{ms\ 6138}#) + (if #{rib\ 6116}# + (cons #{rib\ 6116}# + (cdr #{s\ 6139}#)) + (cdr #{s\ 6139}#))) + (#{syntax-object-module\ 4974}# + #{x\ 6126}#)) + (#{make-syntax-object\ 4966}# + (#{syntax-object-expression\ 4970}# + #{x\ 6126}#) + (#{make-wrap\ 5009}# + (cons #{m\ 6127}# #{ms\ 6138}#) + (if #{rib\ 6116}# + (cons #{rib\ 6116}# (cons 'shift - #{s\ 1357}#)) - (cons (quote shift) #{s\ 1357}#))) + #{s\ 6139}#)) + (cons (quote shift) #{s\ 6139}#))) (cons 'hygiene - (cdr #{p\ 1330}#)))))) - (if (vector? #{x\ 1344}#) - (let ((#{n\ 1365}# - (vector-length #{x\ 1344}#))) - (let ((#{v\ 1367}# - (make-vector #{n\ 1365}#))) - (letrec ((#{loop\ 1370}# - (lambda (#{i\ 1371}#) - (if (#{fx=\ 127}# - #{i\ 1371}# - #{n\ 1365}#) + (cdr #{p\ 6112}#)))))) + (if (vector? #{x\ 6126}#) + (let ((#{n\ 6147}# + (vector-length #{x\ 6126}#))) + (let ((#{v\ 6149}# + (make-vector #{n\ 6147}#))) + (letrec ((#{loop\ 6152}# + (lambda (#{i\ 6153}#) + (if (#{fx=\ 4909}# + #{i\ 6153}# + #{n\ 6147}#) (begin (if #f #f) - #{v\ 1367}#) + #{v\ 6149}#) (begin (vector-set! - #{v\ 1367}# - #{i\ 1371}# - (#{rebuild-macro-output\ 1343}# + #{v\ 6149}# + #{i\ 6153}# + (#{rebuild-macro-output\ 6125}# (vector-ref - #{x\ 1344}# - #{i\ 1371}#) - #{m\ 1345}#)) - (#{loop\ 1370}# - (#{fx+\ 123}# - #{i\ 1371}# + #{x\ 6126}# + #{i\ 6153}#) + #{m\ 6127}#)) + (#{loop\ 6152}# + (#{fx+\ 4905}# + #{i\ 6153}# 1))))))) - (#{loop\ 1370}# 0)))) - (if (symbol? #{x\ 1344}#) + (#{loop\ 6152}# 0)))) + (if (symbol? #{x\ 6126}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 293}# - #{e\ 1331}# - #{w\ 1333}# - (#{wrap-subst\ 231}# #{w\ 1333}#) - #{mod\ 1335}#) - #{x\ 1344}#) - #{x\ 1344}#))))))) - (#{rebuild-macro-output\ 1343}# - ((car #{p\ 1330}#) - (#{wrap\ 291}# - #{e\ 1331}# - (#{anti-mark\ 263}# #{w\ 1333}#) - #{mod\ 1335}#)) + (#{source-wrap\ 5075}# + #{e\ 6113}# + #{w\ 6115}# + (#{wrap-subst\ 5013}# #{w\ 6115}#) + #{mod\ 6117}#) + #{x\ 6126}#) + #{x\ 6126}#))))))) + (#{rebuild-macro-output\ 6125}# + ((car #{p\ 6112}#) + (#{wrap\ 5073}# + #{e\ 6113}# + (#{anti-mark\ 5045}# #{w\ 6115}#) + #{mod\ 6117}#)) (gensym "m"))))) - (#{chi-application\ 311}# - (lambda (#{x\ 1378}# - #{e\ 1379}# - #{r\ 1380}# - #{w\ 1381}# - #{s\ 1382}# - #{mod\ 1383}#) - ((lambda (#{tmp\ 1390}#) - ((lambda (#{tmp\ 1391}#) - (if #{tmp\ 1391}# - (apply (lambda (#{e0\ 1394}# #{e1\ 1395}#) - (#{build-application\ 144}# - #{s\ 1382}# - #{x\ 1378}# - (map (lambda (#{e\ 1396}#) - (#{chi\ 307}# - #{e\ 1396}# - #{r\ 1380}# - #{w\ 1381}# - #{mod\ 1383}#)) - #{e1\ 1395}#))) - #{tmp\ 1391}#) + (#{chi-application\ 5093}# + (lambda (#{x\ 6160}# + #{e\ 6161}# + #{r\ 6162}# + #{w\ 6163}# + #{s\ 6164}# + #{mod\ 6165}#) + ((lambda (#{tmp\ 6172}#) + ((lambda (#{tmp\ 6173}#) + (if #{tmp\ 6173}# + (apply (lambda (#{e0\ 6176}# #{e1\ 6177}#) + (#{build-application\ 4926}# + #{s\ 6164}# + #{x\ 6160}# + (map (lambda (#{e\ 6178}#) + (#{chi\ 5089}# + #{e\ 6178}# + #{r\ 6162}# + #{w\ 6163}# + #{mod\ 6165}#)) + #{e1\ 6177}#))) + #{tmp\ 6173}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1390}#))) + #{tmp\ 6172}#))) ($sc-dispatch - #{tmp\ 1390}# + #{tmp\ 6172}# '(any . each-any)))) - #{e\ 1379}#))) - (#{chi-expr\ 309}# - (lambda (#{type\ 1399}# - #{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (lexical))) - (#{build-lexical-reference\ 150}# + #{e\ 6161}#))) + (#{chi-expr\ 5091}# + (lambda (#{type\ 6181}# + #{value\ 6182}# + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) + (if (memv #{type\ 6181}# (quote (lexical))) + (#{build-lexical-reference\ 4932}# 'value - #{s\ 1404}# - #{e\ 1401}# - #{value\ 1400}#) - (if (memv #{type\ 1399}# (quote (core core-form))) - (#{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (module-ref))) + #{s\ 6186}# + #{e\ 6183}# + #{value\ 6182}#) + (if (memv #{type\ 6181}# (quote (core core-form))) + (#{value\ 6182}# + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) + (if (memv #{type\ 6181}# (quote (module-ref))) (call-with-values - (lambda () (#{value\ 1400}# #{e\ 1401}#)) - (lambda (#{id\ 1416}# #{mod\ 1417}#) - (#{build-global-reference\ 156}# - #{s\ 1404}# - #{id\ 1416}# - #{mod\ 1417}#))) - (if (memv #{type\ 1399}# (quote (lexical-call))) - (#{chi-application\ 311}# - (#{build-lexical-reference\ 150}# + (lambda () + (#{value\ 6182}# + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}#)) + (lambda (#{e\ 6198}# + #{r\ 6199}# + #{w\ 6200}# + #{s\ 6201}# + #{mod\ 6202}#) + (#{chi\ 5089}# + #{e\ 6198}# + #{r\ 6199}# + #{w\ 6200}# + #{mod\ 6202}#))) + (if (memv #{type\ 6181}# (quote (lexical-call))) + (#{chi-application\ 5093}# + (#{build-lexical-reference\ 4932}# 'fun - (#{source-annotation\ 201}# (car #{e\ 1401}#)) - (car #{e\ 1401}#) - #{value\ 1400}#) - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (global-call))) - (#{chi-application\ 311}# - (#{build-global-reference\ 156}# - (#{source-annotation\ 201}# (car #{e\ 1401}#)) - (if (#{syntax-object?\ 186}# #{value\ 1400}#) - (#{syntax-object-expression\ 188}# - #{value\ 1400}#) - #{value\ 1400}#) - (if (#{syntax-object?\ 186}# #{value\ 1400}#) - (#{syntax-object-module\ 192}# #{value\ 1400}#) - #{mod\ 1405}#)) - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (constant))) - (#{build-data\ 172}# - #{s\ 1404}# - (#{strip\ 333}# - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) + (#{source-annotation\ 4983}# (car #{e\ 6183}#)) + (car #{e\ 6183}#) + #{value\ 6182}#) + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) + (if (memv #{type\ 6181}# (quote (global-call))) + (#{chi-application\ 5093}# + (#{build-global-reference\ 4938}# + (#{source-annotation\ 4983}# (car #{e\ 6183}#)) + (if (#{syntax-object?\ 4968}# #{value\ 6182}#) + (#{syntax-object-expression\ 4970}# + #{value\ 6182}#) + #{value\ 6182}#) + (if (#{syntax-object?\ 4968}# #{value\ 6182}#) + (#{syntax-object-module\ 4974}# #{value\ 6182}#) + #{mod\ 6187}#)) + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) + (if (memv #{type\ 6181}# (quote (constant))) + (#{build-data\ 4954}# + #{s\ 6186}# + (#{strip\ 5115}# + (#{source-wrap\ 5075}# + #{e\ 6183}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) '(()))) - (if (memv #{type\ 1399}# (quote (global))) - (#{build-global-reference\ 156}# - #{s\ 1404}# - #{value\ 1400}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (call))) - (#{chi-application\ 311}# - (#{chi\ 307}# - (car #{e\ 1401}#) - #{r\ 1402}# - #{w\ 1403}# - #{mod\ 1405}#) - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (if (memv #{type\ 1399}# (quote (begin-form))) - ((lambda (#{tmp\ 1427}#) - ((lambda (#{tmp\ 1428}#) - (if #{tmp\ 1428}# - (apply (lambda (#{_\ 1432}# - #{e1\ 1433}# - #{e2\ 1434}#) - (#{chi-sequence\ 295}# - (cons #{e1\ 1433}# - #{e2\ 1434}#) - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)) - #{tmp\ 1428}#) + (if (memv #{type\ 6181}# (quote (global))) + (#{build-global-reference\ 4938}# + #{s\ 6186}# + #{value\ 6182}# + #{mod\ 6187}#) + (if (memv #{type\ 6181}# (quote (call))) + (#{chi-application\ 5093}# + (#{chi\ 5089}# + (car #{e\ 6183}#) + #{r\ 6184}# + #{w\ 6185}# + #{mod\ 6187}#) + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) + (if (memv #{type\ 6181}# (quote (begin-form))) + ((lambda (#{tmp\ 6215}#) + ((lambda (#{tmp\ 6216}#) + (if #{tmp\ 6216}# + (apply (lambda (#{_\ 6220}# + #{e1\ 6221}# + #{e2\ 6222}#) + (#{chi-sequence\ 5077}# + (cons #{e1\ 6221}# + #{e2\ 6222}#) + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#)) + #{tmp\ 6216}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1427}#))) + #{tmp\ 6215}#))) ($sc-dispatch - #{tmp\ 1427}# + #{tmp\ 6215}# '(any any . each-any)))) - #{e\ 1401}#) - (if (memv #{type\ 1399}# + #{e\ 6183}#) + (if (memv #{type\ 6181}# '(local-syntax-form)) - (#{chi-local-syntax\ 317}# - #{value\ 1400}# - #{e\ 1401}# - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}# - #{chi-sequence\ 295}#) - (if (memv #{type\ 1399}# + (#{chi-local-syntax\ 5099}# + #{value\ 6182}# + #{e\ 6183}# + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}# + #{chi-sequence\ 5077}#) + (if (memv #{type\ 6181}# '(eval-when-form)) - ((lambda (#{tmp\ 1438}#) - ((lambda (#{tmp\ 1439}#) - (if #{tmp\ 1439}# - (apply (lambda (#{_\ 1444}# - #{x\ 1445}# - #{e1\ 1446}# - #{e2\ 1447}#) - (let ((#{when-list\ 1449}# - (#{chi-when-list\ 301}# - #{e\ 1401}# - #{x\ 1445}# - #{w\ 1403}#))) + ((lambda (#{tmp\ 6226}#) + ((lambda (#{tmp\ 6227}#) + (if #{tmp\ 6227}# + (apply (lambda (#{_\ 6232}# + #{x\ 6233}# + #{e1\ 6234}# + #{e2\ 6235}#) + (let ((#{when-list\ 6237}# + (#{chi-when-list\ 5083}# + #{e\ 6183}# + #{x\ 6233}# + #{w\ 6185}#))) (if (memq 'eval - #{when-list\ 1449}#) - (#{chi-sequence\ 295}# - (cons #{e1\ 1446}# - #{e2\ 1447}#) - #{r\ 1402}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#) - (#{chi-void\ 321}#)))) - #{tmp\ 1439}#) + #{when-list\ 6237}#) + (#{chi-sequence\ 5077}# + (cons #{e1\ 6234}# + #{e2\ 6235}#) + #{r\ 6184}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#) + (#{chi-void\ 5103}#)))) + #{tmp\ 6227}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1438}#))) + #{tmp\ 6226}#))) ($sc-dispatch - #{tmp\ 1438}# + #{tmp\ 6226}# '(any each-any any . each-any)))) - #{e\ 1401}#) - (if (memv #{type\ 1399}# + #{e\ 6183}#) + (if (memv #{type\ 6181}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1401}# - (#{wrap\ 291}# - #{value\ 1400}# - #{w\ 1403}# - #{mod\ 1405}#)) - (if (memv #{type\ 1399}# + #{e\ 6183}# + (#{wrap\ 5073}# + #{value\ 6182}# + #{w\ 6185}# + #{mod\ 6187}#)) + (if (memv #{type\ 6181}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)) - (if (memv #{type\ 1399}# + (#{source-wrap\ 5075}# + #{e\ 6183}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#)) + (if (memv #{type\ 6181}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)) + (#{source-wrap\ 5075}# + #{e\ 6183}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 293}# - #{e\ 1401}# - #{w\ 1403}# - #{s\ 1404}# - #{mod\ 1405}#)))))))))))))))))) - (#{chi\ 307}# - (lambda (#{e\ 1456}# - #{r\ 1457}# - #{w\ 1458}# - #{mod\ 1459}#) + (#{source-wrap\ 5075}# + #{e\ 6183}# + #{w\ 6185}# + #{s\ 6186}# + #{mod\ 6187}#)))))))))))))))))) + (#{chi\ 5089}# + (lambda (#{e\ 6244}# + #{r\ 6245}# + #{w\ 6246}# + #{mod\ 6247}#) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{e\ 1456}# - #{r\ 1457}# - #{w\ 1458}# - (#{source-annotation\ 201}# #{e\ 1456}#) + (#{syntax-type\ 5085}# + #{e\ 6244}# + #{r\ 6245}# + #{w\ 6246}# + (#{source-annotation\ 4983}# #{e\ 6244}#) #f - #{mod\ 1459}# + #{mod\ 6247}# #f)) - (lambda (#{type\ 1464}# - #{value\ 1465}# - #{e\ 1466}# - #{w\ 1467}# - #{s\ 1468}# - #{mod\ 1469}#) - (#{chi-expr\ 309}# - #{type\ 1464}# - #{value\ 1465}# - #{e\ 1466}# - #{r\ 1457}# - #{w\ 1467}# - #{s\ 1468}# - #{mod\ 1469}#))))) - (#{chi-top\ 305}# - (lambda (#{e\ 1476}# - #{r\ 1477}# - #{w\ 1478}# - #{m\ 1479}# - #{esew\ 1480}# - #{mod\ 1481}#) + (lambda (#{type\ 6252}# + #{value\ 6253}# + #{e\ 6254}# + #{w\ 6255}# + #{s\ 6256}# + #{mod\ 6257}#) + (#{chi-expr\ 5091}# + #{type\ 6252}# + #{value\ 6253}# + #{e\ 6254}# + #{r\ 6245}# + #{w\ 6255}# + #{s\ 6256}# + #{mod\ 6257}#))))) + (#{chi-top\ 5087}# + (lambda (#{e\ 6264}# + #{r\ 6265}# + #{w\ 6266}# + #{m\ 6267}# + #{esew\ 6268}# + #{mod\ 6269}#) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{e\ 1476}# - #{r\ 1477}# - #{w\ 1478}# - (#{source-annotation\ 201}# #{e\ 1476}#) + (#{syntax-type\ 5085}# + #{e\ 6264}# + #{r\ 6265}# + #{w\ 6266}# + (#{source-annotation\ 4983}# #{e\ 6264}#) #f - #{mod\ 1481}# + #{mod\ 6269}# #f)) - (lambda (#{type\ 1502}# - #{value\ 1503}# - #{e\ 1504}# - #{w\ 1505}# - #{s\ 1506}# - #{mod\ 1507}#) - (if (memv #{type\ 1502}# (quote (begin-form))) - ((lambda (#{tmp\ 1515}#) - ((lambda (#{tmp\ 1516}#) - (if #{tmp\ 1516}# - (apply (lambda (#{_\ 1518}#) (#{chi-void\ 321}#)) - #{tmp\ 1516}#) - ((lambda (#{tmp\ 1519}#) - (if #{tmp\ 1519}# - (apply (lambda (#{_\ 1523}# - #{e1\ 1524}# - #{e2\ 1525}#) - (#{chi-top-sequence\ 297}# - (cons #{e1\ 1524}# #{e2\ 1525}#) - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# - #{m\ 1479}# - #{esew\ 1480}# - #{mod\ 1507}#)) - #{tmp\ 1519}#) + (lambda (#{type\ 6290}# + #{value\ 6291}# + #{e\ 6292}# + #{w\ 6293}# + #{s\ 6294}# + #{mod\ 6295}#) + (if (memv #{type\ 6290}# (quote (begin-form))) + ((lambda (#{tmp\ 6303}#) + ((lambda (#{tmp\ 6304}#) + (if #{tmp\ 6304}# + (apply (lambda (#{_\ 6306}#) (#{chi-void\ 5103}#)) + #{tmp\ 6304}#) + ((lambda (#{tmp\ 6307}#) + (if #{tmp\ 6307}# + (apply (lambda (#{_\ 6311}# + #{e1\ 6312}# + #{e2\ 6313}#) + (#{chi-top-sequence\ 5079}# + (cons #{e1\ 6312}# #{e2\ 6313}#) + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# + #{m\ 6267}# + #{esew\ 6268}# + #{mod\ 6295}#)) + #{tmp\ 6307}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1515}#))) + #{tmp\ 6303}#))) ($sc-dispatch - #{tmp\ 1515}# + #{tmp\ 6303}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1515}# (quote (any))))) - #{e\ 1504}#) - (if (memv #{type\ 1502}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 317}# - #{value\ 1503}# - #{e\ 1504}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# - #{mod\ 1507}# - (lambda (#{body\ 1528}# - #{r\ 1529}# - #{w\ 1530}# - #{s\ 1531}# - #{mod\ 1532}#) - (#{chi-top-sequence\ 297}# - #{body\ 1528}# - #{r\ 1529}# - #{w\ 1530}# - #{s\ 1531}# - #{m\ 1479}# - #{esew\ 1480}# - #{mod\ 1532}#))) - (if (memv #{type\ 1502}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1539}#) - ((lambda (#{tmp\ 1540}#) - (if #{tmp\ 1540}# - (apply (lambda (#{_\ 1545}# - #{x\ 1546}# - #{e1\ 1547}# - #{e2\ 1548}#) - (let ((#{when-list\ 1551}# - (#{chi-when-list\ 301}# - #{e\ 1504}# - #{x\ 1546}# - #{w\ 1505}#)) - (#{body\ 1552}# - (cons #{e1\ 1547}# - #{e2\ 1548}#))) - (if (eq? #{m\ 1479}# (quote e)) + ($sc-dispatch #{tmp\ 6303}# (quote (any))))) + #{e\ 6292}#) + (if (memv #{type\ 6290}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 5099}# + #{value\ 6291}# + #{e\ 6292}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# + #{mod\ 6295}# + (lambda (#{body\ 6316}# + #{r\ 6317}# + #{w\ 6318}# + #{s\ 6319}# + #{mod\ 6320}#) + (#{chi-top-sequence\ 5079}# + #{body\ 6316}# + #{r\ 6317}# + #{w\ 6318}# + #{s\ 6319}# + #{m\ 6267}# + #{esew\ 6268}# + #{mod\ 6320}#))) + (if (memv #{type\ 6290}# (quote (eval-when-form))) + ((lambda (#{tmp\ 6327}#) + ((lambda (#{tmp\ 6328}#) + (if #{tmp\ 6328}# + (apply (lambda (#{_\ 6333}# + #{x\ 6334}# + #{e1\ 6335}# + #{e2\ 6336}#) + (let ((#{when-list\ 6339}# + (#{chi-when-list\ 5083}# + #{e\ 6292}# + #{x\ 6334}# + #{w\ 6293}#)) + (#{body\ 6340}# + (cons #{e1\ 6335}# + #{e2\ 6336}#))) + (if (eq? #{m\ 6267}# (quote e)) (if (memq 'eval - #{when-list\ 1551}#) - (#{chi-top-sequence\ 297}# - #{body\ 1552}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# + #{when-list\ 6339}#) + (#{chi-top-sequence\ 5079}# + #{body\ 6340}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# (if (memq 'expand - #{when-list\ 1551}#) + #{when-list\ 6339}#) 'c&e 'e) '(eval) - #{mod\ 1507}#) + #{mod\ 6295}#) (begin (if (memq 'expand - #{when-list\ 1551}#) - (#{top-level-eval-hook\ 131}# - (#{chi-top-sequence\ 297}# - #{body\ 1552}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# + #{when-list\ 6339}#) + (#{top-level-eval-hook\ 4913}# + (#{chi-top-sequence\ 5079}# + #{body\ 6340}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# 'e '(eval) - #{mod\ 1507}#) - #{mod\ 1507}#)) - (#{chi-void\ 321}#))) + #{mod\ 6295}#) + #{mod\ 6295}#)) + (#{chi-void\ 5103}#))) (if (memq 'load - #{when-list\ 1551}#) - (if (let ((#{t\ 1561}# + #{when-list\ 6339}#) + (if (let ((#{t\ 6349}# (memq 'compile - #{when-list\ 1551}#))) - (if #{t\ 1561}# - #{t\ 1561}# - (let ((#{t\ 1564}# + #{when-list\ 6339}#))) + (if #{t\ 6349}# + #{t\ 6349}# + (let ((#{t\ 6352}# (memq 'expand - #{when-list\ 1551}#))) - (if #{t\ 1564}# - #{t\ 1564}# - (if (eq? #{m\ 1479}# + #{when-list\ 6339}#))) + (if #{t\ 6352}# + #{t\ 6352}# + (if (eq? #{m\ 6267}# 'c&e) (memq 'eval - #{when-list\ 1551}#) + #{when-list\ 6339}#) #f))))) - (#{chi-top-sequence\ 297}# - #{body\ 1552}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# + (#{chi-top-sequence\ 5079}# + #{body\ 6340}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# 'c&e '(compile load) - #{mod\ 1507}#) - (if (memq #{m\ 1479}# + #{mod\ 6295}#) + (if (memq #{m\ 6267}# '(c c&e)) - (#{chi-top-sequence\ 297}# - #{body\ 1552}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# + (#{chi-top-sequence\ 5079}# + #{body\ 6340}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# 'c '(load) - #{mod\ 1507}#) - (#{chi-void\ 321}#))) - (if (let ((#{t\ 1572}# + #{mod\ 6295}#) + (#{chi-void\ 5103}#))) + (if (let ((#{t\ 6360}# (memq 'compile - #{when-list\ 1551}#))) - (if #{t\ 1572}# - #{t\ 1572}# - (let ((#{t\ 1575}# + #{when-list\ 6339}#))) + (if #{t\ 6360}# + #{t\ 6360}# + (let ((#{t\ 6363}# (memq 'expand - #{when-list\ 1551}#))) - (if #{t\ 1575}# - #{t\ 1575}# - (if (eq? #{m\ 1479}# + #{when-list\ 6339}#))) + (if #{t\ 6363}# + #{t\ 6363}# + (if (eq? #{m\ 6267}# 'c&e) (memq 'eval - #{when-list\ 1551}#) + #{when-list\ 6339}#) #f))))) (begin - (#{top-level-eval-hook\ 131}# - (#{chi-top-sequence\ 297}# - #{body\ 1552}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# + (#{top-level-eval-hook\ 4913}# + (#{chi-top-sequence\ 5079}# + #{body\ 6340}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# 'e '(eval) - #{mod\ 1507}#) - #{mod\ 1507}#) - (#{chi-void\ 321}#)) - (#{chi-void\ 321}#)))))) - #{tmp\ 1540}#) + #{mod\ 6295}#) + #{mod\ 6295}#) + (#{chi-void\ 5103}#)) + (#{chi-void\ 5103}#)))))) + #{tmp\ 6328}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1539}#))) + #{tmp\ 6327}#))) ($sc-dispatch - #{tmp\ 1539}# + #{tmp\ 6327}# '(any each-any any . each-any)))) - #{e\ 1504}#) - (if (memv #{type\ 1502}# + #{e\ 6292}#) + (if (memv #{type\ 6290}# '(define-syntax-form)) - (let ((#{n\ 1583}# - (#{id-var-name\ 279}# - #{value\ 1503}# - #{w\ 1505}#)) - (#{r\ 1584}# - (#{macros-only-env\ 214}# #{r\ 1477}#))) - (if (memv #{m\ 1479}# (quote (c))) - (if (memq (quote compile) #{esew\ 1480}#) - (let ((#{e\ 1587}# - (#{chi-install-global\ 299}# - #{n\ 1583}# - (#{chi\ 307}# - #{e\ 1504}# - #{r\ 1584}# - #{w\ 1505}# - #{mod\ 1507}#)))) + (let ((#{n\ 6371}# + (#{id-var-name\ 5061}# + #{value\ 6291}# + #{w\ 6293}#)) + (#{r\ 6372}# + (#{macros-only-env\ 4996}# #{r\ 6265}#))) + (if (memv #{m\ 6267}# (quote (c))) + (if (memq (quote compile) #{esew\ 6268}#) + (let ((#{e\ 6375}# + (#{chi-install-global\ 5081}# + #{n\ 6371}# + (#{chi\ 5089}# + #{e\ 6292}# + #{r\ 6372}# + #{w\ 6293}# + #{mod\ 6295}#)))) (begin - (#{top-level-eval-hook\ 131}# - #{e\ 1587}# - #{mod\ 1507}#) - (if (memq (quote load) #{esew\ 1480}#) - #{e\ 1587}# - (#{chi-void\ 321}#)))) - (if (memq (quote load) #{esew\ 1480}#) - (#{chi-install-global\ 299}# - #{n\ 1583}# - (#{chi\ 307}# - #{e\ 1504}# - #{r\ 1584}# - #{w\ 1505}# - #{mod\ 1507}#)) - (#{chi-void\ 321}#))) - (if (memv #{m\ 1479}# (quote (c&e))) - (let ((#{e\ 1590}# - (#{chi-install-global\ 299}# - #{n\ 1583}# - (#{chi\ 307}# - #{e\ 1504}# - #{r\ 1584}# - #{w\ 1505}# - #{mod\ 1507}#)))) + (#{top-level-eval-hook\ 4913}# + #{e\ 6375}# + #{mod\ 6295}#) + (if (memq (quote load) #{esew\ 6268}#) + #{e\ 6375}# + (#{chi-void\ 5103}#)))) + (if (memq (quote load) #{esew\ 6268}#) + (#{chi-install-global\ 5081}# + #{n\ 6371}# + (#{chi\ 5089}# + #{e\ 6292}# + #{r\ 6372}# + #{w\ 6293}# + #{mod\ 6295}#)) + (#{chi-void\ 5103}#))) + (if (memv #{m\ 6267}# (quote (c&e))) + (let ((#{e\ 6378}# + (#{chi-install-global\ 5081}# + #{n\ 6371}# + (#{chi\ 5089}# + #{e\ 6292}# + #{r\ 6372}# + #{w\ 6293}# + #{mod\ 6295}#)))) (begin - (#{top-level-eval-hook\ 131}# - #{e\ 1590}# - #{mod\ 1507}#) - #{e\ 1590}#)) + (#{top-level-eval-hook\ 4913}# + #{e\ 6378}# + #{mod\ 6295}#) + #{e\ 6378}#)) (begin - (if (memq (quote eval) #{esew\ 1480}#) - (#{top-level-eval-hook\ 131}# - (#{chi-install-global\ 299}# - #{n\ 1583}# - (#{chi\ 307}# - #{e\ 1504}# - #{r\ 1584}# - #{w\ 1505}# - #{mod\ 1507}#)) - #{mod\ 1507}#)) - (#{chi-void\ 321}#))))) - (if (memv #{type\ 1502}# (quote (define-form))) - (let ((#{n\ 1595}# - (#{id-var-name\ 279}# - #{value\ 1503}# - #{w\ 1505}#))) - (let ((#{type\ 1597}# - (#{binding-type\ 205}# - (#{lookup\ 216}# - #{n\ 1595}# - #{r\ 1477}# - #{mod\ 1507}#)))) - (if (memv #{type\ 1597}# + (if (memq (quote eval) #{esew\ 6268}#) + (#{top-level-eval-hook\ 4913}# + (#{chi-install-global\ 5081}# + #{n\ 6371}# + (#{chi\ 5089}# + #{e\ 6292}# + #{r\ 6372}# + #{w\ 6293}# + #{mod\ 6295}#)) + #{mod\ 6295}#)) + (#{chi-void\ 5103}#))))) + (if (memv #{type\ 6290}# (quote (define-form))) + (let ((#{n\ 6383}# + (#{id-var-name\ 5061}# + #{value\ 6291}# + #{w\ 6293}#))) + (let ((#{type\ 6385}# + (#{binding-type\ 4987}# + (#{lookup\ 4998}# + #{n\ 6383}# + #{r\ 6265}# + #{mod\ 6295}#)))) + (if (memv #{type\ 6385}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 1479}# (quote (c c&e))) + (if (if (memq #{m\ 6267}# (quote (c c&e))) (if (not (module-local-variable (current-module) - #{n\ 1595}#)) + #{n\ 6383}#)) (current-module) #f) #f) - (let ((#{old\ 1603}# + (let ((#{old\ 6391}# (module-variable (current-module) - #{n\ 1595}#))) + #{n\ 6383}#))) (module-define! (current-module) - #{n\ 1595}# - (if (variable? #{old\ 1603}#) - (variable-ref #{old\ 1603}#) + #{n\ 6383}# + (if (variable? #{old\ 6391}#) + (variable-ref #{old\ 6391}#) #f)))) - (let ((#{x\ 1606}# - (#{build-global-definition\ 162}# - #{s\ 1506}# - #{n\ 1595}# - (#{chi\ 307}# - #{e\ 1504}# - #{r\ 1477}# - #{w\ 1505}# - #{mod\ 1507}#)))) + (let ((#{x\ 6394}# + (#{build-global-definition\ 4944}# + #{s\ 6294}# + #{n\ 6383}# + (#{chi\ 5089}# + #{e\ 6292}# + #{r\ 6265}# + #{w\ 6293}# + #{mod\ 6295}#)))) (begin - (if (eq? #{m\ 1479}# (quote c&e)) - (#{top-level-eval-hook\ 131}# - #{x\ 1606}# - #{mod\ 1507}#)) - #{x\ 1606}#))) - (if (memv #{type\ 1597}# + (if (eq? #{m\ 6267}# (quote c&e)) + (#{top-level-eval-hook\ 4913}# + #{x\ 6394}# + #{mod\ 6295}#)) + #{x\ 6394}#))) + (if (memv #{type\ 6385}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1504}# - (#{wrap\ 291}# - #{value\ 1503}# - #{w\ 1505}# - #{mod\ 1507}#)) + #{e\ 6292}# + (#{wrap\ 5073}# + #{value\ 6291}# + #{w\ 6293}# + #{mod\ 6295}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1504}# - (#{wrap\ 291}# - #{value\ 1503}# - #{w\ 1505}# - #{mod\ 1507}#)))))) - (let ((#{x\ 1612}# - (#{chi-expr\ 309}# - #{type\ 1502}# - #{value\ 1503}# - #{e\ 1504}# - #{r\ 1477}# - #{w\ 1505}# - #{s\ 1506}# - #{mod\ 1507}#))) + #{e\ 6292}# + (#{wrap\ 5073}# + #{value\ 6291}# + #{w\ 6293}# + #{mod\ 6295}#)))))) + (let ((#{x\ 6400}# + (#{chi-expr\ 5091}# + #{type\ 6290}# + #{value\ 6291}# + #{e\ 6292}# + #{r\ 6265}# + #{w\ 6293}# + #{s\ 6294}# + #{mod\ 6295}#))) (begin - (if (eq? #{m\ 1479}# (quote c&e)) - (#{top-level-eval-hook\ 131}# - #{x\ 1612}# - #{mod\ 1507}#)) - #{x\ 1612}#))))))))))) - (#{syntax-type\ 303}# - (lambda (#{e\ 1613}# - #{r\ 1614}# - #{w\ 1615}# - #{s\ 1616}# - #{rib\ 1617}# - #{mod\ 1618}# - #{for-car?\ 1619}#) - (if (symbol? #{e\ 1613}#) - (let ((#{n\ 1631}# - (#{id-var-name\ 279}# #{e\ 1613}# #{w\ 1615}#))) - (let ((#{b\ 1633}# - (#{lookup\ 216}# - #{n\ 1631}# - #{r\ 1614}# - #{mod\ 1618}#))) - (let ((#{type\ 1635}# - (#{binding-type\ 205}# #{b\ 1633}#))) - (if (memv #{type\ 1635}# (quote (lexical))) + (if (eq? #{m\ 6267}# (quote c&e)) + (#{top-level-eval-hook\ 4913}# + #{x\ 6400}# + #{mod\ 6295}#)) + #{x\ 6400}#))))))))))) + (#{syntax-type\ 5085}# + (lambda (#{e\ 6401}# + #{r\ 6402}# + #{w\ 6403}# + #{s\ 6404}# + #{rib\ 6405}# + #{mod\ 6406}# + #{for-car?\ 6407}#) + (if (symbol? #{e\ 6401}#) + (let ((#{n\ 6419}# + (#{id-var-name\ 5061}# #{e\ 6401}# #{w\ 6403}#))) + (let ((#{b\ 6421}# + (#{lookup\ 4998}# + #{n\ 6419}# + #{r\ 6402}# + #{mod\ 6406}#))) + (let ((#{type\ 6423}# + (#{binding-type\ 4987}# #{b\ 6421}#))) + (if (memv #{type\ 6423}# (quote (lexical))) (values - #{type\ 1635}# - (#{binding-value\ 207}# #{b\ 1633}#) - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{type\ 1635}# (quote (global))) + #{type\ 6423}# + (#{binding-value\ 4989}# #{b\ 6421}#) + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{type\ 6423}# (quote (global))) (values - #{type\ 1635}# - #{n\ 1631}# - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{type\ 1635}# (quote (macro))) - (if #{for-car?\ 1619}# + #{type\ 6423}# + #{n\ 6419}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{type\ 6423}# (quote (macro))) + (if #{for-car?\ 6407}# (values - #{type\ 1635}# - (#{binding-value\ 207}# #{b\ 1633}#) - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (#{syntax-type\ 303}# - (#{chi-macro\ 313}# - (#{binding-value\ 207}# #{b\ 1633}#) - #{e\ 1613}# - #{r\ 1614}# - #{w\ 1615}# - #{rib\ 1617}# - #{mod\ 1618}#) - #{r\ 1614}# + #{type\ 6423}# + (#{binding-value\ 4989}# #{b\ 6421}#) + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (#{syntax-type\ 5085}# + (#{chi-macro\ 5095}# + (#{binding-value\ 4989}# #{b\ 6421}#) + #{e\ 6401}# + #{r\ 6402}# + #{w\ 6403}# + #{rib\ 6405}# + #{mod\ 6406}#) + #{r\ 6402}# '(()) - #{s\ 1616}# - #{rib\ 1617}# - #{mod\ 1618}# + #{s\ 6404}# + #{rib\ 6405}# + #{mod\ 6406}# #f)) (values - #{type\ 1635}# - (#{binding-value\ 207}# #{b\ 1633}#) - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#))))))) - (if (pair? #{e\ 1613}#) - (let ((#{first\ 1644}# (car #{e\ 1613}#))) + #{type\ 6423}# + (#{binding-value\ 4989}# #{b\ 6421}#) + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#))))))) + (if (pair? #{e\ 6401}#) + (let ((#{first\ 6432}# (car #{e\ 6401}#))) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{first\ 1644}# - #{r\ 1614}# - #{w\ 1615}# - #{s\ 1616}# - #{rib\ 1617}# - #{mod\ 1618}# + (#{syntax-type\ 5085}# + #{first\ 6432}# + #{r\ 6402}# + #{w\ 6403}# + #{s\ 6404}# + #{rib\ 6405}# + #{mod\ 6406}# #t)) - (lambda (#{ftype\ 1645}# - #{fval\ 1646}# - #{fe\ 1647}# - #{fw\ 1648}# - #{fs\ 1649}# - #{fmod\ 1650}#) - (if (memv #{ftype\ 1645}# (quote (lexical))) + (lambda (#{ftype\ 6433}# + #{fval\ 6434}# + #{fe\ 6435}# + #{fw\ 6436}# + #{fs\ 6437}# + #{fmod\ 6438}#) + (if (memv #{ftype\ 6433}# (quote (lexical))) (values 'lexical-call - #{fval\ 1646}# - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{ftype\ 1645}# (quote (global))) + #{fval\ 6434}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{ftype\ 6433}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 184}# - #{fval\ 1646}# - #{w\ 1615}# - #{fmod\ 1650}#) - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{ftype\ 1645}# (quote (macro))) - (#{syntax-type\ 303}# - (#{chi-macro\ 313}# - #{fval\ 1646}# - #{e\ 1613}# - #{r\ 1614}# - #{w\ 1615}# - #{rib\ 1617}# - #{mod\ 1618}#) - #{r\ 1614}# + (#{make-syntax-object\ 4966}# + #{fval\ 6434}# + #{w\ 6403}# + #{fmod\ 6438}#) + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{ftype\ 6433}# (quote (macro))) + (#{syntax-type\ 5085}# + (#{chi-macro\ 5095}# + #{fval\ 6434}# + #{e\ 6401}# + #{r\ 6402}# + #{w\ 6403}# + #{rib\ 6405}# + #{mod\ 6406}#) + #{r\ 6402}# '(()) - #{s\ 1616}# - #{rib\ 1617}# - #{mod\ 1618}# - #{for-car?\ 1619}#) - (if (memv #{ftype\ 1645}# (quote (module-ref))) + #{s\ 6404}# + #{rib\ 6405}# + #{mod\ 6406}# + #{for-car?\ 6407}#) + (if (memv #{ftype\ 6433}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 1646}# #{e\ 1613}#)) - (lambda (#{sym\ 1662}# #{mod\ 1663}#) - (#{syntax-type\ 303}# - #{sym\ 1662}# - #{r\ 1614}# - #{w\ 1615}# - #{s\ 1616}# - #{rib\ 1617}# - #{mod\ 1663}# - #{for-car?\ 1619}#))) - (if (memv #{ftype\ 1645}# (quote (core))) + (lambda () + (#{fval\ 6434}# + #{e\ 6401}# + #{r\ 6402}# + #{w\ 6403}#)) + (lambda (#{e\ 6450}# + #{r\ 6451}# + #{w\ 6452}# + #{s\ 6453}# + #{mod\ 6454}#) + (#{syntax-type\ 5085}# + #{e\ 6450}# + #{r\ 6451}# + #{w\ 6452}# + #{s\ 6453}# + #{rib\ 6405}# + #{mod\ 6454}# + #{for-car?\ 6407}#))) + (if (memv #{ftype\ 6433}# (quote (core))) (values 'core-form - #{fval\ 1646}# - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{ftype\ 1645}# + #{fval\ 6434}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{ftype\ 6433}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1646}# - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{ftype\ 1645}# (quote (begin))) + #{fval\ 6434}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{ftype\ 6433}# (quote (begin))) (values 'begin-form #f - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{ftype\ 1645}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{ftype\ 6433}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) - (if (memv #{ftype\ 1645}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) + (if (memv #{ftype\ 6433}# '(define)) - ((lambda (#{tmp\ 1671}#) - ((lambda (#{tmp\ 1672}#) - (if (if #{tmp\ 1672}# - (apply (lambda (#{_\ 1676}# - #{name\ 1677}# - #{val\ 1678}#) - (#{id?\ 222}# - #{name\ 1677}#)) - #{tmp\ 1672}#) + ((lambda (#{tmp\ 6465}#) + ((lambda (#{tmp\ 6466}#) + (if (if #{tmp\ 6466}# + (apply (lambda (#{_\ 6470}# + #{name\ 6471}# + #{val\ 6472}#) + (#{id?\ 5004}# + #{name\ 6471}#)) + #{tmp\ 6466}#) #f) - (apply (lambda (#{_\ 1682}# - #{name\ 1683}# - #{val\ 1684}#) + (apply (lambda (#{_\ 6476}# + #{name\ 6477}# + #{val\ 6478}#) (values 'define-form - #{name\ 1683}# - #{val\ 1684}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#)) - #{tmp\ 1672}#) - ((lambda (#{tmp\ 1685}#) - (if (if #{tmp\ 1685}# - (apply (lambda (#{_\ 1691}# - #{name\ 1692}# - #{args\ 1693}# - #{e1\ 1694}# - #{e2\ 1695}#) - (if (#{id?\ 222}# - #{name\ 1692}#) - (#{valid-bound-ids?\ 285}# - (#{lambda-var-list\ 337}# - #{args\ 1693}#)) + #{name\ 6477}# + #{val\ 6478}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#)) + #{tmp\ 6466}#) + ((lambda (#{tmp\ 6479}#) + (if (if #{tmp\ 6479}# + (apply (lambda (#{_\ 6485}# + #{name\ 6486}# + #{args\ 6487}# + #{e1\ 6488}# + #{e2\ 6489}#) + (if (#{id?\ 5004}# + #{name\ 6486}#) + (#{valid-bound-ids?\ 5067}# + (#{lambda-var-list\ 5119}# + #{args\ 6487}#)) #f)) - #{tmp\ 1685}#) + #{tmp\ 6479}#) #f) - (apply (lambda (#{_\ 1703}# - #{name\ 1704}# - #{args\ 1705}# - #{e1\ 1706}# - #{e2\ 1707}#) + (apply (lambda (#{_\ 6497}# + #{name\ 6498}# + #{args\ 6499}# + #{e1\ 6500}# + #{e2\ 6501}#) (values 'define-form - (#{wrap\ 291}# - #{name\ 1704}# - #{w\ 1615}# - #{mod\ 1618}#) - (#{decorate-source\ 140}# + (#{wrap\ 5073}# + #{name\ 6498}# + #{w\ 6403}# + #{mod\ 6406}#) + (#{decorate-source\ 4922}# (cons '#(syntax-object lambda ((top) @@ -3626,11 +3649,11 @@ (top) (top) (top)) - #("i1698" - "i1699" - "i1700" - "i1701" - "i1702")) + #("i6492" + "i6493" + "i6494" + "i6495" + "i6496")) #(ribcage () () @@ -3652,12 +3675,12 @@ (top) (top) (top)) - #("i1651" - "i1652" - "i1653" - "i1654" - "i1655" - "i1656")) + #("i6439" + "i6440" + "i6441" + "i6442" + "i6443" + "i6444")) #(ribcage () () @@ -3665,7 +3688,7 @@ #(ribcage #(first) #((top)) - #("i1643")) + #("i6431")) #(ribcage () () @@ -3693,13 +3716,13 @@ (top) (top) (top)) - #("i1620" - "i1621" - "i1622" - "i1623" - "i1624" - "i1625" - "i1626")) + #("i6408" + "i6409" + "i6410" + "i6411" + "i6412" + "i6413" + "i6414")) #(ribcage (lambda-var-list gen-var @@ -3937,160 +3960,160 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i4803" + "i4801"))) (hygiene guile)) - (#{wrap\ 291}# - (cons #{args\ 1705}# - (cons #{e1\ 1706}# - #{e2\ 1707}#)) - #{w\ 1615}# - #{mod\ 1618}#)) - #{s\ 1616}#) + (#{wrap\ 5073}# + (cons #{args\ 6499}# + (cons #{e1\ 6500}# + #{e2\ 6501}#)) + #{w\ 6403}# + #{mod\ 6406}#)) + #{s\ 6404}#) '(()) - #{s\ 1616}# - #{mod\ 1618}#)) - #{tmp\ 1685}#) - ((lambda (#{tmp\ 1710}#) - (if (if #{tmp\ 1710}# - (apply (lambda (#{_\ 1713}# - #{name\ 1714}#) - (#{id?\ 222}# - #{name\ 1714}#)) - #{tmp\ 1710}#) + #{s\ 6404}# + #{mod\ 6406}#)) + #{tmp\ 6479}#) + ((lambda (#{tmp\ 6504}#) + (if (if #{tmp\ 6504}# + (apply (lambda (#{_\ 6507}# + #{name\ 6508}#) + (#{id?\ 5004}# + #{name\ 6508}#)) + #{tmp\ 6504}#) #f) - (apply (lambda (#{_\ 1717}# - #{name\ 1718}#) + (apply (lambda (#{_\ 6511}# + #{name\ 6512}#) (values 'define-form - (#{wrap\ 291}# - #{name\ 1718}# - #{w\ 1615}# - #{mod\ 1618}#) + (#{wrap\ 5073}# + #{name\ 6512}# + #{w\ 6403}# + #{mod\ 6406}#) '(#(syntax-object if ((top) @@ -4099,8 +4122,8 @@ name) #((top) (top)) - #("i1715" - "i1716")) + #("i6509" + "i6510")) #(ribcage () () @@ -4122,12 +4145,12 @@ (top) (top) (top)) - #("i1651" - "i1652" - "i1653" - "i1654" - "i1655" - "i1656")) + #("i6439" + "i6440" + "i6441" + "i6442" + "i6443" + "i6444")) #(ribcage () () @@ -4135,7 +4158,7 @@ #(ribcage #(first) #((top)) - #("i1643")) + #("i6431")) #(ribcage () () @@ -4163,13 +4186,13 @@ (top) (top) (top)) - #("i1620" - "i1621" - "i1622" - "i1623" - "i1624" - "i1625" - "i1626")) + #("i6408" + "i6409" + "i6410" + "i6411" + "i6412" + "i6413" + "i6414")) #(ribcage (lambda-var-list gen-var @@ -4407,131 +4430,131 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i4803" + "i4801"))) (hygiene guile)) #(syntax-object @@ -4542,8 +4565,8 @@ name) #((top) (top)) - #("i1715" - "i1716")) + #("i6509" + "i6510")) #(ribcage () () @@ -4565,12 +4588,12 @@ (top) (top) (top)) - #("i1651" - "i1652" - "i1653" - "i1654" - "i1655" - "i1656")) + #("i6439" + "i6440" + "i6441" + "i6442" + "i6443" + "i6444")) #(ribcage () () @@ -4578,7 +4601,7 @@ #(ribcage #(first) #((top)) - #("i1643")) + #("i6431")) #(ribcage () () @@ -4606,13 +4629,13 @@ (top) (top) (top)) - #("i1620" - "i1621" - "i1622" - "i1623" - "i1624" - "i1625" - "i1626")) + #("i6408" + "i6409" + "i6410" + "i6411" + "i6412" + "i6413" + "i6414")) #(ribcage (lambda-var-list gen-var @@ -4850,131 +4873,131 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i4803" + "i4801"))) (hygiene guile)) #(syntax-object @@ -4985,8 +5008,8 @@ name) #((top) (top)) - #("i1715" - "i1716")) + #("i6509" + "i6510")) #(ribcage () () @@ -5008,12 +5031,12 @@ (top) (top) (top)) - #("i1651" - "i1652" - "i1653" - "i1654" - "i1655" - "i1656")) + #("i6439" + "i6440" + "i6441" + "i6442" + "i6443" + "i6444")) #(ribcage () () @@ -5021,7 +5044,7 @@ #(ribcage #(first) #((top)) - #("i1643")) + #("i6431")) #(ribcage () () @@ -5049,13 +5072,13 @@ (top) (top) (top)) - #("i1620" - "i1621" - "i1622" - "i1623" - "i1624" - "i1625" - "i1626")) + #("i6408" + "i6409" + "i6410" + "i6411" + "i6412" + "i6413" + "i6414")) #(ribcage (lambda-var-list gen-var @@ -5293,232 +5316,232 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" - "i19"))) + ("i4803" + "i4801"))) (hygiene guile))) '(()) - #{s\ 1616}# - #{mod\ 1618}#)) - #{tmp\ 1710}#) + #{s\ 6404}# + #{mod\ 6406}#)) + #{tmp\ 6504}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1671}#))) + #{tmp\ 6465}#))) ($sc-dispatch - #{tmp\ 1671}# + #{tmp\ 6465}# '(any any))))) ($sc-dispatch - #{tmp\ 1671}# + #{tmp\ 6465}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1671}# + #{tmp\ 6465}# '(any any any)))) - #{e\ 1613}#) - (if (memv #{ftype\ 1645}# + #{e\ 6401}#) + (if (memv #{ftype\ 6433}# '(define-syntax)) - ((lambda (#{tmp\ 1721}#) - ((lambda (#{tmp\ 1722}#) - (if (if #{tmp\ 1722}# - (apply (lambda (#{_\ 1726}# - #{name\ 1727}# - #{val\ 1728}#) - (#{id?\ 222}# - #{name\ 1727}#)) - #{tmp\ 1722}#) + ((lambda (#{tmp\ 6515}#) + ((lambda (#{tmp\ 6516}#) + (if (if #{tmp\ 6516}# + (apply (lambda (#{_\ 6520}# + #{name\ 6521}# + #{val\ 6522}#) + (#{id?\ 5004}# + #{name\ 6521}#)) + #{tmp\ 6516}#) #f) - (apply (lambda (#{_\ 1732}# - #{name\ 1733}# - #{val\ 1734}#) + (apply (lambda (#{_\ 6526}# + #{name\ 6527}# + #{val\ 6528}#) (values 'define-syntax-form - #{name\ 1733}# - #{val\ 1734}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#)) - #{tmp\ 1722}#) + #{name\ 6527}# + #{val\ 6528}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#)) + #{tmp\ 6516}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1721}#))) + #{tmp\ 6515}#))) ($sc-dispatch - #{tmp\ 1721}# + #{tmp\ 6515}# '(any any any)))) - #{e\ 1613}#) + #{e\ 6401}#) (values 'call #f - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#)))))))))))))) - (if (#{syntax-object?\ 186}# #{e\ 1613}#) - (#{syntax-type\ 303}# - (#{syntax-object-expression\ 188}# #{e\ 1613}#) - #{r\ 1614}# - (#{join-wraps\ 273}# - #{w\ 1615}# - (#{syntax-object-wrap\ 190}# #{e\ 1613}#)) - #{s\ 1616}# - #{rib\ 1617}# - (let ((#{t\ 1740}# - (#{syntax-object-module\ 192}# #{e\ 1613}#))) - (if #{t\ 1740}# #{t\ 1740}# #{mod\ 1618}#)) - #{for-car?\ 1619}#) - (if (self-evaluating? #{e\ 1613}#) + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#)))))))))))))) + (if (#{syntax-object?\ 4968}# #{e\ 6401}#) + (#{syntax-type\ 5085}# + (#{syntax-object-expression\ 4970}# #{e\ 6401}#) + #{r\ 6402}# + (#{join-wraps\ 5055}# + #{w\ 6403}# + (#{syntax-object-wrap\ 4972}# #{e\ 6401}#)) + #{s\ 6404}# + #{rib\ 6405}# + (let ((#{t\ 6534}# + (#{syntax-object-module\ 4974}# #{e\ 6401}#))) + (if #{t\ 6534}# #{t\ 6534}# #{mod\ 6406}#)) + #{for-car?\ 6407}#) + (if (self-evaluating? #{e\ 6401}#) (values 'constant #f - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#) + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#) (values 'other #f - #{e\ 1613}# - #{w\ 1615}# - #{s\ 1616}# - #{mod\ 1618}#))))))) - (#{chi-when-list\ 301}# - (lambda (#{e\ 1745}# #{when-list\ 1746}# #{w\ 1747}#) - (letrec ((#{f\ 1754}# - (lambda (#{when-list\ 1755}# #{situations\ 1756}#) - (if (null? #{when-list\ 1755}#) - #{situations\ 1756}# - (#{f\ 1754}# - (cdr #{when-list\ 1755}#) - (cons (let ((#{x\ 1758}# - (car #{when-list\ 1755}#))) - (if (#{free-id=?\ 281}# - #{x\ 1758}# + #{e\ 6401}# + #{w\ 6403}# + #{s\ 6404}# + #{mod\ 6406}#))))))) + (#{chi-when-list\ 5083}# + (lambda (#{e\ 6539}# #{when-list\ 6540}# #{w\ 6541}#) + (letrec ((#{f\ 6548}# + (lambda (#{when-list\ 6549}# #{situations\ 6550}#) + (if (null? #{when-list\ 6549}#) + #{situations\ 6550}# + (#{f\ 6548}# + (cdr #{when-list\ 6549}#) + (cons (let ((#{x\ 6552}# + (car #{when-list\ 6549}#))) + (if (#{free-id=?\ 5063}# + #{x\ 6552}# '#(syntax-object compile ((top) @@ -5528,17 +5551,17 @@ #(ribcage #(x) #((top)) - #("i1757")) + #("i6551")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1751" "i1752" "i1753")) + #("i6545" "i6546" "i6547")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1748" "i1749" "i1750")) + #("i6542" "i6543" "i6544")) #(ribcage (lambda-var-list gen-var @@ -5776,132 +5799,132 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 281}# - #{x\ 1758}# + (if (#{free-id=?\ 5063}# + #{x\ 6552}# '#(syntax-object load ((top) @@ -5911,21 +5934,21 @@ #(ribcage #(x) #((top)) - #("i1757")) + #("i6551")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1751" - "i1752" - "i1753")) + #("i6545" + "i6546" + "i6547")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) + #("i6542" + "i6543" + "i6544")) #(ribcage (lambda-var-list gen-var @@ -6163,133 +6186,133 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile))) 'load - (if (#{free-id=?\ 281}# - #{x\ 1758}# + (if (#{free-id=?\ 5063}# + #{x\ 6552}# '#(syntax-object eval ((top) @@ -6299,23 +6322,23 @@ #(ribcage #(x) #((top)) - #("i1757")) + #("i6551")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1751" - "i1752" - "i1753")) + #("i6545" + "i6546" + "i6547")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) + #("i6542" + "i6543" + "i6544")) #(ribcage (lambda-var-list gen-var @@ -6553,133 +6576,133 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 281}# - #{x\ 1758}# + (if (#{free-id=?\ 5063}# + #{x\ 6552}# '#(syntax-object expand ((top) @@ -6689,23 +6712,23 @@ #(ribcage #(x) #((top)) - #("i1757")) + #("i6551")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1751" - "i1752" - "i1753")) + #("i6545" + "i6546" + "i6547")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) + #("i6542" + "i6543" + "i6544")) #(ribcage (lambda-var-list gen-var @@ -6943,1016 +6966,1020 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 1745}# - (#{wrap\ 291}# - #{x\ 1758}# - #{w\ 1747}# + #{e\ 6539}# + (#{wrap\ 5073}# + #{x\ 6552}# + #{w\ 6541}# #f))))))) - #{situations\ 1756}#)))))) - (#{f\ 1754}# #{when-list\ 1746}# (quote ()))))) - (#{chi-install-global\ 299}# - (lambda (#{name\ 1768}# #{e\ 1769}#) - (#{build-global-definition\ 162}# + #{situations\ 6550}#)))))) + (#{f\ 6548}# #{when-list\ 6540}# (quote ()))))) + (#{chi-install-global\ 5081}# + (lambda (#{name\ 6562}# #{e\ 6563}#) + (#{build-global-definition\ 4944}# #f - #{name\ 1768}# - (#{build-application\ 144}# + #{name\ 6562}# + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# + (#{build-primref\ 4952}# #f 'make-syntax-transformer) - (list (#{build-data\ 172}# #f #{name\ 1768}#) - (#{build-data\ 172}# #f (quote macro)) - (#{build-application\ 144}# + (list (#{build-data\ 4954}# #f #{name\ 6562}#) + (#{build-data\ 4954}# #f (quote macro)) + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# #f (quote cons)) - (list #{e\ 1769}# - (#{build-application\ 144}# + (#{build-primref\ 4952}# #f (quote cons)) + (list #{e\ 6563}# + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# + (#{build-primref\ 4952}# #f 'module-name) - (list (#{build-application\ 144}# + (list (#{build-application\ 4926}# #f - (#{build-primref\ 170}# + (#{build-primref\ 4952}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 297}# - (lambda (#{body\ 1783}# - #{r\ 1784}# - #{w\ 1785}# - #{s\ 1786}# - #{m\ 1787}# - #{esew\ 1788}# - #{mod\ 1789}#) - (#{build-sequence\ 174}# - #{s\ 1786}# - (letrec ((#{dobody\ 1806}# - (lambda (#{body\ 1807}# - #{r\ 1808}# - #{w\ 1809}# - #{m\ 1810}# - #{esew\ 1811}# - #{mod\ 1812}# - #{module\ 1813}# - #{out\ 1814}#) - (if (null? #{body\ 1807}#) - (reverse #{out\ 1814}#) - (let ((#{first\ 1817}# - (#{chi-top\ 305}# - (car #{body\ 1807}#) - #{r\ 1808}# - #{w\ 1809}# - #{m\ 1810}# - #{esew\ 1811}# - #{mod\ 1812}#))) - (let ((#{new-module\ 1819}# + (#{chi-top-sequence\ 5079}# + (lambda (#{body\ 6577}# + #{r\ 6578}# + #{w\ 6579}# + #{s\ 6580}# + #{m\ 6581}# + #{esew\ 6582}# + #{mod\ 6583}#) + (#{build-sequence\ 4956}# + #{s\ 6580}# + (letrec ((#{dobody\ 6600}# + (lambda (#{body\ 6601}# + #{r\ 6602}# + #{w\ 6603}# + #{m\ 6604}# + #{esew\ 6605}# + #{mod\ 6606}# + #{module\ 6607}# + #{out\ 6608}#) + (if (null? #{body\ 6601}#) + (reverse #{out\ 6608}#) + (let ((#{first\ 6611}# + (#{chi-top\ 5087}# + (car #{body\ 6601}#) + #{r\ 6602}# + #{w\ 6603}# + #{m\ 6604}# + #{esew\ 6605}# + #{mod\ 6606}#))) + (let ((#{new-module\ 6613}# (current-module))) - (#{dobody\ 1806}# - (cdr #{body\ 1807}#) - #{r\ 1808}# - #{w\ 1809}# - #{m\ 1810}# - #{esew\ 1811}# - (if (eq? #{module\ 1813}# - #{new-module\ 1819}#) - #{mod\ 1812}# + (#{dobody\ 6600}# + (cdr #{body\ 6601}#) + #{r\ 6602}# + #{w\ 6603}# + #{m\ 6604}# + #{esew\ 6605}# + (if (eq? #{module\ 6607}# + #{new-module\ 6613}#) + #{mod\ 6606}# (cons 'hygiene (module-name - #{new-module\ 1819}#))) - #{new-module\ 1819}# - (cons #{first\ 1817}# - #{out\ 1814}#)))))))) - (#{dobody\ 1806}# - #{body\ 1783}# - #{r\ 1784}# - #{w\ 1785}# - #{m\ 1787}# - #{esew\ 1788}# - #{mod\ 1789}# + #{new-module\ 6613}#))) + #{new-module\ 6613}# + (cons #{first\ 6611}# + #{out\ 6608}#)))))))) + (#{dobody\ 6600}# + #{body\ 6577}# + #{r\ 6578}# + #{w\ 6579}# + #{m\ 6581}# + #{esew\ 6582}# + #{mod\ 6583}# (current-module) '()))))) - (#{chi-sequence\ 295}# - (lambda (#{body\ 1820}# - #{r\ 1821}# - #{w\ 1822}# - #{s\ 1823}# - #{mod\ 1824}#) - (#{build-sequence\ 174}# - #{s\ 1823}# - (letrec ((#{dobody\ 1835}# - (lambda (#{body\ 1836}# - #{r\ 1837}# - #{w\ 1838}# - #{mod\ 1839}#) - (if (null? #{body\ 1836}#) + (#{chi-sequence\ 5077}# + (lambda (#{body\ 6614}# + #{r\ 6615}# + #{w\ 6616}# + #{s\ 6617}# + #{mod\ 6618}#) + (#{build-sequence\ 4956}# + #{s\ 6617}# + (letrec ((#{dobody\ 6629}# + (lambda (#{body\ 6630}# + #{r\ 6631}# + #{w\ 6632}# + #{mod\ 6633}#) + (if (null? #{body\ 6630}#) '() - (let ((#{first\ 1841}# - (#{chi\ 307}# - (car #{body\ 1836}#) - #{r\ 1837}# - #{w\ 1838}# - #{mod\ 1839}#))) - (cons #{first\ 1841}# - (#{dobody\ 1835}# - (cdr #{body\ 1836}#) - #{r\ 1837}# - #{w\ 1838}# - #{mod\ 1839}#))))))) - (#{dobody\ 1835}# - #{body\ 1820}# - #{r\ 1821}# - #{w\ 1822}# - #{mod\ 1824}#))))) - (#{source-wrap\ 293}# - (lambda (#{x\ 1842}# - #{w\ 1843}# - #{s\ 1844}# - #{defmod\ 1845}#) - (#{wrap\ 291}# - (#{decorate-source\ 140}# - #{x\ 1842}# - #{s\ 1844}#) - #{w\ 1843}# - #{defmod\ 1845}#))) - (#{wrap\ 291}# - (lambda (#{x\ 1850}# #{w\ 1851}# #{defmod\ 1852}#) - (if (if (null? (#{wrap-marks\ 229}# #{w\ 1851}#)) - (null? (#{wrap-subst\ 231}# #{w\ 1851}#)) + (let ((#{first\ 6635}# + (#{chi\ 5089}# + (car #{body\ 6630}#) + #{r\ 6631}# + #{w\ 6632}# + #{mod\ 6633}#))) + (cons #{first\ 6635}# + (#{dobody\ 6629}# + (cdr #{body\ 6630}#) + #{r\ 6631}# + #{w\ 6632}# + #{mod\ 6633}#))))))) + (#{dobody\ 6629}# + #{body\ 6614}# + #{r\ 6615}# + #{w\ 6616}# + #{mod\ 6618}#))))) + (#{source-wrap\ 5075}# + (lambda (#{x\ 6636}# + #{w\ 6637}# + #{s\ 6638}# + #{defmod\ 6639}#) + (#{wrap\ 5073}# + (#{decorate-source\ 4922}# + #{x\ 6636}# + #{s\ 6638}#) + #{w\ 6637}# + #{defmod\ 6639}#))) + (#{wrap\ 5073}# + (lambda (#{x\ 6644}# #{w\ 6645}# #{defmod\ 6646}#) + (if (if (null? (#{wrap-marks\ 5011}# #{w\ 6645}#)) + (null? (#{wrap-subst\ 5013}# #{w\ 6645}#)) #f) - #{x\ 1850}# - (if (#{syntax-object?\ 186}# #{x\ 1850}#) - (#{make-syntax-object\ 184}# - (#{syntax-object-expression\ 188}# #{x\ 1850}#) - (#{join-wraps\ 273}# - #{w\ 1851}# - (#{syntax-object-wrap\ 190}# #{x\ 1850}#)) - (#{syntax-object-module\ 192}# #{x\ 1850}#)) - (if (null? #{x\ 1850}#) - #{x\ 1850}# - (#{make-syntax-object\ 184}# - #{x\ 1850}# - #{w\ 1851}# - #{defmod\ 1852}#)))))) - (#{bound-id-member?\ 289}# - (lambda (#{x\ 1865}# #{list\ 1866}#) - (if (not (null? #{list\ 1866}#)) - (let ((#{t\ 1873}# - (#{bound-id=?\ 283}# - #{x\ 1865}# - (car #{list\ 1866}#)))) - (if #{t\ 1873}# - #{t\ 1873}# - (#{bound-id-member?\ 289}# - #{x\ 1865}# - (cdr #{list\ 1866}#)))) + #{x\ 6644}# + (if (#{syntax-object?\ 4968}# #{x\ 6644}#) + (#{make-syntax-object\ 4966}# + (#{syntax-object-expression\ 4970}# #{x\ 6644}#) + (#{join-wraps\ 5055}# + #{w\ 6645}# + (#{syntax-object-wrap\ 4972}# #{x\ 6644}#)) + (#{syntax-object-module\ 4974}# #{x\ 6644}#)) + (if (null? #{x\ 6644}#) + #{x\ 6644}# + (#{make-syntax-object\ 4966}# + #{x\ 6644}# + #{w\ 6645}# + #{defmod\ 6646}#)))))) + (#{bound-id-member?\ 5071}# + (lambda (#{x\ 6659}# #{list\ 6660}#) + (if (not (null? #{list\ 6660}#)) + (let ((#{t\ 6667}# + (#{bound-id=?\ 5065}# + #{x\ 6659}# + (car #{list\ 6660}#)))) + (if #{t\ 6667}# + #{t\ 6667}# + (#{bound-id-member?\ 5071}# + #{x\ 6659}# + (cdr #{list\ 6660}#)))) #f))) - (#{distinct-bound-ids?\ 287}# - (lambda (#{ids\ 1875}#) - (letrec ((#{distinct?\ 1879}# - (lambda (#{ids\ 1880}#) - (let ((#{t\ 1883}# (null? #{ids\ 1880}#))) - (if #{t\ 1883}# - #{t\ 1883}# - (if (not (#{bound-id-member?\ 289}# - (car #{ids\ 1880}#) - (cdr #{ids\ 1880}#))) - (#{distinct?\ 1879}# (cdr #{ids\ 1880}#)) + (#{distinct-bound-ids?\ 5069}# + (lambda (#{ids\ 6669}#) + (letrec ((#{distinct?\ 6673}# + (lambda (#{ids\ 6674}#) + (let ((#{t\ 6677}# (null? #{ids\ 6674}#))) + (if #{t\ 6677}# + #{t\ 6677}# + (if (not (#{bound-id-member?\ 5071}# + (car #{ids\ 6674}#) + (cdr #{ids\ 6674}#))) + (#{distinct?\ 6673}# (cdr #{ids\ 6674}#)) #f)))))) - (#{distinct?\ 1879}# #{ids\ 1875}#)))) - (#{valid-bound-ids?\ 285}# - (lambda (#{ids\ 1887}#) - (if (letrec ((#{all-ids?\ 1892}# - (lambda (#{ids\ 1893}#) - (let ((#{t\ 1896}# (null? #{ids\ 1893}#))) - (if #{t\ 1896}# - #{t\ 1896}# - (if (#{id?\ 222}# (car #{ids\ 1893}#)) - (#{all-ids?\ 1892}# (cdr #{ids\ 1893}#)) + (#{distinct?\ 6673}# #{ids\ 6669}#)))) + (#{valid-bound-ids?\ 5067}# + (lambda (#{ids\ 6681}#) + (if (letrec ((#{all-ids?\ 6686}# + (lambda (#{ids\ 6687}#) + (let ((#{t\ 6690}# (null? #{ids\ 6687}#))) + (if #{t\ 6690}# + #{t\ 6690}# + (if (#{id?\ 5004}# (car #{ids\ 6687}#)) + (#{all-ids?\ 6686}# (cdr #{ids\ 6687}#)) #f)))))) - (#{all-ids?\ 1892}# #{ids\ 1887}#)) - (#{distinct-bound-ids?\ 287}# #{ids\ 1887}#) + (#{all-ids?\ 6686}# #{ids\ 6681}#)) + (#{distinct-bound-ids?\ 5069}# #{ids\ 6681}#) #f))) - (#{bound-id=?\ 283}# - (lambda (#{i\ 1901}# #{j\ 1902}#) - (if (if (#{syntax-object?\ 186}# #{i\ 1901}#) - (#{syntax-object?\ 186}# #{j\ 1902}#) + (#{bound-id=?\ 5065}# + (lambda (#{i\ 6695}# #{j\ 6696}#) + (if (if (#{syntax-object?\ 4968}# #{i\ 6695}#) + (#{syntax-object?\ 4968}# #{j\ 6696}#) #f) - (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1901}#) - (#{syntax-object-expression\ 188}# #{j\ 1902}#)) - (#{same-marks?\ 277}# - (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{i\ 1901}#)) - (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{j\ 1902}#))) + (if (eq? (#{syntax-object-expression\ 4970}# #{i\ 6695}#) + (#{syntax-object-expression\ 4970}# #{j\ 6696}#)) + (#{same-marks?\ 5059}# + (#{wrap-marks\ 5011}# + (#{syntax-object-wrap\ 4972}# #{i\ 6695}#)) + (#{wrap-marks\ 5011}# + (#{syntax-object-wrap\ 4972}# #{j\ 6696}#))) #f) - (eq? #{i\ 1901}# #{j\ 1902}#)))) - (#{free-id=?\ 281}# - (lambda (#{i\ 1909}# #{j\ 1910}#) - (if (eq? (let ((#{x\ 1916}# #{i\ 1909}#)) - (if (#{syntax-object?\ 186}# #{x\ 1916}#) - (#{syntax-object-expression\ 188}# #{x\ 1916}#) - #{x\ 1916}#)) - (let ((#{x\ 1919}# #{j\ 1910}#)) - (if (#{syntax-object?\ 186}# #{x\ 1919}#) - (#{syntax-object-expression\ 188}# #{x\ 1919}#) - #{x\ 1919}#))) - (eq? (#{id-var-name\ 279}# #{i\ 1909}# (quote (()))) - (#{id-var-name\ 279}# #{j\ 1910}# (quote (())))) + (eq? #{i\ 6695}# #{j\ 6696}#)))) + (#{free-id=?\ 5063}# + (lambda (#{i\ 6703}# #{j\ 6704}#) + (if (eq? (let ((#{x\ 6710}# #{i\ 6703}#)) + (if (#{syntax-object?\ 4968}# #{x\ 6710}#) + (#{syntax-object-expression\ 4970}# #{x\ 6710}#) + #{x\ 6710}#)) + (let ((#{x\ 6713}# #{j\ 6704}#)) + (if (#{syntax-object?\ 4968}# #{x\ 6713}#) + (#{syntax-object-expression\ 4970}# #{x\ 6713}#) + #{x\ 6713}#))) + (eq? (#{id-var-name\ 5061}# #{i\ 6703}# (quote (()))) + (#{id-var-name\ 5061}# #{j\ 6704}# (quote (())))) #f))) - (#{id-var-name\ 279}# - (lambda (#{id\ 1923}# #{w\ 1924}#) - (letrec ((#{search-vector-rib\ 1933}# - (lambda (#{sym\ 1945}# - #{subst\ 1946}# - #{marks\ 1947}# - #{symnames\ 1948}# - #{ribcage\ 1949}#) - (let ((#{n\ 1956}# - (vector-length #{symnames\ 1948}#))) - (letrec ((#{f\ 1959}# - (lambda (#{i\ 1960}#) - (if (#{fx=\ 127}# - #{i\ 1960}# - #{n\ 1956}#) - (#{search\ 1929}# - #{sym\ 1945}# - (cdr #{subst\ 1946}#) - #{marks\ 1947}#) + (#{id-var-name\ 5061}# + (lambda (#{id\ 6717}# #{w\ 6718}#) + (letrec ((#{search-vector-rib\ 6727}# + (lambda (#{sym\ 6739}# + #{subst\ 6740}# + #{marks\ 6741}# + #{symnames\ 6742}# + #{ribcage\ 6743}#) + (let ((#{n\ 6750}# + (vector-length #{symnames\ 6742}#))) + (letrec ((#{f\ 6753}# + (lambda (#{i\ 6754}#) + (if (#{fx=\ 4909}# + #{i\ 6754}# + #{n\ 6750}#) + (#{search\ 6723}# + #{sym\ 6739}# + (cdr #{subst\ 6740}#) + #{marks\ 6741}#) (if (if (eq? (vector-ref - #{symnames\ 1948}# - #{i\ 1960}#) - #{sym\ 1945}#) - (#{same-marks?\ 277}# - #{marks\ 1947}# + #{symnames\ 6742}# + #{i\ 6754}#) + #{sym\ 6739}#) + (#{same-marks?\ 5059}# + #{marks\ 6741}# (vector-ref - (#{ribcage-marks\ 249}# - #{ribcage\ 1949}#) - #{i\ 1960}#)) + (#{ribcage-marks\ 5031}# + #{ribcage\ 6743}#) + #{i\ 6754}#)) #f) (values (vector-ref - (#{ribcage-labels\ 251}# - #{ribcage\ 1949}#) - #{i\ 1960}#) - #{marks\ 1947}#) - (#{f\ 1959}# - (#{fx+\ 123}# - #{i\ 1960}# + (#{ribcage-labels\ 5033}# + #{ribcage\ 6743}#) + #{i\ 6754}#) + #{marks\ 6741}#) + (#{f\ 6753}# + (#{fx+\ 4905}# + #{i\ 6754}# 1))))))) - (#{f\ 1959}# 0))))) - (#{search-list-rib\ 1931}# - (lambda (#{sym\ 1968}# - #{subst\ 1969}# - #{marks\ 1970}# - #{symnames\ 1971}# - #{ribcage\ 1972}#) - (letrec ((#{f\ 1981}# - (lambda (#{symnames\ 1982}# #{i\ 1983}#) - (if (null? #{symnames\ 1982}#) - (#{search\ 1929}# - #{sym\ 1968}# - (cdr #{subst\ 1969}#) - #{marks\ 1970}#) - (if (if (eq? (car #{symnames\ 1982}#) - #{sym\ 1968}#) - (#{same-marks?\ 277}# - #{marks\ 1970}# + (#{f\ 6753}# 0))))) + (#{search-list-rib\ 6725}# + (lambda (#{sym\ 6762}# + #{subst\ 6763}# + #{marks\ 6764}# + #{symnames\ 6765}# + #{ribcage\ 6766}#) + (letrec ((#{f\ 6775}# + (lambda (#{symnames\ 6776}# #{i\ 6777}#) + (if (null? #{symnames\ 6776}#) + (#{search\ 6723}# + #{sym\ 6762}# + (cdr #{subst\ 6763}#) + #{marks\ 6764}#) + (if (if (eq? (car #{symnames\ 6776}#) + #{sym\ 6762}#) + (#{same-marks?\ 5059}# + #{marks\ 6764}# (list-ref - (#{ribcage-marks\ 249}# - #{ribcage\ 1972}#) - #{i\ 1983}#)) + (#{ribcage-marks\ 5031}# + #{ribcage\ 6766}#) + #{i\ 6777}#)) #f) (values (list-ref - (#{ribcage-labels\ 251}# - #{ribcage\ 1972}#) - #{i\ 1983}#) - #{marks\ 1970}#) - (#{f\ 1981}# - (cdr #{symnames\ 1982}#) - (#{fx+\ 123}# - #{i\ 1983}# + (#{ribcage-labels\ 5033}# + #{ribcage\ 6766}#) + #{i\ 6777}#) + #{marks\ 6764}#) + (#{f\ 6775}# + (cdr #{symnames\ 6776}#) + (#{fx+\ 4905}# + #{i\ 6777}# 1))))))) - (#{f\ 1981}# #{symnames\ 1971}# 0)))) - (#{search\ 1929}# - (lambda (#{sym\ 1991}# - #{subst\ 1992}# - #{marks\ 1993}#) - (if (null? #{subst\ 1992}#) - (values #f #{marks\ 1993}#) - (let ((#{fst\ 1998}# (car #{subst\ 1992}#))) - (if (eq? #{fst\ 1998}# (quote shift)) - (#{search\ 1929}# - #{sym\ 1991}# - (cdr #{subst\ 1992}#) - (cdr #{marks\ 1993}#)) - (let ((#{symnames\ 2000}# - (#{ribcage-symnames\ 247}# - #{fst\ 1998}#))) - (if (vector? #{symnames\ 2000}#) - (#{search-vector-rib\ 1933}# - #{sym\ 1991}# - #{subst\ 1992}# - #{marks\ 1993}# - #{symnames\ 2000}# - #{fst\ 1998}#) - (#{search-list-rib\ 1931}# - #{sym\ 1991}# - #{subst\ 1992}# - #{marks\ 1993}# - #{symnames\ 2000}# - #{fst\ 1998}#))))))))) - (if (symbol? #{id\ 1923}#) - (let ((#{t\ 2003}# + (#{f\ 6775}# #{symnames\ 6765}# 0)))) + (#{search\ 6723}# + (lambda (#{sym\ 6785}# + #{subst\ 6786}# + #{marks\ 6787}#) + (if (null? #{subst\ 6786}#) + (values #f #{marks\ 6787}#) + (let ((#{fst\ 6792}# (car #{subst\ 6786}#))) + (if (eq? #{fst\ 6792}# (quote shift)) + (#{search\ 6723}# + #{sym\ 6785}# + (cdr #{subst\ 6786}#) + (cdr #{marks\ 6787}#)) + (let ((#{symnames\ 6794}# + (#{ribcage-symnames\ 5029}# + #{fst\ 6792}#))) + (if (vector? #{symnames\ 6794}#) + (#{search-vector-rib\ 6727}# + #{sym\ 6785}# + #{subst\ 6786}# + #{marks\ 6787}# + #{symnames\ 6794}# + #{fst\ 6792}#) + (#{search-list-rib\ 6725}# + #{sym\ 6785}# + #{subst\ 6786}# + #{marks\ 6787}# + #{symnames\ 6794}# + #{fst\ 6792}#))))))))) + (if (symbol? #{id\ 6717}#) + (let ((#{t\ 6797}# (call-with-values (lambda () - (#{search\ 1929}# - #{id\ 1923}# - (#{wrap-subst\ 231}# #{w\ 1924}#) - (#{wrap-marks\ 229}# #{w\ 1924}#))) - (lambda (#{x\ 2005}# . #{ignore\ 2006}#) - #{x\ 2005}#)))) - (if #{t\ 2003}# #{t\ 2003}# #{id\ 1923}#)) - (if (#{syntax-object?\ 186}# #{id\ 1923}#) - (let ((#{id\ 2014}# - (#{syntax-object-expression\ 188}# #{id\ 1923}#)) - (#{w1\ 2015}# - (#{syntax-object-wrap\ 190}# #{id\ 1923}#))) - (let ((#{marks\ 2017}# - (#{join-marks\ 275}# - (#{wrap-marks\ 229}# #{w\ 1924}#) - (#{wrap-marks\ 229}# #{w1\ 2015}#)))) + (#{search\ 6723}# + #{id\ 6717}# + (#{wrap-subst\ 5013}# #{w\ 6718}#) + (#{wrap-marks\ 5011}# #{w\ 6718}#))) + (lambda (#{x\ 6799}# . #{ignore\ 6800}#) + #{x\ 6799}#)))) + (if #{t\ 6797}# #{t\ 6797}# #{id\ 6717}#)) + (if (#{syntax-object?\ 4968}# #{id\ 6717}#) + (let ((#{id\ 6808}# + (#{syntax-object-expression\ 4970}# #{id\ 6717}#)) + (#{w1\ 6809}# + (#{syntax-object-wrap\ 4972}# #{id\ 6717}#))) + (let ((#{marks\ 6811}# + (#{join-marks\ 5057}# + (#{wrap-marks\ 5011}# #{w\ 6718}#) + (#{wrap-marks\ 5011}# #{w1\ 6809}#)))) (call-with-values (lambda () - (#{search\ 1929}# - #{id\ 2014}# - (#{wrap-subst\ 231}# #{w\ 1924}#) - #{marks\ 2017}#)) - (lambda (#{new-id\ 2018}# #{marks\ 2019}#) - (let ((#{t\ 2024}# #{new-id\ 2018}#)) - (if #{t\ 2024}# - #{t\ 2024}# - (let ((#{t\ 2027}# + (#{search\ 6723}# + #{id\ 6808}# + (#{wrap-subst\ 5013}# #{w\ 6718}#) + #{marks\ 6811}#)) + (lambda (#{new-id\ 6812}# #{marks\ 6813}#) + (let ((#{t\ 6818}# #{new-id\ 6812}#)) + (if #{t\ 6818}# + #{t\ 6818}# + (let ((#{t\ 6821}# (call-with-values (lambda () - (#{search\ 1929}# - #{id\ 2014}# - (#{wrap-subst\ 231}# - #{w1\ 2015}#) - #{marks\ 2019}#)) - (lambda (#{x\ 2029}# + (#{search\ 6723}# + #{id\ 6808}# + (#{wrap-subst\ 5013}# + #{w1\ 6809}#) + #{marks\ 6813}#)) + (lambda (#{x\ 6823}# . - #{ignore\ 2030}#) - #{x\ 2029}#)))) - (if #{t\ 2027}# - #{t\ 2027}# - #{id\ 2014}#)))))))) + #{ignore\ 6824}#) + #{x\ 6823}#)))) + (if #{t\ 6821}# + #{t\ 6821}# + #{id\ 6808}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1923}#)))))) - (#{same-marks?\ 277}# - (lambda (#{x\ 2035}# #{y\ 2036}#) - (let ((#{t\ 2041}# (eq? #{x\ 2035}# #{y\ 2036}#))) - (if #{t\ 2041}# - #{t\ 2041}# - (if (not (null? #{x\ 2035}#)) - (if (not (null? #{y\ 2036}#)) - (if (eq? (car #{x\ 2035}#) (car #{y\ 2036}#)) - (#{same-marks?\ 277}# - (cdr #{x\ 2035}#) - (cdr #{y\ 2036}#)) + #{id\ 6717}#)))))) + (#{same-marks?\ 5059}# + (lambda (#{x\ 6829}# #{y\ 6830}#) + (let ((#{t\ 6835}# (eq? #{x\ 6829}# #{y\ 6830}#))) + (if #{t\ 6835}# + #{t\ 6835}# + (if (not (null? #{x\ 6829}#)) + (if (not (null? #{y\ 6830}#)) + (if (eq? (car #{x\ 6829}#) (car #{y\ 6830}#)) + (#{same-marks?\ 5059}# + (cdr #{x\ 6829}#) + (cdr #{y\ 6830}#)) #f) #f) #f))))) - (#{join-marks\ 275}# - (lambda (#{m1\ 2047}# #{m2\ 2048}#) - (#{smart-append\ 271}# #{m1\ 2047}# #{m2\ 2048}#))) - (#{join-wraps\ 273}# - (lambda (#{w1\ 2051}# #{w2\ 2052}#) - (let ((#{m1\ 2057}# (#{wrap-marks\ 229}# #{w1\ 2051}#)) - (#{s1\ 2058}# (#{wrap-subst\ 231}# #{w1\ 2051}#))) - (if (null? #{m1\ 2057}#) - (if (null? #{s1\ 2058}#) - #{w2\ 2052}# - (#{make-wrap\ 227}# - (#{wrap-marks\ 229}# #{w2\ 2052}#) - (#{smart-append\ 271}# - #{s1\ 2058}# - (#{wrap-subst\ 231}# #{w2\ 2052}#)))) - (#{make-wrap\ 227}# - (#{smart-append\ 271}# - #{m1\ 2057}# - (#{wrap-marks\ 229}# #{w2\ 2052}#)) - (#{smart-append\ 271}# - #{s1\ 2058}# - (#{wrap-subst\ 231}# #{w2\ 2052}#))))))) - (#{smart-append\ 271}# - (lambda (#{m1\ 2059}# #{m2\ 2060}#) - (if (null? #{m2\ 2060}#) - #{m1\ 2059}# - (append #{m1\ 2059}# #{m2\ 2060}#)))) - (#{make-binding-wrap\ 269}# - (lambda (#{ids\ 2063}# #{labels\ 2064}# #{w\ 2065}#) - (if (null? #{ids\ 2063}#) - #{w\ 2065}# - (#{make-wrap\ 227}# - (#{wrap-marks\ 229}# #{w\ 2065}#) - (cons (let ((#{labelvec\ 2070}# - (list->vector #{labels\ 2064}#))) - (let ((#{n\ 2072}# - (vector-length #{labelvec\ 2070}#))) - (let ((#{symnamevec\ 2075}# - (make-vector #{n\ 2072}#)) - (#{marksvec\ 2076}# - (make-vector #{n\ 2072}#))) + (#{join-marks\ 5057}# + (lambda (#{m1\ 6841}# #{m2\ 6842}#) + (#{smart-append\ 5053}# + #{m1\ 6841}# + #{m2\ 6842}#))) + (#{join-wraps\ 5055}# + (lambda (#{w1\ 6845}# #{w2\ 6846}#) + (let ((#{m1\ 6851}# + (#{wrap-marks\ 5011}# #{w1\ 6845}#)) + (#{s1\ 6852}# + (#{wrap-subst\ 5013}# #{w1\ 6845}#))) + (if (null? #{m1\ 6851}#) + (if (null? #{s1\ 6852}#) + #{w2\ 6846}# + (#{make-wrap\ 5009}# + (#{wrap-marks\ 5011}# #{w2\ 6846}#) + (#{smart-append\ 5053}# + #{s1\ 6852}# + (#{wrap-subst\ 5013}# #{w2\ 6846}#)))) + (#{make-wrap\ 5009}# + (#{smart-append\ 5053}# + #{m1\ 6851}# + (#{wrap-marks\ 5011}# #{w2\ 6846}#)) + (#{smart-append\ 5053}# + #{s1\ 6852}# + (#{wrap-subst\ 5013}# #{w2\ 6846}#))))))) + (#{smart-append\ 5053}# + (lambda (#{m1\ 6853}# #{m2\ 6854}#) + (if (null? #{m2\ 6854}#) + #{m1\ 6853}# + (append #{m1\ 6853}# #{m2\ 6854}#)))) + (#{make-binding-wrap\ 5051}# + (lambda (#{ids\ 6857}# #{labels\ 6858}# #{w\ 6859}#) + (if (null? #{ids\ 6857}#) + #{w\ 6859}# + (#{make-wrap\ 5009}# + (#{wrap-marks\ 5011}# #{w\ 6859}#) + (cons (let ((#{labelvec\ 6864}# + (list->vector #{labels\ 6858}#))) + (let ((#{n\ 6866}# + (vector-length #{labelvec\ 6864}#))) + (let ((#{symnamevec\ 6869}# + (make-vector #{n\ 6866}#)) + (#{marksvec\ 6870}# + (make-vector #{n\ 6866}#))) (begin - (letrec ((#{f\ 2080}# - (lambda (#{ids\ 2081}# #{i\ 2082}#) - (if (not (null? #{ids\ 2081}#)) + (letrec ((#{f\ 6874}# + (lambda (#{ids\ 6875}# #{i\ 6876}#) + (if (not (null? #{ids\ 6875}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 225}# - (car #{ids\ 2081}#) - #{w\ 2065}#)) - (lambda (#{symname\ 2083}# - #{marks\ 2084}#) + (#{id-sym-name&marks\ 5007}# + (car #{ids\ 6875}#) + #{w\ 6859}#)) + (lambda (#{symname\ 6877}# + #{marks\ 6878}#) (begin (vector-set! - #{symnamevec\ 2075}# - #{i\ 2082}# - #{symname\ 2083}#) + #{symnamevec\ 6869}# + #{i\ 6876}# + #{symname\ 6877}#) (vector-set! - #{marksvec\ 2076}# - #{i\ 2082}# - #{marks\ 2084}#) - (#{f\ 2080}# - (cdr #{ids\ 2081}#) - (#{fx+\ 123}# - #{i\ 2082}# + #{marksvec\ 6870}# + #{i\ 6876}# + #{marks\ 6878}#) + (#{f\ 6874}# + (cdr #{ids\ 6875}#) + (#{fx+\ 4905}# + #{i\ 6876}# 1))))))))) - (#{f\ 2080}# #{ids\ 2063}# 0)) - (#{make-ribcage\ 243}# - #{symnamevec\ 2075}# - #{marksvec\ 2076}# - #{labelvec\ 2070}#))))) - (#{wrap-subst\ 231}# #{w\ 2065}#)))))) - (#{extend-ribcage!\ 267}# - (lambda (#{ribcage\ 2087}# #{id\ 2088}# #{label\ 2089}#) + (#{f\ 6874}# #{ids\ 6857}# 0)) + (#{make-ribcage\ 5025}# + #{symnamevec\ 6869}# + #{marksvec\ 6870}# + #{labelvec\ 6864}#))))) + (#{wrap-subst\ 5013}# #{w\ 6859}#)))))) + (#{extend-ribcage!\ 5049}# + (lambda (#{ribcage\ 6881}# #{id\ 6882}# #{label\ 6883}#) (begin - (#{set-ribcage-symnames!\ 253}# - #{ribcage\ 2087}# - (cons (#{syntax-object-expression\ 188}# #{id\ 2088}#) - (#{ribcage-symnames\ 247}# #{ribcage\ 2087}#))) - (#{set-ribcage-marks!\ 255}# - #{ribcage\ 2087}# - (cons (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{id\ 2088}#)) - (#{ribcage-marks\ 249}# #{ribcage\ 2087}#))) - (#{set-ribcage-labels!\ 257}# - #{ribcage\ 2087}# - (cons #{label\ 2089}# - (#{ribcage-labels\ 251}# #{ribcage\ 2087}#)))))) - (#{anti-mark\ 263}# - (lambda (#{w\ 2093}#) - (#{make-wrap\ 227}# - (cons #f (#{wrap-marks\ 229}# #{w\ 2093}#)) + (#{set-ribcage-symnames!\ 5035}# + #{ribcage\ 6881}# + (cons (#{syntax-object-expression\ 4970}# #{id\ 6882}#) + (#{ribcage-symnames\ 5029}# #{ribcage\ 6881}#))) + (#{set-ribcage-marks!\ 5037}# + #{ribcage\ 6881}# + (cons (#{wrap-marks\ 5011}# + (#{syntax-object-wrap\ 4972}# #{id\ 6882}#)) + (#{ribcage-marks\ 5031}# #{ribcage\ 6881}#))) + (#{set-ribcage-labels!\ 5039}# + #{ribcage\ 6881}# + (cons #{label\ 6883}# + (#{ribcage-labels\ 5033}# #{ribcage\ 6881}#)))))) + (#{anti-mark\ 5045}# + (lambda (#{w\ 6887}#) + (#{make-wrap\ 5009}# + (cons #f (#{wrap-marks\ 5011}# #{w\ 6887}#)) (cons 'shift - (#{wrap-subst\ 231}# #{w\ 2093}#))))) - (#{set-ribcage-labels!\ 257}# - (lambda (#{x\ 2096}# #{update\ 2097}#) - (vector-set! #{x\ 2096}# 3 #{update\ 2097}#))) - (#{set-ribcage-marks!\ 255}# - (lambda (#{x\ 2100}# #{update\ 2101}#) - (vector-set! #{x\ 2100}# 2 #{update\ 2101}#))) - (#{set-ribcage-symnames!\ 253}# - (lambda (#{x\ 2104}# #{update\ 2105}#) - (vector-set! #{x\ 2104}# 1 #{update\ 2105}#))) - (#{ribcage-labels\ 251}# - (lambda (#{x\ 2108}#) (vector-ref #{x\ 2108}# 3))) - (#{ribcage-marks\ 249}# - (lambda (#{x\ 2110}#) (vector-ref #{x\ 2110}# 2))) - (#{ribcage-symnames\ 247}# - (lambda (#{x\ 2112}#) (vector-ref #{x\ 2112}# 1))) - (#{ribcage?\ 245}# - (lambda (#{x\ 2114}#) - (if (vector? #{x\ 2114}#) - (if (= (vector-length #{x\ 2114}#) 4) - (eq? (vector-ref #{x\ 2114}# 0) (quote ribcage)) + (#{wrap-subst\ 5013}# #{w\ 6887}#))))) + (#{set-ribcage-labels!\ 5039}# + (lambda (#{x\ 6890}# #{update\ 6891}#) + (vector-set! #{x\ 6890}# 3 #{update\ 6891}#))) + (#{set-ribcage-marks!\ 5037}# + (lambda (#{x\ 6894}# #{update\ 6895}#) + (vector-set! #{x\ 6894}# 2 #{update\ 6895}#))) + (#{set-ribcage-symnames!\ 5035}# + (lambda (#{x\ 6898}# #{update\ 6899}#) + (vector-set! #{x\ 6898}# 1 #{update\ 6899}#))) + (#{ribcage-labels\ 5033}# + (lambda (#{x\ 6902}#) (vector-ref #{x\ 6902}# 3))) + (#{ribcage-marks\ 5031}# + (lambda (#{x\ 6904}#) (vector-ref #{x\ 6904}# 2))) + (#{ribcage-symnames\ 5029}# + (lambda (#{x\ 6906}#) (vector-ref #{x\ 6906}# 1))) + (#{ribcage?\ 5027}# + (lambda (#{x\ 6908}#) + (if (vector? #{x\ 6908}#) + (if (= (vector-length #{x\ 6908}#) 4) + (eq? (vector-ref #{x\ 6908}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 243}# - (lambda (#{symnames\ 2119}# - #{marks\ 2120}# - #{labels\ 2121}#) + (#{make-ribcage\ 5025}# + (lambda (#{symnames\ 6913}# + #{marks\ 6914}# + #{labels\ 6915}#) (vector 'ribcage - #{symnames\ 2119}# - #{marks\ 2120}# - #{labels\ 2121}#))) - (#{gen-labels\ 240}# - (lambda (#{ls\ 2125}#) - (if (null? #{ls\ 2125}#) + #{symnames\ 6913}# + #{marks\ 6914}# + #{labels\ 6915}#))) + (#{gen-labels\ 5022}# + (lambda (#{ls\ 6919}#) + (if (null? #{ls\ 6919}#) '() - (cons (#{gen-label\ 238}#) - (#{gen-labels\ 240}# (cdr #{ls\ 2125}#)))))) - (#{gen-label\ 238}# + (cons (#{gen-label\ 5020}#) + (#{gen-labels\ 5022}# (cdr #{ls\ 6919}#)))))) + (#{gen-label\ 5020}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 231}# cdr) - (#{wrap-marks\ 229}# car) - (#{make-wrap\ 227}# cons) - (#{id-sym-name&marks\ 225}# - (lambda (#{x\ 2127}# #{w\ 2128}#) - (if (#{syntax-object?\ 186}# #{x\ 2127}#) + (#{wrap-subst\ 5013}# cdr) + (#{wrap-marks\ 5011}# car) + (#{make-wrap\ 5009}# cons) + (#{id-sym-name&marks\ 5007}# + (lambda (#{x\ 6921}# #{w\ 6922}#) + (if (#{syntax-object?\ 4968}# #{x\ 6921}#) (values - (#{syntax-object-expression\ 188}# #{x\ 2127}#) - (#{join-marks\ 275}# - (#{wrap-marks\ 229}# #{w\ 2128}#) - (#{wrap-marks\ 229}# - (#{syntax-object-wrap\ 190}# #{x\ 2127}#)))) + (#{syntax-object-expression\ 4970}# #{x\ 6921}#) + (#{join-marks\ 5057}# + (#{wrap-marks\ 5011}# #{w\ 6922}#) + (#{wrap-marks\ 5011}# + (#{syntax-object-wrap\ 4972}# #{x\ 6921}#)))) (values - #{x\ 2127}# - (#{wrap-marks\ 229}# #{w\ 2128}#))))) - (#{id?\ 222}# - (lambda (#{x\ 2131}#) - (if (symbol? #{x\ 2131}#) + #{x\ 6921}# + (#{wrap-marks\ 5011}# #{w\ 6922}#))))) + (#{id?\ 5004}# + (lambda (#{x\ 6925}#) + (if (symbol? #{x\ 6925}#) #t - (if (#{syntax-object?\ 186}# #{x\ 2131}#) + (if (#{syntax-object?\ 4968}# #{x\ 6925}#) (symbol? - (#{syntax-object-expression\ 188}# #{x\ 2131}#)) + (#{syntax-object-expression\ 4970}# #{x\ 6925}#)) #f)))) - (#{nonsymbol-id?\ 220}# - (lambda (#{x\ 2138}#) - (if (#{syntax-object?\ 186}# #{x\ 2138}#) + (#{nonsymbol-id?\ 5002}# + (lambda (#{x\ 6932}#) + (if (#{syntax-object?\ 4968}# #{x\ 6932}#) (symbol? - (#{syntax-object-expression\ 188}# #{x\ 2138}#)) + (#{syntax-object-expression\ 4970}# #{x\ 6932}#)) #f))) - (#{global-extend\ 218}# - (lambda (#{type\ 2142}# #{sym\ 2143}# #{val\ 2144}#) - (#{put-global-definition-hook\ 136}# - #{sym\ 2143}# - #{type\ 2142}# - #{val\ 2144}#))) - (#{lookup\ 216}# - (lambda (#{x\ 2148}# #{r\ 2149}# #{mod\ 2150}#) - (let ((#{t\ 2156}# (assq #{x\ 2148}# #{r\ 2149}#))) - (if #{t\ 2156}# - (cdr #{t\ 2156}#) - (if (symbol? #{x\ 2148}#) - (let ((#{t\ 2162}# - (#{get-global-definition-hook\ 138}# - #{x\ 2148}# - #{mod\ 2150}#))) - (if #{t\ 2162}# #{t\ 2162}# (quote (global)))) + (#{global-extend\ 5000}# + (lambda (#{type\ 6936}# #{sym\ 6937}# #{val\ 6938}#) + (#{put-global-definition-hook\ 4918}# + #{sym\ 6937}# + #{type\ 6936}# + #{val\ 6938}#))) + (#{lookup\ 4998}# + (lambda (#{x\ 6942}# #{r\ 6943}# #{mod\ 6944}#) + (let ((#{t\ 6950}# (assq #{x\ 6942}# #{r\ 6943}#))) + (if #{t\ 6950}# + (cdr #{t\ 6950}#) + (if (symbol? #{x\ 6942}#) + (let ((#{t\ 6956}# + (#{get-global-definition-hook\ 4920}# + #{x\ 6942}# + #{mod\ 6944}#))) + (if #{t\ 6956}# #{t\ 6956}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 214}# - (lambda (#{r\ 2167}#) - (if (null? #{r\ 2167}#) + (#{macros-only-env\ 4996}# + (lambda (#{r\ 6961}#) + (if (null? #{r\ 6961}#) '() - (let ((#{a\ 2170}# (car #{r\ 2167}#))) - (if (eq? (cadr #{a\ 2170}#) (quote macro)) - (cons #{a\ 2170}# - (#{macros-only-env\ 214}# (cdr #{r\ 2167}#))) - (#{macros-only-env\ 214}# (cdr #{r\ 2167}#))))))) - (#{extend-var-env\ 212}# - (lambda (#{labels\ 2171}# #{vars\ 2172}# #{r\ 2173}#) - (if (null? #{labels\ 2171}#) - #{r\ 2173}# - (#{extend-var-env\ 212}# - (cdr #{labels\ 2171}#) - (cdr #{vars\ 2172}#) - (cons (cons (car #{labels\ 2171}#) - (cons (quote lexical) (car #{vars\ 2172}#))) - #{r\ 2173}#))))) - (#{extend-env\ 210}# - (lambda (#{labels\ 2178}# #{bindings\ 2179}# #{r\ 2180}#) - (if (null? #{labels\ 2178}#) - #{r\ 2180}# - (#{extend-env\ 210}# - (cdr #{labels\ 2178}#) - (cdr #{bindings\ 2179}#) - (cons (cons (car #{labels\ 2178}#) - (car #{bindings\ 2179}#)) - #{r\ 2180}#))))) - (#{binding-value\ 207}# cdr) - (#{binding-type\ 205}# car) - (#{source-annotation\ 201}# - (lambda (#{x\ 2184}#) - (if (#{syntax-object?\ 186}# #{x\ 2184}#) - (#{source-annotation\ 201}# - (#{syntax-object-expression\ 188}# #{x\ 2184}#)) - (if (pair? #{x\ 2184}#) - (let ((#{props\ 2191}# (source-properties #{x\ 2184}#))) - (if (pair? #{props\ 2191}#) #{props\ 2191}# #f)) + (let ((#{a\ 6964}# (car #{r\ 6961}#))) + (if (eq? (cadr #{a\ 6964}#) (quote macro)) + (cons #{a\ 6964}# + (#{macros-only-env\ 4996}# (cdr #{r\ 6961}#))) + (#{macros-only-env\ 4996}# (cdr #{r\ 6961}#))))))) + (#{extend-var-env\ 4994}# + (lambda (#{labels\ 6965}# #{vars\ 6966}# #{r\ 6967}#) + (if (null? #{labels\ 6965}#) + #{r\ 6967}# + (#{extend-var-env\ 4994}# + (cdr #{labels\ 6965}#) + (cdr #{vars\ 6966}#) + (cons (cons (car #{labels\ 6965}#) + (cons (quote lexical) (car #{vars\ 6966}#))) + #{r\ 6967}#))))) + (#{extend-env\ 4992}# + (lambda (#{labels\ 6972}# #{bindings\ 6973}# #{r\ 6974}#) + (if (null? #{labels\ 6972}#) + #{r\ 6974}# + (#{extend-env\ 4992}# + (cdr #{labels\ 6972}#) + (cdr #{bindings\ 6973}#) + (cons (cons (car #{labels\ 6972}#) + (car #{bindings\ 6973}#)) + #{r\ 6974}#))))) + (#{binding-value\ 4989}# cdr) + (#{binding-type\ 4987}# car) + (#{source-annotation\ 4983}# + (lambda (#{x\ 6978}#) + (if (#{syntax-object?\ 4968}# #{x\ 6978}#) + (#{source-annotation\ 4983}# + (#{syntax-object-expression\ 4970}# #{x\ 6978}#)) + (if (pair? #{x\ 6978}#) + (let ((#{props\ 6985}# (source-properties #{x\ 6978}#))) + (if (pair? #{props\ 6985}#) #{props\ 6985}# #f)) #f)))) - (#{set-syntax-object-module!\ 198}# - (lambda (#{x\ 2193}# #{update\ 2194}#) - (vector-set! #{x\ 2193}# 3 #{update\ 2194}#))) - (#{set-syntax-object-wrap!\ 196}# - (lambda (#{x\ 2197}# #{update\ 2198}#) - (vector-set! #{x\ 2197}# 2 #{update\ 2198}#))) - (#{set-syntax-object-expression!\ 194}# - (lambda (#{x\ 2201}# #{update\ 2202}#) - (vector-set! #{x\ 2201}# 1 #{update\ 2202}#))) - (#{syntax-object-module\ 192}# - (lambda (#{x\ 2205}#) (vector-ref #{x\ 2205}# 3))) - (#{syntax-object-wrap\ 190}# - (lambda (#{x\ 2207}#) (vector-ref #{x\ 2207}# 2))) - (#{syntax-object-expression\ 188}# - (lambda (#{x\ 2209}#) (vector-ref #{x\ 2209}# 1))) - (#{syntax-object?\ 186}# - (lambda (#{x\ 2211}#) - (if (vector? #{x\ 2211}#) - (if (= (vector-length #{x\ 2211}#) 4) - (eq? (vector-ref #{x\ 2211}# 0) + (#{set-syntax-object-module!\ 4980}# + (lambda (#{x\ 6987}# #{update\ 6988}#) + (vector-set! #{x\ 6987}# 3 #{update\ 6988}#))) + (#{set-syntax-object-wrap!\ 4978}# + (lambda (#{x\ 6991}# #{update\ 6992}#) + (vector-set! #{x\ 6991}# 2 #{update\ 6992}#))) + (#{set-syntax-object-expression!\ 4976}# + (lambda (#{x\ 6995}# #{update\ 6996}#) + (vector-set! #{x\ 6995}# 1 #{update\ 6996}#))) + (#{syntax-object-module\ 4974}# + (lambda (#{x\ 6999}#) (vector-ref #{x\ 6999}# 3))) + (#{syntax-object-wrap\ 4972}# + (lambda (#{x\ 7001}#) (vector-ref #{x\ 7001}# 2))) + (#{syntax-object-expression\ 4970}# + (lambda (#{x\ 7003}#) (vector-ref #{x\ 7003}# 1))) + (#{syntax-object?\ 4968}# + (lambda (#{x\ 7005}#) + (if (vector? #{x\ 7005}#) + (if (= (vector-length #{x\ 7005}#) 4) + (eq? (vector-ref #{x\ 7005}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 184}# - (lambda (#{expression\ 2216}# - #{wrap\ 2217}# - #{module\ 2218}#) + (#{make-syntax-object\ 4966}# + (lambda (#{expression\ 7010}# + #{wrap\ 7011}# + #{module\ 7012}#) (vector 'syntax-object - #{expression\ 2216}# - #{wrap\ 2217}# - #{module\ 2218}#))) - (#{build-letrec\ 180}# - (lambda (#{src\ 2222}# - #{ids\ 2223}# - #{vars\ 2224}# - #{val-exps\ 2225}# - #{body-exp\ 2226}#) - (if (null? #{vars\ 2224}#) - #{body-exp\ 2226}# - (let ((#{atom-key\ 2234}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2234}# (quote (c))) + #{expression\ 7010}# + #{wrap\ 7011}# + #{module\ 7012}#))) + (#{build-letrec\ 4962}# + (lambda (#{src\ 7016}# + #{ids\ 7017}# + #{vars\ 7018}# + #{val-exps\ 7019}# + #{body-exp\ 7020}#) + (if (null? #{vars\ 7018}#) + #{body-exp\ 7020}# + (let ((#{atom-key\ 7028}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7028}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 160}# - #{ids\ 2223}# - #{val-exps\ 2225}#) + #{maybe-name-value!\ 4942}# + #{ids\ 7017}# + #{val-exps\ 7019}#) ((@ (language tree-il) make-letrec) - #{src\ 2222}# - #{ids\ 2223}# - #{vars\ 2224}# - #{val-exps\ 2225}# - #{body-exp\ 2226}#)) - (#{decorate-source\ 140}# + #{src\ 7016}# + #{ids\ 7017}# + #{vars\ 7018}# + #{val-exps\ 7019}# + #{body-exp\ 7020}#)) + (#{decorate-source\ 4922}# (list 'letrec - (map list #{vars\ 2224}# #{val-exps\ 2225}#) - #{body-exp\ 2226}#) - #{src\ 2222}#)))))) - (#{build-named-let\ 178}# - (lambda (#{src\ 2238}# - #{ids\ 2239}# - #{vars\ 2240}# - #{val-exps\ 2241}# - #{body-exp\ 2242}#) - (let ((#{f\ 2252}# (car #{vars\ 2240}#)) - (#{f-name\ 2253}# (car #{ids\ 2239}#)) - (#{vars\ 2254}# (cdr #{vars\ 2240}#)) - (#{ids\ 2255}# (cdr #{ids\ 2239}#))) - (let ((#{atom-key\ 2258}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2258}# (quote (c))) - (let ((#{proc\ 2261}# - (#{build-simple-lambda\ 164}# - #{src\ 2238}# - #{ids\ 2255}# + (map list #{vars\ 7018}# #{val-exps\ 7019}#) + #{body-exp\ 7020}#) + #{src\ 7016}#)))))) + (#{build-named-let\ 4960}# + (lambda (#{src\ 7032}# + #{ids\ 7033}# + #{vars\ 7034}# + #{val-exps\ 7035}# + #{body-exp\ 7036}#) + (let ((#{f\ 7046}# (car #{vars\ 7034}#)) + (#{f-name\ 7047}# (car #{ids\ 7033}#)) + (#{vars\ 7048}# (cdr #{vars\ 7034}#)) + (#{ids\ 7049}# (cdr #{ids\ 7033}#))) + (let ((#{atom-key\ 7052}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7052}# (quote (c))) + (let ((#{proc\ 7055}# + (#{build-simple-lambda\ 4946}# + #{src\ 7032}# + #{ids\ 7049}# #f - #{vars\ 2254}# + #{vars\ 7048}# '() - #{body-exp\ 2242}#))) + #{body-exp\ 7036}#))) (begin - (#{maybe-name-value!\ 160}# - #{f-name\ 2253}# - #{proc\ 2261}#) + (#{maybe-name-value!\ 4942}# + #{f-name\ 7047}# + #{proc\ 7055}#) (for-each - #{maybe-name-value!\ 160}# - #{ids\ 2255}# - #{val-exps\ 2241}#) + #{maybe-name-value!\ 4942}# + #{ids\ 7049}# + #{val-exps\ 7035}#) ((@ (language tree-il) make-letrec) - #{src\ 2238}# - (list #{f-name\ 2253}#) - (list #{f\ 2252}#) - (list #{proc\ 2261}#) - (#{build-application\ 144}# - #{src\ 2238}# - (#{build-lexical-reference\ 150}# + #{src\ 7032}# + (list #{f-name\ 7047}#) + (list #{f\ 7046}#) + (list #{proc\ 7055}#) + (#{build-application\ 4926}# + #{src\ 7032}# + (#{build-lexical-reference\ 4932}# 'fun - #{src\ 2238}# - #{f-name\ 2253}# - #{f\ 2252}#) - #{val-exps\ 2241}#)))) - (#{decorate-source\ 140}# + #{src\ 7032}# + #{f-name\ 7047}# + #{f\ 7046}#) + #{val-exps\ 7035}#)))) + (#{decorate-source\ 4922}# (list 'letrec - (list (list #{f\ 2252}# + (list (list #{f\ 7046}# (list 'lambda - #{vars\ 2254}# - #{body-exp\ 2242}#))) - (cons #{f\ 2252}# #{val-exps\ 2241}#)) - #{src\ 2238}#)))))) - (#{build-let\ 176}# - (lambda (#{src\ 2264}# - #{ids\ 2265}# - #{vars\ 2266}# - #{val-exps\ 2267}# - #{body-exp\ 2268}#) - (if (null? #{vars\ 2266}#) - #{body-exp\ 2268}# - (let ((#{atom-key\ 2276}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2276}# (quote (c))) + #{vars\ 7048}# + #{body-exp\ 7036}#))) + (cons #{f\ 7046}# #{val-exps\ 7035}#)) + #{src\ 7032}#)))))) + (#{build-let\ 4958}# + (lambda (#{src\ 7058}# + #{ids\ 7059}# + #{vars\ 7060}# + #{val-exps\ 7061}# + #{body-exp\ 7062}#) + (if (null? #{vars\ 7060}#) + #{body-exp\ 7062}# + (let ((#{atom-key\ 7070}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7070}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 160}# - #{ids\ 2265}# - #{val-exps\ 2267}#) + #{maybe-name-value!\ 4942}# + #{ids\ 7059}# + #{val-exps\ 7061}#) ((@ (language tree-il) make-let) - #{src\ 2264}# - #{ids\ 2265}# - #{vars\ 2266}# - #{val-exps\ 2267}# - #{body-exp\ 2268}#)) - (#{decorate-source\ 140}# + #{src\ 7058}# + #{ids\ 7059}# + #{vars\ 7060}# + #{val-exps\ 7061}# + #{body-exp\ 7062}#)) + (#{decorate-source\ 4922}# (list 'let - (map list #{vars\ 2266}# #{val-exps\ 2267}#) - #{body-exp\ 2268}#) - #{src\ 2264}#)))))) - (#{build-sequence\ 174}# - (lambda (#{src\ 2280}# #{exps\ 2281}#) - (if (null? (cdr #{exps\ 2281}#)) - (car #{exps\ 2281}#) - (let ((#{atom-key\ 2286}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2286}# (quote (c))) + (map list #{vars\ 7060}# #{val-exps\ 7061}#) + #{body-exp\ 7062}#) + #{src\ 7058}#)))))) + (#{build-sequence\ 4956}# + (lambda (#{src\ 7074}# #{exps\ 7075}#) + (if (null? (cdr #{exps\ 7075}#)) + (car #{exps\ 7075}#) + (let ((#{atom-key\ 7080}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7080}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 2280}# - #{exps\ 2281}#) - (#{decorate-source\ 140}# - (cons (quote begin) #{exps\ 2281}#) - #{src\ 2280}#)))))) - (#{build-data\ 172}# - (lambda (#{src\ 2290}# #{exp\ 2291}#) - (let ((#{atom-key\ 2296}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2296}# (quote (c))) + #{src\ 7074}# + #{exps\ 7075}#) + (#{decorate-source\ 4922}# + (cons (quote begin) #{exps\ 7075}#) + #{src\ 7074}#)))))) + (#{build-data\ 4954}# + (lambda (#{src\ 7084}# #{exp\ 7085}#) + (let ((#{atom-key\ 7090}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7090}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 2290}# - #{exp\ 2291}#) - (#{decorate-source\ 140}# - (if (if (self-evaluating? #{exp\ 2291}#) - (not (vector? #{exp\ 2291}#)) + #{src\ 7084}# + #{exp\ 7085}#) + (#{decorate-source\ 4922}# + (if (if (self-evaluating? #{exp\ 7085}#) + (not (vector? #{exp\ 7085}#)) #f) - #{exp\ 2291}# - (list (quote quote) #{exp\ 2291}#)) - #{src\ 2290}#))))) - (#{build-primref\ 170}# - (lambda (#{src\ 2301}# #{name\ 2302}#) + #{exp\ 7085}# + (list (quote quote) #{exp\ 7085}#)) + #{src\ 7084}#))))) + (#{build-primref\ 4952}# + (lambda (#{src\ 7095}# #{name\ 7096}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 2307}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2307}# (quote (c))) + (let ((#{atom-key\ 7101}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7101}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 2301}# - #{name\ 2302}#) - (#{decorate-source\ 140}# - #{name\ 2302}# - #{src\ 2301}#))) - (let ((#{atom-key\ 2312}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2312}# (quote (c))) + #{src\ 7095}# + #{name\ 7096}#) + (#{decorate-source\ 4922}# + #{name\ 7096}# + #{src\ 7095}#))) + (let ((#{atom-key\ 7106}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7106}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 2301}# + #{src\ 7095}# '(guile) - #{name\ 2302}# + #{name\ 7096}# #f) - (#{decorate-source\ 140}# - (list (quote @@) (quote (guile)) #{name\ 2302}#) - #{src\ 2301}#)))))) - (#{build-lambda-case\ 168}# - (lambda (#{src\ 2316}# - #{req\ 2317}# - #{opt\ 2318}# - #{rest\ 2319}# - #{kw\ 2320}# - #{inits\ 2321}# - #{vars\ 2322}# - #{body\ 2323}# - #{else-case\ 2324}#) - (let ((#{atom-key\ 2336}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2336}# (quote (c))) + (#{decorate-source\ 4922}# + (list (quote @@) (quote (guile)) #{name\ 7096}#) + #{src\ 7095}#)))))) + (#{build-lambda-case\ 4950}# + (lambda (#{src\ 7110}# + #{req\ 7111}# + #{opt\ 7112}# + #{rest\ 7113}# + #{kw\ 7114}# + #{inits\ 7115}# + #{vars\ 7116}# + #{body\ 7117}# + #{else-case\ 7118}#) + (let ((#{atom-key\ 7130}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7130}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 2316}# - #{req\ 2317}# - #{opt\ 2318}# - #{rest\ 2319}# - #{kw\ 2320}# - #{inits\ 2321}# - #{vars\ 2322}# - #{body\ 2323}# - #{else-case\ 2324}#) - (let ((#{nreq\ 2341}# (length #{req\ 2317}#))) - (let ((#{nopt\ 2343}# - (if #{opt\ 2318}# (length #{opt\ 2318}#) 0))) - (let ((#{rest-idx\ 2345}# - (if #{rest\ 2319}# - (+ #{nreq\ 2341}# #{nopt\ 2343}#) + #{src\ 7110}# + #{req\ 7111}# + #{opt\ 7112}# + #{rest\ 7113}# + #{kw\ 7114}# + #{inits\ 7115}# + #{vars\ 7116}# + #{body\ 7117}# + #{else-case\ 7118}#) + (let ((#{nreq\ 7135}# (length #{req\ 7111}#))) + (let ((#{nopt\ 7137}# + (if #{opt\ 7112}# (length #{opt\ 7112}#) 0))) + (let ((#{rest-idx\ 7139}# + (if #{rest\ 7113}# + (+ #{nreq\ 7135}# #{nopt\ 7137}#) #f))) - (let ((#{allow-other-keys?\ 2349}# - (if #{kw\ 2320}# (car #{kw\ 2320}#) #f))) - (let ((#{kw-indices\ 2351}# - (map (lambda (#{x\ 2352}#) - (cons (car #{x\ 2352}#) + (let ((#{allow-other-keys?\ 7143}# + (if #{kw\ 7114}# (car #{kw\ 7114}#) #f))) + (let ((#{kw-indices\ 7145}# + (map (lambda (#{x\ 7146}#) + (cons (car #{x\ 7146}#) (list-index - #{vars\ 2322}# - (caddr #{x\ 2352}#)))) - (if #{kw\ 2320}# - (cdr #{kw\ 2320}#) + #{vars\ 7116}# + (caddr #{x\ 7146}#)))) + (if #{kw\ 7114}# + (cdr #{kw\ 7114}#) '())))) - (let ((#{nargs\ 2355}# + (let ((#{nargs\ 7149}# (apply max - (+ #{nreq\ 2341}# - #{nopt\ 2343}# - (if #{rest\ 2319}# 1 0)) + (+ #{nreq\ 7135}# + #{nopt\ 7137}# + (if #{rest\ 7113}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 2351}#))))) + #{kw-indices\ 7145}#))))) (begin - (let ((#{t\ 2358}# - (= #{nargs\ 2355}# - (length #{vars\ 2322}#) - (+ #{nreq\ 2341}# - (length #{inits\ 2321}#) - (if #{rest\ 2319}# 1 0))))) - (if #{t\ 2358}# - #{t\ 2358}# + (let ((#{t\ 7152}# + (= #{nargs\ 7149}# + (length #{vars\ 7116}#) + (+ #{nreq\ 7135}# + (length #{inits\ 7115}#) + (if #{rest\ 7113}# 1 0))))) + (if #{t\ 7152}# + #{t\ 7152}# (error "something went wrong" - #{req\ 2317}# - #{opt\ 2318}# - #{rest\ 2319}# - #{kw\ 2320}# - #{inits\ 2321}# - #{vars\ 2322}# - #{nreq\ 2341}# - #{nopt\ 2343}# - #{kw-indices\ 2351}# - #{nargs\ 2355}#))) - (#{decorate-source\ 140}# + #{req\ 7111}# + #{opt\ 7112}# + #{rest\ 7113}# + #{kw\ 7114}# + #{inits\ 7115}# + #{vars\ 7116}# + #{nreq\ 7135}# + #{nopt\ 7137}# + #{kw-indices\ 7145}# + #{nargs\ 7149}#))) + (#{decorate-source\ 4922}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 2341}# - #{nopt\ 2343}# - #{rest-idx\ 2345}# - #{nargs\ 2355}# - #{allow-other-keys?\ 2349}# - #{kw-indices\ 2351}#)) + (list #{nreq\ 7135}# + #{nopt\ 7137}# + #{rest-idx\ 7139}# + #{nargs\ 7149}# + #{allow-other-keys?\ 7143}# + #{kw-indices\ 7145}#)) (cons (cons 'list - (map (lambda (#{i\ 2361}#) + (map (lambda (#{i\ 7155}#) (list 'lambda - #{vars\ 2322}# - #{i\ 2361}#)) - #{inits\ 2321}#)) + #{vars\ 7116}# + #{i\ 7155}#)) + #{inits\ 7115}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 2322}# - #{body\ 2323}#) + #{vars\ 7116}# + #{body\ 7117}#) '(%%args))))) - (let ((#{t\ 2366}# - #{else-case\ 2324}#)) - (if #{t\ 2366}# - #{t\ 2366}# + (let ((#{t\ 7160}# + #{else-case\ 7118}#)) + (if #{t\ 7160}# + #{t\ 7160}# '((%%args (scm-error 'wrong-number-of-args @@ -7960,1431 +7987,1455 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 2316}#)))))))))))) - (#{build-case-lambda\ 166}# - (lambda (#{src\ 2369}# #{meta\ 2370}# #{body\ 2371}#) - (let ((#{atom-key\ 2377}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2377}# (quote (c))) + #{src\ 7110}#)))))))))))) + (#{build-case-lambda\ 4948}# + (lambda (#{src\ 7163}# #{meta\ 7164}# #{body\ 7165}#) + (let ((#{atom-key\ 7171}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7171}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 2369}# - #{meta\ 2370}# - #{body\ 2371}#) - (#{decorate-source\ 140}# + #{src\ 7163}# + #{meta\ 7164}# + #{body\ 7165}#) + (#{decorate-source\ 4922}# (list 'lambda '%%args - (cons (quote cond) #{body\ 2371}#)) - #{src\ 2369}#))))) - (#{build-simple-lambda\ 164}# - (lambda (#{src\ 2381}# - #{req\ 2382}# - #{rest\ 2383}# - #{vars\ 2384}# - #{meta\ 2385}# - #{exp\ 2386}#) - (let ((#{atom-key\ 2395}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2395}# (quote (c))) + (cons (quote cond) #{body\ 7165}#)) + #{src\ 7163}#))))) + (#{build-simple-lambda\ 4946}# + (lambda (#{src\ 7175}# + #{req\ 7176}# + #{rest\ 7177}# + #{vars\ 7178}# + #{meta\ 7179}# + #{exp\ 7180}#) + (let ((#{atom-key\ 7189}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7189}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 2381}# - #{meta\ 2385}# + #{src\ 7175}# + #{meta\ 7179}# ((@ (language tree-il) make-lambda-case) - #{src\ 2381}# - #{req\ 2382}# + #{src\ 7175}# + #{req\ 7176}# #f - #{rest\ 2383}# + #{rest\ 7177}# #f '() - #{vars\ 2384}# - #{exp\ 2386}# + #{vars\ 7178}# + #{exp\ 7180}# #f)) - (#{decorate-source\ 140}# + (#{decorate-source\ 4922}# (list 'lambda - (if #{rest\ 2383}# - (apply cons* #{vars\ 2384}#) - #{vars\ 2384}#) - #{exp\ 2386}#) - #{src\ 2381}#))))) - (#{build-global-definition\ 162}# - (lambda (#{source\ 2399}# #{var\ 2400}# #{exp\ 2401}#) - (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2407}# (quote (c))) + (if #{rest\ 7177}# + (apply cons* #{vars\ 7178}#) + #{vars\ 7178}#) + #{exp\ 7180}#) + #{src\ 7175}#))))) + (#{build-global-definition\ 4944}# + (lambda (#{source\ 7193}# #{var\ 7194}# #{exp\ 7195}#) + (let ((#{atom-key\ 7201}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7201}# (quote (c))) (begin - (#{maybe-name-value!\ 160}# - #{var\ 2400}# - #{exp\ 2401}#) + (#{maybe-name-value!\ 4942}# + #{var\ 7194}# + #{exp\ 7195}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 2399}# - #{var\ 2400}# - #{exp\ 2401}#)) - (#{decorate-source\ 140}# - (list (quote define) #{var\ 2400}# #{exp\ 2401}#) - #{source\ 2399}#))))) - (#{maybe-name-value!\ 160}# - (lambda (#{name\ 2411}# #{val\ 2412}#) - (if ((@ (language tree-il) lambda?) #{val\ 2412}#) - (let ((#{meta\ 2418}# + #{source\ 7193}# + #{var\ 7194}# + #{exp\ 7195}#)) + (#{decorate-source\ 4922}# + (list (quote define) #{var\ 7194}# #{exp\ 7195}#) + #{source\ 7193}#))))) + (#{maybe-name-value!\ 4942}# + (lambda (#{name\ 7205}# #{val\ 7206}#) + (if ((@ (language tree-il) lambda?) #{val\ 7206}#) + (let ((#{meta\ 7212}# ((@ (language tree-il) lambda-meta) - #{val\ 2412}#))) - (if (not (assq (quote name) #{meta\ 2418}#)) + #{val\ 7206}#))) + (if (not (assq (quote name) #{meta\ 7212}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2412}# + #{val\ 7206}# (acons 'name - #{name\ 2411}# - #{meta\ 2418}#))))))) - (#{build-global-assignment\ 158}# - (lambda (#{source\ 2419}# - #{var\ 2420}# - #{exp\ 2421}# - #{mod\ 2422}#) - (#{analyze-variable\ 154}# - #{mod\ 2422}# - #{var\ 2420}# - (lambda (#{mod\ 2427}# #{var\ 2428}# #{public?\ 2429}#) - (let ((#{atom-key\ 2435}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2435}# (quote (c))) + #{name\ 7205}# + #{meta\ 7212}#))))))) + (#{build-global-assignment\ 4940}# + (lambda (#{source\ 7213}# + #{var\ 7214}# + #{exp\ 7215}# + #{mod\ 7216}#) + (#{analyze-variable\ 4936}# + #{mod\ 7216}# + #{var\ 7214}# + (lambda (#{mod\ 7221}# #{var\ 7222}# #{public?\ 7223}#) + (let ((#{atom-key\ 7229}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7229}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 2419}# - #{mod\ 2427}# - #{var\ 2428}# - #{public?\ 2429}# - #{exp\ 2421}#) - (#{decorate-source\ 140}# + #{source\ 7213}# + #{mod\ 7221}# + #{var\ 7222}# + #{public?\ 7223}# + #{exp\ 7215}#) + (#{decorate-source\ 4922}# (list 'set! - (list (if #{public?\ 2429}# + (list (if #{public?\ 7223}# '@ '@@) - #{mod\ 2427}# - #{var\ 2428}#) - #{exp\ 2421}#) - #{source\ 2419}#)))) - (lambda (#{var\ 2439}#) - (let ((#{atom-key\ 2443}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2443}# (quote (c))) + #{mod\ 7221}# + #{var\ 7222}#) + #{exp\ 7215}#) + #{source\ 7213}#)))) + (lambda (#{var\ 7233}#) + (let ((#{atom-key\ 7237}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7237}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 2419}# - #{var\ 2439}# - #{exp\ 2421}#) - (#{decorate-source\ 140}# - (list (quote set!) #{var\ 2439}# #{exp\ 2421}#) - #{source\ 2419}#))))))) - (#{build-global-reference\ 156}# - (lambda (#{source\ 2447}# #{var\ 2448}# #{mod\ 2449}#) - (#{analyze-variable\ 154}# - #{mod\ 2449}# - #{var\ 2448}# - (lambda (#{mod\ 2453}# #{var\ 2454}# #{public?\ 2455}#) - (let ((#{atom-key\ 2461}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2461}# (quote (c))) + #{source\ 7213}# + #{var\ 7233}# + #{exp\ 7215}#) + (#{decorate-source\ 4922}# + (list (quote set!) #{var\ 7233}# #{exp\ 7215}#) + #{source\ 7213}#))))))) + (#{build-global-reference\ 4938}# + (lambda (#{source\ 7241}# #{var\ 7242}# #{mod\ 7243}#) + (#{analyze-variable\ 4936}# + #{mod\ 7243}# + #{var\ 7242}# + (lambda (#{mod\ 7247}# #{var\ 7248}# #{public?\ 7249}#) + (let ((#{atom-key\ 7255}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7255}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 2447}# - #{mod\ 2453}# - #{var\ 2454}# - #{public?\ 2455}#) - (#{decorate-source\ 140}# - (list (if #{public?\ 2455}# (quote @) (quote @@)) - #{mod\ 2453}# - #{var\ 2454}#) - #{source\ 2447}#)))) - (lambda (#{var\ 2464}#) - (let ((#{atom-key\ 2468}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2468}# (quote (c))) + #{source\ 7241}# + #{mod\ 7247}# + #{var\ 7248}# + #{public?\ 7249}#) + (#{decorate-source\ 4922}# + (list (if #{public?\ 7249}# (quote @) (quote @@)) + #{mod\ 7247}# + #{var\ 7248}#) + #{source\ 7241}#)))) + (lambda (#{var\ 7258}#) + (let ((#{atom-key\ 7262}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7262}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 2447}# - #{var\ 2464}#) - (#{decorate-source\ 140}# - #{var\ 2464}# - #{source\ 2447}#))))))) - (#{analyze-variable\ 154}# - (lambda (#{mod\ 2471}# - #{var\ 2472}# - #{modref-cont\ 2473}# - #{bare-cont\ 2474}#) - (if (not #{mod\ 2471}#) - (#{bare-cont\ 2474}# #{var\ 2472}#) - (let ((#{kind\ 2481}# (car #{mod\ 2471}#)) - (#{mod\ 2482}# (cdr #{mod\ 2471}#))) - (if (memv #{kind\ 2481}# (quote (public))) - (#{modref-cont\ 2473}# - #{mod\ 2482}# - #{var\ 2472}# + #{source\ 7241}# + #{var\ 7258}#) + (#{decorate-source\ 4922}# + #{var\ 7258}# + #{source\ 7241}#))))))) + (#{analyze-variable\ 4936}# + (lambda (#{mod\ 7265}# + #{var\ 7266}# + #{modref-cont\ 7267}# + #{bare-cont\ 7268}#) + (if (not #{mod\ 7265}#) + (#{bare-cont\ 7268}# #{var\ 7266}#) + (let ((#{kind\ 7275}# (car #{mod\ 7265}#)) + (#{mod\ 7276}# (cdr #{mod\ 7265}#))) + (if (memv #{kind\ 7275}# (quote (public))) + (#{modref-cont\ 7267}# + #{mod\ 7276}# + #{var\ 7266}# #t) - (if (memv #{kind\ 2481}# (quote (private))) + (if (memv #{kind\ 7275}# (quote (private))) (if (not (equal? - #{mod\ 2482}# + #{mod\ 7276}# (module-name (current-module)))) - (#{modref-cont\ 2473}# - #{mod\ 2482}# - #{var\ 2472}# + (#{modref-cont\ 7267}# + #{mod\ 7276}# + #{var\ 7266}# #f) - (#{bare-cont\ 2474}# #{var\ 2472}#)) - (if (memv #{kind\ 2481}# (quote (bare))) - (#{bare-cont\ 2474}# #{var\ 2472}#) - (if (memv #{kind\ 2481}# (quote (hygiene))) + (#{bare-cont\ 7268}# #{var\ 7266}#)) + (if (memv #{kind\ 7275}# (quote (bare))) + (#{bare-cont\ 7268}# #{var\ 7266}#) + (if (memv #{kind\ 7275}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2482}# + #{mod\ 7276}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2482}#) - #{var\ 2472}#) + (resolve-module #{mod\ 7276}#) + #{var\ 7266}#) #f) - (#{modref-cont\ 2473}# - #{mod\ 2482}# - #{var\ 2472}# + (#{modref-cont\ 7267}# + #{mod\ 7276}# + #{var\ 7266}# #f) - (#{bare-cont\ 2474}# #{var\ 2472}#)) + (#{bare-cont\ 7268}# #{var\ 7266}#)) (syntax-violation #f "bad module kind" - #{var\ 2472}# - #{mod\ 2482}#))))))))) - (#{build-lexical-assignment\ 152}# - (lambda (#{source\ 2490}# - #{name\ 2491}# - #{var\ 2492}# - #{exp\ 2493}#) - (let ((#{atom-key\ 2500}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2500}# (quote (c))) + #{var\ 7266}# + #{mod\ 7276}#))))))))) + (#{build-lexical-assignment\ 4934}# + (lambda (#{source\ 7284}# + #{name\ 7285}# + #{var\ 7286}# + #{exp\ 7287}#) + (let ((#{atom-key\ 7294}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7294}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 2490}# - #{name\ 2491}# - #{var\ 2492}# - #{exp\ 2493}#) - (#{decorate-source\ 140}# - (list (quote set!) #{var\ 2492}# #{exp\ 2493}#) - #{source\ 2490}#))))) - (#{build-lexical-reference\ 150}# - (lambda (#{type\ 2504}# - #{source\ 2505}# - #{name\ 2506}# - #{var\ 2507}#) - (let ((#{atom-key\ 2514}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2514}# (quote (c))) + #{source\ 7284}# + #{name\ 7285}# + #{var\ 7286}# + #{exp\ 7287}#) + (#{decorate-source\ 4922}# + (list (quote set!) #{var\ 7286}# #{exp\ 7287}#) + #{source\ 7284}#))))) + (#{build-lexical-reference\ 4932}# + (lambda (#{type\ 7298}# + #{source\ 7299}# + #{name\ 7300}# + #{var\ 7301}#) + (let ((#{atom-key\ 7308}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7308}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 2505}# - #{name\ 2506}# - #{var\ 2507}#) - (#{decorate-source\ 140}# - #{var\ 2507}# - #{source\ 2505}#))))) - (#{build-dynlet\ 148}# - (lambda (#{source\ 2517}# - #{fluids\ 2518}# - #{vals\ 2519}# - #{body\ 2520}#) - (let ((#{atom-key\ 2527}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2527}# (quote (c))) + #{source\ 7299}# + #{name\ 7300}# + #{var\ 7301}#) + (#{decorate-source\ 4922}# + #{var\ 7301}# + #{source\ 7299}#))))) + (#{build-dynlet\ 4930}# + (lambda (#{source\ 7311}# + #{fluids\ 7312}# + #{vals\ 7313}# + #{body\ 7314}#) + (let ((#{atom-key\ 7321}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7321}# (quote (c))) ((@ (language tree-il) make-dynlet) - #{source\ 2517}# - #{fluids\ 2518}# - #{vals\ 2519}# - #{body\ 2520}#) - (#{decorate-source\ 140}# + #{source\ 7311}# + #{fluids\ 7312}# + #{vals\ 7313}# + #{body\ 7314}#) + (#{decorate-source\ 4922}# (list 'with-fluids - (map list #{fluids\ 2518}# #{vals\ 2519}#) - #{body\ 2520}#) - #{source\ 2517}#))))) - (#{build-conditional\ 146}# - (lambda (#{source\ 2531}# - #{test-exp\ 2532}# - #{then-exp\ 2533}# - #{else-exp\ 2534}#) - (let ((#{atom-key\ 2541}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2541}# (quote (c))) + (map list #{fluids\ 7312}# #{vals\ 7313}#) + #{body\ 7314}#) + #{source\ 7311}#))))) + (#{build-conditional\ 4928}# + (lambda (#{source\ 7325}# + #{test-exp\ 7326}# + #{then-exp\ 7327}# + #{else-exp\ 7328}#) + (let ((#{atom-key\ 7335}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7335}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 2531}# - #{test-exp\ 2532}# - #{then-exp\ 2533}# - #{else-exp\ 2534}#) - (#{decorate-source\ 140}# - (if (equal? #{else-exp\ 2534}# (quote (if #f #f))) + #{source\ 7325}# + #{test-exp\ 7326}# + #{then-exp\ 7327}# + #{else-exp\ 7328}#) + (#{decorate-source\ 4922}# + (if (equal? #{else-exp\ 7328}# (quote (if #f #f))) (list 'if - #{test-exp\ 2532}# - #{then-exp\ 2533}#) + #{test-exp\ 7326}# + #{then-exp\ 7327}#) (list 'if - #{test-exp\ 2532}# - #{then-exp\ 2533}# - #{else-exp\ 2534}#)) - #{source\ 2531}#))))) - (#{build-application\ 144}# - (lambda (#{source\ 2546}# - #{fun-exp\ 2547}# - #{arg-exps\ 2548}#) - (let ((#{atom-key\ 2554}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2554}# (quote (c))) + #{test-exp\ 7326}# + #{then-exp\ 7327}# + #{else-exp\ 7328}#)) + #{source\ 7325}#))))) + (#{build-application\ 4926}# + (lambda (#{source\ 7340}# + #{fun-exp\ 7341}# + #{arg-exps\ 7342}#) + (let ((#{atom-key\ 7348}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7348}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 2546}# - #{fun-exp\ 2547}# - #{arg-exps\ 2548}#) - (#{decorate-source\ 140}# - (cons #{fun-exp\ 2547}# #{arg-exps\ 2548}#) - #{source\ 2546}#))))) - (#{build-void\ 142}# - (lambda (#{source\ 2558}#) - (let ((#{atom-key\ 2562}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2562}# (quote (c))) + #{source\ 7340}# + #{fun-exp\ 7341}# + #{arg-exps\ 7342}#) + (#{decorate-source\ 4922}# + (cons #{fun-exp\ 7341}# #{arg-exps\ 7342}#) + #{source\ 7340}#))))) + (#{build-void\ 4924}# + (lambda (#{source\ 7352}#) + (let ((#{atom-key\ 7356}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7356}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 2558}#) - (#{decorate-source\ 140}# + #{source\ 7352}#) + (#{decorate-source\ 4922}# '(if #f #f) - #{source\ 2558}#))))) - (#{decorate-source\ 140}# - (lambda (#{e\ 2565}# #{s\ 2566}#) + #{source\ 7352}#))))) + (#{decorate-source\ 4922}# + (lambda (#{e\ 7359}# #{s\ 7360}#) (begin - (if (if (pair? #{e\ 2565}#) #{s\ 2566}# #f) - (set-source-properties! #{e\ 2565}# #{s\ 2566}#)) - #{e\ 2565}#))) - (#{get-global-definition-hook\ 138}# - (lambda (#{symbol\ 2571}# #{module\ 2572}#) + (if (if (pair? #{e\ 7359}#) #{s\ 7360}# #f) + (set-source-properties! #{e\ 7359}# #{s\ 7360}#)) + #{e\ 7359}#))) + (#{get-global-definition-hook\ 4920}# + (lambda (#{symbol\ 7365}# #{module\ 7366}#) (begin - (if (if (not #{module\ 2572}#) (current-module) #f) + (if (if (not #{module\ 7366}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2571}#)) - (let ((#{v\ 2578}# + #{symbol\ 7365}#)) + (let ((#{v\ 7372}# (module-variable - (if #{module\ 2572}# - (resolve-module (cdr #{module\ 2572}#)) + (if #{module\ 7366}# + (resolve-module (cdr #{module\ 7366}#)) (current-module)) - #{symbol\ 2571}#))) - (if #{v\ 2578}# - (if (variable-bound? #{v\ 2578}#) - (let ((#{val\ 2583}# (variable-ref #{v\ 2578}#))) - (if (macro? #{val\ 2583}#) - (if (macro-type #{val\ 2583}#) - (cons (macro-type #{val\ 2583}#) - (macro-binding #{val\ 2583}#)) + #{symbol\ 7365}#))) + (if #{v\ 7372}# + (if (variable-bound? #{v\ 7372}#) + (let ((#{val\ 7377}# (variable-ref #{v\ 7372}#))) + (if (macro? #{val\ 7377}#) + (if (macro-type #{val\ 7377}#) + (cons (macro-type #{val\ 7377}#) + (macro-binding #{val\ 7377}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 136}# - (lambda (#{symbol\ 2587}# #{type\ 2588}# #{val\ 2589}#) + (#{put-global-definition-hook\ 4918}# + (lambda (#{symbol\ 7381}# #{type\ 7382}# #{val\ 7383}#) (module-define! (current-module) - #{symbol\ 2587}# + #{symbol\ 7381}# (make-syntax-transformer - #{symbol\ 2587}# - #{type\ 2588}# - #{val\ 2589}#)))) - (#{local-eval-hook\ 133}# - (lambda (#{x\ 2593}# #{mod\ 2594}#) + #{symbol\ 7381}# + #{type\ 7382}# + #{val\ 7383}#)))) + (#{local-eval-hook\ 4915}# + (lambda (#{x\ 7387}# #{mod\ 7388}#) (primitive-eval - (list #{noexpand\ 119}# - (let ((#{atom-key\ 2600}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2600}# (quote (c))) + (list #{noexpand\ 4901}# + (let ((#{atom-key\ 7394}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7394}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2593}#) - #{x\ 2593}#)))))) - (#{top-level-eval-hook\ 131}# - (lambda (#{x\ 2603}# #{mod\ 2604}#) + #{x\ 7387}#) + #{x\ 7387}#)))))) + (#{top-level-eval-hook\ 4913}# + (lambda (#{x\ 7397}# #{mod\ 7398}#) (primitive-eval - (list #{noexpand\ 119}# - (let ((#{atom-key\ 2610}# (fluid-ref #{*mode*\ 121}#))) - (if (memv #{atom-key\ 2610}# (quote (c))) + (list #{noexpand\ 4901}# + (let ((#{atom-key\ 7404}# (fluid-ref #{*mode*\ 4903}#))) + (if (memv #{atom-key\ 7404}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2603}#) - #{x\ 2603}#)))))) - (#{fx<\ 129}# <) - (#{fx=\ 127}# =) - (#{fx-\ 125}# -) - (#{fx+\ 123}# +) - (#{*mode*\ 121}# (make-fluid)) - (#{noexpand\ 119}# "noexpand")) + #{x\ 7397}#) + #{x\ 7397}#)))))) + (#{fx<\ 4911}# <) + (#{fx=\ 4909}# =) + (#{fx-\ 4907}# -) + (#{fx+\ 4905}# +) + (#{*mode*\ 4903}# (make-fluid)) + (#{noexpand\ 4901}# "noexpand")) (begin - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'core 'fluid-let-syntax - (lambda (#{e\ 2613}# - #{r\ 2614}# - #{w\ 2615}# - #{s\ 2616}# - #{mod\ 2617}#) - ((lambda (#{tmp\ 2623}#) - ((lambda (#{tmp\ 2624}#) - (if (if #{tmp\ 2624}# - (apply (lambda (#{_\ 2630}# - #{var\ 2631}# - #{val\ 2632}# - #{e1\ 2633}# - #{e2\ 2634}#) - (#{valid-bound-ids?\ 285}# #{var\ 2631}#)) - #{tmp\ 2624}#) + (lambda (#{e\ 7407}# + #{r\ 7408}# + #{w\ 7409}# + #{s\ 7410}# + #{mod\ 7411}#) + ((lambda (#{tmp\ 7417}#) + ((lambda (#{tmp\ 7418}#) + (if (if #{tmp\ 7418}# + (apply (lambda (#{_\ 7424}# + #{var\ 7425}# + #{val\ 7426}# + #{e1\ 7427}# + #{e2\ 7428}#) + (#{valid-bound-ids?\ 5067}# #{var\ 7425}#)) + #{tmp\ 7418}#) #f) - (apply (lambda (#{_\ 2641}# - #{var\ 2642}# - #{val\ 2643}# - #{e1\ 2644}# - #{e2\ 2645}#) - (let ((#{names\ 2647}# - (map (lambda (#{x\ 2648}#) - (#{id-var-name\ 279}# - #{x\ 2648}# - #{w\ 2615}#)) - #{var\ 2642}#))) + (apply (lambda (#{_\ 7435}# + #{var\ 7436}# + #{val\ 7437}# + #{e1\ 7438}# + #{e2\ 7439}#) + (let ((#{names\ 7441}# + (map (lambda (#{x\ 7442}#) + (#{id-var-name\ 5061}# + #{x\ 7442}# + #{w\ 7409}#)) + #{var\ 7436}#))) (begin (for-each - (lambda (#{id\ 2651}# #{n\ 2652}#) - (let ((#{atom-key\ 2657}# - (#{binding-type\ 205}# - (#{lookup\ 216}# - #{n\ 2652}# - #{r\ 2614}# - #{mod\ 2617}#)))) - (if (memv #{atom-key\ 2657}# + (lambda (#{id\ 7445}# #{n\ 7446}#) + (let ((#{atom-key\ 7451}# + (#{binding-type\ 4987}# + (#{lookup\ 4998}# + #{n\ 7446}# + #{r\ 7408}# + #{mod\ 7411}#)))) + (if (memv #{atom-key\ 7451}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2613}# - (#{source-wrap\ 293}# - #{id\ 2651}# - #{w\ 2615}# - #{s\ 2616}# - #{mod\ 2617}#))))) - #{var\ 2642}# - #{names\ 2647}#) - (#{chi-body\ 315}# - (cons #{e1\ 2644}# #{e2\ 2645}#) - (#{source-wrap\ 293}# - #{e\ 2613}# - #{w\ 2615}# - #{s\ 2616}# - #{mod\ 2617}#) - (#{extend-env\ 210}# - #{names\ 2647}# - (let ((#{trans-r\ 2662}# - (#{macros-only-env\ 214}# - #{r\ 2614}#))) - (map (lambda (#{x\ 2663}#) + #{e\ 7407}# + (#{source-wrap\ 5075}# + #{id\ 7445}# + #{w\ 7409}# + #{s\ 7410}# + #{mod\ 7411}#))))) + #{var\ 7436}# + #{names\ 7441}#) + (#{chi-body\ 5097}# + (cons #{e1\ 7438}# #{e2\ 7439}#) + (#{source-wrap\ 5075}# + #{e\ 7407}# + #{w\ 7409}# + #{s\ 7410}# + #{mod\ 7411}#) + (#{extend-env\ 4992}# + #{names\ 7441}# + (let ((#{trans-r\ 7456}# + (#{macros-only-env\ 4996}# + #{r\ 7408}#))) + (map (lambda (#{x\ 7457}#) (cons 'macro - (#{eval-local-transformer\ 319}# - (#{chi\ 307}# - #{x\ 2663}# - #{trans-r\ 2662}# - #{w\ 2615}# - #{mod\ 2617}#) - #{mod\ 2617}#))) - #{val\ 2643}#)) - #{r\ 2614}#) - #{w\ 2615}# - #{mod\ 2617}#)))) - #{tmp\ 2624}#) - ((lambda (#{_\ 2668}#) + (#{eval-local-transformer\ 5101}# + (#{chi\ 5089}# + #{x\ 7457}# + #{trans-r\ 7456}# + #{w\ 7409}# + #{mod\ 7411}#) + #{mod\ 7411}#))) + #{val\ 7437}#)) + #{r\ 7408}#) + #{w\ 7409}# + #{mod\ 7411}#)))) + #{tmp\ 7418}#) + ((lambda (#{_\ 7462}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 293}# - #{e\ 2613}# - #{w\ 2615}# - #{s\ 2616}# - #{mod\ 2617}#))) - #{tmp\ 2623}#))) + (#{source-wrap\ 5075}# + #{e\ 7407}# + #{w\ 7409}# + #{s\ 7410}# + #{mod\ 7411}#))) + #{tmp\ 7417}#))) ($sc-dispatch - #{tmp\ 2623}# + #{tmp\ 7417}# '(any #(each (any any)) any . each-any)))) - #{e\ 2613}#))) - (#{global-extend\ 218}# + #{e\ 7407}#))) + (#{global-extend\ 5000}# 'core 'quote - (lambda (#{e\ 2669}# - #{r\ 2670}# - #{w\ 2671}# - #{s\ 2672}# - #{mod\ 2673}#) - ((lambda (#{tmp\ 2679}#) - ((lambda (#{tmp\ 2680}#) - (if #{tmp\ 2680}# - (apply (lambda (#{_\ 2683}# #{e\ 2684}#) - (#{build-data\ 172}# - #{s\ 2672}# - (#{strip\ 333}# #{e\ 2684}# #{w\ 2671}#))) - #{tmp\ 2680}#) - ((lambda (#{_\ 2686}#) + (lambda (#{e\ 7463}# + #{r\ 7464}# + #{w\ 7465}# + #{s\ 7466}# + #{mod\ 7467}#) + ((lambda (#{tmp\ 7473}#) + ((lambda (#{tmp\ 7474}#) + (if #{tmp\ 7474}# + (apply (lambda (#{_\ 7477}# #{e\ 7478}#) + (#{build-data\ 4954}# + #{s\ 7466}# + (#{strip\ 5115}# #{e\ 7478}# #{w\ 7465}#))) + #{tmp\ 7474}#) + ((lambda (#{_\ 7480}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 293}# - #{e\ 2669}# - #{w\ 2671}# - #{s\ 2672}# - #{mod\ 2673}#))) - #{tmp\ 2679}#))) - ($sc-dispatch #{tmp\ 2679}# (quote (any any))))) - #{e\ 2669}#))) - (#{global-extend\ 218}# + (#{source-wrap\ 5075}# + #{e\ 7463}# + #{w\ 7465}# + #{s\ 7466}# + #{mod\ 7467}#))) + #{tmp\ 7473}#))) + ($sc-dispatch #{tmp\ 7473}# (quote (any any))))) + #{e\ 7463}#))) + (#{global-extend\ 5000}# 'core 'syntax - (letrec ((#{regen\ 2702}# - (lambda (#{x\ 2703}#) - (let ((#{atom-key\ 2707}# (car #{x\ 2703}#))) - (if (memv #{atom-key\ 2707}# (quote (ref))) - (#{build-lexical-reference\ 150}# + (letrec ((#{regen\ 7496}# + (lambda (#{x\ 7497}#) + (let ((#{atom-key\ 7501}# (car #{x\ 7497}#))) + (if (memv #{atom-key\ 7501}# (quote (ref))) + (#{build-lexical-reference\ 4932}# 'value #f - (cadr #{x\ 2703}#) - (cadr #{x\ 2703}#)) - (if (memv #{atom-key\ 2707}# (quote (primitive))) - (#{build-primref\ 170}# #f (cadr #{x\ 2703}#)) - (if (memv #{atom-key\ 2707}# (quote (quote))) - (#{build-data\ 172}# #f (cadr #{x\ 2703}#)) - (if (memv #{atom-key\ 2707}# (quote (lambda))) - (if (list? (cadr #{x\ 2703}#)) - (#{build-simple-lambda\ 164}# + (cadr #{x\ 7497}#) + (cadr #{x\ 7497}#)) + (if (memv #{atom-key\ 7501}# (quote (primitive))) + (#{build-primref\ 4952}# #f (cadr #{x\ 7497}#)) + (if (memv #{atom-key\ 7501}# (quote (quote))) + (#{build-data\ 4954}# #f (cadr #{x\ 7497}#)) + (if (memv #{atom-key\ 7501}# (quote (lambda))) + (if (list? (cadr #{x\ 7497}#)) + (#{build-simple-lambda\ 4946}# #f - (cadr #{x\ 2703}#) + (cadr #{x\ 7497}#) #f - (cadr #{x\ 2703}#) + (cadr #{x\ 7497}#) '() - (#{regen\ 2702}# (caddr #{x\ 2703}#))) - (error "how did we get here" #{x\ 2703}#)) - (#{build-application\ 144}# + (#{regen\ 7496}# (caddr #{x\ 7497}#))) + (error "how did we get here" #{x\ 7497}#)) + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# #f (car #{x\ 2703}#)) - (map #{regen\ 2702}# - (cdr #{x\ 2703}#)))))))))) - (#{gen-vector\ 2700}# - (lambda (#{x\ 2719}#) - (if (eq? (car #{x\ 2719}#) (quote list)) - (cons (quote vector) (cdr #{x\ 2719}#)) - (if (eq? (car #{x\ 2719}#) (quote quote)) + (#{build-primref\ 4952}# #f (car #{x\ 7497}#)) + (map #{regen\ 7496}# + (cdr #{x\ 7497}#)))))))))) + (#{gen-vector\ 7494}# + (lambda (#{x\ 7513}#) + (if (eq? (car #{x\ 7513}#) (quote list)) + (cons (quote vector) (cdr #{x\ 7513}#)) + (if (eq? (car #{x\ 7513}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 2719}#))) - (list (quote list->vector) #{x\ 2719}#))))) - (#{gen-append\ 2698}# - (lambda (#{x\ 2729}# #{y\ 2730}#) - (if (equal? #{y\ 2730}# (quote (quote ()))) - #{x\ 2729}# - (list (quote append) #{x\ 2729}# #{y\ 2730}#)))) - (#{gen-cons\ 2696}# - (lambda (#{x\ 2734}# #{y\ 2735}#) - (let ((#{atom-key\ 2740}# (car #{y\ 2735}#))) - (if (memv #{atom-key\ 2740}# (quote (quote))) - (if (eq? (car #{x\ 2734}#) (quote quote)) + (list->vector (cadr #{x\ 7513}#))) + (list (quote list->vector) #{x\ 7513}#))))) + (#{gen-append\ 7492}# + (lambda (#{x\ 7523}# #{y\ 7524}#) + (if (equal? #{y\ 7524}# (quote (quote ()))) + #{x\ 7523}# + (list (quote append) #{x\ 7523}# #{y\ 7524}#)))) + (#{gen-cons\ 7490}# + (lambda (#{x\ 7528}# #{y\ 7529}#) + (let ((#{atom-key\ 7534}# (car #{y\ 7529}#))) + (if (memv #{atom-key\ 7534}# (quote (quote))) + (if (eq? (car #{x\ 7528}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 2734}#) (cadr #{y\ 2735}#))) - (if (eq? (cadr #{y\ 2735}#) (quote ())) - (list (quote list) #{x\ 2734}#) - (list (quote cons) #{x\ 2734}# #{y\ 2735}#))) - (if (memv #{atom-key\ 2740}# (quote (list))) + (cons (cadr #{x\ 7528}#) (cadr #{y\ 7529}#))) + (if (eq? (cadr #{y\ 7529}#) (quote ())) + (list (quote list) #{x\ 7528}#) + (list (quote cons) #{x\ 7528}# #{y\ 7529}#))) + (if (memv #{atom-key\ 7534}# (quote (list))) (cons 'list - (cons #{x\ 2734}# (cdr #{y\ 2735}#))) - (list (quote cons) #{x\ 2734}# #{y\ 2735}#)))))) - (#{gen-map\ 2694}# - (lambda (#{e\ 2749}# #{map-env\ 2750}#) - (let ((#{formals\ 2755}# (map cdr #{map-env\ 2750}#)) - (#{actuals\ 2756}# - (map (lambda (#{x\ 2757}#) - (list (quote ref) (car #{x\ 2757}#))) - #{map-env\ 2750}#))) - (if (eq? (car #{e\ 2749}#) (quote ref)) - (car #{actuals\ 2756}#) + (cons #{x\ 7528}# (cdr #{y\ 7529}#))) + (list (quote cons) #{x\ 7528}# #{y\ 7529}#)))))) + (#{gen-map\ 7488}# + (lambda (#{e\ 7543}# #{map-env\ 7544}#) + (let ((#{formals\ 7549}# (map cdr #{map-env\ 7544}#)) + (#{actuals\ 7550}# + (map (lambda (#{x\ 7551}#) + (list (quote ref) (car #{x\ 7551}#))) + #{map-env\ 7544}#))) + (if (eq? (car #{e\ 7543}#) (quote ref)) + (car #{actuals\ 7550}#) (if (and-map - (lambda (#{x\ 2764}#) - (if (eq? (car #{x\ 2764}#) (quote ref)) - (memq (cadr #{x\ 2764}#) #{formals\ 2755}#) + (lambda (#{x\ 7558}#) + (if (eq? (car #{x\ 7558}#) (quote ref)) + (memq (cadr #{x\ 7558}#) #{formals\ 7549}#) #f)) - (cdr #{e\ 2749}#)) + (cdr #{e\ 7543}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2749}#)) - (map (let ((#{r\ 2770}# + (car #{e\ 7543}#)) + (map (let ((#{r\ 7564}# (map cons - #{formals\ 2755}# - #{actuals\ 2756}#))) - (lambda (#{x\ 2771}#) - (cdr (assq (cadr #{x\ 2771}#) - #{r\ 2770}#)))) - (cdr #{e\ 2749}#)))) + #{formals\ 7549}# + #{actuals\ 7550}#))) + (lambda (#{x\ 7565}#) + (cdr (assq (cadr #{x\ 7565}#) + #{r\ 7564}#)))) + (cdr #{e\ 7543}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2755}# - #{e\ 2749}#) - #{actuals\ 2756}#))))))) - (#{gen-mappend\ 2692}# - (lambda (#{e\ 2775}# #{map-env\ 2776}#) + #{formals\ 7549}# + #{e\ 7543}#) + #{actuals\ 7550}#))))))) + (#{gen-mappend\ 7486}# + (lambda (#{e\ 7569}# #{map-env\ 7570}#) (list 'apply '(primitive append) - (#{gen-map\ 2694}# #{e\ 2775}# #{map-env\ 2776}#)))) - (#{gen-ref\ 2690}# - (lambda (#{src\ 2780}# - #{var\ 2781}# - #{level\ 2782}# - #{maps\ 2783}#) - (if (#{fx=\ 127}# #{level\ 2782}# 0) - (values #{var\ 2781}# #{maps\ 2783}#) - (if (null? #{maps\ 2783}#) + (#{gen-map\ 7488}# #{e\ 7569}# #{map-env\ 7570}#)))) + (#{gen-ref\ 7484}# + (lambda (#{src\ 7574}# + #{var\ 7575}# + #{level\ 7576}# + #{maps\ 7577}#) + (if (#{fx=\ 4909}# #{level\ 7576}# 0) + (values #{var\ 7575}# #{maps\ 7577}#) + (if (null? #{maps\ 7577}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2780}#) + #{src\ 7574}#) (call-with-values (lambda () - (#{gen-ref\ 2690}# - #{src\ 2780}# - #{var\ 2781}# - (#{fx-\ 125}# #{level\ 2782}# 1) - (cdr #{maps\ 2783}#))) - (lambda (#{outer-var\ 2788}# #{outer-maps\ 2789}#) - (let ((#{b\ 2793}# - (assq #{outer-var\ 2788}# - (car #{maps\ 2783}#)))) - (if #{b\ 2793}# - (values (cdr #{b\ 2793}#) #{maps\ 2783}#) - (let ((#{inner-var\ 2795}# - (#{gen-var\ 335}# (quote tmp)))) + (#{gen-ref\ 7484}# + #{src\ 7574}# + #{var\ 7575}# + (#{fx-\ 4907}# #{level\ 7576}# 1) + (cdr #{maps\ 7577}#))) + (lambda (#{outer-var\ 7582}# #{outer-maps\ 7583}#) + (let ((#{b\ 7587}# + (assq #{outer-var\ 7582}# + (car #{maps\ 7577}#)))) + (if #{b\ 7587}# + (values (cdr #{b\ 7587}#) #{maps\ 7577}#) + (let ((#{inner-var\ 7589}# + (#{gen-var\ 5117}# (quote tmp)))) (values - #{inner-var\ 2795}# - (cons (cons (cons #{outer-var\ 2788}# - #{inner-var\ 2795}#) - (car #{maps\ 2783}#)) - #{outer-maps\ 2789}#))))))))))) - (#{gen-syntax\ 2688}# - (lambda (#{src\ 2796}# - #{e\ 2797}# - #{r\ 2798}# - #{maps\ 2799}# - #{ellipsis?\ 2800}# - #{mod\ 2801}#) - (if (#{id?\ 222}# #{e\ 2797}#) - (let ((#{label\ 2809}# - (#{id-var-name\ 279}# - #{e\ 2797}# + #{inner-var\ 7589}# + (cons (cons (cons #{outer-var\ 7582}# + #{inner-var\ 7589}#) + (car #{maps\ 7577}#)) + #{outer-maps\ 7583}#))))))))))) + (#{gen-syntax\ 7482}# + (lambda (#{src\ 7590}# + #{e\ 7591}# + #{r\ 7592}# + #{maps\ 7593}# + #{ellipsis?\ 7594}# + #{mod\ 7595}#) + (if (#{id?\ 5004}# #{e\ 7591}#) + (let ((#{label\ 7603}# + (#{id-var-name\ 5061}# + #{e\ 7591}# '(())))) - (let ((#{b\ 2812}# - (#{lookup\ 216}# - #{label\ 2809}# - #{r\ 2798}# - #{mod\ 2801}#))) - (if (eq? (#{binding-type\ 205}# #{b\ 2812}#) + (let ((#{b\ 7606}# + (#{lookup\ 4998}# + #{label\ 7603}# + #{r\ 7592}# + #{mod\ 7595}#))) + (if (eq? (#{binding-type\ 4987}# #{b\ 7606}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 2814}# - (#{binding-value\ 207}# #{b\ 2812}#))) - (#{gen-ref\ 2690}# - #{src\ 2796}# - (car #{var.lev\ 2814}#) - (cdr #{var.lev\ 2814}#) - #{maps\ 2799}#))) - (lambda (#{var\ 2815}# #{maps\ 2816}#) + (let ((#{var.lev\ 7608}# + (#{binding-value\ 4989}# + #{b\ 7606}#))) + (#{gen-ref\ 7484}# + #{src\ 7590}# + (car #{var.lev\ 7608}#) + (cdr #{var.lev\ 7608}#) + #{maps\ 7593}#))) + (lambda (#{var\ 7609}# #{maps\ 7610}#) (values - (list (quote ref) #{var\ 2815}#) - #{maps\ 2816}#))) - (if (#{ellipsis?\ 2800}# #{e\ 2797}#) + (list (quote ref) #{var\ 7609}#) + #{maps\ 7610}#))) + (if (#{ellipsis?\ 7594}# #{e\ 7591}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2796}#) + #{src\ 7590}#) (values - (list (quote quote) #{e\ 2797}#) - #{maps\ 2799}#))))) - ((lambda (#{tmp\ 2821}#) - ((lambda (#{tmp\ 2822}#) - (if (if #{tmp\ 2822}# - (apply (lambda (#{dots\ 2825}# #{e\ 2826}#) - (#{ellipsis?\ 2800}# - #{dots\ 2825}#)) - #{tmp\ 2822}#) + (list (quote quote) #{e\ 7591}#) + #{maps\ 7593}#))))) + ((lambda (#{tmp\ 7615}#) + ((lambda (#{tmp\ 7616}#) + (if (if #{tmp\ 7616}# + (apply (lambda (#{dots\ 7619}# #{e\ 7620}#) + (#{ellipsis?\ 7594}# + #{dots\ 7619}#)) + #{tmp\ 7616}#) #f) - (apply (lambda (#{dots\ 2829}# #{e\ 2830}#) - (#{gen-syntax\ 2688}# - #{src\ 2796}# - #{e\ 2830}# - #{r\ 2798}# - #{maps\ 2799}# - (lambda (#{x\ 2831}#) #f) - #{mod\ 2801}#)) - #{tmp\ 2822}#) - ((lambda (#{tmp\ 2833}#) - (if (if #{tmp\ 2833}# - (apply (lambda (#{x\ 2837}# - #{dots\ 2838}# - #{y\ 2839}#) - (#{ellipsis?\ 2800}# - #{dots\ 2838}#)) - #{tmp\ 2833}#) + (apply (lambda (#{dots\ 7623}# #{e\ 7624}#) + (#{gen-syntax\ 7482}# + #{src\ 7590}# + #{e\ 7624}# + #{r\ 7592}# + #{maps\ 7593}# + (lambda (#{x\ 7625}#) #f) + #{mod\ 7595}#)) + #{tmp\ 7616}#) + ((lambda (#{tmp\ 7627}#) + (if (if #{tmp\ 7627}# + (apply (lambda (#{x\ 7631}# + #{dots\ 7632}# + #{y\ 7633}#) + (#{ellipsis?\ 7594}# + #{dots\ 7632}#)) + #{tmp\ 7627}#) #f) - (apply (lambda (#{x\ 2843}# - #{dots\ 2844}# - #{y\ 2845}#) - (letrec ((#{f\ 2849}# - (lambda (#{y\ 2850}# - #{k\ 2851}#) - ((lambda (#{tmp\ 2858}#) - ((lambda (#{tmp\ 2859}#) - (if (if #{tmp\ 2859}# - (apply (lambda (#{dots\ 2862}# - #{y\ 2863}#) - (#{ellipsis?\ 2800}# - #{dots\ 2862}#)) - #{tmp\ 2859}#) + (apply (lambda (#{x\ 7637}# + #{dots\ 7638}# + #{y\ 7639}#) + (letrec ((#{f\ 7643}# + (lambda (#{y\ 7644}# + #{k\ 7645}#) + ((lambda (#{tmp\ 7652}#) + ((lambda (#{tmp\ 7653}#) + (if (if #{tmp\ 7653}# + (apply (lambda (#{dots\ 7656}# + #{y\ 7657}#) + (#{ellipsis?\ 7594}# + #{dots\ 7656}#)) + #{tmp\ 7653}#) #f) - (apply (lambda (#{dots\ 2866}# - #{y\ 2867}#) - (#{f\ 2849}# - #{y\ 2867}# - (lambda (#{maps\ 2868}#) + (apply (lambda (#{dots\ 7660}# + #{y\ 7661}#) + (#{f\ 7643}# + #{y\ 7661}# + (lambda (#{maps\ 7662}#) (call-with-values (lambda () - (#{k\ 2851}# + (#{k\ 7645}# (cons '() - #{maps\ 2868}#))) - (lambda (#{x\ 2870}# - #{maps\ 2871}#) - (if (null? (car #{maps\ 2871}#)) + #{maps\ 7662}#))) + (lambda (#{x\ 7664}# + #{maps\ 7665}#) + (if (null? (car #{maps\ 7665}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2796}#) + #{src\ 7590}#) (values - (#{gen-mappend\ 2692}# - #{x\ 2870}# - (car #{maps\ 2871}#)) - (cdr #{maps\ 2871}#)))))))) - #{tmp\ 2859}#) - ((lambda (#{_\ 2875}#) + (#{gen-mappend\ 7486}# + #{x\ 7664}# + (car #{maps\ 7665}#)) + (cdr #{maps\ 7665}#)))))))) + #{tmp\ 7653}#) + ((lambda (#{_\ 7669}#) (call-with-values (lambda () - (#{gen-syntax\ 2688}# - #{src\ 2796}# - #{y\ 2850}# - #{r\ 2798}# - #{maps\ 2799}# - #{ellipsis?\ 2800}# - #{mod\ 2801}#)) - (lambda (#{y\ 2876}# - #{maps\ 2877}#) + (#{gen-syntax\ 7482}# + #{src\ 7590}# + #{y\ 7644}# + #{r\ 7592}# + #{maps\ 7593}# + #{ellipsis?\ 7594}# + #{mod\ 7595}#)) + (lambda (#{y\ 7670}# + #{maps\ 7671}#) (call-with-values (lambda () - (#{k\ 2851}# - #{maps\ 2877}#)) - (lambda (#{x\ 2880}# - #{maps\ 2881}#) + (#{k\ 7645}# + #{maps\ 7671}#)) + (lambda (#{x\ 7674}# + #{maps\ 7675}#) (values - (#{gen-append\ 2698}# - #{x\ 2880}# - #{y\ 2876}#) - #{maps\ 2881}#)))))) - #{tmp\ 2858}#))) + (#{gen-append\ 7492}# + #{x\ 7674}# + #{y\ 7670}#) + #{maps\ 7675}#)))))) + #{tmp\ 7652}#))) ($sc-dispatch - #{tmp\ 2858}# + #{tmp\ 7652}# '(any . any)))) - #{y\ 2850}#)))) - (#{f\ 2849}# - #{y\ 2845}# - (lambda (#{maps\ 2852}#) + #{y\ 7644}#)))) + (#{f\ 7643}# + #{y\ 7639}# + (lambda (#{maps\ 7646}#) (call-with-values (lambda () - (#{gen-syntax\ 2688}# - #{src\ 2796}# - #{x\ 2843}# - #{r\ 2798}# + (#{gen-syntax\ 7482}# + #{src\ 7590}# + #{x\ 7637}# + #{r\ 7592}# (cons '() - #{maps\ 2852}#) - #{ellipsis?\ 2800}# - #{mod\ 2801}#)) - (lambda (#{x\ 2854}# - #{maps\ 2855}#) - (if (null? (car #{maps\ 2855}#)) + #{maps\ 7646}#) + #{ellipsis?\ 7594}# + #{mod\ 7595}#)) + (lambda (#{x\ 7648}# + #{maps\ 7649}#) + (if (null? (car #{maps\ 7649}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2796}#) + #{src\ 7590}#) (values - (#{gen-map\ 2694}# - #{x\ 2854}# - (car #{maps\ 2855}#)) - (cdr #{maps\ 2855}#))))))))) - #{tmp\ 2833}#) - ((lambda (#{tmp\ 2884}#) - (if #{tmp\ 2884}# - (apply (lambda (#{x\ 2887}# - #{y\ 2888}#) + (#{gen-map\ 7488}# + #{x\ 7648}# + (car #{maps\ 7649}#)) + (cdr #{maps\ 7649}#))))))))) + #{tmp\ 7627}#) + ((lambda (#{tmp\ 7678}#) + (if #{tmp\ 7678}# + (apply (lambda (#{x\ 7681}# + #{y\ 7682}#) (call-with-values (lambda () - (#{gen-syntax\ 2688}# - #{src\ 2796}# - #{x\ 2887}# - #{r\ 2798}# - #{maps\ 2799}# - #{ellipsis?\ 2800}# - #{mod\ 2801}#)) - (lambda (#{x\ 2889}# - #{maps\ 2890}#) + (#{gen-syntax\ 7482}# + #{src\ 7590}# + #{x\ 7681}# + #{r\ 7592}# + #{maps\ 7593}# + #{ellipsis?\ 7594}# + #{mod\ 7595}#)) + (lambda (#{x\ 7683}# + #{maps\ 7684}#) (call-with-values (lambda () - (#{gen-syntax\ 2688}# - #{src\ 2796}# - #{y\ 2888}# - #{r\ 2798}# - #{maps\ 2890}# - #{ellipsis?\ 2800}# - #{mod\ 2801}#)) - (lambda (#{y\ 2893}# - #{maps\ 2894}#) + (#{gen-syntax\ 7482}# + #{src\ 7590}# + #{y\ 7682}# + #{r\ 7592}# + #{maps\ 7684}# + #{ellipsis?\ 7594}# + #{mod\ 7595}#)) + (lambda (#{y\ 7687}# + #{maps\ 7688}#) (values - (#{gen-cons\ 2696}# - #{x\ 2889}# - #{y\ 2893}#) - #{maps\ 2894}#)))))) - #{tmp\ 2884}#) - ((lambda (#{tmp\ 2897}#) - (if #{tmp\ 2897}# - (apply (lambda (#{e1\ 2900}# - #{e2\ 2901}#) + (#{gen-cons\ 7490}# + #{x\ 7683}# + #{y\ 7687}#) + #{maps\ 7688}#)))))) + #{tmp\ 7678}#) + ((lambda (#{tmp\ 7691}#) + (if #{tmp\ 7691}# + (apply (lambda (#{e1\ 7694}# + #{e2\ 7695}#) (call-with-values (lambda () - (#{gen-syntax\ 2688}# - #{src\ 2796}# - (cons #{e1\ 2900}# - #{e2\ 2901}#) - #{r\ 2798}# - #{maps\ 2799}# - #{ellipsis?\ 2800}# - #{mod\ 2801}#)) - (lambda (#{e\ 2903}# - #{maps\ 2904}#) + (#{gen-syntax\ 7482}# + #{src\ 7590}# + (cons #{e1\ 7694}# + #{e2\ 7695}#) + #{r\ 7592}# + #{maps\ 7593}# + #{ellipsis?\ 7594}# + #{mod\ 7595}#)) + (lambda (#{e\ 7697}# + #{maps\ 7698}#) (values - (#{gen-vector\ 2700}# - #{e\ 2903}#) - #{maps\ 2904}#)))) - #{tmp\ 2897}#) - ((lambda (#{_\ 2908}#) + (#{gen-vector\ 7494}# + #{e\ 7697}#) + #{maps\ 7698}#)))) + #{tmp\ 7691}#) + ((lambda (#{_\ 7702}#) (values (list 'quote - #{e\ 2797}#) - #{maps\ 2799}#)) - #{tmp\ 2821}#))) + #{e\ 7591}#) + #{maps\ 7593}#)) + #{tmp\ 7615}#))) ($sc-dispatch - #{tmp\ 2821}# + #{tmp\ 7615}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2821}# + #{tmp\ 7615}# '(any . any))))) ($sc-dispatch - #{tmp\ 2821}# + #{tmp\ 7615}# '(any any . any))))) - ($sc-dispatch #{tmp\ 2821}# (quote (any any))))) - #{e\ 2797}#))))) - (lambda (#{e\ 2910}# - #{r\ 2911}# - #{w\ 2912}# - #{s\ 2913}# - #{mod\ 2914}#) - (let ((#{e\ 2921}# - (#{source-wrap\ 293}# - #{e\ 2910}# - #{w\ 2912}# - #{s\ 2913}# - #{mod\ 2914}#))) - ((lambda (#{tmp\ 2922}#) - ((lambda (#{tmp\ 2923}#) - (if #{tmp\ 2923}# - (apply (lambda (#{_\ 2926}# #{x\ 2927}#) + ($sc-dispatch #{tmp\ 7615}# (quote (any any))))) + #{e\ 7591}#))))) + (lambda (#{e\ 7704}# + #{r\ 7705}# + #{w\ 7706}# + #{s\ 7707}# + #{mod\ 7708}#) + (let ((#{e\ 7715}# + (#{source-wrap\ 5075}# + #{e\ 7704}# + #{w\ 7706}# + #{s\ 7707}# + #{mod\ 7708}#))) + ((lambda (#{tmp\ 7716}#) + ((lambda (#{tmp\ 7717}#) + (if #{tmp\ 7717}# + (apply (lambda (#{_\ 7720}# #{x\ 7721}#) (call-with-values (lambda () - (#{gen-syntax\ 2688}# - #{e\ 2921}# - #{x\ 2927}# - #{r\ 2911}# + (#{gen-syntax\ 7482}# + #{e\ 7715}# + #{x\ 7721}# + #{r\ 7705}# '() - #{ellipsis?\ 323}# - #{mod\ 2914}#)) - (lambda (#{e\ 2928}# #{maps\ 2929}#) - (#{regen\ 2702}# #{e\ 2928}#)))) - #{tmp\ 2923}#) - ((lambda (#{_\ 2933}#) + #{ellipsis?\ 5105}# + #{mod\ 7708}#)) + (lambda (#{e\ 7722}# #{maps\ 7723}#) + (#{regen\ 7496}# #{e\ 7722}#)))) + #{tmp\ 7717}#) + ((lambda (#{_\ 7727}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2921}#)) - #{tmp\ 2922}#))) - ($sc-dispatch #{tmp\ 2922}# (quote (any any))))) - #{e\ 2921}#))))) - (#{global-extend\ 218}# + #{e\ 7715}#)) + #{tmp\ 7716}#))) + ($sc-dispatch #{tmp\ 7716}# (quote (any any))))) + #{e\ 7715}#))))) + (#{global-extend\ 5000}# 'core 'lambda - (lambda (#{e\ 2934}# - #{r\ 2935}# - #{w\ 2936}# - #{s\ 2937}# - #{mod\ 2938}#) - ((lambda (#{tmp\ 2944}#) - ((lambda (#{tmp\ 2945}#) - (if #{tmp\ 2945}# - (apply (lambda (#{_\ 2950}# - #{args\ 2951}# - #{e1\ 2952}# - #{e2\ 2953}#) + (lambda (#{e\ 7728}# + #{r\ 7729}# + #{w\ 7730}# + #{s\ 7731}# + #{mod\ 7732}#) + ((lambda (#{tmp\ 7738}#) + ((lambda (#{tmp\ 7739}#) + (if #{tmp\ 7739}# + (apply (lambda (#{_\ 7744}# + #{args\ 7745}# + #{e1\ 7746}# + #{e2\ 7747}#) (call-with-values (lambda () - (#{lambda-formals\ 325}# #{args\ 2951}#)) - (lambda (#{req\ 2954}# - #{opt\ 2955}# - #{rest\ 2956}# - #{kw\ 2957}#) - (letrec ((#{lp\ 2965}# - (lambda (#{body\ 2966}# - #{meta\ 2967}#) - ((lambda (#{tmp\ 2969}#) - ((lambda (#{tmp\ 2970}#) - (if (if #{tmp\ 2970}# - (apply (lambda (#{docstring\ 2974}# - #{e1\ 2975}# - #{e2\ 2976}#) + (#{lambda-formals\ 5107}# #{args\ 7745}#)) + (lambda (#{req\ 7748}# + #{opt\ 7749}# + #{rest\ 7750}# + #{kw\ 7751}#) + (letrec ((#{lp\ 7759}# + (lambda (#{body\ 7760}# + #{meta\ 7761}#) + ((lambda (#{tmp\ 7763}#) + ((lambda (#{tmp\ 7764}#) + (if (if #{tmp\ 7764}# + (apply (lambda (#{docstring\ 7768}# + #{e1\ 7769}# + #{e2\ 7770}#) (string? (syntax->datum - #{docstring\ 2974}#))) - #{tmp\ 2970}#) + #{docstring\ 7768}#))) + #{tmp\ 7764}#) #f) - (apply (lambda (#{docstring\ 2980}# - #{e1\ 2981}# - #{e2\ 2982}#) - (#{lp\ 2965}# - (cons #{e1\ 2981}# - #{e2\ 2982}#) + (apply (lambda (#{docstring\ 7774}# + #{e1\ 7775}# + #{e2\ 7776}#) + (#{lp\ 7759}# + (cons #{e1\ 7775}# + #{e2\ 7776}#) (append - #{meta\ 2967}# + #{meta\ 7761}# (list (cons 'documentation (syntax->datum - #{docstring\ 2980}#)))))) - #{tmp\ 2970}#) - ((lambda (#{tmp\ 2985}#) - (if #{tmp\ 2985}# - (apply (lambda (#{k\ 2990}# - #{v\ 2991}# - #{e1\ 2992}# - #{e2\ 2993}#) - (#{lp\ 2965}# - (cons #{e1\ 2992}# - #{e2\ 2993}#) + #{docstring\ 7774}#)))))) + #{tmp\ 7764}#) + ((lambda (#{tmp\ 7779}#) + (if #{tmp\ 7779}# + (apply (lambda (#{k\ 7784}# + #{v\ 7785}# + #{e1\ 7786}# + #{e2\ 7787}#) + (#{lp\ 7759}# + (cons #{e1\ 7786}# + #{e2\ 7787}#) (append - #{meta\ 2967}# + #{meta\ 7761}# (syntax->datum (map cons - #{k\ 2990}# - #{v\ 2991}#))))) - #{tmp\ 2985}#) - ((lambda (#{_\ 2998}#) - (#{chi-simple-lambda\ 327}# - #{e\ 2934}# - #{r\ 2935}# - #{w\ 2936}# - #{s\ 2937}# - #{mod\ 2938}# - #{req\ 2954}# - #{rest\ 2956}# - #{meta\ 2967}# - #{body\ 2966}#)) - #{tmp\ 2969}#))) + #{k\ 7784}# + #{v\ 7785}#))))) + #{tmp\ 7779}#) + ((lambda (#{_\ 7792}#) + (#{chi-simple-lambda\ 5109}# + #{e\ 7728}# + #{r\ 7729}# + #{w\ 7730}# + #{s\ 7731}# + #{mod\ 7732}# + #{req\ 7748}# + #{rest\ 7750}# + #{meta\ 7761}# + #{body\ 7760}#)) + #{tmp\ 7763}#))) ($sc-dispatch - #{tmp\ 2969}# + #{tmp\ 7763}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 2969}# + #{tmp\ 7763}# '(any any . each-any)))) - #{body\ 2966}#)))) - (#{lp\ 2965}# - (cons #{e1\ 2952}# #{e2\ 2953}#) + #{body\ 7760}#)))) + (#{lp\ 7759}# + (cons #{e1\ 7746}# #{e2\ 7747}#) '()))))) - #{tmp\ 2945}#) - ((lambda (#{_\ 3000}#) + #{tmp\ 7739}#) + ((lambda (#{_\ 7794}#) (syntax-violation 'lambda "bad lambda" - #{e\ 2934}#)) - #{tmp\ 2944}#))) + #{e\ 7728}#)) + #{tmp\ 7738}#))) ($sc-dispatch - #{tmp\ 2944}# + #{tmp\ 7738}# '(any any any . each-any)))) - #{e\ 2934}#))) - (#{global-extend\ 218}# + #{e\ 7728}#))) + (#{global-extend\ 5000}# 'core 'lambda* - (lambda (#{e\ 3001}# - #{r\ 3002}# - #{w\ 3003}# - #{s\ 3004}# - #{mod\ 3005}#) - ((lambda (#{tmp\ 3011}#) - ((lambda (#{tmp\ 3012}#) - (if #{tmp\ 3012}# - (apply (lambda (#{_\ 3017}# - #{args\ 3018}# - #{e1\ 3019}# - #{e2\ 3020}#) + (lambda (#{e\ 7795}# + #{r\ 7796}# + #{w\ 7797}# + #{s\ 7798}# + #{mod\ 7799}#) + ((lambda (#{tmp\ 7805}#) + ((lambda (#{tmp\ 7806}#) + (if #{tmp\ 7806}# + (apply (lambda (#{_\ 7811}# + #{args\ 7812}# + #{e1\ 7813}# + #{e2\ 7814}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 3001}# - #{r\ 3002}# - #{w\ 3003}# - #{s\ 3004}# - #{mod\ 3005}# - #{lambda*-formals\ 329}# - (list (cons #{args\ 3018}# - (cons #{e1\ 3019}# - #{e2\ 3020}#))))) - (lambda (#{meta\ 3022}# #{lcase\ 3023}#) - (#{build-case-lambda\ 166}# - #{s\ 3004}# - #{meta\ 3022}# - #{lcase\ 3023}#)))) - #{tmp\ 3012}#) - ((lambda (#{_\ 3027}#) + (#{chi-lambda-case\ 5113}# + #{e\ 7795}# + #{r\ 7796}# + #{w\ 7797}# + #{s\ 7798}# + #{mod\ 7799}# + #{lambda*-formals\ 5111}# + (list (cons #{args\ 7812}# + (cons #{e1\ 7813}# + #{e2\ 7814}#))))) + (lambda (#{meta\ 7816}# #{lcase\ 7817}#) + (#{build-case-lambda\ 4948}# + #{s\ 7798}# + #{meta\ 7816}# + #{lcase\ 7817}#)))) + #{tmp\ 7806}#) + ((lambda (#{_\ 7821}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 3001}#)) - #{tmp\ 3011}#))) + #{e\ 7795}#)) + #{tmp\ 7805}#))) ($sc-dispatch - #{tmp\ 3011}# + #{tmp\ 7805}# '(any any any . each-any)))) - #{e\ 3001}#))) - (#{global-extend\ 218}# + #{e\ 7795}#))) + (#{global-extend\ 5000}# 'core 'case-lambda - (lambda (#{e\ 3028}# - #{r\ 3029}# - #{w\ 3030}# - #{s\ 3031}# - #{mod\ 3032}#) - ((lambda (#{tmp\ 3038}#) - ((lambda (#{tmp\ 3039}#) - (if #{tmp\ 3039}# - (apply (lambda (#{_\ 3047}# - #{args\ 3048}# - #{e1\ 3049}# - #{e2\ 3050}# - #{args*\ 3051}# - #{e1*\ 3052}# - #{e2*\ 3053}#) + (lambda (#{e\ 7822}# + #{r\ 7823}# + #{w\ 7824}# + #{s\ 7825}# + #{mod\ 7826}#) + ((lambda (#{tmp\ 7832}#) + ((lambda (#{tmp\ 7833}#) + (if #{tmp\ 7833}# + (apply (lambda (#{_\ 7841}# + #{args\ 7842}# + #{e1\ 7843}# + #{e2\ 7844}# + #{args*\ 7845}# + #{e1*\ 7846}# + #{e2*\ 7847}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 3028}# - #{r\ 3029}# - #{w\ 3030}# - #{s\ 3031}# - #{mod\ 3032}# - #{lambda-formals\ 325}# - (cons (cons #{args\ 3048}# - (cons #{e1\ 3049}# #{e2\ 3050}#)) - (map (lambda (#{tmp\ 3057}# - #{tmp\ 3056}# - #{tmp\ 3055}#) - (cons #{tmp\ 3055}# - (cons #{tmp\ 3056}# - #{tmp\ 3057}#))) - #{e2*\ 3053}# - #{e1*\ 3052}# - #{args*\ 3051}#)))) - (lambda (#{meta\ 3059}# #{lcase\ 3060}#) - (#{build-case-lambda\ 166}# - #{s\ 3031}# - #{meta\ 3059}# - #{lcase\ 3060}#)))) - #{tmp\ 3039}#) - ((lambda (#{_\ 3064}#) + (#{chi-lambda-case\ 5113}# + #{e\ 7822}# + #{r\ 7823}# + #{w\ 7824}# + #{s\ 7825}# + #{mod\ 7826}# + #{lambda-formals\ 5107}# + (cons (cons #{args\ 7842}# + (cons #{e1\ 7843}# #{e2\ 7844}#)) + (map (lambda (#{tmp\ 7851}# + #{tmp\ 7850}# + #{tmp\ 7849}#) + (cons #{tmp\ 7849}# + (cons #{tmp\ 7850}# + #{tmp\ 7851}#))) + #{e2*\ 7847}# + #{e1*\ 7846}# + #{args*\ 7845}#)))) + (lambda (#{meta\ 7853}# #{lcase\ 7854}#) + (#{build-case-lambda\ 4948}# + #{s\ 7825}# + #{meta\ 7853}# + #{lcase\ 7854}#)))) + #{tmp\ 7833}#) + ((lambda (#{_\ 7858}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3028}#)) - #{tmp\ 3038}#))) + #{e\ 7822}#)) + #{tmp\ 7832}#))) ($sc-dispatch - #{tmp\ 3038}# + #{tmp\ 7832}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3028}#))) - (#{global-extend\ 218}# + #{e\ 7822}#))) + (#{global-extend\ 5000}# 'core 'case-lambda* - (lambda (#{e\ 3065}# - #{r\ 3066}# - #{w\ 3067}# - #{s\ 3068}# - #{mod\ 3069}#) - ((lambda (#{tmp\ 3075}#) - ((lambda (#{tmp\ 3076}#) - (if #{tmp\ 3076}# - (apply (lambda (#{_\ 3084}# - #{args\ 3085}# - #{e1\ 3086}# - #{e2\ 3087}# - #{args*\ 3088}# - #{e1*\ 3089}# - #{e2*\ 3090}#) + (lambda (#{e\ 7859}# + #{r\ 7860}# + #{w\ 7861}# + #{s\ 7862}# + #{mod\ 7863}#) + ((lambda (#{tmp\ 7869}#) + ((lambda (#{tmp\ 7870}#) + (if #{tmp\ 7870}# + (apply (lambda (#{_\ 7878}# + #{args\ 7879}# + #{e1\ 7880}# + #{e2\ 7881}# + #{args*\ 7882}# + #{e1*\ 7883}# + #{e2*\ 7884}#) (call-with-values (lambda () - (#{chi-lambda-case\ 331}# - #{e\ 3065}# - #{r\ 3066}# - #{w\ 3067}# - #{s\ 3068}# - #{mod\ 3069}# - #{lambda*-formals\ 329}# - (cons (cons #{args\ 3085}# - (cons #{e1\ 3086}# #{e2\ 3087}#)) - (map (lambda (#{tmp\ 3094}# - #{tmp\ 3093}# - #{tmp\ 3092}#) - (cons #{tmp\ 3092}# - (cons #{tmp\ 3093}# - #{tmp\ 3094}#))) - #{e2*\ 3090}# - #{e1*\ 3089}# - #{args*\ 3088}#)))) - (lambda (#{meta\ 3096}# #{lcase\ 3097}#) - (#{build-case-lambda\ 166}# - #{s\ 3068}# - #{meta\ 3096}# - #{lcase\ 3097}#)))) - #{tmp\ 3076}#) - ((lambda (#{_\ 3101}#) + (#{chi-lambda-case\ 5113}# + #{e\ 7859}# + #{r\ 7860}# + #{w\ 7861}# + #{s\ 7862}# + #{mod\ 7863}# + #{lambda*-formals\ 5111}# + (cons (cons #{args\ 7879}# + (cons #{e1\ 7880}# #{e2\ 7881}#)) + (map (lambda (#{tmp\ 7888}# + #{tmp\ 7887}# + #{tmp\ 7886}#) + (cons #{tmp\ 7886}# + (cons #{tmp\ 7887}# + #{tmp\ 7888}#))) + #{e2*\ 7884}# + #{e1*\ 7883}# + #{args*\ 7882}#)))) + (lambda (#{meta\ 7890}# #{lcase\ 7891}#) + (#{build-case-lambda\ 4948}# + #{s\ 7862}# + #{meta\ 7890}# + #{lcase\ 7891}#)))) + #{tmp\ 7870}#) + ((lambda (#{_\ 7895}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3065}#)) - #{tmp\ 3075}#))) + #{e\ 7859}#)) + #{tmp\ 7869}#))) ($sc-dispatch - #{tmp\ 3075}# + #{tmp\ 7869}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3065}#))) - (#{global-extend\ 218}# + #{e\ 7859}#))) + (#{global-extend\ 5000}# 'core 'let - (letrec ((#{chi-let\ 3103}# - (lambda (#{e\ 3104}# - #{r\ 3105}# - #{w\ 3106}# - #{s\ 3107}# - #{mod\ 3108}# - #{constructor\ 3109}# - #{ids\ 3110}# - #{vals\ 3111}# - #{exps\ 3112}#) - (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3110}#)) + (letrec ((#{chi-let\ 7897}# + (lambda (#{e\ 7898}# + #{r\ 7899}# + #{w\ 7900}# + #{s\ 7901}# + #{mod\ 7902}# + #{constructor\ 7903}# + #{ids\ 7904}# + #{vals\ 7905}# + #{exps\ 7906}#) + (if (not (#{valid-bound-ids?\ 5067}# #{ids\ 7904}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3104}#) - (let ((#{labels\ 3124}# - (#{gen-labels\ 240}# #{ids\ 3110}#)) - (#{new-vars\ 3125}# - (map #{gen-var\ 335}# #{ids\ 3110}#))) - (let ((#{nw\ 3128}# - (#{make-binding-wrap\ 269}# - #{ids\ 3110}# - #{labels\ 3124}# - #{w\ 3106}#)) - (#{nr\ 3129}# - (#{extend-var-env\ 212}# - #{labels\ 3124}# - #{new-vars\ 3125}# - #{r\ 3105}#))) - (#{constructor\ 3109}# - #{s\ 3107}# - (map syntax->datum #{ids\ 3110}#) - #{new-vars\ 3125}# - (map (lambda (#{x\ 3130}#) - (#{chi\ 307}# - #{x\ 3130}# - #{r\ 3105}# - #{w\ 3106}# - #{mod\ 3108}#)) - #{vals\ 3111}#) - (#{chi-body\ 315}# - #{exps\ 3112}# - (#{source-wrap\ 293}# - #{e\ 3104}# - #{nw\ 3128}# - #{s\ 3107}# - #{mod\ 3108}#) - #{nr\ 3129}# - #{nw\ 3128}# - #{mod\ 3108}#)))))))) - (lambda (#{e\ 3132}# - #{r\ 3133}# - #{w\ 3134}# - #{s\ 3135}# - #{mod\ 3136}#) - ((lambda (#{tmp\ 3142}#) - ((lambda (#{tmp\ 3143}#) - (if (if #{tmp\ 3143}# - (apply (lambda (#{_\ 3149}# - #{id\ 3150}# - #{val\ 3151}# - #{e1\ 3152}# - #{e2\ 3153}#) - (and-map #{id?\ 222}# #{id\ 3150}#)) - #{tmp\ 3143}#) + #{e\ 7898}#) + (let ((#{labels\ 7918}# + (#{gen-labels\ 5022}# #{ids\ 7904}#)) + (#{new-vars\ 7919}# + (map #{gen-var\ 5117}# #{ids\ 7904}#))) + (let ((#{nw\ 7922}# + (#{make-binding-wrap\ 5051}# + #{ids\ 7904}# + #{labels\ 7918}# + #{w\ 7900}#)) + (#{nr\ 7923}# + (#{extend-var-env\ 4994}# + #{labels\ 7918}# + #{new-vars\ 7919}# + #{r\ 7899}#))) + (#{constructor\ 7903}# + #{s\ 7901}# + (map syntax->datum #{ids\ 7904}#) + #{new-vars\ 7919}# + (map (lambda (#{x\ 7924}#) + (#{chi\ 5089}# + #{x\ 7924}# + #{r\ 7899}# + #{w\ 7900}# + #{mod\ 7902}#)) + #{vals\ 7905}#) + (#{chi-body\ 5097}# + #{exps\ 7906}# + (#{source-wrap\ 5075}# + #{e\ 7898}# + #{nw\ 7922}# + #{s\ 7901}# + #{mod\ 7902}#) + #{nr\ 7923}# + #{nw\ 7922}# + #{mod\ 7902}#)))))))) + (lambda (#{e\ 7926}# + #{r\ 7927}# + #{w\ 7928}# + #{s\ 7929}# + #{mod\ 7930}#) + ((lambda (#{tmp\ 7936}#) + ((lambda (#{tmp\ 7937}#) + (if (if #{tmp\ 7937}# + (apply (lambda (#{_\ 7943}# + #{id\ 7944}# + #{val\ 7945}# + #{e1\ 7946}# + #{e2\ 7947}#) + (and-map #{id?\ 5004}# #{id\ 7944}#)) + #{tmp\ 7937}#) #f) - (apply (lambda (#{_\ 3160}# - #{id\ 3161}# - #{val\ 3162}# - #{e1\ 3163}# - #{e2\ 3164}#) - (#{chi-let\ 3103}# - #{e\ 3132}# - #{r\ 3133}# - #{w\ 3134}# - #{s\ 3135}# - #{mod\ 3136}# - #{build-let\ 176}# - #{id\ 3161}# - #{val\ 3162}# - (cons #{e1\ 3163}# #{e2\ 3164}#))) - #{tmp\ 3143}#) - ((lambda (#{tmp\ 3168}#) - (if (if #{tmp\ 3168}# - (apply (lambda (#{_\ 3175}# - #{f\ 3176}# - #{id\ 3177}# - #{val\ 3178}# - #{e1\ 3179}# - #{e2\ 3180}#) - (if (#{id?\ 222}# #{f\ 3176}#) - (and-map #{id?\ 222}# #{id\ 3177}#) + (apply (lambda (#{_\ 7954}# + #{id\ 7955}# + #{val\ 7956}# + #{e1\ 7957}# + #{e2\ 7958}#) + (#{chi-let\ 7897}# + #{e\ 7926}# + #{r\ 7927}# + #{w\ 7928}# + #{s\ 7929}# + #{mod\ 7930}# + #{build-let\ 4958}# + #{id\ 7955}# + #{val\ 7956}# + (cons #{e1\ 7957}# #{e2\ 7958}#))) + #{tmp\ 7937}#) + ((lambda (#{tmp\ 7962}#) + (if (if #{tmp\ 7962}# + (apply (lambda (#{_\ 7969}# + #{f\ 7970}# + #{id\ 7971}# + #{val\ 7972}# + #{e1\ 7973}# + #{e2\ 7974}#) + (if (#{id?\ 5004}# #{f\ 7970}#) + (and-map #{id?\ 5004}# #{id\ 7971}#) #f)) - #{tmp\ 3168}#) + #{tmp\ 7962}#) #f) - (apply (lambda (#{_\ 3190}# - #{f\ 3191}# - #{id\ 3192}# - #{val\ 3193}# - #{e1\ 3194}# - #{e2\ 3195}#) - (#{chi-let\ 3103}# - #{e\ 3132}# - #{r\ 3133}# - #{w\ 3134}# - #{s\ 3135}# - #{mod\ 3136}# - #{build-named-let\ 178}# - (cons #{f\ 3191}# #{id\ 3192}#) - #{val\ 3193}# - (cons #{e1\ 3194}# #{e2\ 3195}#))) - #{tmp\ 3168}#) - ((lambda (#{_\ 3200}#) + (apply (lambda (#{_\ 7984}# + #{f\ 7985}# + #{id\ 7986}# + #{val\ 7987}# + #{e1\ 7988}# + #{e2\ 7989}#) + (#{chi-let\ 7897}# + #{e\ 7926}# + #{r\ 7927}# + #{w\ 7928}# + #{s\ 7929}# + #{mod\ 7930}# + #{build-named-let\ 4960}# + (cons #{f\ 7985}# #{id\ 7986}#) + #{val\ 7987}# + (cons #{e1\ 7988}# #{e2\ 7989}#))) + #{tmp\ 7962}#) + ((lambda (#{_\ 7994}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 293}# - #{e\ 3132}# - #{w\ 3134}# - #{s\ 3135}# - #{mod\ 3136}#))) - #{tmp\ 3142}#))) + (#{source-wrap\ 5075}# + #{e\ 7926}# + #{w\ 7928}# + #{s\ 7929}# + #{mod\ 7930}#))) + #{tmp\ 7936}#))) ($sc-dispatch - #{tmp\ 3142}# + #{tmp\ 7936}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3142}# + #{tmp\ 7936}# '(any #(each (any any)) any . each-any)))) - #{e\ 3132}#)))) - (#{global-extend\ 218}# + #{e\ 7926}#)))) + (#{global-extend\ 5000}# 'core 'letrec - (lambda (#{e\ 3201}# - #{r\ 3202}# - #{w\ 3203}# - #{s\ 3204}# - #{mod\ 3205}#) - ((lambda (#{tmp\ 3211}#) - ((lambda (#{tmp\ 3212}#) - (if (if #{tmp\ 3212}# - (apply (lambda (#{_\ 3218}# - #{id\ 3219}# - #{val\ 3220}# - #{e1\ 3221}# - #{e2\ 3222}#) - (and-map #{id?\ 222}# #{id\ 3219}#)) - #{tmp\ 3212}#) + (lambda (#{e\ 7995}# + #{r\ 7996}# + #{w\ 7997}# + #{s\ 7998}# + #{mod\ 7999}#) + ((lambda (#{tmp\ 8005}#) + ((lambda (#{tmp\ 8006}#) + (if (if #{tmp\ 8006}# + (apply (lambda (#{_\ 8012}# + #{id\ 8013}# + #{val\ 8014}# + #{e1\ 8015}# + #{e2\ 8016}#) + (and-map #{id?\ 5004}# #{id\ 8013}#)) + #{tmp\ 8006}#) #f) - (apply (lambda (#{_\ 3229}# - #{id\ 3230}# - #{val\ 3231}# - #{e1\ 3232}# - #{e2\ 3233}#) - (let ((#{ids\ 3235}# #{id\ 3230}#)) - (if (not (#{valid-bound-ids?\ 285}# - #{ids\ 3235}#)) + (apply (lambda (#{_\ 8023}# + #{id\ 8024}# + #{val\ 8025}# + #{e1\ 8026}# + #{e2\ 8027}#) + (let ((#{ids\ 8029}# #{id\ 8024}#)) + (if (not (#{valid-bound-ids?\ 5067}# + #{ids\ 8029}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3201}#) - (let ((#{labels\ 3239}# - (#{gen-labels\ 240}# #{ids\ 3235}#)) - (#{new-vars\ 3240}# - (map #{gen-var\ 335}# #{ids\ 3235}#))) - (let ((#{w\ 3243}# - (#{make-binding-wrap\ 269}# - #{ids\ 3235}# - #{labels\ 3239}# - #{w\ 3203}#)) - (#{r\ 3244}# - (#{extend-var-env\ 212}# - #{labels\ 3239}# - #{new-vars\ 3240}# - #{r\ 3202}#))) - (#{build-letrec\ 180}# - #{s\ 3204}# - (map syntax->datum #{ids\ 3235}#) - #{new-vars\ 3240}# - (map (lambda (#{x\ 3245}#) - (#{chi\ 307}# - #{x\ 3245}# - #{r\ 3244}# - #{w\ 3243}# - #{mod\ 3205}#)) - #{val\ 3231}#) - (#{chi-body\ 315}# - (cons #{e1\ 3232}# #{e2\ 3233}#) - (#{source-wrap\ 293}# - #{e\ 3201}# - #{w\ 3243}# - #{s\ 3204}# - #{mod\ 3205}#) - #{r\ 3244}# - #{w\ 3243}# - #{mod\ 3205}#))))))) - #{tmp\ 3212}#) - ((lambda (#{_\ 3250}#) + #{e\ 7995}#) + (let ((#{labels\ 8033}# + (#{gen-labels\ 5022}# #{ids\ 8029}#)) + (#{new-vars\ 8034}# + (map #{gen-var\ 5117}# #{ids\ 8029}#))) + (let ((#{w\ 8037}# + (#{make-binding-wrap\ 5051}# + #{ids\ 8029}# + #{labels\ 8033}# + #{w\ 7997}#)) + (#{r\ 8038}# + (#{extend-var-env\ 4994}# + #{labels\ 8033}# + #{new-vars\ 8034}# + #{r\ 7996}#))) + (#{build-letrec\ 4962}# + #{s\ 7998}# + (map syntax->datum #{ids\ 8029}#) + #{new-vars\ 8034}# + (map (lambda (#{x\ 8039}#) + (#{chi\ 5089}# + #{x\ 8039}# + #{r\ 8038}# + #{w\ 8037}# + #{mod\ 7999}#)) + #{val\ 8025}#) + (#{chi-body\ 5097}# + (cons #{e1\ 8026}# #{e2\ 8027}#) + (#{source-wrap\ 5075}# + #{e\ 7995}# + #{w\ 8037}# + #{s\ 7998}# + #{mod\ 7999}#) + #{r\ 8038}# + #{w\ 8037}# + #{mod\ 7999}#))))))) + #{tmp\ 8006}#) + ((lambda (#{_\ 8044}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 293}# - #{e\ 3201}# - #{w\ 3203}# - #{s\ 3204}# - #{mod\ 3205}#))) - #{tmp\ 3211}#))) + (#{source-wrap\ 5075}# + #{e\ 7995}# + #{w\ 7997}# + #{s\ 7998}# + #{mod\ 7999}#))) + #{tmp\ 8005}#))) ($sc-dispatch - #{tmp\ 3211}# + #{tmp\ 8005}# '(any #(each (any any)) any . each-any)))) - #{e\ 3201}#))) - (#{global-extend\ 218}# + #{e\ 7995}#))) + (#{global-extend\ 5000}# 'core 'set! - (lambda (#{e\ 3251}# - #{r\ 3252}# - #{w\ 3253}# - #{s\ 3254}# - #{mod\ 3255}#) - ((lambda (#{tmp\ 3261}#) - ((lambda (#{tmp\ 3262}#) - (if (if #{tmp\ 3262}# - (apply (lambda (#{_\ 3266}# #{id\ 3267}# #{val\ 3268}#) - (#{id?\ 222}# #{id\ 3267}#)) - #{tmp\ 3262}#) + (lambda (#{e\ 8045}# + #{r\ 8046}# + #{w\ 8047}# + #{s\ 8048}# + #{mod\ 8049}#) + ((lambda (#{tmp\ 8055}#) + ((lambda (#{tmp\ 8056}#) + (if (if #{tmp\ 8056}# + (apply (lambda (#{_\ 8060}# #{id\ 8061}# #{val\ 8062}#) + (#{id?\ 5004}# #{id\ 8061}#)) + #{tmp\ 8056}#) #f) - (apply (lambda (#{_\ 3272}# #{id\ 3273}# #{val\ 3274}#) - (let ((#{val\ 3277}# - (#{chi\ 307}# - #{val\ 3274}# - #{r\ 3252}# - #{w\ 3253}# - #{mod\ 3255}#)) - (#{n\ 3278}# - (#{id-var-name\ 279}# - #{id\ 3273}# - #{w\ 3253}#))) - (let ((#{b\ 3280}# - (#{lookup\ 216}# - #{n\ 3278}# - #{r\ 3252}# - #{mod\ 3255}#))) - (let ((#{atom-key\ 3283}# - (#{binding-type\ 205}# #{b\ 3280}#))) - (if (memv #{atom-key\ 3283}# + (apply (lambda (#{_\ 8066}# #{id\ 8067}# #{val\ 8068}#) + (let ((#{val\ 8071}# + (#{chi\ 5089}# + #{val\ 8068}# + #{r\ 8046}# + #{w\ 8047}# + #{mod\ 8049}#)) + (#{n\ 8072}# + (#{id-var-name\ 5061}# + #{id\ 8067}# + #{w\ 8047}#))) + (let ((#{b\ 8074}# + (#{lookup\ 4998}# + #{n\ 8072}# + #{r\ 8046}# + #{mod\ 8049}#))) + (let ((#{atom-key\ 8077}# + (#{binding-type\ 4987}# #{b\ 8074}#))) + (if (memv #{atom-key\ 8077}# '(lexical)) - (#{build-lexical-assignment\ 152}# - #{s\ 3254}# - (syntax->datum #{id\ 3273}#) - (#{binding-value\ 207}# #{b\ 3280}#) - #{val\ 3277}#) - (if (memv #{atom-key\ 3283}# + (#{build-lexical-assignment\ 4934}# + #{s\ 8048}# + (syntax->datum #{id\ 8067}#) + (#{binding-value\ 4989}# #{b\ 8074}#) + #{val\ 8071}#) + (if (memv #{atom-key\ 8077}# '(global)) - (#{build-global-assignment\ 158}# - #{s\ 3254}# - #{n\ 3278}# - #{val\ 3277}# - #{mod\ 3255}#) - (if (memv #{atom-key\ 3283}# + (#{build-global-assignment\ 4940}# + #{s\ 8048}# + #{n\ 8072}# + #{val\ 8071}# + #{mod\ 8049}#) + (if (memv #{atom-key\ 8077}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 291}# - #{id\ 3273}# - #{w\ 3253}# - #{mod\ 3255}#)) + (#{wrap\ 5073}# + #{id\ 8067}# + #{w\ 8047}# + #{mod\ 8049}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 293}# - #{e\ 3251}# - #{w\ 3253}# - #{s\ 3254}# - #{mod\ 3255}#))))))))) - #{tmp\ 3262}#) - ((lambda (#{tmp\ 3288}#) - (if #{tmp\ 3288}# - (apply (lambda (#{_\ 3293}# - #{head\ 3294}# - #{tail\ 3295}# - #{val\ 3296}#) + (#{source-wrap\ 5075}# + #{e\ 8045}# + #{w\ 8047}# + #{s\ 8048}# + #{mod\ 8049}#))))))))) + #{tmp\ 8056}#) + ((lambda (#{tmp\ 8082}#) + (if #{tmp\ 8082}# + (apply (lambda (#{_\ 8087}# + #{head\ 8088}# + #{tail\ 8089}# + #{val\ 8090}#) (call-with-values (lambda () - (#{syntax-type\ 303}# - #{head\ 3294}# - #{r\ 3252}# + (#{syntax-type\ 5085}# + #{head\ 8088}# + #{r\ 8046}# '(()) #f #f - #{mod\ 3255}# + #{mod\ 8049}# #t)) - (lambda (#{type\ 3299}# - #{value\ 3300}# - #{ee\ 3301}# - #{ww\ 3302}# - #{ss\ 3303}# - #{modmod\ 3304}#) - (if (memv #{type\ 3299}# + (lambda (#{type\ 8093}# + #{value\ 8094}# + #{ee\ 8095}# + #{ww\ 8096}# + #{ss\ 8097}# + #{modmod\ 8098}#) + (if (memv #{type\ 8093}# '(module-ref)) - (let ((#{val\ 3313}# - (#{chi\ 307}# - #{val\ 3296}# - #{r\ 3252}# - #{w\ 3253}# - #{mod\ 3255}#))) + (let ((#{val\ 8107}# + (#{chi\ 5089}# + #{val\ 8090}# + #{r\ 8046}# + #{w\ 8047}# + #{mod\ 8049}#))) (call-with-values (lambda () - (#{value\ 3300}# - (cons #{head\ 3294}# - #{tail\ 3295}#))) - (lambda (#{id\ 3315}# #{mod\ 3316}#) - (#{build-global-assignment\ 158}# - #{s\ 3254}# - #{id\ 3315}# - #{val\ 3313}# - #{mod\ 3316}#)))) - (#{build-application\ 144}# - #{s\ 3254}# - (#{chi\ 307}# + (#{value\ 8094}# + (cons #{head\ 8088}# + #{tail\ 8089}#) + #{r\ 8046}# + #{w\ 8047}#)) + (lambda (#{e\ 8109}# + #{r\ 8110}# + #{w\ 8111}# + #{s*\ 8112}# + #{mod\ 8113}#) + ((lambda (#{tmp\ 8119}#) + ((lambda (#{tmp\ 8120}#) + (if (if #{tmp\ 8120}# + (apply (lambda (#{e\ 8122}#) + (#{id?\ 5004}# + #{e\ 8122}#)) + #{tmp\ 8120}#) + #f) + (apply (lambda (#{e\ 8124}#) + (#{build-global-assignment\ 4940}# + #{s\ 8048}# + (syntax->datum + #{e\ 8124}#) + #{val\ 8107}# + #{mod\ 8113}#)) + #{tmp\ 8120}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 8119}#))) + (list #{tmp\ 8119}#))) + #{e\ 8109}#)))) + (#{build-application\ 4926}# + #{s\ 8048}# + (#{chi\ 5089}# (list '#(syntax-object setter ((top) @@ -9403,22 +9454,22 @@ (top) (top) (top)) - #("i3305" - "i3306" - "i3307" - "i3308" - "i3309" - "i3310")) + #("i8099" + "i8100" + "i8101" + "i8102" + "i8103" + "i8104")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3289" - "i3290" - "i3291" - "i3292")) + #("i8083" + "i8084" + "i8085" + "i8086")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9427,11 +9478,11 @@ (top) (top) (top)) - #("i3256" - "i3257" - "i3258" - "i3259" - "i3260")) + #("i8050" + "i8051" + "i8052" + "i8053" + "i8054")) #(ribcage (lambda-var-list gen-var @@ -9669,177 +9720,180 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile)) - #{head\ 3294}#) - #{r\ 3252}# - #{w\ 3253}# - #{mod\ 3255}#) - (map (lambda (#{e\ 3320}#) - (#{chi\ 307}# - #{e\ 3320}# - #{r\ 3252}# - #{w\ 3253}# - #{mod\ 3255}#)) + #{head\ 8088}#) + #{r\ 8046}# + #{w\ 8047}# + #{mod\ 8049}#) + (map (lambda (#{e\ 8126}#) + (#{chi\ 5089}# + #{e\ 8126}# + #{r\ 8046}# + #{w\ 8047}# + #{mod\ 8049}#)) (append - #{tail\ 3295}# - (list #{val\ 3296}#)))))))) - #{tmp\ 3288}#) - ((lambda (#{_\ 3324}#) + #{tail\ 8089}# + (list #{val\ 8090}#)))))))) + #{tmp\ 8082}#) + ((lambda (#{_\ 8130}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 293}# - #{e\ 3251}# - #{w\ 3253}# - #{s\ 3254}# - #{mod\ 3255}#))) - #{tmp\ 3261}#))) + (#{source-wrap\ 5075}# + #{e\ 8045}# + #{w\ 8047}# + #{s\ 8048}# + #{mod\ 8049}#))) + #{tmp\ 8055}#))) ($sc-dispatch - #{tmp\ 3261}# + #{tmp\ 8055}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3261}# + #{tmp\ 8055}# '(any any any)))) - #{e\ 3251}#))) - (#{global-extend\ 218}# + #{e\ 8045}#))) + (#{global-extend\ 5000}# 'module-ref '@ - (lambda (#{e\ 3325}#) - ((lambda (#{tmp\ 3327}#) - ((lambda (#{tmp\ 3328}#) - (if (if #{tmp\ 3328}# - (apply (lambda (#{_\ 3332}# #{mod\ 3333}# #{id\ 3334}#) - (if (and-map #{id?\ 222}# #{mod\ 3333}#) - (#{id?\ 222}# #{id\ 3334}#) + (lambda (#{e\ 8131}# #{r\ 8132}# #{w\ 8133}#) + ((lambda (#{tmp\ 8137}#) + ((lambda (#{tmp\ 8138}#) + (if (if #{tmp\ 8138}# + (apply (lambda (#{_\ 8142}# #{mod\ 8143}# #{id\ 8144}#) + (if (and-map #{id?\ 5004}# #{mod\ 8143}#) + (#{id?\ 5004}# #{id\ 8144}#) #f)) - #{tmp\ 3328}#) + #{tmp\ 8138}#) #f) - (apply (lambda (#{_\ 3341}# #{mod\ 3342}# #{id\ 3343}#) + (apply (lambda (#{_\ 8151}# #{mod\ 8152}# #{id\ 8153}#) (values - (syntax->datum #{id\ 3343}#) + (syntax->datum #{id\ 8153}#) + #{r\ 8132}# + #{w\ 8133}# + #f (syntax->datum (cons '#(syntax-object public @@ -9847,9 +9901,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3338" "i3339" "i3340")) + #("i8148" "i8149" "i8150")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i3326")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i8134" "i8135" "i8136")) #(ribcage (lambda-var-list gen-var @@ -10087,155 +10144,158 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile)) - #{mod\ 3342}#)))) - #{tmp\ 3328}#) + #{mod\ 8152}#)))) + #{tmp\ 8138}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3327}#))) + #{tmp\ 8137}#))) ($sc-dispatch - #{tmp\ 3327}# + #{tmp\ 8137}# '(any each-any any)))) - #{e\ 3325}#))) - (#{global-extend\ 218}# + #{e\ 8131}#))) + (#{global-extend\ 5000}# 'module-ref '@@ - (lambda (#{e\ 3345}#) - ((lambda (#{tmp\ 3347}#) - ((lambda (#{tmp\ 3348}#) - (if (if #{tmp\ 3348}# - (apply (lambda (#{_\ 3352}# #{mod\ 3353}# #{id\ 3354}#) - (if (and-map #{id?\ 222}# #{mod\ 3353}#) - (#{id?\ 222}# #{id\ 3354}#) + (lambda (#{e\ 8155}# #{r\ 8156}# #{w\ 8157}#) + ((lambda (#{tmp\ 8161}#) + ((lambda (#{tmp\ 8162}#) + (if (if #{tmp\ 8162}# + (apply (lambda (#{_\ 8166}# #{mod\ 8167}# #{id\ 8168}#) + (if (and-map #{id?\ 5004}# #{mod\ 8167}#) + (#{id?\ 5004}# #{id\ 8168}#) #f)) - #{tmp\ 3348}#) + #{tmp\ 8162}#) #f) - (apply (lambda (#{_\ 3361}# #{mod\ 3362}# #{id\ 3363}#) + (apply (lambda (#{_\ 8175}# #{mod\ 8176}# #{id\ 8177}#) (values - (syntax->datum #{id\ 3363}#) + (syntax->datum #{id\ 8177}#) + #{r\ 8156}# + #{w\ 8157}# + #f (syntax->datum (cons '#(syntax-object private @@ -10243,9 +10303,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3358" "i3359" "i3360")) + #("i8172" "i8173" "i8174")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i3346")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i8158" "i8159" "i8160")) #(ribcage (lambda-var-list gen-var @@ -10483,304 +10546,304 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile)) - #{mod\ 3362}#)))) - #{tmp\ 3348}#) + #{mod\ 8176}#)))) + #{tmp\ 8162}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3347}#))) + #{tmp\ 8161}#))) ($sc-dispatch - #{tmp\ 3347}# + #{tmp\ 8161}# '(any each-any any)))) - #{e\ 3345}#))) - (#{global-extend\ 218}# + #{e\ 8155}#))) + (#{global-extend\ 5000}# 'core 'if - (lambda (#{e\ 3365}# - #{r\ 3366}# - #{w\ 3367}# - #{s\ 3368}# - #{mod\ 3369}#) - ((lambda (#{tmp\ 3375}#) - ((lambda (#{tmp\ 3376}#) - (if #{tmp\ 3376}# - (apply (lambda (#{_\ 3380}# #{test\ 3381}# #{then\ 3382}#) - (#{build-conditional\ 146}# - #{s\ 3368}# - (#{chi\ 307}# - #{test\ 3381}# - #{r\ 3366}# - #{w\ 3367}# - #{mod\ 3369}#) - (#{chi\ 307}# - #{then\ 3382}# - #{r\ 3366}# - #{w\ 3367}# - #{mod\ 3369}#) - (#{build-void\ 142}# #f))) - #{tmp\ 3376}#) - ((lambda (#{tmp\ 3384}#) - (if #{tmp\ 3384}# - (apply (lambda (#{_\ 3389}# - #{test\ 3390}# - #{then\ 3391}# - #{else\ 3392}#) - (#{build-conditional\ 146}# - #{s\ 3368}# - (#{chi\ 307}# - #{test\ 3390}# - #{r\ 3366}# - #{w\ 3367}# - #{mod\ 3369}#) - (#{chi\ 307}# - #{then\ 3391}# - #{r\ 3366}# - #{w\ 3367}# - #{mod\ 3369}#) - (#{chi\ 307}# - #{else\ 3392}# - #{r\ 3366}# - #{w\ 3367}# - #{mod\ 3369}#))) - #{tmp\ 3384}#) + (lambda (#{e\ 8179}# + #{r\ 8180}# + #{w\ 8181}# + #{s\ 8182}# + #{mod\ 8183}#) + ((lambda (#{tmp\ 8189}#) + ((lambda (#{tmp\ 8190}#) + (if #{tmp\ 8190}# + (apply (lambda (#{_\ 8194}# #{test\ 8195}# #{then\ 8196}#) + (#{build-conditional\ 4928}# + #{s\ 8182}# + (#{chi\ 5089}# + #{test\ 8195}# + #{r\ 8180}# + #{w\ 8181}# + #{mod\ 8183}#) + (#{chi\ 5089}# + #{then\ 8196}# + #{r\ 8180}# + #{w\ 8181}# + #{mod\ 8183}#) + (#{build-void\ 4924}# #f))) + #{tmp\ 8190}#) + ((lambda (#{tmp\ 8198}#) + (if #{tmp\ 8198}# + (apply (lambda (#{_\ 8203}# + #{test\ 8204}# + #{then\ 8205}# + #{else\ 8206}#) + (#{build-conditional\ 4928}# + #{s\ 8182}# + (#{chi\ 5089}# + #{test\ 8204}# + #{r\ 8180}# + #{w\ 8181}# + #{mod\ 8183}#) + (#{chi\ 5089}# + #{then\ 8205}# + #{r\ 8180}# + #{w\ 8181}# + #{mod\ 8183}#) + (#{chi\ 5089}# + #{else\ 8206}# + #{r\ 8180}# + #{w\ 8181}# + #{mod\ 8183}#))) + #{tmp\ 8198}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3375}#))) + #{tmp\ 8189}#))) ($sc-dispatch - #{tmp\ 3375}# + #{tmp\ 8189}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3375}# + #{tmp\ 8189}# '(any any any)))) - #{e\ 3365}#))) - (#{global-extend\ 218}# + #{e\ 8179}#))) + (#{global-extend\ 5000}# 'core 'with-fluids - (lambda (#{e\ 3393}# - #{r\ 3394}# - #{w\ 3395}# - #{s\ 3396}# - #{mod\ 3397}#) - ((lambda (#{tmp\ 3403}#) - ((lambda (#{tmp\ 3404}#) - (if #{tmp\ 3404}# - (apply (lambda (#{_\ 3410}# - #{fluid\ 3411}# - #{val\ 3412}# - #{b\ 3413}# - #{b*\ 3414}#) - (#{build-dynlet\ 148}# - #{s\ 3396}# - (map (lambda (#{x\ 3415}#) - (#{chi\ 307}# - #{x\ 3415}# - #{r\ 3394}# - #{w\ 3395}# - #{mod\ 3397}#)) - #{fluid\ 3411}#) - (map (lambda (#{x\ 3418}#) - (#{chi\ 307}# - #{x\ 3418}# - #{r\ 3394}# - #{w\ 3395}# - #{mod\ 3397}#)) - #{val\ 3412}#) - (#{chi-body\ 315}# - (cons #{b\ 3413}# #{b*\ 3414}#) - (#{source-wrap\ 293}# - #{e\ 3393}# - #{w\ 3395}# - #{s\ 3396}# - #{mod\ 3397}#) - #{r\ 3394}# - #{w\ 3395}# - #{mod\ 3397}#))) - #{tmp\ 3404}#) + (lambda (#{e\ 8207}# + #{r\ 8208}# + #{w\ 8209}# + #{s\ 8210}# + #{mod\ 8211}#) + ((lambda (#{tmp\ 8217}#) + ((lambda (#{tmp\ 8218}#) + (if #{tmp\ 8218}# + (apply (lambda (#{_\ 8224}# + #{fluid\ 8225}# + #{val\ 8226}# + #{b\ 8227}# + #{b*\ 8228}#) + (#{build-dynlet\ 4930}# + #{s\ 8210}# + (map (lambda (#{x\ 8229}#) + (#{chi\ 5089}# + #{x\ 8229}# + #{r\ 8208}# + #{w\ 8209}# + #{mod\ 8211}#)) + #{fluid\ 8225}#) + (map (lambda (#{x\ 8232}#) + (#{chi\ 5089}# + #{x\ 8232}# + #{r\ 8208}# + #{w\ 8209}# + #{mod\ 8211}#)) + #{val\ 8226}#) + (#{chi-body\ 5097}# + (cons #{b\ 8227}# #{b*\ 8228}#) + (#{source-wrap\ 5075}# + #{e\ 8207}# + #{w\ 8209}# + #{s\ 8210}# + #{mod\ 8211}#) + #{r\ 8208}# + #{w\ 8209}# + #{mod\ 8211}#))) + #{tmp\ 8218}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3403}#))) + #{tmp\ 8217}#))) ($sc-dispatch - #{tmp\ 3403}# + #{tmp\ 8217}# '(any #(each (any any)) any . each-any)))) - #{e\ 3393}#))) - (#{global-extend\ 218}# + #{e\ 8207}#))) + (#{global-extend\ 5000}# 'begin 'begin '()) - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'define 'define '()) - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'eval-when 'eval-when '()) - (#{global-extend\ 218}# + (#{global-extend\ 5000}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3429}# - (lambda (#{x\ 3430}# - #{keys\ 3431}# - #{clauses\ 3432}# - #{r\ 3433}# - #{mod\ 3434}#) - (if (null? #{clauses\ 3432}#) - (#{build-application\ 144}# + (letrec ((#{gen-syntax-case\ 8243}# + (lambda (#{x\ 8244}# + #{keys\ 8245}# + #{clauses\ 8246}# + #{r\ 8247}# + #{mod\ 8248}#) + (if (null? #{clauses\ 8246}#) + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# + (#{build-primref\ 4952}# #f 'syntax-violation) - (list (#{build-data\ 172}# #f #f) - (#{build-data\ 172}# + (list (#{build-data\ 4954}# #f #f) + (#{build-data\ 4954}# #f "source expression failed to match any pattern") - #{x\ 3430}#)) - ((lambda (#{tmp\ 3444}#) - ((lambda (#{tmp\ 3445}#) - (if #{tmp\ 3445}# - (apply (lambda (#{pat\ 3448}# #{exp\ 3449}#) - (if (if (#{id?\ 222}# #{pat\ 3448}#) + #{x\ 8244}#)) + ((lambda (#{tmp\ 8258}#) + ((lambda (#{tmp\ 8259}#) + (if #{tmp\ 8259}# + (apply (lambda (#{pat\ 8262}# #{exp\ 8263}#) + (if (if (#{id?\ 5004}# #{pat\ 8262}#) (and-map - (lambda (#{x\ 3452}#) - (not (#{free-id=?\ 281}# - #{pat\ 3448}# - #{x\ 3452}#))) + (lambda (#{x\ 8266}#) + (not (#{free-id=?\ 5063}# + #{pat\ 8262}# + #{x\ 8266}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3446" "i3447")) + #("i8260" "i8261")) #(ribcage () () ()) #(ribcage #(x @@ -10793,11 +10856,11 @@ (top) (top) (top)) - #("i3435" - "i3436" - "i3437" - "i3438" - "i3439")) + #("i8249" + "i8250" + "i8251" + "i8252" + "i8253")) #(ribcage (gen-syntax-case gen-clause @@ -10807,10 +10870,10 @@ (top) (top) (top)) - ("i3428" - "i3426" - "i3424" - "i3422")) + ("i8242" + "i8240" + "i8238" + "i8236")) #(ribcage (lambda-var-list gen-var @@ -11048,1025 +11111,1026 @@ (top) (top) (top)) - ("i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i265" - "i264" - "i262" - "i261" - "i260" - "i259" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i239" - "i237" - "i236" - "i235" - "i234" - "i233" - "i232" - "i230" - "i228" - "i226" - "i224" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i208" - "i206" - "i204" - "i203" - "i202" - "i200" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i173" - "i171" - "i169" - "i167" - "i165" - "i163" - "i161" - "i159" - "i157" - "i155" - "i153" - "i151" - "i149" - "i147" - "i145" - "i143" - "i141" - "i139" - "i137" - "i135" - "i134" - "i132" - "i130" - "i128" - "i126" - "i124" - "i122" - "i120" - "i118")) + ("i5118" + "i5116" + "i5114" + "i5112" + "i5110" + "i5108" + "i5106" + "i5104" + "i5102" + "i5100" + "i5098" + "i5096" + "i5094" + "i5092" + "i5090" + "i5088" + "i5086" + "i5084" + "i5082" + "i5080" + "i5078" + "i5076" + "i5074" + "i5072" + "i5070" + "i5068" + "i5066" + "i5064" + "i5062" + "i5060" + "i5058" + "i5056" + "i5054" + "i5052" + "i5050" + "i5048" + "i5047" + "i5046" + "i5044" + "i5043" + "i5042" + "i5041" + "i5040" + "i5038" + "i5036" + "i5034" + "i5032" + "i5030" + "i5028" + "i5026" + "i5024" + "i5021" + "i5019" + "i5018" + "i5017" + "i5016" + "i5015" + "i5014" + "i5012" + "i5010" + "i5008" + "i5006" + "i5005" + "i5003" + "i5001" + "i4999" + "i4997" + "i4995" + "i4993" + "i4991" + "i4990" + "i4988" + "i4986" + "i4985" + "i4984" + "i4982" + "i4981" + "i4979" + "i4977" + "i4975" + "i4973" + "i4971" + "i4969" + "i4967" + "i4965" + "i4963" + "i4961" + "i4959" + "i4957" + "i4955" + "i4953" + "i4951" + "i4949" + "i4947" + "i4945" + "i4943" + "i4941" + "i4939" + "i4937" + "i4935" + "i4933" + "i4931" + "i4929" + "i4927" + "i4925" + "i4923" + "i4921" + "i4919" + "i4917" + "i4916" + "i4914" + "i4912" + "i4910" + "i4908" + "i4906" + "i4904" + "i4902" + "i4900")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i21" "i19"))) + ("i4803" "i4801"))) (hygiene guile)) - #{keys\ 3431}#)) + #{keys\ 8245}#)) #f) - (let ((#{labels\ 3456}# - (list (#{gen-label\ 238}#))) - (#{var\ 3457}# - (#{gen-var\ 335}# - #{pat\ 3448}#))) - (#{build-application\ 144}# + (let ((#{labels\ 8270}# + (list (#{gen-label\ 5020}#))) + (#{var\ 8271}# + (#{gen-var\ 5117}# + #{pat\ 8262}#))) + (#{build-application\ 4926}# #f - (#{build-simple-lambda\ 164}# + (#{build-simple-lambda\ 4946}# #f (list (syntax->datum - #{pat\ 3448}#)) + #{pat\ 8262}#)) #f - (list #{var\ 3457}#) + (list #{var\ 8271}#) '() - (#{chi\ 307}# - #{exp\ 3449}# - (#{extend-env\ 210}# - #{labels\ 3456}# + (#{chi\ 5089}# + #{exp\ 8263}# + (#{extend-env\ 4992}# + #{labels\ 8270}# (list (cons 'syntax - (cons #{var\ 3457}# + (cons #{var\ 8271}# 0))) - #{r\ 3433}#) - (#{make-binding-wrap\ 269}# - (list #{pat\ 3448}#) - #{labels\ 3456}# + #{r\ 8247}#) + (#{make-binding-wrap\ 5051}# + (list #{pat\ 8262}#) + #{labels\ 8270}# '(())) - #{mod\ 3434}#)) - (list #{x\ 3430}#))) - (#{gen-clause\ 3427}# - #{x\ 3430}# - #{keys\ 3431}# - (cdr #{clauses\ 3432}#) - #{r\ 3433}# - #{pat\ 3448}# + #{mod\ 8248}#)) + (list #{x\ 8244}#))) + (#{gen-clause\ 8241}# + #{x\ 8244}# + #{keys\ 8245}# + (cdr #{clauses\ 8246}#) + #{r\ 8247}# + #{pat\ 8262}# #t - #{exp\ 3449}# - #{mod\ 3434}#))) - #{tmp\ 3445}#) - ((lambda (#{tmp\ 3463}#) - (if #{tmp\ 3463}# - (apply (lambda (#{pat\ 3467}# - #{fender\ 3468}# - #{exp\ 3469}#) - (#{gen-clause\ 3427}# - #{x\ 3430}# - #{keys\ 3431}# - (cdr #{clauses\ 3432}#) - #{r\ 3433}# - #{pat\ 3467}# - #{fender\ 3468}# - #{exp\ 3469}# - #{mod\ 3434}#)) - #{tmp\ 3463}#) - ((lambda (#{_\ 3471}#) + #{exp\ 8263}# + #{mod\ 8248}#))) + #{tmp\ 8259}#) + ((lambda (#{tmp\ 8277}#) + (if #{tmp\ 8277}# + (apply (lambda (#{pat\ 8281}# + #{fender\ 8282}# + #{exp\ 8283}#) + (#{gen-clause\ 8241}# + #{x\ 8244}# + #{keys\ 8245}# + (cdr #{clauses\ 8246}#) + #{r\ 8247}# + #{pat\ 8281}# + #{fender\ 8282}# + #{exp\ 8283}# + #{mod\ 8248}#)) + #{tmp\ 8277}#) + ((lambda (#{_\ 8285}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3432}#))) - #{tmp\ 3444}#))) + (car #{clauses\ 8246}#))) + #{tmp\ 8258}#))) ($sc-dispatch - #{tmp\ 3444}# + #{tmp\ 8258}# '(any any any))))) - ($sc-dispatch #{tmp\ 3444}# (quote (any any))))) - (car #{clauses\ 3432}#))))) - (#{gen-clause\ 3427}# - (lambda (#{x\ 3472}# - #{keys\ 3473}# - #{clauses\ 3474}# - #{r\ 3475}# - #{pat\ 3476}# - #{fender\ 3477}# - #{exp\ 3478}# - #{mod\ 3479}#) + ($sc-dispatch #{tmp\ 8258}# (quote (any any))))) + (car #{clauses\ 8246}#))))) + (#{gen-clause\ 8241}# + (lambda (#{x\ 8286}# + #{keys\ 8287}# + #{clauses\ 8288}# + #{r\ 8289}# + #{pat\ 8290}# + #{fender\ 8291}# + #{exp\ 8292}# + #{mod\ 8293}#) (call-with-values (lambda () - (#{convert-pattern\ 3423}# - #{pat\ 3476}# - #{keys\ 3473}#)) - (lambda (#{p\ 3488}# #{pvars\ 3489}#) - (if (not (#{distinct-bound-ids?\ 287}# - (map car #{pvars\ 3489}#))) + (#{convert-pattern\ 8237}# + #{pat\ 8290}# + #{keys\ 8287}#)) + (lambda (#{p\ 8302}# #{pvars\ 8303}#) + (if (not (#{distinct-bound-ids?\ 5069}# + (map car #{pvars\ 8303}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3476}#) + #{pat\ 8290}#) (if (not (and-map - (lambda (#{x\ 3496}#) - (not (#{ellipsis?\ 323}# - (car #{x\ 3496}#)))) - #{pvars\ 3489}#)) + (lambda (#{x\ 8310}#) + (not (#{ellipsis?\ 5105}# + (car #{x\ 8310}#)))) + #{pvars\ 8303}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3476}#) - (let ((#{y\ 3500}# - (#{gen-var\ 335}# (quote tmp)))) - (#{build-application\ 144}# + #{pat\ 8290}#) + (let ((#{y\ 8314}# + (#{gen-var\ 5117}# (quote tmp)))) + (#{build-application\ 4926}# #f - (#{build-simple-lambda\ 164}# + (#{build-simple-lambda\ 4946}# #f (list (quote tmp)) #f - (list #{y\ 3500}#) + (list #{y\ 8314}#) '() - (let ((#{y\ 3504}# - (#{build-lexical-reference\ 150}# + (let ((#{y\ 8318}# + (#{build-lexical-reference\ 4932}# 'value #f 'tmp - #{y\ 3500}#))) - (#{build-conditional\ 146}# + #{y\ 8314}#))) + (#{build-conditional\ 4928}# #f - ((lambda (#{tmp\ 3507}#) - ((lambda (#{tmp\ 3508}#) - (if #{tmp\ 3508}# - (apply (lambda () #{y\ 3504}#) - #{tmp\ 3508}#) - ((lambda (#{_\ 3510}#) - (#{build-conditional\ 146}# + ((lambda (#{tmp\ 8321}#) + ((lambda (#{tmp\ 8322}#) + (if #{tmp\ 8322}# + (apply (lambda () #{y\ 8318}#) + #{tmp\ 8322}#) + ((lambda (#{_\ 8324}#) + (#{build-conditional\ 4928}# #f - #{y\ 3504}# - (#{build-dispatch-call\ 3425}# - #{pvars\ 3489}# - #{fender\ 3477}# - #{y\ 3504}# - #{r\ 3475}# - #{mod\ 3479}#) - (#{build-data\ 172}# + #{y\ 8318}# + (#{build-dispatch-call\ 8239}# + #{pvars\ 8303}# + #{fender\ 8291}# + #{y\ 8318}# + #{r\ 8289}# + #{mod\ 8293}#) + (#{build-data\ 4954}# #f #f))) - #{tmp\ 3507}#))) + #{tmp\ 8321}#))) ($sc-dispatch - #{tmp\ 3507}# + #{tmp\ 8321}# '#(atom #t)))) - #{fender\ 3477}#) - (#{build-dispatch-call\ 3425}# - #{pvars\ 3489}# - #{exp\ 3478}# - #{y\ 3504}# - #{r\ 3475}# - #{mod\ 3479}#) - (#{gen-syntax-case\ 3429}# - #{x\ 3472}# - #{keys\ 3473}# - #{clauses\ 3474}# - #{r\ 3475}# - #{mod\ 3479}#)))) - (list (if (eq? #{p\ 3488}# (quote any)) - (#{build-application\ 144}# + #{fender\ 8291}#) + (#{build-dispatch-call\ 8239}# + #{pvars\ 8303}# + #{exp\ 8292}# + #{y\ 8318}# + #{r\ 8289}# + #{mod\ 8293}#) + (#{gen-syntax-case\ 8243}# + #{x\ 8286}# + #{keys\ 8287}# + #{clauses\ 8288}# + #{r\ 8289}# + #{mod\ 8293}#)))) + (list (if (eq? #{p\ 8302}# (quote any)) + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# + (#{build-primref\ 4952}# #f 'list) - (list #{x\ 3472}#)) - (#{build-application\ 144}# + (list #{x\ 8286}#)) + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# + (#{build-primref\ 4952}# #f '$sc-dispatch) - (list #{x\ 3472}# - (#{build-data\ 172}# + (list #{x\ 8286}# + (#{build-data\ 4954}# #f - #{p\ 3488}#))))))))))))) - (#{build-dispatch-call\ 3425}# - (lambda (#{pvars\ 3518}# - #{exp\ 3519}# - #{y\ 3520}# - #{r\ 3521}# - #{mod\ 3522}#) - (let ((#{ids\ 3530}# (map car #{pvars\ 3518}#)) - (#{levels\ 3531}# (map cdr #{pvars\ 3518}#))) - (let ((#{labels\ 3534}# - (#{gen-labels\ 240}# #{ids\ 3530}#)) - (#{new-vars\ 3535}# - (map #{gen-var\ 335}# #{ids\ 3530}#))) - (#{build-application\ 144}# + #{p\ 8302}#))))))))))))) + (#{build-dispatch-call\ 8239}# + (lambda (#{pvars\ 8332}# + #{exp\ 8333}# + #{y\ 8334}# + #{r\ 8335}# + #{mod\ 8336}#) + (let ((#{ids\ 8344}# (map car #{pvars\ 8332}#)) + (#{levels\ 8345}# (map cdr #{pvars\ 8332}#))) + (let ((#{labels\ 8348}# + (#{gen-labels\ 5022}# #{ids\ 8344}#)) + (#{new-vars\ 8349}# + (map #{gen-var\ 5117}# #{ids\ 8344}#))) + (#{build-application\ 4926}# #f - (#{build-primref\ 170}# #f (quote apply)) - (list (#{build-simple-lambda\ 164}# + (#{build-primref\ 4952}# #f (quote apply)) + (list (#{build-simple-lambda\ 4946}# #f - (map syntax->datum #{ids\ 3530}#) + (map syntax->datum #{ids\ 8344}#) #f - #{new-vars\ 3535}# + #{new-vars\ 8349}# '() - (#{chi\ 307}# - #{exp\ 3519}# - (#{extend-env\ 210}# - #{labels\ 3534}# - (map (lambda (#{var\ 3539}# - #{level\ 3540}#) + (#{chi\ 5089}# + #{exp\ 8333}# + (#{extend-env\ 4992}# + #{labels\ 8348}# + (map (lambda (#{var\ 8353}# + #{level\ 8354}#) (cons 'syntax - (cons #{var\ 3539}# - #{level\ 3540}#))) - #{new-vars\ 3535}# - (map cdr #{pvars\ 3518}#)) - #{r\ 3521}#) - (#{make-binding-wrap\ 269}# - #{ids\ 3530}# - #{labels\ 3534}# + (cons #{var\ 8353}# + #{level\ 8354}#))) + #{new-vars\ 8349}# + (map cdr #{pvars\ 8332}#)) + #{r\ 8335}#) + (#{make-binding-wrap\ 5051}# + #{ids\ 8344}# + #{labels\ 8348}# '(())) - #{mod\ 3522}#)) - #{y\ 3520}#)))))) - (#{convert-pattern\ 3423}# - (lambda (#{pattern\ 3546}# #{keys\ 3547}#) - (letrec ((#{cvt\ 3553}# - (lambda (#{p\ 3554}# #{n\ 3555}# #{ids\ 3556}#) - (if (#{id?\ 222}# #{p\ 3554}#) - (if (#{bound-id-member?\ 289}# - #{p\ 3554}# - #{keys\ 3547}#) + #{mod\ 8336}#)) + #{y\ 8334}#)))))) + (#{convert-pattern\ 8237}# + (lambda (#{pattern\ 8360}# #{keys\ 8361}#) + (letrec ((#{cvt\ 8367}# + (lambda (#{p\ 8368}# #{n\ 8369}# #{ids\ 8370}#) + (if (#{id?\ 5004}# #{p\ 8368}#) + (if (#{bound-id-member?\ 5071}# + #{p\ 8368}# + #{keys\ 8361}#) (values - (vector (quote free-id) #{p\ 3554}#) - #{ids\ 3556}#) + (vector (quote free-id) #{p\ 8368}#) + #{ids\ 8370}#) (values 'any - (cons (cons #{p\ 3554}# #{n\ 3555}#) - #{ids\ 3556}#))) - ((lambda (#{tmp\ 3560}#) - ((lambda (#{tmp\ 3561}#) - (if (if #{tmp\ 3561}# - (apply (lambda (#{x\ 3564}# - #{dots\ 3565}#) - (#{ellipsis?\ 323}# - #{dots\ 3565}#)) - #{tmp\ 3561}#) + (cons (cons #{p\ 8368}# #{n\ 8369}#) + #{ids\ 8370}#))) + ((lambda (#{tmp\ 8374}#) + ((lambda (#{tmp\ 8375}#) + (if (if #{tmp\ 8375}# + (apply (lambda (#{x\ 8378}# + #{dots\ 8379}#) + (#{ellipsis?\ 5105}# + #{dots\ 8379}#)) + #{tmp\ 8375}#) #f) - (apply (lambda (#{x\ 3568}# - #{dots\ 3569}#) + (apply (lambda (#{x\ 8382}# + #{dots\ 8383}#) (call-with-values (lambda () - (#{cvt\ 3553}# - #{x\ 3568}# - (#{fx+\ 123}# - #{n\ 3555}# + (#{cvt\ 8367}# + #{x\ 8382}# + (#{fx+\ 4905}# + #{n\ 8369}# 1) - #{ids\ 3556}#)) - (lambda (#{p\ 3570}# - #{ids\ 3571}#) + #{ids\ 8370}#)) + (lambda (#{p\ 8384}# + #{ids\ 8385}#) (values - (if (eq? #{p\ 3570}# + (if (eq? #{p\ 8384}# 'any) 'each-any (vector 'each - #{p\ 3570}#)) - #{ids\ 3571}#)))) - #{tmp\ 3561}#) - ((lambda (#{tmp\ 3574}#) - (if (if #{tmp\ 3574}# - (apply (lambda (#{x\ 3578}# - #{dots\ 3579}# - #{ys\ 3580}#) - (#{ellipsis?\ 323}# - #{dots\ 3579}#)) - #{tmp\ 3574}#) + #{p\ 8384}#)) + #{ids\ 8385}#)))) + #{tmp\ 8375}#) + ((lambda (#{tmp\ 8388}#) + (if (if #{tmp\ 8388}# + (apply (lambda (#{x\ 8392}# + #{dots\ 8393}# + #{ys\ 8394}#) + (#{ellipsis?\ 5105}# + #{dots\ 8393}#)) + #{tmp\ 8388}#) #f) - (apply (lambda (#{x\ 3584}# - #{dots\ 3585}# - #{ys\ 3586}#) + (apply (lambda (#{x\ 8398}# + #{dots\ 8399}# + #{ys\ 8400}#) (call-with-values (lambda () - (#{cvt*\ 3551}# - #{ys\ 3586}# - #{n\ 3555}# - #{ids\ 3556}#)) - (lambda (#{ys\ 3588}# - #{ids\ 3589}#) + (#{cvt*\ 8365}# + #{ys\ 8400}# + #{n\ 8369}# + #{ids\ 8370}#)) + (lambda (#{ys\ 8402}# + #{ids\ 8403}#) (call-with-values (lambda () - (#{cvt\ 3553}# - #{x\ 3584}# - (+ #{n\ 3555}# + (#{cvt\ 8367}# + #{x\ 8398}# + (+ #{n\ 8369}# 1) - #{ids\ 3589}#)) - (lambda (#{x\ 3592}# - #{ids\ 3593}#) + #{ids\ 8403}#)) + (lambda (#{x\ 8406}# + #{ids\ 8407}#) (values (list->vector (cons 'each+ - (cons #{x\ 3592}# + (cons #{x\ 8406}# (cons (reverse - #{ys\ 3588}#) + #{ys\ 8402}#) '(()))))) - #{ids\ 3593}#)))))) - #{tmp\ 3574}#) - ((lambda (#{tmp\ 3597}#) - (if #{tmp\ 3597}# - (apply (lambda (#{x\ 3600}# - #{y\ 3601}#) + #{ids\ 8407}#)))))) + #{tmp\ 8388}#) + ((lambda (#{tmp\ 8411}#) + (if #{tmp\ 8411}# + (apply (lambda (#{x\ 8414}# + #{y\ 8415}#) (call-with-values (lambda () - (#{cvt\ 3553}# - #{y\ 3601}# - #{n\ 3555}# - #{ids\ 3556}#)) - (lambda (#{y\ 3602}# - #{ids\ 3603}#) + (#{cvt\ 8367}# + #{y\ 8415}# + #{n\ 8369}# + #{ids\ 8370}#)) + (lambda (#{y\ 8416}# + #{ids\ 8417}#) (call-with-values (lambda () - (#{cvt\ 3553}# - #{x\ 3600}# - #{n\ 3555}# - #{ids\ 3603}#)) - (lambda (#{x\ 3606}# - #{ids\ 3607}#) + (#{cvt\ 8367}# + #{x\ 8414}# + #{n\ 8369}# + #{ids\ 8417}#)) + (lambda (#{x\ 8420}# + #{ids\ 8421}#) (values - (cons #{x\ 3606}# - #{y\ 3602}#) - #{ids\ 3607}#)))))) - #{tmp\ 3597}#) - ((lambda (#{tmp\ 3610}#) - (if #{tmp\ 3610}# + (cons #{x\ 8420}# + #{y\ 8416}#) + #{ids\ 8421}#)))))) + #{tmp\ 8411}#) + ((lambda (#{tmp\ 8424}#) + (if #{tmp\ 8424}# (apply (lambda () (values '() - #{ids\ 3556}#)) - #{tmp\ 3610}#) - ((lambda (#{tmp\ 3611}#) - (if #{tmp\ 3611}# - (apply (lambda (#{x\ 3613}#) + #{ids\ 8370}#)) + #{tmp\ 8424}#) + ((lambda (#{tmp\ 8425}#) + (if #{tmp\ 8425}# + (apply (lambda (#{x\ 8427}#) (call-with-values (lambda () - (#{cvt\ 3553}# - #{x\ 3613}# - #{n\ 3555}# - #{ids\ 3556}#)) - (lambda (#{p\ 3615}# - #{ids\ 3616}#) + (#{cvt\ 8367}# + #{x\ 8427}# + #{n\ 8369}# + #{ids\ 8370}#)) + (lambda (#{p\ 8429}# + #{ids\ 8430}#) (values (vector 'vector - #{p\ 3615}#) - #{ids\ 3616}#)))) - #{tmp\ 3611}#) - ((lambda (#{x\ 3620}#) + #{p\ 8429}#) + #{ids\ 8430}#)))) + #{tmp\ 8425}#) + ((lambda (#{x\ 8434}#) (values (vector 'atom - (#{strip\ 333}# - #{p\ 3554}# + (#{strip\ 5115}# + #{p\ 8368}# '(()))) - #{ids\ 3556}#)) - #{tmp\ 3560}#))) + #{ids\ 8370}#)) + #{tmp\ 8374}#))) ($sc-dispatch - #{tmp\ 3560}# + #{tmp\ 8374}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 3560}# + #{tmp\ 8374}# '())))) ($sc-dispatch - #{tmp\ 3560}# + #{tmp\ 8374}# '(any . any))))) ($sc-dispatch - #{tmp\ 3560}# + #{tmp\ 8374}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 3560}# + #{tmp\ 8374}# '(any any)))) - #{p\ 3554}#)))) - (#{cvt*\ 3551}# - (lambda (#{p*\ 3622}# - #{n\ 3623}# - #{ids\ 3624}#) - (if (null? #{p*\ 3622}#) - (values (quote ()) #{ids\ 3624}#) + #{p\ 8368}#)))) + (#{cvt*\ 8365}# + (lambda (#{p*\ 8436}# + #{n\ 8437}# + #{ids\ 8438}#) + (if (null? #{p*\ 8436}#) + (values (quote ()) #{ids\ 8438}#) (call-with-values (lambda () - (#{cvt*\ 3551}# - (cdr #{p*\ 3622}#) - #{n\ 3623}# - #{ids\ 3624}#)) - (lambda (#{y\ 3628}# #{ids\ 3629}#) + (#{cvt*\ 8365}# + (cdr #{p*\ 8436}#) + #{n\ 8437}# + #{ids\ 8438}#)) + (lambda (#{y\ 8442}# #{ids\ 8443}#) (call-with-values (lambda () - (#{cvt\ 3553}# - (car #{p*\ 3622}#) - #{n\ 3623}# - #{ids\ 3629}#)) - (lambda (#{x\ 3632}# #{ids\ 3633}#) + (#{cvt\ 8367}# + (car #{p*\ 8436}#) + #{n\ 8437}# + #{ids\ 8443}#)) + (lambda (#{x\ 8446}# #{ids\ 8447}#) (values - (cons #{x\ 3632}# #{y\ 3628}#) - #{ids\ 3633}#))))))))) - (#{cvt\ 3553}# #{pattern\ 3546}# 0 (quote ())))))) - (lambda (#{e\ 3636}# - #{r\ 3637}# - #{w\ 3638}# - #{s\ 3639}# - #{mod\ 3640}#) - (let ((#{e\ 3647}# - (#{source-wrap\ 293}# - #{e\ 3636}# - #{w\ 3638}# - #{s\ 3639}# - #{mod\ 3640}#))) - ((lambda (#{tmp\ 3648}#) - ((lambda (#{tmp\ 3649}#) - (if #{tmp\ 3649}# - (apply (lambda (#{_\ 3654}# - #{val\ 3655}# - #{key\ 3656}# - #{m\ 3657}#) + (cons #{x\ 8446}# #{y\ 8442}#) + #{ids\ 8447}#))))))))) + (#{cvt\ 8367}# #{pattern\ 8360}# 0 (quote ())))))) + (lambda (#{e\ 8450}# + #{r\ 8451}# + #{w\ 8452}# + #{s\ 8453}# + #{mod\ 8454}#) + (let ((#{e\ 8461}# + (#{source-wrap\ 5075}# + #{e\ 8450}# + #{w\ 8452}# + #{s\ 8453}# + #{mod\ 8454}#))) + ((lambda (#{tmp\ 8462}#) + ((lambda (#{tmp\ 8463}#) + (if #{tmp\ 8463}# + (apply (lambda (#{_\ 8468}# + #{val\ 8469}# + #{key\ 8470}# + #{m\ 8471}#) (if (and-map - (lambda (#{x\ 3658}#) - (if (#{id?\ 222}# #{x\ 3658}#) - (not (#{ellipsis?\ 323}# #{x\ 3658}#)) + (lambda (#{x\ 8472}#) + (if (#{id?\ 5004}# #{x\ 8472}#) + (not (#{ellipsis?\ 5105}# + #{x\ 8472}#)) #f)) - #{key\ 3656}#) - (let ((#{x\ 3664}# - (#{gen-var\ 335}# (quote tmp)))) - (#{build-application\ 144}# - #{s\ 3639}# - (#{build-simple-lambda\ 164}# + #{key\ 8470}#) + (let ((#{x\ 8478}# + (#{gen-var\ 5117}# (quote tmp)))) + (#{build-application\ 4926}# + #{s\ 8453}# + (#{build-simple-lambda\ 4946}# #f (list (quote tmp)) #f - (list #{x\ 3664}#) + (list #{x\ 8478}#) '() - (#{gen-syntax-case\ 3429}# - (#{build-lexical-reference\ 150}# + (#{gen-syntax-case\ 8243}# + (#{build-lexical-reference\ 4932}# 'value #f 'tmp - #{x\ 3664}#) - #{key\ 3656}# - #{m\ 3657}# - #{r\ 3637}# - #{mod\ 3640}#)) - (list (#{chi\ 307}# - #{val\ 3655}# - #{r\ 3637}# + #{x\ 8478}#) + #{key\ 8470}# + #{m\ 8471}# + #{r\ 8451}# + #{mod\ 8454}#)) + (list (#{chi\ 5089}# + #{val\ 8469}# + #{r\ 8451}# '(()) - #{mod\ 3640}#)))) + #{mod\ 8454}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3647}#))) - #{tmp\ 3649}#) + #{e\ 8461}#))) + #{tmp\ 8463}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3648}#))) + #{tmp\ 8462}#))) ($sc-dispatch - #{tmp\ 3648}# + #{tmp\ 8462}# '(any any each-any . each-any)))) - #{e\ 3647}#))))) + #{e\ 8461}#))))) (set! macroexpand - (lambda (#{x\ 3670}# . #{rest\ 3671}#) - (if (if (pair? #{x\ 3670}#) - (equal? (car #{x\ 3670}#) #{noexpand\ 119}#) + (lambda (#{x\ 8484}# . #{rest\ 8485}#) + (if (if (pair? #{x\ 8484}#) + (equal? (car #{x\ 8484}#) #{noexpand\ 4901}#) #f) - (cadr #{x\ 3670}#) - (let ((#{m\ 3678}# - (if (null? #{rest\ 3671}#) + (cadr #{x\ 8484}#) + (let ((#{m\ 8492}# + (if (null? #{rest\ 8485}#) 'e - (car #{rest\ 3671}#))) - (#{esew\ 3679}# - (if (let ((#{t\ 3682}# (null? #{rest\ 3671}#))) - (if #{t\ 3682}# - #{t\ 3682}# - (null? (cdr #{rest\ 3671}#)))) + (car #{rest\ 8485}#))) + (#{esew\ 8493}# + (if (let ((#{t\ 8496}# (null? #{rest\ 8485}#))) + (if #{t\ 8496}# + #{t\ 8496}# + (null? (cdr #{rest\ 8485}#)))) '(eval) - (cadr #{rest\ 3671}#)))) + (cadr #{rest\ 8485}#)))) (with-fluids - ((#{*mode*\ 121}# #{m\ 3678}#)) - (#{chi-top\ 305}# - #{x\ 3670}# + ((#{*mode*\ 4903}# #{m\ 8492}#)) + (#{chi-top\ 5087}# + #{x\ 8484}# '() '((top)) - #{m\ 3678}# - #{esew\ 3679}# + #{m\ 8492}# + #{esew\ 8493}# (cons 'hygiene (module-name (current-module))))))))) (set! identifier? - (lambda (#{x\ 3686}#) - (#{nonsymbol-id?\ 220}# #{x\ 3686}#))) + (lambda (#{x\ 8500}#) + (#{nonsymbol-id?\ 5002}# #{x\ 8500}#))) (set! datum->syntax - (lambda (#{id\ 3688}# #{datum\ 3689}#) - (#{make-syntax-object\ 184}# - #{datum\ 3689}# - (#{syntax-object-wrap\ 190}# #{id\ 3688}#) + (lambda (#{id\ 8502}# #{datum\ 8503}#) + (#{make-syntax-object\ 4966}# + #{datum\ 8503}# + (#{syntax-object-wrap\ 4972}# #{id\ 8502}#) #f))) (set! syntax->datum - (lambda (#{x\ 3692}#) - (#{strip\ 333}# #{x\ 3692}# (quote (()))))) + (lambda (#{x\ 8506}#) + (#{strip\ 5115}# #{x\ 8506}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 3695}#) + (lambda (#{ls\ 8509}#) (begin - (let ((#{x\ 3699}# #{ls\ 3695}#)) - (if (not (list? #{x\ 3699}#)) + (let ((#{x\ 8513}# #{ls\ 8509}#)) + (if (not (list? #{x\ 8513}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3699}#))) - (map (lambda (#{x\ 3700}#) - (#{wrap\ 291}# (gensym) (quote ((top))) #f)) - #{ls\ 3695}#)))) + #{x\ 8513}#))) + (map (lambda (#{x\ 8514}#) + (#{wrap\ 5073}# (gensym) (quote ((top))) #f)) + #{ls\ 8509}#)))) (set! free-identifier=? - (lambda (#{x\ 3704}# #{y\ 3705}#) + (lambda (#{x\ 8518}# #{y\ 8519}#) (begin - (let ((#{x\ 3710}# #{x\ 3704}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3710}#)) + (let ((#{x\ 8524}# #{x\ 8518}#)) + (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8524}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3710}#))) - (let ((#{x\ 3713}# #{y\ 3705}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3713}#)) + #{x\ 8524}#))) + (let ((#{x\ 8527}# #{y\ 8519}#)) + (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8527}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3713}#))) - (#{free-id=?\ 281}# #{x\ 3704}# #{y\ 3705}#)))) + #{x\ 8527}#))) + (#{free-id=?\ 5063}# #{x\ 8518}# #{y\ 8519}#)))) (set! bound-identifier=? - (lambda (#{x\ 3714}# #{y\ 3715}#) + (lambda (#{x\ 8528}# #{y\ 8529}#) (begin - (let ((#{x\ 3720}# #{x\ 3714}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3720}#)) + (let ((#{x\ 8534}# #{x\ 8528}#)) + (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8534}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3720}#))) - (let ((#{x\ 3723}# #{y\ 3715}#)) - (if (not (#{nonsymbol-id?\ 220}# #{x\ 3723}#)) + #{x\ 8534}#))) + (let ((#{x\ 8537}# #{y\ 8529}#)) + (if (not (#{nonsymbol-id?\ 5002}# #{x\ 8537}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3723}#))) - (#{bound-id=?\ 283}# #{x\ 3714}# #{y\ 3715}#)))) + #{x\ 8537}#))) + (#{bound-id=?\ 5065}# #{x\ 8528}# #{y\ 8529}#)))) (set! syntax-violation - (lambda (#{who\ 3724}# - #{message\ 3725}# - #{form\ 3726}# + (lambda (#{who\ 8538}# + #{message\ 8539}# + #{form\ 8540}# . - #{subform\ 3727}#) + #{subform\ 8541}#) (begin - (let ((#{x\ 3734}# #{who\ 3724}#)) - (if (not ((lambda (#{x\ 3735}#) - (let ((#{t\ 3739}# (not #{x\ 3735}#))) - (if #{t\ 3739}# - #{t\ 3739}# - (let ((#{t\ 3742}# (string? #{x\ 3735}#))) - (if #{t\ 3742}# - #{t\ 3742}# - (symbol? #{x\ 3735}#)))))) - #{x\ 3734}#)) + (let ((#{x\ 8548}# #{who\ 8538}#)) + (if (not ((lambda (#{x\ 8549}#) + (let ((#{t\ 8553}# (not #{x\ 8549}#))) + (if #{t\ 8553}# + #{t\ 8553}# + (let ((#{t\ 8556}# (string? #{x\ 8549}#))) + (if #{t\ 8556}# + #{t\ 8556}# + (symbol? #{x\ 8549}#)))))) + #{x\ 8548}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3734}#))) - (let ((#{x\ 3746}# #{message\ 3725}#)) - (if (not (string? #{x\ 3746}#)) + #{x\ 8548}#))) + (let ((#{x\ 8560}# #{message\ 8539}#)) + (if (not (string? #{x\ 8560}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3746}#))) + #{x\ 8560}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 3724}# "~a: " "") + (if #{who\ 8538}# "~a: " "") "~a " - (if (null? #{subform\ 3727}#) + (if (null? #{subform\ 8541}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 3748}# - (cons #{message\ 3725}# - (map (lambda (#{x\ 3749}#) - (#{strip\ 333}# #{x\ 3749}# (quote (())))) + (let ((#{tail\ 8562}# + (cons #{message\ 8539}# + (map (lambda (#{x\ 8563}#) + (#{strip\ 5115}# #{x\ 8563}# (quote (())))) (append - #{subform\ 3727}# - (list #{form\ 3726}#)))))) - (if #{who\ 3724}# - (cons #{who\ 3724}# #{tail\ 3748}#) - #{tail\ 3748}#)) + #{subform\ 8541}# + (list #{form\ 8540}#)))))) + (if #{who\ 8538}# + (cons #{who\ 8538}# #{tail\ 8562}#) + #{tail\ 8562}#)) #f)))) - (letrec ((#{match\ 3765}# - (lambda (#{e\ 3766}# - #{p\ 3767}# - #{w\ 3768}# - #{r\ 3769}# - #{mod\ 3770}#) - (if (not #{r\ 3769}#) + (letrec ((#{match\ 8579}# + (lambda (#{e\ 8580}# + #{p\ 8581}# + #{w\ 8582}# + #{r\ 8583}# + #{mod\ 8584}#) + (if (not #{r\ 8583}#) #f - (if (eq? #{p\ 3767}# (quote any)) - (cons (#{wrap\ 291}# - #{e\ 3766}# - #{w\ 3768}# - #{mod\ 3770}#) - #{r\ 3769}#) - (if (#{syntax-object?\ 186}# #{e\ 3766}#) - (#{match*\ 3763}# - (#{syntax-object-expression\ 188}# #{e\ 3766}#) - #{p\ 3767}# - (#{join-wraps\ 273}# - #{w\ 3768}# - (#{syntax-object-wrap\ 190}# #{e\ 3766}#)) - #{r\ 3769}# - (#{syntax-object-module\ 192}# #{e\ 3766}#)) - (#{match*\ 3763}# - #{e\ 3766}# - #{p\ 3767}# - #{w\ 3768}# - #{r\ 3769}# - #{mod\ 3770}#)))))) - (#{match*\ 3763}# - (lambda (#{e\ 3783}# - #{p\ 3784}# - #{w\ 3785}# - #{r\ 3786}# - #{mod\ 3787}#) - (if (null? #{p\ 3784}#) - (if (null? #{e\ 3783}#) #{r\ 3786}# #f) - (if (pair? #{p\ 3784}#) - (if (pair? #{e\ 3783}#) - (#{match\ 3765}# - (car #{e\ 3783}#) - (car #{p\ 3784}#) - #{w\ 3785}# - (#{match\ 3765}# - (cdr #{e\ 3783}#) - (cdr #{p\ 3784}#) - #{w\ 3785}# - #{r\ 3786}# - #{mod\ 3787}#) - #{mod\ 3787}#) + (if (eq? #{p\ 8581}# (quote any)) + (cons (#{wrap\ 5073}# + #{e\ 8580}# + #{w\ 8582}# + #{mod\ 8584}#) + #{r\ 8583}#) + (if (#{syntax-object?\ 4968}# #{e\ 8580}#) + (#{match*\ 8577}# + (#{syntax-object-expression\ 4970}# #{e\ 8580}#) + #{p\ 8581}# + (#{join-wraps\ 5055}# + #{w\ 8582}# + (#{syntax-object-wrap\ 4972}# #{e\ 8580}#)) + #{r\ 8583}# + (#{syntax-object-module\ 4974}# #{e\ 8580}#)) + (#{match*\ 8577}# + #{e\ 8580}# + #{p\ 8581}# + #{w\ 8582}# + #{r\ 8583}# + #{mod\ 8584}#)))))) + (#{match*\ 8577}# + (lambda (#{e\ 8597}# + #{p\ 8598}# + #{w\ 8599}# + #{r\ 8600}# + #{mod\ 8601}#) + (if (null? #{p\ 8598}#) + (if (null? #{e\ 8597}#) #{r\ 8600}# #f) + (if (pair? #{p\ 8598}#) + (if (pair? #{e\ 8597}#) + (#{match\ 8579}# + (car #{e\ 8597}#) + (car #{p\ 8598}#) + #{w\ 8599}# + (#{match\ 8579}# + (cdr #{e\ 8597}#) + (cdr #{p\ 8598}#) + #{w\ 8599}# + #{r\ 8600}# + #{mod\ 8601}#) + #{mod\ 8601}#) #f) - (if (eq? #{p\ 3784}# (quote each-any)) - (let ((#{l\ 3804}# - (#{match-each-any\ 3757}# - #{e\ 3783}# - #{w\ 3785}# - #{mod\ 3787}#))) - (if #{l\ 3804}# - (cons #{l\ 3804}# #{r\ 3786}#) + (if (eq? #{p\ 8598}# (quote each-any)) + (let ((#{l\ 8618}# + (#{match-each-any\ 8571}# + #{e\ 8597}# + #{w\ 8599}# + #{mod\ 8601}#))) + (if #{l\ 8618}# + (cons #{l\ 8618}# #{r\ 8600}#) #f)) - (let ((#{atom-key\ 3810}# (vector-ref #{p\ 3784}# 0))) - (if (memv #{atom-key\ 3810}# (quote (each))) - (if (null? #{e\ 3783}#) - (#{match-empty\ 3759}# - (vector-ref #{p\ 3784}# 1) - #{r\ 3786}#) - (let ((#{l\ 3813}# - (#{match-each\ 3753}# - #{e\ 3783}# - (vector-ref #{p\ 3784}# 1) - #{w\ 3785}# - #{mod\ 3787}#))) - (if #{l\ 3813}# - (letrec ((#{collect\ 3818}# - (lambda (#{l\ 3819}#) - (if (null? (car #{l\ 3819}#)) - #{r\ 3786}# - (cons (map car #{l\ 3819}#) - (#{collect\ 3818}# + (let ((#{atom-key\ 8624}# (vector-ref #{p\ 8598}# 0))) + (if (memv #{atom-key\ 8624}# (quote (each))) + (if (null? #{e\ 8597}#) + (#{match-empty\ 8573}# + (vector-ref #{p\ 8598}# 1) + #{r\ 8600}#) + (let ((#{l\ 8627}# + (#{match-each\ 8567}# + #{e\ 8597}# + (vector-ref #{p\ 8598}# 1) + #{w\ 8599}# + #{mod\ 8601}#))) + (if #{l\ 8627}# + (letrec ((#{collect\ 8632}# + (lambda (#{l\ 8633}#) + (if (null? (car #{l\ 8633}#)) + #{r\ 8600}# + (cons (map car #{l\ 8633}#) + (#{collect\ 8632}# (map cdr - #{l\ 3819}#))))))) - (#{collect\ 3818}# #{l\ 3813}#)) + #{l\ 8633}#))))))) + (#{collect\ 8632}# #{l\ 8627}#)) #f))) - (if (memv #{atom-key\ 3810}# (quote (each+))) + (if (memv #{atom-key\ 8624}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 3755}# - #{e\ 3783}# - (vector-ref #{p\ 3784}# 1) - (vector-ref #{p\ 3784}# 2) - (vector-ref #{p\ 3784}# 3) - #{w\ 3785}# - #{r\ 3786}# - #{mod\ 3787}#)) - (lambda (#{xr*\ 3821}# - #{y-pat\ 3822}# - #{r\ 3823}#) - (if #{r\ 3823}# - (if (null? #{y-pat\ 3822}#) - (if (null? #{xr*\ 3821}#) - (#{match-empty\ 3759}# - (vector-ref #{p\ 3784}# 1) - #{r\ 3823}#) - (#{combine\ 3761}# - #{xr*\ 3821}# - #{r\ 3823}#)) + (#{match-each+\ 8569}# + #{e\ 8597}# + (vector-ref #{p\ 8598}# 1) + (vector-ref #{p\ 8598}# 2) + (vector-ref #{p\ 8598}# 3) + #{w\ 8599}# + #{r\ 8600}# + #{mod\ 8601}#)) + (lambda (#{xr*\ 8635}# + #{y-pat\ 8636}# + #{r\ 8637}#) + (if #{r\ 8637}# + (if (null? #{y-pat\ 8636}#) + (if (null? #{xr*\ 8635}#) + (#{match-empty\ 8573}# + (vector-ref #{p\ 8598}# 1) + #{r\ 8637}#) + (#{combine\ 8575}# + #{xr*\ 8635}# + #{r\ 8637}#)) #f) #f))) - (if (memv #{atom-key\ 3810}# (quote (free-id))) - (if (#{id?\ 222}# #{e\ 3783}#) - (if (#{free-id=?\ 281}# - (#{wrap\ 291}# - #{e\ 3783}# - #{w\ 3785}# - #{mod\ 3787}#) - (vector-ref #{p\ 3784}# 1)) - #{r\ 3786}# + (if (memv #{atom-key\ 8624}# (quote (free-id))) + (if (#{id?\ 5004}# #{e\ 8597}#) + (if (#{free-id=?\ 5063}# + (#{wrap\ 5073}# + #{e\ 8597}# + #{w\ 8599}# + #{mod\ 8601}#) + (vector-ref #{p\ 8598}# 1)) + #{r\ 8600}# #f) #f) - (if (memv #{atom-key\ 3810}# (quote (atom))) + (if (memv #{atom-key\ 8624}# (quote (atom))) (if (equal? - (vector-ref #{p\ 3784}# 1) - (#{strip\ 333}# - #{e\ 3783}# - #{w\ 3785}#)) - #{r\ 3786}# + (vector-ref #{p\ 8598}# 1) + (#{strip\ 5115}# + #{e\ 8597}# + #{w\ 8599}#)) + #{r\ 8600}# #f) - (if (memv #{atom-key\ 3810}# + (if (memv #{atom-key\ 8624}# '(vector)) - (if (vector? #{e\ 3783}#) - (#{match\ 3765}# - (vector->list #{e\ 3783}#) - (vector-ref #{p\ 3784}# 1) - #{w\ 3785}# - #{r\ 3786}# - #{mod\ 3787}#) + (if (vector? #{e\ 8597}#) + (#{match\ 8579}# + (vector->list #{e\ 8597}#) + (vector-ref #{p\ 8598}# 1) + #{w\ 8599}# + #{r\ 8600}# + #{mod\ 8601}#) #f)))))))))))) - (#{combine\ 3761}# - (lambda (#{r*\ 3840}# #{r\ 3841}#) - (if (null? (car #{r*\ 3840}#)) - #{r\ 3841}# - (cons (map car #{r*\ 3840}#) - (#{combine\ 3761}# - (map cdr #{r*\ 3840}#) - #{r\ 3841}#))))) - (#{match-empty\ 3759}# - (lambda (#{p\ 3844}# #{r\ 3845}#) - (if (null? #{p\ 3844}#) - #{r\ 3845}# - (if (eq? #{p\ 3844}# (quote any)) - (cons (quote ()) #{r\ 3845}#) - (if (pair? #{p\ 3844}#) - (#{match-empty\ 3759}# - (car #{p\ 3844}#) - (#{match-empty\ 3759}# - (cdr #{p\ 3844}#) - #{r\ 3845}#)) - (if (eq? #{p\ 3844}# (quote each-any)) - (cons (quote ()) #{r\ 3845}#) - (let ((#{atom-key\ 3859}# - (vector-ref #{p\ 3844}# 0))) - (if (memv #{atom-key\ 3859}# (quote (each))) - (#{match-empty\ 3759}# - (vector-ref #{p\ 3844}# 1) - #{r\ 3845}#) - (if (memv #{atom-key\ 3859}# (quote (each+))) - (#{match-empty\ 3759}# - (vector-ref #{p\ 3844}# 1) - (#{match-empty\ 3759}# - (reverse (vector-ref #{p\ 3844}# 2)) - (#{match-empty\ 3759}# - (vector-ref #{p\ 3844}# 3) - #{r\ 3845}#))) - (if (memv #{atom-key\ 3859}# + (#{combine\ 8575}# + (lambda (#{r*\ 8654}# #{r\ 8655}#) + (if (null? (car #{r*\ 8654}#)) + #{r\ 8655}# + (cons (map car #{r*\ 8654}#) + (#{combine\ 8575}# + (map cdr #{r*\ 8654}#) + #{r\ 8655}#))))) + (#{match-empty\ 8573}# + (lambda (#{p\ 8658}# #{r\ 8659}#) + (if (null? #{p\ 8658}#) + #{r\ 8659}# + (if (eq? #{p\ 8658}# (quote any)) + (cons (quote ()) #{r\ 8659}#) + (if (pair? #{p\ 8658}#) + (#{match-empty\ 8573}# + (car #{p\ 8658}#) + (#{match-empty\ 8573}# + (cdr #{p\ 8658}#) + #{r\ 8659}#)) + (if (eq? #{p\ 8658}# (quote each-any)) + (cons (quote ()) #{r\ 8659}#) + (let ((#{atom-key\ 8673}# + (vector-ref #{p\ 8658}# 0))) + (if (memv #{atom-key\ 8673}# (quote (each))) + (#{match-empty\ 8573}# + (vector-ref #{p\ 8658}# 1) + #{r\ 8659}#) + (if (memv #{atom-key\ 8673}# (quote (each+))) + (#{match-empty\ 8573}# + (vector-ref #{p\ 8658}# 1) + (#{match-empty\ 8573}# + (reverse (vector-ref #{p\ 8658}# 2)) + (#{match-empty\ 8573}# + (vector-ref #{p\ 8658}# 3) + #{r\ 8659}#))) + (if (memv #{atom-key\ 8673}# '(free-id atom)) - #{r\ 3845}# - (if (memv #{atom-key\ 3859}# + #{r\ 8659}# + (if (memv #{atom-key\ 8673}# '(vector)) - (#{match-empty\ 3759}# - (vector-ref #{p\ 3844}# 1) - #{r\ 3845}#)))))))))))) - (#{match-each-any\ 3757}# - (lambda (#{e\ 3864}# #{w\ 3865}# #{mod\ 3866}#) - (if (pair? #{e\ 3864}#) - (let ((#{l\ 3873}# - (#{match-each-any\ 3757}# - (cdr #{e\ 3864}#) - #{w\ 3865}# - #{mod\ 3866}#))) - (if #{l\ 3873}# - (cons (#{wrap\ 291}# - (car #{e\ 3864}#) - #{w\ 3865}# - #{mod\ 3866}#) - #{l\ 3873}#) + (#{match-empty\ 8573}# + (vector-ref #{p\ 8658}# 1) + #{r\ 8659}#)))))))))))) + (#{match-each-any\ 8571}# + (lambda (#{e\ 8678}# #{w\ 8679}# #{mod\ 8680}#) + (if (pair? #{e\ 8678}#) + (let ((#{l\ 8687}# + (#{match-each-any\ 8571}# + (cdr #{e\ 8678}#) + #{w\ 8679}# + #{mod\ 8680}#))) + (if #{l\ 8687}# + (cons (#{wrap\ 5073}# + (car #{e\ 8678}#) + #{w\ 8679}# + #{mod\ 8680}#) + #{l\ 8687}#) #f)) - (if (null? #{e\ 3864}#) + (if (null? #{e\ 8678}#) '() - (if (#{syntax-object?\ 186}# #{e\ 3864}#) - (#{match-each-any\ 3757}# - (#{syntax-object-expression\ 188}# #{e\ 3864}#) - (#{join-wraps\ 273}# - #{w\ 3865}# - (#{syntax-object-wrap\ 190}# #{e\ 3864}#)) - #{mod\ 3866}#) + (if (#{syntax-object?\ 4968}# #{e\ 8678}#) + (#{match-each-any\ 8571}# + (#{syntax-object-expression\ 4970}# #{e\ 8678}#) + (#{join-wraps\ 5055}# + #{w\ 8679}# + (#{syntax-object-wrap\ 4972}# #{e\ 8678}#)) + #{mod\ 8680}#) #f))))) - (#{match-each+\ 3755}# - (lambda (#{e\ 3881}# - #{x-pat\ 3882}# - #{y-pat\ 3883}# - #{z-pat\ 3884}# - #{w\ 3885}# - #{r\ 3886}# - #{mod\ 3887}#) - (letrec ((#{f\ 3898}# - (lambda (#{e\ 3899}# #{w\ 3900}#) - (if (pair? #{e\ 3899}#) + (#{match-each+\ 8569}# + (lambda (#{e\ 8695}# + #{x-pat\ 8696}# + #{y-pat\ 8697}# + #{z-pat\ 8698}# + #{w\ 8699}# + #{r\ 8700}# + #{mod\ 8701}#) + (letrec ((#{f\ 8712}# + (lambda (#{e\ 8713}# #{w\ 8714}#) + (if (pair? #{e\ 8713}#) (call-with-values (lambda () - (#{f\ 3898}# - (cdr #{e\ 3899}#) - #{w\ 3900}#)) - (lambda (#{xr*\ 3903}# - #{y-pat\ 3904}# - #{r\ 3905}#) - (if #{r\ 3905}# - (if (null? #{y-pat\ 3904}#) - (let ((#{xr\ 3910}# - (#{match\ 3765}# - (car #{e\ 3899}#) - #{x-pat\ 3882}# - #{w\ 3900}# + (#{f\ 8712}# + (cdr #{e\ 8713}#) + #{w\ 8714}#)) + (lambda (#{xr*\ 8717}# + #{y-pat\ 8718}# + #{r\ 8719}#) + (if #{r\ 8719}# + (if (null? #{y-pat\ 8718}#) + (let ((#{xr\ 8724}# + (#{match\ 8579}# + (car #{e\ 8713}#) + #{x-pat\ 8696}# + #{w\ 8714}# '() - #{mod\ 3887}#))) - (if #{xr\ 3910}# + #{mod\ 8701}#))) + (if #{xr\ 8724}# (values - (cons #{xr\ 3910}# - #{xr*\ 3903}#) - #{y-pat\ 3904}# - #{r\ 3905}#) + (cons #{xr\ 8724}# + #{xr*\ 8717}#) + #{y-pat\ 8718}# + #{r\ 8719}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 3904}#) - (#{match\ 3765}# - (car #{e\ 3899}#) - (car #{y-pat\ 3904}#) - #{w\ 3900}# - #{r\ 3905}# - #{mod\ 3887}#))) + (cdr #{y-pat\ 8718}#) + (#{match\ 8579}# + (car #{e\ 8713}#) + (car #{y-pat\ 8718}#) + #{w\ 8714}# + #{r\ 8719}# + #{mod\ 8701}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 186}# #{e\ 3899}#) - (#{f\ 3898}# - (#{syntax-object-expression\ 188}# - #{e\ 3899}#) - (#{join-wraps\ 273}# - #{w\ 3900}# - #{e\ 3899}#)) + (if (#{syntax-object?\ 4968}# #{e\ 8713}#) + (#{f\ 8712}# + (#{syntax-object-expression\ 4970}# + #{e\ 8713}#) + (#{join-wraps\ 5055}# + #{w\ 8714}# + #{e\ 8713}#)) (values '() - #{y-pat\ 3883}# - (#{match\ 3765}# - #{e\ 3899}# - #{z-pat\ 3884}# - #{w\ 3900}# - #{r\ 3886}# - #{mod\ 3887}#))))))) - (#{f\ 3898}# #{e\ 3881}# #{w\ 3885}#)))) - (#{match-each\ 3753}# - (lambda (#{e\ 3914}# - #{p\ 3915}# - #{w\ 3916}# - #{mod\ 3917}#) - (if (pair? #{e\ 3914}#) - (let ((#{first\ 3925}# - (#{match\ 3765}# - (car #{e\ 3914}#) - #{p\ 3915}# - #{w\ 3916}# + #{y-pat\ 8697}# + (#{match\ 8579}# + #{e\ 8713}# + #{z-pat\ 8698}# + #{w\ 8714}# + #{r\ 8700}# + #{mod\ 8701}#))))))) + (#{f\ 8712}# #{e\ 8695}# #{w\ 8699}#)))) + (#{match-each\ 8567}# + (lambda (#{e\ 8728}# + #{p\ 8729}# + #{w\ 8730}# + #{mod\ 8731}#) + (if (pair? #{e\ 8728}#) + (let ((#{first\ 8739}# + (#{match\ 8579}# + (car #{e\ 8728}#) + #{p\ 8729}# + #{w\ 8730}# '() - #{mod\ 3917}#))) - (if #{first\ 3925}# - (let ((#{rest\ 3929}# - (#{match-each\ 3753}# - (cdr #{e\ 3914}#) - #{p\ 3915}# - #{w\ 3916}# - #{mod\ 3917}#))) - (if #{rest\ 3929}# - (cons #{first\ 3925}# #{rest\ 3929}#) + #{mod\ 8731}#))) + (if #{first\ 8739}# + (let ((#{rest\ 8743}# + (#{match-each\ 8567}# + (cdr #{e\ 8728}#) + #{p\ 8729}# + #{w\ 8730}# + #{mod\ 8731}#))) + (if #{rest\ 8743}# + (cons #{first\ 8739}# #{rest\ 8743}#) #f)) #f)) - (if (null? #{e\ 3914}#) + (if (null? #{e\ 8728}#) '() - (if (#{syntax-object?\ 186}# #{e\ 3914}#) - (#{match-each\ 3753}# - (#{syntax-object-expression\ 188}# #{e\ 3914}#) - #{p\ 3915}# - (#{join-wraps\ 273}# - #{w\ 3916}# - (#{syntax-object-wrap\ 190}# #{e\ 3914}#)) - (#{syntax-object-module\ 192}# #{e\ 3914}#)) + (if (#{syntax-object?\ 4968}# #{e\ 8728}#) + (#{match-each\ 8567}# + (#{syntax-object-expression\ 4970}# #{e\ 8728}#) + #{p\ 8729}# + (#{join-wraps\ 5055}# + #{w\ 8730}# + (#{syntax-object-wrap\ 4972}# #{e\ 8728}#)) + (#{syntax-object-module\ 4974}# #{e\ 8728}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 3937}# #{p\ 3938}#) - (if (eq? #{p\ 3938}# (quote any)) - (list #{e\ 3937}#) - (if (#{syntax-object?\ 186}# #{e\ 3937}#) - (#{match*\ 3763}# - (#{syntax-object-expression\ 188}# #{e\ 3937}#) - #{p\ 3938}# - (#{syntax-object-wrap\ 190}# #{e\ 3937}#) + (lambda (#{e\ 8751}# #{p\ 8752}#) + (if (eq? #{p\ 8752}# (quote any)) + (list #{e\ 8751}#) + (if (#{syntax-object?\ 4968}# #{e\ 8751}#) + (#{match*\ 8577}# + (#{syntax-object-expression\ 4970}# #{e\ 8751}#) + #{p\ 8752}# + (#{syntax-object-wrap\ 4972}# #{e\ 8751}#) '() - (#{syntax-object-module\ 192}# #{e\ 3937}#)) - (#{match*\ 3763}# - #{e\ 3937}# - #{p\ 3938}# + (#{syntax-object-module\ 4974}# #{e\ 8751}#)) + (#{match*\ 8577}# + #{e\ 8751}# + #{p\ 8752}# '(()) '() #f))))))))) @@ -12075,50 +12139,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 3947}#) - ((lambda (#{tmp\ 3949}#) - ((lambda (#{tmp\ 3950}#) - (if #{tmp\ 3950}# - (apply (lambda (#{_\ 3954}# #{e1\ 3955}# #{e2\ 3956}#) + (cons (lambda (#{x\ 8761}#) + ((lambda (#{tmp\ 8763}#) + ((lambda (#{tmp\ 8764}#) + (if #{tmp\ 8764}# + (apply (lambda (#{_\ 8768}# #{e1\ 8769}# #{e2\ 8770}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i3951" "i3952" "i3953")) + #("i8765" "i8766" "i8767")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3948"))) + #(ribcage #(x) #((top)) #("i8762"))) (hygiene guile)) - (cons #{e1\ 3955}# #{e2\ 3956}#))) - #{tmp\ 3950}#) - ((lambda (#{tmp\ 3958}#) - (if #{tmp\ 3958}# - (apply (lambda (#{_\ 3964}# - #{out\ 3965}# - #{in\ 3966}# - #{e1\ 3967}# - #{e2\ 3968}#) + (cons #{e1\ 8769}# #{e2\ 8770}#))) + #{tmp\ 8764}#) + ((lambda (#{tmp\ 8772}#) + (if #{tmp\ 8772}# + (apply (lambda (#{_\ 8778}# + #{out\ 8779}# + #{in\ 8780}# + #{e1\ 8781}# + #{e2\ 8782}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i3959" - "i3960" - "i3961" - "i3962" - "i3963")) + #("i8773" + "i8774" + "i8775" + "i8776" + "i8777")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3948"))) + #("i8762"))) (hygiene guile)) - #{in\ 3966}# + #{in\ 8780}# '() - (list #{out\ 3965}# + (list #{out\ 8779}# (cons '#(syntax-object begin ((top) @@ -12129,27 +12193,27 @@ (top) (top) (top)) - #("i3959" - "i3960" - "i3961" - "i3962" - "i3963")) + #("i8773" + "i8774" + "i8775" + "i8776" + "i8777")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3948"))) + #("i8762"))) (hygiene guile)) - (cons #{e1\ 3967}# - #{e2\ 3968}#))))) - #{tmp\ 3958}#) - ((lambda (#{tmp\ 3970}#) - (if #{tmp\ 3970}# - (apply (lambda (#{_\ 3976}# - #{out\ 3977}# - #{in\ 3978}# - #{e1\ 3979}# - #{e2\ 3980}#) + (cons #{e1\ 8781}# + #{e2\ 8782}#))))) + #{tmp\ 8772}#) + ((lambda (#{tmp\ 8784}#) + (if #{tmp\ 8784}# + (apply (lambda (#{_\ 8790}# + #{out\ 8791}# + #{in\ 8792}# + #{e1\ 8793}# + #{e2\ 8794}#) (list '#(syntax-object syntax-case ((top) @@ -12160,16 +12224,16 @@ (top) (top) (top)) - #("i3971" - "i3972" - "i3973" - "i3974" - "i3975")) + #("i8785" + "i8786" + "i8787" + "i8788" + "i8789")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3948"))) + #("i8762"))) (hygiene guile)) (cons '#(syntax-object list @@ -12181,20 +12245,20 @@ (top) (top) (top)) - #("i3971" - "i3972" - "i3973" - "i3974" - "i3975")) + #("i8785" + "i8786" + "i8787" + "i8788" + "i8789")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3948"))) + #("i8762"))) (hygiene guile)) - #{in\ 3978}#) + #{in\ 8792}#) '() - (list #{out\ 3977}# + (list #{out\ 8791}# (cons '#(syntax-object begin ((top) @@ -12209,11 +12273,11 @@ (top) (top) (top)) - #("i3971" - "i3972" - "i3973" - "i3974" - "i3975")) + #("i8785" + "i8786" + "i8787" + "i8788" + "i8789")) #(ribcage () () @@ -12221,53 +12285,53 @@ #(ribcage #(x) #((top)) - #("i3948"))) + #("i8762"))) (hygiene guile)) - (cons #{e1\ 3979}# - #{e2\ 3980}#))))) - #{tmp\ 3970}#) + (cons #{e1\ 8793}# + #{e2\ 8794}#))))) + #{tmp\ 8784}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3949}#))) + #{tmp\ 8763}#))) ($sc-dispatch - #{tmp\ 3949}# + #{tmp\ 8763}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3949}# + #{tmp\ 8763}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3949}# + #{tmp\ 8763}# '(any () any . each-any)))) - #{x\ 3947}#)) + #{x\ 8761}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 3984}#) - ((lambda (#{tmp\ 3986}#) - ((lambda (#{tmp\ 3987}#) - (if #{tmp\ 3987}# - (apply (lambda (#{_\ 3993}# - #{k\ 3994}# - #{keyword\ 3995}# - #{pattern\ 3996}# - #{template\ 3997}#) + (cons (lambda (#{x\ 8798}#) + ((lambda (#{tmp\ 8800}#) + ((lambda (#{tmp\ 8801}#) + (if #{tmp\ 8801}# + (apply (lambda (#{_\ 8807}# + #{k\ 8808}# + #{keyword\ 8809}# + #{pattern\ 8810}# + #{template\ 8811}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3985"))) + #(ribcage #(x) #((top)) #("i8799"))) (hygiene guile)) '(#(syntax-object x @@ -12275,13 +12339,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3985"))) + #(ribcage #(x) #((top)) #("i8799"))) (hygiene guile))) (vector '(#(syntax-object @@ -12290,13 +12354,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3985"))) + #(ribcage #(x) #((top)) #("i8799"))) (hygiene guile)) . #(syntax-object @@ -12305,13 +12369,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3985"))) + #(ribcage #(x) #((top)) #("i8799"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -12327,34 +12391,34 @@ (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3985"))) + #("i8799"))) (hygiene guile)) - #{pattern\ 3996}#)) + #{pattern\ 8810}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3985"))) + #("i8799"))) (hygiene guile)) (cons '#(syntax-object x @@ -12370,20 +12434,20 @@ (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3985"))) + #("i8799"))) (hygiene guile)) - (cons #{k\ 3994}# - (map (lambda (#{tmp\ 4001}# - #{tmp\ 4000}#) + (cons #{k\ 8808}# + (map (lambda (#{tmp\ 8815}# + #{tmp\ 8814}#) (list (cons '#(syntax-object dummy ((top) @@ -12398,11 +12462,11 @@ (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () @@ -12410,10 +12474,10 @@ #(ribcage #(x) #((top)) - #("i3985"))) + #("i8799"))) (hygiene guile)) - #{tmp\ 4000}#) + #{tmp\ 8814}#) (list '#(syntax-object syntax ((top) @@ -12428,11 +12492,11 @@ (top) (top) (top)) - #("i3988" - "i3989" - "i3990" - "i3991" - "i3992")) + #("i8802" + "i8803" + "i8804" + "i8805" + "i8806")) #(ribcage () () @@ -12440,47 +12504,47 @@ #(ribcage #(x) #((top)) - #("i3985"))) + #("i8799"))) (hygiene guile)) - #{tmp\ 4001}#))) - #{template\ 3997}# - #{pattern\ 3996}#)))))) - #{tmp\ 3987}#) + #{tmp\ 8815}#))) + #{template\ 8811}# + #{pattern\ 8810}#)))))) + #{tmp\ 8801}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3986}#))) + #{tmp\ 8800}#))) ($sc-dispatch - #{tmp\ 3986}# + #{tmp\ 8800}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 3984}#)) + #{x\ 8798}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 4002}#) - ((lambda (#{tmp\ 4004}#) - ((lambda (#{tmp\ 4005}#) - (if (if #{tmp\ 4005}# - (apply (lambda (#{let*\ 4011}# - #{x\ 4012}# - #{v\ 4013}# - #{e1\ 4014}# - #{e2\ 4015}#) - (and-map identifier? #{x\ 4012}#)) - #{tmp\ 4005}#) + (cons (lambda (#{x\ 8816}#) + ((lambda (#{tmp\ 8818}#) + ((lambda (#{tmp\ 8819}#) + (if (if #{tmp\ 8819}# + (apply (lambda (#{let*\ 8825}# + #{x\ 8826}# + #{v\ 8827}# + #{e1\ 8828}# + #{e2\ 8829}#) + (and-map identifier? #{x\ 8826}#)) + #{tmp\ 8819}#) #f) - (apply (lambda (#{let*\ 4022}# - #{x\ 4023}# - #{v\ 4024}# - #{e1\ 4025}# - #{e2\ 4026}#) - (letrec ((#{f\ 4029}# - (lambda (#{bindings\ 4030}#) - (if (null? #{bindings\ 4030}#) + (apply (lambda (#{let*\ 8836}# + #{x\ 8837}# + #{v\ 8838}# + #{e1\ 8839}# + #{e2\ 8840}#) + (letrec ((#{f\ 8843}# + (lambda (#{bindings\ 8844}#) + (if (null? #{bindings\ 8844}#) (cons '#(syntax-object let ((top) @@ -12488,7 +12552,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4027" "i4028")) + #("i8841" "i8842")) #(ribcage #(let* x v e1 e2) #((top) @@ -12496,25 +12560,25 @@ (top) (top) (top)) - #("i4017" - "i4018" - "i4019" - "i4020" - "i4021")) + #("i8831" + "i8832" + "i8833" + "i8834" + "i8835")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4003"))) + #("i8817"))) (hygiene guile)) (cons '() - (cons #{e1\ 4025}# - #{e2\ 4026}#))) - ((lambda (#{tmp\ 4035}#) - ((lambda (#{tmp\ 4036}#) - (if #{tmp\ 4036}# - (apply (lambda (#{body\ 4039}# - #{binding\ 4040}#) + (cons #{e1\ 8839}# + #{e2\ 8840}#))) + ((lambda (#{tmp\ 8849}#) + ((lambda (#{tmp\ 8850}#) + (if #{tmp\ 8850}# + (apply (lambda (#{body\ 8853}# + #{binding\ 8854}#) (list '#(syntax-object let ((top) @@ -12523,8 +12587,8 @@ binding) #((top) (top)) - #("i4037" - "i4038")) + #("i8851" + "i8852")) #(ribcage () () @@ -12534,8 +12598,8 @@ bindings) #((top) (top)) - #("i4027" - "i4028")) + #("i8841" + "i8842")) #(ribcage #(let* x @@ -12547,11 +12611,11 @@ (top) (top) (top)) - #("i4017" - "i4018" - "i4019" - "i4020" - "i4021")) + #("i8831" + "i8832" + "i8833" + "i8834" + "i8835")) #(ribcage () () @@ -12559,57 +12623,57 @@ #(ribcage #(x) #((top)) - #("i4003"))) + #("i8817"))) (hygiene guile)) - (list #{binding\ 4040}#) - #{body\ 4039}#)) - #{tmp\ 4036}#) + (list #{binding\ 8854}#) + #{body\ 8853}#)) + #{tmp\ 8850}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4035}#))) + #{tmp\ 8849}#))) ($sc-dispatch - #{tmp\ 4035}# + #{tmp\ 8849}# '(any any)))) - (list (#{f\ 4029}# - (cdr #{bindings\ 4030}#)) - (car #{bindings\ 4030}#))))))) - (#{f\ 4029}# - (map list #{x\ 4023}# #{v\ 4024}#)))) - #{tmp\ 4005}#) + (list (#{f\ 8843}# + (cdr #{bindings\ 8844}#)) + (car #{bindings\ 8844}#))))))) + (#{f\ 8843}# + (map list #{x\ 8837}# #{v\ 8838}#)))) + #{tmp\ 8819}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4004}#))) + #{tmp\ 8818}#))) ($sc-dispatch - #{tmp\ 4004}# + #{tmp\ 8818}# '(any #(each (any any)) any . each-any)))) - #{x\ 4002}#)) + #{x\ 8816}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 4041}#) - ((lambda (#{tmp\ 4043}#) - ((lambda (#{tmp\ 4044}#) - (if #{tmp\ 4044}# - (apply (lambda (#{_\ 4052}# - #{var\ 4053}# - #{init\ 4054}# - #{step\ 4055}# - #{e0\ 4056}# - #{e1\ 4057}# - #{c\ 4058}#) - ((lambda (#{tmp\ 4060}#) - ((lambda (#{tmp\ 4061}#) - (if #{tmp\ 4061}# - (apply (lambda (#{step\ 4063}#) - ((lambda (#{tmp\ 4064}#) - ((lambda (#{tmp\ 4065}#) - (if #{tmp\ 4065}# + (cons (lambda (#{orig-x\ 8855}#) + ((lambda (#{tmp\ 8857}#) + ((lambda (#{tmp\ 8858}#) + (if #{tmp\ 8858}# + (apply (lambda (#{_\ 8866}# + #{var\ 8867}# + #{init\ 8868}# + #{step\ 8869}# + #{e0\ 8870}# + #{e1\ 8871}# + #{c\ 8872}#) + ((lambda (#{tmp\ 8874}#) + ((lambda (#{tmp\ 8875}#) + (if #{tmp\ 8875}# + (apply (lambda (#{step\ 8877}#) + ((lambda (#{tmp\ 8878}#) + ((lambda (#{tmp\ 8879}#) + (if #{tmp\ 8879}# (apply (lambda () (list '#(syntax-object let @@ -12617,7 +12681,7 @@ #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12633,13 +12697,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12647,7 +12711,7 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) '#(syntax-object @@ -12656,7 +12720,7 @@ #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12672,13 +12736,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12686,19 +12750,19 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) (map list - #{var\ 4053}# - #{init\ 4054}#) + #{var\ 8867}# + #{init\ 8868}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12714,13 +12778,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12728,7 +12792,7 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) (list '#(syntax-object @@ -12737,7 +12801,7 @@ #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12753,13 +12817,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12767,17 +12831,17 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) - #{e0\ 4056}#) + #{e0\ 8870}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12793,13 +12857,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12807,18 +12871,18 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) (append - #{c\ 4058}# + #{c\ 8872}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12834,13 +12898,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12848,15 +12912,15 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) - #{step\ 4063}#))))))) - #{tmp\ 4065}#) - ((lambda (#{tmp\ 4070}#) - (if #{tmp\ 4070}# - (apply (lambda (#{e1\ 4073}# - #{e2\ 4074}#) + #{step\ 8877}#))))))) + #{tmp\ 8879}#) + ((lambda (#{tmp\ 8884}#) + (if #{tmp\ 8884}# + (apply (lambda (#{e1\ 8887}# + #{e2\ 8888}#) (list '#(syntax-object let ((top) @@ -12865,12 +12929,12 @@ e2) #((top) (top)) - #("i4071" - "i4072")) + #("i8885" + "i8886")) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12886,13 +12950,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12900,7 +12964,7 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) '#(syntax-object @@ -12911,12 +12975,12 @@ e2) #((top) (top)) - #("i4071" - "i4072")) + #("i8885" + "i8886")) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12932,13 +12996,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12946,12 +13010,12 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) (map list - #{var\ 4053}# - #{init\ 4054}#) + #{var\ 8867}# + #{init\ 8868}#) (list '#(syntax-object if ((top) @@ -12960,12 +13024,12 @@ e2) #((top) (top)) - #("i4071" - "i4072")) + #("i8885" + "i8886")) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -12981,13 +13045,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -12995,10 +13059,10 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) - #{e0\ 4056}# + #{e0\ 8870}# (cons '#(syntax-object begin ((top) @@ -13007,12 +13071,12 @@ e2) #((top) (top)) - #("i4071" - "i4072")) + #("i8885" + "i8886")) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -13028,13 +13092,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -13042,11 +13106,11 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) - (cons #{e1\ 4073}# - #{e2\ 4074}#)) + (cons #{e1\ 8887}# + #{e2\ 8888}#)) (cons '#(syntax-object begin ((top) @@ -13055,12 +13119,12 @@ e2) #((top) (top)) - #("i4071" - "i4072")) + #("i8885" + "i8886")) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -13076,13 +13140,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -13090,11 +13154,11 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) (append - #{c\ 4058}# + #{c\ 8872}# (list (cons '#(syntax-object doloop ((top) @@ -13103,12 +13167,12 @@ e2) #((top) (top)) - #("i4071" - "i4072")) + #("i8885" + "i8886")) #(ribcage #(step) #((top)) - #("i4062")) + #("i8876")) #(ribcage #(_ var @@ -13124,13 +13188,13 @@ (top) (top) (top)) - #("i4045" - "i4046" - "i4047" - "i4048" - "i4049" - "i4050" - "i4051")) + #("i8859" + "i8860" + "i8861" + "i8862" + "i8863" + "i8864" + "i8865")) #(ribcage () () @@ -13138,107 +13202,107 @@ #(ribcage #(orig-x) #((top)) - #("i4042"))) + #("i8856"))) (hygiene guile)) - #{step\ 4063}#))))))) - #{tmp\ 4070}#) + #{step\ 8877}#))))))) + #{tmp\ 8884}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4064}#))) + #{tmp\ 8878}#))) ($sc-dispatch - #{tmp\ 4064}# + #{tmp\ 8878}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4064}# + #{tmp\ 8878}# '()))) - #{e1\ 4057}#)) - #{tmp\ 4061}#) + #{e1\ 8871}#)) + #{tmp\ 8875}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4060}#))) + #{tmp\ 8874}#))) ($sc-dispatch - #{tmp\ 4060}# + #{tmp\ 8874}# 'each-any))) - (map (lambda (#{v\ 4081}# #{s\ 4082}#) - ((lambda (#{tmp\ 4085}#) - ((lambda (#{tmp\ 4086}#) - (if #{tmp\ 4086}# - (apply (lambda () #{v\ 4081}#) - #{tmp\ 4086}#) - ((lambda (#{tmp\ 4087}#) - (if #{tmp\ 4087}# - (apply (lambda (#{e\ 4089}#) - #{e\ 4089}#) - #{tmp\ 4087}#) - ((lambda (#{_\ 4091}#) + (map (lambda (#{v\ 8895}# #{s\ 8896}#) + ((lambda (#{tmp\ 8899}#) + ((lambda (#{tmp\ 8900}#) + (if #{tmp\ 8900}# + (apply (lambda () #{v\ 8895}#) + #{tmp\ 8900}#) + ((lambda (#{tmp\ 8901}#) + (if #{tmp\ 8901}# + (apply (lambda (#{e\ 8903}#) + #{e\ 8903}#) + #{tmp\ 8901}#) + ((lambda (#{_\ 8905}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4041}# - #{s\ 4082}#)) - #{tmp\ 4085}#))) + #{orig-x\ 8855}# + #{s\ 8896}#)) + #{tmp\ 8899}#))) ($sc-dispatch - #{tmp\ 4085}# + #{tmp\ 8899}# '(any))))) ($sc-dispatch - #{tmp\ 4085}# + #{tmp\ 8899}# '()))) - #{s\ 4082}#)) - #{var\ 4053}# - #{step\ 4055}#))) - #{tmp\ 4044}#) + #{s\ 8896}#)) + #{var\ 8867}# + #{step\ 8869}#))) + #{tmp\ 8858}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4043}#))) + #{tmp\ 8857}#))) ($sc-dispatch - #{tmp\ 4043}# + #{tmp\ 8857}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4041}#)) + #{orig-x\ 8855}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4098}# - (lambda (#{x\ 4102}# #{y\ 4103}#) - ((lambda (#{tmp\ 4107}#) - ((lambda (#{tmp\ 4108}#) - (if #{tmp\ 4108}# - (apply (lambda (#{x\ 4111}# #{y\ 4112}#) - ((lambda (#{tmp\ 4113}#) - ((lambda (#{tmp\ 4114}#) - (if #{tmp\ 4114}# - (apply (lambda (#{dy\ 4116}#) - ((lambda (#{tmp\ 4117}#) - ((lambda (#{tmp\ 4118}#) - (if #{tmp\ 4118}# - (apply (lambda (#{dx\ 4120}#) + (cons (letrec ((#{quasicons\ 8912}# + (lambda (#{x\ 8916}# #{y\ 8917}#) + ((lambda (#{tmp\ 8921}#) + ((lambda (#{tmp\ 8922}#) + (if #{tmp\ 8922}# + (apply (lambda (#{x\ 8925}# #{y\ 8926}#) + ((lambda (#{tmp\ 8927}#) + ((lambda (#{tmp\ 8928}#) + (if #{tmp\ 8928}# + (apply (lambda (#{dy\ 8930}#) + ((lambda (#{tmp\ 8931}#) + ((lambda (#{tmp\ 8932}#) + (if #{tmp\ 8932}# + (apply (lambda (#{dx\ 8934}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4119")) + #("i8933")) #(ribcage #(dy) #((top)) - #("i4115")) + #("i8929")) #(ribcage #(x y) #((top) (top)) - #("i4109" - "i4110")) + #("i8923" + "i8924")) #(ribcage () () @@ -13252,8 +13316,8 @@ y) #((top) (top)) - #("i4104" - "i4105")) + #("i8918" + "i8919")) #(ribcage #(quasicons quasiappend @@ -13263,35 +13327,35 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - (cons #{dx\ 4120}# - #{dy\ 4116}#))) - #{tmp\ 4118}#) - ((lambda (#{_\ 4122}#) - (if (null? #{dy\ 4116}#) + (cons #{dx\ 8934}# + #{dy\ 8930}#))) + #{tmp\ 8932}#) + ((lambda (#{_\ 8936}#) + (if (null? #{dy\ 8930}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4121")) + #("i8935")) #(ribcage #(dy) #((top)) - #("i4115")) + #("i8929")) #(ribcage #(x y) #((top) (top)) - #("i4109" - "i4110")) + #("i8923" + "i8924")) #(ribcage () () @@ -13305,8 +13369,8 @@ y) #((top) (top)) - #("i4104" - "i4105")) + #("i8918" + "i8919")) #(ribcage #(quasicons quasiappend @@ -13316,31 +13380,31 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{x\ 4111}#) + #{x\ 8925}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4121")) + #("i8935")) #(ribcage #(dy) #((top)) - #("i4115")) + #("i8929")) #(ribcage #(x y) #((top) (top)) - #("i4109" - "i4110")) + #("i8923" + "i8924")) #(ribcage () () @@ -13354,8 +13418,8 @@ y) #((top) (top)) - #("i4104" - "i4105")) + #("i8918" + "i8919")) #(ribcage #(quasicons quasiappend @@ -13365,17 +13429,17 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{x\ 4111}# - #{y\ 4112}#))) - #{tmp\ 4117}#))) + #{x\ 8925}# + #{y\ 8926}#))) + #{tmp\ 8931}#))) ($sc-dispatch - #{tmp\ 4117}# + #{tmp\ 8931}# '(#(free-id #(syntax-object quote @@ -13383,13 +13447,13 @@ #(ribcage #(dy) #((top)) - #("i4115")) + #("i8929")) #(ribcage #(x y) #((top) (top)) - #("i4109" - "i4110")) + #("i8923" + "i8924")) #(ribcage () () @@ -13402,8 +13466,8 @@ #(x y) #((top) (top)) - #("i4104" - "i4105")) + #("i8918" + "i8919")) #(ribcage #(quasicons quasiappend @@ -13413,32 +13477,32 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) any)))) - #{x\ 4111}#)) - #{tmp\ 4114}#) - ((lambda (#{tmp\ 4123}#) - (if #{tmp\ 4123}# - (apply (lambda (#{stuff\ 4125}#) + #{x\ 8925}#)) + #{tmp\ 8928}#) + ((lambda (#{tmp\ 8937}#) + (if #{tmp\ 8937}# + (apply (lambda (#{stuff\ 8939}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4124")) + #("i8938")) #(ribcage #(x y) #((top) (top)) - #("i4109" - "i4110")) + #("i8923" + "i8924")) #(ribcage () () @@ -13452,8 +13516,8 @@ y) #((top) (top)) - #("i4104" - "i4105")) + #("i8918" + "i8919")) #(ribcage #(quasicons quasiappend @@ -13463,29 +13527,29 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - (cons #{x\ 4111}# - #{stuff\ 4125}#))) - #{tmp\ 4123}#) - ((lambda (#{else\ 4127}#) + (cons #{x\ 8925}# + #{stuff\ 8939}#))) + #{tmp\ 8937}#) + ((lambda (#{else\ 8941}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4126")) + #("i8940")) #(ribcage #(x y) #((top) (top)) - #("i4109" - "i4110")) + #("i8923" + "i8924")) #(ribcage () () @@ -13498,8 +13562,8 @@ #(x y) #((top) (top)) - #("i4104" - "i4105")) + #("i8918" + "i8919")) #(ribcage #(quasicons quasiappend @@ -13509,17 +13573,17 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{x\ 4111}# - #{y\ 4112}#)) - #{tmp\ 4113}#))) + #{x\ 8925}# + #{y\ 8926}#)) + #{tmp\ 8927}#))) ($sc-dispatch - #{tmp\ 4113}# + #{tmp\ 8927}# '(#(free-id #(syntax-object list @@ -13527,13 +13591,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4109" "i4110")) + #("i8923" "i8924")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4104" "i4105")) + #("i8918" "i8919")) #(ribcage #(quasicons quasiappend @@ -13543,15 +13607,15 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4113}# + #{tmp\ 8927}# '(#(free-id #(syntax-object quote @@ -13559,13 +13623,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4109" "i4110")) + #("i8923" "i8924")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4104" "i4105")) + #("i8918" "i8919")) #(ribcage #(quasicons quasiappend @@ -13575,44 +13639,44 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) any)))) - #{y\ 4112}#)) - #{tmp\ 4108}#) + #{y\ 8926}#)) + #{tmp\ 8922}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4107}#))) - ($sc-dispatch #{tmp\ 4107}# (quote (any any))))) - (list #{x\ 4102}# #{y\ 4103}#)))) - (#{quasiappend\ 4099}# - (lambda (#{x\ 4128}# #{y\ 4129}#) - ((lambda (#{tmp\ 4133}#) - ((lambda (#{tmp\ 4134}#) - (if #{tmp\ 4134}# - (apply (lambda (#{x\ 4137}# #{y\ 4138}#) - ((lambda (#{tmp\ 4139}#) - ((lambda (#{tmp\ 4140}#) - (if #{tmp\ 4140}# - (apply (lambda () #{x\ 4137}#) - #{tmp\ 4140}#) - ((lambda (#{_\ 4142}#) + #{tmp\ 8921}#))) + ($sc-dispatch #{tmp\ 8921}# (quote (any any))))) + (list #{x\ 8916}# #{y\ 8917}#)))) + (#{quasiappend\ 8913}# + (lambda (#{x\ 8942}# #{y\ 8943}#) + ((lambda (#{tmp\ 8947}#) + ((lambda (#{tmp\ 8948}#) + (if #{tmp\ 8948}# + (apply (lambda (#{x\ 8951}# #{y\ 8952}#) + ((lambda (#{tmp\ 8953}#) + ((lambda (#{tmp\ 8954}#) + (if #{tmp\ 8954}# + (apply (lambda () #{x\ 8951}#) + #{tmp\ 8954}#) + ((lambda (#{_\ 8956}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4141")) + #("i8955")) #(ribcage #(x y) #((top) (top)) - #("i4135" - "i4136")) + #("i8949" + "i8950")) #(ribcage () () @@ -13624,8 +13688,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4130" - "i4131")) + #("i8944" + "i8945")) #(ribcage #(quasicons quasiappend @@ -13635,16 +13699,16 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{x\ 4137}# - #{y\ 4138}#)) - #{tmp\ 4139}#))) + #{x\ 8951}# + #{y\ 8952}#)) + #{tmp\ 8953}#))) ($sc-dispatch - #{tmp\ 4139}# + #{tmp\ 8953}# '(#(free-id #(syntax-object quote @@ -13652,13 +13716,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4135" "i4136")) + #("i8949" "i8950")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4130" "i4131")) + #("i8944" "i8945")) #(ribcage #(quasicons quasiappend @@ -13668,45 +13732,45 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) ())))) - #{y\ 4138}#)) - #{tmp\ 4134}#) + #{y\ 8952}#)) + #{tmp\ 8948}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4133}#))) - ($sc-dispatch #{tmp\ 4133}# (quote (any any))))) - (list #{x\ 4128}# #{y\ 4129}#)))) - (#{quasivector\ 4100}# - (lambda (#{x\ 4143}#) - ((lambda (#{tmp\ 4146}#) - ((lambda (#{x\ 4148}#) - ((lambda (#{tmp\ 4149}#) - ((lambda (#{tmp\ 4150}#) - (if #{tmp\ 4150}# - (apply (lambda (#{x\ 4152}#) + #{tmp\ 8947}#))) + ($sc-dispatch #{tmp\ 8947}# (quote (any any))))) + (list #{x\ 8942}# #{y\ 8943}#)))) + (#{quasivector\ 8914}# + (lambda (#{x\ 8957}#) + ((lambda (#{tmp\ 8960}#) + ((lambda (#{x\ 8962}#) + ((lambda (#{tmp\ 8963}#) + ((lambda (#{tmp\ 8964}#) + (if #{tmp\ 8964}# + (apply (lambda (#{x\ 8966}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4151")) + #("i8965")) #(ribcage #(x) #((top)) - #("i4147")) + #("i8961")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4144")) + #("i8958")) #(ribcage #(quasicons quasiappend @@ -13716,28 +13780,28 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) (list->vector - #{x\ 4152}#))) - #{tmp\ 4150}#) - ((lambda (#{tmp\ 4154}#) - (if #{tmp\ 4154}# - (apply (lambda (#{x\ 4156}#) + #{x\ 8966}#))) + #{tmp\ 8964}#) + ((lambda (#{tmp\ 8968}#) + (if #{tmp\ 8968}# + (apply (lambda (#{x\ 8970}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4155")) + #("i8969")) #(ribcage #(x) #((top)) - #("i4147")) + #("i8961")) #(ribcage () () @@ -13749,7 +13813,7 @@ #(ribcage #(x) #((top)) - #("i4144")) + #("i8958")) #(ribcage #(quasicons quasiappend @@ -13759,31 +13823,31 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{x\ 4156}#)) - #{tmp\ 4154}#) - ((lambda (#{_\ 4159}#) + #{x\ 8970}#)) + #{tmp\ 8968}#) + ((lambda (#{_\ 8973}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4158")) + #("i8972")) #(ribcage #(x) #((top)) - #("i4147")) + #("i8961")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4144")) + #("i8958")) #(ribcage #(quasicons quasiappend @@ -13793,15 +13857,15 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{x\ 4148}#)) - #{tmp\ 4149}#))) + #{x\ 8962}#)) + #{tmp\ 8963}#))) ($sc-dispatch - #{tmp\ 4149}# + #{tmp\ 8963}# '(#(free-id #(syntax-object list @@ -13809,82 +13873,82 @@ #(ribcage #(x) #((top)) - #("i4147")) + #("i8961")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4144")) + #("i8958")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4149}# + #{tmp\ 8963}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4147")) + #(ribcage #(x) #((top)) #("i8961")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4144")) + #(ribcage #(x) #((top)) #("i8958")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) each-any)))) - #{x\ 4148}#)) - #{tmp\ 4146}#)) - #{x\ 4143}#))) - (#{quasi\ 4101}# - (lambda (#{p\ 4160}# #{lev\ 4161}#) - ((lambda (#{tmp\ 4164}#) - ((lambda (#{tmp\ 4165}#) - (if #{tmp\ 4165}# - (apply (lambda (#{p\ 4167}#) - (if (= #{lev\ 4161}# 0) - #{p\ 4167}# - (#{quasicons\ 4098}# + #{x\ 8962}#)) + #{tmp\ 8960}#)) + #{x\ 8957}#))) + (#{quasi\ 8915}# + (lambda (#{p\ 8974}# #{lev\ 8975}#) + ((lambda (#{tmp\ 8978}#) + ((lambda (#{tmp\ 8979}#) + (if #{tmp\ 8979}# + (apply (lambda (#{p\ 8981}#) + (if (= #{lev\ 8975}# 0) + #{p\ 8981}# + (#{quasicons\ 8912}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4166")) + #("i8980")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) #(syntax-object unquote @@ -13892,50 +13956,50 @@ #(ribcage #(p) #((top)) - #("i4166")) + #("i8980")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) - (#{quasi\ 4101}# - (list #{p\ 4167}#) - (- #{lev\ 4161}# 1))))) - #{tmp\ 4165}#) - ((lambda (#{tmp\ 4168}#) - (if (if #{tmp\ 4168}# - (apply (lambda (#{args\ 4170}#) - (= #{lev\ 4161}# 0)) - #{tmp\ 4168}#) + (#{quasi\ 8915}# + (list #{p\ 8981}#) + (- #{lev\ 8975}# 1))))) + #{tmp\ 8979}#) + ((lambda (#{tmp\ 8982}#) + (if (if #{tmp\ 8982}# + (apply (lambda (#{args\ 8984}#) + (= #{lev\ 8975}# 0)) + #{tmp\ 8982}#) #f) - (apply (lambda (#{args\ 4172}#) + (apply (lambda (#{args\ 8986}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4160}# + #{p\ 8974}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4171")) + #("i8985")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend @@ -13945,33 +14009,33 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{args\ 4172}#))) - #{tmp\ 4168}#) - ((lambda (#{tmp\ 4173}#) - (if #{tmp\ 4173}# - (apply (lambda (#{p\ 4176}# - #{q\ 4177}#) - (if (= #{lev\ 4161}# 0) - (#{quasiappend\ 4099}# - #{p\ 4176}# - (#{quasi\ 4101}# - #{q\ 4177}# - #{lev\ 4161}#)) - (#{quasicons\ 4098}# - (#{quasicons\ 4098}# + #{args\ 8986}#))) + #{tmp\ 8982}#) + ((lambda (#{tmp\ 8987}#) + (if #{tmp\ 8987}# + (apply (lambda (#{p\ 8990}# + #{q\ 8991}#) + (if (= #{lev\ 8975}# 0) + (#{quasiappend\ 8913}# + #{p\ 8990}# + (#{quasi\ 8915}# + #{q\ 8991}# + #{lev\ 8975}#)) + (#{quasicons\ 8912}# + (#{quasicons\ 8912}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4174" - "i4175")) + #("i8988" + "i8989")) #(ribcage () () @@ -13979,8 +14043,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" - "i4163")) + #("i8976" + "i8977")) #(ribcage #(quasicons quasiappend @@ -13990,10 +14054,10 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14001,8 +14065,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4174" - "i4175")) + #("i8988" + "i8989")) #(ribcage () () @@ -14010,8 +14074,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" - "i4163")) + #("i8976" + "i8977")) #(ribcage #(quasicons quasiappend @@ -14021,31 +14085,31 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) - (#{quasi\ 4101}# - (list #{p\ 4176}#) - (- #{lev\ 4161}# 1))) - (#{quasi\ 4101}# - #{q\ 4177}# - #{lev\ 4161}#)))) - #{tmp\ 4173}#) - ((lambda (#{tmp\ 4178}#) - (if (if #{tmp\ 4178}# - (apply (lambda (#{args\ 4181}# - #{q\ 4182}#) - (= #{lev\ 4161}# 0)) - #{tmp\ 4178}#) + (#{quasi\ 8915}# + (list #{p\ 8990}#) + (- #{lev\ 8975}# 1))) + (#{quasi\ 8915}# + #{q\ 8991}# + #{lev\ 8975}#)))) + #{tmp\ 8987}#) + ((lambda (#{tmp\ 8992}#) + (if (if #{tmp\ 8992}# + (apply (lambda (#{args\ 8995}# + #{q\ 8996}#) + (= #{lev\ 8975}# 0)) + #{tmp\ 8992}#) #f) - (apply (lambda (#{args\ 4185}# - #{q\ 4186}#) + (apply (lambda (#{args\ 8999}# + #{q\ 9000}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4160}# + #{p\ 8974}# (cons '#(syntax-object unquote-splicing ((top) @@ -14053,8 +14117,8 @@ #(args q) #((top) (top)) - #("i4183" - "i4184")) + #("i8997" + "i8998")) #(ribcage () () @@ -14063,8 +14127,8 @@ #(p lev) #((top) (top)) - #("i4162" - "i4163")) + #("i8976" + "i8977")) #(ribcage #(quasicons quasiappend @@ -14074,25 +14138,25 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{args\ 4185}#))) - #{tmp\ 4178}#) - ((lambda (#{tmp\ 4187}#) - (if #{tmp\ 4187}# - (apply (lambda (#{p\ 4189}#) - (#{quasicons\ 4098}# + #{args\ 8999}#))) + #{tmp\ 8992}#) + ((lambda (#{tmp\ 9001}#) + (if #{tmp\ 9001}# + (apply (lambda (#{p\ 9003}#) + (#{quasicons\ 8912}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4188")) + #("i9002")) #(ribcage () () @@ -14101,8 +14165,8 @@ #(p lev) #((top) (top)) - #("i4162" - "i4163")) + #("i8976" + "i8977")) #(ribcage #(quasicons quasiappend @@ -14112,10 +14176,10 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) #(syntax-object @@ -14124,7 +14188,7 @@ #(ribcage #(p) #((top)) - #("i4188")) + #("i9002")) #(ribcage () () @@ -14133,8 +14197,8 @@ #(p lev) #((top) (top)) - #("i4162" - "i4163")) + #("i8976" + "i8977")) #(ribcage #(quasicons quasiappend @@ -14144,45 +14208,45 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) - (#{quasi\ 4101}# - (list #{p\ 4189}#) - (+ #{lev\ 4161}# + (#{quasi\ 8915}# + (list #{p\ 9003}#) + (+ #{lev\ 8975}# 1)))) - #{tmp\ 4187}#) - ((lambda (#{tmp\ 4190}#) - (if #{tmp\ 4190}# - (apply (lambda (#{p\ 4193}# - #{q\ 4194}#) - (#{quasicons\ 4098}# - (#{quasi\ 4101}# - #{p\ 4193}# - #{lev\ 4161}#) - (#{quasi\ 4101}# - #{q\ 4194}# - #{lev\ 4161}#))) - #{tmp\ 4190}#) - ((lambda (#{tmp\ 4195}#) - (if #{tmp\ 4195}# - (apply (lambda (#{x\ 4197}#) - (#{quasivector\ 4100}# - (#{quasi\ 4101}# - #{x\ 4197}# - #{lev\ 4161}#))) - #{tmp\ 4195}#) - ((lambda (#{p\ 4200}#) + #{tmp\ 9001}#) + ((lambda (#{tmp\ 9004}#) + (if #{tmp\ 9004}# + (apply (lambda (#{p\ 9007}# + #{q\ 9008}#) + (#{quasicons\ 8912}# + (#{quasi\ 8915}# + #{p\ 9007}# + #{lev\ 8975}#) + (#{quasi\ 8915}# + #{q\ 9008}# + #{lev\ 8975}#))) + #{tmp\ 9004}#) + ((lambda (#{tmp\ 9009}#) + (if #{tmp\ 9009}# + (apply (lambda (#{x\ 9011}#) + (#{quasivector\ 8914}# + (#{quasi\ 8915}# + #{x\ 9011}# + #{lev\ 8975}#))) + #{tmp\ 9009}#) + ((lambda (#{p\ 9014}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4199")) + #("i9013")) #(ribcage () () @@ -14192,8 +14256,8 @@ lev) #((top) (top)) - #("i4162" - "i4163")) + #("i8976" + "i8977")) #(ribcage #(quasicons quasiappend @@ -14203,23 +14267,23 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile)) - #{p\ 4200}#)) - #{tmp\ 4164}#))) + #{p\ 9014}#)) + #{tmp\ 8978}#))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '(any . any))))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '(#(free-id #(syntax-object quasiquote @@ -14228,7 +14292,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend @@ -14238,14 +14302,14 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '((#(free-id #(syntax-object unquote-splicing @@ -14254,7 +14318,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend @@ -14264,17 +14328,17 @@ (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '((#(free-id #(syntax-object unquote-splicing @@ -14283,23 +14347,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" - "i4095" - "i4096" - "i4097"))) + #("i8908" + "i8909" + "i8910" + "i8911"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '(#(free-id #(syntax-object unquote @@ -14308,19 +14372,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" "i4095" "i4096" "i4097"))) + #("i8908" "i8909" "i8910" "i8911"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4164}# + #{tmp\ 8978}# '(#(free-id #(syntax-object unquote @@ -14329,244 +14393,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i4162" "i4163")) + #("i8976" "i8977")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4094" "i4095" "i4096" "i4097"))) + #("i8908" "i8909" "i8910" "i8911"))) (hygiene guile))) any)))) - #{p\ 4160}#)))) - (lambda (#{x\ 4201}#) - ((lambda (#{tmp\ 4203}#) - ((lambda (#{tmp\ 4204}#) - (if #{tmp\ 4204}# - (apply (lambda (#{_\ 4207}# #{e\ 4208}#) - (#{quasi\ 4101}# #{e\ 4208}# 0)) - #{tmp\ 4204}#) + #{p\ 8974}#)))) + (lambda (#{x\ 9015}#) + ((lambda (#{tmp\ 9017}#) + ((lambda (#{tmp\ 9018}#) + (if #{tmp\ 9018}# + (apply (lambda (#{_\ 9021}# #{e\ 9022}#) + (#{quasi\ 8915}# #{e\ 9022}# 0)) + #{tmp\ 9018}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4203}#))) - ($sc-dispatch #{tmp\ 4203}# (quote (any any))))) - #{x\ 4201}#))) + #{tmp\ 9017}#))) + ($sc-dispatch #{tmp\ 9017}# (quote (any any))))) + #{x\ 9015}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 4209}#) - (letrec ((#{read-file\ 4212}# - (lambda (#{fn\ 4213}# #{k\ 4214}#) - (let ((#{p\ 4218}# (open-input-file #{fn\ 4213}#))) - (letrec ((#{f\ 4222}# - (lambda (#{x\ 4223}# #{result\ 4224}#) - (if (eof-object? #{x\ 4223}#) + (cons (lambda (#{x\ 9023}#) + (letrec ((#{read-file\ 9026}# + (lambda (#{fn\ 9027}# #{k\ 9028}#) + (let ((#{p\ 9032}# (open-input-file #{fn\ 9027}#))) + (letrec ((#{f\ 9036}# + (lambda (#{x\ 9037}# #{result\ 9038}#) + (if (eof-object? #{x\ 9037}#) (begin - (close-input-port #{p\ 4218}#) - (reverse #{result\ 4224}#)) - (#{f\ 4222}# - (read #{p\ 4218}#) + (close-input-port #{p\ 9032}#) + (reverse #{result\ 9038}#)) + (#{f\ 9036}# + (read #{p\ 9032}#) (cons (datum->syntax - #{k\ 4214}# - #{x\ 4223}#) - #{result\ 4224}#)))))) - (#{f\ 4222}# (read #{p\ 4218}#) (quote ()))))))) - ((lambda (#{tmp\ 4225}#) - ((lambda (#{tmp\ 4226}#) - (if #{tmp\ 4226}# - (apply (lambda (#{k\ 4229}# #{filename\ 4230}#) - (let ((#{fn\ 4232}# - (syntax->datum #{filename\ 4230}#))) - ((lambda (#{tmp\ 4234}#) - ((lambda (#{tmp\ 4235}#) - (if #{tmp\ 4235}# - (apply (lambda (#{exp\ 4237}#) + #{k\ 9028}# + #{x\ 9037}#) + #{result\ 9038}#)))))) + (#{f\ 9036}# (read #{p\ 9032}#) (quote ()))))))) + ((lambda (#{tmp\ 9039}#) + ((lambda (#{tmp\ 9040}#) + (if #{tmp\ 9040}# + (apply (lambda (#{k\ 9043}# #{filename\ 9044}#) + (let ((#{fn\ 9046}# + (syntax->datum #{filename\ 9044}#))) + ((lambda (#{tmp\ 9048}#) + ((lambda (#{tmp\ 9049}#) + (if #{tmp\ 9049}# + (apply (lambda (#{exp\ 9051}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4236")) + #("i9050")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4231")) + #("i9045")) #(ribcage #(k filename) #((top) (top)) - #("i4227" - "i4228")) + #("i9041" + "i9042")) #(ribcage (read-file) ((top)) - ("i4211")) + ("i9025")) #(ribcage #(x) #((top)) - #("i4210"))) + #("i9024"))) (hygiene guile)) - #{exp\ 4237}#)) - #{tmp\ 4235}#) + #{exp\ 9051}#)) + #{tmp\ 9049}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4234}#))) + #{tmp\ 9048}#))) ($sc-dispatch - #{tmp\ 4234}# + #{tmp\ 9048}# 'each-any))) - (#{read-file\ 4212}# - #{fn\ 4232}# - #{k\ 4229}#)))) - #{tmp\ 4226}#) + (#{read-file\ 9026}# + #{fn\ 9046}# + #{k\ 9043}#)))) + #{tmp\ 9040}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4225}#))) - ($sc-dispatch #{tmp\ 4225}# (quote (any any))))) - #{x\ 4209}#))) + #{tmp\ 9039}#))) + ($sc-dispatch #{tmp\ 9039}# (quote (any any))))) + #{x\ 9023}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 4239}#) - ((lambda (#{tmp\ 4241}#) - ((lambda (#{tmp\ 4242}#) - (if #{tmp\ 4242}# - (apply (lambda (#{k\ 4245}# #{filename\ 4246}#) - (let ((#{fn\ 4248}# - (syntax->datum #{filename\ 4246}#))) - ((lambda (#{tmp\ 4250}#) - ((lambda (#{fn\ 4252}#) + (cons (lambda (#{x\ 9053}#) + ((lambda (#{tmp\ 9055}#) + ((lambda (#{tmp\ 9056}#) + (if #{tmp\ 9056}# + (apply (lambda (#{k\ 9059}# #{filename\ 9060}#) + (let ((#{fn\ 9062}# + (syntax->datum #{filename\ 9060}#))) + ((lambda (#{tmp\ 9064}#) + ((lambda (#{fn\ 9066}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4251")) + #("i9065")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4247")) + #("i9061")) #(ribcage #(k filename) #((top) (top)) - #("i4243" "i4244")) + #("i9057" "i9058")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4240"))) + #("i9054"))) (hygiene guile)) - #{fn\ 4252}#)) - #{tmp\ 4250}#)) - (let ((#{t\ 4255}# - (%search-load-path #{fn\ 4248}#))) - (if #{t\ 4255}# - #{t\ 4255}# + #{fn\ 9066}#)) + #{tmp\ 9064}#)) + (let ((#{t\ 9069}# + (%search-load-path #{fn\ 9062}#))) + (if #{t\ 9069}# + #{t\ 9069}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4239}# - #{filename\ 4246}#)))))) - #{tmp\ 4242}#) + #{x\ 9053}# + #{filename\ 9060}#)))))) + #{tmp\ 9056}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4241}#))) - ($sc-dispatch #{tmp\ 4241}# (quote (any any))))) - #{x\ 4239}#)) + #{tmp\ 9055}#))) + ($sc-dispatch #{tmp\ 9055}# (quote (any any))))) + #{x\ 9053}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 4257}#) - ((lambda (#{tmp\ 4259}#) - ((lambda (#{tmp\ 4260}#) - (if #{tmp\ 4260}# - (apply (lambda (#{_\ 4263}# #{e\ 4264}#) + (cons (lambda (#{x\ 9071}#) + ((lambda (#{tmp\ 9073}#) + ((lambda (#{tmp\ 9074}#) + (if #{tmp\ 9074}# + (apply (lambda (#{_\ 9077}# #{e\ 9078}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4257}#)) - #{tmp\ 4260}#) + #{x\ 9071}#)) + #{tmp\ 9074}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4259}#))) - ($sc-dispatch #{tmp\ 4259}# (quote (any any))))) - #{x\ 4257}#)) + #{tmp\ 9073}#))) + ($sc-dispatch #{tmp\ 9073}# (quote (any any))))) + #{x\ 9071}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 4265}#) - ((lambda (#{tmp\ 4267}#) - ((lambda (#{tmp\ 4268}#) - (if #{tmp\ 4268}# - (apply (lambda (#{_\ 4271}# #{e\ 4272}#) + (cons (lambda (#{x\ 9079}#) + ((lambda (#{tmp\ 9081}#) + ((lambda (#{tmp\ 9082}#) + (if #{tmp\ 9082}# + (apply (lambda (#{_\ 9085}# #{e\ 9086}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4265}#)) - #{tmp\ 4268}#) + #{x\ 9079}#)) + #{tmp\ 9082}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4267}#))) - ($sc-dispatch #{tmp\ 4267}# (quote (any any))))) - #{x\ 4265}#)) + #{tmp\ 9081}#))) + ($sc-dispatch #{tmp\ 9081}# (quote (any any))))) + #{x\ 9079}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 4273}#) - ((lambda (#{tmp\ 4275}#) - ((lambda (#{tmp\ 4276}#) - (if #{tmp\ 4276}# - (apply (lambda (#{_\ 4281}# - #{e\ 4282}# - #{m1\ 4283}# - #{m2\ 4284}#) - ((lambda (#{tmp\ 4286}#) - ((lambda (#{body\ 4288}#) + (cons (lambda (#{x\ 9087}#) + ((lambda (#{tmp\ 9089}#) + ((lambda (#{tmp\ 9090}#) + (if #{tmp\ 9090}# + (apply (lambda (#{_\ 9095}# + #{e\ 9096}# + #{m1\ 9097}# + #{m2\ 9098}#) + ((lambda (#{tmp\ 9100}#) + ((lambda (#{body\ 9102}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4287")) + #("i9101")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14574,35 +14638,35 @@ #(ribcage #(body) #((top)) - #("i4287")) + #("i9101")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) - #{e\ 4282}#)) - #{body\ 4288}#)) - #{tmp\ 4286}#)) - (letrec ((#{f\ 4292}# - (lambda (#{clause\ 4293}# - #{clauses\ 4294}#) - (if (null? #{clauses\ 4294}#) - ((lambda (#{tmp\ 4296}#) - ((lambda (#{tmp\ 4297}#) - (if #{tmp\ 4297}# - (apply (lambda (#{e1\ 4300}# - #{e2\ 4301}#) + #{e\ 9096}#)) + #{body\ 9102}#)) + #{tmp\ 9100}#)) + (letrec ((#{f\ 9106}# + (lambda (#{clause\ 9107}# + #{clauses\ 9108}#) + (if (null? #{clauses\ 9108}#) + ((lambda (#{tmp\ 9110}#) + ((lambda (#{tmp\ 9111}#) + (if #{tmp\ 9111}# + (apply (lambda (#{e1\ 9114}# + #{e2\ 9115}#) (cons '#(syntax-object begin ((top) @@ -14611,8 +14675,8 @@ e2) #((top) (top)) - #("i4298" - "i4299")) + #("i9112" + "i9113")) #(ribcage () () @@ -14624,9 +14688,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -14636,10 +14700,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -14647,17 +14711,17 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) - (cons #{e1\ 4300}# - #{e2\ 4301}#))) - #{tmp\ 4297}#) - ((lambda (#{tmp\ 4303}#) - (if #{tmp\ 4303}# - (apply (lambda (#{k\ 4307}# - #{e1\ 4308}# - #{e2\ 4309}#) + (cons #{e1\ 9114}# + #{e2\ 9115}#))) + #{tmp\ 9111}#) + ((lambda (#{tmp\ 9117}#) + (if #{tmp\ 9117}# + (apply (lambda (#{k\ 9121}# + #{e1\ 9122}# + #{e2\ 9123}#) (list '#(syntax-object if ((top) @@ -14668,9 +14732,9 @@ #((top) (top) (top)) - #("i4304" - "i4305" - "i4306")) + #("i9118" + "i9119" + "i9120")) #(ribcage () () @@ -14682,9 +14746,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -14694,10 +14758,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -14705,7 +14769,7 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) (list '#(syntax-object @@ -14718,9 +14782,9 @@ #((top) (top) (top)) - #("i4304" - "i4305" - "i4306")) + #("i9118" + "i9119" + "i9120")) #(ribcage () () @@ -14732,9 +14796,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -14744,10 +14808,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -14755,7 +14819,7 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) '#(syntax-object @@ -14768,9 +14832,9 @@ #((top) (top) (top)) - #("i4304" - "i4305" - "i4306")) + #("i9118" + "i9119" + "i9120")) #(ribcage () () @@ -14782,9 +14846,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -14794,10 +14858,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -14805,7 +14869,7 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) (list '#(syntax-object @@ -14818,9 +14882,9 @@ #((top) (top) (top)) - #("i4304" - "i4305" - "i4306")) + #("i9118" + "i9119" + "i9120")) #(ribcage () () @@ -14832,9 +14896,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -14844,10 +14908,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -14855,10 +14919,10 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) - #{k\ 4307}#)) + #{k\ 9121}#)) (cons '#(syntax-object begin ((top) @@ -14869,9 +14933,9 @@ #((top) (top) (top)) - #("i4304" - "i4305" - "i4306")) + #("i9118" + "i9119" + "i9120")) #(ribcage () () @@ -14883,9 +14947,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -14895,10 +14959,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -14906,27 +14970,27 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) - (cons #{e1\ 4308}# - #{e2\ 4309}#)))) - #{tmp\ 4303}#) - ((lambda (#{_\ 4313}#) + (cons #{e1\ 9122}# + #{e2\ 9123}#)))) + #{tmp\ 9117}#) + ((lambda (#{_\ 9127}#) (syntax-violation 'case "bad clause" - #{x\ 4273}# - #{clause\ 4293}#)) - #{tmp\ 4296}#))) + #{x\ 9087}# + #{clause\ 9107}#)) + #{tmp\ 9110}#))) ($sc-dispatch - #{tmp\ 4296}# + #{tmp\ 9110}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4296}# + #{tmp\ 9110}# '(#(free-id #(syntax-object else @@ -14937,37 +15001,37 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile))) any . each-any)))) - #{clause\ 4293}#) - ((lambda (#{tmp\ 4315}#) - ((lambda (#{rest\ 4317}#) - ((lambda (#{tmp\ 4318}#) - ((lambda (#{tmp\ 4319}#) - (if #{tmp\ 4319}# - (apply (lambda (#{k\ 4323}# - #{e1\ 4324}# - #{e2\ 4325}#) + #{clause\ 9107}#) + ((lambda (#{tmp\ 9129}#) + ((lambda (#{rest\ 9131}#) + ((lambda (#{tmp\ 9132}#) + ((lambda (#{tmp\ 9133}#) + (if #{tmp\ 9133}# + (apply (lambda (#{k\ 9137}# + #{e1\ 9138}# + #{e2\ 9139}#) (list '#(syntax-object if ((top) @@ -14978,13 +15042,13 @@ #((top) (top) (top)) - #("i4320" - "i4321" - "i4322")) + #("i9134" + "i9135" + "i9136")) #(ribcage #(rest) #((top)) - #("i4316")) + #("i9130")) #(ribcage () () @@ -14996,9 +15060,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -15008,10 +15072,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -15019,7 +15083,7 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) (list '#(syntax-object @@ -15032,13 +15096,13 @@ #((top) (top) (top)) - #("i4320" - "i4321" - "i4322")) + #("i9134" + "i9135" + "i9136")) #(ribcage #(rest) #((top)) - #("i4316")) + #("i9130")) #(ribcage () () @@ -15050,9 +15114,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -15062,10 +15126,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -15073,7 +15137,7 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) '#(syntax-object @@ -15086,13 +15150,13 @@ #((top) (top) (top)) - #("i4320" - "i4321" - "i4322")) + #("i9134" + "i9135" + "i9136")) #(ribcage #(rest) #((top)) - #("i4316")) + #("i9130")) #(ribcage () () @@ -15104,9 +15168,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -15116,10 +15180,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -15127,7 +15191,7 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) (list '#(syntax-object @@ -15140,13 +15204,13 @@ #((top) (top) (top)) - #("i4320" - "i4321" - "i4322")) + #("i9134" + "i9135" + "i9136")) #(ribcage #(rest) #((top)) - #("i4316")) + #("i9130")) #(ribcage () () @@ -15158,9 +15222,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -15170,10 +15234,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -15181,10 +15245,10 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) - #{k\ 4323}#)) + #{k\ 9137}#)) (cons '#(syntax-object begin ((top) @@ -15195,13 +15259,13 @@ #((top) (top) (top)) - #("i4320" - "i4321" - "i4322")) + #("i9134" + "i9135" + "i9136")) #(ribcage #(rest) #((top)) - #("i4316")) + #("i9130")) #(ribcage () () @@ -15213,9 +15277,9 @@ #((top) (top) (top)) - #("i4289" - "i4290" - "i4291")) + #("i9103" + "i9104" + "i9105")) #(ribcage #(_ e @@ -15225,10 +15289,10 @@ (top) (top) (top)) - #("i4277" - "i4278" - "i4279" - "i4280")) + #("i9091" + "i9092" + "i9093" + "i9094")) #(ribcage () () @@ -15236,61 +15300,61 @@ #(ribcage #(x) #((top)) - #("i4274"))) + #("i9088"))) (hygiene guile)) - (cons #{e1\ 4324}# - #{e2\ 4325}#)) - #{rest\ 4317}#)) - #{tmp\ 4319}#) - ((lambda (#{_\ 4329}#) + (cons #{e1\ 9138}# + #{e2\ 9139}#)) + #{rest\ 9131}#)) + #{tmp\ 9133}#) + ((lambda (#{_\ 9143}#) (syntax-violation 'case "bad clause" - #{x\ 4273}# - #{clause\ 4293}#)) - #{tmp\ 4318}#))) + #{x\ 9087}# + #{clause\ 9107}#)) + #{tmp\ 9132}#))) ($sc-dispatch - #{tmp\ 4318}# + #{tmp\ 9132}# '(each-any any . each-any)))) - #{clause\ 4293}#)) - #{tmp\ 4315}#)) - (#{f\ 4292}# - (car #{clauses\ 4294}#) - (cdr #{clauses\ 4294}#))))))) - (#{f\ 4292}# #{m1\ 4283}# #{m2\ 4284}#)))) - #{tmp\ 4276}#) + #{clause\ 9107}#)) + #{tmp\ 9129}#)) + (#{f\ 9106}# + (car #{clauses\ 9108}#) + (cdr #{clauses\ 9108}#))))))) + (#{f\ 9106}# #{m1\ 9097}# #{m2\ 9098}#)))) + #{tmp\ 9090}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4275}#))) + #{tmp\ 9089}#))) ($sc-dispatch - #{tmp\ 4275}# + #{tmp\ 9089}# '(any any any . each-any)))) - #{x\ 4273}#)) + #{x\ 9087}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 4330}#) - ((lambda (#{tmp\ 4332}#) - ((lambda (#{tmp\ 4333}#) - (if #{tmp\ 4333}# - (apply (lambda (#{_\ 4336}# #{e\ 4337}#) + (cons (lambda (#{x\ 9144}#) + ((lambda (#{tmp\ 9146}#) + ((lambda (#{tmp\ 9147}#) + (if #{tmp\ 9147}# + (apply (lambda (#{_\ 9150}# #{e\ 9151}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4331"))) + #(ribcage #(x) #((top)) #("i9145"))) (hygiene guile)) '(#(syntax-object x @@ -15298,9 +15362,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4331"))) + #(ribcage #(x) #((top)) #("i9145"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -15308,9 +15372,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4331"))) + #(ribcage #(x) #((top)) #("i9145"))) (hygiene guile)) . #(syntax-object @@ -15319,9 +15383,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4331"))) + #(ribcage #(x) #((top)) #("i9145"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -15329,12 +15393,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) '#(syntax-object x @@ -15342,12 +15406,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) '() (list '#(syntax-object @@ -15356,12 +15420,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) '(#(syntax-object identifier? @@ -15369,12 +15433,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) (#(syntax-object syntax @@ -15382,12 +15446,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) #(syntax-object id @@ -15395,12 +15459,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15408,27 +15472,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) - #{e\ 4337}#)) - (list (cons #{_\ 4336}# + #{e\ 9151}#)) + (list (cons #{_\ 9150}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) #(syntax-object ... @@ -15436,12 +15500,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15449,14 +15513,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i4334" "i4335")) + #("i9148" "i9149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) - (cons #{e\ 4337}# + (cons #{e\ 9151}# '(#(syntax-object x ((top) @@ -15464,8 +15528,8 @@ #(_ e) #((top) (top)) - #("i4334" - "i4335")) + #("i9148" + "i9149")) #(ribcage () () @@ -15473,7 +15537,7 @@ #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile)) #(syntax-object ... @@ -15482,8 +15546,8 @@ #(_ e) #((top) (top)) - #("i4334" - "i4335")) + #("i9148" + "i9149")) #(ribcage () () @@ -15491,72 +15555,72 @@ #(ribcage #(x) #((top)) - #("i4331"))) + #("i9145"))) (hygiene guile))))))))) - #{tmp\ 4333}#) + #{tmp\ 9147}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4332}#))) - ($sc-dispatch #{tmp\ 4332}# (quote (any any))))) - #{x\ 4330}#)) + #{tmp\ 9146}#))) + ($sc-dispatch #{tmp\ 9146}# (quote (any any))))) + #{x\ 9144}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 4338}#) - ((lambda (#{tmp\ 4340}#) - ((lambda (#{tmp\ 4341}#) - (if #{tmp\ 4341}# - (apply (lambda (#{_\ 4347}# - #{id\ 4348}# - #{args\ 4349}# - #{b0\ 4350}# - #{b1\ 4351}#) + (cons (lambda (#{x\ 9152}#) + ((lambda (#{tmp\ 9154}#) + ((lambda (#{tmp\ 9155}#) + (if #{tmp\ 9155}# + (apply (lambda (#{_\ 9161}# + #{id\ 9162}# + #{args\ 9163}# + #{b0\ 9164}# + #{b1\ 9165}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4342" - "i4343" - "i4344" - "i4345" - "i4346")) + #("i9156" + "i9157" + "i9158" + "i9159" + "i9160")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4339"))) + #(ribcage #(x) #((top)) #("i9153"))) (hygiene guile)) - #{id\ 4348}# + #{id\ 9162}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4342" - "i4343" - "i4344" - "i4345" - "i4346")) + #("i9156" + "i9157" + "i9158" + "i9159" + "i9160")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4339"))) + #("i9153"))) (hygiene guile)) - (cons #{args\ 4349}# - (cons #{b0\ 4350}# - #{b1\ 4351}#))))) - #{tmp\ 4341}#) - ((lambda (#{tmp\ 4353}#) - (if (if #{tmp\ 4353}# - (apply (lambda (#{_\ 4357}# - #{id\ 4358}# - #{val\ 4359}#) + (cons #{args\ 9163}# + (cons #{b0\ 9164}# + #{b1\ 9165}#))))) + #{tmp\ 9155}#) + ((lambda (#{tmp\ 9167}#) + (if (if #{tmp\ 9167}# + (apply (lambda (#{_\ 9171}# + #{id\ 9172}# + #{val\ 9173}#) (identifier? '#(syntax-object x @@ -15564,44 +15628,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i4354" "i4355" "i4356")) + #("i9168" "i9169" "i9170")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4339"))) + #("i9153"))) (hygiene guile)))) - #{tmp\ 4353}#) + #{tmp\ 9167}#) #f) - (apply (lambda (#{_\ 4363}# - #{id\ 4364}# - #{val\ 4365}#) + (apply (lambda (#{_\ 9177}# + #{id\ 9178}# + #{val\ 9179}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i4360" "i4361" "i4362")) + #("i9174" "i9175" "i9176")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4339"))) + #("i9153"))) (hygiene guile)) - #{id\ 4364}# - #{val\ 4365}#)) - #{tmp\ 4353}#) + #{id\ 9178}# + #{val\ 9179}#)) + #{tmp\ 9167}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4340}#))) + #{tmp\ 9154}#))) ($sc-dispatch - #{tmp\ 4340}# + #{tmp\ 9154}# '(any any any))))) ($sc-dispatch - #{tmp\ 4340}# + #{tmp\ 9154}# '(any (any . any) any . each-any)))) - #{x\ 4338}#)) + #{x\ 9152}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 3400bdbac..26cd9dd9e 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1160,9 +1160,9 @@ (syntax-type (chi-macro fval e r w rib mod) r empty-wrap s rib mod for-car?)) ((module-ref) - (call-with-values (lambda () (fval e)) - (lambda (sym mod) - (syntax-type sym r w s rib mod for-car?)))) + (call-with-values (lambda () (fval e r w)) + (lambda (e r w s mod) + (syntax-type e r w s rib mod for-car?)))) ((core) (values 'core-form fval e w s mod)) ((local-syntax) @@ -1325,9 +1325,9 @@ ;; apply transformer (value e r w s mod)) ((module-ref) - (call-with-values (lambda () (value e)) - ;; we could add a public? arg here - (lambda (id mod) (build-global-reference s id mod)))) + (call-with-values (lambda () (value e r w)) + (lambda (e r w s mod) + (chi e r w mod)))) ((lexical-call) (chi-application (build-lexical-reference 'fun (source-annotation (car e)) @@ -2213,9 +2213,12 @@ (case type ((module-ref) (let ((val (chi #'val r w mod))) - (call-with-values (lambda () (value #'(head tail ...))) - (lambda (id mod) - (build-global-assignment s id val mod))))) + (call-with-values (lambda () (value #'(head tail ...) r w)) + (lambda (e r w s* mod) + (syntax-case e () + (e (id? #'e) + (build-global-assignment s (syntax->datum #'e) + val mod))))))) (else (build-application s (chi #'(setter head) r w mod) @@ -2224,23 +2227,23 @@ (_ (syntax-violation 'set! "bad set!" (source-wrap e w s mod)))))) (global-extend 'module-ref '@ - (lambda (e) + (lambda (e r w) (syntax-case e () ((_ (mod ...) id) (and (and-map id? #'(mod ...)) (id? #'id)) - (values (syntax->datum #'id) + (values (syntax->datum #'id) r w #f (syntax->datum #'(public mod ...))))))) (global-extend 'module-ref '@@ - (lambda (e) + (lambda (e r w) (syntax-case e () ((_ (mod ...) id) (and (and-map id? #'(mod ...)) (id? #'id)) - (values (syntax->datum #'id) + (values (syntax->datum #'id) r w #f (syntax->datum #'(private mod ...))))))) - + (global-extend 'core 'if (lambda (e r w s mod) (syntax-case e ()