From 0f2b9f6252ac27ce4d48e5319992d9c44525ebc2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 17 Jun 2010 13:03:01 +0200 Subject: [PATCH 1/1] internal definitions expand out to letrec* instead of letrec * module/ice-9/psyntax.scm (chi-body): Internal definitions are now letrec* instead of letrec, following the R6RS. * module/ice-9/psyntax-pp.scm: Regenerated. --- module/ice-9/psyntax-pp.scm | 19927 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 2 +- 2 files changed, 9860 insertions(+), 10069 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 092d48b69..b79bc57f4 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1329 +1,603 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 30}# - (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) - (let ((#{t\ 210}# (null? #{first\ 203}#))) - (if #{t\ 210}# - #{t\ 210}# - (if (null? #{rest\ 204}#) - (letrec ((#{andmap\ 214}# - (lambda (#{first\ 215}#) - (let ((#{x\ 218}# (car #{first\ 215}#)) - (#{first\ 219}# (cdr #{first\ 215}#))) - (if (null? #{first\ 219}#) - (#{f\ 202}# #{x\ 218}#) - (if (#{f\ 202}# #{x\ 218}#) - (#{andmap\ 214}# #{first\ 219}#) - #f)))))) - (#{andmap\ 214}# #{first\ 203}#)) - (letrec ((#{andmap\ 225}# - (lambda (#{first\ 226}# #{rest\ 227}#) - (let ((#{x\ 232}# (car #{first\ 226}#)) - (#{xr\ 233}# (map car #{rest\ 227}#)) - (#{first\ 234}# (cdr #{first\ 226}#)) - (#{rest\ 235}# (map cdr #{rest\ 227}#))) - (if (null? #{first\ 234}#) - (apply #{f\ 202}# - (cons #{x\ 232}# #{xr\ 233}#)) - (if (apply #{f\ 202}# - (cons #{x\ 232}# #{xr\ 233}#)) - (#{andmap\ 225}# - #{first\ 234}# - #{rest\ 235}#) - #f)))))) - (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))) - (letrec ((#{lambda-var-list\ 497}# - (lambda (#{vars\ 712}#) - (letrec ((#{lvl\ 718}# - (lambda (#{vars\ 719}# #{ls\ 720}# #{w\ 721}#) - (if (pair? #{vars\ 719}#) +(letrec* + ((#{and-map*\ 30}# + (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) + (let ((#{t\ 210}# (null? #{first\ 203}#))) + (if #{t\ 210}# + #{t\ 210}# + (if (null? #{rest\ 204}#) + (letrec ((#{andmap\ 214}# + (lambda (#{first\ 215}#) + (let ((#{x\ 218}# (car #{first\ 215}#)) + (#{first\ 219}# (cdr #{first\ 215}#))) + (if (null? #{first\ 219}#) + (#{f\ 202}# #{x\ 218}#) + (if (#{f\ 202}# #{x\ 218}#) + (#{andmap\ 214}# #{first\ 219}#) + #f)))))) + (#{andmap\ 214}# #{first\ 203}#)) + (letrec ((#{andmap\ 225}# + (lambda (#{first\ 226}# #{rest\ 227}#) + (let ((#{x\ 232}# (car #{first\ 226}#)) + (#{xr\ 233}# (map car #{rest\ 227}#)) + (#{first\ 234}# (cdr #{first\ 226}#)) + (#{rest\ 235}# (map cdr #{rest\ 227}#))) + (if (null? #{first\ 234}#) + (apply #{f\ 202}# (cons #{x\ 232}# #{xr\ 233}#)) + (if (apply #{f\ 202}# + (cons #{x\ 232}# #{xr\ 233}#)) + (#{andmap\ 225}# #{first\ 234}# #{rest\ 235}#) + #f)))))) + (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))) + (letrec* + ((#{lambda-var-list\ 497}# + (lambda (#{vars\ 712}#) + (letrec ((#{lvl\ 718}# + (lambda (#{vars\ 719}# #{ls\ 720}# #{w\ 721}#) + (if (pair? #{vars\ 719}#) + (#{lvl\ 718}# + (cdr #{vars\ 719}#) + (cons (#{wrap\ 451}# + (car #{vars\ 719}#) + #{w\ 721}# + #f) + #{ls\ 720}#) + #{w\ 721}#) + (if (#{id?\ 382}# #{vars\ 719}#) + (cons (#{wrap\ 451}# #{vars\ 719}# #{w\ 721}# #f) + #{ls\ 720}#) + (if (null? #{vars\ 719}#) + #{ls\ 720}# + (if (#{syntax-object?\ 346}# #{vars\ 719}#) (#{lvl\ 718}# - (cdr #{vars\ 719}#) - (cons (#{wrap\ 451}# - (car #{vars\ 719}#) - #{w\ 721}# - #f) - #{ls\ 720}#) - #{w\ 721}#) - (if (#{id?\ 382}# #{vars\ 719}#) - (cons (#{wrap\ 451}# - #{vars\ 719}# - #{w\ 721}# - #f) - #{ls\ 720}#) - (if (null? #{vars\ 719}#) - #{ls\ 720}# - (if (#{syntax-object?\ 346}# #{vars\ 719}#) - (#{lvl\ 718}# + (#{syntax-object-expression\ 348}# + #{vars\ 719}#) + #{ls\ 720}# + (#{join-wraps\ 433}# + #{w\ 721}# + (#{syntax-object-wrap\ 350}# #{vars\ 719}#))) + (cons #{vars\ 719}# #{ls\ 720}#)))))))) + (#{lvl\ 718}# + #{vars\ 712}# + '() + '(()))))) + (#{gen-var\ 495}# + (lambda (#{id\ 732}#) + (let ((#{id\ 735}# + (if (#{syntax-object?\ 346}# #{id\ 732}#) + (#{syntax-object-expression\ 348}# #{id\ 732}#) + #{id\ 732}#))) + (gensym + (string-append (symbol->string #{id\ 735}#) " "))))) + (#{strip\ 493}# + (lambda (#{x\ 737}# #{w\ 738}#) + (if (memq 'top + (#{wrap-marks\ 389}# #{w\ 738}#)) + #{x\ 737}# + (letrec ((#{f\ 744}# (lambda (#{x\ 745}#) + (if (#{syntax-object?\ 346}# #{x\ 745}#) + (#{strip\ 493}# (#{syntax-object-expression\ 348}# - #{vars\ 719}#) - #{ls\ 720}# - (#{join-wraps\ 433}# - #{w\ 721}# - (#{syntax-object-wrap\ 350}# - #{vars\ 719}#))) - (cons #{vars\ 719}# #{ls\ 720}#)))))))) - (#{lvl\ 718}# - #{vars\ 712}# - '() - '(()))))) - (#{gen-var\ 495}# - (lambda (#{id\ 732}#) - (let ((#{id\ 735}# - (if (#{syntax-object?\ 346}# #{id\ 732}#) - (#{syntax-object-expression\ 348}# #{id\ 732}#) - #{id\ 732}#))) - (gensym - (string-append (symbol->string #{id\ 735}#) " "))))) - (#{strip\ 493}# - (lambda (#{x\ 737}# #{w\ 738}#) - (if (memq 'top - (#{wrap-marks\ 389}# #{w\ 738}#)) - #{x\ 737}# - (letrec ((#{f\ 744}# (lambda (#{x\ 745}#) - (if (#{syntax-object?\ 346}# - #{x\ 745}#) - (#{strip\ 493}# - (#{syntax-object-expression\ 348}# - #{x\ 745}#) - (#{syntax-object-wrap\ 350}# - #{x\ 745}#)) - (if (pair? #{x\ 745}#) - (let ((#{a\ 752}# (#{f\ 744}# (car #{x\ 745}#))) - (#{d\ 753}# (#{f\ 744}# (cdr #{x\ 745}#)))) - (if (if (eq? #{a\ 752}# - (car #{x\ 745}#)) - (eq? #{d\ 753}# - (cdr #{x\ 745}#)) - #f) - #{x\ 745}# - (cons #{a\ 752}# #{d\ 753}#))) - (if (vector? #{x\ 745}#) - (let ((#{old\ 759}# - (vector->list - #{x\ 745}#))) - (let ((#{new\ 761}# - (map #{f\ 744}# - #{old\ 759}#))) - (if (#{and-map*\ 30}# - eq? - #{old\ 759}# - #{new\ 761}#) - #{x\ 745}# - (list->vector - #{new\ 761}#)))) - #{x\ 745}#)))))) - (#{f\ 744}# #{x\ 737}#))))) - (#{chi-lambda-case\ 491}# - (lambda (#{e\ 763}# - #{r\ 764}# - #{w\ 765}# - #{s\ 766}# - #{mod\ 767}# - #{get-formals\ 768}# - #{clauses\ 769}#) - (letrec ((#{expand-body\ 784}# - (lambda (#{req\ 785}# + #{x\ 745}#) + (#{syntax-object-wrap\ 350}# #{x\ 745}#)) + (if (pair? #{x\ 745}#) + (let ((#{a\ 752}# (#{f\ 744}# (car #{x\ 745}#))) + (#{d\ 753}# (#{f\ 744}# (cdr #{x\ 745}#)))) + (if (if (eq? #{a\ 752}# + (car #{x\ 745}#)) + (eq? #{d\ 753}# (cdr #{x\ 745}#)) + #f) + #{x\ 745}# + (cons #{a\ 752}# #{d\ 753}#))) + (if (vector? #{x\ 745}#) + (let ((#{old\ 759}# + (vector->list #{x\ 745}#))) + (let ((#{new\ 761}# + (map #{f\ 744}# + #{old\ 759}#))) + (if (#{and-map*\ 30}# + eq? + #{old\ 759}# + #{new\ 761}#) + #{x\ 745}# + (list->vector #{new\ 761}#)))) + #{x\ 745}#)))))) + (#{f\ 744}# #{x\ 737}#))))) + (#{chi-lambda-case\ 491}# + (lambda (#{e\ 763}# + #{r\ 764}# + #{w\ 765}# + #{s\ 766}# + #{mod\ 767}# + #{get-formals\ 768}# + #{clauses\ 769}#) + (letrec* + ((#{expand-body\ 784}# + (lambda (#{req\ 785}# + #{opt\ 786}# + #{rest\ 787}# + #{kw\ 788}# + #{body\ 789}# + #{vars\ 790}# + #{r*\ 791}# + #{w*\ 792}# + #{inits\ 793}# + #{meta\ 794}#) + ((lambda (#{tmp\ 805}#) + ((lambda (#{tmp\ 806}#) + (if (if #{tmp\ 806}# + (apply (lambda (#{docstring\ 810}# + #{e1\ 811}# + #{e2\ 812}#) + (string? + (syntax->datum #{docstring\ 810}#))) + #{tmp\ 806}#) + #f) + (apply (lambda (#{docstring\ 816}# + #{e1\ 817}# + #{e2\ 818}#) + (#{expand-body\ 784}# + #{req\ 785}# #{opt\ 786}# #{rest\ 787}# #{kw\ 788}# - #{body\ 789}# + (cons #{e1\ 817}# #{e2\ 818}#) #{vars\ 790}# #{r*\ 791}# #{w*\ 792}# #{inits\ 793}# - #{meta\ 794}#) - ((lambda (#{tmp\ 805}#) - ((lambda (#{tmp\ 806}#) - (if (if #{tmp\ 806}# - (apply (lambda (#{docstring\ 810}# - #{e1\ 811}# - #{e2\ 812}#) - (string? - (syntax->datum - #{docstring\ 810}#))) - #{tmp\ 806}#) - #f) - (apply (lambda (#{docstring\ 816}# - #{e1\ 817}# - #{e2\ 818}#) - (#{expand-body\ 784}# - #{req\ 785}# - #{opt\ 786}# - #{rest\ 787}# - #{kw\ 788}# - (cons #{e1\ 817}# #{e2\ 818}#) - #{vars\ 790}# + (append + #{meta\ 794}# + (list (cons 'documentation + (syntax->datum + #{docstring\ 816}#)))))) + #{tmp\ 806}#) + ((lambda (#{tmp\ 821}#) + (if #{tmp\ 821}# + (apply (lambda (#{k\ 826}# + #{v\ 827}# + #{e1\ 828}# + #{e2\ 829}#) + (#{expand-body\ 784}# + #{req\ 785}# + #{opt\ 786}# + #{rest\ 787}# + #{kw\ 788}# + (cons #{e1\ 828}# #{e2\ 829}#) + #{vars\ 790}# + #{r*\ 791}# + #{w*\ 792}# + #{inits\ 793}# + (append + #{meta\ 794}# + (syntax->datum + (map cons + #{k\ 826}# + #{v\ 827}#))))) + #{tmp\ 821}#) + ((lambda (#{tmp\ 833}#) + (if #{tmp\ 833}# + (apply (lambda (#{e1\ 836}# #{e2\ 837}#) + (values + #{meta\ 794}# + #{req\ 785}# + #{opt\ 786}# + #{rest\ 787}# + #{kw\ 788}# + #{inits\ 793}# + #{vars\ 790}# + (#{chi-body\ 475}# + (cons #{e1\ 836}# #{e2\ 837}#) + (#{source-wrap\ 453}# + #{e\ 763}# + #{w\ 765}# + #{s\ 766}# + #{mod\ 767}#) #{r*\ 791}# #{w*\ 792}# - #{inits\ 793}# + #{mod\ 767}#))) + #{tmp\ 833}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 805}#))) + ($sc-dispatch + #{tmp\ 805}# + '(any . each-any))))) + ($sc-dispatch + #{tmp\ 805}# + '(#(vector #(each (any . any))) any . each-any))))) + ($sc-dispatch + #{tmp\ 805}# + '(any any . each-any)))) + #{body\ 789}#))) + (#{expand-kw\ 782}# + (lambda (#{req\ 839}# + #{opt\ 840}# + #{rest\ 841}# + #{kw\ 842}# + #{body\ 843}# + #{vars\ 844}# + #{r*\ 845}# + #{w*\ 846}# + #{aok\ 847}# + #{out\ 848}# + #{inits\ 849}#) + (if (pair? #{kw\ 842}#) + ((lambda (#{tmp\ 863}#) + ((lambda (#{tmp\ 864}#) + (if #{tmp\ 864}# + (apply (lambda (#{k\ 868}# #{id\ 869}# #{i\ 870}#) + (let ((#{v\ 873}# (#{gen-var\ 495}# + #{id\ 869}#))) + (let ((#{l\ 875}# (#{gen-labels\ 400}# + (list #{v\ 873}#)))) + (let ((#{r**\ 877}# + (#{extend-var-env\ 372}# + #{l\ 875}# + (list #{v\ 873}#) + #{r*\ 845}#))) + (let ((#{w**\ 879}# + (#{make-binding-wrap\ 429}# + (list #{id\ 869}#) + #{l\ 875}# + #{w*\ 846}#))) + (#{expand-kw\ 782}# + #{req\ 839}# + #{opt\ 840}# + #{rest\ 841}# + (cdr #{kw\ 842}#) + #{body\ 843}# + (cons #{v\ 873}# #{vars\ 844}#) + #{r**\ 877}# + #{w**\ 879}# + #{aok\ 847}# + (cons (list (syntax->datum + #{k\ 868}#) + (syntax->datum + #{id\ 869}#) + #{v\ 873}#) + #{out\ 848}#) + (cons (#{chi\ 467}# + #{i\ 870}# + #{r*\ 845}# + #{w*\ 846}# + #{mod\ 767}#) + #{inits\ 849}#))))))) + #{tmp\ 864}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 863}#))) + ($sc-dispatch #{tmp\ 863}# (quote (any any any))))) + (car #{kw\ 842}#)) + (#{expand-body\ 784}# + #{req\ 839}# + #{opt\ 840}# + #{rest\ 841}# + (if (let ((#{t\ 883}# #{aok\ 847}#)) + (if #{t\ 883}# #{t\ 883}# (pair? #{out\ 848}#))) + (cons #{aok\ 847}# (reverse #{out\ 848}#)) + #f) + #{body\ 843}# + (reverse #{vars\ 844}#) + #{r*\ 845}# + #{w*\ 846}# + (reverse #{inits\ 849}#) + '())))) + (#{expand-opt\ 780}# + (lambda (#{req\ 885}# + #{opt\ 886}# + #{rest\ 887}# + #{kw\ 888}# + #{body\ 889}# + #{vars\ 890}# + #{r*\ 891}# + #{w*\ 892}# + #{out\ 893}# + #{inits\ 894}#) + (if (pair? #{opt\ 886}#) + ((lambda (#{tmp\ 907}#) + ((lambda (#{tmp\ 908}#) + (if #{tmp\ 908}# + (apply (lambda (#{id\ 911}# #{i\ 912}#) + (let ((#{v\ 915}# (#{gen-var\ 495}# + #{id\ 911}#))) + (let ((#{l\ 917}# (#{gen-labels\ 400}# + (list #{v\ 915}#)))) + (let ((#{r**\ 919}# + (#{extend-var-env\ 372}# + #{l\ 917}# + (list #{v\ 915}#) + #{r*\ 891}#))) + (let ((#{w**\ 921}# + (#{make-binding-wrap\ 429}# + (list #{id\ 911}#) + #{l\ 917}# + #{w*\ 892}#))) + (#{expand-opt\ 780}# + #{req\ 885}# + (cdr #{opt\ 886}#) + #{rest\ 887}# + #{kw\ 888}# + #{body\ 889}# + (cons #{v\ 915}# #{vars\ 890}#) + #{r**\ 919}# + #{w**\ 921}# + (cons (syntax->datum #{id\ 911}#) + #{out\ 893}#) + (cons (#{chi\ 467}# + #{i\ 912}# + #{r*\ 891}# + #{w*\ 892}# + #{mod\ 767}#) + #{inits\ 894}#))))))) + #{tmp\ 908}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 907}#))) + ($sc-dispatch #{tmp\ 907}# (quote (any any))))) + (car #{opt\ 886}#)) + (if #{rest\ 887}# + (let ((#{v\ 926}# (#{gen-var\ 495}# #{rest\ 887}#))) + (let ((#{l\ 928}# (#{gen-labels\ 400}# + (list #{v\ 926}#)))) + (let ((#{r*\ 930}# + (#{extend-var-env\ 372}# + #{l\ 928}# + (list #{v\ 926}#) + #{r*\ 891}#))) + (let ((#{w*\ 932}# + (#{make-binding-wrap\ 429}# + (list #{rest\ 887}#) + #{l\ 928}# + #{w*\ 892}#))) + (#{expand-kw\ 782}# + #{req\ 885}# + (if (pair? #{out\ 893}#) + (reverse #{out\ 893}#) + #f) + (syntax->datum #{rest\ 887}#) + (if (pair? #{kw\ 888}#) + (cdr #{kw\ 888}#) + #{kw\ 888}#) + #{body\ 889}# + (cons #{v\ 926}# #{vars\ 890}#) + #{r*\ 930}# + #{w*\ 932}# + (if (pair? #{kw\ 888}#) (car #{kw\ 888}#) #f) + '() + #{inits\ 894}#))))) + (#{expand-kw\ 782}# + #{req\ 885}# + (if (pair? #{out\ 893}#) + (reverse #{out\ 893}#) + #f) + #f + (if (pair? #{kw\ 888}#) + (cdr #{kw\ 888}#) + #{kw\ 888}#) + #{body\ 889}# + #{vars\ 890}# + #{r*\ 891}# + #{w*\ 892}# + (if (pair? #{kw\ 888}#) (car #{kw\ 888}#) #f) + '() + #{inits\ 894}#))))) + (#{expand-req\ 778}# + (lambda (#{req\ 934}# + #{opt\ 935}# + #{rest\ 936}# + #{kw\ 937}# + #{body\ 938}#) + (let ((#{vars\ 946}# + (map #{gen-var\ 495}# #{req\ 934}#)) + (#{labels\ 947}# + (#{gen-labels\ 400}# #{req\ 934}#))) + (let ((#{r*\ 950}# + (#{extend-var-env\ 372}# + #{labels\ 947}# + #{vars\ 946}# + #{r\ 764}#)) + (#{w*\ 951}# + (#{make-binding-wrap\ 429}# + #{req\ 934}# + #{labels\ 947}# + #{w\ 765}#))) + (#{expand-opt\ 780}# + (map syntax->datum #{req\ 934}#) + #{opt\ 935}# + #{rest\ 936}# + #{kw\ 937}# + #{body\ 938}# + (reverse #{vars\ 946}#) + #{r*\ 950}# + #{w*\ 951}# + '() + '())))))) + ((lambda (#{tmp\ 952}#) + ((lambda (#{tmp\ 953}#) + (if #{tmp\ 953}# + (apply (lambda () (values (quote ()) #f)) + #{tmp\ 953}#) + ((lambda (#{tmp\ 954}#) + (if #{tmp\ 954}# + (apply (lambda (#{args\ 961}# + #{e1\ 962}# + #{e2\ 963}# + #{args*\ 964}# + #{e1*\ 965}# + #{e2*\ 966}#) + (call-with-values + (lambda () + (#{get-formals\ 768}# #{args\ 961}#)) + (lambda (#{req\ 967}# + #{opt\ 968}# + #{rest\ 969}# + #{kw\ 970}#) + (call-with-values + (lambda () + (#{expand-req\ 778}# + #{req\ 967}# + #{opt\ 968}# + #{rest\ 969}# + #{kw\ 970}# + (cons #{e1\ 962}# #{e2\ 963}#))) + (lambda (#{meta\ 976}# + #{req\ 977}# + #{opt\ 978}# + #{rest\ 979}# + #{kw\ 980}# + #{inits\ 981}# + #{vars\ 982}# + #{body\ 983}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 491}# + #{e\ 763}# + #{r\ 764}# + #{w\ 765}# + #{s\ 766}# + #{mod\ 767}# + #{get-formals\ 768}# + (map (lambda (#{tmp\ 994}# + #{tmp\ 993}# + #{tmp\ 992}#) + (cons #{tmp\ 992}# + (cons #{tmp\ 993}# + #{tmp\ 994}#))) + #{e2*\ 966}# + #{e1*\ 965}# + #{args*\ 964}#))) + (lambda (#{meta*\ 996}# + #{else*\ 997}#) + (values (append - #{meta\ 794}# - (list (cons 'documentation - (syntax->datum - #{docstring\ 816}#)))))) - #{tmp\ 806}#) - ((lambda (#{tmp\ 821}#) - (if #{tmp\ 821}# - (apply (lambda (#{k\ 826}# - #{v\ 827}# - #{e1\ 828}# - #{e2\ 829}#) - (#{expand-body\ 784}# - #{req\ 785}# - #{opt\ 786}# - #{rest\ 787}# - #{kw\ 788}# - (cons #{e1\ 828}# - #{e2\ 829}#) - #{vars\ 790}# - #{r*\ 791}# - #{w*\ 792}# - #{inits\ 793}# - (append - #{meta\ 794}# - (syntax->datum - (map cons - #{k\ 826}# - #{v\ 827}#))))) - #{tmp\ 821}#) - ((lambda (#{tmp\ 833}#) - (if #{tmp\ 833}# - (apply (lambda (#{e1\ 836}# - #{e2\ 837}#) - (values - #{meta\ 794}# - #{req\ 785}# - #{opt\ 786}# - #{rest\ 787}# - #{kw\ 788}# - #{inits\ 793}# - #{vars\ 790}# - (#{chi-body\ 475}# - (cons #{e1\ 836}# - #{e2\ 837}#) - (#{source-wrap\ 453}# - #{e\ 763}# - #{w\ 765}# - #{s\ 766}# - #{mod\ 767}#) - #{r*\ 791}# - #{w*\ 792}# - #{mod\ 767}#))) - #{tmp\ 833}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 805}#))) - ($sc-dispatch - #{tmp\ 805}# - '(any . each-any))))) - ($sc-dispatch - #{tmp\ 805}# - '(#(vector #(each (any . any))) - any - . - each-any))))) - ($sc-dispatch - #{tmp\ 805}# - '(any any . each-any)))) - #{body\ 789}#))) - (#{expand-kw\ 782}# - (lambda (#{req\ 839}# - #{opt\ 840}# - #{rest\ 841}# - #{kw\ 842}# - #{body\ 843}# - #{vars\ 844}# - #{r*\ 845}# - #{w*\ 846}# - #{aok\ 847}# - #{out\ 848}# - #{inits\ 849}#) - (if (pair? #{kw\ 842}#) - ((lambda (#{tmp\ 863}#) - ((lambda (#{tmp\ 864}#) - (if #{tmp\ 864}# - (apply (lambda (#{k\ 868}# - #{id\ 869}# - #{i\ 870}#) - (let ((#{v\ 873}# (#{gen-var\ 495}# - #{id\ 869}#))) - (let ((#{l\ 875}# (#{gen-labels\ 400}# - (list #{v\ 873}#)))) - (let ((#{r**\ 877}# - (#{extend-var-env\ 372}# - #{l\ 875}# - (list #{v\ 873}#) - #{r*\ 845}#))) - (let ((#{w**\ 879}# - (#{make-binding-wrap\ 429}# - (list #{id\ 869}#) - #{l\ 875}# - #{w*\ 846}#))) - (#{expand-kw\ 782}# - #{req\ 839}# - #{opt\ 840}# - #{rest\ 841}# - (cdr #{kw\ 842}#) - #{body\ 843}# - (cons #{v\ 873}# - #{vars\ 844}#) - #{r**\ 877}# - #{w**\ 879}# - #{aok\ 847}# - (cons (list (syntax->datum - #{k\ 868}#) - (syntax->datum - #{id\ 869}#) - #{v\ 873}#) - #{out\ 848}#) - (cons (#{chi\ 467}# - #{i\ 870}# - #{r*\ 845}# - #{w*\ 846}# - #{mod\ 767}#) - #{inits\ 849}#))))))) - #{tmp\ 864}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 863}#))) - ($sc-dispatch - #{tmp\ 863}# - '(any any any)))) - (car #{kw\ 842}#)) - (#{expand-body\ 784}# - #{req\ 839}# - #{opt\ 840}# - #{rest\ 841}# - (if (let ((#{t\ 883}# #{aok\ 847}#)) - (if #{t\ 883}# - #{t\ 883}# - (pair? #{out\ 848}#))) - (cons #{aok\ 847}# (reverse #{out\ 848}#)) - #f) - #{body\ 843}# - (reverse #{vars\ 844}#) - #{r*\ 845}# - #{w*\ 846}# - (reverse #{inits\ 849}#) - '())))) - (#{expand-opt\ 780}# - (lambda (#{req\ 885}# - #{opt\ 886}# - #{rest\ 887}# - #{kw\ 888}# - #{body\ 889}# - #{vars\ 890}# - #{r*\ 891}# - #{w*\ 892}# - #{out\ 893}# - #{inits\ 894}#) - (if (pair? #{opt\ 886}#) - ((lambda (#{tmp\ 907}#) - ((lambda (#{tmp\ 908}#) - (if #{tmp\ 908}# - (apply (lambda (#{id\ 911}# #{i\ 912}#) - (let ((#{v\ 915}# (#{gen-var\ 495}# - #{id\ 911}#))) - (let ((#{l\ 917}# (#{gen-labels\ 400}# - (list #{v\ 915}#)))) - (let ((#{r**\ 919}# - (#{extend-var-env\ 372}# - #{l\ 917}# - (list #{v\ 915}#) - #{r*\ 891}#))) - (let ((#{w**\ 921}# - (#{make-binding-wrap\ 429}# - (list #{id\ 911}#) - #{l\ 917}# - #{w*\ 892}#))) - (#{expand-opt\ 780}# - #{req\ 885}# - (cdr #{opt\ 886}#) - #{rest\ 887}# - #{kw\ 888}# - #{body\ 889}# - (cons #{v\ 915}# - #{vars\ 890}#) - #{r**\ 919}# - #{w**\ 921}# - (cons (syntax->datum - #{id\ 911}#) - #{out\ 893}#) - (cons (#{chi\ 467}# - #{i\ 912}# - #{r*\ 891}# - #{w*\ 892}# - #{mod\ 767}#) - #{inits\ 894}#))))))) - #{tmp\ 908}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 907}#))) - ($sc-dispatch - #{tmp\ 907}# - '(any any)))) - (car #{opt\ 886}#)) - (if #{rest\ 887}# - (let ((#{v\ 926}# (#{gen-var\ 495}# - #{rest\ 887}#))) - (let ((#{l\ 928}# (#{gen-labels\ 400}# - (list #{v\ 926}#)))) - (let ((#{r*\ 930}# - (#{extend-var-env\ 372}# - #{l\ 928}# - (list #{v\ 926}#) - #{r*\ 891}#))) - (let ((#{w*\ 932}# - (#{make-binding-wrap\ 429}# - (list #{rest\ 887}#) - #{l\ 928}# - #{w*\ 892}#))) - (#{expand-kw\ 782}# - #{req\ 885}# - (if (pair? #{out\ 893}#) - (reverse #{out\ 893}#) - #f) - (syntax->datum #{rest\ 887}#) - (if (pair? #{kw\ 888}#) - (cdr #{kw\ 888}#) - #{kw\ 888}#) - #{body\ 889}# - (cons #{v\ 926}# #{vars\ 890}#) - #{r*\ 930}# - #{w*\ 932}# - (if (pair? #{kw\ 888}#) - (car #{kw\ 888}#) - #f) - '() - #{inits\ 894}#))))) - (#{expand-kw\ 782}# - #{req\ 885}# - (if (pair? #{out\ 893}#) - (reverse #{out\ 893}#) - #f) - #f - (if (pair? #{kw\ 888}#) - (cdr #{kw\ 888}#) - #{kw\ 888}#) - #{body\ 889}# - #{vars\ 890}# - #{r*\ 891}# - #{w*\ 892}# - (if (pair? #{kw\ 888}#) (car #{kw\ 888}#) #f) - '() - #{inits\ 894}#))))) - (#{expand-req\ 778}# - (lambda (#{req\ 934}# - #{opt\ 935}# - #{rest\ 936}# - #{kw\ 937}# - #{body\ 938}#) - (let ((#{vars\ 946}# - (map #{gen-var\ 495}# #{req\ 934}#)) - (#{labels\ 947}# - (#{gen-labels\ 400}# #{req\ 934}#))) - (let ((#{r*\ 950}# - (#{extend-var-env\ 372}# - #{labels\ 947}# - #{vars\ 946}# - #{r\ 764}#)) - (#{w*\ 951}# - (#{make-binding-wrap\ 429}# - #{req\ 934}# - #{labels\ 947}# - #{w\ 765}#))) - (#{expand-opt\ 780}# - (map syntax->datum #{req\ 934}#) - #{opt\ 935}# - #{rest\ 936}# - #{kw\ 937}# - #{body\ 938}# - (reverse #{vars\ 946}#) - #{r*\ 950}# - #{w*\ 951}# - '() - '())))))) - ((lambda (#{tmp\ 952}#) - ((lambda (#{tmp\ 953}#) - (if #{tmp\ 953}# - (apply (lambda () (values (quote ()) #f)) - #{tmp\ 953}#) - ((lambda (#{tmp\ 954}#) - (if #{tmp\ 954}# - (apply (lambda (#{args\ 961}# - #{e1\ 962}# - #{e2\ 963}# - #{args*\ 964}# - #{e1*\ 965}# - #{e2*\ 966}#) - (call-with-values - (lambda () - (#{get-formals\ 768}# - #{args\ 961}#)) - (lambda (#{req\ 967}# - #{opt\ 968}# - #{rest\ 969}# - #{kw\ 970}#) - (call-with-values - (lambda () - (#{expand-req\ 778}# - #{req\ 967}# - #{opt\ 968}# - #{rest\ 969}# - #{kw\ 970}# - (cons #{e1\ 962}# - #{e2\ 963}#))) - (lambda (#{meta\ 976}# - #{req\ 977}# - #{opt\ 978}# - #{rest\ 979}# - #{kw\ 980}# - #{inits\ 981}# - #{vars\ 982}# - #{body\ 983}#) - (call-with-values - (lambda () - (#{chi-lambda-case\ 491}# - #{e\ 763}# - #{r\ 764}# - #{w\ 765}# - #{s\ 766}# - #{mod\ 767}# - #{get-formals\ 768}# - (map (lambda (#{tmp\ 994}# - #{tmp\ 993}# - #{tmp\ 992}#) - (cons #{tmp\ 992}# - (cons #{tmp\ 993}# - #{tmp\ 994}#))) - #{e2*\ 966}# - #{e1*\ 965}# - #{args*\ 964}#))) - (lambda (#{meta*\ 996}# - #{else*\ 997}#) - (values - (append - #{meta\ 976}# - #{meta*\ 996}#) - (#{build-lambda-case\ 328}# - #{s\ 766}# - #{req\ 977}# - #{opt\ 978}# - #{rest\ 979}# - #{kw\ 980}# - #{inits\ 981}# - #{vars\ 982}# - #{body\ 983}# - #{else*\ 997}#))))))))) - #{tmp\ 954}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 952}#))) - ($sc-dispatch - #{tmp\ 952}# - '((any any . each-any) - . - #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 952}# (quote ())))) - #{clauses\ 769}#)))) - (#{lambda*-formals\ 489}# - (lambda (#{orig-args\ 1000}#) - (letrec ((#{check\ 1011}# - (lambda (#{req\ 1012}# - #{opt\ 1013}# - #{rest\ 1014}# - #{kw\ 1015}#) - (if (#{distinct-bound-ids?\ 447}# - (append - #{req\ 1012}# - (map car #{opt\ 1013}#) - (if #{rest\ 1014}# - (list #{rest\ 1014}#) - '()) - (if (pair? #{kw\ 1015}#) - (map cadr (cdr #{kw\ 1015}#)) - '()))) - (values - #{req\ 1012}# - #{opt\ 1013}# - #{rest\ 1014}# - #{kw\ 1015}#) - (syntax-violation - 'lambda* - "duplicate identifier in argument list" - #{orig-args\ 1000}#)))) - (#{rest\ 1009}# - (lambda (#{args\ 1023}# + #{meta\ 976}# + #{meta*\ 996}#) + (#{build-lambda-case\ 328}# + #{s\ 766}# + #{req\ 977}# + #{opt\ 978}# + #{rest\ 979}# + #{kw\ 980}# + #{inits\ 981}# + #{vars\ 982}# + #{body\ 983}# + #{else*\ 997}#))))))))) + #{tmp\ 954}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 952}#))) + ($sc-dispatch + #{tmp\ 952}# + '((any any . each-any) + . + #(each (any any . each-any))))))) + ($sc-dispatch #{tmp\ 952}# (quote ())))) + #{clauses\ 769}#)))) + (#{lambda*-formals\ 489}# + (lambda (#{orig-args\ 1000}#) + (letrec* + ((#{check\ 1011}# + (lambda (#{req\ 1012}# + #{opt\ 1013}# + #{rest\ 1014}# + #{kw\ 1015}#) + (if (#{distinct-bound-ids?\ 447}# + (append + #{req\ 1012}# + (map car #{opt\ 1013}#) + (if #{rest\ 1014}# + (list #{rest\ 1014}#) + '()) + (if (pair? #{kw\ 1015}#) + (map cadr (cdr #{kw\ 1015}#)) + '()))) + (values + #{req\ 1012}# + #{opt\ 1013}# + #{rest\ 1014}# + #{kw\ 1015}#) + (syntax-violation + 'lambda* + "duplicate identifier in argument list" + #{orig-args\ 1000}#)))) + (#{rest\ 1009}# + (lambda (#{args\ 1023}# + #{req\ 1024}# + #{opt\ 1025}# + #{kw\ 1026}#) + ((lambda (#{tmp\ 1031}#) + ((lambda (#{tmp\ 1032}#) + (if (if #{tmp\ 1032}# + (apply (lambda (#{r\ 1034}#) + (#{id?\ 382}# #{r\ 1034}#)) + #{tmp\ 1032}#) + #f) + (apply (lambda (#{r\ 1036}#) + (#{check\ 1011}# #{req\ 1024}# #{opt\ 1025}# - #{kw\ 1026}#) - ((lambda (#{tmp\ 1031}#) - ((lambda (#{tmp\ 1032}#) - (if (if #{tmp\ 1032}# - (apply (lambda (#{r\ 1034}#) - (#{id?\ 382}# #{r\ 1034}#)) - #{tmp\ 1032}#) - #f) - (apply (lambda (#{r\ 1036}#) - (#{check\ 1011}# - #{req\ 1024}# - #{opt\ 1025}# - #{r\ 1036}# - #{kw\ 1026}#)) - #{tmp\ 1032}#) - ((lambda (#{else\ 1038}#) - (syntax-violation - 'lambda* - "invalid rest argument" - #{orig-args\ 1000}# - #{args\ 1023}#)) - #{tmp\ 1031}#))) - (list #{tmp\ 1031}#))) - #{args\ 1023}#))) - (#{key\ 1007}# - (lambda (#{args\ 1039}# + #{r\ 1036}# + #{kw\ 1026}#)) + #{tmp\ 1032}#) + ((lambda (#{else\ 1038}#) + (syntax-violation + 'lambda* + "invalid rest argument" + #{orig-args\ 1000}# + #{args\ 1023}#)) + #{tmp\ 1031}#))) + (list #{tmp\ 1031}#))) + #{args\ 1023}#))) + (#{key\ 1007}# + (lambda (#{args\ 1039}# + #{req\ 1040}# + #{opt\ 1041}# + #{rkey\ 1042}#) + ((lambda (#{tmp\ 1047}#) + ((lambda (#{tmp\ 1048}#) + (if #{tmp\ 1048}# + (apply (lambda () + (#{check\ 1011}# #{req\ 1040}# #{opt\ 1041}# - #{rkey\ 1042}#) - ((lambda (#{tmp\ 1047}#) - ((lambda (#{tmp\ 1048}#) - (if #{tmp\ 1048}# - (apply (lambda () - (#{check\ 1011}# - #{req\ 1040}# - #{opt\ 1041}# - #f - (cons #f - (reverse - #{rkey\ 1042}#)))) - #{tmp\ 1048}#) - ((lambda (#{tmp\ 1049}#) - (if (if #{tmp\ 1049}# - (apply (lambda (#{a\ 1052}# - #{b\ 1053}#) - (#{id?\ 382}# - #{a\ 1052}#)) - #{tmp\ 1049}#) - #f) - (apply (lambda (#{a\ 1056}# - #{b\ 1057}#) - ((lambda (#{tmp\ 1059}#) - ((lambda (#{k\ 1061}#) - (#{key\ 1007}# - #{b\ 1057}# - #{req\ 1040}# - #{opt\ 1041}# - (cons (cons #{k\ 1061}# - (cons #{a\ 1056}# - '(#(syntax-object - #f - ((top) - #(ribcage - #(k) - #((top)) - #("i1060")) - #(ribcage - #(a - b) - #((top) - (top)) - #("i1054" - "i1055")) - #(ribcage - () - () - ()) - #(ribcage - #(args - req - opt - rkey) - #((top) - (top) - (top) - (top)) - #("i1043" - "i1044" - "i1045" - "i1046")) - #(ribcage - (check rest - key - opt - req) - ((top) - (top) - (top) - (top) - (top)) - ("i1010" - "i1008" - "i1006" - "i1004" - "i1002")) - #(ribcage - #(orig-args) - #((top)) - #("i1001")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene - guile))))) - #{rkey\ 1042}#))) - #{tmp\ 1059}#)) - (symbol->keyword - (syntax->datum - #{a\ 1056}#)))) - #{tmp\ 1049}#) - ((lambda (#{tmp\ 1062}#) - (if (if #{tmp\ 1062}# - (apply (lambda (#{a\ 1066}# - #{init\ 1067}# - #{b\ 1068}#) - (#{id?\ 382}# - #{a\ 1066}#)) - #{tmp\ 1062}#) - #f) - (apply (lambda (#{a\ 1072}# - #{init\ 1073}# - #{b\ 1074}#) - ((lambda (#{tmp\ 1076}#) - ((lambda (#{k\ 1078}#) - (#{key\ 1007}# - #{b\ 1074}# - #{req\ 1040}# - #{opt\ 1041}# - (cons (list #{k\ 1078}# - #{a\ 1072}# - #{init\ 1073}#) - #{rkey\ 1042}#))) - #{tmp\ 1076}#)) - (symbol->keyword - (syntax->datum - #{a\ 1072}#)))) - #{tmp\ 1062}#) - ((lambda (#{tmp\ 1079}#) - (if (if #{tmp\ 1079}# - (apply (lambda (#{a\ 1084}# - #{init\ 1085}# - #{k\ 1086}# - #{b\ 1087}#) - (if (#{id?\ 382}# - #{a\ 1084}#) - (keyword? - (syntax->datum - #{k\ 1086}#)) - #f)) - #{tmp\ 1079}#) - #f) - (apply (lambda (#{a\ 1094}# - #{init\ 1095}# - #{k\ 1096}# - #{b\ 1097}#) - (#{key\ 1007}# - #{b\ 1097}# - #{req\ 1040}# - #{opt\ 1041}# - (cons (list #{k\ 1096}# - #{a\ 1094}# - #{init\ 1095}#) - #{rkey\ 1042}#))) - #{tmp\ 1079}#) - ((lambda (#{tmp\ 1098}#) - (if (if #{tmp\ 1098}# - (apply (lambda (#{aok\ 1100}#) - (eq? (syntax->datum - #{aok\ 1100}#) - #:allow-other-keys)) - #{tmp\ 1098}#) - #f) - (apply (lambda (#{aok\ 1102}#) - (#{check\ 1011}# - #{req\ 1040}# - #{opt\ 1041}# - #f - (cons #t - (reverse - #{rkey\ 1042}#)))) - #{tmp\ 1098}#) - ((lambda (#{tmp\ 1103}#) - (if (if #{tmp\ 1103}# - (apply (lambda (#{aok\ 1107}# - #{a\ 1108}# - #{b\ 1109}#) - (if (eq? (syntax->datum - #{aok\ 1107}#) - #:allow-other-keys) - (eq? (syntax->datum - #{a\ 1108}#) - #:rest) - #f)) - #{tmp\ 1103}#) - #f) - (apply (lambda (#{aok\ 1115}# - #{a\ 1116}# - #{b\ 1117}#) - (#{rest\ 1009}# - #{b\ 1117}# - #{req\ 1040}# - #{opt\ 1041}# - (cons #t - (reverse - #{rkey\ 1042}#)))) - #{tmp\ 1103}#) - ((lambda (#{tmp\ 1118}#) - (if (if #{tmp\ 1118}# - (apply (lambda (#{aok\ 1121}# - #{r\ 1122}#) - (if (eq? (syntax->datum - #{aok\ 1121}#) - #:allow-other-keys) - (#{id?\ 382}# - #{r\ 1122}#) - #f)) - #{tmp\ 1118}#) - #f) - (apply (lambda (#{aok\ 1127}# - #{r\ 1128}#) - (#{rest\ 1009}# - #{r\ 1128}# - #{req\ 1040}# - #{opt\ 1041}# - (cons #t - (reverse - #{rkey\ 1042}#)))) - #{tmp\ 1118}#) - ((lambda (#{tmp\ 1129}#) - (if (if #{tmp\ 1129}# - (apply (lambda (#{a\ 1132}# - #{b\ 1133}#) - (eq? (syntax->datum - #{a\ 1132}#) - #:rest)) - #{tmp\ 1129}#) - #f) - (apply (lambda (#{a\ 1136}# - #{b\ 1137}#) - (#{rest\ 1009}# - #{b\ 1137}# - #{req\ 1040}# - #{opt\ 1041}# - (cons #f - (reverse - #{rkey\ 1042}#)))) - #{tmp\ 1129}#) - ((lambda (#{tmp\ 1138}#) - (if (if #{tmp\ 1138}# - (apply (lambda (#{r\ 1140}#) - (#{id?\ 382}# - #{r\ 1140}#)) - #{tmp\ 1138}#) - #f) - (apply (lambda (#{r\ 1142}#) - (#{rest\ 1009}# - #{r\ 1142}# - #{req\ 1040}# - #{opt\ 1041}# - (cons #f - (reverse - #{rkey\ 1042}#)))) - #{tmp\ 1138}#) - ((lambda (#{else\ 1144}#) - (syntax-violation - 'lambda* - "invalid keyword argument list" - #{orig-args\ 1000}# - #{args\ 1039}#)) - #{tmp\ 1047}#))) - (list #{tmp\ 1047}#)))) - ($sc-dispatch - #{tmp\ 1047}# - '(any any))))) - ($sc-dispatch - #{tmp\ 1047}# - '(any . - any))))) - ($sc-dispatch - #{tmp\ 1047}# - '(any any any))))) - ($sc-dispatch - #{tmp\ 1047}# - '(any))))) - ($sc-dispatch - #{tmp\ 1047}# - '((any any any) . any))))) - ($sc-dispatch - #{tmp\ 1047}# - '((any any) . any))))) - ($sc-dispatch - #{tmp\ 1047}# - '(any . any))))) - ($sc-dispatch #{tmp\ 1047}# (quote ())))) - #{args\ 1039}#))) - (#{opt\ 1005}# - (lambda (#{args\ 1145}# #{req\ 1146}# #{ropt\ 1147}#) - ((lambda (#{tmp\ 1151}#) - ((lambda (#{tmp\ 1152}#) - (if #{tmp\ 1152}# - (apply (lambda () - (#{check\ 1011}# - #{req\ 1146}# - (reverse #{ropt\ 1147}#) - #f - '())) - #{tmp\ 1152}#) - ((lambda (#{tmp\ 1153}#) - (if (if #{tmp\ 1153}# - (apply (lambda (#{a\ 1156}# - #{b\ 1157}#) - (#{id?\ 382}# - #{a\ 1156}#)) - #{tmp\ 1153}#) - #f) - (apply (lambda (#{a\ 1160}# - #{b\ 1161}#) - (#{opt\ 1005}# - #{b\ 1161}# - #{req\ 1146}# - (cons (cons #{a\ 1160}# + #f + (cons #f (reverse #{rkey\ 1042}#)))) + #{tmp\ 1048}#) + ((lambda (#{tmp\ 1049}#) + (if (if #{tmp\ 1049}# + (apply (lambda (#{a\ 1052}# #{b\ 1053}#) + (#{id?\ 382}# #{a\ 1052}#)) + #{tmp\ 1049}#) + #f) + (apply (lambda (#{a\ 1056}# #{b\ 1057}#) + ((lambda (#{tmp\ 1059}#) + ((lambda (#{k\ 1061}#) + (#{key\ 1007}# + #{b\ 1057}# + #{req\ 1040}# + #{opt\ 1041}# + (cons (cons #{k\ 1061}# + (cons #{a\ 1056}# '(#(syntax-object #f ((top) + #(ribcage + #(k) + #((top)) + #("i1060")) #(ribcage #(a b) #((top) (top)) - #("i1158" - "i1159")) + #("i1054" + "i1055")) #(ribcage () () @@ -1331,13 +605,16 @@ #(ribcage #(args req - ropt) + opt + rkey) #((top) + (top) (top) (top)) - #("i1148" - "i1149" - "i1150")) + #("i1043" + "i1044" + "i1045" + "i1046")) #(ribcage (check rest key @@ -1783,1853 +1060,2486 @@ "i31" "i29"))) (hygiene - guile)))) - #{ropt\ 1147}#))) - #{tmp\ 1153}#) - ((lambda (#{tmp\ 1162}#) - (if (if #{tmp\ 1162}# - (apply (lambda (#{a\ 1166}# - #{init\ 1167}# - #{b\ 1168}#) - (#{id?\ 382}# - #{a\ 1166}#)) - #{tmp\ 1162}#) - #f) - (apply (lambda (#{a\ 1172}# - #{init\ 1173}# - #{b\ 1174}#) - (#{opt\ 1005}# - #{b\ 1174}# - #{req\ 1146}# - (cons (list #{a\ 1172}# - #{init\ 1173}#) - #{ropt\ 1147}#))) - #{tmp\ 1162}#) - ((lambda (#{tmp\ 1175}#) - (if (if #{tmp\ 1175}# - (apply (lambda (#{a\ 1178}# - #{b\ 1179}#) - (eq? (syntax->datum - #{a\ 1178}#) - #:key)) - #{tmp\ 1175}#) - #f) - (apply (lambda (#{a\ 1182}# - #{b\ 1183}#) - (#{key\ 1007}# - #{b\ 1183}# - #{req\ 1146}# - (reverse - #{ropt\ 1147}#) - '())) - #{tmp\ 1175}#) - ((lambda (#{tmp\ 1184}#) - (if (if #{tmp\ 1184}# - (apply (lambda (#{a\ 1187}# - #{b\ 1188}#) - (eq? (syntax->datum - #{a\ 1187}#) - #:rest)) - #{tmp\ 1184}#) - #f) - (apply (lambda (#{a\ 1191}# - #{b\ 1192}#) - (#{rest\ 1009}# - #{b\ 1192}# - #{req\ 1146}# - (reverse - #{ropt\ 1147}#) - '())) - #{tmp\ 1184}#) - ((lambda (#{tmp\ 1193}#) - (if (if #{tmp\ 1193}# - (apply (lambda (#{r\ 1195}#) - (#{id?\ 382}# - #{r\ 1195}#)) - #{tmp\ 1193}#) - #f) - (apply (lambda (#{r\ 1197}#) - (#{rest\ 1009}# - #{r\ 1197}# - #{req\ 1146}# - (reverse - #{ropt\ 1147}#) - '())) - #{tmp\ 1193}#) - ((lambda (#{else\ 1199}#) - (syntax-violation - 'lambda* - "invalid optional argument list" - #{orig-args\ 1000}# - #{args\ 1145}#)) - #{tmp\ 1151}#))) - (list #{tmp\ 1151}#)))) - ($sc-dispatch - #{tmp\ 1151}# - '(any any))))) - ($sc-dispatch - #{tmp\ 1151}# - '(any . any))))) - ($sc-dispatch - #{tmp\ 1151}# - '((any any) . any))))) - ($sc-dispatch - #{tmp\ 1151}# - '(any . any))))) - ($sc-dispatch #{tmp\ 1151}# (quote ())))) - #{args\ 1145}#))) - (#{req\ 1003}# - (lambda (#{args\ 1200}# #{rreq\ 1201}#) - ((lambda (#{tmp\ 1204}#) - ((lambda (#{tmp\ 1205}#) - (if #{tmp\ 1205}# - (apply (lambda () - (#{check\ 1011}# - (reverse #{rreq\ 1201}#) - '() - #f - '())) - #{tmp\ 1205}#) - ((lambda (#{tmp\ 1206}#) - (if (if #{tmp\ 1206}# - (apply (lambda (#{a\ 1209}# - #{b\ 1210}#) - (#{id?\ 382}# - #{a\ 1209}#)) - #{tmp\ 1206}#) - #f) - (apply (lambda (#{a\ 1213}# - #{b\ 1214}#) - (#{req\ 1003}# - #{b\ 1214}# - (cons #{a\ 1213}# - #{rreq\ 1201}#))) - #{tmp\ 1206}#) - ((lambda (#{tmp\ 1215}#) - (if (if #{tmp\ 1215}# - (apply (lambda (#{a\ 1218}# - #{b\ 1219}#) - (eq? (syntax->datum - #{a\ 1218}#) - #:optional)) - #{tmp\ 1215}#) - #f) - (apply (lambda (#{a\ 1222}# - #{b\ 1223}#) - (#{opt\ 1005}# - #{b\ 1223}# - (reverse - #{rreq\ 1201}#) - '())) - #{tmp\ 1215}#) - ((lambda (#{tmp\ 1224}#) - (if (if #{tmp\ 1224}# - (apply (lambda (#{a\ 1227}# - #{b\ 1228}#) + guile))))) + #{rkey\ 1042}#))) + #{tmp\ 1059}#)) + (symbol->keyword + (syntax->datum #{a\ 1056}#)))) + #{tmp\ 1049}#) + ((lambda (#{tmp\ 1062}#) + (if (if #{tmp\ 1062}# + (apply (lambda (#{a\ 1066}# + #{init\ 1067}# + #{b\ 1068}#) + (#{id?\ 382}# #{a\ 1066}#)) + #{tmp\ 1062}#) + #f) + (apply (lambda (#{a\ 1072}# + #{init\ 1073}# + #{b\ 1074}#) + ((lambda (#{tmp\ 1076}#) + ((lambda (#{k\ 1078}#) + (#{key\ 1007}# + #{b\ 1074}# + #{req\ 1040}# + #{opt\ 1041}# + (cons (list #{k\ 1078}# + #{a\ 1072}# + #{init\ 1073}#) + #{rkey\ 1042}#))) + #{tmp\ 1076}#)) + (symbol->keyword + (syntax->datum #{a\ 1072}#)))) + #{tmp\ 1062}#) + ((lambda (#{tmp\ 1079}#) + (if (if #{tmp\ 1079}# + (apply (lambda (#{a\ 1084}# + #{init\ 1085}# + #{k\ 1086}# + #{b\ 1087}#) + (if (#{id?\ 382}# + #{a\ 1084}#) + (keyword? + (syntax->datum + #{k\ 1086}#)) + #f)) + #{tmp\ 1079}#) + #f) + (apply (lambda (#{a\ 1094}# + #{init\ 1095}# + #{k\ 1096}# + #{b\ 1097}#) + (#{key\ 1007}# + #{b\ 1097}# + #{req\ 1040}# + #{opt\ 1041}# + (cons (list #{k\ 1096}# + #{a\ 1094}# + #{init\ 1095}#) + #{rkey\ 1042}#))) + #{tmp\ 1079}#) + ((lambda (#{tmp\ 1098}#) + (if (if #{tmp\ 1098}# + (apply (lambda (#{aok\ 1100}#) + (eq? (syntax->datum + #{aok\ 1100}#) + #:allow-other-keys)) + #{tmp\ 1098}#) + #f) + (apply (lambda (#{aok\ 1102}#) + (#{check\ 1011}# + #{req\ 1040}# + #{opt\ 1041}# + #f + (cons #t + (reverse + #{rkey\ 1042}#)))) + #{tmp\ 1098}#) + ((lambda (#{tmp\ 1103}#) + (if (if #{tmp\ 1103}# + (apply (lambda (#{aok\ 1107}# + #{a\ 1108}# + #{b\ 1109}#) + (if (eq? (syntax->datum + #{aok\ 1107}#) + #:allow-other-keys) (eq? (syntax->datum - #{a\ 1227}#) - #:key)) - #{tmp\ 1224}#) - #f) - (apply (lambda (#{a\ 1231}# - #{b\ 1232}#) - (#{key\ 1007}# - #{b\ 1232}# - (reverse - #{rreq\ 1201}#) - '() - '())) - #{tmp\ 1224}#) - ((lambda (#{tmp\ 1233}#) - (if (if #{tmp\ 1233}# - (apply (lambda (#{a\ 1236}# - #{b\ 1237}#) - (eq? (syntax->datum - #{a\ 1236}#) - #:rest)) - #{tmp\ 1233}#) - #f) - (apply (lambda (#{a\ 1240}# - #{b\ 1241}#) - (#{rest\ 1009}# - #{b\ 1241}# - (reverse - #{rreq\ 1201}#) - '() - '())) - #{tmp\ 1233}#) - ((lambda (#{tmp\ 1242}#) - (if (if #{tmp\ 1242}# - (apply (lambda (#{r\ 1244}#) - (#{id?\ 382}# - #{r\ 1244}#)) - #{tmp\ 1242}#) - #f) - (apply (lambda (#{r\ 1246}#) - (#{rest\ 1009}# - #{r\ 1246}# - (reverse - #{rreq\ 1201}#) - '() - '())) - #{tmp\ 1242}#) - ((lambda (#{else\ 1248}#) - (syntax-violation - 'lambda* - "invalid argument list" - #{orig-args\ 1000}# - #{args\ 1200}#)) - #{tmp\ 1204}#))) - (list #{tmp\ 1204}#)))) - ($sc-dispatch - #{tmp\ 1204}# - '(any any))))) - ($sc-dispatch - #{tmp\ 1204}# - '(any . any))))) - ($sc-dispatch - #{tmp\ 1204}# - '(any . any))))) - ($sc-dispatch - #{tmp\ 1204}# - '(any . any))))) - ($sc-dispatch #{tmp\ 1204}# (quote ())))) - #{args\ 1200}#)))) - (#{req\ 1003}# #{orig-args\ 1000}# (quote ()))))) - (#{chi-simple-lambda\ 487}# - (lambda (#{e\ 1249}# - #{r\ 1250}# - #{w\ 1251}# - #{s\ 1252}# - #{mod\ 1253}# - #{req\ 1254}# - #{rest\ 1255}# - #{meta\ 1256}# - #{body\ 1257}#) - (let ((#{ids\ 1269}# - (if #{rest\ 1255}# - (append #{req\ 1254}# (list #{rest\ 1255}#)) - #{req\ 1254}#))) - (let ((#{vars\ 1271}# - (map #{gen-var\ 495}# #{ids\ 1269}#))) - (let ((#{labels\ 1273}# - (#{gen-labels\ 400}# #{ids\ 1269}#))) - (#{build-simple-lambda\ 324}# - #{s\ 1252}# - (map syntax->datum #{req\ 1254}#) - (if #{rest\ 1255}# - (syntax->datum #{rest\ 1255}#) - #f) - #{vars\ 1271}# - #{meta\ 1256}# - (#{chi-body\ 475}# - #{body\ 1257}# - (#{source-wrap\ 453}# - #{e\ 1249}# - #{w\ 1251}# - #{s\ 1252}# - #{mod\ 1253}#) - (#{extend-var-env\ 372}# - #{labels\ 1273}# - #{vars\ 1271}# - #{r\ 1250}#) - (#{make-binding-wrap\ 429}# - #{ids\ 1269}# - #{labels\ 1273}# - #{w\ 1251}#) - #{mod\ 1253}#))))))) - (#{lambda-formals\ 485}# - (lambda (#{orig-args\ 1276}#) - (letrec ((#{check\ 1281}# - (lambda (#{req\ 1282}# #{rest\ 1283}#) - (if (#{distinct-bound-ids?\ 447}# - (if #{rest\ 1283}# - (cons #{rest\ 1283}# #{req\ 1282}#) - #{req\ 1282}#)) - (values #{req\ 1282}# #f #{rest\ 1283}# #f) + #{a\ 1108}#) + #:rest) + #f)) + #{tmp\ 1103}#) + #f) + (apply (lambda (#{aok\ 1115}# + #{a\ 1116}# + #{b\ 1117}#) + (#{rest\ 1009}# + #{b\ 1117}# + #{req\ 1040}# + #{opt\ 1041}# + (cons #t + (reverse + #{rkey\ 1042}#)))) + #{tmp\ 1103}#) + ((lambda (#{tmp\ 1118}#) + (if (if #{tmp\ 1118}# + (apply (lambda (#{aok\ 1121}# + #{r\ 1122}#) + (if (eq? (syntax->datum + #{aok\ 1121}#) + #:allow-other-keys) + (#{id?\ 382}# + #{r\ 1122}#) + #f)) + #{tmp\ 1118}#) + #f) + (apply (lambda (#{aok\ 1127}# + #{r\ 1128}#) + (#{rest\ 1009}# + #{r\ 1128}# + #{req\ 1040}# + #{opt\ 1041}# + (cons #t + (reverse + #{rkey\ 1042}#)))) + #{tmp\ 1118}#) + ((lambda (#{tmp\ 1129}#) + (if (if #{tmp\ 1129}# + (apply (lambda (#{a\ 1132}# + #{b\ 1133}#) + (eq? (syntax->datum + #{a\ 1132}#) + #:rest)) + #{tmp\ 1129}#) + #f) + (apply (lambda (#{a\ 1136}# + #{b\ 1137}#) + (#{rest\ 1009}# + #{b\ 1137}# + #{req\ 1040}# + #{opt\ 1041}# + (cons #f + (reverse + #{rkey\ 1042}#)))) + #{tmp\ 1129}#) + ((lambda (#{tmp\ 1138}#) + (if (if #{tmp\ 1138}# + (apply (lambda (#{r\ 1140}#) + (#{id?\ 382}# + #{r\ 1140}#)) + #{tmp\ 1138}#) + #f) + (apply (lambda (#{r\ 1142}#) + (#{rest\ 1009}# + #{r\ 1142}# + #{req\ 1040}# + #{opt\ 1041}# + (cons #f + (reverse + #{rkey\ 1042}#)))) + #{tmp\ 1138}#) + ((lambda (#{else\ 1144}#) + (syntax-violation + 'lambda* + "invalid keyword argument list" + #{orig-args\ 1000}# + #{args\ 1039}#)) + #{tmp\ 1047}#))) + (list #{tmp\ 1047}#)))) + ($sc-dispatch + #{tmp\ 1047}# + '(any any))))) + ($sc-dispatch + #{tmp\ 1047}# + '(any . any))))) + ($sc-dispatch + #{tmp\ 1047}# + '(any any any))))) + ($sc-dispatch + #{tmp\ 1047}# + '(any))))) + ($sc-dispatch + #{tmp\ 1047}# + '((any any any) . any))))) + ($sc-dispatch + #{tmp\ 1047}# + '((any any) . any))))) + ($sc-dispatch #{tmp\ 1047}# (quote (any . any)))))) + ($sc-dispatch #{tmp\ 1047}# (quote ())))) + #{args\ 1039}#))) + (#{opt\ 1005}# + (lambda (#{args\ 1145}# #{req\ 1146}# #{ropt\ 1147}#) + ((lambda (#{tmp\ 1151}#) + ((lambda (#{tmp\ 1152}#) + (if #{tmp\ 1152}# + (apply (lambda () + (#{check\ 1011}# + #{req\ 1146}# + (reverse #{ropt\ 1147}#) + #f + '())) + #{tmp\ 1152}#) + ((lambda (#{tmp\ 1153}#) + (if (if #{tmp\ 1153}# + (apply (lambda (#{a\ 1156}# #{b\ 1157}#) + (#{id?\ 382}# #{a\ 1156}#)) + #{tmp\ 1153}#) + #f) + (apply (lambda (#{a\ 1160}# #{b\ 1161}#) + (#{opt\ 1005}# + #{b\ 1161}# + #{req\ 1146}# + (cons (cons #{a\ 1160}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(a b) + #((top) (top)) + #("i1158" "i1159")) + #(ribcage () () ()) + #(ribcage + #(args req ropt) + #((top) (top) (top)) + #("i1148" + "i1149" + "i1150")) + #(ribcage + (check rest + key + opt + req) + ((top) + (top) + (top) + (top) + (top)) + ("i1010" + "i1008" + "i1006" + "i1004" + "i1002")) + #(ribcage + #(orig-args) + #((top)) + #("i1001")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i33" + "i32" + "i31" + "i29"))) + (hygiene guile)))) + #{ropt\ 1147}#))) + #{tmp\ 1153}#) + ((lambda (#{tmp\ 1162}#) + (if (if #{tmp\ 1162}# + (apply (lambda (#{a\ 1166}# + #{init\ 1167}# + #{b\ 1168}#) + (#{id?\ 382}# #{a\ 1166}#)) + #{tmp\ 1162}#) + #f) + (apply (lambda (#{a\ 1172}# + #{init\ 1173}# + #{b\ 1174}#) + (#{opt\ 1005}# + #{b\ 1174}# + #{req\ 1146}# + (cons (list #{a\ 1172}# + #{init\ 1173}#) + #{ropt\ 1147}#))) + #{tmp\ 1162}#) + ((lambda (#{tmp\ 1175}#) + (if (if #{tmp\ 1175}# + (apply (lambda (#{a\ 1178}# + #{b\ 1179}#) + (eq? (syntax->datum + #{a\ 1178}#) + #:key)) + #{tmp\ 1175}#) + #f) + (apply (lambda (#{a\ 1182}# #{b\ 1183}#) + (#{key\ 1007}# + #{b\ 1183}# + #{req\ 1146}# + (reverse #{ropt\ 1147}#) + '())) + #{tmp\ 1175}#) + ((lambda (#{tmp\ 1184}#) + (if (if #{tmp\ 1184}# + (apply (lambda (#{a\ 1187}# + #{b\ 1188}#) + (eq? (syntax->datum + #{a\ 1187}#) + #:rest)) + #{tmp\ 1184}#) + #f) + (apply (lambda (#{a\ 1191}# + #{b\ 1192}#) + (#{rest\ 1009}# + #{b\ 1192}# + #{req\ 1146}# + (reverse #{ropt\ 1147}#) + '())) + #{tmp\ 1184}#) + ((lambda (#{tmp\ 1193}#) + (if (if #{tmp\ 1193}# + (apply (lambda (#{r\ 1195}#) + (#{id?\ 382}# + #{r\ 1195}#)) + #{tmp\ 1193}#) + #f) + (apply (lambda (#{r\ 1197}#) + (#{rest\ 1009}# + #{r\ 1197}# + #{req\ 1146}# + (reverse + #{ropt\ 1147}#) + '())) + #{tmp\ 1193}#) + ((lambda (#{else\ 1199}#) + (syntax-violation + 'lambda* + "invalid optional argument list" + #{orig-args\ 1000}# + #{args\ 1145}#)) + #{tmp\ 1151}#))) + (list #{tmp\ 1151}#)))) + ($sc-dispatch + #{tmp\ 1151}# + '(any any))))) + ($sc-dispatch + #{tmp\ 1151}# + '(any . any))))) + ($sc-dispatch + #{tmp\ 1151}# + '((any any) . any))))) + ($sc-dispatch #{tmp\ 1151}# (quote (any . any)))))) + ($sc-dispatch #{tmp\ 1151}# (quote ())))) + #{args\ 1145}#))) + (#{req\ 1003}# + (lambda (#{args\ 1200}# #{rreq\ 1201}#) + ((lambda (#{tmp\ 1204}#) + ((lambda (#{tmp\ 1205}#) + (if #{tmp\ 1205}# + (apply (lambda () + (#{check\ 1011}# + (reverse #{rreq\ 1201}#) + '() + #f + '())) + #{tmp\ 1205}#) + ((lambda (#{tmp\ 1206}#) + (if (if #{tmp\ 1206}# + (apply (lambda (#{a\ 1209}# #{b\ 1210}#) + (#{id?\ 382}# #{a\ 1209}#)) + #{tmp\ 1206}#) + #f) + (apply (lambda (#{a\ 1213}# #{b\ 1214}#) + (#{req\ 1003}# + #{b\ 1214}# + (cons #{a\ 1213}# #{rreq\ 1201}#))) + #{tmp\ 1206}#) + ((lambda (#{tmp\ 1215}#) + (if (if #{tmp\ 1215}# + (apply (lambda (#{a\ 1218}# #{b\ 1219}#) + (eq? (syntax->datum #{a\ 1218}#) + #:optional)) + #{tmp\ 1215}#) + #f) + (apply (lambda (#{a\ 1222}# #{b\ 1223}#) + (#{opt\ 1005}# + #{b\ 1223}# + (reverse #{rreq\ 1201}#) + '())) + #{tmp\ 1215}#) + ((lambda (#{tmp\ 1224}#) + (if (if #{tmp\ 1224}# + (apply (lambda (#{a\ 1227}# + #{b\ 1228}#) + (eq? (syntax->datum + #{a\ 1227}#) + #:key)) + #{tmp\ 1224}#) + #f) + (apply (lambda (#{a\ 1231}# #{b\ 1232}#) + (#{key\ 1007}# + #{b\ 1232}# + (reverse #{rreq\ 1201}#) + '() + '())) + #{tmp\ 1224}#) + ((lambda (#{tmp\ 1233}#) + (if (if #{tmp\ 1233}# + (apply (lambda (#{a\ 1236}# + #{b\ 1237}#) + (eq? (syntax->datum + #{a\ 1236}#) + #:rest)) + #{tmp\ 1233}#) + #f) + (apply (lambda (#{a\ 1240}# + #{b\ 1241}#) + (#{rest\ 1009}# + #{b\ 1241}# + (reverse #{rreq\ 1201}#) + '() + '())) + #{tmp\ 1233}#) + ((lambda (#{tmp\ 1242}#) + (if (if #{tmp\ 1242}# + (apply (lambda (#{r\ 1244}#) + (#{id?\ 382}# + #{r\ 1244}#)) + #{tmp\ 1242}#) + #f) + (apply (lambda (#{r\ 1246}#) + (#{rest\ 1009}# + #{r\ 1246}# + (reverse + #{rreq\ 1201}#) + '() + '())) + #{tmp\ 1242}#) + ((lambda (#{else\ 1248}#) + (syntax-violation + 'lambda* + "invalid argument list" + #{orig-args\ 1000}# + #{args\ 1200}#)) + #{tmp\ 1204}#))) + (list #{tmp\ 1204}#)))) + ($sc-dispatch + #{tmp\ 1204}# + '(any any))))) + ($sc-dispatch + #{tmp\ 1204}# + '(any . any))))) + ($sc-dispatch + #{tmp\ 1204}# + '(any . any))))) + ($sc-dispatch #{tmp\ 1204}# (quote (any . any)))))) + ($sc-dispatch #{tmp\ 1204}# (quote ())))) + #{args\ 1200}#)))) + (#{req\ 1003}# #{orig-args\ 1000}# (quote ()))))) + (#{chi-simple-lambda\ 487}# + (lambda (#{e\ 1249}# + #{r\ 1250}# + #{w\ 1251}# + #{s\ 1252}# + #{mod\ 1253}# + #{req\ 1254}# + #{rest\ 1255}# + #{meta\ 1256}# + #{body\ 1257}#) + (let ((#{ids\ 1269}# + (if #{rest\ 1255}# + (append #{req\ 1254}# (list #{rest\ 1255}#)) + #{req\ 1254}#))) + (let ((#{vars\ 1271}# + (map #{gen-var\ 495}# #{ids\ 1269}#))) + (let ((#{labels\ 1273}# + (#{gen-labels\ 400}# #{ids\ 1269}#))) + (#{build-simple-lambda\ 324}# + #{s\ 1252}# + (map syntax->datum #{req\ 1254}#) + (if #{rest\ 1255}# + (syntax->datum #{rest\ 1255}#) + #f) + #{vars\ 1271}# + #{meta\ 1256}# + (#{chi-body\ 475}# + #{body\ 1257}# + (#{source-wrap\ 453}# + #{e\ 1249}# + #{w\ 1251}# + #{s\ 1252}# + #{mod\ 1253}#) + (#{extend-var-env\ 372}# + #{labels\ 1273}# + #{vars\ 1271}# + #{r\ 1250}#) + (#{make-binding-wrap\ 429}# + #{ids\ 1269}# + #{labels\ 1273}# + #{w\ 1251}#) + #{mod\ 1253}#))))))) + (#{lambda-formals\ 485}# + (lambda (#{orig-args\ 1276}#) + (letrec* + ((#{check\ 1281}# + (lambda (#{req\ 1282}# #{rest\ 1283}#) + (if (#{distinct-bound-ids?\ 447}# + (if #{rest\ 1283}# + (cons #{rest\ 1283}# #{req\ 1282}#) + #{req\ 1282}#)) + (values #{req\ 1282}# #f #{rest\ 1283}# #f) + (syntax-violation + 'lambda + "duplicate identifier in argument list" + #{orig-args\ 1276}#)))) + (#{req\ 1279}# + (lambda (#{args\ 1289}# #{rreq\ 1290}#) + ((lambda (#{tmp\ 1293}#) + ((lambda (#{tmp\ 1294}#) + (if #{tmp\ 1294}# + (apply (lambda () + (#{check\ 1281}# (reverse #{rreq\ 1290}#) #f)) + #{tmp\ 1294}#) + ((lambda (#{tmp\ 1295}#) + (if (if #{tmp\ 1295}# + (apply (lambda (#{a\ 1298}# #{b\ 1299}#) + (#{id?\ 382}# #{a\ 1298}#)) + #{tmp\ 1295}#) + #f) + (apply (lambda (#{a\ 1302}# #{b\ 1303}#) + (#{req\ 1279}# + #{b\ 1303}# + (cons #{a\ 1302}# #{rreq\ 1290}#))) + #{tmp\ 1295}#) + ((lambda (#{tmp\ 1304}#) + (if (if #{tmp\ 1304}# + (apply (lambda (#{r\ 1306}#) + (#{id?\ 382}# #{r\ 1306}#)) + #{tmp\ 1304}#) + #f) + (apply (lambda (#{r\ 1308}#) + (#{check\ 1281}# + (reverse #{rreq\ 1290}#) + #{r\ 1308}#)) + #{tmp\ 1304}#) + ((lambda (#{else\ 1310}#) + (syntax-violation + 'lambda + "invalid argument list" + #{orig-args\ 1276}# + #{args\ 1289}#)) + #{tmp\ 1293}#))) + (list #{tmp\ 1293}#)))) + ($sc-dispatch #{tmp\ 1293}# (quote (any . any)))))) + ($sc-dispatch #{tmp\ 1293}# (quote ())))) + #{args\ 1289}#)))) + (#{req\ 1279}# #{orig-args\ 1276}# (quote ()))))) + (#{ellipsis?\ 483}# + (lambda (#{x\ 1311}#) + (if (#{nonsymbol-id?\ 380}# #{x\ 1311}#) + (#{free-id=?\ 441}# + #{x\ 1311}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1312")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i33" "i32" "i31" "i29"))) + (hygiene guile))) + #f))) + (#{chi-void\ 481}# + (lambda () (#{build-void\ 302}# #f))) + (#{eval-local-transformer\ 479}# + (lambda (#{expanded\ 1316}# #{mod\ 1317}#) + (let ((#{p\ 1321}# + (#{local-eval-hook\ 293}# + #{expanded\ 1316}# + #{mod\ 1317}#))) + (if (procedure? #{p\ 1321}#) + #{p\ 1321}# + (syntax-violation + #f + "nonprocedure transformer" + #{p\ 1321}#))))) + (#{chi-local-syntax\ 477}# + (lambda (#{rec?\ 1322}# + #{e\ 1323}# + #{r\ 1324}# + #{w\ 1325}# + #{s\ 1326}# + #{mod\ 1327}# + #{k\ 1328}#) + ((lambda (#{tmp\ 1336}#) + ((lambda (#{tmp\ 1337}#) + (if #{tmp\ 1337}# + (apply (lambda (#{_\ 1343}# + #{id\ 1344}# + #{val\ 1345}# + #{e1\ 1346}# + #{e2\ 1347}#) + (let ((#{ids\ 1349}# #{id\ 1344}#)) + (if (not (#{valid-bound-ids?\ 445}# #{ids\ 1349}#)) (syntax-violation - 'lambda - "duplicate identifier in argument list" - #{orig-args\ 1276}#)))) - (#{req\ 1279}# - (lambda (#{args\ 1289}# #{rreq\ 1290}#) - ((lambda (#{tmp\ 1293}#) - ((lambda (#{tmp\ 1294}#) - (if #{tmp\ 1294}# - (apply (lambda () - (#{check\ 1281}# - (reverse #{rreq\ 1290}#) - #f)) - #{tmp\ 1294}#) - ((lambda (#{tmp\ 1295}#) - (if (if #{tmp\ 1295}# - (apply (lambda (#{a\ 1298}# - #{b\ 1299}#) - (#{id?\ 382}# - #{a\ 1298}#)) - #{tmp\ 1295}#) - #f) - (apply (lambda (#{a\ 1302}# - #{b\ 1303}#) - (#{req\ 1279}# - #{b\ 1303}# - (cons #{a\ 1302}# - #{rreq\ 1290}#))) - #{tmp\ 1295}#) - ((lambda (#{tmp\ 1304}#) - (if (if #{tmp\ 1304}# - (apply (lambda (#{r\ 1306}#) - (#{id?\ 382}# - #{r\ 1306}#)) - #{tmp\ 1304}#) - #f) - (apply (lambda (#{r\ 1308}#) - (#{check\ 1281}# - (reverse - #{rreq\ 1290}#) - #{r\ 1308}#)) - #{tmp\ 1304}#) - ((lambda (#{else\ 1310}#) - (syntax-violation - 'lambda - "invalid argument list" - #{orig-args\ 1276}# - #{args\ 1289}#)) - #{tmp\ 1293}#))) - (list #{tmp\ 1293}#)))) - ($sc-dispatch - #{tmp\ 1293}# - '(any . any))))) - ($sc-dispatch #{tmp\ 1293}# (quote ())))) - #{args\ 1289}#)))) - (#{req\ 1279}# #{orig-args\ 1276}# (quote ()))))) - (#{ellipsis?\ 483}# - (lambda (#{x\ 1311}#) - (if (#{nonsymbol-id?\ 380}# #{x\ 1311}#) - (#{free-id=?\ 441}# - #{x\ 1311}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1312")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i33" "i32" "i31" "i29"))) - (hygiene guile))) - #f))) - (#{chi-void\ 481}# - (lambda () (#{build-void\ 302}# #f))) - (#{eval-local-transformer\ 479}# - (lambda (#{expanded\ 1316}# #{mod\ 1317}#) - (let ((#{p\ 1321}# - (#{local-eval-hook\ 293}# - #{expanded\ 1316}# - #{mod\ 1317}#))) - (if (procedure? #{p\ 1321}#) - #{p\ 1321}# - (syntax-violation - #f - "nonprocedure transformer" - #{p\ 1321}#))))) - (#{chi-local-syntax\ 477}# - (lambda (#{rec?\ 1322}# - #{e\ 1323}# - #{r\ 1324}# - #{w\ 1325}# - #{s\ 1326}# - #{mod\ 1327}# - #{k\ 1328}#) - ((lambda (#{tmp\ 1336}#) - ((lambda (#{tmp\ 1337}#) - (if #{tmp\ 1337}# - (apply (lambda (#{_\ 1343}# - #{id\ 1344}# - #{val\ 1345}# - #{e1\ 1346}# - #{e2\ 1347}#) - (let ((#{ids\ 1349}# #{id\ 1344}#)) - (if (not (#{valid-bound-ids?\ 445}# - #{ids\ 1349}#)) - (syntax-violation - #f - "duplicate bound keyword" - #{e\ 1323}#) - (let ((#{labels\ 1352}# - (#{gen-labels\ 400}# - #{ids\ 1349}#))) - (let ((#{new-w\ 1354}# - (#{make-binding-wrap\ 429}# - #{ids\ 1349}# - #{labels\ 1352}# - #{w\ 1325}#))) - (#{k\ 1328}# - (cons #{e1\ 1346}# #{e2\ 1347}#) - (#{extend-env\ 370}# - #{labels\ 1352}# - (let ((#{w\ 1358}# - (if #{rec?\ 1322}# - #{new-w\ 1354}# - #{w\ 1325}#)) - (#{trans-r\ 1359}# - (#{macros-only-env\ 374}# - #{r\ 1324}#))) - (map (lambda (#{x\ 1360}#) - (cons 'macro - (#{eval-local-transformer\ 479}# - (#{chi\ 467}# - #{x\ 1360}# - #{trans-r\ 1359}# - #{w\ 1358}# - #{mod\ 1327}#) - #{mod\ 1327}#))) - #{val\ 1345}#)) - #{r\ 1324}#) - #{new-w\ 1354}# - #{s\ 1326}# - #{mod\ 1327}#)))))) - #{tmp\ 1337}#) - ((lambda (#{_\ 1365}#) - (syntax-violation - #f - "bad local syntax definition" - (#{source-wrap\ 453}# - #{e\ 1323}# - #{w\ 1325}# - #{s\ 1326}# - #{mod\ 1327}#))) - #{tmp\ 1336}#))) - ($sc-dispatch - #{tmp\ 1336}# - '(any #(each (any any)) any . each-any)))) - #{e\ 1323}#))) - (#{chi-body\ 475}# - (lambda (#{body\ 1366}# - #{outer-form\ 1367}# - #{r\ 1368}# - #{w\ 1369}# - #{mod\ 1370}#) - (let ((#{r\ 1378}# - (cons '("placeholder" placeholder) - #{r\ 1368}#))) - (let ((#{ribcage\ 1380}# - (#{make-ribcage\ 403}# - '() - '() - '()))) - (let ((#{w\ 1383}# - (#{make-wrap\ 387}# - (#{wrap-marks\ 389}# #{w\ 1369}#) - (cons #{ribcage\ 1380}# - (#{wrap-subst\ 391}# #{w\ 1369}#))))) - (letrec ((#{parse\ 1392}# - (lambda (#{body\ 1393}# - #{ids\ 1394}# - #{labels\ 1395}# - #{var-ids\ 1396}# - #{vars\ 1397}# - #{vals\ 1398}# - #{bindings\ 1399}#) - (if (null? #{body\ 1393}#) - (syntax-violation - #f - "no expressions in body" - #{outer-form\ 1367}#) - (let ((#{e\ 1404}# (cdar #{body\ 1393}#)) - (#{er\ 1405}# (caar #{body\ 1393}#))) - (call-with-values - (lambda () - (#{syntax-type\ 463}# - #{e\ 1404}# - #{er\ 1405}# - '(()) - (#{source-annotation\ 361}# - #{er\ 1405}#) - #{ribcage\ 1380}# - #{mod\ 1370}# - #f)) - (lambda (#{type\ 1407}# - #{value\ 1408}# - #{e\ 1409}# - #{w\ 1410}# - #{s\ 1411}# - #{mod\ 1412}#) - (if (memv #{type\ 1407}# - '(define-form)) - (let ((#{id\ 1422}# - (#{wrap\ 451}# - #{value\ 1408}# - #{w\ 1410}# - #{mod\ 1412}#)) - (#{label\ 1423}# - (#{gen-label\ 398}#))) - (let ((#{var\ 1425}# - (#{gen-var\ 495}# - #{id\ 1422}#))) - (begin - (#{extend-ribcage!\ 427}# - #{ribcage\ 1380}# - #{id\ 1422}# - #{label\ 1423}#) - (#{parse\ 1392}# - (cdr #{body\ 1393}#) - (cons #{id\ 1422}# - #{ids\ 1394}#) - (cons #{label\ 1423}# - #{labels\ 1395}#) - (cons #{id\ 1422}# - #{var-ids\ 1396}#) - (cons #{var\ 1425}# - #{vars\ 1397}#) - (cons (cons #{er\ 1405}# + #f + "duplicate bound keyword" + #{e\ 1323}#) + (let ((#{labels\ 1352}# + (#{gen-labels\ 400}# #{ids\ 1349}#))) + (let ((#{new-w\ 1354}# + (#{make-binding-wrap\ 429}# + #{ids\ 1349}# + #{labels\ 1352}# + #{w\ 1325}#))) + (#{k\ 1328}# + (cons #{e1\ 1346}# #{e2\ 1347}#) + (#{extend-env\ 370}# + #{labels\ 1352}# + (let ((#{w\ 1358}# + (if #{rec?\ 1322}# + #{new-w\ 1354}# + #{w\ 1325}#)) + (#{trans-r\ 1359}# + (#{macros-only-env\ 374}# + #{r\ 1324}#))) + (map (lambda (#{x\ 1360}#) + (cons 'macro + (#{eval-local-transformer\ 479}# + (#{chi\ 467}# + #{x\ 1360}# + #{trans-r\ 1359}# + #{w\ 1358}# + #{mod\ 1327}#) + #{mod\ 1327}#))) + #{val\ 1345}#)) + #{r\ 1324}#) + #{new-w\ 1354}# + #{s\ 1326}# + #{mod\ 1327}#)))))) + #{tmp\ 1337}#) + ((lambda (#{_\ 1365}#) + (syntax-violation + #f + "bad local syntax definition" + (#{source-wrap\ 453}# + #{e\ 1323}# + #{w\ 1325}# + #{s\ 1326}# + #{mod\ 1327}#))) + #{tmp\ 1336}#))) + ($sc-dispatch + #{tmp\ 1336}# + '(any #(each (any any)) any . each-any)))) + #{e\ 1323}#))) + (#{chi-body\ 475}# + (lambda (#{body\ 1366}# + #{outer-form\ 1367}# + #{r\ 1368}# + #{w\ 1369}# + #{mod\ 1370}#) + (let ((#{r\ 1378}# + (cons '("placeholder" placeholder) + #{r\ 1368}#))) + (let ((#{ribcage\ 1380}# + (#{make-ribcage\ 403}# + '() + '() + '()))) + (let ((#{w\ 1383}# + (#{make-wrap\ 387}# + (#{wrap-marks\ 389}# #{w\ 1369}#) + (cons #{ribcage\ 1380}# + (#{wrap-subst\ 391}# #{w\ 1369}#))))) + (letrec ((#{parse\ 1392}# + (lambda (#{body\ 1393}# + #{ids\ 1394}# + #{labels\ 1395}# + #{var-ids\ 1396}# + #{vars\ 1397}# + #{vals\ 1398}# + #{bindings\ 1399}#) + (if (null? #{body\ 1393}#) + (syntax-violation + #f + "no expressions in body" + #{outer-form\ 1367}#) + (let ((#{e\ 1404}# (cdar #{body\ 1393}#)) + (#{er\ 1405}# (caar #{body\ 1393}#))) + (call-with-values + (lambda () + (#{syntax-type\ 463}# + #{e\ 1404}# + #{er\ 1405}# + '(()) + (#{source-annotation\ 361}# #{er\ 1405}#) + #{ribcage\ 1380}# + #{mod\ 1370}# + #f)) + (lambda (#{type\ 1407}# + #{value\ 1408}# + #{e\ 1409}# + #{w\ 1410}# + #{s\ 1411}# + #{mod\ 1412}#) + (if (memv #{type\ 1407}# + '(define-form)) + (let ((#{id\ 1422}# + (#{wrap\ 451}# + #{value\ 1408}# + #{w\ 1410}# + #{mod\ 1412}#)) + (#{label\ 1423}# + (#{gen-label\ 398}#))) + (let ((#{var\ 1425}# + (#{gen-var\ 495}# + #{id\ 1422}#))) + (begin + (#{extend-ribcage!\ 427}# + #{ribcage\ 1380}# + #{id\ 1422}# + #{label\ 1423}#) + (#{parse\ 1392}# + (cdr #{body\ 1393}#) + (cons #{id\ 1422}# #{ids\ 1394}#) + (cons #{label\ 1423}# + #{labels\ 1395}#) + (cons #{id\ 1422}# + #{var-ids\ 1396}#) + (cons #{var\ 1425}# + #{vars\ 1397}#) + (cons (cons #{er\ 1405}# + (#{wrap\ 451}# + #{e\ 1409}# + #{w\ 1410}# + #{mod\ 1412}#)) + #{vals\ 1398}#) + (cons (cons 'lexical + #{var\ 1425}#) + #{bindings\ 1399}#))))) + (if (memv #{type\ 1407}# + '(define-syntax-form)) + (let ((#{id\ 1430}# + (#{wrap\ 451}# + #{value\ 1408}# + #{w\ 1410}# + #{mod\ 1412}#)) + (#{label\ 1431}# + (#{gen-label\ 398}#))) + (begin + (#{extend-ribcage!\ 427}# + #{ribcage\ 1380}# + #{id\ 1430}# + #{label\ 1431}#) + (#{parse\ 1392}# + (cdr #{body\ 1393}#) + (cons #{id\ 1430}# #{ids\ 1394}#) + (cons #{label\ 1431}# + #{labels\ 1395}#) + #{var-ids\ 1396}# + #{vars\ 1397}# + #{vals\ 1398}# + (cons (cons 'macro + (cons #{er\ 1405}# (#{wrap\ 451}# #{e\ 1409}# #{w\ 1410}# - #{mod\ 1412}#)) - #{vals\ 1398}#) - (cons (cons 'lexical - #{var\ 1425}#) - #{bindings\ 1399}#))))) - (if (memv #{type\ 1407}# - '(define-syntax-form)) - (let ((#{id\ 1430}# - (#{wrap\ 451}# - #{value\ 1408}# - #{w\ 1410}# - #{mod\ 1412}#)) - (#{label\ 1431}# - (#{gen-label\ 398}#))) - (begin - (#{extend-ribcage!\ 427}# - #{ribcage\ 1380}# - #{id\ 1430}# - #{label\ 1431}#) - (#{parse\ 1392}# - (cdr #{body\ 1393}#) - (cons #{id\ 1430}# - #{ids\ 1394}#) - (cons #{label\ 1431}# - #{labels\ 1395}#) - #{var-ids\ 1396}# - #{vars\ 1397}# - #{vals\ 1398}# - (cons (cons 'macro - (cons #{er\ 1405}# - (#{wrap\ 451}# - #{e\ 1409}# - #{w\ 1410}# - #{mod\ 1412}#))) - #{bindings\ 1399}#)))) - (if (memv #{type\ 1407}# - '(begin-form)) - ((lambda (#{tmp\ 1434}#) - ((lambda (#{tmp\ 1435}#) - (if #{tmp\ 1435}# - (apply (lambda (#{_\ 1438}# - #{e1\ 1439}#) - (#{parse\ 1392}# - (letrec ((#{f\ 1442}# - (lambda (#{forms\ 1443}#) - (if (null? #{forms\ 1443}#) - (cdr #{body\ 1393}#) - (cons (cons #{er\ 1405}# - (#{wrap\ 451}# - (car #{forms\ 1443}#) - #{w\ 1410}# - #{mod\ 1412}#)) - (#{f\ 1442}# - (cdr #{forms\ 1443}#))))))) - (#{f\ 1442}# - #{e1\ 1439}#)) - #{ids\ 1394}# - #{labels\ 1395}# - #{var-ids\ 1396}# - #{vars\ 1397}# - #{vals\ 1398}# - #{bindings\ 1399}#)) - #{tmp\ 1435}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1434}#))) - ($sc-dispatch - #{tmp\ 1434}# - '(any . each-any)))) - #{e\ 1409}#) - (if (memv #{type\ 1407}# - '(local-syntax-form)) - (#{chi-local-syntax\ 477}# - #{value\ 1408}# - #{e\ 1409}# - #{er\ 1405}# - #{w\ 1410}# - #{s\ 1411}# - #{mod\ 1412}# - (lambda (#{forms\ 1446}# - #{er\ 1447}# - #{w\ 1448}# - #{s\ 1449}# - #{mod\ 1450}#) - (#{parse\ 1392}# - (letrec ((#{f\ 1458}# - (lambda (#{forms\ 1459}#) - (if (null? #{forms\ 1459}#) - (cdr #{body\ 1393}#) - (cons (cons #{er\ 1447}# - (#{wrap\ 451}# - (car #{forms\ 1459}#) - #{w\ 1448}# - #{mod\ 1450}#)) - (#{f\ 1458}# - (cdr #{forms\ 1459}#))))))) - (#{f\ 1458}# - #{forms\ 1446}#)) - #{ids\ 1394}# - #{labels\ 1395}# - #{var-ids\ 1396}# - #{vars\ 1397}# - #{vals\ 1398}# - #{bindings\ 1399}#))) - (if (null? #{ids\ 1394}#) - (#{build-sequence\ 334}# - #f - (map (lambda (#{x\ 1462}#) - (#{chi\ 467}# - (cdr #{x\ 1462}#) - (car #{x\ 1462}#) - '(()) - #{mod\ 1412}#)) - (cons (cons #{er\ 1405}# - (#{source-wrap\ 453}# - #{e\ 1409}# - #{w\ 1410}# - #{s\ 1411}# - #{mod\ 1412}#)) - (cdr #{body\ 1393}#)))) - (begin - (if (not (#{valid-bound-ids?\ 445}# - #{ids\ 1394}#)) - (syntax-violation - #f - "invalid or duplicate identifier in definition" - #{outer-form\ 1367}#)) - (letrec ((#{loop\ 1469}# - (lambda (#{bs\ 1470}# - #{er-cache\ 1471}# - #{r-cache\ 1472}#) - (if (not (null? #{bs\ 1470}#)) - (let ((#{b\ 1475}# - (car #{bs\ 1470}#))) - (if (eq? (car #{b\ 1475}#) - 'macro) - (let ((#{er\ 1478}# - (cadr #{b\ 1475}#))) - (let ((#{r-cache\ 1480}# - (if (eq? #{er\ 1478}# - #{er-cache\ 1471}#) - #{r-cache\ 1472}# - (#{macros-only-env\ 374}# - #{er\ 1478}#)))) - (begin - (set-cdr! - #{b\ 1475}# - (#{eval-local-transformer\ 479}# - (#{chi\ 467}# - (cddr #{b\ 1475}#) - #{r-cache\ 1480}# - '(()) - #{mod\ 1412}#) - #{mod\ 1412}#)) - (#{loop\ 1469}# - (cdr #{bs\ 1470}#) - #{er\ 1478}# - #{r-cache\ 1480}#)))) - (#{loop\ 1469}# - (cdr #{bs\ 1470}#) - #{er-cache\ 1471}# - #{r-cache\ 1472}#))))))) - (#{loop\ 1469}# - #{bindings\ 1399}# - #f - #f)) - (set-cdr! - #{r\ 1378}# - (#{extend-env\ 370}# - #{labels\ 1395}# - #{bindings\ 1399}# - (cdr #{r\ 1378}#))) - (#{build-letrec\ 340}# - #f - #f - (map syntax->datum - #{var-ids\ 1396}#) - #{vars\ 1397}# - (map (lambda (#{x\ 1483}#) - (#{chi\ 467}# - (cdr #{x\ 1483}#) - (car #{x\ 1483}#) - '(()) - #{mod\ 1412}#)) - #{vals\ 1398}#) - (#{build-sequence\ 334}# - #f - (map (lambda (#{x\ 1487}#) - (#{chi\ 467}# - (cdr #{x\ 1487}#) - (car #{x\ 1487}#) - '(()) + #{mod\ 1412}#))) + #{bindings\ 1399}#)))) + (if (memv #{type\ 1407}# + '(begin-form)) + ((lambda (#{tmp\ 1434}#) + ((lambda (#{tmp\ 1435}#) + (if #{tmp\ 1435}# + (apply (lambda (#{_\ 1438}# + #{e1\ 1439}#) + (#{parse\ 1392}# + (letrec ((#{f\ 1442}# + (lambda (#{forms\ 1443}#) + (if (null? #{forms\ 1443}#) + (cdr #{body\ 1393}#) + (cons (cons #{er\ 1405}# + (#{wrap\ 451}# + (car #{forms\ 1443}#) + #{w\ 1410}# + #{mod\ 1412}#)) + (#{f\ 1442}# + (cdr #{forms\ 1443}#))))))) + (#{f\ 1442}# + #{e1\ 1439}#)) + #{ids\ 1394}# + #{labels\ 1395}# + #{var-ids\ 1396}# + #{vars\ 1397}# + #{vals\ 1398}# + #{bindings\ 1399}#)) + #{tmp\ 1435}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1434}#))) + ($sc-dispatch + #{tmp\ 1434}# + '(any . each-any)))) + #{e\ 1409}#) + (if (memv #{type\ 1407}# + '(local-syntax-form)) + (#{chi-local-syntax\ 477}# + #{value\ 1408}# + #{e\ 1409}# + #{er\ 1405}# + #{w\ 1410}# + #{s\ 1411}# + #{mod\ 1412}# + (lambda (#{forms\ 1446}# + #{er\ 1447}# + #{w\ 1448}# + #{s\ 1449}# + #{mod\ 1450}#) + (#{parse\ 1392}# + (letrec ((#{f\ 1458}# + (lambda (#{forms\ 1459}#) + (if (null? #{forms\ 1459}#) + (cdr #{body\ 1393}#) + (cons (cons #{er\ 1447}# + (#{wrap\ 451}# + (car #{forms\ 1459}#) + #{w\ 1448}# + #{mod\ 1450}#)) + (#{f\ 1458}# + (cdr #{forms\ 1459}#))))))) + (#{f\ 1458}# + #{forms\ 1446}#)) + #{ids\ 1394}# + #{labels\ 1395}# + #{var-ids\ 1396}# + #{vars\ 1397}# + #{vals\ 1398}# + #{bindings\ 1399}#))) + (if (null? #{ids\ 1394}#) + (#{build-sequence\ 334}# + #f + (map (lambda (#{x\ 1462}#) + (#{chi\ 467}# + (cdr #{x\ 1462}#) + (car #{x\ 1462}#) + '(()) + #{mod\ 1412}#)) + (cons (cons #{er\ 1405}# + (#{source-wrap\ 453}# + #{e\ 1409}# + #{w\ 1410}# + #{s\ 1411}# #{mod\ 1412}#)) - (cons (cons #{er\ 1405}# - (#{source-wrap\ 453}# - #{e\ 1409}# - #{w\ 1410}# - #{s\ 1411}# + (cdr #{body\ 1393}#)))) + (begin + (if (not (#{valid-bound-ids?\ 445}# + #{ids\ 1394}#)) + (syntax-violation + #f + "invalid or duplicate identifier in definition" + #{outer-form\ 1367}#)) + (letrec ((#{loop\ 1469}# + (lambda (#{bs\ 1470}# + #{er-cache\ 1471}# + #{r-cache\ 1472}#) + (if (not (null? #{bs\ 1470}#)) + (let ((#{b\ 1475}# + (car #{bs\ 1470}#))) + (if (eq? (car #{b\ 1475}#) + 'macro) + (let ((#{er\ 1478}# + (cadr #{b\ 1475}#))) + (let ((#{r-cache\ 1480}# + (if (eq? #{er\ 1478}# + #{er-cache\ 1471}#) + #{r-cache\ 1472}# + (#{macros-only-env\ 374}# + #{er\ 1478}#)))) + (begin + (set-cdr! + #{b\ 1475}# + (#{eval-local-transformer\ 479}# + (#{chi\ 467}# + (cddr #{b\ 1475}#) + #{r-cache\ 1480}# + '(()) + #{mod\ 1412}#) #{mod\ 1412}#)) - (cdr #{body\ 1393}#)))))))))))))))))) - (#{parse\ 1392}# - (map (lambda (#{x\ 1400}#) - (cons #{r\ 1378}# - (#{wrap\ 451}# - #{x\ 1400}# - #{w\ 1383}# - #{mod\ 1370}#))) - #{body\ 1366}#) - '() - '() - '() - '() - '() - '()))))))) - (#{chi-macro\ 473}# - (lambda (#{p\ 1490}# - #{e\ 1491}# - #{r\ 1492}# - #{w\ 1493}# - #{s\ 1494}# - #{rib\ 1495}# - #{mod\ 1496}#) - (letrec ((#{rebuild-macro-output\ 1505}# - (lambda (#{x\ 1506}# #{m\ 1507}#) - (if (pair? #{x\ 1506}#) - (#{decorate-source\ 300}# - (cons (#{rebuild-macro-output\ 1505}# - (car #{x\ 1506}#) - #{m\ 1507}#) - (#{rebuild-macro-output\ 1505}# - (cdr #{x\ 1506}#) - #{m\ 1507}#)) - #{s\ 1494}#) - (if (#{syntax-object?\ 346}# #{x\ 1506}#) - (let ((#{w\ 1515}# - (#{syntax-object-wrap\ 350}# - #{x\ 1506}#))) - (let ((#{ms\ 1518}# - (#{wrap-marks\ 389}# #{w\ 1515}#)) - (#{s\ 1519}# - (#{wrap-subst\ 391}# #{w\ 1515}#))) - (if (if (pair? #{ms\ 1518}#) - (eq? (car #{ms\ 1518}#) #f) - #f) - (#{make-syntax-object\ 344}# - (#{syntax-object-expression\ 348}# - #{x\ 1506}#) - (#{make-wrap\ 387}# - (cdr #{ms\ 1518}#) - (if #{rib\ 1495}# - (cons #{rib\ 1495}# - (cdr #{s\ 1519}#)) - (cdr #{s\ 1519}#))) - (#{syntax-object-module\ 352}# - #{x\ 1506}#)) - (#{make-syntax-object\ 344}# - (#{decorate-source\ 300}# - (#{syntax-object-expression\ 348}# - #{x\ 1506}#) - #{s\ 1519}#) - (#{make-wrap\ 387}# - (cons #{m\ 1507}# #{ms\ 1518}#) - (if #{rib\ 1495}# - (cons #{rib\ 1495}# - (cons 'shift - #{s\ 1519}#)) - (cons (quote shift) #{s\ 1519}#))) - (#{syntax-object-module\ 352}# - #{x\ 1506}#))))) - (if (vector? #{x\ 1506}#) - (let ((#{n\ 1527}# - (vector-length #{x\ 1506}#))) - (let ((#{v\ 1529}# - (#{decorate-source\ 300}# - (make-vector #{n\ 1527}#) - #{x\ 1506}#))) - (letrec ((#{loop\ 1532}# - (lambda (#{i\ 1533}#) - (if (#{fx=\ 287}# - #{i\ 1533}# - #{n\ 1527}#) - (begin - (if #f #f) - #{v\ 1529}#) - (begin - (vector-set! - #{v\ 1529}# - #{i\ 1533}# - (#{rebuild-macro-output\ 1505}# - (vector-ref - #{x\ 1506}# - #{i\ 1533}#) - #{m\ 1507}#)) - (#{loop\ 1532}# - (#{fx+\ 283}# - #{i\ 1533}# - 1))))))) - (#{loop\ 1532}# 0)))) - (if (symbol? #{x\ 1506}#) - (syntax-violation - #f - "encountered raw symbol in macro output" - (#{source-wrap\ 453}# - #{e\ 1491}# - #{w\ 1493}# - (#{wrap-subst\ 391}# #{w\ 1493}#) - #{mod\ 1496}#) - #{x\ 1506}#) - (#{decorate-source\ 300}# - #{x\ 1506}# - #{s\ 1494}#)))))))) - (#{rebuild-macro-output\ 1505}# - (#{p\ 1490}# - (#{source-wrap\ 453}# - #{e\ 1491}# - (#{anti-mark\ 423}# #{w\ 1493}#) - #{s\ 1494}# - #{mod\ 1496}#)) - (gensym "m"))))) - (#{chi-application\ 471}# - (lambda (#{x\ 1540}# - #{e\ 1541}# - #{r\ 1542}# - #{w\ 1543}# - #{s\ 1544}# - #{mod\ 1545}#) - ((lambda (#{tmp\ 1552}#) - ((lambda (#{tmp\ 1553}#) - (if #{tmp\ 1553}# - (apply (lambda (#{e0\ 1556}# #{e1\ 1557}#) - (#{build-application\ 304}# - #{s\ 1544}# - #{x\ 1540}# - (map (lambda (#{e\ 1558}#) - (#{chi\ 467}# - #{e\ 1558}# - #{r\ 1542}# - #{w\ 1543}# - #{mod\ 1545}#)) - #{e1\ 1557}#))) - #{tmp\ 1553}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1552}#))) - ($sc-dispatch - #{tmp\ 1552}# - '(any . each-any)))) - #{e\ 1541}#))) - (#{chi-expr\ 469}# - (lambda (#{type\ 1561}# - #{value\ 1562}# - #{e\ 1563}# - #{r\ 1564}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#) - (if (memv #{type\ 1561}# (quote (lexical))) - (#{build-lexical-reference\ 310}# - 'value - #{s\ 1566}# - #{e\ 1563}# - #{value\ 1562}#) - (if (memv #{type\ 1561}# (quote (core core-form))) + (#{loop\ 1469}# + (cdr #{bs\ 1470}#) + #{er\ 1478}# + #{r-cache\ 1480}#)))) + (#{loop\ 1469}# + (cdr #{bs\ 1470}#) + #{er-cache\ 1471}# + #{r-cache\ 1472}#))))))) + (#{loop\ 1469}# + #{bindings\ 1399}# + #f + #f)) + (set-cdr! + #{r\ 1378}# + (#{extend-env\ 370}# + #{labels\ 1395}# + #{bindings\ 1399}# + (cdr #{r\ 1378}#))) + (#{build-letrec\ 340}# + #f + #t + (map syntax->datum + #{var-ids\ 1396}#) + #{vars\ 1397}# + (map (lambda (#{x\ 1483}#) + (#{chi\ 467}# + (cdr #{x\ 1483}#) + (car #{x\ 1483}#) + '(()) + #{mod\ 1412}#)) + #{vals\ 1398}#) + (#{build-sequence\ 334}# + #f + (map (lambda (#{x\ 1487}#) + (#{chi\ 467}# + (cdr #{x\ 1487}#) + (car #{x\ 1487}#) + '(()) + #{mod\ 1412}#)) + (cons (cons #{er\ 1405}# + (#{source-wrap\ 453}# + #{e\ 1409}# + #{w\ 1410}# + #{s\ 1411}# + #{mod\ 1412}#)) + (cdr #{body\ 1393}#)))))))))))))))))) + (#{parse\ 1392}# + (map (lambda (#{x\ 1400}#) + (cons #{r\ 1378}# + (#{wrap\ 451}# + #{x\ 1400}# + #{w\ 1383}# + #{mod\ 1370}#))) + #{body\ 1366}#) + '() + '() + '() + '() + '() + '()))))))) + (#{chi-macro\ 473}# + (lambda (#{p\ 1490}# + #{e\ 1491}# + #{r\ 1492}# + #{w\ 1493}# + #{s\ 1494}# + #{rib\ 1495}# + #{mod\ 1496}#) + (letrec* + ((#{rebuild-macro-output\ 1505}# + (lambda (#{x\ 1506}# #{m\ 1507}#) + (if (pair? #{x\ 1506}#) + (#{decorate-source\ 300}# + (cons (#{rebuild-macro-output\ 1505}# + (car #{x\ 1506}#) + #{m\ 1507}#) + (#{rebuild-macro-output\ 1505}# + (cdr #{x\ 1506}#) + #{m\ 1507}#)) + #{s\ 1494}#) + (if (#{syntax-object?\ 346}# #{x\ 1506}#) + (let ((#{w\ 1515}# + (#{syntax-object-wrap\ 350}# #{x\ 1506}#))) + (let ((#{ms\ 1518}# (#{wrap-marks\ 389}# #{w\ 1515}#)) + (#{s\ 1519}# (#{wrap-subst\ 391}# #{w\ 1515}#))) + (if (if (pair? #{ms\ 1518}#) + (eq? (car #{ms\ 1518}#) #f) + #f) + (#{make-syntax-object\ 344}# + (#{syntax-object-expression\ 348}# #{x\ 1506}#) + (#{make-wrap\ 387}# + (cdr #{ms\ 1518}#) + (if #{rib\ 1495}# + (cons #{rib\ 1495}# (cdr #{s\ 1519}#)) + (cdr #{s\ 1519}#))) + (#{syntax-object-module\ 352}# #{x\ 1506}#)) + (#{make-syntax-object\ 344}# + (#{decorate-source\ 300}# + (#{syntax-object-expression\ 348}# #{x\ 1506}#) + #{s\ 1519}#) + (#{make-wrap\ 387}# + (cons #{m\ 1507}# #{ms\ 1518}#) + (if #{rib\ 1495}# + (cons #{rib\ 1495}# + (cons (quote shift) #{s\ 1519}#)) + (cons (quote shift) #{s\ 1519}#))) + (#{syntax-object-module\ 352}# #{x\ 1506}#))))) + (if (vector? #{x\ 1506}#) + (let ((#{n\ 1527}# (vector-length #{x\ 1506}#))) + (let ((#{v\ 1529}# + (#{decorate-source\ 300}# + (make-vector #{n\ 1527}#) + #{x\ 1506}#))) + (letrec ((#{loop\ 1532}# + (lambda (#{i\ 1533}#) + (if (#{fx=\ 287}# + #{i\ 1533}# + #{n\ 1527}#) + (begin (if #f #f) #{v\ 1529}#) + (begin + (vector-set! + #{v\ 1529}# + #{i\ 1533}# + (#{rebuild-macro-output\ 1505}# + (vector-ref + #{x\ 1506}# + #{i\ 1533}#) + #{m\ 1507}#)) + (#{loop\ 1532}# + (#{fx+\ 283}# #{i\ 1533}# 1))))))) + (#{loop\ 1532}# 0)))) + (if (symbol? #{x\ 1506}#) + (syntax-violation + #f + "encountered raw symbol in macro output" + (#{source-wrap\ 453}# + #{e\ 1491}# + #{w\ 1493}# + (#{wrap-subst\ 391}# #{w\ 1493}#) + #{mod\ 1496}#) + #{x\ 1506}#) + (#{decorate-source\ 300}# + #{x\ 1506}# + #{s\ 1494}#)))))))) + (#{rebuild-macro-output\ 1505}# + (#{p\ 1490}# + (#{source-wrap\ 453}# + #{e\ 1491}# + (#{anti-mark\ 423}# #{w\ 1493}#) + #{s\ 1494}# + #{mod\ 1496}#)) + (gensym "m"))))) + (#{chi-application\ 471}# + (lambda (#{x\ 1540}# + #{e\ 1541}# + #{r\ 1542}# + #{w\ 1543}# + #{s\ 1544}# + #{mod\ 1545}#) + ((lambda (#{tmp\ 1552}#) + ((lambda (#{tmp\ 1553}#) + (if #{tmp\ 1553}# + (apply (lambda (#{e0\ 1556}# #{e1\ 1557}#) + (#{build-application\ 304}# + #{s\ 1544}# + #{x\ 1540}# + (map (lambda (#{e\ 1558}#) + (#{chi\ 467}# + #{e\ 1558}# + #{r\ 1542}# + #{w\ 1543}# + #{mod\ 1545}#)) + #{e1\ 1557}#))) + #{tmp\ 1553}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1552}#))) + ($sc-dispatch + #{tmp\ 1552}# + '(any . each-any)))) + #{e\ 1541}#))) + (#{chi-expr\ 469}# + (lambda (#{type\ 1561}# + #{value\ 1562}# + #{e\ 1563}# + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#) + (if (memv #{type\ 1561}# (quote (lexical))) + (#{build-lexical-reference\ 310}# + 'value + #{s\ 1566}# + #{e\ 1563}# + #{value\ 1562}#) + (if (memv #{type\ 1561}# (quote (core core-form))) + (#{value\ 1562}# + #{e\ 1563}# + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#) + (if (memv #{type\ 1561}# (quote (module-ref))) + (call-with-values + (lambda () (#{value\ 1562}# #{e\ 1563}# #{r\ 1564}# + #{w\ 1565}#)) + (lambda (#{e\ 1578}# + #{r\ 1579}# + #{w\ 1580}# + #{s\ 1581}# + #{mod\ 1582}#) + (#{chi\ 467}# + #{e\ 1578}# + #{r\ 1579}# + #{w\ 1580}# + #{mod\ 1582}#))) + (if (memv #{type\ 1561}# (quote (lexical-call))) + (#{chi-application\ 471}# + (let ((#{id\ 1590}# (car #{e\ 1563}#))) + (#{build-lexical-reference\ 310}# + 'fun + (#{source-annotation\ 361}# #{id\ 1590}#) + (if (#{syntax-object?\ 346}# #{id\ 1590}#) + (syntax->datum #{id\ 1590}#) + #{id\ 1590}#) + #{value\ 1562}#)) + #{e\ 1563}# + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#) + (if (memv #{type\ 1561}# (quote (global-call))) + (#{chi-application\ 471}# + (#{build-global-reference\ 316}# + (#{source-annotation\ 361}# (car #{e\ 1563}#)) + (if (#{syntax-object?\ 346}# #{value\ 1562}#) + (#{syntax-object-expression\ 348}# + #{value\ 1562}#) + #{value\ 1562}#) + (if (#{syntax-object?\ 346}# #{value\ 1562}#) + (#{syntax-object-module\ 352}# #{value\ 1562}#) + #{mod\ 1567}#)) + #{e\ 1563}# + #{r\ 1564}# #{w\ 1565}# #{s\ 1566}# #{mod\ 1567}#) - (if (memv #{type\ 1561}# (quote (module-ref))) - (call-with-values - (lambda () - (#{value\ 1562}# + (if (memv #{type\ 1561}# (quote (constant))) + (#{build-data\ 332}# + #{s\ 1566}# + (#{strip\ 493}# + (#{source-wrap\ 453}# #{e\ 1563}# - #{r\ 1564}# - #{w\ 1565}#)) - (lambda (#{e\ 1578}# - #{r\ 1579}# - #{w\ 1580}# - #{s\ 1581}# - #{mod\ 1582}#) - (#{chi\ 467}# - #{e\ 1578}# - #{r\ 1579}# - #{w\ 1580}# - #{mod\ 1582}#))) - (if (memv #{type\ 1561}# (quote (lexical-call))) - (#{chi-application\ 471}# - (let ((#{id\ 1590}# (car #{e\ 1563}#))) - (#{build-lexical-reference\ 310}# - 'fun - (#{source-annotation\ 361}# #{id\ 1590}#) - (if (#{syntax-object?\ 346}# #{id\ 1590}#) - (syntax->datum #{id\ 1590}#) - #{id\ 1590}#) - #{value\ 1562}#)) - #{e\ 1563}# - #{r\ 1564}# - #{w\ 1565}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#) + '(()))) + (if (memv #{type\ 1561}# (quote (global))) + (#{build-global-reference\ 316}# #{s\ 1566}# + #{value\ 1562}# #{mod\ 1567}#) - (if (memv #{type\ 1561}# (quote (global-call))) + (if (memv #{type\ 1561}# (quote (call))) (#{chi-application\ 471}# - (#{build-global-reference\ 316}# - (#{source-annotation\ 361}# (car #{e\ 1563}#)) - (if (#{syntax-object?\ 346}# #{value\ 1562}#) - (#{syntax-object-expression\ 348}# - #{value\ 1562}#) - #{value\ 1562}#) - (if (#{syntax-object?\ 346}# #{value\ 1562}#) - (#{syntax-object-module\ 352}# #{value\ 1562}#) - #{mod\ 1567}#)) + (#{chi\ 467}# + (car #{e\ 1563}#) + #{r\ 1564}# + #{w\ 1565}# + #{mod\ 1567}#) #{e\ 1563}# #{r\ 1564}# #{w\ 1565}# #{s\ 1566}# #{mod\ 1567}#) - (if (memv #{type\ 1561}# (quote (constant))) - (#{build-data\ 332}# - #{s\ 1566}# - (#{strip\ 493}# - (#{source-wrap\ 453}# - #{e\ 1563}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#) - '(()))) - (if (memv #{type\ 1561}# (quote (global))) - (#{build-global-reference\ 316}# - #{s\ 1566}# + (if (memv #{type\ 1561}# (quote (begin-form))) + ((lambda (#{tmp\ 1597}#) + ((lambda (#{tmp\ 1598}#) + (if #{tmp\ 1598}# + (apply (lambda (#{_\ 1602}# + #{e1\ 1603}# + #{e2\ 1604}#) + (#{chi-sequence\ 455}# + (cons #{e1\ 1603}# #{e2\ 1604}#) + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#)) + #{tmp\ 1598}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1597}#))) + ($sc-dispatch + #{tmp\ 1597}# + '(any any . each-any)))) + #{e\ 1563}#) + (if (memv #{type\ 1561}# + '(local-syntax-form)) + (#{chi-local-syntax\ 477}# #{value\ 1562}# - #{mod\ 1567}#) - (if (memv #{type\ 1561}# (quote (call))) - (#{chi-application\ 471}# - (#{chi\ 467}# - (car #{e\ 1563}#) - #{r\ 1564}# - #{w\ 1565}# - #{mod\ 1567}#) - #{e\ 1563}# - #{r\ 1564}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#) - (if (memv #{type\ 1561}# (quote (begin-form))) - ((lambda (#{tmp\ 1597}#) - ((lambda (#{tmp\ 1598}#) - (if #{tmp\ 1598}# - (apply (lambda (#{_\ 1602}# - #{e1\ 1603}# - #{e2\ 1604}#) - (#{chi-sequence\ 455}# - (cons #{e1\ 1603}# - #{e2\ 1604}#) - #{r\ 1564}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#)) - #{tmp\ 1598}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1597}#))) - ($sc-dispatch - #{tmp\ 1597}# - '(any any . each-any)))) - #{e\ 1563}#) - (if (memv #{type\ 1561}# - '(local-syntax-form)) - (#{chi-local-syntax\ 477}# + #{e\ 1563}# + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}# + #{chi-sequence\ 455}#) + (if (memv #{type\ 1561}# (quote (eval-when-form))) + ((lambda (#{tmp\ 1608}#) + ((lambda (#{tmp\ 1609}#) + (if #{tmp\ 1609}# + (apply (lambda (#{_\ 1614}# + #{x\ 1615}# + #{e1\ 1616}# + #{e2\ 1617}#) + (let ((#{when-list\ 1619}# + (#{chi-when-list\ 461}# + #{e\ 1563}# + #{x\ 1615}# + #{w\ 1565}#))) + (if (memq 'eval + #{when-list\ 1619}#) + (#{chi-sequence\ 455}# + (cons #{e1\ 1616}# + #{e2\ 1617}#) + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#) + (#{chi-void\ 481}#)))) + #{tmp\ 1609}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1608}#))) + ($sc-dispatch + #{tmp\ 1608}# + '(any each-any any . each-any)))) + #{e\ 1563}#) + (if (memv #{type\ 1561}# + '(define-form define-syntax-form)) + (syntax-violation + #f + "definition in expression context" + #{e\ 1563}# + (#{wrap\ 451}# #{value\ 1562}# - #{e\ 1563}# - #{r\ 1564}# #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}# - #{chi-sequence\ 455}#) + #{mod\ 1567}#)) + (if (memv #{type\ 1561}# (quote (syntax))) + (syntax-violation + #f + "reference to pattern variable outside syntax form" + (#{source-wrap\ 453}# + #{e\ 1563}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#)) (if (memv #{type\ 1561}# - '(eval-when-form)) - ((lambda (#{tmp\ 1608}#) - ((lambda (#{tmp\ 1609}#) - (if #{tmp\ 1609}# - (apply (lambda (#{_\ 1614}# - #{x\ 1615}# - #{e1\ 1616}# - #{e2\ 1617}#) - (let ((#{when-list\ 1619}# - (#{chi-when-list\ 461}# - #{e\ 1563}# - #{x\ 1615}# - #{w\ 1565}#))) - (if (memq 'eval - #{when-list\ 1619}#) - (#{chi-sequence\ 455}# - (cons #{e1\ 1616}# - #{e2\ 1617}#) - #{r\ 1564}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#) - (#{chi-void\ 481}#)))) - #{tmp\ 1609}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1608}#))) - ($sc-dispatch - #{tmp\ 1608}# - '(any each-any any . each-any)))) - #{e\ 1563}#) - (if (memv #{type\ 1561}# - '(define-form - define-syntax-form)) - (syntax-violation - #f - "definition in expression context" + '(displaced-lexical)) + (syntax-violation + #f + "reference to identifier outside its scope" + (#{source-wrap\ 453}# #{e\ 1563}# - (#{wrap\ 451}# - #{value\ 1562}# - #{w\ 1565}# - #{mod\ 1567}#)) - (if (memv #{type\ 1561}# - '(syntax)) - (syntax-violation - #f - "reference to pattern variable outside syntax form" - (#{source-wrap\ 453}# - #{e\ 1563}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#)) - (if (memv #{type\ 1561}# - '(displaced-lexical)) - (syntax-violation - #f - "reference to identifier outside its scope" - (#{source-wrap\ 453}# - #{e\ 1563}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#)) - (syntax-violation - #f - "unexpected syntax" - (#{source-wrap\ 453}# - #{e\ 1563}# - #{w\ 1565}# - #{s\ 1566}# - #{mod\ 1567}#)))))))))))))))))) - (#{chi\ 467}# - (lambda (#{e\ 1626}# - #{r\ 1627}# - #{w\ 1628}# - #{mod\ 1629}#) - (call-with-values - (lambda () - (#{syntax-type\ 463}# - #{e\ 1626}# - #{r\ 1627}# - #{w\ 1628}# - (#{source-annotation\ 361}# #{e\ 1626}#) - #f - #{mod\ 1629}# - #f)) - (lambda (#{type\ 1634}# - #{value\ 1635}# - #{e\ 1636}# - #{w\ 1637}# - #{s\ 1638}# - #{mod\ 1639}#) - (#{chi-expr\ 469}# - #{type\ 1634}# - #{value\ 1635}# - #{e\ 1636}# - #{r\ 1627}# - #{w\ 1637}# - #{s\ 1638}# - #{mod\ 1639}#))))) - (#{chi-top\ 465}# - (lambda (#{e\ 1646}# - #{r\ 1647}# - #{w\ 1648}# - #{m\ 1649}# - #{esew\ 1650}# - #{mod\ 1651}#) - (call-with-values - (lambda () - (#{syntax-type\ 463}# - #{e\ 1646}# - #{r\ 1647}# - #{w\ 1648}# - (#{source-annotation\ 361}# #{e\ 1646}#) - #f - #{mod\ 1651}# - #f)) - (lambda (#{type\ 1672}# - #{value\ 1673}# - #{e\ 1674}# - #{w\ 1675}# - #{s\ 1676}# - #{mod\ 1677}#) - (if (memv #{type\ 1672}# (quote (begin-form))) - ((lambda (#{tmp\ 1685}#) - ((lambda (#{tmp\ 1686}#) - (if #{tmp\ 1686}# - (apply (lambda (#{_\ 1688}#) (#{chi-void\ 481}#)) - #{tmp\ 1686}#) - ((lambda (#{tmp\ 1689}#) - (if #{tmp\ 1689}# - (apply (lambda (#{_\ 1693}# - #{e1\ 1694}# - #{e2\ 1695}#) - (#{chi-top-sequence\ 457}# - (cons #{e1\ 1694}# #{e2\ 1695}#) - #{r\ 1647}# - #{w\ 1675}# - #{s\ 1676}# - #{m\ 1649}# - #{esew\ 1650}# - #{mod\ 1677}#)) - #{tmp\ 1689}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1685}#))) - ($sc-dispatch - #{tmp\ 1685}# - '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1685}# (quote (any))))) - #{e\ 1674}#) - (if (memv #{type\ 1672}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 477}# - #{value\ 1673}# - #{e\ 1674}# - #{r\ 1647}# - #{w\ 1675}# - #{s\ 1676}# - #{mod\ 1677}# - (lambda (#{body\ 1698}# - #{r\ 1699}# - #{w\ 1700}# - #{s\ 1701}# - #{mod\ 1702}#) - (#{chi-top-sequence\ 457}# - #{body\ 1698}# - #{r\ 1699}# - #{w\ 1700}# - #{s\ 1701}# - #{m\ 1649}# - #{esew\ 1650}# - #{mod\ 1702}#))) - (if (memv #{type\ 1672}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1709}#) - ((lambda (#{tmp\ 1710}#) - (if #{tmp\ 1710}# - (apply (lambda (#{_\ 1715}# - #{x\ 1716}# - #{e1\ 1717}# - #{e2\ 1718}#) - (let ((#{when-list\ 1721}# - (#{chi-when-list\ 461}# - #{e\ 1674}# - #{x\ 1716}# - #{w\ 1675}#)) - (#{body\ 1722}# - (cons #{e1\ 1717}# - #{e2\ 1718}#))) - (if (eq? #{m\ 1649}# (quote e)) - (if (memq 'eval - #{when-list\ 1721}#) + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#)) + (syntax-violation + #f + "unexpected syntax" + (#{source-wrap\ 453}# + #{e\ 1563}# + #{w\ 1565}# + #{s\ 1566}# + #{mod\ 1567}#)))))))))))))))))) + (#{chi\ 467}# + (lambda (#{e\ 1626}# + #{r\ 1627}# + #{w\ 1628}# + #{mod\ 1629}#) + (call-with-values + (lambda () + (#{syntax-type\ 463}# + #{e\ 1626}# + #{r\ 1627}# + #{w\ 1628}# + (#{source-annotation\ 361}# #{e\ 1626}#) + #f + #{mod\ 1629}# + #f)) + (lambda (#{type\ 1634}# + #{value\ 1635}# + #{e\ 1636}# + #{w\ 1637}# + #{s\ 1638}# + #{mod\ 1639}#) + (#{chi-expr\ 469}# + #{type\ 1634}# + #{value\ 1635}# + #{e\ 1636}# + #{r\ 1627}# + #{w\ 1637}# + #{s\ 1638}# + #{mod\ 1639}#))))) + (#{chi-top\ 465}# + (lambda (#{e\ 1646}# + #{r\ 1647}# + #{w\ 1648}# + #{m\ 1649}# + #{esew\ 1650}# + #{mod\ 1651}#) + (call-with-values + (lambda () + (#{syntax-type\ 463}# + #{e\ 1646}# + #{r\ 1647}# + #{w\ 1648}# + (#{source-annotation\ 361}# #{e\ 1646}#) + #f + #{mod\ 1651}# + #f)) + (lambda (#{type\ 1672}# + #{value\ 1673}# + #{e\ 1674}# + #{w\ 1675}# + #{s\ 1676}# + #{mod\ 1677}#) + (if (memv #{type\ 1672}# (quote (begin-form))) + ((lambda (#{tmp\ 1685}#) + ((lambda (#{tmp\ 1686}#) + (if #{tmp\ 1686}# + (apply (lambda (#{_\ 1688}#) (#{chi-void\ 481}#)) + #{tmp\ 1686}#) + ((lambda (#{tmp\ 1689}#) + (if #{tmp\ 1689}# + (apply (lambda (#{_\ 1693}# + #{e1\ 1694}# + #{e2\ 1695}#) + (#{chi-top-sequence\ 457}# + (cons #{e1\ 1694}# #{e2\ 1695}#) + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + #{m\ 1649}# + #{esew\ 1650}# + #{mod\ 1677}#)) + #{tmp\ 1689}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1685}#))) + ($sc-dispatch + #{tmp\ 1685}# + '(any any . each-any))))) + ($sc-dispatch #{tmp\ 1685}# (quote (any))))) + #{e\ 1674}#) + (if (memv #{type\ 1672}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 477}# + #{value\ 1673}# + #{e\ 1674}# + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + #{mod\ 1677}# + (lambda (#{body\ 1698}# + #{r\ 1699}# + #{w\ 1700}# + #{s\ 1701}# + #{mod\ 1702}#) + (#{chi-top-sequence\ 457}# + #{body\ 1698}# + #{r\ 1699}# + #{w\ 1700}# + #{s\ 1701}# + #{m\ 1649}# + #{esew\ 1650}# + #{mod\ 1702}#))) + (if (memv #{type\ 1672}# (quote (eval-when-form))) + ((lambda (#{tmp\ 1709}#) + ((lambda (#{tmp\ 1710}#) + (if #{tmp\ 1710}# + (apply (lambda (#{_\ 1715}# + #{x\ 1716}# + #{e1\ 1717}# + #{e2\ 1718}#) + (let ((#{when-list\ 1721}# + (#{chi-when-list\ 461}# + #{e\ 1674}# + #{x\ 1716}# + #{w\ 1675}#)) + (#{body\ 1722}# + (cons #{e1\ 1717}# #{e2\ 1718}#))) + (if (eq? #{m\ 1649}# (quote e)) + (if (memq 'eval + #{when-list\ 1721}#) + (#{chi-top-sequence\ 457}# + #{body\ 1722}# + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + (if (memq 'expand + #{when-list\ 1721}#) + 'c&e + 'e) + '(eval) + #{mod\ 1677}#) + (begin + (if (memq 'expand + #{when-list\ 1721}#) + (#{top-level-eval-hook\ 291}# (#{chi-top-sequence\ 457}# #{body\ 1722}# #{r\ 1647}# #{w\ 1675}# #{s\ 1676}# - (if (memq 'expand - #{when-list\ 1721}#) - 'c&e - 'e) + 'e '(eval) #{mod\ 1677}#) - (begin - (if (memq 'expand - #{when-list\ 1721}#) - (#{top-level-eval-hook\ 291}# - (#{chi-top-sequence\ 457}# - #{body\ 1722}# - #{r\ 1647}# - #{w\ 1675}# - #{s\ 1676}# - 'e - '(eval) - #{mod\ 1677}#) - #{mod\ 1677}#)) - (#{chi-void\ 481}#))) - (if (memq 'load - #{when-list\ 1721}#) - (if (let ((#{t\ 1731}# - (memq 'compile - #{when-list\ 1721}#))) - (if #{t\ 1731}# - #{t\ 1731}# - (let ((#{t\ 1734}# - (memq 'expand - #{when-list\ 1721}#))) - (if #{t\ 1734}# - #{t\ 1734}# - (if (eq? #{m\ 1649}# - 'c&e) - (memq 'eval - #{when-list\ 1721}#) - #f))))) - (#{chi-top-sequence\ 457}# - #{body\ 1722}# - #{r\ 1647}# - #{w\ 1675}# - #{s\ 1676}# - 'c&e - '(compile load) - #{mod\ 1677}#) - (if (memq #{m\ 1649}# - '(c c&e)) - (#{chi-top-sequence\ 457}# - #{body\ 1722}# - #{r\ 1647}# - #{w\ 1675}# - #{s\ 1676}# - 'c - '(load) - #{mod\ 1677}#) - (#{chi-void\ 481}#))) - (if (let ((#{t\ 1742}# - (memq 'compile - #{when-list\ 1721}#))) - (if #{t\ 1742}# - #{t\ 1742}# - (let ((#{t\ 1745}# - (memq 'expand - #{when-list\ 1721}#))) - (if #{t\ 1745}# - #{t\ 1745}# - (if (eq? #{m\ 1649}# - 'c&e) - (memq 'eval - #{when-list\ 1721}#) - #f))))) - (begin - (#{top-level-eval-hook\ 291}# - (#{chi-top-sequence\ 457}# - #{body\ 1722}# - #{r\ 1647}# - #{w\ 1675}# - #{s\ 1676}# - 'e - '(eval) - #{mod\ 1677}#) - #{mod\ 1677}#) - (#{chi-void\ 481}#)) - (#{chi-void\ 481}#)))))) - #{tmp\ 1710}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1709}#))) - ($sc-dispatch - #{tmp\ 1709}# - '(any each-any any . each-any)))) - #{e\ 1674}#) - (if (memv #{type\ 1672}# - '(define-syntax-form)) - (let ((#{n\ 1753}# - (#{id-var-name\ 439}# - #{value\ 1673}# - #{w\ 1675}#)) - (#{r\ 1754}# - (#{macros-only-env\ 374}# #{r\ 1647}#))) - (if (memv #{m\ 1649}# (quote (c))) - (if (memq (quote compile) #{esew\ 1650}#) - (let ((#{e\ 1757}# - (#{chi-install-global\ 459}# - #{n\ 1753}# - (#{chi\ 467}# - #{e\ 1674}# - #{r\ 1754}# - #{w\ 1675}# - #{mod\ 1677}#)))) - (begin - (#{top-level-eval-hook\ 291}# - #{e\ 1757}# - #{mod\ 1677}#) - (if (memq (quote load) #{esew\ 1650}#) - #{e\ 1757}# - (#{chi-void\ 481}#)))) - (if (memq (quote load) #{esew\ 1650}#) + #{mod\ 1677}#)) + (#{chi-void\ 481}#))) + (if (memq 'load + #{when-list\ 1721}#) + (if (let ((#{t\ 1731}# + (memq 'compile + #{when-list\ 1721}#))) + (if #{t\ 1731}# + #{t\ 1731}# + (let ((#{t\ 1734}# + (memq 'expand + #{when-list\ 1721}#))) + (if #{t\ 1734}# + #{t\ 1734}# + (if (eq? #{m\ 1649}# + 'c&e) + (memq 'eval + #{when-list\ 1721}#) + #f))))) + (#{chi-top-sequence\ 457}# + #{body\ 1722}# + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + 'c&e + '(compile load) + #{mod\ 1677}#) + (if (memq #{m\ 1649}# + '(c c&e)) + (#{chi-top-sequence\ 457}# + #{body\ 1722}# + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + 'c + '(load) + #{mod\ 1677}#) + (#{chi-void\ 481}#))) + (if (let ((#{t\ 1742}# + (memq 'compile + #{when-list\ 1721}#))) + (if #{t\ 1742}# + #{t\ 1742}# + (let ((#{t\ 1745}# + (memq 'expand + #{when-list\ 1721}#))) + (if #{t\ 1745}# + #{t\ 1745}# + (if (eq? #{m\ 1649}# + 'c&e) + (memq 'eval + #{when-list\ 1721}#) + #f))))) + (begin + (#{top-level-eval-hook\ 291}# + (#{chi-top-sequence\ 457}# + #{body\ 1722}# + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + 'e + '(eval) + #{mod\ 1677}#) + #{mod\ 1677}#) + (#{chi-void\ 481}#)) + (#{chi-void\ 481}#)))))) + #{tmp\ 1710}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1709}#))) + ($sc-dispatch + #{tmp\ 1709}# + '(any each-any any . each-any)))) + #{e\ 1674}#) + (if (memv #{type\ 1672}# + '(define-syntax-form)) + (let ((#{n\ 1753}# + (#{id-var-name\ 439}# + #{value\ 1673}# + #{w\ 1675}#)) + (#{r\ 1754}# + (#{macros-only-env\ 374}# #{r\ 1647}#))) + (if (memv #{m\ 1649}# (quote (c))) + (if (memq (quote compile) #{esew\ 1650}#) + (let ((#{e\ 1757}# (#{chi-install-global\ 459}# #{n\ 1753}# (#{chi\ 467}# #{e\ 1674}# #{r\ 1754}# #{w\ 1675}# - #{mod\ 1677}#)) - (#{chi-void\ 481}#))) - (if (memv #{m\ 1649}# (quote (c&e))) - (let ((#{e\ 1760}# - (#{chi-install-global\ 459}# - #{n\ 1753}# - (#{chi\ 467}# - #{e\ 1674}# - #{r\ 1754}# - #{w\ 1675}# - #{mod\ 1677}#)))) - (begin - (#{top-level-eval-hook\ 291}# - #{e\ 1760}# - #{mod\ 1677}#) - #{e\ 1760}#)) - (begin - (if (memq (quote eval) #{esew\ 1650}#) - (#{top-level-eval-hook\ 291}# - (#{chi-install-global\ 459}# - #{n\ 1753}# - (#{chi\ 467}# - #{e\ 1674}# - #{r\ 1754}# - #{w\ 1675}# - #{mod\ 1677}#)) - #{mod\ 1677}#)) - (#{chi-void\ 481}#))))) - (if (memv #{type\ 1672}# (quote (define-form))) - (let ((#{n\ 1765}# - (#{id-var-name\ 439}# - #{value\ 1673}# - #{w\ 1675}#))) - (let ((#{type\ 1767}# - (#{binding-type\ 365}# - (#{lookup\ 376}# - #{n\ 1765}# - #{r\ 1647}# - #{mod\ 1677}#)))) - (if (memv #{type\ 1767}# - '(global core macro module-ref)) - (begin - (if (if (memq #{m\ 1649}# (quote (c c&e))) - (if (not (module-local-variable - (current-module) - #{n\ 1765}#)) - (current-module) - #f) - #f) - (let ((#{old\ 1773}# - (module-variable - (current-module) - #{n\ 1765}#))) - (module-define! - (current-module) - #{n\ 1765}# - (if (variable? #{old\ 1773}#) - (variable-ref #{old\ 1773}#) - #f)))) - (let ((#{x\ 1776}# - (#{build-global-definition\ 322}# - #{s\ 1676}# - #{n\ 1765}# - (#{chi\ 467}# - #{e\ 1674}# - #{r\ 1647}# - #{w\ 1675}# - #{mod\ 1677}#)))) - (begin - (if (eq? #{m\ 1649}# (quote c&e)) - (#{top-level-eval-hook\ 291}# - #{x\ 1776}# - #{mod\ 1677}#)) - #{x\ 1776}#))) - (if (memv #{type\ 1767}# - '(displaced-lexical)) - (syntax-violation - #f - "identifier out of context" - #{e\ 1674}# - (#{wrap\ 451}# - #{value\ 1673}# - #{w\ 1675}# - #{mod\ 1677}#)) - (syntax-violation - #f - "cannot define keyword at top level" - #{e\ 1674}# - (#{wrap\ 451}# - #{value\ 1673}# - #{w\ 1675}# - #{mod\ 1677}#)))))) - (let ((#{x\ 1782}# - (#{chi-expr\ 469}# - #{type\ 1672}# - #{value\ 1673}# + #{mod\ 1677}#)))) + (begin + (#{top-level-eval-hook\ 291}# + #{e\ 1757}# + #{mod\ 1677}#) + (if (memq (quote load) #{esew\ 1650}#) + #{e\ 1757}# + (#{chi-void\ 481}#)))) + (if (memq (quote load) #{esew\ 1650}#) + (#{chi-install-global\ 459}# + #{n\ 1753}# + (#{chi\ 467}# + #{e\ 1674}# + #{r\ 1754}# + #{w\ 1675}# + #{mod\ 1677}#)) + (#{chi-void\ 481}#))) + (if (memv #{m\ 1649}# (quote (c&e))) + (let ((#{e\ 1760}# + (#{chi-install-global\ 459}# + #{n\ 1753}# + (#{chi\ 467}# #{e\ 1674}# - #{r\ 1647}# + #{r\ 1754}# #{w\ 1675}# - #{s\ 1676}# - #{mod\ 1677}#))) - (begin - (if (eq? #{m\ 1649}# (quote c&e)) - (#{top-level-eval-hook\ 291}# - #{x\ 1782}# + #{mod\ 1677}#)))) + (begin + (#{top-level-eval-hook\ 291}# + #{e\ 1760}# + #{mod\ 1677}#) + #{e\ 1760}#)) + (begin + (if (memq (quote eval) #{esew\ 1650}#) + (#{top-level-eval-hook\ 291}# + (#{chi-install-global\ 459}# + #{n\ 1753}# + (#{chi\ 467}# + #{e\ 1674}# + #{r\ 1754}# + #{w\ 1675}# #{mod\ 1677}#)) - #{x\ 1782}#))))))))))) - (#{syntax-type\ 463}# - (lambda (#{e\ 1783}# - #{r\ 1784}# - #{w\ 1785}# - #{s\ 1786}# - #{rib\ 1787}# - #{mod\ 1788}# - #{for-car?\ 1789}#) - (if (symbol? #{e\ 1783}#) - (let ((#{n\ 1801}# - (#{id-var-name\ 439}# #{e\ 1783}# #{w\ 1785}#))) - (let ((#{b\ 1803}# - (#{lookup\ 376}# - #{n\ 1801}# - #{r\ 1784}# - #{mod\ 1788}#))) - (let ((#{type\ 1805}# - (#{binding-type\ 365}# #{b\ 1803}#))) - (if (memv #{type\ 1805}# (quote (lexical))) + #{mod\ 1677}#)) + (#{chi-void\ 481}#))))) + (if (memv #{type\ 1672}# (quote (define-form))) + (let ((#{n\ 1765}# + (#{id-var-name\ 439}# + #{value\ 1673}# + #{w\ 1675}#))) + (let ((#{type\ 1767}# + (#{binding-type\ 365}# + (#{lookup\ 376}# + #{n\ 1765}# + #{r\ 1647}# + #{mod\ 1677}#)))) + (if (memv #{type\ 1767}# + '(global core macro module-ref)) + (begin + (if (if (memq #{m\ 1649}# (quote (c c&e))) + (if (not (module-local-variable + (current-module) + #{n\ 1765}#)) + (current-module) + #f) + #f) + (let ((#{old\ 1773}# + (module-variable + (current-module) + #{n\ 1765}#))) + (module-define! + (current-module) + #{n\ 1765}# + (if (variable? #{old\ 1773}#) + (variable-ref #{old\ 1773}#) + #f)))) + (let ((#{x\ 1776}# + (#{build-global-definition\ 322}# + #{s\ 1676}# + #{n\ 1765}# + (#{chi\ 467}# + #{e\ 1674}# + #{r\ 1647}# + #{w\ 1675}# + #{mod\ 1677}#)))) + (begin + (if (eq? #{m\ 1649}# (quote c&e)) + (#{top-level-eval-hook\ 291}# + #{x\ 1776}# + #{mod\ 1677}#)) + #{x\ 1776}#))) + (if (memv #{type\ 1767}# + '(displaced-lexical)) + (syntax-violation + #f + "identifier out of context" + #{e\ 1674}# + (#{wrap\ 451}# + #{value\ 1673}# + #{w\ 1675}# + #{mod\ 1677}#)) + (syntax-violation + #f + "cannot define keyword at top level" + #{e\ 1674}# + (#{wrap\ 451}# + #{value\ 1673}# + #{w\ 1675}# + #{mod\ 1677}#)))))) + (let ((#{x\ 1782}# + (#{chi-expr\ 469}# + #{type\ 1672}# + #{value\ 1673}# + #{e\ 1674}# + #{r\ 1647}# + #{w\ 1675}# + #{s\ 1676}# + #{mod\ 1677}#))) + (begin + (if (eq? #{m\ 1649}# (quote c&e)) + (#{top-level-eval-hook\ 291}# + #{x\ 1782}# + #{mod\ 1677}#)) + #{x\ 1782}#))))))))))) + (#{syntax-type\ 463}# + (lambda (#{e\ 1783}# + #{r\ 1784}# + #{w\ 1785}# + #{s\ 1786}# + #{rib\ 1787}# + #{mod\ 1788}# + #{for-car?\ 1789}#) + (if (symbol? #{e\ 1783}#) + (let ((#{n\ 1801}# + (#{id-var-name\ 439}# #{e\ 1783}# #{w\ 1785}#))) + (let ((#{b\ 1803}# + (#{lookup\ 376}# + #{n\ 1801}# + #{r\ 1784}# + #{mod\ 1788}#))) + (let ((#{type\ 1805}# + (#{binding-type\ 365}# #{b\ 1803}#))) + (if (memv #{type\ 1805}# (quote (lexical))) + (values + #{type\ 1805}# + (#{binding-value\ 367}# #{b\ 1803}#) + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#) + (if (memv #{type\ 1805}# (quote (global))) + (values + #{type\ 1805}# + #{n\ 1801}# + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#) + (if (memv #{type\ 1805}# (quote (macro))) + (if #{for-car?\ 1789}# (values #{type\ 1805}# (#{binding-value\ 367}# #{b\ 1803}#) @@ -3637,5321 +3547,5249 @@ #{w\ 1785}# #{s\ 1786}# #{mod\ 1788}#) - (if (memv #{type\ 1805}# (quote (global))) - (values - #{type\ 1805}# - #{n\ 1801}# + (#{syntax-type\ 463}# + (#{chi-macro\ 473}# + (#{binding-value\ 367}# #{b\ 1803}#) #{e\ 1783}# + #{r\ 1784}# #{w\ 1785}# #{s\ 1786}# + #{rib\ 1787}# #{mod\ 1788}#) - (if (memv #{type\ 1805}# (quote (macro))) - (if #{for-car?\ 1789}# - (values - #{type\ 1805}# - (#{binding-value\ 367}# #{b\ 1803}#) - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (#{syntax-type\ 463}# - (#{chi-macro\ 473}# - (#{binding-value\ 367}# #{b\ 1803}#) - #{e\ 1783}# - #{r\ 1784}# - #{w\ 1785}# - #{s\ 1786}# - #{rib\ 1787}# - #{mod\ 1788}#) - #{r\ 1784}# - '(()) - #{s\ 1786}# - #{rib\ 1787}# - #{mod\ 1788}# - #f)) - (values - #{type\ 1805}# - (#{binding-value\ 367}# #{b\ 1803}#) - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#))))))) - (if (pair? #{e\ 1783}#) - (let ((#{first\ 1814}# (car #{e\ 1783}#))) - (call-with-values - (lambda () - (#{syntax-type\ 463}# - #{first\ 1814}# #{r\ 1784}# - #{w\ 1785}# + '(()) #{s\ 1786}# #{rib\ 1787}# #{mod\ 1788}# - #t)) - (lambda (#{ftype\ 1815}# - #{fval\ 1816}# - #{fe\ 1817}# - #{fw\ 1818}# - #{fs\ 1819}# - #{fmod\ 1820}#) - (if (memv #{ftype\ 1815}# (quote (lexical))) - (values - 'lexical-call + #f)) + (values + #{type\ 1805}# + (#{binding-value\ 367}# #{b\ 1803}#) + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#))))))) + (if (pair? #{e\ 1783}#) + (let ((#{first\ 1814}# (car #{e\ 1783}#))) + (call-with-values + (lambda () + (#{syntax-type\ 463}# + #{first\ 1814}# + #{r\ 1784}# + #{w\ 1785}# + #{s\ 1786}# + #{rib\ 1787}# + #{mod\ 1788}# + #t)) + (lambda (#{ftype\ 1815}# + #{fval\ 1816}# + #{fe\ 1817}# + #{fw\ 1818}# + #{fs\ 1819}# + #{fmod\ 1820}#) + (if (memv #{ftype\ 1815}# (quote (lexical))) + (values + 'lexical-call + #{fval\ 1816}# + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#) + (if (memv #{ftype\ 1815}# (quote (global))) + (values + 'global-call + (#{make-syntax-object\ 344}# + #{fval\ 1816}# + #{w\ 1785}# + #{fmod\ 1820}#) + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#) + (if (memv #{ftype\ 1815}# (quote (macro))) + (#{syntax-type\ 463}# + (#{chi-macro\ 473}# #{fval\ 1816}# #{e\ 1783}# + #{r\ 1784}# #{w\ 1785}# #{s\ 1786}# + #{rib\ 1787}# #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# (quote (global))) + #{r\ 1784}# + '(()) + #{s\ 1786}# + #{rib\ 1787}# + #{mod\ 1788}# + #{for-car?\ 1789}#) + (if (memv #{ftype\ 1815}# (quote (module-ref))) + (call-with-values + (lambda () + (#{fval\ 1816}# + #{e\ 1783}# + #{r\ 1784}# + #{w\ 1785}#)) + (lambda (#{e\ 1832}# + #{r\ 1833}# + #{w\ 1834}# + #{s\ 1835}# + #{mod\ 1836}#) + (#{syntax-type\ 463}# + #{e\ 1832}# + #{r\ 1833}# + #{w\ 1834}# + #{s\ 1835}# + #{rib\ 1787}# + #{mod\ 1836}# + #{for-car?\ 1789}#))) + (if (memv #{ftype\ 1815}# (quote (core))) (values - 'global-call - (#{make-syntax-object\ 344}# - #{fval\ 1816}# - #{w\ 1785}# - #{fmod\ 1820}#) + 'core-form + #{fval\ 1816}# #{e\ 1783}# #{w\ 1785}# #{s\ 1786}# #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# (quote (macro))) - (#{syntax-type\ 463}# - (#{chi-macro\ 473}# - #{fval\ 1816}# + (if (memv #{ftype\ 1815}# (quote (local-syntax))) + (values + 'local-syntax-form + #{fval\ 1816}# + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#) + (if (memv #{ftype\ 1815}# (quote (begin))) + (values + 'begin-form + #f #{e\ 1783}# - #{r\ 1784}# #{w\ 1785}# #{s\ 1786}# - #{rib\ 1787}# #{mod\ 1788}#) - #{r\ 1784}# - '(()) - #{s\ 1786}# - #{rib\ 1787}# - #{mod\ 1788}# - #{for-car?\ 1789}#) - (if (memv #{ftype\ 1815}# (quote (module-ref))) - (call-with-values - (lambda () - (#{fval\ 1816}# - #{e\ 1783}# - #{r\ 1784}# - #{w\ 1785}#)) - (lambda (#{e\ 1832}# - #{r\ 1833}# - #{w\ 1834}# - #{s\ 1835}# - #{mod\ 1836}#) - (#{syntax-type\ 463}# - #{e\ 1832}# - #{r\ 1833}# - #{w\ 1834}# - #{s\ 1835}# - #{rib\ 1787}# - #{mod\ 1836}# - #{for-car?\ 1789}#))) - (if (memv #{ftype\ 1815}# (quote (core))) + (if (memv #{ftype\ 1815}# (quote (eval-when))) (values - 'core-form - #{fval\ 1816}# + 'eval-when-form + #f #{e\ 1783}# #{w\ 1785}# #{s\ 1786}# #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# - '(local-syntax)) - (values - 'local-syntax-form - #{fval\ 1816}# - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# (quote (begin))) - (values - 'begin-form - #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# - '(eval-when)) - (values - 'eval-when-form - #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# - '(define)) - ((lambda (#{tmp\ 1847}#) - ((lambda (#{tmp\ 1848}#) - (if (if #{tmp\ 1848}# - (apply (lambda (#{_\ 1852}# - #{name\ 1853}# - #{val\ 1854}#) - (#{id?\ 382}# - #{name\ 1853}#)) - #{tmp\ 1848}#) - #f) - (apply (lambda (#{_\ 1858}# - #{name\ 1859}# - #{val\ 1860}#) - (values - 'define-form - #{name\ 1859}# - #{val\ 1860}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#)) - #{tmp\ 1848}#) - ((lambda (#{tmp\ 1861}#) - (if (if #{tmp\ 1861}# - (apply (lambda (#{_\ 1867}# - #{name\ 1868}# - #{args\ 1869}# - #{e1\ 1870}# - #{e2\ 1871}#) - (if (#{id?\ 382}# - #{name\ 1868}#) - (#{valid-bound-ids?\ 445}# - (#{lambda-var-list\ 497}# - #{args\ 1869}#)) - #f)) - #{tmp\ 1861}#) - #f) - (apply (lambda (#{_\ 1879}# - #{name\ 1880}# - #{args\ 1881}# - #{e1\ 1882}# - #{e2\ 1883}#) - (values - 'define-form - (#{wrap\ 451}# - #{name\ 1880}# - #{w\ 1785}# - #{mod\ 1788}#) - (#{decorate-source\ 300}# - (cons '#(syntax-object - lambda - ((top) - #(ribcage - #(_ - name - args - e1 - e2) - #((top) - (top) - (top) - (top) - (top)) - #("i1874" - "i1875" - "i1876" - "i1877" - "i1878")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1821" - "i1822" - "i1823" - "i1824" - "i1825" - "i1826")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1813")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1790" - "i1791" - "i1792" - "i1793" - "i1794" - "i1795" - "i1796")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene - guile)) - (#{wrap\ 451}# - (cons #{args\ 1881}# - (cons #{e1\ 1882}# - #{e2\ 1883}#)) - #{w\ 1785}# - #{mod\ 1788}#)) - #{s\ 1786}#) - '(()) - #{s\ 1786}# - #{mod\ 1788}#)) - #{tmp\ 1861}#) - ((lambda (#{tmp\ 1886}#) - (if (if #{tmp\ 1886}# - (apply (lambda (#{_\ 1889}# - #{name\ 1890}#) - (#{id?\ 382}# - #{name\ 1890}#)) - #{tmp\ 1886}#) - #f) - (apply (lambda (#{_\ 1893}# - #{name\ 1894}#) - (values - 'define-form - (#{wrap\ 451}# - #{name\ 1894}# - #{w\ 1785}# - #{mod\ 1788}#) - '(#(syntax-object - if - ((top) - #(ribcage - #(_ - name) - #((top) - (top)) - #("i1891" - "i1892")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1821" - "i1822" - "i1823" - "i1824" - "i1825" - "i1826")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1813")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1790" - "i1791" - "i1792" - "i1793" - "i1794" - "i1795" - "i1796")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene - guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(_ - name) - #((top) - (top)) - #("i1891" - "i1892")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1821" - "i1822" - "i1823" - "i1824" - "i1825" - "i1826")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1813")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1790" - "i1791" - "i1792" - "i1793" - "i1794" - "i1795" - "i1796")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene - guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(_ - name) - #((top) - (top)) - #("i1891" - "i1892")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1821" - "i1822" - "i1823" - "i1824" - "i1825" - "i1826")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1813")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1790" - "i1791" - "i1792" - "i1793" - "i1794" - "i1795" - "i1796")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene - guile))) - '(()) - #{s\ 1786}# - #{mod\ 1788}#)) - #{tmp\ 1886}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1847}#))) - ($sc-dispatch - #{tmp\ 1847}# - '(any any))))) - ($sc-dispatch - #{tmp\ 1847}# - '(any (any . any) - any - . - each-any))))) - ($sc-dispatch - #{tmp\ 1847}# - '(any any any)))) - #{e\ 1783}#) - (if (memv #{ftype\ 1815}# - '(define-syntax)) - ((lambda (#{tmp\ 1897}#) - ((lambda (#{tmp\ 1898}#) - (if (if #{tmp\ 1898}# - (apply (lambda (#{_\ 1902}# - #{name\ 1903}# - #{val\ 1904}#) - (#{id?\ 382}# - #{name\ 1903}#)) - #{tmp\ 1898}#) - #f) - (apply (lambda (#{_\ 1908}# - #{name\ 1909}# - #{val\ 1910}#) - (values - 'define-syntax-form - #{name\ 1909}# - #{val\ 1910}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#)) - #{tmp\ 1898}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1897}#))) - ($sc-dispatch - #{tmp\ 1897}# - '(any any any)))) - #{e\ 1783}#) - (values - 'call - #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#)))))))))))))) - (if (#{syntax-object?\ 346}# #{e\ 1783}#) - (#{syntax-type\ 463}# - (#{syntax-object-expression\ 348}# #{e\ 1783}#) - #{r\ 1784}# - (#{join-wraps\ 433}# - #{w\ 1785}# - (#{syntax-object-wrap\ 350}# #{e\ 1783}#)) - (let ((#{t\ 1916}# - (#{source-annotation\ 361}# #{e\ 1783}#))) - (if #{t\ 1916}# #{t\ 1916}# #{s\ 1786}#)) - #{rib\ 1787}# - (let ((#{t\ 1920}# - (#{syntax-object-module\ 352}# #{e\ 1783}#))) - (if #{t\ 1920}# #{t\ 1920}# #{mod\ 1788}#)) - #{for-car?\ 1789}#) - (if (self-evaluating? #{e\ 1783}#) - (values - 'constant - #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (values - 'other - #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#))))))) - (#{chi-when-list\ 461}# - (lambda (#{e\ 1925}# #{when-list\ 1926}# #{w\ 1927}#) - (letrec ((#{f\ 1934}# - (lambda (#{when-list\ 1935}# #{situations\ 1936}#) - (if (null? #{when-list\ 1935}#) - #{situations\ 1936}# - (#{f\ 1934}# - (cdr #{when-list\ 1935}#) - (cons (let ((#{x\ 1938}# - (car #{when-list\ 1935}#))) - (if (#{free-id=?\ 441}# - #{x\ 1938}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1937")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1931" "i1932" "i1933")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1928" "i1929" "i1930")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i33" "i32" "i31" "i29"))) - (hygiene guile))) - 'compile - (if (#{free-id=?\ 441}# - #{x\ 1938}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1937")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1931" - "i1932" - "i1933")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1928" - "i1929" - "i1930")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene guile))) - 'load - (if (#{free-id=?\ 441}# - #{x\ 1938}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1937")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) (top) (top)) - #("i1931" - "i1932" - "i1933")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1928" - "i1929" - "i1930")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene guile))) - 'eval - (if (#{free-id=?\ 441}# - #{x\ 1938}# - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1937")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) (top) (top)) - #("i1931" - "i1932" - "i1933")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1928" - "i1929" - "i1930")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene guile))) - 'expand - (syntax-violation - 'eval-when - "invalid situation" - #{e\ 1925}# - (#{wrap\ 451}# - #{x\ 1938}# - #{w\ 1927}# - #f))))))) - #{situations\ 1936}#)))))) - (#{f\ 1934}# #{when-list\ 1926}# (quote ()))))) - (#{chi-install-global\ 459}# - (lambda (#{name\ 1948}# #{e\ 1949}#) - (#{build-global-definition\ 322}# - #f - #{name\ 1948}# - (#{build-application\ 304}# + (if (memv #{ftype\ 1815}# (quote (define))) + ((lambda (#{tmp\ 1847}#) + ((lambda (#{tmp\ 1848}#) + (if (if #{tmp\ 1848}# + (apply (lambda (#{_\ 1852}# + #{name\ 1853}# + #{val\ 1854}#) + (#{id?\ 382}# + #{name\ 1853}#)) + #{tmp\ 1848}#) + #f) + (apply (lambda (#{_\ 1858}# + #{name\ 1859}# + #{val\ 1860}#) + (values + 'define-form + #{name\ 1859}# + #{val\ 1860}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#)) + #{tmp\ 1848}#) + ((lambda (#{tmp\ 1861}#) + (if (if #{tmp\ 1861}# + (apply (lambda (#{_\ 1867}# + #{name\ 1868}# + #{args\ 1869}# + #{e1\ 1870}# + #{e2\ 1871}#) + (if (#{id?\ 382}# + #{name\ 1868}#) + (#{valid-bound-ids?\ 445}# + (#{lambda-var-list\ 497}# + #{args\ 1869}#)) + #f)) + #{tmp\ 1861}#) + #f) + (apply (lambda (#{_\ 1879}# + #{name\ 1880}# + #{args\ 1881}# + #{e1\ 1882}# + #{e2\ 1883}#) + (values + 'define-form + (#{wrap\ 451}# + #{name\ 1880}# + #{w\ 1785}# + #{mod\ 1788}#) + (#{decorate-source\ 300}# + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ + name + args + e1 + e2) + #((top) + (top) + (top) + (top) + (top)) + #("i1874" + "i1875" + "i1876" + "i1877" + "i1878")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1821" + "i1822" + "i1823" + "i1824" + "i1825" + "i1826")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1813")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1790" + "i1791" + "i1792" + "i1793" + "i1794" + "i1795" + "i1796")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i33" + "i32" + "i31" + "i29"))) + (hygiene + guile)) + (#{wrap\ 451}# + (cons #{args\ 1881}# + (cons #{e1\ 1882}# + #{e2\ 1883}#)) + #{w\ 1785}# + #{mod\ 1788}#)) + #{s\ 1786}#) + '(()) + #{s\ 1786}# + #{mod\ 1788}#)) + #{tmp\ 1861}#) + ((lambda (#{tmp\ 1886}#) + (if (if #{tmp\ 1886}# + (apply (lambda (#{_\ 1889}# + #{name\ 1890}#) + (#{id?\ 382}# + #{name\ 1890}#)) + #{tmp\ 1886}#) + #f) + (apply (lambda (#{_\ 1893}# + #{name\ 1894}#) + (values + 'define-form + (#{wrap\ 451}# + #{name\ 1894}# + #{w\ 1785}# + #{mod\ 1788}#) + '(#(syntax-object + if + ((top) + #(ribcage + #(_ + name) + #((top) + (top)) + #("i1891" + "i1892")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1821" + "i1822" + "i1823" + "i1824" + "i1825" + "i1826")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1813")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1790" + "i1791" + "i1792" + "i1793" + "i1794" + "i1795" + "i1796")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i33" + "i32" + "i31" + "i29"))) + (hygiene + guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(_ + name) + #((top) + (top)) + #("i1891" + "i1892")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1821" + "i1822" + "i1823" + "i1824" + "i1825" + "i1826")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1813")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1790" + "i1791" + "i1792" + "i1793" + "i1794" + "i1795" + "i1796")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i33" + "i32" + "i31" + "i29"))) + (hygiene + guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(_ + name) + #((top) + (top)) + #("i1891" + "i1892")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1821" + "i1822" + "i1823" + "i1824" + "i1825" + "i1826")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1813")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1790" + "i1791" + "i1792" + "i1793" + "i1794" + "i1795" + "i1796")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i33" + "i32" + "i31" + "i29"))) + (hygiene + guile))) + '(()) + #{s\ 1786}# + #{mod\ 1788}#)) + #{tmp\ 1886}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1847}#))) + ($sc-dispatch + #{tmp\ 1847}# + '(any any))))) + ($sc-dispatch + #{tmp\ 1847}# + '(any (any . any) + any + . + each-any))))) + ($sc-dispatch + #{tmp\ 1847}# + '(any any any)))) + #{e\ 1783}#) + (if (memv #{ftype\ 1815}# + '(define-syntax)) + ((lambda (#{tmp\ 1897}#) + ((lambda (#{tmp\ 1898}#) + (if (if #{tmp\ 1898}# + (apply (lambda (#{_\ 1902}# + #{name\ 1903}# + #{val\ 1904}#) + (#{id?\ 382}# + #{name\ 1903}#)) + #{tmp\ 1898}#) + #f) + (apply (lambda (#{_\ 1908}# + #{name\ 1909}# + #{val\ 1910}#) + (values + 'define-syntax-form + #{name\ 1909}# + #{val\ 1910}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#)) + #{tmp\ 1898}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1897}#))) + ($sc-dispatch + #{tmp\ 1897}# + '(any any any)))) + #{e\ 1783}#) + (values + 'call + #f + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#)))))))))))))) + (if (#{syntax-object?\ 346}# #{e\ 1783}#) + (#{syntax-type\ 463}# + (#{syntax-object-expression\ 348}# #{e\ 1783}#) + #{r\ 1784}# + (#{join-wraps\ 433}# + #{w\ 1785}# + (#{syntax-object-wrap\ 350}# #{e\ 1783}#)) + (let ((#{t\ 1916}# + (#{source-annotation\ 361}# #{e\ 1783}#))) + (if #{t\ 1916}# #{t\ 1916}# #{s\ 1786}#)) + #{rib\ 1787}# + (let ((#{t\ 1920}# + (#{syntax-object-module\ 352}# #{e\ 1783}#))) + (if #{t\ 1920}# #{t\ 1920}# #{mod\ 1788}#)) + #{for-car?\ 1789}#) + (if (self-evaluating? #{e\ 1783}#) + (values + 'constant #f - (#{build-primref\ 330}# - #f - 'make-syntax-transformer) - (list (#{build-data\ 332}# #f #{name\ 1948}#) - (#{build-data\ 332}# #f (quote macro)) - #{e\ 1949}#))))) - (#{chi-top-sequence\ 457}# - (lambda (#{body\ 1957}# - #{r\ 1958}# - #{w\ 1959}# - #{s\ 1960}# - #{m\ 1961}# - #{esew\ 1962}# - #{mod\ 1963}#) - (#{build-sequence\ 334}# - #{s\ 1960}# - (letrec ((#{dobody\ 1979}# - (lambda (#{body\ 1980}# - #{r\ 1981}# - #{w\ 1982}# - #{m\ 1983}# - #{esew\ 1984}# - #{mod\ 1985}# - #{out\ 1986}#) - (if (null? #{body\ 1980}#) - (reverse #{out\ 1986}#) - (#{dobody\ 1979}# - (cdr #{body\ 1980}#) - #{r\ 1981}# - #{w\ 1982}# - #{m\ 1983}# - #{esew\ 1984}# - #{mod\ 1985}# - (cons (#{chi-top\ 465}# - (car #{body\ 1980}#) - #{r\ 1981}# - #{w\ 1982}# - #{m\ 1983}# - #{esew\ 1984}# - #{mod\ 1985}#) - #{out\ 1986}#)))))) - (#{dobody\ 1979}# - #{body\ 1957}# - #{r\ 1958}# - #{w\ 1959}# - #{m\ 1961}# - #{esew\ 1962}# - #{mod\ 1963}# - '()))))) - (#{chi-sequence\ 455}# - (lambda (#{body\ 1987}# - #{r\ 1988}# - #{w\ 1989}# - #{s\ 1990}# - #{mod\ 1991}#) - (#{build-sequence\ 334}# - #{s\ 1990}# - (letrec ((#{dobody\ 2002}# - (lambda (#{body\ 2003}# - #{r\ 2004}# - #{w\ 2005}# - #{mod\ 2006}#) - (if (null? #{body\ 2003}#) - '() - (let ((#{first\ 2008}# - (#{chi\ 467}# - (car #{body\ 2003}#) - #{r\ 2004}# - #{w\ 2005}# - #{mod\ 2006}#))) - (cons #{first\ 2008}# - (#{dobody\ 2002}# - (cdr #{body\ 2003}#) - #{r\ 2004}# - #{w\ 2005}# - #{mod\ 2006}#))))))) - (#{dobody\ 2002}# - #{body\ 1987}# - #{r\ 1988}# - #{w\ 1989}# - #{mod\ 1991}#))))) - (#{source-wrap\ 453}# - (lambda (#{x\ 2009}# - #{w\ 2010}# - #{s\ 2011}# - #{defmod\ 2012}#) - (#{wrap\ 451}# - (#{decorate-source\ 300}# - #{x\ 2009}# - #{s\ 2011}#) - #{w\ 2010}# - #{defmod\ 2012}#))) - (#{wrap\ 451}# - (lambda (#{x\ 2017}# #{w\ 2018}# #{defmod\ 2019}#) - (if (if (null? (#{wrap-marks\ 389}# #{w\ 2018}#)) - (null? (#{wrap-subst\ 391}# #{w\ 2018}#)) - #f) + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#) + (values + 'other + #f + #{e\ 1783}# + #{w\ 1785}# + #{s\ 1786}# + #{mod\ 1788}#))))))) + (#{chi-when-list\ 461}# + (lambda (#{e\ 1925}# #{when-list\ 1926}# #{w\ 1927}#) + (letrec ((#{f\ 1934}# + (lambda (#{when-list\ 1935}# #{situations\ 1936}#) + (if (null? #{when-list\ 1935}#) + #{situations\ 1936}# + (#{f\ 1934}# + (cdr #{when-list\ 1935}#) + (cons (let ((#{x\ 1938}# (car #{when-list\ 1935}#))) + (if (#{free-id=?\ 441}# + #{x\ 1938}# + '#(syntax-object + compile + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1937")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1931" "i1932" "i1933")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1928" "i1929" "i1930")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i33" "i32" "i31" "i29"))) + (hygiene guile))) + 'compile + (if (#{free-id=?\ 441}# + #{x\ 1938}# + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1937")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1931" "i1932" "i1933")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1928" "i1929" "i1930")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i33" "i32" "i31" "i29"))) + (hygiene guile))) + 'load + (if (#{free-id=?\ 441}# + #{x\ 1938}# + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1937")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1931" "i1932" "i1933")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1928" "i1929" "i1930")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i33" "i32" "i31" "i29"))) + (hygiene guile))) + 'eval + (if (#{free-id=?\ 441}# + #{x\ 1938}# + '#(syntax-object + expand + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1937")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1931" "i1932" "i1933")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1928" "i1929" "i1930")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i33" "i32" "i31" "i29"))) + (hygiene guile))) + 'expand + (syntax-violation + 'eval-when + "invalid situation" + #{e\ 1925}# + (#{wrap\ 451}# + #{x\ 1938}# + #{w\ 1927}# + #f))))))) + #{situations\ 1936}#)))))) + (#{f\ 1934}# #{when-list\ 1926}# (quote ()))))) + (#{chi-install-global\ 459}# + (lambda (#{name\ 1948}# #{e\ 1949}#) + (#{build-global-definition\ 322}# + #f + #{name\ 1948}# + (#{build-application\ 304}# + #f + (#{build-primref\ 330}# + #f + 'make-syntax-transformer) + (list (#{build-data\ 332}# #f #{name\ 1948}#) + (#{build-data\ 332}# #f (quote macro)) + #{e\ 1949}#))))) + (#{chi-top-sequence\ 457}# + (lambda (#{body\ 1957}# + #{r\ 1958}# + #{w\ 1959}# + #{s\ 1960}# + #{m\ 1961}# + #{esew\ 1962}# + #{mod\ 1963}#) + (#{build-sequence\ 334}# + #{s\ 1960}# + (letrec ((#{dobody\ 1979}# + (lambda (#{body\ 1980}# + #{r\ 1981}# + #{w\ 1982}# + #{m\ 1983}# + #{esew\ 1984}# + #{mod\ 1985}# + #{out\ 1986}#) + (if (null? #{body\ 1980}#) + (reverse #{out\ 1986}#) + (#{dobody\ 1979}# + (cdr #{body\ 1980}#) + #{r\ 1981}# + #{w\ 1982}# + #{m\ 1983}# + #{esew\ 1984}# + #{mod\ 1985}# + (cons (#{chi-top\ 465}# + (car #{body\ 1980}#) + #{r\ 1981}# + #{w\ 1982}# + #{m\ 1983}# + #{esew\ 1984}# + #{mod\ 1985}#) + #{out\ 1986}#)))))) + (#{dobody\ 1979}# + #{body\ 1957}# + #{r\ 1958}# + #{w\ 1959}# + #{m\ 1961}# + #{esew\ 1962}# + #{mod\ 1963}# + '()))))) + (#{chi-sequence\ 455}# + (lambda (#{body\ 1987}# + #{r\ 1988}# + #{w\ 1989}# + #{s\ 1990}# + #{mod\ 1991}#) + (#{build-sequence\ 334}# + #{s\ 1990}# + (letrec ((#{dobody\ 2002}# + (lambda (#{body\ 2003}# + #{r\ 2004}# + #{w\ 2005}# + #{mod\ 2006}#) + (if (null? #{body\ 2003}#) + '() + (let ((#{first\ 2008}# + (#{chi\ 467}# + (car #{body\ 2003}#) + #{r\ 2004}# + #{w\ 2005}# + #{mod\ 2006}#))) + (cons #{first\ 2008}# + (#{dobody\ 2002}# + (cdr #{body\ 2003}#) + #{r\ 2004}# + #{w\ 2005}# + #{mod\ 2006}#))))))) + (#{dobody\ 2002}# + #{body\ 1987}# + #{r\ 1988}# + #{w\ 1989}# + #{mod\ 1991}#))))) + (#{source-wrap\ 453}# + (lambda (#{x\ 2009}# + #{w\ 2010}# + #{s\ 2011}# + #{defmod\ 2012}#) + (#{wrap\ 451}# + (#{decorate-source\ 300}# + #{x\ 2009}# + #{s\ 2011}#) + #{w\ 2010}# + #{defmod\ 2012}#))) + (#{wrap\ 451}# + (lambda (#{x\ 2017}# #{w\ 2018}# #{defmod\ 2019}#) + (if (if (null? (#{wrap-marks\ 389}# #{w\ 2018}#)) + (null? (#{wrap-subst\ 391}# #{w\ 2018}#)) + #f) + #{x\ 2017}# + (if (#{syntax-object?\ 346}# #{x\ 2017}#) + (#{make-syntax-object\ 344}# + (#{syntax-object-expression\ 348}# #{x\ 2017}#) + (#{join-wraps\ 433}# + #{w\ 2018}# + (#{syntax-object-wrap\ 350}# #{x\ 2017}#)) + (#{syntax-object-module\ 352}# #{x\ 2017}#)) + (if (null? #{x\ 2017}#) + #{x\ 2017}# + (#{make-syntax-object\ 344}# #{x\ 2017}# - (if (#{syntax-object?\ 346}# #{x\ 2017}#) - (#{make-syntax-object\ 344}# - (#{syntax-object-expression\ 348}# #{x\ 2017}#) - (#{join-wraps\ 433}# - #{w\ 2018}# - (#{syntax-object-wrap\ 350}# #{x\ 2017}#)) - (#{syntax-object-module\ 352}# #{x\ 2017}#)) - (if (null? #{x\ 2017}#) - #{x\ 2017}# - (#{make-syntax-object\ 344}# - #{x\ 2017}# - #{w\ 2018}# - #{defmod\ 2019}#)))))) - (#{bound-id-member?\ 449}# - (lambda (#{x\ 2032}# #{list\ 2033}#) - (if (not (null? #{list\ 2033}#)) - (let ((#{t\ 2040}# - (#{bound-id=?\ 443}# - #{x\ 2032}# - (car #{list\ 2033}#)))) - (if #{t\ 2040}# - #{t\ 2040}# - (#{bound-id-member?\ 449}# - #{x\ 2032}# - (cdr #{list\ 2033}#)))) - #f))) - (#{distinct-bound-ids?\ 447}# - (lambda (#{ids\ 2042}#) - (letrec ((#{distinct?\ 2046}# - (lambda (#{ids\ 2047}#) - (let ((#{t\ 2050}# (null? #{ids\ 2047}#))) - (if #{t\ 2050}# - #{t\ 2050}# - (if (not (#{bound-id-member?\ 449}# - (car #{ids\ 2047}#) - (cdr #{ids\ 2047}#))) - (#{distinct?\ 2046}# (cdr #{ids\ 2047}#)) - #f)))))) - (#{distinct?\ 2046}# #{ids\ 2042}#)))) - (#{valid-bound-ids?\ 445}# - (lambda (#{ids\ 2054}#) - (if (letrec ((#{all-ids?\ 2059}# - (lambda (#{ids\ 2060}#) - (let ((#{t\ 2063}# (null? #{ids\ 2060}#))) - (if #{t\ 2063}# - #{t\ 2063}# - (if (#{id?\ 382}# (car #{ids\ 2060}#)) - (#{all-ids?\ 2059}# (cdr #{ids\ 2060}#)) - #f)))))) - (#{all-ids?\ 2059}# #{ids\ 2054}#)) - (#{distinct-bound-ids?\ 447}# #{ids\ 2054}#) - #f))) - (#{bound-id=?\ 443}# - (lambda (#{i\ 2068}# #{j\ 2069}#) - (if (if (#{syntax-object?\ 346}# #{i\ 2068}#) - (#{syntax-object?\ 346}# #{j\ 2069}#) - #f) - (if (eq? (#{syntax-object-expression\ 348}# #{i\ 2068}#) - (#{syntax-object-expression\ 348}# #{j\ 2069}#)) + #{w\ 2018}# + #{defmod\ 2019}#)))))) + (#{bound-id-member?\ 449}# + (lambda (#{x\ 2032}# #{list\ 2033}#) + (if (not (null? #{list\ 2033}#)) + (let ((#{t\ 2040}# + (#{bound-id=?\ 443}# + #{x\ 2032}# + (car #{list\ 2033}#)))) + (if #{t\ 2040}# + #{t\ 2040}# + (#{bound-id-member?\ 449}# + #{x\ 2032}# + (cdr #{list\ 2033}#)))) + #f))) + (#{distinct-bound-ids?\ 447}# + (lambda (#{ids\ 2042}#) + (letrec ((#{distinct?\ 2046}# + (lambda (#{ids\ 2047}#) + (let ((#{t\ 2050}# (null? #{ids\ 2047}#))) + (if #{t\ 2050}# + #{t\ 2050}# + (if (not (#{bound-id-member?\ 449}# + (car #{ids\ 2047}#) + (cdr #{ids\ 2047}#))) + (#{distinct?\ 2046}# (cdr #{ids\ 2047}#)) + #f)))))) + (#{distinct?\ 2046}# #{ids\ 2042}#)))) + (#{valid-bound-ids?\ 445}# + (lambda (#{ids\ 2054}#) + (if (letrec ((#{all-ids?\ 2059}# + (lambda (#{ids\ 2060}#) + (let ((#{t\ 2063}# (null? #{ids\ 2060}#))) + (if #{t\ 2063}# + #{t\ 2063}# + (if (#{id?\ 382}# (car #{ids\ 2060}#)) + (#{all-ids?\ 2059}# (cdr #{ids\ 2060}#)) + #f)))))) + (#{all-ids?\ 2059}# #{ids\ 2054}#)) + (#{distinct-bound-ids?\ 447}# #{ids\ 2054}#) + #f))) + (#{bound-id=?\ 443}# + (lambda (#{i\ 2068}# #{j\ 2069}#) + (if (if (#{syntax-object?\ 346}# #{i\ 2068}#) + (#{syntax-object?\ 346}# #{j\ 2069}#) + #f) + (if (eq? (#{syntax-object-expression\ 348}# #{i\ 2068}#) + (#{syntax-object-expression\ 348}# #{j\ 2069}#)) + (#{same-marks?\ 437}# + (#{wrap-marks\ 389}# + (#{syntax-object-wrap\ 350}# #{i\ 2068}#)) + (#{wrap-marks\ 389}# + (#{syntax-object-wrap\ 350}# #{j\ 2069}#))) + #f) + (eq? #{i\ 2068}# #{j\ 2069}#)))) + (#{free-id=?\ 441}# + (lambda (#{i\ 2076}# #{j\ 2077}#) + (if (eq? (let ((#{x\ 2083}# #{i\ 2076}#)) + (if (#{syntax-object?\ 346}# #{x\ 2083}#) + (#{syntax-object-expression\ 348}# #{x\ 2083}#) + #{x\ 2083}#)) + (let ((#{x\ 2086}# #{j\ 2077}#)) + (if (#{syntax-object?\ 346}# #{x\ 2086}#) + (#{syntax-object-expression\ 348}# #{x\ 2086}#) + #{x\ 2086}#))) + (eq? (#{id-var-name\ 439}# #{i\ 2076}# (quote (()))) + (#{id-var-name\ 439}# #{j\ 2077}# (quote (())))) + #f))) + (#{id-var-name\ 439}# + (lambda (#{id\ 2090}# #{w\ 2091}#) + (letrec* + ((#{search-vector-rib\ 2100}# + (lambda (#{sym\ 2112}# + #{subst\ 2113}# + #{marks\ 2114}# + #{symnames\ 2115}# + #{ribcage\ 2116}#) + (let ((#{n\ 2123}# (vector-length #{symnames\ 2115}#))) + (letrec ((#{f\ 2126}# + (lambda (#{i\ 2127}#) + (if (#{fx=\ 287}# #{i\ 2127}# #{n\ 2123}#) + (#{search\ 2096}# + #{sym\ 2112}# + (cdr #{subst\ 2113}#) + #{marks\ 2114}#) + (if (if (eq? (vector-ref + #{symnames\ 2115}# + #{i\ 2127}#) + #{sym\ 2112}#) + (#{same-marks?\ 437}# + #{marks\ 2114}# + (vector-ref + (#{ribcage-marks\ 409}# + #{ribcage\ 2116}#) + #{i\ 2127}#)) + #f) + (values + (vector-ref + (#{ribcage-labels\ 411}# + #{ribcage\ 2116}#) + #{i\ 2127}#) + #{marks\ 2114}#) + (#{f\ 2126}# + (#{fx+\ 283}# #{i\ 2127}# 1))))))) + (#{f\ 2126}# 0))))) + (#{search-list-rib\ 2098}# + (lambda (#{sym\ 2135}# + #{subst\ 2136}# + #{marks\ 2137}# + #{symnames\ 2138}# + #{ribcage\ 2139}#) + (letrec ((#{f\ 2148}# + (lambda (#{symnames\ 2149}# #{i\ 2150}#) + (if (null? #{symnames\ 2149}#) + (#{search\ 2096}# + #{sym\ 2135}# + (cdr #{subst\ 2136}#) + #{marks\ 2137}#) + (if (if (eq? (car #{symnames\ 2149}#) + #{sym\ 2135}#) + (#{same-marks?\ 437}# + #{marks\ 2137}# + (list-ref + (#{ribcage-marks\ 409}# + #{ribcage\ 2139}#) + #{i\ 2150}#)) + #f) + (values + (list-ref + (#{ribcage-labels\ 411}# + #{ribcage\ 2139}#) + #{i\ 2150}#) + #{marks\ 2137}#) + (#{f\ 2148}# + (cdr #{symnames\ 2149}#) + (#{fx+\ 283}# #{i\ 2150}# 1))))))) + (#{f\ 2148}# #{symnames\ 2138}# 0)))) + (#{search\ 2096}# + (lambda (#{sym\ 2158}# #{subst\ 2159}# #{marks\ 2160}#) + (if (null? #{subst\ 2159}#) + (values #f #{marks\ 2160}#) + (let ((#{fst\ 2165}# (car #{subst\ 2159}#))) + (if (eq? #{fst\ 2165}# (quote shift)) + (#{search\ 2096}# + #{sym\ 2158}# + (cdr #{subst\ 2159}#) + (cdr #{marks\ 2160}#)) + (let ((#{symnames\ 2167}# + (#{ribcage-symnames\ 407}# #{fst\ 2165}#))) + (if (vector? #{symnames\ 2167}#) + (#{search-vector-rib\ 2100}# + #{sym\ 2158}# + #{subst\ 2159}# + #{marks\ 2160}# + #{symnames\ 2167}# + #{fst\ 2165}#) + (#{search-list-rib\ 2098}# + #{sym\ 2158}# + #{subst\ 2159}# + #{marks\ 2160}# + #{symnames\ 2167}# + #{fst\ 2165}#))))))))) + (if (symbol? #{id\ 2090}#) + (let ((#{t\ 2170}# + (call-with-values + (lambda () + (#{search\ 2096}# + #{id\ 2090}# + (#{wrap-subst\ 391}# #{w\ 2091}#) + (#{wrap-marks\ 389}# #{w\ 2091}#))) + (lambda (#{x\ 2172}# . #{ignore\ 2173}#) + #{x\ 2172}#)))) + (if #{t\ 2170}# #{t\ 2170}# #{id\ 2090}#)) + (if (#{syntax-object?\ 346}# #{id\ 2090}#) + (let ((#{id\ 2181}# + (#{syntax-object-expression\ 348}# #{id\ 2090}#)) + (#{w1\ 2182}# + (#{syntax-object-wrap\ 350}# #{id\ 2090}#))) + (let ((#{marks\ 2184}# + (#{join-marks\ 435}# + (#{wrap-marks\ 389}# #{w\ 2091}#) + (#{wrap-marks\ 389}# #{w1\ 2182}#)))) + (call-with-values + (lambda () + (#{search\ 2096}# + #{id\ 2181}# + (#{wrap-subst\ 391}# #{w\ 2091}#) + #{marks\ 2184}#)) + (lambda (#{new-id\ 2185}# #{marks\ 2186}#) + (let ((#{t\ 2191}# #{new-id\ 2185}#)) + (if #{t\ 2191}# + #{t\ 2191}# + (let ((#{t\ 2194}# + (call-with-values + (lambda () + (#{search\ 2096}# + #{id\ 2181}# + (#{wrap-subst\ 391}# #{w1\ 2182}#) + #{marks\ 2186}#)) + (lambda (#{x\ 2196}# . #{ignore\ 2197}#) + #{x\ 2196}#)))) + (if #{t\ 2194}# #{t\ 2194}# #{id\ 2181}#)))))))) + (syntax-violation + 'id-var-name + "invalid id" + #{id\ 2090}#)))))) + (#{same-marks?\ 437}# + (lambda (#{x\ 2202}# #{y\ 2203}#) + (let ((#{t\ 2208}# (eq? #{x\ 2202}# #{y\ 2203}#))) + (if #{t\ 2208}# + #{t\ 2208}# + (if (not (null? #{x\ 2202}#)) + (if (not (null? #{y\ 2203}#)) + (if (eq? (car #{x\ 2202}#) (car #{y\ 2203}#)) (#{same-marks?\ 437}# - (#{wrap-marks\ 389}# - (#{syntax-object-wrap\ 350}# #{i\ 2068}#)) - (#{wrap-marks\ 389}# - (#{syntax-object-wrap\ 350}# #{j\ 2069}#))) + (cdr #{x\ 2202}#) + (cdr #{y\ 2203}#)) #f) - (eq? #{i\ 2068}# #{j\ 2069}#)))) - (#{free-id=?\ 441}# - (lambda (#{i\ 2076}# #{j\ 2077}#) - (if (eq? (let ((#{x\ 2083}# #{i\ 2076}#)) - (if (#{syntax-object?\ 346}# #{x\ 2083}#) - (#{syntax-object-expression\ 348}# #{x\ 2083}#) - #{x\ 2083}#)) - (let ((#{x\ 2086}# #{j\ 2077}#)) - (if (#{syntax-object?\ 346}# #{x\ 2086}#) - (#{syntax-object-expression\ 348}# #{x\ 2086}#) - #{x\ 2086}#))) - (eq? (#{id-var-name\ 439}# #{i\ 2076}# (quote (()))) - (#{id-var-name\ 439}# #{j\ 2077}# (quote (())))) - #f))) - (#{id-var-name\ 439}# - (lambda (#{id\ 2090}# #{w\ 2091}#) - (letrec ((#{search-vector-rib\ 2100}# - (lambda (#{sym\ 2112}# - #{subst\ 2113}# - #{marks\ 2114}# - #{symnames\ 2115}# - #{ribcage\ 2116}#) - (let ((#{n\ 2123}# - (vector-length #{symnames\ 2115}#))) - (letrec ((#{f\ 2126}# - (lambda (#{i\ 2127}#) - (if (#{fx=\ 287}# - #{i\ 2127}# - #{n\ 2123}#) - (#{search\ 2096}# - #{sym\ 2112}# - (cdr #{subst\ 2113}#) - #{marks\ 2114}#) - (if (if (eq? (vector-ref - #{symnames\ 2115}# - #{i\ 2127}#) - #{sym\ 2112}#) - (#{same-marks?\ 437}# - #{marks\ 2114}# - (vector-ref - (#{ribcage-marks\ 409}# - #{ribcage\ 2116}#) - #{i\ 2127}#)) - #f) - (values - (vector-ref - (#{ribcage-labels\ 411}# - #{ribcage\ 2116}#) - #{i\ 2127}#) - #{marks\ 2114}#) - (#{f\ 2126}# - (#{fx+\ 283}# - #{i\ 2127}# - 1))))))) - (#{f\ 2126}# 0))))) - (#{search-list-rib\ 2098}# - (lambda (#{sym\ 2135}# - #{subst\ 2136}# - #{marks\ 2137}# - #{symnames\ 2138}# - #{ribcage\ 2139}#) - (letrec ((#{f\ 2148}# - (lambda (#{symnames\ 2149}# #{i\ 2150}#) - (if (null? #{symnames\ 2149}#) - (#{search\ 2096}# - #{sym\ 2135}# - (cdr #{subst\ 2136}#) - #{marks\ 2137}#) - (if (if (eq? (car #{symnames\ 2149}#) - #{sym\ 2135}#) - (#{same-marks?\ 437}# - #{marks\ 2137}# - (list-ref - (#{ribcage-marks\ 409}# - #{ribcage\ 2139}#) - #{i\ 2150}#)) - #f) - (values - (list-ref - (#{ribcage-labels\ 411}# - #{ribcage\ 2139}#) - #{i\ 2150}#) - #{marks\ 2137}#) - (#{f\ 2148}# - (cdr #{symnames\ 2149}#) - (#{fx+\ 283}# - #{i\ 2150}# - 1))))))) - (#{f\ 2148}# #{symnames\ 2138}# 0)))) - (#{search\ 2096}# - (lambda (#{sym\ 2158}# - #{subst\ 2159}# - #{marks\ 2160}#) - (if (null? #{subst\ 2159}#) - (values #f #{marks\ 2160}#) - (let ((#{fst\ 2165}# (car #{subst\ 2159}#))) - (if (eq? #{fst\ 2165}# (quote shift)) - (#{search\ 2096}# - #{sym\ 2158}# - (cdr #{subst\ 2159}#) - (cdr #{marks\ 2160}#)) - (let ((#{symnames\ 2167}# - (#{ribcage-symnames\ 407}# - #{fst\ 2165}#))) - (if (vector? #{symnames\ 2167}#) - (#{search-vector-rib\ 2100}# - #{sym\ 2158}# - #{subst\ 2159}# - #{marks\ 2160}# - #{symnames\ 2167}# - #{fst\ 2165}#) - (#{search-list-rib\ 2098}# - #{sym\ 2158}# - #{subst\ 2159}# - #{marks\ 2160}# - #{symnames\ 2167}# - #{fst\ 2165}#))))))))) - (if (symbol? #{id\ 2090}#) - (let ((#{t\ 2170}# - (call-with-values - (lambda () - (#{search\ 2096}# - #{id\ 2090}# - (#{wrap-subst\ 391}# #{w\ 2091}#) - (#{wrap-marks\ 389}# #{w\ 2091}#))) - (lambda (#{x\ 2172}# . #{ignore\ 2173}#) - #{x\ 2172}#)))) - (if #{t\ 2170}# #{t\ 2170}# #{id\ 2090}#)) - (if (#{syntax-object?\ 346}# #{id\ 2090}#) - (let ((#{id\ 2181}# - (#{syntax-object-expression\ 348}# #{id\ 2090}#)) - (#{w1\ 2182}# - (#{syntax-object-wrap\ 350}# #{id\ 2090}#))) - (let ((#{marks\ 2184}# - (#{join-marks\ 435}# - (#{wrap-marks\ 389}# #{w\ 2091}#) - (#{wrap-marks\ 389}# #{w1\ 2182}#)))) - (call-with-values - (lambda () - (#{search\ 2096}# - #{id\ 2181}# - (#{wrap-subst\ 391}# #{w\ 2091}#) - #{marks\ 2184}#)) - (lambda (#{new-id\ 2185}# #{marks\ 2186}#) - (let ((#{t\ 2191}# #{new-id\ 2185}#)) - (if #{t\ 2191}# - #{t\ 2191}# - (let ((#{t\ 2194}# - (call-with-values - (lambda () - (#{search\ 2096}# - #{id\ 2181}# - (#{wrap-subst\ 391}# - #{w1\ 2182}#) - #{marks\ 2186}#)) - (lambda (#{x\ 2196}# - . - #{ignore\ 2197}#) - #{x\ 2196}#)))) - (if #{t\ 2194}# - #{t\ 2194}# - #{id\ 2181}#)))))))) - (syntax-violation - 'id-var-name - "invalid id" - #{id\ 2090}#)))))) - (#{same-marks?\ 437}# - (lambda (#{x\ 2202}# #{y\ 2203}#) - (let ((#{t\ 2208}# (eq? #{x\ 2202}# #{y\ 2203}#))) - (if #{t\ 2208}# - #{t\ 2208}# - (if (not (null? #{x\ 2202}#)) - (if (not (null? #{y\ 2203}#)) - (if (eq? (car #{x\ 2202}#) (car #{y\ 2203}#)) - (#{same-marks?\ 437}# - (cdr #{x\ 2202}#) - (cdr #{y\ 2203}#)) - #f) - #f) - #f))))) - (#{join-marks\ 435}# - (lambda (#{m1\ 2214}# #{m2\ 2215}#) - (#{smart-append\ 431}# #{m1\ 2214}# #{m2\ 2215}#))) - (#{join-wraps\ 433}# - (lambda (#{w1\ 2218}# #{w2\ 2219}#) - (let ((#{m1\ 2224}# (#{wrap-marks\ 389}# #{w1\ 2218}#)) - (#{s1\ 2225}# (#{wrap-subst\ 391}# #{w1\ 2218}#))) - (if (null? #{m1\ 2224}#) - (if (null? #{s1\ 2225}#) - #{w2\ 2219}# - (#{make-wrap\ 387}# - (#{wrap-marks\ 389}# #{w2\ 2219}#) - (#{smart-append\ 431}# - #{s1\ 2225}# - (#{wrap-subst\ 391}# #{w2\ 2219}#)))) - (#{make-wrap\ 387}# - (#{smart-append\ 431}# - #{m1\ 2224}# - (#{wrap-marks\ 389}# #{w2\ 2219}#)) - (#{smart-append\ 431}# - #{s1\ 2225}# - (#{wrap-subst\ 391}# #{w2\ 2219}#))))))) - (#{smart-append\ 431}# - (lambda (#{m1\ 2226}# #{m2\ 2227}#) - (if (null? #{m2\ 2227}#) - #{m1\ 2226}# - (append #{m1\ 2226}# #{m2\ 2227}#)))) - (#{make-binding-wrap\ 429}# - (lambda (#{ids\ 2230}# #{labels\ 2231}# #{w\ 2232}#) - (if (null? #{ids\ 2230}#) - #{w\ 2232}# - (#{make-wrap\ 387}# - (#{wrap-marks\ 389}# #{w\ 2232}#) - (cons (let ((#{labelvec\ 2237}# - (list->vector #{labels\ 2231}#))) - (let ((#{n\ 2239}# - (vector-length #{labelvec\ 2237}#))) - (let ((#{symnamevec\ 2242}# - (make-vector #{n\ 2239}#)) - (#{marksvec\ 2243}# - (make-vector #{n\ 2239}#))) - (begin - (letrec ((#{f\ 2247}# - (lambda (#{ids\ 2248}# #{i\ 2249}#) - (if (not (null? #{ids\ 2248}#)) - (call-with-values - (lambda () - (#{id-sym-name&marks\ 385}# - (car #{ids\ 2248}#) - #{w\ 2232}#)) - (lambda (#{symname\ 2250}# - #{marks\ 2251}#) - (begin - (vector-set! - #{symnamevec\ 2242}# - #{i\ 2249}# - #{symname\ 2250}#) - (vector-set! - #{marksvec\ 2243}# - #{i\ 2249}# - #{marks\ 2251}#) - (#{f\ 2247}# - (cdr #{ids\ 2248}#) - (#{fx+\ 283}# - #{i\ 2249}# - 1))))))))) - (#{f\ 2247}# #{ids\ 2230}# 0)) - (#{make-ribcage\ 403}# - #{symnamevec\ 2242}# - #{marksvec\ 2243}# - #{labelvec\ 2237}#))))) - (#{wrap-subst\ 391}# #{w\ 2232}#)))))) - (#{extend-ribcage!\ 427}# - (lambda (#{ribcage\ 2254}# #{id\ 2255}# #{label\ 2256}#) - (begin - (#{set-ribcage-symnames!\ 413}# - #{ribcage\ 2254}# - (cons (#{syntax-object-expression\ 348}# #{id\ 2255}#) - (#{ribcage-symnames\ 407}# #{ribcage\ 2254}#))) - (#{set-ribcage-marks!\ 415}# - #{ribcage\ 2254}# - (cons (#{wrap-marks\ 389}# - (#{syntax-object-wrap\ 350}# #{id\ 2255}#)) - (#{ribcage-marks\ 409}# #{ribcage\ 2254}#))) - (#{set-ribcage-labels!\ 417}# - #{ribcage\ 2254}# - (cons #{label\ 2256}# - (#{ribcage-labels\ 411}# #{ribcage\ 2254}#)))))) - (#{anti-mark\ 423}# - (lambda (#{w\ 2260}#) + #f) + #f))))) + (#{join-marks\ 435}# + (lambda (#{m1\ 2214}# #{m2\ 2215}#) + (#{smart-append\ 431}# #{m1\ 2214}# #{m2\ 2215}#))) + (#{join-wraps\ 433}# + (lambda (#{w1\ 2218}# #{w2\ 2219}#) + (let ((#{m1\ 2224}# (#{wrap-marks\ 389}# #{w1\ 2218}#)) + (#{s1\ 2225}# (#{wrap-subst\ 391}# #{w1\ 2218}#))) + (if (null? #{m1\ 2224}#) + (if (null? #{s1\ 2225}#) + #{w2\ 2219}# (#{make-wrap\ 387}# - (cons #f (#{wrap-marks\ 389}# #{w\ 2260}#)) - (cons 'shift - (#{wrap-subst\ 391}# #{w\ 2260}#))))) - (#{set-ribcage-labels!\ 417}# - (lambda (#{x\ 2263}# #{update\ 2264}#) - (vector-set! #{x\ 2263}# 3 #{update\ 2264}#))) - (#{set-ribcage-marks!\ 415}# - (lambda (#{x\ 2267}# #{update\ 2268}#) - (vector-set! #{x\ 2267}# 2 #{update\ 2268}#))) + (#{wrap-marks\ 389}# #{w2\ 2219}#) + (#{smart-append\ 431}# + #{s1\ 2225}# + (#{wrap-subst\ 391}# #{w2\ 2219}#)))) + (#{make-wrap\ 387}# + (#{smart-append\ 431}# + #{m1\ 2224}# + (#{wrap-marks\ 389}# #{w2\ 2219}#)) + (#{smart-append\ 431}# + #{s1\ 2225}# + (#{wrap-subst\ 391}# #{w2\ 2219}#))))))) + (#{smart-append\ 431}# + (lambda (#{m1\ 2226}# #{m2\ 2227}#) + (if (null? #{m2\ 2227}#) + #{m1\ 2226}# + (append #{m1\ 2226}# #{m2\ 2227}#)))) + (#{make-binding-wrap\ 429}# + (lambda (#{ids\ 2230}# #{labels\ 2231}# #{w\ 2232}#) + (if (null? #{ids\ 2230}#) + #{w\ 2232}# + (#{make-wrap\ 387}# + (#{wrap-marks\ 389}# #{w\ 2232}#) + (cons (let ((#{labelvec\ 2237}# + (list->vector #{labels\ 2231}#))) + (let ((#{n\ 2239}# (vector-length #{labelvec\ 2237}#))) + (let ((#{symnamevec\ 2242}# (make-vector #{n\ 2239}#)) + (#{marksvec\ 2243}# (make-vector #{n\ 2239}#))) + (begin + (letrec ((#{f\ 2247}# + (lambda (#{ids\ 2248}# #{i\ 2249}#) + (if (not (null? #{ids\ 2248}#)) + (call-with-values + (lambda () + (#{id-sym-name&marks\ 385}# + (car #{ids\ 2248}#) + #{w\ 2232}#)) + (lambda (#{symname\ 2250}# + #{marks\ 2251}#) + (begin + (vector-set! + #{symnamevec\ 2242}# + #{i\ 2249}# + #{symname\ 2250}#) + (vector-set! + #{marksvec\ 2243}# + #{i\ 2249}# + #{marks\ 2251}#) + (#{f\ 2247}# + (cdr #{ids\ 2248}#) + (#{fx+\ 283}# + #{i\ 2249}# + 1))))))))) + (#{f\ 2247}# #{ids\ 2230}# 0)) + (#{make-ribcage\ 403}# + #{symnamevec\ 2242}# + #{marksvec\ 2243}# + #{labelvec\ 2237}#))))) + (#{wrap-subst\ 391}# #{w\ 2232}#)))))) + (#{extend-ribcage!\ 427}# + (lambda (#{ribcage\ 2254}# #{id\ 2255}# #{label\ 2256}#) + (begin (#{set-ribcage-symnames!\ 413}# - (lambda (#{x\ 2271}# #{update\ 2272}#) - (vector-set! #{x\ 2271}# 1 #{update\ 2272}#))) - (#{ribcage-labels\ 411}# - (lambda (#{x\ 2275}#) (vector-ref #{x\ 2275}# 3))) - (#{ribcage-marks\ 409}# - (lambda (#{x\ 2277}#) (vector-ref #{x\ 2277}# 2))) - (#{ribcage-symnames\ 407}# - (lambda (#{x\ 2279}#) (vector-ref #{x\ 2279}# 1))) - (#{ribcage?\ 405}# - (lambda (#{x\ 2281}#) - (if (vector? #{x\ 2281}#) - (if (= (vector-length #{x\ 2281}#) 4) - (eq? (vector-ref #{x\ 2281}# 0) (quote ribcage)) - #f) - #f))) - (#{make-ribcage\ 403}# - (lambda (#{symnames\ 2286}# - #{marks\ 2287}# - #{labels\ 2288}#) - (vector - 'ribcage - #{symnames\ 2286}# - #{marks\ 2287}# - #{labels\ 2288}#))) - (#{gen-labels\ 400}# - (lambda (#{ls\ 2292}#) - (if (null? #{ls\ 2292}#) - '() - (cons (#{gen-label\ 398}#) - (#{gen-labels\ 400}# (cdr #{ls\ 2292}#)))))) - (#{gen-label\ 398}# - (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 391}# cdr) - (#{wrap-marks\ 389}# car) - (#{make-wrap\ 387}# cons) - (#{id-sym-name&marks\ 385}# - (lambda (#{x\ 2294}# #{w\ 2295}#) - (if (#{syntax-object?\ 346}# #{x\ 2294}#) - (values - (#{syntax-object-expression\ 348}# #{x\ 2294}#) - (#{join-marks\ 435}# - (#{wrap-marks\ 389}# #{w\ 2295}#) - (#{wrap-marks\ 389}# - (#{syntax-object-wrap\ 350}# #{x\ 2294}#)))) - (values - #{x\ 2294}# - (#{wrap-marks\ 389}# #{w\ 2295}#))))) - (#{id?\ 382}# - (lambda (#{x\ 2298}#) - (if (symbol? #{x\ 2298}#) - #t - (if (#{syntax-object?\ 346}# #{x\ 2298}#) - (symbol? - (#{syntax-object-expression\ 348}# #{x\ 2298}#)) - #f)))) - (#{nonsymbol-id?\ 380}# - (lambda (#{x\ 2305}#) - (if (#{syntax-object?\ 346}# #{x\ 2305}#) - (symbol? - (#{syntax-object-expression\ 348}# #{x\ 2305}#)) - #f))) - (#{global-extend\ 378}# - (lambda (#{type\ 2309}# #{sym\ 2310}# #{val\ 2311}#) - (#{put-global-definition-hook\ 296}# - #{sym\ 2310}# - #{type\ 2309}# - #{val\ 2311}#))) - (#{lookup\ 376}# - (lambda (#{x\ 2315}# #{r\ 2316}# #{mod\ 2317}#) - (let ((#{t\ 2323}# (assq #{x\ 2315}# #{r\ 2316}#))) - (if #{t\ 2323}# - (cdr #{t\ 2323}#) - (if (symbol? #{x\ 2315}#) - (let ((#{t\ 2329}# - (#{get-global-definition-hook\ 298}# - #{x\ 2315}# - #{mod\ 2317}#))) - (if #{t\ 2329}# #{t\ 2329}# (quote (global)))) - '(displaced-lexical)))))) - (#{macros-only-env\ 374}# - (lambda (#{r\ 2334}#) - (if (null? #{r\ 2334}#) - '() - (let ((#{a\ 2337}# (car #{r\ 2334}#))) - (if (eq? (cadr #{a\ 2337}#) (quote macro)) - (cons #{a\ 2337}# - (#{macros-only-env\ 374}# (cdr #{r\ 2334}#))) - (#{macros-only-env\ 374}# (cdr #{r\ 2334}#))))))) + #{ribcage\ 2254}# + (cons (#{syntax-object-expression\ 348}# #{id\ 2255}#) + (#{ribcage-symnames\ 407}# #{ribcage\ 2254}#))) + (#{set-ribcage-marks!\ 415}# + #{ribcage\ 2254}# + (cons (#{wrap-marks\ 389}# + (#{syntax-object-wrap\ 350}# #{id\ 2255}#)) + (#{ribcage-marks\ 409}# #{ribcage\ 2254}#))) + (#{set-ribcage-labels!\ 417}# + #{ribcage\ 2254}# + (cons #{label\ 2256}# + (#{ribcage-labels\ 411}# #{ribcage\ 2254}#)))))) + (#{anti-mark\ 423}# + (lambda (#{w\ 2260}#) + (#{make-wrap\ 387}# + (cons #f (#{wrap-marks\ 389}# #{w\ 2260}#)) + (cons 'shift + (#{wrap-subst\ 391}# #{w\ 2260}#))))) + (#{set-ribcage-labels!\ 417}# + (lambda (#{x\ 2263}# #{update\ 2264}#) + (vector-set! #{x\ 2263}# 3 #{update\ 2264}#))) + (#{set-ribcage-marks!\ 415}# + (lambda (#{x\ 2267}# #{update\ 2268}#) + (vector-set! #{x\ 2267}# 2 #{update\ 2268}#))) + (#{set-ribcage-symnames!\ 413}# + (lambda (#{x\ 2271}# #{update\ 2272}#) + (vector-set! #{x\ 2271}# 1 #{update\ 2272}#))) + (#{ribcage-labels\ 411}# + (lambda (#{x\ 2275}#) (vector-ref #{x\ 2275}# 3))) + (#{ribcage-marks\ 409}# + (lambda (#{x\ 2277}#) (vector-ref #{x\ 2277}# 2))) + (#{ribcage-symnames\ 407}# + (lambda (#{x\ 2279}#) (vector-ref #{x\ 2279}# 1))) + (#{ribcage?\ 405}# + (lambda (#{x\ 2281}#) + (if (vector? #{x\ 2281}#) + (if (= (vector-length #{x\ 2281}#) 4) + (eq? (vector-ref #{x\ 2281}# 0) (quote ribcage)) + #f) + #f))) + (#{make-ribcage\ 403}# + (lambda (#{symnames\ 2286}# + #{marks\ 2287}# + #{labels\ 2288}#) + (vector + 'ribcage + #{symnames\ 2286}# + #{marks\ 2287}# + #{labels\ 2288}#))) + (#{gen-labels\ 400}# + (lambda (#{ls\ 2292}#) + (if (null? #{ls\ 2292}#) + '() + (cons (#{gen-label\ 398}#) + (#{gen-labels\ 400}# (cdr #{ls\ 2292}#)))))) + (#{gen-label\ 398}# + (lambda () (symbol->string (gensym "i")))) + (#{wrap-subst\ 391}# cdr) + (#{wrap-marks\ 389}# car) + (#{make-wrap\ 387}# cons) + (#{id-sym-name&marks\ 385}# + (lambda (#{x\ 2294}# #{w\ 2295}#) + (if (#{syntax-object?\ 346}# #{x\ 2294}#) + (values + (#{syntax-object-expression\ 348}# #{x\ 2294}#) + (#{join-marks\ 435}# + (#{wrap-marks\ 389}# #{w\ 2295}#) + (#{wrap-marks\ 389}# + (#{syntax-object-wrap\ 350}# #{x\ 2294}#)))) + (values + #{x\ 2294}# + (#{wrap-marks\ 389}# #{w\ 2295}#))))) + (#{id?\ 382}# + (lambda (#{x\ 2298}#) + (if (symbol? #{x\ 2298}#) + #t + (if (#{syntax-object?\ 346}# #{x\ 2298}#) + (symbol? + (#{syntax-object-expression\ 348}# #{x\ 2298}#)) + #f)))) + (#{nonsymbol-id?\ 380}# + (lambda (#{x\ 2305}#) + (if (#{syntax-object?\ 346}# #{x\ 2305}#) + (symbol? + (#{syntax-object-expression\ 348}# #{x\ 2305}#)) + #f))) + (#{global-extend\ 378}# + (lambda (#{type\ 2309}# #{sym\ 2310}# #{val\ 2311}#) + (#{put-global-definition-hook\ 296}# + #{sym\ 2310}# + #{type\ 2309}# + #{val\ 2311}#))) + (#{lookup\ 376}# + (lambda (#{x\ 2315}# #{r\ 2316}# #{mod\ 2317}#) + (let ((#{t\ 2323}# (assq #{x\ 2315}# #{r\ 2316}#))) + (if #{t\ 2323}# + (cdr #{t\ 2323}#) + (if (symbol? #{x\ 2315}#) + (let ((#{t\ 2329}# + (#{get-global-definition-hook\ 298}# + #{x\ 2315}# + #{mod\ 2317}#))) + (if #{t\ 2329}# #{t\ 2329}# (quote (global)))) + '(displaced-lexical)))))) + (#{macros-only-env\ 374}# + (lambda (#{r\ 2334}#) + (if (null? #{r\ 2334}#) + '() + (let ((#{a\ 2337}# (car #{r\ 2334}#))) + (if (eq? (cadr #{a\ 2337}#) (quote macro)) + (cons #{a\ 2337}# + (#{macros-only-env\ 374}# (cdr #{r\ 2334}#))) + (#{macros-only-env\ 374}# (cdr #{r\ 2334}#))))))) + (#{extend-var-env\ 372}# + (lambda (#{labels\ 2338}# #{vars\ 2339}# #{r\ 2340}#) + (if (null? #{labels\ 2338}#) + #{r\ 2340}# (#{extend-var-env\ 372}# - (lambda (#{labels\ 2338}# #{vars\ 2339}# #{r\ 2340}#) - (if (null? #{labels\ 2338}#) - #{r\ 2340}# - (#{extend-var-env\ 372}# - (cdr #{labels\ 2338}#) - (cdr #{vars\ 2339}#) - (cons (cons (car #{labels\ 2338}#) - (cons (quote lexical) (car #{vars\ 2339}#))) - #{r\ 2340}#))))) + (cdr #{labels\ 2338}#) + (cdr #{vars\ 2339}#) + (cons (cons (car #{labels\ 2338}#) + (cons (quote lexical) (car #{vars\ 2339}#))) + #{r\ 2340}#))))) + (#{extend-env\ 370}# + (lambda (#{labels\ 2345}# #{bindings\ 2346}# #{r\ 2347}#) + (if (null? #{labels\ 2345}#) + #{r\ 2347}# (#{extend-env\ 370}# - (lambda (#{labels\ 2345}# #{bindings\ 2346}# #{r\ 2347}#) - (if (null? #{labels\ 2345}#) - #{r\ 2347}# - (#{extend-env\ 370}# - (cdr #{labels\ 2345}#) - (cdr #{bindings\ 2346}#) - (cons (cons (car #{labels\ 2345}#) - (car #{bindings\ 2346}#)) - #{r\ 2347}#))))) - (#{binding-value\ 367}# cdr) - (#{binding-type\ 365}# car) + (cdr #{labels\ 2345}#) + (cdr #{bindings\ 2346}#) + (cons (cons (car #{labels\ 2345}#) + (car #{bindings\ 2346}#)) + #{r\ 2347}#))))) + (#{binding-value\ 367}# cdr) + (#{binding-type\ 365}# car) + (#{source-annotation\ 361}# + (lambda (#{x\ 2351}#) + (if (#{syntax-object?\ 346}# #{x\ 2351}#) (#{source-annotation\ 361}# - (lambda (#{x\ 2351}#) - (if (#{syntax-object?\ 346}# #{x\ 2351}#) - (#{source-annotation\ 361}# - (#{syntax-object-expression\ 348}# #{x\ 2351}#)) - (if (pair? #{x\ 2351}#) - (let ((#{props\ 2358}# (source-properties #{x\ 2351}#))) - (if (pair? #{props\ 2358}#) #{props\ 2358}# #f)) - #f)))) - (#{set-syntax-object-module!\ 358}# - (lambda (#{x\ 2360}# #{update\ 2361}#) - (vector-set! #{x\ 2360}# 3 #{update\ 2361}#))) - (#{set-syntax-object-wrap!\ 356}# - (lambda (#{x\ 2364}# #{update\ 2365}#) - (vector-set! #{x\ 2364}# 2 #{update\ 2365}#))) - (#{set-syntax-object-expression!\ 354}# - (lambda (#{x\ 2368}# #{update\ 2369}#) - (vector-set! #{x\ 2368}# 1 #{update\ 2369}#))) - (#{syntax-object-module\ 352}# - (lambda (#{x\ 2372}#) (vector-ref #{x\ 2372}# 3))) - (#{syntax-object-wrap\ 350}# - (lambda (#{x\ 2374}#) (vector-ref #{x\ 2374}# 2))) - (#{syntax-object-expression\ 348}# - (lambda (#{x\ 2376}#) (vector-ref #{x\ 2376}# 1))) - (#{syntax-object?\ 346}# - (lambda (#{x\ 2378}#) - (if (vector? #{x\ 2378}#) - (if (= (vector-length #{x\ 2378}#) 4) - (eq? (vector-ref #{x\ 2378}# 0) - 'syntax-object) - #f) - #f))) - (#{make-syntax-object\ 344}# - (lambda (#{expression\ 2383}# - #{wrap\ 2384}# - #{module\ 2385}#) - (vector - 'syntax-object - #{expression\ 2383}# - #{wrap\ 2384}# - #{module\ 2385}#))) - (#{build-letrec\ 340}# - (lambda (#{src\ 2389}# - #{in-order?\ 2390}# - #{ids\ 2391}# - #{vars\ 2392}# - #{val-exps\ 2393}# - #{body-exp\ 2394}#) - (if (null? #{vars\ 2392}#) - #{body-exp\ 2394}# - (begin - (for-each - #{maybe-name-value!\ 320}# - #{ids\ 2391}# - #{val-exps\ 2393}#) - (#{make-letrec\ 272}# - #{src\ 2389}# - #{in-order?\ 2390}# - #{ids\ 2391}# - #{vars\ 2392}# - #{val-exps\ 2393}# - #{body-exp\ 2394}#))))) - (#{build-named-let\ 338}# - (lambda (#{src\ 2401}# - #{ids\ 2402}# - #{vars\ 2403}# - #{val-exps\ 2404}# - #{body-exp\ 2405}#) - (let ((#{f\ 2415}# (car #{vars\ 2403}#)) - (#{f-name\ 2416}# (car #{ids\ 2402}#)) - (#{vars\ 2417}# (cdr #{vars\ 2403}#)) - (#{ids\ 2418}# (cdr #{ids\ 2402}#))) - (let ((#{proc\ 2420}# - (#{build-simple-lambda\ 324}# - #{src\ 2401}# - #{ids\ 2418}# - #f - #{vars\ 2417}# - '() - #{body-exp\ 2405}#))) - (begin - (#{maybe-name-value!\ 320}# - #{f-name\ 2416}# - #{proc\ 2420}#) - (for-each - #{maybe-name-value!\ 320}# - #{ids\ 2418}# - #{val-exps\ 2404}#) - (#{make-letrec\ 272}# - #{src\ 2401}# - #f - (list #{f-name\ 2416}#) - (list #{f\ 2415}#) - (list #{proc\ 2420}#) - (#{build-application\ 304}# - #{src\ 2401}# - (#{build-lexical-reference\ 310}# - 'fun - #{src\ 2401}# - #{f-name\ 2416}# - #{f\ 2415}#) - #{val-exps\ 2404}#))))))) - (#{build-let\ 336}# - (lambda (#{src\ 2421}# - #{ids\ 2422}# - #{vars\ 2423}# - #{val-exps\ 2424}# - #{body-exp\ 2425}#) - (begin - (for-each - #{maybe-name-value!\ 320}# - #{ids\ 2422}# - #{val-exps\ 2424}#) - (if (null? #{vars\ 2423}#) - #{body-exp\ 2425}# - (#{make-let\ 270}# - #{src\ 2421}# - #{ids\ 2422}# - #{vars\ 2423}# - #{val-exps\ 2424}# - #{body-exp\ 2425}#))))) - (#{build-sequence\ 334}# - (lambda (#{src\ 2431}# #{exps\ 2432}#) - (if (null? (cdr #{exps\ 2432}#)) - (car #{exps\ 2432}#) - (#{make-sequence\ 264}# - #{src\ 2431}# - #{exps\ 2432}#)))) - (#{build-data\ 332}# - (lambda (#{src\ 2435}# #{exp\ 2436}#) - (#{make-const\ 242}# #{src\ 2435}# #{exp\ 2436}#))) - (#{build-primref\ 330}# - (lambda (#{src\ 2439}# #{name\ 2440}#) - (if (equal? - (module-name (current-module)) - '(guile)) - (#{make-toplevel-ref\ 254}# - #{src\ 2439}# - #{name\ 2440}#) - (#{make-module-ref\ 250}# - #{src\ 2439}# - '(guile) - #{name\ 2440}# - #f)))) - (#{build-lambda-case\ 328}# - (lambda (#{src\ 2443}# - #{req\ 2444}# - #{opt\ 2445}# - #{rest\ 2446}# - #{kw\ 2447}# - #{inits\ 2448}# - #{vars\ 2449}# - #{body\ 2450}# - #{else-case\ 2451}#) - (#{make-lambda-case\ 268}# - #{src\ 2443}# - #{req\ 2444}# - #{opt\ 2445}# - #{rest\ 2446}# - #{kw\ 2447}# - #{inits\ 2448}# - #{vars\ 2449}# - #{body\ 2450}# - #{else-case\ 2451}#))) - (#{build-case-lambda\ 326}# - (lambda (#{src\ 2461}# #{meta\ 2462}# #{body\ 2463}#) - (#{make-lambda\ 266}# - #{src\ 2461}# - #{meta\ 2462}# - #{body\ 2463}#))) - (#{build-simple-lambda\ 324}# - (lambda (#{src\ 2467}# - #{req\ 2468}# - #{rest\ 2469}# - #{vars\ 2470}# - #{meta\ 2471}# - #{exp\ 2472}#) - (#{make-lambda\ 266}# - #{src\ 2467}# - #{meta\ 2471}# - (#{make-lambda-case\ 268}# - #{src\ 2467}# - #{req\ 2468}# - #f - #{rest\ 2469}# - #f - '() - #{vars\ 2470}# - #{exp\ 2472}# - #f)))) - (#{build-global-definition\ 322}# - (lambda (#{source\ 2479}# #{var\ 2480}# #{exp\ 2481}#) - (begin - (#{maybe-name-value!\ 320}# - #{var\ 2480}# - #{exp\ 2481}#) - (#{make-toplevel-define\ 258}# - #{source\ 2479}# - #{var\ 2480}# - #{exp\ 2481}#)))) - (#{maybe-name-value!\ 320}# - (lambda (#{name\ 2485}# #{val\ 2486}#) - (if (#{lambda?\ 277}# #{val\ 2486}#) - (let ((#{meta\ 2490}# - (#{lambda-meta\ 279}# #{val\ 2486}#))) - (if (not (assq (quote name) #{meta\ 2490}#)) - (#{set-lambda-meta!\ 281}# - #{val\ 2486}# - (acons 'name - #{name\ 2485}# - #{meta\ 2490}#))))))) - (#{build-global-assignment\ 318}# - (lambda (#{source\ 2491}# - #{var\ 2492}# - #{exp\ 2493}# - #{mod\ 2494}#) - (#{analyze-variable\ 314}# - #{mod\ 2494}# - #{var\ 2492}# - (lambda (#{mod\ 2499}# #{var\ 2500}# #{public?\ 2501}#) - (#{make-module-set\ 252}# - #{source\ 2491}# - #{mod\ 2499}# - #{var\ 2500}# - #{public?\ 2501}# - #{exp\ 2493}#)) - (lambda (#{var\ 2505}#) - (#{make-toplevel-set\ 256}# - #{source\ 2491}# - #{var\ 2505}# - #{exp\ 2493}#))))) - (#{build-global-reference\ 316}# - (lambda (#{source\ 2507}# #{var\ 2508}# #{mod\ 2509}#) - (#{analyze-variable\ 314}# - #{mod\ 2509}# - #{var\ 2508}# - (lambda (#{mod\ 2513}# #{var\ 2514}# #{public?\ 2515}#) - (#{make-module-ref\ 250}# - #{source\ 2507}# - #{mod\ 2513}# - #{var\ 2514}# - #{public?\ 2515}#)) - (lambda (#{var\ 2519}#) - (#{make-toplevel-ref\ 254}# - #{source\ 2507}# - #{var\ 2519}#))))) - (#{analyze-variable\ 314}# - (lambda (#{mod\ 2521}# - #{var\ 2522}# - #{modref-cont\ 2523}# - #{bare-cont\ 2524}#) - (if (not #{mod\ 2521}#) - (#{bare-cont\ 2524}# #{var\ 2522}#) - (let ((#{kind\ 2531}# (car #{mod\ 2521}#)) - (#{mod\ 2532}# (cdr #{mod\ 2521}#))) - (if (memv #{kind\ 2531}# (quote (public))) - (#{modref-cont\ 2523}# - #{mod\ 2532}# - #{var\ 2522}# - #t) - (if (memv #{kind\ 2531}# (quote (private))) - (if (not (equal? - #{mod\ 2532}# - (module-name (current-module)))) - (#{modref-cont\ 2523}# - #{mod\ 2532}# - #{var\ 2522}# - #f) - (#{bare-cont\ 2524}# #{var\ 2522}#)) - (if (memv #{kind\ 2531}# (quote (bare))) - (#{bare-cont\ 2524}# #{var\ 2522}#) - (if (memv #{kind\ 2531}# (quote (hygiene))) - (if (if (not (equal? - #{mod\ 2532}# - (module-name (current-module)))) - (module-variable - (resolve-module #{mod\ 2532}#) - #{var\ 2522}#) - #f) - (#{modref-cont\ 2523}# - #{mod\ 2532}# - #{var\ 2522}# - #f) - (#{bare-cont\ 2524}# #{var\ 2522}#)) - (syntax-violation - #f - "bad module kind" - #{var\ 2522}# - #{mod\ 2532}#))))))))) - (#{build-lexical-assignment\ 312}# - (lambda (#{source\ 2540}# - #{name\ 2541}# - #{var\ 2542}# - #{exp\ 2543}#) - (#{make-lexical-set\ 248}# - #{source\ 2540}# - #{name\ 2541}# - #{var\ 2542}# - #{exp\ 2543}#))) - (#{build-lexical-reference\ 310}# - (lambda (#{type\ 2548}# - #{source\ 2549}# - #{name\ 2550}# - #{var\ 2551}#) - (#{make-lexical-ref\ 246}# - #{source\ 2549}# - #{name\ 2550}# - #{var\ 2551}#))) - (#{build-dynlet\ 308}# - (lambda (#{source\ 2556}# - #{fluids\ 2557}# - #{vals\ 2558}# - #{body\ 2559}#) - (#{make-dynlet\ 274}# - #{source\ 2556}# - #{fluids\ 2557}# - #{vals\ 2558}# - #{body\ 2559}#))) - (#{build-conditional\ 306}# - (lambda (#{source\ 2564}# - #{test-exp\ 2565}# - #{then-exp\ 2566}# - #{else-exp\ 2567}#) - (#{make-conditional\ 260}# - #{source\ 2564}# - #{test-exp\ 2565}# - #{then-exp\ 2566}# - #{else-exp\ 2567}#))) - (#{build-application\ 304}# - (lambda (#{source\ 2572}# - #{fun-exp\ 2573}# - #{arg-exps\ 2574}#) - (#{make-application\ 262}# - #{source\ 2572}# - #{fun-exp\ 2573}# - #{arg-exps\ 2574}#))) - (#{build-void\ 302}# - (lambda (#{source\ 2578}#) - (#{make-void\ 240}# #{source\ 2578}#))) - (#{decorate-source\ 300}# - (lambda (#{e\ 2580}# #{s\ 2581}#) - (begin - (if (if (pair? #{e\ 2580}#) #{s\ 2581}# #f) - (set-source-properties! #{e\ 2580}# #{s\ 2581}#)) - #{e\ 2580}#))) - (#{get-global-definition-hook\ 298}# - (lambda (#{symbol\ 2586}# #{module\ 2587}#) - (begin - (if (if (not #{module\ 2587}#) (current-module) #f) - (warn "module system is booted, we should have a module" - #{symbol\ 2586}#)) - (let ((#{v\ 2593}# - (module-variable - (if #{module\ 2587}# - (resolve-module (cdr #{module\ 2587}#)) - (current-module)) - #{symbol\ 2586}#))) - (if #{v\ 2593}# - (if (variable-bound? #{v\ 2593}#) - (let ((#{val\ 2598}# (variable-ref #{v\ 2593}#))) - (if (macro? #{val\ 2598}#) - (if (macro-type #{val\ 2598}#) - (cons (macro-type #{val\ 2598}#) - (macro-binding #{val\ 2598}#)) - #f) - #f)) - #f) - #f))))) - (#{put-global-definition-hook\ 296}# - (lambda (#{symbol\ 2602}# #{type\ 2603}# #{val\ 2604}#) - (module-define! - (current-module) - #{symbol\ 2602}# - (make-syntax-transformer - #{symbol\ 2602}# - #{type\ 2603}# - #{val\ 2604}#)))) - (#{local-eval-hook\ 293}# - (lambda (#{x\ 2608}# #{mod\ 2609}#) - (primitive-eval #{x\ 2608}#))) - (#{top-level-eval-hook\ 291}# - (lambda (#{x\ 2612}# #{mod\ 2613}#) - (primitive-eval #{x\ 2612}#))) - (#{fx<\ 289}# <) - (#{fx=\ 287}# =) - (#{fx-\ 285}# -) - (#{fx+\ 283}# +) - (#{set-lambda-meta!\ 281}# - (lambda (#{x\ 2616}# #{v\ 2617}#) - (struct-set! #{x\ 2616}# 1 #{v\ 2617}#))) - (#{lambda-meta\ 279}# - (lambda (#{x\ 2620}#) (struct-ref #{x\ 2620}# 1))) - (#{lambda?\ 277}# - (lambda (#{x\ 2622}#) - (if (struct? #{x\ 2622}#) - (eq? (struct-vtable #{x\ 2622}#) - (vector-ref %expanded-vtables 13)) - #f))) - (#{make-dynlet\ 274}# - (lambda (#{src\ 2626}# - #{fluids\ 2627}# - #{vals\ 2628}# - #{body\ 2629}#) - (make-struct - (vector-ref %expanded-vtables 17) - 0 - #{src\ 2626}# - #{fluids\ 2627}# - #{vals\ 2628}# - #{body\ 2629}#))) - (#{make-letrec\ 272}# - (lambda (#{src\ 2634}# - #{in-order?\ 2635}# - #{names\ 2636}# - #{gensyms\ 2637}# - #{vals\ 2638}# - #{body\ 2639}#) - (make-struct - (vector-ref %expanded-vtables 16) - 0 - #{src\ 2634}# - #{in-order?\ 2635}# - #{names\ 2636}# - #{gensyms\ 2637}# - #{vals\ 2638}# - #{body\ 2639}#))) - (#{make-let\ 270}# - (lambda (#{src\ 2646}# - #{names\ 2647}# - #{gensyms\ 2648}# - #{vals\ 2649}# - #{body\ 2650}#) - (make-struct - (vector-ref %expanded-vtables 15) - 0 - #{src\ 2646}# - #{names\ 2647}# - #{gensyms\ 2648}# - #{vals\ 2649}# - #{body\ 2650}#))) - (#{make-lambda-case\ 268}# - (lambda (#{src\ 2656}# - #{req\ 2657}# - #{opt\ 2658}# - #{rest\ 2659}# - #{kw\ 2660}# - #{inits\ 2661}# - #{gensyms\ 2662}# - #{body\ 2663}# - #{alternate\ 2664}#) - (make-struct - (vector-ref %expanded-vtables 14) - 0 - #{src\ 2656}# - #{req\ 2657}# - #{opt\ 2658}# - #{rest\ 2659}# - #{kw\ 2660}# - #{inits\ 2661}# - #{gensyms\ 2662}# - #{body\ 2663}# - #{alternate\ 2664}#))) - (#{make-lambda\ 266}# - (lambda (#{src\ 2674}# #{meta\ 2675}# #{body\ 2676}#) - (make-struct - (vector-ref %expanded-vtables 13) - 0 - #{src\ 2674}# - #{meta\ 2675}# - #{body\ 2676}#))) + (#{syntax-object-expression\ 348}# #{x\ 2351}#)) + (if (pair? #{x\ 2351}#) + (let ((#{props\ 2358}# (source-properties #{x\ 2351}#))) + (if (pair? #{props\ 2358}#) #{props\ 2358}# #f)) + #f)))) + (#{set-syntax-object-module!\ 358}# + (lambda (#{x\ 2360}# #{update\ 2361}#) + (vector-set! #{x\ 2360}# 3 #{update\ 2361}#))) + (#{set-syntax-object-wrap!\ 356}# + (lambda (#{x\ 2364}# #{update\ 2365}#) + (vector-set! #{x\ 2364}# 2 #{update\ 2365}#))) + (#{set-syntax-object-expression!\ 354}# + (lambda (#{x\ 2368}# #{update\ 2369}#) + (vector-set! #{x\ 2368}# 1 #{update\ 2369}#))) + (#{syntax-object-module\ 352}# + (lambda (#{x\ 2372}#) (vector-ref #{x\ 2372}# 3))) + (#{syntax-object-wrap\ 350}# + (lambda (#{x\ 2374}#) (vector-ref #{x\ 2374}# 2))) + (#{syntax-object-expression\ 348}# + (lambda (#{x\ 2376}#) (vector-ref #{x\ 2376}# 1))) + (#{syntax-object?\ 346}# + (lambda (#{x\ 2378}#) + (if (vector? #{x\ 2378}#) + (if (= (vector-length #{x\ 2378}#) 4) + (eq? (vector-ref #{x\ 2378}# 0) + 'syntax-object) + #f) + #f))) + (#{make-syntax-object\ 344}# + (lambda (#{expression\ 2383}# + #{wrap\ 2384}# + #{module\ 2385}#) + (vector + 'syntax-object + #{expression\ 2383}# + #{wrap\ 2384}# + #{module\ 2385}#))) + (#{build-letrec\ 340}# + (lambda (#{src\ 2389}# + #{in-order?\ 2390}# + #{ids\ 2391}# + #{vars\ 2392}# + #{val-exps\ 2393}# + #{body-exp\ 2394}#) + (if (null? #{vars\ 2392}#) + #{body-exp\ 2394}# + (begin + (for-each + #{maybe-name-value!\ 320}# + #{ids\ 2391}# + #{val-exps\ 2393}#) + (#{make-letrec\ 272}# + #{src\ 2389}# + #{in-order?\ 2390}# + #{ids\ 2391}# + #{vars\ 2392}# + #{val-exps\ 2393}# + #{body-exp\ 2394}#))))) + (#{build-named-let\ 338}# + (lambda (#{src\ 2401}# + #{ids\ 2402}# + #{vars\ 2403}# + #{val-exps\ 2404}# + #{body-exp\ 2405}#) + (let ((#{f\ 2415}# (car #{vars\ 2403}#)) + (#{f-name\ 2416}# (car #{ids\ 2402}#)) + (#{vars\ 2417}# (cdr #{vars\ 2403}#)) + (#{ids\ 2418}# (cdr #{ids\ 2402}#))) + (let ((#{proc\ 2420}# + (#{build-simple-lambda\ 324}# + #{src\ 2401}# + #{ids\ 2418}# + #f + #{vars\ 2417}# + '() + #{body-exp\ 2405}#))) + (begin + (#{maybe-name-value!\ 320}# + #{f-name\ 2416}# + #{proc\ 2420}#) + (for-each + #{maybe-name-value!\ 320}# + #{ids\ 2418}# + #{val-exps\ 2404}#) + (#{make-letrec\ 272}# + #{src\ 2401}# + #f + (list #{f-name\ 2416}#) + (list #{f\ 2415}#) + (list #{proc\ 2420}#) + (#{build-application\ 304}# + #{src\ 2401}# + (#{build-lexical-reference\ 310}# + 'fun + #{src\ 2401}# + #{f-name\ 2416}# + #{f\ 2415}#) + #{val-exps\ 2404}#))))))) + (#{build-let\ 336}# + (lambda (#{src\ 2421}# + #{ids\ 2422}# + #{vars\ 2423}# + #{val-exps\ 2424}# + #{body-exp\ 2425}#) + (begin + (for-each + #{maybe-name-value!\ 320}# + #{ids\ 2422}# + #{val-exps\ 2424}#) + (if (null? #{vars\ 2423}#) + #{body-exp\ 2425}# + (#{make-let\ 270}# + #{src\ 2421}# + #{ids\ 2422}# + #{vars\ 2423}# + #{val-exps\ 2424}# + #{body-exp\ 2425}#))))) + (#{build-sequence\ 334}# + (lambda (#{src\ 2431}# #{exps\ 2432}#) + (if (null? (cdr #{exps\ 2432}#)) + (car #{exps\ 2432}#) (#{make-sequence\ 264}# - (lambda (#{src\ 2680}# #{exps\ 2681}#) - (make-struct - (vector-ref %expanded-vtables 12) - 0 - #{src\ 2680}# - #{exps\ 2681}#))) - (#{make-application\ 262}# - (lambda (#{src\ 2684}# #{proc\ 2685}# #{args\ 2686}#) - (make-struct - (vector-ref %expanded-vtables 11) - 0 - #{src\ 2684}# - #{proc\ 2685}# - #{args\ 2686}#))) - (#{make-conditional\ 260}# - (lambda (#{src\ 2690}# - #{test\ 2691}# - #{consequent\ 2692}# - #{alternate\ 2693}#) - (make-struct - (vector-ref %expanded-vtables 10) - 0 - #{src\ 2690}# - #{test\ 2691}# - #{consequent\ 2692}# - #{alternate\ 2693}#))) - (#{make-toplevel-define\ 258}# - (lambda (#{src\ 2698}# #{name\ 2699}# #{exp\ 2700}#) - (make-struct - (vector-ref %expanded-vtables 9) - 0 - #{src\ 2698}# - #{name\ 2699}# - #{exp\ 2700}#))) - (#{make-toplevel-set\ 256}# - (lambda (#{src\ 2704}# #{name\ 2705}# #{exp\ 2706}#) - (make-struct - (vector-ref %expanded-vtables 8) - 0 - #{src\ 2704}# - #{name\ 2705}# - #{exp\ 2706}#))) + #{src\ 2431}# + #{exps\ 2432}#)))) + (#{build-data\ 332}# + (lambda (#{src\ 2435}# #{exp\ 2436}#) + (#{make-const\ 242}# #{src\ 2435}# #{exp\ 2436}#))) + (#{build-primref\ 330}# + (lambda (#{src\ 2439}# #{name\ 2440}#) + (if (equal? + (module-name (current-module)) + '(guile)) (#{make-toplevel-ref\ 254}# - (lambda (#{src\ 2710}# #{name\ 2711}#) - (make-struct - (vector-ref %expanded-vtables 7) - 0 - #{src\ 2710}# - #{name\ 2711}#))) - (#{make-module-set\ 252}# - (lambda (#{src\ 2714}# - #{mod\ 2715}# - #{name\ 2716}# - #{public?\ 2717}# - #{exp\ 2718}#) - (make-struct - (vector-ref %expanded-vtables 6) - 0 - #{src\ 2714}# - #{mod\ 2715}# - #{name\ 2716}# - #{public?\ 2717}# - #{exp\ 2718}#))) + #{src\ 2439}# + #{name\ 2440}#) (#{make-module-ref\ 250}# - (lambda (#{src\ 2724}# - #{mod\ 2725}# - #{name\ 2726}# - #{public?\ 2727}#) - (make-struct - (vector-ref %expanded-vtables 5) - 0 - #{src\ 2724}# - #{mod\ 2725}# - #{name\ 2726}# - #{public?\ 2727}#))) - (#{make-lexical-set\ 248}# - (lambda (#{src\ 2732}# - #{name\ 2733}# - #{gensym\ 2734}# - #{exp\ 2735}#) - (make-struct - (vector-ref %expanded-vtables 4) - 0 - #{src\ 2732}# - #{name\ 2733}# - #{gensym\ 2734}# - #{exp\ 2735}#))) - (#{make-lexical-ref\ 246}# - (lambda (#{src\ 2740}# #{name\ 2741}# #{gensym\ 2742}#) - (make-struct - (vector-ref %expanded-vtables 3) - 0 - #{src\ 2740}# - #{name\ 2741}# - #{gensym\ 2742}#))) - (#{make-primitive-ref\ 244}# - (lambda (#{src\ 2746}# #{name\ 2747}#) - (make-struct - (vector-ref %expanded-vtables 2) - 0 - #{src\ 2746}# - #{name\ 2747}#))) - (#{make-const\ 242}# - (lambda (#{src\ 2750}# #{exp\ 2751}#) - (make-struct - (vector-ref %expanded-vtables 1) - 0 - #{src\ 2750}# - #{exp\ 2751}#))) - (#{make-void\ 240}# - (lambda (#{src\ 2754}#) - (make-struct - (vector-ref %expanded-vtables 0) - 0 - #{src\ 2754}#)))) + #{src\ 2439}# + '(guile) + #{name\ 2440}# + #f)))) + (#{build-lambda-case\ 328}# + (lambda (#{src\ 2443}# + #{req\ 2444}# + #{opt\ 2445}# + #{rest\ 2446}# + #{kw\ 2447}# + #{inits\ 2448}# + #{vars\ 2449}# + #{body\ 2450}# + #{else-case\ 2451}#) + (#{make-lambda-case\ 268}# + #{src\ 2443}# + #{req\ 2444}# + #{opt\ 2445}# + #{rest\ 2446}# + #{kw\ 2447}# + #{inits\ 2448}# + #{vars\ 2449}# + #{body\ 2450}# + #{else-case\ 2451}#))) + (#{build-case-lambda\ 326}# + (lambda (#{src\ 2461}# #{meta\ 2462}# #{body\ 2463}#) + (#{make-lambda\ 266}# + #{src\ 2461}# + #{meta\ 2462}# + #{body\ 2463}#))) + (#{build-simple-lambda\ 324}# + (lambda (#{src\ 2467}# + #{req\ 2468}# + #{rest\ 2469}# + #{vars\ 2470}# + #{meta\ 2471}# + #{exp\ 2472}#) + (#{make-lambda\ 266}# + #{src\ 2467}# + #{meta\ 2471}# + (#{make-lambda-case\ 268}# + #{src\ 2467}# + #{req\ 2468}# + #f + #{rest\ 2469}# + #f + '() + #{vars\ 2470}# + #{exp\ 2472}# + #f)))) + (#{build-global-definition\ 322}# + (lambda (#{source\ 2479}# #{var\ 2480}# #{exp\ 2481}#) + (begin + (#{maybe-name-value!\ 320}# + #{var\ 2480}# + #{exp\ 2481}#) + (#{make-toplevel-define\ 258}# + #{source\ 2479}# + #{var\ 2480}# + #{exp\ 2481}#)))) + (#{maybe-name-value!\ 320}# + (lambda (#{name\ 2485}# #{val\ 2486}#) + (if (#{lambda?\ 277}# #{val\ 2486}#) + (let ((#{meta\ 2490}# + (#{lambda-meta\ 279}# #{val\ 2486}#))) + (if (not (assq (quote name) #{meta\ 2490}#)) + (#{set-lambda-meta!\ 281}# + #{val\ 2486}# + (acons 'name + #{name\ 2485}# + #{meta\ 2490}#))))))) + (#{build-global-assignment\ 318}# + (lambda (#{source\ 2491}# + #{var\ 2492}# + #{exp\ 2493}# + #{mod\ 2494}#) + (#{analyze-variable\ 314}# + #{mod\ 2494}# + #{var\ 2492}# + (lambda (#{mod\ 2499}# #{var\ 2500}# #{public?\ 2501}#) + (#{make-module-set\ 252}# + #{source\ 2491}# + #{mod\ 2499}# + #{var\ 2500}# + #{public?\ 2501}# + #{exp\ 2493}#)) + (lambda (#{var\ 2505}#) + (#{make-toplevel-set\ 256}# + #{source\ 2491}# + #{var\ 2505}# + #{exp\ 2493}#))))) + (#{build-global-reference\ 316}# + (lambda (#{source\ 2507}# #{var\ 2508}# #{mod\ 2509}#) + (#{analyze-variable\ 314}# + #{mod\ 2509}# + #{var\ 2508}# + (lambda (#{mod\ 2513}# #{var\ 2514}# #{public?\ 2515}#) + (#{make-module-ref\ 250}# + #{source\ 2507}# + #{mod\ 2513}# + #{var\ 2514}# + #{public?\ 2515}#)) + (lambda (#{var\ 2519}#) + (#{make-toplevel-ref\ 254}# + #{source\ 2507}# + #{var\ 2519}#))))) + (#{analyze-variable\ 314}# + (lambda (#{mod\ 2521}# + #{var\ 2522}# + #{modref-cont\ 2523}# + #{bare-cont\ 2524}#) + (if (not #{mod\ 2521}#) + (#{bare-cont\ 2524}# #{var\ 2522}#) + (let ((#{kind\ 2531}# (car #{mod\ 2521}#)) + (#{mod\ 2532}# (cdr #{mod\ 2521}#))) + (if (memv #{kind\ 2531}# (quote (public))) + (#{modref-cont\ 2523}# + #{mod\ 2532}# + #{var\ 2522}# + #t) + (if (memv #{kind\ 2531}# (quote (private))) + (if (not (equal? + #{mod\ 2532}# + (module-name (current-module)))) + (#{modref-cont\ 2523}# + #{mod\ 2532}# + #{var\ 2522}# + #f) + (#{bare-cont\ 2524}# #{var\ 2522}#)) + (if (memv #{kind\ 2531}# (quote (bare))) + (#{bare-cont\ 2524}# #{var\ 2522}#) + (if (memv #{kind\ 2531}# (quote (hygiene))) + (if (if (not (equal? + #{mod\ 2532}# + (module-name (current-module)))) + (module-variable + (resolve-module #{mod\ 2532}#) + #{var\ 2522}#) + #f) + (#{modref-cont\ 2523}# + #{mod\ 2532}# + #{var\ 2522}# + #f) + (#{bare-cont\ 2524}# #{var\ 2522}#)) + (syntax-violation + #f + "bad module kind" + #{var\ 2522}# + #{mod\ 2532}#))))))))) + (#{build-lexical-assignment\ 312}# + (lambda (#{source\ 2540}# + #{name\ 2541}# + #{var\ 2542}# + #{exp\ 2543}#) + (#{make-lexical-set\ 248}# + #{source\ 2540}# + #{name\ 2541}# + #{var\ 2542}# + #{exp\ 2543}#))) + (#{build-lexical-reference\ 310}# + (lambda (#{type\ 2548}# + #{source\ 2549}# + #{name\ 2550}# + #{var\ 2551}#) + (#{make-lexical-ref\ 246}# + #{source\ 2549}# + #{name\ 2550}# + #{var\ 2551}#))) + (#{build-dynlet\ 308}# + (lambda (#{source\ 2556}# + #{fluids\ 2557}# + #{vals\ 2558}# + #{body\ 2559}#) + (#{make-dynlet\ 274}# + #{source\ 2556}# + #{fluids\ 2557}# + #{vals\ 2558}# + #{body\ 2559}#))) + (#{build-conditional\ 306}# + (lambda (#{source\ 2564}# + #{test-exp\ 2565}# + #{then-exp\ 2566}# + #{else-exp\ 2567}#) + (#{make-conditional\ 260}# + #{source\ 2564}# + #{test-exp\ 2565}# + #{then-exp\ 2566}# + #{else-exp\ 2567}#))) + (#{build-application\ 304}# + (lambda (#{source\ 2572}# + #{fun-exp\ 2573}# + #{arg-exps\ 2574}#) + (#{make-application\ 262}# + #{source\ 2572}# + #{fun-exp\ 2573}# + #{arg-exps\ 2574}#))) + (#{build-void\ 302}# + (lambda (#{source\ 2578}#) + (#{make-void\ 240}# #{source\ 2578}#))) + (#{decorate-source\ 300}# + (lambda (#{e\ 2580}# #{s\ 2581}#) + (begin + (if (if (pair? #{e\ 2580}#) #{s\ 2581}# #f) + (set-source-properties! #{e\ 2580}# #{s\ 2581}#)) + #{e\ 2580}#))) + (#{get-global-definition-hook\ 298}# + (lambda (#{symbol\ 2586}# #{module\ 2587}#) + (begin + (if (if (not #{module\ 2587}#) (current-module) #f) + (warn "module system is booted, we should have a module" + #{symbol\ 2586}#)) + (let ((#{v\ 2593}# + (module-variable + (if #{module\ 2587}# + (resolve-module (cdr #{module\ 2587}#)) + (current-module)) + #{symbol\ 2586}#))) + (if #{v\ 2593}# + (if (variable-bound? #{v\ 2593}#) + (let ((#{val\ 2598}# (variable-ref #{v\ 2593}#))) + (if (macro? #{val\ 2598}#) + (if (macro-type #{val\ 2598}#) + (cons (macro-type #{val\ 2598}#) + (macro-binding #{val\ 2598}#)) + #f) + #f)) + #f) + #f))))) + (#{put-global-definition-hook\ 296}# + (lambda (#{symbol\ 2602}# #{type\ 2603}# #{val\ 2604}#) + (module-define! + (current-module) + #{symbol\ 2602}# + (make-syntax-transformer + #{symbol\ 2602}# + #{type\ 2603}# + #{val\ 2604}#)))) + (#{local-eval-hook\ 293}# + (lambda (#{x\ 2608}# #{mod\ 2609}#) + (primitive-eval #{x\ 2608}#))) + (#{top-level-eval-hook\ 291}# + (lambda (#{x\ 2612}# #{mod\ 2613}#) + (primitive-eval #{x\ 2612}#))) + (#{fx<\ 289}# <) + (#{fx=\ 287}# =) + (#{fx-\ 285}# -) + (#{fx+\ 283}# +) + (#{set-lambda-meta!\ 281}# + (lambda (#{x\ 2616}# #{v\ 2617}#) + (struct-set! #{x\ 2616}# 1 #{v\ 2617}#))) + (#{lambda-meta\ 279}# + (lambda (#{x\ 2620}#) (struct-ref #{x\ 2620}# 1))) + (#{lambda?\ 277}# + (lambda (#{x\ 2622}#) + (if (struct? #{x\ 2622}#) + (eq? (struct-vtable #{x\ 2622}#) + (vector-ref %expanded-vtables 13)) + #f))) + (#{make-dynlet\ 274}# + (lambda (#{src\ 2626}# + #{fluids\ 2627}# + #{vals\ 2628}# + #{body\ 2629}#) + (make-struct + (vector-ref %expanded-vtables 17) + 0 + #{src\ 2626}# + #{fluids\ 2627}# + #{vals\ 2628}# + #{body\ 2629}#))) + (#{make-letrec\ 272}# + (lambda (#{src\ 2634}# + #{in-order?\ 2635}# + #{names\ 2636}# + #{gensyms\ 2637}# + #{vals\ 2638}# + #{body\ 2639}#) + (make-struct + (vector-ref %expanded-vtables 16) + 0 + #{src\ 2634}# + #{in-order?\ 2635}# + #{names\ 2636}# + #{gensyms\ 2637}# + #{vals\ 2638}# + #{body\ 2639}#))) + (#{make-let\ 270}# + (lambda (#{src\ 2646}# + #{names\ 2647}# + #{gensyms\ 2648}# + #{vals\ 2649}# + #{body\ 2650}#) + (make-struct + (vector-ref %expanded-vtables 15) + 0 + #{src\ 2646}# + #{names\ 2647}# + #{gensyms\ 2648}# + #{vals\ 2649}# + #{body\ 2650}#))) + (#{make-lambda-case\ 268}# + (lambda (#{src\ 2656}# + #{req\ 2657}# + #{opt\ 2658}# + #{rest\ 2659}# + #{kw\ 2660}# + #{inits\ 2661}# + #{gensyms\ 2662}# + #{body\ 2663}# + #{alternate\ 2664}#) + (make-struct + (vector-ref %expanded-vtables 14) + 0 + #{src\ 2656}# + #{req\ 2657}# + #{opt\ 2658}# + #{rest\ 2659}# + #{kw\ 2660}# + #{inits\ 2661}# + #{gensyms\ 2662}# + #{body\ 2663}# + #{alternate\ 2664}#))) + (#{make-lambda\ 266}# + (lambda (#{src\ 2674}# #{meta\ 2675}# #{body\ 2676}#) + (make-struct + (vector-ref %expanded-vtables 13) + 0 + #{src\ 2674}# + #{meta\ 2675}# + #{body\ 2676}#))) + (#{make-sequence\ 264}# + (lambda (#{src\ 2680}# #{exps\ 2681}#) + (make-struct + (vector-ref %expanded-vtables 12) + 0 + #{src\ 2680}# + #{exps\ 2681}#))) + (#{make-application\ 262}# + (lambda (#{src\ 2684}# #{proc\ 2685}# #{args\ 2686}#) + (make-struct + (vector-ref %expanded-vtables 11) + 0 + #{src\ 2684}# + #{proc\ 2685}# + #{args\ 2686}#))) + (#{make-conditional\ 260}# + (lambda (#{src\ 2690}# + #{test\ 2691}# + #{consequent\ 2692}# + #{alternate\ 2693}#) + (make-struct + (vector-ref %expanded-vtables 10) + 0 + #{src\ 2690}# + #{test\ 2691}# + #{consequent\ 2692}# + #{alternate\ 2693}#))) + (#{make-toplevel-define\ 258}# + (lambda (#{src\ 2698}# #{name\ 2699}# #{exp\ 2700}#) + (make-struct + (vector-ref %expanded-vtables 9) + 0 + #{src\ 2698}# + #{name\ 2699}# + #{exp\ 2700}#))) + (#{make-toplevel-set\ 256}# + (lambda (#{src\ 2704}# #{name\ 2705}# #{exp\ 2706}#) + (make-struct + (vector-ref %expanded-vtables 8) + 0 + #{src\ 2704}# + #{name\ 2705}# + #{exp\ 2706}#))) + (#{make-toplevel-ref\ 254}# + (lambda (#{src\ 2710}# #{name\ 2711}#) + (make-struct + (vector-ref %expanded-vtables 7) + 0 + #{src\ 2710}# + #{name\ 2711}#))) + (#{make-module-set\ 252}# + (lambda (#{src\ 2714}# + #{mod\ 2715}# + #{name\ 2716}# + #{public?\ 2717}# + #{exp\ 2718}#) + (make-struct + (vector-ref %expanded-vtables 6) + 0 + #{src\ 2714}# + #{mod\ 2715}# + #{name\ 2716}# + #{public?\ 2717}# + #{exp\ 2718}#))) + (#{make-module-ref\ 250}# + (lambda (#{src\ 2724}# + #{mod\ 2725}# + #{name\ 2726}# + #{public?\ 2727}#) + (make-struct + (vector-ref %expanded-vtables 5) + 0 + #{src\ 2724}# + #{mod\ 2725}# + #{name\ 2726}# + #{public?\ 2727}#))) + (#{make-lexical-set\ 248}# + (lambda (#{src\ 2732}# + #{name\ 2733}# + #{gensym\ 2734}# + #{exp\ 2735}#) + (make-struct + (vector-ref %expanded-vtables 4) + 0 + #{src\ 2732}# + #{name\ 2733}# + #{gensym\ 2734}# + #{exp\ 2735}#))) + (#{make-lexical-ref\ 246}# + (lambda (#{src\ 2740}# #{name\ 2741}# #{gensym\ 2742}#) + (make-struct + (vector-ref %expanded-vtables 3) + 0 + #{src\ 2740}# + #{name\ 2741}# + #{gensym\ 2742}#))) + (#{make-primitive-ref\ 244}# + (lambda (#{src\ 2746}# #{name\ 2747}#) + (make-struct + (vector-ref %expanded-vtables 2) + 0 + #{src\ 2746}# + #{name\ 2747}#))) + (#{make-const\ 242}# + (lambda (#{src\ 2750}# #{exp\ 2751}#) + (make-struct + (vector-ref %expanded-vtables 1) + 0 + #{src\ 2750}# + #{exp\ 2751}#))) + (#{make-void\ 240}# + (lambda (#{src\ 2754}#) + (make-struct + (vector-ref %expanded-vtables 0) + 0 + #{src\ 2754}#)))) (begin (#{global-extend\ 378}# 'local-syntax @@ -9084,358 +8922,352 @@ (#{global-extend\ 378}# 'core 'syntax - (letrec ((#{regen\ 2845}# - (lambda (#{x\ 2846}#) - (let ((#{atom-key\ 2850}# (car #{x\ 2846}#))) - (if (memv #{atom-key\ 2850}# (quote (ref))) - (#{build-lexical-reference\ 310}# - 'value + (letrec* + ((#{regen\ 2845}# + (lambda (#{x\ 2846}#) + (let ((#{atom-key\ 2850}# (car #{x\ 2846}#))) + (if (memv #{atom-key\ 2850}# (quote (ref))) + (#{build-lexical-reference\ 310}# + 'value + #f + (cadr #{x\ 2846}#) + (cadr #{x\ 2846}#)) + (if (memv #{atom-key\ 2850}# (quote (primitive))) + (#{build-primref\ 330}# #f (cadr #{x\ 2846}#)) + (if (memv #{atom-key\ 2850}# (quote (quote))) + (#{build-data\ 332}# #f (cadr #{x\ 2846}#)) + (if (memv #{atom-key\ 2850}# (quote (lambda))) + (if (list? (cadr #{x\ 2846}#)) + (#{build-simple-lambda\ 324}# + #f + (cadr #{x\ 2846}#) + #f + (cadr #{x\ 2846}#) + '() + (#{regen\ 2845}# (caddr #{x\ 2846}#))) + (error "how did we get here" #{x\ 2846}#)) + (#{build-application\ 304}# #f - (cadr #{x\ 2846}#) - (cadr #{x\ 2846}#)) - (if (memv #{atom-key\ 2850}# (quote (primitive))) - (#{build-primref\ 330}# #f (cadr #{x\ 2846}#)) - (if (memv #{atom-key\ 2850}# (quote (quote))) - (#{build-data\ 332}# #f (cadr #{x\ 2846}#)) - (if (memv #{atom-key\ 2850}# (quote (lambda))) - (if (list? (cadr #{x\ 2846}#)) - (#{build-simple-lambda\ 324}# - #f - (cadr #{x\ 2846}#) - #f - (cadr #{x\ 2846}#) - '() - (#{regen\ 2845}# (caddr #{x\ 2846}#))) - (error "how did we get here" #{x\ 2846}#)) - (#{build-application\ 304}# - #f - (#{build-primref\ 330}# #f (car #{x\ 2846}#)) - (map #{regen\ 2845}# - (cdr #{x\ 2846}#)))))))))) - (#{gen-vector\ 2843}# - (lambda (#{x\ 2862}#) - (if (eq? (car #{x\ 2862}#) (quote list)) - (cons (quote vector) (cdr #{x\ 2862}#)) - (if (eq? (car #{x\ 2862}#) (quote quote)) - (list 'quote - (list->vector (cadr #{x\ 2862}#))) - (list (quote list->vector) #{x\ 2862}#))))) - (#{gen-append\ 2841}# - (lambda (#{x\ 2872}# #{y\ 2873}#) - (if (equal? #{y\ 2873}# (quote (quote ()))) - #{x\ 2872}# - (list (quote append) #{x\ 2872}# #{y\ 2873}#)))) - (#{gen-cons\ 2839}# - (lambda (#{x\ 2877}# #{y\ 2878}#) - (let ((#{atom-key\ 2883}# (car #{y\ 2878}#))) - (if (memv #{atom-key\ 2883}# (quote (quote))) - (if (eq? (car #{x\ 2877}#) (quote quote)) - (list 'quote - (cons (cadr #{x\ 2877}#) (cadr #{y\ 2878}#))) - (if (eq? (cadr #{y\ 2878}#) (quote ())) - (list (quote list) #{x\ 2877}#) - (list (quote cons) #{x\ 2877}# #{y\ 2878}#))) - (if (memv #{atom-key\ 2883}# (quote (list))) - (cons 'list - (cons #{x\ 2877}# (cdr #{y\ 2878}#))) - (list (quote cons) #{x\ 2877}# #{y\ 2878}#)))))) - (#{gen-map\ 2837}# - (lambda (#{e\ 2892}# #{map-env\ 2893}#) - (let ((#{formals\ 2898}# (map cdr #{map-env\ 2893}#)) - (#{actuals\ 2899}# - (map (lambda (#{x\ 2900}#) - (list (quote ref) (car #{x\ 2900}#))) - #{map-env\ 2893}#))) - (if (eq? (car #{e\ 2892}#) (quote ref)) - (car #{actuals\ 2899}#) - (if (and-map - (lambda (#{x\ 2907}#) - (if (eq? (car #{x\ 2907}#) (quote ref)) - (memq (cadr #{x\ 2907}#) #{formals\ 2898}#) - #f)) - (cdr #{e\ 2892}#)) - (cons 'map - (cons (list 'primitive - (car #{e\ 2892}#)) - (map (let ((#{r\ 2913}# - (map cons - #{formals\ 2898}# - #{actuals\ 2899}#))) - (lambda (#{x\ 2914}#) - (cdr (assq (cadr #{x\ 2914}#) - #{r\ 2913}#)))) - (cdr #{e\ 2892}#)))) - (cons 'map - (cons (list 'lambda - #{formals\ 2898}# - #{e\ 2892}#) - #{actuals\ 2899}#))))))) - (#{gen-mappend\ 2835}# - (lambda (#{e\ 2918}# #{map-env\ 2919}#) - (list 'apply - '(primitive append) - (#{gen-map\ 2837}# #{e\ 2918}# #{map-env\ 2919}#)))) - (#{gen-ref\ 2833}# - (lambda (#{src\ 2923}# - #{var\ 2924}# - #{level\ 2925}# - #{maps\ 2926}#) - (if (#{fx=\ 287}# #{level\ 2925}# 0) - (values #{var\ 2924}# #{maps\ 2926}#) - (if (null? #{maps\ 2926}#) + (#{build-primref\ 330}# #f (car #{x\ 2846}#)) + (map #{regen\ 2845}# (cdr #{x\ 2846}#)))))))))) + (#{gen-vector\ 2843}# + (lambda (#{x\ 2862}#) + (if (eq? (car #{x\ 2862}#) (quote list)) + (cons (quote vector) (cdr #{x\ 2862}#)) + (if (eq? (car #{x\ 2862}#) (quote quote)) + (list 'quote + (list->vector (cadr #{x\ 2862}#))) + (list (quote list->vector) #{x\ 2862}#))))) + (#{gen-append\ 2841}# + (lambda (#{x\ 2872}# #{y\ 2873}#) + (if (equal? #{y\ 2873}# (quote (quote ()))) + #{x\ 2872}# + (list (quote append) #{x\ 2872}# #{y\ 2873}#)))) + (#{gen-cons\ 2839}# + (lambda (#{x\ 2877}# #{y\ 2878}#) + (let ((#{atom-key\ 2883}# (car #{y\ 2878}#))) + (if (memv #{atom-key\ 2883}# (quote (quote))) + (if (eq? (car #{x\ 2877}#) (quote quote)) + (list 'quote + (cons (cadr #{x\ 2877}#) (cadr #{y\ 2878}#))) + (if (eq? (cadr #{y\ 2878}#) (quote ())) + (list (quote list) #{x\ 2877}#) + (list (quote cons) #{x\ 2877}# #{y\ 2878}#))) + (if (memv #{atom-key\ 2883}# (quote (list))) + (cons 'list + (cons #{x\ 2877}# (cdr #{y\ 2878}#))) + (list (quote cons) #{x\ 2877}# #{y\ 2878}#)))))) + (#{gen-map\ 2837}# + (lambda (#{e\ 2892}# #{map-env\ 2893}#) + (let ((#{formals\ 2898}# (map cdr #{map-env\ 2893}#)) + (#{actuals\ 2899}# + (map (lambda (#{x\ 2900}#) + (list (quote ref) (car #{x\ 2900}#))) + #{map-env\ 2893}#))) + (if (eq? (car #{e\ 2892}#) (quote ref)) + (car #{actuals\ 2899}#) + (if (and-map + (lambda (#{x\ 2907}#) + (if (eq? (car #{x\ 2907}#) (quote ref)) + (memq (cadr #{x\ 2907}#) #{formals\ 2898}#) + #f)) + (cdr #{e\ 2892}#)) + (cons 'map + (cons (list (quote primitive) (car #{e\ 2892}#)) + (map (let ((#{r\ 2913}# + (map cons + #{formals\ 2898}# + #{actuals\ 2899}#))) + (lambda (#{x\ 2914}#) + (cdr (assq (cadr #{x\ 2914}#) + #{r\ 2913}#)))) + (cdr #{e\ 2892}#)))) + (cons 'map + (cons (list 'lambda + #{formals\ 2898}# + #{e\ 2892}#) + #{actuals\ 2899}#))))))) + (#{gen-mappend\ 2835}# + (lambda (#{e\ 2918}# #{map-env\ 2919}#) + (list 'apply + '(primitive append) + (#{gen-map\ 2837}# #{e\ 2918}# #{map-env\ 2919}#)))) + (#{gen-ref\ 2833}# + (lambda (#{src\ 2923}# + #{var\ 2924}# + #{level\ 2925}# + #{maps\ 2926}#) + (if (#{fx=\ 287}# #{level\ 2925}# 0) + (values #{var\ 2924}# #{maps\ 2926}#) + (if (null? #{maps\ 2926}#) + (syntax-violation + 'syntax + "missing ellipsis" + #{src\ 2923}#) + (call-with-values + (lambda () + (#{gen-ref\ 2833}# + #{src\ 2923}# + #{var\ 2924}# + (#{fx-\ 285}# #{level\ 2925}# 1) + (cdr #{maps\ 2926}#))) + (lambda (#{outer-var\ 2931}# #{outer-maps\ 2932}#) + (let ((#{b\ 2936}# + (assq #{outer-var\ 2931}# + (car #{maps\ 2926}#)))) + (if #{b\ 2936}# + (values (cdr #{b\ 2936}#) #{maps\ 2926}#) + (let ((#{inner-var\ 2938}# + (#{gen-var\ 495}# (quote tmp)))) + (values + #{inner-var\ 2938}# + (cons (cons (cons #{outer-var\ 2931}# + #{inner-var\ 2938}#) + (car #{maps\ 2926}#)) + #{outer-maps\ 2932}#))))))))))) + (#{gen-syntax\ 2831}# + (lambda (#{src\ 2939}# + #{e\ 2940}# + #{r\ 2941}# + #{maps\ 2942}# + #{ellipsis?\ 2943}# + #{mod\ 2944}#) + (if (#{id?\ 382}# #{e\ 2940}#) + (let ((#{label\ 2952}# + (#{id-var-name\ 439}# #{e\ 2940}# (quote (()))))) + (let ((#{b\ 2955}# + (#{lookup\ 376}# + #{label\ 2952}# + #{r\ 2941}# + #{mod\ 2944}#))) + (if (eq? (#{binding-type\ 365}# #{b\ 2955}#) + 'syntax) + (call-with-values + (lambda () + (let ((#{var.lev\ 2957}# + (#{binding-value\ 367}# #{b\ 2955}#))) + (#{gen-ref\ 2833}# + #{src\ 2939}# + (car #{var.lev\ 2957}#) + (cdr #{var.lev\ 2957}#) + #{maps\ 2942}#))) + (lambda (#{var\ 2958}# #{maps\ 2959}#) + (values + (list (quote ref) #{var\ 2958}#) + #{maps\ 2959}#))) + (if (#{ellipsis?\ 2943}# #{e\ 2940}#) (syntax-violation 'syntax - "missing ellipsis" - #{src\ 2923}#) - (call-with-values - (lambda () - (#{gen-ref\ 2833}# - #{src\ 2923}# - #{var\ 2924}# - (#{fx-\ 285}# #{level\ 2925}# 1) - (cdr #{maps\ 2926}#))) - (lambda (#{outer-var\ 2931}# #{outer-maps\ 2932}#) - (let ((#{b\ 2936}# - (assq #{outer-var\ 2931}# - (car #{maps\ 2926}#)))) - (if #{b\ 2936}# - (values (cdr #{b\ 2936}#) #{maps\ 2926}#) - (let ((#{inner-var\ 2938}# - (#{gen-var\ 495}# (quote tmp)))) - (values - #{inner-var\ 2938}# - (cons (cons (cons #{outer-var\ 2931}# - #{inner-var\ 2938}#) - (car #{maps\ 2926}#)) - #{outer-maps\ 2932}#))))))))))) - (#{gen-syntax\ 2831}# - (lambda (#{src\ 2939}# - #{e\ 2940}# - #{r\ 2941}# - #{maps\ 2942}# - #{ellipsis?\ 2943}# - #{mod\ 2944}#) - (if (#{id?\ 382}# #{e\ 2940}#) - (let ((#{label\ 2952}# - (#{id-var-name\ 439}# - #{e\ 2940}# - '(())))) - (let ((#{b\ 2955}# - (#{lookup\ 376}# - #{label\ 2952}# - #{r\ 2941}# - #{mod\ 2944}#))) - (if (eq? (#{binding-type\ 365}# #{b\ 2955}#) - 'syntax) - (call-with-values - (lambda () - (let ((#{var.lev\ 2957}# - (#{binding-value\ 367}# #{b\ 2955}#))) - (#{gen-ref\ 2833}# - #{src\ 2939}# - (car #{var.lev\ 2957}#) - (cdr #{var.lev\ 2957}#) - #{maps\ 2942}#))) - (lambda (#{var\ 2958}# #{maps\ 2959}#) - (values - (list (quote ref) #{var\ 2958}#) - #{maps\ 2959}#))) - (if (#{ellipsis?\ 2943}# #{e\ 2940}#) - (syntax-violation - 'syntax - "misplaced ellipsis" - #{src\ 2939}#) - (values - (list (quote quote) #{e\ 2940}#) - #{maps\ 2942}#))))) - ((lambda (#{tmp\ 2964}#) - ((lambda (#{tmp\ 2965}#) - (if (if #{tmp\ 2965}# - (apply (lambda (#{dots\ 2968}# #{e\ 2969}#) - (#{ellipsis?\ 2943}# - #{dots\ 2968}#)) - #{tmp\ 2965}#) - #f) - (apply (lambda (#{dots\ 2972}# #{e\ 2973}#) - (#{gen-syntax\ 2831}# - #{src\ 2939}# - #{e\ 2973}# - #{r\ 2941}# - #{maps\ 2942}# - (lambda (#{x\ 2974}#) #f) - #{mod\ 2944}#)) - #{tmp\ 2965}#) - ((lambda (#{tmp\ 2976}#) - (if (if #{tmp\ 2976}# - (apply (lambda (#{x\ 2980}# - #{dots\ 2981}# - #{y\ 2982}#) - (#{ellipsis?\ 2943}# - #{dots\ 2981}#)) - #{tmp\ 2976}#) - #f) - (apply (lambda (#{x\ 2986}# - #{dots\ 2987}# - #{y\ 2988}#) - (letrec ((#{f\ 2992}# - (lambda (#{y\ 2993}# - #{k\ 2994}#) - ((lambda (#{tmp\ 3001}#) - ((lambda (#{tmp\ 3002}#) - (if (if #{tmp\ 3002}# - (apply (lambda (#{dots\ 3005}# - #{y\ 3006}#) - (#{ellipsis?\ 2943}# - #{dots\ 3005}#)) - #{tmp\ 3002}#) - #f) - (apply (lambda (#{dots\ 3009}# - #{y\ 3010}#) - (#{f\ 2992}# - #{y\ 3010}# - (lambda (#{maps\ 3011}#) - (call-with-values - (lambda () - (#{k\ 2994}# - (cons '() - #{maps\ 3011}#))) - (lambda (#{x\ 3013}# - #{maps\ 3014}#) - (if (null? (car #{maps\ 3014}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src\ 2939}#) - (values - (#{gen-mappend\ 2835}# - #{x\ 3013}# - (car #{maps\ 3014}#)) - (cdr #{maps\ 3014}#)))))))) - #{tmp\ 3002}#) - ((lambda (#{_\ 3018}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2831}# - #{src\ 2939}# - #{y\ 2993}# - #{r\ 2941}# - #{maps\ 2942}# - #{ellipsis?\ 2943}# - #{mod\ 2944}#)) - (lambda (#{y\ 3019}# - #{maps\ 3020}#) + "misplaced ellipsis" + #{src\ 2939}#) + (values + (list (quote quote) #{e\ 2940}#) + #{maps\ 2942}#))))) + ((lambda (#{tmp\ 2964}#) + ((lambda (#{tmp\ 2965}#) + (if (if #{tmp\ 2965}# + (apply (lambda (#{dots\ 2968}# #{e\ 2969}#) + (#{ellipsis?\ 2943}# #{dots\ 2968}#)) + #{tmp\ 2965}#) + #f) + (apply (lambda (#{dots\ 2972}# #{e\ 2973}#) + (#{gen-syntax\ 2831}# + #{src\ 2939}# + #{e\ 2973}# + #{r\ 2941}# + #{maps\ 2942}# + (lambda (#{x\ 2974}#) #f) + #{mod\ 2944}#)) + #{tmp\ 2965}#) + ((lambda (#{tmp\ 2976}#) + (if (if #{tmp\ 2976}# + (apply (lambda (#{x\ 2980}# + #{dots\ 2981}# + #{y\ 2982}#) + (#{ellipsis?\ 2943}# + #{dots\ 2981}#)) + #{tmp\ 2976}#) + #f) + (apply (lambda (#{x\ 2986}# + #{dots\ 2987}# + #{y\ 2988}#) + (letrec ((#{f\ 2992}# + (lambda (#{y\ 2993}# + #{k\ 2994}#) + ((lambda (#{tmp\ 3001}#) + ((lambda (#{tmp\ 3002}#) + (if (if #{tmp\ 3002}# + (apply (lambda (#{dots\ 3005}# + #{y\ 3006}#) + (#{ellipsis?\ 2943}# + #{dots\ 3005}#)) + #{tmp\ 3002}#) + #f) + (apply (lambda (#{dots\ 3009}# + #{y\ 3010}#) + (#{f\ 2992}# + #{y\ 3010}# + (lambda (#{maps\ 3011}#) (call-with-values (lambda () (#{k\ 2994}# - #{maps\ 3020}#)) - (lambda (#{x\ 3023}# - #{maps\ 3024}#) - (values - (#{gen-append\ 2841}# - #{x\ 3023}# - #{y\ 3019}#) - #{maps\ 3024}#)))))) - #{tmp\ 3001}#))) - ($sc-dispatch - #{tmp\ 3001}# - '(any . any)))) - #{y\ 2993}#)))) - (#{f\ 2992}# - #{y\ 2988}# - (lambda (#{maps\ 2995}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2831}# - #{src\ 2939}# - #{x\ 2986}# - #{r\ 2941}# - (cons '() - #{maps\ 2995}#) - #{ellipsis?\ 2943}# - #{mod\ 2944}#)) - (lambda (#{x\ 2997}# - #{maps\ 2998}#) - (if (null? (car #{maps\ 2998}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src\ 2939}#) - (values - (#{gen-map\ 2837}# - #{x\ 2997}# - (car #{maps\ 2998}#)) - (cdr #{maps\ 2998}#))))))))) - #{tmp\ 2976}#) - ((lambda (#{tmp\ 3027}#) - (if #{tmp\ 3027}# - (apply (lambda (#{x\ 3030}# - #{y\ 3031}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2831}# - #{src\ 2939}# - #{x\ 3030}# - #{r\ 2941}# - #{maps\ 2942}# - #{ellipsis?\ 2943}# - #{mod\ 2944}#)) - (lambda (#{x\ 3032}# - #{maps\ 3033}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2831}# - #{src\ 2939}# - #{y\ 3031}# - #{r\ 2941}# - #{maps\ 3033}# - #{ellipsis?\ 2943}# - #{mod\ 2944}#)) - (lambda (#{y\ 3036}# - #{maps\ 3037}#) - (values - (#{gen-cons\ 2839}# - #{x\ 3032}# - #{y\ 3036}#) - #{maps\ 3037}#)))))) - #{tmp\ 3027}#) - ((lambda (#{tmp\ 3040}#) - (if #{tmp\ 3040}# - (apply (lambda (#{e1\ 3043}# - #{e2\ 3044}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2831}# - #{src\ 2939}# - (cons #{e1\ 3043}# - #{e2\ 3044}#) - #{r\ 2941}# - #{maps\ 2942}# - #{ellipsis?\ 2943}# - #{mod\ 2944}#)) - (lambda (#{e\ 3046}# - #{maps\ 3047}#) - (values - (#{gen-vector\ 2843}# - #{e\ 3046}#) - #{maps\ 3047}#)))) - #{tmp\ 3040}#) - ((lambda (#{_\ 3051}#) - (values - (list 'quote - #{e\ 2940}#) - #{maps\ 2942}#)) - #{tmp\ 2964}#))) - ($sc-dispatch - #{tmp\ 2964}# - '#(vector (any . each-any)))))) - ($sc-dispatch - #{tmp\ 2964}# - '(any . any))))) - ($sc-dispatch - #{tmp\ 2964}# - '(any any . any))))) - ($sc-dispatch #{tmp\ 2964}# (quote (any any))))) - #{e\ 2940}#))))) + (cons '() + #{maps\ 3011}#))) + (lambda (#{x\ 3013}# + #{maps\ 3014}#) + (if (null? (car #{maps\ 3014}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 2939}#) + (values + (#{gen-mappend\ 2835}# + #{x\ 3013}# + (car #{maps\ 3014}#)) + (cdr #{maps\ 3014}#)))))))) + #{tmp\ 3002}#) + ((lambda (#{_\ 3018}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2831}# + #{src\ 2939}# + #{y\ 2993}# + #{r\ 2941}# + #{maps\ 2942}# + #{ellipsis?\ 2943}# + #{mod\ 2944}#)) + (lambda (#{y\ 3019}# + #{maps\ 3020}#) + (call-with-values + (lambda () + (#{k\ 2994}# + #{maps\ 3020}#)) + (lambda (#{x\ 3023}# + #{maps\ 3024}#) + (values + (#{gen-append\ 2841}# + #{x\ 3023}# + #{y\ 3019}#) + #{maps\ 3024}#)))))) + #{tmp\ 3001}#))) + ($sc-dispatch + #{tmp\ 3001}# + '(any . any)))) + #{y\ 2993}#)))) + (#{f\ 2992}# + #{y\ 2988}# + (lambda (#{maps\ 2995}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2831}# + #{src\ 2939}# + #{x\ 2986}# + #{r\ 2941}# + (cons '() + #{maps\ 2995}#) + #{ellipsis?\ 2943}# + #{mod\ 2944}#)) + (lambda (#{x\ 2997}# + #{maps\ 2998}#) + (if (null? (car #{maps\ 2998}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 2939}#) + (values + (#{gen-map\ 2837}# + #{x\ 2997}# + (car #{maps\ 2998}#)) + (cdr #{maps\ 2998}#))))))))) + #{tmp\ 2976}#) + ((lambda (#{tmp\ 3027}#) + (if #{tmp\ 3027}# + (apply (lambda (#{x\ 3030}# #{y\ 3031}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2831}# + #{src\ 2939}# + #{x\ 3030}# + #{r\ 2941}# + #{maps\ 2942}# + #{ellipsis?\ 2943}# + #{mod\ 2944}#)) + (lambda (#{x\ 3032}# + #{maps\ 3033}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2831}# + #{src\ 2939}# + #{y\ 3031}# + #{r\ 2941}# + #{maps\ 3033}# + #{ellipsis?\ 2943}# + #{mod\ 2944}#)) + (lambda (#{y\ 3036}# + #{maps\ 3037}#) + (values + (#{gen-cons\ 2839}# + #{x\ 3032}# + #{y\ 3036}#) + #{maps\ 3037}#)))))) + #{tmp\ 3027}#) + ((lambda (#{tmp\ 3040}#) + (if #{tmp\ 3040}# + (apply (lambda (#{e1\ 3043}# + #{e2\ 3044}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2831}# + #{src\ 2939}# + (cons #{e1\ 3043}# + #{e2\ 3044}#) + #{r\ 2941}# + #{maps\ 2942}# + #{ellipsis?\ 2943}# + #{mod\ 2944}#)) + (lambda (#{e\ 3046}# + #{maps\ 3047}#) + (values + (#{gen-vector\ 2843}# + #{e\ 3046}#) + #{maps\ 3047}#)))) + #{tmp\ 3040}#) + ((lambda (#{_\ 3051}#) + (values + (list (quote quote) #{e\ 2940}#) + #{maps\ 2942}#)) + #{tmp\ 2964}#))) + ($sc-dispatch + #{tmp\ 2964}# + '#(vector (any . each-any)))))) + ($sc-dispatch + #{tmp\ 2964}# + '(any . any))))) + ($sc-dispatch + #{tmp\ 2964}# + '(any any . any))))) + ($sc-dispatch #{tmp\ 2964}# (quote (any any))))) + #{e\ 2940}#))))) (lambda (#{e\ 3053}# #{r\ 3054}# #{w\ 3055}# @@ -9730,56 +9562,57 @@ (#{global-extend\ 378}# 'core 'let - (letrec ((#{chi-let\ 3246}# - (lambda (#{e\ 3247}# - #{r\ 3248}# - #{w\ 3249}# - #{s\ 3250}# - #{mod\ 3251}# - #{constructor\ 3252}# - #{ids\ 3253}# - #{vals\ 3254}# - #{exps\ 3255}#) - (if (not (#{valid-bound-ids?\ 445}# #{ids\ 3253}#)) - (syntax-violation - 'let - "duplicate bound variable" - #{e\ 3247}#) - (let ((#{labels\ 3267}# - (#{gen-labels\ 400}# #{ids\ 3253}#)) - (#{new-vars\ 3268}# - (map #{gen-var\ 495}# #{ids\ 3253}#))) - (let ((#{nw\ 3271}# - (#{make-binding-wrap\ 429}# - #{ids\ 3253}# - #{labels\ 3267}# - #{w\ 3249}#)) - (#{nr\ 3272}# - (#{extend-var-env\ 372}# - #{labels\ 3267}# - #{new-vars\ 3268}# - #{r\ 3248}#))) - (#{constructor\ 3252}# - #{s\ 3250}# - (map syntax->datum #{ids\ 3253}#) + (letrec* + ((#{chi-let\ 3246}# + (lambda (#{e\ 3247}# + #{r\ 3248}# + #{w\ 3249}# + #{s\ 3250}# + #{mod\ 3251}# + #{constructor\ 3252}# + #{ids\ 3253}# + #{vals\ 3254}# + #{exps\ 3255}#) + (if (not (#{valid-bound-ids?\ 445}# #{ids\ 3253}#)) + (syntax-violation + 'let + "duplicate bound variable" + #{e\ 3247}#) + (let ((#{labels\ 3267}# + (#{gen-labels\ 400}# #{ids\ 3253}#)) + (#{new-vars\ 3268}# + (map #{gen-var\ 495}# #{ids\ 3253}#))) + (let ((#{nw\ 3271}# + (#{make-binding-wrap\ 429}# + #{ids\ 3253}# + #{labels\ 3267}# + #{w\ 3249}#)) + (#{nr\ 3272}# + (#{extend-var-env\ 372}# + #{labels\ 3267}# #{new-vars\ 3268}# - (map (lambda (#{x\ 3273}#) - (#{chi\ 467}# - #{x\ 3273}# - #{r\ 3248}# - #{w\ 3249}# - #{mod\ 3251}#)) - #{vals\ 3254}#) - (#{chi-body\ 475}# - #{exps\ 3255}# - (#{source-wrap\ 453}# - #{e\ 3247}# - #{nw\ 3271}# - #{s\ 3250}# - #{mod\ 3251}#) - #{nr\ 3272}# - #{nw\ 3271}# - #{mod\ 3251}#)))))))) + #{r\ 3248}#))) + (#{constructor\ 3252}# + #{s\ 3250}# + (map syntax->datum #{ids\ 3253}#) + #{new-vars\ 3268}# + (map (lambda (#{x\ 3273}#) + (#{chi\ 467}# + #{x\ 3273}# + #{r\ 3248}# + #{w\ 3249}# + #{mod\ 3251}#)) + #{vals\ 3254}#) + (#{chi-body\ 475}# + #{exps\ 3255}# + (#{source-wrap\ 453}# + #{e\ 3247}# + #{nw\ 3271}# + #{s\ 3250}# + #{mod\ 3251}#) + #{nr\ 3272}# + #{nw\ 3271}# + #{mod\ 3251}#)))))))) (lambda (#{e\ 3275}# #{r\ 3276}# #{w\ 3277}# @@ -11122,46 +10955,47 @@ 'module-ref '@@ (lambda (#{e\ 3554}# #{r\ 3555}# #{w\ 3556}#) - (letrec ((#{remodulate\ 3561}# - (lambda (#{x\ 3562}# #{mod\ 3563}#) - (if (pair? #{x\ 3562}#) - (cons (#{remodulate\ 3561}# - (car #{x\ 3562}#) - #{mod\ 3563}#) - (#{remodulate\ 3561}# - (cdr #{x\ 3562}#) - #{mod\ 3563}#)) - (if (#{syntax-object?\ 346}# #{x\ 3562}#) - (#{make-syntax-object\ 344}# - (#{remodulate\ 3561}# - (#{syntax-object-expression\ 348}# #{x\ 3562}#) - #{mod\ 3563}#) - (#{syntax-object-wrap\ 350}# #{x\ 3562}#) - #{mod\ 3563}#) - (if (vector? #{x\ 3562}#) - (let ((#{n\ 3574}# (vector-length #{x\ 3562}#))) - (let ((#{v\ 3576}# (make-vector #{n\ 3574}#))) - (letrec ((#{loop\ 3579}# - (lambda (#{i\ 3580}#) - (if (#{fx=\ 287}# - #{i\ 3580}# - #{n\ 3574}#) - (begin (if #f #f) #{v\ 3576}#) - (begin - (vector-set! - #{v\ 3576}# - #{i\ 3580}# - (#{remodulate\ 3561}# - (vector-ref - #{x\ 3562}# - #{i\ 3580}#) - #{mod\ 3563}#)) - (#{loop\ 3579}# - (#{fx+\ 283}# - #{i\ 3580}# - 1))))))) - (#{loop\ 3579}# 0)))) - #{x\ 3562}#)))))) + (letrec* + ((#{remodulate\ 3561}# + (lambda (#{x\ 3562}# #{mod\ 3563}#) + (if (pair? #{x\ 3562}#) + (cons (#{remodulate\ 3561}# + (car #{x\ 3562}#) + #{mod\ 3563}#) + (#{remodulate\ 3561}# + (cdr #{x\ 3562}#) + #{mod\ 3563}#)) + (if (#{syntax-object?\ 346}# #{x\ 3562}#) + (#{make-syntax-object\ 344}# + (#{remodulate\ 3561}# + (#{syntax-object-expression\ 348}# #{x\ 3562}#) + #{mod\ 3563}#) + (#{syntax-object-wrap\ 350}# #{x\ 3562}#) + #{mod\ 3563}#) + (if (vector? #{x\ 3562}#) + (let ((#{n\ 3574}# (vector-length #{x\ 3562}#))) + (let ((#{v\ 3576}# (make-vector #{n\ 3574}#))) + (letrec ((#{loop\ 3579}# + (lambda (#{i\ 3580}#) + (if (#{fx=\ 287}# + #{i\ 3580}# + #{n\ 3574}#) + (begin (if #f #f) #{v\ 3576}#) + (begin + (vector-set! + #{v\ 3576}# + #{i\ 3580}# + (#{remodulate\ 3561}# + (vector-ref + #{x\ 3562}# + #{i\ 3580}#) + #{mod\ 3563}#)) + (#{loop\ 3579}# + (#{fx+\ 283}# + #{i\ 3580}# + 1))))))) + (#{loop\ 3579}# 0)))) + #{x\ 3562}#)))))) ((lambda (#{tmp\ 3584}#) ((lambda (#{tmp\ 3585}#) (if (if #{tmp\ 3585}# @@ -11678,962 +11512,934 @@ #{mod\ 3606}#))) #{tmp\ 3621}#) (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 3612}#))) - ($sc-dispatch - #{tmp\ 3612}# - '(any any any any))))) - ($sc-dispatch - #{tmp\ 3612}# - '(any any any)))) - #{e\ 3602}#))) - (#{global-extend\ 378}# - 'core - 'with-fluids - (lambda (#{e\ 3630}# - #{r\ 3631}# - #{w\ 3632}# - #{s\ 3633}# - #{mod\ 3634}#) - ((lambda (#{tmp\ 3640}#) - ((lambda (#{tmp\ 3641}#) - (if #{tmp\ 3641}# - (apply (lambda (#{_\ 3647}# - #{fluid\ 3648}# - #{val\ 3649}# - #{b\ 3650}# - #{b*\ 3651}#) - (#{build-dynlet\ 308}# - #{s\ 3633}# - (map (lambda (#{x\ 3652}#) - (#{chi\ 467}# - #{x\ 3652}# - #{r\ 3631}# - #{w\ 3632}# - #{mod\ 3634}#)) - #{fluid\ 3648}#) - (map (lambda (#{x\ 3655}#) - (#{chi\ 467}# - #{x\ 3655}# - #{r\ 3631}# - #{w\ 3632}# - #{mod\ 3634}#)) - #{val\ 3649}#) - (#{chi-body\ 475}# - (cons #{b\ 3650}# #{b*\ 3651}#) - (#{source-wrap\ 453}# - #{e\ 3630}# - #{w\ 3632}# - #{s\ 3633}# - #{mod\ 3634}#) - #{r\ 3631}# - #{w\ 3632}# - #{mod\ 3634}#))) - #{tmp\ 3641}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 3640}#))) - ($sc-dispatch - #{tmp\ 3640}# - '(any #(each (any any)) any . each-any)))) - #{e\ 3630}#))) - (#{global-extend\ 378}# - 'begin - 'begin - '()) - (#{global-extend\ 378}# - 'define - 'define - '()) - (#{global-extend\ 378}# - 'define-syntax - 'define-syntax - '()) - (#{global-extend\ 378}# - 'eval-when - 'eval-when - '()) - (#{global-extend\ 378}# - 'core - 'syntax-case - (letrec ((#{gen-syntax-case\ 3666}# - (lambda (#{x\ 3667}# - #{keys\ 3668}# - #{clauses\ 3669}# - #{r\ 3670}# - #{mod\ 3671}#) - (if (null? #{clauses\ 3669}#) - (#{build-application\ 304}# - #f - (#{build-primref\ 330}# + #f + "source expression failed to match any pattern" + #{tmp\ 3612}#))) + ($sc-dispatch + #{tmp\ 3612}# + '(any any any any))))) + ($sc-dispatch + #{tmp\ 3612}# + '(any any any)))) + #{e\ 3602}#))) + (#{global-extend\ 378}# + 'core + 'with-fluids + (lambda (#{e\ 3630}# + #{r\ 3631}# + #{w\ 3632}# + #{s\ 3633}# + #{mod\ 3634}#) + ((lambda (#{tmp\ 3640}#) + ((lambda (#{tmp\ 3641}#) + (if #{tmp\ 3641}# + (apply (lambda (#{_\ 3647}# + #{fluid\ 3648}# + #{val\ 3649}# + #{b\ 3650}# + #{b*\ 3651}#) + (#{build-dynlet\ 308}# + #{s\ 3633}# + (map (lambda (#{x\ 3652}#) + (#{chi\ 467}# + #{x\ 3652}# + #{r\ 3631}# + #{w\ 3632}# + #{mod\ 3634}#)) + #{fluid\ 3648}#) + (map (lambda (#{x\ 3655}#) + (#{chi\ 467}# + #{x\ 3655}# + #{r\ 3631}# + #{w\ 3632}# + #{mod\ 3634}#)) + #{val\ 3649}#) + (#{chi-body\ 475}# + (cons #{b\ 3650}# #{b*\ 3651}#) + (#{source-wrap\ 453}# + #{e\ 3630}# + #{w\ 3632}# + #{s\ 3633}# + #{mod\ 3634}#) + #{r\ 3631}# + #{w\ 3632}# + #{mod\ 3634}#))) + #{tmp\ 3641}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3640}#))) + ($sc-dispatch + #{tmp\ 3640}# + '(any #(each (any any)) any . each-any)))) + #{e\ 3630}#))) + (#{global-extend\ 378}# + 'begin + 'begin + '()) + (#{global-extend\ 378}# + 'define + 'define + '()) + (#{global-extend\ 378}# + 'define-syntax + 'define-syntax + '()) + (#{global-extend\ 378}# + 'eval-when + 'eval-when + '()) + (#{global-extend\ 378}# + 'core + 'syntax-case + (letrec* + ((#{gen-syntax-case\ 3666}# + (lambda (#{x\ 3667}# + #{keys\ 3668}# + #{clauses\ 3669}# + #{r\ 3670}# + #{mod\ 3671}#) + (if (null? #{clauses\ 3669}#) + (#{build-application\ 304}# + #f + (#{build-primref\ 330}# + #f + 'syntax-violation) + (list (#{build-data\ 332}# #f #f) + (#{build-data\ 332}# + #f + "source expression failed to match any pattern") + #{x\ 3667}#)) + ((lambda (#{tmp\ 3681}#) + ((lambda (#{tmp\ 3682}#) + (if #{tmp\ 3682}# + (apply (lambda (#{pat\ 3685}# #{exp\ 3686}#) + (if (if (#{id?\ 382}# #{pat\ 3685}#) + (and-map + (lambda (#{x\ 3689}#) + (not (#{free-id=?\ 441}# + #{pat\ 3685}# + #{x\ 3689}#))) + (cons '#(syntax-object + ... + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3683" "i3684")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3672" + "i3673" + "i3674" + "i3675" + "i3676")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3665" + "i3663" + "i3661" + "i3659")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i425" + "i424" + "i422" + "i421" + "i420" + "i419" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i399" + "i397" + "i396" + "i395" + "i394" + "i393" + "i392" + "i390" + "i388" + "i386" + "i384" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i363" + "i362" + "i360" + "i359" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i33" + "i32" + "i31" + "i29"))) + (hygiene guile)) + #{keys\ 3668}#)) + #f) + (let ((#{labels\ 3693}# + (list (#{gen-label\ 398}#))) + (#{var\ 3694}# + (#{gen-var\ 495}# #{pat\ 3685}#))) + (#{build-application\ 304}# + #f + (#{build-simple-lambda\ 324}# + #f + (list (syntax->datum #{pat\ 3685}#)) + #f + (list #{var\ 3694}#) + '() + (#{chi\ 467}# + #{exp\ 3686}# + (#{extend-env\ 370}# + #{labels\ 3693}# + (list (cons 'syntax + (cons #{var\ 3694}# + 0))) + #{r\ 3670}#) + (#{make-binding-wrap\ 429}# + (list #{pat\ 3685}#) + #{labels\ 3693}# + '(())) + #{mod\ 3671}#)) + (list #{x\ 3667}#))) + (#{gen-clause\ 3664}# + #{x\ 3667}# + #{keys\ 3668}# + (cdr #{clauses\ 3669}#) + #{r\ 3670}# + #{pat\ 3685}# + #t + #{exp\ 3686}# + #{mod\ 3671}#))) + #{tmp\ 3682}#) + ((lambda (#{tmp\ 3700}#) + (if #{tmp\ 3700}# + (apply (lambda (#{pat\ 3704}# + #{fender\ 3705}# + #{exp\ 3706}#) + (#{gen-clause\ 3664}# + #{x\ 3667}# + #{keys\ 3668}# + (cdr #{clauses\ 3669}#) + #{r\ 3670}# + #{pat\ 3704}# + #{fender\ 3705}# + #{exp\ 3706}# + #{mod\ 3671}#)) + #{tmp\ 3700}#) + ((lambda (#{_\ 3708}#) + (syntax-violation + 'syntax-case + "invalid clause" + (car #{clauses\ 3669}#))) + #{tmp\ 3681}#))) + ($sc-dispatch + #{tmp\ 3681}# + '(any any any))))) + ($sc-dispatch #{tmp\ 3681}# (quote (any any))))) + (car #{clauses\ 3669}#))))) + (#{gen-clause\ 3664}# + (lambda (#{x\ 3709}# + #{keys\ 3710}# + #{clauses\ 3711}# + #{r\ 3712}# + #{pat\ 3713}# + #{fender\ 3714}# + #{exp\ 3715}# + #{mod\ 3716}#) + (call-with-values + (lambda () + (#{convert-pattern\ 3660}# + #{pat\ 3713}# + #{keys\ 3710}#)) + (lambda (#{p\ 3725}# #{pvars\ 3726}#) + (if (not (#{distinct-bound-ids?\ 447}# + (map car #{pvars\ 3726}#))) + (syntax-violation + 'syntax-case + "duplicate pattern variable" + #{pat\ 3713}#) + (if (not (and-map + (lambda (#{x\ 3733}#) + (not (#{ellipsis?\ 483}# (car #{x\ 3733}#)))) + #{pvars\ 3726}#)) + (syntax-violation + 'syntax-case + "misplaced ellipsis" + #{pat\ 3713}#) + (let ((#{y\ 3737}# (#{gen-var\ 495}# (quote tmp)))) + (#{build-application\ 304}# #f - 'syntax-violation) - (list (#{build-data\ 332}# #f #f) - (#{build-data\ 332}# + (#{build-simple-lambda\ 324}# + #f + (list (quote tmp)) + #f + (list #{y\ 3737}#) + '() + (let ((#{y\ 3741}# + (#{build-lexical-reference\ 310}# + 'value + #f + 'tmp + #{y\ 3737}#))) + (#{build-conditional\ 306}# #f - "source expression failed to match any pattern") - #{x\ 3667}#)) - ((lambda (#{tmp\ 3681}#) - ((lambda (#{tmp\ 3682}#) - (if #{tmp\ 3682}# - (apply (lambda (#{pat\ 3685}# #{exp\ 3686}#) - (if (if (#{id?\ 382}# #{pat\ 3685}#) - (and-map - (lambda (#{x\ 3689}#) - (not (#{free-id=?\ 441}# - #{pat\ 3685}# - #{x\ 3689}#))) - (cons '#(syntax-object - ... - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3683" "i3684")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3672" - "i3673" - "i3674" - "i3675" - "i3676")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3665" - "i3663" - "i3661" - "i3659")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i496" - "i494" - "i492" - "i490" - "i488" - "i486" - "i484" - "i482" - "i480" - "i478" - "i476" - "i474" - "i472" - "i470" - "i468" - "i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i425" - "i424" - "i422" - "i421" - "i420" - "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i399" - "i397" - "i396" - "i395" - "i394" - "i393" - "i392" - "i390" - "i388" - "i386" - "i384" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i369" - "i368" - "i366" - "i364" - "i363" - "i362" - "i360" - "i359" - "i357" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) - (top) - (top) - (top)) - ("i33" - "i32" - "i31" - "i29"))) - (hygiene guile)) - #{keys\ 3668}#)) - #f) - (let ((#{labels\ 3693}# - (list (#{gen-label\ 398}#))) - (#{var\ 3694}# - (#{gen-var\ 495}# - #{pat\ 3685}#))) - (#{build-application\ 304}# + ((lambda (#{tmp\ 3744}#) + ((lambda (#{tmp\ 3745}#) + (if #{tmp\ 3745}# + (apply (lambda () #{y\ 3741}#) + #{tmp\ 3745}#) + ((lambda (#{_\ 3747}#) + (#{build-conditional\ 306}# #f - (#{build-simple-lambda\ 324}# - #f - (list (syntax->datum - #{pat\ 3685}#)) - #f - (list #{var\ 3694}#) - '() - (#{chi\ 467}# - #{exp\ 3686}# - (#{extend-env\ 370}# - #{labels\ 3693}# - (list (cons 'syntax - (cons #{var\ 3694}# - 0))) - #{r\ 3670}#) - (#{make-binding-wrap\ 429}# - (list #{pat\ 3685}#) - #{labels\ 3693}# - '(())) - #{mod\ 3671}#)) - (list #{x\ 3667}#))) - (#{gen-clause\ 3664}# - #{x\ 3667}# - #{keys\ 3668}# - (cdr #{clauses\ 3669}#) - #{r\ 3670}# - #{pat\ 3685}# - #t - #{exp\ 3686}# - #{mod\ 3671}#))) - #{tmp\ 3682}#) - ((lambda (#{tmp\ 3700}#) - (if #{tmp\ 3700}# - (apply (lambda (#{pat\ 3704}# - #{fender\ 3705}# - #{exp\ 3706}#) - (#{gen-clause\ 3664}# - #{x\ 3667}# - #{keys\ 3668}# - (cdr #{clauses\ 3669}#) - #{r\ 3670}# - #{pat\ 3704}# - #{fender\ 3705}# - #{exp\ 3706}# - #{mod\ 3671}#)) - #{tmp\ 3700}#) - ((lambda (#{_\ 3708}#) - (syntax-violation - 'syntax-case - "invalid clause" - (car #{clauses\ 3669}#))) - #{tmp\ 3681}#))) - ($sc-dispatch - #{tmp\ 3681}# - '(any any any))))) - ($sc-dispatch #{tmp\ 3681}# (quote (any any))))) - (car #{clauses\ 3669}#))))) - (#{gen-clause\ 3664}# - (lambda (#{x\ 3709}# - #{keys\ 3710}# - #{clauses\ 3711}# - #{r\ 3712}# - #{pat\ 3713}# - #{fender\ 3714}# - #{exp\ 3715}# - #{mod\ 3716}#) - (call-with-values - (lambda () - (#{convert-pattern\ 3660}# - #{pat\ 3713}# - #{keys\ 3710}#)) - (lambda (#{p\ 3725}# #{pvars\ 3726}#) - (if (not (#{distinct-bound-ids?\ 447}# - (map car #{pvars\ 3726}#))) - (syntax-violation - 'syntax-case - "duplicate pattern variable" - #{pat\ 3713}#) - (if (not (and-map - (lambda (#{x\ 3733}#) - (not (#{ellipsis?\ 483}# - (car #{x\ 3733}#)))) - #{pvars\ 3726}#)) - (syntax-violation - 'syntax-case - "misplaced ellipsis" - #{pat\ 3713}#) - (let ((#{y\ 3737}# - (#{gen-var\ 495}# (quote tmp)))) - (#{build-application\ 304}# - #f - (#{build-simple-lambda\ 324}# - #f - (list (quote tmp)) - #f - (list #{y\ 3737}#) - '() - (let ((#{y\ 3741}# - (#{build-lexical-reference\ 310}# - 'value - #f - 'tmp - #{y\ 3737}#))) - (#{build-conditional\ 306}# + #{y\ 3741}# + (#{build-dispatch-call\ 3662}# + #{pvars\ 3726}# + #{fender\ 3714}# + #{y\ 3741}# + #{r\ 3712}# + #{mod\ 3716}#) + (#{build-data\ 332}# #f #f))) + #{tmp\ 3744}#))) + ($sc-dispatch + #{tmp\ 3744}# + '#(atom #t)))) + #{fender\ 3714}#) + (#{build-dispatch-call\ 3662}# + #{pvars\ 3726}# + #{exp\ 3715}# + #{y\ 3741}# + #{r\ 3712}# + #{mod\ 3716}#) + (#{gen-syntax-case\ 3666}# + #{x\ 3709}# + #{keys\ 3710}# + #{clauses\ 3711}# + #{r\ 3712}# + #{mod\ 3716}#)))) + (list (if (eq? #{p\ 3725}# (quote any)) + (#{build-application\ 304}# + #f + (#{build-primref\ 330}# #f (quote list)) + (list #{x\ 3709}#)) + (#{build-application\ 304}# + #f + (#{build-primref\ 330}# #f - ((lambda (#{tmp\ 3744}#) - ((lambda (#{tmp\ 3745}#) - (if #{tmp\ 3745}# - (apply (lambda () #{y\ 3741}#) - #{tmp\ 3745}#) - ((lambda (#{_\ 3747}#) - (#{build-conditional\ 306}# - #f - #{y\ 3741}# - (#{build-dispatch-call\ 3662}# - #{pvars\ 3726}# - #{fender\ 3714}# - #{y\ 3741}# - #{r\ 3712}# - #{mod\ 3716}#) - (#{build-data\ 332}# - #f - #f))) - #{tmp\ 3744}#))) - ($sc-dispatch - #{tmp\ 3744}# - '#(atom #t)))) - #{fender\ 3714}#) - (#{build-dispatch-call\ 3662}# - #{pvars\ 3726}# - #{exp\ 3715}# - #{y\ 3741}# - #{r\ 3712}# - #{mod\ 3716}#) - (#{gen-syntax-case\ 3666}# - #{x\ 3709}# - #{keys\ 3710}# - #{clauses\ 3711}# - #{r\ 3712}# - #{mod\ 3716}#)))) - (list (if (eq? #{p\ 3725}# (quote any)) - (#{build-application\ 304}# - #f - (#{build-primref\ 330}# - #f - 'list) - (list #{x\ 3709}#)) - (#{build-application\ 304}# - #f - (#{build-primref\ 330}# + '$sc-dispatch) + (list #{x\ 3709}# + (#{build-data\ 332}# #f - '$sc-dispatch) - (list #{x\ 3709}# - (#{build-data\ 332}# - #f - #{p\ 3725}#))))))))))))) - (#{build-dispatch-call\ 3662}# - (lambda (#{pvars\ 3755}# - #{exp\ 3756}# - #{y\ 3757}# - #{r\ 3758}# - #{mod\ 3759}#) - (let ((#{ids\ 3767}# (map car #{pvars\ 3755}#)) - (#{levels\ 3768}# (map cdr #{pvars\ 3755}#))) - (let ((#{labels\ 3771}# - (#{gen-labels\ 400}# #{ids\ 3767}#)) - (#{new-vars\ 3772}# - (map #{gen-var\ 495}# #{ids\ 3767}#))) - (#{build-application\ 304}# - #f - (#{build-primref\ 330}# #f (quote apply)) - (list (#{build-simple-lambda\ 324}# - #f - (map syntax->datum #{ids\ 3767}#) - #f - #{new-vars\ 3772}# - '() - (#{chi\ 467}# - #{exp\ 3756}# - (#{extend-env\ 370}# - #{labels\ 3771}# - (map (lambda (#{var\ 3776}# - #{level\ 3777}#) - (cons 'syntax - (cons #{var\ 3776}# - #{level\ 3777}#))) - #{new-vars\ 3772}# - (map cdr #{pvars\ 3755}#)) - #{r\ 3758}#) - (#{make-binding-wrap\ 429}# - #{ids\ 3767}# - #{labels\ 3771}# - '(())) - #{mod\ 3759}#)) - #{y\ 3757}#)))))) - (#{convert-pattern\ 3660}# - (lambda (#{pattern\ 3783}# #{keys\ 3784}#) - (letrec ((#{cvt\ 3790}# - (lambda (#{p\ 3791}# #{n\ 3792}# #{ids\ 3793}#) - (if (#{id?\ 382}# #{p\ 3791}#) - (if (#{bound-id-member?\ 449}# - #{p\ 3791}# - #{keys\ 3784}#) - (values - (vector (quote free-id) #{p\ 3791}#) - #{ids\ 3793}#) - (values - 'any - (cons (cons #{p\ 3791}# #{n\ 3792}#) - #{ids\ 3793}#))) - ((lambda (#{tmp\ 3797}#) - ((lambda (#{tmp\ 3798}#) - (if (if #{tmp\ 3798}# - (apply (lambda (#{x\ 3801}# - #{dots\ 3802}#) - (#{ellipsis?\ 483}# - #{dots\ 3802}#)) - #{tmp\ 3798}#) - #f) - (apply (lambda (#{x\ 3805}# - #{dots\ 3806}#) - (call-with-values - (lambda () - (#{cvt\ 3790}# - #{x\ 3805}# - (#{fx+\ 283}# + #{p\ 3725}#))))))))))))) + (#{build-dispatch-call\ 3662}# + (lambda (#{pvars\ 3755}# + #{exp\ 3756}# + #{y\ 3757}# + #{r\ 3758}# + #{mod\ 3759}#) + (let ((#{ids\ 3767}# (map car #{pvars\ 3755}#)) + (#{levels\ 3768}# (map cdr #{pvars\ 3755}#))) + (let ((#{labels\ 3771}# + (#{gen-labels\ 400}# #{ids\ 3767}#)) + (#{new-vars\ 3772}# + (map #{gen-var\ 495}# #{ids\ 3767}#))) + (#{build-application\ 304}# + #f + (#{build-primref\ 330}# #f (quote apply)) + (list (#{build-simple-lambda\ 324}# + #f + (map syntax->datum #{ids\ 3767}#) + #f + #{new-vars\ 3772}# + '() + (#{chi\ 467}# + #{exp\ 3756}# + (#{extend-env\ 370}# + #{labels\ 3771}# + (map (lambda (#{var\ 3776}# #{level\ 3777}#) + (cons 'syntax + (cons #{var\ 3776}# + #{level\ 3777}#))) + #{new-vars\ 3772}# + (map cdr #{pvars\ 3755}#)) + #{r\ 3758}#) + (#{make-binding-wrap\ 429}# + #{ids\ 3767}# + #{labels\ 3771}# + '(())) + #{mod\ 3759}#)) + #{y\ 3757}#)))))) + (#{convert-pattern\ 3660}# + (lambda (#{pattern\ 3783}# #{keys\ 3784}#) + (letrec* + ((#{cvt\ 3790}# + (lambda (#{p\ 3791}# #{n\ 3792}# #{ids\ 3793}#) + (if (#{id?\ 382}# #{p\ 3791}#) + (if (#{bound-id-member?\ 449}# + #{p\ 3791}# + #{keys\ 3784}#) + (values + (vector (quote free-id) #{p\ 3791}#) + #{ids\ 3793}#) + (values + 'any + (cons (cons #{p\ 3791}# #{n\ 3792}#) + #{ids\ 3793}#))) + ((lambda (#{tmp\ 3797}#) + ((lambda (#{tmp\ 3798}#) + (if (if #{tmp\ 3798}# + (apply (lambda (#{x\ 3801}# #{dots\ 3802}#) + (#{ellipsis?\ 483}# + #{dots\ 3802}#)) + #{tmp\ 3798}#) + #f) + (apply (lambda (#{x\ 3805}# #{dots\ 3806}#) + (call-with-values + (lambda () + (#{cvt\ 3790}# + #{x\ 3805}# + (#{fx+\ 283}# #{n\ 3792}# 1) + #{ids\ 3793}#)) + (lambda (#{p\ 3807}# #{ids\ 3808}#) + (values + (if (eq? #{p\ 3807}# + 'any) + 'each-any + (vector + 'each + #{p\ 3807}#)) + #{ids\ 3808}#)))) + #{tmp\ 3798}#) + ((lambda (#{tmp\ 3811}#) + (if (if #{tmp\ 3811}# + (apply (lambda (#{x\ 3815}# + #{dots\ 3816}# + #{ys\ 3817}#) + (#{ellipsis?\ 483}# + #{dots\ 3816}#)) + #{tmp\ 3811}#) + #f) + (apply (lambda (#{x\ 3821}# + #{dots\ 3822}# + #{ys\ 3823}#) + (call-with-values + (lambda () + (#{cvt*\ 3788}# + #{ys\ 3823}# + #{n\ 3792}# + #{ids\ 3793}#)) + (lambda (#{ys\ 3825}# + #{ids\ 3826}#) + (call-with-values + (lambda () + (#{cvt\ 3790}# + #{x\ 3821}# + (+ #{n\ 3792}# 1) + #{ids\ 3826}#)) + (lambda (#{x\ 3829}# + #{ids\ 3830}#) + (values + (list->vector + (cons 'each+ + (cons #{x\ 3829}# + (cons (reverse + #{ys\ 3825}#) + '(()))))) + #{ids\ 3830}#)))))) + #{tmp\ 3811}#) + ((lambda (#{tmp\ 3834}#) + (if #{tmp\ 3834}# + (apply (lambda (#{x\ 3837}# + #{y\ 3838}#) + (call-with-values + (lambda () + (#{cvt\ 3790}# + #{y\ 3838}# + #{n\ 3792}# + #{ids\ 3793}#)) + (lambda (#{y\ 3839}# + #{ids\ 3840}#) + (call-with-values + (lambda () + (#{cvt\ 3790}# + #{x\ 3837}# #{n\ 3792}# - 1) - #{ids\ 3793}#)) - (lambda (#{p\ 3807}# - #{ids\ 3808}#) - (values - (if (eq? #{p\ 3807}# - 'any) - 'each-any - (vector - 'each - #{p\ 3807}#)) - #{ids\ 3808}#)))) - #{tmp\ 3798}#) - ((lambda (#{tmp\ 3811}#) - (if (if #{tmp\ 3811}# - (apply (lambda (#{x\ 3815}# - #{dots\ 3816}# - #{ys\ 3817}#) - (#{ellipsis?\ 483}# - #{dots\ 3816}#)) - #{tmp\ 3811}#) - #f) - (apply (lambda (#{x\ 3821}# - #{dots\ 3822}# - #{ys\ 3823}#) - (call-with-values - (lambda () - (#{cvt*\ 3788}# - #{ys\ 3823}# - #{n\ 3792}# - #{ids\ 3793}#)) - (lambda (#{ys\ 3825}# - #{ids\ 3826}#) - (call-with-values - (lambda () - (#{cvt\ 3790}# - #{x\ 3821}# - (+ #{n\ 3792}# - 1) - #{ids\ 3826}#)) - (lambda (#{x\ 3829}# - #{ids\ 3830}#) - (values - (list->vector - (cons 'each+ - (cons #{x\ 3829}# - (cons (reverse - #{ys\ 3825}#) - '(()))))) - #{ids\ 3830}#)))))) - #{tmp\ 3811}#) - ((lambda (#{tmp\ 3834}#) - (if #{tmp\ 3834}# - (apply (lambda (#{x\ 3837}# - #{y\ 3838}#) - (call-with-values - (lambda () - (#{cvt\ 3790}# - #{y\ 3838}# - #{n\ 3792}# - #{ids\ 3793}#)) - (lambda (#{y\ 3839}# - #{ids\ 3840}#) - (call-with-values - (lambda () - (#{cvt\ 3790}# - #{x\ 3837}# - #{n\ 3792}# - #{ids\ 3840}#)) - (lambda (#{x\ 3843}# - #{ids\ 3844}#) - (values - (cons #{x\ 3843}# - #{y\ 3839}#) - #{ids\ 3844}#)))))) - #{tmp\ 3834}#) - ((lambda (#{tmp\ 3847}#) - (if #{tmp\ 3847}# - (apply (lambda () - (values - '() - #{ids\ 3793}#)) - #{tmp\ 3847}#) - ((lambda (#{tmp\ 3848}#) - (if #{tmp\ 3848}# - (apply (lambda (#{x\ 3850}#) - (call-with-values - (lambda () - (#{cvt\ 3790}# - #{x\ 3850}# - #{n\ 3792}# - #{ids\ 3793}#)) - (lambda (#{p\ 3852}# - #{ids\ 3853}#) - (values - (vector - 'vector - #{p\ 3852}#) - #{ids\ 3853}#)))) - #{tmp\ 3848}#) - ((lambda (#{x\ 3857}#) - (values - (vector - 'atom - (#{strip\ 493}# - #{p\ 3791}# - '(()))) - #{ids\ 3793}#)) - #{tmp\ 3797}#))) - ($sc-dispatch - #{tmp\ 3797}# - '#(vector - each-any))))) - ($sc-dispatch - #{tmp\ 3797}# - '())))) - ($sc-dispatch - #{tmp\ 3797}# - '(any . any))))) - ($sc-dispatch - #{tmp\ 3797}# - '(any any . each-any))))) - ($sc-dispatch - #{tmp\ 3797}# - '(any any)))) - #{p\ 3791}#)))) - (#{cvt*\ 3788}# - (lambda (#{p*\ 3859}# - #{n\ 3860}# - #{ids\ 3861}#) - (if (null? #{p*\ 3859}#) - (values (quote ()) #{ids\ 3861}#) - (call-with-values - (lambda () - (#{cvt*\ 3788}# - (cdr #{p*\ 3859}#) - #{n\ 3860}# - #{ids\ 3861}#)) - (lambda (#{y\ 3865}# #{ids\ 3866}#) - (call-with-values - (lambda () - (#{cvt\ 3790}# - (car #{p*\ 3859}#) - #{n\ 3860}# - #{ids\ 3866}#)) - (lambda (#{x\ 3869}# #{ids\ 3870}#) - (values - (cons #{x\ 3869}# #{y\ 3865}#) - #{ids\ 3870}#))))))))) - (#{cvt\ 3790}# #{pattern\ 3783}# 0 (quote ())))))) + #{ids\ 3840}#)) + (lambda (#{x\ 3843}# + #{ids\ 3844}#) + (values + (cons #{x\ 3843}# + #{y\ 3839}#) + #{ids\ 3844}#)))))) + #{tmp\ 3834}#) + ((lambda (#{tmp\ 3847}#) + (if #{tmp\ 3847}# + (apply (lambda () + (values + '() + #{ids\ 3793}#)) + #{tmp\ 3847}#) + ((lambda (#{tmp\ 3848}#) + (if #{tmp\ 3848}# + (apply (lambda (#{x\ 3850}#) + (call-with-values + (lambda () + (#{cvt\ 3790}# + #{x\ 3850}# + #{n\ 3792}# + #{ids\ 3793}#)) + (lambda (#{p\ 3852}# + #{ids\ 3853}#) + (values + (vector + 'vector + #{p\ 3852}#) + #{ids\ 3853}#)))) + #{tmp\ 3848}#) + ((lambda (#{x\ 3857}#) + (values + (vector + 'atom + (#{strip\ 493}# + #{p\ 3791}# + '(()))) + #{ids\ 3793}#)) + #{tmp\ 3797}#))) + ($sc-dispatch + #{tmp\ 3797}# + '#(vector each-any))))) + ($sc-dispatch + #{tmp\ 3797}# + '())))) + ($sc-dispatch + #{tmp\ 3797}# + '(any . any))))) + ($sc-dispatch + #{tmp\ 3797}# + '(any any . each-any))))) + ($sc-dispatch #{tmp\ 3797}# (quote (any any))))) + #{p\ 3791}#)))) + (#{cvt*\ 3788}# + (lambda (#{p*\ 3859}# #{n\ 3860}# #{ids\ 3861}#) + (if (null? #{p*\ 3859}#) + (values (quote ()) #{ids\ 3861}#) + (call-with-values + (lambda () + (#{cvt*\ 3788}# + (cdr #{p*\ 3859}#) + #{n\ 3860}# + #{ids\ 3861}#)) + (lambda (#{y\ 3865}# #{ids\ 3866}#) + (call-with-values + (lambda () + (#{cvt\ 3790}# + (car #{p*\ 3859}#) + #{n\ 3860}# + #{ids\ 3866}#)) + (lambda (#{x\ 3869}# #{ids\ 3870}#) + (values + (cons #{x\ 3869}# #{y\ 3865}#) + #{ids\ 3870}#))))))))) + (#{cvt\ 3790}# #{pattern\ 3783}# 0 (quote ())))))) (lambda (#{e\ 3873}# #{r\ 3874}# #{w\ 3875}# @@ -12816,309 +12622,295 @@ (cons #{who\ 3955}# #{tail\ 3979}#) #{tail\ 3979}#)) #f)))) - (letrec ((#{match\ 3996}# - (lambda (#{e\ 3997}# - #{p\ 3998}# - #{w\ 3999}# - #{r\ 4000}# - #{mod\ 4001}#) - (if (not #{r\ 4000}#) - #f - (if (eq? #{p\ 3998}# (quote any)) - (cons (#{wrap\ 451}# - #{e\ 3997}# - #{w\ 3999}# - #{mod\ 4001}#) - #{r\ 4000}#) - (if (#{syntax-object?\ 346}# #{e\ 3997}#) - (#{match*\ 3994}# - (#{syntax-object-expression\ 348}# #{e\ 3997}#) - #{p\ 3998}# - (#{join-wraps\ 433}# - #{w\ 3999}# - (#{syntax-object-wrap\ 350}# #{e\ 3997}#)) - #{r\ 4000}# - (#{syntax-object-module\ 352}# #{e\ 3997}#)) - (#{match*\ 3994}# - #{e\ 3997}# - #{p\ 3998}# - #{w\ 3999}# - #{r\ 4000}# - #{mod\ 4001}#)))))) - (#{match*\ 3994}# - (lambda (#{e\ 4014}# - #{p\ 4015}# - #{w\ 4016}# - #{r\ 4017}# - #{mod\ 4018}#) - (if (null? #{p\ 4015}#) - (if (null? #{e\ 4014}#) #{r\ 4017}# #f) - (if (pair? #{p\ 4015}#) - (if (pair? #{e\ 4014}#) - (#{match\ 3996}# - (car #{e\ 4014}#) - (car #{p\ 4015}#) - #{w\ 4016}# - (#{match\ 3996}# - (cdr #{e\ 4014}#) - (cdr #{p\ 4015}#) + (letrec* + ((#{match\ 3996}# + (lambda (#{e\ 3997}# + #{p\ 3998}# + #{w\ 3999}# + #{r\ 4000}# + #{mod\ 4001}#) + (if (not #{r\ 4000}#) + #f + (if (eq? #{p\ 3998}# (quote any)) + (cons (#{wrap\ 451}# + #{e\ 3997}# + #{w\ 3999}# + #{mod\ 4001}#) + #{r\ 4000}#) + (if (#{syntax-object?\ 346}# #{e\ 3997}#) + (#{match*\ 3994}# + (#{syntax-object-expression\ 348}# #{e\ 3997}#) + #{p\ 3998}# + (#{join-wraps\ 433}# + #{w\ 3999}# + (#{syntax-object-wrap\ 350}# #{e\ 3997}#)) + #{r\ 4000}# + (#{syntax-object-module\ 352}# #{e\ 3997}#)) + (#{match*\ 3994}# + #{e\ 3997}# + #{p\ 3998}# + #{w\ 3999}# + #{r\ 4000}# + #{mod\ 4001}#)))))) + (#{match*\ 3994}# + (lambda (#{e\ 4014}# + #{p\ 4015}# + #{w\ 4016}# + #{r\ 4017}# + #{mod\ 4018}#) + (if (null? #{p\ 4015}#) + (if (null? #{e\ 4014}#) #{r\ 4017}# #f) + (if (pair? #{p\ 4015}#) + (if (pair? #{e\ 4014}#) + (#{match\ 3996}# + (car #{e\ 4014}#) + (car #{p\ 4015}#) + #{w\ 4016}# + (#{match\ 3996}# + (cdr #{e\ 4014}#) + (cdr #{p\ 4015}#) + #{w\ 4016}# + #{r\ 4017}# + #{mod\ 4018}#) + #{mod\ 4018}#) + #f) + (if (eq? #{p\ 4015}# (quote each-any)) + (let ((#{l\ 4035}# + (#{match-each-any\ 3988}# + #{e\ 4014}# #{w\ 4016}# - #{r\ 4017}# - #{mod\ 4018}#) - #{mod\ 4018}#) - #f) - (if (eq? #{p\ 4015}# (quote each-any)) - (let ((#{l\ 4035}# - (#{match-each-any\ 3988}# + #{mod\ 4018}#))) + (if #{l\ 4035}# + (cons #{l\ 4035}# #{r\ 4017}#) + #f)) + (let ((#{atom-key\ 4041}# (vector-ref #{p\ 4015}# 0))) + (if (memv #{atom-key\ 4041}# (quote (each))) + (if (null? #{e\ 4014}#) + (#{match-empty\ 3990}# + (vector-ref #{p\ 4015}# 1) + #{r\ 4017}#) + (let ((#{l\ 4044}# + (#{match-each\ 3984}# #{e\ 4014}# + (vector-ref #{p\ 4015}# 1) #{w\ 4016}# #{mod\ 4018}#))) - (if #{l\ 4035}# - (cons #{l\ 4035}# #{r\ 4017}#) - #f)) - (let ((#{atom-key\ 4041}# (vector-ref #{p\ 4015}# 0))) - (if (memv #{atom-key\ 4041}# (quote (each))) - (if (null? #{e\ 4014}#) - (#{match-empty\ 3990}# - (vector-ref #{p\ 4015}# 1) - #{r\ 4017}#) - (let ((#{l\ 4044}# - (#{match-each\ 3984}# - #{e\ 4014}# - (vector-ref #{p\ 4015}# 1) - #{w\ 4016}# - #{mod\ 4018}#))) - (if #{l\ 4044}# - (letrec ((#{collect\ 4049}# - (lambda (#{l\ 4050}#) - (if (null? (car #{l\ 4050}#)) - #{r\ 4017}# - (cons (map car #{l\ 4050}#) - (#{collect\ 4049}# - (map cdr - #{l\ 4050}#))))))) - (#{collect\ 4049}# #{l\ 4044}#)) - #f))) - (if (memv #{atom-key\ 4041}# (quote (each+))) - (call-with-values - (lambda () - (#{match-each+\ 3986}# - #{e\ 4014}# + (if #{l\ 4044}# + (letrec ((#{collect\ 4049}# + (lambda (#{l\ 4050}#) + (if (null? (car #{l\ 4050}#)) + #{r\ 4017}# + (cons (map car #{l\ 4050}#) + (#{collect\ 4049}# + (map cdr #{l\ 4050}#))))))) + (#{collect\ 4049}# #{l\ 4044}#)) + #f))) + (if (memv #{atom-key\ 4041}# (quote (each+))) + (call-with-values + (lambda () + (#{match-each+\ 3986}# + #{e\ 4014}# + (vector-ref #{p\ 4015}# 1) + (vector-ref #{p\ 4015}# 2) + (vector-ref #{p\ 4015}# 3) + #{w\ 4016}# + #{r\ 4017}# + #{mod\ 4018}#)) + (lambda (#{xr*\ 4052}# #{y-pat\ 4053}# #{r\ 4054}#) + (if #{r\ 4054}# + (if (null? #{y-pat\ 4053}#) + (if (null? #{xr*\ 4052}#) + (#{match-empty\ 3990}# (vector-ref #{p\ 4015}# 1) - (vector-ref #{p\ 4015}# 2) - (vector-ref #{p\ 4015}# 3) + #{r\ 4054}#) + (#{combine\ 3992}# + #{xr*\ 4052}# + #{r\ 4054}#)) + #f) + #f))) + (if (memv #{atom-key\ 4041}# (quote (free-id))) + (if (#{id?\ 382}# #{e\ 4014}#) + (if (#{free-id=?\ 441}# + (#{wrap\ 451}# + #{e\ 4014}# #{w\ 4016}# - #{r\ 4017}# - #{mod\ 4018}#)) - (lambda (#{xr*\ 4052}# - #{y-pat\ 4053}# - #{r\ 4054}#) - (if #{r\ 4054}# - (if (null? #{y-pat\ 4053}#) - (if (null? #{xr*\ 4052}#) - (#{match-empty\ 3990}# - (vector-ref #{p\ 4015}# 1) - #{r\ 4054}#) - (#{combine\ 3992}# - #{xr*\ 4052}# - #{r\ 4054}#)) - #f) - #f))) - (if (memv #{atom-key\ 4041}# (quote (free-id))) - (if (#{id?\ 382}# #{e\ 4014}#) - (if (#{free-id=?\ 441}# - (#{wrap\ 451}# - #{e\ 4014}# - #{w\ 4016}# - #{mod\ 4018}#) - (vector-ref #{p\ 4015}# 1)) - #{r\ 4017}# - #f) - #f) - (if (memv #{atom-key\ 4041}# (quote (atom))) - (if (equal? - (vector-ref #{p\ 4015}# 1) - (#{strip\ 493}# - #{e\ 4014}# - #{w\ 4016}#)) - #{r\ 4017}# - #f) - (if (memv #{atom-key\ 4041}# - '(vector)) - (if (vector? #{e\ 4014}#) - (#{match\ 3996}# - (vector->list #{e\ 4014}#) - (vector-ref #{p\ 4015}# 1) - #{w\ 4016}# - #{r\ 4017}# - #{mod\ 4018}#) - #f)))))))))))) - (#{combine\ 3992}# - (lambda (#{r*\ 4071}# #{r\ 4072}#) - (if (null? (car #{r*\ 4071}#)) - #{r\ 4072}# - (cons (map car #{r*\ 4071}#) - (#{combine\ 3992}# - (map cdr #{r*\ 4071}#) - #{r\ 4072}#))))) - (#{match-empty\ 3990}# - (lambda (#{p\ 4075}# #{r\ 4076}#) - (if (null? #{p\ 4075}#) - #{r\ 4076}# - (if (eq? #{p\ 4075}# (quote any)) - (cons (quote ()) #{r\ 4076}#) - (if (pair? #{p\ 4075}#) + #{mod\ 4018}#) + (vector-ref #{p\ 4015}# 1)) + #{r\ 4017}# + #f) + #f) + (if (memv #{atom-key\ 4041}# (quote (atom))) + (if (equal? + (vector-ref #{p\ 4015}# 1) + (#{strip\ 493}# #{e\ 4014}# #{w\ 4016}#)) + #{r\ 4017}# + #f) + (if (memv #{atom-key\ 4041}# (quote (vector))) + (if (vector? #{e\ 4014}#) + (#{match\ 3996}# + (vector->list #{e\ 4014}#) + (vector-ref #{p\ 4015}# 1) + #{w\ 4016}# + #{r\ 4017}# + #{mod\ 4018}#) + #f)))))))))))) + (#{combine\ 3992}# + (lambda (#{r*\ 4071}# #{r\ 4072}#) + (if (null? (car #{r*\ 4071}#)) + #{r\ 4072}# + (cons (map car #{r*\ 4071}#) + (#{combine\ 3992}# + (map cdr #{r*\ 4071}#) + #{r\ 4072}#))))) + (#{match-empty\ 3990}# + (lambda (#{p\ 4075}# #{r\ 4076}#) + (if (null? #{p\ 4075}#) + #{r\ 4076}# + (if (eq? #{p\ 4075}# (quote any)) + (cons (quote ()) #{r\ 4076}#) + (if (pair? #{p\ 4075}#) + (#{match-empty\ 3990}# + (car #{p\ 4075}#) + (#{match-empty\ 3990}# + (cdr #{p\ 4075}#) + #{r\ 4076}#)) + (if (eq? #{p\ 4075}# (quote each-any)) + (cons (quote ()) #{r\ 4076}#) + (let ((#{atom-key\ 4090}# (vector-ref #{p\ 4075}# 0))) + (if (memv #{atom-key\ 4090}# (quote (each))) (#{match-empty\ 3990}# - (car #{p\ 4075}#) + (vector-ref #{p\ 4075}# 1) + #{r\ 4076}#) + (if (memv #{atom-key\ 4090}# (quote (each+))) (#{match-empty\ 3990}# - (cdr #{p\ 4075}#) - #{r\ 4076}#)) - (if (eq? #{p\ 4075}# (quote each-any)) - (cons (quote ()) #{r\ 4076}#) - (let ((#{atom-key\ 4090}# - (vector-ref #{p\ 4075}# 0))) - (if (memv #{atom-key\ 4090}# (quote (each))) + (vector-ref #{p\ 4075}# 1) + (#{match-empty\ 3990}# + (reverse (vector-ref #{p\ 4075}# 2)) + (#{match-empty\ 3990}# + (vector-ref #{p\ 4075}# 3) + #{r\ 4076}#))) + (if (memv #{atom-key\ 4090}# (quote (free-id atom))) + #{r\ 4076}# + (if (memv #{atom-key\ 4090}# (quote (vector))) (#{match-empty\ 3990}# (vector-ref #{p\ 4075}# 1) - #{r\ 4076}#) - (if (memv #{atom-key\ 4090}# (quote (each+))) - (#{match-empty\ 3990}# - (vector-ref #{p\ 4075}# 1) - (#{match-empty\ 3990}# - (reverse (vector-ref #{p\ 4075}# 2)) - (#{match-empty\ 3990}# - (vector-ref #{p\ 4075}# 3) - #{r\ 4076}#))) - (if (memv #{atom-key\ 4090}# - '(free-id atom)) - #{r\ 4076}# - (if (memv #{atom-key\ 4090}# - '(vector)) - (#{match-empty\ 3990}# - (vector-ref #{p\ 4075}# 1) - #{r\ 4076}#)))))))))))) - (#{match-each-any\ 3988}# - (lambda (#{e\ 4095}# #{w\ 4096}# #{mod\ 4097}#) - (if (pair? #{e\ 4095}#) - (let ((#{l\ 4104}# - (#{match-each-any\ 3988}# - (cdr #{e\ 4095}#) - #{w\ 4096}# - #{mod\ 4097}#))) - (if #{l\ 4104}# - (cons (#{wrap\ 451}# - (car #{e\ 4095}#) - #{w\ 4096}# - #{mod\ 4097}#) - #{l\ 4104}#) - #f)) - (if (null? #{e\ 4095}#) - '() - (if (#{syntax-object?\ 346}# #{e\ 4095}#) - (#{match-each-any\ 3988}# - (#{syntax-object-expression\ 348}# #{e\ 4095}#) - (#{join-wraps\ 433}# - #{w\ 4096}# - (#{syntax-object-wrap\ 350}# #{e\ 4095}#)) + #{r\ 4076}#)))))))))))) + (#{match-each-any\ 3988}# + (lambda (#{e\ 4095}# #{w\ 4096}# #{mod\ 4097}#) + (if (pair? #{e\ 4095}#) + (let ((#{l\ 4104}# + (#{match-each-any\ 3988}# + (cdr #{e\ 4095}#) + #{w\ 4096}# + #{mod\ 4097}#))) + (if #{l\ 4104}# + (cons (#{wrap\ 451}# + (car #{e\ 4095}#) + #{w\ 4096}# #{mod\ 4097}#) - #f))))) - (#{match-each+\ 3986}# - (lambda (#{e\ 4112}# - #{x-pat\ 4113}# - #{y-pat\ 4114}# - #{z-pat\ 4115}# - #{w\ 4116}# - #{r\ 4117}# - #{mod\ 4118}#) - (letrec ((#{f\ 4129}# - (lambda (#{e\ 4130}# #{w\ 4131}#) - (if (pair? #{e\ 4130}#) - (call-with-values - (lambda () - (#{f\ 4129}# - (cdr #{e\ 4130}#) - #{w\ 4131}#)) - (lambda (#{xr*\ 4134}# - #{y-pat\ 4135}# - #{r\ 4136}#) - (if #{r\ 4136}# - (if (null? #{y-pat\ 4135}#) - (let ((#{xr\ 4141}# - (#{match\ 3996}# - (car #{e\ 4130}#) - #{x-pat\ 4113}# - #{w\ 4131}# - '() - #{mod\ 4118}#))) - (if #{xr\ 4141}# - (values - (cons #{xr\ 4141}# - #{xr*\ 4134}#) - #{y-pat\ 4135}# - #{r\ 4136}#) - (values #f #f #f))) - (values - '() - (cdr #{y-pat\ 4135}#) + #{l\ 4104}#) + #f)) + (if (null? #{e\ 4095}#) + '() + (if (#{syntax-object?\ 346}# #{e\ 4095}#) + (#{match-each-any\ 3988}# + (#{syntax-object-expression\ 348}# #{e\ 4095}#) + (#{join-wraps\ 433}# + #{w\ 4096}# + (#{syntax-object-wrap\ 350}# #{e\ 4095}#)) + #{mod\ 4097}#) + #f))))) + (#{match-each+\ 3986}# + (lambda (#{e\ 4112}# + #{x-pat\ 4113}# + #{y-pat\ 4114}# + #{z-pat\ 4115}# + #{w\ 4116}# + #{r\ 4117}# + #{mod\ 4118}#) + (letrec ((#{f\ 4129}# + (lambda (#{e\ 4130}# #{w\ 4131}#) + (if (pair? #{e\ 4130}#) + (call-with-values + (lambda () + (#{f\ 4129}# (cdr #{e\ 4130}#) #{w\ 4131}#)) + (lambda (#{xr*\ 4134}# + #{y-pat\ 4135}# + #{r\ 4136}#) + (if #{r\ 4136}# + (if (null? #{y-pat\ 4135}#) + (let ((#{xr\ 4141}# (#{match\ 3996}# (car #{e\ 4130}#) - (car #{y-pat\ 4135}#) + #{x-pat\ 4113}# #{w\ 4131}# - #{r\ 4136}# + '() #{mod\ 4118}#))) - (values #f #f #f)))) - (if (#{syntax-object?\ 346}# #{e\ 4130}#) - (#{f\ 4129}# - (#{syntax-object-expression\ 348}# - #{e\ 4130}#) - (#{join-wraps\ 433}# - #{w\ 4131}# - #{e\ 4130}#)) + (if #{xr\ 4141}# + (values + (cons #{xr\ 4141}# #{xr*\ 4134}#) + #{y-pat\ 4135}# + #{r\ 4136}#) + (values #f #f #f))) (values '() - #{y-pat\ 4114}# + (cdr #{y-pat\ 4135}#) (#{match\ 3996}# - #{e\ 4130}# - #{z-pat\ 4115}# + (car #{e\ 4130}#) + (car #{y-pat\ 4135}#) #{w\ 4131}# - #{r\ 4117}# - #{mod\ 4118}#))))))) - (#{f\ 4129}# #{e\ 4112}# #{w\ 4116}#)))) - (#{match-each\ 3984}# - (lambda (#{e\ 4145}# - #{p\ 4146}# - #{w\ 4147}# - #{mod\ 4148}#) - (if (pair? #{e\ 4145}#) - (let ((#{first\ 4156}# - (#{match\ 3996}# - (car #{e\ 4145}#) - #{p\ 4146}# - #{w\ 4147}# - '() - #{mod\ 4148}#))) - (if #{first\ 4156}# - (let ((#{rest\ 4160}# - (#{match-each\ 3984}# - (cdr #{e\ 4145}#) - #{p\ 4146}# - #{w\ 4147}# - #{mod\ 4148}#))) - (if #{rest\ 4160}# - (cons #{first\ 4156}# #{rest\ 4160}#) - #f)) - #f)) - (if (null? #{e\ 4145}#) - '() - (if (#{syntax-object?\ 346}# #{e\ 4145}#) - (#{match-each\ 3984}# - (#{syntax-object-expression\ 348}# #{e\ 4145}#) - #{p\ 4146}# - (#{join-wraps\ 433}# + #{r\ 4136}# + #{mod\ 4118}#))) + (values #f #f #f)))) + (if (#{syntax-object?\ 346}# #{e\ 4130}#) + (#{f\ 4129}# + (#{syntax-object-expression\ 348}# #{e\ 4130}#) + (#{join-wraps\ 433}# #{w\ 4131}# #{e\ 4130}#)) + (values + '() + #{y-pat\ 4114}# + (#{match\ 3996}# + #{e\ 4130}# + #{z-pat\ 4115}# + #{w\ 4131}# + #{r\ 4117}# + #{mod\ 4118}#))))))) + (#{f\ 4129}# #{e\ 4112}# #{w\ 4116}#)))) + (#{match-each\ 3984}# + (lambda (#{e\ 4145}# + #{p\ 4146}# + #{w\ 4147}# + #{mod\ 4148}#) + (if (pair? #{e\ 4145}#) + (let ((#{first\ 4156}# + (#{match\ 3996}# + (car #{e\ 4145}#) + #{p\ 4146}# + #{w\ 4147}# + '() + #{mod\ 4148}#))) + (if #{first\ 4156}# + (let ((#{rest\ 4160}# + (#{match-each\ 3984}# + (cdr #{e\ 4145}#) + #{p\ 4146}# #{w\ 4147}# - (#{syntax-object-wrap\ 350}# #{e\ 4145}#)) - (#{syntax-object-module\ 352}# #{e\ 4145}#)) - #f)))))) + #{mod\ 4148}#))) + (if #{rest\ 4160}# + (cons #{first\ 4156}# #{rest\ 4160}#) + #f)) + #f)) + (if (null? #{e\ 4145}#) + '() + (if (#{syntax-object?\ 346}# #{e\ 4145}#) + (#{match-each\ 3984}# + (#{syntax-object-expression\ 348}# #{e\ 4145}#) + #{p\ 4146}# + (#{join-wraps\ 433}# + #{w\ 4147}# + (#{syntax-object-wrap\ 350}# #{e\ 4145}#)) + (#{syntax-object-module\ 352}# #{e\ 4145}#)) + #f)))))) (set! $sc-dispatch (lambda (#{e\ 4168}# #{p\ 4169}#) (if (eq? #{p\ 4169}# (quote any)) @@ -15275,22 +15067,21 @@ 'include 'macro (lambda (#{x\ 4440}#) - (letrec ((#{read-file\ 4443}# - (lambda (#{fn\ 4444}# #{k\ 4445}#) - (let ((#{p\ 4449}# (open-input-file #{fn\ 4444}#))) - (letrec ((#{f\ 4453}# - (lambda (#{x\ 4454}# #{result\ 4455}#) - (if (eof-object? #{x\ 4454}#) - (begin - (close-input-port #{p\ 4449}#) - (reverse #{result\ 4455}#)) - (#{f\ 4453}# - (read #{p\ 4449}#) - (cons (datum->syntax - #{k\ 4445}# - #{x\ 4454}#) - #{result\ 4455}#)))))) - (#{f\ 4453}# (read #{p\ 4449}#) (quote ()))))))) + (letrec* + ((#{read-file\ 4443}# + (lambda (#{fn\ 4444}# #{k\ 4445}#) + (let ((#{p\ 4449}# (open-input-file #{fn\ 4444}#))) + (letrec ((#{f\ 4453}# + (lambda (#{x\ 4454}# #{result\ 4455}#) + (if (eof-object? #{x\ 4454}#) + (begin + (close-input-port #{p\ 4449}#) + (reverse #{result\ 4455}#)) + (#{f\ 4453}# + (read #{p\ 4449}#) + (cons (datum->syntax #{k\ 4445}# #{x\ 4454}#) + #{result\ 4455}#)))))) + (#{f\ 4453}# (read #{p\ 4449}#) (quote ()))))))) ((lambda (#{tmp\ 4456}#) ((lambda (#{tmp\ 4457}#) (if #{tmp\ 4457}# diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index d82920d0a..834547900 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1483,7 +1483,7 @@ (loop (cdr bs) er r-cache)) (loop (cdr bs) er-cache r-cache))))) (set-cdr! r (extend-env labels bindings (cdr r))) - (build-letrec no-source #f + (build-letrec no-source #t (map syntax->datum var-ids) vars (map (lambda (x) -- 2.20.1