diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index f84119daa..338dffa50 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,644 +1,638 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 8874}# - (lambda (#{f\ 8936}# #{first\ 8937}# . #{rest\ 8938}#) - (let ((#{t\ 8944}# (null? #{first\ 8937}#))) - (if #{t\ 8944}# - #{t\ 8944}# - (if (null? #{rest\ 8938}#) - (letrec ((#{andmap\ 8948}# - (lambda (#{first\ 8949}#) - (let ((#{x\ 8952}# (car #{first\ 8949}#)) - (#{first\ 8953}# (cdr #{first\ 8949}#))) - (if (null? #{first\ 8953}#) - (#{f\ 8936}# #{x\ 8952}#) - (if (#{f\ 8936}# #{x\ 8952}#) - (#{andmap\ 8948}# #{first\ 8953}#) +(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}#) #f)))))) - (#{andmap\ 8948}# #{first\ 8937}#)) - (letrec ((#{andmap\ 8959}# - (lambda (#{first\ 8960}# #{rest\ 8961}#) - (let ((#{x\ 8966}# (car #{first\ 8960}#)) - (#{xr\ 8967}# (map car #{rest\ 8961}#)) - (#{first\ 8968}# (cdr #{first\ 8960}#)) - (#{rest\ 8969}# - (map cdr #{rest\ 8961}#))) - (if (null? #{first\ 8968}#) - (apply #{f\ 8936}# - (cons #{x\ 8966}# #{xr\ 8967}#)) - (if (apply #{f\ 8936}# - (cons #{x\ 8966}# #{xr\ 8967}#)) - (#{andmap\ 8959}# - #{first\ 8968}# - #{rest\ 8969}#) + (#{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}#) #f)))))) - (#{andmap\ 8959}# #{first\ 8937}# #{rest\ 8938}#)))))))) - (letrec ((#{lambda-var-list\ 9191}# - (lambda (#{vars\ 9406}#) - (letrec ((#{lvl\ 9412}# - (lambda (#{vars\ 9413}# #{ls\ 9414}# #{w\ 9415}#) - (if (pair? #{vars\ 9413}#) - (#{lvl\ 9412}# - (cdr #{vars\ 9413}#) - (cons (#{wrap\ 9145}# - (car #{vars\ 9413}#) - #{w\ 9415}# + (#{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}# #f) - #{ls\ 9414}#) - #{w\ 9415}#) - (if (#{id?\ 9076}# #{vars\ 9413}#) - (cons (#{wrap\ 9145}# - #{vars\ 9413}# - #{w\ 9415}# + #{ls\ 560}#) + #{w\ 561}#) + (if (#{id?\ 222}# #{vars\ 559}#) + (cons (#{wrap\ 291}# + #{vars\ 559}# + #{w\ 561}# #f) - #{ls\ 9414}#) - (if (null? #{vars\ 9413}#) - #{ls\ 9414}# - (if (#{syntax-object?\ 9040}# #{vars\ 9413}#) - (#{lvl\ 9412}# - (#{syntax-object-expression\ 9042}# - #{vars\ 9413}#) - #{ls\ 9414}# - (#{join-wraps\ 9127}# - #{w\ 9415}# - (#{syntax-object-wrap\ 9044}# - #{vars\ 9413}#))) - (cons #{vars\ 9413}# #{ls\ 9414}#)))))))) - (#{lvl\ 9412}# - #{vars\ 9406}# + #{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}# '() '(()))))) - (#{gen-var\ 9189}# - (lambda (#{id\ 9426}#) - (let ((#{id\ 9429}# - (if (#{syntax-object?\ 9040}# #{id\ 9426}#) - (#{syntax-object-expression\ 9042}# #{id\ 9426}#) - #{id\ 9426}#))) + (#{gen-var\ 335}# + (lambda (#{id\ 572}#) + (let ((#{id\ 575}# + (if (#{syntax-object?\ 186}# #{id\ 572}#) + (#{syntax-object-expression\ 188}# #{id\ 572}#) + #{id\ 572}#))) (gensym - (string-append (symbol->string #{id\ 9429}#) " "))))) - (#{strip\ 9187}# - (lambda (#{x\ 9431}# #{w\ 9432}#) + (string-append (symbol->string #{id\ 575}#) " "))))) + (#{strip\ 333}# + (lambda (#{x\ 577}# #{w\ 578}#) (if (memq 'top - (#{wrap-marks\ 9083}# #{w\ 9432}#)) - #{x\ 9431}# - (letrec ((#{f\ 9438}# - (lambda (#{x\ 9439}#) - (if (#{syntax-object?\ 9040}# #{x\ 9439}#) - (#{strip\ 9187}# - (#{syntax-object-expression\ 9042}# - #{x\ 9439}#) - (#{syntax-object-wrap\ 9044}# #{x\ 9439}#)) - (if (pair? #{x\ 9439}#) - (let ((#{a\ 9446}# - (#{f\ 9438}# (car #{x\ 9439}#))) - (#{d\ 9447}# - (#{f\ 9438}# (cdr #{x\ 9439}#)))) - (if (if (eq? #{a\ 9446}# (car #{x\ 9439}#)) - (eq? #{d\ 9447}# (cdr #{x\ 9439}#)) - #f) - #{x\ 9439}# - (cons #{a\ 9446}# #{d\ 9447}#))) - (if (vector? #{x\ 9439}#) - (let ((#{old\ 9453}# - (vector->list #{x\ 9439}#))) - (let ((#{new\ 9455}# - (map #{f\ 9438}# #{old\ 9453}#))) - (if (#{and-map*\ 8874}# - eq? - #{old\ 9453}# - #{new\ 9455}#) - #{x\ 9439}# - (list->vector #{new\ 9455}#)))) - #{x\ 9439}#)))))) - (#{f\ 9438}# #{x\ 9431}#))))) - (#{chi-lambda-case\ 9185}# - (lambda (#{e\ 9457}# - #{r\ 9458}# - #{w\ 9459}# - #{s\ 9460}# - #{mod\ 9461}# - #{get-formals\ 9462}# - #{clauses\ 9463}#) - (letrec ((#{expand-body\ 9478}# - (lambda (#{req\ 9479}# - #{opt\ 9480}# - #{rest\ 9481}# - #{kw\ 9482}# - #{body\ 9483}# - #{vars\ 9484}# - #{r*\ 9485}# - #{w*\ 9486}# - #{inits\ 9487}# - #{meta\ 9488}#) - ((lambda (#{tmp\ 9499}#) - ((lambda (#{tmp\ 9500}#) - (if (if #{tmp\ 9500}# - (apply (lambda (#{docstring\ 9504}# - #{e1\ 9505}# - #{e2\ 9506}#) + (#{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}#) (string? (syntax->datum - #{docstring\ 9504}#))) - #{tmp\ 9500}#) + #{docstring\ 650}#))) + #{tmp\ 646}#) #f) - (apply (lambda (#{docstring\ 9510}# - #{e1\ 9511}# - #{e2\ 9512}#) - (#{expand-body\ 9478}# - #{req\ 9479}# - #{opt\ 9480}# - #{rest\ 9481}# - #{kw\ 9482}# - (cons #{e1\ 9511}# #{e2\ 9512}#) - #{vars\ 9484}# - #{r*\ 9485}# - #{w*\ 9486}# - #{inits\ 9487}# + (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}# (append - #{meta\ 9488}# + #{meta\ 634}# (list (cons 'documentation (syntax->datum - #{docstring\ 9510}#)))))) - #{tmp\ 9500}#) - ((lambda (#{tmp\ 9515}#) - (if #{tmp\ 9515}# - (apply (lambda (#{k\ 9520}# - #{v\ 9521}# - #{e1\ 9522}# - #{e2\ 9523}#) - (#{expand-body\ 9478}# - #{req\ 9479}# - #{opt\ 9480}# - #{rest\ 9481}# - #{kw\ 9482}# - (cons #{e1\ 9522}# - #{e2\ 9523}#) - #{vars\ 9484}# - #{r*\ 9485}# - #{w*\ 9486}# - #{inits\ 9487}# + #{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}# (append - #{meta\ 9488}# + #{meta\ 634}# (syntax->datum (map cons - #{k\ 9520}# - #{v\ 9521}#))))) - #{tmp\ 9515}#) - ((lambda (#{tmp\ 9527}#) - (if #{tmp\ 9527}# - (apply (lambda (#{e1\ 9530}# - #{e2\ 9531}#) + #{k\ 666}# + #{v\ 667}#))))) + #{tmp\ 661}#) + ((lambda (#{tmp\ 673}#) + (if #{tmp\ 673}# + (apply (lambda (#{e1\ 676}# + #{e2\ 677}#) (values - #{meta\ 9488}# - #{req\ 9479}# - #{opt\ 9480}# - #{rest\ 9481}# - #{kw\ 9482}# - #{inits\ 9487}# - #{vars\ 9484}# - (#{chi-body\ 9169}# - (cons #{e1\ 9530}# - #{e2\ 9531}#) - (#{source-wrap\ 9147}# - #{e\ 9457}# - #{w\ 9459}# - #{s\ 9460}# - #{mod\ 9461}#) - #{r*\ 9485}# - #{w*\ 9486}# - #{mod\ 9461}#))) - #{tmp\ 9527}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9499}#))) + #{tmp\ 645}#))) ($sc-dispatch - #{tmp\ 9499}# + #{tmp\ 645}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 9499}# + #{tmp\ 645}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 9499}# + #{tmp\ 645}# '(any any . each-any)))) - #{body\ 9483}#))) - (#{expand-kw\ 9476}# - (lambda (#{req\ 9533}# - #{opt\ 9534}# - #{rest\ 9535}# - #{kw\ 9536}# - #{body\ 9537}# - #{vars\ 9538}# - #{r*\ 9539}# - #{w*\ 9540}# - #{aok\ 9541}# - #{out\ 9542}# - #{inits\ 9543}#) - (if (pair? #{kw\ 9536}#) - ((lambda (#{tmp\ 9557}#) - ((lambda (#{tmp\ 9558}#) - (if #{tmp\ 9558}# - (apply (lambda (#{k\ 9562}# - #{id\ 9563}# - #{i\ 9564}#) - (let ((#{v\ 9567}# - (#{gen-var\ 9189}# - #{id\ 9563}#))) - (let ((#{l\ 9569}# - (#{gen-labels\ 9094}# - (list #{v\ 9567}#)))) - (let ((#{r**\ 9571}# - (#{extend-var-env\ 9066}# - #{l\ 9569}# - (list #{v\ 9567}#) - #{r*\ 9539}#))) - (let ((#{w**\ 9573}# - (#{make-binding-wrap\ 9123}# - (list #{id\ 9563}#) - #{l\ 9569}# - #{w*\ 9540}#))) - (#{expand-kw\ 9476}# - #{req\ 9533}# - #{opt\ 9534}# - #{rest\ 9535}# - (cdr #{kw\ 9536}#) - #{body\ 9537}# - (cons #{v\ 9567}# - #{vars\ 9538}#) - #{r**\ 9571}# - #{w**\ 9573}# - #{aok\ 9541}# + #{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}# (cons (list (syntax->datum - #{k\ 9562}#) + #{k\ 708}#) (syntax->datum - #{id\ 9563}#) - #{v\ 9567}#) - #{out\ 9542}#) - (cons (#{chi\ 9161}# - #{i\ 9564}# - #{r*\ 9539}# - #{w*\ 9540}# - #{mod\ 9461}#) - #{inits\ 9543}#))))))) - #{tmp\ 9558}#) + #{id\ 709}#) + #{v\ 713}#) + #{out\ 688}#) + (cons (#{chi\ 307}# + #{i\ 710}# + #{r*\ 685}# + #{w*\ 686}# + #{mod\ 607}#) + #{inits\ 689}#))))))) + #{tmp\ 704}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9557}#))) + #{tmp\ 703}#))) ($sc-dispatch - #{tmp\ 9557}# + #{tmp\ 703}# '(any any any)))) - (car #{kw\ 9536}#)) - (#{expand-body\ 9478}# - #{req\ 9533}# - #{opt\ 9534}# - #{rest\ 9535}# - (if (let ((#{t\ 9577}# #{aok\ 9541}#)) - (if #{t\ 9577}# - #{t\ 9577}# - (pair? #{out\ 9542}#))) - (cons #{aok\ 9541}# (reverse #{out\ 9542}#)) + (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}#)) #f) - #{body\ 9537}# - (reverse #{vars\ 9538}#) - #{r*\ 9539}# - #{w*\ 9540}# - (reverse #{inits\ 9543}#) + #{body\ 683}# + (reverse #{vars\ 684}#) + #{r*\ 685}# + #{w*\ 686}# + (reverse #{inits\ 689}#) '())))) - (#{expand-opt\ 9474}# - (lambda (#{req\ 9579}# - #{opt\ 9580}# - #{rest\ 9581}# - #{kw\ 9582}# - #{body\ 9583}# - #{vars\ 9584}# - #{r*\ 9585}# - #{w*\ 9586}# - #{out\ 9587}# - #{inits\ 9588}#) - (if (pair? #{opt\ 9580}#) - ((lambda (#{tmp\ 9601}#) - ((lambda (#{tmp\ 9602}#) - (if #{tmp\ 9602}# - (apply (lambda (#{id\ 9605}# #{i\ 9606}#) - (let ((#{v\ 9609}# - (#{gen-var\ 9189}# - #{id\ 9605}#))) - (let ((#{l\ 9611}# - (#{gen-labels\ 9094}# - (list #{v\ 9609}#)))) - (let ((#{r**\ 9613}# - (#{extend-var-env\ 9066}# - #{l\ 9611}# - (list #{v\ 9609}#) - #{r*\ 9585}#))) - (let ((#{w**\ 9615}# - (#{make-binding-wrap\ 9123}# - (list #{id\ 9605}#) - #{l\ 9611}# - #{w*\ 9586}#))) - (#{expand-opt\ 9474}# - #{req\ 9579}# - (cdr #{opt\ 9580}#) - #{rest\ 9581}# - #{kw\ 9582}# - #{body\ 9583}# - (cons #{v\ 9609}# - #{vars\ 9584}#) - #{r**\ 9613}# - #{w**\ 9615}# + (#{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}# (cons (syntax->datum - #{id\ 9605}#) - #{out\ 9587}#) - (cons (#{chi\ 9161}# - #{i\ 9606}# - #{r*\ 9585}# - #{w*\ 9586}# - #{mod\ 9461}#) - #{inits\ 9588}#))))))) - #{tmp\ 9602}#) + #{id\ 751}#) + #{out\ 733}#) + (cons (#{chi\ 307}# + #{i\ 752}# + #{r*\ 731}# + #{w*\ 732}# + #{mod\ 607}#) + #{inits\ 734}#))))))) + #{tmp\ 748}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9601}#))) + #{tmp\ 747}#))) ($sc-dispatch - #{tmp\ 9601}# + #{tmp\ 747}# '(any any)))) - (car #{opt\ 9580}#)) - (if #{rest\ 9581}# - (let ((#{v\ 9620}# - (#{gen-var\ 9189}# #{rest\ 9581}#))) - (let ((#{l\ 9622}# - (#{gen-labels\ 9094}# - (list #{v\ 9620}#)))) - (let ((#{r*\ 9624}# - (#{extend-var-env\ 9066}# - #{l\ 9622}# - (list #{v\ 9620}#) - #{r*\ 9585}#))) - (let ((#{w*\ 9626}# - (#{make-binding-wrap\ 9123}# - (list #{rest\ 9581}#) - #{l\ 9622}# - #{w*\ 9586}#))) - (#{expand-kw\ 9476}# - #{req\ 9579}# - (if (pair? #{out\ 9587}#) - (reverse #{out\ 9587}#) + (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}#) #f) - (syntax->datum #{rest\ 9581}#) - (if (pair? #{kw\ 9582}#) - (cdr #{kw\ 9582}#) - #{kw\ 9582}#) - #{body\ 9583}# - (cons #{v\ 9620}# #{vars\ 9584}#) - #{r*\ 9624}# - #{w*\ 9626}# - (if (pair? #{kw\ 9582}#) - (car #{kw\ 9582}#) + (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}#) #f) '() - #{inits\ 9588}#))))) - (#{expand-kw\ 9476}# - #{req\ 9579}# - (if (pair? #{out\ 9587}#) - (reverse #{out\ 9587}#) + #{inits\ 734}#))))) + (#{expand-kw\ 622}# + #{req\ 725}# + (if (pair? #{out\ 733}#) + (reverse #{out\ 733}#) #f) #f - (if (pair? #{kw\ 9582}#) - (cdr #{kw\ 9582}#) - #{kw\ 9582}#) - #{body\ 9583}# - #{vars\ 9584}# - #{r*\ 9585}# - #{w*\ 9586}# - (if (pair? #{kw\ 9582}#) - (car #{kw\ 9582}#) - #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) '() - #{inits\ 9588}#))))) - (#{expand-req\ 9472}# - (lambda (#{req\ 9628}# - #{opt\ 9629}# - #{rest\ 9630}# - #{kw\ 9631}# - #{body\ 9632}#) - (let ((#{vars\ 9640}# - (map #{gen-var\ 9189}# #{req\ 9628}#)) - (#{labels\ 9641}# - (#{gen-labels\ 9094}# #{req\ 9628}#))) - (let ((#{r*\ 9644}# - (#{extend-var-env\ 9066}# - #{labels\ 9641}# - #{vars\ 9640}# - #{r\ 9458}#)) - (#{w*\ 9645}# - (#{make-binding-wrap\ 9123}# - #{req\ 9628}# - #{labels\ 9641}# - #{w\ 9459}#))) - (#{expand-opt\ 9474}# - (map syntax->datum #{req\ 9628}#) - #{opt\ 9629}# - #{rest\ 9630}# - #{kw\ 9631}# - #{body\ 9632}# - (reverse #{vars\ 9640}#) - #{r*\ 9644}# - #{w*\ 9645}# + #{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}# '() '())))))) - ((lambda (#{tmp\ 9646}#) - ((lambda (#{tmp\ 9647}#) - (if #{tmp\ 9647}# + ((lambda (#{tmp\ 792}#) + ((lambda (#{tmp\ 793}#) + (if #{tmp\ 793}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 9647}#) - ((lambda (#{tmp\ 9648}#) - (if #{tmp\ 9648}# - (apply (lambda (#{args\ 9655}# - #{e1\ 9656}# - #{e2\ 9657}# - #{args*\ 9658}# - #{e1*\ 9659}# - #{e2*\ 9660}#) + #{tmp\ 793}#) + ((lambda (#{tmp\ 794}#) + (if #{tmp\ 794}# + (apply (lambda (#{args\ 801}# + #{e1\ 802}# + #{e2\ 803}# + #{args*\ 804}# + #{e1*\ 805}# + #{e2*\ 806}#) (call-with-values (lambda () - (#{get-formals\ 9462}# - #{args\ 9655}#)) - (lambda (#{req\ 9661}# - #{opt\ 9662}# - #{rest\ 9663}# - #{kw\ 9664}#) + (#{get-formals\ 608}# + #{args\ 801}#)) + (lambda (#{req\ 807}# + #{opt\ 808}# + #{rest\ 809}# + #{kw\ 810}#) (call-with-values (lambda () - (#{expand-req\ 9472}# - #{req\ 9661}# - #{opt\ 9662}# - #{rest\ 9663}# - #{kw\ 9664}# - (cons #{e1\ 9656}# - #{e2\ 9657}#))) - (lambda (#{meta\ 9670}# - #{req\ 9671}# - #{opt\ 9672}# - #{rest\ 9673}# - #{kw\ 9674}# - #{inits\ 9675}# - #{vars\ 9676}# - #{body\ 9677}#) + (#{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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9185}# - #{e\ 9457}# - #{r\ 9458}# - #{w\ 9459}# - #{s\ 9460}# - #{mod\ 9461}# - #{get-formals\ 9462}# - (map (lambda (#{tmp\ 9688}# - #{tmp\ 9687}# - #{tmp\ 9686}#) - (cons #{tmp\ 9686}# - (cons #{tmp\ 9687}# - #{tmp\ 9688}#))) - #{e2*\ 9660}# - #{e1*\ 9659}# - #{args*\ 9658}#))) - (lambda (#{meta*\ 9690}# - #{else*\ 9691}#) + (#{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}#) (values (append - #{meta\ 9670}# - #{meta*\ 9690}#) - (#{build-lambda-case\ 9022}# - #{s\ 9460}# - #{req\ 9671}# - #{opt\ 9672}# - #{rest\ 9673}# - #{kw\ 9674}# - #{inits\ 9675}# - #{vars\ 9676}# - #{body\ 9677}# - #{else*\ 9691}#))))))))) - #{tmp\ 9648}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 9646}#))) + #{tmp\ 792}#))) ($sc-dispatch - #{tmp\ 9646}# + #{tmp\ 792}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 9646}# (quote ())))) - #{clauses\ 9463}#)))) - (#{lambda*-formals\ 9183}# - (lambda (#{orig-args\ 9694}#) - (letrec ((#{check\ 9705}# - (lambda (#{req\ 9706}# - #{opt\ 9707}# - #{rest\ 9708}# - #{kw\ 9709}#) - (if (#{distinct-bound-ids?\ 9141}# + ($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}# (append - #{req\ 9706}# - (map car #{opt\ 9707}#) - (if #{rest\ 9708}# - (list #{rest\ 9708}#) + #{req\ 852}# + (map car #{opt\ 853}#) + (if #{rest\ 854}# + (list #{rest\ 854}#) '()) - (if (pair? #{kw\ 9709}#) - (map cadr (cdr #{kw\ 9709}#)) + (if (pair? #{kw\ 855}#) + (map cadr (cdr #{kw\ 855}#)) '()))) (values - #{req\ 9706}# - #{opt\ 9707}# - #{rest\ 9708}# - #{kw\ 9709}#) + #{req\ 852}# + #{opt\ 853}# + #{rest\ 854}# + #{kw\ 855}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 9694}#)))) - (#{rest\ 9703}# - (lambda (#{args\ 9717}# - #{req\ 9718}# - #{opt\ 9719}# - #{kw\ 9720}#) - ((lambda (#{tmp\ 9725}#) - ((lambda (#{tmp\ 9726}#) - (if (if #{tmp\ 9726}# - (apply (lambda (#{r\ 9728}#) - (#{id?\ 9076}# #{r\ 9728}#)) - #{tmp\ 9726}#) + #{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}#) #f) - (apply (lambda (#{r\ 9730}#) - (#{check\ 9705}# - #{req\ 9718}# - #{opt\ 9719}# - #{r\ 9730}# - #{kw\ 9720}#)) - #{tmp\ 9726}#) - ((lambda (#{else\ 9732}#) + (apply (lambda (#{r\ 876}#) + (#{check\ 851}# + #{req\ 864}# + #{opt\ 865}# + #{r\ 876}# + #{kw\ 866}#)) + #{tmp\ 872}#) + ((lambda (#{else\ 878}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 9694}# - #{args\ 9717}#)) - #{tmp\ 9725}#))) - (list #{tmp\ 9725}#))) - #{args\ 9717}#))) - (#{key\ 9701}# - (lambda (#{args\ 9733}# - #{req\ 9734}# - #{opt\ 9735}# - #{rkey\ 9736}#) - ((lambda (#{tmp\ 9741}#) - ((lambda (#{tmp\ 9742}#) - (if #{tmp\ 9742}# + #{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}# (apply (lambda () - (#{check\ 9705}# - #{req\ 9734}# - #{opt\ 9735}# + (#{check\ 851}# + #{req\ 880}# + #{opt\ 881}# #f (cons #f - (reverse - #{rkey\ 9736}#)))) - #{tmp\ 9742}#) - ((lambda (#{tmp\ 9743}#) - (if (if #{tmp\ 9743}# - (apply (lambda (#{a\ 9746}# - #{b\ 9747}#) - (#{id?\ 9076}# - #{a\ 9746}#)) - #{tmp\ 9743}#) + (reverse #{rkey\ 882}#)))) + #{tmp\ 888}#) + ((lambda (#{tmp\ 889}#) + (if (if #{tmp\ 889}# + (apply (lambda (#{a\ 892}# + #{b\ 893}#) + (#{id?\ 222}# + #{a\ 892}#)) + #{tmp\ 889}#) #f) - (apply (lambda (#{a\ 9750}# - #{b\ 9751}#) - ((lambda (#{tmp\ 9753}#) - ((lambda (#{k\ 9755}#) - (#{key\ 9701}# - #{b\ 9751}# - #{req\ 9734}# - #{opt\ 9735}# - (cons (cons #{k\ 9755}# - (cons #{a\ 9750}# + (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}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i9754")) + #("i900")) #(ribcage #(a b) #((top) (top)) - #("i9748" - "i9749")) + #("i894" + "i895")) #(ribcage () () @@ -652,10 +646,10 @@ (top) (top) (top)) - #("i9737" - "i9738" - "i9739" - "i9740")) + #("i883" + "i884" + "i885" + "i886")) #(ribcage (check rest key @@ -666,15 +660,15 @@ (top) (top) (top)) - ("i9704" - "i9702" - "i9700" - "i9698" - "i9696")) + ("i850" + "i848" + "i846" + "i844" + "i842")) #(ribcage #(orig-args) #((top)) - #("i9695")) + #("i841")) #(ribcage (lambda-var-list gen-var @@ -912,350 +906,350 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" - "i8873"))) + ("i21" + "i19"))) (hygiene guile))))) - #{rkey\ 9736}#))) - #{tmp\ 9753}#)) + #{rkey\ 882}#))) + #{tmp\ 899}#)) (symbol->keyword (syntax->datum - #{a\ 9750}#)))) - #{tmp\ 9743}#) - ((lambda (#{tmp\ 9756}#) - (if (if #{tmp\ 9756}# - (apply (lambda (#{a\ 9760}# - #{init\ 9761}# - #{b\ 9762}#) - (#{id?\ 9076}# - #{a\ 9760}#)) - #{tmp\ 9756}#) + #{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}#) #f) - (apply (lambda (#{a\ 9766}# - #{init\ 9767}# - #{b\ 9768}#) - ((lambda (#{tmp\ 9770}#) - ((lambda (#{k\ 9772}#) - (#{key\ 9701}# - #{b\ 9768}# - #{req\ 9734}# - #{opt\ 9735}# - (cons (list #{k\ 9772}# - #{a\ 9766}# - #{init\ 9767}#) - #{rkey\ 9736}#))) - #{tmp\ 9770}#)) + (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}#)) (symbol->keyword (syntax->datum - #{a\ 9766}#)))) - #{tmp\ 9756}#) - ((lambda (#{tmp\ 9773}#) - (if (if #{tmp\ 9773}# - (apply (lambda (#{a\ 9778}# - #{init\ 9779}# - #{k\ 9780}# - #{b\ 9781}#) - (if (#{id?\ 9076}# - #{a\ 9778}#) + #{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}#) (keyword? (syntax->datum - #{k\ 9780}#)) + #{k\ 926}#)) #f)) - #{tmp\ 9773}#) + #{tmp\ 919}#) #f) - (apply (lambda (#{a\ 9788}# - #{init\ 9789}# - #{k\ 9790}# - #{b\ 9791}#) - (#{key\ 9701}# - #{b\ 9791}# - #{req\ 9734}# - #{opt\ 9735}# - (cons (list #{k\ 9790}# - #{a\ 9788}# - #{init\ 9789}#) - #{rkey\ 9736}#))) - #{tmp\ 9773}#) - ((lambda (#{tmp\ 9792}#) - (if (if #{tmp\ 9792}# - (apply (lambda (#{aok\ 9794}#) + (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}#) (eq? (syntax->datum - #{aok\ 9794}#) + #{aok\ 940}#) #:allow-other-keys)) - #{tmp\ 9792}#) + #{tmp\ 938}#) #f) - (apply (lambda (#{aok\ 9796}#) - (#{check\ 9705}# - #{req\ 9734}# - #{opt\ 9735}# + (apply (lambda (#{aok\ 942}#) + (#{check\ 851}# + #{req\ 880}# + #{opt\ 881}# #f (cons #t (reverse - #{rkey\ 9736}#)))) - #{tmp\ 9792}#) - ((lambda (#{tmp\ 9797}#) - (if (if #{tmp\ 9797}# - (apply (lambda (#{aok\ 9801}# - #{a\ 9802}# - #{b\ 9803}#) + #{rkey\ 882}#)))) + #{tmp\ 938}#) + ((lambda (#{tmp\ 943}#) + (if (if #{tmp\ 943}# + (apply (lambda (#{aok\ 947}# + #{a\ 948}# + #{b\ 949}#) (if (eq? (syntax->datum - #{aok\ 9801}#) + #{aok\ 947}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 9802}#) + #{a\ 948}#) #:rest) #f)) - #{tmp\ 9797}#) + #{tmp\ 943}#) #f) - (apply (lambda (#{aok\ 9809}# - #{a\ 9810}# - #{b\ 9811}#) - (#{rest\ 9703}# - #{b\ 9811}# - #{req\ 9734}# - #{opt\ 9735}# + (apply (lambda (#{aok\ 955}# + #{a\ 956}# + #{b\ 957}#) + (#{rest\ 849}# + #{b\ 957}# + #{req\ 880}# + #{opt\ 881}# (cons #t (reverse - #{rkey\ 9736}#)))) - #{tmp\ 9797}#) - ((lambda (#{tmp\ 9812}#) - (if (if #{tmp\ 9812}# - (apply (lambda (#{aok\ 9815}# - #{r\ 9816}#) + #{rkey\ 882}#)))) + #{tmp\ 943}#) + ((lambda (#{tmp\ 958}#) + (if (if #{tmp\ 958}# + (apply (lambda (#{aok\ 961}# + #{r\ 962}#) (if (eq? (syntax->datum - #{aok\ 9815}#) + #{aok\ 961}#) #:allow-other-keys) - (#{id?\ 9076}# - #{r\ 9816}#) + (#{id?\ 222}# + #{r\ 962}#) #f)) - #{tmp\ 9812}#) + #{tmp\ 958}#) #f) - (apply (lambda (#{aok\ 9821}# - #{r\ 9822}#) - (#{rest\ 9703}# - #{r\ 9822}# - #{req\ 9734}# - #{opt\ 9735}# + (apply (lambda (#{aok\ 967}# + #{r\ 968}#) + (#{rest\ 849}# + #{r\ 968}# + #{req\ 880}# + #{opt\ 881}# (cons #t (reverse - #{rkey\ 9736}#)))) - #{tmp\ 9812}#) - ((lambda (#{tmp\ 9823}#) - (if (if #{tmp\ 9823}# - (apply (lambda (#{a\ 9826}# - #{b\ 9827}#) + #{rkey\ 882}#)))) + #{tmp\ 958}#) + ((lambda (#{tmp\ 969}#) + (if (if #{tmp\ 969}# + (apply (lambda (#{a\ 972}# + #{b\ 973}#) (eq? (syntax->datum - #{a\ 9826}#) + #{a\ 972}#) #:rest)) - #{tmp\ 9823}#) + #{tmp\ 969}#) #f) - (apply (lambda (#{a\ 9830}# - #{b\ 9831}#) - (#{rest\ 9703}# - #{b\ 9831}# - #{req\ 9734}# - #{opt\ 9735}# + (apply (lambda (#{a\ 976}# + #{b\ 977}#) + (#{rest\ 849}# + #{b\ 977}# + #{req\ 880}# + #{opt\ 881}# (cons #f (reverse - #{rkey\ 9736}#)))) - #{tmp\ 9823}#) - ((lambda (#{tmp\ 9832}#) - (if (if #{tmp\ 9832}# - (apply (lambda (#{r\ 9834}#) - (#{id?\ 9076}# - #{r\ 9834}#)) - #{tmp\ 9832}#) + #{rkey\ 882}#)))) + #{tmp\ 969}#) + ((lambda (#{tmp\ 978}#) + (if (if #{tmp\ 978}# + (apply (lambda (#{r\ 980}#) + (#{id?\ 222}# + #{r\ 980}#)) + #{tmp\ 978}#) #f) - (apply (lambda (#{r\ 9836}#) - (#{rest\ 9703}# - #{r\ 9836}# - #{req\ 9734}# - #{opt\ 9735}# + (apply (lambda (#{r\ 982}#) + (#{rest\ 849}# + #{r\ 982}# + #{req\ 880}# + #{opt\ 881}# (cons #f (reverse - #{rkey\ 9736}#)))) - #{tmp\ 9832}#) - ((lambda (#{else\ 9838}#) + #{rkey\ 882}#)))) + #{tmp\ 978}#) + ((lambda (#{else\ 984}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 9694}# - #{args\ 9733}#)) - #{tmp\ 9741}#))) - (list #{tmp\ 9741}#)))) + #{orig-args\ 840}# + #{args\ 879}#)) + #{tmp\ 887}#))) + (list #{tmp\ 887}#)))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '(any any))))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '(any . any))))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '(any any any))))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '(any))))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 9741}# + #{tmp\ 887}# '(any . any))))) - ($sc-dispatch #{tmp\ 9741}# (quote ())))) - #{args\ 9733}#))) - (#{opt\ 9699}# - (lambda (#{args\ 9839}# #{req\ 9840}# #{ropt\ 9841}#) - ((lambda (#{tmp\ 9845}#) - ((lambda (#{tmp\ 9846}#) - (if #{tmp\ 9846}# + ($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}# (apply (lambda () - (#{check\ 9705}# - #{req\ 9840}# - (reverse #{ropt\ 9841}#) + (#{check\ 851}# + #{req\ 986}# + (reverse #{ropt\ 987}#) #f '())) - #{tmp\ 9846}#) - ((lambda (#{tmp\ 9847}#) - (if (if #{tmp\ 9847}# - (apply (lambda (#{a\ 9850}# - #{b\ 9851}#) - (#{id?\ 9076}# - #{a\ 9850}#)) - #{tmp\ 9847}#) + #{tmp\ 992}#) + ((lambda (#{tmp\ 993}#) + (if (if #{tmp\ 993}# + (apply (lambda (#{a\ 996}# + #{b\ 997}#) + (#{id?\ 222}# + #{a\ 996}#)) + #{tmp\ 993}#) #f) - (apply (lambda (#{a\ 9854}# - #{b\ 9855}#) - (#{opt\ 9699}# - #{b\ 9855}# - #{req\ 9840}# - (cons (cons #{a\ 9854}# + (apply (lambda (#{a\ 1000}# + #{b\ 1001}#) + (#{opt\ 845}# + #{b\ 1001}# + #{req\ 986}# + (cons (cons #{a\ 1000}# '(#(syntax-object #f ((top) @@ -1263,8 +1257,8 @@ #(a b) #((top) (top)) - #("i9852" - "i9853")) + #("i998" + "i999")) #(ribcage () () @@ -1276,9 +1270,9 @@ #((top) (top) (top)) - #("i9842" - "i9843" - "i9844")) + #("i988" + "i989" + "i990")) #(ribcage (check rest key @@ -1289,15 +1283,15 @@ (top) (top) (top)) - ("i9704" - "i9702" - "i9700" - "i9698" - "i9696")) + ("i850" + "i848" + "i846" + "i844" + "i842")) #(ribcage #(orig-args) #((top)) - #("i9695")) + #("i841")) #(ribcage (lambda-var-list gen-var @@ -1535,463 +1529,463 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" - "i8873"))) + ("i21" + "i19"))) (hygiene guile)))) - #{ropt\ 9841}#))) - #{tmp\ 9847}#) - ((lambda (#{tmp\ 9856}#) - (if (if #{tmp\ 9856}# - (apply (lambda (#{a\ 9860}# - #{init\ 9861}# - #{b\ 9862}#) - (#{id?\ 9076}# - #{a\ 9860}#)) - #{tmp\ 9856}#) + #{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}#) #f) - (apply (lambda (#{a\ 9866}# - #{init\ 9867}# - #{b\ 9868}#) - (#{opt\ 9699}# - #{b\ 9868}# - #{req\ 9840}# - (cons (list #{a\ 9866}# - #{init\ 9867}#) - #{ropt\ 9841}#))) - #{tmp\ 9856}#) - ((lambda (#{tmp\ 9869}#) - (if (if #{tmp\ 9869}# - (apply (lambda (#{a\ 9872}# - #{b\ 9873}#) + (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}#) (eq? (syntax->datum - #{a\ 9872}#) + #{a\ 1018}#) #:key)) - #{tmp\ 9869}#) + #{tmp\ 1015}#) #f) - (apply (lambda (#{a\ 9876}# - #{b\ 9877}#) - (#{key\ 9701}# - #{b\ 9877}# - #{req\ 9840}# + (apply (lambda (#{a\ 1022}# + #{b\ 1023}#) + (#{key\ 847}# + #{b\ 1023}# + #{req\ 986}# (reverse - #{ropt\ 9841}#) + #{ropt\ 987}#) '())) - #{tmp\ 9869}#) - ((lambda (#{tmp\ 9878}#) - (if (if #{tmp\ 9878}# - (apply (lambda (#{a\ 9881}# - #{b\ 9882}#) + #{tmp\ 1015}#) + ((lambda (#{tmp\ 1024}#) + (if (if #{tmp\ 1024}# + (apply (lambda (#{a\ 1027}# + #{b\ 1028}#) (eq? (syntax->datum - #{a\ 9881}#) + #{a\ 1027}#) #:rest)) - #{tmp\ 9878}#) + #{tmp\ 1024}#) #f) - (apply (lambda (#{a\ 9885}# - #{b\ 9886}#) - (#{rest\ 9703}# - #{b\ 9886}# - #{req\ 9840}# + (apply (lambda (#{a\ 1031}# + #{b\ 1032}#) + (#{rest\ 849}# + #{b\ 1032}# + #{req\ 986}# (reverse - #{ropt\ 9841}#) + #{ropt\ 987}#) '())) - #{tmp\ 9878}#) - ((lambda (#{tmp\ 9887}#) - (if (if #{tmp\ 9887}# - (apply (lambda (#{r\ 9889}#) - (#{id?\ 9076}# - #{r\ 9889}#)) - #{tmp\ 9887}#) + #{tmp\ 1024}#) + ((lambda (#{tmp\ 1033}#) + (if (if #{tmp\ 1033}# + (apply (lambda (#{r\ 1035}#) + (#{id?\ 222}# + #{r\ 1035}#)) + #{tmp\ 1033}#) #f) - (apply (lambda (#{r\ 9891}#) - (#{rest\ 9703}# - #{r\ 9891}# - #{req\ 9840}# + (apply (lambda (#{r\ 1037}#) + (#{rest\ 849}# + #{r\ 1037}# + #{req\ 986}# (reverse - #{ropt\ 9841}#) + #{ropt\ 987}#) '())) - #{tmp\ 9887}#) - ((lambda (#{else\ 9893}#) + #{tmp\ 1033}#) + ((lambda (#{else\ 1039}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 9694}# - #{args\ 9839}#)) - #{tmp\ 9845}#))) - (list #{tmp\ 9845}#)))) + #{orig-args\ 840}# + #{args\ 985}#)) + #{tmp\ 991}#))) + (list #{tmp\ 991}#)))) ($sc-dispatch - #{tmp\ 9845}# + #{tmp\ 991}# '(any any))))) ($sc-dispatch - #{tmp\ 9845}# + #{tmp\ 991}# '(any . any))))) ($sc-dispatch - #{tmp\ 9845}# + #{tmp\ 991}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 9845}# + #{tmp\ 991}# '(any . any))))) - ($sc-dispatch #{tmp\ 9845}# (quote ())))) - #{args\ 9839}#))) - (#{req\ 9697}# - (lambda (#{args\ 9894}# #{rreq\ 9895}#) - ((lambda (#{tmp\ 9898}#) - ((lambda (#{tmp\ 9899}#) - (if #{tmp\ 9899}# + ($sc-dispatch #{tmp\ 991}# (quote ())))) + #{args\ 985}#))) + (#{req\ 843}# + (lambda (#{args\ 1040}# #{rreq\ 1041}#) + ((lambda (#{tmp\ 1044}#) + ((lambda (#{tmp\ 1045}#) + (if #{tmp\ 1045}# (apply (lambda () - (#{check\ 9705}# - (reverse #{rreq\ 9895}#) + (#{check\ 851}# + (reverse #{rreq\ 1041}#) '() #f '())) - #{tmp\ 9899}#) - ((lambda (#{tmp\ 9900}#) - (if (if #{tmp\ 9900}# - (apply (lambda (#{a\ 9903}# - #{b\ 9904}#) - (#{id?\ 9076}# - #{a\ 9903}#)) - #{tmp\ 9900}#) + #{tmp\ 1045}#) + ((lambda (#{tmp\ 1046}#) + (if (if #{tmp\ 1046}# + (apply (lambda (#{a\ 1049}# + #{b\ 1050}#) + (#{id?\ 222}# + #{a\ 1049}#)) + #{tmp\ 1046}#) #f) - (apply (lambda (#{a\ 9907}# - #{b\ 9908}#) - (#{req\ 9697}# - #{b\ 9908}# - (cons #{a\ 9907}# - #{rreq\ 9895}#))) - #{tmp\ 9900}#) - ((lambda (#{tmp\ 9909}#) - (if (if #{tmp\ 9909}# - (apply (lambda (#{a\ 9912}# - #{b\ 9913}#) + (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}#) (eq? (syntax->datum - #{a\ 9912}#) + #{a\ 1058}#) #:optional)) - #{tmp\ 9909}#) + #{tmp\ 1055}#) #f) - (apply (lambda (#{a\ 9916}# - #{b\ 9917}#) - (#{opt\ 9699}# - #{b\ 9917}# + (apply (lambda (#{a\ 1062}# + #{b\ 1063}#) + (#{opt\ 845}# + #{b\ 1063}# (reverse - #{rreq\ 9895}#) + #{rreq\ 1041}#) '())) - #{tmp\ 9909}#) - ((lambda (#{tmp\ 9918}#) - (if (if #{tmp\ 9918}# - (apply (lambda (#{a\ 9921}# - #{b\ 9922}#) + #{tmp\ 1055}#) + ((lambda (#{tmp\ 1064}#) + (if (if #{tmp\ 1064}# + (apply (lambda (#{a\ 1067}# + #{b\ 1068}#) (eq? (syntax->datum - #{a\ 9921}#) + #{a\ 1067}#) #:key)) - #{tmp\ 9918}#) + #{tmp\ 1064}#) #f) - (apply (lambda (#{a\ 9925}# - #{b\ 9926}#) - (#{key\ 9701}# - #{b\ 9926}# + (apply (lambda (#{a\ 1071}# + #{b\ 1072}#) + (#{key\ 847}# + #{b\ 1072}# (reverse - #{rreq\ 9895}#) + #{rreq\ 1041}#) '() '())) - #{tmp\ 9918}#) - ((lambda (#{tmp\ 9927}#) - (if (if #{tmp\ 9927}# - (apply (lambda (#{a\ 9930}# - #{b\ 9931}#) + #{tmp\ 1064}#) + ((lambda (#{tmp\ 1073}#) + (if (if #{tmp\ 1073}# + (apply (lambda (#{a\ 1076}# + #{b\ 1077}#) (eq? (syntax->datum - #{a\ 9930}#) + #{a\ 1076}#) #:rest)) - #{tmp\ 9927}#) + #{tmp\ 1073}#) #f) - (apply (lambda (#{a\ 9934}# - #{b\ 9935}#) - (#{rest\ 9703}# - #{b\ 9935}# + (apply (lambda (#{a\ 1080}# + #{b\ 1081}#) + (#{rest\ 849}# + #{b\ 1081}# (reverse - #{rreq\ 9895}#) + #{rreq\ 1041}#) '() '())) - #{tmp\ 9927}#) - ((lambda (#{tmp\ 9936}#) - (if (if #{tmp\ 9936}# - (apply (lambda (#{r\ 9938}#) - (#{id?\ 9076}# - #{r\ 9938}#)) - #{tmp\ 9936}#) + #{tmp\ 1073}#) + ((lambda (#{tmp\ 1082}#) + (if (if #{tmp\ 1082}# + (apply (lambda (#{r\ 1084}#) + (#{id?\ 222}# + #{r\ 1084}#)) + #{tmp\ 1082}#) #f) - (apply (lambda (#{r\ 9940}#) - (#{rest\ 9703}# - #{r\ 9940}# + (apply (lambda (#{r\ 1086}#) + (#{rest\ 849}# + #{r\ 1086}# (reverse - #{rreq\ 9895}#) + #{rreq\ 1041}#) '() '())) - #{tmp\ 9936}#) - ((lambda (#{else\ 9942}#) + #{tmp\ 1082}#) + ((lambda (#{else\ 1088}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 9694}# - #{args\ 9894}#)) - #{tmp\ 9898}#))) - (list #{tmp\ 9898}#)))) + #{orig-args\ 840}# + #{args\ 1040}#)) + #{tmp\ 1044}#))) + (list #{tmp\ 1044}#)))) ($sc-dispatch - #{tmp\ 9898}# + #{tmp\ 1044}# '(any any))))) ($sc-dispatch - #{tmp\ 9898}# + #{tmp\ 1044}# '(any . any))))) ($sc-dispatch - #{tmp\ 9898}# + #{tmp\ 1044}# '(any . any))))) ($sc-dispatch - #{tmp\ 9898}# + #{tmp\ 1044}# '(any . any))))) - ($sc-dispatch #{tmp\ 9898}# (quote ())))) - #{args\ 9894}#)))) - (#{req\ 9697}# #{orig-args\ 9694}# (quote ()))))) - (#{chi-simple-lambda\ 9181}# - (lambda (#{e\ 9943}# - #{r\ 9944}# - #{w\ 9945}# - #{s\ 9946}# - #{mod\ 9947}# - #{req\ 9948}# - #{rest\ 9949}# - #{meta\ 9950}# - #{body\ 9951}#) - (let ((#{ids\ 9963}# - (if #{rest\ 9949}# - (append #{req\ 9948}# (list #{rest\ 9949}#)) - #{req\ 9948}#))) - (let ((#{vars\ 9965}# - (map #{gen-var\ 9189}# #{ids\ 9963}#))) - (let ((#{labels\ 9967}# - (#{gen-labels\ 9094}# #{ids\ 9963}#))) - (#{build-simple-lambda\ 9018}# - #{s\ 9946}# - (map syntax->datum #{req\ 9948}#) - (if #{rest\ 9949}# - (syntax->datum #{rest\ 9949}#) + ($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}#) #f) - #{vars\ 9965}# - #{meta\ 9950}# - (#{chi-body\ 9169}# - #{body\ 9951}# - (#{source-wrap\ 9147}# - #{e\ 9943}# - #{w\ 9945}# - #{s\ 9946}# - #{mod\ 9947}#) - (#{extend-var-env\ 9066}# - #{labels\ 9967}# - #{vars\ 9965}# - #{r\ 9944}#) - (#{make-binding-wrap\ 9123}# - #{ids\ 9963}# - #{labels\ 9967}# - #{w\ 9945}#) - #{mod\ 9947}#))))))) - (#{lambda-formals\ 9179}# - (lambda (#{orig-args\ 9970}#) - (letrec ((#{check\ 9975}# - (lambda (#{req\ 9976}# #{rest\ 9977}#) - (if (#{distinct-bound-ids?\ 9141}# - (if #{rest\ 9977}# - (cons #{rest\ 9977}# #{req\ 9976}#) - #{req\ 9976}#)) - (values #{req\ 9976}# #f #{rest\ 9977}# #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) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 9970}#)))) - (#{req\ 9973}# - (lambda (#{args\ 9983}# #{rreq\ 9984}#) - ((lambda (#{tmp\ 9987}#) - ((lambda (#{tmp\ 9988}#) - (if #{tmp\ 9988}# + #{orig-args\ 1116}#)))) + (#{req\ 1119}# + (lambda (#{args\ 1129}# #{rreq\ 1130}#) + ((lambda (#{tmp\ 1133}#) + ((lambda (#{tmp\ 1134}#) + (if #{tmp\ 1134}# (apply (lambda () - (#{check\ 9975}# - (reverse #{rreq\ 9984}#) + (#{check\ 1121}# + (reverse #{rreq\ 1130}#) #f)) - #{tmp\ 9988}#) - ((lambda (#{tmp\ 9989}#) - (if (if #{tmp\ 9989}# - (apply (lambda (#{a\ 9992}# - #{b\ 9993}#) - (#{id?\ 9076}# - #{a\ 9992}#)) - #{tmp\ 9989}#) + #{tmp\ 1134}#) + ((lambda (#{tmp\ 1135}#) + (if (if #{tmp\ 1135}# + (apply (lambda (#{a\ 1138}# + #{b\ 1139}#) + (#{id?\ 222}# + #{a\ 1138}#)) + #{tmp\ 1135}#) #f) - (apply (lambda (#{a\ 9996}# - #{b\ 9997}#) - (#{req\ 9973}# - #{b\ 9997}# - (cons #{a\ 9996}# - #{rreq\ 9984}#))) - #{tmp\ 9989}#) - ((lambda (#{tmp\ 9998}#) - (if (if #{tmp\ 9998}# - (apply (lambda (#{r\ 10000}#) - (#{id?\ 9076}# - #{r\ 10000}#)) - #{tmp\ 9998}#) + (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}#) #f) - (apply (lambda (#{r\ 10002}#) - (#{check\ 9975}# + (apply (lambda (#{r\ 1148}#) + (#{check\ 1121}# (reverse - #{rreq\ 9984}#) - #{r\ 10002}#)) - #{tmp\ 9998}#) - ((lambda (#{else\ 10004}#) + #{rreq\ 1130}#) + #{r\ 1148}#)) + #{tmp\ 1144}#) + ((lambda (#{else\ 1150}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 9970}# - #{args\ 9983}#)) - #{tmp\ 9987}#))) - (list #{tmp\ 9987}#)))) + #{orig-args\ 1116}# + #{args\ 1129}#)) + #{tmp\ 1133}#))) + (list #{tmp\ 1133}#)))) ($sc-dispatch - #{tmp\ 9987}# + #{tmp\ 1133}# '(any . any))))) - ($sc-dispatch #{tmp\ 9987}# (quote ())))) - #{args\ 9983}#)))) - (#{req\ 9973}# #{orig-args\ 9970}# (quote ()))))) - (#{ellipsis?\ 9177}# - (lambda (#{x\ 10005}#) - (if (#{nonsymbol-id?\ 9074}# #{x\ 10005}#) - (#{free-id=?\ 9135}# - #{x\ 10005}# + ($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}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10006")) + #(ribcage #(x) #((top)) #("i1152")) #(ribcage (lambda-var-list gen-var @@ -2229,1373 +2223,1369 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile))) #f))) - (#{chi-void\ 9175}# - (lambda () (#{build-void\ 8996}# #f))) - (#{eval-local-transformer\ 9173}# - (lambda (#{expanded\ 10010}# #{mod\ 10011}#) - (let ((#{p\ 10015}# - (#{local-eval-hook\ 8987}# - #{expanded\ 10010}# - #{mod\ 10011}#))) - (if (procedure? #{p\ 10015}#) - (cons #{p\ 10015}# - (module-name (current-module))) + (#{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))) (syntax-violation #f "nonprocedure transformer" - #{p\ 10015}#))))) - (#{chi-local-syntax\ 9171}# - (lambda (#{rec?\ 10016}# - #{e\ 10017}# - #{r\ 10018}# - #{w\ 10019}# - #{s\ 10020}# - #{mod\ 10021}# - #{k\ 10022}#) - ((lambda (#{tmp\ 10030}#) - ((lambda (#{tmp\ 10031}#) - (if #{tmp\ 10031}# - (apply (lambda (#{_\ 10037}# - #{id\ 10038}# - #{val\ 10039}# - #{e1\ 10040}# - #{e2\ 10041}#) - (let ((#{ids\ 10043}# #{id\ 10038}#)) - (if (not (#{valid-bound-ids?\ 9139}# - #{ids\ 10043}#)) + #{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}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 10017}#) - (let ((#{labels\ 10046}# - (#{gen-labels\ 9094}# - #{ids\ 10043}#))) - (let ((#{new-w\ 10048}# - (#{make-binding-wrap\ 9123}# - #{ids\ 10043}# - #{labels\ 10046}# - #{w\ 10019}#))) - (#{k\ 10022}# - (cons #{e1\ 10040}# #{e2\ 10041}#) - (#{extend-env\ 9064}# - #{labels\ 10046}# - (let ((#{w\ 10052}# - (if #{rec?\ 10016}# - #{new-w\ 10048}# - #{w\ 10019}#)) - (#{trans-r\ 10053}# - (#{macros-only-env\ 9068}# - #{r\ 10018}#))) - (map (lambda (#{x\ 10054}#) + #{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}#) (cons 'macro - (#{eval-local-transformer\ 9173}# - (#{chi\ 9161}# - #{x\ 10054}# - #{trans-r\ 10053}# - #{w\ 10052}# - #{mod\ 10021}#) - #{mod\ 10021}#))) - #{val\ 10039}#)) - #{r\ 10018}#) - #{new-w\ 10048}# - #{s\ 10020}# - #{mod\ 10021}#)))))) - #{tmp\ 10031}#) - ((lambda (#{_\ 10059}#) + (#{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}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 9147}# - #{e\ 10017}# - #{w\ 10019}# - #{s\ 10020}# - #{mod\ 10021}#))) - #{tmp\ 10030}#))) + (#{source-wrap\ 293}# + #{e\ 1163}# + #{w\ 1165}# + #{s\ 1166}# + #{mod\ 1167}#))) + #{tmp\ 1176}#))) ($sc-dispatch - #{tmp\ 10030}# + #{tmp\ 1176}# '(any #(each (any any)) any . each-any)))) - #{e\ 10017}#))) - (#{chi-body\ 9169}# - (lambda (#{body\ 10060}# - #{outer-form\ 10061}# - #{r\ 10062}# - #{w\ 10063}# - #{mod\ 10064}#) - (let ((#{r\ 10072}# + #{e\ 1163}#))) + (#{chi-body\ 315}# + (lambda (#{body\ 1206}# + #{outer-form\ 1207}# + #{r\ 1208}# + #{w\ 1209}# + #{mod\ 1210}#) + (let ((#{r\ 1218}# (cons '("placeholder" placeholder) - #{r\ 10062}#))) - (let ((#{ribcage\ 10074}# - (#{make-ribcage\ 9097}# + #{r\ 1208}#))) + (let ((#{ribcage\ 1220}# + (#{make-ribcage\ 243}# '() '() '()))) - (let ((#{w\ 10077}# - (#{make-wrap\ 9081}# - (#{wrap-marks\ 9083}# #{w\ 10063}#) - (cons #{ribcage\ 10074}# - (#{wrap-subst\ 9085}# #{w\ 10063}#))))) - (letrec ((#{parse\ 10086}# - (lambda (#{body\ 10087}# - #{ids\ 10088}# - #{labels\ 10089}# - #{var-ids\ 10090}# - #{vars\ 10091}# - #{vals\ 10092}# - #{bindings\ 10093}#) - (if (null? #{body\ 10087}#) + (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}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 10061}#) - (let ((#{e\ 10098}# (cdar #{body\ 10087}#)) - (#{er\ 10099}# - (caar #{body\ 10087}#))) + #{outer-form\ 1207}#) + (let ((#{e\ 1244}# (cdar #{body\ 1233}#)) + (#{er\ 1245}# (caar #{body\ 1233}#))) (call-with-values (lambda () - (#{syntax-type\ 9157}# - #{e\ 10098}# - #{er\ 10099}# + (#{syntax-type\ 303}# + #{e\ 1244}# + #{er\ 1245}# '(()) - (#{source-annotation\ 9055}# - #{er\ 10099}#) - #{ribcage\ 10074}# - #{mod\ 10064}# + (#{source-annotation\ 201}# + #{er\ 1245}#) + #{ribcage\ 1220}# + #{mod\ 1210}# #f)) - (lambda (#{type\ 10101}# - #{value\ 10102}# - #{e\ 10103}# - #{w\ 10104}# - #{s\ 10105}# - #{mod\ 10106}#) - (if (memv #{type\ 10101}# + (lambda (#{type\ 1247}# + #{value\ 1248}# + #{e\ 1249}# + #{w\ 1250}# + #{s\ 1251}# + #{mod\ 1252}#) + (if (memv #{type\ 1247}# '(define-form)) - (let ((#{id\ 10116}# - (#{wrap\ 9145}# - #{value\ 10102}# - #{w\ 10104}# - #{mod\ 10106}#)) - (#{label\ 10117}# - (#{gen-label\ 9092}#))) - (let ((#{var\ 10119}# - (#{gen-var\ 9189}# - #{id\ 10116}#))) + (let ((#{id\ 1262}# + (#{wrap\ 291}# + #{value\ 1248}# + #{w\ 1250}# + #{mod\ 1252}#)) + (#{label\ 1263}# + (#{gen-label\ 238}#))) + (let ((#{var\ 1265}# + (#{gen-var\ 335}# + #{id\ 1262}#))) (begin - (#{extend-ribcage!\ 9121}# - #{ribcage\ 10074}# - #{id\ 10116}# - #{label\ 10117}#) - (#{parse\ 10086}# - (cdr #{body\ 10087}#) - (cons #{id\ 10116}# - #{ids\ 10088}#) - (cons #{label\ 10117}# - #{labels\ 10089}#) - (cons #{id\ 10116}# - #{var-ids\ 10090}#) - (cons #{var\ 10119}# - #{vars\ 10091}#) - (cons (cons #{er\ 10099}# - (#{wrap\ 9145}# - #{e\ 10103}# - #{w\ 10104}# - #{mod\ 10106}#)) - #{vals\ 10092}#) + (#{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}#) (cons (cons 'lexical - #{var\ 10119}#) - #{bindings\ 10093}#))))) - (if (memv #{type\ 10101}# + #{var\ 1265}#) + #{bindings\ 1239}#))))) + (if (memv #{type\ 1247}# '(define-syntax-form)) - (let ((#{id\ 10124}# - (#{wrap\ 9145}# - #{value\ 10102}# - #{w\ 10104}# - #{mod\ 10106}#)) - (#{label\ 10125}# - (#{gen-label\ 9092}#))) + (let ((#{id\ 1270}# + (#{wrap\ 291}# + #{value\ 1248}# + #{w\ 1250}# + #{mod\ 1252}#)) + (#{label\ 1271}# + (#{gen-label\ 238}#))) (begin - (#{extend-ribcage!\ 9121}# - #{ribcage\ 10074}# - #{id\ 10124}# - #{label\ 10125}#) - (#{parse\ 10086}# - (cdr #{body\ 10087}#) - (cons #{id\ 10124}# - #{ids\ 10088}#) - (cons #{label\ 10125}# - #{labels\ 10089}#) - #{var-ids\ 10090}# - #{vars\ 10091}# - #{vals\ 10092}# + (#{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}# (cons (cons 'macro - (cons #{er\ 10099}# - (#{wrap\ 9145}# - #{e\ 10103}# - #{w\ 10104}# - #{mod\ 10106}#))) - #{bindings\ 10093}#)))) - (if (memv #{type\ 10101}# + (cons #{er\ 1245}# + (#{wrap\ 291}# + #{e\ 1249}# + #{w\ 1250}# + #{mod\ 1252}#))) + #{bindings\ 1239}#)))) + (if (memv #{type\ 1247}# '(begin-form)) - ((lambda (#{tmp\ 10128}#) - ((lambda (#{tmp\ 10129}#) - (if #{tmp\ 10129}# - (apply (lambda (#{_\ 10132}# - #{e1\ 10133}#) - (#{parse\ 10086}# - (letrec ((#{f\ 10136}# - (lambda (#{forms\ 10137}#) - (if (null? #{forms\ 10137}#) - (cdr #{body\ 10087}#) - (cons (cons #{er\ 10099}# - (#{wrap\ 9145}# - (car #{forms\ 10137}#) - #{w\ 10104}# - #{mod\ 10106}#)) - (#{f\ 10136}# - (cdr #{forms\ 10137}#))))))) - (#{f\ 10136}# - #{e1\ 10133}#)) - #{ids\ 10088}# - #{labels\ 10089}# - #{var-ids\ 10090}# - #{vars\ 10091}# - #{vals\ 10092}# - #{bindings\ 10093}#)) - #{tmp\ 10129}#) + ((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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10128}#))) + #{tmp\ 1274}#))) ($sc-dispatch - #{tmp\ 10128}# + #{tmp\ 1274}# '(any . each-any)))) - #{e\ 10103}#) - (if (memv #{type\ 10101}# + #{e\ 1249}#) + (if (memv #{type\ 1247}# '(local-syntax-form)) - (#{chi-local-syntax\ 9171}# - #{value\ 10102}# - #{e\ 10103}# - #{er\ 10099}# - #{w\ 10104}# - #{s\ 10105}# - #{mod\ 10106}# - (lambda (#{forms\ 10140}# - #{er\ 10141}# - #{w\ 10142}# - #{s\ 10143}# - #{mod\ 10144}#) - (#{parse\ 10086}# - (letrec ((#{f\ 10152}# - (lambda (#{forms\ 10153}#) - (if (null? #{forms\ 10153}#) - (cdr #{body\ 10087}#) - (cons (cons #{er\ 10141}# - (#{wrap\ 9145}# - (car #{forms\ 10153}#) - #{w\ 10142}# - #{mod\ 10144}#)) - (#{f\ 10152}# - (cdr #{forms\ 10153}#))))))) - (#{f\ 10152}# - #{forms\ 10140}#)) - #{ids\ 10088}# - #{labels\ 10089}# - #{var-ids\ 10090}# - #{vars\ 10091}# - #{vals\ 10092}# - #{bindings\ 10093}#))) - (if (null? #{ids\ 10088}#) - (#{build-sequence\ 9028}# + (#{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}# #f - (map (lambda (#{x\ 10156}#) - (#{chi\ 9161}# - (cdr #{x\ 10156}#) - (car #{x\ 10156}#) + (map (lambda (#{x\ 1302}#) + (#{chi\ 307}# + (cdr #{x\ 1302}#) + (car #{x\ 1302}#) '(()) - #{mod\ 10106}#)) - (cons (cons #{er\ 10099}# - (#{source-wrap\ 9147}# - #{e\ 10103}# - #{w\ 10104}# - #{s\ 10105}# - #{mod\ 10106}#)) - (cdr #{body\ 10087}#)))) + #{mod\ 1252}#)) + (cons (cons #{er\ 1245}# + (#{source-wrap\ 293}# + #{e\ 1249}# + #{w\ 1250}# + #{s\ 1251}# + #{mod\ 1252}#)) + (cdr #{body\ 1233}#)))) (begin - (if (not (#{valid-bound-ids?\ 9139}# - #{ids\ 10088}#)) + (if (not (#{valid-bound-ids?\ 285}# + #{ids\ 1234}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 10061}#)) - (letrec ((#{loop\ 10163}# - (lambda (#{bs\ 10164}# - #{er-cache\ 10165}# - #{r-cache\ 10166}#) - (if (not (null? #{bs\ 10164}#)) - (let ((#{b\ 10169}# - (car #{bs\ 10164}#))) - (if (eq? (car #{b\ 10169}#) + #{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}#) 'macro) - (let ((#{er\ 10172}# - (cadr #{b\ 10169}#))) - (let ((#{r-cache\ 10174}# - (if (eq? #{er\ 10172}# - #{er-cache\ 10165}#) - #{r-cache\ 10166}# - (#{macros-only-env\ 9068}# - #{er\ 10172}#)))) + (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}#)))) (begin (set-cdr! - #{b\ 10169}# - (#{eval-local-transformer\ 9173}# - (#{chi\ 9161}# - (cddr #{b\ 10169}#) - #{r-cache\ 10174}# + #{b\ 1315}# + (#{eval-local-transformer\ 319}# + (#{chi\ 307}# + (cddr #{b\ 1315}#) + #{r-cache\ 1320}# '(()) - #{mod\ 10106}#) - #{mod\ 10106}#)) - (#{loop\ 10163}# - (cdr #{bs\ 10164}#) - #{er\ 10172}# - #{r-cache\ 10174}#)))) - (#{loop\ 10163}# - (cdr #{bs\ 10164}#) - #{er-cache\ 10165}# - #{r-cache\ 10166}#))))))) - (#{loop\ 10163}# - #{bindings\ 10093}# + #{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}# #f #f)) (set-cdr! - #{r\ 10072}# - (#{extend-env\ 9064}# - #{labels\ 10089}# - #{bindings\ 10093}# - (cdr #{r\ 10072}#))) - (#{build-letrec\ 9034}# + #{r\ 1218}# + (#{extend-env\ 210}# + #{labels\ 1235}# + #{bindings\ 1239}# + (cdr #{r\ 1218}#))) + (#{build-letrec\ 180}# #f (map syntax->datum - #{var-ids\ 10090}#) - #{vars\ 10091}# - (map (lambda (#{x\ 10177}#) - (#{chi\ 9161}# - (cdr #{x\ 10177}#) - (car #{x\ 10177}#) + #{var-ids\ 1236}#) + #{vars\ 1237}# + (map (lambda (#{x\ 1323}#) + (#{chi\ 307}# + (cdr #{x\ 1323}#) + (car #{x\ 1323}#) '(()) - #{mod\ 10106}#)) - #{vals\ 10092}#) - (#{build-sequence\ 9028}# + #{mod\ 1252}#)) + #{vals\ 1238}#) + (#{build-sequence\ 174}# #f - (map (lambda (#{x\ 10181}#) - (#{chi\ 9161}# - (cdr #{x\ 10181}#) - (car #{x\ 10181}#) + (map (lambda (#{x\ 1327}#) + (#{chi\ 307}# + (cdr #{x\ 1327}#) + (car #{x\ 1327}#) '(()) - #{mod\ 10106}#)) - (cons (cons #{er\ 10099}# - (#{source-wrap\ 9147}# - #{e\ 10103}# - #{w\ 10104}# - #{s\ 10105}# - #{mod\ 10106}#)) - (cdr #{body\ 10087}#)))))))))))))))))) - (#{parse\ 10086}# - (map (lambda (#{x\ 10094}#) - (cons #{r\ 10072}# - (#{wrap\ 9145}# - #{x\ 10094}# - #{w\ 10077}# - #{mod\ 10064}#))) - #{body\ 10060}#) + #{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}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 9167}# - (lambda (#{p\ 10184}# - #{e\ 10185}# - #{r\ 10186}# - #{w\ 10187}# - #{rib\ 10188}# - #{mod\ 10189}#) - (letrec ((#{rebuild-macro-output\ 10197}# - (lambda (#{x\ 10198}# #{m\ 10199}#) - (if (pair? #{x\ 10198}#) - (cons (#{rebuild-macro-output\ 10197}# - (car #{x\ 10198}#) - #{m\ 10199}#) - (#{rebuild-macro-output\ 10197}# - (cdr #{x\ 10198}#) - #{m\ 10199}#)) - (if (#{syntax-object?\ 9040}# #{x\ 10198}#) - (let ((#{w\ 10207}# - (#{syntax-object-wrap\ 9044}# - #{x\ 10198}#))) - (let ((#{ms\ 10210}# - (#{wrap-marks\ 9083}# #{w\ 10207}#)) - (#{s\ 10211}# - (#{wrap-subst\ 9085}# #{w\ 10207}#))) - (if (if (pair? #{ms\ 10210}#) - (eq? (car #{ms\ 10210}#) #f) + (#{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) #f) - (#{make-syntax-object\ 9038}# - (#{syntax-object-expression\ 9042}# - #{x\ 10198}#) - (#{make-wrap\ 9081}# - (cdr #{ms\ 10210}#) - (if #{rib\ 10188}# - (cons #{rib\ 10188}# - (cdr #{s\ 10211}#)) - (cdr #{s\ 10211}#))) - (#{syntax-object-module\ 9046}# - #{x\ 10198}#)) - (#{make-syntax-object\ 9038}# - (#{syntax-object-expression\ 9042}# - #{x\ 10198}#) - (#{make-wrap\ 9081}# - (cons #{m\ 10199}# #{ms\ 10210}#) - (if #{rib\ 10188}# - (cons #{rib\ 10188}# + (#{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}# (cons 'shift - #{s\ 10211}#)) - (cons (quote shift) #{s\ 10211}#))) + #{s\ 1357}#)) + (cons (quote shift) #{s\ 1357}#))) (cons 'hygiene - (cdr #{p\ 10184}#)))))) - (if (vector? #{x\ 10198}#) - (let ((#{n\ 10219}# - (vector-length #{x\ 10198}#))) - (let ((#{v\ 10221}# - (make-vector #{n\ 10219}#))) - (letrec ((#{loop\ 10224}# - (lambda (#{i\ 10225}#) - (if (#{fx=\ 8981}# - #{i\ 10225}# - #{n\ 10219}#) + (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}#) (begin (if #f #f) - #{v\ 10221}#) + #{v\ 1367}#) (begin (vector-set! - #{v\ 10221}# - #{i\ 10225}# - (#{rebuild-macro-output\ 10197}# + #{v\ 1367}# + #{i\ 1371}# + (#{rebuild-macro-output\ 1343}# (vector-ref - #{x\ 10198}# - #{i\ 10225}#) - #{m\ 10199}#)) - (#{loop\ 10224}# - (#{fx+\ 8977}# - #{i\ 10225}# + #{x\ 1344}# + #{i\ 1371}#) + #{m\ 1345}#)) + (#{loop\ 1370}# + (#{fx+\ 123}# + #{i\ 1371}# 1))))))) - (#{loop\ 10224}# 0)))) - (if (symbol? #{x\ 10198}#) + (#{loop\ 1370}# 0)))) + (if (symbol? #{x\ 1344}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 9147}# - #{e\ 10185}# - #{w\ 10187}# - (#{wrap-subst\ 9085}# #{w\ 10187}#) - #{mod\ 10189}#) - #{x\ 10198}#) - #{x\ 10198}#))))))) - (#{rebuild-macro-output\ 10197}# - ((car #{p\ 10184}#) - (#{wrap\ 9145}# - #{e\ 10185}# - (#{anti-mark\ 9117}# #{w\ 10187}#) - #{mod\ 10189}#)) + (#{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}#)) (gensym "m"))))) - (#{chi-application\ 9165}# - (lambda (#{x\ 10232}# - #{e\ 10233}# - #{r\ 10234}# - #{w\ 10235}# - #{s\ 10236}# - #{mod\ 10237}#) - ((lambda (#{tmp\ 10244}#) - ((lambda (#{tmp\ 10245}#) - (if #{tmp\ 10245}# - (apply (lambda (#{e0\ 10248}# #{e1\ 10249}#) - (#{build-application\ 8998}# - #{s\ 10236}# - #{x\ 10232}# - (map (lambda (#{e\ 10250}#) - (#{chi\ 9161}# - #{e\ 10250}# - #{r\ 10234}# - #{w\ 10235}# - #{mod\ 10237}#)) - #{e1\ 10249}#))) - #{tmp\ 10245}#) + (#{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10244}#))) + #{tmp\ 1390}#))) ($sc-dispatch - #{tmp\ 10244}# + #{tmp\ 1390}# '(any . each-any)))) - #{e\ 10233}#))) - (#{chi-expr\ 9163}# - (lambda (#{type\ 10253}# - #{value\ 10254}# - #{e\ 10255}# - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) - (if (memv #{type\ 10253}# (quote (lexical))) - (#{build-lexical-reference\ 9004}# + #{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}# 'value - #{s\ 10258}# - #{e\ 10255}# - #{value\ 10254}#) - (if (memv #{type\ 10253}# (quote (core core-form))) - (#{value\ 10254}# - #{e\ 10255}# - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) - (if (memv #{type\ 10253}# (quote (module-ref))) + #{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))) (call-with-values - (lambda () (#{value\ 10254}# #{e\ 10255}#)) - (lambda (#{id\ 10270}# #{mod\ 10271}#) - (#{build-global-reference\ 9010}# - #{s\ 10258}# - #{id\ 10270}# - #{mod\ 10271}#))) - (if (memv #{type\ 10253}# (quote (lexical-call))) - (#{chi-application\ 9165}# - (#{build-lexical-reference\ 9004}# + (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}# 'fun - (#{source-annotation\ 9055}# (car #{e\ 10255}#)) - (car #{e\ 10255}#) - #{value\ 10254}#) - #{e\ 10255}# - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) - (if (memv #{type\ 10253}# (quote (global-call))) - (#{chi-application\ 9165}# - (#{build-global-reference\ 9010}# - (#{source-annotation\ 9055}# (car #{e\ 10255}#)) - (if (#{syntax-object?\ 9040}# #{value\ 10254}#) - (#{syntax-object-expression\ 9042}# - #{value\ 10254}#) - #{value\ 10254}#) - (if (#{syntax-object?\ 9040}# #{value\ 10254}#) - (#{syntax-object-module\ 9046}# - #{value\ 10254}#) - #{mod\ 10259}#)) - #{e\ 10255}# - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) - (if (memv #{type\ 10253}# (quote (constant))) - (#{build-data\ 9026}# - #{s\ 10258}# - (#{strip\ 9187}# - (#{source-wrap\ 9147}# - #{e\ 10255}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) + (#{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}#) '(()))) - (if (memv #{type\ 10253}# (quote (global))) - (#{build-global-reference\ 9010}# - #{s\ 10258}# - #{value\ 10254}# - #{mod\ 10259}#) - (if (memv #{type\ 10253}# (quote (call))) - (#{chi-application\ 9165}# - (#{chi\ 9161}# - (car #{e\ 10255}#) - #{r\ 10256}# - #{w\ 10257}# - #{mod\ 10259}#) - #{e\ 10255}# - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) - (if (memv #{type\ 10253}# (quote (begin-form))) - ((lambda (#{tmp\ 10281}#) - ((lambda (#{tmp\ 10282}#) - (if #{tmp\ 10282}# - (apply (lambda (#{_\ 10286}# - #{e1\ 10287}# - #{e2\ 10288}#) - (#{chi-sequence\ 9149}# - (cons #{e1\ 10287}# - #{e2\ 10288}#) - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#)) - #{tmp\ 10282}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10281}#))) + #{tmp\ 1427}#))) ($sc-dispatch - #{tmp\ 10281}# + #{tmp\ 1427}# '(any any . each-any)))) - #{e\ 10255}#) - (if (memv #{type\ 10253}# + #{e\ 1401}#) + (if (memv #{type\ 1399}# '(local-syntax-form)) - (#{chi-local-syntax\ 9171}# - #{value\ 10254}# - #{e\ 10255}# - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}# - #{chi-sequence\ 9149}#) - (if (memv #{type\ 10253}# + (#{chi-local-syntax\ 317}# + #{value\ 1400}# + #{e\ 1401}# + #{r\ 1402}# + #{w\ 1403}# + #{s\ 1404}# + #{mod\ 1405}# + #{chi-sequence\ 295}#) + (if (memv #{type\ 1399}# '(eval-when-form)) - ((lambda (#{tmp\ 10292}#) - ((lambda (#{tmp\ 10293}#) - (if #{tmp\ 10293}# - (apply (lambda (#{_\ 10298}# - #{x\ 10299}# - #{e1\ 10300}# - #{e2\ 10301}#) - (let ((#{when-list\ 10303}# - (#{chi-when-list\ 9155}# - #{e\ 10255}# - #{x\ 10299}# - #{w\ 10257}#))) + ((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}#))) (if (memq 'eval - #{when-list\ 10303}#) - (#{chi-sequence\ 9149}# - (cons #{e1\ 10300}# - #{e2\ 10301}#) - #{r\ 10256}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#) - (#{chi-void\ 9175}#)))) - #{tmp\ 10293}#) + #{when-list\ 1449}#) + (#{chi-sequence\ 295}# + (cons #{e1\ 1446}# + #{e2\ 1447}#) + #{r\ 1402}# + #{w\ 1403}# + #{s\ 1404}# + #{mod\ 1405}#) + (#{chi-void\ 321}#)))) + #{tmp\ 1439}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10292}#))) + #{tmp\ 1438}#))) ($sc-dispatch - #{tmp\ 10292}# + #{tmp\ 1438}# '(any each-any any . each-any)))) - #{e\ 10255}#) - (if (memv #{type\ 10253}# + #{e\ 1401}#) + (if (memv #{type\ 1399}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 10255}# - (#{wrap\ 9145}# - #{value\ 10254}# - #{w\ 10257}# - #{mod\ 10259}#)) - (if (memv #{type\ 10253}# + #{e\ 1401}# + (#{wrap\ 291}# + #{value\ 1400}# + #{w\ 1403}# + #{mod\ 1405}#)) + (if (memv #{type\ 1399}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 9147}# - #{e\ 10255}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#)) - (if (memv #{type\ 10253}# + (#{source-wrap\ 293}# + #{e\ 1401}# + #{w\ 1403}# + #{s\ 1404}# + #{mod\ 1405}#)) + (if (memv #{type\ 1399}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 9147}# - #{e\ 10255}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#)) + (#{source-wrap\ 293}# + #{e\ 1401}# + #{w\ 1403}# + #{s\ 1404}# + #{mod\ 1405}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 9147}# - #{e\ 10255}# - #{w\ 10257}# - #{s\ 10258}# - #{mod\ 10259}#)))))))))))))))))) - (#{chi\ 9161}# - (lambda (#{e\ 10310}# - #{r\ 10311}# - #{w\ 10312}# - #{mod\ 10313}#) + (#{source-wrap\ 293}# + #{e\ 1401}# + #{w\ 1403}# + #{s\ 1404}# + #{mod\ 1405}#)))))))))))))))))) + (#{chi\ 307}# + (lambda (#{e\ 1456}# + #{r\ 1457}# + #{w\ 1458}# + #{mod\ 1459}#) (call-with-values (lambda () - (#{syntax-type\ 9157}# - #{e\ 10310}# - #{r\ 10311}# - #{w\ 10312}# - (#{source-annotation\ 9055}# #{e\ 10310}#) + (#{syntax-type\ 303}# + #{e\ 1456}# + #{r\ 1457}# + #{w\ 1458}# + (#{source-annotation\ 201}# #{e\ 1456}#) #f - #{mod\ 10313}# + #{mod\ 1459}# #f)) - (lambda (#{type\ 10318}# - #{value\ 10319}# - #{e\ 10320}# - #{w\ 10321}# - #{s\ 10322}# - #{mod\ 10323}#) - (#{chi-expr\ 9163}# - #{type\ 10318}# - #{value\ 10319}# - #{e\ 10320}# - #{r\ 10311}# - #{w\ 10321}# - #{s\ 10322}# - #{mod\ 10323}#))))) - (#{chi-top\ 9159}# - (lambda (#{e\ 10330}# - #{r\ 10331}# - #{w\ 10332}# - #{m\ 10333}# - #{esew\ 10334}# - #{mod\ 10335}#) + (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}#) (call-with-values (lambda () - (#{syntax-type\ 9157}# - #{e\ 10330}# - #{r\ 10331}# - #{w\ 10332}# - (#{source-annotation\ 9055}# #{e\ 10330}#) + (#{syntax-type\ 303}# + #{e\ 1476}# + #{r\ 1477}# + #{w\ 1478}# + (#{source-annotation\ 201}# #{e\ 1476}#) #f - #{mod\ 10335}# + #{mod\ 1481}# #f)) - (lambda (#{type\ 10356}# - #{value\ 10357}# - #{e\ 10358}# - #{w\ 10359}# - #{s\ 10360}# - #{mod\ 10361}#) - (if (memv #{type\ 10356}# (quote (begin-form))) - ((lambda (#{tmp\ 10369}#) - ((lambda (#{tmp\ 10370}#) - (if #{tmp\ 10370}# - (apply (lambda (#{_\ 10372}#) - (#{chi-void\ 9175}#)) - #{tmp\ 10370}#) - ((lambda (#{tmp\ 10373}#) - (if #{tmp\ 10373}# - (apply (lambda (#{_\ 10377}# - #{e1\ 10378}# - #{e2\ 10379}#) - (#{chi-top-sequence\ 9151}# - (cons #{e1\ 10378}# #{e2\ 10379}#) - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# - #{m\ 10333}# - #{esew\ 10334}# - #{mod\ 10361}#)) - #{tmp\ 10373}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10369}#))) + #{tmp\ 1515}#))) ($sc-dispatch - #{tmp\ 10369}# + #{tmp\ 1515}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 10369}# (quote (any))))) - #{e\ 10358}#) - (if (memv #{type\ 10356}# - '(local-syntax-form)) - (#{chi-local-syntax\ 9171}# - #{value\ 10357}# - #{e\ 10358}# - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# - #{mod\ 10361}# - (lambda (#{body\ 10382}# - #{r\ 10383}# - #{w\ 10384}# - #{s\ 10385}# - #{mod\ 10386}#) - (#{chi-top-sequence\ 9151}# - #{body\ 10382}# - #{r\ 10383}# - #{w\ 10384}# - #{s\ 10385}# - #{m\ 10333}# - #{esew\ 10334}# - #{mod\ 10386}#))) - (if (memv #{type\ 10356}# (quote (eval-when-form))) - ((lambda (#{tmp\ 10393}#) - ((lambda (#{tmp\ 10394}#) - (if #{tmp\ 10394}# - (apply (lambda (#{_\ 10399}# - #{x\ 10400}# - #{e1\ 10401}# - #{e2\ 10402}#) - (let ((#{when-list\ 10405}# - (#{chi-when-list\ 9155}# - #{e\ 10358}# - #{x\ 10400}# - #{w\ 10359}#)) - (#{body\ 10406}# - (cons #{e1\ 10401}# - #{e2\ 10402}#))) - (if (eq? #{m\ 10333}# (quote e)) + ($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)) (if (memq 'eval - #{when-list\ 10405}#) - (#{chi-top-sequence\ 9151}# - #{body\ 10406}# - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# + #{when-list\ 1551}#) + (#{chi-top-sequence\ 297}# + #{body\ 1552}# + #{r\ 1477}# + #{w\ 1505}# + #{s\ 1506}# 'e '(eval) - #{mod\ 10361}#) - (#{chi-void\ 9175}#)) + #{mod\ 1507}#) + (#{chi-void\ 321}#)) (if (memq 'load - #{when-list\ 10405}#) - (if (let ((#{t\ 10415}# + #{when-list\ 1551}#) + (if (let ((#{t\ 1561}# (memq 'compile - #{when-list\ 10405}#))) - (if #{t\ 10415}# - #{t\ 10415}# - (if (eq? #{m\ 10333}# + #{when-list\ 1551}#))) + (if #{t\ 1561}# + #{t\ 1561}# + (if (eq? #{m\ 1479}# 'c&e) (memq 'eval - #{when-list\ 10405}#) + #{when-list\ 1551}#) #f))) - (#{chi-top-sequence\ 9151}# - #{body\ 10406}# - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# + (#{chi-top-sequence\ 297}# + #{body\ 1552}# + #{r\ 1477}# + #{w\ 1505}# + #{s\ 1506}# 'c&e '(compile load) - #{mod\ 10361}#) - (if (memq #{m\ 10333}# + #{mod\ 1507}#) + (if (memq #{m\ 1479}# '(c c&e)) - (#{chi-top-sequence\ 9151}# - #{body\ 10406}# - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# + (#{chi-top-sequence\ 297}# + #{body\ 1552}# + #{r\ 1477}# + #{w\ 1505}# + #{s\ 1506}# 'c '(load) - #{mod\ 10361}#) - (#{chi-void\ 9175}#))) - (if (let ((#{t\ 10423}# + #{mod\ 1507}#) + (#{chi-void\ 321}#))) + (if (let ((#{t\ 1569}# (memq 'compile - #{when-list\ 10405}#))) - (if #{t\ 10423}# - #{t\ 10423}# - (if (eq? #{m\ 10333}# + #{when-list\ 1551}#))) + (if #{t\ 1569}# + #{t\ 1569}# + (if (eq? #{m\ 1479}# 'c&e) (memq 'eval - #{when-list\ 10405}#) + #{when-list\ 1551}#) #f))) (begin - (#{top-level-eval-hook\ 8985}# - (#{chi-top-sequence\ 9151}# - #{body\ 10406}# - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# + (#{top-level-eval-hook\ 131}# + (#{chi-top-sequence\ 297}# + #{body\ 1552}# + #{r\ 1477}# + #{w\ 1505}# + #{s\ 1506}# 'e '(eval) - #{mod\ 10361}#) - #{mod\ 10361}#) - (#{chi-void\ 9175}#)) - (#{chi-void\ 9175}#)))))) - #{tmp\ 10394}#) + #{mod\ 1507}#) + #{mod\ 1507}#) + (#{chi-void\ 321}#)) + (#{chi-void\ 321}#)))))) + #{tmp\ 1540}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10393}#))) + #{tmp\ 1539}#))) ($sc-dispatch - #{tmp\ 10393}# + #{tmp\ 1539}# '(any each-any any . each-any)))) - #{e\ 10358}#) - (if (memv #{type\ 10356}# + #{e\ 1504}#) + (if (memv #{type\ 1502}# '(define-syntax-form)) - (let ((#{n\ 10431}# - (#{id-var-name\ 9133}# - #{value\ 10357}# - #{w\ 10359}#)) - (#{r\ 10432}# - (#{macros-only-env\ 9068}# #{r\ 10331}#))) - (if (memv #{m\ 10333}# (quote (c))) - (if (memq (quote compile) #{esew\ 10334}#) - (let ((#{e\ 10435}# - (#{chi-install-global\ 9153}# - #{n\ 10431}# - (#{chi\ 9161}# - #{e\ 10358}# - #{r\ 10432}# - #{w\ 10359}# - #{mod\ 10361}#)))) + (let ((#{n\ 1577}# + (#{id-var-name\ 279}# + #{value\ 1503}# + #{w\ 1505}#)) + (#{r\ 1578}# + (#{macros-only-env\ 214}# #{r\ 1477}#))) + (if (memv #{m\ 1479}# (quote (c))) + (if (memq (quote compile) #{esew\ 1480}#) + (let ((#{e\ 1581}# + (#{chi-install-global\ 299}# + #{n\ 1577}# + (#{chi\ 307}# + #{e\ 1504}# + #{r\ 1578}# + #{w\ 1505}# + #{mod\ 1507}#)))) (begin - (#{top-level-eval-hook\ 8985}# - #{e\ 10435}# - #{mod\ 10361}#) - (if (memq (quote load) #{esew\ 10334}#) - #{e\ 10435}# - (#{chi-void\ 9175}#)))) - (if (memq (quote load) #{esew\ 10334}#) - (#{chi-install-global\ 9153}# - #{n\ 10431}# - (#{chi\ 9161}# - #{e\ 10358}# - #{r\ 10432}# - #{w\ 10359}# - #{mod\ 10361}#)) - (#{chi-void\ 9175}#))) - (if (memv #{m\ 10333}# (quote (c&e))) - (let ((#{e\ 10438}# - (#{chi-install-global\ 9153}# - #{n\ 10431}# - (#{chi\ 9161}# - #{e\ 10358}# - #{r\ 10432}# - #{w\ 10359}# - #{mod\ 10361}#)))) + (#{top-level-eval-hook\ 131}# + #{e\ 1581}# + #{mod\ 1507}#) + (if (memq (quote load) #{esew\ 1480}#) + #{e\ 1581}# + (#{chi-void\ 321}#)))) + (if (memq (quote load) #{esew\ 1480}#) + (#{chi-install-global\ 299}# + #{n\ 1577}# + (#{chi\ 307}# + #{e\ 1504}# + #{r\ 1578}# + #{w\ 1505}# + #{mod\ 1507}#)) + (#{chi-void\ 321}#))) + (if (memv #{m\ 1479}# (quote (c&e))) + (let ((#{e\ 1584}# + (#{chi-install-global\ 299}# + #{n\ 1577}# + (#{chi\ 307}# + #{e\ 1504}# + #{r\ 1578}# + #{w\ 1505}# + #{mod\ 1507}#)))) (begin - (#{top-level-eval-hook\ 8985}# - #{e\ 10438}# - #{mod\ 10361}#) - #{e\ 10438}#)) + (#{top-level-eval-hook\ 131}# + #{e\ 1584}# + #{mod\ 1507}#) + #{e\ 1584}#)) (begin - (if (memq (quote eval) #{esew\ 10334}#) - (#{top-level-eval-hook\ 8985}# - (#{chi-install-global\ 9153}# - #{n\ 10431}# - (#{chi\ 9161}# - #{e\ 10358}# - #{r\ 10432}# - #{w\ 10359}# - #{mod\ 10361}#)) - #{mod\ 10361}#)) - (#{chi-void\ 9175}#))))) - (if (memv #{type\ 10356}# (quote (define-form))) - (let ((#{n\ 10443}# - (#{id-var-name\ 9133}# - #{value\ 10357}# - #{w\ 10359}#))) - (let ((#{type\ 10445}# - (#{binding-type\ 9059}# - (#{lookup\ 9070}# - #{n\ 10443}# - #{r\ 10331}# - #{mod\ 10361}#)))) - (if (memv #{type\ 10445}# + (if (memq (quote eval) #{esew\ 1480}#) + (#{top-level-eval-hook\ 131}# + (#{chi-install-global\ 299}# + #{n\ 1577}# + (#{chi\ 307}# + #{e\ 1504}# + #{r\ 1578}# + #{w\ 1505}# + #{mod\ 1507}#)) + #{mod\ 1507}#)) + (#{chi-void\ 321}#))))) + (if (memv #{type\ 1502}# (quote (define-form))) + (let ((#{n\ 1589}# + (#{id-var-name\ 279}# + #{value\ 1503}# + #{w\ 1505}#))) + (let ((#{type\ 1591}# + (#{binding-type\ 205}# + (#{lookup\ 216}# + #{n\ 1589}# + #{r\ 1477}# + #{mod\ 1507}#)))) + (if (memv #{type\ 1591}# '(global core macro module-ref)) (begin - (if (if (not (module-local-variable - (current-module) - #{n\ 10443}#)) - (current-module) + (if (if (memq #{m\ 1479}# (quote (c c&e))) + (if (not (module-local-variable + (current-module) + #{n\ 1589}#)) + (current-module) + #f) #f) - (let ((#{old\ 10450}# + (let ((#{old\ 1597}# (module-variable (current-module) - #{n\ 10443}#))) + #{n\ 1589}#))) (module-define! (current-module) - #{n\ 10443}# - (if (variable? #{old\ 10450}#) - (variable-ref #{old\ 10450}#) + #{n\ 1589}# + (if (variable? #{old\ 1597}#) + (variable-ref #{old\ 1597}#) #f)))) - (let ((#{x\ 10453}# - (#{build-global-definition\ 9016}# - #{s\ 10360}# - #{n\ 10443}# - (#{chi\ 9161}# - #{e\ 10358}# - #{r\ 10331}# - #{w\ 10359}# - #{mod\ 10361}#)))) + (let ((#{x\ 1600}# + (#{build-global-definition\ 162}# + #{s\ 1506}# + #{n\ 1589}# + (#{chi\ 307}# + #{e\ 1504}# + #{r\ 1477}# + #{w\ 1505}# + #{mod\ 1507}#)))) (begin - (if (eq? #{m\ 10333}# (quote c&e)) - (#{top-level-eval-hook\ 8985}# - #{x\ 10453}# - #{mod\ 10361}#)) - #{x\ 10453}#))) - (if (memv #{type\ 10445}# + (if (eq? #{m\ 1479}# (quote c&e)) + (#{top-level-eval-hook\ 131}# + #{x\ 1600}# + #{mod\ 1507}#)) + #{x\ 1600}#))) + (if (memv #{type\ 1591}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 10358}# - (#{wrap\ 9145}# - #{value\ 10357}# - #{w\ 10359}# - #{mod\ 10361}#)) + #{e\ 1504}# + (#{wrap\ 291}# + #{value\ 1503}# + #{w\ 1505}# + #{mod\ 1507}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 10358}# - (#{wrap\ 9145}# - #{value\ 10357}# - #{w\ 10359}# - #{mod\ 10361}#)))))) - (let ((#{x\ 10459}# - (#{chi-expr\ 9163}# - #{type\ 10356}# - #{value\ 10357}# - #{e\ 10358}# - #{r\ 10331}# - #{w\ 10359}# - #{s\ 10360}# - #{mod\ 10361}#))) + #{e\ 1504}# + (#{wrap\ 291}# + #{value\ 1503}# + #{w\ 1505}# + #{mod\ 1507}#)))))) + (let ((#{x\ 1606}# + (#{chi-expr\ 309}# + #{type\ 1502}# + #{value\ 1503}# + #{e\ 1504}# + #{r\ 1477}# + #{w\ 1505}# + #{s\ 1506}# + #{mod\ 1507}#))) (begin - (if (eq? #{m\ 10333}# (quote c&e)) - (#{top-level-eval-hook\ 8985}# - #{x\ 10459}# - #{mod\ 10361}#)) - #{x\ 10459}#))))))))))) - (#{syntax-type\ 9157}# - (lambda (#{e\ 10460}# - #{r\ 10461}# - #{w\ 10462}# - #{s\ 10463}# - #{rib\ 10464}# - #{mod\ 10465}# - #{for-car?\ 10466}#) - (if (symbol? #{e\ 10460}#) - (let ((#{n\ 10478}# - (#{id-var-name\ 9133}# #{e\ 10460}# #{w\ 10462}#))) - (let ((#{b\ 10480}# - (#{lookup\ 9070}# - #{n\ 10478}# - #{r\ 10461}# - #{mod\ 10465}#))) - (let ((#{type\ 10482}# - (#{binding-type\ 9059}# #{b\ 10480}#))) - (if (memv #{type\ 10482}# (quote (lexical))) + (if (eq? #{m\ 1479}# (quote c&e)) + (#{top-level-eval-hook\ 131}# + #{x\ 1606}# + #{mod\ 1507}#)) + #{x\ 1606}#))))))))))) + (#{syntax-type\ 303}# + (lambda (#{e\ 1607}# + #{r\ 1608}# + #{w\ 1609}# + #{s\ 1610}# + #{rib\ 1611}# + #{mod\ 1612}# + #{for-car?\ 1613}#) + (if (symbol? #{e\ 1607}#) + (let ((#{n\ 1625}# + (#{id-var-name\ 279}# #{e\ 1607}# #{w\ 1609}#))) + (let ((#{b\ 1627}# + (#{lookup\ 216}# + #{n\ 1625}# + #{r\ 1608}# + #{mod\ 1612}#))) + (let ((#{type\ 1629}# + (#{binding-type\ 205}# #{b\ 1627}#))) + (if (memv #{type\ 1629}# (quote (lexical))) (values - #{type\ 10482}# - (#{binding-value\ 9061}# #{b\ 10480}#) - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{type\ 10482}# (quote (global))) + #{type\ 1629}# + (#{binding-value\ 207}# #{b\ 1627}#) + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{type\ 1629}# (quote (global))) (values - #{type\ 10482}# - #{n\ 10478}# - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{type\ 10482}# (quote (macro))) - (if #{for-car?\ 10466}# + #{type\ 1629}# + #{n\ 1625}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{type\ 1629}# (quote (macro))) + (if #{for-car?\ 1613}# (values - #{type\ 10482}# - (#{binding-value\ 9061}# #{b\ 10480}#) - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (#{syntax-type\ 9157}# - (#{chi-macro\ 9167}# - (#{binding-value\ 9061}# #{b\ 10480}#) - #{e\ 10460}# - #{r\ 10461}# - #{w\ 10462}# - #{rib\ 10464}# - #{mod\ 10465}#) - #{r\ 10461}# + #{type\ 1629}# + (#{binding-value\ 207}# #{b\ 1627}#) + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (#{syntax-type\ 303}# + (#{chi-macro\ 313}# + (#{binding-value\ 207}# #{b\ 1627}#) + #{e\ 1607}# + #{r\ 1608}# + #{w\ 1609}# + #{rib\ 1611}# + #{mod\ 1612}#) + #{r\ 1608}# '(()) - #{s\ 10463}# - #{rib\ 10464}# - #{mod\ 10465}# + #{s\ 1610}# + #{rib\ 1611}# + #{mod\ 1612}# #f)) (values - #{type\ 10482}# - (#{binding-value\ 9061}# #{b\ 10480}#) - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#))))))) - (if (pair? #{e\ 10460}#) - (let ((#{first\ 10491}# (car #{e\ 10460}#))) + #{type\ 1629}# + (#{binding-value\ 207}# #{b\ 1627}#) + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#))))))) + (if (pair? #{e\ 1607}#) + (let ((#{first\ 1638}# (car #{e\ 1607}#))) (call-with-values (lambda () - (#{syntax-type\ 9157}# - #{first\ 10491}# - #{r\ 10461}# - #{w\ 10462}# - #{s\ 10463}# - #{rib\ 10464}# - #{mod\ 10465}# + (#{syntax-type\ 303}# + #{first\ 1638}# + #{r\ 1608}# + #{w\ 1609}# + #{s\ 1610}# + #{rib\ 1611}# + #{mod\ 1612}# #t)) - (lambda (#{ftype\ 10492}# - #{fval\ 10493}# - #{fe\ 10494}# - #{fw\ 10495}# - #{fs\ 10496}# - #{fmod\ 10497}#) - (if (memv #{ftype\ 10492}# (quote (lexical))) + (lambda (#{ftype\ 1639}# + #{fval\ 1640}# + #{fe\ 1641}# + #{fw\ 1642}# + #{fs\ 1643}# + #{fmod\ 1644}#) + (if (memv #{ftype\ 1639}# (quote (lexical))) (values 'lexical-call - #{fval\ 10493}# - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{ftype\ 10492}# (quote (global))) + #{fval\ 1640}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{ftype\ 1639}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 9038}# - #{fval\ 10493}# - #{w\ 10462}# - #{fmod\ 10497}#) - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{ftype\ 10492}# (quote (macro))) - (#{syntax-type\ 9157}# - (#{chi-macro\ 9167}# - #{fval\ 10493}# - #{e\ 10460}# - #{r\ 10461}# - #{w\ 10462}# - #{rib\ 10464}# - #{mod\ 10465}#) - #{r\ 10461}# + (#{make-syntax-object\ 184}# + #{fval\ 1640}# + #{w\ 1609}# + #{fmod\ 1644}#) + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{ftype\ 1639}# (quote (macro))) + (#{syntax-type\ 303}# + (#{chi-macro\ 313}# + #{fval\ 1640}# + #{e\ 1607}# + #{r\ 1608}# + #{w\ 1609}# + #{rib\ 1611}# + #{mod\ 1612}#) + #{r\ 1608}# '(()) - #{s\ 10463}# - #{rib\ 10464}# - #{mod\ 10465}# - #{for-car?\ 10466}#) - (if (memv #{ftype\ 10492}# (quote (module-ref))) + #{s\ 1610}# + #{rib\ 1611}# + #{mod\ 1612}# + #{for-car?\ 1613}#) + (if (memv #{ftype\ 1639}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 10493}# #{e\ 10460}#)) - (lambda (#{sym\ 10509}# #{mod\ 10510}#) - (#{syntax-type\ 9157}# - #{sym\ 10509}# - #{r\ 10461}# - #{w\ 10462}# - #{s\ 10463}# - #{rib\ 10464}# - #{mod\ 10510}# - #{for-car?\ 10466}#))) - (if (memv #{ftype\ 10492}# (quote (core))) + (lambda () (#{fval\ 1640}# #{e\ 1607}#)) + (lambda (#{sym\ 1656}# #{mod\ 1657}#) + (#{syntax-type\ 303}# + #{sym\ 1656}# + #{r\ 1608}# + #{w\ 1609}# + #{s\ 1610}# + #{rib\ 1611}# + #{mod\ 1657}# + #{for-car?\ 1613}#))) + (if (memv #{ftype\ 1639}# (quote (core))) (values 'core-form - #{fval\ 10493}# - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{ftype\ 10492}# + #{fval\ 1640}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{ftype\ 1639}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 10493}# - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{ftype\ 10492}# - '(begin)) + #{fval\ 1640}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{ftype\ 1639}# (quote (begin))) (values 'begin-form #f - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{ftype\ 10492}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{ftype\ 1639}# '(eval-when)) (values 'eval-when-form #f - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) - (if (memv #{ftype\ 10492}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) + (if (memv #{ftype\ 1639}# '(define)) - ((lambda (#{tmp\ 10518}#) - ((lambda (#{tmp\ 10519}#) - (if (if #{tmp\ 10519}# - (apply (lambda (#{_\ 10523}# - #{name\ 10524}# - #{val\ 10525}#) - (#{id?\ 9076}# - #{name\ 10524}#)) - #{tmp\ 10519}#) + ((lambda (#{tmp\ 1665}#) + ((lambda (#{tmp\ 1666}#) + (if (if #{tmp\ 1666}# + (apply (lambda (#{_\ 1670}# + #{name\ 1671}# + #{val\ 1672}#) + (#{id?\ 222}# + #{name\ 1671}#)) + #{tmp\ 1666}#) #f) - (apply (lambda (#{_\ 10529}# - #{name\ 10530}# - #{val\ 10531}#) + (apply (lambda (#{_\ 1676}# + #{name\ 1677}# + #{val\ 1678}#) (values 'define-form - #{name\ 10530}# - #{val\ 10531}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#)) - #{tmp\ 10519}#) - ((lambda (#{tmp\ 10532}#) - (if (if #{tmp\ 10532}# - (apply (lambda (#{_\ 10538}# - #{name\ 10539}# - #{args\ 10540}# - #{e1\ 10541}# - #{e2\ 10542}#) - (if (#{id?\ 9076}# - #{name\ 10539}#) - (#{valid-bound-ids?\ 9139}# - (#{lambda-var-list\ 9191}# - #{args\ 10540}#)) + #{name\ 1677}# + #{val\ 1678}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#)) + #{tmp\ 1666}#) + ((lambda (#{tmp\ 1679}#) + (if (if #{tmp\ 1679}# + (apply (lambda (#{_\ 1685}# + #{name\ 1686}# + #{args\ 1687}# + #{e1\ 1688}# + #{e2\ 1689}#) + (if (#{id?\ 222}# + #{name\ 1686}#) + (#{valid-bound-ids?\ 285}# + (#{lambda-var-list\ 337}# + #{args\ 1687}#)) #f)) - #{tmp\ 10532}#) + #{tmp\ 1679}#) #f) - (apply (lambda (#{_\ 10550}# - #{name\ 10551}# - #{args\ 10552}# - #{e1\ 10553}# - #{e2\ 10554}#) + (apply (lambda (#{_\ 1697}# + #{name\ 1698}# + #{args\ 1699}# + #{e1\ 1700}# + #{e2\ 1701}#) (values 'define-form - (#{wrap\ 9145}# - #{name\ 10551}# - #{w\ 10462}# - #{mod\ 10465}#) - (#{decorate-source\ 8994}# + (#{wrap\ 291}# + #{name\ 1698}# + #{w\ 1609}# + #{mod\ 1612}#) + (#{decorate-source\ 140}# (cons '#(syntax-object lambda ((top) @@ -3610,11 +3600,11 @@ (top) (top) (top)) - #("i10545" - "i10546" - "i10547" - "i10548" - "i10549")) + #("i1692" + "i1693" + "i1694" + "i1695" + "i1696")) #(ribcage () () @@ -3636,12 +3626,12 @@ (top) (top) (top)) - #("i10498" - "i10499" - "i10500" - "i10501" - "i10502" - "i10503")) + #("i1645" + "i1646" + "i1647" + "i1648" + "i1649" + "i1650")) #(ribcage () () @@ -3649,7 +3639,7 @@ #(ribcage #(first) #((top)) - #("i10490")) + #("i1637")) #(ribcage () () @@ -3677,13 +3667,13 @@ (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471" - "i10472" - "i10473")) + #("i1614" + "i1615" + "i1616" + "i1617" + "i1618" + "i1619" + "i1620")) #(ribcage (lambda-var-list gen-var @@ -3921,160 +3911,160 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" - "i8873"))) + ("i21" + "i19"))) (hygiene guile)) - (#{wrap\ 9145}# - (cons #{args\ 10552}# - (cons #{e1\ 10553}# - #{e2\ 10554}#)) - #{w\ 10462}# - #{mod\ 10465}#)) - #{s\ 10463}#) + (#{wrap\ 291}# + (cons #{args\ 1699}# + (cons #{e1\ 1700}# + #{e2\ 1701}#)) + #{w\ 1609}# + #{mod\ 1612}#)) + #{s\ 1610}#) '(()) - #{s\ 10463}# - #{mod\ 10465}#)) - #{tmp\ 10532}#) - ((lambda (#{tmp\ 10557}#) - (if (if #{tmp\ 10557}# - (apply (lambda (#{_\ 10560}# - #{name\ 10561}#) - (#{id?\ 9076}# - #{name\ 10561}#)) - #{tmp\ 10557}#) + #{s\ 1610}# + #{mod\ 1612}#)) + #{tmp\ 1679}#) + ((lambda (#{tmp\ 1704}#) + (if (if #{tmp\ 1704}# + (apply (lambda (#{_\ 1707}# + #{name\ 1708}#) + (#{id?\ 222}# + #{name\ 1708}#)) + #{tmp\ 1704}#) #f) - (apply (lambda (#{_\ 10564}# - #{name\ 10565}#) + (apply (lambda (#{_\ 1711}# + #{name\ 1712}#) (values 'define-form - (#{wrap\ 9145}# - #{name\ 10565}# - #{w\ 10462}# - #{mod\ 10465}#) + (#{wrap\ 291}# + #{name\ 1712}# + #{w\ 1609}# + #{mod\ 1612}#) '(#(syntax-object if ((top) @@ -4083,8 +4073,8 @@ name) #((top) (top)) - #("i10562" - "i10563")) + #("i1709" + "i1710")) #(ribcage () () @@ -4106,12 +4096,12 @@ (top) (top) (top)) - #("i10498" - "i10499" - "i10500" - "i10501" - "i10502" - "i10503")) + #("i1645" + "i1646" + "i1647" + "i1648" + "i1649" + "i1650")) #(ribcage () () @@ -4119,7 +4109,7 @@ #(ribcage #(first) #((top)) - #("i10490")) + #("i1637")) #(ribcage () () @@ -4147,13 +4137,13 @@ (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471" - "i10472" - "i10473")) + #("i1614" + "i1615" + "i1616" + "i1617" + "i1618" + "i1619" + "i1620")) #(ribcage (lambda-var-list gen-var @@ -4391,131 +4381,131 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" - "i8873"))) + ("i21" + "i19"))) (hygiene guile)) #(syntax-object @@ -4526,8 +4516,8 @@ name) #((top) (top)) - #("i10562" - "i10563")) + #("i1709" + "i1710")) #(ribcage () () @@ -4549,12 +4539,12 @@ (top) (top) (top)) - #("i10498" - "i10499" - "i10500" - "i10501" - "i10502" - "i10503")) + #("i1645" + "i1646" + "i1647" + "i1648" + "i1649" + "i1650")) #(ribcage () () @@ -4562,7 +4552,7 @@ #(ribcage #(first) #((top)) - #("i10490")) + #("i1637")) #(ribcage () () @@ -4590,13 +4580,13 @@ (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471" - "i10472" - "i10473")) + #("i1614" + "i1615" + "i1616" + "i1617" + "i1618" + "i1619" + "i1620")) #(ribcage (lambda-var-list gen-var @@ -4834,131 +4824,131 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" - "i8873"))) + ("i21" + "i19"))) (hygiene guile)) #(syntax-object @@ -4969,8 +4959,8 @@ name) #((top) (top)) - #("i10562" - "i10563")) + #("i1709" + "i1710")) #(ribcage () () @@ -4992,12 +4982,12 @@ (top) (top) (top)) - #("i10498" - "i10499" - "i10500" - "i10501" - "i10502" - "i10503")) + #("i1645" + "i1646" + "i1647" + "i1648" + "i1649" + "i1650")) #(ribcage () () @@ -5005,7 +4995,7 @@ #(ribcage #(first) #((top)) - #("i10490")) + #("i1637")) #(ribcage () () @@ -5033,13 +5023,13 @@ (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471" - "i10472" - "i10473")) + #("i1614" + "i1615" + "i1616" + "i1617" + "i1618" + "i1619" + "i1620")) #(ribcage (lambda-var-list gen-var @@ -5277,232 +5267,232 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" - "i8873"))) + ("i21" + "i19"))) (hygiene guile))) '(()) - #{s\ 10463}# - #{mod\ 10465}#)) - #{tmp\ 10557}#) + #{s\ 1610}# + #{mod\ 1612}#)) + #{tmp\ 1704}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10518}#))) + #{tmp\ 1665}#))) ($sc-dispatch - #{tmp\ 10518}# + #{tmp\ 1665}# '(any any))))) ($sc-dispatch - #{tmp\ 10518}# + #{tmp\ 1665}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 10518}# + #{tmp\ 1665}# '(any any any)))) - #{e\ 10460}#) - (if (memv #{ftype\ 10492}# + #{e\ 1607}#) + (if (memv #{ftype\ 1639}# '(define-syntax)) - ((lambda (#{tmp\ 10568}#) - ((lambda (#{tmp\ 10569}#) - (if (if #{tmp\ 10569}# - (apply (lambda (#{_\ 10573}# - #{name\ 10574}# - #{val\ 10575}#) - (#{id?\ 9076}# - #{name\ 10574}#)) - #{tmp\ 10569}#) + ((lambda (#{tmp\ 1715}#) + ((lambda (#{tmp\ 1716}#) + (if (if #{tmp\ 1716}# + (apply (lambda (#{_\ 1720}# + #{name\ 1721}# + #{val\ 1722}#) + (#{id?\ 222}# + #{name\ 1721}#)) + #{tmp\ 1716}#) #f) - (apply (lambda (#{_\ 10579}# - #{name\ 10580}# - #{val\ 10581}#) + (apply (lambda (#{_\ 1726}# + #{name\ 1727}# + #{val\ 1728}#) (values 'define-syntax-form - #{name\ 10580}# - #{val\ 10581}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#)) - #{tmp\ 10569}#) + #{name\ 1727}# + #{val\ 1728}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#)) + #{tmp\ 1716}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 10568}#))) + #{tmp\ 1715}#))) ($sc-dispatch - #{tmp\ 10568}# + #{tmp\ 1715}# '(any any any)))) - #{e\ 10460}#) + #{e\ 1607}#) (values 'call #f - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#)))))))))))))) - (if (#{syntax-object?\ 9040}# #{e\ 10460}#) - (#{syntax-type\ 9157}# - (#{syntax-object-expression\ 9042}# #{e\ 10460}#) - #{r\ 10461}# - (#{join-wraps\ 9127}# - #{w\ 10462}# - (#{syntax-object-wrap\ 9044}# #{e\ 10460}#)) - #{s\ 10463}# - #{rib\ 10464}# - (let ((#{t\ 10587}# - (#{syntax-object-module\ 9046}# #{e\ 10460}#))) - (if #{t\ 10587}# #{t\ 10587}# #{mod\ 10465}#)) - #{for-car?\ 10466}#) - (if (self-evaluating? #{e\ 10460}#) + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#)))))))))))))) + (if (#{syntax-object?\ 186}# #{e\ 1607}#) + (#{syntax-type\ 303}# + (#{syntax-object-expression\ 188}# #{e\ 1607}#) + #{r\ 1608}# + (#{join-wraps\ 273}# + #{w\ 1609}# + (#{syntax-object-wrap\ 190}# #{e\ 1607}#)) + #{s\ 1610}# + #{rib\ 1611}# + (let ((#{t\ 1734}# + (#{syntax-object-module\ 192}# #{e\ 1607}#))) + (if #{t\ 1734}# #{t\ 1734}# #{mod\ 1612}#)) + #{for-car?\ 1613}#) + (if (self-evaluating? #{e\ 1607}#) (values 'constant #f - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#) + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#) (values 'other #f - #{e\ 10460}# - #{w\ 10462}# - #{s\ 10463}# - #{mod\ 10465}#))))))) - (#{chi-when-list\ 9155}# - (lambda (#{e\ 10592}# #{when-list\ 10593}# #{w\ 10594}#) - (letrec ((#{f\ 10601}# - (lambda (#{when-list\ 10602}# #{situations\ 10603}#) - (if (null? #{when-list\ 10602}#) - #{situations\ 10603}# - (#{f\ 10601}# - (cdr #{when-list\ 10602}#) - (cons (let ((#{x\ 10605}# - (car #{when-list\ 10602}#))) - (if (#{free-id=?\ 9135}# - #{x\ 10605}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1612}#))))))) + (#{chi-when-list\ 301}# + (lambda (#{e\ 1739}# #{when-list\ 1740}# #{w\ 1741}#) + (letrec ((#{f\ 1748}# + (lambda (#{when-list\ 1749}# #{situations\ 1750}#) + (if (null? #{when-list\ 1749}#) + #{situations\ 1750}# + (#{f\ 1748}# + (cdr #{when-list\ 1749}#) + (cons (let ((#{x\ 1752}# + (car #{when-list\ 1749}#))) + (if (#{free-id=?\ 281}# + #{x\ 1752}# '#(syntax-object compile ((top) @@ -5512,21 +5502,17 @@ #(ribcage #(x) #((top)) - #("i10604")) + #("i1751")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i10598" - "i10599" - "i10600")) + #("i1745" "i1746" "i1747")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i10595" - "i10596" - "i10597")) + #("i1742" "i1743" "i1744")) #(ribcage (lambda-var-list gen-var @@ -5764,132 +5750,132 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 9135}# - #{x\ 10605}# + (if (#{free-id=?\ 281}# + #{x\ 1752}# '#(syntax-object load ((top) @@ -5899,21 +5885,21 @@ #(ribcage #(x) #((top)) - #("i10604")) + #("i1751")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i10598" - "i10599" - "i10600")) + #("i1745" + "i1746" + "i1747")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i10595" - "i10596" - "i10597")) + #("i1742" + "i1743" + "i1744")) #(ribcage (lambda-var-list gen-var @@ -6151,133 +6137,133 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile))) 'load - (if (#{free-id=?\ 9135}# - #{x\ 10605}# + (if (#{free-id=?\ 281}# + #{x\ 1752}# '#(syntax-object eval ((top) @@ -6287,23 +6273,23 @@ #(ribcage #(x) #((top)) - #("i10604")) + #("i1751")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i10598" - "i10599" - "i10600")) + #("i1745" + "i1746" + "i1747")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i10595" - "i10596" - "i10597")) + #("i1742" + "i1743" + "i1744")) #(ribcage (lambda-var-list gen-var @@ -6541,1044 +6527,1016 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile))) 'eval (syntax-violation 'eval-when "invalid situation" - #{e\ 10592}# - (#{wrap\ 9145}# - #{x\ 10605}# - #{w\ 10594}# + #{e\ 1739}# + (#{wrap\ 291}# + #{x\ 1752}# + #{w\ 1741}# #f)))))) - #{situations\ 10603}#)))))) - (#{f\ 10601}# #{when-list\ 10593}# (quote ()))))) - (#{chi-install-global\ 9153}# - (lambda (#{name\ 10613}# #{e\ 10614}#) - (#{build-global-definition\ 9016}# + #{situations\ 1750}#)))))) + (#{f\ 1748}# #{when-list\ 1740}# (quote ()))))) + (#{chi-install-global\ 299}# + (lambda (#{name\ 1760}# #{e\ 1761}#) + (#{build-global-definition\ 162}# #f - #{name\ 10613}# - (#{build-application\ 8998}# + #{name\ 1760}# + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# + (#{build-primref\ 170}# #f 'make-syntax-transformer) - (list (#{build-data\ 9026}# #f #{name\ 10613}#) - (#{build-data\ 9026}# #f (quote macro)) - (#{build-application\ 8998}# + (list (#{build-data\ 172}# #f #{name\ 1760}#) + (#{build-data\ 172}# #f (quote macro)) + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# #f (quote cons)) - (list #{e\ 10614}# - (#{build-application\ 8998}# + (#{build-primref\ 170}# #f (quote cons)) + (list #{e\ 1761}# + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# + (#{build-primref\ 170}# #f 'module-name) - (list (#{build-application\ 8998}# + (list (#{build-application\ 144}# #f - (#{build-primref\ 9024}# + (#{build-primref\ 170}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 9151}# - (lambda (#{body\ 10628}# - #{r\ 10629}# - #{w\ 10630}# - #{s\ 10631}# - #{m\ 10632}# - #{esew\ 10633}# - #{mod\ 10634}#) - (#{build-sequence\ 9028}# - #{s\ 10631}# - (letrec ((#{dobody\ 10651}# - (lambda (#{body\ 10652}# - #{r\ 10653}# - #{w\ 10654}# - #{m\ 10655}# - #{esew\ 10656}# - #{mod\ 10657}# - #{module\ 10658}# - #{out\ 10659}#) - (if (null? #{body\ 10652}#) - (reverse #{out\ 10659}#) - (let ((#{first\ 10662}# - (#{chi-top\ 9159}# - (car #{body\ 10652}#) - #{r\ 10653}# - #{w\ 10654}# - #{m\ 10655}# - #{esew\ 10656}# - #{mod\ 10657}#))) - (let ((#{new-module\ 10664}# + (#{chi-top-sequence\ 297}# + (lambda (#{body\ 1775}# + #{r\ 1776}# + #{w\ 1777}# + #{s\ 1778}# + #{m\ 1779}# + #{esew\ 1780}# + #{mod\ 1781}#) + (#{build-sequence\ 174}# + #{s\ 1778}# + (letrec ((#{dobody\ 1798}# + (lambda (#{body\ 1799}# + #{r\ 1800}# + #{w\ 1801}# + #{m\ 1802}# + #{esew\ 1803}# + #{mod\ 1804}# + #{module\ 1805}# + #{out\ 1806}#) + (if (null? #{body\ 1799}#) + (reverse #{out\ 1806}#) + (let ((#{first\ 1809}# + (#{chi-top\ 305}# + (car #{body\ 1799}#) + #{r\ 1800}# + #{w\ 1801}# + #{m\ 1802}# + #{esew\ 1803}# + #{mod\ 1804}#))) + (let ((#{new-module\ 1811}# (current-module))) - (#{dobody\ 10651}# - (cdr #{body\ 10652}#) - #{r\ 10653}# - #{w\ 10654}# - #{m\ 10655}# - #{esew\ 10656}# - (if (eq? #{module\ 10658}# - #{new-module\ 10664}#) - #{mod\ 10657}# + (#{dobody\ 1798}# + (cdr #{body\ 1799}#) + #{r\ 1800}# + #{w\ 1801}# + #{m\ 1802}# + #{esew\ 1803}# + (if (eq? #{module\ 1805}# + #{new-module\ 1811}#) + #{mod\ 1804}# (cons 'hygiene (module-name - #{new-module\ 10664}#))) - #{new-module\ 10664}# - (cons #{first\ 10662}# - #{out\ 10659}#)))))))) - (#{dobody\ 10651}# - #{body\ 10628}# - #{r\ 10629}# - #{w\ 10630}# - #{m\ 10632}# - #{esew\ 10633}# - #{mod\ 10634}# + #{new-module\ 1811}#))) + #{new-module\ 1811}# + (cons #{first\ 1809}# + #{out\ 1806}#)))))))) + (#{dobody\ 1798}# + #{body\ 1775}# + #{r\ 1776}# + #{w\ 1777}# + #{m\ 1779}# + #{esew\ 1780}# + #{mod\ 1781}# (current-module) '()))))) - (#{chi-sequence\ 9149}# - (lambda (#{body\ 10665}# - #{r\ 10666}# - #{w\ 10667}# - #{s\ 10668}# - #{mod\ 10669}#) - (#{build-sequence\ 9028}# - #{s\ 10668}# - (letrec ((#{dobody\ 10680}# - (lambda (#{body\ 10681}# - #{r\ 10682}# - #{w\ 10683}# - #{mod\ 10684}#) - (if (null? #{body\ 10681}#) + (#{chi-sequence\ 295}# + (lambda (#{body\ 1812}# + #{r\ 1813}# + #{w\ 1814}# + #{s\ 1815}# + #{mod\ 1816}#) + (#{build-sequence\ 174}# + #{s\ 1815}# + (letrec ((#{dobody\ 1827}# + (lambda (#{body\ 1828}# + #{r\ 1829}# + #{w\ 1830}# + #{mod\ 1831}#) + (if (null? #{body\ 1828}#) '() - (let ((#{first\ 10686}# - (#{chi\ 9161}# - (car #{body\ 10681}#) - #{r\ 10682}# - #{w\ 10683}# - #{mod\ 10684}#))) - (cons #{first\ 10686}# - (#{dobody\ 10680}# - (cdr #{body\ 10681}#) - #{r\ 10682}# - #{w\ 10683}# - #{mod\ 10684}#))))))) - (#{dobody\ 10680}# - #{body\ 10665}# - #{r\ 10666}# - #{w\ 10667}# - #{mod\ 10669}#))))) - (#{source-wrap\ 9147}# - (lambda (#{x\ 10687}# - #{w\ 10688}# - #{s\ 10689}# - #{defmod\ 10690}#) - (#{wrap\ 9145}# - (#{decorate-source\ 8994}# - #{x\ 10687}# - #{s\ 10689}#) - #{w\ 10688}# - #{defmod\ 10690}#))) - (#{wrap\ 9145}# - (lambda (#{x\ 10695}# #{w\ 10696}# #{defmod\ 10697}#) - (if (if (null? (#{wrap-marks\ 9083}# #{w\ 10696}#)) - (null? (#{wrap-subst\ 9085}# #{w\ 10696}#)) + (let ((#{first\ 1833}# + (#{chi\ 307}# + (car #{body\ 1828}#) + #{r\ 1829}# + #{w\ 1830}# + #{mod\ 1831}#))) + (cons #{first\ 1833}# + (#{dobody\ 1827}# + (cdr #{body\ 1828}#) + #{r\ 1829}# + #{w\ 1830}# + #{mod\ 1831}#))))))) + (#{dobody\ 1827}# + #{body\ 1812}# + #{r\ 1813}# + #{w\ 1814}# + #{mod\ 1816}#))))) + (#{source-wrap\ 293}# + (lambda (#{x\ 1834}# + #{w\ 1835}# + #{s\ 1836}# + #{defmod\ 1837}#) + (#{wrap\ 291}# + (#{decorate-source\ 140}# + #{x\ 1834}# + #{s\ 1836}#) + #{w\ 1835}# + #{defmod\ 1837}#))) + (#{wrap\ 291}# + (lambda (#{x\ 1842}# #{w\ 1843}# #{defmod\ 1844}#) + (if (if (null? (#{wrap-marks\ 229}# #{w\ 1843}#)) + (null? (#{wrap-subst\ 231}# #{w\ 1843}#)) #f) - #{x\ 10695}# - (if (#{syntax-object?\ 9040}# #{x\ 10695}#) - (#{make-syntax-object\ 9038}# - (#{syntax-object-expression\ 9042}# #{x\ 10695}#) - (#{join-wraps\ 9127}# - #{w\ 10696}# - (#{syntax-object-wrap\ 9044}# #{x\ 10695}#)) - (#{syntax-object-module\ 9046}# #{x\ 10695}#)) - (if (null? #{x\ 10695}#) - #{x\ 10695}# - (#{make-syntax-object\ 9038}# - #{x\ 10695}# - #{w\ 10696}# - #{defmod\ 10697}#)))))) - (#{bound-id-member?\ 9143}# - (lambda (#{x\ 10710}# #{list\ 10711}#) - (if (not (null? #{list\ 10711}#)) - (let ((#{t\ 10718}# - (#{bound-id=?\ 9137}# - #{x\ 10710}# - (car #{list\ 10711}#)))) - (if #{t\ 10718}# - #{t\ 10718}# - (#{bound-id-member?\ 9143}# - #{x\ 10710}# - (cdr #{list\ 10711}#)))) + #{x\ 1842}# + (if (#{syntax-object?\ 186}# #{x\ 1842}#) + (#{make-syntax-object\ 184}# + (#{syntax-object-expression\ 188}# #{x\ 1842}#) + (#{join-wraps\ 273}# + #{w\ 1843}# + (#{syntax-object-wrap\ 190}# #{x\ 1842}#)) + (#{syntax-object-module\ 192}# #{x\ 1842}#)) + (if (null? #{x\ 1842}#) + #{x\ 1842}# + (#{make-syntax-object\ 184}# + #{x\ 1842}# + #{w\ 1843}# + #{defmod\ 1844}#)))))) + (#{bound-id-member?\ 289}# + (lambda (#{x\ 1857}# #{list\ 1858}#) + (if (not (null? #{list\ 1858}#)) + (let ((#{t\ 1865}# + (#{bound-id=?\ 283}# + #{x\ 1857}# + (car #{list\ 1858}#)))) + (if #{t\ 1865}# + #{t\ 1865}# + (#{bound-id-member?\ 289}# + #{x\ 1857}# + (cdr #{list\ 1858}#)))) #f))) - (#{distinct-bound-ids?\ 9141}# - (lambda (#{ids\ 10720}#) - (letrec ((#{distinct?\ 10724}# - (lambda (#{ids\ 10725}#) - (let ((#{t\ 10728}# (null? #{ids\ 10725}#))) - (if #{t\ 10728}# - #{t\ 10728}# - (if (not (#{bound-id-member?\ 9143}# - (car #{ids\ 10725}#) - (cdr #{ids\ 10725}#))) - (#{distinct?\ 10724}# (cdr #{ids\ 10725}#)) + (#{distinct-bound-ids?\ 287}# + (lambda (#{ids\ 1867}#) + (letrec ((#{distinct?\ 1871}# + (lambda (#{ids\ 1872}#) + (let ((#{t\ 1875}# (null? #{ids\ 1872}#))) + (if #{t\ 1875}# + #{t\ 1875}# + (if (not (#{bound-id-member?\ 289}# + (car #{ids\ 1872}#) + (cdr #{ids\ 1872}#))) + (#{distinct?\ 1871}# (cdr #{ids\ 1872}#)) #f)))))) - (#{distinct?\ 10724}# #{ids\ 10720}#)))) - (#{valid-bound-ids?\ 9139}# - (lambda (#{ids\ 10732}#) - (if (letrec ((#{all-ids?\ 10737}# - (lambda (#{ids\ 10738}#) - (let ((#{t\ 10741}# (null? #{ids\ 10738}#))) - (if #{t\ 10741}# - #{t\ 10741}# - (if (#{id?\ 9076}# (car #{ids\ 10738}#)) - (#{all-ids?\ 10737}# - (cdr #{ids\ 10738}#)) + (#{distinct?\ 1871}# #{ids\ 1867}#)))) + (#{valid-bound-ids?\ 285}# + (lambda (#{ids\ 1879}#) + (if (letrec ((#{all-ids?\ 1884}# + (lambda (#{ids\ 1885}#) + (let ((#{t\ 1888}# (null? #{ids\ 1885}#))) + (if #{t\ 1888}# + #{t\ 1888}# + (if (#{id?\ 222}# (car #{ids\ 1885}#)) + (#{all-ids?\ 1884}# (cdr #{ids\ 1885}#)) #f)))))) - (#{all-ids?\ 10737}# #{ids\ 10732}#)) - (#{distinct-bound-ids?\ 9141}# #{ids\ 10732}#) + (#{all-ids?\ 1884}# #{ids\ 1879}#)) + (#{distinct-bound-ids?\ 287}# #{ids\ 1879}#) #f))) - (#{bound-id=?\ 9137}# - (lambda (#{i\ 10746}# #{j\ 10747}#) - (if (if (#{syntax-object?\ 9040}# #{i\ 10746}#) - (#{syntax-object?\ 9040}# #{j\ 10747}#) + (#{bound-id=?\ 283}# + (lambda (#{i\ 1893}# #{j\ 1894}#) + (if (if (#{syntax-object?\ 186}# #{i\ 1893}#) + (#{syntax-object?\ 186}# #{j\ 1894}#) #f) - (if (eq? (#{syntax-object-expression\ 9042}# #{i\ 10746}#) - (#{syntax-object-expression\ 9042}# #{j\ 10747}#)) - (#{same-marks?\ 9131}# - (#{wrap-marks\ 9083}# - (#{syntax-object-wrap\ 9044}# #{i\ 10746}#)) - (#{wrap-marks\ 9083}# - (#{syntax-object-wrap\ 9044}# #{j\ 10747}#))) + (if (eq? (#{syntax-object-expression\ 188}# #{i\ 1893}#) + (#{syntax-object-expression\ 188}# #{j\ 1894}#)) + (#{same-marks?\ 277}# + (#{wrap-marks\ 229}# + (#{syntax-object-wrap\ 190}# #{i\ 1893}#)) + (#{wrap-marks\ 229}# + (#{syntax-object-wrap\ 190}# #{j\ 1894}#))) #f) - (eq? #{i\ 10746}# #{j\ 10747}#)))) - (#{free-id=?\ 9135}# - (lambda (#{i\ 10754}# #{j\ 10755}#) - (if (eq? (let ((#{x\ 10761}# #{i\ 10754}#)) - (if (#{syntax-object?\ 9040}# #{x\ 10761}#) - (#{syntax-object-expression\ 9042}# #{x\ 10761}#) - #{x\ 10761}#)) - (let ((#{x\ 10764}# #{j\ 10755}#)) - (if (#{syntax-object?\ 9040}# #{x\ 10764}#) - (#{syntax-object-expression\ 9042}# #{x\ 10764}#) - #{x\ 10764}#))) - (eq? (#{id-var-name\ 9133}# #{i\ 10754}# (quote (()))) - (#{id-var-name\ 9133}# #{j\ 10755}# (quote (())))) + (eq? #{i\ 1893}# #{j\ 1894}#)))) + (#{free-id=?\ 281}# + (lambda (#{i\ 1901}# #{j\ 1902}#) + (if (eq? (let ((#{x\ 1908}# #{i\ 1901}#)) + (if (#{syntax-object?\ 186}# #{x\ 1908}#) + (#{syntax-object-expression\ 188}# #{x\ 1908}#) + #{x\ 1908}#)) + (let ((#{x\ 1911}# #{j\ 1902}#)) + (if (#{syntax-object?\ 186}# #{x\ 1911}#) + (#{syntax-object-expression\ 188}# #{x\ 1911}#) + #{x\ 1911}#))) + (eq? (#{id-var-name\ 279}# #{i\ 1901}# (quote (()))) + (#{id-var-name\ 279}# #{j\ 1902}# (quote (())))) #f))) - (#{id-var-name\ 9133}# - (lambda (#{id\ 10768}# #{w\ 10769}#) - (letrec ((#{search-vector-rib\ 10778}# - (lambda (#{sym\ 10790}# - #{subst\ 10791}# - #{marks\ 10792}# - #{symnames\ 10793}# - #{ribcage\ 10794}#) - (let ((#{n\ 10801}# - (vector-length #{symnames\ 10793}#))) - (letrec ((#{f\ 10804}# - (lambda (#{i\ 10805}#) - (if (#{fx=\ 8981}# - #{i\ 10805}# - #{n\ 10801}#) - (#{search\ 10774}# - #{sym\ 10790}# - (cdr #{subst\ 10791}#) - #{marks\ 10792}#) + (#{id-var-name\ 279}# + (lambda (#{id\ 1915}# #{w\ 1916}#) + (letrec ((#{search-vector-rib\ 1925}# + (lambda (#{sym\ 1937}# + #{subst\ 1938}# + #{marks\ 1939}# + #{symnames\ 1940}# + #{ribcage\ 1941}#) + (let ((#{n\ 1948}# + (vector-length #{symnames\ 1940}#))) + (letrec ((#{f\ 1951}# + (lambda (#{i\ 1952}#) + (if (#{fx=\ 127}# + #{i\ 1952}# + #{n\ 1948}#) + (#{search\ 1921}# + #{sym\ 1937}# + (cdr #{subst\ 1938}#) + #{marks\ 1939}#) (if (if (eq? (vector-ref - #{symnames\ 10793}# - #{i\ 10805}#) - #{sym\ 10790}#) - (#{same-marks?\ 9131}# - #{marks\ 10792}# + #{symnames\ 1940}# + #{i\ 1952}#) + #{sym\ 1937}#) + (#{same-marks?\ 277}# + #{marks\ 1939}# (vector-ref - (#{ribcage-marks\ 9103}# - #{ribcage\ 10794}#) - #{i\ 10805}#)) + (#{ribcage-marks\ 249}# + #{ribcage\ 1941}#) + #{i\ 1952}#)) #f) (values (vector-ref - (#{ribcage-labels\ 9105}# - #{ribcage\ 10794}#) - #{i\ 10805}#) - #{marks\ 10792}#) - (#{f\ 10804}# - (#{fx+\ 8977}# - #{i\ 10805}# + (#{ribcage-labels\ 251}# + #{ribcage\ 1941}#) + #{i\ 1952}#) + #{marks\ 1939}#) + (#{f\ 1951}# + (#{fx+\ 123}# + #{i\ 1952}# 1))))))) - (#{f\ 10804}# 0))))) - (#{search-list-rib\ 10776}# - (lambda (#{sym\ 10813}# - #{subst\ 10814}# - #{marks\ 10815}# - #{symnames\ 10816}# - #{ribcage\ 10817}#) - (letrec ((#{f\ 10826}# - (lambda (#{symnames\ 10827}# - #{i\ 10828}#) - (if (null? #{symnames\ 10827}#) - (#{search\ 10774}# - #{sym\ 10813}# - (cdr #{subst\ 10814}#) - #{marks\ 10815}#) - (if (if (eq? (car #{symnames\ 10827}#) - #{sym\ 10813}#) - (#{same-marks?\ 9131}# - #{marks\ 10815}# + (#{f\ 1951}# 0))))) + (#{search-list-rib\ 1923}# + (lambda (#{sym\ 1960}# + #{subst\ 1961}# + #{marks\ 1962}# + #{symnames\ 1963}# + #{ribcage\ 1964}#) + (letrec ((#{f\ 1973}# + (lambda (#{symnames\ 1974}# #{i\ 1975}#) + (if (null? #{symnames\ 1974}#) + (#{search\ 1921}# + #{sym\ 1960}# + (cdr #{subst\ 1961}#) + #{marks\ 1962}#) + (if (if (eq? (car #{symnames\ 1974}#) + #{sym\ 1960}#) + (#{same-marks?\ 277}# + #{marks\ 1962}# (list-ref - (#{ribcage-marks\ 9103}# - #{ribcage\ 10817}#) - #{i\ 10828}#)) + (#{ribcage-marks\ 249}# + #{ribcage\ 1964}#) + #{i\ 1975}#)) #f) (values (list-ref - (#{ribcage-labels\ 9105}# - #{ribcage\ 10817}#) - #{i\ 10828}#) - #{marks\ 10815}#) - (#{f\ 10826}# - (cdr #{symnames\ 10827}#) - (#{fx+\ 8977}# - #{i\ 10828}# + (#{ribcage-labels\ 251}# + #{ribcage\ 1964}#) + #{i\ 1975}#) + #{marks\ 1962}#) + (#{f\ 1973}# + (cdr #{symnames\ 1974}#) + (#{fx+\ 123}# + #{i\ 1975}# 1))))))) - (#{f\ 10826}# #{symnames\ 10816}# 0)))) - (#{search\ 10774}# - (lambda (#{sym\ 10836}# - #{subst\ 10837}# - #{marks\ 10838}#) - (if (null? #{subst\ 10837}#) - (values #f #{marks\ 10838}#) - (let ((#{fst\ 10843}# (car #{subst\ 10837}#))) - (if (eq? #{fst\ 10843}# (quote shift)) - (#{search\ 10774}# - #{sym\ 10836}# - (cdr #{subst\ 10837}#) - (cdr #{marks\ 10838}#)) - (let ((#{symnames\ 10845}# - (#{ribcage-symnames\ 9101}# - #{fst\ 10843}#))) - (if (vector? #{symnames\ 10845}#) - (#{search-vector-rib\ 10778}# - #{sym\ 10836}# - #{subst\ 10837}# - #{marks\ 10838}# - #{symnames\ 10845}# - #{fst\ 10843}#) - (#{search-list-rib\ 10776}# - #{sym\ 10836}# - #{subst\ 10837}# - #{marks\ 10838}# - #{symnames\ 10845}# - #{fst\ 10843}#))))))))) - (if (symbol? #{id\ 10768}#) - (let ((#{t\ 10848}# + (#{f\ 1973}# #{symnames\ 1963}# 0)))) + (#{search\ 1921}# + (lambda (#{sym\ 1983}# + #{subst\ 1984}# + #{marks\ 1985}#) + (if (null? #{subst\ 1984}#) + (values #f #{marks\ 1985}#) + (let ((#{fst\ 1990}# (car #{subst\ 1984}#))) + (if (eq? #{fst\ 1990}# (quote shift)) + (#{search\ 1921}# + #{sym\ 1983}# + (cdr #{subst\ 1984}#) + (cdr #{marks\ 1985}#)) + (let ((#{symnames\ 1992}# + (#{ribcage-symnames\ 247}# + #{fst\ 1990}#))) + (if (vector? #{symnames\ 1992}#) + (#{search-vector-rib\ 1925}# + #{sym\ 1983}# + #{subst\ 1984}# + #{marks\ 1985}# + #{symnames\ 1992}# + #{fst\ 1990}#) + (#{search-list-rib\ 1923}# + #{sym\ 1983}# + #{subst\ 1984}# + #{marks\ 1985}# + #{symnames\ 1992}# + #{fst\ 1990}#))))))))) + (if (symbol? #{id\ 1915}#) + (let ((#{t\ 1995}# (call-with-values (lambda () - (#{search\ 10774}# - #{id\ 10768}# - (#{wrap-subst\ 9085}# #{w\ 10769}#) - (#{wrap-marks\ 9083}# #{w\ 10769}#))) - (lambda (#{x\ 10850}# . #{ignore\ 10851}#) - #{x\ 10850}#)))) - (if #{t\ 10848}# #{t\ 10848}# #{id\ 10768}#)) - (if (#{syntax-object?\ 9040}# #{id\ 10768}#) - (let ((#{id\ 10859}# - (#{syntax-object-expression\ 9042}# - #{id\ 10768}#)) - (#{w1\ 10860}# - (#{syntax-object-wrap\ 9044}# #{id\ 10768}#))) - (let ((#{marks\ 10862}# - (#{join-marks\ 9129}# - (#{wrap-marks\ 9083}# #{w\ 10769}#) - (#{wrap-marks\ 9083}# #{w1\ 10860}#)))) + (#{search\ 1921}# + #{id\ 1915}# + (#{wrap-subst\ 231}# #{w\ 1916}#) + (#{wrap-marks\ 229}# #{w\ 1916}#))) + (lambda (#{x\ 1997}# . #{ignore\ 1998}#) + #{x\ 1997}#)))) + (if #{t\ 1995}# #{t\ 1995}# #{id\ 1915}#)) + (if (#{syntax-object?\ 186}# #{id\ 1915}#) + (let ((#{id\ 2006}# + (#{syntax-object-expression\ 188}# #{id\ 1915}#)) + (#{w1\ 2007}# + (#{syntax-object-wrap\ 190}# #{id\ 1915}#))) + (let ((#{marks\ 2009}# + (#{join-marks\ 275}# + (#{wrap-marks\ 229}# #{w\ 1916}#) + (#{wrap-marks\ 229}# #{w1\ 2007}#)))) (call-with-values (lambda () - (#{search\ 10774}# - #{id\ 10859}# - (#{wrap-subst\ 9085}# #{w\ 10769}#) - #{marks\ 10862}#)) - (lambda (#{new-id\ 10863}# #{marks\ 10864}#) - (let ((#{t\ 10869}# #{new-id\ 10863}#)) - (if #{t\ 10869}# - #{t\ 10869}# - (let ((#{t\ 10872}# + (#{search\ 1921}# + #{id\ 2006}# + (#{wrap-subst\ 231}# #{w\ 1916}#) + #{marks\ 2009}#)) + (lambda (#{new-id\ 2010}# #{marks\ 2011}#) + (let ((#{t\ 2016}# #{new-id\ 2010}#)) + (if #{t\ 2016}# + #{t\ 2016}# + (let ((#{t\ 2019}# (call-with-values (lambda () - (#{search\ 10774}# - #{id\ 10859}# - (#{wrap-subst\ 9085}# - #{w1\ 10860}#) - #{marks\ 10864}#)) - (lambda (#{x\ 10874}# + (#{search\ 1921}# + #{id\ 2006}# + (#{wrap-subst\ 231}# + #{w1\ 2007}#) + #{marks\ 2011}#)) + (lambda (#{x\ 2021}# . - #{ignore\ 10875}#) - #{x\ 10874}#)))) - (if #{t\ 10872}# - #{t\ 10872}# - #{id\ 10859}#)))))))) + #{ignore\ 2022}#) + #{x\ 2021}#)))) + (if #{t\ 2019}# + #{t\ 2019}# + #{id\ 2006}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 10768}#)))))) - (#{same-marks?\ 9131}# - (lambda (#{x\ 10880}# #{y\ 10881}#) - (let ((#{t\ 10886}# (eq? #{x\ 10880}# #{y\ 10881}#))) - (if #{t\ 10886}# - #{t\ 10886}# - (if (not (null? #{x\ 10880}#)) - (if (not (null? #{y\ 10881}#)) - (if (eq? (car #{x\ 10880}#) (car #{y\ 10881}#)) - (#{same-marks?\ 9131}# - (cdr #{x\ 10880}#) - (cdr #{y\ 10881}#)) + #{id\ 1915}#)))))) + (#{same-marks?\ 277}# + (lambda (#{x\ 2027}# #{y\ 2028}#) + (let ((#{t\ 2033}# (eq? #{x\ 2027}# #{y\ 2028}#))) + (if #{t\ 2033}# + #{t\ 2033}# + (if (not (null? #{x\ 2027}#)) + (if (not (null? #{y\ 2028}#)) + (if (eq? (car #{x\ 2027}#) (car #{y\ 2028}#)) + (#{same-marks?\ 277}# + (cdr #{x\ 2027}#) + (cdr #{y\ 2028}#)) #f) #f) #f))))) - (#{join-marks\ 9129}# - (lambda (#{m1\ 10892}# #{m2\ 10893}#) - (#{smart-append\ 9125}# - #{m1\ 10892}# - #{m2\ 10893}#))) - (#{join-wraps\ 9127}# - (lambda (#{w1\ 10896}# #{w2\ 10897}#) - (let ((#{m1\ 10902}# - (#{wrap-marks\ 9083}# #{w1\ 10896}#)) - (#{s1\ 10903}# - (#{wrap-subst\ 9085}# #{w1\ 10896}#))) - (if (null? #{m1\ 10902}#) - (if (null? #{s1\ 10903}#) - #{w2\ 10897}# - (#{make-wrap\ 9081}# - (#{wrap-marks\ 9083}# #{w2\ 10897}#) - (#{smart-append\ 9125}# - #{s1\ 10903}# - (#{wrap-subst\ 9085}# #{w2\ 10897}#)))) - (#{make-wrap\ 9081}# - (#{smart-append\ 9125}# - #{m1\ 10902}# - (#{wrap-marks\ 9083}# #{w2\ 10897}#)) - (#{smart-append\ 9125}# - #{s1\ 10903}# - (#{wrap-subst\ 9085}# #{w2\ 10897}#))))))) - (#{smart-append\ 9125}# - (lambda (#{m1\ 10904}# #{m2\ 10905}#) - (if (null? #{m2\ 10905}#) - #{m1\ 10904}# - (append #{m1\ 10904}# #{m2\ 10905}#)))) - (#{make-binding-wrap\ 9123}# - (lambda (#{ids\ 10908}# #{labels\ 10909}# #{w\ 10910}#) - (if (null? #{ids\ 10908}#) - #{w\ 10910}# - (#{make-wrap\ 9081}# - (#{wrap-marks\ 9083}# #{w\ 10910}#) - (cons (let ((#{labelvec\ 10915}# - (list->vector #{labels\ 10909}#))) - (let ((#{n\ 10917}# - (vector-length #{labelvec\ 10915}#))) - (let ((#{symnamevec\ 10920}# - (make-vector #{n\ 10917}#)) - (#{marksvec\ 10921}# - (make-vector #{n\ 10917}#))) + (#{join-marks\ 275}# + (lambda (#{m1\ 2039}# #{m2\ 2040}#) + (#{smart-append\ 271}# #{m1\ 2039}# #{m2\ 2040}#))) + (#{join-wraps\ 273}# + (lambda (#{w1\ 2043}# #{w2\ 2044}#) + (let ((#{m1\ 2049}# (#{wrap-marks\ 229}# #{w1\ 2043}#)) + (#{s1\ 2050}# (#{wrap-subst\ 231}# #{w1\ 2043}#))) + (if (null? #{m1\ 2049}#) + (if (null? #{s1\ 2050}#) + #{w2\ 2044}# + (#{make-wrap\ 227}# + (#{wrap-marks\ 229}# #{w2\ 2044}#) + (#{smart-append\ 271}# + #{s1\ 2050}# + (#{wrap-subst\ 231}# #{w2\ 2044}#)))) + (#{make-wrap\ 227}# + (#{smart-append\ 271}# + #{m1\ 2049}# + (#{wrap-marks\ 229}# #{w2\ 2044}#)) + (#{smart-append\ 271}# + #{s1\ 2050}# + (#{wrap-subst\ 231}# #{w2\ 2044}#))))))) + (#{smart-append\ 271}# + (lambda (#{m1\ 2051}# #{m2\ 2052}#) + (if (null? #{m2\ 2052}#) + #{m1\ 2051}# + (append #{m1\ 2051}# #{m2\ 2052}#)))) + (#{make-binding-wrap\ 269}# + (lambda (#{ids\ 2055}# #{labels\ 2056}# #{w\ 2057}#) + (if (null? #{ids\ 2055}#) + #{w\ 2057}# + (#{make-wrap\ 227}# + (#{wrap-marks\ 229}# #{w\ 2057}#) + (cons (let ((#{labelvec\ 2062}# + (list->vector #{labels\ 2056}#))) + (let ((#{n\ 2064}# + (vector-length #{labelvec\ 2062}#))) + (let ((#{symnamevec\ 2067}# + (make-vector #{n\ 2064}#)) + (#{marksvec\ 2068}# + (make-vector #{n\ 2064}#))) (begin - (letrec ((#{f\ 10925}# - (lambda (#{ids\ 10926}# - #{i\ 10927}#) - (if (not (null? #{ids\ 10926}#)) + (letrec ((#{f\ 2072}# + (lambda (#{ids\ 2073}# #{i\ 2074}#) + (if (not (null? #{ids\ 2073}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 9079}# - (car #{ids\ 10926}#) - #{w\ 10910}#)) - (lambda (#{symname\ 10928}# - #{marks\ 10929}#) + (#{id-sym-name&marks\ 225}# + (car #{ids\ 2073}#) + #{w\ 2057}#)) + (lambda (#{symname\ 2075}# + #{marks\ 2076}#) (begin (vector-set! - #{symnamevec\ 10920}# - #{i\ 10927}# - #{symname\ 10928}#) + #{symnamevec\ 2067}# + #{i\ 2074}# + #{symname\ 2075}#) (vector-set! - #{marksvec\ 10921}# - #{i\ 10927}# - #{marks\ 10929}#) - (#{f\ 10925}# - (cdr #{ids\ 10926}#) - (#{fx+\ 8977}# - #{i\ 10927}# + #{marksvec\ 2068}# + #{i\ 2074}# + #{marks\ 2076}#) + (#{f\ 2072}# + (cdr #{ids\ 2073}#) + (#{fx+\ 123}# + #{i\ 2074}# 1))))))))) - (#{f\ 10925}# #{ids\ 10908}# 0)) - (#{make-ribcage\ 9097}# - #{symnamevec\ 10920}# - #{marksvec\ 10921}# - #{labelvec\ 10915}#))))) - (#{wrap-subst\ 9085}# #{w\ 10910}#)))))) - (#{extend-ribcage!\ 9121}# - (lambda (#{ribcage\ 10932}# - #{id\ 10933}# - #{label\ 10934}#) + (#{f\ 2072}# #{ids\ 2055}# 0)) + (#{make-ribcage\ 243}# + #{symnamevec\ 2067}# + #{marksvec\ 2068}# + #{labelvec\ 2062}#))))) + (#{wrap-subst\ 231}# #{w\ 2057}#)))))) + (#{extend-ribcage!\ 267}# + (lambda (#{ribcage\ 2079}# #{id\ 2080}# #{label\ 2081}#) (begin - (#{set-ribcage-symnames!\ 9107}# - #{ribcage\ 10932}# - (cons (#{syntax-object-expression\ 9042}# - #{id\ 10933}#) - (#{ribcage-symnames\ 9101}# #{ribcage\ 10932}#))) - (#{set-ribcage-marks!\ 9109}# - #{ribcage\ 10932}# - (cons (#{wrap-marks\ 9083}# - (#{syntax-object-wrap\ 9044}# #{id\ 10933}#)) - (#{ribcage-marks\ 9103}# #{ribcage\ 10932}#))) - (#{set-ribcage-labels!\ 9111}# - #{ribcage\ 10932}# - (cons #{label\ 10934}# - (#{ribcage-labels\ 9105}# #{ribcage\ 10932}#)))))) - (#{anti-mark\ 9117}# - (lambda (#{w\ 10938}#) - (#{make-wrap\ 9081}# - (cons #f (#{wrap-marks\ 9083}# #{w\ 10938}#)) + (#{set-ribcage-symnames!\ 253}# + #{ribcage\ 2079}# + (cons (#{syntax-object-expression\ 188}# #{id\ 2080}#) + (#{ribcage-symnames\ 247}# #{ribcage\ 2079}#))) + (#{set-ribcage-marks!\ 255}# + #{ribcage\ 2079}# + (cons (#{wrap-marks\ 229}# + (#{syntax-object-wrap\ 190}# #{id\ 2080}#)) + (#{ribcage-marks\ 249}# #{ribcage\ 2079}#))) + (#{set-ribcage-labels!\ 257}# + #{ribcage\ 2079}# + (cons #{label\ 2081}# + (#{ribcage-labels\ 251}# #{ribcage\ 2079}#)))))) + (#{anti-mark\ 263}# + (lambda (#{w\ 2085}#) + (#{make-wrap\ 227}# + (cons #f (#{wrap-marks\ 229}# #{w\ 2085}#)) (cons 'shift - (#{wrap-subst\ 9085}# #{w\ 10938}#))))) - (#{set-ribcage-labels!\ 9111}# - (lambda (#{x\ 10941}# #{update\ 10942}#) - (vector-set! #{x\ 10941}# 3 #{update\ 10942}#))) - (#{set-ribcage-marks!\ 9109}# - (lambda (#{x\ 10945}# #{update\ 10946}#) - (vector-set! #{x\ 10945}# 2 #{update\ 10946}#))) - (#{set-ribcage-symnames!\ 9107}# - (lambda (#{x\ 10949}# #{update\ 10950}#) - (vector-set! #{x\ 10949}# 1 #{update\ 10950}#))) - (#{ribcage-labels\ 9105}# - (lambda (#{x\ 10953}#) - (vector-ref #{x\ 10953}# 3))) - (#{ribcage-marks\ 9103}# - (lambda (#{x\ 10955}#) - (vector-ref #{x\ 10955}# 2))) - (#{ribcage-symnames\ 9101}# - (lambda (#{x\ 10957}#) - (vector-ref #{x\ 10957}# 1))) - (#{ribcage?\ 9099}# - (lambda (#{x\ 10959}#) - (if (vector? #{x\ 10959}#) - (if (= (vector-length #{x\ 10959}#) 4) - (eq? (vector-ref #{x\ 10959}# 0) (quote ribcage)) + (#{wrap-subst\ 231}# #{w\ 2085}#))))) + (#{set-ribcage-labels!\ 257}# + (lambda (#{x\ 2088}# #{update\ 2089}#) + (vector-set! #{x\ 2088}# 3 #{update\ 2089}#))) + (#{set-ribcage-marks!\ 255}# + (lambda (#{x\ 2092}# #{update\ 2093}#) + (vector-set! #{x\ 2092}# 2 #{update\ 2093}#))) + (#{set-ribcage-symnames!\ 253}# + (lambda (#{x\ 2096}# #{update\ 2097}#) + (vector-set! #{x\ 2096}# 1 #{update\ 2097}#))) + (#{ribcage-labels\ 251}# + (lambda (#{x\ 2100}#) (vector-ref #{x\ 2100}# 3))) + (#{ribcage-marks\ 249}# + (lambda (#{x\ 2102}#) (vector-ref #{x\ 2102}# 2))) + (#{ribcage-symnames\ 247}# + (lambda (#{x\ 2104}#) (vector-ref #{x\ 2104}# 1))) + (#{ribcage?\ 245}# + (lambda (#{x\ 2106}#) + (if (vector? #{x\ 2106}#) + (if (= (vector-length #{x\ 2106}#) 4) + (eq? (vector-ref #{x\ 2106}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 9097}# - (lambda (#{symnames\ 10964}# - #{marks\ 10965}# - #{labels\ 10966}#) + (#{make-ribcage\ 243}# + (lambda (#{symnames\ 2111}# + #{marks\ 2112}# + #{labels\ 2113}#) (vector 'ribcage - #{symnames\ 10964}# - #{marks\ 10965}# - #{labels\ 10966}#))) - (#{gen-labels\ 9094}# - (lambda (#{ls\ 10970}#) - (if (null? #{ls\ 10970}#) + #{symnames\ 2111}# + #{marks\ 2112}# + #{labels\ 2113}#))) + (#{gen-labels\ 240}# + (lambda (#{ls\ 2117}#) + (if (null? #{ls\ 2117}#) '() - (cons (#{gen-label\ 9092}#) - (#{gen-labels\ 9094}# (cdr #{ls\ 10970}#)))))) - (#{gen-label\ 9092}# + (cons (#{gen-label\ 238}#) + (#{gen-labels\ 240}# (cdr #{ls\ 2117}#)))))) + (#{gen-label\ 238}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 9085}# cdr) - (#{wrap-marks\ 9083}# car) - (#{make-wrap\ 9081}# cons) - (#{id-sym-name&marks\ 9079}# - (lambda (#{x\ 10972}# #{w\ 10973}#) - (if (#{syntax-object?\ 9040}# #{x\ 10972}#) + (#{wrap-subst\ 231}# cdr) + (#{wrap-marks\ 229}# car) + (#{make-wrap\ 227}# cons) + (#{id-sym-name&marks\ 225}# + (lambda (#{x\ 2119}# #{w\ 2120}#) + (if (#{syntax-object?\ 186}# #{x\ 2119}#) (values - (#{syntax-object-expression\ 9042}# #{x\ 10972}#) - (#{join-marks\ 9129}# - (#{wrap-marks\ 9083}# #{w\ 10973}#) - (#{wrap-marks\ 9083}# - (#{syntax-object-wrap\ 9044}# #{x\ 10972}#)))) + (#{syntax-object-expression\ 188}# #{x\ 2119}#) + (#{join-marks\ 275}# + (#{wrap-marks\ 229}# #{w\ 2120}#) + (#{wrap-marks\ 229}# + (#{syntax-object-wrap\ 190}# #{x\ 2119}#)))) (values - #{x\ 10972}# - (#{wrap-marks\ 9083}# #{w\ 10973}#))))) - (#{id?\ 9076}# - (lambda (#{x\ 10976}#) - (if (symbol? #{x\ 10976}#) + #{x\ 2119}# + (#{wrap-marks\ 229}# #{w\ 2120}#))))) + (#{id?\ 222}# + (lambda (#{x\ 2123}#) + (if (symbol? #{x\ 2123}#) #t - (if (#{syntax-object?\ 9040}# #{x\ 10976}#) + (if (#{syntax-object?\ 186}# #{x\ 2123}#) (symbol? - (#{syntax-object-expression\ 9042}# #{x\ 10976}#)) + (#{syntax-object-expression\ 188}# #{x\ 2123}#)) #f)))) - (#{nonsymbol-id?\ 9074}# - (lambda (#{x\ 10983}#) - (if (#{syntax-object?\ 9040}# #{x\ 10983}#) + (#{nonsymbol-id?\ 220}# + (lambda (#{x\ 2130}#) + (if (#{syntax-object?\ 186}# #{x\ 2130}#) (symbol? - (#{syntax-object-expression\ 9042}# #{x\ 10983}#)) + (#{syntax-object-expression\ 188}# #{x\ 2130}#)) #f))) - (#{global-extend\ 9072}# - (lambda (#{type\ 10987}# #{sym\ 10988}# #{val\ 10989}#) - (#{put-global-definition-hook\ 8990}# - #{sym\ 10988}# - #{type\ 10987}# - #{val\ 10989}#))) - (#{lookup\ 9070}# - (lambda (#{x\ 10993}# #{r\ 10994}# #{mod\ 10995}#) - (let ((#{t\ 11001}# (assq #{x\ 10993}# #{r\ 10994}#))) - (if #{t\ 11001}# - (cdr #{t\ 11001}#) - (if (symbol? #{x\ 10993}#) - (let ((#{t\ 11007}# - (#{get-global-definition-hook\ 8992}# - #{x\ 10993}# - #{mod\ 10995}#))) - (if #{t\ 11007}# #{t\ 11007}# (quote (global)))) + (#{global-extend\ 218}# + (lambda (#{type\ 2134}# #{sym\ 2135}# #{val\ 2136}#) + (#{put-global-definition-hook\ 136}# + #{sym\ 2135}# + #{type\ 2134}# + #{val\ 2136}#))) + (#{lookup\ 216}# + (lambda (#{x\ 2140}# #{r\ 2141}# #{mod\ 2142}#) + (let ((#{t\ 2148}# (assq #{x\ 2140}# #{r\ 2141}#))) + (if #{t\ 2148}# + (cdr #{t\ 2148}#) + (if (symbol? #{x\ 2140}#) + (let ((#{t\ 2154}# + (#{get-global-definition-hook\ 138}# + #{x\ 2140}# + #{mod\ 2142}#))) + (if #{t\ 2154}# #{t\ 2154}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 9068}# - (lambda (#{r\ 11012}#) - (if (null? #{r\ 11012}#) + (#{macros-only-env\ 214}# + (lambda (#{r\ 2159}#) + (if (null? #{r\ 2159}#) '() - (let ((#{a\ 11015}# (car #{r\ 11012}#))) - (if (eq? (cadr #{a\ 11015}#) (quote macro)) - (cons #{a\ 11015}# - (#{macros-only-env\ 9068}# (cdr #{r\ 11012}#))) - (#{macros-only-env\ 9068}# (cdr #{r\ 11012}#))))))) - (#{extend-var-env\ 9066}# - (lambda (#{labels\ 11016}# #{vars\ 11017}# #{r\ 11018}#) - (if (null? #{labels\ 11016}#) - #{r\ 11018}# - (#{extend-var-env\ 9066}# - (cdr #{labels\ 11016}#) - (cdr #{vars\ 11017}#) - (cons (cons (car #{labels\ 11016}#) - (cons (quote lexical) (car #{vars\ 11017}#))) - #{r\ 11018}#))))) - (#{extend-env\ 9064}# - (lambda (#{labels\ 11023}# - #{bindings\ 11024}# - #{r\ 11025}#) - (if (null? #{labels\ 11023}#) - #{r\ 11025}# - (#{extend-env\ 9064}# - (cdr #{labels\ 11023}#) - (cdr #{bindings\ 11024}#) - (cons (cons (car #{labels\ 11023}#) - (car #{bindings\ 11024}#)) - #{r\ 11025}#))))) - (#{binding-value\ 9061}# cdr) - (#{binding-type\ 9059}# car) - (#{source-annotation\ 9055}# - (lambda (#{x\ 11029}#) - (if (#{syntax-object?\ 9040}# #{x\ 11029}#) - (#{source-annotation\ 9055}# - (#{syntax-object-expression\ 9042}# #{x\ 11029}#)) - (if (pair? #{x\ 11029}#) - (let ((#{props\ 11036}# - (source-properties #{x\ 11029}#))) - (if (pair? #{props\ 11036}#) #{props\ 11036}# #f)) + (let ((#{a\ 2162}# (car #{r\ 2159}#))) + (if (eq? (cadr #{a\ 2162}#) (quote macro)) + (cons #{a\ 2162}# + (#{macros-only-env\ 214}# (cdr #{r\ 2159}#))) + (#{macros-only-env\ 214}# (cdr #{r\ 2159}#))))))) + (#{extend-var-env\ 212}# + (lambda (#{labels\ 2163}# #{vars\ 2164}# #{r\ 2165}#) + (if (null? #{labels\ 2163}#) + #{r\ 2165}# + (#{extend-var-env\ 212}# + (cdr #{labels\ 2163}#) + (cdr #{vars\ 2164}#) + (cons (cons (car #{labels\ 2163}#) + (cons (quote lexical) (car #{vars\ 2164}#))) + #{r\ 2165}#))))) + (#{extend-env\ 210}# + (lambda (#{labels\ 2170}# #{bindings\ 2171}# #{r\ 2172}#) + (if (null? #{labels\ 2170}#) + #{r\ 2172}# + (#{extend-env\ 210}# + (cdr #{labels\ 2170}#) + (cdr #{bindings\ 2171}#) + (cons (cons (car #{labels\ 2170}#) + (car #{bindings\ 2171}#)) + #{r\ 2172}#))))) + (#{binding-value\ 207}# cdr) + (#{binding-type\ 205}# car) + (#{source-annotation\ 201}# + (lambda (#{x\ 2176}#) + (if (#{syntax-object?\ 186}# #{x\ 2176}#) + (#{source-annotation\ 201}# + (#{syntax-object-expression\ 188}# #{x\ 2176}#)) + (if (pair? #{x\ 2176}#) + (let ((#{props\ 2183}# (source-properties #{x\ 2176}#))) + (if (pair? #{props\ 2183}#) #{props\ 2183}# #f)) #f)))) - (#{set-syntax-object-module!\ 9052}# - (lambda (#{x\ 11038}# #{update\ 11039}#) - (vector-set! #{x\ 11038}# 3 #{update\ 11039}#))) - (#{set-syntax-object-wrap!\ 9050}# - (lambda (#{x\ 11042}# #{update\ 11043}#) - (vector-set! #{x\ 11042}# 2 #{update\ 11043}#))) - (#{set-syntax-object-expression!\ 9048}# - (lambda (#{x\ 11046}# #{update\ 11047}#) - (vector-set! #{x\ 11046}# 1 #{update\ 11047}#))) - (#{syntax-object-module\ 9046}# - (lambda (#{x\ 11050}#) - (vector-ref #{x\ 11050}# 3))) - (#{syntax-object-wrap\ 9044}# - (lambda (#{x\ 11052}#) - (vector-ref #{x\ 11052}# 2))) - (#{syntax-object-expression\ 9042}# - (lambda (#{x\ 11054}#) - (vector-ref #{x\ 11054}# 1))) - (#{syntax-object?\ 9040}# - (lambda (#{x\ 11056}#) - (if (vector? #{x\ 11056}#) - (if (= (vector-length #{x\ 11056}#) 4) - (eq? (vector-ref #{x\ 11056}# 0) + (#{set-syntax-object-module!\ 198}# + (lambda (#{x\ 2185}# #{update\ 2186}#) + (vector-set! #{x\ 2185}# 3 #{update\ 2186}#))) + (#{set-syntax-object-wrap!\ 196}# + (lambda (#{x\ 2189}# #{update\ 2190}#) + (vector-set! #{x\ 2189}# 2 #{update\ 2190}#))) + (#{set-syntax-object-expression!\ 194}# + (lambda (#{x\ 2193}# #{update\ 2194}#) + (vector-set! #{x\ 2193}# 1 #{update\ 2194}#))) + (#{syntax-object-module\ 192}# + (lambda (#{x\ 2197}#) (vector-ref #{x\ 2197}# 3))) + (#{syntax-object-wrap\ 190}# + (lambda (#{x\ 2199}#) (vector-ref #{x\ 2199}# 2))) + (#{syntax-object-expression\ 188}# + (lambda (#{x\ 2201}#) (vector-ref #{x\ 2201}# 1))) + (#{syntax-object?\ 186}# + (lambda (#{x\ 2203}#) + (if (vector? #{x\ 2203}#) + (if (= (vector-length #{x\ 2203}#) 4) + (eq? (vector-ref #{x\ 2203}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 9038}# - (lambda (#{expression\ 11061}# - #{wrap\ 11062}# - #{module\ 11063}#) + (#{make-syntax-object\ 184}# + (lambda (#{expression\ 2208}# + #{wrap\ 2209}# + #{module\ 2210}#) (vector 'syntax-object - #{expression\ 11061}# - #{wrap\ 11062}# - #{module\ 11063}#))) - (#{build-letrec\ 9034}# - (lambda (#{src\ 11067}# - #{ids\ 11068}# - #{vars\ 11069}# - #{val-exps\ 11070}# - #{body-exp\ 11071}#) - (if (null? #{vars\ 11069}#) - #{body-exp\ 11071}# - (let ((#{atom-key\ 11079}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11079}# (quote (c))) + #{expression\ 2208}# + #{wrap\ 2209}# + #{module\ 2210}#))) + (#{build-letrec\ 180}# + (lambda (#{src\ 2214}# + #{ids\ 2215}# + #{vars\ 2216}# + #{val-exps\ 2217}# + #{body-exp\ 2218}#) + (if (null? #{vars\ 2216}#) + #{body-exp\ 2218}# + (let ((#{atom-key\ 2226}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2226}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 9014}# - #{ids\ 11068}# - #{val-exps\ 11070}#) + #{maybe-name-value!\ 160}# + #{ids\ 2215}# + #{val-exps\ 2217}#) ((@ (language tree-il) make-letrec) - #{src\ 11067}# - #{ids\ 11068}# - #{vars\ 11069}# - #{val-exps\ 11070}# - #{body-exp\ 11071}#)) - (#{decorate-source\ 8994}# + #{src\ 2214}# + #{ids\ 2215}# + #{vars\ 2216}# + #{val-exps\ 2217}# + #{body-exp\ 2218}#)) + (#{decorate-source\ 140}# (list 'letrec - (map list #{vars\ 11069}# #{val-exps\ 11070}#) - #{body-exp\ 11071}#) - #{src\ 11067}#)))))) - (#{build-named-let\ 9032}# - (lambda (#{src\ 11083}# - #{ids\ 11084}# - #{vars\ 11085}# - #{val-exps\ 11086}# - #{body-exp\ 11087}#) - (let ((#{f\ 11097}# (car #{vars\ 11085}#)) - (#{f-name\ 11098}# (car #{ids\ 11084}#)) - (#{vars\ 11099}# (cdr #{vars\ 11085}#)) - (#{ids\ 11100}# (cdr #{ids\ 11084}#))) - (let ((#{atom-key\ 11103}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11103}# (quote (c))) - (let ((#{proc\ 11106}# - (#{build-simple-lambda\ 9018}# - #{src\ 11083}# - #{ids\ 11100}# + (map list #{vars\ 2216}# #{val-exps\ 2217}#) + #{body-exp\ 2218}#) + #{src\ 2214}#)))))) + (#{build-named-let\ 178}# + (lambda (#{src\ 2230}# + #{ids\ 2231}# + #{vars\ 2232}# + #{val-exps\ 2233}# + #{body-exp\ 2234}#) + (let ((#{f\ 2244}# (car #{vars\ 2232}#)) + (#{f-name\ 2245}# (car #{ids\ 2231}#)) + (#{vars\ 2246}# (cdr #{vars\ 2232}#)) + (#{ids\ 2247}# (cdr #{ids\ 2231}#))) + (let ((#{atom-key\ 2250}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2250}# (quote (c))) + (let ((#{proc\ 2253}# + (#{build-simple-lambda\ 164}# + #{src\ 2230}# + #{ids\ 2247}# #f - #{vars\ 11099}# + #{vars\ 2246}# '() - #{body-exp\ 11087}#))) + #{body-exp\ 2234}#))) (begin - (#{maybe-name-value!\ 9014}# - #{f-name\ 11098}# - #{proc\ 11106}#) + (#{maybe-name-value!\ 160}# + #{f-name\ 2245}# + #{proc\ 2253}#) (for-each - #{maybe-name-value!\ 9014}# - #{ids\ 11100}# - #{val-exps\ 11086}#) + #{maybe-name-value!\ 160}# + #{ids\ 2247}# + #{val-exps\ 2233}#) ((@ (language tree-il) make-letrec) - #{src\ 11083}# - (list #{f-name\ 11098}#) - (list #{f\ 11097}#) - (list #{proc\ 11106}#) - (#{build-application\ 8998}# - #{src\ 11083}# - (#{build-lexical-reference\ 9004}# + #{src\ 2230}# + (list #{f-name\ 2245}#) + (list #{f\ 2244}#) + (list #{proc\ 2253}#) + (#{build-application\ 144}# + #{src\ 2230}# + (#{build-lexical-reference\ 150}# 'fun - #{src\ 11083}# - #{f-name\ 11098}# - #{f\ 11097}#) - #{val-exps\ 11086}#)))) - (#{decorate-source\ 8994}# + #{src\ 2230}# + #{f-name\ 2245}# + #{f\ 2244}#) + #{val-exps\ 2233}#)))) + (#{decorate-source\ 140}# (list 'letrec - (list (list #{f\ 11097}# + (list (list #{f\ 2244}# (list 'lambda - #{vars\ 11099}# - #{body-exp\ 11087}#))) - (cons #{f\ 11097}# #{val-exps\ 11086}#)) - #{src\ 11083}#)))))) - (#{build-let\ 9030}# - (lambda (#{src\ 11109}# - #{ids\ 11110}# - #{vars\ 11111}# - #{val-exps\ 11112}# - #{body-exp\ 11113}#) - (if (null? #{vars\ 11111}#) - #{body-exp\ 11113}# - (let ((#{atom-key\ 11121}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11121}# (quote (c))) + #{vars\ 2246}# + #{body-exp\ 2234}#))) + (cons #{f\ 2244}# #{val-exps\ 2233}#)) + #{src\ 2230}#)))))) + (#{build-let\ 176}# + (lambda (#{src\ 2256}# + #{ids\ 2257}# + #{vars\ 2258}# + #{val-exps\ 2259}# + #{body-exp\ 2260}#) + (if (null? #{vars\ 2258}#) + #{body-exp\ 2260}# + (let ((#{atom-key\ 2268}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2268}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 9014}# - #{ids\ 11110}# - #{val-exps\ 11112}#) + #{maybe-name-value!\ 160}# + #{ids\ 2257}# + #{val-exps\ 2259}#) ((@ (language tree-il) make-let) - #{src\ 11109}# - #{ids\ 11110}# - #{vars\ 11111}# - #{val-exps\ 11112}# - #{body-exp\ 11113}#)) - (#{decorate-source\ 8994}# + #{src\ 2256}# + #{ids\ 2257}# + #{vars\ 2258}# + #{val-exps\ 2259}# + #{body-exp\ 2260}#)) + (#{decorate-source\ 140}# (list 'let - (map list #{vars\ 11111}# #{val-exps\ 11112}#) - #{body-exp\ 11113}#) - #{src\ 11109}#)))))) - (#{build-sequence\ 9028}# - (lambda (#{src\ 11125}# #{exps\ 11126}#) - (if (null? (cdr #{exps\ 11126}#)) - (car #{exps\ 11126}#) - (let ((#{atom-key\ 11131}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11131}# (quote (c))) + (map list #{vars\ 2258}# #{val-exps\ 2259}#) + #{body-exp\ 2260}#) + #{src\ 2256}#)))))) + (#{build-sequence\ 174}# + (lambda (#{src\ 2272}# #{exps\ 2273}#) + (if (null? (cdr #{exps\ 2273}#)) + (car #{exps\ 2273}#) + (let ((#{atom-key\ 2278}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2278}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 11125}# - #{exps\ 11126}#) - (#{decorate-source\ 8994}# - (cons (quote begin) #{exps\ 11126}#) - #{src\ 11125}#)))))) - (#{build-data\ 9026}# - (lambda (#{src\ 11135}# #{exp\ 11136}#) - (let ((#{atom-key\ 11141}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11141}# (quote (c))) + #{src\ 2272}# + #{exps\ 2273}#) + (#{decorate-source\ 140}# + (cons (quote begin) #{exps\ 2273}#) + #{src\ 2272}#)))))) + (#{build-data\ 172}# + (lambda (#{src\ 2282}# #{exp\ 2283}#) + (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2288}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 11135}# - #{exp\ 11136}#) - (#{decorate-source\ 8994}# - (if (if (self-evaluating? #{exp\ 11136}#) - (not (vector? #{exp\ 11136}#)) + #{src\ 2282}# + #{exp\ 2283}#) + (#{decorate-source\ 140}# + (if (if (self-evaluating? #{exp\ 2283}#) + (not (vector? #{exp\ 2283}#)) #f) - #{exp\ 11136}# - (list (quote quote) #{exp\ 11136}#)) - #{src\ 11135}#))))) - (#{build-primref\ 9024}# - (lambda (#{src\ 11146}# #{name\ 11147}#) + #{exp\ 2283}# + (list (quote quote) #{exp\ 2283}#)) + #{src\ 2282}#))))) + (#{build-primref\ 170}# + (lambda (#{src\ 2293}# #{name\ 2294}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 11152}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11152}# (quote (c))) + (let ((#{atom-key\ 2299}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2299}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 11146}# - #{name\ 11147}#) - (#{decorate-source\ 8994}# - #{name\ 11147}# - #{src\ 11146}#))) - (let ((#{atom-key\ 11157}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11157}# (quote (c))) + #{src\ 2293}# + #{name\ 2294}#) + (#{decorate-source\ 140}# + #{name\ 2294}# + #{src\ 2293}#))) + (let ((#{atom-key\ 2304}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2304}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 11146}# + #{src\ 2293}# '(guile) - #{name\ 11147}# + #{name\ 2294}# #f) - (#{decorate-source\ 8994}# - (list (quote @@) (quote (guile)) #{name\ 11147}#) - #{src\ 11146}#)))))) - (#{build-lambda-case\ 9022}# - (lambda (#{src\ 11161}# - #{req\ 11162}# - #{opt\ 11163}# - #{rest\ 11164}# - #{kw\ 11165}# - #{inits\ 11166}# - #{vars\ 11167}# - #{body\ 11168}# - #{else-case\ 11169}#) - (let ((#{atom-key\ 11181}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11181}# (quote (c))) + (#{decorate-source\ 140}# + (list (quote @@) (quote (guile)) #{name\ 2294}#) + #{src\ 2293}#)))))) + (#{build-lambda-case\ 168}# + (lambda (#{src\ 2308}# + #{req\ 2309}# + #{opt\ 2310}# + #{rest\ 2311}# + #{kw\ 2312}# + #{inits\ 2313}# + #{vars\ 2314}# + #{body\ 2315}# + #{else-case\ 2316}#) + (let ((#{atom-key\ 2328}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2328}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 11161}# - #{req\ 11162}# - #{opt\ 11163}# - #{rest\ 11164}# - #{kw\ 11165}# - #{inits\ 11166}# - #{vars\ 11167}# - #{body\ 11168}# - #{else-case\ 11169}#) - (let ((#{nreq\ 11186}# (length #{req\ 11162}#))) - (let ((#{nopt\ 11188}# - (if #{opt\ 11163}# (length #{opt\ 11163}#) 0))) - (let ((#{rest-idx\ 11190}# - (if #{rest\ 11164}# - (+ #{nreq\ 11186}# #{nopt\ 11188}#) + #{src\ 2308}# + #{req\ 2309}# + #{opt\ 2310}# + #{rest\ 2311}# + #{kw\ 2312}# + #{inits\ 2313}# + #{vars\ 2314}# + #{body\ 2315}# + #{else-case\ 2316}#) + (let ((#{nreq\ 2333}# (length #{req\ 2309}#))) + (let ((#{nopt\ 2335}# + (if #{opt\ 2310}# (length #{opt\ 2310}#) 0))) + (let ((#{rest-idx\ 2337}# + (if #{rest\ 2311}# + (+ #{nreq\ 2333}# #{nopt\ 2335}#) #f))) - (let ((#{allow-other-keys?\ 11194}# - (if #{kw\ 11165}# (car #{kw\ 11165}#) #f))) - (let ((#{kw-indices\ 11196}# - (map (lambda (#{x\ 11197}#) - (cons (car #{x\ 11197}#) + (let ((#{allow-other-keys?\ 2341}# + (if #{kw\ 2312}# (car #{kw\ 2312}#) #f))) + (let ((#{kw-indices\ 2343}# + (map (lambda (#{x\ 2344}#) + (cons (car #{x\ 2344}#) (list-index - #{vars\ 11167}# - (caddr #{x\ 11197}#)))) - (if #{kw\ 11165}# - (cdr #{kw\ 11165}#) + #{vars\ 2314}# + (caddr #{x\ 2344}#)))) + (if #{kw\ 2312}# + (cdr #{kw\ 2312}#) '())))) - (let ((#{nargs\ 11200}# + (let ((#{nargs\ 2347}# (apply max - (+ #{nreq\ 11186}# - #{nopt\ 11188}# - (if #{rest\ 11164}# 1 0)) + (+ #{nreq\ 2333}# + #{nopt\ 2335}# + (if #{rest\ 2311}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 11196}#))))) + #{kw-indices\ 2343}#))))) (begin - (let ((#{t\ 11203}# - (= #{nargs\ 11200}# - (length #{vars\ 11167}#) - (+ #{nreq\ 11186}# - (length #{inits\ 11166}#) - (if #{rest\ 11164}# 1 0))))) - (if #{t\ 11203}# - #{t\ 11203}# + (let ((#{t\ 2350}# + (= #{nargs\ 2347}# + (length #{vars\ 2314}#) + (+ #{nreq\ 2333}# + (length #{inits\ 2313}#) + (if #{rest\ 2311}# 1 0))))) + (if #{t\ 2350}# + #{t\ 2350}# (error "something went wrong" - #{req\ 11162}# - #{opt\ 11163}# - #{rest\ 11164}# - #{kw\ 11165}# - #{inits\ 11166}# - #{vars\ 11167}# - #{nreq\ 11186}# - #{nopt\ 11188}# - #{kw-indices\ 11196}# - #{nargs\ 11200}#))) - (#{decorate-source\ 8994}# + #{req\ 2309}# + #{opt\ 2310}# + #{rest\ 2311}# + #{kw\ 2312}# + #{inits\ 2313}# + #{vars\ 2314}# + #{nreq\ 2333}# + #{nopt\ 2335}# + #{kw-indices\ 2343}# + #{nargs\ 2347}#))) + (#{decorate-source\ 140}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 11186}# - #{nopt\ 11188}# - #{rest-idx\ 11190}# - #{nargs\ 11200}# - #{allow-other-keys?\ 11194}# - #{kw-indices\ 11196}#)) + (list #{nreq\ 2333}# + #{nopt\ 2335}# + #{rest-idx\ 2337}# + #{nargs\ 2347}# + #{allow-other-keys?\ 2341}# + #{kw-indices\ 2343}#)) (cons (cons 'list - (map (lambda (#{i\ 11206}#) + (map (lambda (#{i\ 2353}#) (list 'lambda - #{vars\ 11167}# - #{i\ 11206}#)) - #{inits\ 11166}#)) + #{vars\ 2314}# + #{i\ 2353}#)) + #{inits\ 2313}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 11167}# - #{body\ 11168}#) + #{vars\ 2314}# + #{body\ 2315}#) '(%%args))))) - (let ((#{t\ 11211}# - #{else-case\ 11169}#)) - (if #{t\ 11211}# - #{t\ 11211}# + (let ((#{t\ 2358}# + #{else-case\ 2316}#)) + (if #{t\ 2358}# + #{t\ 2358}# '((%%args (scm-error 'wrong-number-of-args @@ -7586,1469 +7544,1431 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 11161}#)))))))))))) - (#{build-case-lambda\ 9020}# - (lambda (#{src\ 11214}# #{meta\ 11215}# #{body\ 11216}#) - (let ((#{atom-key\ 11222}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11222}# (quote (c))) + #{src\ 2308}#)))))))))))) + (#{build-case-lambda\ 166}# + (lambda (#{src\ 2361}# #{meta\ 2362}# #{body\ 2363}#) + (let ((#{atom-key\ 2369}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2369}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 11214}# - #{meta\ 11215}# - #{body\ 11216}#) - (#{decorate-source\ 8994}# + #{src\ 2361}# + #{meta\ 2362}# + #{body\ 2363}#) + (#{decorate-source\ 140}# (list 'lambda '%%args - (cons (quote cond) #{body\ 11216}#)) - #{src\ 11214}#))))) - (#{build-simple-lambda\ 9018}# - (lambda (#{src\ 11226}# - #{req\ 11227}# - #{rest\ 11228}# - #{vars\ 11229}# - #{meta\ 11230}# - #{exp\ 11231}#) - (let ((#{atom-key\ 11240}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11240}# (quote (c))) + (cons (quote cond) #{body\ 2363}#)) + #{src\ 2361}#))))) + (#{build-simple-lambda\ 164}# + (lambda (#{src\ 2373}# + #{req\ 2374}# + #{rest\ 2375}# + #{vars\ 2376}# + #{meta\ 2377}# + #{exp\ 2378}#) + (let ((#{atom-key\ 2387}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2387}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 11226}# - #{meta\ 11230}# + #{src\ 2373}# + #{meta\ 2377}# ((@ (language tree-il) make-lambda-case) - #{src\ 11226}# - #{req\ 11227}# + #{src\ 2373}# + #{req\ 2374}# #f - #{rest\ 11228}# + #{rest\ 2375}# #f '() - #{vars\ 11229}# - #{exp\ 11231}# + #{vars\ 2376}# + #{exp\ 2378}# #f)) - (#{decorate-source\ 8994}# + (#{decorate-source\ 140}# (list 'lambda - (if #{rest\ 11228}# - (apply cons* #{vars\ 11229}#) - #{vars\ 11229}#) - #{exp\ 11231}#) - #{src\ 11226}#))))) - (#{build-global-definition\ 9016}# - (lambda (#{source\ 11244}# #{var\ 11245}# #{exp\ 11246}#) - (let ((#{atom-key\ 11252}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11252}# (quote (c))) + (if #{rest\ 2375}# + (apply cons* #{vars\ 2376}#) + #{vars\ 2376}#) + #{exp\ 2378}#) + #{src\ 2373}#))))) + (#{build-global-definition\ 162}# + (lambda (#{source\ 2391}# #{var\ 2392}# #{exp\ 2393}#) + (let ((#{atom-key\ 2399}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2399}# (quote (c))) (begin - (#{maybe-name-value!\ 9014}# - #{var\ 11245}# - #{exp\ 11246}#) + (#{maybe-name-value!\ 160}# + #{var\ 2392}# + #{exp\ 2393}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 11244}# - #{var\ 11245}# - #{exp\ 11246}#)) - (#{decorate-source\ 8994}# - (list 'define - #{var\ 11245}# - #{exp\ 11246}#) - #{source\ 11244}#))))) - (#{maybe-name-value!\ 9014}# - (lambda (#{name\ 11256}# #{val\ 11257}#) - (if ((@ (language tree-il) lambda?) #{val\ 11257}#) - (let ((#{meta\ 11263}# + #{source\ 2391}# + #{var\ 2392}# + #{exp\ 2393}#)) + (#{decorate-source\ 140}# + (list (quote define) #{var\ 2392}# #{exp\ 2393}#) + #{source\ 2391}#))))) + (#{maybe-name-value!\ 160}# + (lambda (#{name\ 2403}# #{val\ 2404}#) + (if ((@ (language tree-il) lambda?) #{val\ 2404}#) + (let ((#{meta\ 2410}# ((@ (language tree-il) lambda-meta) - #{val\ 11257}#))) - (if (not (assq (quote name) #{meta\ 11263}#)) + #{val\ 2404}#))) + (if (not (assq (quote name) #{meta\ 2410}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 11257}# + #{val\ 2404}# (acons 'name - #{name\ 11256}# - #{meta\ 11263}#))))))) - (#{build-global-assignment\ 9012}# - (lambda (#{source\ 11264}# - #{var\ 11265}# - #{exp\ 11266}# - #{mod\ 11267}#) - (#{analyze-variable\ 9008}# - #{mod\ 11267}# - #{var\ 11265}# - (lambda (#{mod\ 11272}# - #{var\ 11273}# - #{public?\ 11274}#) - (let ((#{atom-key\ 11280}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11280}# (quote (c))) + #{name\ 2403}# + #{meta\ 2410}#))))))) + (#{build-global-assignment\ 158}# + (lambda (#{source\ 2411}# + #{var\ 2412}# + #{exp\ 2413}# + #{mod\ 2414}#) + (#{analyze-variable\ 154}# + #{mod\ 2414}# + #{var\ 2412}# + (lambda (#{mod\ 2419}# #{var\ 2420}# #{public?\ 2421}#) + (let ((#{atom-key\ 2427}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2427}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 11264}# - #{mod\ 11272}# - #{var\ 11273}# - #{public?\ 11274}# - #{exp\ 11266}#) - (#{decorate-source\ 8994}# + #{source\ 2411}# + #{mod\ 2419}# + #{var\ 2420}# + #{public?\ 2421}# + #{exp\ 2413}#) + (#{decorate-source\ 140}# (list 'set! - (list (if #{public?\ 11274}# + (list (if #{public?\ 2421}# '@ '@@) - #{mod\ 11272}# - #{var\ 11273}#) - #{exp\ 11266}#) - #{source\ 11264}#)))) - (lambda (#{var\ 11284}#) - (let ((#{atom-key\ 11288}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11288}# (quote (c))) + #{mod\ 2419}# + #{var\ 2420}#) + #{exp\ 2413}#) + #{source\ 2411}#)))) + (lambda (#{var\ 2431}#) + (let ((#{atom-key\ 2435}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2435}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 11264}# - #{var\ 11284}# - #{exp\ 11266}#) - (#{decorate-source\ 8994}# - (list (quote set!) #{var\ 11284}# #{exp\ 11266}#) - #{source\ 11264}#))))))) - (#{build-global-reference\ 9010}# - (lambda (#{source\ 11292}# #{var\ 11293}# #{mod\ 11294}#) - (#{analyze-variable\ 9008}# - #{mod\ 11294}# - #{var\ 11293}# - (lambda (#{mod\ 11298}# - #{var\ 11299}# - #{public?\ 11300}#) - (let ((#{atom-key\ 11306}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11306}# (quote (c))) + #{source\ 2411}# + #{var\ 2431}# + #{exp\ 2413}#) + (#{decorate-source\ 140}# + (list (quote set!) #{var\ 2431}# #{exp\ 2413}#) + #{source\ 2411}#))))))) + (#{build-global-reference\ 156}# + (lambda (#{source\ 2439}# #{var\ 2440}# #{mod\ 2441}#) + (#{analyze-variable\ 154}# + #{mod\ 2441}# + #{var\ 2440}# + (lambda (#{mod\ 2445}# #{var\ 2446}# #{public?\ 2447}#) + (let ((#{atom-key\ 2453}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2453}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 11292}# - #{mod\ 11298}# - #{var\ 11299}# - #{public?\ 11300}#) - (#{decorate-source\ 8994}# - (list (if #{public?\ 11300}# (quote @) (quote @@)) - #{mod\ 11298}# - #{var\ 11299}#) - #{source\ 11292}#)))) - (lambda (#{var\ 11309}#) - (let ((#{atom-key\ 11313}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11313}# (quote (c))) + #{source\ 2439}# + #{mod\ 2445}# + #{var\ 2446}# + #{public?\ 2447}#) + (#{decorate-source\ 140}# + (list (if #{public?\ 2447}# (quote @) (quote @@)) + #{mod\ 2445}# + #{var\ 2446}#) + #{source\ 2439}#)))) + (lambda (#{var\ 2456}#) + (let ((#{atom-key\ 2460}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2460}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 11292}# - #{var\ 11309}#) - (#{decorate-source\ 8994}# - #{var\ 11309}# - #{source\ 11292}#))))))) - (#{analyze-variable\ 9008}# - (lambda (#{mod\ 11316}# - #{var\ 11317}# - #{modref-cont\ 11318}# - #{bare-cont\ 11319}#) - (if (not #{mod\ 11316}#) - (#{bare-cont\ 11319}# #{var\ 11317}#) - (let ((#{kind\ 11326}# (car #{mod\ 11316}#)) - (#{mod\ 11327}# (cdr #{mod\ 11316}#))) - (if (memv #{kind\ 11326}# (quote (public))) - (#{modref-cont\ 11318}# - #{mod\ 11327}# - #{var\ 11317}# + #{source\ 2439}# + #{var\ 2456}#) + (#{decorate-source\ 140}# + #{var\ 2456}# + #{source\ 2439}#))))))) + (#{analyze-variable\ 154}# + (lambda (#{mod\ 2463}# + #{var\ 2464}# + #{modref-cont\ 2465}# + #{bare-cont\ 2466}#) + (if (not #{mod\ 2463}#) + (#{bare-cont\ 2466}# #{var\ 2464}#) + (let ((#{kind\ 2473}# (car #{mod\ 2463}#)) + (#{mod\ 2474}# (cdr #{mod\ 2463}#))) + (if (memv #{kind\ 2473}# (quote (public))) + (#{modref-cont\ 2465}# + #{mod\ 2474}# + #{var\ 2464}# #t) - (if (memv #{kind\ 11326}# (quote (private))) + (if (memv #{kind\ 2473}# (quote (private))) (if (not (equal? - #{mod\ 11327}# + #{mod\ 2474}# (module-name (current-module)))) - (#{modref-cont\ 11318}# - #{mod\ 11327}# - #{var\ 11317}# + (#{modref-cont\ 2465}# + #{mod\ 2474}# + #{var\ 2464}# #f) - (#{bare-cont\ 11319}# #{var\ 11317}#)) - (if (memv #{kind\ 11326}# (quote (bare))) - (#{bare-cont\ 11319}# #{var\ 11317}#) - (if (memv #{kind\ 11326}# (quote (hygiene))) + (#{bare-cont\ 2466}# #{var\ 2464}#)) + (if (memv #{kind\ 2473}# (quote (bare))) + (#{bare-cont\ 2466}# #{var\ 2464}#) + (if (memv #{kind\ 2473}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 11327}# + #{mod\ 2474}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 11327}#) - #{var\ 11317}#) + (resolve-module #{mod\ 2474}#) + #{var\ 2464}#) #f) - (#{modref-cont\ 11318}# - #{mod\ 11327}# - #{var\ 11317}# + (#{modref-cont\ 2465}# + #{mod\ 2474}# + #{var\ 2464}# #f) - (#{bare-cont\ 11319}# #{var\ 11317}#)) + (#{bare-cont\ 2466}# #{var\ 2464}#)) (syntax-violation #f "bad module kind" - #{var\ 11317}# - #{mod\ 11327}#))))))))) - (#{build-lexical-assignment\ 9006}# - (lambda (#{source\ 11335}# - #{name\ 11336}# - #{var\ 11337}# - #{exp\ 11338}#) - (let ((#{atom-key\ 11345}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11345}# (quote (c))) + #{var\ 2464}# + #{mod\ 2474}#))))))))) + (#{build-lexical-assignment\ 152}# + (lambda (#{source\ 2482}# + #{name\ 2483}# + #{var\ 2484}# + #{exp\ 2485}#) + (let ((#{atom-key\ 2492}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2492}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 11335}# - #{name\ 11336}# - #{var\ 11337}# - #{exp\ 11338}#) - (#{decorate-source\ 8994}# - (list (quote set!) #{var\ 11337}# #{exp\ 11338}#) - #{source\ 11335}#))))) - (#{build-lexical-reference\ 9004}# - (lambda (#{type\ 11349}# - #{source\ 11350}# - #{name\ 11351}# - #{var\ 11352}#) - (let ((#{atom-key\ 11359}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11359}# (quote (c))) + #{source\ 2482}# + #{name\ 2483}# + #{var\ 2484}# + #{exp\ 2485}#) + (#{decorate-source\ 140}# + (list (quote set!) #{var\ 2484}# #{exp\ 2485}#) + #{source\ 2482}#))))) + (#{build-lexical-reference\ 150}# + (lambda (#{type\ 2496}# + #{source\ 2497}# + #{name\ 2498}# + #{var\ 2499}#) + (let ((#{atom-key\ 2506}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2506}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 11350}# - #{name\ 11351}# - #{var\ 11352}#) - (#{decorate-source\ 8994}# - #{var\ 11352}# - #{source\ 11350}#))))) - (#{build-dynlet\ 9002}# - (lambda (#{source\ 11362}# - #{fluids\ 11363}# - #{vals\ 11364}# - #{body\ 11365}#) - (let ((#{atom-key\ 11372}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11372}# (quote (c))) + #{source\ 2497}# + #{name\ 2498}# + #{var\ 2499}#) + (#{decorate-source\ 140}# + #{var\ 2499}# + #{source\ 2497}#))))) + (#{build-dynlet\ 148}# + (lambda (#{source\ 2509}# + #{fluids\ 2510}# + #{vals\ 2511}# + #{body\ 2512}#) + (let ((#{atom-key\ 2519}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2519}# (quote (c))) ((@ (language tree-il) make-dynlet) - #{source\ 11362}# - #{fluids\ 11363}# - #{vals\ 11364}# - #{body\ 11365}#) - (#{decorate-source\ 8994}# + #{source\ 2509}# + #{fluids\ 2510}# + #{vals\ 2511}# + #{body\ 2512}#) + (#{decorate-source\ 140}# (list 'with-fluids - (map list #{fluids\ 11363}# #{vals\ 11364}#) - #{body\ 11365}#) - #{source\ 11362}#))))) - (#{build-conditional\ 9000}# - (lambda (#{source\ 11376}# - #{test-exp\ 11377}# - #{then-exp\ 11378}# - #{else-exp\ 11379}#) - (let ((#{atom-key\ 11386}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11386}# (quote (c))) + (map list #{fluids\ 2510}# #{vals\ 2511}#) + #{body\ 2512}#) + #{source\ 2509}#))))) + (#{build-conditional\ 146}# + (lambda (#{source\ 2523}# + #{test-exp\ 2524}# + #{then-exp\ 2525}# + #{else-exp\ 2526}#) + (let ((#{atom-key\ 2533}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2533}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 11376}# - #{test-exp\ 11377}# - #{then-exp\ 11378}# - #{else-exp\ 11379}#) - (#{decorate-source\ 8994}# - (if (equal? #{else-exp\ 11379}# (quote (if #f #f))) + #{source\ 2523}# + #{test-exp\ 2524}# + #{then-exp\ 2525}# + #{else-exp\ 2526}#) + (#{decorate-source\ 140}# + (if (equal? #{else-exp\ 2526}# (quote (if #f #f))) (list 'if - #{test-exp\ 11377}# - #{then-exp\ 11378}#) + #{test-exp\ 2524}# + #{then-exp\ 2525}#) (list 'if - #{test-exp\ 11377}# - #{then-exp\ 11378}# - #{else-exp\ 11379}#)) - #{source\ 11376}#))))) - (#{build-application\ 8998}# - (lambda (#{source\ 11391}# - #{fun-exp\ 11392}# - #{arg-exps\ 11393}#) - (let ((#{atom-key\ 11399}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11399}# (quote (c))) + #{test-exp\ 2524}# + #{then-exp\ 2525}# + #{else-exp\ 2526}#)) + #{source\ 2523}#))))) + (#{build-application\ 144}# + (lambda (#{source\ 2538}# + #{fun-exp\ 2539}# + #{arg-exps\ 2540}#) + (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2546}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 11391}# - #{fun-exp\ 11392}# - #{arg-exps\ 11393}#) - (#{decorate-source\ 8994}# - (cons #{fun-exp\ 11392}# #{arg-exps\ 11393}#) - #{source\ 11391}#))))) - (#{build-void\ 8996}# - (lambda (#{source\ 11403}#) - (let ((#{atom-key\ 11407}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11407}# (quote (c))) + #{source\ 2538}# + #{fun-exp\ 2539}# + #{arg-exps\ 2540}#) + (#{decorate-source\ 140}# + (cons #{fun-exp\ 2539}# #{arg-exps\ 2540}#) + #{source\ 2538}#))))) + (#{build-void\ 142}# + (lambda (#{source\ 2550}#) + (let ((#{atom-key\ 2554}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2554}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 11403}#) - (#{decorate-source\ 8994}# + #{source\ 2550}#) + (#{decorate-source\ 140}# '(if #f #f) - #{source\ 11403}#))))) - (#{decorate-source\ 8994}# - (lambda (#{e\ 11410}# #{s\ 11411}#) + #{source\ 2550}#))))) + (#{decorate-source\ 140}# + (lambda (#{e\ 2557}# #{s\ 2558}#) (begin - (if (if (pair? #{e\ 11410}#) #{s\ 11411}# #f) - (set-source-properties! - #{e\ 11410}# - #{s\ 11411}#)) - #{e\ 11410}#))) - (#{get-global-definition-hook\ 8992}# - (lambda (#{symbol\ 11416}# #{module\ 11417}#) + (if (if (pair? #{e\ 2557}#) #{s\ 2558}# #f) + (set-source-properties! #{e\ 2557}# #{s\ 2558}#)) + #{e\ 2557}#))) + (#{get-global-definition-hook\ 138}# + (lambda (#{symbol\ 2563}# #{module\ 2564}#) (begin - (if (if (not #{module\ 11417}#) (current-module) #f) + (if (if (not #{module\ 2564}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 11416}#)) - (let ((#{v\ 11423}# + #{symbol\ 2563}#)) + (let ((#{v\ 2570}# (module-variable - (if #{module\ 11417}# - (resolve-module (cdr #{module\ 11417}#)) + (if #{module\ 2564}# + (resolve-module (cdr #{module\ 2564}#)) (current-module)) - #{symbol\ 11416}#))) - (if #{v\ 11423}# - (if (variable-bound? #{v\ 11423}#) - (let ((#{val\ 11428}# (variable-ref #{v\ 11423}#))) - (if (macro? #{val\ 11428}#) - (if (macro-type #{val\ 11428}#) - (cons (macro-type #{val\ 11428}#) - (macro-binding #{val\ 11428}#)) + #{symbol\ 2563}#))) + (if #{v\ 2570}# + (if (variable-bound? #{v\ 2570}#) + (let ((#{val\ 2575}# (variable-ref #{v\ 2570}#))) + (if (macro? #{val\ 2575}#) + (if (macro-type #{val\ 2575}#) + (cons (macro-type #{val\ 2575}#) + (macro-binding #{val\ 2575}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 8990}# - (lambda (#{symbol\ 11432}# - #{type\ 11433}# - #{val\ 11434}#) + (#{put-global-definition-hook\ 136}# + (lambda (#{symbol\ 2579}# #{type\ 2580}# #{val\ 2581}#) (module-define! (current-module) - #{symbol\ 11432}# + #{symbol\ 2579}# (make-syntax-transformer - #{symbol\ 11432}# - #{type\ 11433}# - #{val\ 11434}#)))) - (#{local-eval-hook\ 8987}# - (lambda (#{x\ 11438}# #{mod\ 11439}#) + #{symbol\ 2579}# + #{type\ 2580}# + #{val\ 2581}#)))) + (#{local-eval-hook\ 133}# + (lambda (#{x\ 2585}# #{mod\ 2586}#) (primitive-eval - (list #{noexpand\ 8973}# - (let ((#{atom-key\ 11445}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11445}# (quote (c))) + (list #{noexpand\ 119}# + (let ((#{atom-key\ 2592}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2592}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 11438}#) - #{x\ 11438}#)))))) - (#{top-level-eval-hook\ 8985}# - (lambda (#{x\ 11448}# #{mod\ 11449}#) + #{x\ 2585}#) + #{x\ 2585}#)))))) + (#{top-level-eval-hook\ 131}# + (lambda (#{x\ 2595}# #{mod\ 2596}#) (primitive-eval - (list #{noexpand\ 8973}# - (let ((#{atom-key\ 11455}# - (fluid-ref #{*mode*\ 8975}#))) - (if (memv #{atom-key\ 11455}# (quote (c))) + (list #{noexpand\ 119}# + (let ((#{atom-key\ 2602}# (fluid-ref #{*mode*\ 121}#))) + (if (memv #{atom-key\ 2602}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 11448}#) - #{x\ 11448}#)))))) - (#{fx<\ 8983}# <) - (#{fx=\ 8981}# =) - (#{fx-\ 8979}# -) - (#{fx+\ 8977}# +) - (#{*mode*\ 8975}# (make-fluid)) - (#{noexpand\ 8973}# "noexpand")) + #{x\ 2595}#) + #{x\ 2595}#)))))) + (#{fx<\ 129}# <) + (#{fx=\ 127}# =) + (#{fx-\ 125}# -) + (#{fx+\ 123}# +) + (#{*mode*\ 121}# (make-fluid)) + (#{noexpand\ 119}# "noexpand")) (begin - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'core 'fluid-let-syntax - (lambda (#{e\ 11458}# - #{r\ 11459}# - #{w\ 11460}# - #{s\ 11461}# - #{mod\ 11462}#) - ((lambda (#{tmp\ 11468}#) - ((lambda (#{tmp\ 11469}#) - (if (if #{tmp\ 11469}# - (apply (lambda (#{_\ 11475}# - #{var\ 11476}# - #{val\ 11477}# - #{e1\ 11478}# - #{e2\ 11479}#) - (#{valid-bound-ids?\ 9139}# #{var\ 11476}#)) - #{tmp\ 11469}#) + (lambda (#{e\ 2605}# + #{r\ 2606}# + #{w\ 2607}# + #{s\ 2608}# + #{mod\ 2609}#) + ((lambda (#{tmp\ 2615}#) + ((lambda (#{tmp\ 2616}#) + (if (if #{tmp\ 2616}# + (apply (lambda (#{_\ 2622}# + #{var\ 2623}# + #{val\ 2624}# + #{e1\ 2625}# + #{e2\ 2626}#) + (#{valid-bound-ids?\ 285}# #{var\ 2623}#)) + #{tmp\ 2616}#) #f) - (apply (lambda (#{_\ 11486}# - #{var\ 11487}# - #{val\ 11488}# - #{e1\ 11489}# - #{e2\ 11490}#) - (let ((#{names\ 11492}# - (map (lambda (#{x\ 11493}#) - (#{id-var-name\ 9133}# - #{x\ 11493}# - #{w\ 11460}#)) - #{var\ 11487}#))) + (apply (lambda (#{_\ 2633}# + #{var\ 2634}# + #{val\ 2635}# + #{e1\ 2636}# + #{e2\ 2637}#) + (let ((#{names\ 2639}# + (map (lambda (#{x\ 2640}#) + (#{id-var-name\ 279}# + #{x\ 2640}# + #{w\ 2607}#)) + #{var\ 2634}#))) (begin (for-each - (lambda (#{id\ 11496}# #{n\ 11497}#) - (let ((#{atom-key\ 11502}# - (#{binding-type\ 9059}# - (#{lookup\ 9070}# - #{n\ 11497}# - #{r\ 11459}# - #{mod\ 11462}#)))) - (if (memv #{atom-key\ 11502}# + (lambda (#{id\ 2643}# #{n\ 2644}#) + (let ((#{atom-key\ 2649}# + (#{binding-type\ 205}# + (#{lookup\ 216}# + #{n\ 2644}# + #{r\ 2606}# + #{mod\ 2609}#)))) + (if (memv #{atom-key\ 2649}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 11458}# - (#{source-wrap\ 9147}# - #{id\ 11496}# - #{w\ 11460}# - #{s\ 11461}# - #{mod\ 11462}#))))) - #{var\ 11487}# - #{names\ 11492}#) - (#{chi-body\ 9169}# - (cons #{e1\ 11489}# #{e2\ 11490}#) - (#{source-wrap\ 9147}# - #{e\ 11458}# - #{w\ 11460}# - #{s\ 11461}# - #{mod\ 11462}#) - (#{extend-env\ 9064}# - #{names\ 11492}# - (let ((#{trans-r\ 11507}# - (#{macros-only-env\ 9068}# - #{r\ 11459}#))) - (map (lambda (#{x\ 11508}#) + #{e\ 2605}# + (#{source-wrap\ 293}# + #{id\ 2643}# + #{w\ 2607}# + #{s\ 2608}# + #{mod\ 2609}#))))) + #{var\ 2634}# + #{names\ 2639}#) + (#{chi-body\ 315}# + (cons #{e1\ 2636}# #{e2\ 2637}#) + (#{source-wrap\ 293}# + #{e\ 2605}# + #{w\ 2607}# + #{s\ 2608}# + #{mod\ 2609}#) + (#{extend-env\ 210}# + #{names\ 2639}# + (let ((#{trans-r\ 2654}# + (#{macros-only-env\ 214}# + #{r\ 2606}#))) + (map (lambda (#{x\ 2655}#) (cons 'macro - (#{eval-local-transformer\ 9173}# - (#{chi\ 9161}# - #{x\ 11508}# - #{trans-r\ 11507}# - #{w\ 11460}# - #{mod\ 11462}#) - #{mod\ 11462}#))) - #{val\ 11488}#)) - #{r\ 11459}#) - #{w\ 11460}# - #{mod\ 11462}#)))) - #{tmp\ 11469}#) - ((lambda (#{_\ 11513}#) + (#{eval-local-transformer\ 319}# + (#{chi\ 307}# + #{x\ 2655}# + #{trans-r\ 2654}# + #{w\ 2607}# + #{mod\ 2609}#) + #{mod\ 2609}#))) + #{val\ 2635}#)) + #{r\ 2606}#) + #{w\ 2607}# + #{mod\ 2609}#)))) + #{tmp\ 2616}#) + ((lambda (#{_\ 2660}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 9147}# - #{e\ 11458}# - #{w\ 11460}# - #{s\ 11461}# - #{mod\ 11462}#))) - #{tmp\ 11468}#))) + (#{source-wrap\ 293}# + #{e\ 2605}# + #{w\ 2607}# + #{s\ 2608}# + #{mod\ 2609}#))) + #{tmp\ 2615}#))) ($sc-dispatch - #{tmp\ 11468}# + #{tmp\ 2615}# '(any #(each (any any)) any . each-any)))) - #{e\ 11458}#))) - (#{global-extend\ 9072}# + #{e\ 2605}#))) + (#{global-extend\ 218}# 'core 'quote - (lambda (#{e\ 11514}# - #{r\ 11515}# - #{w\ 11516}# - #{s\ 11517}# - #{mod\ 11518}#) - ((lambda (#{tmp\ 11524}#) - ((lambda (#{tmp\ 11525}#) - (if #{tmp\ 11525}# - (apply (lambda (#{_\ 11528}# #{e\ 11529}#) - (#{build-data\ 9026}# - #{s\ 11517}# - (#{strip\ 9187}# #{e\ 11529}# #{w\ 11516}#))) - #{tmp\ 11525}#) - ((lambda (#{_\ 11531}#) + (lambda (#{e\ 2661}# + #{r\ 2662}# + #{w\ 2663}# + #{s\ 2664}# + #{mod\ 2665}#) + ((lambda (#{tmp\ 2671}#) + ((lambda (#{tmp\ 2672}#) + (if #{tmp\ 2672}# + (apply (lambda (#{_\ 2675}# #{e\ 2676}#) + (#{build-data\ 172}# + #{s\ 2664}# + (#{strip\ 333}# #{e\ 2676}# #{w\ 2663}#))) + #{tmp\ 2672}#) + ((lambda (#{_\ 2678}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 9147}# - #{e\ 11514}# - #{w\ 11516}# - #{s\ 11517}# - #{mod\ 11518}#))) - #{tmp\ 11524}#))) - ($sc-dispatch #{tmp\ 11524}# (quote (any any))))) - #{e\ 11514}#))) - (#{global-extend\ 9072}# + (#{source-wrap\ 293}# + #{e\ 2661}# + #{w\ 2663}# + #{s\ 2664}# + #{mod\ 2665}#))) + #{tmp\ 2671}#))) + ($sc-dispatch #{tmp\ 2671}# (quote (any any))))) + #{e\ 2661}#))) + (#{global-extend\ 218}# 'core 'syntax - (letrec ((#{regen\ 11547}# - (lambda (#{x\ 11548}#) - (let ((#{atom-key\ 11552}# (car #{x\ 11548}#))) - (if (memv #{atom-key\ 11552}# (quote (ref))) - (#{build-lexical-reference\ 9004}# + (letrec ((#{regen\ 2694}# + (lambda (#{x\ 2695}#) + (let ((#{atom-key\ 2699}# (car #{x\ 2695}#))) + (if (memv #{atom-key\ 2699}# (quote (ref))) + (#{build-lexical-reference\ 150}# 'value #f - (cadr #{x\ 11548}#) - (cadr #{x\ 11548}#)) - (if (memv #{atom-key\ 11552}# (quote (primitive))) - (#{build-primref\ 9024}# #f (cadr #{x\ 11548}#)) - (if (memv #{atom-key\ 11552}# (quote (quote))) - (#{build-data\ 9026}# #f (cadr #{x\ 11548}#)) - (if (memv #{atom-key\ 11552}# (quote (lambda))) - (if (list? (cadr #{x\ 11548}#)) - (#{build-simple-lambda\ 9018}# + (cadr #{x\ 2695}#) + (cadr #{x\ 2695}#)) + (if (memv #{atom-key\ 2699}# (quote (primitive))) + (#{build-primref\ 170}# #f (cadr #{x\ 2695}#)) + (if (memv #{atom-key\ 2699}# (quote (quote))) + (#{build-data\ 172}# #f (cadr #{x\ 2695}#)) + (if (memv #{atom-key\ 2699}# (quote (lambda))) + (if (list? (cadr #{x\ 2695}#)) + (#{build-simple-lambda\ 164}# #f - (cadr #{x\ 11548}#) + (cadr #{x\ 2695}#) #f - (cadr #{x\ 11548}#) + (cadr #{x\ 2695}#) '() - (#{regen\ 11547}# (caddr #{x\ 11548}#))) - (error "how did we get here" #{x\ 11548}#)) - (#{build-application\ 8998}# + (#{regen\ 2694}# (caddr #{x\ 2695}#))) + (error "how did we get here" #{x\ 2695}#)) + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# - #f - (car #{x\ 11548}#)) - (map #{regen\ 11547}# - (cdr #{x\ 11548}#)))))))))) - (#{gen-vector\ 11545}# - (lambda (#{x\ 11564}#) - (if (eq? (car #{x\ 11564}#) (quote list)) - (cons (quote vector) (cdr #{x\ 11564}#)) - (if (eq? (car #{x\ 11564}#) (quote quote)) + (#{build-primref\ 170}# #f (car #{x\ 2695}#)) + (map #{regen\ 2694}# + (cdr #{x\ 2695}#)))))))))) + (#{gen-vector\ 2692}# + (lambda (#{x\ 2711}#) + (if (eq? (car #{x\ 2711}#) (quote list)) + (cons (quote vector) (cdr #{x\ 2711}#)) + (if (eq? (car #{x\ 2711}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 11564}#))) - (list (quote list->vector) #{x\ 11564}#))))) - (#{gen-append\ 11543}# - (lambda (#{x\ 11574}# #{y\ 11575}#) - (if (equal? #{y\ 11575}# (quote (quote ()))) - #{x\ 11574}# - (list (quote append) #{x\ 11574}# #{y\ 11575}#)))) - (#{gen-cons\ 11541}# - (lambda (#{x\ 11579}# #{y\ 11580}#) - (let ((#{atom-key\ 11585}# (car #{y\ 11580}#))) - (if (memv #{atom-key\ 11585}# (quote (quote))) - (if (eq? (car #{x\ 11579}#) (quote quote)) + (list->vector (cadr #{x\ 2711}#))) + (list (quote list->vector) #{x\ 2711}#))))) + (#{gen-append\ 2690}# + (lambda (#{x\ 2721}# #{y\ 2722}#) + (if (equal? #{y\ 2722}# (quote (quote ()))) + #{x\ 2721}# + (list (quote append) #{x\ 2721}# #{y\ 2722}#)))) + (#{gen-cons\ 2688}# + (lambda (#{x\ 2726}# #{y\ 2727}#) + (let ((#{atom-key\ 2732}# (car #{y\ 2727}#))) + (if (memv #{atom-key\ 2732}# (quote (quote))) + (if (eq? (car #{x\ 2726}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 11579}#) - (cadr #{y\ 11580}#))) - (if (eq? (cadr #{y\ 11580}#) (quote ())) - (list (quote list) #{x\ 11579}#) - (list (quote cons) #{x\ 11579}# #{y\ 11580}#))) - (if (memv #{atom-key\ 11585}# (quote (list))) + (cons (cadr #{x\ 2726}#) (cadr #{y\ 2727}#))) + (if (eq? (cadr #{y\ 2727}#) (quote ())) + (list (quote list) #{x\ 2726}#) + (list (quote cons) #{x\ 2726}# #{y\ 2727}#))) + (if (memv #{atom-key\ 2732}# (quote (list))) (cons 'list - (cons #{x\ 11579}# (cdr #{y\ 11580}#))) - (list (quote cons) #{x\ 11579}# #{y\ 11580}#)))))) - (#{gen-map\ 11539}# - (lambda (#{e\ 11594}# #{map-env\ 11595}#) - (let ((#{formals\ 11600}# (map cdr #{map-env\ 11595}#)) - (#{actuals\ 11601}# - (map (lambda (#{x\ 11602}#) - (list (quote ref) (car #{x\ 11602}#))) - #{map-env\ 11595}#))) - (if (eq? (car #{e\ 11594}#) (quote ref)) - (car #{actuals\ 11601}#) + (cons #{x\ 2726}# (cdr #{y\ 2727}#))) + (list (quote cons) #{x\ 2726}# #{y\ 2727}#)))))) + (#{gen-map\ 2686}# + (lambda (#{e\ 2741}# #{map-env\ 2742}#) + (let ((#{formals\ 2747}# (map cdr #{map-env\ 2742}#)) + (#{actuals\ 2748}# + (map (lambda (#{x\ 2749}#) + (list (quote ref) (car #{x\ 2749}#))) + #{map-env\ 2742}#))) + (if (eq? (car #{e\ 2741}#) (quote ref)) + (car #{actuals\ 2748}#) (if (and-map - (lambda (#{x\ 11609}#) - (if (eq? (car #{x\ 11609}#) (quote ref)) - (memq (cadr #{x\ 11609}#) - #{formals\ 11600}#) + (lambda (#{x\ 2756}#) + (if (eq? (car #{x\ 2756}#) (quote ref)) + (memq (cadr #{x\ 2756}#) #{formals\ 2747}#) #f)) - (cdr #{e\ 11594}#)) + (cdr #{e\ 2741}#)) (cons 'map (cons (list 'primitive - (car #{e\ 11594}#)) - (map (let ((#{r\ 11615}# + (car #{e\ 2741}#)) + (map (let ((#{r\ 2762}# (map cons - #{formals\ 11600}# - #{actuals\ 11601}#))) - (lambda (#{x\ 11616}#) - (cdr (assq (cadr #{x\ 11616}#) - #{r\ 11615}#)))) - (cdr #{e\ 11594}#)))) + #{formals\ 2747}# + #{actuals\ 2748}#))) + (lambda (#{x\ 2763}#) + (cdr (assq (cadr #{x\ 2763}#) + #{r\ 2762}#)))) + (cdr #{e\ 2741}#)))) (cons 'map (cons (list 'lambda - #{formals\ 11600}# - #{e\ 11594}#) - #{actuals\ 11601}#))))))) - (#{gen-mappend\ 11537}# - (lambda (#{e\ 11620}# #{map-env\ 11621}#) + #{formals\ 2747}# + #{e\ 2741}#) + #{actuals\ 2748}#))))))) + (#{gen-mappend\ 2684}# + (lambda (#{e\ 2767}# #{map-env\ 2768}#) (list 'apply '(primitive append) - (#{gen-map\ 11539}# - #{e\ 11620}# - #{map-env\ 11621}#)))) - (#{gen-ref\ 11535}# - (lambda (#{src\ 11625}# - #{var\ 11626}# - #{level\ 11627}# - #{maps\ 11628}#) - (if (#{fx=\ 8981}# #{level\ 11627}# 0) - (values #{var\ 11626}# #{maps\ 11628}#) - (if (null? #{maps\ 11628}#) + (#{gen-map\ 2686}# #{e\ 2767}# #{map-env\ 2768}#)))) + (#{gen-ref\ 2682}# + (lambda (#{src\ 2772}# + #{var\ 2773}# + #{level\ 2774}# + #{maps\ 2775}#) + (if (#{fx=\ 127}# #{level\ 2774}# 0) + (values #{var\ 2773}# #{maps\ 2775}#) + (if (null? #{maps\ 2775}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 11625}#) + #{src\ 2772}#) (call-with-values (lambda () - (#{gen-ref\ 11535}# - #{src\ 11625}# - #{var\ 11626}# - (#{fx-\ 8979}# #{level\ 11627}# 1) - (cdr #{maps\ 11628}#))) - (lambda (#{outer-var\ 11633}# #{outer-maps\ 11634}#) - (let ((#{b\ 11638}# - (assq #{outer-var\ 11633}# - (car #{maps\ 11628}#)))) - (if #{b\ 11638}# - (values (cdr #{b\ 11638}#) #{maps\ 11628}#) - (let ((#{inner-var\ 11640}# - (#{gen-var\ 9189}# (quote tmp)))) + (#{gen-ref\ 2682}# + #{src\ 2772}# + #{var\ 2773}# + (#{fx-\ 125}# #{level\ 2774}# 1) + (cdr #{maps\ 2775}#))) + (lambda (#{outer-var\ 2780}# #{outer-maps\ 2781}#) + (let ((#{b\ 2785}# + (assq #{outer-var\ 2780}# + (car #{maps\ 2775}#)))) + (if #{b\ 2785}# + (values (cdr #{b\ 2785}#) #{maps\ 2775}#) + (let ((#{inner-var\ 2787}# + (#{gen-var\ 335}# (quote tmp)))) (values - #{inner-var\ 11640}# - (cons (cons (cons #{outer-var\ 11633}# - #{inner-var\ 11640}#) - (car #{maps\ 11628}#)) - #{outer-maps\ 11634}#))))))))))) - (#{gen-syntax\ 11533}# - (lambda (#{src\ 11641}# - #{e\ 11642}# - #{r\ 11643}# - #{maps\ 11644}# - #{ellipsis?\ 11645}# - #{mod\ 11646}#) - (if (#{id?\ 9076}# #{e\ 11642}#) - (let ((#{label\ 11654}# - (#{id-var-name\ 9133}# - #{e\ 11642}# + #{inner-var\ 2787}# + (cons (cons (cons #{outer-var\ 2780}# + #{inner-var\ 2787}#) + (car #{maps\ 2775}#)) + #{outer-maps\ 2781}#))))))))))) + (#{gen-syntax\ 2680}# + (lambda (#{src\ 2788}# + #{e\ 2789}# + #{r\ 2790}# + #{maps\ 2791}# + #{ellipsis?\ 2792}# + #{mod\ 2793}#) + (if (#{id?\ 222}# #{e\ 2789}#) + (let ((#{label\ 2801}# + (#{id-var-name\ 279}# + #{e\ 2789}# '(())))) - (let ((#{b\ 11657}# - (#{lookup\ 9070}# - #{label\ 11654}# - #{r\ 11643}# - #{mod\ 11646}#))) - (if (eq? (#{binding-type\ 9059}# #{b\ 11657}#) + (let ((#{b\ 2804}# + (#{lookup\ 216}# + #{label\ 2801}# + #{r\ 2790}# + #{mod\ 2793}#))) + (if (eq? (#{binding-type\ 205}# #{b\ 2804}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 11659}# - (#{binding-value\ 9061}# - #{b\ 11657}#))) - (#{gen-ref\ 11535}# - #{src\ 11641}# - (car #{var.lev\ 11659}#) - (cdr #{var.lev\ 11659}#) - #{maps\ 11644}#))) - (lambda (#{var\ 11660}# #{maps\ 11661}#) + (let ((#{var.lev\ 2806}# + (#{binding-value\ 207}# #{b\ 2804}#))) + (#{gen-ref\ 2682}# + #{src\ 2788}# + (car #{var.lev\ 2806}#) + (cdr #{var.lev\ 2806}#) + #{maps\ 2791}#))) + (lambda (#{var\ 2807}# #{maps\ 2808}#) (values - (list (quote ref) #{var\ 11660}#) - #{maps\ 11661}#))) - (if (#{ellipsis?\ 11645}# #{e\ 11642}#) + (list (quote ref) #{var\ 2807}#) + #{maps\ 2808}#))) + (if (#{ellipsis?\ 2792}# #{e\ 2789}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 11641}#) + #{src\ 2788}#) (values - (list (quote quote) #{e\ 11642}#) - #{maps\ 11644}#))))) - ((lambda (#{tmp\ 11666}#) - ((lambda (#{tmp\ 11667}#) - (if (if #{tmp\ 11667}# - (apply (lambda (#{dots\ 11670}# - #{e\ 11671}#) - (#{ellipsis?\ 11645}# - #{dots\ 11670}#)) - #{tmp\ 11667}#) + (list (quote quote) #{e\ 2789}#) + #{maps\ 2791}#))))) + ((lambda (#{tmp\ 2813}#) + ((lambda (#{tmp\ 2814}#) + (if (if #{tmp\ 2814}# + (apply (lambda (#{dots\ 2817}# #{e\ 2818}#) + (#{ellipsis?\ 2792}# + #{dots\ 2817}#)) + #{tmp\ 2814}#) #f) - (apply (lambda (#{dots\ 11674}# #{e\ 11675}#) - (#{gen-syntax\ 11533}# - #{src\ 11641}# - #{e\ 11675}# - #{r\ 11643}# - #{maps\ 11644}# - (lambda (#{x\ 11676}#) #f) - #{mod\ 11646}#)) - #{tmp\ 11667}#) - ((lambda (#{tmp\ 11678}#) - (if (if #{tmp\ 11678}# - (apply (lambda (#{x\ 11682}# - #{dots\ 11683}# - #{y\ 11684}#) - (#{ellipsis?\ 11645}# - #{dots\ 11683}#)) - #{tmp\ 11678}#) + (apply (lambda (#{dots\ 2821}# #{e\ 2822}#) + (#{gen-syntax\ 2680}# + #{src\ 2788}# + #{e\ 2822}# + #{r\ 2790}# + #{maps\ 2791}# + (lambda (#{x\ 2823}#) #f) + #{mod\ 2793}#)) + #{tmp\ 2814}#) + ((lambda (#{tmp\ 2825}#) + (if (if #{tmp\ 2825}# + (apply (lambda (#{x\ 2829}# + #{dots\ 2830}# + #{y\ 2831}#) + (#{ellipsis?\ 2792}# + #{dots\ 2830}#)) + #{tmp\ 2825}#) #f) - (apply (lambda (#{x\ 11688}# - #{dots\ 11689}# - #{y\ 11690}#) - (letrec ((#{f\ 11694}# - (lambda (#{y\ 11695}# - #{k\ 11696}#) - ((lambda (#{tmp\ 11703}#) - ((lambda (#{tmp\ 11704}#) - (if (if #{tmp\ 11704}# - (apply (lambda (#{dots\ 11707}# - #{y\ 11708}#) - (#{ellipsis?\ 11645}# - #{dots\ 11707}#)) - #{tmp\ 11704}#) + (apply (lambda (#{x\ 2835}# + #{dots\ 2836}# + #{y\ 2837}#) + (letrec ((#{f\ 2841}# + (lambda (#{y\ 2842}# + #{k\ 2843}#) + ((lambda (#{tmp\ 2850}#) + ((lambda (#{tmp\ 2851}#) + (if (if #{tmp\ 2851}# + (apply (lambda (#{dots\ 2854}# + #{y\ 2855}#) + (#{ellipsis?\ 2792}# + #{dots\ 2854}#)) + #{tmp\ 2851}#) #f) - (apply (lambda (#{dots\ 11711}# - #{y\ 11712}#) - (#{f\ 11694}# - #{y\ 11712}# - (lambda (#{maps\ 11713}#) + (apply (lambda (#{dots\ 2858}# + #{y\ 2859}#) + (#{f\ 2841}# + #{y\ 2859}# + (lambda (#{maps\ 2860}#) (call-with-values (lambda () - (#{k\ 11696}# + (#{k\ 2843}# (cons '() - #{maps\ 11713}#))) - (lambda (#{x\ 11715}# - #{maps\ 11716}#) - (if (null? (car #{maps\ 11716}#)) + #{maps\ 2860}#))) + (lambda (#{x\ 2862}# + #{maps\ 2863}#) + (if (null? (car #{maps\ 2863}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 11641}#) + #{src\ 2788}#) (values - (#{gen-mappend\ 11537}# - #{x\ 11715}# - (car #{maps\ 11716}#)) - (cdr #{maps\ 11716}#)))))))) - #{tmp\ 11704}#) - ((lambda (#{_\ 11720}#) + (#{gen-mappend\ 2684}# + #{x\ 2862}# + (car #{maps\ 2863}#)) + (cdr #{maps\ 2863}#)))))))) + #{tmp\ 2851}#) + ((lambda (#{_\ 2867}#) (call-with-values (lambda () - (#{gen-syntax\ 11533}# - #{src\ 11641}# - #{y\ 11695}# - #{r\ 11643}# - #{maps\ 11644}# - #{ellipsis?\ 11645}# - #{mod\ 11646}#)) - (lambda (#{y\ 11721}# - #{maps\ 11722}#) + (#{gen-syntax\ 2680}# + #{src\ 2788}# + #{y\ 2842}# + #{r\ 2790}# + #{maps\ 2791}# + #{ellipsis?\ 2792}# + #{mod\ 2793}#)) + (lambda (#{y\ 2868}# + #{maps\ 2869}#) (call-with-values (lambda () - (#{k\ 11696}# - #{maps\ 11722}#)) - (lambda (#{x\ 11725}# - #{maps\ 11726}#) + (#{k\ 2843}# + #{maps\ 2869}#)) + (lambda (#{x\ 2872}# + #{maps\ 2873}#) (values - (#{gen-append\ 11543}# - #{x\ 11725}# - #{y\ 11721}#) - #{maps\ 11726}#)))))) - #{tmp\ 11703}#))) + (#{gen-append\ 2690}# + #{x\ 2872}# + #{y\ 2868}#) + #{maps\ 2873}#)))))) + #{tmp\ 2850}#))) ($sc-dispatch - #{tmp\ 11703}# + #{tmp\ 2850}# '(any . any)))) - #{y\ 11695}#)))) - (#{f\ 11694}# - #{y\ 11690}# - (lambda (#{maps\ 11697}#) + #{y\ 2842}#)))) + (#{f\ 2841}# + #{y\ 2837}# + (lambda (#{maps\ 2844}#) (call-with-values (lambda () - (#{gen-syntax\ 11533}# - #{src\ 11641}# - #{x\ 11688}# - #{r\ 11643}# + (#{gen-syntax\ 2680}# + #{src\ 2788}# + #{x\ 2835}# + #{r\ 2790}# (cons '() - #{maps\ 11697}#) - #{ellipsis?\ 11645}# - #{mod\ 11646}#)) - (lambda (#{x\ 11699}# - #{maps\ 11700}#) - (if (null? (car #{maps\ 11700}#)) + #{maps\ 2844}#) + #{ellipsis?\ 2792}# + #{mod\ 2793}#)) + (lambda (#{x\ 2846}# + #{maps\ 2847}#) + (if (null? (car #{maps\ 2847}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 11641}#) + #{src\ 2788}#) (values - (#{gen-map\ 11539}# - #{x\ 11699}# - (car #{maps\ 11700}#)) - (cdr #{maps\ 11700}#))))))))) - #{tmp\ 11678}#) - ((lambda (#{tmp\ 11729}#) - (if #{tmp\ 11729}# - (apply (lambda (#{x\ 11732}# - #{y\ 11733}#) + (#{gen-map\ 2686}# + #{x\ 2846}# + (car #{maps\ 2847}#)) + (cdr #{maps\ 2847}#))))))))) + #{tmp\ 2825}#) + ((lambda (#{tmp\ 2876}#) + (if #{tmp\ 2876}# + (apply (lambda (#{x\ 2879}# + #{y\ 2880}#) (call-with-values (lambda () - (#{gen-syntax\ 11533}# - #{src\ 11641}# - #{x\ 11732}# - #{r\ 11643}# - #{maps\ 11644}# - #{ellipsis?\ 11645}# - #{mod\ 11646}#)) - (lambda (#{x\ 11734}# - #{maps\ 11735}#) + (#{gen-syntax\ 2680}# + #{src\ 2788}# + #{x\ 2879}# + #{r\ 2790}# + #{maps\ 2791}# + #{ellipsis?\ 2792}# + #{mod\ 2793}#)) + (lambda (#{x\ 2881}# + #{maps\ 2882}#) (call-with-values (lambda () - (#{gen-syntax\ 11533}# - #{src\ 11641}# - #{y\ 11733}# - #{r\ 11643}# - #{maps\ 11735}# - #{ellipsis?\ 11645}# - #{mod\ 11646}#)) - (lambda (#{y\ 11738}# - #{maps\ 11739}#) + (#{gen-syntax\ 2680}# + #{src\ 2788}# + #{y\ 2880}# + #{r\ 2790}# + #{maps\ 2882}# + #{ellipsis?\ 2792}# + #{mod\ 2793}#)) + (lambda (#{y\ 2885}# + #{maps\ 2886}#) (values - (#{gen-cons\ 11541}# - #{x\ 11734}# - #{y\ 11738}#) - #{maps\ 11739}#)))))) - #{tmp\ 11729}#) - ((lambda (#{tmp\ 11742}#) - (if #{tmp\ 11742}# - (apply (lambda (#{e1\ 11745}# - #{e2\ 11746}#) + (#{gen-cons\ 2688}# + #{x\ 2881}# + #{y\ 2885}#) + #{maps\ 2886}#)))))) + #{tmp\ 2876}#) + ((lambda (#{tmp\ 2889}#) + (if #{tmp\ 2889}# + (apply (lambda (#{e1\ 2892}# + #{e2\ 2893}#) (call-with-values (lambda () - (#{gen-syntax\ 11533}# - #{src\ 11641}# - (cons #{e1\ 11745}# - #{e2\ 11746}#) - #{r\ 11643}# - #{maps\ 11644}# - #{ellipsis?\ 11645}# - #{mod\ 11646}#)) - (lambda (#{e\ 11748}# - #{maps\ 11749}#) + (#{gen-syntax\ 2680}# + #{src\ 2788}# + (cons #{e1\ 2892}# + #{e2\ 2893}#) + #{r\ 2790}# + #{maps\ 2791}# + #{ellipsis?\ 2792}# + #{mod\ 2793}#)) + (lambda (#{e\ 2895}# + #{maps\ 2896}#) (values - (#{gen-vector\ 11545}# - #{e\ 11748}#) - #{maps\ 11749}#)))) - #{tmp\ 11742}#) - ((lambda (#{_\ 11753}#) + (#{gen-vector\ 2692}# + #{e\ 2895}#) + #{maps\ 2896}#)))) + #{tmp\ 2889}#) + ((lambda (#{_\ 2900}#) (values (list 'quote - #{e\ 11642}#) - #{maps\ 11644}#)) - #{tmp\ 11666}#))) + #{e\ 2789}#) + #{maps\ 2791}#)) + #{tmp\ 2813}#))) ($sc-dispatch - #{tmp\ 11666}# + #{tmp\ 2813}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 11666}# + #{tmp\ 2813}# '(any . any))))) ($sc-dispatch - #{tmp\ 11666}# + #{tmp\ 2813}# '(any any . any))))) - ($sc-dispatch #{tmp\ 11666}# (quote (any any))))) - #{e\ 11642}#))))) - (lambda (#{e\ 11755}# - #{r\ 11756}# - #{w\ 11757}# - #{s\ 11758}# - #{mod\ 11759}#) - (let ((#{e\ 11766}# - (#{source-wrap\ 9147}# - #{e\ 11755}# - #{w\ 11757}# - #{s\ 11758}# - #{mod\ 11759}#))) - ((lambda (#{tmp\ 11767}#) - ((lambda (#{tmp\ 11768}#) - (if #{tmp\ 11768}# - (apply (lambda (#{_\ 11771}# #{x\ 11772}#) + ($sc-dispatch #{tmp\ 2813}# (quote (any any))))) + #{e\ 2789}#))))) + (lambda (#{e\ 2902}# + #{r\ 2903}# + #{w\ 2904}# + #{s\ 2905}# + #{mod\ 2906}#) + (let ((#{e\ 2913}# + (#{source-wrap\ 293}# + #{e\ 2902}# + #{w\ 2904}# + #{s\ 2905}# + #{mod\ 2906}#))) + ((lambda (#{tmp\ 2914}#) + ((lambda (#{tmp\ 2915}#) + (if #{tmp\ 2915}# + (apply (lambda (#{_\ 2918}# #{x\ 2919}#) (call-with-values (lambda () - (#{gen-syntax\ 11533}# - #{e\ 11766}# - #{x\ 11772}# - #{r\ 11756}# + (#{gen-syntax\ 2680}# + #{e\ 2913}# + #{x\ 2919}# + #{r\ 2903}# '() - #{ellipsis?\ 9177}# - #{mod\ 11759}#)) - (lambda (#{e\ 11773}# #{maps\ 11774}#) - (#{regen\ 11547}# #{e\ 11773}#)))) - #{tmp\ 11768}#) - ((lambda (#{_\ 11778}#) + #{ellipsis?\ 323}# + #{mod\ 2906}#)) + (lambda (#{e\ 2920}# #{maps\ 2921}#) + (#{regen\ 2694}# #{e\ 2920}#)))) + #{tmp\ 2915}#) + ((lambda (#{_\ 2925}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 11766}#)) - #{tmp\ 11767}#))) - ($sc-dispatch #{tmp\ 11767}# (quote (any any))))) - #{e\ 11766}#))))) - (#{global-extend\ 9072}# + #{e\ 2913}#)) + #{tmp\ 2914}#))) + ($sc-dispatch #{tmp\ 2914}# (quote (any any))))) + #{e\ 2913}#))))) + (#{global-extend\ 218}# 'core 'lambda - (lambda (#{e\ 11779}# - #{r\ 11780}# - #{w\ 11781}# - #{s\ 11782}# - #{mod\ 11783}#) - ((lambda (#{tmp\ 11789}#) - ((lambda (#{tmp\ 11790}#) - (if #{tmp\ 11790}# - (apply (lambda (#{_\ 11795}# - #{args\ 11796}# - #{e1\ 11797}# - #{e2\ 11798}#) + (lambda (#{e\ 2926}# + #{r\ 2927}# + #{w\ 2928}# + #{s\ 2929}# + #{mod\ 2930}#) + ((lambda (#{tmp\ 2936}#) + ((lambda (#{tmp\ 2937}#) + (if #{tmp\ 2937}# + (apply (lambda (#{_\ 2942}# + #{args\ 2943}# + #{e1\ 2944}# + #{e2\ 2945}#) (call-with-values (lambda () - (#{lambda-formals\ 9179}# #{args\ 11796}#)) - (lambda (#{req\ 11799}# - #{opt\ 11800}# - #{rest\ 11801}# - #{kw\ 11802}#) - (letrec ((#{lp\ 11810}# - (lambda (#{body\ 11811}# - #{meta\ 11812}#) - ((lambda (#{tmp\ 11814}#) - ((lambda (#{tmp\ 11815}#) - (if (if #{tmp\ 11815}# - (apply (lambda (#{docstring\ 11819}# - #{e1\ 11820}# - #{e2\ 11821}#) + (#{lambda-formals\ 325}# #{args\ 2943}#)) + (lambda (#{req\ 2946}# + #{opt\ 2947}# + #{rest\ 2948}# + #{kw\ 2949}#) + (letrec ((#{lp\ 2957}# + (lambda (#{body\ 2958}# + #{meta\ 2959}#) + ((lambda (#{tmp\ 2961}#) + ((lambda (#{tmp\ 2962}#) + (if (if #{tmp\ 2962}# + (apply (lambda (#{docstring\ 2966}# + #{e1\ 2967}# + #{e2\ 2968}#) (string? (syntax->datum - #{docstring\ 11819}#))) - #{tmp\ 11815}#) + #{docstring\ 2966}#))) + #{tmp\ 2962}#) #f) - (apply (lambda (#{docstring\ 11825}# - #{e1\ 11826}# - #{e2\ 11827}#) - (#{lp\ 11810}# - (cons #{e1\ 11826}# - #{e2\ 11827}#) + (apply (lambda (#{docstring\ 2972}# + #{e1\ 2973}# + #{e2\ 2974}#) + (#{lp\ 2957}# + (cons #{e1\ 2973}# + #{e2\ 2974}#) (append - #{meta\ 11812}# + #{meta\ 2959}# (list (cons 'documentation (syntax->datum - #{docstring\ 11825}#)))))) - #{tmp\ 11815}#) - ((lambda (#{tmp\ 11830}#) - (if #{tmp\ 11830}# - (apply (lambda (#{k\ 11835}# - #{v\ 11836}# - #{e1\ 11837}# - #{e2\ 11838}#) - (#{lp\ 11810}# - (cons #{e1\ 11837}# - #{e2\ 11838}#) + #{docstring\ 2972}#)))))) + #{tmp\ 2962}#) + ((lambda (#{tmp\ 2977}#) + (if #{tmp\ 2977}# + (apply (lambda (#{k\ 2982}# + #{v\ 2983}# + #{e1\ 2984}# + #{e2\ 2985}#) + (#{lp\ 2957}# + (cons #{e1\ 2984}# + #{e2\ 2985}#) (append - #{meta\ 11812}# + #{meta\ 2959}# (syntax->datum (map cons - #{k\ 11835}# - #{v\ 11836}#))))) - #{tmp\ 11830}#) - ((lambda (#{_\ 11843}#) - (#{chi-simple-lambda\ 9181}# - #{e\ 11779}# - #{r\ 11780}# - #{w\ 11781}# - #{s\ 11782}# - #{mod\ 11783}# - #{req\ 11799}# - #{rest\ 11801}# - #{meta\ 11812}# - #{body\ 11811}#)) - #{tmp\ 11814}#))) + #{k\ 2982}# + #{v\ 2983}#))))) + #{tmp\ 2977}#) + ((lambda (#{_\ 2990}#) + (#{chi-simple-lambda\ 327}# + #{e\ 2926}# + #{r\ 2927}# + #{w\ 2928}# + #{s\ 2929}# + #{mod\ 2930}# + #{req\ 2946}# + #{rest\ 2948}# + #{meta\ 2959}# + #{body\ 2958}#)) + #{tmp\ 2961}#))) ($sc-dispatch - #{tmp\ 11814}# + #{tmp\ 2961}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 11814}# + #{tmp\ 2961}# '(any any . each-any)))) - #{body\ 11811}#)))) - (#{lp\ 11810}# - (cons #{e1\ 11797}# #{e2\ 11798}#) + #{body\ 2958}#)))) + (#{lp\ 2957}# + (cons #{e1\ 2944}# #{e2\ 2945}#) '()))))) - #{tmp\ 11790}#) - ((lambda (#{_\ 11845}#) + #{tmp\ 2937}#) + ((lambda (#{_\ 2992}#) (syntax-violation 'lambda "bad lambda" - #{e\ 11779}#)) - #{tmp\ 11789}#))) + #{e\ 2926}#)) + #{tmp\ 2936}#))) ($sc-dispatch - #{tmp\ 11789}# + #{tmp\ 2936}# '(any any any . each-any)))) - #{e\ 11779}#))) - (#{global-extend\ 9072}# + #{e\ 2926}#))) + (#{global-extend\ 218}# 'core 'lambda* - (lambda (#{e\ 11846}# - #{r\ 11847}# - #{w\ 11848}# - #{s\ 11849}# - #{mod\ 11850}#) - ((lambda (#{tmp\ 11856}#) - ((lambda (#{tmp\ 11857}#) - (if #{tmp\ 11857}# - (apply (lambda (#{_\ 11862}# - #{args\ 11863}# - #{e1\ 11864}# - #{e2\ 11865}#) + (lambda (#{e\ 2993}# + #{r\ 2994}# + #{w\ 2995}# + #{s\ 2996}# + #{mod\ 2997}#) + ((lambda (#{tmp\ 3003}#) + ((lambda (#{tmp\ 3004}#) + (if #{tmp\ 3004}# + (apply (lambda (#{_\ 3009}# + #{args\ 3010}# + #{e1\ 3011}# + #{e2\ 3012}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9185}# - #{e\ 11846}# - #{r\ 11847}# - #{w\ 11848}# - #{s\ 11849}# - #{mod\ 11850}# - #{lambda*-formals\ 9183}# - (list (cons #{args\ 11863}# - (cons #{e1\ 11864}# - #{e2\ 11865}#))))) - (lambda (#{meta\ 11867}# #{lcase\ 11868}#) - (#{build-case-lambda\ 9020}# - #{s\ 11849}# - #{meta\ 11867}# - #{lcase\ 11868}#)))) - #{tmp\ 11857}#) - ((lambda (#{_\ 11872}#) + (#{chi-lambda-case\ 331}# + #{e\ 2993}# + #{r\ 2994}# + #{w\ 2995}# + #{s\ 2996}# + #{mod\ 2997}# + #{lambda*-formals\ 329}# + (list (cons #{args\ 3010}# + (cons #{e1\ 3011}# + #{e2\ 3012}#))))) + (lambda (#{meta\ 3014}# #{lcase\ 3015}#) + (#{build-case-lambda\ 166}# + #{s\ 2996}# + #{meta\ 3014}# + #{lcase\ 3015}#)))) + #{tmp\ 3004}#) + ((lambda (#{_\ 3019}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 11846}#)) - #{tmp\ 11856}#))) + #{e\ 2993}#)) + #{tmp\ 3003}#))) ($sc-dispatch - #{tmp\ 11856}# + #{tmp\ 3003}# '(any any any . each-any)))) - #{e\ 11846}#))) - (#{global-extend\ 9072}# + #{e\ 2993}#))) + (#{global-extend\ 218}# 'core 'case-lambda - (lambda (#{e\ 11873}# - #{r\ 11874}# - #{w\ 11875}# - #{s\ 11876}# - #{mod\ 11877}#) - ((lambda (#{tmp\ 11883}#) - ((lambda (#{tmp\ 11884}#) - (if #{tmp\ 11884}# - (apply (lambda (#{_\ 11892}# - #{args\ 11893}# - #{e1\ 11894}# - #{e2\ 11895}# - #{args*\ 11896}# - #{e1*\ 11897}# - #{e2*\ 11898}#) + (lambda (#{e\ 3020}# + #{r\ 3021}# + #{w\ 3022}# + #{s\ 3023}# + #{mod\ 3024}#) + ((lambda (#{tmp\ 3030}#) + ((lambda (#{tmp\ 3031}#) + (if #{tmp\ 3031}# + (apply (lambda (#{_\ 3039}# + #{args\ 3040}# + #{e1\ 3041}# + #{e2\ 3042}# + #{args*\ 3043}# + #{e1*\ 3044}# + #{e2*\ 3045}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9185}# - #{e\ 11873}# - #{r\ 11874}# - #{w\ 11875}# - #{s\ 11876}# - #{mod\ 11877}# - #{lambda-formals\ 9179}# - (cons (cons #{args\ 11893}# - (cons #{e1\ 11894}# - #{e2\ 11895}#)) - (map (lambda (#{tmp\ 11902}# - #{tmp\ 11901}# - #{tmp\ 11900}#) - (cons #{tmp\ 11900}# - (cons #{tmp\ 11901}# - #{tmp\ 11902}#))) - #{e2*\ 11898}# - #{e1*\ 11897}# - #{args*\ 11896}#)))) - (lambda (#{meta\ 11904}# #{lcase\ 11905}#) - (#{build-case-lambda\ 9020}# - #{s\ 11876}# - #{meta\ 11904}# - #{lcase\ 11905}#)))) - #{tmp\ 11884}#) - ((lambda (#{_\ 11909}#) + (#{chi-lambda-case\ 331}# + #{e\ 3020}# + #{r\ 3021}# + #{w\ 3022}# + #{s\ 3023}# + #{mod\ 3024}# + #{lambda-formals\ 325}# + (cons (cons #{args\ 3040}# + (cons #{e1\ 3041}# #{e2\ 3042}#)) + (map (lambda (#{tmp\ 3049}# + #{tmp\ 3048}# + #{tmp\ 3047}#) + (cons #{tmp\ 3047}# + (cons #{tmp\ 3048}# + #{tmp\ 3049}#))) + #{e2*\ 3045}# + #{e1*\ 3044}# + #{args*\ 3043}#)))) + (lambda (#{meta\ 3051}# #{lcase\ 3052}#) + (#{build-case-lambda\ 166}# + #{s\ 3023}# + #{meta\ 3051}# + #{lcase\ 3052}#)))) + #{tmp\ 3031}#) + ((lambda (#{_\ 3056}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 11873}#)) - #{tmp\ 11883}#))) + #{e\ 3020}#)) + #{tmp\ 3030}#))) ($sc-dispatch - #{tmp\ 11883}# + #{tmp\ 3030}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 11873}#))) - (#{global-extend\ 9072}# + #{e\ 3020}#))) + (#{global-extend\ 218}# 'core 'case-lambda* - (lambda (#{e\ 11910}# - #{r\ 11911}# - #{w\ 11912}# - #{s\ 11913}# - #{mod\ 11914}#) - ((lambda (#{tmp\ 11920}#) - ((lambda (#{tmp\ 11921}#) - (if #{tmp\ 11921}# - (apply (lambda (#{_\ 11929}# - #{args\ 11930}# - #{e1\ 11931}# - #{e2\ 11932}# - #{args*\ 11933}# - #{e1*\ 11934}# - #{e2*\ 11935}#) + (lambda (#{e\ 3057}# + #{r\ 3058}# + #{w\ 3059}# + #{s\ 3060}# + #{mod\ 3061}#) + ((lambda (#{tmp\ 3067}#) + ((lambda (#{tmp\ 3068}#) + (if #{tmp\ 3068}# + (apply (lambda (#{_\ 3076}# + #{args\ 3077}# + #{e1\ 3078}# + #{e2\ 3079}# + #{args*\ 3080}# + #{e1*\ 3081}# + #{e2*\ 3082}#) (call-with-values (lambda () - (#{chi-lambda-case\ 9185}# - #{e\ 11910}# - #{r\ 11911}# - #{w\ 11912}# - #{s\ 11913}# - #{mod\ 11914}# - #{lambda*-formals\ 9183}# - (cons (cons #{args\ 11930}# - (cons #{e1\ 11931}# - #{e2\ 11932}#)) - (map (lambda (#{tmp\ 11939}# - #{tmp\ 11938}# - #{tmp\ 11937}#) - (cons #{tmp\ 11937}# - (cons #{tmp\ 11938}# - #{tmp\ 11939}#))) - #{e2*\ 11935}# - #{e1*\ 11934}# - #{args*\ 11933}#)))) - (lambda (#{meta\ 11941}# #{lcase\ 11942}#) - (#{build-case-lambda\ 9020}# - #{s\ 11913}# - #{meta\ 11941}# - #{lcase\ 11942}#)))) - #{tmp\ 11921}#) - ((lambda (#{_\ 11946}#) + (#{chi-lambda-case\ 331}# + #{e\ 3057}# + #{r\ 3058}# + #{w\ 3059}# + #{s\ 3060}# + #{mod\ 3061}# + #{lambda*-formals\ 329}# + (cons (cons #{args\ 3077}# + (cons #{e1\ 3078}# #{e2\ 3079}#)) + (map (lambda (#{tmp\ 3086}# + #{tmp\ 3085}# + #{tmp\ 3084}#) + (cons #{tmp\ 3084}# + (cons #{tmp\ 3085}# + #{tmp\ 3086}#))) + #{e2*\ 3082}# + #{e1*\ 3081}# + #{args*\ 3080}#)))) + (lambda (#{meta\ 3088}# #{lcase\ 3089}#) + (#{build-case-lambda\ 166}# + #{s\ 3060}# + #{meta\ 3088}# + #{lcase\ 3089}#)))) + #{tmp\ 3068}#) + ((lambda (#{_\ 3093}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 11910}#)) - #{tmp\ 11920}#))) + #{e\ 3057}#)) + #{tmp\ 3067}#))) ($sc-dispatch - #{tmp\ 11920}# + #{tmp\ 3067}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 11910}#))) - (#{global-extend\ 9072}# + #{e\ 3057}#))) + (#{global-extend\ 218}# 'core 'let - (letrec ((#{chi-let\ 11948}# - (lambda (#{e\ 11949}# - #{r\ 11950}# - #{w\ 11951}# - #{s\ 11952}# - #{mod\ 11953}# - #{constructor\ 11954}# - #{ids\ 11955}# - #{vals\ 11956}# - #{exps\ 11957}#) - (if (not (#{valid-bound-ids?\ 9139}# #{ids\ 11955}#)) + (letrec ((#{chi-let\ 3095}# + (lambda (#{e\ 3096}# + #{r\ 3097}# + #{w\ 3098}# + #{s\ 3099}# + #{mod\ 3100}# + #{constructor\ 3101}# + #{ids\ 3102}# + #{vals\ 3103}# + #{exps\ 3104}#) + (if (not (#{valid-bound-ids?\ 285}# #{ids\ 3102}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 11949}#) - (let ((#{labels\ 11969}# - (#{gen-labels\ 9094}# #{ids\ 11955}#)) - (#{new-vars\ 11970}# - (map #{gen-var\ 9189}# #{ids\ 11955}#))) - (let ((#{nw\ 11973}# - (#{make-binding-wrap\ 9123}# - #{ids\ 11955}# - #{labels\ 11969}# - #{w\ 11951}#)) - (#{nr\ 11974}# - (#{extend-var-env\ 9066}# - #{labels\ 11969}# - #{new-vars\ 11970}# - #{r\ 11950}#))) - (#{constructor\ 11954}# - #{s\ 11952}# - (map syntax->datum #{ids\ 11955}#) - #{new-vars\ 11970}# - (map (lambda (#{x\ 11975}#) - (#{chi\ 9161}# - #{x\ 11975}# - #{r\ 11950}# - #{w\ 11951}# - #{mod\ 11953}#)) - #{vals\ 11956}#) - (#{chi-body\ 9169}# - #{exps\ 11957}# - (#{source-wrap\ 9147}# - #{e\ 11949}# - #{nw\ 11973}# - #{s\ 11952}# - #{mod\ 11953}#) - #{nr\ 11974}# - #{nw\ 11973}# - #{mod\ 11953}#)))))))) - (lambda (#{e\ 11977}# - #{r\ 11978}# - #{w\ 11979}# - #{s\ 11980}# - #{mod\ 11981}#) - ((lambda (#{tmp\ 11987}#) - ((lambda (#{tmp\ 11988}#) - (if (if #{tmp\ 11988}# - (apply (lambda (#{_\ 11994}# - #{id\ 11995}# - #{val\ 11996}# - #{e1\ 11997}# - #{e2\ 11998}#) - (and-map #{id?\ 9076}# #{id\ 11995}#)) - #{tmp\ 11988}#) + #{e\ 3096}#) + (let ((#{labels\ 3116}# + (#{gen-labels\ 240}# #{ids\ 3102}#)) + (#{new-vars\ 3117}# + (map #{gen-var\ 335}# #{ids\ 3102}#))) + (let ((#{nw\ 3120}# + (#{make-binding-wrap\ 269}# + #{ids\ 3102}# + #{labels\ 3116}# + #{w\ 3098}#)) + (#{nr\ 3121}# + (#{extend-var-env\ 212}# + #{labels\ 3116}# + #{new-vars\ 3117}# + #{r\ 3097}#))) + (#{constructor\ 3101}# + #{s\ 3099}# + (map syntax->datum #{ids\ 3102}#) + #{new-vars\ 3117}# + (map (lambda (#{x\ 3122}#) + (#{chi\ 307}# + #{x\ 3122}# + #{r\ 3097}# + #{w\ 3098}# + #{mod\ 3100}#)) + #{vals\ 3103}#) + (#{chi-body\ 315}# + #{exps\ 3104}# + (#{source-wrap\ 293}# + #{e\ 3096}# + #{nw\ 3120}# + #{s\ 3099}# + #{mod\ 3100}#) + #{nr\ 3121}# + #{nw\ 3120}# + #{mod\ 3100}#)))))))) + (lambda (#{e\ 3124}# + #{r\ 3125}# + #{w\ 3126}# + #{s\ 3127}# + #{mod\ 3128}#) + ((lambda (#{tmp\ 3134}#) + ((lambda (#{tmp\ 3135}#) + (if (if #{tmp\ 3135}# + (apply (lambda (#{_\ 3141}# + #{id\ 3142}# + #{val\ 3143}# + #{e1\ 3144}# + #{e2\ 3145}#) + (and-map #{id?\ 222}# #{id\ 3142}#)) + #{tmp\ 3135}#) #f) - (apply (lambda (#{_\ 12005}# - #{id\ 12006}# - #{val\ 12007}# - #{e1\ 12008}# - #{e2\ 12009}#) - (#{chi-let\ 11948}# - #{e\ 11977}# - #{r\ 11978}# - #{w\ 11979}# - #{s\ 11980}# - #{mod\ 11981}# - #{build-let\ 9030}# - #{id\ 12006}# - #{val\ 12007}# - (cons #{e1\ 12008}# #{e2\ 12009}#))) - #{tmp\ 11988}#) - ((lambda (#{tmp\ 12013}#) - (if (if #{tmp\ 12013}# - (apply (lambda (#{_\ 12020}# - #{f\ 12021}# - #{id\ 12022}# - #{val\ 12023}# - #{e1\ 12024}# - #{e2\ 12025}#) - (if (#{id?\ 9076}# #{f\ 12021}#) - (and-map #{id?\ 9076}# #{id\ 12022}#) + (apply (lambda (#{_\ 3152}# + #{id\ 3153}# + #{val\ 3154}# + #{e1\ 3155}# + #{e2\ 3156}#) + (#{chi-let\ 3095}# + #{e\ 3124}# + #{r\ 3125}# + #{w\ 3126}# + #{s\ 3127}# + #{mod\ 3128}# + #{build-let\ 176}# + #{id\ 3153}# + #{val\ 3154}# + (cons #{e1\ 3155}# #{e2\ 3156}#))) + #{tmp\ 3135}#) + ((lambda (#{tmp\ 3160}#) + (if (if #{tmp\ 3160}# + (apply (lambda (#{_\ 3167}# + #{f\ 3168}# + #{id\ 3169}# + #{val\ 3170}# + #{e1\ 3171}# + #{e2\ 3172}#) + (if (#{id?\ 222}# #{f\ 3168}#) + (and-map #{id?\ 222}# #{id\ 3169}#) #f)) - #{tmp\ 12013}#) + #{tmp\ 3160}#) #f) - (apply (lambda (#{_\ 12035}# - #{f\ 12036}# - #{id\ 12037}# - #{val\ 12038}# - #{e1\ 12039}# - #{e2\ 12040}#) - (#{chi-let\ 11948}# - #{e\ 11977}# - #{r\ 11978}# - #{w\ 11979}# - #{s\ 11980}# - #{mod\ 11981}# - #{build-named-let\ 9032}# - (cons #{f\ 12036}# #{id\ 12037}#) - #{val\ 12038}# - (cons #{e1\ 12039}# #{e2\ 12040}#))) - #{tmp\ 12013}#) - ((lambda (#{_\ 12045}#) + (apply (lambda (#{_\ 3182}# + #{f\ 3183}# + #{id\ 3184}# + #{val\ 3185}# + #{e1\ 3186}# + #{e2\ 3187}#) + (#{chi-let\ 3095}# + #{e\ 3124}# + #{r\ 3125}# + #{w\ 3126}# + #{s\ 3127}# + #{mod\ 3128}# + #{build-named-let\ 178}# + (cons #{f\ 3183}# #{id\ 3184}#) + #{val\ 3185}# + (cons #{e1\ 3186}# #{e2\ 3187}#))) + #{tmp\ 3160}#) + ((lambda (#{_\ 3192}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 9147}# - #{e\ 11977}# - #{w\ 11979}# - #{s\ 11980}# - #{mod\ 11981}#))) - #{tmp\ 11987}#))) + (#{source-wrap\ 293}# + #{e\ 3124}# + #{w\ 3126}# + #{s\ 3127}# + #{mod\ 3128}#))) + #{tmp\ 3134}#))) ($sc-dispatch - #{tmp\ 11987}# + #{tmp\ 3134}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 11987}# + #{tmp\ 3134}# '(any #(each (any any)) any . each-any)))) - #{e\ 11977}#)))) - (#{global-extend\ 9072}# + #{e\ 3124}#)))) + (#{global-extend\ 218}# 'core 'letrec - (lambda (#{e\ 12046}# - #{r\ 12047}# - #{w\ 12048}# - #{s\ 12049}# - #{mod\ 12050}#) - ((lambda (#{tmp\ 12056}#) - ((lambda (#{tmp\ 12057}#) - (if (if #{tmp\ 12057}# - (apply (lambda (#{_\ 12063}# - #{id\ 12064}# - #{val\ 12065}# - #{e1\ 12066}# - #{e2\ 12067}#) - (and-map #{id?\ 9076}# #{id\ 12064}#)) - #{tmp\ 12057}#) + (lambda (#{e\ 3193}# + #{r\ 3194}# + #{w\ 3195}# + #{s\ 3196}# + #{mod\ 3197}#) + ((lambda (#{tmp\ 3203}#) + ((lambda (#{tmp\ 3204}#) + (if (if #{tmp\ 3204}# + (apply (lambda (#{_\ 3210}# + #{id\ 3211}# + #{val\ 3212}# + #{e1\ 3213}# + #{e2\ 3214}#) + (and-map #{id?\ 222}# #{id\ 3211}#)) + #{tmp\ 3204}#) #f) - (apply (lambda (#{_\ 12074}# - #{id\ 12075}# - #{val\ 12076}# - #{e1\ 12077}# - #{e2\ 12078}#) - (let ((#{ids\ 12080}# #{id\ 12075}#)) - (if (not (#{valid-bound-ids?\ 9139}# - #{ids\ 12080}#)) + (apply (lambda (#{_\ 3221}# + #{id\ 3222}# + #{val\ 3223}# + #{e1\ 3224}# + #{e2\ 3225}#) + (let ((#{ids\ 3227}# #{id\ 3222}#)) + (if (not (#{valid-bound-ids?\ 285}# + #{ids\ 3227}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 12046}#) - (let ((#{labels\ 12084}# - (#{gen-labels\ 9094}# #{ids\ 12080}#)) - (#{new-vars\ 12085}# - (map #{gen-var\ 9189}# #{ids\ 12080}#))) - (let ((#{w\ 12088}# - (#{make-binding-wrap\ 9123}# - #{ids\ 12080}# - #{labels\ 12084}# - #{w\ 12048}#)) - (#{r\ 12089}# - (#{extend-var-env\ 9066}# - #{labels\ 12084}# - #{new-vars\ 12085}# - #{r\ 12047}#))) - (#{build-letrec\ 9034}# - #{s\ 12049}# - (map syntax->datum #{ids\ 12080}#) - #{new-vars\ 12085}# - (map (lambda (#{x\ 12090}#) - (#{chi\ 9161}# - #{x\ 12090}# - #{r\ 12089}# - #{w\ 12088}# - #{mod\ 12050}#)) - #{val\ 12076}#) - (#{chi-body\ 9169}# - (cons #{e1\ 12077}# #{e2\ 12078}#) - (#{source-wrap\ 9147}# - #{e\ 12046}# - #{w\ 12088}# - #{s\ 12049}# - #{mod\ 12050}#) - #{r\ 12089}# - #{w\ 12088}# - #{mod\ 12050}#))))))) - #{tmp\ 12057}#) - ((lambda (#{_\ 12095}#) + #{e\ 3193}#) + (let ((#{labels\ 3231}# + (#{gen-labels\ 240}# #{ids\ 3227}#)) + (#{new-vars\ 3232}# + (map #{gen-var\ 335}# #{ids\ 3227}#))) + (let ((#{w\ 3235}# + (#{make-binding-wrap\ 269}# + #{ids\ 3227}# + #{labels\ 3231}# + #{w\ 3195}#)) + (#{r\ 3236}# + (#{extend-var-env\ 212}# + #{labels\ 3231}# + #{new-vars\ 3232}# + #{r\ 3194}#))) + (#{build-letrec\ 180}# + #{s\ 3196}# + (map syntax->datum #{ids\ 3227}#) + #{new-vars\ 3232}# + (map (lambda (#{x\ 3237}#) + (#{chi\ 307}# + #{x\ 3237}# + #{r\ 3236}# + #{w\ 3235}# + #{mod\ 3197}#)) + #{val\ 3223}#) + (#{chi-body\ 315}# + (cons #{e1\ 3224}# #{e2\ 3225}#) + (#{source-wrap\ 293}# + #{e\ 3193}# + #{w\ 3235}# + #{s\ 3196}# + #{mod\ 3197}#) + #{r\ 3236}# + #{w\ 3235}# + #{mod\ 3197}#))))))) + #{tmp\ 3204}#) + ((lambda (#{_\ 3242}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 9147}# - #{e\ 12046}# - #{w\ 12048}# - #{s\ 12049}# - #{mod\ 12050}#))) - #{tmp\ 12056}#))) + (#{source-wrap\ 293}# + #{e\ 3193}# + #{w\ 3195}# + #{s\ 3196}# + #{mod\ 3197}#))) + #{tmp\ 3203}#))) ($sc-dispatch - #{tmp\ 12056}# + #{tmp\ 3203}# '(any #(each (any any)) any . each-any)))) - #{e\ 12046}#))) - (#{global-extend\ 9072}# + #{e\ 3193}#))) + (#{global-extend\ 218}# 'core 'set! - (lambda (#{e\ 12096}# - #{r\ 12097}# - #{w\ 12098}# - #{s\ 12099}# - #{mod\ 12100}#) - ((lambda (#{tmp\ 12106}#) - ((lambda (#{tmp\ 12107}#) - (if (if #{tmp\ 12107}# - (apply (lambda (#{_\ 12111}# - #{id\ 12112}# - #{val\ 12113}#) - (#{id?\ 9076}# #{id\ 12112}#)) - #{tmp\ 12107}#) + (lambda (#{e\ 3243}# + #{r\ 3244}# + #{w\ 3245}# + #{s\ 3246}# + #{mod\ 3247}#) + ((lambda (#{tmp\ 3253}#) + ((lambda (#{tmp\ 3254}#) + (if (if #{tmp\ 3254}# + (apply (lambda (#{_\ 3258}# #{id\ 3259}# #{val\ 3260}#) + (#{id?\ 222}# #{id\ 3259}#)) + #{tmp\ 3254}#) #f) - (apply (lambda (#{_\ 12117}# #{id\ 12118}# #{val\ 12119}#) - (let ((#{val\ 12122}# - (#{chi\ 9161}# - #{val\ 12119}# - #{r\ 12097}# - #{w\ 12098}# - #{mod\ 12100}#)) - (#{n\ 12123}# - (#{id-var-name\ 9133}# - #{id\ 12118}# - #{w\ 12098}#))) - (let ((#{b\ 12125}# - (#{lookup\ 9070}# - #{n\ 12123}# - #{r\ 12097}# - #{mod\ 12100}#))) - (let ((#{atom-key\ 12128}# - (#{binding-type\ 9059}# #{b\ 12125}#))) - (if (memv #{atom-key\ 12128}# + (apply (lambda (#{_\ 3264}# #{id\ 3265}# #{val\ 3266}#) + (let ((#{val\ 3269}# + (#{chi\ 307}# + #{val\ 3266}# + #{r\ 3244}# + #{w\ 3245}# + #{mod\ 3247}#)) + (#{n\ 3270}# + (#{id-var-name\ 279}# + #{id\ 3265}# + #{w\ 3245}#))) + (let ((#{b\ 3272}# + (#{lookup\ 216}# + #{n\ 3270}# + #{r\ 3244}# + #{mod\ 3247}#))) + (let ((#{atom-key\ 3275}# + (#{binding-type\ 205}# #{b\ 3272}#))) + (if (memv #{atom-key\ 3275}# '(lexical)) - (#{build-lexical-assignment\ 9006}# - #{s\ 12099}# - (syntax->datum #{id\ 12118}#) - (#{binding-value\ 9061}# #{b\ 12125}#) - #{val\ 12122}#) - (if (memv #{atom-key\ 12128}# + (#{build-lexical-assignment\ 152}# + #{s\ 3246}# + (syntax->datum #{id\ 3265}#) + (#{binding-value\ 207}# #{b\ 3272}#) + #{val\ 3269}#) + (if (memv #{atom-key\ 3275}# '(global)) - (#{build-global-assignment\ 9012}# - #{s\ 12099}# - #{n\ 12123}# - #{val\ 12122}# - #{mod\ 12100}#) - (if (memv #{atom-key\ 12128}# + (#{build-global-assignment\ 158}# + #{s\ 3246}# + #{n\ 3270}# + #{val\ 3269}# + #{mod\ 3247}#) + (if (memv #{atom-key\ 3275}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 9145}# - #{id\ 12118}# - #{w\ 12098}# - #{mod\ 12100}#)) + (#{wrap\ 291}# + #{id\ 3265}# + #{w\ 3245}# + #{mod\ 3247}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 9147}# - #{e\ 12096}# - #{w\ 12098}# - #{s\ 12099}# - #{mod\ 12100}#))))))))) - #{tmp\ 12107}#) - ((lambda (#{tmp\ 12133}#) - (if #{tmp\ 12133}# - (apply (lambda (#{_\ 12138}# - #{head\ 12139}# - #{tail\ 12140}# - #{val\ 12141}#) + (#{source-wrap\ 293}# + #{e\ 3243}# + #{w\ 3245}# + #{s\ 3246}# + #{mod\ 3247}#))))))))) + #{tmp\ 3254}#) + ((lambda (#{tmp\ 3280}#) + (if #{tmp\ 3280}# + (apply (lambda (#{_\ 3285}# + #{head\ 3286}# + #{tail\ 3287}# + #{val\ 3288}#) (call-with-values (lambda () - (#{syntax-type\ 9157}# - #{head\ 12139}# - #{r\ 12097}# + (#{syntax-type\ 303}# + #{head\ 3286}# + #{r\ 3244}# '(()) #f #f - #{mod\ 12100}# + #{mod\ 3247}# #t)) - (lambda (#{type\ 12144}# - #{value\ 12145}# - #{ee\ 12146}# - #{ww\ 12147}# - #{ss\ 12148}# - #{modmod\ 12149}#) - (if (memv #{type\ 12144}# + (lambda (#{type\ 3291}# + #{value\ 3292}# + #{ee\ 3293}# + #{ww\ 3294}# + #{ss\ 3295}# + #{modmod\ 3296}#) + (if (memv #{type\ 3291}# '(module-ref)) - (let ((#{val\ 12158}# - (#{chi\ 9161}# - #{val\ 12141}# - #{r\ 12097}# - #{w\ 12098}# - #{mod\ 12100}#))) + (let ((#{val\ 3305}# + (#{chi\ 307}# + #{val\ 3288}# + #{r\ 3244}# + #{w\ 3245}# + #{mod\ 3247}#))) (call-with-values (lambda () - (#{value\ 12145}# - (cons #{head\ 12139}# - #{tail\ 12140}#))) - (lambda (#{id\ 12160}# - #{mod\ 12161}#) - (#{build-global-assignment\ 9012}# - #{s\ 12099}# - #{id\ 12160}# - #{val\ 12158}# - #{mod\ 12161}#)))) - (#{build-application\ 8998}# - #{s\ 12099}# - (#{chi\ 9161}# + (#{value\ 3292}# + (cons #{head\ 3286}# + #{tail\ 3287}#))) + (lambda (#{id\ 3307}# #{mod\ 3308}#) + (#{build-global-assignment\ 158}# + #{s\ 3246}# + #{id\ 3307}# + #{val\ 3305}# + #{mod\ 3308}#)))) + (#{build-application\ 144}# + #{s\ 3246}# + (#{chi\ 307}# (list '#(syntax-object setter ((top) @@ -9067,22 +8987,22 @@ (top) (top) (top)) - #("i12150" - "i12151" - "i12152" - "i12153" - "i12154" - "i12155")) + #("i3297" + "i3298" + "i3299" + "i3300" + "i3301" + "i3302")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i12134" - "i12135" - "i12136" - "i12137")) + #("i3281" + "i3282" + "i3283" + "i3284")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9091,11 +9011,11 @@ (top) (top) (top)) - #("i12101" - "i12102" - "i12103" - "i12104" - "i12105")) + #("i3248" + "i3249" + "i3250" + "i3251" + "i3252")) #(ribcage (lambda-var-list gen-var @@ -9333,179 +9253,177 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile)) - #{head\ 12139}#) - #{r\ 12097}# - #{w\ 12098}# - #{mod\ 12100}#) - (map (lambda (#{e\ 12165}#) - (#{chi\ 9161}# - #{e\ 12165}# - #{r\ 12097}# - #{w\ 12098}# - #{mod\ 12100}#)) + #{head\ 3286}#) + #{r\ 3244}# + #{w\ 3245}# + #{mod\ 3247}#) + (map (lambda (#{e\ 3312}#) + (#{chi\ 307}# + #{e\ 3312}# + #{r\ 3244}# + #{w\ 3245}# + #{mod\ 3247}#)) (append - #{tail\ 12140}# - (list #{val\ 12141}#)))))))) - #{tmp\ 12133}#) - ((lambda (#{_\ 12169}#) + #{tail\ 3287}# + (list #{val\ 3288}#)))))))) + #{tmp\ 3280}#) + ((lambda (#{_\ 3316}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 9147}# - #{e\ 12096}# - #{w\ 12098}# - #{s\ 12099}# - #{mod\ 12100}#))) - #{tmp\ 12106}#))) + (#{source-wrap\ 293}# + #{e\ 3243}# + #{w\ 3245}# + #{s\ 3246}# + #{mod\ 3247}#))) + #{tmp\ 3253}#))) ($sc-dispatch - #{tmp\ 12106}# + #{tmp\ 3253}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 12106}# + #{tmp\ 3253}# '(any any any)))) - #{e\ 12096}#))) - (#{global-extend\ 9072}# + #{e\ 3243}#))) + (#{global-extend\ 218}# 'module-ref '@ - (lambda (#{e\ 12170}#) - ((lambda (#{tmp\ 12172}#) - ((lambda (#{tmp\ 12173}#) - (if (if #{tmp\ 12173}# - (apply (lambda (#{_\ 12177}# - #{mod\ 12178}# - #{id\ 12179}#) - (if (and-map #{id?\ 9076}# #{mod\ 12178}#) - (#{id?\ 9076}# #{id\ 12179}#) + (lambda (#{e\ 3317}#) + ((lambda (#{tmp\ 3319}#) + ((lambda (#{tmp\ 3320}#) + (if (if #{tmp\ 3320}# + (apply (lambda (#{_\ 3324}# #{mod\ 3325}# #{id\ 3326}#) + (if (and-map #{id?\ 222}# #{mod\ 3325}#) + (#{id?\ 222}# #{id\ 3326}#) #f)) - #{tmp\ 12173}#) + #{tmp\ 3320}#) #f) - (apply (lambda (#{_\ 12186}# #{mod\ 12187}# #{id\ 12188}#) + (apply (lambda (#{_\ 3333}# #{mod\ 3334}# #{id\ 3335}#) (values - (syntax->datum #{id\ 12188}#) + (syntax->datum #{id\ 3335}#) (syntax->datum (cons '#(syntax-object public @@ -9513,9 +9431,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i12183" "i12184" "i12185")) + #("i3330" "i3331" "i3332")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i12171")) + #(ribcage #(e) #((top)) #("i3318")) #(ribcage (lambda-var-list gen-var @@ -9753,157 +9671,155 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile)) - #{mod\ 12187}#)))) - #{tmp\ 12173}#) + #{mod\ 3334}#)))) + #{tmp\ 3320}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12172}#))) + #{tmp\ 3319}#))) ($sc-dispatch - #{tmp\ 12172}# + #{tmp\ 3319}# '(any each-any any)))) - #{e\ 12170}#))) - (#{global-extend\ 9072}# + #{e\ 3317}#))) + (#{global-extend\ 218}# 'module-ref '@@ - (lambda (#{e\ 12190}#) - ((lambda (#{tmp\ 12192}#) - ((lambda (#{tmp\ 12193}#) - (if (if #{tmp\ 12193}# - (apply (lambda (#{_\ 12197}# - #{mod\ 12198}# - #{id\ 12199}#) - (if (and-map #{id?\ 9076}# #{mod\ 12198}#) - (#{id?\ 9076}# #{id\ 12199}#) + (lambda (#{e\ 3337}#) + ((lambda (#{tmp\ 3339}#) + ((lambda (#{tmp\ 3340}#) + (if (if #{tmp\ 3340}# + (apply (lambda (#{_\ 3344}# #{mod\ 3345}# #{id\ 3346}#) + (if (and-map #{id?\ 222}# #{mod\ 3345}#) + (#{id?\ 222}# #{id\ 3346}#) #f)) - #{tmp\ 12193}#) + #{tmp\ 3340}#) #f) - (apply (lambda (#{_\ 12206}# #{mod\ 12207}# #{id\ 12208}#) + (apply (lambda (#{_\ 3353}# #{mod\ 3354}# #{id\ 3355}#) (values - (syntax->datum #{id\ 12208}#) + (syntax->datum #{id\ 3355}#) (syntax->datum (cons '#(syntax-object private @@ -9911,9 +9827,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i12203" "i12204" "i12205")) + #("i3350" "i3351" "i3352")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i12191")) + #(ribcage #(e) #((top)) #("i3338")) #(ribcage (lambda-var-list gen-var @@ -10151,305 +10067,304 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile)) - #{mod\ 12207}#)))) - #{tmp\ 12193}#) + #{mod\ 3354}#)))) + #{tmp\ 3340}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12192}#))) + #{tmp\ 3339}#))) ($sc-dispatch - #{tmp\ 12192}# + #{tmp\ 3339}# '(any each-any any)))) - #{e\ 12190}#))) - (#{global-extend\ 9072}# + #{e\ 3337}#))) + (#{global-extend\ 218}# 'core 'if - (lambda (#{e\ 12210}# - #{r\ 12211}# - #{w\ 12212}# - #{s\ 12213}# - #{mod\ 12214}#) - ((lambda (#{tmp\ 12220}#) - ((lambda (#{tmp\ 12221}#) - (if #{tmp\ 12221}# - (apply (lambda (#{_\ 12225}# #{test\ 12226}# #{then\ 12227}#) - (#{build-conditional\ 9000}# - #{s\ 12213}# - (#{chi\ 9161}# - #{test\ 12226}# - #{r\ 12211}# - #{w\ 12212}# - #{mod\ 12214}#) - (#{chi\ 9161}# - #{then\ 12227}# - #{r\ 12211}# - #{w\ 12212}# - #{mod\ 12214}#) - (#{build-void\ 8996}# #f))) - #{tmp\ 12221}#) - ((lambda (#{tmp\ 12229}#) - (if #{tmp\ 12229}# - (apply (lambda (#{_\ 12234}# - #{test\ 12235}# - #{then\ 12236}# - #{else\ 12237}#) - (#{build-conditional\ 9000}# - #{s\ 12213}# - (#{chi\ 9161}# - #{test\ 12235}# - #{r\ 12211}# - #{w\ 12212}# - #{mod\ 12214}#) - (#{chi\ 9161}# - #{then\ 12236}# - #{r\ 12211}# - #{w\ 12212}# - #{mod\ 12214}#) - (#{chi\ 9161}# - #{else\ 12237}# - #{r\ 12211}# - #{w\ 12212}# - #{mod\ 12214}#))) - #{tmp\ 12229}#) + (lambda (#{e\ 3357}# + #{r\ 3358}# + #{w\ 3359}# + #{s\ 3360}# + #{mod\ 3361}#) + ((lambda (#{tmp\ 3367}#) + ((lambda (#{tmp\ 3368}#) + (if #{tmp\ 3368}# + (apply (lambda (#{_\ 3372}# #{test\ 3373}# #{then\ 3374}#) + (#{build-conditional\ 146}# + #{s\ 3360}# + (#{chi\ 307}# + #{test\ 3373}# + #{r\ 3358}# + #{w\ 3359}# + #{mod\ 3361}#) + (#{chi\ 307}# + #{then\ 3374}# + #{r\ 3358}# + #{w\ 3359}# + #{mod\ 3361}#) + (#{build-void\ 142}# #f))) + #{tmp\ 3368}#) + ((lambda (#{tmp\ 3376}#) + (if #{tmp\ 3376}# + (apply (lambda (#{_\ 3381}# + #{test\ 3382}# + #{then\ 3383}# + #{else\ 3384}#) + (#{build-conditional\ 146}# + #{s\ 3360}# + (#{chi\ 307}# + #{test\ 3382}# + #{r\ 3358}# + #{w\ 3359}# + #{mod\ 3361}#) + (#{chi\ 307}# + #{then\ 3383}# + #{r\ 3358}# + #{w\ 3359}# + #{mod\ 3361}#) + (#{chi\ 307}# + #{else\ 3384}# + #{r\ 3358}# + #{w\ 3359}# + #{mod\ 3361}#))) + #{tmp\ 3376}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12220}#))) + #{tmp\ 3367}#))) ($sc-dispatch - #{tmp\ 12220}# + #{tmp\ 3367}# '(any any any any))))) ($sc-dispatch - #{tmp\ 12220}# + #{tmp\ 3367}# '(any any any)))) - #{e\ 12210}#))) - (#{global-extend\ 9072}# + #{e\ 3357}#))) + (#{global-extend\ 218}# 'core 'with-fluids - (lambda (#{e\ 12238}# - #{r\ 12239}# - #{w\ 12240}# - #{s\ 12241}# - #{mod\ 12242}#) - ((lambda (#{tmp\ 12248}#) - ((lambda (#{tmp\ 12249}#) - (if #{tmp\ 12249}# - (apply (lambda (#{_\ 12255}# - #{fluid\ 12256}# - #{val\ 12257}# - #{b\ 12258}# - #{b*\ 12259}#) - (#{build-dynlet\ 9002}# - #{s\ 12241}# - (map (lambda (#{x\ 12260}#) - (#{chi\ 9161}# - #{x\ 12260}# - #{r\ 12239}# - #{w\ 12240}# - #{mod\ 12242}#)) - #{fluid\ 12256}#) - (map (lambda (#{x\ 12263}#) - (#{chi\ 9161}# - #{x\ 12263}# - #{r\ 12239}# - #{w\ 12240}# - #{mod\ 12242}#)) - #{val\ 12257}#) - (#{chi-body\ 9169}# - (cons #{b\ 12258}# #{b*\ 12259}#) - (#{source-wrap\ 9147}# - #{e\ 12238}# - #{w\ 12240}# - #{s\ 12241}# - #{mod\ 12242}#) - #{r\ 12239}# - #{w\ 12240}# - #{mod\ 12242}#))) - #{tmp\ 12249}#) + (lambda (#{e\ 3385}# + #{r\ 3386}# + #{w\ 3387}# + #{s\ 3388}# + #{mod\ 3389}#) + ((lambda (#{tmp\ 3395}#) + ((lambda (#{tmp\ 3396}#) + (if #{tmp\ 3396}# + (apply (lambda (#{_\ 3402}# + #{fluid\ 3403}# + #{val\ 3404}# + #{b\ 3405}# + #{b*\ 3406}#) + (#{build-dynlet\ 148}# + #{s\ 3388}# + (map (lambda (#{x\ 3407}#) + (#{chi\ 307}# + #{x\ 3407}# + #{r\ 3386}# + #{w\ 3387}# + #{mod\ 3389}#)) + #{fluid\ 3403}#) + (map (lambda (#{x\ 3410}#) + (#{chi\ 307}# + #{x\ 3410}# + #{r\ 3386}# + #{w\ 3387}# + #{mod\ 3389}#)) + #{val\ 3404}#) + (#{chi-body\ 315}# + (cons #{b\ 3405}# #{b*\ 3406}#) + (#{source-wrap\ 293}# + #{e\ 3385}# + #{w\ 3387}# + #{s\ 3388}# + #{mod\ 3389}#) + #{r\ 3386}# + #{w\ 3387}# + #{mod\ 3389}#))) + #{tmp\ 3396}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12248}#))) + #{tmp\ 3395}#))) ($sc-dispatch - #{tmp\ 12248}# + #{tmp\ 3395}# '(any #(each (any any)) any . each-any)))) - #{e\ 12238}#))) - (#{global-extend\ 9072}# + #{e\ 3385}#))) + (#{global-extend\ 218}# 'begin 'begin '()) - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'define 'define '()) - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'eval-when 'eval-when '()) - (#{global-extend\ 9072}# + (#{global-extend\ 218}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 12274}# - (lambda (#{x\ 12275}# - #{keys\ 12276}# - #{clauses\ 12277}# - #{r\ 12278}# - #{mod\ 12279}#) - (if (null? #{clauses\ 12277}#) - (#{build-application\ 8998}# + (letrec ((#{gen-syntax-case\ 3421}# + (lambda (#{x\ 3422}# + #{keys\ 3423}# + #{clauses\ 3424}# + #{r\ 3425}# + #{mod\ 3426}#) + (if (null? #{clauses\ 3424}#) + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# + (#{build-primref\ 170}# #f 'syntax-violation) - (list (#{build-data\ 9026}# #f #f) - (#{build-data\ 9026}# + (list (#{build-data\ 172}# #f #f) + (#{build-data\ 172}# #f "source expression failed to match any pattern") - #{x\ 12275}#)) - ((lambda (#{tmp\ 12289}#) - ((lambda (#{tmp\ 12290}#) - (if #{tmp\ 12290}# - (apply (lambda (#{pat\ 12293}# #{exp\ 12294}#) - (if (if (#{id?\ 9076}# #{pat\ 12293}#) + #{x\ 3422}#)) + ((lambda (#{tmp\ 3436}#) + ((lambda (#{tmp\ 3437}#) + (if #{tmp\ 3437}# + (apply (lambda (#{pat\ 3440}# #{exp\ 3441}#) + (if (if (#{id?\ 222}# #{pat\ 3440}#) (and-map - (lambda (#{x\ 12297}#) - (not (#{free-id=?\ 9135}# - #{pat\ 12293}# - #{x\ 12297}#))) + (lambda (#{x\ 3444}#) + (not (#{free-id=?\ 281}# + #{pat\ 3440}# + #{x\ 3444}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i12291" - "i12292")) + #("i3438" "i3439")) #(ribcage () () ()) #(ribcage #(x @@ -10462,11 +10377,11 @@ (top) (top) (top)) - #("i12280" - "i12281" - "i12282" - "i12283" - "i12284")) + #("i3427" + "i3428" + "i3429" + "i3430" + "i3431")) #(ribcage (gen-syntax-case gen-clause @@ -10476,10 +10391,10 @@ (top) (top) (top)) - ("i12273" - "i12271" - "i12269" - "i12267")) + ("i3420" + "i3418" + "i3416" + "i3414")) #(ribcage (lambda-var-list gen-var @@ -10717,1029 +10632,1025 @@ (top) (top) (top)) - ("i9190" - "i9188" - "i9186" - "i9184" - "i9182" - "i9180" - "i9178" - "i9176" - "i9174" - "i9172" - "i9170" - "i9168" - "i9166" - "i9164" - "i9162" - "i9160" - "i9158" - "i9156" - "i9154" - "i9152" - "i9150" - "i9148" - "i9146" - "i9144" - "i9142" - "i9140" - "i9138" - "i9136" - "i9134" - "i9132" - "i9130" - "i9128" - "i9126" - "i9124" - "i9122" - "i9120" - "i9119" - "i9118" - "i9116" - "i9115" - "i9114" - "i9113" - "i9112" - "i9110" - "i9108" - "i9106" - "i9104" - "i9102" - "i9100" - "i9098" - "i9096" - "i9093" - "i9091" - "i9090" - "i9089" - "i9088" - "i9087" - "i9086" - "i9084" - "i9082" - "i9080" - "i9078" - "i9077" - "i9075" - "i9073" - "i9071" - "i9069" - "i9067" - "i9065" - "i9063" - "i9062" - "i9060" - "i9058" - "i9057" - "i9056" - "i9054" - "i9053" - "i9051" - "i9049" - "i9047" - "i9045" - "i9043" - "i9041" - "i9039" - "i9037" - "i9035" - "i9033" - "i9031" - "i9029" - "i9027" - "i9025" - "i9023" - "i9021" - "i9019" - "i9017" - "i9015" - "i9013" - "i9011" - "i9009" - "i9007" - "i9005" - "i9003" - "i9001" - "i8999" - "i8997" - "i8995" - "i8993" - "i8991" - "i8989" - "i8988" - "i8986" - "i8984" - "i8982" - "i8980" - "i8978" - "i8976" - "i8974" - "i8972")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i8875" "i8873"))) + ("i21" "i19"))) (hygiene guile)) - #{keys\ 12276}#)) + #{keys\ 3423}#)) #f) - (let ((#{labels\ 12301}# - (list (#{gen-label\ 9092}#))) - (#{var\ 12302}# - (#{gen-var\ 9189}# - #{pat\ 12293}#))) - (#{build-application\ 8998}# + (let ((#{labels\ 3448}# + (list (#{gen-label\ 238}#))) + (#{var\ 3449}# + (#{gen-var\ 335}# + #{pat\ 3440}#))) + (#{build-application\ 144}# #f - (#{build-simple-lambda\ 9018}# + (#{build-simple-lambda\ 164}# #f (list (syntax->datum - #{pat\ 12293}#)) + #{pat\ 3440}#)) #f - (list #{var\ 12302}#) + (list #{var\ 3449}#) '() - (#{chi\ 9161}# - #{exp\ 12294}# - (#{extend-env\ 9064}# - #{labels\ 12301}# + (#{chi\ 307}# + #{exp\ 3441}# + (#{extend-env\ 210}# + #{labels\ 3448}# (list (cons 'syntax - (cons #{var\ 12302}# + (cons #{var\ 3449}# 0))) - #{r\ 12278}#) - (#{make-binding-wrap\ 9123}# - (list #{pat\ 12293}#) - #{labels\ 12301}# + #{r\ 3425}#) + (#{make-binding-wrap\ 269}# + (list #{pat\ 3440}#) + #{labels\ 3448}# '(())) - #{mod\ 12279}#)) - (list #{x\ 12275}#))) - (#{gen-clause\ 12272}# - #{x\ 12275}# - #{keys\ 12276}# - (cdr #{clauses\ 12277}#) - #{r\ 12278}# - #{pat\ 12293}# + #{mod\ 3426}#)) + (list #{x\ 3422}#))) + (#{gen-clause\ 3419}# + #{x\ 3422}# + #{keys\ 3423}# + (cdr #{clauses\ 3424}#) + #{r\ 3425}# + #{pat\ 3440}# #t - #{exp\ 12294}# - #{mod\ 12279}#))) - #{tmp\ 12290}#) - ((lambda (#{tmp\ 12308}#) - (if #{tmp\ 12308}# - (apply (lambda (#{pat\ 12312}# - #{fender\ 12313}# - #{exp\ 12314}#) - (#{gen-clause\ 12272}# - #{x\ 12275}# - #{keys\ 12276}# - (cdr #{clauses\ 12277}#) - #{r\ 12278}# - #{pat\ 12312}# - #{fender\ 12313}# - #{exp\ 12314}# - #{mod\ 12279}#)) - #{tmp\ 12308}#) - ((lambda (#{_\ 12316}#) + #{exp\ 3441}# + #{mod\ 3426}#))) + #{tmp\ 3437}#) + ((lambda (#{tmp\ 3455}#) + (if #{tmp\ 3455}# + (apply (lambda (#{pat\ 3459}# + #{fender\ 3460}# + #{exp\ 3461}#) + (#{gen-clause\ 3419}# + #{x\ 3422}# + #{keys\ 3423}# + (cdr #{clauses\ 3424}#) + #{r\ 3425}# + #{pat\ 3459}# + #{fender\ 3460}# + #{exp\ 3461}# + #{mod\ 3426}#)) + #{tmp\ 3455}#) + ((lambda (#{_\ 3463}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 12277}#))) - #{tmp\ 12289}#))) + (car #{clauses\ 3424}#))) + #{tmp\ 3436}#))) ($sc-dispatch - #{tmp\ 12289}# + #{tmp\ 3436}# '(any any any))))) - ($sc-dispatch #{tmp\ 12289}# (quote (any any))))) - (car #{clauses\ 12277}#))))) - (#{gen-clause\ 12272}# - (lambda (#{x\ 12317}# - #{keys\ 12318}# - #{clauses\ 12319}# - #{r\ 12320}# - #{pat\ 12321}# - #{fender\ 12322}# - #{exp\ 12323}# - #{mod\ 12324}#) + ($sc-dispatch #{tmp\ 3436}# (quote (any any))))) + (car #{clauses\ 3424}#))))) + (#{gen-clause\ 3419}# + (lambda (#{x\ 3464}# + #{keys\ 3465}# + #{clauses\ 3466}# + #{r\ 3467}# + #{pat\ 3468}# + #{fender\ 3469}# + #{exp\ 3470}# + #{mod\ 3471}#) (call-with-values (lambda () - (#{convert-pattern\ 12268}# - #{pat\ 12321}# - #{keys\ 12318}#)) - (lambda (#{p\ 12333}# #{pvars\ 12334}#) - (if (not (#{distinct-bound-ids?\ 9141}# - (map car #{pvars\ 12334}#))) + (#{convert-pattern\ 3415}# + #{pat\ 3468}# + #{keys\ 3465}#)) + (lambda (#{p\ 3480}# #{pvars\ 3481}#) + (if (not (#{distinct-bound-ids?\ 287}# + (map car #{pvars\ 3481}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 12321}#) + #{pat\ 3468}#) (if (not (and-map - (lambda (#{x\ 12341}#) - (not (#{ellipsis?\ 9177}# - (car #{x\ 12341}#)))) - #{pvars\ 12334}#)) + (lambda (#{x\ 3488}#) + (not (#{ellipsis?\ 323}# + (car #{x\ 3488}#)))) + #{pvars\ 3481}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 12321}#) - (let ((#{y\ 12345}# - (#{gen-var\ 9189}# (quote tmp)))) - (#{build-application\ 8998}# + #{pat\ 3468}#) + (let ((#{y\ 3492}# + (#{gen-var\ 335}# (quote tmp)))) + (#{build-application\ 144}# #f - (#{build-simple-lambda\ 9018}# + (#{build-simple-lambda\ 164}# #f (list (quote tmp)) #f - (list #{y\ 12345}#) + (list #{y\ 3492}#) '() - (let ((#{y\ 12349}# - (#{build-lexical-reference\ 9004}# + (let ((#{y\ 3496}# + (#{build-lexical-reference\ 150}# 'value #f 'tmp - #{y\ 12345}#))) - (#{build-conditional\ 9000}# + #{y\ 3492}#))) + (#{build-conditional\ 146}# #f - ((lambda (#{tmp\ 12352}#) - ((lambda (#{tmp\ 12353}#) - (if #{tmp\ 12353}# - (apply (lambda () #{y\ 12349}#) - #{tmp\ 12353}#) - ((lambda (#{_\ 12355}#) - (#{build-conditional\ 9000}# + ((lambda (#{tmp\ 3499}#) + ((lambda (#{tmp\ 3500}#) + (if #{tmp\ 3500}# + (apply (lambda () #{y\ 3496}#) + #{tmp\ 3500}#) + ((lambda (#{_\ 3502}#) + (#{build-conditional\ 146}# #f - #{y\ 12349}# - (#{build-dispatch-call\ 12270}# - #{pvars\ 12334}# - #{fender\ 12322}# - #{y\ 12349}# - #{r\ 12320}# - #{mod\ 12324}#) - (#{build-data\ 9026}# + #{y\ 3496}# + (#{build-dispatch-call\ 3417}# + #{pvars\ 3481}# + #{fender\ 3469}# + #{y\ 3496}# + #{r\ 3467}# + #{mod\ 3471}#) + (#{build-data\ 172}# #f #f))) - #{tmp\ 12352}#))) + #{tmp\ 3499}#))) ($sc-dispatch - #{tmp\ 12352}# + #{tmp\ 3499}# '#(atom #t)))) - #{fender\ 12322}#) - (#{build-dispatch-call\ 12270}# - #{pvars\ 12334}# - #{exp\ 12323}# - #{y\ 12349}# - #{r\ 12320}# - #{mod\ 12324}#) - (#{gen-syntax-case\ 12274}# - #{x\ 12317}# - #{keys\ 12318}# - #{clauses\ 12319}# - #{r\ 12320}# - #{mod\ 12324}#)))) - (list (if (eq? #{p\ 12333}# (quote any)) - (#{build-application\ 8998}# + #{fender\ 3469}#) + (#{build-dispatch-call\ 3417}# + #{pvars\ 3481}# + #{exp\ 3470}# + #{y\ 3496}# + #{r\ 3467}# + #{mod\ 3471}#) + (#{gen-syntax-case\ 3421}# + #{x\ 3464}# + #{keys\ 3465}# + #{clauses\ 3466}# + #{r\ 3467}# + #{mod\ 3471}#)))) + (list (if (eq? #{p\ 3480}# (quote any)) + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# + (#{build-primref\ 170}# #f 'list) - (list #{x\ 12317}#)) - (#{build-application\ 8998}# + (list #{x\ 3464}#)) + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# + (#{build-primref\ 170}# #f '$sc-dispatch) - (list #{x\ 12317}# - (#{build-data\ 9026}# + (list #{x\ 3464}# + (#{build-data\ 172}# #f - #{p\ 12333}#))))))))))))) - (#{build-dispatch-call\ 12270}# - (lambda (#{pvars\ 12363}# - #{exp\ 12364}# - #{y\ 12365}# - #{r\ 12366}# - #{mod\ 12367}#) - (let ((#{ids\ 12375}# (map car #{pvars\ 12363}#)) - (#{levels\ 12376}# (map cdr #{pvars\ 12363}#))) - (let ((#{labels\ 12379}# - (#{gen-labels\ 9094}# #{ids\ 12375}#)) - (#{new-vars\ 12380}# - (map #{gen-var\ 9189}# #{ids\ 12375}#))) - (#{build-application\ 8998}# + #{p\ 3480}#))))))))))))) + (#{build-dispatch-call\ 3417}# + (lambda (#{pvars\ 3510}# + #{exp\ 3511}# + #{y\ 3512}# + #{r\ 3513}# + #{mod\ 3514}#) + (let ((#{ids\ 3522}# (map car #{pvars\ 3510}#)) + (#{levels\ 3523}# (map cdr #{pvars\ 3510}#))) + (let ((#{labels\ 3526}# + (#{gen-labels\ 240}# #{ids\ 3522}#)) + (#{new-vars\ 3527}# + (map #{gen-var\ 335}# #{ids\ 3522}#))) + (#{build-application\ 144}# #f - (#{build-primref\ 9024}# #f (quote apply)) - (list (#{build-simple-lambda\ 9018}# + (#{build-primref\ 170}# #f (quote apply)) + (list (#{build-simple-lambda\ 164}# #f - (map syntax->datum #{ids\ 12375}#) + (map syntax->datum #{ids\ 3522}#) #f - #{new-vars\ 12380}# + #{new-vars\ 3527}# '() - (#{chi\ 9161}# - #{exp\ 12364}# - (#{extend-env\ 9064}# - #{labels\ 12379}# - (map (lambda (#{var\ 12384}# - #{level\ 12385}#) + (#{chi\ 307}# + #{exp\ 3511}# + (#{extend-env\ 210}# + #{labels\ 3526}# + (map (lambda (#{var\ 3531}# + #{level\ 3532}#) (cons 'syntax - (cons #{var\ 12384}# - #{level\ 12385}#))) - #{new-vars\ 12380}# - (map cdr #{pvars\ 12363}#)) - #{r\ 12366}#) - (#{make-binding-wrap\ 9123}# - #{ids\ 12375}# - #{labels\ 12379}# + (cons #{var\ 3531}# + #{level\ 3532}#))) + #{new-vars\ 3527}# + (map cdr #{pvars\ 3510}#)) + #{r\ 3513}#) + (#{make-binding-wrap\ 269}# + #{ids\ 3522}# + #{labels\ 3526}# '(())) - #{mod\ 12367}#)) - #{y\ 12365}#)))))) - (#{convert-pattern\ 12268}# - (lambda (#{pattern\ 12391}# #{keys\ 12392}#) - (letrec ((#{cvt\ 12398}# - (lambda (#{p\ 12399}# - #{n\ 12400}# - #{ids\ 12401}#) - (if (#{id?\ 9076}# #{p\ 12399}#) - (if (#{bound-id-member?\ 9143}# - #{p\ 12399}# - #{keys\ 12392}#) + #{mod\ 3514}#)) + #{y\ 3512}#)))))) + (#{convert-pattern\ 3415}# + (lambda (#{pattern\ 3538}# #{keys\ 3539}#) + (letrec ((#{cvt\ 3545}# + (lambda (#{p\ 3546}# #{n\ 3547}# #{ids\ 3548}#) + (if (#{id?\ 222}# #{p\ 3546}#) + (if (#{bound-id-member?\ 289}# + #{p\ 3546}# + #{keys\ 3539}#) (values - (vector (quote free-id) #{p\ 12399}#) - #{ids\ 12401}#) + (vector (quote free-id) #{p\ 3546}#) + #{ids\ 3548}#) (values 'any - (cons (cons #{p\ 12399}# #{n\ 12400}#) - #{ids\ 12401}#))) - ((lambda (#{tmp\ 12405}#) - ((lambda (#{tmp\ 12406}#) - (if (if #{tmp\ 12406}# - (apply (lambda (#{x\ 12409}# - #{dots\ 12410}#) - (#{ellipsis?\ 9177}# - #{dots\ 12410}#)) - #{tmp\ 12406}#) + (cons (cons #{p\ 3546}# #{n\ 3547}#) + #{ids\ 3548}#))) + ((lambda (#{tmp\ 3552}#) + ((lambda (#{tmp\ 3553}#) + (if (if #{tmp\ 3553}# + (apply (lambda (#{x\ 3556}# + #{dots\ 3557}#) + (#{ellipsis?\ 323}# + #{dots\ 3557}#)) + #{tmp\ 3553}#) #f) - (apply (lambda (#{x\ 12413}# - #{dots\ 12414}#) + (apply (lambda (#{x\ 3560}# + #{dots\ 3561}#) (call-with-values (lambda () - (#{cvt\ 12398}# - #{x\ 12413}# - (#{fx+\ 8977}# - #{n\ 12400}# + (#{cvt\ 3545}# + #{x\ 3560}# + (#{fx+\ 123}# + #{n\ 3547}# 1) - #{ids\ 12401}#)) - (lambda (#{p\ 12415}# - #{ids\ 12416}#) + #{ids\ 3548}#)) + (lambda (#{p\ 3562}# + #{ids\ 3563}#) (values - (if (eq? #{p\ 12415}# + (if (eq? #{p\ 3562}# 'any) 'each-any (vector 'each - #{p\ 12415}#)) - #{ids\ 12416}#)))) - #{tmp\ 12406}#) - ((lambda (#{tmp\ 12419}#) - (if (if #{tmp\ 12419}# - (apply (lambda (#{x\ 12423}# - #{dots\ 12424}# - #{ys\ 12425}#) - (#{ellipsis?\ 9177}# - #{dots\ 12424}#)) - #{tmp\ 12419}#) + #{p\ 3562}#)) + #{ids\ 3563}#)))) + #{tmp\ 3553}#) + ((lambda (#{tmp\ 3566}#) + (if (if #{tmp\ 3566}# + (apply (lambda (#{x\ 3570}# + #{dots\ 3571}# + #{ys\ 3572}#) + (#{ellipsis?\ 323}# + #{dots\ 3571}#)) + #{tmp\ 3566}#) #f) - (apply (lambda (#{x\ 12429}# - #{dots\ 12430}# - #{ys\ 12431}#) + (apply (lambda (#{x\ 3576}# + #{dots\ 3577}# + #{ys\ 3578}#) (call-with-values (lambda () - (#{cvt*\ 12396}# - #{ys\ 12431}# - #{n\ 12400}# - #{ids\ 12401}#)) - (lambda (#{ys\ 12433}# - #{ids\ 12434}#) + (#{cvt*\ 3543}# + #{ys\ 3578}# + #{n\ 3547}# + #{ids\ 3548}#)) + (lambda (#{ys\ 3580}# + #{ids\ 3581}#) (call-with-values (lambda () - (#{cvt\ 12398}# - #{x\ 12429}# - (+ #{n\ 12400}# + (#{cvt\ 3545}# + #{x\ 3576}# + (+ #{n\ 3547}# 1) - #{ids\ 12434}#)) - (lambda (#{x\ 12437}# - #{ids\ 12438}#) + #{ids\ 3581}#)) + (lambda (#{x\ 3584}# + #{ids\ 3585}#) (values (list->vector (cons 'each+ - (cons #{x\ 12437}# + (cons #{x\ 3584}# (cons (reverse - #{ys\ 12433}#) + #{ys\ 3580}#) '(()))))) - #{ids\ 12438}#)))))) - #{tmp\ 12419}#) - ((lambda (#{tmp\ 12442}#) - (if #{tmp\ 12442}# - (apply (lambda (#{x\ 12445}# - #{y\ 12446}#) + #{ids\ 3585}#)))))) + #{tmp\ 3566}#) + ((lambda (#{tmp\ 3589}#) + (if #{tmp\ 3589}# + (apply (lambda (#{x\ 3592}# + #{y\ 3593}#) (call-with-values (lambda () - (#{cvt\ 12398}# - #{y\ 12446}# - #{n\ 12400}# - #{ids\ 12401}#)) - (lambda (#{y\ 12447}# - #{ids\ 12448}#) + (#{cvt\ 3545}# + #{y\ 3593}# + #{n\ 3547}# + #{ids\ 3548}#)) + (lambda (#{y\ 3594}# + #{ids\ 3595}#) (call-with-values (lambda () - (#{cvt\ 12398}# - #{x\ 12445}# - #{n\ 12400}# - #{ids\ 12448}#)) - (lambda (#{x\ 12451}# - #{ids\ 12452}#) + (#{cvt\ 3545}# + #{x\ 3592}# + #{n\ 3547}# + #{ids\ 3595}#)) + (lambda (#{x\ 3598}# + #{ids\ 3599}#) (values - (cons #{x\ 12451}# - #{y\ 12447}#) - #{ids\ 12452}#)))))) - #{tmp\ 12442}#) - ((lambda (#{tmp\ 12455}#) - (if #{tmp\ 12455}# + (cons #{x\ 3598}# + #{y\ 3594}#) + #{ids\ 3599}#)))))) + #{tmp\ 3589}#) + ((lambda (#{tmp\ 3602}#) + (if #{tmp\ 3602}# (apply (lambda () (values '() - #{ids\ 12401}#)) - #{tmp\ 12455}#) - ((lambda (#{tmp\ 12456}#) - (if #{tmp\ 12456}# - (apply (lambda (#{x\ 12458}#) + #{ids\ 3548}#)) + #{tmp\ 3602}#) + ((lambda (#{tmp\ 3603}#) + (if #{tmp\ 3603}# + (apply (lambda (#{x\ 3605}#) (call-with-values (lambda () - (#{cvt\ 12398}# - #{x\ 12458}# - #{n\ 12400}# - #{ids\ 12401}#)) - (lambda (#{p\ 12460}# - #{ids\ 12461}#) + (#{cvt\ 3545}# + #{x\ 3605}# + #{n\ 3547}# + #{ids\ 3548}#)) + (lambda (#{p\ 3607}# + #{ids\ 3608}#) (values (vector 'vector - #{p\ 12460}#) - #{ids\ 12461}#)))) - #{tmp\ 12456}#) - ((lambda (#{x\ 12465}#) + #{p\ 3607}#) + #{ids\ 3608}#)))) + #{tmp\ 3603}#) + ((lambda (#{x\ 3612}#) (values (vector 'atom - (#{strip\ 9187}# - #{p\ 12399}# + (#{strip\ 333}# + #{p\ 3546}# '(()))) - #{ids\ 12401}#)) - #{tmp\ 12405}#))) + #{ids\ 3548}#)) + #{tmp\ 3552}#))) ($sc-dispatch - #{tmp\ 12405}# + #{tmp\ 3552}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 12405}# + #{tmp\ 3552}# '())))) ($sc-dispatch - #{tmp\ 12405}# + #{tmp\ 3552}# '(any . any))))) ($sc-dispatch - #{tmp\ 12405}# + #{tmp\ 3552}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 12405}# + #{tmp\ 3552}# '(any any)))) - #{p\ 12399}#)))) - (#{cvt*\ 12396}# - (lambda (#{p*\ 12467}# - #{n\ 12468}# - #{ids\ 12469}#) - (if (null? #{p*\ 12467}#) - (values (quote ()) #{ids\ 12469}#) + #{p\ 3546}#)))) + (#{cvt*\ 3543}# + (lambda (#{p*\ 3614}# + #{n\ 3615}# + #{ids\ 3616}#) + (if (null? #{p*\ 3614}#) + (values (quote ()) #{ids\ 3616}#) (call-with-values (lambda () - (#{cvt*\ 12396}# - (cdr #{p*\ 12467}#) - #{n\ 12468}# - #{ids\ 12469}#)) - (lambda (#{y\ 12473}# #{ids\ 12474}#) + (#{cvt*\ 3543}# + (cdr #{p*\ 3614}#) + #{n\ 3615}# + #{ids\ 3616}#)) + (lambda (#{y\ 3620}# #{ids\ 3621}#) (call-with-values (lambda () - (#{cvt\ 12398}# - (car #{p*\ 12467}#) - #{n\ 12468}# - #{ids\ 12474}#)) - (lambda (#{x\ 12477}# #{ids\ 12478}#) + (#{cvt\ 3545}# + (car #{p*\ 3614}#) + #{n\ 3615}# + #{ids\ 3621}#)) + (lambda (#{x\ 3624}# #{ids\ 3625}#) (values - (cons #{x\ 12477}# #{y\ 12473}#) - #{ids\ 12478}#))))))))) - (#{cvt\ 12398}# #{pattern\ 12391}# 0 (quote ())))))) - (lambda (#{e\ 12481}# - #{r\ 12482}# - #{w\ 12483}# - #{s\ 12484}# - #{mod\ 12485}#) - (let ((#{e\ 12492}# - (#{source-wrap\ 9147}# - #{e\ 12481}# - #{w\ 12483}# - #{s\ 12484}# - #{mod\ 12485}#))) - ((lambda (#{tmp\ 12493}#) - ((lambda (#{tmp\ 12494}#) - (if #{tmp\ 12494}# - (apply (lambda (#{_\ 12499}# - #{val\ 12500}# - #{key\ 12501}# - #{m\ 12502}#) + (cons #{x\ 3624}# #{y\ 3620}#) + #{ids\ 3625}#))))))))) + (#{cvt\ 3545}# #{pattern\ 3538}# 0 (quote ())))))) + (lambda (#{e\ 3628}# + #{r\ 3629}# + #{w\ 3630}# + #{s\ 3631}# + #{mod\ 3632}#) + (let ((#{e\ 3639}# + (#{source-wrap\ 293}# + #{e\ 3628}# + #{w\ 3630}# + #{s\ 3631}# + #{mod\ 3632}#))) + ((lambda (#{tmp\ 3640}#) + ((lambda (#{tmp\ 3641}#) + (if #{tmp\ 3641}# + (apply (lambda (#{_\ 3646}# + #{val\ 3647}# + #{key\ 3648}# + #{m\ 3649}#) (if (and-map - (lambda (#{x\ 12503}#) - (if (#{id?\ 9076}# #{x\ 12503}#) - (not (#{ellipsis?\ 9177}# - #{x\ 12503}#)) + (lambda (#{x\ 3650}#) + (if (#{id?\ 222}# #{x\ 3650}#) + (not (#{ellipsis?\ 323}# #{x\ 3650}#)) #f)) - #{key\ 12501}#) - (let ((#{x\ 12509}# - (#{gen-var\ 9189}# (quote tmp)))) - (#{build-application\ 8998}# - #{s\ 12484}# - (#{build-simple-lambda\ 9018}# + #{key\ 3648}#) + (let ((#{x\ 3656}# + (#{gen-var\ 335}# (quote tmp)))) + (#{build-application\ 144}# + #{s\ 3631}# + (#{build-simple-lambda\ 164}# #f (list (quote tmp)) #f - (list #{x\ 12509}#) + (list #{x\ 3656}#) '() - (#{gen-syntax-case\ 12274}# - (#{build-lexical-reference\ 9004}# + (#{gen-syntax-case\ 3421}# + (#{build-lexical-reference\ 150}# 'value #f 'tmp - #{x\ 12509}#) - #{key\ 12501}# - #{m\ 12502}# - #{r\ 12482}# - #{mod\ 12485}#)) - (list (#{chi\ 9161}# - #{val\ 12500}# - #{r\ 12482}# + #{x\ 3656}#) + #{key\ 3648}# + #{m\ 3649}# + #{r\ 3629}# + #{mod\ 3632}#)) + (list (#{chi\ 307}# + #{val\ 3647}# + #{r\ 3629}# '(()) - #{mod\ 12485}#)))) + #{mod\ 3632}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 12492}#))) - #{tmp\ 12494}#) + #{e\ 3639}#))) + #{tmp\ 3641}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12493}#))) + #{tmp\ 3640}#))) ($sc-dispatch - #{tmp\ 12493}# + #{tmp\ 3640}# '(any any each-any . each-any)))) - #{e\ 12492}#))))) + #{e\ 3639}#))))) (set! macroexpand - (lambda (#{x\ 12515}# . #{rest\ 12516}#) - (if (if (pair? #{x\ 12515}#) - (equal? (car #{x\ 12515}#) #{noexpand\ 8973}#) + (lambda (#{x\ 3662}# . #{rest\ 3663}#) + (if (if (pair? #{x\ 3662}#) + (equal? (car #{x\ 3662}#) #{noexpand\ 119}#) #f) - (cadr #{x\ 12515}#) - (let ((#{m\ 12523}# - (if (null? #{rest\ 12516}#) + (cadr #{x\ 3662}#) + (let ((#{m\ 3670}# + (if (null? #{rest\ 3663}#) 'e - (car #{rest\ 12516}#))) - (#{esew\ 12524}# - (if (let ((#{t\ 12527}# (null? #{rest\ 12516}#))) - (if #{t\ 12527}# - #{t\ 12527}# - (null? (cdr #{rest\ 12516}#)))) + (car #{rest\ 3663}#))) + (#{esew\ 3671}# + (if (let ((#{t\ 3674}# (null? #{rest\ 3663}#))) + (if #{t\ 3674}# + #{t\ 3674}# + (null? (cdr #{rest\ 3663}#)))) '(eval) - (cadr #{rest\ 12516}#)))) + (cadr #{rest\ 3663}#)))) (with-fluids - ((#{*mode*\ 8975}# #{m\ 12523}#)) - (#{chi-top\ 9159}# - #{x\ 12515}# + ((#{*mode*\ 121}# #{m\ 3670}#)) + (#{chi-top\ 305}# + #{x\ 3662}# '() '((top)) - #{m\ 12523}# - #{esew\ 12524}# + #{m\ 3670}# + #{esew\ 3671}# (cons 'hygiene (module-name (current-module))))))))) (set! identifier? - (lambda (#{x\ 12531}#) - (#{nonsymbol-id?\ 9074}# #{x\ 12531}#))) + (lambda (#{x\ 3678}#) + (#{nonsymbol-id?\ 220}# #{x\ 3678}#))) (set! datum->syntax - (lambda (#{id\ 12533}# #{datum\ 12534}#) - (#{make-syntax-object\ 9038}# - #{datum\ 12534}# - (#{syntax-object-wrap\ 9044}# #{id\ 12533}#) + (lambda (#{id\ 3680}# #{datum\ 3681}#) + (#{make-syntax-object\ 184}# + #{datum\ 3681}# + (#{syntax-object-wrap\ 190}# #{id\ 3680}#) #f))) (set! syntax->datum - (lambda (#{x\ 12537}#) - (#{strip\ 9187}# #{x\ 12537}# (quote (()))))) + (lambda (#{x\ 3684}#) + (#{strip\ 333}# #{x\ 3684}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 12540}#) + (lambda (#{ls\ 3687}#) (begin - (let ((#{x\ 12544}# #{ls\ 12540}#)) - (if (not (list? #{x\ 12544}#)) + (let ((#{x\ 3691}# #{ls\ 3687}#)) + (if (not (list? #{x\ 3691}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 12544}#))) - (map (lambda (#{x\ 12545}#) - (#{wrap\ 9145}# (gensym) (quote ((top))) #f)) - #{ls\ 12540}#)))) + #{x\ 3691}#))) + (map (lambda (#{x\ 3692}#) + (#{wrap\ 291}# (gensym) (quote ((top))) #f)) + #{ls\ 3687}#)))) (set! free-identifier=? - (lambda (#{x\ 12549}# #{y\ 12550}#) + (lambda (#{x\ 3696}# #{y\ 3697}#) (begin - (let ((#{x\ 12555}# #{x\ 12549}#)) - (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12555}#)) + (let ((#{x\ 3702}# #{x\ 3696}#)) + (if (not (#{nonsymbol-id?\ 220}# #{x\ 3702}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 12555}#))) - (let ((#{x\ 12558}# #{y\ 12550}#)) - (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12558}#)) + #{x\ 3702}#))) + (let ((#{x\ 3705}# #{y\ 3697}#)) + (if (not (#{nonsymbol-id?\ 220}# #{x\ 3705}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 12558}#))) - (#{free-id=?\ 9135}# #{x\ 12549}# #{y\ 12550}#)))) + #{x\ 3705}#))) + (#{free-id=?\ 281}# #{x\ 3696}# #{y\ 3697}#)))) (set! bound-identifier=? - (lambda (#{x\ 12559}# #{y\ 12560}#) + (lambda (#{x\ 3706}# #{y\ 3707}#) (begin - (let ((#{x\ 12565}# #{x\ 12559}#)) - (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12565}#)) + (let ((#{x\ 3712}# #{x\ 3706}#)) + (if (not (#{nonsymbol-id?\ 220}# #{x\ 3712}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 12565}#))) - (let ((#{x\ 12568}# #{y\ 12560}#)) - (if (not (#{nonsymbol-id?\ 9074}# #{x\ 12568}#)) + #{x\ 3712}#))) + (let ((#{x\ 3715}# #{y\ 3707}#)) + (if (not (#{nonsymbol-id?\ 220}# #{x\ 3715}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 12568}#))) - (#{bound-id=?\ 9137}# #{x\ 12559}# #{y\ 12560}#)))) + #{x\ 3715}#))) + (#{bound-id=?\ 283}# #{x\ 3706}# #{y\ 3707}#)))) (set! syntax-violation - (lambda (#{who\ 12569}# - #{message\ 12570}# - #{form\ 12571}# + (lambda (#{who\ 3716}# + #{message\ 3717}# + #{form\ 3718}# . - #{subform\ 12572}#) + #{subform\ 3719}#) (begin - (let ((#{x\ 12579}# #{who\ 12569}#)) - (if (not ((lambda (#{x\ 12580}#) - (let ((#{t\ 12584}# (not #{x\ 12580}#))) - (if #{t\ 12584}# - #{t\ 12584}# - (let ((#{t\ 12587}# (string? #{x\ 12580}#))) - (if #{t\ 12587}# - #{t\ 12587}# - (symbol? #{x\ 12580}#)))))) - #{x\ 12579}#)) + (let ((#{x\ 3726}# #{who\ 3716}#)) + (if (not ((lambda (#{x\ 3727}#) + (let ((#{t\ 3731}# (not #{x\ 3727}#))) + (if #{t\ 3731}# + #{t\ 3731}# + (let ((#{t\ 3734}# (string? #{x\ 3727}#))) + (if #{t\ 3734}# + #{t\ 3734}# + (symbol? #{x\ 3727}#)))))) + #{x\ 3726}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 12579}#))) - (let ((#{x\ 12591}# #{message\ 12570}#)) - (if (not (string? #{x\ 12591}#)) + #{x\ 3726}#))) + (let ((#{x\ 3738}# #{message\ 3717}#)) + (if (not (string? #{x\ 3738}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 12591}#))) + #{x\ 3738}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 12569}# "~a: " "") + (if #{who\ 3716}# "~a: " "") "~a " - (if (null? #{subform\ 12572}#) + (if (null? #{subform\ 3719}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 12593}# - (cons #{message\ 12570}# - (map (lambda (#{x\ 12594}#) - (#{strip\ 9187}# #{x\ 12594}# (quote (())))) + (let ((#{tail\ 3740}# + (cons #{message\ 3717}# + (map (lambda (#{x\ 3741}#) + (#{strip\ 333}# #{x\ 3741}# (quote (())))) (append - #{subform\ 12572}# - (list #{form\ 12571}#)))))) - (if #{who\ 12569}# - (cons #{who\ 12569}# #{tail\ 12593}#) - #{tail\ 12593}#)) + #{subform\ 3719}# + (list #{form\ 3718}#)))))) + (if #{who\ 3716}# + (cons #{who\ 3716}# #{tail\ 3740}#) + #{tail\ 3740}#)) #f)))) - (letrec ((#{match\ 12610}# - (lambda (#{e\ 12611}# - #{p\ 12612}# - #{w\ 12613}# - #{r\ 12614}# - #{mod\ 12615}#) - (if (not #{r\ 12614}#) + (letrec ((#{match\ 3757}# + (lambda (#{e\ 3758}# + #{p\ 3759}# + #{w\ 3760}# + #{r\ 3761}# + #{mod\ 3762}#) + (if (not #{r\ 3761}#) #f - (if (eq? #{p\ 12612}# (quote any)) - (cons (#{wrap\ 9145}# - #{e\ 12611}# - #{w\ 12613}# - #{mod\ 12615}#) - #{r\ 12614}#) - (if (#{syntax-object?\ 9040}# #{e\ 12611}#) - (#{match*\ 12608}# - (#{syntax-object-expression\ 9042}# #{e\ 12611}#) - #{p\ 12612}# - (#{join-wraps\ 9127}# - #{w\ 12613}# - (#{syntax-object-wrap\ 9044}# #{e\ 12611}#)) - #{r\ 12614}# - (#{syntax-object-module\ 9046}# #{e\ 12611}#)) - (#{match*\ 12608}# - #{e\ 12611}# - #{p\ 12612}# - #{w\ 12613}# - #{r\ 12614}# - #{mod\ 12615}#)))))) - (#{match*\ 12608}# - (lambda (#{e\ 12628}# - #{p\ 12629}# - #{w\ 12630}# - #{r\ 12631}# - #{mod\ 12632}#) - (if (null? #{p\ 12629}#) - (if (null? #{e\ 12628}#) #{r\ 12631}# #f) - (if (pair? #{p\ 12629}#) - (if (pair? #{e\ 12628}#) - (#{match\ 12610}# - (car #{e\ 12628}#) - (car #{p\ 12629}#) - #{w\ 12630}# - (#{match\ 12610}# - (cdr #{e\ 12628}#) - (cdr #{p\ 12629}#) - #{w\ 12630}# - #{r\ 12631}# - #{mod\ 12632}#) - #{mod\ 12632}#) + (if (eq? #{p\ 3759}# (quote any)) + (cons (#{wrap\ 291}# + #{e\ 3758}# + #{w\ 3760}# + #{mod\ 3762}#) + #{r\ 3761}#) + (if (#{syntax-object?\ 186}# #{e\ 3758}#) + (#{match*\ 3755}# + (#{syntax-object-expression\ 188}# #{e\ 3758}#) + #{p\ 3759}# + (#{join-wraps\ 273}# + #{w\ 3760}# + (#{syntax-object-wrap\ 190}# #{e\ 3758}#)) + #{r\ 3761}# + (#{syntax-object-module\ 192}# #{e\ 3758}#)) + (#{match*\ 3755}# + #{e\ 3758}# + #{p\ 3759}# + #{w\ 3760}# + #{r\ 3761}# + #{mod\ 3762}#)))))) + (#{match*\ 3755}# + (lambda (#{e\ 3775}# + #{p\ 3776}# + #{w\ 3777}# + #{r\ 3778}# + #{mod\ 3779}#) + (if (null? #{p\ 3776}#) + (if (null? #{e\ 3775}#) #{r\ 3778}# #f) + (if (pair? #{p\ 3776}#) + (if (pair? #{e\ 3775}#) + (#{match\ 3757}# + (car #{e\ 3775}#) + (car #{p\ 3776}#) + #{w\ 3777}# + (#{match\ 3757}# + (cdr #{e\ 3775}#) + (cdr #{p\ 3776}#) + #{w\ 3777}# + #{r\ 3778}# + #{mod\ 3779}#) + #{mod\ 3779}#) #f) - (if (eq? #{p\ 12629}# (quote each-any)) - (let ((#{l\ 12649}# - (#{match-each-any\ 12602}# - #{e\ 12628}# - #{w\ 12630}# - #{mod\ 12632}#))) - (if #{l\ 12649}# - (cons #{l\ 12649}# #{r\ 12631}#) + (if (eq? #{p\ 3776}# (quote each-any)) + (let ((#{l\ 3796}# + (#{match-each-any\ 3749}# + #{e\ 3775}# + #{w\ 3777}# + #{mod\ 3779}#))) + (if #{l\ 3796}# + (cons #{l\ 3796}# #{r\ 3778}#) #f)) - (let ((#{atom-key\ 12655}# - (vector-ref #{p\ 12629}# 0))) - (if (memv #{atom-key\ 12655}# (quote (each))) - (if (null? #{e\ 12628}#) - (#{match-empty\ 12604}# - (vector-ref #{p\ 12629}# 1) - #{r\ 12631}#) - (let ((#{l\ 12658}# - (#{match-each\ 12598}# - #{e\ 12628}# - (vector-ref #{p\ 12629}# 1) - #{w\ 12630}# - #{mod\ 12632}#))) - (if #{l\ 12658}# - (letrec ((#{collect\ 12663}# - (lambda (#{l\ 12664}#) - (if (null? (car #{l\ 12664}#)) - #{r\ 12631}# - (cons (map car #{l\ 12664}#) - (#{collect\ 12663}# + (let ((#{atom-key\ 3802}# (vector-ref #{p\ 3776}# 0))) + (if (memv #{atom-key\ 3802}# (quote (each))) + (if (null? #{e\ 3775}#) + (#{match-empty\ 3751}# + (vector-ref #{p\ 3776}# 1) + #{r\ 3778}#) + (let ((#{l\ 3805}# + (#{match-each\ 3745}# + #{e\ 3775}# + (vector-ref #{p\ 3776}# 1) + #{w\ 3777}# + #{mod\ 3779}#))) + (if #{l\ 3805}# + (letrec ((#{collect\ 3810}# + (lambda (#{l\ 3811}#) + (if (null? (car #{l\ 3811}#)) + #{r\ 3778}# + (cons (map car #{l\ 3811}#) + (#{collect\ 3810}# (map cdr - #{l\ 12664}#))))))) - (#{collect\ 12663}# #{l\ 12658}#)) + #{l\ 3811}#))))))) + (#{collect\ 3810}# #{l\ 3805}#)) #f))) - (if (memv #{atom-key\ 12655}# (quote (each+))) + (if (memv #{atom-key\ 3802}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 12600}# - #{e\ 12628}# - (vector-ref #{p\ 12629}# 1) - (vector-ref #{p\ 12629}# 2) - (vector-ref #{p\ 12629}# 3) - #{w\ 12630}# - #{r\ 12631}# - #{mod\ 12632}#)) - (lambda (#{xr*\ 12666}# - #{y-pat\ 12667}# - #{r\ 12668}#) - (if #{r\ 12668}# - (if (null? #{y-pat\ 12667}#) - (if (null? #{xr*\ 12666}#) - (#{match-empty\ 12604}# - (vector-ref #{p\ 12629}# 1) - #{r\ 12668}#) - (#{combine\ 12606}# - #{xr*\ 12666}# - #{r\ 12668}#)) + (#{match-each+\ 3747}# + #{e\ 3775}# + (vector-ref #{p\ 3776}# 1) + (vector-ref #{p\ 3776}# 2) + (vector-ref #{p\ 3776}# 3) + #{w\ 3777}# + #{r\ 3778}# + #{mod\ 3779}#)) + (lambda (#{xr*\ 3813}# + #{y-pat\ 3814}# + #{r\ 3815}#) + (if #{r\ 3815}# + (if (null? #{y-pat\ 3814}#) + (if (null? #{xr*\ 3813}#) + (#{match-empty\ 3751}# + (vector-ref #{p\ 3776}# 1) + #{r\ 3815}#) + (#{combine\ 3753}# + #{xr*\ 3813}# + #{r\ 3815}#)) #f) #f))) - (if (memv #{atom-key\ 12655}# (quote (free-id))) - (if (#{id?\ 9076}# #{e\ 12628}#) - (if (#{free-id=?\ 9135}# - (#{wrap\ 9145}# - #{e\ 12628}# - #{w\ 12630}# - #{mod\ 12632}#) - (vector-ref #{p\ 12629}# 1)) - #{r\ 12631}# + (if (memv #{atom-key\ 3802}# (quote (free-id))) + (if (#{id?\ 222}# #{e\ 3775}#) + (if (#{free-id=?\ 281}# + (#{wrap\ 291}# + #{e\ 3775}# + #{w\ 3777}# + #{mod\ 3779}#) + (vector-ref #{p\ 3776}# 1)) + #{r\ 3778}# #f) #f) - (if (memv #{atom-key\ 12655}# (quote (atom))) + (if (memv #{atom-key\ 3802}# (quote (atom))) (if (equal? - (vector-ref #{p\ 12629}# 1) - (#{strip\ 9187}# - #{e\ 12628}# - #{w\ 12630}#)) - #{r\ 12631}# + (vector-ref #{p\ 3776}# 1) + (#{strip\ 333}# + #{e\ 3775}# + #{w\ 3777}#)) + #{r\ 3778}# #f) - (if (memv #{atom-key\ 12655}# + (if (memv #{atom-key\ 3802}# '(vector)) - (if (vector? #{e\ 12628}#) - (#{match\ 12610}# - (vector->list #{e\ 12628}#) - (vector-ref #{p\ 12629}# 1) - #{w\ 12630}# - #{r\ 12631}# - #{mod\ 12632}#) + (if (vector? #{e\ 3775}#) + (#{match\ 3757}# + (vector->list #{e\ 3775}#) + (vector-ref #{p\ 3776}# 1) + #{w\ 3777}# + #{r\ 3778}# + #{mod\ 3779}#) #f)))))))))))) - (#{combine\ 12606}# - (lambda (#{r*\ 12685}# #{r\ 12686}#) - (if (null? (car #{r*\ 12685}#)) - #{r\ 12686}# - (cons (map car #{r*\ 12685}#) - (#{combine\ 12606}# - (map cdr #{r*\ 12685}#) - #{r\ 12686}#))))) - (#{match-empty\ 12604}# - (lambda (#{p\ 12689}# #{r\ 12690}#) - (if (null? #{p\ 12689}#) - #{r\ 12690}# - (if (eq? #{p\ 12689}# (quote any)) - (cons (quote ()) #{r\ 12690}#) - (if (pair? #{p\ 12689}#) - (#{match-empty\ 12604}# - (car #{p\ 12689}#) - (#{match-empty\ 12604}# - (cdr #{p\ 12689}#) - #{r\ 12690}#)) - (if (eq? #{p\ 12689}# (quote each-any)) - (cons (quote ()) #{r\ 12690}#) - (let ((#{atom-key\ 12704}# - (vector-ref #{p\ 12689}# 0))) - (if (memv #{atom-key\ 12704}# (quote (each))) - (#{match-empty\ 12604}# - (vector-ref #{p\ 12689}# 1) - #{r\ 12690}#) - (if (memv #{atom-key\ 12704}# (quote (each+))) - (#{match-empty\ 12604}# - (vector-ref #{p\ 12689}# 1) - (#{match-empty\ 12604}# - (reverse (vector-ref #{p\ 12689}# 2)) - (#{match-empty\ 12604}# - (vector-ref #{p\ 12689}# 3) - #{r\ 12690}#))) - (if (memv #{atom-key\ 12704}# + (#{combine\ 3753}# + (lambda (#{r*\ 3832}# #{r\ 3833}#) + (if (null? (car #{r*\ 3832}#)) + #{r\ 3833}# + (cons (map car #{r*\ 3832}#) + (#{combine\ 3753}# + (map cdr #{r*\ 3832}#) + #{r\ 3833}#))))) + (#{match-empty\ 3751}# + (lambda (#{p\ 3836}# #{r\ 3837}#) + (if (null? #{p\ 3836}#) + #{r\ 3837}# + (if (eq? #{p\ 3836}# (quote any)) + (cons (quote ()) #{r\ 3837}#) + (if (pair? #{p\ 3836}#) + (#{match-empty\ 3751}# + (car #{p\ 3836}#) + (#{match-empty\ 3751}# + (cdr #{p\ 3836}#) + #{r\ 3837}#)) + (if (eq? #{p\ 3836}# (quote each-any)) + (cons (quote ()) #{r\ 3837}#) + (let ((#{atom-key\ 3851}# + (vector-ref #{p\ 3836}# 0))) + (if (memv #{atom-key\ 3851}# (quote (each))) + (#{match-empty\ 3751}# + (vector-ref #{p\ 3836}# 1) + #{r\ 3837}#) + (if (memv #{atom-key\ 3851}# (quote (each+))) + (#{match-empty\ 3751}# + (vector-ref #{p\ 3836}# 1) + (#{match-empty\ 3751}# + (reverse (vector-ref #{p\ 3836}# 2)) + (#{match-empty\ 3751}# + (vector-ref #{p\ 3836}# 3) + #{r\ 3837}#))) + (if (memv #{atom-key\ 3851}# '(free-id atom)) - #{r\ 12690}# - (if (memv #{atom-key\ 12704}# + #{r\ 3837}# + (if (memv #{atom-key\ 3851}# '(vector)) - (#{match-empty\ 12604}# - (vector-ref #{p\ 12689}# 1) - #{r\ 12690}#)))))))))))) - (#{match-each-any\ 12602}# - (lambda (#{e\ 12709}# #{w\ 12710}# #{mod\ 12711}#) - (if (pair? #{e\ 12709}#) - (let ((#{l\ 12718}# - (#{match-each-any\ 12602}# - (cdr #{e\ 12709}#) - #{w\ 12710}# - #{mod\ 12711}#))) - (if #{l\ 12718}# - (cons (#{wrap\ 9145}# - (car #{e\ 12709}#) - #{w\ 12710}# - #{mod\ 12711}#) - #{l\ 12718}#) + (#{match-empty\ 3751}# + (vector-ref #{p\ 3836}# 1) + #{r\ 3837}#)))))))))))) + (#{match-each-any\ 3749}# + (lambda (#{e\ 3856}# #{w\ 3857}# #{mod\ 3858}#) + (if (pair? #{e\ 3856}#) + (let ((#{l\ 3865}# + (#{match-each-any\ 3749}# + (cdr #{e\ 3856}#) + #{w\ 3857}# + #{mod\ 3858}#))) + (if #{l\ 3865}# + (cons (#{wrap\ 291}# + (car #{e\ 3856}#) + #{w\ 3857}# + #{mod\ 3858}#) + #{l\ 3865}#) #f)) - (if (null? #{e\ 12709}#) + (if (null? #{e\ 3856}#) '() - (if (#{syntax-object?\ 9040}# #{e\ 12709}#) - (#{match-each-any\ 12602}# - (#{syntax-object-expression\ 9042}# #{e\ 12709}#) - (#{join-wraps\ 9127}# - #{w\ 12710}# - (#{syntax-object-wrap\ 9044}# #{e\ 12709}#)) - #{mod\ 12711}#) + (if (#{syntax-object?\ 186}# #{e\ 3856}#) + (#{match-each-any\ 3749}# + (#{syntax-object-expression\ 188}# #{e\ 3856}#) + (#{join-wraps\ 273}# + #{w\ 3857}# + (#{syntax-object-wrap\ 190}# #{e\ 3856}#)) + #{mod\ 3858}#) #f))))) - (#{match-each+\ 12600}# - (lambda (#{e\ 12726}# - #{x-pat\ 12727}# - #{y-pat\ 12728}# - #{z-pat\ 12729}# - #{w\ 12730}# - #{r\ 12731}# - #{mod\ 12732}#) - (letrec ((#{f\ 12743}# - (lambda (#{e\ 12744}# #{w\ 12745}#) - (if (pair? #{e\ 12744}#) + (#{match-each+\ 3747}# + (lambda (#{e\ 3873}# + #{x-pat\ 3874}# + #{y-pat\ 3875}# + #{z-pat\ 3876}# + #{w\ 3877}# + #{r\ 3878}# + #{mod\ 3879}#) + (letrec ((#{f\ 3890}# + (lambda (#{e\ 3891}# #{w\ 3892}#) + (if (pair? #{e\ 3891}#) (call-with-values (lambda () - (#{f\ 12743}# - (cdr #{e\ 12744}#) - #{w\ 12745}#)) - (lambda (#{xr*\ 12748}# - #{y-pat\ 12749}# - #{r\ 12750}#) - (if #{r\ 12750}# - (if (null? #{y-pat\ 12749}#) - (let ((#{xr\ 12755}# - (#{match\ 12610}# - (car #{e\ 12744}#) - #{x-pat\ 12727}# - #{w\ 12745}# + (#{f\ 3890}# + (cdr #{e\ 3891}#) + #{w\ 3892}#)) + (lambda (#{xr*\ 3895}# + #{y-pat\ 3896}# + #{r\ 3897}#) + (if #{r\ 3897}# + (if (null? #{y-pat\ 3896}#) + (let ((#{xr\ 3902}# + (#{match\ 3757}# + (car #{e\ 3891}#) + #{x-pat\ 3874}# + #{w\ 3892}# '() - #{mod\ 12732}#))) - (if #{xr\ 12755}# + #{mod\ 3879}#))) + (if #{xr\ 3902}# (values - (cons #{xr\ 12755}# - #{xr*\ 12748}#) - #{y-pat\ 12749}# - #{r\ 12750}#) + (cons #{xr\ 3902}# + #{xr*\ 3895}#) + #{y-pat\ 3896}# + #{r\ 3897}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 12749}#) - (#{match\ 12610}# - (car #{e\ 12744}#) - (car #{y-pat\ 12749}#) - #{w\ 12745}# - #{r\ 12750}# - #{mod\ 12732}#))) + (cdr #{y-pat\ 3896}#) + (#{match\ 3757}# + (car #{e\ 3891}#) + (car #{y-pat\ 3896}#) + #{w\ 3892}# + #{r\ 3897}# + #{mod\ 3879}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 9040}# #{e\ 12744}#) - (#{f\ 12743}# - (#{syntax-object-expression\ 9042}# - #{e\ 12744}#) - (#{join-wraps\ 9127}# - #{w\ 12745}# - #{e\ 12744}#)) + (if (#{syntax-object?\ 186}# #{e\ 3891}#) + (#{f\ 3890}# + (#{syntax-object-expression\ 188}# + #{e\ 3891}#) + (#{join-wraps\ 273}# + #{w\ 3892}# + #{e\ 3891}#)) (values '() - #{y-pat\ 12728}# - (#{match\ 12610}# - #{e\ 12744}# - #{z-pat\ 12729}# - #{w\ 12745}# - #{r\ 12731}# - #{mod\ 12732}#))))))) - (#{f\ 12743}# #{e\ 12726}# #{w\ 12730}#)))) - (#{match-each\ 12598}# - (lambda (#{e\ 12759}# - #{p\ 12760}# - #{w\ 12761}# - #{mod\ 12762}#) - (if (pair? #{e\ 12759}#) - (let ((#{first\ 12770}# - (#{match\ 12610}# - (car #{e\ 12759}#) - #{p\ 12760}# - #{w\ 12761}# + #{y-pat\ 3875}# + (#{match\ 3757}# + #{e\ 3891}# + #{z-pat\ 3876}# + #{w\ 3892}# + #{r\ 3878}# + #{mod\ 3879}#))))))) + (#{f\ 3890}# #{e\ 3873}# #{w\ 3877}#)))) + (#{match-each\ 3745}# + (lambda (#{e\ 3906}# + #{p\ 3907}# + #{w\ 3908}# + #{mod\ 3909}#) + (if (pair? #{e\ 3906}#) + (let ((#{first\ 3917}# + (#{match\ 3757}# + (car #{e\ 3906}#) + #{p\ 3907}# + #{w\ 3908}# '() - #{mod\ 12762}#))) - (if #{first\ 12770}# - (let ((#{rest\ 12774}# - (#{match-each\ 12598}# - (cdr #{e\ 12759}#) - #{p\ 12760}# - #{w\ 12761}# - #{mod\ 12762}#))) - (if #{rest\ 12774}# - (cons #{first\ 12770}# #{rest\ 12774}#) + #{mod\ 3909}#))) + (if #{first\ 3917}# + (let ((#{rest\ 3921}# + (#{match-each\ 3745}# + (cdr #{e\ 3906}#) + #{p\ 3907}# + #{w\ 3908}# + #{mod\ 3909}#))) + (if #{rest\ 3921}# + (cons #{first\ 3917}# #{rest\ 3921}#) #f)) #f)) - (if (null? #{e\ 12759}#) + (if (null? #{e\ 3906}#) '() - (if (#{syntax-object?\ 9040}# #{e\ 12759}#) - (#{match-each\ 12598}# - (#{syntax-object-expression\ 9042}# #{e\ 12759}#) - #{p\ 12760}# - (#{join-wraps\ 9127}# - #{w\ 12761}# - (#{syntax-object-wrap\ 9044}# #{e\ 12759}#)) - (#{syntax-object-module\ 9046}# #{e\ 12759}#)) + (if (#{syntax-object?\ 186}# #{e\ 3906}#) + (#{match-each\ 3745}# + (#{syntax-object-expression\ 188}# #{e\ 3906}#) + #{p\ 3907}# + (#{join-wraps\ 273}# + #{w\ 3908}# + (#{syntax-object-wrap\ 190}# #{e\ 3906}#)) + (#{syntax-object-module\ 192}# #{e\ 3906}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 12782}# #{p\ 12783}#) - (if (eq? #{p\ 12783}# (quote any)) - (list #{e\ 12782}#) - (if (#{syntax-object?\ 9040}# #{e\ 12782}#) - (#{match*\ 12608}# - (#{syntax-object-expression\ 9042}# #{e\ 12782}#) - #{p\ 12783}# - (#{syntax-object-wrap\ 9044}# #{e\ 12782}#) + (lambda (#{e\ 3929}# #{p\ 3930}#) + (if (eq? #{p\ 3930}# (quote any)) + (list #{e\ 3929}#) + (if (#{syntax-object?\ 186}# #{e\ 3929}#) + (#{match*\ 3755}# + (#{syntax-object-expression\ 188}# #{e\ 3929}#) + #{p\ 3930}# + (#{syntax-object-wrap\ 190}# #{e\ 3929}#) '() - (#{syntax-object-module\ 9046}# #{e\ 12782}#)) - (#{match*\ 12608}# - #{e\ 12782}# - #{p\ 12783}# + (#{syntax-object-module\ 192}# #{e\ 3929}#)) + (#{match*\ 3755}# + #{e\ 3929}# + #{p\ 3930}# '(()) '() #f))))))))) @@ -11748,50 +11659,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 12792}#) - ((lambda (#{tmp\ 12794}#) - ((lambda (#{tmp\ 12795}#) - (if #{tmp\ 12795}# - (apply (lambda (#{_\ 12799}# #{e1\ 12800}# #{e2\ 12801}#) + (cons (lambda (#{x\ 3939}#) + ((lambda (#{tmp\ 3941}#) + ((lambda (#{tmp\ 3942}#) + (if #{tmp\ 3942}# + (apply (lambda (#{_\ 3946}# #{e1\ 3947}# #{e2\ 3948}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i12796" "i12797" "i12798")) + #("i3943" "i3944" "i3945")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12793"))) + #(ribcage #(x) #((top)) #("i3940"))) (hygiene guile)) - (cons #{e1\ 12800}# #{e2\ 12801}#))) - #{tmp\ 12795}#) - ((lambda (#{tmp\ 12803}#) - (if #{tmp\ 12803}# - (apply (lambda (#{_\ 12809}# - #{out\ 12810}# - #{in\ 12811}# - #{e1\ 12812}# - #{e2\ 12813}#) + (cons #{e1\ 3947}# #{e2\ 3948}#))) + #{tmp\ 3942}#) + ((lambda (#{tmp\ 3950}#) + (if #{tmp\ 3950}# + (apply (lambda (#{_\ 3956}# + #{out\ 3957}# + #{in\ 3958}# + #{e1\ 3959}# + #{e2\ 3960}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i12804" - "i12805" - "i12806" - "i12807" - "i12808")) + #("i3951" + "i3952" + "i3953" + "i3954" + "i3955")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12793"))) + #("i3940"))) (hygiene guile)) - #{in\ 12811}# + #{in\ 3958}# '() - (list #{out\ 12810}# + (list #{out\ 3957}# (cons '#(syntax-object begin ((top) @@ -11802,27 +11713,27 @@ (top) (top) (top)) - #("i12804" - "i12805" - "i12806" - "i12807" - "i12808")) + #("i3951" + "i3952" + "i3953" + "i3954" + "i3955")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12793"))) + #("i3940"))) (hygiene guile)) - (cons #{e1\ 12812}# - #{e2\ 12813}#))))) - #{tmp\ 12803}#) - ((lambda (#{tmp\ 12815}#) - (if #{tmp\ 12815}# - (apply (lambda (#{_\ 12821}# - #{out\ 12822}# - #{in\ 12823}# - #{e1\ 12824}# - #{e2\ 12825}#) + (cons #{e1\ 3959}# + #{e2\ 3960}#))))) + #{tmp\ 3950}#) + ((lambda (#{tmp\ 3962}#) + (if #{tmp\ 3962}# + (apply (lambda (#{_\ 3968}# + #{out\ 3969}# + #{in\ 3970}# + #{e1\ 3971}# + #{e2\ 3972}#) (list '#(syntax-object syntax-case ((top) @@ -11833,16 +11744,16 @@ (top) (top) (top)) - #("i12816" - "i12817" - "i12818" - "i12819" - "i12820")) + #("i3963" + "i3964" + "i3965" + "i3966" + "i3967")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12793"))) + #("i3940"))) (hygiene guile)) (cons '#(syntax-object list @@ -11854,20 +11765,20 @@ (top) (top) (top)) - #("i12816" - "i12817" - "i12818" - "i12819" - "i12820")) + #("i3963" + "i3964" + "i3965" + "i3966" + "i3967")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12793"))) + #("i3940"))) (hygiene guile)) - #{in\ 12823}#) + #{in\ 3970}#) '() - (list #{out\ 12822}# + (list #{out\ 3969}# (cons '#(syntax-object begin ((top) @@ -11882,11 +11793,11 @@ (top) (top) (top)) - #("i12816" - "i12817" - "i12818" - "i12819" - "i12820")) + #("i3963" + "i3964" + "i3965" + "i3966" + "i3967")) #(ribcage () () @@ -11894,53 +11805,53 @@ #(ribcage #(x) #((top)) - #("i12793"))) + #("i3940"))) (hygiene guile)) - (cons #{e1\ 12824}# - #{e2\ 12825}#))))) - #{tmp\ 12815}#) + (cons #{e1\ 3971}# + #{e2\ 3972}#))))) + #{tmp\ 3962}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12794}#))) + #{tmp\ 3941}#))) ($sc-dispatch - #{tmp\ 12794}# + #{tmp\ 3941}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 12794}# + #{tmp\ 3941}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 12794}# + #{tmp\ 3941}# '(any () any . each-any)))) - #{x\ 12792}#)) + #{x\ 3939}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 12829}#) - ((lambda (#{tmp\ 12831}#) - ((lambda (#{tmp\ 12832}#) - (if #{tmp\ 12832}# - (apply (lambda (#{_\ 12838}# - #{k\ 12839}# - #{keyword\ 12840}# - #{pattern\ 12841}# - #{template\ 12842}#) + (cons (lambda (#{x\ 3976}#) + ((lambda (#{tmp\ 3978}#) + ((lambda (#{tmp\ 3979}#) + (if #{tmp\ 3979}# + (apply (lambda (#{_\ 3985}# + #{k\ 3986}# + #{keyword\ 3987}# + #{pattern\ 3988}# + #{template\ 3989}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12830"))) + #(ribcage #(x) #((top)) #("i3977"))) (hygiene guile)) '(#(syntax-object x @@ -11948,13 +11859,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12830"))) + #(ribcage #(x) #((top)) #("i3977"))) (hygiene guile))) (vector '(#(syntax-object @@ -11963,13 +11874,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12830"))) + #(ribcage #(x) #((top)) #("i3977"))) (hygiene guile)) . #(syntax-object @@ -11978,13 +11889,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12830"))) + #(ribcage #(x) #((top)) #("i3977"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -12000,34 +11911,34 @@ (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12830"))) + #("i3977"))) (hygiene guile)) - #{pattern\ 12841}#)) + #{pattern\ 3988}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12830"))) + #("i3977"))) (hygiene guile)) (cons '#(syntax-object x @@ -12043,20 +11954,20 @@ (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12830"))) + #("i3977"))) (hygiene guile)) - (cons #{k\ 12839}# - (map (lambda (#{tmp\ 12846}# - #{tmp\ 12845}#) + (cons #{k\ 3986}# + (map (lambda (#{tmp\ 3993}# + #{tmp\ 3992}#) (list (cons '#(syntax-object dummy ((top) @@ -12071,11 +11982,11 @@ (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () @@ -12083,10 +11994,10 @@ #(ribcage #(x) #((top)) - #("i12830"))) + #("i3977"))) (hygiene guile)) - #{tmp\ 12845}#) + #{tmp\ 3992}#) (list '#(syntax-object syntax ((top) @@ -12101,11 +12012,11 @@ (top) (top) (top)) - #("i12833" - "i12834" - "i12835" - "i12836" - "i12837")) + #("i3980" + "i3981" + "i3982" + "i3983" + "i3984")) #(ribcage () () @@ -12113,47 +12024,47 @@ #(ribcage #(x) #((top)) - #("i12830"))) + #("i3977"))) (hygiene guile)) - #{tmp\ 12846}#))) - #{template\ 12842}# - #{pattern\ 12841}#)))))) - #{tmp\ 12832}#) + #{tmp\ 3993}#))) + #{template\ 3989}# + #{pattern\ 3988}#)))))) + #{tmp\ 3979}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12831}#))) + #{tmp\ 3978}#))) ($sc-dispatch - #{tmp\ 12831}# + #{tmp\ 3978}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 12829}#)) + #{x\ 3976}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 12847}#) - ((lambda (#{tmp\ 12849}#) - ((lambda (#{tmp\ 12850}#) - (if (if #{tmp\ 12850}# - (apply (lambda (#{let*\ 12856}# - #{x\ 12857}# - #{v\ 12858}# - #{e1\ 12859}# - #{e2\ 12860}#) - (and-map identifier? #{x\ 12857}#)) - #{tmp\ 12850}#) + (cons (lambda (#{x\ 3994}#) + ((lambda (#{tmp\ 3996}#) + ((lambda (#{tmp\ 3997}#) + (if (if #{tmp\ 3997}# + (apply (lambda (#{let*\ 4003}# + #{x\ 4004}# + #{v\ 4005}# + #{e1\ 4006}# + #{e2\ 4007}#) + (and-map identifier? #{x\ 4004}#)) + #{tmp\ 3997}#) #f) - (apply (lambda (#{let*\ 12867}# - #{x\ 12868}# - #{v\ 12869}# - #{e1\ 12870}# - #{e2\ 12871}#) - (letrec ((#{f\ 12874}# - (lambda (#{bindings\ 12875}#) - (if (null? #{bindings\ 12875}#) + (apply (lambda (#{let*\ 4014}# + #{x\ 4015}# + #{v\ 4016}# + #{e1\ 4017}# + #{e2\ 4018}#) + (letrec ((#{f\ 4021}# + (lambda (#{bindings\ 4022}#) + (if (null? #{bindings\ 4022}#) (cons '#(syntax-object let ((top) @@ -12161,7 +12072,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i12872" "i12873")) + #("i4019" "i4020")) #(ribcage #(let* x v e1 e2) #((top) @@ -12169,25 +12080,25 @@ (top) (top) (top)) - #("i12862" - "i12863" - "i12864" - "i12865" - "i12866")) + #("i4009" + "i4010" + "i4011" + "i4012" + "i4013")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12848"))) + #("i3995"))) (hygiene guile)) (cons '() - (cons #{e1\ 12870}# - #{e2\ 12871}#))) - ((lambda (#{tmp\ 12880}#) - ((lambda (#{tmp\ 12881}#) - (if #{tmp\ 12881}# - (apply (lambda (#{body\ 12884}# - #{binding\ 12885}#) + (cons #{e1\ 4017}# + #{e2\ 4018}#))) + ((lambda (#{tmp\ 4027}#) + ((lambda (#{tmp\ 4028}#) + (if #{tmp\ 4028}# + (apply (lambda (#{body\ 4031}# + #{binding\ 4032}#) (list '#(syntax-object let ((top) @@ -12196,8 +12107,8 @@ binding) #((top) (top)) - #("i12882" - "i12883")) + #("i4029" + "i4030")) #(ribcage () () @@ -12207,8 +12118,8 @@ bindings) #((top) (top)) - #("i12872" - "i12873")) + #("i4019" + "i4020")) #(ribcage #(let* x @@ -12220,11 +12131,11 @@ (top) (top) (top)) - #("i12862" - "i12863" - "i12864" - "i12865" - "i12866")) + #("i4009" + "i4010" + "i4011" + "i4012" + "i4013")) #(ribcage () () @@ -12232,57 +12143,57 @@ #(ribcage #(x) #((top)) - #("i12848"))) + #("i3995"))) (hygiene guile)) - (list #{binding\ 12885}#) - #{body\ 12884}#)) - #{tmp\ 12881}#) + (list #{binding\ 4032}#) + #{body\ 4031}#)) + #{tmp\ 4028}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12880}#))) + #{tmp\ 4027}#))) ($sc-dispatch - #{tmp\ 12880}# + #{tmp\ 4027}# '(any any)))) - (list (#{f\ 12874}# - (cdr #{bindings\ 12875}#)) - (car #{bindings\ 12875}#))))))) - (#{f\ 12874}# - (map list #{x\ 12868}# #{v\ 12869}#)))) - #{tmp\ 12850}#) + (list (#{f\ 4021}# + (cdr #{bindings\ 4022}#)) + (car #{bindings\ 4022}#))))))) + (#{f\ 4021}# + (map list #{x\ 4015}# #{v\ 4016}#)))) + #{tmp\ 3997}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12849}#))) + #{tmp\ 3996}#))) ($sc-dispatch - #{tmp\ 12849}# + #{tmp\ 3996}# '(any #(each (any any)) any . each-any)))) - #{x\ 12847}#)) + #{x\ 3994}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 12886}#) - ((lambda (#{tmp\ 12888}#) - ((lambda (#{tmp\ 12889}#) - (if #{tmp\ 12889}# - (apply (lambda (#{_\ 12897}# - #{var\ 12898}# - #{init\ 12899}# - #{step\ 12900}# - #{e0\ 12901}# - #{e1\ 12902}# - #{c\ 12903}#) - ((lambda (#{tmp\ 12905}#) - ((lambda (#{tmp\ 12906}#) - (if #{tmp\ 12906}# - (apply (lambda (#{step\ 12908}#) - ((lambda (#{tmp\ 12909}#) - ((lambda (#{tmp\ 12910}#) - (if #{tmp\ 12910}# + (cons (lambda (#{orig-x\ 4033}#) + ((lambda (#{tmp\ 4035}#) + ((lambda (#{tmp\ 4036}#) + (if #{tmp\ 4036}# + (apply (lambda (#{_\ 4044}# + #{var\ 4045}# + #{init\ 4046}# + #{step\ 4047}# + #{e0\ 4048}# + #{e1\ 4049}# + #{c\ 4050}#) + ((lambda (#{tmp\ 4052}#) + ((lambda (#{tmp\ 4053}#) + (if #{tmp\ 4053}# + (apply (lambda (#{step\ 4055}#) + ((lambda (#{tmp\ 4056}#) + ((lambda (#{tmp\ 4057}#) + (if #{tmp\ 4057}# (apply (lambda () (list '#(syntax-object let @@ -12290,7 +12201,7 @@ #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12306,13 +12217,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12320,7 +12231,7 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) '#(syntax-object @@ -12329,7 +12240,7 @@ #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12345,13 +12256,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12359,19 +12270,19 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) (map list - #{var\ 12898}# - #{init\ 12899}#) + #{var\ 4045}# + #{init\ 4046}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12387,13 +12298,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12401,7 +12312,7 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) (list '#(syntax-object @@ -12410,7 +12321,7 @@ #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12426,13 +12337,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12440,17 +12351,17 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) - #{e0\ 12901}#) + #{e0\ 4048}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12466,13 +12377,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12480,18 +12391,18 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) (append - #{c\ 12903}# + #{c\ 4050}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12507,13 +12418,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12521,15 +12432,15 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) - #{step\ 12908}#))))))) - #{tmp\ 12910}#) - ((lambda (#{tmp\ 12915}#) - (if #{tmp\ 12915}# - (apply (lambda (#{e1\ 12918}# - #{e2\ 12919}#) + #{step\ 4055}#))))))) + #{tmp\ 4057}#) + ((lambda (#{tmp\ 4062}#) + (if #{tmp\ 4062}# + (apply (lambda (#{e1\ 4065}# + #{e2\ 4066}#) (list '#(syntax-object let ((top) @@ -12538,12 +12449,12 @@ e2) #((top) (top)) - #("i12916" - "i12917")) + #("i4063" + "i4064")) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12559,13 +12470,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12573,7 +12484,7 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) '#(syntax-object @@ -12584,12 +12495,12 @@ e2) #((top) (top)) - #("i12916" - "i12917")) + #("i4063" + "i4064")) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12605,13 +12516,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12619,12 +12530,12 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) (map list - #{var\ 12898}# - #{init\ 12899}#) + #{var\ 4045}# + #{init\ 4046}#) (list '#(syntax-object if ((top) @@ -12633,12 +12544,12 @@ e2) #((top) (top)) - #("i12916" - "i12917")) + #("i4063" + "i4064")) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12654,13 +12565,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12668,10 +12579,10 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) - #{e0\ 12901}# + #{e0\ 4048}# (cons '#(syntax-object begin ((top) @@ -12680,12 +12591,12 @@ e2) #((top) (top)) - #("i12916" - "i12917")) + #("i4063" + "i4064")) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12701,13 +12612,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12715,11 +12626,11 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) - (cons #{e1\ 12918}# - #{e2\ 12919}#)) + (cons #{e1\ 4065}# + #{e2\ 4066}#)) (cons '#(syntax-object begin ((top) @@ -12728,12 +12639,12 @@ e2) #((top) (top)) - #("i12916" - "i12917")) + #("i4063" + "i4064")) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12749,13 +12660,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12763,11 +12674,11 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) (append - #{c\ 12903}# + #{c\ 4050}# (list (cons '#(syntax-object doloop ((top) @@ -12776,12 +12687,12 @@ e2) #((top) (top)) - #("i12916" - "i12917")) + #("i4063" + "i4064")) #(ribcage #(step) #((top)) - #("i12907")) + #("i4054")) #(ribcage #(_ var @@ -12797,13 +12708,13 @@ (top) (top) (top)) - #("i12890" - "i12891" - "i12892" - "i12893" - "i12894" - "i12895" - "i12896")) + #("i4037" + "i4038" + "i4039" + "i4040" + "i4041" + "i4042" + "i4043")) #(ribcage () () @@ -12811,107 +12722,107 @@ #(ribcage #(orig-x) #((top)) - #("i12887"))) + #("i4034"))) (hygiene guile)) - #{step\ 12908}#))))))) - #{tmp\ 12915}#) + #{step\ 4055}#))))))) + #{tmp\ 4062}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12909}#))) + #{tmp\ 4056}#))) ($sc-dispatch - #{tmp\ 12909}# + #{tmp\ 4056}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 12909}# + #{tmp\ 4056}# '()))) - #{e1\ 12902}#)) - #{tmp\ 12906}#) + #{e1\ 4049}#)) + #{tmp\ 4053}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12905}#))) + #{tmp\ 4052}#))) ($sc-dispatch - #{tmp\ 12905}# + #{tmp\ 4052}# 'each-any))) - (map (lambda (#{v\ 12926}# #{s\ 12927}#) - ((lambda (#{tmp\ 12930}#) - ((lambda (#{tmp\ 12931}#) - (if #{tmp\ 12931}# - (apply (lambda () #{v\ 12926}#) - #{tmp\ 12931}#) - ((lambda (#{tmp\ 12932}#) - (if #{tmp\ 12932}# - (apply (lambda (#{e\ 12934}#) - #{e\ 12934}#) - #{tmp\ 12932}#) - ((lambda (#{_\ 12936}#) + (map (lambda (#{v\ 4073}# #{s\ 4074}#) + ((lambda (#{tmp\ 4077}#) + ((lambda (#{tmp\ 4078}#) + (if #{tmp\ 4078}# + (apply (lambda () #{v\ 4073}#) + #{tmp\ 4078}#) + ((lambda (#{tmp\ 4079}#) + (if #{tmp\ 4079}# + (apply (lambda (#{e\ 4081}#) + #{e\ 4081}#) + #{tmp\ 4079}#) + ((lambda (#{_\ 4083}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 12886}# - #{s\ 12927}#)) - #{tmp\ 12930}#))) + #{orig-x\ 4033}# + #{s\ 4074}#)) + #{tmp\ 4077}#))) ($sc-dispatch - #{tmp\ 12930}# + #{tmp\ 4077}# '(any))))) ($sc-dispatch - #{tmp\ 12930}# + #{tmp\ 4077}# '()))) - #{s\ 12927}#)) - #{var\ 12898}# - #{step\ 12900}#))) - #{tmp\ 12889}#) + #{s\ 4074}#)) + #{var\ 4045}# + #{step\ 4047}#))) + #{tmp\ 4036}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12888}#))) + #{tmp\ 4035}#))) ($sc-dispatch - #{tmp\ 12888}# + #{tmp\ 4035}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 12886}#)) + #{orig-x\ 4033}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 12943}# - (lambda (#{x\ 12947}# #{y\ 12948}#) - ((lambda (#{tmp\ 12952}#) - ((lambda (#{tmp\ 12953}#) - (if #{tmp\ 12953}# - (apply (lambda (#{x\ 12956}# #{y\ 12957}#) - ((lambda (#{tmp\ 12958}#) - ((lambda (#{tmp\ 12959}#) - (if #{tmp\ 12959}# - (apply (lambda (#{dy\ 12961}#) - ((lambda (#{tmp\ 12962}#) - ((lambda (#{tmp\ 12963}#) - (if #{tmp\ 12963}# - (apply (lambda (#{dx\ 12965}#) + (cons (letrec ((#{quasicons\ 4090}# + (lambda (#{x\ 4094}# #{y\ 4095}#) + ((lambda (#{tmp\ 4099}#) + ((lambda (#{tmp\ 4100}#) + (if #{tmp\ 4100}# + (apply (lambda (#{x\ 4103}# #{y\ 4104}#) + ((lambda (#{tmp\ 4105}#) + ((lambda (#{tmp\ 4106}#) + (if #{tmp\ 4106}# + (apply (lambda (#{dy\ 4108}#) + ((lambda (#{tmp\ 4109}#) + ((lambda (#{tmp\ 4110}#) + (if #{tmp\ 4110}# + (apply (lambda (#{dx\ 4112}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i12964")) + #("i4111")) #(ribcage #(dy) #((top)) - #("i12960")) + #("i4107")) #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" + "i4102")) #(ribcage () () @@ -12925,8 +12836,8 @@ y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" + "i4097")) #(ribcage #(quasicons quasiappend @@ -12936,35 +12847,35 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - (cons #{dx\ 12965}# - #{dy\ 12961}#))) - #{tmp\ 12963}#) - ((lambda (#{_\ 12967}#) - (if (null? #{dy\ 12961}#) + (cons #{dx\ 4112}# + #{dy\ 4108}#))) + #{tmp\ 4110}#) + ((lambda (#{_\ 4114}#) + (if (null? #{dy\ 4108}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i12966")) + #("i4113")) #(ribcage #(dy) #((top)) - #("i12960")) + #("i4107")) #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" + "i4102")) #(ribcage () () @@ -12978,8 +12889,8 @@ y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" + "i4097")) #(ribcage #(quasicons quasiappend @@ -12989,31 +12900,31 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{x\ 12956}#) + #{x\ 4103}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i12966")) + #("i4113")) #(ribcage #(dy) #((top)) - #("i12960")) + #("i4107")) #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" + "i4102")) #(ribcage () () @@ -13027,8 +12938,8 @@ y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" + "i4097")) #(ribcage #(quasicons quasiappend @@ -13038,17 +12949,17 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{x\ 12956}# - #{y\ 12957}#))) - #{tmp\ 12962}#))) + #{x\ 4103}# + #{y\ 4104}#))) + #{tmp\ 4109}#))) ($sc-dispatch - #{tmp\ 12962}# + #{tmp\ 4109}# '(#(free-id #(syntax-object quote @@ -13056,13 +12967,13 @@ #(ribcage #(dy) #((top)) - #("i12960")) + #("i4107")) #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" + "i4102")) #(ribcage () () @@ -13075,8 +12986,8 @@ #(x y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" + "i4097")) #(ribcage #(quasicons quasiappend @@ -13086,32 +12997,32 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) any)))) - #{x\ 12956}#)) - #{tmp\ 12959}#) - ((lambda (#{tmp\ 12968}#) - (if #{tmp\ 12968}# - (apply (lambda (#{stuff\ 12970}#) + #{x\ 4103}#)) + #{tmp\ 4106}#) + ((lambda (#{tmp\ 4115}#) + (if #{tmp\ 4115}# + (apply (lambda (#{stuff\ 4117}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i12969")) + #("i4116")) #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" + "i4102")) #(ribcage () () @@ -13125,8 +13036,8 @@ y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" + "i4097")) #(ribcage #(quasicons quasiappend @@ -13136,29 +13047,29 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - (cons #{x\ 12956}# - #{stuff\ 12970}#))) - #{tmp\ 12968}#) - ((lambda (#{else\ 12972}#) + (cons #{x\ 4103}# + #{stuff\ 4117}#))) + #{tmp\ 4115}#) + ((lambda (#{else\ 4119}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i12971")) + #("i4118")) #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" + "i4102")) #(ribcage () () @@ -13171,8 +13082,8 @@ #(x y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" + "i4097")) #(ribcage #(quasicons quasiappend @@ -13182,17 +13093,17 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{x\ 12956}# - #{y\ 12957}#)) - #{tmp\ 12958}#))) + #{x\ 4103}# + #{y\ 4104}#)) + #{tmp\ 4105}#))) ($sc-dispatch - #{tmp\ 12958}# + #{tmp\ 4105}# '(#(free-id #(syntax-object list @@ -13200,15 +13111,13 @@ #(ribcage #(x y) #((top) (top)) - #("i12954" - "i12955")) + #("i4101" "i4102")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i12949" - "i12950")) + #("i4096" "i4097")) #(ribcage #(quasicons quasiappend @@ -13218,15 +13127,15 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 12958}# + #{tmp\ 4105}# '(#(free-id #(syntax-object quote @@ -13234,13 +13143,13 @@ #(ribcage #(x y) #((top) (top)) - #("i12954" "i12955")) + #("i4101" "i4102")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i12949" "i12950")) + #("i4096" "i4097")) #(ribcage #(quasicons quasiappend @@ -13250,44 +13159,44 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) any)))) - #{y\ 12957}#)) - #{tmp\ 12953}#) + #{y\ 4104}#)) + #{tmp\ 4100}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12952}#))) - ($sc-dispatch #{tmp\ 12952}# (quote (any any))))) - (list #{x\ 12947}# #{y\ 12948}#)))) - (#{quasiappend\ 12944}# - (lambda (#{x\ 12973}# #{y\ 12974}#) - ((lambda (#{tmp\ 12978}#) - ((lambda (#{tmp\ 12979}#) - (if #{tmp\ 12979}# - (apply (lambda (#{x\ 12982}# #{y\ 12983}#) - ((lambda (#{tmp\ 12984}#) - ((lambda (#{tmp\ 12985}#) - (if #{tmp\ 12985}# - (apply (lambda () #{x\ 12982}#) - #{tmp\ 12985}#) - ((lambda (#{_\ 12987}#) + #{tmp\ 4099}#))) + ($sc-dispatch #{tmp\ 4099}# (quote (any any))))) + (list #{x\ 4094}# #{y\ 4095}#)))) + (#{quasiappend\ 4091}# + (lambda (#{x\ 4120}# #{y\ 4121}#) + ((lambda (#{tmp\ 4125}#) + ((lambda (#{tmp\ 4126}#) + (if #{tmp\ 4126}# + (apply (lambda (#{x\ 4129}# #{y\ 4130}#) + ((lambda (#{tmp\ 4131}#) + ((lambda (#{tmp\ 4132}#) + (if #{tmp\ 4132}# + (apply (lambda () #{x\ 4129}#) + #{tmp\ 4132}#) + ((lambda (#{_\ 4134}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i12986")) + #("i4133")) #(ribcage #(x y) #((top) (top)) - #("i12980" - "i12981")) + #("i4127" + "i4128")) #(ribcage () () @@ -13299,8 +13208,8 @@ #(ribcage #(x y) #((top) (top)) - #("i12975" - "i12976")) + #("i4122" + "i4123")) #(ribcage #(quasicons quasiappend @@ -13310,16 +13219,16 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{x\ 12982}# - #{y\ 12983}#)) - #{tmp\ 12984}#))) + #{x\ 4129}# + #{y\ 4130}#)) + #{tmp\ 4131}#))) ($sc-dispatch - #{tmp\ 12984}# + #{tmp\ 4131}# '(#(free-id #(syntax-object quote @@ -13327,13 +13236,13 @@ #(ribcage #(x y) #((top) (top)) - #("i12980" "i12981")) + #("i4127" "i4128")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i12975" "i12976")) + #("i4122" "i4123")) #(ribcage #(quasicons quasiappend @@ -13343,45 +13252,45 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) ())))) - #{y\ 12983}#)) - #{tmp\ 12979}#) + #{y\ 4130}#)) + #{tmp\ 4126}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12978}#))) - ($sc-dispatch #{tmp\ 12978}# (quote (any any))))) - (list #{x\ 12973}# #{y\ 12974}#)))) - (#{quasivector\ 12945}# - (lambda (#{x\ 12988}#) - ((lambda (#{tmp\ 12991}#) - ((lambda (#{x\ 12993}#) - ((lambda (#{tmp\ 12994}#) - ((lambda (#{tmp\ 12995}#) - (if #{tmp\ 12995}# - (apply (lambda (#{x\ 12997}#) + #{tmp\ 4125}#))) + ($sc-dispatch #{tmp\ 4125}# (quote (any any))))) + (list #{x\ 4120}# #{y\ 4121}#)))) + (#{quasivector\ 4092}# + (lambda (#{x\ 4135}#) + ((lambda (#{tmp\ 4138}#) + ((lambda (#{x\ 4140}#) + ((lambda (#{tmp\ 4141}#) + ((lambda (#{tmp\ 4142}#) + (if #{tmp\ 4142}# + (apply (lambda (#{x\ 4144}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i12996")) + #("i4143")) #(ribcage #(x) #((top)) - #("i12992")) + #("i4139")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12989")) + #("i4136")) #(ribcage #(quasicons quasiappend @@ -13391,28 +13300,28 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) (list->vector - #{x\ 12997}#))) - #{tmp\ 12995}#) - ((lambda (#{tmp\ 12999}#) - (if #{tmp\ 12999}# - (apply (lambda (#{x\ 13001}#) + #{x\ 4144}#))) + #{tmp\ 4142}#) + ((lambda (#{tmp\ 4146}#) + (if #{tmp\ 4146}# + (apply (lambda (#{x\ 4148}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i13000")) + #("i4147")) #(ribcage #(x) #((top)) - #("i12992")) + #("i4139")) #(ribcage () () @@ -13424,7 +13333,7 @@ #(ribcage #(x) #((top)) - #("i12989")) + #("i4136")) #(ribcage #(quasicons quasiappend @@ -13434,31 +13343,31 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{x\ 13001}#)) - #{tmp\ 12999}#) - ((lambda (#{_\ 13004}#) + #{x\ 4148}#)) + #{tmp\ 4146}#) + ((lambda (#{_\ 4151}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i13003")) + #("i4150")) #(ribcage #(x) #((top)) - #("i12992")) + #("i4139")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12989")) + #("i4136")) #(ribcage #(quasicons quasiappend @@ -13468,15 +13377,15 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{x\ 12993}#)) - #{tmp\ 12994}#))) + #{x\ 4140}#)) + #{tmp\ 4141}#))) ($sc-dispatch - #{tmp\ 12994}# + #{tmp\ 4141}# '(#(free-id #(syntax-object list @@ -13484,82 +13393,82 @@ #(ribcage #(x) #((top)) - #("i12992")) + #("i4139")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i12989")) + #("i4136")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 12994}# + #{tmp\ 4141}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i12992")) + #(ribcage #(x) #((top)) #("i4139")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12989")) + #(ribcage #(x) #((top)) #("i4136")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) each-any)))) - #{x\ 12993}#)) - #{tmp\ 12991}#)) - #{x\ 12988}#))) - (#{quasi\ 12946}# - (lambda (#{p\ 13005}# #{lev\ 13006}#) - ((lambda (#{tmp\ 13009}#) - ((lambda (#{tmp\ 13010}#) - (if #{tmp\ 13010}# - (apply (lambda (#{p\ 13012}#) - (if (= #{lev\ 13006}# 0) - #{p\ 13012}# - (#{quasicons\ 12943}# + #{x\ 4140}#)) + #{tmp\ 4138}#)) + #{x\ 4135}#))) + (#{quasi\ 4093}# + (lambda (#{p\ 4152}# #{lev\ 4153}#) + ((lambda (#{tmp\ 4156}#) + ((lambda (#{tmp\ 4157}#) + (if #{tmp\ 4157}# + (apply (lambda (#{p\ 4159}#) + (if (= #{lev\ 4153}# 0) + #{p\ 4159}# + (#{quasicons\ 4090}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i13011")) + #("i4158")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) #(syntax-object unquote @@ -13567,51 +13476,50 @@ #(ribcage #(p) #((top)) - #("i13011")) + #("i4158")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) - (#{quasi\ 12946}# - (list #{p\ 13012}#) - (- #{lev\ 13006}# 1))))) - #{tmp\ 13010}#) - ((lambda (#{tmp\ 13013}#) - (if (if #{tmp\ 13013}# - (apply (lambda (#{args\ 13015}#) - (= #{lev\ 13006}# 0)) - #{tmp\ 13013}#) + (#{quasi\ 4093}# + (list #{p\ 4159}#) + (- #{lev\ 4153}# 1))))) + #{tmp\ 4157}#) + ((lambda (#{tmp\ 4160}#) + (if (if #{tmp\ 4160}# + (apply (lambda (#{args\ 4162}#) + (= #{lev\ 4153}# 0)) + #{tmp\ 4160}#) #f) - (apply (lambda (#{args\ 13017}#) + (apply (lambda (#{args\ 4164}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 13005}# + #{p\ 4152}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i13016")) + #("i4163")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend @@ -13621,33 +13529,33 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{args\ 13017}#))) - #{tmp\ 13013}#) - ((lambda (#{tmp\ 13018}#) - (if #{tmp\ 13018}# - (apply (lambda (#{p\ 13021}# - #{q\ 13022}#) - (if (= #{lev\ 13006}# 0) - (#{quasiappend\ 12944}# - #{p\ 13021}# - (#{quasi\ 12946}# - #{q\ 13022}# - #{lev\ 13006}#)) - (#{quasicons\ 12943}# - (#{quasicons\ 12943}# + #{args\ 4164}#))) + #{tmp\ 4160}#) + ((lambda (#{tmp\ 4165}#) + (if #{tmp\ 4165}# + (apply (lambda (#{p\ 4168}# + #{q\ 4169}#) + (if (= #{lev\ 4153}# 0) + (#{quasiappend\ 4091}# + #{p\ 4168}# + (#{quasi\ 4093}# + #{q\ 4169}# + #{lev\ 4153}#)) + (#{quasicons\ 4090}# + (#{quasicons\ 4090}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i13019" - "i13020")) + #("i4166" + "i4167")) #(ribcage () () @@ -13655,8 +13563,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" + "i4155")) #(ribcage #(quasicons quasiappend @@ -13666,10 +13574,10 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -13677,8 +13585,8 @@ #(ribcage #(p q) #((top) (top)) - #("i13019" - "i13020")) + #("i4166" + "i4167")) #(ribcage () () @@ -13686,8 +13594,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" + "i4155")) #(ribcage #(quasicons quasiappend @@ -13697,33 +13605,31 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) - (#{quasi\ 12946}# - (list #{p\ 13021}#) - (- #{lev\ 13006}# - 1))) - (#{quasi\ 12946}# - #{q\ 13022}# - #{lev\ 13006}#)))) - #{tmp\ 13018}#) - ((lambda (#{tmp\ 13023}#) - (if (if #{tmp\ 13023}# - (apply (lambda (#{args\ 13026}# - #{q\ 13027}#) - (= #{lev\ 13006}# - 0)) - #{tmp\ 13023}#) + (#{quasi\ 4093}# + (list #{p\ 4168}#) + (- #{lev\ 4153}# 1))) + (#{quasi\ 4093}# + #{q\ 4169}# + #{lev\ 4153}#)))) + #{tmp\ 4165}#) + ((lambda (#{tmp\ 4170}#) + (if (if #{tmp\ 4170}# + (apply (lambda (#{args\ 4173}# + #{q\ 4174}#) + (= #{lev\ 4153}# 0)) + #{tmp\ 4170}#) #f) - (apply (lambda (#{args\ 13030}# - #{q\ 13031}#) + (apply (lambda (#{args\ 4177}# + #{q\ 4178}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 13005}# + #{p\ 4152}# (cons '#(syntax-object unquote-splicing ((top) @@ -13731,8 +13637,8 @@ #(args q) #((top) (top)) - #("i13028" - "i13029")) + #("i4175" + "i4176")) #(ribcage () () @@ -13741,8 +13647,8 @@ #(p lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" + "i4155")) #(ribcage #(quasicons quasiappend @@ -13752,25 +13658,25 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{args\ 13030}#))) - #{tmp\ 13023}#) - ((lambda (#{tmp\ 13032}#) - (if #{tmp\ 13032}# - (apply (lambda (#{p\ 13034}#) - (#{quasicons\ 12943}# + #{args\ 4177}#))) + #{tmp\ 4170}#) + ((lambda (#{tmp\ 4179}#) + (if #{tmp\ 4179}# + (apply (lambda (#{p\ 4181}#) + (#{quasicons\ 4090}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i13033")) + #("i4180")) #(ribcage () () @@ -13779,8 +13685,8 @@ #(p lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" + "i4155")) #(ribcage #(quasicons quasiappend @@ -13790,10 +13696,10 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) #(syntax-object @@ -13802,7 +13708,7 @@ #(ribcage #(p) #((top)) - #("i13033")) + #("i4180")) #(ribcage () () @@ -13811,8 +13717,8 @@ #(p lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" + "i4155")) #(ribcage #(quasicons quasiappend @@ -13822,45 +13728,45 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) - (#{quasi\ 12946}# - (list #{p\ 13034}#) - (+ #{lev\ 13006}# + (#{quasi\ 4093}# + (list #{p\ 4181}#) + (+ #{lev\ 4153}# 1)))) - #{tmp\ 13032}#) - ((lambda (#{tmp\ 13035}#) - (if #{tmp\ 13035}# - (apply (lambda (#{p\ 13038}# - #{q\ 13039}#) - (#{quasicons\ 12943}# - (#{quasi\ 12946}# - #{p\ 13038}# - #{lev\ 13006}#) - (#{quasi\ 12946}# - #{q\ 13039}# - #{lev\ 13006}#))) - #{tmp\ 13035}#) - ((lambda (#{tmp\ 13040}#) - (if #{tmp\ 13040}# - (apply (lambda (#{x\ 13042}#) - (#{quasivector\ 12945}# - (#{quasi\ 12946}# - #{x\ 13042}# - #{lev\ 13006}#))) - #{tmp\ 13040}#) - ((lambda (#{p\ 13045}#) + #{tmp\ 4179}#) + ((lambda (#{tmp\ 4182}#) + (if #{tmp\ 4182}# + (apply (lambda (#{p\ 4185}# + #{q\ 4186}#) + (#{quasicons\ 4090}# + (#{quasi\ 4093}# + #{p\ 4185}# + #{lev\ 4153}#) + (#{quasi\ 4093}# + #{q\ 4186}# + #{lev\ 4153}#))) + #{tmp\ 4182}#) + ((lambda (#{tmp\ 4187}#) + (if #{tmp\ 4187}# + (apply (lambda (#{x\ 4189}#) + (#{quasivector\ 4092}# + (#{quasi\ 4093}# + #{x\ 4189}# + #{lev\ 4153}#))) + #{tmp\ 4187}#) + ((lambda (#{p\ 4192}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i13044")) + #("i4191")) #(ribcage () () @@ -13870,8 +13776,8 @@ lev) #((top) (top)) - #("i13007" - "i13008")) + #("i4154" + "i4155")) #(ribcage #(quasicons quasiappend @@ -13881,23 +13787,23 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile)) - #{p\ 13045}#)) - #{tmp\ 13009}#))) + #{p\ 4192}#)) + #{tmp\ 4156}#))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '(any . any))))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '(#(free-id #(syntax-object quasiquote @@ -13906,7 +13812,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend @@ -13916,14 +13822,14 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '((#(free-id #(syntax-object unquote-splicing @@ -13932,7 +13838,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend @@ -13942,17 +13848,17 @@ (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '((#(free-id #(syntax-object unquote-splicing @@ -13961,23 +13867,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" + "i4087" + "i4088" + "i4089"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '(#(free-id #(syntax-object unquote @@ -13986,22 +13892,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" - "i12940" - "i12941" - "i12942"))) + #("i4086" "i4087" "i4088" "i4089"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 13009}# + #{tmp\ 4156}# '(#(free-id #(syntax-object unquote @@ -14010,244 +13913,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i13007" "i13008")) + #("i4154" "i4155")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i12939" "i12940" "i12941" "i12942"))) + #("i4086" "i4087" "i4088" "i4089"))) (hygiene guile))) any)))) - #{p\ 13005}#)))) - (lambda (#{x\ 13046}#) - ((lambda (#{tmp\ 13048}#) - ((lambda (#{tmp\ 13049}#) - (if #{tmp\ 13049}# - (apply (lambda (#{_\ 13052}# #{e\ 13053}#) - (#{quasi\ 12946}# #{e\ 13053}# 0)) - #{tmp\ 13049}#) + #{p\ 4152}#)))) + (lambda (#{x\ 4193}#) + ((lambda (#{tmp\ 4195}#) + ((lambda (#{tmp\ 4196}#) + (if #{tmp\ 4196}# + (apply (lambda (#{_\ 4199}# #{e\ 4200}#) + (#{quasi\ 4093}# #{e\ 4200}# 0)) + #{tmp\ 4196}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13048}#))) - ($sc-dispatch #{tmp\ 13048}# (quote (any any))))) - #{x\ 13046}#))) + #{tmp\ 4195}#))) + ($sc-dispatch #{tmp\ 4195}# (quote (any any))))) + #{x\ 4193}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 13054}#) - (letrec ((#{read-file\ 13057}# - (lambda (#{fn\ 13058}# #{k\ 13059}#) - (let ((#{p\ 13063}# (open-input-file #{fn\ 13058}#))) - (letrec ((#{f\ 13067}# - (lambda (#{x\ 13068}# #{result\ 13069}#) - (if (eof-object? #{x\ 13068}#) + (cons (lambda (#{x\ 4201}#) + (letrec ((#{read-file\ 4204}# + (lambda (#{fn\ 4205}# #{k\ 4206}#) + (let ((#{p\ 4210}# (open-input-file #{fn\ 4205}#))) + (letrec ((#{f\ 4214}# + (lambda (#{x\ 4215}# #{result\ 4216}#) + (if (eof-object? #{x\ 4215}#) (begin - (close-input-port #{p\ 13063}#) - (reverse #{result\ 13069}#)) - (#{f\ 13067}# - (read #{p\ 13063}#) + (close-input-port #{p\ 4210}#) + (reverse #{result\ 4216}#)) + (#{f\ 4214}# + (read #{p\ 4210}#) (cons (datum->syntax - #{k\ 13059}# - #{x\ 13068}#) - #{result\ 13069}#)))))) - (#{f\ 13067}# (read #{p\ 13063}#) (quote ()))))))) - ((lambda (#{tmp\ 13070}#) - ((lambda (#{tmp\ 13071}#) - (if #{tmp\ 13071}# - (apply (lambda (#{k\ 13074}# #{filename\ 13075}#) - (let ((#{fn\ 13077}# - (syntax->datum #{filename\ 13075}#))) - ((lambda (#{tmp\ 13079}#) - ((lambda (#{tmp\ 13080}#) - (if #{tmp\ 13080}# - (apply (lambda (#{exp\ 13082}#) + #{k\ 4206}# + #{x\ 4215}#) + #{result\ 4216}#)))))) + (#{f\ 4214}# (read #{p\ 4210}#) (quote ()))))))) + ((lambda (#{tmp\ 4217}#) + ((lambda (#{tmp\ 4218}#) + (if #{tmp\ 4218}# + (apply (lambda (#{k\ 4221}# #{filename\ 4222}#) + (let ((#{fn\ 4224}# + (syntax->datum #{filename\ 4222}#))) + ((lambda (#{tmp\ 4226}#) + ((lambda (#{tmp\ 4227}#) + (if #{tmp\ 4227}# + (apply (lambda (#{exp\ 4229}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i13081")) + #("i4228")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i13076")) + #("i4223")) #(ribcage #(k filename) #((top) (top)) - #("i13072" - "i13073")) + #("i4219" + "i4220")) #(ribcage (read-file) ((top)) - ("i13056")) + ("i4203")) #(ribcage #(x) #((top)) - #("i13055"))) + #("i4202"))) (hygiene guile)) - #{exp\ 13082}#)) - #{tmp\ 13080}#) + #{exp\ 4229}#)) + #{tmp\ 4227}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13079}#))) + #{tmp\ 4226}#))) ($sc-dispatch - #{tmp\ 13079}# + #{tmp\ 4226}# 'each-any))) - (#{read-file\ 13057}# - #{fn\ 13077}# - #{k\ 13074}#)))) - #{tmp\ 13071}#) + (#{read-file\ 4204}# + #{fn\ 4224}# + #{k\ 4221}#)))) + #{tmp\ 4218}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13070}#))) - ($sc-dispatch #{tmp\ 13070}# (quote (any any))))) - #{x\ 13054}#))) + #{tmp\ 4217}#))) + ($sc-dispatch #{tmp\ 4217}# (quote (any any))))) + #{x\ 4201}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 13084}#) - ((lambda (#{tmp\ 13086}#) - ((lambda (#{tmp\ 13087}#) - (if #{tmp\ 13087}# - (apply (lambda (#{k\ 13090}# #{filename\ 13091}#) - (let ((#{fn\ 13093}# - (syntax->datum #{filename\ 13091}#))) - ((lambda (#{tmp\ 13095}#) - ((lambda (#{fn\ 13097}#) + (cons (lambda (#{x\ 4231}#) + ((lambda (#{tmp\ 4233}#) + ((lambda (#{tmp\ 4234}#) + (if #{tmp\ 4234}# + (apply (lambda (#{k\ 4237}# #{filename\ 4238}#) + (let ((#{fn\ 4240}# + (syntax->datum #{filename\ 4238}#))) + ((lambda (#{tmp\ 4242}#) + ((lambda (#{fn\ 4244}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i13096")) + #("i4243")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i13092")) + #("i4239")) #(ribcage #(k filename) #((top) (top)) - #("i13088" "i13089")) + #("i4235" "i4236")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13085"))) + #("i4232"))) (hygiene guile)) - #{fn\ 13097}#)) - #{tmp\ 13095}#)) - (let ((#{t\ 13100}# - (%search-load-path #{fn\ 13093}#))) - (if #{t\ 13100}# - #{t\ 13100}# + #{fn\ 4244}#)) + #{tmp\ 4242}#)) + (let ((#{t\ 4247}# + (%search-load-path #{fn\ 4240}#))) + (if #{t\ 4247}# + #{t\ 4247}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 13084}# - #{filename\ 13091}#)))))) - #{tmp\ 13087}#) + #{x\ 4231}# + #{filename\ 4238}#)))))) + #{tmp\ 4234}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13086}#))) - ($sc-dispatch #{tmp\ 13086}# (quote (any any))))) - #{x\ 13084}#)) + #{tmp\ 4233}#))) + ($sc-dispatch #{tmp\ 4233}# (quote (any any))))) + #{x\ 4231}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 13102}#) - ((lambda (#{tmp\ 13104}#) - ((lambda (#{tmp\ 13105}#) - (if #{tmp\ 13105}# - (apply (lambda (#{_\ 13108}# #{e\ 13109}#) + (cons (lambda (#{x\ 4249}#) + ((lambda (#{tmp\ 4251}#) + ((lambda (#{tmp\ 4252}#) + (if #{tmp\ 4252}# + (apply (lambda (#{_\ 4255}# #{e\ 4256}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 13102}#)) - #{tmp\ 13105}#) + #{x\ 4249}#)) + #{tmp\ 4252}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13104}#))) - ($sc-dispatch #{tmp\ 13104}# (quote (any any))))) - #{x\ 13102}#)) + #{tmp\ 4251}#))) + ($sc-dispatch #{tmp\ 4251}# (quote (any any))))) + #{x\ 4249}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 13110}#) - ((lambda (#{tmp\ 13112}#) - ((lambda (#{tmp\ 13113}#) - (if #{tmp\ 13113}# - (apply (lambda (#{_\ 13116}# #{e\ 13117}#) + (cons (lambda (#{x\ 4257}#) + ((lambda (#{tmp\ 4259}#) + ((lambda (#{tmp\ 4260}#) + (if #{tmp\ 4260}# + (apply (lambda (#{_\ 4263}# #{e\ 4264}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 13110}#)) - #{tmp\ 13113}#) + #{x\ 4257}#)) + #{tmp\ 4260}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13112}#))) - ($sc-dispatch #{tmp\ 13112}# (quote (any any))))) - #{x\ 13110}#)) + #{tmp\ 4259}#))) + ($sc-dispatch #{tmp\ 4259}# (quote (any any))))) + #{x\ 4257}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 13118}#) - ((lambda (#{tmp\ 13120}#) - ((lambda (#{tmp\ 13121}#) - (if #{tmp\ 13121}# - (apply (lambda (#{_\ 13126}# - #{e\ 13127}# - #{m1\ 13128}# - #{m2\ 13129}#) - ((lambda (#{tmp\ 13131}#) - ((lambda (#{body\ 13133}#) + (cons (lambda (#{x\ 4265}#) + ((lambda (#{tmp\ 4267}#) + ((lambda (#{tmp\ 4268}#) + (if #{tmp\ 4268}# + (apply (lambda (#{_\ 4273}# + #{e\ 4274}# + #{m1\ 4275}# + #{m2\ 4276}#) + ((lambda (#{tmp\ 4278}#) + ((lambda (#{body\ 4280}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i13132")) + #("i4279")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14255,35 +14158,35 @@ #(ribcage #(body) #((top)) - #("i13132")) + #("i4279")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) - #{e\ 13127}#)) - #{body\ 13133}#)) - #{tmp\ 13131}#)) - (letrec ((#{f\ 13137}# - (lambda (#{clause\ 13138}# - #{clauses\ 13139}#) - (if (null? #{clauses\ 13139}#) - ((lambda (#{tmp\ 13141}#) - ((lambda (#{tmp\ 13142}#) - (if #{tmp\ 13142}# - (apply (lambda (#{e1\ 13145}# - #{e2\ 13146}#) + #{e\ 4274}#)) + #{body\ 4280}#)) + #{tmp\ 4278}#)) + (letrec ((#{f\ 4284}# + (lambda (#{clause\ 4285}# + #{clauses\ 4286}#) + (if (null? #{clauses\ 4286}#) + ((lambda (#{tmp\ 4288}#) + ((lambda (#{tmp\ 4289}#) + (if #{tmp\ 4289}# + (apply (lambda (#{e1\ 4292}# + #{e2\ 4293}#) (cons '#(syntax-object begin ((top) @@ -14292,8 +14195,8 @@ e2) #((top) (top)) - #("i13143" - "i13144")) + #("i4290" + "i4291")) #(ribcage () () @@ -14305,9 +14208,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14317,10 +14220,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14328,17 +14231,17 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) - (cons #{e1\ 13145}# - #{e2\ 13146}#))) - #{tmp\ 13142}#) - ((lambda (#{tmp\ 13148}#) - (if #{tmp\ 13148}# - (apply (lambda (#{k\ 13152}# - #{e1\ 13153}# - #{e2\ 13154}#) + (cons #{e1\ 4292}# + #{e2\ 4293}#))) + #{tmp\ 4289}#) + ((lambda (#{tmp\ 4295}#) + (if #{tmp\ 4295}# + (apply (lambda (#{k\ 4299}# + #{e1\ 4300}# + #{e2\ 4301}#) (list '#(syntax-object if ((top) @@ -14349,9 +14252,9 @@ #((top) (top) (top)) - #("i13149" - "i13150" - "i13151")) + #("i4296" + "i4297" + "i4298")) #(ribcage () () @@ -14363,9 +14266,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14375,10 +14278,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14386,7 +14289,7 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) (list '#(syntax-object @@ -14399,9 +14302,9 @@ #((top) (top) (top)) - #("i13149" - "i13150" - "i13151")) + #("i4296" + "i4297" + "i4298")) #(ribcage () () @@ -14413,9 +14316,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14425,10 +14328,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14436,7 +14339,7 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) '#(syntax-object @@ -14449,9 +14352,9 @@ #((top) (top) (top)) - #("i13149" - "i13150" - "i13151")) + #("i4296" + "i4297" + "i4298")) #(ribcage () () @@ -14463,9 +14366,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14475,10 +14378,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14486,7 +14389,7 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) (list '#(syntax-object @@ -14499,9 +14402,9 @@ #((top) (top) (top)) - #("i13149" - "i13150" - "i13151")) + #("i4296" + "i4297" + "i4298")) #(ribcage () () @@ -14513,9 +14416,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14525,10 +14428,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14536,10 +14439,10 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) - #{k\ 13152}#)) + #{k\ 4299}#)) (cons '#(syntax-object begin ((top) @@ -14550,9 +14453,9 @@ #((top) (top) (top)) - #("i13149" - "i13150" - "i13151")) + #("i4296" + "i4297" + "i4298")) #(ribcage () () @@ -14564,9 +14467,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14576,10 +14479,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14587,27 +14490,27 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) - (cons #{e1\ 13153}# - #{e2\ 13154}#)))) - #{tmp\ 13148}#) - ((lambda (#{_\ 13158}#) + (cons #{e1\ 4300}# + #{e2\ 4301}#)))) + #{tmp\ 4295}#) + ((lambda (#{_\ 4305}#) (syntax-violation 'case "bad clause" - #{x\ 13118}# - #{clause\ 13138}#)) - #{tmp\ 13141}#))) + #{x\ 4265}# + #{clause\ 4285}#)) + #{tmp\ 4288}#))) ($sc-dispatch - #{tmp\ 13141}# + #{tmp\ 4288}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 13141}# + #{tmp\ 4288}# '(#(free-id #(syntax-object else @@ -14618,37 +14521,37 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile))) any . each-any)))) - #{clause\ 13138}#) - ((lambda (#{tmp\ 13160}#) - ((lambda (#{rest\ 13162}#) - ((lambda (#{tmp\ 13163}#) - ((lambda (#{tmp\ 13164}#) - (if #{tmp\ 13164}# - (apply (lambda (#{k\ 13168}# - #{e1\ 13169}# - #{e2\ 13170}#) + #{clause\ 4285}#) + ((lambda (#{tmp\ 4307}#) + ((lambda (#{rest\ 4309}#) + ((lambda (#{tmp\ 4310}#) + ((lambda (#{tmp\ 4311}#) + (if #{tmp\ 4311}# + (apply (lambda (#{k\ 4315}# + #{e1\ 4316}# + #{e2\ 4317}#) (list '#(syntax-object if ((top) @@ -14659,13 +14562,13 @@ #((top) (top) (top)) - #("i13165" - "i13166" - "i13167")) + #("i4312" + "i4313" + "i4314")) #(ribcage #(rest) #((top)) - #("i13161")) + #("i4308")) #(ribcage () () @@ -14677,9 +14580,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14689,10 +14592,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14700,7 +14603,7 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) (list '#(syntax-object @@ -14713,13 +14616,13 @@ #((top) (top) (top)) - #("i13165" - "i13166" - "i13167")) + #("i4312" + "i4313" + "i4314")) #(ribcage #(rest) #((top)) - #("i13161")) + #("i4308")) #(ribcage () () @@ -14731,9 +14634,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14743,10 +14646,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14754,7 +14657,7 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) '#(syntax-object @@ -14767,13 +14670,13 @@ #((top) (top) (top)) - #("i13165" - "i13166" - "i13167")) + #("i4312" + "i4313" + "i4314")) #(ribcage #(rest) #((top)) - #("i13161")) + #("i4308")) #(ribcage () () @@ -14785,9 +14688,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14797,10 +14700,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14808,7 +14711,7 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) (list '#(syntax-object @@ -14821,13 +14724,13 @@ #((top) (top) (top)) - #("i13165" - "i13166" - "i13167")) + #("i4312" + "i4313" + "i4314")) #(ribcage #(rest) #((top)) - #("i13161")) + #("i4308")) #(ribcage () () @@ -14839,9 +14742,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14851,10 +14754,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14862,10 +14765,10 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) - #{k\ 13168}#)) + #{k\ 4315}#)) (cons '#(syntax-object begin ((top) @@ -14876,13 +14779,13 @@ #((top) (top) (top)) - #("i13165" - "i13166" - "i13167")) + #("i4312" + "i4313" + "i4314")) #(ribcage #(rest) #((top)) - #("i13161")) + #("i4308")) #(ribcage () () @@ -14894,9 +14797,9 @@ #((top) (top) (top)) - #("i13134" - "i13135" - "i13136")) + #("i4281" + "i4282" + "i4283")) #(ribcage #(_ e @@ -14906,10 +14809,10 @@ (top) (top) (top)) - #("i13122" - "i13123" - "i13124" - "i13125")) + #("i4269" + "i4270" + "i4271" + "i4272")) #(ribcage () () @@ -14917,61 +14820,61 @@ #(ribcage #(x) #((top)) - #("i13119"))) + #("i4266"))) (hygiene guile)) - (cons #{e1\ 13169}# - #{e2\ 13170}#)) - #{rest\ 13162}#)) - #{tmp\ 13164}#) - ((lambda (#{_\ 13174}#) + (cons #{e1\ 4316}# + #{e2\ 4317}#)) + #{rest\ 4309}#)) + #{tmp\ 4311}#) + ((lambda (#{_\ 4321}#) (syntax-violation 'case "bad clause" - #{x\ 13118}# - #{clause\ 13138}#)) - #{tmp\ 13163}#))) + #{x\ 4265}# + #{clause\ 4285}#)) + #{tmp\ 4310}#))) ($sc-dispatch - #{tmp\ 13163}# + #{tmp\ 4310}# '(each-any any . each-any)))) - #{clause\ 13138}#)) - #{tmp\ 13160}#)) - (#{f\ 13137}# - (car #{clauses\ 13139}#) - (cdr #{clauses\ 13139}#))))))) - (#{f\ 13137}# #{m1\ 13128}# #{m2\ 13129}#)))) - #{tmp\ 13121}#) + #{clause\ 4285}#)) + #{tmp\ 4307}#)) + (#{f\ 4284}# + (car #{clauses\ 4286}#) + (cdr #{clauses\ 4286}#))))))) + (#{f\ 4284}# #{m1\ 4275}# #{m2\ 4276}#)))) + #{tmp\ 4268}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13120}#))) + #{tmp\ 4267}#))) ($sc-dispatch - #{tmp\ 13120}# + #{tmp\ 4267}# '(any any any . each-any)))) - #{x\ 13118}#)) + #{x\ 4265}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 13175}#) - ((lambda (#{tmp\ 13177}#) - ((lambda (#{tmp\ 13178}#) - (if #{tmp\ 13178}# - (apply (lambda (#{_\ 13181}# #{e\ 13182}#) + (cons (lambda (#{x\ 4322}#) + ((lambda (#{tmp\ 4324}#) + ((lambda (#{tmp\ 4325}#) + (if #{tmp\ 4325}# + (apply (lambda (#{_\ 4328}# #{e\ 4329}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13176"))) + #(ribcage #(x) #((top)) #("i4323"))) (hygiene guile)) '(#(syntax-object x @@ -14979,9 +14882,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13176"))) + #(ribcage #(x) #((top)) #("i4323"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -14989,9 +14892,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13176"))) + #(ribcage #(x) #((top)) #("i4323"))) (hygiene guile)) . #(syntax-object @@ -15000,9 +14903,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13176"))) + #(ribcage #(x) #((top)) #("i4323"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -15010,12 +14913,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) '#(syntax-object x @@ -15023,12 +14926,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) '() (list '#(syntax-object @@ -15037,12 +14940,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) '(#(syntax-object identifier? @@ -15050,12 +14953,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) (#(syntax-object syntax @@ -15063,12 +14966,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) #(syntax-object id @@ -15076,12 +14979,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15089,29 +14992,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" - "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) - #{e\ 13182}#)) - (list (cons #{_\ 13181}# + #{e\ 4329}#)) + (list (cons #{_\ 4328}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i13179" - "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) #(syntax-object ... @@ -15119,13 +15020,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" - "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15133,15 +15033,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i13179" - "i13180")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) - (cons #{e\ 13182}# + (cons #{e\ 4329}# '(#(syntax-object x ((top) @@ -15149,8 +15048,8 @@ #(_ e) #((top) (top)) - #("i13179" - "i13180")) + #("i4326" + "i4327")) #(ribcage () () @@ -15158,7 +15057,7 @@ #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile)) #(syntax-object ... @@ -15167,8 +15066,8 @@ #(_ e) #((top) (top)) - #("i13179" - "i13180")) + #("i4326" + "i4327")) #(ribcage () () @@ -15176,72 +15075,72 @@ #(ribcage #(x) #((top)) - #("i13176"))) + #("i4323"))) (hygiene guile))))))))) - #{tmp\ 13178}#) + #{tmp\ 4325}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13177}#))) - ($sc-dispatch #{tmp\ 13177}# (quote (any any))))) - #{x\ 13175}#)) + #{tmp\ 4324}#))) + ($sc-dispatch #{tmp\ 4324}# (quote (any any))))) + #{x\ 4322}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 13183}#) - ((lambda (#{tmp\ 13185}#) - ((lambda (#{tmp\ 13186}#) - (if #{tmp\ 13186}# - (apply (lambda (#{_\ 13192}# - #{id\ 13193}# - #{args\ 13194}# - #{b0\ 13195}# - #{b1\ 13196}#) + (cons (lambda (#{x\ 4330}#) + ((lambda (#{tmp\ 4332}#) + ((lambda (#{tmp\ 4333}#) + (if #{tmp\ 4333}# + (apply (lambda (#{_\ 4339}# + #{id\ 4340}# + #{args\ 4341}# + #{b0\ 4342}# + #{b1\ 4343}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i13187" - "i13188" - "i13189" - "i13190" - "i13191")) + #("i4334" + "i4335" + "i4336" + "i4337" + "i4338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i13184"))) + #(ribcage #(x) #((top)) #("i4331"))) (hygiene guile)) - #{id\ 13193}# + #{id\ 4340}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i13187" - "i13188" - "i13189" - "i13190" - "i13191")) + #("i4334" + "i4335" + "i4336" + "i4337" + "i4338")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13184"))) + #("i4331"))) (hygiene guile)) - (cons #{args\ 13194}# - (cons #{b0\ 13195}# - #{b1\ 13196}#))))) - #{tmp\ 13186}#) - ((lambda (#{tmp\ 13198}#) - (if (if #{tmp\ 13198}# - (apply (lambda (#{_\ 13202}# - #{id\ 13203}# - #{val\ 13204}#) + (cons #{args\ 4341}# + (cons #{b0\ 4342}# + #{b1\ 4343}#))))) + #{tmp\ 4333}#) + ((lambda (#{tmp\ 4345}#) + (if (if #{tmp\ 4345}# + (apply (lambda (#{_\ 4349}# + #{id\ 4350}# + #{val\ 4351}#) (identifier? '#(syntax-object x @@ -15249,44 +15148,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i13199" "i13200" "i13201")) + #("i4346" "i4347" "i4348")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13184"))) + #("i4331"))) (hygiene guile)))) - #{tmp\ 13198}#) + #{tmp\ 4345}#) #f) - (apply (lambda (#{_\ 13208}# - #{id\ 13209}# - #{val\ 13210}#) + (apply (lambda (#{_\ 4355}# + #{id\ 4356}# + #{val\ 4357}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i13205" "i13206" "i13207")) + #("i4352" "i4353" "i4354")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i13184"))) + #("i4331"))) (hygiene guile)) - #{id\ 13209}# - #{val\ 13210}#)) - #{tmp\ 13198}#) + #{id\ 4356}# + #{val\ 4357}#)) + #{tmp\ 4345}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 13185}#))) + #{tmp\ 4332}#))) ($sc-dispatch - #{tmp\ 13185}# + #{tmp\ 4332}# '(any any any))))) ($sc-dispatch - #{tmp\ 13185}# + #{tmp\ 4332}# '(any (any . any) any . each-any)))) - #{x\ 13183}#)) + #{x\ 4330}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 48e506e41..6353659c5 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1277,7 +1277,8 @@ (case type ((global core macro module-ref) ;; affect compile-time environment (once we have booted) - (if (and (not (module-local-variable (current-module) n)) + (if (and (memq m '(c c&e)) + (not (module-local-variable (current-module) n)) (current-module)) (let ((old (module-variable (current-module) n))) ;; use value of the same-named imported variable, if