diff --git a/module/ice-9/compile-psyntax.scm b/module/ice-9/compile-psyntax.scm index e83a5be5a..86b94ac6e 100644 --- a/module/ice-9/compile-psyntax.scm +++ b/module/ice-9/compile-psyntax.scm @@ -17,6 +17,7 @@ ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (use-modules (language tree-il) + (language tree-il optimize) (ice-9 pretty-print)) (let ((source (list-ref (command-line) 1)) @@ -33,7 +34,10 @@ (close-port in)) (begin (pretty-print (tree-il->scheme - (macroexpand x 'c '(compile load eval))) + (optimize! + (macroexpand x 'c '(compile load eval)) + (current-module) + '())) out) (newline out) (loop (read in)))))) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index b79bc57f4..2b70c0c28 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,5904 +2,6082 @@ (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}#) - (#{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}# - #{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}#)) + ((#{and-map*\ 35}# + (lambda (#{f\ 207}# #{first\ 208}# . #{rest\ 209}#) + (begin + (let ((#{t\ 215}# (null? #{first\ 208}#))) + (if #{t\ 215}# + #{t\ 215}# + (if (null? #{rest\ 209}#) + (letrec* + ((#{andmap\ 219}# + (lambda (#{first\ 220}#) + (begin + (let ((#{x\ 223}# (car #{first\ 220}#)) + (#{first\ 224}# (cdr #{first\ 220}#))) + (if (null? #{first\ 224}#) + (#{f\ 207}# #{x\ 223}#) + (if (#{f\ 207}# #{x\ 223}#) + (#{andmap\ 219}# #{first\ 224}#) + #f))))))) + (begin (#{andmap\ 219}# #{first\ 208}#))) + (letrec* + ((#{andmap\ 230}# + (lambda (#{first\ 231}# #{rest\ 232}#) + (begin + (let ((#{x\ 237}# (car #{first\ 231}#)) + (#{xr\ 238}# (map car #{rest\ 232}#)) + (#{first\ 239}# (cdr #{first\ 231}#)) + (#{rest\ 240}# (map cdr #{rest\ 232}#))) + (if (null? #{first\ 239}#) + (@apply #{f\ 207}# (cons #{x\ 237}# #{xr\ 238}#)) + (if (@apply + #{f\ 207}# + (cons #{x\ 237}# #{xr\ 238}#)) + (#{andmap\ 230}# #{first\ 239}# #{rest\ 240}#) + #f))))))) + (begin + (#{andmap\ 230}# #{first\ 208}# #{rest\ 209}#)))))))))) + (begin + (let ((#{ribcage?\ 410}# (if #f #f)) + (#{wrap-subst\ 396}# (if #f #f)) + (#{wrap-marks\ 394}# (if #f #f)) + (#{make-wrap\ 392}# (if #f #f)) + (#{binding-value\ 372}# (if #f #f)) + (#{binding-type\ 370}# (if #f #f)) + (#{set-syntax-object-module!\ 363}# (if #f #f)) + (#{set-syntax-object-wrap!\ 361}# (if #f #f)) + (#{set-syntax-object-expression!\ 359}# + (if #f #f)) + (#{fx<\ 294}# (if #f #f)) + (#{fx=\ 292}# (if #f #f)) + (#{fx-\ 290}# (if #f #f)) + (#{fx+\ 288}# (if #f #f)) + (#{make-primitive-ref\ 249}# (if #f #f))) + (letrec* + ((#{lambda-var-list\ 502}# + (lambda (#{vars\ 717}#) + (letrec* + ((#{lvl\ 723}# + (lambda (#{vars\ 724}# #{ls\ 725}# #{w\ 726}#) + (if (pair? #{vars\ 724}#) + (#{lvl\ 723}# + (cdr #{vars\ 724}#) + (cons (#{wrap\ 456}# (car #{vars\ 724}#) #{w\ 726}# #f) + #{ls\ 725}#) + #{w\ 726}#) + (if (#{id?\ 387}# #{vars\ 724}#) + (cons (#{wrap\ 456}# #{vars\ 724}# #{w\ 726}# #f) + #{ls\ 725}#) + (if (null? #{vars\ 724}#) + #{ls\ 725}# + (if (#{syntax-object?\ 351}# #{vars\ 724}#) + (#{lvl\ 723}# + (#{syntax-object-expression\ 353}# #{vars\ 724}#) + #{ls\ 725}# + (#{join-wraps\ 438}# + #{w\ 726}# + (#{syntax-object-wrap\ 355}# #{vars\ 724}#))) + (cons #{vars\ 724}# #{ls\ 725}#)))))))) + (begin + (#{lvl\ 723}# + #{vars\ 717}# + '() + '(())))))) + (#{gen-var\ 500}# + (lambda (#{id\ 737}#) + (begin + (let ((#{id\ 740}# + (if (#{syntax-object?\ 351}# #{id\ 737}#) + (#{syntax-object-expression\ 353}# #{id\ 737}#) + #{id\ 737}#))) + (gensym + (string-append (symbol->string #{id\ 740}#) " ")))))) + (#{strip\ 498}# + (lambda (#{x\ 742}# #{w\ 743}#) + (if (memq 'top + (#{wrap-marks\ 394}# #{w\ 743}#)) + #{x\ 742}# + (letrec* + ((#{f\ 749}# (lambda (#{x\ 750}#) + (if (#{syntax-object?\ 351}# #{x\ 750}#) + (#{strip\ 498}# + (#{syntax-object-expression\ 353}# + #{x\ 750}#) + (#{syntax-object-wrap\ 355}# #{x\ 750}#)) + (if (pair? #{x\ 750}#) + (begin + (let ((#{a\ 757}# (#{f\ 749}# (car #{x\ 750}#))) + (#{d\ 758}# (#{f\ 749}# (cdr #{x\ 750}#)))) + (if (if (eq? #{a\ 757}# + (car #{x\ 750}#)) + (eq? #{d\ 758}# (cdr #{x\ 750}#)) #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}# - (cons #{e1\ 817}# #{e2\ 818}#) - #{vars\ 790}# - #{r*\ 791}# - #{w*\ 792}# - #{inits\ 793}# - (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}#) + #{x\ 750}# + (cons #{a\ 757}# #{d\ 758}#)))) + (if (vector? #{x\ 750}#) + (begin + (let ((#{old\ 764}# + (vector->list #{x\ 750}#))) + (begin + (let ((#{new\ 766}# + (map #{f\ 749}# + #{old\ 764}#))) + (if (#{and-map*\ 35}# + eq? + #{old\ 764}# + #{new\ 766}#) + #{x\ 750}# + (list->vector + #{new\ 766}#)))))) + #{x\ 750}#)))))) + (begin (#{f\ 749}# #{x\ 742}#)))))) + (#{chi-lambda-case\ 496}# + (lambda (#{e\ 768}# + #{r\ 769}# + #{w\ 770}# + #{s\ 771}# + #{mod\ 772}# + #{get-formals\ 773}# + #{clauses\ 774}#) + (letrec* + ((#{expand-body\ 789}# + (lambda (#{req\ 790}# + #{opt\ 791}# + #{rest\ 792}# + #{kw\ 793}# + #{body\ 794}# + #{vars\ 795}# + #{r*\ 796}# + #{w*\ 797}# + #{inits\ 798}# + #{meta\ 799}#) + (let ((#{tmp\ 810}# #{body\ 794}#)) + (let ((#{tmp\ 811}# + ($sc-dispatch + #{tmp\ 810}# + '(any any . each-any)))) + (if (if #{tmp\ 811}# + (@apply + (lambda (#{docstring\ 815}# + #{e1\ 816}# + #{e2\ 817}#) + (string? (syntax->datum #{docstring\ 815}#))) + #{tmp\ 811}#) + #f) + (@apply + (lambda (#{docstring\ 821}# + #{e1\ 822}# + #{e2\ 823}#) + (#{expand-body\ 789}# + #{req\ 790}# + #{opt\ 791}# + #{rest\ 792}# + #{kw\ 793}# + (cons #{e1\ 822}# #{e2\ 823}#) + #{vars\ 795}# + #{r*\ 796}# + #{w*\ 797}# + #{inits\ 798}# + (append + #{meta\ 799}# + (list (cons 'documentation + (syntax->datum + #{docstring\ 821}#)))))) + #{tmp\ 811}#) + (let ((#{tmp\ 826}# + ($sc-dispatch + #{tmp\ 810}# + '(#(vector #(each (any . any))) + any + . + each-any)))) + (if #{tmp\ 826}# + (@apply + (lambda (#{k\ 831}# + #{v\ 832}# + #{e1\ 833}# + #{e2\ 834}#) + (#{expand-body\ 789}# + #{req\ 790}# + #{opt\ 791}# + #{rest\ 792}# + #{kw\ 793}# + (cons #{e1\ 833}# #{e2\ 834}#) + #{vars\ 795}# + #{r*\ 796}# + #{w*\ 797}# + #{inits\ 798}# + (append + #{meta\ 799}# + (syntax->datum + (map cons #{k\ 831}# #{v\ 832}#))))) + #{tmp\ 826}#) + (let ((#{tmp\ 838}# + ($sc-dispatch + #{tmp\ 810}# + '(any . each-any)))) + (if #{tmp\ 838}# + (@apply + (lambda (#{e1\ 841}# #{e2\ 842}#) + (values + #{meta\ 799}# + #{req\ 790}# + #{opt\ 791}# + #{rest\ 792}# + #{kw\ 793}# + #{inits\ 798}# + #{vars\ 795}# + (#{chi-body\ 480}# + (cons #{e1\ 841}# #{e2\ 842}#) + (#{source-wrap\ 458}# + #{e\ 768}# + #{w\ 770}# + #{s\ 771}# + #{mod\ 772}#) + #{r*\ 796}# + #{w*\ 797}# + #{mod\ 772}#))) + #{tmp\ 838}#) (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\ 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}# - #{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}# - #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}# (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 - #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}#))) - #{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 - #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 (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}# - #{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}# - #{value\ 1562}# - #{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}# - #{w\ 1565}# - #{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}# - '(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}#) + #{tmp\ 810}#)))))))))) + (#{expand-kw\ 787}# + (lambda (#{req\ 844}# + #{opt\ 845}# + #{rest\ 846}# + #{kw\ 847}# + #{body\ 848}# + #{vars\ 849}# + #{r*\ 850}# + #{w*\ 851}# + #{aok\ 852}# + #{out\ 853}# + #{inits\ 854}#) + (if (pair? #{kw\ 847}#) + (let ((#{tmp\ 868}# (car #{kw\ 847}#))) + (let ((#{tmp\ 869}# + ($sc-dispatch + #{tmp\ 868}# + '(any any any)))) + (if #{tmp\ 869}# + (@apply + (lambda (#{k\ 873}# #{id\ 874}# #{i\ 875}#) + (begin + (let ((#{v\ 878}# (#{gen-var\ 500}# + #{id\ 874}#))) + (begin + (let ((#{l\ 880}# (#{gen-labels\ 405}# + (list #{v\ 878}#)))) + (begin + (let ((#{r**\ 882}# + (#{extend-var-env\ 377}# + #{l\ 880}# + (list #{v\ 878}#) + #{r*\ 850}#))) + (begin + (let ((#{w**\ 884}# + (#{make-binding-wrap\ 434}# + (list #{id\ 874}#) + #{l\ 880}# + #{w*\ 851}#))) + (#{expand-kw\ 787}# + #{req\ 844}# + #{opt\ 845}# + #{rest\ 846}# + (cdr #{kw\ 847}#) + #{body\ 848}# + (cons #{v\ 878}# + #{vars\ 849}#) + #{r**\ 882}# + #{w**\ 884}# + #{aok\ 852}# + (cons (list (syntax->datum + #{k\ 873}#) + (syntax->datum + #{id\ 874}#) + #{v\ 878}#) + #{out\ 853}#) + (cons (#{chi\ 472}# + #{i\ 875}# + #{r*\ 850}# + #{w*\ 851}# + #{mod\ 772}#) + #{inits\ 854}#))))))))))) + #{tmp\ 869}#) (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}# - '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))))) + #{tmp\ 868}#)))) + (#{expand-body\ 789}# + #{req\ 844}# + #{opt\ 845}# + #{rest\ 846}# + (if (begin + (let ((#{t\ 888}# #{aok\ 852}#)) + (if #{t\ 888}# + #{t\ 888}# + (pair? #{out\ 853}#)))) + (cons #{aok\ 852}# (reverse #{out\ 853}#)) + #f) + #{body\ 848}# + (reverse #{vars\ 849}#) + #{r*\ 850}# + #{w*\ 851}# + (reverse #{inits\ 854}#) + '())))) + (#{expand-opt\ 785}# + (lambda (#{req\ 890}# + #{opt\ 891}# + #{rest\ 892}# + #{kw\ 893}# + #{body\ 894}# + #{vars\ 895}# + #{r*\ 896}# + #{w*\ 897}# + #{out\ 898}# + #{inits\ 899}#) + (if (pair? #{opt\ 891}#) + (let ((#{tmp\ 912}# (car #{opt\ 891}#))) + (let ((#{tmp\ 913}# + ($sc-dispatch #{tmp\ 912}# (quote (any any))))) + (if #{tmp\ 913}# + (@apply + (lambda (#{id\ 916}# #{i\ 917}#) + (begin + (let ((#{v\ 920}# (#{gen-var\ 500}# + #{id\ 916}#))) + (begin + (let ((#{l\ 922}# (#{gen-labels\ 405}# + (list #{v\ 920}#)))) + (begin + (let ((#{r**\ 924}# + (#{extend-var-env\ 377}# + #{l\ 922}# + (list #{v\ 920}#) + #{r*\ 896}#))) (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}#) + (let ((#{w**\ 926}# + (#{make-binding-wrap\ 434}# + (list #{id\ 916}#) + #{l\ 922}# + #{w*\ 897}#))) + (#{expand-opt\ 785}# + #{req\ 890}# + (cdr #{opt\ 891}#) + #{rest\ 892}# + #{kw\ 893}# + #{body\ 894}# + (cons #{v\ 920}# + #{vars\ 895}#) + #{r**\ 924}# + #{w**\ 926}# + (cons (syntax->datum + #{id\ 916}#) + #{out\ 898}#) + (cons (#{chi\ 472}# + #{i\ 917}# + #{r*\ 896}# + #{w*\ 897}# + #{mod\ 772}#) + #{inits\ 899}#))))))))))) + #{tmp\ 913}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 912}#)))) + (if #{rest\ 892}# + (begin + (let ((#{v\ 931}# (#{gen-var\ 500}# #{rest\ 892}#))) + (begin + (let ((#{l\ 933}# (#{gen-labels\ 405}# + (list #{v\ 931}#)))) + (begin + (let ((#{r*\ 935}# + (#{extend-var-env\ 377}# + #{l\ 933}# + (list #{v\ 931}#) + #{r*\ 896}#))) + (begin + (let ((#{w*\ 937}# + (#{make-binding-wrap\ 434}# + (list #{rest\ 892}#) + #{l\ 933}# + #{w*\ 897}#))) + (#{expand-kw\ 787}# + #{req\ 890}# + (if (pair? #{out\ 898}#) + (reverse #{out\ 898}#) + #f) + (syntax->datum #{rest\ 892}#) + (if (pair? #{kw\ 893}#) + (cdr #{kw\ 893}#) + #{kw\ 893}#) + #{body\ 894}# + (cons #{v\ 931}# #{vars\ 895}#) + #{r*\ 935}# + #{w*\ 937}# + (if (pair? #{kw\ 893}#) + (car #{kw\ 893}#) + #f) + '() + #{inits\ 899}#))))))))) + (#{expand-kw\ 787}# + #{req\ 890}# + (if (pair? #{out\ 898}#) + (reverse #{out\ 898}#) + #f) + #f + (if (pair? #{kw\ 893}#) + (cdr #{kw\ 893}#) + #{kw\ 893}#) + #{body\ 894}# + #{vars\ 895}# + #{r*\ 896}# + #{w*\ 897}# + (if (pair? #{kw\ 893}#) (car #{kw\ 893}#) #f) + '() + #{inits\ 899}#))))) + (#{expand-req\ 783}# + (lambda (#{req\ 939}# + #{opt\ 940}# + #{rest\ 941}# + #{kw\ 942}# + #{body\ 943}#) + (begin + (let ((#{vars\ 951}# + (map #{gen-var\ 500}# #{req\ 939}#)) + (#{labels\ 952}# + (#{gen-labels\ 405}# #{req\ 939}#))) + (begin + (let ((#{r*\ 955}# + (#{extend-var-env\ 377}# + #{labels\ 952}# + #{vars\ 951}# + #{r\ 769}#)) + (#{w*\ 956}# + (#{make-binding-wrap\ 434}# + #{req\ 939}# + #{labels\ 952}# + #{w\ 770}#))) + (#{expand-opt\ 785}# + (map syntax->datum #{req\ 939}#) + #{opt\ 940}# + #{rest\ 941}# + #{kw\ 942}# + #{body\ 943}# + (reverse #{vars\ 951}#) + #{r*\ 955}# + #{w*\ 956}# + '() + '())))))))) + (begin + (let ((#{tmp\ 957}# #{clauses\ 774}#)) + (let ((#{tmp\ 958}# + ($sc-dispatch #{tmp\ 957}# (quote ())))) + (if #{tmp\ 958}# + (@apply + (lambda () (values (quote ()) #f)) + #{tmp\ 958}#) + (let ((#{tmp\ 959}# + ($sc-dispatch + #{tmp\ 957}# + '((any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp\ 959}# + (@apply + (lambda (#{args\ 966}# + #{e1\ 967}# + #{e2\ 968}# + #{args*\ 969}# + #{e1*\ 970}# + #{e2*\ 971}#) + (call-with-values + (lambda () + (#{get-formals\ 773}# #{args\ 966}#)) + (lambda (#{req\ 972}# + #{opt\ 973}# + #{rest\ 974}# + #{kw\ 975}#) + (call-with-values + (lambda () + (#{expand-req\ 783}# + #{req\ 972}# + #{opt\ 973}# + #{rest\ 974}# + #{kw\ 975}# + (cons #{e1\ 967}# #{e2\ 968}#))) + (lambda (#{meta\ 981}# + #{req\ 982}# + #{opt\ 983}# + #{rest\ 984}# + #{kw\ 985}# + #{inits\ 986}# + #{vars\ 987}# + #{body\ 988}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 496}# + #{e\ 768}# + #{r\ 769}# + #{w\ 770}# + #{s\ 771}# + #{mod\ 772}# + #{get-formals\ 773}# + (map (lambda (#{tmp\ 999}# + #{tmp\ 998}# + #{tmp\ 997}#) + (cons #{tmp\ 997}# + (cons #{tmp\ 998}# + #{tmp\ 999}#))) + #{e2*\ 971}# + #{e1*\ 970}# + #{args*\ 969}#))) + (lambda (#{meta*\ 1001}# + #{else*\ 1002}#) + (values + (append + #{meta\ 981}# + #{meta*\ 1001}#) + (#{build-lambda-case\ 333}# + #{s\ 771}# + #{req\ 982}# + #{opt\ 983}# + #{rest\ 984}# + #{kw\ 985}# + #{inits\ 986}# + #{vars\ 987}# + #{body\ 988}# + #{else*\ 1002}#))))))))) + #{tmp\ 959}#) (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}#) - (#{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}# - #{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}#) - #{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 - #{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}#) - #{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 - 'core-form - #{fval\ 1816}# - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (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}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (if (memv #{ftype\ 1815}# (quote (eval-when))) - (values - 'eval-when-form - #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (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))))) + #{tmp\ 957}#)))))))))) + (#{lambda*-formals\ 494}# + (lambda (#{orig-args\ 1005}#) + (letrec* + ((#{check\ 1016}# + (lambda (#{req\ 1017}# + #{opt\ 1018}# + #{rest\ 1019}# + #{kw\ 1020}#) + (if (#{distinct-bound-ids?\ 452}# + (append + #{req\ 1017}# + (map car #{opt\ 1018}#) + (if #{rest\ 1019}# + (list #{rest\ 1019}#) + '()) + (if (pair? #{kw\ 1020}#) + (map cadr (cdr #{kw\ 1020}#)) + '()))) + (values + #{req\ 1017}# + #{opt\ 1018}# + #{rest\ 1019}# + #{kw\ 1020}#) + (syntax-violation + 'lambda* + "duplicate identifier in argument list" + #{orig-args\ 1005}#)))) + (#{rest\ 1014}# + (lambda (#{args\ 1028}# + #{req\ 1029}# + #{opt\ 1030}# + #{kw\ 1031}#) + (let ((#{tmp\ 1036}# #{args\ 1028}#)) + (let ((#{tmp\ 1037}# (list #{tmp\ 1036}#))) + (if (if #{tmp\ 1037}# + (@apply + (lambda (#{r\ 1039}#) + (#{id?\ 387}# #{r\ 1039}#)) + #{tmp\ 1037}#) + #f) + (@apply + (lambda (#{r\ 1041}#) + (#{check\ 1016}# + #{req\ 1029}# + #{opt\ 1030}# + #{r\ 1041}# + #{kw\ 1031}#)) + #{tmp\ 1037}#) + (let ((#{else\ 1043}# #{tmp\ 1036}#)) + (syntax-violation + 'lambda* + "invalid rest argument" + #{orig-args\ 1005}# + #{args\ 1028}#))))))) + (#{key\ 1012}# + (lambda (#{args\ 1044}# + #{req\ 1045}# + #{opt\ 1046}# + #{rkey\ 1047}#) + (let ((#{tmp\ 1052}# #{args\ 1044}#)) + (let ((#{tmp\ 1053}# + ($sc-dispatch #{tmp\ 1052}# (quote ())))) + (if #{tmp\ 1053}# + (@apply + (lambda () + (#{check\ 1016}# + #{req\ 1045}# + #{opt\ 1046}# + #f + (cons #f (reverse #{rkey\ 1047}#)))) + #{tmp\ 1053}#) + (let ((#{tmp\ 1054}# + ($sc-dispatch + #{tmp\ 1052}# + '(any . any)))) + (if (if #{tmp\ 1054}# + (@apply + (lambda (#{a\ 1057}# #{b\ 1058}#) + (#{id?\ 387}# #{a\ 1057}#)) + #{tmp\ 1054}#) + #f) + (@apply + (lambda (#{a\ 1061}# #{b\ 1062}#) + (let ((#{tmp\ 1064}# + (symbol->keyword + (syntax->datum #{a\ 1061}#)))) + (let ((#{k\ 1066}# #{tmp\ 1064}#)) + (#{key\ 1012}# + #{b\ 1062}# + #{req\ 1045}# + #{opt\ 1046}# + (cons (cons #{k\ 1066}# + (cons #{a\ 1061}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(k) + #((top)) + #("i1065")) + #(ribcage + #(a b) + #((top) (top)) + #("i1059" + "i1060")) + #(ribcage + () + () + ()) + #(ribcage + #(args + req + opt + rkey) + #((top) + (top) + (top) + (top)) + #("i1048" + "i1049" + "i1050" + "i1051")) + #(ribcage + (check rest + key + opt + req) + ((top) + (top) + (top) + (top) + (top)) + ("i1015" + "i1013" + "i1011" + "i1009" + "i1007")) + #(ribcage + #(orig-args) + #((top)) + #("i1006")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene + guile))))) + #{rkey\ 1047}#))))) + #{tmp\ 1054}#) + (let ((#{tmp\ 1067}# + ($sc-dispatch + #{tmp\ 1052}# + '((any any) . any)))) + (if (if #{tmp\ 1067}# + (@apply + (lambda (#{a\ 1071}# + #{init\ 1072}# + #{b\ 1073}#) + (#{id?\ 387}# #{a\ 1071}#)) + #{tmp\ 1067}#) + #f) + (@apply + (lambda (#{a\ 1077}# + #{init\ 1078}# + #{b\ 1079}#) + (let ((#{tmp\ 1081}# + (symbol->keyword + (syntax->datum #{a\ 1077}#)))) + (let ((#{k\ 1083}# #{tmp\ 1081}#)) + (#{key\ 1012}# + #{b\ 1079}# + #{req\ 1045}# + #{opt\ 1046}# + (cons (list #{k\ 1083}# + #{a\ 1077}# + #{init\ 1078}#) + #{rkey\ 1047}#))))) + #{tmp\ 1067}#) + (let ((#{tmp\ 1084}# + ($sc-dispatch + #{tmp\ 1052}# + '((any any any) . any)))) + (if (if #{tmp\ 1084}# + (@apply + (lambda (#{a\ 1089}# + #{init\ 1090}# + #{k\ 1091}# + #{b\ 1092}#) + (if (#{id?\ 387}# #{a\ 1089}#) + (keyword? + (syntax->datum #{k\ 1091}#)) + #f)) + #{tmp\ 1084}#) + #f) + (@apply + (lambda (#{a\ 1099}# + #{init\ 1100}# + #{k\ 1101}# + #{b\ 1102}#) + (#{key\ 1012}# + #{b\ 1102}# + #{req\ 1045}# + #{opt\ 1046}# + (cons (list #{k\ 1101}# + #{a\ 1099}# + #{init\ 1100}#) + #{rkey\ 1047}#))) + #{tmp\ 1084}#) + (let ((#{tmp\ 1103}# ($sc-dispatch - #{tmp\ 1847}# - '(any (any . any) - any - . - each-any))))) + #{tmp\ 1052}# + '(any)))) + (if (if #{tmp\ 1103}# + (@apply + (lambda (#{aok\ 1105}#) + (eq? (syntax->datum + #{aok\ 1105}#) + #:allow-other-keys)) + #{tmp\ 1103}#) + #f) + (@apply + (lambda (#{aok\ 1107}#) + (#{check\ 1016}# + #{req\ 1045}# + #{opt\ 1046}# + #f + (cons #t + (reverse + #{rkey\ 1047}#)))) + #{tmp\ 1103}#) + (let ((#{tmp\ 1108}# + ($sc-dispatch + #{tmp\ 1052}# + '(any any any)))) + (if (if #{tmp\ 1108}# + (@apply + (lambda (#{aok\ 1112}# + #{a\ 1113}# + #{b\ 1114}#) + (if (eq? (syntax->datum + #{aok\ 1112}#) + #:allow-other-keys) + (eq? (syntax->datum + #{a\ 1113}#) + #:rest) + #f)) + #{tmp\ 1108}#) + #f) + (@apply + (lambda (#{aok\ 1120}# + #{a\ 1121}# + #{b\ 1122}#) + (#{rest\ 1014}# + #{b\ 1122}# + #{req\ 1045}# + #{opt\ 1046}# + (cons #t + (reverse + #{rkey\ 1047}#)))) + #{tmp\ 1108}#) + (let ((#{tmp\ 1123}# + ($sc-dispatch + #{tmp\ 1052}# + '(any . any)))) + (if (if #{tmp\ 1123}# + (@apply + (lambda (#{aok\ 1126}# + #{r\ 1127}#) + (if (eq? (syntax->datum + #{aok\ 1126}#) + #:allow-other-keys) + (#{id?\ 387}# + #{r\ 1127}#) + #f)) + #{tmp\ 1123}#) + #f) + (@apply + (lambda (#{aok\ 1132}# + #{r\ 1133}#) + (#{rest\ 1014}# + #{r\ 1133}# + #{req\ 1045}# + #{opt\ 1046}# + (cons #t + (reverse + #{rkey\ 1047}#)))) + #{tmp\ 1123}#) + (let ((#{tmp\ 1134}# + ($sc-dispatch + #{tmp\ 1052}# + '(any any)))) + (if (if #{tmp\ 1134}# + (@apply + (lambda (#{a\ 1137}# + #{b\ 1138}#) + (eq? (syntax->datum + #{a\ 1137}#) + #:rest)) + #{tmp\ 1134}#) + #f) + (@apply + (lambda (#{a\ 1141}# + #{b\ 1142}#) + (#{rest\ 1014}# + #{b\ 1142}# + #{req\ 1045}# + #{opt\ 1046}# + (cons #f + (reverse + #{rkey\ 1047}#)))) + #{tmp\ 1134}#) + (let ((#{tmp\ 1143}# + (list #{tmp\ 1052}#))) + (if (if #{tmp\ 1143}# + (@apply + (lambda (#{r\ 1145}#) + (#{id?\ 387}# + #{r\ 1145}#)) + #{tmp\ 1143}#) + #f) + (@apply + (lambda (#{r\ 1147}#) + (#{rest\ 1014}# + #{r\ 1147}# + #{req\ 1045}# + #{opt\ 1046}# + (cons #f + (reverse + #{rkey\ 1047}#)))) + #{tmp\ 1143}#) + (let ((#{else\ 1149}# + #{tmp\ 1052}#)) + (syntax-violation + 'lambda* + "invalid keyword argument list" + #{orig-args\ 1005}# + #{args\ 1044}#))))))))))))))))))))))) + (#{opt\ 1010}# + (lambda (#{args\ 1150}# #{req\ 1151}# #{ropt\ 1152}#) + (let ((#{tmp\ 1156}# #{args\ 1150}#)) + (let ((#{tmp\ 1157}# + ($sc-dispatch #{tmp\ 1156}# (quote ())))) + (if #{tmp\ 1157}# + (@apply + (lambda () + (#{check\ 1016}# + #{req\ 1151}# + (reverse #{ropt\ 1152}#) + #f + '())) + #{tmp\ 1157}#) + (let ((#{tmp\ 1158}# + ($sc-dispatch + #{tmp\ 1156}# + '(any . any)))) + (if (if #{tmp\ 1158}# + (@apply + (lambda (#{a\ 1161}# #{b\ 1162}#) + (#{id?\ 387}# #{a\ 1161}#)) + #{tmp\ 1158}#) + #f) + (@apply + (lambda (#{a\ 1165}# #{b\ 1166}#) + (#{opt\ 1010}# + #{b\ 1166}# + #{req\ 1151}# + (cons (cons #{a\ 1165}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(a b) + #((top) (top)) + #("i1163" "i1164")) + #(ribcage () () ()) + #(ribcage + #(args req ropt) + #((top) (top) (top)) + #("i1153" + "i1154" + "i1155")) + #(ribcage + (check rest key opt req) + ((top) + (top) + (top) + (top) + (top)) + ("i1015" + "i1013" + "i1011" + "i1009" + "i1007")) + #(ribcage + #(orig-args) + #((top)) + #("i1006")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene guile)))) + #{ropt\ 1152}#))) + #{tmp\ 1158}#) + (let ((#{tmp\ 1167}# + ($sc-dispatch + #{tmp\ 1156}# + '((any any) . any)))) + (if (if #{tmp\ 1167}# + (@apply + (lambda (#{a\ 1171}# + #{init\ 1172}# + #{b\ 1173}#) + (#{id?\ 387}# #{a\ 1171}#)) + #{tmp\ 1167}#) + #f) + (@apply + (lambda (#{a\ 1177}# + #{init\ 1178}# + #{b\ 1179}#) + (#{opt\ 1010}# + #{b\ 1179}# + #{req\ 1151}# + (cons (list #{a\ 1177}# #{init\ 1178}#) + #{ropt\ 1152}#))) + #{tmp\ 1167}#) + (let ((#{tmp\ 1180}# + ($sc-dispatch + #{tmp\ 1156}# + '(any . any)))) + (if (if #{tmp\ 1180}# + (@apply + (lambda (#{a\ 1183}# #{b\ 1184}#) + (eq? (syntax->datum #{a\ 1183}#) + #:key)) + #{tmp\ 1180}#) + #f) + (@apply + (lambda (#{a\ 1187}# #{b\ 1188}#) + (#{key\ 1012}# + #{b\ 1188}# + #{req\ 1151}# + (reverse #{ropt\ 1152}#) + '())) + #{tmp\ 1180}#) + (let ((#{tmp\ 1189}# + ($sc-dispatch + #{tmp\ 1156}# + '(any any)))) + (if (if #{tmp\ 1189}# + (@apply + (lambda (#{a\ 1192}# + #{b\ 1193}#) + (eq? (syntax->datum + #{a\ 1192}#) + #:rest)) + #{tmp\ 1189}#) + #f) + (@apply + (lambda (#{a\ 1196}# #{b\ 1197}#) + (#{rest\ 1014}# + #{b\ 1197}# + #{req\ 1151}# + (reverse #{ropt\ 1152}#) + '())) + #{tmp\ 1189}#) + (let ((#{tmp\ 1198}# + (list #{tmp\ 1156}#))) + (if (if #{tmp\ 1198}# + (@apply + (lambda (#{r\ 1200}#) + (#{id?\ 387}# + #{r\ 1200}#)) + #{tmp\ 1198}#) + #f) + (@apply + (lambda (#{r\ 1202}#) + (#{rest\ 1014}# + #{r\ 1202}# + #{req\ 1151}# + (reverse #{ropt\ 1152}#) + '())) + #{tmp\ 1198}#) + (let ((#{else\ 1204}# + #{tmp\ 1156}#)) + (syntax-violation + 'lambda* + "invalid optional argument list" + #{orig-args\ 1005}# + #{args\ 1150}#))))))))))))))))) + (#{req\ 1008}# + (lambda (#{args\ 1205}# #{rreq\ 1206}#) + (let ((#{tmp\ 1209}# #{args\ 1205}#)) + (let ((#{tmp\ 1210}# + ($sc-dispatch #{tmp\ 1209}# (quote ())))) + (if #{tmp\ 1210}# + (@apply + (lambda () + (#{check\ 1016}# + (reverse #{rreq\ 1206}#) + '() + #f + '())) + #{tmp\ 1210}#) + (let ((#{tmp\ 1211}# + ($sc-dispatch + #{tmp\ 1209}# + '(any . any)))) + (if (if #{tmp\ 1211}# + (@apply + (lambda (#{a\ 1214}# #{b\ 1215}#) + (#{id?\ 387}# #{a\ 1214}#)) + #{tmp\ 1211}#) + #f) + (@apply + (lambda (#{a\ 1218}# #{b\ 1219}#) + (#{req\ 1008}# + #{b\ 1219}# + (cons #{a\ 1218}# #{rreq\ 1206}#))) + #{tmp\ 1211}#) + (let ((#{tmp\ 1220}# + ($sc-dispatch + #{tmp\ 1209}# + '(any . any)))) + (if (if #{tmp\ 1220}# + (@apply + (lambda (#{a\ 1223}# #{b\ 1224}#) + (eq? (syntax->datum #{a\ 1223}#) + #:optional)) + #{tmp\ 1220}#) + #f) + (@apply + (lambda (#{a\ 1227}# #{b\ 1228}#) + (#{opt\ 1010}# + #{b\ 1228}# + (reverse #{rreq\ 1206}#) + '())) + #{tmp\ 1220}#) + (let ((#{tmp\ 1229}# + ($sc-dispatch + #{tmp\ 1209}# + '(any . any)))) + (if (if #{tmp\ 1229}# + (@apply + (lambda (#{a\ 1232}# #{b\ 1233}#) + (eq? (syntax->datum #{a\ 1232}#) + #:key)) + #{tmp\ 1229}#) + #f) + (@apply + (lambda (#{a\ 1236}# #{b\ 1237}#) + (#{key\ 1012}# + #{b\ 1237}# + (reverse #{rreq\ 1206}#) + '() + '())) + #{tmp\ 1229}#) + (let ((#{tmp\ 1238}# + ($sc-dispatch + #{tmp\ 1209}# + '(any any)))) + (if (if #{tmp\ 1238}# + (@apply + (lambda (#{a\ 1241}# + #{b\ 1242}#) + (eq? (syntax->datum + #{a\ 1241}#) + #:rest)) + #{tmp\ 1238}#) + #f) + (@apply + (lambda (#{a\ 1245}# #{b\ 1246}#) + (#{rest\ 1014}# + #{b\ 1246}# + (reverse #{rreq\ 1206}#) + '() + '())) + #{tmp\ 1238}#) + (let ((#{tmp\ 1247}# + (list #{tmp\ 1209}#))) + (if (if #{tmp\ 1247}# + (@apply + (lambda (#{r\ 1249}#) + (#{id?\ 387}# + #{r\ 1249}#)) + #{tmp\ 1247}#) + #f) + (@apply + (lambda (#{r\ 1251}#) + (#{rest\ 1014}# + #{r\ 1251}# + (reverse #{rreq\ 1206}#) + '() + '())) + #{tmp\ 1247}#) + (let ((#{else\ 1253}# + #{tmp\ 1209}#)) + (syntax-violation + 'lambda* + "invalid argument list" + #{orig-args\ 1005}# + #{args\ 1205}#)))))))))))))))))) + (begin + (#{req\ 1008}# #{orig-args\ 1005}# (quote ())))))) + (#{chi-simple-lambda\ 492}# + (lambda (#{e\ 1254}# + #{r\ 1255}# + #{w\ 1256}# + #{s\ 1257}# + #{mod\ 1258}# + #{req\ 1259}# + #{rest\ 1260}# + #{meta\ 1261}# + #{body\ 1262}#) + (begin + (let ((#{ids\ 1274}# + (if #{rest\ 1260}# + (append #{req\ 1259}# (list #{rest\ 1260}#)) + #{req\ 1259}#))) + (begin + (let ((#{vars\ 1276}# + (map #{gen-var\ 500}# #{ids\ 1274}#))) + (begin + (let ((#{labels\ 1278}# + (#{gen-labels\ 405}# #{ids\ 1274}#))) + (#{build-simple-lambda\ 329}# + #{s\ 1257}# + (map syntax->datum #{req\ 1259}#) + (if #{rest\ 1260}# + (syntax->datum #{rest\ 1260}#) + #f) + #{vars\ 1276}# + #{meta\ 1261}# + (#{chi-body\ 480}# + #{body\ 1262}# + (#{source-wrap\ 458}# + #{e\ 1254}# + #{w\ 1256}# + #{s\ 1257}# + #{mod\ 1258}#) + (#{extend-var-env\ 377}# + #{labels\ 1278}# + #{vars\ 1276}# + #{r\ 1255}#) + (#{make-binding-wrap\ 434}# + #{ids\ 1274}# + #{labels\ 1278}# + #{w\ 1256}#) + #{mod\ 1258}#)))))))))) + (#{lambda-formals\ 490}# + (lambda (#{orig-args\ 1281}#) + (letrec* + ((#{check\ 1286}# + (lambda (#{req\ 1287}# #{rest\ 1288}#) + (if (#{distinct-bound-ids?\ 452}# + (if #{rest\ 1288}# + (cons #{rest\ 1288}# #{req\ 1287}#) + #{req\ 1287}#)) + (values #{req\ 1287}# #f #{rest\ 1288}# #f) + (syntax-violation + 'lambda + "duplicate identifier in argument list" + #{orig-args\ 1281}#)))) + (#{req\ 1284}# + (lambda (#{args\ 1294}# #{rreq\ 1295}#) + (let ((#{tmp\ 1298}# #{args\ 1294}#)) + (let ((#{tmp\ 1299}# + ($sc-dispatch #{tmp\ 1298}# (quote ())))) + (if #{tmp\ 1299}# + (@apply + (lambda () + (#{check\ 1286}# (reverse #{rreq\ 1295}#) #f)) + #{tmp\ 1299}#) + (let ((#{tmp\ 1300}# + ($sc-dispatch + #{tmp\ 1298}# + '(any . any)))) + (if (if #{tmp\ 1300}# + (@apply + (lambda (#{a\ 1303}# #{b\ 1304}#) + (#{id?\ 387}# #{a\ 1303}#)) + #{tmp\ 1300}#) + #f) + (@apply + (lambda (#{a\ 1307}# #{b\ 1308}#) + (#{req\ 1284}# + #{b\ 1308}# + (cons #{a\ 1307}# #{rreq\ 1295}#))) + #{tmp\ 1300}#) + (let ((#{tmp\ 1309}# (list #{tmp\ 1298}#))) + (if (if #{tmp\ 1309}# + (@apply + (lambda (#{r\ 1311}#) + (#{id?\ 387}# #{r\ 1311}#)) + #{tmp\ 1309}#) + #f) + (@apply + (lambda (#{r\ 1313}#) + (#{check\ 1286}# + (reverse #{rreq\ 1295}#) + #{r\ 1313}#)) + #{tmp\ 1309}#) + (let ((#{else\ 1315}# #{tmp\ 1298}#)) + (syntax-violation + 'lambda + "invalid argument list" + #{orig-args\ 1281}# + #{args\ 1294}#)))))))))))) + (begin + (#{req\ 1284}# #{orig-args\ 1281}# (quote ())))))) + (#{ellipsis?\ 488}# + (lambda (#{x\ 1316}#) + (if (#{nonsymbol-id?\ 385}# #{x\ 1316}#) + (#{free-id=?\ 446}# + #{x\ 1316}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1317")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i38" "i37" "i36" "i34"))) + (hygiene guile))) + #f))) + (#{chi-void\ 486}# + (lambda () (#{build-void\ 307}# #f))) + (#{eval-local-transformer\ 484}# + (lambda (#{expanded\ 1321}# #{mod\ 1322}#) + (begin + (let ((#{p\ 1326}# + (#{local-eval-hook\ 298}# + #{expanded\ 1321}# + #{mod\ 1322}#))) + (if (procedure? #{p\ 1326}#) + #{p\ 1326}# + (syntax-violation + #f + "nonprocedure transformer" + #{p\ 1326}#)))))) + (#{chi-local-syntax\ 482}# + (lambda (#{rec?\ 1327}# + #{e\ 1328}# + #{r\ 1329}# + #{w\ 1330}# + #{s\ 1331}# + #{mod\ 1332}# + #{k\ 1333}#) + (let ((#{tmp\ 1341}# #{e\ 1328}#)) + (let ((#{tmp\ 1342}# + ($sc-dispatch + #{tmp\ 1341}# + '(any #(each (any any)) any . each-any)))) + (if #{tmp\ 1342}# + (@apply + (lambda (#{_\ 1348}# + #{id\ 1349}# + #{val\ 1350}# + #{e1\ 1351}# + #{e2\ 1352}#) + (begin + (let ((#{ids\ 1354}# #{id\ 1349}#)) + (if (not (#{valid-bound-ids?\ 450}# #{ids\ 1354}#)) + (syntax-violation + #f + "duplicate bound keyword" + #{e\ 1328}#) + (begin + (let ((#{labels\ 1357}# + (#{gen-labels\ 405}# #{ids\ 1354}#))) + (begin + (let ((#{new-w\ 1359}# + (#{make-binding-wrap\ 434}# + #{ids\ 1354}# + #{labels\ 1357}# + #{w\ 1330}#))) + (#{k\ 1333}# + (cons #{e1\ 1351}# #{e2\ 1352}#) + (#{extend-env\ 375}# + #{labels\ 1357}# + (begin + (let ((#{w\ 1363}# + (if #{rec?\ 1327}# + #{new-w\ 1359}# + #{w\ 1330}#)) + (#{trans-r\ 1364}# + (#{macros-only-env\ 379}# + #{r\ 1329}#))) + (map (lambda (#{x\ 1365}#) + (cons 'macro + (#{eval-local-transformer\ 484}# + (#{chi\ 472}# + #{x\ 1365}# + #{trans-r\ 1364}# + #{w\ 1363}# + #{mod\ 1332}#) + #{mod\ 1332}#))) + #{val\ 1350}#))) + #{r\ 1329}#) + #{new-w\ 1359}# + #{s\ 1331}# + #{mod\ 1332}#))))))))) + #{tmp\ 1342}#) + (let ((#{_\ 1370}# #{tmp\ 1341}#)) + (syntax-violation + #f + "bad local syntax definition" + (#{source-wrap\ 458}# + #{e\ 1328}# + #{w\ 1330}# + #{s\ 1331}# + #{mod\ 1332}#)))))))) + (#{chi-body\ 480}# + (lambda (#{body\ 1371}# + #{outer-form\ 1372}# + #{r\ 1373}# + #{w\ 1374}# + #{mod\ 1375}#) + (begin + (let ((#{r\ 1383}# + (cons '("placeholder" placeholder) + #{r\ 1373}#))) + (begin + (let ((#{ribcage\ 1385}# + (#{make-ribcage\ 408}# + '() + '() + '()))) + (begin + (let ((#{w\ 1388}# + (#{make-wrap\ 392}# + (#{wrap-marks\ 394}# #{w\ 1374}#) + (cons #{ribcage\ 1385}# + (#{wrap-subst\ 396}# #{w\ 1374}#))))) + (letrec* + ((#{parse\ 1397}# + (lambda (#{body\ 1398}# + #{ids\ 1399}# + #{labels\ 1400}# + #{var-ids\ 1401}# + #{vars\ 1402}# + #{vals\ 1403}# + #{bindings\ 1404}#) + (if (null? #{body\ 1398}#) + (syntax-violation + #f + "no expressions in body" + #{outer-form\ 1372}#) + (begin + (let ((#{e\ 1409}# + (cdr (car #{body\ 1398}#))) + (#{er\ 1410}# + (car (car #{body\ 1398}#)))) + (call-with-values + (lambda () + (#{syntax-type\ 468}# + #{e\ 1409}# + #{er\ 1410}# + '(()) + (#{source-annotation\ 366}# + #{er\ 1410}#) + #{ribcage\ 1385}# + #{mod\ 1375}# + #f)) + (lambda (#{type\ 1412}# + #{value\ 1413}# + #{e\ 1414}# + #{w\ 1415}# + #{s\ 1416}# + #{mod\ 1417}#) + (if (eqv? #{type\ 1412}# + 'define-form) + (begin + (let ((#{id\ 1427}# + (#{wrap\ 456}# + #{value\ 1413}# + #{w\ 1415}# + #{mod\ 1417}#)) + (#{label\ 1428}# + (#{gen-label\ 403}#))) + (begin + (let ((#{var\ 1430}# + (#{gen-var\ 500}# + #{id\ 1427}#))) + (begin + (#{extend-ribcage!\ 432}# + #{ribcage\ 1385}# + #{id\ 1427}# + #{label\ 1428}#) + (#{parse\ 1397}# + (cdr #{body\ 1398}#) + (cons #{id\ 1427}# + #{ids\ 1399}#) + (cons #{label\ 1428}# + #{labels\ 1400}#) + (cons #{id\ 1427}# + #{var-ids\ 1401}#) + (cons #{var\ 1430}# + #{vars\ 1402}#) + (cons (cons #{er\ 1410}# + (#{wrap\ 456}# + #{e\ 1414}# + #{w\ 1415}# + #{mod\ 1417}#)) + #{vals\ 1403}#) + (cons (cons 'lexical + #{var\ 1430}#) + #{bindings\ 1404}#))))))) + (if (eqv? #{type\ 1412}# + 'define-syntax-form) + (begin + (let ((#{id\ 1435}# + (#{wrap\ 456}# + #{value\ 1413}# + #{w\ 1415}# + #{mod\ 1417}#)) + (#{label\ 1436}# + (#{gen-label\ 403}#))) + (begin + (#{extend-ribcage!\ 432}# + #{ribcage\ 1385}# + #{id\ 1435}# + #{label\ 1436}#) + (#{parse\ 1397}# + (cdr #{body\ 1398}#) + (cons #{id\ 1435}# + #{ids\ 1399}#) + (cons #{label\ 1436}# + #{labels\ 1400}#) + #{var-ids\ 1401}# + #{vars\ 1402}# + #{vals\ 1403}# + (cons (cons 'macro + (cons #{er\ 1410}# + (#{wrap\ 456}# + #{e\ 1414}# + #{w\ 1415}# + #{mod\ 1417}#))) + #{bindings\ 1404}#))))) + (if (eqv? #{type\ 1412}# + 'begin-form) + (let ((#{tmp\ 1439}# + #{e\ 1414}#)) + (let ((#{tmp\ 1440}# + ($sc-dispatch + #{tmp\ 1439}# + '(any . + each-any)))) + (if #{tmp\ 1440}# + (@apply + (lambda (#{_\ 1443}# + #{e1\ 1444}#) + (#{parse\ 1397}# + (letrec* + ((#{f\ 1447}# + (lambda (#{forms\ 1448}#) + (if (null? #{forms\ 1448}#) + (cdr #{body\ 1398}#) + (cons (cons #{er\ 1410}# + (#{wrap\ 456}# + (car #{forms\ 1448}#) + #{w\ 1415}# + #{mod\ 1417}#)) + (#{f\ 1447}# + (cdr #{forms\ 1448}#))))))) + (begin + (#{f\ 1447}# + #{e1\ 1444}#))) + #{ids\ 1399}# + #{labels\ 1400}# + #{var-ids\ 1401}# + #{vars\ 1402}# + #{vals\ 1403}# + #{bindings\ 1404}#)) + #{tmp\ 1440}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1439}#)))) + (if (eqv? #{type\ 1412}# + 'local-syntax-form) + (#{chi-local-syntax\ 482}# + #{value\ 1413}# + #{e\ 1414}# + #{er\ 1410}# + #{w\ 1415}# + #{s\ 1416}# + #{mod\ 1417}# + (lambda (#{forms\ 1451}# + #{er\ 1452}# + #{w\ 1453}# + #{s\ 1454}# + #{mod\ 1455}#) + (#{parse\ 1397}# + (letrec* + ((#{f\ 1463}# + (lambda (#{forms\ 1464}#) + (if (null? #{forms\ 1464}#) + (cdr #{body\ 1398}#) + (cons (cons #{er\ 1452}# + (#{wrap\ 456}# + (car #{forms\ 1464}#) + #{w\ 1453}# + #{mod\ 1455}#)) + (#{f\ 1463}# + (cdr #{forms\ 1464}#))))))) + (begin + (#{f\ 1463}# + #{forms\ 1451}#))) + #{ids\ 1399}# + #{labels\ 1400}# + #{var-ids\ 1401}# + #{vars\ 1402}# + #{vals\ 1403}# + #{bindings\ 1404}#))) + (if (null? #{ids\ 1399}#) + (#{build-sequence\ 339}# + #f + (map (lambda (#{x\ 1467}#) + (#{chi\ 472}# + (cdr #{x\ 1467}#) + (car #{x\ 1467}#) + '(()) + #{mod\ 1417}#)) + (cons (cons #{er\ 1410}# + (#{source-wrap\ 458}# + #{e\ 1414}# + #{w\ 1415}# + #{s\ 1416}# + #{mod\ 1417}#)) + (cdr #{body\ 1398}#)))) + (begin + (if (not (#{valid-bound-ids?\ 450}# + #{ids\ 1399}#)) + (syntax-violation + #f + "invalid or duplicate identifier in definition" + #{outer-form\ 1372}#)) + (letrec* + ((#{loop\ 1474}# + (lambda (#{bs\ 1475}# + #{er-cache\ 1476}# + #{r-cache\ 1477}#) + (if (not (null? #{bs\ 1475}#)) + (begin + (let ((#{b\ 1480}# + (car #{bs\ 1475}#))) + (if (eq? (car #{b\ 1480}#) + 'macro) + (begin + (let ((#{er\ 1483}# + (car (cdr #{b\ 1480}#)))) + (begin + (let ((#{r-cache\ 1485}# + (if (eq? #{er\ 1483}# + #{er-cache\ 1476}#) + #{r-cache\ 1477}# + (#{macros-only-env\ 379}# + #{er\ 1483}#)))) + (begin + (set-cdr! + #{b\ 1480}# + (#{eval-local-transformer\ 484}# + (#{chi\ 472}# + (cdr (cdr #{b\ 1480}#)) + #{r-cache\ 1485}# + '(()) + #{mod\ 1417}#) + #{mod\ 1417}#)) + (#{loop\ 1474}# + (cdr #{bs\ 1475}#) + #{er\ 1483}# + #{r-cache\ 1485}#)))))) + (#{loop\ 1474}# + (cdr #{bs\ 1475}#) + #{er-cache\ 1476}# + #{r-cache\ 1477}#)))))))) + (begin + (#{loop\ 1474}# + #{bindings\ 1404}# + #f + #f))) + (set-cdr! + #{r\ 1383}# + (#{extend-env\ 375}# + #{labels\ 1400}# + #{bindings\ 1404}# + (cdr #{r\ 1383}#))) + (#{build-letrec\ 345}# + #f + #t + (map syntax->datum + #{var-ids\ 1401}#) + #{vars\ 1402}# + (map (lambda (#{x\ 1488}#) + (#{chi\ 472}# + (cdr #{x\ 1488}#) + (car #{x\ 1488}#) + '(()) + #{mod\ 1417}#)) + #{vals\ 1403}#) + (#{build-sequence\ 339}# + #f + (map (lambda (#{x\ 1492}#) + (#{chi\ 472}# + (cdr #{x\ 1492}#) + (car #{x\ 1492}#) + '(()) + #{mod\ 1417}#)) + (cons (cons #{er\ 1410}# + (#{source-wrap\ 458}# + #{e\ 1414}# + #{w\ 1415}# + #{s\ 1416}# + #{mod\ 1417}#)) + (cdr #{body\ 1398}#))))))))))))))))))) + (begin + (#{parse\ 1397}# + (map (lambda (#{x\ 1405}#) + (cons #{r\ 1383}# + (#{wrap\ 456}# + #{x\ 1405}# + #{w\ 1388}# + #{mod\ 1375}#))) + #{body\ 1371}#) + '() + '() + '() + '() + '() + '()))))))))))) + (#{chi-macro\ 478}# + (lambda (#{p\ 1495}# + #{e\ 1496}# + #{r\ 1497}# + #{w\ 1498}# + #{s\ 1499}# + #{rib\ 1500}# + #{mod\ 1501}#) + (letrec* + ((#{rebuild-macro-output\ 1510}# + (lambda (#{x\ 1511}# #{m\ 1512}#) + (if (pair? #{x\ 1511}#) + (#{decorate-source\ 305}# + (cons (#{rebuild-macro-output\ 1510}# + (car #{x\ 1511}#) + #{m\ 1512}#) + (#{rebuild-macro-output\ 1510}# + (cdr #{x\ 1511}#) + #{m\ 1512}#)) + #{s\ 1499}#) + (if (#{syntax-object?\ 351}# #{x\ 1511}#) + (begin + (let ((#{w\ 1520}# + (#{syntax-object-wrap\ 355}# #{x\ 1511}#))) + (begin + (let ((#{ms\ 1523}# + (#{wrap-marks\ 394}# #{w\ 1520}#)) + (#{s\ 1524}# + (#{wrap-subst\ 396}# #{w\ 1520}#))) + (if (if (pair? #{ms\ 1523}#) + (eq? (car #{ms\ 1523}#) #f) + #f) + (#{make-syntax-object\ 349}# + (#{syntax-object-expression\ 353}# + #{x\ 1511}#) + (#{make-wrap\ 392}# + (cdr #{ms\ 1523}#) + (if #{rib\ 1500}# + (cons #{rib\ 1500}# (cdr #{s\ 1524}#)) + (cdr #{s\ 1524}#))) + (#{syntax-object-module\ 357}# + #{x\ 1511}#)) + (#{make-syntax-object\ 349}# + (#{decorate-source\ 305}# + (#{syntax-object-expression\ 353}# + #{x\ 1511}#) + #{s\ 1524}#) + (#{make-wrap\ 392}# + (cons #{m\ 1512}# #{ms\ 1523}#) + (if #{rib\ 1500}# + (cons #{rib\ 1500}# + (cons (quote shift) #{s\ 1524}#)) + (cons (quote shift) #{s\ 1524}#))) + (#{syntax-object-module\ 357}# + #{x\ 1511}#))))))) + (if (vector? #{x\ 1511}#) + (begin + (let ((#{n\ 1532}# (vector-length #{x\ 1511}#))) + (begin + (let ((#{v\ 1534}# + (#{decorate-source\ 305}# + (make-vector #{n\ 1532}#) + #{x\ 1511}#))) + (letrec* + ((#{loop\ 1537}# + (lambda (#{i\ 1538}#) + (if (#{fx=\ 292}# + #{i\ 1538}# + #{n\ 1532}#) + (begin (if #f #f) #{v\ 1534}#) + (begin + (vector-set! + #{v\ 1534}# + #{i\ 1538}# + (#{rebuild-macro-output\ 1510}# + (vector-ref + #{x\ 1511}# + #{i\ 1538}#) + #{m\ 1512}#)) + (#{loop\ 1537}# + (#{fx+\ 288}# + #{i\ 1538}# + 1))))))) + (begin (#{loop\ 1537}# 0))))))) + (if (symbol? #{x\ 1511}#) + (syntax-violation + #f + "encountered raw symbol in macro output" + (#{source-wrap\ 458}# + #{e\ 1496}# + #{w\ 1498}# + (#{wrap-subst\ 396}# #{w\ 1498}#) + #{mod\ 1501}#) + #{x\ 1511}#) + (#{decorate-source\ 305}# + #{x\ 1511}# + #{s\ 1499}#)))))))) + (begin + (#{rebuild-macro-output\ 1510}# + (#{p\ 1495}# + (#{source-wrap\ 458}# + #{e\ 1496}# + (#{anti-mark\ 428}# #{w\ 1498}#) + #{s\ 1499}# + #{mod\ 1501}#)) + (gensym "m")))))) + (#{chi-application\ 476}# + (lambda (#{x\ 1545}# + #{e\ 1546}# + #{r\ 1547}# + #{w\ 1548}# + #{s\ 1549}# + #{mod\ 1550}#) + (let ((#{tmp\ 1557}# #{e\ 1546}#)) + (let ((#{tmp\ 1558}# + ($sc-dispatch + #{tmp\ 1557}# + '(any . each-any)))) + (if #{tmp\ 1558}# + (@apply + (lambda (#{e0\ 1561}# #{e1\ 1562}#) + (#{build-application\ 309}# + #{s\ 1549}# + #{x\ 1545}# + (map (lambda (#{e\ 1563}#) + (#{chi\ 472}# + #{e\ 1563}# + #{r\ 1547}# + #{w\ 1548}# + #{mod\ 1550}#)) + #{e1\ 1562}#))) + #{tmp\ 1558}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1557}#)))))) + (#{chi-expr\ 474}# + (lambda (#{type\ 1566}# + #{value\ 1567}# + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + (if (eqv? #{type\ 1566}# (quote lexical)) + (#{build-lexical-reference\ 315}# + 'value + #{s\ 1571}# + #{e\ 1568}# + #{value\ 1567}#) + (if (if (eqv? #{type\ 1566}# (quote core)) + #t + (eqv? #{type\ 1566}# (quote core-form))) + (#{value\ 1567}# + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + (if (eqv? #{type\ 1566}# (quote module-ref)) + (call-with-values + (lambda () + (#{value\ 1567}# + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}#)) + (lambda (#{e\ 1583}# + #{r\ 1584}# + #{w\ 1585}# + #{s\ 1586}# + #{mod\ 1587}#) + (#{chi\ 472}# + #{e\ 1583}# + #{r\ 1584}# + #{w\ 1585}# + #{mod\ 1587}#))) + (if (eqv? #{type\ 1566}# (quote lexical-call)) + (#{chi-application\ 476}# + (begin + (let ((#{id\ 1595}# (car #{e\ 1568}#))) + (#{build-lexical-reference\ 315}# + 'fun + (#{source-annotation\ 366}# #{id\ 1595}#) + (if (#{syntax-object?\ 351}# #{id\ 1595}#) + (syntax->datum #{id\ 1595}#) + #{id\ 1595}#) + #{value\ 1567}#))) + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + (if (eqv? #{type\ 1566}# (quote global-call)) + (#{chi-application\ 476}# + (#{build-global-reference\ 321}# + (#{source-annotation\ 366}# (car #{e\ 1568}#)) + (if (#{syntax-object?\ 351}# #{value\ 1567}#) + (#{syntax-object-expression\ 353}# + #{value\ 1567}#) + #{value\ 1567}#) + (if (#{syntax-object?\ 351}# #{value\ 1567}#) + (#{syntax-object-module\ 357}# #{value\ 1567}#) + #{mod\ 1572}#)) + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + (if (eqv? #{type\ 1566}# (quote constant)) + (#{build-data\ 337}# + #{s\ 1571}# + (#{strip\ 498}# + (#{source-wrap\ 458}# + #{e\ 1568}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + '(()))) + (if (eqv? #{type\ 1566}# (quote global)) + (#{build-global-reference\ 321}# + #{s\ 1571}# + #{value\ 1567}# + #{mod\ 1572}#) + (if (eqv? #{type\ 1566}# (quote call)) + (#{chi-application\ 476}# + (#{chi\ 472}# + (car #{e\ 1568}#) + #{r\ 1569}# + #{w\ 1570}# + #{mod\ 1572}#) + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + (if (eqv? #{type\ 1566}# (quote begin-form)) + (let ((#{tmp\ 1602}# #{e\ 1568}#)) + (let ((#{tmp\ 1603}# ($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 + #{tmp\ 1602}# + '(any any . each-any)))) + (if #{tmp\ 1603}# + (@apply + (lambda (#{_\ 1607}# + #{e1\ 1608}# + #{e2\ 1609}#) + (#{chi-sequence\ 460}# + (cons #{e1\ 1608}# #{e2\ 1609}#) + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#)) + #{tmp\ 1603}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1602}#)))) + (if (eqv? #{type\ 1566}# + 'local-syntax-form) + (#{chi-local-syntax\ 482}# + #{value\ 1567}# + #{e\ 1568}# + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}# + #{chi-sequence\ 460}#) + (if (eqv? #{type\ 1566}# + 'eval-when-form) + (let ((#{tmp\ 1613}# #{e\ 1568}#)) + (let ((#{tmp\ 1614}# + ($sc-dispatch + #{tmp\ 1613}# + '(any each-any + any + . + each-any)))) + (if #{tmp\ 1614}# + (@apply + (lambda (#{_\ 1619}# + #{x\ 1620}# + #{e1\ 1621}# + #{e2\ 1622}#) + (begin + (let ((#{when-list\ 1624}# + (#{chi-when-list\ 466}# + #{e\ 1568}# + #{x\ 1620}# + #{w\ 1570}#))) + (if (memq 'eval + #{when-list\ 1624}#) + (#{chi-sequence\ 460}# + (cons #{e1\ 1621}# + #{e2\ 1622}#) + #{r\ 1569}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#) + (#{chi-void\ 486}#))))) + #{tmp\ 1614}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1613}#)))) + (if (if (eqv? #{type\ 1566}# + 'define-form) + #t + (eqv? #{type\ 1566}# + 'define-syntax-form)) + (syntax-violation + #f + "definition in expression context" + #{e\ 1568}# + (#{wrap\ 456}# + #{value\ 1567}# + #{w\ 1570}# + #{mod\ 1572}#)) + (if (eqv? #{type\ 1566}# (quote syntax)) + (syntax-violation #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 + "reference to pattern variable outside syntax form" + (#{source-wrap\ 458}# + #{e\ 1568}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#)) + (if (eqv? #{type\ 1566}# + 'displaced-lexical) + (syntax-violation + #f + "reference to identifier outside its scope" + (#{source-wrap\ 458}# + #{e\ 1568}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#)) + (syntax-violation + #f + "unexpected syntax" + (#{source-wrap\ 458}# + #{e\ 1568}# + #{w\ 1570}# + #{s\ 1571}# + #{mod\ 1572}#)))))))))))))))))) + (#{chi\ 472}# + (lambda (#{e\ 1631}# + #{r\ 1632}# + #{w\ 1633}# + #{mod\ 1634}#) + (call-with-values + (lambda () + (#{syntax-type\ 468}# + #{e\ 1631}# + #{r\ 1632}# + #{w\ 1633}# + (#{source-annotation\ 366}# #{e\ 1631}#) #f - #{e\ 1783}# - #{w\ 1785}# - #{s\ 1786}# - #{mod\ 1788}#) - (values - 'other + #{mod\ 1634}# + #f)) + (lambda (#{type\ 1639}# + #{value\ 1640}# + #{e\ 1641}# + #{w\ 1642}# + #{s\ 1643}# + #{mod\ 1644}#) + (#{chi-expr\ 474}# + #{type\ 1639}# + #{value\ 1640}# + #{e\ 1641}# + #{r\ 1632}# + #{w\ 1642}# + #{s\ 1643}# + #{mod\ 1644}#))))) + (#{chi-top\ 470}# + (lambda (#{e\ 1651}# + #{r\ 1652}# + #{w\ 1653}# + #{m\ 1654}# + #{esew\ 1655}# + #{mod\ 1656}#) + (call-with-values + (lambda () + (#{syntax-type\ 468}# + #{e\ 1651}# + #{r\ 1652}# + #{w\ 1653}# + (#{source-annotation\ 366}# #{e\ 1651}#) #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}# + #{mod\ 1656}# + #f)) + (lambda (#{type\ 1677}# + #{value\ 1678}# + #{e\ 1679}# + #{w\ 1680}# + #{s\ 1681}# + #{mod\ 1682}#) + (if (eqv? #{type\ 1677}# (quote begin-form)) + (let ((#{tmp\ 1690}# #{e\ 1679}#)) + (let ((#{tmp\ 1691}# + ($sc-dispatch #{tmp\ 1690}# (quote (any))))) + (if #{tmp\ 1691}# + (@apply + (lambda (#{_\ 1693}#) (#{chi-void\ 486}#)) + #{tmp\ 1691}#) + (let ((#{tmp\ 1694}# + ($sc-dispatch + #{tmp\ 1690}# + '(any any . each-any)))) + (if #{tmp\ 1694}# + (@apply + (lambda (#{_\ 1698}# #{e1\ 1699}# #{e2\ 1700}#) + (#{chi-top-sequence\ 462}# + (cons #{e1\ 1699}# #{e2\ 1700}#) + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + #{m\ 1654}# + #{esew\ 1655}# + #{mod\ 1682}#)) + #{tmp\ 1694}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1690}#)))))) + (if (eqv? #{type\ 1677}# (quote local-syntax-form)) + (#{chi-local-syntax\ 482}# + #{value\ 1678}# + #{e\ 1679}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + #{mod\ 1682}# + (lambda (#{body\ 1703}# + #{r\ 1704}# + #{w\ 1705}# + #{s\ 1706}# + #{mod\ 1707}#) + (#{chi-top-sequence\ 462}# + #{body\ 1703}# + #{r\ 1704}# + #{w\ 1705}# + #{s\ 1706}# + #{m\ 1654}# + #{esew\ 1655}# + #{mod\ 1707}#))) + (if (eqv? #{type\ 1677}# (quote eval-when-form)) + (let ((#{tmp\ 1714}# #{e\ 1679}#)) + (let ((#{tmp\ 1715}# + ($sc-dispatch + #{tmp\ 1714}# + '(any each-any any . each-any)))) + (if #{tmp\ 1715}# + (@apply + (lambda (#{_\ 1720}# + #{x\ 1721}# + #{e1\ 1722}# + #{e2\ 1723}#) + (begin + (let ((#{when-list\ 1726}# + (#{chi-when-list\ 466}# + #{e\ 1679}# + #{x\ 1721}# + #{w\ 1680}#)) + (#{body\ 1727}# + (cons #{e1\ 1722}# #{e2\ 1723}#))) + (if (eq? #{m\ 1654}# (quote e)) + (if (memq 'eval + #{when-list\ 1726}#) + (#{chi-top-sequence\ 462}# + #{body\ 1727}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + (if (memq 'expand + #{when-list\ 1726}#) + 'c&e + 'e) + '(eval) + #{mod\ 1682}#) + (begin + (if (memq 'expand + #{when-list\ 1726}#) + (#{top-level-eval-hook\ 296}# + (#{chi-top-sequence\ 462}# + #{body\ 1727}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + 'e + '(eval) + #{mod\ 1682}#) + #{mod\ 1682}#)) + (#{chi-void\ 486}#))) + (if (memq 'load + #{when-list\ 1726}#) + (if (begin + (let ((#{t\ 1736}# + (memq 'compile + #{when-list\ 1726}#))) + (if #{t\ 1736}# + #{t\ 1736}# + (begin + (let ((#{t\ 1739}# + (memq 'expand + #{when-list\ 1726}#))) + (if #{t\ 1739}# + #{t\ 1739}# + (if (eq? #{m\ 1654}# + 'c&e) + (memq 'eval + #{when-list\ 1726}#) + #f))))))) + (#{chi-top-sequence\ 462}# + #{body\ 1727}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + 'c&e + '(compile load) + #{mod\ 1682}#) + (if (if (eq? #{m\ 1654}# (quote c)) + #t + (eq? #{m\ 1654}# (quote c&e))) + (#{chi-top-sequence\ 462}# + #{body\ 1727}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + 'c + '(load) + #{mod\ 1682}#) + (#{chi-void\ 486}#))) + (if (begin + (let ((#{t\ 1747}# + (memq 'compile + #{when-list\ 1726}#))) + (if #{t\ 1747}# + #{t\ 1747}# + (begin + (let ((#{t\ 1750}# + (memq 'expand + #{when-list\ 1726}#))) + (if #{t\ 1750}# + #{t\ 1750}# + (if (eq? #{m\ 1654}# + 'c&e) + (memq 'eval + #{when-list\ 1726}#) + #f))))))) + (begin + (#{top-level-eval-hook\ 296}# + (#{chi-top-sequence\ 462}# + #{body\ 1727}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + 'e + '(eval) + #{mod\ 1682}#) + #{mod\ 1682}#) + (#{chi-void\ 486}#)) + (#{chi-void\ 486}#))))))) + #{tmp\ 1715}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1714}#)))) + (if (eqv? #{type\ 1677}# (quote define-syntax-form)) + (begin + (let ((#{n\ 1758}# + (#{id-var-name\ 444}# + #{value\ 1678}# + #{w\ 1680}#)) + (#{r\ 1759}# + (#{macros-only-env\ 379}# #{r\ 1652}#))) + (if (eqv? #{m\ 1654}# (quote c)) + (if (memq (quote compile) #{esew\ 1655}#) + (begin + (let ((#{e\ 1762}# + (#{chi-install-global\ 464}# + #{n\ 1758}# + (#{chi\ 472}# + #{e\ 1679}# + #{r\ 1759}# + #{w\ 1680}# + #{mod\ 1682}#)))) + (begin + (#{top-level-eval-hook\ 296}# + #{e\ 1762}# + #{mod\ 1682}#) + (if (memq (quote load) #{esew\ 1655}#) + #{e\ 1762}# + (#{chi-void\ 486}#))))) + (if (memq (quote load) #{esew\ 1655}#) + (#{chi-install-global\ 464}# + #{n\ 1758}# + (#{chi\ 472}# + #{e\ 1679}# + #{r\ 1759}# + #{w\ 1680}# + #{mod\ 1682}#)) + (#{chi-void\ 486}#))) + (if (eqv? #{m\ 1654}# (quote c&e)) + (begin + (let ((#{e\ 1765}# + (#{chi-install-global\ 464}# + #{n\ 1758}# + (#{chi\ 472}# + #{e\ 1679}# + #{r\ 1759}# + #{w\ 1680}# + #{mod\ 1682}#)))) + (begin + (#{top-level-eval-hook\ 296}# + #{e\ 1765}# + #{mod\ 1682}#) + #{e\ 1765}#))) + (begin + (if (memq (quote eval) #{esew\ 1655}#) + (#{top-level-eval-hook\ 296}# + (#{chi-install-global\ 464}# + #{n\ 1758}# + (#{chi\ 472}# + #{e\ 1679}# + #{r\ 1759}# + #{w\ 1680}# + #{mod\ 1682}#)) + #{mod\ 1682}#)) + (#{chi-void\ 486}#)))))) + (if (eqv? #{type\ 1677}# (quote define-form)) + (begin + (let ((#{n\ 1770}# + (#{id-var-name\ 444}# + #{value\ 1678}# + #{w\ 1680}#))) + (begin + (let ((#{type\ 1772}# + (#{binding-type\ 370}# + (#{lookup\ 381}# + #{n\ 1770}# + #{r\ 1652}# + #{mod\ 1682}#)))) + (if (if (eqv? #{type\ 1772}# (quote global)) + #t + (if (eqv? #{type\ 1772}# (quote core)) + #t + (if (eqv? #{type\ 1772}# + 'macro) + #t + (eqv? #{type\ 1772}# + 'module-ref)))) + (begin + (if (if (if (eq? #{m\ 1654}# (quote c)) + #t + (eq? #{m\ 1654}# (quote c&e))) + (if (not (module-local-variable + (current-module) + #{n\ 1770}#)) + (current-module) + #f) + #f) + (begin + (let ((#{old\ 1778}# + (module-variable + (current-module) + #{n\ 1770}#))) + (module-define! + (current-module) + #{n\ 1770}# + (if (variable? #{old\ 1778}#) + (variable-ref #{old\ 1778}#) + #f))))) + (begin + (let ((#{x\ 1781}# + (#{build-global-definition\ 327}# + #{s\ 1681}# + #{n\ 1770}# + (#{chi\ 472}# + #{e\ 1679}# + #{r\ 1652}# + #{w\ 1680}# + #{mod\ 1682}#)))) + (begin + (if (eq? #{m\ 1654}# (quote c&e)) + (#{top-level-eval-hook\ 296}# + #{x\ 1781}# + #{mod\ 1682}#)) + #{x\ 1781}#)))) + (if (eqv? #{type\ 1772}# + 'displaced-lexical) + (syntax-violation + #f + "identifier out of context" + #{e\ 1679}# + (#{wrap\ 456}# + #{value\ 1678}# + #{w\ 1680}# + #{mod\ 1682}#)) + (syntax-violation + #f + "cannot define keyword at top level" + #{e\ 1679}# + (#{wrap\ 456}# + #{value\ 1678}# + #{w\ 1680}# + #{mod\ 1682}#)))))))) + (begin + (let ((#{x\ 1787}# + (#{chi-expr\ 474}# + #{type\ 1677}# + #{value\ 1678}# + #{e\ 1679}# + #{r\ 1652}# + #{w\ 1680}# + #{s\ 1681}# + #{mod\ 1682}#))) + (begin + (if (eq? #{m\ 1654}# (quote c&e)) + (#{top-level-eval-hook\ 296}# + #{x\ 1787}# + #{mod\ 1682}#)) + #{x\ 1787}#)))))))))))) + (#{syntax-type\ 468}# + (lambda (#{e\ 1788}# + #{r\ 1789}# + #{w\ 1790}# + #{s\ 1791}# + #{rib\ 1792}# + #{mod\ 1793}# + #{for-car?\ 1794}#) + (if (symbol? #{e\ 1788}#) + (begin + (let ((#{n\ 1806}# + (#{id-var-name\ 444}# #{e\ 1788}# #{w\ 1790}#))) + (begin + (let ((#{b\ 1808}# + (#{lookup\ 381}# + #{n\ 1806}# + #{r\ 1789}# + #{mod\ 1793}#))) + (begin + (let ((#{type\ 1810}# + (#{binding-type\ 370}# #{b\ 1808}#))) + (if (eqv? #{type\ 1810}# (quote lexical)) + (values + #{type\ 1810}# + (#{binding-value\ 372}# #{b\ 1808}#) + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{type\ 1810}# (quote global)) + (values + #{type\ 1810}# + #{n\ 1806}# + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{type\ 1810}# (quote macro)) + (if #{for-car?\ 1794}# + (values + #{type\ 1810}# + (#{binding-value\ 372}# #{b\ 1808}#) + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (#{syntax-type\ 468}# + (#{chi-macro\ 478}# + (#{binding-value\ 372}# #{b\ 1808}#) + #{e\ 1788}# + #{r\ 1789}# + #{w\ 1790}# + #{s\ 1791}# + #{rib\ 1792}# + #{mod\ 1793}#) + #{r\ 1789}# + '(()) + #{s\ 1791}# + #{rib\ 1792}# + #{mod\ 1793}# + #f)) + (values + #{type\ 1810}# + (#{binding-value\ 372}# #{b\ 1808}#) + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#)))))))))) + (if (pair? #{e\ 1788}#) + (begin + (let ((#{first\ 1819}# (car #{e\ 1788}#))) + (call-with-values + (lambda () + (#{syntax-type\ 468}# + #{first\ 1819}# + #{r\ 1789}# + #{w\ 1790}# + #{s\ 1791}# + #{rib\ 1792}# + #{mod\ 1793}# + #t)) + (lambda (#{ftype\ 1820}# + #{fval\ 1821}# + #{fe\ 1822}# + #{fw\ 1823}# + #{fs\ 1824}# + #{fmod\ 1825}#) + (if (eqv? #{ftype\ 1820}# (quote lexical)) + (values + 'lexical-call + #{fval\ 1821}# + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{ftype\ 1820}# (quote global)) + (values + 'global-call + (#{make-syntax-object\ 349}# + #{fval\ 1821}# + #{w\ 1790}# + #{fmod\ 1825}#) + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{ftype\ 1820}# (quote macro)) + (#{syntax-type\ 468}# + (#{chi-macro\ 478}# + #{fval\ 1821}# + #{e\ 1788}# + #{r\ 1789}# + #{w\ 1790}# + #{s\ 1791}# + #{rib\ 1792}# + #{mod\ 1793}#) + #{r\ 1789}# + '(()) + #{s\ 1791}# + #{rib\ 1792}# + #{mod\ 1793}# + #{for-car?\ 1794}#) + (if (eqv? #{ftype\ 1820}# (quote module-ref)) + (call-with-values + (lambda () + (#{fval\ 1821}# + #{e\ 1788}# + #{r\ 1789}# + #{w\ 1790}#)) + (lambda (#{e\ 1837}# + #{r\ 1838}# + #{w\ 1839}# + #{s\ 1840}# + #{mod\ 1841}#) + (#{syntax-type\ 468}# + #{e\ 1837}# + #{r\ 1838}# + #{w\ 1839}# + #{s\ 1840}# + #{rib\ 1792}# + #{mod\ 1841}# + #{for-car?\ 1794}#))) + (if (eqv? #{ftype\ 1820}# (quote core)) + (values + 'core-form + #{fval\ 1821}# + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{ftype\ 1820}# + 'local-syntax) + (values + 'local-syntax-form + #{fval\ 1821}# + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{ftype\ 1820}# (quote begin)) + (values + 'begin-form + #f + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{ftype\ 1820}# + 'eval-when) + (values + 'eval-when-form + #f + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (if (eqv? #{ftype\ 1820}# + 'define) + (let ((#{tmp\ 1852}# #{e\ 1788}#)) + (let ((#{tmp\ 1853}# + ($sc-dispatch + #{tmp\ 1852}# + '(any any any)))) + (if (if #{tmp\ 1853}# + (@apply + (lambda (#{_\ 1857}# + #{name\ 1858}# + #{val\ 1859}#) + (#{id?\ 387}# + #{name\ 1858}#)) + #{tmp\ 1853}#) + #f) + (@apply + (lambda (#{_\ 1863}# + #{name\ 1864}# + #{val\ 1865}#) + (values + 'define-form + #{name\ 1864}# + #{val\ 1865}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#)) + #{tmp\ 1853}#) + (let ((#{tmp\ 1866}# + ($sc-dispatch + #{tmp\ 1852}# + '(any (any . any) + any + . + each-any)))) + (if (if #{tmp\ 1866}# + (@apply + (lambda (#{_\ 1872}# + #{name\ 1873}# + #{args\ 1874}# + #{e1\ 1875}# + #{e2\ 1876}#) + (if (#{id?\ 387}# + #{name\ 1873}#) + (#{valid-bound-ids?\ 450}# + (#{lambda-var-list\ 502}# + #{args\ 1874}#)) + #f)) + #{tmp\ 1866}#) + #f) + (@apply + (lambda (#{_\ 1884}# + #{name\ 1885}# + #{args\ 1886}# + #{e1\ 1887}# + #{e2\ 1888}#) + (values + 'define-form + (#{wrap\ 456}# + #{name\ 1885}# + #{w\ 1790}# + #{mod\ 1793}#) + (#{decorate-source\ 305}# + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ + name + args + e1 + e2) + #((top) + (top) + (top) + (top) + (top)) + #("i1879" + "i1880" + "i1881" + "i1882" + "i1883")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1826" + "i1827" + "i1828" + "i1829" + "i1830" + "i1831")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1818")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1795" + "i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene + guile)) + (#{wrap\ 456}# + (cons #{args\ 1886}# + (cons #{e1\ 1887}# + #{e2\ 1888}#)) + #{w\ 1790}# + #{mod\ 1793}#)) + #{s\ 1791}#) + '(()) + #{s\ 1791}# + #{mod\ 1793}#)) + #{tmp\ 1866}#) + (let ((#{tmp\ 1891}# + ($sc-dispatch + #{tmp\ 1852}# + '(any any)))) + (if (if #{tmp\ 1891}# + (@apply + (lambda (#{_\ 1894}# + #{name\ 1895}#) + (#{id?\ 387}# + #{name\ 1895}#)) + #{tmp\ 1891}#) + #f) + (@apply + (lambda (#{_\ 1898}# + #{name\ 1899}#) + (values + 'define-form + (#{wrap\ 456}# + #{name\ 1899}# + #{w\ 1790}# + #{mod\ 1793}#) + '(#(syntax-object + if + ((top) + #(ribcage + #(_ name) + #((top) + (top)) + #("i1896" + "i1897")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1826" + "i1827" + "i1828" + "i1829" + "i1830" + "i1831")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1818")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1795" + "i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene + guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(_ name) + #((top) + (top)) + #("i1896" + "i1897")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1826" + "i1827" + "i1828" + "i1829" + "i1830" + "i1831")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1818")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1795" + "i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene + guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(_ name) + #((top) + (top)) + #("i1896" + "i1897")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1826" + "i1827" + "i1828" + "i1829" + "i1830" + "i1831")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1818")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1795" + "i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) + (top) + (top) + (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene + guile))) + '(()) + #{s\ 1791}# + #{mod\ 1793}#)) + #{tmp\ 1891}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1852}#)))))))) + (if (eqv? #{ftype\ 1820}# + 'define-syntax) + (let ((#{tmp\ 1902}# #{e\ 1788}#)) + (let ((#{tmp\ 1903}# + ($sc-dispatch + #{tmp\ 1902}# + '(any any any)))) + (if (if #{tmp\ 1903}# + (@apply + (lambda (#{_\ 1907}# + #{name\ 1908}# + #{val\ 1909}#) + (#{id?\ 387}# + #{name\ 1908}#)) + #{tmp\ 1903}#) + #f) + (@apply + (lambda (#{_\ 1913}# + #{name\ 1914}# + #{val\ 1915}#) + (values + 'define-syntax-form + #{name\ 1914}# + #{val\ 1915}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#)) + #{tmp\ 1903}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1902}#)))) + (values + 'call + #f + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#))))))))))))))) + (if (#{syntax-object?\ 351}# #{e\ 1788}#) + (#{syntax-type\ 468}# + (#{syntax-object-expression\ 353}# #{e\ 1788}#) + #{r\ 1789}# + (#{join-wraps\ 438}# + #{w\ 1790}# + (#{syntax-object-wrap\ 355}# #{e\ 1788}#)) + (begin + (let ((#{t\ 1921}# + (#{source-annotation\ 366}# #{e\ 1788}#))) + (if #{t\ 1921}# #{t\ 1921}# #{s\ 1791}#))) + #{rib\ 1792}# + (begin + (let ((#{t\ 1925}# + (#{syntax-object-module\ 357}# #{e\ 1788}#))) + (if #{t\ 1925}# #{t\ 1925}# #{mod\ 1793}#))) + #{for-car?\ 1794}#) + (if (self-evaluating? #{e\ 1788}#) + (values + 'constant + #f + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#) + (values + 'other + #f + #{e\ 1788}# + #{w\ 1790}# + #{s\ 1791}# + #{mod\ 1793}#))))))) + (#{chi-when-list\ 466}# + (lambda (#{e\ 1930}# #{when-list\ 1931}# #{w\ 1932}#) + (letrec* + ((#{f\ 1939}# + (lambda (#{when-list\ 1940}# #{situations\ 1941}#) + (if (null? #{when-list\ 1940}#) + #{situations\ 1941}# + (#{f\ 1939}# + (cdr #{when-list\ 1940}#) + (cons (begin + (let ((#{x\ 1943}# (car #{when-list\ 1940}#))) + (if (#{free-id=?\ 446}# + #{x\ 1943}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1937")) + #(ribcage #(x) #((top)) #("i1942")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1931" "i1932" "i1933")) + #("i1936" "i1937" "i1938")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1928" "i1929" "i1930")) + #("i1933" "i1934" "i1935")) #(ribcage (lambda-var-list gen-var @@ -6175,154 +6353,154 @@ (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" + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" "i430" - "i428" + "i429" + "i427" "i426" "i425" "i424" - "i422" + "i423" "i421" - "i420" "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" "i404" "i402" + "i401" + "i400" "i399" + "i398" "i397" - "i396" "i395" - "i394" "i393" - "i392" - "i390" + "i391" + "i389" "i388" "i386" "i384" - "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" "i368" - "i366" + "i367" + "i365" "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" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" "i299" "i297" "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" "i278" "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i33" "i32" "i31" "i29"))) + ("i38" "i37" "i36" "i34"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 441}# - #{x\ 1938}# + (if (#{free-id=?\ 446}# + #{x\ 1943}# '#(syntax-object load ((top) @@ -6332,17 +6510,17 @@ #(ribcage #(x) #((top)) - #("i1937")) + #("i1942")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1931" "i1932" "i1933")) + #("i1936" "i1937" "i1938")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1928" "i1929" "i1930")) + #("i1933" "i1934" "i1935")) #(ribcage (lambda-var-list gen-var @@ -6618,154 +6796,154 @@ (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" + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" "i430" - "i428" + "i429" + "i427" "i426" "i425" "i424" - "i422" + "i423" "i421" - "i420" "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" "i404" "i402" + "i401" + "i400" "i399" + "i398" "i397" - "i396" "i395" - "i394" "i393" - "i392" - "i390" + "i391" + "i389" "i388" "i386" "i384" - "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" "i368" - "i366" + "i367" + "i365" "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" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" "i299" "i297" "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" "i278" "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i33" "i32" "i31" "i29"))) + ("i38" "i37" "i36" "i34"))) (hygiene guile))) 'load - (if (#{free-id=?\ 441}# - #{x\ 1938}# + (if (#{free-id=?\ 446}# + #{x\ 1943}# '#(syntax-object eval ((top) @@ -6775,17 +6953,17 @@ #(ribcage #(x) #((top)) - #("i1937")) + #("i1942")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1931" "i1932" "i1933")) + #("i1936" "i1937" "i1938")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1928" "i1929" "i1930")) + #("i1933" "i1934" "i1935")) #(ribcage (lambda-var-list gen-var @@ -7061,154 +7239,154 @@ (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" + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" "i430" - "i428" + "i429" + "i427" "i426" "i425" "i424" - "i422" + "i423" "i421" - "i420" "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" "i404" "i402" + "i401" + "i400" "i399" + "i398" "i397" - "i396" "i395" - "i394" "i393" - "i392" - "i390" + "i391" + "i389" "i388" "i386" "i384" - "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" "i368" - "i366" + "i367" + "i365" "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" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" "i299" "i297" "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" "i278" "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i33" "i32" "i31" "i29"))) + ("i38" "i37" "i36" "i34"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 441}# - #{x\ 1938}# + (if (#{free-id=?\ 446}# + #{x\ 1943}# '#(syntax-object expand ((top) @@ -7218,17 +7396,17 @@ #(ribcage #(x) #((top)) - #("i1937")) + #("i1942")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1931" "i1932" "i1933")) + #("i1936" "i1937" "i1938")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1928" "i1929" "i1930")) + #("i1933" "i1934" "i1935")) #(ribcage (lambda-var-list gen-var @@ -7504,6226 +7682,6221 @@ (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" + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" "i430" - "i428" + "i429" + "i427" "i426" "i425" "i424" - "i422" + "i423" "i421" - "i420" "i419" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" "i404" "i402" + "i401" + "i400" "i399" + "i398" "i397" - "i396" "i395" - "i394" "i393" - "i392" - "i390" + "i391" + "i389" "i388" "i386" "i384" - "i383" - "i381" - "i379" - "i377" - "i375" + "i382" + "i380" + "i378" + "i376" + "i374" "i373" "i371" "i369" "i368" - "i366" + "i367" + "i365" "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" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" "i299" "i297" "i295" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" "i278" "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i33" "i32" "i31" "i29"))) + ("i38" "i37" "i36" "i34"))) (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}# + #{e\ 1930}# + (#{wrap\ 456}# + #{x\ 1943}# + #{w\ 1932}# + #f)))))))) + #{situations\ 1941}#)))))) + (begin + (#{f\ 1939}# #{when-list\ 1931}# (quote ())))))) + (#{chi-install-global\ 464}# + (lambda (#{name\ 1953}# #{e\ 1954}#) + (#{build-global-definition\ 327}# #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}# - #{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}#) + #{name\ 1953}# + (#{build-application\ 309}# + #f + (#{build-primref\ 335}# + #f + 'make-syntax-transformer) + (list (#{build-data\ 337}# #f #{name\ 1953}#) + (#{build-data\ 337}# #f (quote macro)) + #{e\ 1954}#))))) + (#{chi-top-sequence\ 462}# + (lambda (#{body\ 1962}# + #{r\ 1963}# + #{w\ 1964}# + #{s\ 1965}# + #{m\ 1966}# + #{esew\ 1967}# + #{mod\ 1968}#) + (#{build-sequence\ 339}# + #{s\ 1965}# + (letrec* + ((#{dobody\ 1984}# + (lambda (#{body\ 1985}# + #{r\ 1986}# + #{w\ 1987}# + #{m\ 1988}# + #{esew\ 1989}# + #{mod\ 1990}# + #{out\ 1991}#) + (if (null? #{body\ 1985}#) + (reverse #{out\ 1991}#) + (#{dobody\ 1984}# + (cdr #{body\ 1985}#) + #{r\ 1986}# + #{w\ 1987}# + #{m\ 1988}# + #{esew\ 1989}# + #{mod\ 1990}# + (cons (#{chi-top\ 470}# + (car #{body\ 1985}#) + #{r\ 1986}# + #{w\ 1987}# + #{m\ 1988}# + #{esew\ 1989}# + #{mod\ 1990}#) + #{out\ 1991}#)))))) + (begin + (#{dobody\ 1984}# + #{body\ 1962}# + #{r\ 1963}# + #{w\ 1964}# + #{m\ 1966}# + #{esew\ 1967}# + #{mod\ 1968}# + '())))))) + (#{chi-sequence\ 460}# + (lambda (#{body\ 1992}# + #{r\ 1993}# + #{w\ 1994}# + #{s\ 1995}# + #{mod\ 1996}#) + (#{build-sequence\ 339}# + #{s\ 1995}# + (letrec* + ((#{dobody\ 2007}# + (lambda (#{body\ 2008}# + #{r\ 2009}# + #{w\ 2010}# + #{mod\ 2011}#) + (if (null? #{body\ 2008}#) + '() + (begin + (let ((#{first\ 2013}# + (#{chi\ 472}# + (car #{body\ 2008}#) + #{r\ 2009}# + #{w\ 2010}# + #{mod\ 2011}#))) + (cons #{first\ 2013}# + (#{dobody\ 2007}# + (cdr #{body\ 2008}#) + #{r\ 2009}# + #{w\ 2010}# + #{mod\ 2011}#)))))))) + (begin + (#{dobody\ 2007}# + #{body\ 1992}# + #{r\ 1993}# + #{w\ 1994}# + #{mod\ 1996}#)))))) + (#{source-wrap\ 458}# + (lambda (#{x\ 2014}# + #{w\ 2015}# + #{s\ 2016}# + #{defmod\ 2017}#) + (#{wrap\ 456}# + (#{decorate-source\ 305}# + #{x\ 2014}# + #{s\ 2016}#) + #{w\ 2015}# + #{defmod\ 2017}#))) + (#{wrap\ 456}# + (lambda (#{x\ 2022}# #{w\ 2023}# #{defmod\ 2024}#) + (if (if (null? (#{wrap-marks\ 394}# #{w\ 2023}#)) + (null? (#{wrap-subst\ 396}# #{w\ 2023}#)) + #f) + #{x\ 2022}# + (if (#{syntax-object?\ 351}# #{x\ 2022}#) + (#{make-syntax-object\ 349}# + (#{syntax-object-expression\ 353}# #{x\ 2022}#) + (#{join-wraps\ 438}# + #{w\ 2023}# + (#{syntax-object-wrap\ 355}# #{x\ 2022}#)) + (#{syntax-object-module\ 357}# #{x\ 2022}#)) + (if (null? #{x\ 2022}#) + #{x\ 2022}# + (#{make-syntax-object\ 349}# + #{x\ 2022}# + #{w\ 2023}# + #{defmod\ 2024}#)))))) + (#{bound-id-member?\ 454}# + (lambda (#{x\ 2037}# #{list\ 2038}#) + (if (not (null? #{list\ 2038}#)) + (begin + (let ((#{t\ 2045}# + (#{bound-id=?\ 448}# + #{x\ 2037}# + (car #{list\ 2038}#)))) + (if #{t\ 2045}# + #{t\ 2045}# + (#{bound-id-member?\ 454}# + #{x\ 2037}# + (cdr #{list\ 2038}#))))) + #f))) + (#{distinct-bound-ids?\ 452}# + (lambda (#{ids\ 2047}#) + (letrec* + ((#{distinct?\ 2051}# + (lambda (#{ids\ 2052}#) + (begin + (let ((#{t\ 2055}# (null? #{ids\ 2052}#))) + (if #{t\ 2055}# + #{t\ 2055}# + (if (not (#{bound-id-member?\ 454}# + (car #{ids\ 2052}#) + (cdr #{ids\ 2052}#))) + (#{distinct?\ 2051}# (cdr #{ids\ 2052}#)) + #f))))))) + (begin (#{distinct?\ 2051}# #{ids\ 2047}#))))) + (#{valid-bound-ids?\ 450}# + (lambda (#{ids\ 2059}#) + (if (letrec* + ((#{all-ids?\ 2064}# + (lambda (#{ids\ 2065}#) + (begin + (let ((#{t\ 2068}# (null? #{ids\ 2065}#))) + (if #{t\ 2068}# + #{t\ 2068}# + (if (#{id?\ 387}# (car #{ids\ 2065}#)) + (#{all-ids?\ 2064}# (cdr #{ids\ 2065}#)) + #f))))))) + (begin (#{all-ids?\ 2064}# #{ids\ 2059}#))) + (#{distinct-bound-ids?\ 452}# #{ids\ 2059}#) + #f))) + (#{bound-id=?\ 448}# + (lambda (#{i\ 2073}# #{j\ 2074}#) + (if (if (#{syntax-object?\ 351}# #{i\ 2073}#) + (#{syntax-object?\ 351}# #{j\ 2074}#) + #f) + (if (eq? (#{syntax-object-expression\ 353}# #{i\ 2073}#) + (#{syntax-object-expression\ 353}# #{j\ 2074}#)) + (#{same-marks?\ 442}# + (#{wrap-marks\ 394}# + (#{syntax-object-wrap\ 355}# #{i\ 2073}#)) + (#{wrap-marks\ 394}# + (#{syntax-object-wrap\ 355}# #{j\ 2074}#))) + #f) + (eq? #{i\ 2073}# #{j\ 2074}#)))) + (#{free-id=?\ 446}# + (lambda (#{i\ 2081}# #{j\ 2082}#) + (if (eq? (begin + (let ((#{x\ 2088}# #{i\ 2081}#)) + (if (#{syntax-object?\ 351}# #{x\ 2088}#) + (#{syntax-object-expression\ 353}# #{x\ 2088}#) + #{x\ 2088}#))) + (begin + (let ((#{x\ 2091}# #{j\ 2082}#)) + (if (#{syntax-object?\ 351}# #{x\ 2091}#) + (#{syntax-object-expression\ 353}# #{x\ 2091}#) + #{x\ 2091}#)))) + (eq? (#{id-var-name\ 444}# #{i\ 2081}# (quote (()))) + (#{id-var-name\ 444}# #{j\ 2082}# (quote (())))) + #f))) + (#{id-var-name\ 444}# + (lambda (#{id\ 2095}# #{w\ 2096}#) + (letrec* + ((#{search-vector-rib\ 2105}# + (lambda (#{sym\ 2117}# + #{subst\ 2118}# + #{marks\ 2119}# + #{symnames\ 2120}# + #{ribcage\ 2121}#) + (begin + (let ((#{n\ 2128}# (vector-length #{symnames\ 2120}#))) + (letrec* + ((#{f\ 2131}# + (lambda (#{i\ 2132}#) + (if (#{fx=\ 292}# #{i\ 2132}# #{n\ 2128}#) + (#{search\ 2101}# + #{sym\ 2117}# + (cdr #{subst\ 2118}#) + #{marks\ 2119}#) (if (if (eq? (vector-ref - #{symnames\ 2115}# - #{i\ 2127}#) - #{sym\ 2112}#) - (#{same-marks?\ 437}# - #{marks\ 2114}# + #{symnames\ 2120}# + #{i\ 2132}#) + #{sym\ 2117}#) + (#{same-marks?\ 442}# + #{marks\ 2119}# (vector-ref - (#{ribcage-marks\ 409}# - #{ribcage\ 2116}#) - #{i\ 2127}#)) + (#{ribcage-marks\ 414}# + #{ribcage\ 2121}#) + #{i\ 2132}#)) #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}#))) + (#{ribcage-labels\ 416}# + #{ribcage\ 2121}#) + #{i\ 2132}#) + #{marks\ 2119}#) + (#{f\ 2131}# + (#{fx+\ 288}# #{i\ 2132}# 1))))))) + (begin (#{f\ 2131}# 0))))))) + (#{search-list-rib\ 2103}# + (lambda (#{sym\ 2140}# + #{subst\ 2141}# + #{marks\ 2142}# + #{symnames\ 2143}# + #{ribcage\ 2144}#) + (letrec* + ((#{f\ 2153}# + (lambda (#{symnames\ 2154}# #{i\ 2155}#) + (if (null? #{symnames\ 2154}#) + (#{search\ 2101}# + #{sym\ 2140}# + (cdr #{subst\ 2141}#) + #{marks\ 2142}#) + (if (if (eq? (car #{symnames\ 2154}#) + #{sym\ 2140}#) + (#{same-marks?\ 442}# + #{marks\ 2142}# + (list-ref + (#{ribcage-marks\ 414}# + #{ribcage\ 2144}#) + #{i\ 2155}#)) + #f) + (values + (list-ref + (#{ribcage-labels\ 416}# #{ribcage\ 2144}#) + #{i\ 2155}#) + #{marks\ 2142}#) + (#{f\ 2153}# + (cdr #{symnames\ 2154}#) + (#{fx+\ 288}# #{i\ 2155}# 1))))))) + (begin (#{f\ 2153}# #{symnames\ 2143}# 0))))) + (#{search\ 2101}# + (lambda (#{sym\ 2163}# #{subst\ 2164}# #{marks\ 2165}#) + (if (null? #{subst\ 2164}#) + (values #f #{marks\ 2165}#) + (begin + (let ((#{fst\ 2170}# (car #{subst\ 2164}#))) + (if (eq? #{fst\ 2170}# (quote shift)) + (#{search\ 2101}# + #{sym\ 2163}# + (cdr #{subst\ 2164}#) + (cdr #{marks\ 2165}#)) + (begin + (let ((#{symnames\ 2172}# + (#{ribcage-symnames\ 412}# + #{fst\ 2170}#))) + (if (vector? #{symnames\ 2172}#) + (#{search-vector-rib\ 2105}# + #{sym\ 2163}# + #{subst\ 2164}# + #{marks\ 2165}# + #{symnames\ 2172}# + #{fst\ 2170}#) + (#{search-list-rib\ 2103}# + #{sym\ 2163}# + #{subst\ 2164}# + #{marks\ 2165}# + #{symnames\ 2172}# + #{fst\ 2170}#))))))))))) + (begin + (if (symbol? #{id\ 2095}#) + (begin + (let ((#{t\ 2175}# + (call-with-values + (lambda () + (#{search\ 2101}# + #{id\ 2095}# + (#{wrap-subst\ 396}# #{w\ 2096}#) + (#{wrap-marks\ 394}# #{w\ 2096}#))) + (lambda (#{x\ 2177}# . #{ignore\ 2178}#) + #{x\ 2177}#)))) + (if #{t\ 2175}# #{t\ 2175}# #{id\ 2095}#))) + (if (#{syntax-object?\ 351}# #{id\ 2095}#) + (begin + (let ((#{id\ 2186}# + (#{syntax-object-expression\ 353}# + #{id\ 2095}#)) + (#{w1\ 2187}# + (#{syntax-object-wrap\ 355}# #{id\ 2095}#))) (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}#) - (#{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}# - (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}# - (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}# - (#{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}#))) + (let ((#{marks\ 2189}# + (#{join-marks\ 440}# + (#{wrap-marks\ 394}# #{w\ 2096}#) + (#{wrap-marks\ 394}# #{w1\ 2187}#)))) + (call-with-values + (lambda () + (#{search\ 2101}# + #{id\ 2186}# + (#{wrap-subst\ 396}# #{w\ 2096}#) + #{marks\ 2189}#)) + (lambda (#{new-id\ 2190}# #{marks\ 2191}#) + (begin + (let ((#{t\ 2196}# #{new-id\ 2190}#)) + (if #{t\ 2196}# + #{t\ 2196}# + (begin + (let ((#{t\ 2199}# + (call-with-values + (lambda () + (#{search\ 2101}# + #{id\ 2186}# + (#{wrap-subst\ 396}# + #{w1\ 2187}#) + #{marks\ 2191}#)) + (lambda (#{x\ 2201}# + . + #{ignore\ 2202}#) + #{x\ 2201}#)))) + (if #{t\ 2199}# + #{t\ 2199}# + #{id\ 2186}#)))))))))))) + (syntax-violation + 'id-var-name + "invalid id" + #{id\ 2095}#))))))) + (#{same-marks?\ 442}# + (lambda (#{x\ 2207}# #{y\ 2208}#) (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}# + (let ((#{t\ 2213}# (eq? #{x\ 2207}# #{y\ 2208}#))) + (if #{t\ 2213}# + #{t\ 2213}# + (if (not (null? #{x\ 2207}#)) + (if (not (null? #{y\ 2208}#)) + (if (eq? (car #{x\ 2207}#) (car #{y\ 2208}#)) + (#{same-marks?\ 442}# + (cdr #{x\ 2207}#) + (cdr #{y\ 2208}#)) #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)))))) + (#{join-marks\ 440}# + (lambda (#{m1\ 2219}# #{m2\ 2220}#) + (#{smart-append\ 436}# #{m1\ 2219}# #{m2\ 2220}#))) + (#{join-wraps\ 438}# + (lambda (#{w1\ 2223}# #{w2\ 2224}#) + (begin + (let ((#{m1\ 2229}# (#{wrap-marks\ 394}# #{w1\ 2223}#)) + (#{s1\ 2230}# (#{wrap-subst\ 396}# #{w1\ 2223}#))) + (if (null? #{m1\ 2229}#) + (if (null? #{s1\ 2230}#) + #{w2\ 2224}# + (#{make-wrap\ 392}# + (#{wrap-marks\ 394}# #{w2\ 2224}#) + (#{smart-append\ 436}# + #{s1\ 2230}# + (#{wrap-subst\ 396}# #{w2\ 2224}#)))) + (#{make-wrap\ 392}# + (#{smart-append\ 436}# + #{m1\ 2229}# + (#{wrap-marks\ 394}# #{w2\ 2224}#)) + (#{smart-append\ 436}# + #{s1\ 2230}# + (#{wrap-subst\ 396}# #{w2\ 2224}#)))))))) + (#{smart-append\ 436}# + (lambda (#{m1\ 2231}# #{m2\ 2232}#) + (if (null? #{m2\ 2232}#) + #{m1\ 2231}# + (append #{m1\ 2231}# #{m2\ 2232}#)))) + (#{make-binding-wrap\ 434}# + (lambda (#{ids\ 2235}# #{labels\ 2236}# #{w\ 2237}#) + (if (null? #{ids\ 2235}#) + #{w\ 2237}# + (#{make-wrap\ 392}# + (#{wrap-marks\ 394}# #{w\ 2237}#) + (cons (begin + (let ((#{labelvec\ 2242}# + (list->vector #{labels\ 2236}#))) + (begin + (let ((#{n\ 2244}# + (vector-length #{labelvec\ 2242}#))) + (begin + (let ((#{symnamevec\ 2247}# + (make-vector #{n\ 2244}#)) + (#{marksvec\ 2248}# + (make-vector #{n\ 2244}#))) + (begin + (letrec* + ((#{f\ 2252}# + (lambda (#{ids\ 2253}# #{i\ 2254}#) + (if (not (null? #{ids\ 2253}#)) + (call-with-values + (lambda () + (#{id-sym-name&marks\ 390}# + (car #{ids\ 2253}#) + #{w\ 2237}#)) + (lambda (#{symname\ 2255}# + #{marks\ 2256}#) + (begin + (vector-set! + #{symnamevec\ 2247}# + #{i\ 2254}# + #{symname\ 2255}#) + (vector-set! + #{marksvec\ 2248}# + #{i\ 2254}# + #{marks\ 2256}#) + (#{f\ 2252}# + (cdr #{ids\ 2253}#) + (#{fx+\ 288}# + #{i\ 2254}# + 1))))))))) + (begin (#{f\ 2252}# #{ids\ 2235}# 0))) + (#{make-ribcage\ 408}# + #{symnamevec\ 2247}# + #{marksvec\ 2248}# + #{labelvec\ 2242}#)))))))) + (#{wrap-subst\ 396}# #{w\ 2237}#)))))) + (#{extend-ribcage!\ 432}# + (lambda (#{ribcage\ 2259}# #{id\ 2260}# #{label\ 2261}#) + (begin + (#{set-ribcage-symnames!\ 418}# + #{ribcage\ 2259}# + (cons (#{syntax-object-expression\ 353}# #{id\ 2260}#) + (#{ribcage-symnames\ 412}# #{ribcage\ 2259}#))) + (#{set-ribcage-marks!\ 420}# + #{ribcage\ 2259}# + (cons (#{wrap-marks\ 394}# + (#{syntax-object-wrap\ 355}# #{id\ 2260}#)) + (#{ribcage-marks\ 414}# #{ribcage\ 2259}#))) + (#{set-ribcage-labels!\ 422}# + #{ribcage\ 2259}# + (cons #{label\ 2261}# + (#{ribcage-labels\ 416}# #{ribcage\ 2259}#)))))) + (#{anti-mark\ 428}# + (lambda (#{w\ 2265}#) + (#{make-wrap\ 392}# + (cons #f (#{wrap-marks\ 394}# #{w\ 2265}#)) + (cons 'shift + (#{wrap-subst\ 396}# #{w\ 2265}#))))) + (#{set-ribcage-labels!\ 422}# + (lambda (#{x\ 2268}# #{update\ 2269}#) + (vector-set! #{x\ 2268}# 3 #{update\ 2269}#))) + (#{set-ribcage-marks!\ 420}# + (lambda (#{x\ 2272}# #{update\ 2273}#) + (vector-set! #{x\ 2272}# 2 #{update\ 2273}#))) + (#{set-ribcage-symnames!\ 418}# + (lambda (#{x\ 2276}# #{update\ 2277}#) + (vector-set! #{x\ 2276}# 1 #{update\ 2277}#))) + (#{ribcage-labels\ 416}# + (lambda (#{x\ 2280}#) (vector-ref #{x\ 2280}# 3))) + (#{ribcage-marks\ 414}# + (lambda (#{x\ 2282}#) (vector-ref #{x\ 2282}# 2))) + (#{ribcage-symnames\ 412}# + (lambda (#{x\ 2284}#) (vector-ref #{x\ 2284}# 1))) + (#{make-ribcage\ 408}# + (lambda (#{symnames\ 2291}# + #{marks\ 2292}# + #{labels\ 2293}#) + (vector + 'ribcage + #{symnames\ 2291}# + #{marks\ 2292}# + #{labels\ 2293}#))) + (#{gen-labels\ 405}# + (lambda (#{ls\ 2297}#) + (if (null? #{ls\ 2297}#) + '() + (cons (#{gen-label\ 403}#) + (#{gen-labels\ 405}# (cdr #{ls\ 2297}#)))))) + (#{gen-label\ 403}# + (lambda () (symbol->string (gensym "i")))) + (#{id-sym-name&marks\ 390}# + (lambda (#{x\ 2299}# #{w\ 2300}#) + (if (#{syntax-object?\ 351}# #{x\ 2299}#) + (values + (#{syntax-object-expression\ 353}# #{x\ 2299}#) + (#{join-marks\ 440}# + (#{wrap-marks\ 394}# #{w\ 2300}#) + (#{wrap-marks\ 394}# + (#{syntax-object-wrap\ 355}# #{x\ 2299}#)))) + (values + #{x\ 2299}# + (#{wrap-marks\ 394}# #{w\ 2300}#))))) + (#{id?\ 387}# + (lambda (#{x\ 2303}#) + (if (symbol? #{x\ 2303}#) + #t + (if (#{syntax-object?\ 351}# #{x\ 2303}#) + (symbol? + (#{syntax-object-expression\ 353}# #{x\ 2303}#)) + #f)))) + (#{nonsymbol-id?\ 385}# + (lambda (#{x\ 2310}#) + (if (#{syntax-object?\ 351}# #{x\ 2310}#) + (symbol? + (#{syntax-object-expression\ 353}# #{x\ 2310}#)) + #f))) + (#{global-extend\ 383}# + (lambda (#{type\ 2314}# #{sym\ 2315}# #{val\ 2316}#) + (#{put-global-definition-hook\ 301}# + #{sym\ 2315}# + #{type\ 2314}# + #{val\ 2316}#))) + (#{lookup\ 381}# + (lambda (#{x\ 2320}# #{r\ 2321}# #{mod\ 2322}#) + (begin + (let ((#{t\ 2328}# (assq #{x\ 2320}# #{r\ 2321}#))) + (if #{t\ 2328}# + (cdr #{t\ 2328}#) + (if (symbol? #{x\ 2320}#) + (begin + (let ((#{t\ 2334}# + (#{get-global-definition-hook\ 303}# + #{x\ 2320}# + #{mod\ 2322}#))) + (if #{t\ 2334}# #{t\ 2334}# (quote (global))))) + '(displaced-lexical))))))) + (#{macros-only-env\ 379}# + (lambda (#{r\ 2339}#) + (if (null? #{r\ 2339}#) + '() + (begin + (let ((#{a\ 2342}# (car #{r\ 2339}#))) + (if (eq? (car (cdr #{a\ 2342}#)) (quote macro)) + (cons #{a\ 2342}# + (#{macros-only-env\ 379}# (cdr #{r\ 2339}#))) + (#{macros-only-env\ 379}# (cdr #{r\ 2339}#)))))))) + (#{extend-var-env\ 377}# + (lambda (#{labels\ 2343}# #{vars\ 2344}# #{r\ 2345}#) + (if (null? #{labels\ 2343}#) + #{r\ 2345}# + (#{extend-var-env\ 377}# + (cdr #{labels\ 2343}#) + (cdr #{vars\ 2344}#) + (cons (cons (car #{labels\ 2343}#) + (cons (quote lexical) (car #{vars\ 2344}#))) + #{r\ 2345}#))))) + (#{extend-env\ 375}# + (lambda (#{labels\ 2350}# #{bindings\ 2351}# #{r\ 2352}#) + (if (null? #{labels\ 2350}#) + #{r\ 2352}# + (#{extend-env\ 375}# + (cdr #{labels\ 2350}#) + (cdr #{bindings\ 2351}#) + (cons (cons (car #{labels\ 2350}#) + (car #{bindings\ 2351}#)) + #{r\ 2352}#))))) + (#{source-annotation\ 366}# + (lambda (#{x\ 2356}#) + (if (#{syntax-object?\ 351}# #{x\ 2356}#) + (#{source-annotation\ 366}# + (#{syntax-object-expression\ 353}# #{x\ 2356}#)) + (if (pair? #{x\ 2356}#) + (begin + (let ((#{props\ 2363}# (source-properties #{x\ 2356}#))) + (if (pair? #{props\ 2363}#) #{props\ 2363}# #f))) + #f)))) + (#{syntax-object-module\ 357}# + (lambda (#{x\ 2377}#) (vector-ref #{x\ 2377}# 3))) + (#{syntax-object-wrap\ 355}# + (lambda (#{x\ 2379}#) (vector-ref #{x\ 2379}# 2))) + (#{syntax-object-expression\ 353}# + (lambda (#{x\ 2381}#) (vector-ref #{x\ 2381}# 1))) + (#{syntax-object?\ 351}# + (lambda (#{x\ 2383}#) + (if (vector? #{x\ 2383}#) + (if (= (vector-length #{x\ 2383}#) 4) + (eq? (vector-ref #{x\ 2383}# 0) + 'syntax-object) #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 - 'letrec-syntax - #t) - (#{global-extend\ 378}# - 'local-syntax - 'let-syntax - #f) - (#{global-extend\ 378}# - 'core - 'fluid-let-syntax - (lambda (#{e\ 2756}# - #{r\ 2757}# - #{w\ 2758}# - #{s\ 2759}# - #{mod\ 2760}#) - ((lambda (#{tmp\ 2766}#) - ((lambda (#{tmp\ 2767}#) - (if (if #{tmp\ 2767}# - (apply (lambda (#{_\ 2773}# - #{var\ 2774}# - #{val\ 2775}# - #{e1\ 2776}# - #{e2\ 2777}#) - (#{valid-bound-ids?\ 445}# #{var\ 2774}#)) - #{tmp\ 2767}#) - #f) - (apply (lambda (#{_\ 2784}# - #{var\ 2785}# - #{val\ 2786}# - #{e1\ 2787}# - #{e2\ 2788}#) - (let ((#{names\ 2790}# - (map (lambda (#{x\ 2791}#) - (#{id-var-name\ 439}# - #{x\ 2791}# - #{w\ 2758}#)) - #{var\ 2785}#))) - (begin - (for-each - (lambda (#{id\ 2794}# #{n\ 2795}#) - (let ((#{atom-key\ 2800}# - (#{binding-type\ 365}# - (#{lookup\ 376}# - #{n\ 2795}# - #{r\ 2757}# - #{mod\ 2760}#)))) - (if (memv #{atom-key\ 2800}# - '(displaced-lexical)) - (syntax-violation - 'fluid-let-syntax - "identifier out of context" - #{e\ 2756}# - (#{source-wrap\ 453}# - #{id\ 2794}# - #{w\ 2758}# - #{s\ 2759}# - #{mod\ 2760}#))))) - #{var\ 2785}# - #{names\ 2790}#) - (#{chi-body\ 475}# - (cons #{e1\ 2787}# #{e2\ 2788}#) - (#{source-wrap\ 453}# - #{e\ 2756}# - #{w\ 2758}# - #{s\ 2759}# - #{mod\ 2760}#) - (#{extend-env\ 370}# - #{names\ 2790}# - (let ((#{trans-r\ 2805}# - (#{macros-only-env\ 374}# - #{r\ 2757}#))) - (map (lambda (#{x\ 2806}#) - (cons 'macro - (#{eval-local-transformer\ 479}# - (#{chi\ 467}# - #{x\ 2806}# - #{trans-r\ 2805}# - #{w\ 2758}# - #{mod\ 2760}#) - #{mod\ 2760}#))) - #{val\ 2786}#)) - #{r\ 2757}#) - #{w\ 2758}# - #{mod\ 2760}#)))) - #{tmp\ 2767}#) - ((lambda (#{_\ 2811}#) - (syntax-violation - 'fluid-let-syntax - "bad syntax" - (#{source-wrap\ 453}# - #{e\ 2756}# - #{w\ 2758}# - #{s\ 2759}# - #{mod\ 2760}#))) - #{tmp\ 2766}#))) - ($sc-dispatch - #{tmp\ 2766}# - '(any #(each (any any)) any . each-any)))) - #{e\ 2756}#))) - (#{global-extend\ 378}# - 'core - 'quote - (lambda (#{e\ 2812}# - #{r\ 2813}# - #{w\ 2814}# - #{s\ 2815}# - #{mod\ 2816}#) - ((lambda (#{tmp\ 2822}#) - ((lambda (#{tmp\ 2823}#) - (if #{tmp\ 2823}# - (apply (lambda (#{_\ 2826}# #{e\ 2827}#) - (#{build-data\ 332}# - #{s\ 2815}# - (#{strip\ 493}# #{e\ 2827}# #{w\ 2814}#))) - #{tmp\ 2823}#) - ((lambda (#{_\ 2829}#) - (syntax-violation - 'quote - "bad syntax" - (#{source-wrap\ 453}# - #{e\ 2812}# - #{w\ 2814}# - #{s\ 2815}# - #{mod\ 2816}#))) - #{tmp\ 2822}#))) - ($sc-dispatch #{tmp\ 2822}# (quote (any any))))) - #{e\ 2812}#))) - (#{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 - #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))) + (#{make-syntax-object\ 349}# + (lambda (#{expression\ 2388}# + #{wrap\ 2389}# + #{module\ 2390}#) + (vector + 'syntax-object + #{expression\ 2388}# + #{wrap\ 2389}# + #{module\ 2390}#))) + (#{build-letrec\ 345}# + (lambda (#{src\ 2394}# + #{in-order?\ 2395}# + #{ids\ 2396}# + #{vars\ 2397}# + #{val-exps\ 2398}# + #{body-exp\ 2399}#) + (if (null? #{vars\ 2397}#) + #{body-exp\ 2399}# + (begin + (for-each + #{maybe-name-value!\ 325}# + #{ids\ 2396}# + #{val-exps\ 2398}#) + (#{make-letrec\ 277}# + #{src\ 2394}# + #{in-order?\ 2395}# + #{ids\ 2396}# + #{vars\ 2397}# + #{val-exps\ 2398}# + #{body-exp\ 2399}#))))) + (#{build-named-let\ 343}# + (lambda (#{src\ 2406}# + #{ids\ 2407}# + #{vars\ 2408}# + #{val-exps\ 2409}# + #{body-exp\ 2410}#) + (begin + (let ((#{f\ 2420}# (car #{vars\ 2408}#)) + (#{f-name\ 2421}# (car #{ids\ 2407}#)) + (#{vars\ 2422}# (cdr #{vars\ 2408}#)) + (#{ids\ 2423}# (cdr #{ids\ 2407}#))) + (begin + (let ((#{proc\ 2425}# + (#{build-simple-lambda\ 329}# + #{src\ 2406}# + #{ids\ 2423}# #f - (cadr #{x\ 2846}#) - #f - (cadr #{x\ 2846}#) + #{vars\ 2422}# '() - (#{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 (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}#) + #{body-exp\ 2410}#))) + (begin + (#{maybe-name-value!\ 325}# + #{f-name\ 2421}# + #{proc\ 2425}#) + (for-each + #{maybe-name-value!\ 325}# + #{ids\ 2423}# + #{val-exps\ 2409}#) + (#{make-letrec\ 277}# + #{src\ 2406}# + #f + (list #{f-name\ 2421}#) + (list #{f\ 2420}#) + (list #{proc\ 2425}#) + (#{build-application\ 309}# + #{src\ 2406}# + (#{build-lexical-reference\ 315}# + 'fun + #{src\ 2406}# + #{f-name\ 2421}# + #{f\ 2420}#) + #{val-exps\ 2409}#))))))))) + (#{build-let\ 341}# + (lambda (#{src\ 2426}# + #{ids\ 2427}# + #{vars\ 2428}# + #{val-exps\ 2429}# + #{body-exp\ 2430}#) + (begin + (for-each + #{maybe-name-value!\ 325}# + #{ids\ 2427}# + #{val-exps\ 2429}#) + (if (null? #{vars\ 2428}#) + #{body-exp\ 2430}# + (#{make-let\ 275}# + #{src\ 2426}# + #{ids\ 2427}# + #{vars\ 2428}# + #{val-exps\ 2429}# + #{body-exp\ 2430}#))))) + (#{build-sequence\ 339}# + (lambda (#{src\ 2436}# #{exps\ 2437}#) + (if (null? (cdr #{exps\ 2437}#)) + (car #{exps\ 2437}#) + (#{make-sequence\ 269}# + #{src\ 2436}# + #{exps\ 2437}#)))) + (#{build-data\ 337}# + (lambda (#{src\ 2440}# #{exp\ 2441}#) + (#{make-const\ 247}# #{src\ 2440}# #{exp\ 2441}#))) + (#{build-primref\ 335}# + (lambda (#{src\ 2444}# #{name\ 2445}#) + (if (equal? + (module-name (current-module)) + '(guile)) + (#{make-toplevel-ref\ 259}# + #{src\ 2444}# + #{name\ 2445}#) + (#{make-module-ref\ 255}# + #{src\ 2444}# + '(guile) + #{name\ 2445}# + #f)))) + (#{build-lambda-case\ 333}# + (lambda (#{src\ 2448}# + #{req\ 2449}# + #{opt\ 2450}# + #{rest\ 2451}# + #{kw\ 2452}# + #{inits\ 2453}# + #{vars\ 2454}# + #{body\ 2455}# + #{else-case\ 2456}#) + (#{make-lambda-case\ 273}# + #{src\ 2448}# + #{req\ 2449}# + #{opt\ 2450}# + #{rest\ 2451}# + #{kw\ 2452}# + #{inits\ 2453}# + #{vars\ 2454}# + #{body\ 2455}# + #{else-case\ 2456}#))) + (#{build-case-lambda\ 331}# + (lambda (#{src\ 2466}# #{meta\ 2467}# #{body\ 2468}#) + (#{make-lambda\ 271}# + #{src\ 2466}# + #{meta\ 2467}# + #{body\ 2468}#))) + (#{build-simple-lambda\ 329}# + (lambda (#{src\ 2472}# + #{req\ 2473}# + #{rest\ 2474}# + #{vars\ 2475}# + #{meta\ 2476}# + #{exp\ 2477}#) + (#{make-lambda\ 271}# + #{src\ 2472}# + #{meta\ 2476}# + (#{make-lambda-case\ 273}# + #{src\ 2472}# + #{req\ 2473}# + #f + #{rest\ 2474}# + #f + '() + #{vars\ 2475}# + #{exp\ 2477}# + #f)))) + (#{build-global-definition\ 327}# + (lambda (#{source\ 2484}# #{var\ 2485}# #{exp\ 2486}#) + (begin + (#{maybe-name-value!\ 325}# + #{var\ 2485}# + #{exp\ 2486}#) + (#{make-toplevel-define\ 263}# + #{source\ 2484}# + #{var\ 2485}# + #{exp\ 2486}#)))) + (#{maybe-name-value!\ 325}# + (lambda (#{name\ 2490}# #{val\ 2491}#) + (if (#{lambda?\ 282}# #{val\ 2491}#) + (begin + (let ((#{meta\ 2495}# + (#{lambda-meta\ 284}# #{val\ 2491}#))) + (if (not (assq (quote name) #{meta\ 2495}#)) + (#{set-lambda-meta!\ 286}# + #{val\ 2491}# + (cons (cons (quote name) #{name\ 2490}#) + #{meta\ 2495}#)))))))) + (#{build-global-assignment\ 323}# + (lambda (#{source\ 2496}# + #{var\ 2497}# + #{exp\ 2498}# + #{mod\ 2499}#) + (#{analyze-variable\ 319}# + #{mod\ 2499}# + #{var\ 2497}# + (lambda (#{mod\ 2504}# #{var\ 2505}# #{public?\ 2506}#) + (#{make-module-set\ 257}# + #{source\ 2496}# + #{mod\ 2504}# + #{var\ 2505}# + #{public?\ 2506}# + #{exp\ 2498}#)) + (lambda (#{var\ 2510}#) + (#{make-toplevel-set\ 261}# + #{source\ 2496}# + #{var\ 2510}# + #{exp\ 2498}#))))) + (#{build-global-reference\ 321}# + (lambda (#{source\ 2512}# #{var\ 2513}# #{mod\ 2514}#) + (#{analyze-variable\ 319}# + #{mod\ 2514}# + #{var\ 2513}# + (lambda (#{mod\ 2518}# #{var\ 2519}# #{public?\ 2520}#) + (#{make-module-ref\ 255}# + #{source\ 2512}# + #{mod\ 2518}# + #{var\ 2519}# + #{public?\ 2520}#)) + (lambda (#{var\ 2524}#) + (#{make-toplevel-ref\ 259}# + #{source\ 2512}# + #{var\ 2524}#))))) + (#{analyze-variable\ 319}# + (lambda (#{mod\ 2526}# + #{var\ 2527}# + #{modref-cont\ 2528}# + #{bare-cont\ 2529}#) + (if (not #{mod\ 2526}#) + (#{bare-cont\ 2529}# #{var\ 2527}#) + (begin + (let ((#{kind\ 2536}# (car #{mod\ 2526}#)) + (#{mod\ 2537}# (cdr #{mod\ 2526}#))) + (if (eqv? #{kind\ 2536}# (quote public)) + (#{modref-cont\ 2528}# + #{mod\ 2537}# + #{var\ 2527}# + #t) + (if (eqv? #{kind\ 2536}# (quote private)) + (if (not (equal? + #{mod\ 2537}# + (module-name (current-module)))) + (#{modref-cont\ 2528}# + #{mod\ 2537}# + #{var\ 2527}# + #f) + (#{bare-cont\ 2529}# #{var\ 2527}#)) + (if (eqv? #{kind\ 2536}# (quote bare)) + (#{bare-cont\ 2529}# #{var\ 2527}#) + (if (eqv? #{kind\ 2536}# (quote hygiene)) + (if (if (not (equal? + #{mod\ 2537}# + (module-name (current-module)))) + (module-variable + (resolve-module #{mod\ 2537}#) + #{var\ 2527}#) + #f) + (#{modref-cont\ 2528}# + #{mod\ 2537}# + #{var\ 2527}# + #f) + (#{bare-cont\ 2529}# #{var\ 2527}#)) + (syntax-violation + #f + "bad module kind" + #{var\ 2527}# + #{mod\ 2537}#)))))))))) + (#{build-lexical-assignment\ 317}# + (lambda (#{source\ 2545}# + #{name\ 2546}# + #{var\ 2547}# + #{exp\ 2548}#) + (#{make-lexical-set\ 253}# + #{source\ 2545}# + #{name\ 2546}# + #{var\ 2547}# + #{exp\ 2548}#))) + (#{build-lexical-reference\ 315}# + (lambda (#{type\ 2553}# + #{source\ 2554}# + #{name\ 2555}# + #{var\ 2556}#) + (#{make-lexical-ref\ 251}# + #{source\ 2554}# + #{name\ 2555}# + #{var\ 2556}#))) + (#{build-dynlet\ 313}# + (lambda (#{source\ 2561}# + #{fluids\ 2562}# + #{vals\ 2563}# + #{body\ 2564}#) + (#{make-dynlet\ 279}# + #{source\ 2561}# + #{fluids\ 2562}# + #{vals\ 2563}# + #{body\ 2564}#))) + (#{build-conditional\ 311}# + (lambda (#{source\ 2569}# + #{test-exp\ 2570}# + #{then-exp\ 2571}# + #{else-exp\ 2572}#) + (#{make-conditional\ 265}# + #{source\ 2569}# + #{test-exp\ 2570}# + #{then-exp\ 2571}# + #{else-exp\ 2572}#))) + (#{build-application\ 309}# + (lambda (#{source\ 2577}# + #{fun-exp\ 2578}# + #{arg-exps\ 2579}#) + (#{make-application\ 267}# + #{source\ 2577}# + #{fun-exp\ 2578}# + #{arg-exps\ 2579}#))) + (#{build-void\ 307}# + (lambda (#{source\ 2583}#) + (#{make-void\ 245}# #{source\ 2583}#))) + (#{decorate-source\ 305}# + (lambda (#{e\ 2585}# #{s\ 2586}#) + (begin + (if (if (pair? #{e\ 2585}#) #{s\ 2586}# #f) + (set-source-properties! #{e\ 2585}# #{s\ 2586}#)) + #{e\ 2585}#))) + (#{get-global-definition-hook\ 303}# + (lambda (#{symbol\ 2591}# #{module\ 2592}#) + (begin + (if (if (not #{module\ 2592}#) (current-module) #f) + (warn "module system is booted, we should have a module" + #{symbol\ 2591}#)) + (begin + (let ((#{v\ 2598}# + (module-variable + (if #{module\ 2592}# + (resolve-module (cdr #{module\ 2592}#)) + (current-module)) + #{symbol\ 2591}#))) + (if #{v\ 2598}# + (if (variable-bound? #{v\ 2598}#) + (begin + (let ((#{val\ 2603}# (variable-ref #{v\ 2598}#))) + (if (macro? #{val\ 2603}#) + (if (macro-type #{val\ 2603}#) + (cons (macro-type #{val\ 2603}#) + (macro-binding #{val\ 2603}#)) + #f) + #f))) + #f) + #f)))))) + (#{put-global-definition-hook\ 301}# + (lambda (#{symbol\ 2607}# #{type\ 2608}# #{val\ 2609}#) + (module-define! + (current-module) + #{symbol\ 2607}# + (make-syntax-transformer + #{symbol\ 2607}# + #{type\ 2608}# + #{val\ 2609}#)))) + (#{local-eval-hook\ 298}# + (lambda (#{x\ 2613}# #{mod\ 2614}#) + (primitive-eval #{x\ 2613}#))) + (#{top-level-eval-hook\ 296}# + (lambda (#{x\ 2617}# #{mod\ 2618}#) + (primitive-eval #{x\ 2617}#))) + (#{set-lambda-meta!\ 286}# + (lambda (#{x\ 2621}# #{v\ 2622}#) + (struct-set! #{x\ 2621}# 1 #{v\ 2622}#))) + (#{lambda-meta\ 284}# + (lambda (#{x\ 2625}#) (struct-ref #{x\ 2625}# 1))) + (#{lambda?\ 282}# + (lambda (#{x\ 2627}#) + (if (struct? #{x\ 2627}#) + (eq? (struct-vtable #{x\ 2627}#) + (vector-ref %expanded-vtables 13)) + #f))) + (#{make-dynlet\ 279}# + (lambda (#{src\ 2631}# + #{fluids\ 2632}# + #{vals\ 2633}# + #{body\ 2634}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 17) + #{src\ 2631}# + #{fluids\ 2632}# + #{vals\ 2633}# + #{body\ 2634}#))) + (#{make-letrec\ 277}# + (lambda (#{src\ 2639}# + #{in-order?\ 2640}# + #{names\ 2641}# + #{gensyms\ 2642}# + #{vals\ 2643}# + #{body\ 2644}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 16) + #{src\ 2639}# + #{in-order?\ 2640}# + #{names\ 2641}# + #{gensyms\ 2642}# + #{vals\ 2643}# + #{body\ 2644}#))) + (#{make-let\ 275}# + (lambda (#{src\ 2651}# + #{names\ 2652}# + #{gensyms\ 2653}# + #{vals\ 2654}# + #{body\ 2655}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 15) + #{src\ 2651}# + #{names\ 2652}# + #{gensyms\ 2653}# + #{vals\ 2654}# + #{body\ 2655}#))) + (#{make-lambda-case\ 273}# + (lambda (#{src\ 2661}# + #{req\ 2662}# + #{opt\ 2663}# + #{rest\ 2664}# + #{kw\ 2665}# + #{inits\ 2666}# + #{gensyms\ 2667}# + #{body\ 2668}# + #{alternate\ 2669}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{src\ 2661}# + #{req\ 2662}# + #{opt\ 2663}# + #{rest\ 2664}# + #{kw\ 2665}# + #{inits\ 2666}# + #{gensyms\ 2667}# + #{body\ 2668}# + #{alternate\ 2669}#))) + (#{make-lambda\ 271}# + (lambda (#{src\ 2679}# #{meta\ 2680}# #{body\ 2681}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{src\ 2679}# + #{meta\ 2680}# + #{body\ 2681}#))) + (#{make-sequence\ 269}# + (lambda (#{src\ 2685}# #{exps\ 2686}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 12) + #{src\ 2685}# + #{exps\ 2686}#))) + (#{make-application\ 267}# + (lambda (#{src\ 2689}# #{proc\ 2690}# #{args\ 2691}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #{src\ 2689}# + #{proc\ 2690}# + #{args\ 2691}#))) + (#{make-conditional\ 265}# + (lambda (#{src\ 2695}# + #{test\ 2696}# + #{consequent\ 2697}# + #{alternate\ 2698}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 10) + #{src\ 2695}# + #{test\ 2696}# + #{consequent\ 2697}# + #{alternate\ 2698}#))) + (#{make-toplevel-define\ 263}# + (lambda (#{src\ 2703}# #{name\ 2704}# #{exp\ 2705}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 9) + #{src\ 2703}# + #{name\ 2704}# + #{exp\ 2705}#))) + (#{make-toplevel-set\ 261}# + (lambda (#{src\ 2709}# #{name\ 2710}# #{exp\ 2711}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 8) + #{src\ 2709}# + #{name\ 2710}# + #{exp\ 2711}#))) + (#{make-toplevel-ref\ 259}# + (lambda (#{src\ 2715}# #{name\ 2716}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #{src\ 2715}# + #{name\ 2716}#))) + (#{make-module-set\ 257}# + (lambda (#{src\ 2719}# + #{mod\ 2720}# + #{name\ 2721}# + #{public?\ 2722}# + #{exp\ 2723}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 6) + #{src\ 2719}# + #{mod\ 2720}# + #{name\ 2721}# + #{public?\ 2722}# + #{exp\ 2723}#))) + (#{make-module-ref\ 255}# + (lambda (#{src\ 2729}# + #{mod\ 2730}# + #{name\ 2731}# + #{public?\ 2732}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #{src\ 2729}# + #{mod\ 2730}# + #{name\ 2731}# + #{public?\ 2732}#))) + (#{make-lexical-set\ 253}# + (lambda (#{src\ 2737}# + #{name\ 2738}# + #{gensym\ 2739}# + #{exp\ 2740}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 4) + #{src\ 2737}# + #{name\ 2738}# + #{gensym\ 2739}# + #{exp\ 2740}#))) + (#{make-lexical-ref\ 251}# + (lambda (#{src\ 2745}# #{name\ 2746}# #{gensym\ 2747}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{src\ 2745}# + #{name\ 2746}# + #{gensym\ 2747}#))) + (#{make-const\ 247}# + (lambda (#{src\ 2755}# #{exp\ 2756}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{src\ 2755}# + #{exp\ 2756}#))) + (#{make-void\ 245}# + (lambda (#{src\ 2759}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #{src\ 2759}#)))) + (begin + (set! #{ribcage?\ 410}# + (lambda (#{x\ 2286}#) + (if (vector? #{x\ 2286}#) + (if (= (vector-length #{x\ 2286}#) 4) + (eq? (vector-ref #{x\ 2286}# 0) (quote ribcage)) + #f) + #f))) + (set! #{wrap-subst\ 396}# cdr) + (set! #{wrap-marks\ 394}# car) + (set! #{make-wrap\ 392}# cons) + (set! #{binding-value\ 372}# cdr) + (set! #{binding-type\ 370}# car) + (set! #{set-syntax-object-module!\ 363}# + (lambda (#{x\ 2365}# #{update\ 2366}#) + (vector-set! #{x\ 2365}# 3 #{update\ 2366}#))) + (set! #{set-syntax-object-wrap!\ 361}# + (lambda (#{x\ 2369}# #{update\ 2370}#) + (vector-set! #{x\ 2369}# 2 #{update\ 2370}#))) + (set! #{set-syntax-object-expression!\ 359}# + (lambda (#{x\ 2373}# #{update\ 2374}#) + (vector-set! #{x\ 2373}# 1 #{update\ 2374}#))) + (set! #{fx<\ 294}# <) + (set! #{fx=\ 292}# =) + (set! #{fx-\ 290}# -) + (set! #{fx+\ 288}# +) + (set! #{make-primitive-ref\ 249}# + (lambda (#{src\ 2751}# #{name\ 2752}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 2) + #{src\ 2751}# + #{name\ 2752}#))) + (begin + (#{global-extend\ 383}# + 'local-syntax + 'letrec-syntax + #t) + (#{global-extend\ 383}# + 'local-syntax + 'let-syntax + #f) + (#{global-extend\ 383}# + 'core + 'fluid-let-syntax + (lambda (#{e\ 2761}# + #{r\ 2762}# + #{w\ 2763}# + #{s\ 2764}# + #{mod\ 2765}#) + (let ((#{tmp\ 2771}# #{e\ 2761}#)) + (let ((#{tmp\ 2772}# + ($sc-dispatch + #{tmp\ 2771}# + '(any #(each (any any)) any . each-any)))) + (if (if #{tmp\ 2772}# + (@apply + (lambda (#{_\ 2778}# + #{var\ 2779}# + #{val\ 2780}# + #{e1\ 2781}# + #{e2\ 2782}#) + (#{valid-bound-ids?\ 450}# #{var\ 2779}#)) + #{tmp\ 2772}#) + #f) + (@apply + (lambda (#{_\ 2789}# + #{var\ 2790}# + #{val\ 2791}# + #{e1\ 2792}# + #{e2\ 2793}#) + (begin + (let ((#{names\ 2795}# + (map (lambda (#{x\ 2796}#) + (#{id-var-name\ 444}# + #{x\ 2796}# + #{w\ 2763}#)) + #{var\ 2790}#))) + (begin + (for-each + (lambda (#{id\ 2799}# #{n\ 2800}#) + (begin + (let ((#{atom-key\ 2805}# + (#{binding-type\ 370}# + (#{lookup\ 381}# + #{n\ 2800}# + #{r\ 2762}# + #{mod\ 2765}#)))) + (if (eqv? #{atom-key\ 2805}# + 'displaced-lexical) + (syntax-violation + 'fluid-let-syntax + "identifier out of context" + #{e\ 2761}# + (#{source-wrap\ 458}# + #{id\ 2799}# + #{w\ 2763}# + #{s\ 2764}# + #{mod\ 2765}#)))))) + #{var\ 2790}# + #{names\ 2795}#) + (#{chi-body\ 480}# + (cons #{e1\ 2792}# #{e2\ 2793}#) + (#{source-wrap\ 458}# + #{e\ 2761}# + #{w\ 2763}# + #{s\ 2764}# + #{mod\ 2765}#) + (#{extend-env\ 375}# + #{names\ 2795}# + (begin + (let ((#{trans-r\ 2810}# + (#{macros-only-env\ 379}# + #{r\ 2762}#))) + (map (lambda (#{x\ 2811}#) + (cons 'macro + (#{eval-local-transformer\ 484}# + (#{chi\ 472}# + #{x\ 2811}# + #{trans-r\ 2810}# + #{w\ 2763}# + #{mod\ 2765}#) + #{mod\ 2765}#))) + #{val\ 2791}#))) + #{r\ 2762}#) + #{w\ 2763}# + #{mod\ 2765}#))))) + #{tmp\ 2772}#) + (let ((#{_\ 2816}# #{tmp\ 2771}#)) + (syntax-violation + 'fluid-let-syntax + "bad syntax" + (#{source-wrap\ 458}# + #{e\ 2761}# + #{w\ 2763}# + #{s\ 2764}# + #{mod\ 2765}#)))))))) + (#{global-extend\ 383}# + 'core + 'quote + (lambda (#{e\ 2817}# + #{r\ 2818}# + #{w\ 2819}# + #{s\ 2820}# + #{mod\ 2821}#) + (let ((#{tmp\ 2827}# #{e\ 2817}#)) + (let ((#{tmp\ 2828}# + ($sc-dispatch #{tmp\ 2827}# (quote (any any))))) + (if #{tmp\ 2828}# + (@apply + (lambda (#{_\ 2831}# #{e\ 2832}#) + (#{build-data\ 337}# + #{s\ 2820}# + (#{strip\ 498}# #{e\ 2832}# #{w\ 2819}#))) + #{tmp\ 2828}#) + (let ((#{_\ 2834}# #{tmp\ 2827}#)) + (syntax-violation + 'quote + "bad syntax" + (#{source-wrap\ 458}# + #{e\ 2817}# + #{w\ 2819}# + #{s\ 2820}# + #{mod\ 2821}#)))))))) + (#{global-extend\ 383}# + 'core + 'syntax + (letrec* + ((#{regen\ 2850}# + (lambda (#{x\ 2851}#) + (begin + (let ((#{atom-key\ 2855}# (car #{x\ 2851}#))) + (if (eqv? #{atom-key\ 2855}# (quote ref)) + (#{build-lexical-reference\ 315}# + 'value + #f + (car (cdr #{x\ 2851}#)) + (car (cdr #{x\ 2851}#))) + (if (eqv? #{atom-key\ 2855}# (quote primitive)) + (#{build-primref\ 335}# + #f + (car (cdr #{x\ 2851}#))) + (if (eqv? #{atom-key\ 2855}# (quote quote)) + (#{build-data\ 337}# #f (car (cdr #{x\ 2851}#))) + (if (eqv? #{atom-key\ 2855}# (quote lambda)) + (if (list? (car (cdr #{x\ 2851}#))) + (#{build-simple-lambda\ 329}# + #f + (car (cdr #{x\ 2851}#)) + #f + (car (cdr #{x\ 2851}#)) + '() + (#{regen\ 2850}# + (car (cdr (cdr #{x\ 2851}#))))) + (error "how did we get here" #{x\ 2851}#)) + (#{build-application\ 309}# + #f + (#{build-primref\ 335}# + #f + (car #{x\ 2851}#)) + (map #{regen\ 2850}# + (cdr #{x\ 2851}#))))))))))) + (#{gen-vector\ 2848}# + (lambda (#{x\ 2867}#) + (if (eq? (car #{x\ 2867}#) (quote list)) + (cons (quote vector) (cdr #{x\ 2867}#)) + (if (eq? (car #{x\ 2867}#) (quote quote)) + (list 'quote + (list->vector (car (cdr #{x\ 2867}#)))) + (list (quote list->vector) #{x\ 2867}#))))) + (#{gen-append\ 2846}# + (lambda (#{x\ 2877}# #{y\ 2878}#) + (if (equal? #{y\ 2878}# (quote (quote ()))) + #{x\ 2877}# + (list (quote append) #{x\ 2877}# #{y\ 2878}#)))) + (#{gen-cons\ 2844}# + (lambda (#{x\ 2882}# #{y\ 2883}#) + (begin + (let ((#{atom-key\ 2888}# (car #{y\ 2883}#))) + (if (eqv? #{atom-key\ 2888}# (quote quote)) + (if (eq? (car #{x\ 2882}#) (quote quote)) + (list 'quote + (cons (car (cdr #{x\ 2882}#)) + (car (cdr #{y\ 2883}#)))) + (if (eq? (car (cdr #{y\ 2883}#)) (quote ())) + (list (quote list) #{x\ 2882}#) + (list (quote cons) #{x\ 2882}# #{y\ 2883}#))) + (if (eqv? #{atom-key\ 2888}# (quote list)) + (cons 'list + (cons #{x\ 2882}# (cdr #{y\ 2883}#))) + (list (quote cons) #{x\ 2882}# #{y\ 2883}#))))))) + (#{gen-map\ 2842}# + (lambda (#{e\ 2897}# #{map-env\ 2898}#) + (begin + (let ((#{formals\ 2903}# (map cdr #{map-env\ 2898}#)) + (#{actuals\ 2904}# + (map (lambda (#{x\ 2905}#) + (list (quote ref) (car #{x\ 2905}#))) + #{map-env\ 2898}#))) + (if (eq? (car #{e\ 2897}#) (quote ref)) + (car #{actuals\ 2904}#) + (if (and-map + (lambda (#{x\ 2912}#) + (if (eq? (car #{x\ 2912}#) (quote ref)) + (memq (car (cdr #{x\ 2912}#)) + #{formals\ 2903}#) + #f)) + (cdr #{e\ 2897}#)) + (cons 'map + (cons (list 'primitive + (car #{e\ 2897}#)) + (map (begin + (let ((#{r\ 2918}# + (map cons + #{formals\ 2903}# + #{actuals\ 2904}#))) + (lambda (#{x\ 2919}#) + (cdr (assq (car (cdr #{x\ 2919}#)) + #{r\ 2918}#))))) + (cdr #{e\ 2897}#)))) + (cons 'map + (cons (list 'lambda + #{formals\ 2903}# + #{e\ 2897}#) + #{actuals\ 2904}#)))))))) + (#{gen-mappend\ 2840}# + (lambda (#{e\ 2923}# #{map-env\ 2924}#) + (list 'apply + '(primitive append) + (#{gen-map\ 2842}# #{e\ 2923}# #{map-env\ 2924}#)))) + (#{gen-ref\ 2838}# + (lambda (#{src\ 2928}# + #{var\ 2929}# + #{level\ 2930}# + #{maps\ 2931}#) + (if (#{fx=\ 292}# #{level\ 2930}# 0) + (values #{var\ 2929}# #{maps\ 2931}#) + (if (null? #{maps\ 2931}#) (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}#) - (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}#) + "missing ellipsis" + #{src\ 2928}#) + (call-with-values + (lambda () + (#{gen-ref\ 2838}# + #{src\ 2928}# + #{var\ 2929}# + (#{fx-\ 290}# #{level\ 2930}# 1) + (cdr #{maps\ 2931}#))) + (lambda (#{outer-var\ 2936}# #{outer-maps\ 2937}#) + (begin + (let ((#{b\ 2941}# + (assq #{outer-var\ 2936}# + (car #{maps\ 2931}#)))) + (if #{b\ 2941}# + (values (cdr #{b\ 2941}#) #{maps\ 2931}#) + (begin + (let ((#{inner-var\ 2943}# + (#{gen-var\ 500}# (quote tmp)))) + (values + #{inner-var\ 2943}# + (cons (cons (cons #{outer-var\ 2936}# + #{inner-var\ 2943}#) + (car #{maps\ 2931}#)) + #{outer-maps\ 2937}#))))))))))))) + (#{gen-syntax\ 2836}# + (lambda (#{src\ 2944}# + #{e\ 2945}# + #{r\ 2946}# + #{maps\ 2947}# + #{ellipsis?\ 2948}# + #{mod\ 2949}#) + (if (#{id?\ 387}# #{e\ 2945}#) + (begin + (let ((#{label\ 2957}# + (#{id-var-name\ 444}# + #{e\ 2945}# + '(())))) + (begin + (let ((#{b\ 2960}# + (#{lookup\ 381}# + #{label\ 2957}# + #{r\ 2946}# + #{mod\ 2949}#))) + (if (eq? (#{binding-type\ 370}# #{b\ 2960}#) + 'syntax) + (call-with-values + (lambda () + (begin + (let ((#{var.lev\ 2962}# + (#{binding-value\ 372}# + #{b\ 2960}#))) + (#{gen-ref\ 2838}# + #{src\ 2944}# + (car #{var.lev\ 2962}#) + (cdr #{var.lev\ 2962}#) + #{maps\ 2947}#)))) + (lambda (#{var\ 2963}# #{maps\ 2964}#) + (values + (list (quote ref) #{var\ 2963}#) + #{maps\ 2964}#))) + (if (#{ellipsis?\ 2948}# #{e\ 2945}#) + (syntax-violation + 'syntax + "misplaced ellipsis" + #{src\ 2944}#) + (values + (list (quote quote) #{e\ 2945}#) + #{maps\ 2947}#))))))) + (let ((#{tmp\ 2969}# #{e\ 2945}#)) + (let ((#{tmp\ 2970}# + ($sc-dispatch + #{tmp\ 2969}# + '(any any)))) + (if (if #{tmp\ 2970}# + (@apply + (lambda (#{dots\ 2973}# #{e\ 2974}#) + (#{ellipsis?\ 2948}# #{dots\ 2973}#)) + #{tmp\ 2970}#) + #f) + (@apply + (lambda (#{dots\ 2977}# #{e\ 2978}#) + (#{gen-syntax\ 2836}# + #{src\ 2944}# + #{e\ 2978}# + #{r\ 2946}# + #{maps\ 2947}# + (lambda (#{x\ 2979}#) #f) + #{mod\ 2949}#)) + #{tmp\ 2970}#) + (let ((#{tmp\ 2981}# + ($sc-dispatch + #{tmp\ 2969}# + '(any any . any)))) + (if (if #{tmp\ 2981}# + (@apply + (lambda (#{x\ 2985}# + #{dots\ 2986}# + #{y\ 2987}#) + (#{ellipsis?\ 2948}# #{dots\ 2986}#)) + #{tmp\ 2981}#) + #f) + (@apply + (lambda (#{x\ 2991}# + #{dots\ 2992}# + #{y\ 2993}#) + (letrec* + ((#{f\ 2997}# + (lambda (#{y\ 2998}# #{k\ 2999}#) + (let ((#{tmp\ 3006}# #{y\ 2998}#)) + (let ((#{tmp\ 3007}# + ($sc-dispatch + #{tmp\ 3006}# + '(any . any)))) + (if (if #{tmp\ 3007}# + (@apply + (lambda (#{dots\ 3010}# + #{y\ 3011}#) + (#{ellipsis?\ 2948}# + #{dots\ 3010}#)) + #{tmp\ 3007}#) + #f) + (@apply + (lambda (#{dots\ 3014}# + #{y\ 3015}#) + (#{f\ 2997}# + #{y\ 3015}# + (lambda (#{maps\ 3016}#) + (call-with-values + (lambda () + (#{k\ 2999}# + (cons '() + #{maps\ 3016}#))) + (lambda (#{x\ 3018}# + #{maps\ 3019}#) + (if (null? (car #{maps\ 3019}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src\ 2944}#) + (values + (#{gen-mappend\ 2840}# + #{x\ 3018}# + (car #{maps\ 3019}#)) + (cdr #{maps\ 3019}#)))))))) + #{tmp\ 3007}#) + (let ((#{_\ 3023}# + #{tmp\ 3006}#)) + (call-with-values + (lambda () + (#{gen-syntax\ 2836}# + #{src\ 2944}# + #{y\ 2998}# + #{r\ 2946}# + #{maps\ 2947}# + #{ellipsis?\ 2948}# + #{mod\ 2949}#)) + (lambda (#{y\ 3024}# + #{maps\ 3025}#) + (call-with-values + (lambda () + (#{k\ 2999}# + #{maps\ 3025}#)) + (lambda (#{x\ 3028}# + #{maps\ 3029}#) + (values + (#{gen-append\ 2846}# + #{x\ 3028}# + #{y\ 3024}#) + #{maps\ 3029}#)))))))))))) + (begin + (#{f\ 2997}# + #{y\ 2993}# + (lambda (#{maps\ 3000}#) (call-with-values (lambda () - (#{gen-syntax\ 2831}# - #{src\ 2939}# - #{x\ 2986}# - #{r\ 2941}# + (#{gen-syntax\ 2836}# + #{src\ 2944}# + #{x\ 2991}# + #{r\ 2946}# (cons '() - #{maps\ 2995}#) - #{ellipsis?\ 2943}# - #{mod\ 2944}#)) - (lambda (#{x\ 2997}# - #{maps\ 2998}#) - (if (null? (car #{maps\ 2998}#)) + #{maps\ 3000}#) + #{ellipsis?\ 2948}# + #{mod\ 2949}#)) + (lambda (#{x\ 3002}# + #{maps\ 3003}#) + (if (null? (car #{maps\ 3003}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2939}#) + #{src\ 2944}#) (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}# - #{s\ 3056}# - #{mod\ 3057}#) - (let ((#{e\ 3064}# - (#{source-wrap\ 453}# - #{e\ 3053}# - #{w\ 3055}# - #{s\ 3056}# - #{mod\ 3057}#))) - ((lambda (#{tmp\ 3065}#) - ((lambda (#{tmp\ 3066}#) - (if #{tmp\ 3066}# - (apply (lambda (#{_\ 3069}# #{x\ 3070}#) - (call-with-values - (lambda () - (#{gen-syntax\ 2831}# - #{e\ 3064}# - #{x\ 3070}# - #{r\ 3054}# - '() - #{ellipsis?\ 483}# - #{mod\ 3057}#)) - (lambda (#{e\ 3071}# #{maps\ 3072}#) - (#{regen\ 2845}# #{e\ 3071}#)))) - #{tmp\ 3066}#) - ((lambda (#{_\ 3076}#) - (syntax-violation - 'syntax - "bad `syntax' form" - #{e\ 3064}#)) - #{tmp\ 3065}#))) - ($sc-dispatch #{tmp\ 3065}# (quote (any any))))) - #{e\ 3064}#))))) - (#{global-extend\ 378}# - 'core - 'lambda - (lambda (#{e\ 3077}# - #{r\ 3078}# - #{w\ 3079}# - #{s\ 3080}# - #{mod\ 3081}#) - ((lambda (#{tmp\ 3087}#) - ((lambda (#{tmp\ 3088}#) - (if #{tmp\ 3088}# - (apply (lambda (#{_\ 3093}# - #{args\ 3094}# - #{e1\ 3095}# - #{e2\ 3096}#) - (call-with-values - (lambda () - (#{lambda-formals\ 485}# #{args\ 3094}#)) - (lambda (#{req\ 3097}# - #{opt\ 3098}# - #{rest\ 3099}# - #{kw\ 3100}#) - (letrec ((#{lp\ 3108}# - (lambda (#{body\ 3109}# - #{meta\ 3110}#) - ((lambda (#{tmp\ 3112}#) - ((lambda (#{tmp\ 3113}#) - (if (if #{tmp\ 3113}# - (apply (lambda (#{docstring\ 3117}# - #{e1\ 3118}# - #{e2\ 3119}#) - (string? - (syntax->datum - #{docstring\ 3117}#))) - #{tmp\ 3113}#) - #f) - (apply (lambda (#{docstring\ 3123}# - #{e1\ 3124}# - #{e2\ 3125}#) - (#{lp\ 3108}# - (cons #{e1\ 3124}# - #{e2\ 3125}#) - (append - #{meta\ 3110}# - (list (cons 'documentation - (syntax->datum - #{docstring\ 3123}#)))))) - #{tmp\ 3113}#) - ((lambda (#{tmp\ 3128}#) - (if #{tmp\ 3128}# - (apply (lambda (#{k\ 3133}# - #{v\ 3134}# - #{e1\ 3135}# - #{e2\ 3136}#) - (#{lp\ 3108}# - (cons #{e1\ 3135}# - #{e2\ 3136}#) - (append - #{meta\ 3110}# - (syntax->datum - (map cons - #{k\ 3133}# - #{v\ 3134}#))))) - #{tmp\ 3128}#) - ((lambda (#{_\ 3141}#) - (#{chi-simple-lambda\ 487}# - #{e\ 3077}# - #{r\ 3078}# - #{w\ 3079}# - #{s\ 3080}# - #{mod\ 3081}# - #{req\ 3097}# - #{rest\ 3099}# - #{meta\ 3110}# - #{body\ 3109}#)) - #{tmp\ 3112}#))) - ($sc-dispatch - #{tmp\ 3112}# - '(#(vector - #(each (any . any))) - any - . - each-any))))) - ($sc-dispatch - #{tmp\ 3112}# - '(any any . each-any)))) - #{body\ 3109}#)))) - (#{lp\ 3108}# - (cons #{e1\ 3095}# #{e2\ 3096}#) - '()))))) - #{tmp\ 3088}#) - ((lambda (#{_\ 3143}#) - (syntax-violation - 'lambda - "bad lambda" - #{e\ 3077}#)) - #{tmp\ 3087}#))) - ($sc-dispatch - #{tmp\ 3087}# - '(any any any . each-any)))) - #{e\ 3077}#))) - (#{global-extend\ 378}# - 'core - 'lambda* - (lambda (#{e\ 3144}# - #{r\ 3145}# - #{w\ 3146}# - #{s\ 3147}# - #{mod\ 3148}#) - ((lambda (#{tmp\ 3154}#) - ((lambda (#{tmp\ 3155}#) - (if #{tmp\ 3155}# - (apply (lambda (#{_\ 3160}# - #{args\ 3161}# - #{e1\ 3162}# - #{e2\ 3163}#) - (call-with-values - (lambda () - (#{chi-lambda-case\ 491}# - #{e\ 3144}# - #{r\ 3145}# - #{w\ 3146}# - #{s\ 3147}# - #{mod\ 3148}# - #{lambda*-formals\ 489}# - (list (cons #{args\ 3161}# - (cons #{e1\ 3162}# - #{e2\ 3163}#))))) - (lambda (#{meta\ 3165}# #{lcase\ 3166}#) - (#{build-case-lambda\ 326}# - #{s\ 3147}# - #{meta\ 3165}# - #{lcase\ 3166}#)))) - #{tmp\ 3155}#) - ((lambda (#{_\ 3170}#) - (syntax-violation - 'lambda - "bad lambda*" - #{e\ 3144}#)) - #{tmp\ 3154}#))) - ($sc-dispatch - #{tmp\ 3154}# - '(any any any . each-any)))) - #{e\ 3144}#))) - (#{global-extend\ 378}# - 'core - 'case-lambda - (lambda (#{e\ 3171}# - #{r\ 3172}# - #{w\ 3173}# - #{s\ 3174}# - #{mod\ 3175}#) - ((lambda (#{tmp\ 3181}#) - ((lambda (#{tmp\ 3182}#) - (if #{tmp\ 3182}# - (apply (lambda (#{_\ 3190}# - #{args\ 3191}# - #{e1\ 3192}# - #{e2\ 3193}# - #{args*\ 3194}# - #{e1*\ 3195}# - #{e2*\ 3196}#) - (call-with-values - (lambda () - (#{chi-lambda-case\ 491}# - #{e\ 3171}# - #{r\ 3172}# - #{w\ 3173}# - #{s\ 3174}# - #{mod\ 3175}# - #{lambda-formals\ 485}# - (cons (cons #{args\ 3191}# - (cons #{e1\ 3192}# #{e2\ 3193}#)) - (map (lambda (#{tmp\ 3200}# - #{tmp\ 3199}# - #{tmp\ 3198}#) - (cons #{tmp\ 3198}# - (cons #{tmp\ 3199}# - #{tmp\ 3200}#))) - #{e2*\ 3196}# - #{e1*\ 3195}# - #{args*\ 3194}#)))) - (lambda (#{meta\ 3202}# #{lcase\ 3203}#) - (#{build-case-lambda\ 326}# - #{s\ 3174}# - #{meta\ 3202}# - #{lcase\ 3203}#)))) - #{tmp\ 3182}#) - ((lambda (#{_\ 3207}#) - (syntax-violation - 'case-lambda - "bad case-lambda" - #{e\ 3171}#)) - #{tmp\ 3181}#))) - ($sc-dispatch - #{tmp\ 3181}# - '(any (any any . each-any) - . - #(each (any any . each-any)))))) - #{e\ 3171}#))) - (#{global-extend\ 378}# - 'core - 'case-lambda* - (lambda (#{e\ 3208}# - #{r\ 3209}# - #{w\ 3210}# - #{s\ 3211}# - #{mod\ 3212}#) - ((lambda (#{tmp\ 3218}#) - ((lambda (#{tmp\ 3219}#) - (if #{tmp\ 3219}# - (apply (lambda (#{_\ 3227}# - #{args\ 3228}# - #{e1\ 3229}# - #{e2\ 3230}# - #{args*\ 3231}# - #{e1*\ 3232}# - #{e2*\ 3233}#) - (call-with-values - (lambda () - (#{chi-lambda-case\ 491}# - #{e\ 3208}# - #{r\ 3209}# - #{w\ 3210}# - #{s\ 3211}# - #{mod\ 3212}# - #{lambda*-formals\ 489}# - (cons (cons #{args\ 3228}# - (cons #{e1\ 3229}# #{e2\ 3230}#)) - (map (lambda (#{tmp\ 3237}# - #{tmp\ 3236}# - #{tmp\ 3235}#) - (cons #{tmp\ 3235}# - (cons #{tmp\ 3236}# - #{tmp\ 3237}#))) - #{e2*\ 3233}# - #{e1*\ 3232}# - #{args*\ 3231}#)))) - (lambda (#{meta\ 3239}# #{lcase\ 3240}#) - (#{build-case-lambda\ 326}# - #{s\ 3211}# - #{meta\ 3239}# - #{lcase\ 3240}#)))) - #{tmp\ 3219}#) - ((lambda (#{_\ 3244}#) - (syntax-violation - 'case-lambda - "bad case-lambda*" - #{e\ 3208}#)) - #{tmp\ 3218}#))) - ($sc-dispatch - #{tmp\ 3218}# - '(any (any any . each-any) - . - #(each (any any . each-any)))))) - #{e\ 3208}#))) - (#{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}#) - #{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}# - #{s\ 3278}# - #{mod\ 3279}#) - ((lambda (#{tmp\ 3285}#) - ((lambda (#{tmp\ 3286}#) - (if (if #{tmp\ 3286}# - (apply (lambda (#{_\ 3292}# - #{id\ 3293}# - #{val\ 3294}# - #{e1\ 3295}# - #{e2\ 3296}#) - (and-map #{id?\ 382}# #{id\ 3293}#)) - #{tmp\ 3286}#) - #f) - (apply (lambda (#{_\ 3303}# - #{id\ 3304}# - #{val\ 3305}# - #{e1\ 3306}# - #{e2\ 3307}#) - (#{chi-let\ 3246}# - #{e\ 3275}# - #{r\ 3276}# - #{w\ 3277}# - #{s\ 3278}# - #{mod\ 3279}# - #{build-let\ 336}# - #{id\ 3304}# - #{val\ 3305}# - (cons #{e1\ 3306}# #{e2\ 3307}#))) - #{tmp\ 3286}#) - ((lambda (#{tmp\ 3311}#) - (if (if #{tmp\ 3311}# - (apply (lambda (#{_\ 3318}# - #{f\ 3319}# - #{id\ 3320}# - #{val\ 3321}# - #{e1\ 3322}# - #{e2\ 3323}#) - (if (#{id?\ 382}# #{f\ 3319}#) - (and-map #{id?\ 382}# #{id\ 3320}#) - #f)) - #{tmp\ 3311}#) - #f) - (apply (lambda (#{_\ 3333}# - #{f\ 3334}# - #{id\ 3335}# - #{val\ 3336}# - #{e1\ 3337}# - #{e2\ 3338}#) - (#{chi-let\ 3246}# - #{e\ 3275}# - #{r\ 3276}# - #{w\ 3277}# - #{s\ 3278}# - #{mod\ 3279}# - #{build-named-let\ 338}# - (cons #{f\ 3334}# #{id\ 3335}#) - #{val\ 3336}# - (cons #{e1\ 3337}# #{e2\ 3338}#))) - #{tmp\ 3311}#) - ((lambda (#{_\ 3343}#) - (syntax-violation - 'let - "bad let" - (#{source-wrap\ 453}# - #{e\ 3275}# - #{w\ 3277}# - #{s\ 3278}# - #{mod\ 3279}#))) - #{tmp\ 3285}#))) - ($sc-dispatch - #{tmp\ 3285}# - '(any any #(each (any any)) any . each-any))))) - ($sc-dispatch - #{tmp\ 3285}# - '(any #(each (any any)) any . each-any)))) - #{e\ 3275}#)))) - (#{global-extend\ 378}# - 'core - 'letrec - (lambda (#{e\ 3344}# - #{r\ 3345}# - #{w\ 3346}# - #{s\ 3347}# - #{mod\ 3348}#) - ((lambda (#{tmp\ 3354}#) - ((lambda (#{tmp\ 3355}#) - (if (if #{tmp\ 3355}# - (apply (lambda (#{_\ 3361}# - #{id\ 3362}# - #{val\ 3363}# - #{e1\ 3364}# - #{e2\ 3365}#) - (and-map #{id?\ 382}# #{id\ 3362}#)) - #{tmp\ 3355}#) - #f) - (apply (lambda (#{_\ 3372}# - #{id\ 3373}# - #{val\ 3374}# - #{e1\ 3375}# - #{e2\ 3376}#) - (let ((#{ids\ 3378}# #{id\ 3373}#)) - (if (not (#{valid-bound-ids?\ 445}# - #{ids\ 3378}#)) - (syntax-violation - 'letrec - "duplicate bound variable" - #{e\ 3344}#) - (let ((#{labels\ 3382}# - (#{gen-labels\ 400}# #{ids\ 3378}#)) - (#{new-vars\ 3383}# - (map #{gen-var\ 495}# #{ids\ 3378}#))) - (let ((#{w\ 3386}# - (#{make-binding-wrap\ 429}# - #{ids\ 3378}# - #{labels\ 3382}# - #{w\ 3346}#)) - (#{r\ 3387}# - (#{extend-var-env\ 372}# - #{labels\ 3382}# - #{new-vars\ 3383}# - #{r\ 3345}#))) - (#{build-letrec\ 340}# - #{s\ 3347}# - #f - (map syntax->datum #{ids\ 3378}#) - #{new-vars\ 3383}# - (map (lambda (#{x\ 3388}#) - (#{chi\ 467}# - #{x\ 3388}# - #{r\ 3387}# - #{w\ 3386}# - #{mod\ 3348}#)) - #{val\ 3374}#) - (#{chi-body\ 475}# - (cons #{e1\ 3375}# #{e2\ 3376}#) - (#{source-wrap\ 453}# - #{e\ 3344}# - #{w\ 3386}# - #{s\ 3347}# - #{mod\ 3348}#) - #{r\ 3387}# - #{w\ 3386}# - #{mod\ 3348}#))))))) - #{tmp\ 3355}#) - ((lambda (#{_\ 3393}#) - (syntax-violation - 'letrec - "bad letrec" - (#{source-wrap\ 453}# - #{e\ 3344}# - #{w\ 3346}# - #{s\ 3347}# - #{mod\ 3348}#))) - #{tmp\ 3354}#))) - ($sc-dispatch - #{tmp\ 3354}# - '(any #(each (any any)) any . each-any)))) - #{e\ 3344}#))) - (#{global-extend\ 378}# - 'core - 'letrec* - (lambda (#{e\ 3394}# - #{r\ 3395}# - #{w\ 3396}# - #{s\ 3397}# - #{mod\ 3398}#) - ((lambda (#{tmp\ 3404}#) - ((lambda (#{tmp\ 3405}#) - (if (if #{tmp\ 3405}# - (apply (lambda (#{_\ 3411}# - #{id\ 3412}# - #{val\ 3413}# - #{e1\ 3414}# - #{e2\ 3415}#) - (and-map #{id?\ 382}# #{id\ 3412}#)) - #{tmp\ 3405}#) - #f) - (apply (lambda (#{_\ 3422}# - #{id\ 3423}# - #{val\ 3424}# - #{e1\ 3425}# - #{e2\ 3426}#) - (let ((#{ids\ 3428}# #{id\ 3423}#)) - (if (not (#{valid-bound-ids?\ 445}# - #{ids\ 3428}#)) - (syntax-violation - 'letrec* - "duplicate bound variable" - #{e\ 3394}#) - (let ((#{labels\ 3432}# - (#{gen-labels\ 400}# #{ids\ 3428}#)) - (#{new-vars\ 3433}# - (map #{gen-var\ 495}# #{ids\ 3428}#))) - (let ((#{w\ 3436}# - (#{make-binding-wrap\ 429}# - #{ids\ 3428}# - #{labels\ 3432}# - #{w\ 3396}#)) - (#{r\ 3437}# - (#{extend-var-env\ 372}# - #{labels\ 3432}# - #{new-vars\ 3433}# - #{r\ 3395}#))) - (#{build-letrec\ 340}# - #{s\ 3397}# - #t - (map syntax->datum #{ids\ 3428}#) - #{new-vars\ 3433}# - (map (lambda (#{x\ 3438}#) - (#{chi\ 467}# - #{x\ 3438}# - #{r\ 3437}# - #{w\ 3436}# - #{mod\ 3398}#)) - #{val\ 3424}#) - (#{chi-body\ 475}# - (cons #{e1\ 3425}# #{e2\ 3426}#) - (#{source-wrap\ 453}# - #{e\ 3394}# - #{w\ 3436}# - #{s\ 3397}# - #{mod\ 3398}#) - #{r\ 3437}# - #{w\ 3436}# - #{mod\ 3398}#))))))) - #{tmp\ 3405}#) - ((lambda (#{_\ 3443}#) - (syntax-violation - 'letrec* - "bad letrec*" - (#{source-wrap\ 453}# - #{e\ 3394}# - #{w\ 3396}# - #{s\ 3397}# - #{mod\ 3398}#))) - #{tmp\ 3404}#))) - ($sc-dispatch - #{tmp\ 3404}# - '(any #(each (any any)) any . each-any)))) - #{e\ 3394}#))) - (#{global-extend\ 378}# - 'core - 'set! - (lambda (#{e\ 3444}# - #{r\ 3445}# - #{w\ 3446}# - #{s\ 3447}# - #{mod\ 3448}#) - ((lambda (#{tmp\ 3454}#) - ((lambda (#{tmp\ 3455}#) - (if (if #{tmp\ 3455}# - (apply (lambda (#{_\ 3459}# #{id\ 3460}# #{val\ 3461}#) - (#{id?\ 382}# #{id\ 3460}#)) - #{tmp\ 3455}#) - #f) - (apply (lambda (#{_\ 3465}# #{id\ 3466}# #{val\ 3467}#) - (let ((#{val\ 3470}# - (#{chi\ 467}# - #{val\ 3467}# - #{r\ 3445}# - #{w\ 3446}# - #{mod\ 3448}#)) - (#{n\ 3471}# - (#{id-var-name\ 439}# - #{id\ 3466}# - #{w\ 3446}#))) - (let ((#{b\ 3473}# - (#{lookup\ 376}# - #{n\ 3471}# - #{r\ 3445}# - #{mod\ 3448}#))) - (let ((#{atom-key\ 3476}# - (#{binding-type\ 365}# #{b\ 3473}#))) - (if (memv #{atom-key\ 3476}# - '(lexical)) - (#{build-lexical-assignment\ 312}# - #{s\ 3447}# - (syntax->datum #{id\ 3466}#) - (#{binding-value\ 367}# #{b\ 3473}#) - #{val\ 3470}#) - (if (memv #{atom-key\ 3476}# - '(global)) - (#{build-global-assignment\ 318}# - #{s\ 3447}# - #{n\ 3471}# - #{val\ 3470}# - #{mod\ 3448}#) - (if (memv #{atom-key\ 3476}# - '(displaced-lexical)) - (syntax-violation - 'set! - "identifier out of context" - (#{wrap\ 451}# - #{id\ 3466}# - #{w\ 3446}# - #{mod\ 3448}#)) - (syntax-violation - 'set! - "bad set!" - (#{source-wrap\ 453}# - #{e\ 3444}# - #{w\ 3446}# - #{s\ 3447}# - #{mod\ 3448}#))))))))) - #{tmp\ 3455}#) - ((lambda (#{tmp\ 3481}#) - (if #{tmp\ 3481}# - (apply (lambda (#{_\ 3486}# - #{head\ 3487}# - #{tail\ 3488}# - #{val\ 3489}#) - (call-with-values - (lambda () - (#{syntax-type\ 463}# - #{head\ 3487}# - #{r\ 3445}# - '(()) - #f - #f - #{mod\ 3448}# - #t)) - (lambda (#{type\ 3492}# - #{value\ 3493}# - #{ee\ 3494}# - #{ww\ 3495}# - #{ss\ 3496}# - #{modmod\ 3497}#) - (if (memv #{type\ 3492}# - '(module-ref)) - (let ((#{val\ 3506}# - (#{chi\ 467}# - #{val\ 3489}# - #{r\ 3445}# - #{w\ 3446}# - #{mod\ 3448}#))) - (call-with-values - (lambda () - (#{value\ 3493}# - (cons #{head\ 3487}# - #{tail\ 3488}#) - #{r\ 3445}# - #{w\ 3446}#)) - (lambda (#{e\ 3508}# - #{r\ 3509}# - #{w\ 3510}# - #{s*\ 3511}# - #{mod\ 3512}#) - ((lambda (#{tmp\ 3518}#) - ((lambda (#{tmp\ 3519}#) - (if (if #{tmp\ 3519}# - (apply (lambda (#{e\ 3521}#) - (#{id?\ 382}# - #{e\ 3521}#)) - #{tmp\ 3519}#) - #f) - (apply (lambda (#{e\ 3523}#) - (#{build-global-assignment\ 318}# - #{s\ 3447}# - (syntax->datum - #{e\ 3523}#) - #{val\ 3506}# - #{mod\ 3512}#)) - #{tmp\ 3519}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 3518}#))) - (list #{tmp\ 3518}#))) - #{e\ 3508}#)))) - (#{build-application\ 304}# - #{s\ 3447}# - (#{chi\ 467}# - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type - value - ee - ww - ss - modmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i3498" - "i3499" - "i3500" - "i3501" - "i3502" - "i3503")) - #(ribcage - #(_ head tail val) - #((top) - (top) - (top) - (top)) - #("i3482" - "i3483" - "i3484" - "i3485")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3449" - "i3450" - "i3451" - "i3452" - "i3453")) - #(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)) - #{head\ 3487}#) - #{r\ 3445}# - #{w\ 3446}# - #{mod\ 3448}#) - (map (lambda (#{e\ 3525}#) - (#{chi\ 467}# - #{e\ 3525}# - #{r\ 3445}# - #{w\ 3446}# - #{mod\ 3448}#)) - (append - #{tail\ 3488}# - (list #{val\ 3489}#)))))))) - #{tmp\ 3481}#) - ((lambda (#{_\ 3529}#) - (syntax-violation - 'set! - "bad set!" - (#{source-wrap\ 453}# - #{e\ 3444}# - #{w\ 3446}# - #{s\ 3447}# - #{mod\ 3448}#))) - #{tmp\ 3454}#))) - ($sc-dispatch - #{tmp\ 3454}# - '(any (any . each-any) any))))) - ($sc-dispatch - #{tmp\ 3454}# - '(any any any)))) - #{e\ 3444}#))) - (#{global-extend\ 378}# - 'module-ref - '@ - (lambda (#{e\ 3530}# #{r\ 3531}# #{w\ 3532}#) - ((lambda (#{tmp\ 3536}#) - ((lambda (#{tmp\ 3537}#) - (if (if #{tmp\ 3537}# - (apply (lambda (#{_\ 3541}# #{mod\ 3542}# #{id\ 3543}#) - (if (and-map #{id?\ 382}# #{mod\ 3542}#) - (#{id?\ 382}# #{id\ 3543}#) - #f)) - #{tmp\ 3537}#) - #f) - (apply (lambda (#{_\ 3550}# #{mod\ 3551}# #{id\ 3552}#) - (values - (syntax->datum #{id\ 3552}#) - #{r\ 3531}# - #{w\ 3532}# - #f - (syntax->datum - (cons '#(syntax-object - public - ((top) - #(ribcage - #(_ mod id) - #((top) (top) (top)) - #("i3547" "i3548" "i3549")) - #(ribcage () () ()) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3533" "i3534" "i3535")) - #(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)) - #{mod\ 3551}#)))) - #{tmp\ 3537}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 3536}#))) - ($sc-dispatch - #{tmp\ 3536}# - '(any each-any any)))) - #{e\ 3530}#))) - (#{global-extend\ 378}# - '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}#)))))) - ((lambda (#{tmp\ 3584}#) - ((lambda (#{tmp\ 3585}#) - (if (if #{tmp\ 3585}# - (apply (lambda (#{_\ 3589}# - #{mod\ 3590}# - #{exp\ 3591}#) - (and-map #{id?\ 382}# #{mod\ 3590}#)) - #{tmp\ 3585}#) - #f) - (apply (lambda (#{_\ 3596}# #{mod\ 3597}# #{exp\ 3598}#) - (let ((#{mod\ 3600}# - (syntax->datum - (cons '#(syntax-object - private - ((top) - #(ribcage - #(_ mod exp) - #((top) (top) (top)) - #("i3593" "i3594" "i3595")) - #(ribcage - (remodulate) - ((top)) - ("i3560")) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3557" "i3558" "i3559")) - #(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)) - #{mod\ 3597}#)))) - (values - (#{remodulate\ 3561}# - #{exp\ 3598}# - #{mod\ 3600}#) - #{r\ 3555}# - #{w\ 3556}# - (#{source-annotation\ 361}# #{exp\ 3598}#) - #{mod\ 3600}#))) - #{tmp\ 3585}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 3584}#))) - ($sc-dispatch - #{tmp\ 3584}# - '(any each-any any)))) - #{e\ 3554}#)))) - (#{global-extend\ 378}# - 'core - 'if - (lambda (#{e\ 3602}# - #{r\ 3603}# - #{w\ 3604}# - #{s\ 3605}# - #{mod\ 3606}#) - ((lambda (#{tmp\ 3612}#) - ((lambda (#{tmp\ 3613}#) - (if #{tmp\ 3613}# - (apply (lambda (#{_\ 3617}# #{test\ 3618}# #{then\ 3619}#) - (#{build-conditional\ 306}# - #{s\ 3605}# - (#{chi\ 467}# - #{test\ 3618}# - #{r\ 3603}# - #{w\ 3604}# - #{mod\ 3606}#) - (#{chi\ 467}# - #{then\ 3619}# - #{r\ 3603}# - #{w\ 3604}# - #{mod\ 3606}#) - (#{build-void\ 302}# #f))) - #{tmp\ 3613}#) - ((lambda (#{tmp\ 3621}#) - (if #{tmp\ 3621}# - (apply (lambda (#{_\ 3626}# - #{test\ 3627}# - #{then\ 3628}# - #{else\ 3629}#) - (#{build-conditional\ 306}# - #{s\ 3605}# - (#{chi\ 467}# - #{test\ 3627}# - #{r\ 3603}# - #{w\ 3604}# - #{mod\ 3606}#) - (#{chi\ 467}# - #{then\ 3628}# - #{r\ 3603}# - #{w\ 3604}# - #{mod\ 3606}#) - (#{chi\ 467}# - #{else\ 3629}# - #{r\ 3603}# - #{w\ 3604}# - #{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 - '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 - (#{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 - ((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 (quote list)) - (list #{x\ 3709}#)) - (#{build-application\ 304}# - #f - (#{build-primref\ 330}# - #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}#) + (#{gen-map\ 2842}# + #{x\ 3002}# + (car #{maps\ 3003}#)) + (cdr #{maps\ 3003}#)))))))))) + #{tmp\ 2981}#) + (let ((#{tmp\ 3032}# + ($sc-dispatch + #{tmp\ 2969}# + '(any . any)))) + (if #{tmp\ 3032}# + (@apply + (lambda (#{x\ 3035}# #{y\ 3036}#) (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}# - #{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}# - #{s\ 3876}# - #{mod\ 3877}#) - (let ((#{e\ 3884}# - (#{source-wrap\ 453}# - #{e\ 3873}# - #{w\ 3875}# - #{s\ 3876}# - #{mod\ 3877}#))) - ((lambda (#{tmp\ 3885}#) - ((lambda (#{tmp\ 3886}#) - (if #{tmp\ 3886}# - (apply (lambda (#{_\ 3891}# - #{val\ 3892}# - #{key\ 3893}# - #{m\ 3894}#) - (if (and-map - (lambda (#{x\ 3895}#) - (if (#{id?\ 382}# #{x\ 3895}#) - (not (#{ellipsis?\ 483}# #{x\ 3895}#)) - #f)) - #{key\ 3893}#) - (let ((#{x\ 3901}# - (#{gen-var\ 495}# (quote tmp)))) - (#{build-application\ 304}# - #{s\ 3876}# - (#{build-simple-lambda\ 324}# - #f - (list (quote tmp)) - #f - (list #{x\ 3901}#) - '() - (#{gen-syntax-case\ 3666}# - (#{build-lexical-reference\ 310}# - 'value - #f - 'tmp - #{x\ 3901}#) - #{key\ 3893}# - #{m\ 3894}# - #{r\ 3874}# - #{mod\ 3877}#)) - (list (#{chi\ 467}# - #{val\ 3892}# - #{r\ 3874}# - '(()) - #{mod\ 3877}#)))) - (syntax-violation - 'syntax-case - "invalid literals list" - #{e\ 3884}#))) - #{tmp\ 3886}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 3885}#))) - ($sc-dispatch - #{tmp\ 3885}# - '(any any each-any . each-any)))) - #{e\ 3884}#))))) - (set! macroexpand - (lambda* - (#{x\ 3907}# - #:optional - (#{m\ 3909}# (quote e)) - (#{esew\ 3911}# (quote (eval)))) - (#{chi-top\ 465}# - #{x\ 3907}# - '() - '((top)) - #{m\ 3909}# - #{esew\ 3911}# - (cons 'hygiene - (module-name (current-module)))))) - (set! identifier? - (lambda (#{x\ 3915}#) - (#{nonsymbol-id?\ 380}# #{x\ 3915}#))) - (set! datum->syntax - (lambda (#{id\ 3917}# #{datum\ 3918}#) - (#{make-syntax-object\ 344}# - #{datum\ 3918}# - (#{syntax-object-wrap\ 350}# #{id\ 3917}#) - (#{syntax-object-module\ 352}# #{id\ 3917}#)))) - (set! syntax->datum - (lambda (#{x\ 3921}#) - (#{strip\ 493}# #{x\ 3921}# (quote (()))))) - (set! syntax-source - (lambda (#{x\ 3924}#) - (#{source-annotation\ 361}# #{x\ 3924}#))) - (set! generate-temporaries - (lambda (#{ls\ 3926}#) - (begin - (let ((#{x\ 3930}# #{ls\ 3926}#)) - (if (not (list? #{x\ 3930}#)) - (syntax-violation - 'generate-temporaries - "invalid argument" - #{x\ 3930}#))) - (map (lambda (#{x\ 3931}#) - (#{wrap\ 451}# (gensym) (quote ((top))) #f)) - #{ls\ 3926}#)))) - (set! free-identifier=? - (lambda (#{x\ 3935}# #{y\ 3936}#) - (begin - (let ((#{x\ 3941}# #{x\ 3935}#)) - (if (not (#{nonsymbol-id?\ 380}# #{x\ 3941}#)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{x\ 3941}#))) - (let ((#{x\ 3944}# #{y\ 3936}#)) - (if (not (#{nonsymbol-id?\ 380}# #{x\ 3944}#)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{x\ 3944}#))) - (#{free-id=?\ 441}# #{x\ 3935}# #{y\ 3936}#)))) - (set! bound-identifier=? - (lambda (#{x\ 3945}# #{y\ 3946}#) - (begin - (let ((#{x\ 3951}# #{x\ 3945}#)) - (if (not (#{nonsymbol-id?\ 380}# #{x\ 3951}#)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{x\ 3951}#))) - (let ((#{x\ 3954}# #{y\ 3946}#)) - (if (not (#{nonsymbol-id?\ 380}# #{x\ 3954}#)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{x\ 3954}#))) - (#{bound-id=?\ 443}# #{x\ 3945}# #{y\ 3946}#)))) - (set! syntax-violation - (lambda (#{who\ 3955}# - #{message\ 3956}# - #{form\ 3957}# - . - #{subform\ 3958}#) - (begin - (let ((#{x\ 3965}# #{who\ 3955}#)) - (if (not ((lambda (#{x\ 3966}#) - (let ((#{t\ 3970}# (not #{x\ 3966}#))) - (if #{t\ 3970}# - #{t\ 3970}# - (let ((#{t\ 3973}# (string? #{x\ 3966}#))) - (if #{t\ 3973}# - #{t\ 3973}# - (symbol? #{x\ 3966}#)))))) - #{x\ 3965}#)) - (syntax-violation - 'syntax-violation - "invalid argument" - #{x\ 3965}#))) - (let ((#{x\ 3977}# #{message\ 3956}#)) - (if (not (string? #{x\ 3977}#)) - (syntax-violation - 'syntax-violation - "invalid argument" - #{x\ 3977}#))) - (scm-error - 'syntax-error - 'macroexpand - (string-append - (if #{who\ 3955}# "~a: " "") - "~a " - (if (null? #{subform\ 3958}#) - "in ~a" - "in subform `~s' of `~s'")) - (let ((#{tail\ 3979}# - (cons #{message\ 3956}# - (map (lambda (#{x\ 3980}#) - (#{strip\ 493}# #{x\ 3980}# (quote (())))) - (append - #{subform\ 3958}# - (list #{form\ 3957}#)))))) - (if #{who\ 3955}# - (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}#) - #{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}# - #{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}# - (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) - #{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}# (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}# - (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}# (quote (free-id atom))) - #{r\ 4076}# - (if (memv #{atom-key\ 4090}# (quote (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}#)) - #{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}#) - (#{match\ 3996}# - (car #{e\ 4130}#) - (car #{y-pat\ 4135}#) - #{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}#)) - (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}# - #{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)) - (list #{e\ 4168}#) - (if (#{syntax-object?\ 346}# #{e\ 4168}#) - (#{match*\ 3994}# - (#{syntax-object-expression\ 348}# #{e\ 4168}#) - #{p\ 4169}# - (#{syntax-object-wrap\ 350}# #{e\ 4168}#) - '() - (#{syntax-object-module\ 352}# #{e\ 4168}#)) - (#{match*\ 3994}# - #{e\ 4168}# - #{p\ 4169}# - '(()) - '() - #f))))))))) - -(define with-syntax - (make-syntax-transformer - 'with-syntax - 'macro - (lambda (#{x\ 4178}#) - ((lambda (#{tmp\ 4180}#) - ((lambda (#{tmp\ 4181}#) - (if #{tmp\ 4181}# - (apply (lambda (#{_\ 4185}# #{e1\ 4186}# #{e2\ 4187}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(_ e1 e2) - #((top) (top) (top)) - #("i4182" "i4183" "i4184")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4179"))) - (hygiene guile)) - (cons #{e1\ 4186}# #{e2\ 4187}#))) - #{tmp\ 4181}#) - ((lambda (#{tmp\ 4189}#) - (if #{tmp\ 4189}# - (apply (lambda (#{_\ 4195}# - #{out\ 4196}# - #{in\ 4197}# - #{e1\ 4198}# - #{e2\ 4199}#) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(_ out in e1 e2) - #((top) (top) (top) (top) (top)) - #("i4190" - "i4191" - "i4192" - "i4193" - "i4194")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4179"))) - (hygiene guile)) - #{in\ 4197}# - '() - (list #{out\ 4196}# - (cons '#(syntax-object - begin + (#{gen-syntax\ 2836}# + #{src\ 2944}# + #{x\ 3035}# + #{r\ 2946}# + #{maps\ 2947}# + #{ellipsis?\ 2948}# + #{mod\ 2949}#)) + (lambda (#{x\ 3037}# #{maps\ 3038}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2836}# + #{src\ 2944}# + #{y\ 3036}# + #{r\ 2946}# + #{maps\ 3038}# + #{ellipsis?\ 2948}# + #{mod\ 2949}#)) + (lambda (#{y\ 3041}# + #{maps\ 3042}#) + (values + (#{gen-cons\ 2844}# + #{x\ 3037}# + #{y\ 3041}#) + #{maps\ 3042}#)))))) + #{tmp\ 3032}#) + (let ((#{tmp\ 3045}# + ($sc-dispatch + #{tmp\ 2969}# + '#(vector (any . each-any))))) + (if #{tmp\ 3045}# + (@apply + (lambda (#{e1\ 3048}# #{e2\ 3049}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2836}# + #{src\ 2944}# + (cons #{e1\ 3048}# + #{e2\ 3049}#) + #{r\ 2946}# + #{maps\ 2947}# + #{ellipsis?\ 2948}# + #{mod\ 2949}#)) + (lambda (#{e\ 3051}# + #{maps\ 3052}#) + (values + (#{gen-vector\ 2848}# + #{e\ 3051}#) + #{maps\ 3052}#)))) + #{tmp\ 3045}#) + (let ((#{_\ 3056}# #{tmp\ 2969}#)) + (values + (list (quote quote) #{e\ 2945}#) + #{maps\ 2947}#))))))))))))))) + (begin + (lambda (#{e\ 3058}# + #{r\ 3059}# + #{w\ 3060}# + #{s\ 3061}# + #{mod\ 3062}#) + (begin + (let ((#{e\ 3069}# + (#{source-wrap\ 458}# + #{e\ 3058}# + #{w\ 3060}# + #{s\ 3061}# + #{mod\ 3062}#))) + (let ((#{tmp\ 3070}# #{e\ 3069}#)) + (let ((#{tmp\ 3071}# + ($sc-dispatch + #{tmp\ 3070}# + '(any any)))) + (if #{tmp\ 3071}# + (@apply + (lambda (#{_\ 3074}# #{x\ 3075}#) + (call-with-values + (lambda () + (#{gen-syntax\ 2836}# + #{e\ 3069}# + #{x\ 3075}# + #{r\ 3059}# + '() + #{ellipsis?\ 488}# + #{mod\ 3062}#)) + (lambda (#{e\ 3076}# #{maps\ 3077}#) + (#{regen\ 2850}# #{e\ 3076}#)))) + #{tmp\ 3071}#) + (let ((#{_\ 3081}# #{tmp\ 3070}#)) + (syntax-violation + 'syntax + "bad `syntax' form" + #{e\ 3069}#))))))))))) + (#{global-extend\ 383}# + 'core + 'lambda + (lambda (#{e\ 3082}# + #{r\ 3083}# + #{w\ 3084}# + #{s\ 3085}# + #{mod\ 3086}#) + (let ((#{tmp\ 3092}# #{e\ 3082}#)) + (let ((#{tmp\ 3093}# + ($sc-dispatch + #{tmp\ 3092}# + '(any any any . each-any)))) + (if #{tmp\ 3093}# + (@apply + (lambda (#{_\ 3098}# + #{args\ 3099}# + #{e1\ 3100}# + #{e2\ 3101}#) + (call-with-values + (lambda () + (#{lambda-formals\ 490}# #{args\ 3099}#)) + (lambda (#{req\ 3102}# + #{opt\ 3103}# + #{rest\ 3104}# + #{kw\ 3105}#) + (letrec* + ((#{lp\ 3113}# + (lambda (#{body\ 3114}# #{meta\ 3115}#) + (let ((#{tmp\ 3117}# #{body\ 3114}#)) + (let ((#{tmp\ 3118}# + ($sc-dispatch + #{tmp\ 3117}# + '(any any . each-any)))) + (if (if #{tmp\ 3118}# + (@apply + (lambda (#{docstring\ 3122}# + #{e1\ 3123}# + #{e2\ 3124}#) + (string? + (syntax->datum + #{docstring\ 3122}#))) + #{tmp\ 3118}#) + #f) + (@apply + (lambda (#{docstring\ 3128}# + #{e1\ 3129}# + #{e2\ 3130}#) + (#{lp\ 3113}# + (cons #{e1\ 3129}# + #{e2\ 3130}#) + (append + #{meta\ 3115}# + (list (cons 'documentation + (syntax->datum + #{docstring\ 3128}#)))))) + #{tmp\ 3118}#) + (let ((#{tmp\ 3133}# + ($sc-dispatch + #{tmp\ 3117}# + '(#(vector + #(each (any . any))) + any + . + each-any)))) + (if #{tmp\ 3133}# + (@apply + (lambda (#{k\ 3138}# + #{v\ 3139}# + #{e1\ 3140}# + #{e2\ 3141}#) + (#{lp\ 3113}# + (cons #{e1\ 3140}# + #{e2\ 3141}#) + (append + #{meta\ 3115}# + (syntax->datum + (map cons + #{k\ 3138}# + #{v\ 3139}#))))) + #{tmp\ 3133}#) + (let ((#{_\ 3146}# + #{tmp\ 3117}#)) + (#{chi-simple-lambda\ 492}# + #{e\ 3082}# + #{r\ 3083}# + #{w\ 3084}# + #{s\ 3085}# + #{mod\ 3086}# + #{req\ 3102}# + #{rest\ 3104}# + #{meta\ 3115}# + #{body\ 3114}#)))))))))) + (begin + (#{lp\ 3113}# + (cons #{e1\ 3100}# #{e2\ 3101}#) + '())))))) + #{tmp\ 3093}#) + (let ((#{_\ 3148}# #{tmp\ 3092}#)) + (syntax-violation + 'lambda + "bad lambda" + #{e\ 3082}#))))))) + (#{global-extend\ 383}# + 'core + 'lambda* + (lambda (#{e\ 3149}# + #{r\ 3150}# + #{w\ 3151}# + #{s\ 3152}# + #{mod\ 3153}#) + (let ((#{tmp\ 3159}# #{e\ 3149}#)) + (let ((#{tmp\ 3160}# + ($sc-dispatch + #{tmp\ 3159}# + '(any any any . each-any)))) + (if #{tmp\ 3160}# + (@apply + (lambda (#{_\ 3165}# + #{args\ 3166}# + #{e1\ 3167}# + #{e2\ 3168}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 496}# + #{e\ 3149}# + #{r\ 3150}# + #{w\ 3151}# + #{s\ 3152}# + #{mod\ 3153}# + #{lambda*-formals\ 494}# + (list (cons #{args\ 3166}# + (cons #{e1\ 3167}# + #{e2\ 3168}#))))) + (lambda (#{meta\ 3170}# #{lcase\ 3171}#) + (#{build-case-lambda\ 331}# + #{s\ 3152}# + #{meta\ 3170}# + #{lcase\ 3171}#)))) + #{tmp\ 3160}#) + (let ((#{_\ 3175}# #{tmp\ 3159}#)) + (syntax-violation + 'lambda + "bad lambda*" + #{e\ 3149}#))))))) + (#{global-extend\ 383}# + 'core + 'case-lambda + (lambda (#{e\ 3176}# + #{r\ 3177}# + #{w\ 3178}# + #{s\ 3179}# + #{mod\ 3180}#) + (let ((#{tmp\ 3186}# #{e\ 3176}#)) + (let ((#{tmp\ 3187}# + ($sc-dispatch + #{tmp\ 3186}# + '(any (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp\ 3187}# + (@apply + (lambda (#{_\ 3195}# + #{args\ 3196}# + #{e1\ 3197}# + #{e2\ 3198}# + #{args*\ 3199}# + #{e1*\ 3200}# + #{e2*\ 3201}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 496}# + #{e\ 3176}# + #{r\ 3177}# + #{w\ 3178}# + #{s\ 3179}# + #{mod\ 3180}# + #{lambda-formals\ 490}# + (cons (cons #{args\ 3196}# + (cons #{e1\ 3197}# #{e2\ 3198}#)) + (map (lambda (#{tmp\ 3205}# + #{tmp\ 3204}# + #{tmp\ 3203}#) + (cons #{tmp\ 3203}# + (cons #{tmp\ 3204}# + #{tmp\ 3205}#))) + #{e2*\ 3201}# + #{e1*\ 3200}# + #{args*\ 3199}#)))) + (lambda (#{meta\ 3207}# #{lcase\ 3208}#) + (#{build-case-lambda\ 331}# + #{s\ 3179}# + #{meta\ 3207}# + #{lcase\ 3208}#)))) + #{tmp\ 3187}#) + (let ((#{_\ 3212}# #{tmp\ 3186}#)) + (syntax-violation + 'case-lambda + "bad case-lambda" + #{e\ 3176}#))))))) + (#{global-extend\ 383}# + 'core + 'case-lambda* + (lambda (#{e\ 3213}# + #{r\ 3214}# + #{w\ 3215}# + #{s\ 3216}# + #{mod\ 3217}#) + (let ((#{tmp\ 3223}# #{e\ 3213}#)) + (let ((#{tmp\ 3224}# + ($sc-dispatch + #{tmp\ 3223}# + '(any (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp\ 3224}# + (@apply + (lambda (#{_\ 3232}# + #{args\ 3233}# + #{e1\ 3234}# + #{e2\ 3235}# + #{args*\ 3236}# + #{e1*\ 3237}# + #{e2*\ 3238}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 496}# + #{e\ 3213}# + #{r\ 3214}# + #{w\ 3215}# + #{s\ 3216}# + #{mod\ 3217}# + #{lambda*-formals\ 494}# + (cons (cons #{args\ 3233}# + (cons #{e1\ 3234}# #{e2\ 3235}#)) + (map (lambda (#{tmp\ 3242}# + #{tmp\ 3241}# + #{tmp\ 3240}#) + (cons #{tmp\ 3240}# + (cons #{tmp\ 3241}# + #{tmp\ 3242}#))) + #{e2*\ 3238}# + #{e1*\ 3237}# + #{args*\ 3236}#)))) + (lambda (#{meta\ 3244}# #{lcase\ 3245}#) + (#{build-case-lambda\ 331}# + #{s\ 3216}# + #{meta\ 3244}# + #{lcase\ 3245}#)))) + #{tmp\ 3224}#) + (let ((#{_\ 3249}# #{tmp\ 3223}#)) + (syntax-violation + 'case-lambda + "bad case-lambda*" + #{e\ 3213}#))))))) + (#{global-extend\ 383}# + 'core + 'let + (letrec* + ((#{chi-let\ 3251}# + (lambda (#{e\ 3252}# + #{r\ 3253}# + #{w\ 3254}# + #{s\ 3255}# + #{mod\ 3256}# + #{constructor\ 3257}# + #{ids\ 3258}# + #{vals\ 3259}# + #{exps\ 3260}#) + (if (not (#{valid-bound-ids?\ 450}# #{ids\ 3258}#)) + (syntax-violation + 'let + "duplicate bound variable" + #{e\ 3252}#) + (begin + (let ((#{labels\ 3272}# + (#{gen-labels\ 405}# #{ids\ 3258}#)) + (#{new-vars\ 3273}# + (map #{gen-var\ 500}# #{ids\ 3258}#))) + (begin + (let ((#{nw\ 3276}# + (#{make-binding-wrap\ 434}# + #{ids\ 3258}# + #{labels\ 3272}# + #{w\ 3254}#)) + (#{nr\ 3277}# + (#{extend-var-env\ 377}# + #{labels\ 3272}# + #{new-vars\ 3273}# + #{r\ 3253}#))) + (#{constructor\ 3257}# + #{s\ 3255}# + (map syntax->datum #{ids\ 3258}#) + #{new-vars\ 3273}# + (map (lambda (#{x\ 3278}#) + (#{chi\ 472}# + #{x\ 3278}# + #{r\ 3253}# + #{w\ 3254}# + #{mod\ 3256}#)) + #{vals\ 3259}#) + (#{chi-body\ 480}# + #{exps\ 3260}# + (#{source-wrap\ 458}# + #{e\ 3252}# + #{nw\ 3276}# + #{s\ 3255}# + #{mod\ 3256}#) + #{nr\ 3277}# + #{nw\ 3276}# + #{mod\ 3256}#)))))))))) + (begin + (lambda (#{e\ 3280}# + #{r\ 3281}# + #{w\ 3282}# + #{s\ 3283}# + #{mod\ 3284}#) + (let ((#{tmp\ 3290}# #{e\ 3280}#)) + (let ((#{tmp\ 3291}# + ($sc-dispatch + #{tmp\ 3290}# + '(any #(each (any any)) any . each-any)))) + (if (if #{tmp\ 3291}# + (@apply + (lambda (#{_\ 3297}# + #{id\ 3298}# + #{val\ 3299}# + #{e1\ 3300}# + #{e2\ 3301}#) + (and-map #{id?\ 387}# #{id\ 3298}#)) + #{tmp\ 3291}#) + #f) + (@apply + (lambda (#{_\ 3308}# + #{id\ 3309}# + #{val\ 3310}# + #{e1\ 3311}# + #{e2\ 3312}#) + (#{chi-let\ 3251}# + #{e\ 3280}# + #{r\ 3281}# + #{w\ 3282}# + #{s\ 3283}# + #{mod\ 3284}# + #{build-let\ 341}# + #{id\ 3309}# + #{val\ 3310}# + (cons #{e1\ 3311}# #{e2\ 3312}#))) + #{tmp\ 3291}#) + (let ((#{tmp\ 3316}# + ($sc-dispatch + #{tmp\ 3290}# + '(any any + #(each (any any)) + any + . + each-any)))) + (if (if #{tmp\ 3316}# + (@apply + (lambda (#{_\ 3323}# + #{f\ 3324}# + #{id\ 3325}# + #{val\ 3326}# + #{e1\ 3327}# + #{e2\ 3328}#) + (if (#{id?\ 387}# #{f\ 3324}#) + (and-map #{id?\ 387}# #{id\ 3325}#) + #f)) + #{tmp\ 3316}#) + #f) + (@apply + (lambda (#{_\ 3338}# + #{f\ 3339}# + #{id\ 3340}# + #{val\ 3341}# + #{e1\ 3342}# + #{e2\ 3343}#) + (#{chi-let\ 3251}# + #{e\ 3280}# + #{r\ 3281}# + #{w\ 3282}# + #{s\ 3283}# + #{mod\ 3284}# + #{build-named-let\ 343}# + (cons #{f\ 3339}# #{id\ 3340}#) + #{val\ 3341}# + (cons #{e1\ 3342}# #{e2\ 3343}#))) + #{tmp\ 3316}#) + (let ((#{_\ 3348}# #{tmp\ 3290}#)) + (syntax-violation + 'let + "bad let" + (#{source-wrap\ 458}# + #{e\ 3280}# + #{w\ 3282}# + #{s\ 3283}# + #{mod\ 3284}#)))))))))))) + (#{global-extend\ 383}# + 'core + 'letrec + (lambda (#{e\ 3349}# + #{r\ 3350}# + #{w\ 3351}# + #{s\ 3352}# + #{mod\ 3353}#) + (let ((#{tmp\ 3359}# #{e\ 3349}#)) + (let ((#{tmp\ 3360}# + ($sc-dispatch + #{tmp\ 3359}# + '(any #(each (any any)) any . each-any)))) + (if (if #{tmp\ 3360}# + (@apply + (lambda (#{_\ 3366}# + #{id\ 3367}# + #{val\ 3368}# + #{e1\ 3369}# + #{e2\ 3370}#) + (and-map #{id?\ 387}# #{id\ 3367}#)) + #{tmp\ 3360}#) + #f) + (@apply + (lambda (#{_\ 3377}# + #{id\ 3378}# + #{val\ 3379}# + #{e1\ 3380}# + #{e2\ 3381}#) + (begin + (let ((#{ids\ 3383}# #{id\ 3378}#)) + (if (not (#{valid-bound-ids?\ 450}# + #{ids\ 3383}#)) + (syntax-violation + 'letrec + "duplicate bound variable" + #{e\ 3349}#) + (begin + (let ((#{labels\ 3387}# + (#{gen-labels\ 405}# #{ids\ 3383}#)) + (#{new-vars\ 3388}# + (map #{gen-var\ 500}# + #{ids\ 3383}#))) + (begin + (let ((#{w\ 3391}# + (#{make-binding-wrap\ 434}# + #{ids\ 3383}# + #{labels\ 3387}# + #{w\ 3351}#)) + (#{r\ 3392}# + (#{extend-var-env\ 377}# + #{labels\ 3387}# + #{new-vars\ 3388}# + #{r\ 3350}#))) + (#{build-letrec\ 345}# + #{s\ 3352}# + #f + (map syntax->datum #{ids\ 3383}#) + #{new-vars\ 3388}# + (map (lambda (#{x\ 3393}#) + (#{chi\ 472}# + #{x\ 3393}# + #{r\ 3392}# + #{w\ 3391}# + #{mod\ 3353}#)) + #{val\ 3379}#) + (#{chi-body\ 480}# + (cons #{e1\ 3380}# #{e2\ 3381}#) + (#{source-wrap\ 458}# + #{e\ 3349}# + #{w\ 3391}# + #{s\ 3352}# + #{mod\ 3353}#) + #{r\ 3392}# + #{w\ 3391}# + #{mod\ 3353}#)))))))))) + #{tmp\ 3360}#) + (let ((#{_\ 3398}# #{tmp\ 3359}#)) + (syntax-violation + 'letrec + "bad letrec" + (#{source-wrap\ 458}# + #{e\ 3349}# + #{w\ 3351}# + #{s\ 3352}# + #{mod\ 3353}#)))))))) + (#{global-extend\ 383}# + 'core + 'letrec* + (lambda (#{e\ 3399}# + #{r\ 3400}# + #{w\ 3401}# + #{s\ 3402}# + #{mod\ 3403}#) + (let ((#{tmp\ 3409}# #{e\ 3399}#)) + (let ((#{tmp\ 3410}# + ($sc-dispatch + #{tmp\ 3409}# + '(any #(each (any any)) any . each-any)))) + (if (if #{tmp\ 3410}# + (@apply + (lambda (#{_\ 3416}# + #{id\ 3417}# + #{val\ 3418}# + #{e1\ 3419}# + #{e2\ 3420}#) + (and-map #{id?\ 387}# #{id\ 3417}#)) + #{tmp\ 3410}#) + #f) + (@apply + (lambda (#{_\ 3427}# + #{id\ 3428}# + #{val\ 3429}# + #{e1\ 3430}# + #{e2\ 3431}#) + (begin + (let ((#{ids\ 3433}# #{id\ 3428}#)) + (if (not (#{valid-bound-ids?\ 450}# + #{ids\ 3433}#)) + (syntax-violation + 'letrec* + "duplicate bound variable" + #{e\ 3399}#) + (begin + (let ((#{labels\ 3437}# + (#{gen-labels\ 405}# #{ids\ 3433}#)) + (#{new-vars\ 3438}# + (map #{gen-var\ 500}# + #{ids\ 3433}#))) + (begin + (let ((#{w\ 3441}# + (#{make-binding-wrap\ 434}# + #{ids\ 3433}# + #{labels\ 3437}# + #{w\ 3401}#)) + (#{r\ 3442}# + (#{extend-var-env\ 377}# + #{labels\ 3437}# + #{new-vars\ 3438}# + #{r\ 3400}#))) + (#{build-letrec\ 345}# + #{s\ 3402}# + #t + (map syntax->datum #{ids\ 3433}#) + #{new-vars\ 3438}# + (map (lambda (#{x\ 3443}#) + (#{chi\ 472}# + #{x\ 3443}# + #{r\ 3442}# + #{w\ 3441}# + #{mod\ 3403}#)) + #{val\ 3429}#) + (#{chi-body\ 480}# + (cons #{e1\ 3430}# #{e2\ 3431}#) + (#{source-wrap\ 458}# + #{e\ 3399}# + #{w\ 3441}# + #{s\ 3402}# + #{mod\ 3403}#) + #{r\ 3442}# + #{w\ 3441}# + #{mod\ 3403}#)))))))))) + #{tmp\ 3410}#) + (let ((#{_\ 3448}# #{tmp\ 3409}#)) + (syntax-violation + 'letrec* + "bad letrec*" + (#{source-wrap\ 458}# + #{e\ 3399}# + #{w\ 3401}# + #{s\ 3402}# + #{mod\ 3403}#)))))))) + (#{global-extend\ 383}# + 'core + 'set! + (lambda (#{e\ 3449}# + #{r\ 3450}# + #{w\ 3451}# + #{s\ 3452}# + #{mod\ 3453}#) + (let ((#{tmp\ 3459}# #{e\ 3449}#)) + (let ((#{tmp\ 3460}# + ($sc-dispatch + #{tmp\ 3459}# + '(any any any)))) + (if (if #{tmp\ 3460}# + (@apply + (lambda (#{_\ 3464}# #{id\ 3465}# #{val\ 3466}#) + (#{id?\ 387}# #{id\ 3465}#)) + #{tmp\ 3460}#) + #f) + (@apply + (lambda (#{_\ 3470}# #{id\ 3471}# #{val\ 3472}#) + (begin + (let ((#{val\ 3475}# + (#{chi\ 472}# + #{val\ 3472}# + #{r\ 3450}# + #{w\ 3451}# + #{mod\ 3453}#)) + (#{n\ 3476}# + (#{id-var-name\ 444}# + #{id\ 3471}# + #{w\ 3451}#))) + (begin + (let ((#{b\ 3478}# + (#{lookup\ 381}# + #{n\ 3476}# + #{r\ 3450}# + #{mod\ 3453}#))) + (begin + (let ((#{atom-key\ 3481}# + (#{binding-type\ 370}# + #{b\ 3478}#))) + (if (eqv? #{atom-key\ 3481}# + 'lexical) + (#{build-lexical-assignment\ 317}# + #{s\ 3452}# + (syntax->datum #{id\ 3471}#) + (#{binding-value\ 372}# #{b\ 3478}#) + #{val\ 3475}#) + (if (eqv? #{atom-key\ 3481}# + 'global) + (#{build-global-assignment\ 323}# + #{s\ 3452}# + #{n\ 3476}# + #{val\ 3475}# + #{mod\ 3453}#) + (if (eqv? #{atom-key\ 3481}# + 'displaced-lexical) + (syntax-violation + 'set! + "identifier out of context" + (#{wrap\ 456}# + #{id\ 3471}# + #{w\ 3451}# + #{mod\ 3453}#)) + (syntax-violation + 'set! + "bad set!" + (#{source-wrap\ 458}# + #{e\ 3449}# + #{w\ 3451}# + #{s\ 3452}# + #{mod\ 3453}#)))))))))))) + #{tmp\ 3460}#) + (let ((#{tmp\ 3486}# + ($sc-dispatch + #{tmp\ 3459}# + '(any (any . each-any) any)))) + (if #{tmp\ 3486}# + (@apply + (lambda (#{_\ 3491}# + #{head\ 3492}# + #{tail\ 3493}# + #{val\ 3494}#) + (call-with-values + (lambda () + (#{syntax-type\ 468}# + #{head\ 3492}# + #{r\ 3450}# + '(()) + #f + #f + #{mod\ 3453}# + #t)) + (lambda (#{type\ 3497}# + #{value\ 3498}# + #{ee\ 3499}# + #{ww\ 3500}# + #{ss\ 3501}# + #{modmod\ 3502}#) + (if (eqv? #{type\ 3497}# (quote module-ref)) + (begin + (let ((#{val\ 3511}# + (#{chi\ 472}# + #{val\ 3494}# + #{r\ 3450}# + #{w\ 3451}# + #{mod\ 3453}#))) + (call-with-values + (lambda () + (#{value\ 3498}# + (cons #{head\ 3492}# + #{tail\ 3493}#) + #{r\ 3450}# + #{w\ 3451}#)) + (lambda (#{e\ 3513}# + #{r\ 3514}# + #{w\ 3515}# + #{s*\ 3516}# + #{mod\ 3517}#) + (let ((#{tmp\ 3523}# #{e\ 3513}#)) + (let ((#{tmp\ 3524}# + (list #{tmp\ 3523}#))) + (if (if #{tmp\ 3524}# + (@apply + (lambda (#{e\ 3526}#) + (#{id?\ 387}# + #{e\ 3526}#)) + #{tmp\ 3524}#) + #f) + (@apply + (lambda (#{e\ 3528}#) + (#{build-global-assignment\ 323}# + #{s\ 3452}# + (syntax->datum + #{e\ 3528}#) + #{val\ 3511}# + #{mod\ 3517}#)) + #{tmp\ 3524}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3523}#)))))))) + (#{build-application\ 309}# + #{s\ 3452}# + (#{chi\ 472}# + (list '#(syntax-object + setter ((top) + #(ribcage () () ()) + #(ribcage () () ()) #(ribcage - #(_ out in e1 e2) + #(type + value + ee + ww + ss + modmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i3503" + "i3504" + "i3505" + "i3506" + "i3507" + "i3508")) + #(ribcage + #(_ head tail val) + #((top) (top) (top) (top)) + #("i3487" + "i3488" + "i3489" + "i3490")) + #(ribcage () () ()) + #(ribcage + #(e r w s mod) #((top) (top) (top) (top) (top)) - #("i4190" - "i4191" - "i4192" - "i4193" - "i4194")) - #(ribcage () () ()) + #("i3454" + "i3455" + "i3456" + "i3457" + "i3458")) #(ribcage - #(x) - #((top)) - #("i4179"))) - (hygiene guile)) - (cons #{e1\ 4198}# - #{e2\ 4199}#))))) - #{tmp\ 4189}#) - ((lambda (#{tmp\ 4201}#) - (if #{tmp\ 4201}# - (apply (lambda (#{_\ 4207}# - #{out\ 4208}# - #{in\ 4209}# - #{e1\ 4210}# - #{e2\ 4211}#) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(_ out in e1 e2) - #((top) (top) (top) (top) (top)) - #("i4202" - "i4203" - "i4204" - "i4205" - "i4206")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4179"))) - (hygiene guile)) - (cons '#(syntax-object - list - ((top) - #(ribcage - #(_ out in e1 e2) - #((top) + (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)) - #("i4202" - "i4203" - "i4204" - "i4205" - "i4206")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4179"))) - (hygiene guile)) - #{in\ 4209}#) - '() - (list #{out\ 4208}# - (cons '#(syntax-object - begin + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i38" "i37" "i36" "i34"))) + (hygiene guile)) + #{head\ 3492}#) + #{r\ 3450}# + #{w\ 3451}# + #{mod\ 3453}#) + (map (lambda (#{e\ 3530}#) + (#{chi\ 472}# + #{e\ 3530}# + #{r\ 3450}# + #{w\ 3451}# + #{mod\ 3453}#)) + (append + #{tail\ 3493}# + (list #{val\ 3494}#)))))))) + #{tmp\ 3486}#) + (let ((#{_\ 3534}# #{tmp\ 3459}#)) + (syntax-violation + 'set! + "bad set!" + (#{source-wrap\ 458}# + #{e\ 3449}# + #{w\ 3451}# + #{s\ 3452}# + #{mod\ 3453}#)))))))))) + (#{global-extend\ 383}# + 'module-ref + '@ + (lambda (#{e\ 3535}# #{r\ 3536}# #{w\ 3537}#) + (let ((#{tmp\ 3541}# #{e\ 3535}#)) + (let ((#{tmp\ 3542}# + ($sc-dispatch + #{tmp\ 3541}# + '(any each-any any)))) + (if (if #{tmp\ 3542}# + (@apply + (lambda (#{_\ 3546}# #{mod\ 3547}# #{id\ 3548}#) + (if (and-map #{id?\ 387}# #{mod\ 3547}#) + (#{id?\ 387}# #{id\ 3548}#) + #f)) + #{tmp\ 3542}#) + #f) + (@apply + (lambda (#{_\ 3555}# #{mod\ 3556}# #{id\ 3557}#) + (values + (syntax->datum #{id\ 3557}#) + #{r\ 3536}# + #{w\ 3537}# + #f + (syntax->datum + (cons '#(syntax-object + public + ((top) + #(ribcage + #(_ mod id) + #((top) (top) (top)) + #("i3552" "i3553" "i3554")) + #(ribcage () () ()) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3538" "i3539" "i3540")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i38" "i37" "i36" "i34"))) + (hygiene guile)) + #{mod\ 3556}#)))) + #{tmp\ 3542}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3541}#)))))) + (#{global-extend\ 383}# + 'module-ref + '@@ + (lambda (#{e\ 3559}# #{r\ 3560}# #{w\ 3561}#) + (letrec* + ((#{remodulate\ 3566}# + (lambda (#{x\ 3567}# #{mod\ 3568}#) + (if (pair? #{x\ 3567}#) + (cons (#{remodulate\ 3566}# + (car #{x\ 3567}#) + #{mod\ 3568}#) + (#{remodulate\ 3566}# + (cdr #{x\ 3567}#) + #{mod\ 3568}#)) + (if (#{syntax-object?\ 351}# #{x\ 3567}#) + (#{make-syntax-object\ 349}# + (#{remodulate\ 3566}# + (#{syntax-object-expression\ 353}# #{x\ 3567}#) + #{mod\ 3568}#) + (#{syntax-object-wrap\ 355}# #{x\ 3567}#) + #{mod\ 3568}#) + (if (vector? #{x\ 3567}#) + (begin + (let ((#{n\ 3579}# (vector-length #{x\ 3567}#))) + (begin + (let ((#{v\ 3581}# + (make-vector #{n\ 3579}#))) + (letrec* + ((#{loop\ 3584}# + (lambda (#{i\ 3585}#) + (if (#{fx=\ 292}# + #{i\ 3585}# + #{n\ 3579}#) + (begin (if #f #f) #{v\ 3581}#) + (begin + (vector-set! + #{v\ 3581}# + #{i\ 3585}# + (#{remodulate\ 3566}# + (vector-ref + #{x\ 3567}# + #{i\ 3585}#) + #{mod\ 3568}#)) + (#{loop\ 3584}# + (#{fx+\ 288}# + #{i\ 3585}# + 1))))))) + (begin (#{loop\ 3584}# 0))))))) + #{x\ 3567}#)))))) + (begin + (let ((#{tmp\ 3589}# #{e\ 3559}#)) + (let ((#{tmp\ 3590}# + ($sc-dispatch + #{tmp\ 3589}# + '(any each-any any)))) + (if (if #{tmp\ 3590}# + (@apply + (lambda (#{_\ 3594}# + #{mod\ 3595}# + #{exp\ 3596}#) + (and-map #{id?\ 387}# #{mod\ 3595}#)) + #{tmp\ 3590}#) + #f) + (@apply + (lambda (#{_\ 3601}# #{mod\ 3602}# #{exp\ 3603}#) + (begin + (let ((#{mod\ 3605}# + (syntax->datum + (cons '#(syntax-object + private + ((top) + #(ribcage + #(_ mod exp) + #((top) (top) (top)) + #("i3598" + "i3599" + "i3600")) + #(ribcage + (remodulate) + ((top)) + ("i3565")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3562" + "i3563" + "i3564")) + #(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) - #(ribcage - #(_ out in e1 e2) - #((top) - (top) - (top) - (top) - (top)) - #("i4202" - "i4203" - "i4204" - "i4205" - "i4206")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4179"))) - (hygiene guile)) - (cons #{e1\ 4210}# - #{e2\ 4211}#))))) - #{tmp\ 4201}#) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene guile)) + #{mod\ 3602}#)))) + (values + (#{remodulate\ 3566}# + #{exp\ 3603}# + #{mod\ 3605}#) + #{r\ 3560}# + #{w\ 3561}# + (#{source-annotation\ 366}# #{exp\ 3603}#) + #{mod\ 3605}#)))) + #{tmp\ 3590}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3589}#)))))))) + (#{global-extend\ 383}# + 'core + 'if + (lambda (#{e\ 3607}# + #{r\ 3608}# + #{w\ 3609}# + #{s\ 3610}# + #{mod\ 3611}#) + (let ((#{tmp\ 3617}# #{e\ 3607}#)) + (let ((#{tmp\ 3618}# + ($sc-dispatch + #{tmp\ 3617}# + '(any any any)))) + (if #{tmp\ 3618}# + (@apply + (lambda (#{_\ 3622}# #{test\ 3623}# #{then\ 3624}#) + (#{build-conditional\ 311}# + #{s\ 3610}# + (#{chi\ 472}# + #{test\ 3623}# + #{r\ 3608}# + #{w\ 3609}# + #{mod\ 3611}#) + (#{chi\ 472}# + #{then\ 3624}# + #{r\ 3608}# + #{w\ 3609}# + #{mod\ 3611}#) + (#{build-void\ 307}# #f))) + #{tmp\ 3618}#) + (let ((#{tmp\ 3626}# + ($sc-dispatch + #{tmp\ 3617}# + '(any any any any)))) + (if #{tmp\ 3626}# + (@apply + (lambda (#{_\ 3631}# + #{test\ 3632}# + #{then\ 3633}# + #{else\ 3634}#) + (#{build-conditional\ 311}# + #{s\ 3610}# + (#{chi\ 472}# + #{test\ 3632}# + #{r\ 3608}# + #{w\ 3609}# + #{mod\ 3611}#) + (#{chi\ 472}# + #{then\ 3633}# + #{r\ 3608}# + #{w\ 3609}# + #{mod\ 3611}#) + (#{chi\ 472}# + #{else\ 3634}# + #{r\ 3608}# + #{w\ 3609}# + #{mod\ 3611}#))) + #{tmp\ 3626}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3617}#)))))))) + (#{global-extend\ 383}# + 'core + 'with-fluids + (lambda (#{e\ 3635}# + #{r\ 3636}# + #{w\ 3637}# + #{s\ 3638}# + #{mod\ 3639}#) + (let ((#{tmp\ 3645}# #{e\ 3635}#)) + (let ((#{tmp\ 3646}# + ($sc-dispatch + #{tmp\ 3645}# + '(any #(each (any any)) any . each-any)))) + (if #{tmp\ 3646}# + (@apply + (lambda (#{_\ 3652}# + #{fluid\ 3653}# + #{val\ 3654}# + #{b\ 3655}# + #{b*\ 3656}#) + (#{build-dynlet\ 313}# + #{s\ 3638}# + (map (lambda (#{x\ 3657}#) + (#{chi\ 472}# + #{x\ 3657}# + #{r\ 3636}# + #{w\ 3637}# + #{mod\ 3639}#)) + #{fluid\ 3653}#) + (map (lambda (#{x\ 3660}#) + (#{chi\ 472}# + #{x\ 3660}# + #{r\ 3636}# + #{w\ 3637}# + #{mod\ 3639}#)) + #{val\ 3654}#) + (#{chi-body\ 480}# + (cons #{b\ 3655}# #{b*\ 3656}#) + (#{source-wrap\ 458}# + #{e\ 3635}# + #{w\ 3637}# + #{s\ 3638}# + #{mod\ 3639}#) + #{r\ 3636}# + #{w\ 3637}# + #{mod\ 3639}#))) + #{tmp\ 3646}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3645}#)))))) + (#{global-extend\ 383}# + 'begin + 'begin + '()) + (#{global-extend\ 383}# + 'define + 'define + '()) + (#{global-extend\ 383}# + 'define-syntax + 'define-syntax + '()) + (#{global-extend\ 383}# + 'eval-when + 'eval-when + '()) + (#{global-extend\ 383}# + 'core + 'syntax-case + (letrec* + ((#{gen-syntax-case\ 3671}# + (lambda (#{x\ 3672}# + #{keys\ 3673}# + #{clauses\ 3674}# + #{r\ 3675}# + #{mod\ 3676}#) + (if (null? #{clauses\ 3674}#) + (#{build-application\ 309}# + #f + (#{build-primref\ 335}# + #f + 'syntax-violation) + (list (#{build-data\ 337}# #f #f) + (#{build-data\ 337}# + #f + "source expression failed to match any pattern") + #{x\ 3672}#)) + (let ((#{tmp\ 3686}# (car #{clauses\ 3674}#))) + (let ((#{tmp\ 3687}# + ($sc-dispatch + #{tmp\ 3686}# + '(any any)))) + (if #{tmp\ 3687}# + (@apply + (lambda (#{pat\ 3690}# #{exp\ 3691}#) + (if (if (#{id?\ 387}# #{pat\ 3690}#) + (and-map + (lambda (#{x\ 3694}#) + (not (#{free-id=?\ 446}# + #{pat\ 3690}# + #{x\ 3694}#))) + (cons '#(syntax-object + ... + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3688" "i3689")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3677" + "i3678" + "i3679" + "i3680" + "i3681")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3670" + "i3668" + "i3666" + "i3664")) + #(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)) + ("i501" + "i499" + "i497" + "i495" + "i493" + "i491" + "i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i430" + "i429" + "i427" + "i426" + "i425" + "i424" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i404" + "i402" + "i401" + "i400" + "i399" + "i398" + "i397" + "i395" + "i393" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i373" + "i371" + "i369" + "i368" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i38" + "i37" + "i36" + "i34"))) + (hygiene guile)) + #{keys\ 3673}#)) + #f) + (begin + (let ((#{labels\ 3698}# + (list (#{gen-label\ 403}#))) + (#{var\ 3699}# + (#{gen-var\ 500}# #{pat\ 3690}#))) + (#{build-application\ 309}# + #f + (#{build-simple-lambda\ 329}# + #f + (list (syntax->datum #{pat\ 3690}#)) + #f + (list #{var\ 3699}#) + '() + (#{chi\ 472}# + #{exp\ 3691}# + (#{extend-env\ 375}# + #{labels\ 3698}# + (list (cons 'syntax + (cons #{var\ 3699}# + 0))) + #{r\ 3675}#) + (#{make-binding-wrap\ 434}# + (list #{pat\ 3690}#) + #{labels\ 3698}# + '(())) + #{mod\ 3676}#)) + (list #{x\ 3672}#)))) + (#{gen-clause\ 3669}# + #{x\ 3672}# + #{keys\ 3673}# + (cdr #{clauses\ 3674}#) + #{r\ 3675}# + #{pat\ 3690}# + #t + #{exp\ 3691}# + #{mod\ 3676}#))) + #{tmp\ 3687}#) + (let ((#{tmp\ 3705}# + ($sc-dispatch + #{tmp\ 3686}# + '(any any any)))) + (if #{tmp\ 3705}# + (@apply + (lambda (#{pat\ 3709}# + #{fender\ 3710}# + #{exp\ 3711}#) + (#{gen-clause\ 3669}# + #{x\ 3672}# + #{keys\ 3673}# + (cdr #{clauses\ 3674}#) + #{r\ 3675}# + #{pat\ 3709}# + #{fender\ 3710}# + #{exp\ 3711}# + #{mod\ 3676}#)) + #{tmp\ 3705}#) + (let ((#{_\ 3713}# #{tmp\ 3686}#)) + (syntax-violation + 'syntax-case + "invalid clause" + (car #{clauses\ 3674}#))))))))))) + (#{gen-clause\ 3669}# + (lambda (#{x\ 3714}# + #{keys\ 3715}# + #{clauses\ 3716}# + #{r\ 3717}# + #{pat\ 3718}# + #{fender\ 3719}# + #{exp\ 3720}# + #{mod\ 3721}#) + (call-with-values + (lambda () + (#{convert-pattern\ 3665}# + #{pat\ 3718}# + #{keys\ 3715}#)) + (lambda (#{p\ 3730}# #{pvars\ 3731}#) + (if (not (#{distinct-bound-ids?\ 452}# + (map car #{pvars\ 3731}#))) + (syntax-violation + 'syntax-case + "duplicate pattern variable" + #{pat\ 3718}#) + (if (not (and-map + (lambda (#{x\ 3738}#) + (not (#{ellipsis?\ 488}# + (car #{x\ 3738}#)))) + #{pvars\ 3731}#)) + (syntax-violation + 'syntax-case + "misplaced ellipsis" + #{pat\ 3718}#) + (begin + (let ((#{y\ 3742}# + (#{gen-var\ 500}# (quote tmp)))) + (#{build-application\ 309}# + #f + (#{build-simple-lambda\ 329}# + #f + (list (quote tmp)) + #f + (list #{y\ 3742}#) + '() + (begin + (let ((#{y\ 3746}# + (#{build-lexical-reference\ 315}# + 'value + #f + 'tmp + #{y\ 3742}#))) + (#{build-conditional\ 311}# + #f + (let ((#{tmp\ 3749}# + #{fender\ 3719}#)) + (let ((#{tmp\ 3750}# + ($sc-dispatch + #{tmp\ 3749}# + '#(atom #t)))) + (if #{tmp\ 3750}# + (@apply + (lambda () #{y\ 3746}#) + #{tmp\ 3750}#) + (let ((#{_\ 3752}# + #{tmp\ 3749}#)) + (#{build-conditional\ 311}# + #f + #{y\ 3746}# + (#{build-dispatch-call\ 3667}# + #{pvars\ 3731}# + #{fender\ 3719}# + #{y\ 3746}# + #{r\ 3717}# + #{mod\ 3721}#) + (#{build-data\ 337}# + #f + #f)))))) + (#{build-dispatch-call\ 3667}# + #{pvars\ 3731}# + #{exp\ 3720}# + #{y\ 3746}# + #{r\ 3717}# + #{mod\ 3721}#) + (#{gen-syntax-case\ 3671}# + #{x\ 3714}# + #{keys\ 3715}# + #{clauses\ 3716}# + #{r\ 3717}# + #{mod\ 3721}#))))) + (list (if (eq? #{p\ 3730}# (quote any)) + (#{build-application\ 309}# + #f + (#{build-primref\ 335}# + #f + 'list) + (list #{x\ 3714}#)) + (#{build-application\ 309}# + #f + (#{build-primref\ 335}# + #f + '$sc-dispatch) + (list #{x\ 3714}# + (#{build-data\ 337}# + #f + #{p\ 3730}#)))))))))))))) + (#{build-dispatch-call\ 3667}# + (lambda (#{pvars\ 3760}# + #{exp\ 3761}# + #{y\ 3762}# + #{r\ 3763}# + #{mod\ 3764}#) + (begin + (map cdr #{pvars\ 3760}#) + (let ((#{ids\ 3772}# (map car #{pvars\ 3760}#))) + (begin + (let ((#{labels\ 3776}# + (#{gen-labels\ 405}# #{ids\ 3772}#)) + (#{new-vars\ 3777}# + (map #{gen-var\ 500}# #{ids\ 3772}#))) + (#{build-application\ 309}# + #f + (#{build-primref\ 335}# #f (quote apply)) + (list (#{build-simple-lambda\ 329}# + #f + (map syntax->datum #{ids\ 3772}#) + #f + #{new-vars\ 3777}# + '() + (#{chi\ 472}# + #{exp\ 3761}# + (#{extend-env\ 375}# + #{labels\ 3776}# + (map (lambda (#{var\ 3781}# + #{level\ 3782}#) + (cons 'syntax + (cons #{var\ 3781}# + #{level\ 3782}#))) + #{new-vars\ 3777}# + (map cdr #{pvars\ 3760}#)) + #{r\ 3763}#) + (#{make-binding-wrap\ 434}# + #{ids\ 3772}# + #{labels\ 3776}# + '(())) + #{mod\ 3764}#)) + #{y\ 3762}#)))))))) + (#{convert-pattern\ 3665}# + (lambda (#{pattern\ 3788}# #{keys\ 3789}#) + (letrec* + ((#{cvt\ 3795}# + (lambda (#{p\ 3796}# #{n\ 3797}# #{ids\ 3798}#) + (if (#{id?\ 387}# #{p\ 3796}#) + (if (#{bound-id-member?\ 454}# + #{p\ 3796}# + #{keys\ 3789}#) + (values + (vector (quote free-id) #{p\ 3796}#) + #{ids\ 3798}#) + (values + 'any + (cons (cons #{p\ 3796}# #{n\ 3797}#) + #{ids\ 3798}#))) + (let ((#{tmp\ 3802}# #{p\ 3796}#)) + (let ((#{tmp\ 3803}# + ($sc-dispatch + #{tmp\ 3802}# + '(any any)))) + (if (if #{tmp\ 3803}# + (@apply + (lambda (#{x\ 3806}# #{dots\ 3807}#) + (#{ellipsis?\ 488}# + #{dots\ 3807}#)) + #{tmp\ 3803}#) + #f) + (@apply + (lambda (#{x\ 3810}# #{dots\ 3811}#) + (call-with-values + (lambda () + (#{cvt\ 3795}# + #{x\ 3810}# + (#{fx+\ 288}# #{n\ 3797}# 1) + #{ids\ 3798}#)) + (lambda (#{p\ 3812}# #{ids\ 3813}#) + (values + (if (eq? #{p\ 3812}# (quote any)) + 'each-any + (vector + 'each + #{p\ 3812}#)) + #{ids\ 3813}#)))) + #{tmp\ 3803}#) + (let ((#{tmp\ 3816}# + ($sc-dispatch + #{tmp\ 3802}# + '(any any . each-any)))) + (if (if #{tmp\ 3816}# + (@apply + (lambda (#{x\ 3820}# + #{dots\ 3821}# + #{ys\ 3822}#) + (#{ellipsis?\ 488}# + #{dots\ 3821}#)) + #{tmp\ 3816}#) + #f) + (@apply + (lambda (#{x\ 3826}# + #{dots\ 3827}# + #{ys\ 3828}#) + (call-with-values + (lambda () + (#{cvt*\ 3793}# + #{ys\ 3828}# + #{n\ 3797}# + #{ids\ 3798}#)) + (lambda (#{ys\ 3830}# + #{ids\ 3831}#) + (call-with-values + (lambda () + (#{cvt\ 3795}# + #{x\ 3826}# + (1+ #{n\ 3797}#) + #{ids\ 3831}#)) + (lambda (#{x\ 3834}# + #{ids\ 3835}#) + (values + (list->vector + (cons 'each+ + (cons #{x\ 3834}# + (cons (reverse + #{ys\ 3830}#) + '(()))))) + #{ids\ 3835}#)))))) + #{tmp\ 3816}#) + (let ((#{tmp\ 3839}# + ($sc-dispatch + #{tmp\ 3802}# + '(any . any)))) + (if #{tmp\ 3839}# + (@apply + (lambda (#{x\ 3842}# #{y\ 3843}#) + (call-with-values + (lambda () + (#{cvt\ 3795}# + #{y\ 3843}# + #{n\ 3797}# + #{ids\ 3798}#)) + (lambda (#{y\ 3844}# + #{ids\ 3845}#) + (call-with-values + (lambda () + (#{cvt\ 3795}# + #{x\ 3842}# + #{n\ 3797}# + #{ids\ 3845}#)) + (lambda (#{x\ 3848}# + #{ids\ 3849}#) + (values + (cons #{x\ 3848}# + #{y\ 3844}#) + #{ids\ 3849}#)))))) + #{tmp\ 3839}#) + (let ((#{tmp\ 3852}# + ($sc-dispatch + #{tmp\ 3802}# + '()))) + (if #{tmp\ 3852}# + (@apply + (lambda () + (values + '() + #{ids\ 3798}#)) + #{tmp\ 3852}#) + (let ((#{tmp\ 3853}# + ($sc-dispatch + #{tmp\ 3802}# + '#(vector + each-any)))) + (if #{tmp\ 3853}# + (@apply + (lambda (#{x\ 3855}#) + (call-with-values + (lambda () + (#{cvt\ 3795}# + #{x\ 3855}# + #{n\ 3797}# + #{ids\ 3798}#)) + (lambda (#{p\ 3857}# + #{ids\ 3858}#) + (values + (vector + 'vector + #{p\ 3857}#) + #{ids\ 3858}#)))) + #{tmp\ 3853}#) + (let ((#{x\ 3862}# + #{tmp\ 3802}#)) + (values + (vector + 'atom + (#{strip\ 498}# + #{p\ 3796}# + '(()))) + #{ids\ 3798}#)))))))))))))))) + (#{cvt*\ 3793}# + (lambda (#{p*\ 3864}# #{n\ 3865}# #{ids\ 3866}#) + (if (null? #{p*\ 3864}#) + (values (quote ()) #{ids\ 3866}#) + (call-with-values + (lambda () + (#{cvt*\ 3793}# + (cdr #{p*\ 3864}#) + #{n\ 3865}# + #{ids\ 3866}#)) + (lambda (#{y\ 3870}# #{ids\ 3871}#) + (call-with-values + (lambda () + (#{cvt\ 3795}# + (car #{p*\ 3864}#) + #{n\ 3865}# + #{ids\ 3871}#)) + (lambda (#{x\ 3874}# #{ids\ 3875}#) + (values + (cons #{x\ 3874}# #{y\ 3870}#) + #{ids\ 3875}#))))))))) + (begin + (#{cvt\ 3795}# #{pattern\ 3788}# 0 (quote ()))))))) + (begin + (lambda (#{e\ 3878}# + #{r\ 3879}# + #{w\ 3880}# + #{s\ 3881}# + #{mod\ 3882}#) + (begin + (let ((#{e\ 3889}# + (#{source-wrap\ 458}# + #{e\ 3878}# + #{w\ 3880}# + #{s\ 3881}# + #{mod\ 3882}#))) + (let ((#{tmp\ 3890}# #{e\ 3889}#)) + (let ((#{tmp\ 3891}# + ($sc-dispatch + #{tmp\ 3890}# + '(any any each-any . each-any)))) + (if #{tmp\ 3891}# + (@apply + (lambda (#{_\ 3896}# + #{val\ 3897}# + #{key\ 3898}# + #{m\ 3899}#) + (if (and-map + (lambda (#{x\ 3900}#) + (if (#{id?\ 387}# #{x\ 3900}#) + (not (#{ellipsis?\ 488}# + #{x\ 3900}#)) + #f)) + #{key\ 3898}#) + (begin + (let ((#{x\ 3906}# + (#{gen-var\ 500}# (quote tmp)))) + (#{build-application\ 309}# + #{s\ 3881}# + (#{build-simple-lambda\ 329}# + #f + (list (quote tmp)) + #f + (list #{x\ 3906}#) + '() + (#{gen-syntax-case\ 3671}# + (#{build-lexical-reference\ 315}# + 'value + #f + 'tmp + #{x\ 3906}#) + #{key\ 3898}# + #{m\ 3899}# + #{r\ 3879}# + #{mod\ 3882}#)) + (list (#{chi\ 472}# + #{val\ 3897}# + #{r\ 3879}# + '(()) + #{mod\ 3882}#))))) + (syntax-violation + 'syntax-case + "invalid literals list" + #{e\ 3889}#))) + #{tmp\ 3891}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 3890}#)))))))))) + (set! macroexpand + (lambda* + (#{x\ 3912}# + #:optional + (#{m\ 3914}# (quote e)) + (#{esew\ 3916}# (quote (eval)))) + (#{chi-top\ 470}# + #{x\ 3912}# + '() + '((top)) + #{m\ 3914}# + #{esew\ 3916}# + (cons 'hygiene + (module-name (current-module)))))) + (set! identifier? + (lambda (#{x\ 3920}#) + (#{nonsymbol-id?\ 385}# #{x\ 3920}#))) + (set! datum->syntax + (lambda (#{id\ 3922}# #{datum\ 3923}#) + (#{make-syntax-object\ 349}# + #{datum\ 3923}# + (#{syntax-object-wrap\ 355}# #{id\ 3922}#) + (#{syntax-object-module\ 357}# #{id\ 3922}#)))) + (set! syntax->datum + (lambda (#{x\ 3926}#) + (#{strip\ 498}# #{x\ 3926}# (quote (()))))) + (set! syntax-source + (lambda (#{x\ 3929}#) + (#{source-annotation\ 366}# #{x\ 3929}#))) + (set! generate-temporaries + (lambda (#{ls\ 3931}#) + (begin + (begin + (let ((#{x\ 3935}# #{ls\ 3931}#)) + (if (not (list? #{x\ 3935}#)) (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4180}#))) + 'generate-temporaries + "invalid argument" + #{x\ 3935}#)))) + (map (lambda (#{x\ 3936}#) + (#{wrap\ 456}# (gensym) (quote ((top))) #f)) + #{ls\ 3931}#)))) + (set! free-identifier=? + (lambda (#{x\ 3940}# #{y\ 3941}#) + (begin + (begin + (let ((#{x\ 3946}# #{x\ 3940}#)) + (if (not (#{nonsymbol-id?\ 385}# #{x\ 3946}#)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{x\ 3946}#)))) + (begin + (let ((#{x\ 3949}# #{y\ 3941}#)) + (if (not (#{nonsymbol-id?\ 385}# #{x\ 3949}#)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{x\ 3949}#)))) + (#{free-id=?\ 446}# #{x\ 3940}# #{y\ 3941}#)))) + (set! bound-identifier=? + (lambda (#{x\ 3950}# #{y\ 3951}#) + (begin + (begin + (let ((#{x\ 3956}# #{x\ 3950}#)) + (if (not (#{nonsymbol-id?\ 385}# #{x\ 3956}#)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{x\ 3956}#)))) + (begin + (let ((#{x\ 3959}# #{y\ 3951}#)) + (if (not (#{nonsymbol-id?\ 385}# #{x\ 3959}#)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{x\ 3959}#)))) + (#{bound-id=?\ 448}# #{x\ 3950}# #{y\ 3951}#)))) + (set! syntax-violation + (lambda (#{who\ 3960}# + #{message\ 3961}# + #{form\ 3962}# + . + #{subform\ 3963}#) + (begin + (begin + (let ((#{x\ 3970}# #{who\ 3960}#)) + (if (not (let ((#{x\ 3971}# #{x\ 3970}#)) + (begin + (let ((#{t\ 3975}# (not #{x\ 3971}#))) + (if #{t\ 3975}# + #{t\ 3975}# + (begin + (let ((#{t\ 3978}# + (string? #{x\ 3971}#))) + (if #{t\ 3978}# + #{t\ 3978}# + (symbol? #{x\ 3971}#))))))))) + (syntax-violation + 'syntax-violation + "invalid argument" + #{x\ 3970}#)))) + (begin + (let ((#{x\ 3982}# #{message\ 3961}#)) + (if (not (string? #{x\ 3982}#)) + (syntax-violation + 'syntax-violation + "invalid argument" + #{x\ 3982}#)))) + (scm-error + 'syntax-error + 'macroexpand + (string-append + (if #{who\ 3960}# "~a: " "") + "~a " + (if (null? #{subform\ 3963}#) + "in ~a" + "in subform `~s' of `~s'")) + (begin + (let ((#{tail\ 3984}# + (cons #{message\ 3961}# + (map (lambda (#{x\ 3985}#) + (#{strip\ 498}# + #{x\ 3985}# + '(()))) + (append + #{subform\ 3963}# + (list #{form\ 3962}#)))))) + (if #{who\ 3960}# + (cons #{who\ 3960}# #{tail\ 3984}#) + #{tail\ 3984}#))) + #f)))) + (letrec* + ((#{match\ 4001}# + (lambda (#{e\ 4002}# + #{p\ 4003}# + #{w\ 4004}# + #{r\ 4005}# + #{mod\ 4006}#) + (if (not #{r\ 4005}#) + #f + (if (eq? #{p\ 4003}# (quote any)) + (cons (#{wrap\ 456}# + #{e\ 4002}# + #{w\ 4004}# + #{mod\ 4006}#) + #{r\ 4005}#) + (if (#{syntax-object?\ 351}# #{e\ 4002}#) + (#{match*\ 3999}# + (#{syntax-object-expression\ 353}# #{e\ 4002}#) + #{p\ 4003}# + (#{join-wraps\ 438}# + #{w\ 4004}# + (#{syntax-object-wrap\ 355}# #{e\ 4002}#)) + #{r\ 4005}# + (#{syntax-object-module\ 357}# #{e\ 4002}#)) + (#{match*\ 3999}# + #{e\ 4002}# + #{p\ 4003}# + #{w\ 4004}# + #{r\ 4005}# + #{mod\ 4006}#)))))) + (#{match*\ 3999}# + (lambda (#{e\ 4019}# + #{p\ 4020}# + #{w\ 4021}# + #{r\ 4022}# + #{mod\ 4023}#) + (if (null? #{p\ 4020}#) + (if (null? #{e\ 4019}#) #{r\ 4022}# #f) + (if (pair? #{p\ 4020}#) + (if (pair? #{e\ 4019}#) + (#{match\ 4001}# + (car #{e\ 4019}#) + (car #{p\ 4020}#) + #{w\ 4021}# + (#{match\ 4001}# + (cdr #{e\ 4019}#) + (cdr #{p\ 4020}#) + #{w\ 4021}# + #{r\ 4022}# + #{mod\ 4023}#) + #{mod\ 4023}#) + #f) + (if (eq? #{p\ 4020}# (quote each-any)) + (begin + (let ((#{l\ 4040}# + (#{match-each-any\ 3993}# + #{e\ 4019}# + #{w\ 4021}# + #{mod\ 4023}#))) + (if #{l\ 4040}# + (cons #{l\ 4040}# #{r\ 4022}#) + #f))) + (begin + (let ((#{atom-key\ 4046}# + (vector-ref #{p\ 4020}# 0))) + (if (eqv? #{atom-key\ 4046}# (quote each)) + (if (null? #{e\ 4019}#) + (#{match-empty\ 3995}# + (vector-ref #{p\ 4020}# 1) + #{r\ 4022}#) + (begin + (let ((#{l\ 4049}# + (#{match-each\ 3989}# + #{e\ 4019}# + (vector-ref #{p\ 4020}# 1) + #{w\ 4021}# + #{mod\ 4023}#))) + (if #{l\ 4049}# + (letrec* + ((#{collect\ 4054}# + (lambda (#{l\ 4055}#) + (if (null? (car #{l\ 4055}#)) + #{r\ 4022}# + (cons (map car #{l\ 4055}#) + (#{collect\ 4054}# + (map cdr + #{l\ 4055}#))))))) + (begin + (#{collect\ 4054}# #{l\ 4049}#))) + #f)))) + (if (eqv? #{atom-key\ 4046}# (quote each+)) + (call-with-values + (lambda () + (#{match-each+\ 3991}# + #{e\ 4019}# + (vector-ref #{p\ 4020}# 1) + (vector-ref #{p\ 4020}# 2) + (vector-ref #{p\ 4020}# 3) + #{w\ 4021}# + #{r\ 4022}# + #{mod\ 4023}#)) + (lambda (#{xr*\ 4057}# + #{y-pat\ 4058}# + #{r\ 4059}#) + (if #{r\ 4059}# + (if (null? #{y-pat\ 4058}#) + (if (null? #{xr*\ 4057}#) + (#{match-empty\ 3995}# + (vector-ref #{p\ 4020}# 1) + #{r\ 4059}#) + (#{combine\ 3997}# + #{xr*\ 4057}# + #{r\ 4059}#)) + #f) + #f))) + (if (eqv? #{atom-key\ 4046}# (quote free-id)) + (if (#{id?\ 387}# #{e\ 4019}#) + (if (#{free-id=?\ 446}# + (#{wrap\ 456}# + #{e\ 4019}# + #{w\ 4021}# + #{mod\ 4023}#) + (vector-ref #{p\ 4020}# 1)) + #{r\ 4022}# + #f) + #f) + (if (eqv? #{atom-key\ 4046}# (quote atom)) + (if (equal? + (vector-ref #{p\ 4020}# 1) + (#{strip\ 498}# + #{e\ 4019}# + #{w\ 4021}#)) + #{r\ 4022}# + #f) + (if (eqv? #{atom-key\ 4046}# + 'vector) + (if (vector? #{e\ 4019}#) + (#{match\ 4001}# + (vector->list #{e\ 4019}#) + (vector-ref #{p\ 4020}# 1) + #{w\ 4021}# + #{r\ 4022}# + #{mod\ 4023}#) + #f))))))))))))) + (#{combine\ 3997}# + (lambda (#{r*\ 4076}# #{r\ 4077}#) + (if (null? (car #{r*\ 4076}#)) + #{r\ 4077}# + (cons (map car #{r*\ 4076}#) + (#{combine\ 3997}# + (map cdr #{r*\ 4076}#) + #{r\ 4077}#))))) + (#{match-empty\ 3995}# + (lambda (#{p\ 4080}# #{r\ 4081}#) + (if (null? #{p\ 4080}#) + #{r\ 4081}# + (if (eq? #{p\ 4080}# (quote any)) + (cons (quote ()) #{r\ 4081}#) + (if (pair? #{p\ 4080}#) + (#{match-empty\ 3995}# + (car #{p\ 4080}#) + (#{match-empty\ 3995}# + (cdr #{p\ 4080}#) + #{r\ 4081}#)) + (if (eq? #{p\ 4080}# (quote each-any)) + (cons (quote ()) #{r\ 4081}#) + (begin + (let ((#{atom-key\ 4095}# + (vector-ref #{p\ 4080}# 0))) + (if (eqv? #{atom-key\ 4095}# (quote each)) + (#{match-empty\ 3995}# + (vector-ref #{p\ 4080}# 1) + #{r\ 4081}#) + (if (eqv? #{atom-key\ 4095}# (quote each+)) + (#{match-empty\ 3995}# + (vector-ref #{p\ 4080}# 1) + (#{match-empty\ 3995}# + (reverse (vector-ref #{p\ 4080}# 2)) + (#{match-empty\ 3995}# + (vector-ref #{p\ 4080}# 3) + #{r\ 4081}#))) + (if (if (eqv? #{atom-key\ 4095}# + 'free-id) + #t + (eqv? #{atom-key\ 4095}# + 'atom)) + #{r\ 4081}# + (if (eqv? #{atom-key\ 4095}# + 'vector) + (#{match-empty\ 3995}# + (vector-ref #{p\ 4080}# 1) + #{r\ 4081}#))))))))))))) + (#{match-each-any\ 3993}# + (lambda (#{e\ 4100}# #{w\ 4101}# #{mod\ 4102}#) + (if (pair? #{e\ 4100}#) + (begin + (let ((#{l\ 4109}# + (#{match-each-any\ 3993}# + (cdr #{e\ 4100}#) + #{w\ 4101}# + #{mod\ 4102}#))) + (if #{l\ 4109}# + (cons (#{wrap\ 456}# + (car #{e\ 4100}#) + #{w\ 4101}# + #{mod\ 4102}#) + #{l\ 4109}#) + #f))) + (if (null? #{e\ 4100}#) + '() + (if (#{syntax-object?\ 351}# #{e\ 4100}#) + (#{match-each-any\ 3993}# + (#{syntax-object-expression\ 353}# #{e\ 4100}#) + (#{join-wraps\ 438}# + #{w\ 4101}# + (#{syntax-object-wrap\ 355}# #{e\ 4100}#)) + #{mod\ 4102}#) + #f))))) + (#{match-each+\ 3991}# + (lambda (#{e\ 4117}# + #{x-pat\ 4118}# + #{y-pat\ 4119}# + #{z-pat\ 4120}# + #{w\ 4121}# + #{r\ 4122}# + #{mod\ 4123}#) + (letrec* + ((#{f\ 4134}# + (lambda (#{e\ 4135}# #{w\ 4136}#) + (if (pair? #{e\ 4135}#) + (call-with-values + (lambda () + (#{f\ 4134}# (cdr #{e\ 4135}#) #{w\ 4136}#)) + (lambda (#{xr*\ 4139}# + #{y-pat\ 4140}# + #{r\ 4141}#) + (if #{r\ 4141}# + (if (null? #{y-pat\ 4140}#) + (begin + (let ((#{xr\ 4146}# + (#{match\ 4001}# + (car #{e\ 4135}#) + #{x-pat\ 4118}# + #{w\ 4136}# + '() + #{mod\ 4123}#))) + (if #{xr\ 4146}# + (values + (cons #{xr\ 4146}# #{xr*\ 4139}#) + #{y-pat\ 4140}# + #{r\ 4141}#) + (values #f #f #f)))) + (values + '() + (cdr #{y-pat\ 4140}#) + (#{match\ 4001}# + (car #{e\ 4135}#) + (car #{y-pat\ 4140}#) + #{w\ 4136}# + #{r\ 4141}# + #{mod\ 4123}#))) + (values #f #f #f)))) + (if (#{syntax-object?\ 351}# #{e\ 4135}#) + (#{f\ 4134}# + (#{syntax-object-expression\ 353}# #{e\ 4135}#) + (#{join-wraps\ 438}# #{w\ 4136}# #{e\ 4135}#)) + (values + '() + #{y-pat\ 4119}# + (#{match\ 4001}# + #{e\ 4135}# + #{z-pat\ 4120}# + #{w\ 4136}# + #{r\ 4122}# + #{mod\ 4123}#))))))) + (begin (#{f\ 4134}# #{e\ 4117}# #{w\ 4121}#))))) + (#{match-each\ 3989}# + (lambda (#{e\ 4150}# + #{p\ 4151}# + #{w\ 4152}# + #{mod\ 4153}#) + (if (pair? #{e\ 4150}#) + (begin + (let ((#{first\ 4161}# + (#{match\ 4001}# + (car #{e\ 4150}#) + #{p\ 4151}# + #{w\ 4152}# + '() + #{mod\ 4153}#))) + (if #{first\ 4161}# + (begin + (let ((#{rest\ 4165}# + (#{match-each\ 3989}# + (cdr #{e\ 4150}#) + #{p\ 4151}# + #{w\ 4152}# + #{mod\ 4153}#))) + (if #{rest\ 4165}# + (cons #{first\ 4161}# #{rest\ 4165}#) + #f))) + #f))) + (if (null? #{e\ 4150}#) + '() + (if (#{syntax-object?\ 351}# #{e\ 4150}#) + (#{match-each\ 3989}# + (#{syntax-object-expression\ 353}# #{e\ 4150}#) + #{p\ 4151}# + (#{join-wraps\ 438}# + #{w\ 4152}# + (#{syntax-object-wrap\ 355}# #{e\ 4150}#)) + (#{syntax-object-module\ 357}# #{e\ 4150}#)) + #f)))))) + (begin + (set! $sc-dispatch + (lambda (#{e\ 4173}# #{p\ 4174}#) + (if (eq? #{p\ 4174}# (quote any)) + (list #{e\ 4173}#) + (if (#{syntax-object?\ 351}# #{e\ 4173}#) + (#{match*\ 3999}# + (#{syntax-object-expression\ 353}# #{e\ 4173}#) + #{p\ 4174}# + (#{syntax-object-wrap\ 355}# #{e\ 4173}#) + '() + (#{syntax-object-module\ 357}# #{e\ 4173}#)) + (#{match*\ 3999}# + #{e\ 4173}# + #{p\ 4174}# + '(()) + '() + #f))))))))))))) + +(define with-syntax + (make-syntax-transformer + 'with-syntax + 'macro + (lambda (#{x\ 4183}#) + (let ((#{tmp\ 4185}# #{x\ 4183}#)) + (let ((#{tmp\ 4186}# + ($sc-dispatch + #{tmp\ 4185}# + '(any () any . each-any)))) + (if #{tmp\ 4186}# + (@apply + (lambda (#{_\ 4190}# #{e1\ 4191}# #{e2\ 4192}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ e1 e2) + #((top) (top) (top)) + #("i4187" "i4188" "i4189")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4184"))) + (hygiene guile)) + (cons #{e1\ 4191}# #{e2\ 4192}#))) + #{tmp\ 4186}#) + (let ((#{tmp\ 4194}# ($sc-dispatch - #{tmp\ 4180}# - '(any #(each (any any)) any . each-any))))) - ($sc-dispatch - #{tmp\ 4180}# - '(any ((any any)) any . each-any))))) - ($sc-dispatch - #{tmp\ 4180}# - '(any () any . each-any)))) - #{x\ 4178}#)))) + #{tmp\ 4185}# + '(any ((any any)) any . each-any)))) + (if #{tmp\ 4194}# + (@apply + (lambda (#{_\ 4200}# + #{out\ 4201}# + #{in\ 4202}# + #{e1\ 4203}# + #{e2\ 4204}#) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i4195" "i4196" "i4197" "i4198" "i4199")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4184"))) + (hygiene guile)) + #{in\ 4202}# + '() + (list #{out\ 4201}# + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i4195" + "i4196" + "i4197" + "i4198" + "i4199")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4184"))) + (hygiene guile)) + (cons #{e1\ 4203}# #{e2\ 4204}#))))) + #{tmp\ 4194}#) + (let ((#{tmp\ 4206}# + ($sc-dispatch + #{tmp\ 4185}# + '(any #(each (any any)) any . each-any)))) + (if #{tmp\ 4206}# + (@apply + (lambda (#{_\ 4212}# + #{out\ 4213}# + #{in\ 4214}# + #{e1\ 4215}# + #{e2\ 4216}#) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i4207" "i4208" "i4209" "i4210" "i4211")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4184"))) + (hygiene guile)) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i4207" + "i4208" + "i4209" + "i4210" + "i4211")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4184"))) + (hygiene guile)) + #{in\ 4214}#) + '() + (list #{out\ 4213}# + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i4207" + "i4208" + "i4209" + "i4210" + "i4211")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4184"))) + (hygiene guile)) + (cons #{e1\ 4215}# #{e2\ 4216}#))))) + #{tmp\ 4206}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4185}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x\ 4215}#) - ((lambda (#{tmp\ 4217}#) - ((lambda (#{tmp\ 4218}#) - (if #{tmp\ 4218}# - (apply (lambda (#{_\ 4224}# - #{k\ 4225}# - #{keyword\ 4226}# - #{pattern\ 4227}# - #{template\ 4228}#) - (list '#(syntax-object - lambda - ((top) - #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4219" "i4220" "i4221" "i4222" "i4223")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4216"))) - (hygiene guile)) - '(#(syntax-object - x + (lambda (#{x\ 4220}#) + (let ((#{tmp\ 4222}# #{x\ 4220}#)) + (let ((#{tmp\ 4223}# + ($sc-dispatch + #{tmp\ 4222}# + '(any each-any . #(each ((any . any) any)))))) + (if #{tmp\ 4223}# + (@apply + (lambda (#{_\ 4229}# + #{k\ 4230}# + #{keyword\ 4231}# + #{pattern\ 4232}# + #{template\ 4233}#) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i4224" "i4225" "i4226" "i4227" "i4228")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile)) + '(#(syntax-object + x + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i4224" "i4225" "i4226" "i4227" "i4228")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile))) + (vector + '(#(syntax-object + macro-type + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i4224" "i4225" "i4226" "i4227" "i4228")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile)) + . + #(syntax-object + syntax-rules + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i4224" "i4225" "i4226" "i4227" "i4228")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile))) + (cons '#(syntax-object + patterns ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4219" "i4220" "i4221" "i4222" "i4223")) + #("i4224" "i4225" "i4226" "i4227" "i4228")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4216"))) - (hygiene guile))) - (vector - '(#(syntax-object - macro-type - ((top) - #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4216"))) - (hygiene guile)) - . - #(syntax-object - syntax-rules - ((top) - #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4216"))) - (hygiene guile))) - (cons '#(syntax-object - patterns - ((top) - #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4216"))) - (hygiene guile)) - #{pattern\ 4227}#)) - (cons '#(syntax-object - syntax-case - ((top) - #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4216"))) - (hygiene guile)) - (cons '#(syntax-object - x - ((top) - #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4216"))) - (hygiene guile)) - (cons #{k\ 4225}# - (map (lambda (#{tmp\ 4232}# - #{tmp\ 4231}#) - (list (cons '#(syntax-object - dummy - ((top) - #(ribcage - #(_ - k - keyword - pattern - template) - #((top) - (top) - (top) - (top) - (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4216"))) - (hygiene - guile)) - #{tmp\ 4231}#) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(_ - k - keyword - pattern - template) - #((top) - (top) - (top) - (top) - (top)) - #("i4219" - "i4220" - "i4221" - "i4222" - "i4223")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4216"))) - (hygiene - guile)) - #{tmp\ 4232}#))) - #{template\ 4228}# - #{pattern\ 4227}#)))))) - #{tmp\ 4218}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4217}#))) - ($sc-dispatch - #{tmp\ 4217}# - '(any each-any . #(each ((any . any) any)))))) - #{x\ 4215}#)))) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile)) + #{pattern\ 4232}#)) + (cons '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i4224" "i4225" "i4226" "i4227" "i4228")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile)) + (cons '#(syntax-object + x + ((top) + #(ribcage + #(_ k keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i4224" + "i4225" + "i4226" + "i4227" + "i4228")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4221"))) + (hygiene guile)) + (cons #{k\ 4230}# + (map (lambda (#{tmp\ 4237}# + #{tmp\ 4236}#) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(_ + k + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i4224" + "i4225" + "i4226" + "i4227" + "i4228")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4221"))) + (hygiene guile)) + #{tmp\ 4236}#) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ + k + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i4224" + "i4225" + "i4226" + "i4227" + "i4228")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4221"))) + (hygiene guile)) + #{tmp\ 4237}#))) + #{template\ 4233}# + #{pattern\ 4232}#)))))) + #{tmp\ 4223}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4222}#))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x\ 4233}#) - ((lambda (#{tmp\ 4235}#) - ((lambda (#{tmp\ 4236}#) - (if (if #{tmp\ 4236}# - (apply (lambda (#{let*\ 4242}# - #{x\ 4243}# - #{v\ 4244}# - #{e1\ 4245}# - #{e2\ 4246}#) - (and-map identifier? #{x\ 4243}#)) - #{tmp\ 4236}#) - #f) - (apply (lambda (#{let*\ 4253}# - #{x\ 4254}# - #{v\ 4255}# - #{e1\ 4256}# - #{e2\ 4257}#) - (letrec ((#{f\ 4260}# - (lambda (#{bindings\ 4261}#) - (if (null? #{bindings\ 4261}#) - (cons '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(f bindings) - #((top) (top)) - #("i4258" "i4259")) - #(ribcage - #(let* x v e1 e2) - #((top) - (top) - (top) - (top) - (top)) - #("i4248" - "i4249" - "i4250" - "i4251" - "i4252")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4234"))) - (hygiene guile)) - (cons '() - (cons #{e1\ 4256}# - #{e2\ 4257}#))) - ((lambda (#{tmp\ 4266}#) - ((lambda (#{tmp\ 4267}#) - (if #{tmp\ 4267}# - (apply (lambda (#{body\ 4270}# - #{binding\ 4271}#) - (list '#(syntax-object - let - ((top) - #(ribcage - #(body - binding) - #((top) - (top)) - #("i4268" - "i4269")) - #(ribcage - () - () - ()) - #(ribcage - #(f - bindings) - #((top) - (top)) - #("i4258" - "i4259")) - #(ribcage - #(let* - x - v - e1 - e2) - #((top) - (top) - (top) - (top) - (top)) - #("i4248" - "i4249" - "i4250" - "i4251" - "i4252")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4234"))) - (hygiene - guile)) - (list #{binding\ 4271}#) - #{body\ 4270}#)) - #{tmp\ 4267}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4266}#))) - ($sc-dispatch - #{tmp\ 4266}# - '(any any)))) - (list (#{f\ 4260}# - (cdr #{bindings\ 4261}#)) - (car #{bindings\ 4261}#))))))) - (#{f\ 4260}# (map list #{x\ 4254}# #{v\ 4255}#)))) - #{tmp\ 4236}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4235}#))) - ($sc-dispatch - #{tmp\ 4235}# - '(any #(each (any any)) any . each-any)))) - #{x\ 4233}#)))) + (lambda (#{x\ 4238}#) + (let ((#{tmp\ 4240}# #{x\ 4238}#)) + (let ((#{tmp\ 4241}# + ($sc-dispatch + #{tmp\ 4240}# + '(any #(each (any any)) any . each-any)))) + (if (if #{tmp\ 4241}# + (@apply + (lambda (#{let*\ 4247}# + #{x\ 4248}# + #{v\ 4249}# + #{e1\ 4250}# + #{e2\ 4251}#) + (and-map identifier? #{x\ 4248}#)) + #{tmp\ 4241}#) + #f) + (@apply + (lambda (#{let*\ 4258}# + #{x\ 4259}# + #{v\ 4260}# + #{e1\ 4261}# + #{e2\ 4262}#) + (letrec* + ((#{f\ 4265}# + (lambda (#{bindings\ 4266}#) + (if (null? #{bindings\ 4266}#) + (cons '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(f bindings) + #((top) (top)) + #("i4263" "i4264")) + #(ribcage + #(let* x v e1 e2) + #((top) (top) (top) (top) (top)) + #("i4253" + "i4254" + "i4255" + "i4256" + "i4257")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4239"))) + (hygiene guile)) + (cons '() + (cons #{e1\ 4261}# #{e2\ 4262}#))) + (let ((#{tmp\ 4271}# + (list (#{f\ 4265}# (cdr #{bindings\ 4266}#)) + (car #{bindings\ 4266}#)))) + (let ((#{tmp\ 4272}# + ($sc-dispatch + #{tmp\ 4271}# + '(any any)))) + (if #{tmp\ 4272}# + (@apply + (lambda (#{body\ 4275}# #{binding\ 4276}#) + (list '#(syntax-object + let + ((top) + #(ribcage + #(body binding) + #((top) (top)) + #("i4273" "i4274")) + #(ribcage () () ()) + #(ribcage + #(f bindings) + #((top) (top)) + #("i4263" "i4264")) + #(ribcage + #(let* x v e1 e2) + #((top) (top) (top) (top) (top)) + #("i4253" + "i4254" + "i4255" + "i4256" + "i4257")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4239"))) + (hygiene guile)) + (list #{binding\ 4276}#) + #{body\ 4275}#)) + #{tmp\ 4272}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4271}#)))))))) + (begin + (#{f\ 4265}# (map list #{x\ 4259}# #{v\ 4260}#))))) + #{tmp\ 4241}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4240}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x\ 4272}#) - ((lambda (#{tmp\ 4274}#) - ((lambda (#{tmp\ 4275}#) - (if #{tmp\ 4275}# - (apply (lambda (#{_\ 4283}# - #{var\ 4284}# - #{init\ 4285}# - #{step\ 4286}# - #{e0\ 4287}# - #{e1\ 4288}# - #{c\ 4289}#) - ((lambda (#{tmp\ 4291}#) - ((lambda (#{tmp\ 4292}#) - (if #{tmp\ 4292}# - (apply (lambda (#{step\ 4294}#) - ((lambda (#{tmp\ 4295}#) - ((lambda (#{tmp\ 4296}#) - (if #{tmp\ 4296}# - (apply (lambda () - (list '#(syntax-object - let - ((top) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - '#(syntax-object - doloop - ((top) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - (map list - #{var\ 4284}# - #{init\ 4285}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - (list '#(syntax-object - not - ((top) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - #{e0\ 4287}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - (append - #{c\ 4289}# - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - #{step\ 4294}#))))))) - #{tmp\ 4296}#) - ((lambda (#{tmp\ 4301}#) - (if #{tmp\ 4301}# - (apply (lambda (#{e1\ 4304}# - #{e2\ 4305}#) - (list '#(syntax-object - let - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4302" - "i4303")) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - '#(syntax-object + (lambda (#{orig-x\ 4277}#) + (let ((#{tmp\ 4279}# #{orig-x\ 4277}#)) + (let ((#{tmp\ 4280}# + ($sc-dispatch + #{tmp\ 4279}# + '(any #(each (any any . any)) + (any . each-any) + . + each-any)))) + (if #{tmp\ 4280}# + (@apply + (lambda (#{_\ 4288}# + #{var\ 4289}# + #{init\ 4290}# + #{step\ 4291}# + #{e0\ 4292}# + #{e1\ 4293}# + #{c\ 4294}#) + (let ((#{tmp\ 4296}# + (map (lambda (#{v\ 4317}# #{s\ 4318}#) + (let ((#{tmp\ 4321}# #{s\ 4318}#)) + (let ((#{tmp\ 4322}# + ($sc-dispatch + #{tmp\ 4321}# + '()))) + (if #{tmp\ 4322}# + (@apply + (lambda () #{v\ 4317}#) + #{tmp\ 4322}#) + (let ((#{tmp\ 4323}# + ($sc-dispatch + #{tmp\ 4321}# + '(any)))) + (if #{tmp\ 4323}# + (@apply + (lambda (#{e\ 4325}#) #{e\ 4325}#) + #{tmp\ 4323}#) + (let ((#{_\ 4327}# #{tmp\ 4321}#)) + (syntax-violation + 'do + "bad step expression" + #{orig-x\ 4277}# + #{s\ 4318}#)))))))) + #{var\ 4289}# + #{step\ 4291}#))) + (let ((#{tmp\ 4297}# + ($sc-dispatch #{tmp\ 4296}# (quote each-any)))) + (if #{tmp\ 4297}# + (@apply + (lambda (#{step\ 4299}#) + (let ((#{tmp\ 4300}# #{e1\ 4293}#)) + (let ((#{tmp\ 4301}# + ($sc-dispatch #{tmp\ 4300}# (quote ())))) + (if #{tmp\ 4301}# + (@apply + (lambda () + (list '#(syntax-object + let + ((top) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + '#(syntax-object + doloop + ((top) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + (map list + #{var\ 4289}# + #{init\ 4290}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + (list '#(syntax-object + not + ((top) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + #{e0\ 4292}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + (append + #{c\ 4294}# + (list (cons '#(syntax-object doloop ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4302" - "i4303")) #(ribcage #(step) #((top)) - #("i4293")) + #("i4298")) #(ribcage #(_ var @@ -13739,13 +13912,13 @@ (top) (top) (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) #(ribcage () () @@ -13753,1285 +13926,737 @@ #(ribcage #(orig-x) #((top)) - #("i4273"))) + #("i4278"))) (hygiene guile)) - (map list - #{var\ 4284}# - #{init\ 4285}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4302" - "i4303")) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - #{e0\ 4287}# - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4302" - "i4303")) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - (cons #{e1\ 4304}# - #{e2\ 4305}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4302" - "i4303")) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - (append - #{c\ 4289}# - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4302" - "i4303")) - #(ribcage - #(step) - #((top)) - #("i4293")) - #(ribcage - #(_ - var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i4276" - "i4277" - "i4278" - "i4279" - "i4280" - "i4281" - "i4282")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4273"))) - (hygiene - guile)) - #{step\ 4294}#))))))) - #{tmp\ 4301}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4295}#))) - ($sc-dispatch - #{tmp\ 4295}# - '(any . each-any))))) - ($sc-dispatch - #{tmp\ 4295}# - '()))) - #{e1\ 4288}#)) - #{tmp\ 4292}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4291}#))) - ($sc-dispatch #{tmp\ 4291}# (quote each-any)))) - (map (lambda (#{v\ 4312}# #{s\ 4313}#) - ((lambda (#{tmp\ 4316}#) - ((lambda (#{tmp\ 4317}#) - (if #{tmp\ 4317}# - (apply (lambda () #{v\ 4312}#) - #{tmp\ 4317}#) - ((lambda (#{tmp\ 4318}#) - (if #{tmp\ 4318}# - (apply (lambda (#{e\ 4320}#) - #{e\ 4320}#) - #{tmp\ 4318}#) - ((lambda (#{_\ 4322}#) - (syntax-violation - 'do - "bad step expression" - #{orig-x\ 4272}# - #{s\ 4313}#)) - #{tmp\ 4316}#))) + #{step\ 4299}#))))))) + #{tmp\ 4301}#) + (let ((#{tmp\ 4306}# ($sc-dispatch - #{tmp\ 4316}# - '(any))))) - ($sc-dispatch #{tmp\ 4316}# (quote ())))) - #{s\ 4313}#)) - #{var\ 4284}# - #{step\ 4286}#))) - #{tmp\ 4275}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4274}#))) - ($sc-dispatch - #{tmp\ 4274}# - '(any #(each (any any . any)) - (any . each-any) - . - each-any)))) - #{orig-x\ 4272}#)))) + #{tmp\ 4300}# + '(any . each-any)))) + (if #{tmp\ 4306}# + (@apply + (lambda (#{e1\ 4309}# #{e2\ 4310}#) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i4307" "i4308")) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i4307" "i4308")) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + (map list + #{var\ 4289}# + #{init\ 4290}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i4307" "i4308")) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + #{e0\ 4292}# + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i4307" + "i4308")) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + (cons #{e1\ 4309}# + #{e2\ 4310}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i4307" + "i4308")) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene guile)) + (append + #{c\ 4294}# + (list (cons '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i4307" + "i4308")) + #(ribcage + #(step) + #((top)) + #("i4298")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i4281" + "i4282" + "i4283" + "i4284" + "i4285" + "i4286" + "i4287")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i4278"))) + (hygiene + guile)) + #{step\ 4299}#))))))) + #{tmp\ 4306}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4300}#))))))) + #{tmp\ 4297}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4296}#))))) + #{tmp\ 4280}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4279}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (letrec ((#{quasicons\ 4329}# - (lambda (#{x\ 4333}# #{y\ 4334}#) - ((lambda (#{tmp\ 4338}#) - ((lambda (#{tmp\ 4339}#) - (if #{tmp\ 4339}# - (apply (lambda (#{x\ 4342}# #{y\ 4343}#) - ((lambda (#{tmp\ 4344}#) - ((lambda (#{tmp\ 4345}#) - (if #{tmp\ 4345}# - (apply (lambda (#{dy\ 4347}#) - ((lambda (#{tmp\ 4348}#) - ((lambda (#{tmp\ 4349}#) - (if #{tmp\ 4349}# - (apply (lambda (#{dx\ 4351}#) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(dx) - #((top)) - #("i4350")) - #(ribcage - #(dy) - #((top)) - #("i4346")) - #(ribcage - #(x - y) - #((top) - (top)) - #("i4340" - "i4341")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i4335" - "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene - guile)) - (cons #{dx\ 4351}# - #{dy\ 4347}#))) - #{tmp\ 4349}#) - ((lambda (#{_\ 4353}#) - (if (null? #{dy\ 4347}#) - (list '#(syntax-object - list - ((top) - #(ribcage - #(_) - #((top)) - #("i4352")) - #(ribcage - #(dy) - #((top)) - #("i4346")) - #(ribcage - #(x - y) - #((top) - (top)) - #("i4340" - "i4341")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i4335" - "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene - guile)) - #{x\ 4342}#) - (list '#(syntax-object - cons - ((top) - #(ribcage - #(_) - #((top)) - #("i4352")) - #(ribcage - #(dy) - #((top)) - #("i4346")) - #(ribcage - #(x - y) - #((top) - (top)) - #("i4340" - "i4341")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x - y) - #((top) - (top)) - #("i4335" - "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene - guile)) - #{x\ 4342}# - #{y\ 4343}#))) - #{tmp\ 4348}#))) - ($sc-dispatch - #{tmp\ 4348}# - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage - #(dy) - #((top)) - #("i4346")) - #(ribcage - #(x y) - #((top) - (top)) - #("i4340" - "i4341")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x y) - #((top) - (top)) - #("i4335" - "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene - guile))) - any)))) - #{x\ 4342}#)) - #{tmp\ 4345}#) - ((lambda (#{tmp\ 4354}#) - (if #{tmp\ 4354}# - (apply (lambda (#{stuff\ 4356}#) - (cons '#(syntax-object - list - ((top) - #(ribcage - #(stuff) - #((top)) - #("i4355")) - #(ribcage - #(x y) - #((top) - (top)) - #("i4340" - "i4341")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x y) - #((top) - (top)) - #("i4335" - "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene - guile)) - (cons #{x\ 4342}# - #{stuff\ 4356}#))) - #{tmp\ 4354}#) - ((lambda (#{else\ 4358}#) - (list '#(syntax-object - cons - ((top) - #(ribcage - #(else) - #((top)) - #("i4357")) - #(ribcage - #(x y) - #((top) (top)) - #("i4340" - "i4341")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4335" - "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #{x\ 4342}# - #{y\ 4343}#)) - #{tmp\ 4344}#))) - ($sc-dispatch - #{tmp\ 4344}# - '(#(free-id - #(syntax-object - list - ((top) - #(ribcage - #(x y) - #((top) (top)) - #("i4340" "i4341")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4335" "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - . - any))))) - ($sc-dispatch - #{tmp\ 4344}# - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage - #(x y) - #((top) (top)) - #("i4340" "i4341")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4335" "i4336")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - any)))) - #{y\ 4343}#)) - #{tmp\ 4339}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4338}#))) - ($sc-dispatch #{tmp\ 4338}# (quote (any any))))) - (list #{x\ 4333}# #{y\ 4334}#)))) - (#{quasiappend\ 4330}# - (lambda (#{x\ 4359}# #{y\ 4360}#) - ((lambda (#{tmp\ 4364}#) - ((lambda (#{tmp\ 4365}#) - (if #{tmp\ 4365}# - (apply (lambda (#{x\ 4368}# #{y\ 4369}#) - ((lambda (#{tmp\ 4370}#) - ((lambda (#{tmp\ 4371}#) - (if #{tmp\ 4371}# - (apply (lambda () #{x\ 4368}#) - #{tmp\ 4371}#) - ((lambda (#{_\ 4373}#) - (list '#(syntax-object - append - ((top) - #(ribcage - #(_) - #((top)) - #("i4372")) - #(ribcage - #(x y) - #((top) (top)) - #("i4366" "i4367")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4361" "i4362")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #{x\ 4368}# - #{y\ 4369}#)) - #{tmp\ 4370}#))) - ($sc-dispatch - #{tmp\ 4370}# - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage - #(x y) - #((top) (top)) - #("i4366" "i4367")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4361" "i4362")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - ())))) - #{y\ 4369}#)) - #{tmp\ 4365}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4364}#))) - ($sc-dispatch #{tmp\ 4364}# (quote (any any))))) - (list #{x\ 4359}# #{y\ 4360}#)))) - (#{quasivector\ 4331}# - (lambda (#{x\ 4374}#) - ((lambda (#{tmp\ 4377}#) - ((lambda (#{x\ 4379}#) - ((lambda (#{tmp\ 4380}#) - ((lambda (#{tmp\ 4381}#) - (if #{tmp\ 4381}# - (apply (lambda (#{x\ 4383}#) - (list '#(syntax-object + (letrec* + ((#{quasicons\ 4334}# + (lambda (#{x\ 4338}# #{y\ 4339}#) + (let ((#{tmp\ 4343}# (list #{x\ 4338}# #{y\ 4339}#))) + (let ((#{tmp\ 4344}# + ($sc-dispatch #{tmp\ 4343}# (quote (any any))))) + (if #{tmp\ 4344}# + (@apply + (lambda (#{x\ 4347}# #{y\ 4348}#) + (let ((#{tmp\ 4349}# #{y\ 4348}#)) + (let ((#{tmp\ 4350}# + ($sc-dispatch + #{tmp\ 4349}# + '(#(free-id + #(syntax-object + quote + ((top) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4340" "i4341")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + any)))) + (if #{tmp\ 4350}# + (@apply + (lambda (#{dy\ 4352}#) + (let ((#{tmp\ 4353}# #{x\ 4347}#)) + (let ((#{tmp\ 4354}# + ($sc-dispatch + #{tmp\ 4353}# + '(#(free-id + #(syntax-object quote ((top) #(ribcage - #(x) + #(dy) #((top)) - #("i4382")) + #("i4351")) #(ribcage - #(x) - #((top)) - #("i4378")) + #(x y) + #((top) (top)) + #("i4345" "i4346")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(x) - #((top)) - #("i4375")) + #(x y) + #((top) (top)) + #("i4340" "i4341")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - (list->vector #{x\ 4383}#))) - #{tmp\ 4381}#) - ((lambda (#{tmp\ 4385}#) - (if #{tmp\ 4385}# - (apply (lambda (#{x\ 4387}#) - (cons '#(syntax-object - vector - ((top) - #(ribcage - #(x) - #((top)) - #("i4386")) - #(ribcage - #(x) - #((top)) - #("i4378")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4375")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #{x\ 4387}#)) - #{tmp\ 4385}#) - ((lambda (#{_\ 4390}#) - (list '#(syntax-object - list->vector - ((top) - #(ribcage - #(_) - #((top)) - #("i4389")) - #(ribcage - #(x) - #((top)) - #("i4378")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4375")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #{x\ 4379}#)) - #{tmp\ 4380}#))) - ($sc-dispatch - #{tmp\ 4380}# - '(#(free-id - #(syntax-object - list - ((top) - #(ribcage #(x) #((top)) #("i4378")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4375")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" "i4326" "i4327" "i4328"))) - (hygiene guile))) - . - each-any))))) - ($sc-dispatch - #{tmp\ 4380}# - '(#(free-id - #(syntax-object - quote - ((top) - #(ribcage #(x) #((top)) #("i4378")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4375")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" "i4326" "i4327" "i4328"))) - (hygiene guile))) - each-any)))) - #{x\ 4379}#)) - #{tmp\ 4377}#)) - #{x\ 4374}#))) - (#{quasi\ 4332}# - (lambda (#{p\ 4391}# #{lev\ 4392}#) - ((lambda (#{tmp\ 4395}#) - ((lambda (#{tmp\ 4396}#) - (if #{tmp\ 4396}# - (apply (lambda (#{p\ 4398}#) - (if (= #{lev\ 4392}# 0) - #{p\ 4398}# - (#{quasicons\ 4329}# - '(#(syntax-object - quote - ((top) - #(ribcage #(p) #((top)) #("i4397")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #(syntax-object - unquote - ((top) - #(ribcage #(p) #((top)) #("i4397")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - (#{quasi\ 4332}# - (list #{p\ 4398}#) - (- #{lev\ 4392}# 1))))) - #{tmp\ 4396}#) - ((lambda (#{tmp\ 4399}#) - (if (if #{tmp\ 4399}# - (apply (lambda (#{args\ 4401}#) - (= #{lev\ 4392}# 0)) - #{tmp\ 4399}#) - #f) - (apply (lambda (#{args\ 4403}#) - (syntax-violation - 'unquote - "unquote takes exactly one argument" - #{p\ 4391}# - (cons '#(syntax-object - unquote + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile))) + any)))) + (if #{tmp\ 4354}# + (@apply + (lambda (#{dx\ 4356}#) + (list '#(syntax-object + quote ((top) #(ribcage - #(args) + #(dx) #((top)) - #("i4402")) + #("i4355")) + #(ribcage + #(dy) + #((top)) + #("i4351")) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(p lev) + #(x y) #((top) (top)) - #("i4393" "i4394")) + #("i4340" "i4341")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) + #("i4330" + "i4331" + "i4332" + "i4333"))) (hygiene guile)) - #{args\ 4403}#))) - #{tmp\ 4399}#) - ((lambda (#{tmp\ 4404}#) - (if #{tmp\ 4404}# - (apply (lambda (#{p\ 4407}# #{q\ 4408}#) - (if (= #{lev\ 4392}# 0) - (#{quasiappend\ 4330}# - #{p\ 4407}# - (#{quasi\ 4332}# - #{q\ 4408}# - #{lev\ 4392}#)) - (#{quasicons\ 4329}# - (#{quasicons\ 4329}# - '(#(syntax-object - quote - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i4405" "i4406")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #(syntax-object - unquote-splicing - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i4405" "i4406")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - (#{quasi\ 4332}# - (list #{p\ 4407}#) - (- #{lev\ 4392}# 1))) - (#{quasi\ 4332}# - #{q\ 4408}# - #{lev\ 4392}#)))) - #{tmp\ 4404}#) - ((lambda (#{tmp\ 4409}#) - (if (if #{tmp\ 4409}# - (apply (lambda (#{args\ 4412}# - #{q\ 4413}#) - (= #{lev\ 4392}# 0)) - #{tmp\ 4409}#) - #f) - (apply (lambda (#{args\ 4416}# - #{q\ 4417}#) - (syntax-violation - 'unquote-splicing - "unquote-splicing takes exactly one argument" - #{p\ 4391}# - (cons '#(syntax-object - unquote-splicing - ((top) - #(ribcage - #(args q) - #((top) (top)) - #("i4414" - "i4415")) - #(ribcage - () - () - ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" - "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #{args\ 4416}#))) - #{tmp\ 4409}#) - ((lambda (#{tmp\ 4418}#) - (if #{tmp\ 4418}# - (apply (lambda (#{p\ 4420}#) - (#{quasicons\ 4329}# - '(#(syntax-object - quote - ((top) - #(ribcage - #(p) - #((top)) - #("i4419")) - #(ribcage - () - () - ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" - "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile)) - #(syntax-object - quasiquote - ((top) - #(ribcage - #(p) - #((top)) - #("i4419")) - #(ribcage - () - () - ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" - "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - (#{quasi\ 4332}# - (list #{p\ 4420}#) - (+ #{lev\ 4392}# - 1)))) - #{tmp\ 4418}#) - ((lambda (#{tmp\ 4421}#) - (if #{tmp\ 4421}# - (apply (lambda (#{p\ 4424}# - #{q\ 4425}#) - (#{quasicons\ 4329}# - (#{quasi\ 4332}# - #{p\ 4424}# - #{lev\ 4392}#) - (#{quasi\ 4332}# - #{q\ 4425}# - #{lev\ 4392}#))) - #{tmp\ 4421}#) - ((lambda (#{tmp\ 4426}#) - (if #{tmp\ 4426}# - (apply (lambda (#{x\ 4428}#) - (#{quasivector\ 4331}# - (#{quasi\ 4332}# - #{x\ 4428}# - #{lev\ 4392}#))) - #{tmp\ 4426}#) - ((lambda (#{p\ 4431}#) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(p) - #((top)) - #("i4430")) - #(ribcage - () - () - ()) - #(ribcage - #(p lev) - #((top) - (top)) - #("i4393" - "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) - (top) - (top) - (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene - guile)) - #{p\ 4431}#)) - #{tmp\ 4395}#))) - ($sc-dispatch - #{tmp\ 4395}# - '#(vector each-any))))) - ($sc-dispatch - #{tmp\ 4395}# - '(any . any))))) - ($sc-dispatch - #{tmp\ 4395}# - '(#(free-id - #(syntax-object - quasiquote - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - any))))) - ($sc-dispatch - #{tmp\ 4395}# - '((#(free-id - #(syntax-object - unquote-splicing - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" - "i4326" - "i4327" - "i4328"))) - (hygiene guile))) - . - any) - . - any))))) + (cons #{dx\ 4356}# + #{dy\ 4352}#))) + #{tmp\ 4354}#) + (let ((#{_\ 4358}# #{tmp\ 4353}#)) + (if (null? #{dy\ 4352}#) + (list '#(syntax-object + list + ((top) + #(ribcage + #(_) + #((top)) + #("i4357")) + #(ribcage + #(dy) + #((top)) + #("i4351")) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4340" "i4341")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + #{x\ 4347}#) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(_) + #((top)) + #("i4357")) + #(ribcage + #(dy) + #((top)) + #("i4351")) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4340" "i4341")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + #{x\ 4347}# + #{y\ 4348}#))))))) + #{tmp\ 4350}#) + (let ((#{tmp\ 4359}# + ($sc-dispatch + #{tmp\ 4349}# + '(#(free-id + #(syntax-object + list + ((top) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4340" "i4341")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile))) + . + any)))) + (if #{tmp\ 4359}# + (@apply + (lambda (#{stuff\ 4361}#) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(stuff) + #((top)) + #("i4360")) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4340" "i4341")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + (cons #{x\ 4347}# #{stuff\ 4361}#))) + #{tmp\ 4359}#) + (let ((#{else\ 4363}# #{tmp\ 4349}#)) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(else) + #((top)) + #("i4362")) + #(ribcage + #(x y) + #((top) (top)) + #("i4345" "i4346")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4340" "i4341")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + #{x\ 4347}# + #{y\ 4348}#)))))))) + #{tmp\ 4344}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4343}#)))))) + (#{quasiappend\ 4335}# + (lambda (#{x\ 4364}# #{y\ 4365}#) + (let ((#{tmp\ 4369}# (list #{x\ 4364}# #{y\ 4365}#))) + (let ((#{tmp\ 4370}# + ($sc-dispatch #{tmp\ 4369}# (quote (any any))))) + (if #{tmp\ 4370}# + (@apply + (lambda (#{x\ 4373}# #{y\ 4374}#) + (let ((#{tmp\ 4375}# #{y\ 4374}#)) + (let ((#{tmp\ 4376}# ($sc-dispatch - #{tmp\ 4395}# - '((#(free-id - #(syntax-object - unquote-splicing - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) - #(ribcage - #(quasicons - quasiappend - quasivector - quasi) - #((top) (top) (top) (top)) - #("i4325" "i4326" "i4327" "i4328"))) - (hygiene guile))) - any) - . - any))))) - ($sc-dispatch - #{tmp\ 4395}# - '(#(free-id - #(syntax-object - unquote + #{tmp\ 4375}# + '(#(free-id + #(syntax-object + quote + ((top) + #(ribcage + #(x y) + #((top) (top)) + #("i4371" "i4372")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4366" "i4367")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + ())))) + (if #{tmp\ 4376}# + (@apply (lambda () #{x\ 4373}#) #{tmp\ 4376}#) + (let ((#{_\ 4378}# #{tmp\ 4375}#)) + (list '#(syntax-object + append + ((top) + #(ribcage #(_) #((top)) #("i4377")) + #(ribcage + #(x y) + #((top) (top)) + #("i4371" "i4372")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i4366" "i4367")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + #{x\ 4373}# + #{y\ 4374}#)))))) + #{tmp\ 4370}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4369}#)))))) + (#{quasivector\ 4336}# + (lambda (#{x\ 4379}#) + (let ((#{tmp\ 4382}# #{x\ 4379}#)) + (let ((#{x\ 4384}# #{tmp\ 4382}#)) + (let ((#{tmp\ 4385}# #{x\ 4384}#)) + (let ((#{tmp\ 4386}# + ($sc-dispatch + #{tmp\ 4385}# + '(#(free-id + #(syntax-object + quote + ((top) + #(ribcage #(x) #((top)) #("i4383")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4380")) + #(ribcage + #(quasicons quasiappend quasivector quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + each-any)))) + (if #{tmp\ 4386}# + (@apply + (lambda (#{x\ 4388}#) + (list '#(syntax-object + quote ((top) + #(ribcage #(x) #((top)) #("i4387")) + #(ribcage #(x) #((top)) #("i4383")) #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4393" "i4394")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4380")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4325" "i4326" "i4327" "i4328"))) - (hygiene guile))) - . - any))))) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + (list->vector #{x\ 4388}#))) + #{tmp\ 4386}#) + (let ((#{tmp\ 4390}# + ($sc-dispatch + #{tmp\ 4385}# + '(#(free-id + #(syntax-object + list + ((top) + #(ribcage #(x) #((top)) #("i4383")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4380")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + . + each-any)))) + (if #{tmp\ 4390}# + (@apply + (lambda (#{x\ 4392}#) + (cons '#(syntax-object + vector + ((top) + #(ribcage #(x) #((top)) #("i4391")) + #(ribcage #(x) #((top)) #("i4383")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4380")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + #{x\ 4392}#)) + #{tmp\ 4390}#) + (let ((#{_\ 4395}# #{tmp\ 4385}#)) + (list '#(syntax-object + list->vector + ((top) + #(ribcage #(_) #((top)) #("i4394")) + #(ribcage #(x) #((top)) #("i4383")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4380")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + #{x\ 4384}#))))))))))) + (#{quasi\ 4337}# + (lambda (#{p\ 4396}# #{lev\ 4397}#) + (let ((#{tmp\ 4400}# #{p\ 4396}#)) + (let ((#{tmp\ 4401}# ($sc-dispatch - #{tmp\ 4395}# + #{tmp\ 4400}# '(#(free-id #(syntax-object unquote @@ -15040,570 +14665,579 @@ #(ribcage #(p lev) #((top) (top)) - #("i4393" "i4394")) + #("i4398" "i4399")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4325" "i4326" "i4327" "i4328"))) + #("i4330" "i4331" "i4332" "i4333"))) (hygiene guile))) any)))) - #{p\ 4391}#)))) - (lambda (#{x\ 4432}#) - ((lambda (#{tmp\ 4434}#) - ((lambda (#{tmp\ 4435}#) - (if #{tmp\ 4435}# - (apply (lambda (#{_\ 4438}# #{e\ 4439}#) - (#{quasi\ 4332}# #{e\ 4439}# 0)) - #{tmp\ 4435}#) + (if #{tmp\ 4401}# + (@apply + (lambda (#{p\ 4403}#) + (if (= #{lev\ 4397}# 0) + #{p\ 4403}# + (#{quasicons\ 4334}# + '(#(syntax-object + quote + ((top) + #(ribcage #(p) #((top)) #("i4402")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons quasiappend quasivector quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + #(syntax-object + unquote + ((top) + #(ribcage #(p) #((top)) #("i4402")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons quasiappend quasivector quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + (#{quasi\ 4337}# + (list #{p\ 4403}#) + (1- #{lev\ 4397}#))))) + #{tmp\ 4401}#) + (let ((#{tmp\ 4404}# + ($sc-dispatch + #{tmp\ 4400}# + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons quasiappend quasivector quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + . + any)))) + (if (if #{tmp\ 4404}# + (@apply + (lambda (#{args\ 4406}#) (= #{lev\ 4397}# 0)) + #{tmp\ 4404}#) + #f) + (@apply + (lambda (#{args\ 4408}#) + (syntax-violation + 'unquote + "unquote takes exactly one argument" + #{p\ 4396}# + (cons '#(syntax-object + unquote + ((top) + #(ribcage #(args) #((top)) #("i4407")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + #{args\ 4408}#))) + #{tmp\ 4404}#) + (let ((#{tmp\ 4409}# + ($sc-dispatch + #{tmp\ 4400}# + '((#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + any) + . + any)))) + (if #{tmp\ 4409}# + (@apply + (lambda (#{p\ 4412}# #{q\ 4413}#) + (if (= #{lev\ 4397}# 0) + (#{quasiappend\ 4335}# + #{p\ 4412}# + (#{quasi\ 4337}# #{q\ 4413}# #{lev\ 4397}#)) + (#{quasicons\ 4334}# + (#{quasicons\ 4334}# + '(#(syntax-object + quote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i4410" "i4411")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile)) + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i4410" "i4411")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" "i4331" "i4332" "i4333"))) + (hygiene guile))) + (#{quasi\ 4337}# + (list #{p\ 4412}#) + (1- #{lev\ 4397}#))) + (#{quasi\ 4337}# #{q\ 4413}# #{lev\ 4397}#)))) + #{tmp\ 4409}#) + (let ((#{tmp\ 4414}# + ($sc-dispatch + #{tmp\ 4400}# + '((#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile))) + . + any) + . + any)))) + (if (if #{tmp\ 4414}# + (@apply + (lambda (#{args\ 4417}# #{q\ 4418}#) + (= #{lev\ 4397}# 0)) + #{tmp\ 4414}#) + #f) + (@apply + (lambda (#{args\ 4421}# #{q\ 4422}#) + (syntax-violation + 'unquote-splicing + "unquote-splicing takes exactly one argument" + #{p\ 4396}# + (cons '#(syntax-object + unquote-splicing + ((top) + #(ribcage + #(args q) + #((top) (top)) + #("i4419" "i4420")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + #{args\ 4421}#))) + #{tmp\ 4414}#) + (let ((#{tmp\ 4423}# + ($sc-dispatch + #{tmp\ 4400}# + '(#(free-id + #(syntax-object + quasiquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile))) + any)))) + (if #{tmp\ 4423}# + (@apply + (lambda (#{p\ 4425}#) + (#{quasicons\ 4334}# + '(#(syntax-object + quote + ((top) + #(ribcage #(p) #((top)) #("i4424")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + #(syntax-object + quasiquote + ((top) + #(ribcage #(p) #((top)) #("i4424")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) (top) (top) (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile))) + (#{quasi\ 4337}# + (list #{p\ 4425}#) + (1+ #{lev\ 4397}#)))) + #{tmp\ 4423}#) + (let ((#{tmp\ 4426}# + ($sc-dispatch + #{tmp\ 4400}# + '(any . any)))) + (if #{tmp\ 4426}# + (@apply + (lambda (#{p\ 4429}# #{q\ 4430}#) + (#{quasicons\ 4334}# + (#{quasi\ 4337}# + #{p\ 4429}# + #{lev\ 4397}#) + (#{quasi\ 4337}# + #{q\ 4430}# + #{lev\ 4397}#))) + #{tmp\ 4426}#) + (let ((#{tmp\ 4431}# + ($sc-dispatch + #{tmp\ 4400}# + '#(vector each-any)))) + (if #{tmp\ 4431}# + (@apply + (lambda (#{x\ 4433}#) + (#{quasivector\ 4336}# + (#{quasi\ 4337}# + #{x\ 4433}# + #{lev\ 4397}#))) + #{tmp\ 4431}#) + (let ((#{p\ 4436}# #{tmp\ 4400}#)) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(p) + #((top)) + #("i4435")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i4398" "i4399")) + #(ribcage + #(quasicons + quasiappend + quasivector + quasi) + #((top) + (top) + (top) + (top)) + #("i4330" + "i4331" + "i4332" + "i4333"))) + (hygiene guile)) + #{p\ 4436}#)))))))))))))))))))) + (begin + (lambda (#{x\ 4437}#) + (let ((#{tmp\ 4439}# #{x\ 4437}#)) + (let ((#{tmp\ 4440}# + ($sc-dispatch #{tmp\ 4439}# (quote (any any))))) + (if #{tmp\ 4440}# + (@apply + (lambda (#{_\ 4443}# #{e\ 4444}#) + (#{quasi\ 4337}# #{e\ 4444}# 0)) + #{tmp\ 4440}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4434}#))) - ($sc-dispatch #{tmp\ 4434}# (quote (any any))))) - #{x\ 4432}#))))) + #{tmp\ 4439}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x\ 4440}#) + (lambda (#{x\ 4445}#) (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}# - (apply (lambda (#{k\ 4460}# #{filename\ 4461}#) - (let ((#{fn\ 4463}# - (syntax->datum #{filename\ 4461}#))) - ((lambda (#{tmp\ 4465}#) - ((lambda (#{tmp\ 4466}#) - (if #{tmp\ 4466}# - (apply (lambda (#{exp\ 4468}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(exp) - #((top)) - #("i4467")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(fn) - #((top)) - #("i4462")) - #(ribcage - #(k filename) - #((top) (top)) - #("i4458" "i4459")) - #(ribcage - (read-file) - ((top)) - ("i4442")) - #(ribcage - #(x) - #((top)) - #("i4441"))) - (hygiene guile)) - #{exp\ 4468}#)) - #{tmp\ 4466}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4465}#))) - ($sc-dispatch #{tmp\ 4465}# (quote each-any)))) - (#{read-file\ 4443}# - #{fn\ 4463}# - #{filename\ 4461}#)))) - #{tmp\ 4457}#) + ((#{read-file\ 4448}# + (lambda (#{fn\ 4449}# #{k\ 4450}#) + (begin + (let ((#{p\ 4454}# (open-input-file #{fn\ 4449}#))) + (letrec* + ((#{f\ 4458}# + (lambda (#{x\ 4459}# #{result\ 4460}#) + (if (eof-object? #{x\ 4459}#) + (begin + (close-input-port #{p\ 4454}#) + (reverse #{result\ 4460}#)) + (#{f\ 4458}# + (read #{p\ 4454}#) + (cons (datum->syntax #{k\ 4450}# #{x\ 4459}#) + #{result\ 4460}#)))))) + (begin + (#{f\ 4458}# (read #{p\ 4454}#) (quote ()))))))))) + (begin + (let ((#{tmp\ 4461}# #{x\ 4445}#)) + (let ((#{tmp\ 4462}# + ($sc-dispatch #{tmp\ 4461}# (quote (any any))))) + (if #{tmp\ 4462}# + (@apply + (lambda (#{k\ 4465}# #{filename\ 4466}#) + (begin + (let ((#{fn\ 4468}# (syntax->datum #{filename\ 4466}#))) + (let ((#{tmp\ 4470}# + (#{read-file\ 4448}# + #{fn\ 4468}# + #{filename\ 4466}#))) + (let ((#{tmp\ 4471}# + ($sc-dispatch + #{tmp\ 4470}# + 'each-any))) + (if #{tmp\ 4471}# + (@apply + (lambda (#{exp\ 4473}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(exp) + #((top)) + #("i4472")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(fn) + #((top)) + #("i4467")) + #(ribcage + #(k filename) + #((top) (top)) + #("i4463" "i4464")) + #(ribcage + (read-file) + ((top)) + ("i4447")) + #(ribcage + #(x) + #((top)) + #("i4446"))) + (hygiene guile)) + #{exp\ 4473}#)) + #{tmp\ 4471}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4470}#))))))) + #{tmp\ 4462}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4456}#))) - ($sc-dispatch #{tmp\ 4456}# (quote (any any))))) - #{x\ 4440}#))))) + #{tmp\ 4461}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x\ 4470}#) - ((lambda (#{tmp\ 4472}#) - ((lambda (#{tmp\ 4473}#) - (if #{tmp\ 4473}# - (apply (lambda (#{k\ 4476}# #{filename\ 4477}#) - (let ((#{fn\ 4479}# (syntax->datum #{filename\ 4477}#))) - ((lambda (#{tmp\ 4481}#) - ((lambda (#{fn\ 4483}#) - (list '#(syntax-object - include - ((top) - #(ribcage #(fn) #((top)) #("i4482")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4478")) - #(ribcage - #(k filename) - #((top) (top)) - #("i4474" "i4475")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4471"))) - (hygiene guile)) - #{fn\ 4483}#)) - #{tmp\ 4481}#)) - (datum->syntax - #{filename\ 4477}# - (let ((#{t\ 4486}# - (%search-load-path #{fn\ 4479}#))) - (if #{t\ 4486}# - #{t\ 4486}# - (syntax-violation - 'include-from-path - "file not found in path" - #{x\ 4470}# - #{filename\ 4477}#))))))) - #{tmp\ 4473}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4472}#))) - ($sc-dispatch #{tmp\ 4472}# (quote (any any))))) - #{x\ 4470}#)))) + (lambda (#{x\ 4475}#) + (let ((#{tmp\ 4477}# #{x\ 4475}#)) + (let ((#{tmp\ 4478}# + ($sc-dispatch #{tmp\ 4477}# (quote (any any))))) + (if #{tmp\ 4478}# + (@apply + (lambda (#{k\ 4481}# #{filename\ 4482}#) + (begin + (let ((#{fn\ 4484}# (syntax->datum #{filename\ 4482}#))) + (let ((#{tmp\ 4486}# + (datum->syntax + #{filename\ 4482}# + (begin + (let ((#{t\ 4491}# + (%search-load-path #{fn\ 4484}#))) + (if #{t\ 4491}# + #{t\ 4491}# + (syntax-violation + 'include-from-path + "file not found in path" + #{x\ 4475}# + #{filename\ 4482}#))))))) + (let ((#{fn\ 4488}# #{tmp\ 4486}#)) + (list '#(syntax-object + include + ((top) + #(ribcage #(fn) #((top)) #("i4487")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(fn) #((top)) #("i4483")) + #(ribcage + #(k filename) + #((top) (top)) + #("i4479" "i4480")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4476"))) + (hygiene guile)) + #{fn\ 4488}#)))))) + #{tmp\ 4478}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4477}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x\ 4488}#) - ((lambda (#{tmp\ 4490}#) - ((lambda (#{tmp\ 4491}#) - (if #{tmp\ 4491}# - (apply (lambda (#{_\ 4494}# #{e\ 4495}#) - (syntax-violation - 'unquote - "expression not valid outside of quasiquote" - #{x\ 4488}#)) - #{tmp\ 4491}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4490}#))) - ($sc-dispatch #{tmp\ 4490}# (quote (any any))))) - #{x\ 4488}#)))) + (lambda (#{x\ 4493}#) + (let ((#{tmp\ 4495}# #{x\ 4493}#)) + (let ((#{tmp\ 4496}# + ($sc-dispatch #{tmp\ 4495}# (quote (any any))))) + (if #{tmp\ 4496}# + (@apply + (lambda (#{_\ 4499}# #{e\ 4500}#) + (syntax-violation + 'unquote + "expression not valid outside of quasiquote" + #{x\ 4493}#)) + #{tmp\ 4496}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4495}#))))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x\ 4496}#) - ((lambda (#{tmp\ 4498}#) - ((lambda (#{tmp\ 4499}#) - (if #{tmp\ 4499}# - (apply (lambda (#{_\ 4502}# #{e\ 4503}#) - (syntax-violation - 'unquote-splicing - "expression not valid outside of quasiquote" - #{x\ 4496}#)) - #{tmp\ 4499}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4498}#))) - ($sc-dispatch #{tmp\ 4498}# (quote (any any))))) - #{x\ 4496}#)))) + (lambda (#{x\ 4501}#) + (let ((#{tmp\ 4503}# #{x\ 4501}#)) + (let ((#{tmp\ 4504}# + ($sc-dispatch #{tmp\ 4503}# (quote (any any))))) + (if #{tmp\ 4504}# + (@apply + (lambda (#{_\ 4507}# #{e\ 4508}#) + (syntax-violation + 'unquote-splicing + "expression not valid outside of quasiquote" + #{x\ 4501}#)) + #{tmp\ 4504}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4503}#))))))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x\ 4504}#) - ((lambda (#{tmp\ 4506}#) - ((lambda (#{tmp\ 4507}#) - (if #{tmp\ 4507}# - (apply (lambda (#{_\ 4512}# - #{e\ 4513}# - #{m1\ 4514}# - #{m2\ 4515}#) - ((lambda (#{tmp\ 4517}#) - ((lambda (#{body\ 4519}#) - (list '#(syntax-object - let - ((top) - #(ribcage #(body) #((top)) #("i4518")) - #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i4508" "i4509" "i4510" "i4511")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4505"))) - (hygiene guile)) - (list (list '#(syntax-object - t - ((top) - #(ribcage - #(body) - #((top)) - #("i4518")) - #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene guile)) - #{e\ 4513}#)) - #{body\ 4519}#)) - #{tmp\ 4517}#)) - (letrec ((#{f\ 4523}# - (lambda (#{clause\ 4524}# #{clauses\ 4525}#) - (if (null? #{clauses\ 4525}#) - ((lambda (#{tmp\ 4527}#) - ((lambda (#{tmp\ 4528}#) - (if #{tmp\ 4528}# - (apply (lambda (#{e1\ 4531}# - #{e2\ 4532}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 e2) - #((top) - (top)) - #("i4529" - "i4530")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (cons #{e1\ 4531}# - #{e2\ 4532}#))) - #{tmp\ 4528}#) - ((lambda (#{tmp\ 4534}#) - (if #{tmp\ 4534}# - (apply (lambda (#{k\ 4538}# - #{e1\ 4539}# - #{e2\ 4540}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4535" - "i4536" - "i4537")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4535" - "i4536" - "i4537")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - '#(syntax-object - t - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4535" - "i4536" - "i4537")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4535" - "i4536" - "i4537")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - #{k\ 4538}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4535" - "i4536" - "i4537")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (cons #{e1\ 4539}# - #{e2\ 4540}#)))) - #{tmp\ 4534}#) - ((lambda (#{_\ 4544}#) - (syntax-violation - 'case - "bad clause" - #{x\ 4504}# - #{clause\ 4524}#)) - #{tmp\ 4527}#))) - ($sc-dispatch - #{tmp\ 4527}# - '(each-any - any - . - each-any))))) + (lambda (#{x\ 4509}#) + (let ((#{tmp\ 4511}# #{x\ 4509}#)) + (let ((#{tmp\ 4512}# + ($sc-dispatch + #{tmp\ 4511}# + '(any any any . each-any)))) + (if #{tmp\ 4512}# + (@apply + (lambda (#{_\ 4517}# + #{e\ 4518}# + #{m1\ 4519}# + #{m2\ 4520}#) + (let ((#{tmp\ 4522}# + (letrec* + ((#{f\ 4528}# + (lambda (#{clause\ 4529}# #{clauses\ 4530}#) + (if (null? #{clauses\ 4530}#) + (let ((#{tmp\ 4532}# #{clause\ 4529}#)) + (let ((#{tmp\ 4533}# ($sc-dispatch - #{tmp\ 4527}# + #{tmp\ 4532}# '(#(free-id #(syntax-object else @@ -15612,634 +15246,870 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4520" - "i4521" - "i4522")) + #("i4525" + "i4526" + "i4527")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) + #("i4513" + "i4514" + "i4515" + "i4516")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4505"))) + #("i4510"))) (hygiene guile))) any . each-any)))) - #{clause\ 4524}#) - ((lambda (#{tmp\ 4546}#) - ((lambda (#{rest\ 4548}#) - ((lambda (#{tmp\ 4549}#) - ((lambda (#{tmp\ 4550}#) - (if #{tmp\ 4550}# - (apply (lambda (#{k\ 4554}# - #{e1\ 4555}# - #{e2\ 4556}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4551" - "i4552" - "i4553")) - #(ribcage - #(rest) - #((top)) - #("i4547")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4551" - "i4552" - "i4553")) - #(ribcage - #(rest) - #((top)) - #("i4547")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - '#(syntax-object - t - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4551" - "i4552" - "i4553")) - #(ribcage - #(rest) - #((top)) - #("i4547")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4551" - "i4552" - "i4553")) - #(ribcage - #(rest) - #((top)) - #("i4547")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - #{k\ 4554}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4551" - "i4552" - "i4553")) - #(ribcage - #(rest) - #((top)) - #("i4547")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4520" - "i4521" - "i4522")) - #(ribcage - #(_ - e - m1 - m2) - #((top) - (top) - (top) - (top)) - #("i4508" - "i4509" - "i4510" - "i4511")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4505"))) - (hygiene - guile)) - (cons #{e1\ 4555}# - #{e2\ 4556}#)) - #{rest\ 4548}#)) - #{tmp\ 4550}#) - ((lambda (#{_\ 4560}#) - (syntax-violation - 'case - "bad clause" - #{x\ 4504}# - #{clause\ 4524}#)) - #{tmp\ 4549}#))) - ($sc-dispatch - #{tmp\ 4549}# - '(each-any - any - . - each-any)))) - #{clause\ 4524}#)) - #{tmp\ 4546}#)) - (#{f\ 4523}# - (car #{clauses\ 4525}#) - (cdr #{clauses\ 4525}#))))))) - (#{f\ 4523}# #{m1\ 4514}# #{m2\ 4515}#)))) - #{tmp\ 4507}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4506}#))) - ($sc-dispatch - #{tmp\ 4506}# - '(any any any . each-any)))) - #{x\ 4504}#)))) + (if #{tmp\ 4533}# + (@apply + (lambda (#{e1\ 4536}# #{e2\ 4537}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i4534" "i4535")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (cons #{e1\ 4536}# + #{e2\ 4537}#))) + #{tmp\ 4533}#) + (let ((#{tmp\ 4539}# + ($sc-dispatch + #{tmp\ 4532}# + '(each-any any . each-any)))) + (if #{tmp\ 4539}# + (@apply + (lambda (#{k\ 4543}# + #{e1\ 4544}# + #{e2\ 4545}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i4540" + "i4541" + "i4542")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i4540" + "i4541" + "i4542")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + '#(syntax-object + t + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i4540" + "i4541" + "i4542")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i4540" + "i4541" + "i4542")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene + guile)) + #{k\ 4543}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i4540" + "i4541" + "i4542")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (cons #{e1\ 4544}# + #{e2\ 4545}#)))) + #{tmp\ 4539}#) + (let ((#{_\ 4549}# #{tmp\ 4532}#)) + (syntax-violation + 'case + "bad clause" + #{x\ 4509}# + #{clause\ 4529}#))))))) + (let ((#{tmp\ 4551}# + (#{f\ 4528}# + (car #{clauses\ 4530}#) + (cdr #{clauses\ 4530}#)))) + (let ((#{rest\ 4553}# #{tmp\ 4551}#)) + (let ((#{tmp\ 4554}# #{clause\ 4529}#)) + (let ((#{tmp\ 4555}# + ($sc-dispatch + #{tmp\ 4554}# + '(each-any any . each-any)))) + (if #{tmp\ 4555}# + (@apply + (lambda (#{k\ 4559}# + #{e1\ 4560}# + #{e2\ 4561}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i4556" + "i4557" + "i4558")) + #(ribcage + #(rest) + #((top)) + #("i4552")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i4556" + "i4557" + "i4558")) + #(ribcage + #(rest) + #((top)) + #("i4552")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + '#(syntax-object + t + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i4556" + "i4557" + "i4558")) + #(ribcage + #(rest) + #((top)) + #("i4552")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i4556" + "i4557" + "i4558")) + #(ribcage + #(rest) + #((top)) + #("i4552")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene + guile)) + #{k\ 4559}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i4556" + "i4557" + "i4558")) + #(ribcage + #(rest) + #((top)) + #("i4552")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i4525" + "i4526" + "i4527")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i4513" + "i4514" + "i4515" + "i4516")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i4510"))) + (hygiene guile)) + (cons #{e1\ 4560}# + #{e2\ 4561}#)) + #{rest\ 4553}#)) + #{tmp\ 4555}#) + (let ((#{_\ 4565}# #{tmp\ 4554}#)) + (syntax-violation + 'case + "bad clause" + #{x\ 4509}# + #{clause\ 4529}#))))))))))) + (begin (#{f\ 4528}# #{m1\ 4519}# #{m2\ 4520}#))))) + (let ((#{body\ 4524}# #{tmp\ 4522}#)) + (list '#(syntax-object + let + ((top) + #(ribcage #(body) #((top)) #("i4523")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i4513" "i4514" "i4515" "i4516")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4510"))) + (hygiene guile)) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(body) + #((top)) + #("i4523")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i4513" "i4514" "i4515" "i4516")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4510"))) + (hygiene guile)) + #{e\ 4518}#)) + #{body\ 4524}#)))) + #{tmp\ 4512}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4511}#))))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x\ 4561}#) - ((lambda (#{tmp\ 4563}#) - ((lambda (#{tmp\ 4564}#) - (if #{tmp\ 4564}# - (apply (lambda (#{_\ 4567}# #{e\ 4568}#) - (list '#(syntax-object - lambda - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562"))) - (hygiene guile)) - '(#(syntax-object - x - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562"))) - (hygiene guile))) - '#((#(syntax-object - macro-type - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562"))) - (hygiene guile)) - . - #(syntax-object - identifier-syntax - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562"))) - (hygiene guile)))) - (list '#(syntax-object - syntax-case + (lambda (#{x\ 4566}#) + (let ((#{tmp\ 4568}# #{x\ 4566}#)) + (let ((#{tmp\ 4569}# + ($sc-dispatch #{tmp\ 4568}# (quote (any any))))) + (if #{tmp\ 4569}# + (@apply + (lambda (#{_\ 4572}# #{e\ 4573}#) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)) + '(#(syntax-object + x + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile))) + '#((#(syntax-object + macro-type + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)) + . + #(syntax-object + identifier-syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)) + '#(syntax-object + x + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)) + '() + (list '#(syntax-object + id + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)) + '(#(syntax-object + identifier? ((top) #(ribcage #(_ e) #((top) (top)) - #("i4565" "i4566")) + #("i4570" "i4571")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562"))) + #(ribcage #(x) #((top)) #("i4567"))) (hygiene guile)) - '#(syntax-object - x - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562"))) - (hygiene guile)) - '() - (list '#(syntax-object - id + (#(syntax-object + syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)) + #(syntax-object + id + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4567"))) + (hygiene guile)))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4567"))) + (hygiene guile)) + #{e\ 4573}#)) + (list (cons #{_\ 4572}# + '(#(syntax-object + x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4565" "i4566")) + #("i4570" "i4571")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4562"))) + #("i4567"))) (hygiene guile)) - '(#(syntax-object - identifier? - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene guile)) - (#(syntax-object - syntax - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene guile)) - #(syntax-object - id - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene guile)))) - (list '#(syntax-object - syntax + #(syntax-object + ... + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4567"))) + (hygiene guile)))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(_ e) + #((top) (top)) + #("i4570" "i4571")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4567"))) + (hygiene guile)) + (cons #{e\ 4573}# + '(#(syntax-object + x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4565" "i4566")) + #("i4570" "i4571")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4562"))) + #("i4567"))) (hygiene guile)) - #{e\ 4568}#)) - (list (cons #{_\ 4567}# - '(#(syntax-object - x - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene guile)))) - (list '#(syntax-object - syntax + #(syntax-object + ... ((top) #(ribcage #(_ e) #((top) (top)) - #("i4565" "i4566")) + #("i4570" "i4571")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4562"))) - (hygiene guile)) - (cons #{e\ 4568}# - '(#(syntax-object - x - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4565" "i4566")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4562"))) - (hygiene - guile))))))))) - #{tmp\ 4564}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4563}#))) - ($sc-dispatch #{tmp\ 4563}# (quote (any any))))) - #{x\ 4561}#)))) + #("i4567"))) + (hygiene guile))))))))) + #{tmp\ 4569}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4568}#))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x\ 4569}#) - ((lambda (#{tmp\ 4571}#) - ((lambda (#{tmp\ 4572}#) - (if #{tmp\ 4572}# - (apply (lambda (#{_\ 4578}# - #{id\ 4579}# - #{args\ 4580}# - #{b0\ 4581}# - #{b1\ 4582}#) - (list '#(syntax-object - define - ((top) - #(ribcage - #(_ id args b0 b1) - #((top) (top) (top) (top) (top)) - #("i4573" "i4574" "i4575" "i4576" "i4577")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4570"))) - (hygiene guile)) - #{id\ 4579}# - (cons '#(syntax-object - lambda* - ((top) - #(ribcage - #(_ id args b0 b1) - #((top) (top) (top) (top) (top)) - #("i4573" - "i4574" - "i4575" - "i4576" - "i4577")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4570"))) - (hygiene guile)) - (cons #{args\ 4580}# - (cons #{b0\ 4581}# #{b1\ 4582}#))))) - #{tmp\ 4572}#) - ((lambda (#{tmp\ 4584}#) - (if (if #{tmp\ 4584}# - (apply (lambda (#{_\ 4588}# #{id\ 4589}# #{val\ 4590}#) - (identifier? - '#(syntax-object - x - ((top) - #(ribcage - #(_ id val) - #((top) (top) (top)) - #("i4585" "i4586" "i4587")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4570"))) - (hygiene guile)))) - #{tmp\ 4584}#) - #f) - (apply (lambda (#{_\ 4594}# #{id\ 4595}# #{val\ 4596}#) - (list '#(syntax-object - define - ((top) - #(ribcage - #(_ id val) - #((top) (top) (top)) - #("i4591" "i4592" "i4593")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4570"))) - (hygiene guile)) - #{id\ 4595}# - #{val\ 4596}#)) - #{tmp\ 4584}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 4571}#))) - ($sc-dispatch - #{tmp\ 4571}# - '(any any any))))) - ($sc-dispatch - #{tmp\ 4571}# - '(any (any . any) any . each-any)))) - #{x\ 4569}#)))) + (lambda (#{x\ 4574}#) + (let ((#{tmp\ 4576}# #{x\ 4574}#)) + (let ((#{tmp\ 4577}# + ($sc-dispatch + #{tmp\ 4576}# + '(any (any . any) any . each-any)))) + (if #{tmp\ 4577}# + (@apply + (lambda (#{_\ 4583}# + #{id\ 4584}# + #{args\ 4585}# + #{b0\ 4586}# + #{b1\ 4587}#) + (list '#(syntax-object + define + ((top) + #(ribcage + #(_ id args b0 b1) + #((top) (top) (top) (top) (top)) + #("i4578" "i4579" "i4580" "i4581" "i4582")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4575"))) + (hygiene guile)) + #{id\ 4584}# + (cons '#(syntax-object + lambda* + ((top) + #(ribcage + #(_ id args b0 b1) + #((top) (top) (top) (top) (top)) + #("i4578" "i4579" "i4580" "i4581" "i4582")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4575"))) + (hygiene guile)) + (cons #{args\ 4585}# + (cons #{b0\ 4586}# #{b1\ 4587}#))))) + #{tmp\ 4577}#) + (let ((#{tmp\ 4589}# + ($sc-dispatch + #{tmp\ 4576}# + '(any any any)))) + (if (if #{tmp\ 4589}# + (@apply + (lambda (#{_\ 4593}# #{id\ 4594}# #{val\ 4595}#) + (identifier? + '#(syntax-object + x + ((top) + #(ribcage + #(_ id val) + #((top) (top) (top)) + #("i4590" "i4591" "i4592")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4575"))) + (hygiene guile)))) + #{tmp\ 4589}#) + #f) + (@apply + (lambda (#{_\ 4599}# #{id\ 4600}# #{val\ 4601}#) + (list '#(syntax-object + define + ((top) + #(ribcage + #(_ id val) + #((top) (top) (top)) + #("i4596" "i4597" "i4598")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4575"))) + (hygiene guile)) + #{id\ 4600}# + #{val\ 4601}#)) + #{tmp\ 4589}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 4576}#)))))))))