(eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) (letrec ((#{and-map*\ 20}# (lambda (#{f\ 134}# #{first\ 135}# . #{rest\ 136}#) (let ((#{t\ 142}# (null? #{first\ 135}#))) (if #{t\ 142}# #{t\ 142}# (if (null? #{rest\ 136}#) (letrec ((#{andmap\ 146}# (lambda (#{first\ 147}#) (let ((#{x\ 150}# (car #{first\ 147}#)) (#{first\ 151}# (cdr #{first\ 147}#))) (if (null? #{first\ 151}#) (#{f\ 134}# #{x\ 150}#) (if (#{f\ 134}# #{x\ 150}#) (#{andmap\ 146}# #{first\ 151}#) #f)))))) (#{andmap\ 146}# #{first\ 135}#)) (letrec ((#{andmap\ 157}# (lambda (#{first\ 158}# #{rest\ 159}#) (let ((#{x\ 164}# (car #{first\ 158}#)) (#{xr\ 165}# (map car #{rest\ 159}#)) (#{first\ 166}# (cdr #{first\ 158}#)) (#{rest\ 167}# (map cdr #{rest\ 159}#))) (if (null? #{first\ 166}#) (apply #{f\ 134}# (cons #{x\ 164}# #{xr\ 165}#)) (if (apply #{f\ 134}# (cons #{x\ 164}# #{xr\ 165}#)) (#{andmap\ 157}# #{first\ 166}# #{rest\ 167}#) #f)))))) (#{andmap\ 157}# #{first\ 135}# #{rest\ 136}#)))))))) (letrec ((#{lambda-var-list\ 422}# (lambda (#{vars\ 637}#) (letrec ((#{lvl\ 643}# (lambda (#{vars\ 644}# #{ls\ 645}# #{w\ 646}#) (if (pair? #{vars\ 644}#) (#{lvl\ 643}# (cdr #{vars\ 644}#) (cons (#{wrap\ 376}# (car #{vars\ 644}#) #{w\ 646}# #f) #{ls\ 645}#) #{w\ 646}#) (if (#{id?\ 307}# #{vars\ 644}#) (cons (#{wrap\ 376}# #{vars\ 644}# #{w\ 646}# #f) #{ls\ 645}#) (if (null? #{vars\ 644}#) #{ls\ 645}# (if (#{syntax-object?\ 271}# #{vars\ 644}#) (#{lvl\ 643}# (#{syntax-object-expression\ 273}# #{vars\ 644}#) #{ls\ 645}# (#{join-wraps\ 358}# #{w\ 646}# (#{syntax-object-wrap\ 275}# #{vars\ 644}#))) (cons #{vars\ 644}# #{ls\ 645}#)))))))) (#{lvl\ 643}# #{vars\ 637}# '() '(()))))) (#{gen-var\ 420}# (lambda (#{id\ 657}#) (let ((#{id\ 660}# (if (#{syntax-object?\ 271}# #{id\ 657}#) (#{syntax-object-expression\ 273}# #{id\ 657}#) #{id\ 657}#))) (gensym (string-append (symbol->string #{id\ 660}#) " "))))) (#{strip\ 418}# (lambda (#{x\ 662}# #{w\ 663}#) (if (memq 'top (#{wrap-marks\ 314}# #{w\ 663}#)) #{x\ 662}# (letrec ((#{f\ 669}# (lambda (#{x\ 670}#) (if (#{syntax-object?\ 271}# #{x\ 670}#) (#{strip\ 418}# (#{syntax-object-expression\ 273}# #{x\ 670}#) (#{syntax-object-wrap\ 275}# #{x\ 670}#)) (if (pair? #{x\ 670}#) (let ((#{a\ 677}# (#{f\ 669}# (car #{x\ 670}#))) (#{d\ 678}# (#{f\ 669}# (cdr #{x\ 670}#)))) (if (if (eq? #{a\ 677}# (car #{x\ 670}#)) (eq? #{d\ 678}# (cdr #{x\ 670}#)) #f) #{x\ 670}# (cons #{a\ 677}# #{d\ 678}#))) (if (vector? #{x\ 670}#) (let ((#{old\ 684}# (vector->list #{x\ 670}#))) (let ((#{new\ 686}# (map #{f\ 669}# #{old\ 684}#))) (if (#{and-map*\ 20}# eq? #{old\ 684}# #{new\ 686}#) #{x\ 670}# (list->vector #{new\ 686}#)))) #{x\ 670}#)))))) (#{f\ 669}# #{x\ 662}#))))) (#{chi-lambda-case\ 416}# (lambda (#{e\ 688}# #{r\ 689}# #{w\ 690}# #{s\ 691}# #{mod\ 692}# #{get-formals\ 693}# #{clauses\ 694}#) (letrec ((#{expand-body\ 709}# (lambda (#{req\ 710}# #{opt\ 711}# #{rest\ 712}# #{kw\ 713}# #{body\ 714}# #{vars\ 715}# #{r*\ 716}# #{w*\ 717}# #{inits\ 718}# #{meta\ 719}#) ((lambda (#{tmp\ 730}#) ((lambda (#{tmp\ 731}#) (if (if #{tmp\ 731}# (apply (lambda (#{docstring\ 735}# #{e1\ 736}# #{e2\ 737}#) (string? (syntax->datum #{docstring\ 735}#))) #{tmp\ 731}#) #f) (apply (lambda (#{docstring\ 741}# #{e1\ 742}# #{e2\ 743}#) (#{expand-body\ 709}# #{req\ 710}# #{opt\ 711}# #{rest\ 712}# #{kw\ 713}# (cons #{e1\ 742}# #{e2\ 743}#) #{vars\ 715}# #{r*\ 716}# #{w*\ 717}# #{inits\ 718}# (append #{meta\ 719}# (list (cons 'documentation (syntax->datum #{docstring\ 741}#)))))) #{tmp\ 731}#) ((lambda (#{tmp\ 746}#) (if #{tmp\ 746}# (apply (lambda (#{k\ 751}# #{v\ 752}# #{e1\ 753}# #{e2\ 754}#) (#{expand-body\ 709}# #{req\ 710}# #{opt\ 711}# #{rest\ 712}# #{kw\ 713}# (cons #{e1\ 753}# #{e2\ 754}#) #{vars\ 715}# #{r*\ 716}# #{w*\ 717}# #{inits\ 718}# (append #{meta\ 719}# (syntax->datum (map cons #{k\ 751}# #{v\ 752}#))))) #{tmp\ 746}#) ((lambda (#{tmp\ 758}#) (if #{tmp\ 758}# (apply (lambda (#{e1\ 761}# #{e2\ 762}#) (values #{meta\ 719}# #{req\ 710}# #{opt\ 711}# #{rest\ 712}# #{kw\ 713}# #{inits\ 718}# #{vars\ 715}# (#{chi-body\ 400}# (cons #{e1\ 761}# #{e2\ 762}#) (#{source-wrap\ 378}# #{e\ 688}# #{w\ 690}# #{s\ 691}# #{mod\ 692}#) #{r*\ 716}# #{w*\ 717}# #{mod\ 692}#))) #{tmp\ 758}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 730}#))) ($sc-dispatch #{tmp\ 730}# '(any . each-any))))) ($sc-dispatch #{tmp\ 730}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch #{tmp\ 730}# '(any any . each-any)))) #{body\ 714}#))) (#{expand-kw\ 707}# (lambda (#{req\ 764}# #{opt\ 765}# #{rest\ 766}# #{kw\ 767}# #{body\ 768}# #{vars\ 769}# #{r*\ 770}# #{w*\ 771}# #{aok\ 772}# #{out\ 773}# #{inits\ 774}#) (if (pair? #{kw\ 767}#) ((lambda (#{tmp\ 788}#) ((lambda (#{tmp\ 789}#) (if #{tmp\ 789}# (apply (lambda (#{k\ 793}# #{id\ 794}# #{i\ 795}#) (let ((#{v\ 798}# (#{gen-var\ 420}# #{id\ 794}#))) (let ((#{l\ 800}# (#{gen-labels\ 325}# (list #{v\ 798}#)))) (let ((#{r**\ 802}# (#{extend-var-env\ 297}# #{l\ 800}# (list #{v\ 798}#) #{r*\ 770}#))) (let ((#{w**\ 804}# (#{make-binding-wrap\ 354}# (list #{id\ 794}#) #{l\ 800}# #{w*\ 771}#))) (#{expand-kw\ 707}# #{req\ 764}# #{opt\ 765}# #{rest\ 766}# (cdr #{kw\ 767}#) #{body\ 768}# (cons #{v\ 798}# #{vars\ 769}#) #{r**\ 802}# #{w**\ 804}# #{aok\ 772}# (cons (list (syntax->datum #{k\ 793}#) (syntax->datum #{id\ 794}#) #{v\ 798}#) #{out\ 773}#) (cons (#{chi\ 392}# #{i\ 795}# #{r*\ 770}# #{w*\ 771}# #{mod\ 692}#) #{inits\ 774}#))))))) #{tmp\ 789}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 788}#))) ($sc-dispatch #{tmp\ 788}# '(any any any)))) (car #{kw\ 767}#)) (#{expand-body\ 709}# #{req\ 764}# #{opt\ 765}# #{rest\ 766}# (if (let ((#{t\ 808}# #{aok\ 772}#)) (if #{t\ 808}# #{t\ 808}# (pair? #{out\ 773}#))) (cons #{aok\ 772}# (reverse #{out\ 773}#)) #f) #{body\ 768}# (reverse #{vars\ 769}#) #{r*\ 770}# #{w*\ 771}# (reverse #{inits\ 774}#) '())))) (#{expand-opt\ 705}# (lambda (#{req\ 810}# #{opt\ 811}# #{rest\ 812}# #{kw\ 813}# #{body\ 814}# #{vars\ 815}# #{r*\ 816}# #{w*\ 817}# #{out\ 818}# #{inits\ 819}#) (if (pair? #{opt\ 811}#) ((lambda (#{tmp\ 832}#) ((lambda (#{tmp\ 833}#) (if #{tmp\ 833}# (apply (lambda (#{id\ 836}# #{i\ 837}#) (let ((#{v\ 840}# (#{gen-var\ 420}# #{id\ 836}#))) (let ((#{l\ 842}# (#{gen-labels\ 325}# (list #{v\ 840}#)))) (let ((#{r**\ 844}# (#{extend-var-env\ 297}# #{l\ 842}# (list #{v\ 840}#) #{r*\ 816}#))) (let ((#{w**\ 846}# (#{make-binding-wrap\ 354}# (list #{id\ 836}#) #{l\ 842}# #{w*\ 817}#))) (#{expand-opt\ 705}# #{req\ 810}# (cdr #{opt\ 811}#) #{rest\ 812}# #{kw\ 813}# #{body\ 814}# (cons #{v\ 840}# #{vars\ 815}#) #{r**\ 844}# #{w**\ 846}# (cons (syntax->datum #{id\ 836}#) #{out\ 818}#) (cons (#{chi\ 392}# #{i\ 837}# #{r*\ 816}# #{w*\ 817}# #{mod\ 692}#) #{inits\ 819}#))))))) #{tmp\ 833}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 832}#))) ($sc-dispatch #{tmp\ 832}# '(any any)))) (car #{opt\ 811}#)) (if #{rest\ 812}# (let ((#{v\ 851}# (#{gen-var\ 420}# #{rest\ 812}#))) (let ((#{l\ 853}# (#{gen-labels\ 325}# (list #{v\ 851}#)))) (let ((#{r*\ 855}# (#{extend-var-env\ 297}# #{l\ 853}# (list #{v\ 851}#) #{r*\ 816}#))) (let ((#{w*\ 857}# (#{make-binding-wrap\ 354}# (list #{rest\ 812}#) #{l\ 853}# #{w*\ 817}#))) (#{expand-kw\ 707}# #{req\ 810}# (if (pair? #{out\ 818}#) (reverse #{out\ 818}#) #f) (syntax->datum #{rest\ 812}#) (if (pair? #{kw\ 813}#) (cdr #{kw\ 813}#) #{kw\ 813}#) #{body\ 814}# (cons #{v\ 851}# #{vars\ 815}#) #{r*\ 855}# #{w*\ 857}# (if (pair? #{kw\ 813}#) (car #{kw\ 813}#) #f) '() #{inits\ 819}#))))) (#{expand-kw\ 707}# #{req\ 810}# (if (pair? #{out\ 818}#) (reverse #{out\ 818}#) #f) #f (if (pair? #{kw\ 813}#) (cdr #{kw\ 813}#) #{kw\ 813}#) #{body\ 814}# #{vars\ 815}# #{r*\ 816}# #{w*\ 817}# (if (pair? #{kw\ 813}#) (car #{kw\ 813}#) #f) '() #{inits\ 819}#))))) (#{expand-req\ 703}# (lambda (#{req\ 859}# #{opt\ 860}# #{rest\ 861}# #{kw\ 862}# #{body\ 863}#) (let ((#{vars\ 871}# (map #{gen-var\ 420}# #{req\ 859}#)) (#{labels\ 872}# (#{gen-labels\ 325}# #{req\ 859}#))) (let ((#{r*\ 875}# (#{extend-var-env\ 297}# #{labels\ 872}# #{vars\ 871}# #{r\ 689}#)) (#{w*\ 876}# (#{make-binding-wrap\ 354}# #{req\ 859}# #{labels\ 872}# #{w\ 690}#))) (#{expand-opt\ 705}# (map syntax->datum #{req\ 859}#) #{opt\ 860}# #{rest\ 861}# #{kw\ 862}# #{body\ 863}# (reverse #{vars\ 871}#) #{r*\ 875}# #{w*\ 876}# '() '())))))) ((lambda (#{tmp\ 877}#) ((lambda (#{tmp\ 878}#) (if #{tmp\ 878}# (apply (lambda () (values (quote ()) #f)) #{tmp\ 878}#) ((lambda (#{tmp\ 879}#) (if #{tmp\ 879}# (apply (lambda (#{args\ 886}# #{e1\ 887}# #{e2\ 888}# #{args*\ 889}# #{e1*\ 890}# #{e2*\ 891}#) (call-with-values (lambda () (#{get-formals\ 693}# #{args\ 886}#)) (lambda (#{req\ 892}# #{opt\ 893}# #{rest\ 894}# #{kw\ 895}#) (call-with-values (lambda () (#{expand-req\ 703}# #{req\ 892}# #{opt\ 893}# #{rest\ 894}# #{kw\ 895}# (cons #{e1\ 887}# #{e2\ 888}#))) (lambda (#{meta\ 901}# #{req\ 902}# #{opt\ 903}# #{rest\ 904}# #{kw\ 905}# #{inits\ 906}# #{vars\ 907}# #{body\ 908}#) (call-with-values (lambda () (#{chi-lambda-case\ 416}# #{e\ 688}# #{r\ 689}# #{w\ 690}# #{s\ 691}# #{mod\ 692}# #{get-formals\ 693}# (map (lambda (#{tmp\ 919}# #{tmp\ 918}# #{tmp\ 917}#) (cons #{tmp\ 917}# (cons #{tmp\ 918}# #{tmp\ 919}#))) #{e2*\ 891}# #{e1*\ 890}# #{args*\ 889}#))) (lambda (#{meta*\ 921}# #{else*\ 922}#) (values (append #{meta\ 901}# #{meta*\ 921}#) (#{build-lambda-case\ 253}# #{s\ 691}# #{req\ 902}# #{opt\ 903}# #{rest\ 904}# #{kw\ 905}# #{inits\ 906}# #{vars\ 907}# #{body\ 908}# #{else*\ 922}#))))))))) #{tmp\ 879}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 877}#))) ($sc-dispatch #{tmp\ 877}# '((any any . each-any) . #(each (any any . each-any))))))) ($sc-dispatch #{tmp\ 877}# (quote ())))) #{clauses\ 694}#)))) (#{lambda*-formals\ 414}# (lambda (#{orig-args\ 925}#) (letrec ((#{check\ 936}# (lambda (#{req\ 937}# #{opt\ 938}# #{rest\ 939}# #{kw\ 940}#) (if (#{distinct-bound-ids?\ 372}# (append #{req\ 937}# (map car #{opt\ 938}#) (if #{rest\ 939}# (list #{rest\ 939}#) '()) (if (pair? #{kw\ 940}#) (map cadr (cdr #{kw\ 940}#)) '()))) (values #{req\ 937}# #{opt\ 938}# #{rest\ 939}# #{kw\ 940}#) (syntax-violation 'lambda* "duplicate identifier in argument list" #{orig-args\ 925}#)))) (#{rest\ 934}# (lambda (#{args\ 948}# #{req\ 949}# #{opt\ 950}# #{kw\ 951}#) ((lambda (#{tmp\ 956}#) ((lambda (#{tmp\ 957}#) (if (if #{tmp\ 957}# (apply (lambda (#{r\ 959}#) (#{id?\ 307}# #{r\ 959}#)) #{tmp\ 957}#) #f) (apply (lambda (#{r\ 961}#) (#{check\ 936}# #{req\ 949}# #{opt\ 950}# #{r\ 961}# #{kw\ 951}#)) #{tmp\ 957}#) ((lambda (#{else\ 963}#) (syntax-violation 'lambda* "invalid rest argument" #{orig-args\ 925}# #{args\ 948}#)) #{tmp\ 956}#))) (list #{tmp\ 956}#))) #{args\ 948}#))) (#{key\ 932}# (lambda (#{args\ 964}# #{req\ 965}# #{opt\ 966}# #{rkey\ 967}#) ((lambda (#{tmp\ 972}#) ((lambda (#{tmp\ 973}#) (if #{tmp\ 973}# (apply (lambda () (#{check\ 936}# #{req\ 965}# #{opt\ 966}# #f (cons #f (reverse #{rkey\ 967}#)))) #{tmp\ 973}#) ((lambda (#{tmp\ 974}#) (if (if #{tmp\ 974}# (apply (lambda (#{a\ 977}# #{b\ 978}#) (#{id?\ 307}# #{a\ 977}#)) #{tmp\ 974}#) #f) (apply (lambda (#{a\ 981}# #{b\ 982}#) ((lambda (#{tmp\ 984}#) ((lambda (#{k\ 986}#) (#{key\ 932}# #{b\ 982}# #{req\ 965}# #{opt\ 966}# (cons (cons #{k\ 986}# (cons #{a\ 981}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) #("i985")) #(ribcage #(a b) #((top) (top)) #("i979" "i980")) #(ribcage () () ()) #(ribcage #(args req opt rkey) #((top) (top) (top) (top)) #("i968" "i969" "i970" "i971")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i935" "i933" "i931" "i929" "i927")) #(ribcage #(orig-args) #((top)) #("i926")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))))) #{rkey\ 967}#))) #{tmp\ 984}#)) (symbol->keyword (syntax->datum #{a\ 981}#)))) #{tmp\ 974}#) ((lambda (#{tmp\ 987}#) (if (if #{tmp\ 987}# (apply (lambda (#{a\ 991}# #{init\ 992}# #{b\ 993}#) (#{id?\ 307}# #{a\ 991}#)) #{tmp\ 987}#) #f) (apply (lambda (#{a\ 997}# #{init\ 998}# #{b\ 999}#) ((lambda (#{tmp\ 1001}#) ((lambda (#{k\ 1003}#) (#{key\ 932}# #{b\ 999}# #{req\ 965}# #{opt\ 966}# (cons (list #{k\ 1003}# #{a\ 997}# #{init\ 998}#) #{rkey\ 967}#))) #{tmp\ 1001}#)) (symbol->keyword (syntax->datum #{a\ 997}#)))) #{tmp\ 987}#) ((lambda (#{tmp\ 1004}#) (if (if #{tmp\ 1004}# (apply (lambda (#{a\ 1009}# #{init\ 1010}# #{k\ 1011}# #{b\ 1012}#) (if (#{id?\ 307}# #{a\ 1009}#) (keyword? (syntax->datum #{k\ 1011}#)) #f)) #{tmp\ 1004}#) #f) (apply (lambda (#{a\ 1019}# #{init\ 1020}# #{k\ 1021}# #{b\ 1022}#) (#{key\ 932}# #{b\ 1022}# #{req\ 965}# #{opt\ 966}# (cons (list #{k\ 1021}# #{a\ 1019}# #{init\ 1020}#) #{rkey\ 967}#))) #{tmp\ 1004}#) ((lambda (#{tmp\ 1023}#) (if (if #{tmp\ 1023}# (apply (lambda (#{aok\ 1025}#) (eq? (syntax->datum #{aok\ 1025}#) #:allow-other-keys)) #{tmp\ 1023}#) #f) (apply (lambda (#{aok\ 1027}#) (#{check\ 936}# #{req\ 965}# #{opt\ 966}# #f (cons #t (reverse #{rkey\ 967}#)))) #{tmp\ 1023}#) ((lambda (#{tmp\ 1028}#) (if (if #{tmp\ 1028}# (apply (lambda (#{aok\ 1032}# #{a\ 1033}# #{b\ 1034}#) (if (eq? (syntax->datum #{aok\ 1032}#) #:allow-other-keys) (eq? (syntax->datum #{a\ 1033}#) #:rest) #f)) #{tmp\ 1028}#) #f) (apply (lambda (#{aok\ 1040}# #{a\ 1041}# #{b\ 1042}#) (#{rest\ 934}# #{b\ 1042}# #{req\ 965}# #{opt\ 966}# (cons #t (reverse #{rkey\ 967}#)))) #{tmp\ 1028}#) ((lambda (#{tmp\ 1043}#) (if (if #{tmp\ 1043}# (apply (lambda (#{aok\ 1046}# #{r\ 1047}#) (if (eq? (syntax->datum #{aok\ 1046}#) #:allow-other-keys) (#{id?\ 307}# #{r\ 1047}#) #f)) #{tmp\ 1043}#) #f) (apply (lambda (#{aok\ 1052}# #{r\ 1053}#) (#{rest\ 934}# #{r\ 1053}# #{req\ 965}# #{opt\ 966}# (cons #t (reverse #{rkey\ 967}#)))) #{tmp\ 1043}#) ((lambda (#{tmp\ 1054}#) (if (if #{tmp\ 1054}# (apply (lambda (#{a\ 1057}# #{b\ 1058}#) (eq? (syntax->datum #{a\ 1057}#) #:rest)) #{tmp\ 1054}#) #f) (apply (lambda (#{a\ 1061}# #{b\ 1062}#) (#{rest\ 934}# #{b\ 1062}# #{req\ 965}# #{opt\ 966}# (cons #f (reverse #{rkey\ 967}#)))) #{tmp\ 1054}#) ((lambda (#{tmp\ 1063}#) (if (if #{tmp\ 1063}# (apply (lambda (#{r\ 1065}#) (#{id?\ 307}# #{r\ 1065}#)) #{tmp\ 1063}#) #f) (apply (lambda (#{r\ 1067}#) (#{rest\ 934}# #{r\ 1067}# #{req\ 965}# #{opt\ 966}# (cons #f (reverse #{rkey\ 967}#)))) #{tmp\ 1063}#) ((lambda (#{else\ 1069}#) (syntax-violation 'lambda* "invalid keyword argument list" #{orig-args\ 925}# #{args\ 964}#)) #{tmp\ 972}#))) (list #{tmp\ 972}#)))) ($sc-dispatch #{tmp\ 972}# '(any any))))) ($sc-dispatch #{tmp\ 972}# '(any . any))))) ($sc-dispatch #{tmp\ 972}# '(any any any))))) ($sc-dispatch #{tmp\ 972}# '(any))))) ($sc-dispatch #{tmp\ 972}# '((any any any) . any))))) ($sc-dispatch #{tmp\ 972}# '((any any) . any))))) ($sc-dispatch #{tmp\ 972}# '(any . any))))) ($sc-dispatch #{tmp\ 972}# (quote ())))) #{args\ 964}#))) (#{opt\ 930}# (lambda (#{args\ 1070}# #{req\ 1071}# #{ropt\ 1072}#) ((lambda (#{tmp\ 1076}#) ((lambda (#{tmp\ 1077}#) (if #{tmp\ 1077}# (apply (lambda () (#{check\ 936}# #{req\ 1071}# (reverse #{ropt\ 1072}#) #f '())) #{tmp\ 1077}#) ((lambda (#{tmp\ 1078}#) (if (if #{tmp\ 1078}# (apply (lambda (#{a\ 1081}# #{b\ 1082}#) (#{id?\ 307}# #{a\ 1081}#)) #{tmp\ 1078}#) #f) (apply (lambda (#{a\ 1085}# #{b\ 1086}#) (#{opt\ 930}# #{b\ 1086}# #{req\ 1071}# (cons (cons #{a\ 1085}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) #("i1083" "i1084")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) #("i1073" "i1074" "i1075")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i935" "i933" "i931" "i929" "i927")) #(ribcage #(orig-args) #((top)) #("i926")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)))) #{ropt\ 1072}#))) #{tmp\ 1078}#) ((lambda (#{tmp\ 1087}#) (if (if #{tmp\ 1087}# (apply (lambda (#{a\ 1091}# #{init\ 1092}# #{b\ 1093}#) (#{id?\ 307}# #{a\ 1091}#)) #{tmp\ 1087}#) #f) (apply (lambda (#{a\ 1097}# #{init\ 1098}# #{b\ 1099}#) (#{opt\ 930}# #{b\ 1099}# #{req\ 1071}# (cons (list #{a\ 1097}# #{init\ 1098}#) #{ropt\ 1072}#))) #{tmp\ 1087}#) ((lambda (#{tmp\ 1100}#) (if (if #{tmp\ 1100}# (apply (lambda (#{a\ 1103}# #{b\ 1104}#) (eq? (syntax->datum #{a\ 1103}#) #:key)) #{tmp\ 1100}#) #f) (apply (lambda (#{a\ 1107}# #{b\ 1108}#) (#{key\ 932}# #{b\ 1108}# #{req\ 1071}# (reverse #{ropt\ 1072}#) '())) #{tmp\ 1100}#) ((lambda (#{tmp\ 1109}#) (if (if #{tmp\ 1109}# (apply (lambda (#{a\ 1112}# #{b\ 1113}#) (eq? (syntax->datum #{a\ 1112}#) #:rest)) #{tmp\ 1109}#) #f) (apply (lambda (#{a\ 1116}# #{b\ 1117}#) (#{rest\ 934}# #{b\ 1117}# #{req\ 1071}# (reverse #{ropt\ 1072}#) '())) #{tmp\ 1109}#) ((lambda (#{tmp\ 1118}#) (if (if #{tmp\ 1118}# (apply (lambda (#{r\ 1120}#) (#{id?\ 307}# #{r\ 1120}#)) #{tmp\ 1118}#) #f) (apply (lambda (#{r\ 1122}#) (#{rest\ 934}# #{r\ 1122}# #{req\ 1071}# (reverse #{ropt\ 1072}#) '())) #{tmp\ 1118}#) ((lambda (#{else\ 1124}#) (syntax-violation 'lambda* "invalid optional argument list" #{orig-args\ 925}# #{args\ 1070}#)) #{tmp\ 1076}#))) (list #{tmp\ 1076}#)))) ($sc-dispatch #{tmp\ 1076}# '(any any))))) ($sc-dispatch #{tmp\ 1076}# '(any . any))))) ($sc-dispatch #{tmp\ 1076}# '((any any) . any))))) ($sc-dispatch #{tmp\ 1076}# '(any . any))))) ($sc-dispatch #{tmp\ 1076}# (quote ())))) #{args\ 1070}#))) (#{req\ 928}# (lambda (#{args\ 1125}# #{rreq\ 1126}#) ((lambda (#{tmp\ 1129}#) ((lambda (#{tmp\ 1130}#) (if #{tmp\ 1130}# (apply (lambda () (#{check\ 936}# (reverse #{rreq\ 1126}#) '() #f '())) #{tmp\ 1130}#) ((lambda (#{tmp\ 1131}#) (if (if #{tmp\ 1131}# (apply (lambda (#{a\ 1134}# #{b\ 1135}#) (#{id?\ 307}# #{a\ 1134}#)) #{tmp\ 1131}#) #f) (apply (lambda (#{a\ 1138}# #{b\ 1139}#) (#{req\ 928}# #{b\ 1139}# (cons #{a\ 1138}# #{rreq\ 1126}#))) #{tmp\ 1131}#) ((lambda (#{tmp\ 1140}#) (if (if #{tmp\ 1140}# (apply (lambda (#{a\ 1143}# #{b\ 1144}#) (eq? (syntax->datum #{a\ 1143}#) #:optional)) #{tmp\ 1140}#) #f) (apply (lambda (#{a\ 1147}# #{b\ 1148}#) (#{opt\ 930}# #{b\ 1148}# (reverse #{rreq\ 1126}#) '())) #{tmp\ 1140}#) ((lambda (#{tmp\ 1149}#) (if (if #{tmp\ 1149}# (apply (lambda (#{a\ 1152}# #{b\ 1153}#) (eq? (syntax->datum #{a\ 1152}#) #:key)) #{tmp\ 1149}#) #f) (apply (lambda (#{a\ 1156}# #{b\ 1157}#) (#{key\ 932}# #{b\ 1157}# (reverse #{rreq\ 1126}#) '() '())) #{tmp\ 1149}#) ((lambda (#{tmp\ 1158}#) (if (if #{tmp\ 1158}# (apply (lambda (#{a\ 1161}# #{b\ 1162}#) (eq? (syntax->datum #{a\ 1161}#) #:rest)) #{tmp\ 1158}#) #f) (apply (lambda (#{a\ 1165}# #{b\ 1166}#) (#{rest\ 934}# #{b\ 1166}# (reverse #{rreq\ 1126}#) '() '())) #{tmp\ 1158}#) ((lambda (#{tmp\ 1167}#) (if (if #{tmp\ 1167}# (apply (lambda (#{r\ 1169}#) (#{id?\ 307}# #{r\ 1169}#)) #{tmp\ 1167}#) #f) (apply (lambda (#{r\ 1171}#) (#{rest\ 934}# #{r\ 1171}# (reverse #{rreq\ 1126}#) '() '())) #{tmp\ 1167}#) ((lambda (#{else\ 1173}#) (syntax-violation 'lambda* "invalid argument list" #{orig-args\ 925}# #{args\ 1125}#)) #{tmp\ 1129}#))) (list #{tmp\ 1129}#)))) ($sc-dispatch #{tmp\ 1129}# '(any any))))) ($sc-dispatch #{tmp\ 1129}# '(any . any))))) ($sc-dispatch #{tmp\ 1129}# '(any . any))))) ($sc-dispatch #{tmp\ 1129}# '(any . any))))) ($sc-dispatch #{tmp\ 1129}# (quote ())))) #{args\ 1125}#)))) (#{req\ 928}# #{orig-args\ 925}# (quote ()))))) (#{chi-simple-lambda\ 412}# (lambda (#{e\ 1174}# #{r\ 1175}# #{w\ 1176}# #{s\ 1177}# #{mod\ 1178}# #{req\ 1179}# #{rest\ 1180}# #{meta\ 1181}# #{body\ 1182}#) (let ((#{ids\ 1194}# (if #{rest\ 1180}# (append #{req\ 1179}# (list #{rest\ 1180}#)) #{req\ 1179}#))) (let ((#{vars\ 1196}# (map #{gen-var\ 420}# #{ids\ 1194}#))) (let ((#{labels\ 1198}# (#{gen-labels\ 325}# #{ids\ 1194}#))) (#{build-simple-lambda\ 249}# #{s\ 1177}# (map syntax->datum #{req\ 1179}#) (if #{rest\ 1180}# (syntax->datum #{rest\ 1180}#) #f) #{vars\ 1196}# #{meta\ 1181}# (#{chi-body\ 400}# #{body\ 1182}# (#{source-wrap\ 378}# #{e\ 1174}# #{w\ 1176}# #{s\ 1177}# #{mod\ 1178}#) (#{extend-var-env\ 297}# #{labels\ 1198}# #{vars\ 1196}# #{r\ 1175}#) (#{make-binding-wrap\ 354}# #{ids\ 1194}# #{labels\ 1198}# #{w\ 1176}#) #{mod\ 1178}#))))))) (#{lambda-formals\ 410}# (lambda (#{orig-args\ 1201}#) (letrec ((#{check\ 1206}# (lambda (#{req\ 1207}# #{rest\ 1208}#) (if (#{distinct-bound-ids?\ 372}# (if #{rest\ 1208}# (cons #{rest\ 1208}# #{req\ 1207}#) #{req\ 1207}#)) (values #{req\ 1207}# #f #{rest\ 1208}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" #{orig-args\ 1201}#)))) (#{req\ 1204}# (lambda (#{args\ 1214}# #{rreq\ 1215}#) ((lambda (#{tmp\ 1218}#) ((lambda (#{tmp\ 1219}#) (if #{tmp\ 1219}# (apply (lambda () (#{check\ 1206}# (reverse #{rreq\ 1215}#) #f)) #{tmp\ 1219}#) ((lambda (#{tmp\ 1220}#) (if (if #{tmp\ 1220}# (apply (lambda (#{a\ 1223}# #{b\ 1224}#) (#{id?\ 307}# #{a\ 1223}#)) #{tmp\ 1220}#) #f) (apply (lambda (#{a\ 1227}# #{b\ 1228}#) (#{req\ 1204}# #{b\ 1228}# (cons #{a\ 1227}# #{rreq\ 1215}#))) #{tmp\ 1220}#) ((lambda (#{tmp\ 1229}#) (if (if #{tmp\ 1229}# (apply (lambda (#{r\ 1231}#) (#{id?\ 307}# #{r\ 1231}#)) #{tmp\ 1229}#) #f) (apply (lambda (#{r\ 1233}#) (#{check\ 1206}# (reverse #{rreq\ 1215}#) #{r\ 1233}#)) #{tmp\ 1229}#) ((lambda (#{else\ 1235}#) (syntax-violation 'lambda "invalid argument list" #{orig-args\ 1201}# #{args\ 1214}#)) #{tmp\ 1218}#))) (list #{tmp\ 1218}#)))) ($sc-dispatch #{tmp\ 1218}# '(any . any))))) ($sc-dispatch #{tmp\ 1218}# (quote ())))) #{args\ 1214}#)))) (#{req\ 1204}# #{orig-args\ 1201}# (quote ()))))) (#{ellipsis?\ 408}# (lambda (#{x\ 1236}#) (if (#{nonsymbol-id?\ 305}# #{x\ 1236}#) (#{free-id=?\ 366}# #{x\ 1236}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1237")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))) #f))) (#{chi-void\ 406}# (lambda () (#{build-void\ 227}# #f))) (#{eval-local-transformer\ 404}# (lambda (#{expanded\ 1241}# #{mod\ 1242}#) (let ((#{p\ 1246}# (#{local-eval-hook\ 218}# #{expanded\ 1241}# #{mod\ 1242}#))) (if (procedure? #{p\ 1246}#) (cons #{p\ 1246}# (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" #{p\ 1246}#))))) (#{chi-local-syntax\ 402}# (lambda (#{rec?\ 1247}# #{e\ 1248}# #{r\ 1249}# #{w\ 1250}# #{s\ 1251}# #{mod\ 1252}# #{k\ 1253}#) ((lambda (#{tmp\ 1261}#) ((lambda (#{tmp\ 1262}#) (if #{tmp\ 1262}# (apply (lambda (#{_\ 1268}# #{id\ 1269}# #{val\ 1270}# #{e1\ 1271}# #{e2\ 1272}#) (let ((#{ids\ 1274}# #{id\ 1269}#)) (if (not (#{valid-bound-ids?\ 370}# #{ids\ 1274}#)) (syntax-violation #f "duplicate bound keyword" #{e\ 1248}#) (let ((#{labels\ 1277}# (#{gen-labels\ 325}# #{ids\ 1274}#))) (let ((#{new-w\ 1279}# (#{make-binding-wrap\ 354}# #{ids\ 1274}# #{labels\ 1277}# #{w\ 1250}#))) (#{k\ 1253}# (cons #{e1\ 1271}# #{e2\ 1272}#) (#{extend-env\ 295}# #{labels\ 1277}# (let ((#{w\ 1283}# (if #{rec?\ 1247}# #{new-w\ 1279}# #{w\ 1250}#)) (#{trans-r\ 1284}# (#{macros-only-env\ 299}# #{r\ 1249}#))) (map (lambda (#{x\ 1285}#) (cons 'macro (#{eval-local-transformer\ 404}# (#{chi\ 392}# #{x\ 1285}# #{trans-r\ 1284}# #{w\ 1283}# #{mod\ 1252}#) #{mod\ 1252}#))) #{val\ 1270}#)) #{r\ 1249}#) #{new-w\ 1279}# #{s\ 1251}# #{mod\ 1252}#)))))) #{tmp\ 1262}#) ((lambda (#{_\ 1290}#) (syntax-violation #f "bad local syntax definition" (#{source-wrap\ 378}# #{e\ 1248}# #{w\ 1250}# #{s\ 1251}# #{mod\ 1252}#))) #{tmp\ 1261}#))) ($sc-dispatch #{tmp\ 1261}# '(any #(each (any any)) any . each-any)))) #{e\ 1248}#))) (#{chi-body\ 400}# (lambda (#{body\ 1291}# #{outer-form\ 1292}# #{r\ 1293}# #{w\ 1294}# #{mod\ 1295}#) (let ((#{r\ 1303}# (cons '("placeholder" placeholder) #{r\ 1293}#))) (let ((#{ribcage\ 1305}# (#{make-ribcage\ 328}# '() '() '()))) (let ((#{w\ 1308}# (#{make-wrap\ 312}# (#{wrap-marks\ 314}# #{w\ 1294}#) (cons #{ribcage\ 1305}# (#{wrap-subst\ 316}# #{w\ 1294}#))))) (letrec ((#{parse\ 1317}# (lambda (#{body\ 1318}# #{ids\ 1319}# #{labels\ 1320}# #{var-ids\ 1321}# #{vars\ 1322}# #{vals\ 1323}# #{bindings\ 1324}#) (if (null? #{body\ 1318}#) (syntax-violation #f "no expressions in body" #{outer-form\ 1292}#) (let ((#{e\ 1329}# (cdar #{body\ 1318}#)) (#{er\ 1330}# (caar #{body\ 1318}#))) (call-with-values (lambda () (#{syntax-type\ 388}# #{e\ 1329}# #{er\ 1330}# '(()) (#{source-annotation\ 286}# #{er\ 1330}#) #{ribcage\ 1305}# #{mod\ 1295}# #f)) (lambda (#{type\ 1332}# #{value\ 1333}# #{e\ 1334}# #{w\ 1335}# #{s\ 1336}# #{mod\ 1337}#) (if (memv #{type\ 1332}# '(define-form)) (let ((#{id\ 1347}# (#{wrap\ 376}# #{value\ 1333}# #{w\ 1335}# #{mod\ 1337}#)) (#{label\ 1348}# (#{gen-label\ 323}#))) (let ((#{var\ 1350}# (#{gen-var\ 420}# #{id\ 1347}#))) (begin (#{extend-ribcage!\ 352}# #{ribcage\ 1305}# #{id\ 1347}# #{label\ 1348}#) (#{parse\ 1317}# (cdr #{body\ 1318}#) (cons #{id\ 1347}# #{ids\ 1319}#) (cons #{label\ 1348}# #{labels\ 1320}#) (cons #{id\ 1347}# #{var-ids\ 1321}#) (cons #{var\ 1350}# #{vars\ 1322}#) (cons (cons #{er\ 1330}# (#{wrap\ 376}# #{e\ 1334}# #{w\ 1335}# #{mod\ 1337}#)) #{vals\ 1323}#) (cons (cons 'lexical #{var\ 1350}#) #{bindings\ 1324}#))))) (if (memv #{type\ 1332}# '(define-syntax-form)) (let ((#{id\ 1355}# (#{wrap\ 376}# #{value\ 1333}# #{w\ 1335}# #{mod\ 1337}#)) (#{label\ 1356}# (#{gen-label\ 323}#))) (begin (#{extend-ribcage!\ 352}# #{ribcage\ 1305}# #{id\ 1355}# #{label\ 1356}#) (#{parse\ 1317}# (cdr #{body\ 1318}#) (cons #{id\ 1355}# #{ids\ 1319}#) (cons #{label\ 1356}# #{labels\ 1320}#) #{var-ids\ 1321}# #{vars\ 1322}# #{vals\ 1323}# (cons (cons 'macro (cons #{er\ 1330}# (#{wrap\ 376}# #{e\ 1334}# #{w\ 1335}# #{mod\ 1337}#))) #{bindings\ 1324}#)))) (if (memv #{type\ 1332}# '(begin-form)) ((lambda (#{tmp\ 1359}#) ((lambda (#{tmp\ 1360}#) (if #{tmp\ 1360}# (apply (lambda (#{_\ 1363}# #{e1\ 1364}#) (#{parse\ 1317}# (letrec ((#{f\ 1367}# (lambda (#{forms\ 1368}#) (if (null? #{forms\ 1368}#) (cdr #{body\ 1318}#) (cons (cons #{er\ 1330}# (#{wrap\ 376}# (car #{forms\ 1368}#) #{w\ 1335}# #{mod\ 1337}#)) (#{f\ 1367}# (cdr #{forms\ 1368}#))))))) (#{f\ 1367}# #{e1\ 1364}#)) #{ids\ 1319}# #{labels\ 1320}# #{var-ids\ 1321}# #{vars\ 1322}# #{vals\ 1323}# #{bindings\ 1324}#)) #{tmp\ 1360}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1359}#))) ($sc-dispatch #{tmp\ 1359}# '(any . each-any)))) #{e\ 1334}#) (if (memv #{type\ 1332}# '(local-syntax-form)) (#{chi-local-syntax\ 402}# #{value\ 1333}# #{e\ 1334}# #{er\ 1330}# #{w\ 1335}# #{s\ 1336}# #{mod\ 1337}# (lambda (#{forms\ 1371}# #{er\ 1372}# #{w\ 1373}# #{s\ 1374}# #{mod\ 1375}#) (#{parse\ 1317}# (letrec ((#{f\ 1383}# (lambda (#{forms\ 1384}#) (if (null? #{forms\ 1384}#) (cdr #{body\ 1318}#) (cons (cons #{er\ 1372}# (#{wrap\ 376}# (car #{forms\ 1384}#) #{w\ 1373}# #{mod\ 1375}#)) (#{f\ 1383}# (cdr #{forms\ 1384}#))))))) (#{f\ 1383}# #{forms\ 1371}#)) #{ids\ 1319}# #{labels\ 1320}# #{var-ids\ 1321}# #{vars\ 1322}# #{vals\ 1323}# #{bindings\ 1324}#))) (if (null? #{ids\ 1319}#) (#{build-sequence\ 259}# #f (map (lambda (#{x\ 1387}#) (#{chi\ 392}# (cdr #{x\ 1387}#) (car #{x\ 1387}#) '(()) #{mod\ 1337}#)) (cons (cons #{er\ 1330}# (#{source-wrap\ 378}# #{e\ 1334}# #{w\ 1335}# #{s\ 1336}# #{mod\ 1337}#)) (cdr #{body\ 1318}#)))) (begin (if (not (#{valid-bound-ids?\ 370}# #{ids\ 1319}#)) (syntax-violation #f "invalid or duplicate identifier in definition" #{outer-form\ 1292}#)) (letrec ((#{loop\ 1394}# (lambda (#{bs\ 1395}# #{er-cache\ 1396}# #{r-cache\ 1397}#) (if (not (null? #{bs\ 1395}#)) (let ((#{b\ 1400}# (car #{bs\ 1395}#))) (if (eq? (car #{b\ 1400}#) 'macro) (let ((#{er\ 1403}# (cadr #{b\ 1400}#))) (let ((#{r-cache\ 1405}# (if (eq? #{er\ 1403}# #{er-cache\ 1396}#) #{r-cache\ 1397}# (#{macros-only-env\ 299}# #{er\ 1403}#)))) (begin (set-cdr! #{b\ 1400}# (#{eval-local-transformer\ 404}# (#{chi\ 392}# (cddr #{b\ 1400}#) #{r-cache\ 1405}# '(()) #{mod\ 1337}#) #{mod\ 1337}#)) (#{loop\ 1394}# (cdr #{bs\ 1395}#) #{er\ 1403}# #{r-cache\ 1405}#)))) (#{loop\ 1394}# (cdr #{bs\ 1395}#) #{er-cache\ 1396}# #{r-cache\ 1397}#))))))) (#{loop\ 1394}# #{bindings\ 1324}# #f #f)) (set-cdr! #{r\ 1303}# (#{extend-env\ 295}# #{labels\ 1320}# #{bindings\ 1324}# (cdr #{r\ 1303}#))) (#{build-letrec\ 265}# #f (map syntax->datum #{var-ids\ 1321}#) #{vars\ 1322}# (map (lambda (#{x\ 1408}#) (#{chi\ 392}# (cdr #{x\ 1408}#) (car #{x\ 1408}#) '(()) #{mod\ 1337}#)) #{vals\ 1323}#) (#{build-sequence\ 259}# #f (map (lambda (#{x\ 1412}#) (#{chi\ 392}# (cdr #{x\ 1412}#) (car #{x\ 1412}#) '(()) #{mod\ 1337}#)) (cons (cons #{er\ 1330}# (#{source-wrap\ 378}# #{e\ 1334}# #{w\ 1335}# #{s\ 1336}# #{mod\ 1337}#)) (cdr #{body\ 1318}#)))))))))))))))))) (#{parse\ 1317}# (map (lambda (#{x\ 1325}#) (cons #{r\ 1303}# (#{wrap\ 376}# #{x\ 1325}# #{w\ 1308}# #{mod\ 1295}#))) #{body\ 1291}#) '() '() '() '() '() '()))))))) (#{chi-macro\ 398}# (lambda (#{p\ 1415}# #{e\ 1416}# #{r\ 1417}# #{w\ 1418}# #{rib\ 1419}# #{mod\ 1420}#) (letrec ((#{rebuild-macro-output\ 1428}# (lambda (#{x\ 1429}# #{m\ 1430}#) (if (pair? #{x\ 1429}#) (cons (#{rebuild-macro-output\ 1428}# (car #{x\ 1429}#) #{m\ 1430}#) (#{rebuild-macro-output\ 1428}# (cdr #{x\ 1429}#) #{m\ 1430}#)) (if (#{syntax-object?\ 271}# #{x\ 1429}#) (let ((#{w\ 1438}# (#{syntax-object-wrap\ 275}# #{x\ 1429}#))) (let ((#{ms\ 1441}# (#{wrap-marks\ 314}# #{w\ 1438}#)) (#{s\ 1442}# (#{wrap-subst\ 316}# #{w\ 1438}#))) (if (if (pair? #{ms\ 1441}#) (eq? (car #{ms\ 1441}#) #f) #f) (#{make-syntax-object\ 269}# (#{syntax-object-expression\ 273}# #{x\ 1429}#) (#{make-wrap\ 312}# (cdr #{ms\ 1441}#) (if #{rib\ 1419}# (cons #{rib\ 1419}# (cdr #{s\ 1442}#)) (cdr #{s\ 1442}#))) (#{syntax-object-module\ 277}# #{x\ 1429}#)) (#{make-syntax-object\ 269}# (#{syntax-object-expression\ 273}# #{x\ 1429}#) (#{make-wrap\ 312}# (cons #{m\ 1430}# #{ms\ 1441}#) (if #{rib\ 1419}# (cons #{rib\ 1419}# (cons 'shift #{s\ 1442}#)) (cons (quote shift) #{s\ 1442}#))) (cons 'hygiene (cdr #{p\ 1415}#)))))) (if (vector? #{x\ 1429}#) (let ((#{n\ 1450}# (vector-length #{x\ 1429}#))) (let ((#{v\ 1452}# (make-vector #{n\ 1450}#))) (letrec ((#{loop\ 1455}# (lambda (#{i\ 1456}#) (if (#{fx=\ 212}# #{i\ 1456}# #{n\ 1450}#) (begin (if #f #f) #{v\ 1452}#) (begin (vector-set! #{v\ 1452}# #{i\ 1456}# (#{rebuild-macro-output\ 1428}# (vector-ref #{x\ 1429}# #{i\ 1456}#) #{m\ 1430}#)) (#{loop\ 1455}# (#{fx+\ 208}# #{i\ 1456}# 1))))))) (#{loop\ 1455}# 0)))) (if (symbol? #{x\ 1429}#) (syntax-violation #f "encountered raw symbol in macro output" (#{source-wrap\ 378}# #{e\ 1416}# #{w\ 1418}# (#{wrap-subst\ 316}# #{w\ 1418}#) #{mod\ 1420}#) #{x\ 1429}#) #{x\ 1429}#))))))) (#{rebuild-macro-output\ 1428}# ((car #{p\ 1415}#) (#{wrap\ 376}# #{e\ 1416}# (#{anti-mark\ 348}# #{w\ 1418}#) #{mod\ 1420}#)) (gensym "m"))))) (#{chi-application\ 396}# (lambda (#{x\ 1463}# #{e\ 1464}# #{r\ 1465}# #{w\ 1466}# #{s\ 1467}# #{mod\ 1468}#) ((lambda (#{tmp\ 1475}#) ((lambda (#{tmp\ 1476}#) (if #{tmp\ 1476}# (apply (lambda (#{e0\ 1479}# #{e1\ 1480}#) (#{build-application\ 229}# #{s\ 1467}# #{x\ 1463}# (map (lambda (#{e\ 1481}#) (#{chi\ 392}# #{e\ 1481}# #{r\ 1465}# #{w\ 1466}# #{mod\ 1468}#)) #{e1\ 1480}#))) #{tmp\ 1476}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1475}#))) ($sc-dispatch #{tmp\ 1475}# '(any . each-any)))) #{e\ 1464}#))) (#{chi-expr\ 394}# (lambda (#{type\ 1484}# #{value\ 1485}# #{e\ 1486}# #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) (if (memv #{type\ 1484}# (quote (lexical))) (#{build-lexical-reference\ 235}# 'value #{s\ 1489}# #{e\ 1486}# #{value\ 1485}#) (if (memv #{type\ 1484}# (quote (core core-form))) (#{value\ 1485}# #{e\ 1486}# #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) (if (memv #{type\ 1484}# (quote (module-ref))) (call-with-values (lambda () (#{value\ 1485}# #{e\ 1486}# #{r\ 1487}# #{w\ 1488}#)) (lambda (#{e\ 1501}# #{r\ 1502}# #{w\ 1503}# #{s\ 1504}# #{mod\ 1505}#) (#{chi\ 392}# #{e\ 1501}# #{r\ 1502}# #{w\ 1503}# #{mod\ 1505}#))) (if (memv #{type\ 1484}# (quote (lexical-call))) (#{chi-application\ 396}# (#{build-lexical-reference\ 235}# 'fun (#{source-annotation\ 286}# (car #{e\ 1486}#)) (car #{e\ 1486}#) #{value\ 1485}#) #{e\ 1486}# #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) (if (memv #{type\ 1484}# (quote (global-call))) (#{chi-application\ 396}# (#{build-global-reference\ 241}# (#{source-annotation\ 286}# (car #{e\ 1486}#)) (if (#{syntax-object?\ 271}# #{value\ 1485}#) (#{syntax-object-expression\ 273}# #{value\ 1485}#) #{value\ 1485}#) (if (#{syntax-object?\ 271}# #{value\ 1485}#) (#{syntax-object-module\ 277}# #{value\ 1485}#) #{mod\ 1490}#)) #{e\ 1486}# #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) (if (memv #{type\ 1484}# (quote (constant))) (#{build-data\ 257}# #{s\ 1489}# (#{strip\ 418}# (#{source-wrap\ 378}# #{e\ 1486}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) '(()))) (if (memv #{type\ 1484}# (quote (global))) (#{build-global-reference\ 241}# #{s\ 1489}# #{value\ 1485}# #{mod\ 1490}#) (if (memv #{type\ 1484}# (quote (call))) (#{chi-application\ 396}# (#{chi\ 392}# (car #{e\ 1486}#) #{r\ 1487}# #{w\ 1488}# #{mod\ 1490}#) #{e\ 1486}# #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) (if (memv #{type\ 1484}# (quote (begin-form))) ((lambda (#{tmp\ 1518}#) ((lambda (#{tmp\ 1519}#) (if #{tmp\ 1519}# (apply (lambda (#{_\ 1523}# #{e1\ 1524}# #{e2\ 1525}#) (#{chi-sequence\ 380}# (cons #{e1\ 1524}# #{e2\ 1525}#) #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#)) #{tmp\ 1519}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1518}#))) ($sc-dispatch #{tmp\ 1518}# '(any any . each-any)))) #{e\ 1486}#) (if (memv #{type\ 1484}# '(local-syntax-form)) (#{chi-local-syntax\ 402}# #{value\ 1485}# #{e\ 1486}# #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}# #{chi-sequence\ 380}#) (if (memv #{type\ 1484}# '(eval-when-form)) ((lambda (#{tmp\ 1529}#) ((lambda (#{tmp\ 1530}#) (if #{tmp\ 1530}# (apply (lambda (#{_\ 1535}# #{x\ 1536}# #{e1\ 1537}# #{e2\ 1538}#) (let ((#{when-list\ 1540}# (#{chi-when-list\ 386}# #{e\ 1486}# #{x\ 1536}# #{w\ 1488}#))) (if (memq 'eval #{when-list\ 1540}#) (#{chi-sequence\ 380}# (cons #{e1\ 1537}# #{e2\ 1538}#) #{r\ 1487}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#) (#{chi-void\ 406}#)))) #{tmp\ 1530}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1529}#))) ($sc-dispatch #{tmp\ 1529}# '(any each-any any . each-any)))) #{e\ 1486}#) (if (memv #{type\ 1484}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" #{e\ 1486}# (#{wrap\ 376}# #{value\ 1485}# #{w\ 1488}# #{mod\ 1490}#)) (if (memv #{type\ 1484}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" (#{source-wrap\ 378}# #{e\ 1486}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#)) (if (memv #{type\ 1484}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" (#{source-wrap\ 378}# #{e\ 1486}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#)) (syntax-violation #f "unexpected syntax" (#{source-wrap\ 378}# #{e\ 1486}# #{w\ 1488}# #{s\ 1489}# #{mod\ 1490}#)))))))))))))))))) (#{chi\ 392}# (lambda (#{e\ 1547}# #{r\ 1548}# #{w\ 1549}# #{mod\ 1550}#) (call-with-values (lambda () (#{syntax-type\ 388}# #{e\ 1547}# #{r\ 1548}# #{w\ 1549}# (#{source-annotation\ 286}# #{e\ 1547}#) #f #{mod\ 1550}# #f)) (lambda (#{type\ 1555}# #{value\ 1556}# #{e\ 1557}# #{w\ 1558}# #{s\ 1559}# #{mod\ 1560}#) (#{chi-expr\ 394}# #{type\ 1555}# #{value\ 1556}# #{e\ 1557}# #{r\ 1548}# #{w\ 1558}# #{s\ 1559}# #{mod\ 1560}#))))) (#{chi-top\ 390}# (lambda (#{e\ 1567}# #{r\ 1568}# #{w\ 1569}# #{m\ 1570}# #{esew\ 1571}# #{mod\ 1572}#) (call-with-values (lambda () (#{syntax-type\ 388}# #{e\ 1567}# #{r\ 1568}# #{w\ 1569}# (#{source-annotation\ 286}# #{e\ 1567}#) #f #{mod\ 1572}# #f)) (lambda (#{type\ 1593}# #{value\ 1594}# #{e\ 1595}# #{w\ 1596}# #{s\ 1597}# #{mod\ 1598}#) (if (memv #{type\ 1593}# (quote (begin-form))) ((lambda (#{tmp\ 1606}#) ((lambda (#{tmp\ 1607}#) (if #{tmp\ 1607}# (apply (lambda (#{_\ 1609}#) (#{chi-void\ 406}#)) #{tmp\ 1607}#) ((lambda (#{tmp\ 1610}#) (if #{tmp\ 1610}# (apply (lambda (#{_\ 1614}# #{e1\ 1615}# #{e2\ 1616}#) (#{chi-top-sequence\ 382}# (cons #{e1\ 1615}# #{e2\ 1616}#) #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# #{m\ 1570}# #{esew\ 1571}# #{mod\ 1598}#)) #{tmp\ 1610}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1606}#))) ($sc-dispatch #{tmp\ 1606}# '(any any . each-any))))) ($sc-dispatch #{tmp\ 1606}# (quote (any))))) #{e\ 1595}#) (if (memv #{type\ 1593}# (quote (local-syntax-form))) (#{chi-local-syntax\ 402}# #{value\ 1594}# #{e\ 1595}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# #{mod\ 1598}# (lambda (#{body\ 1619}# #{r\ 1620}# #{w\ 1621}# #{s\ 1622}# #{mod\ 1623}#) (#{chi-top-sequence\ 382}# #{body\ 1619}# #{r\ 1620}# #{w\ 1621}# #{s\ 1622}# #{m\ 1570}# #{esew\ 1571}# #{mod\ 1623}#))) (if (memv #{type\ 1593}# (quote (eval-when-form))) ((lambda (#{tmp\ 1630}#) ((lambda (#{tmp\ 1631}#) (if #{tmp\ 1631}# (apply (lambda (#{_\ 1636}# #{x\ 1637}# #{e1\ 1638}# #{e2\ 1639}#) (let ((#{when-list\ 1642}# (#{chi-when-list\ 386}# #{e\ 1595}# #{x\ 1637}# #{w\ 1596}#)) (#{body\ 1643}# (cons #{e1\ 1638}# #{e2\ 1639}#))) (if (eq? #{m\ 1570}# (quote e)) (if (memq 'eval #{when-list\ 1642}#) (#{chi-top-sequence\ 382}# #{body\ 1643}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# (if (memq 'expand #{when-list\ 1642}#) 'c&e 'e) '(eval) #{mod\ 1598}#) (begin (if (memq 'expand #{when-list\ 1642}#) (#{top-level-eval-hook\ 216}# (#{chi-top-sequence\ 382}# #{body\ 1643}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# 'e '(eval) #{mod\ 1598}#) #{mod\ 1598}#)) (#{chi-void\ 406}#))) (if (memq 'load #{when-list\ 1642}#) (if (let ((#{t\ 1652}# (memq 'compile #{when-list\ 1642}#))) (if #{t\ 1652}# #{t\ 1652}# (let ((#{t\ 1655}# (memq 'expand #{when-list\ 1642}#))) (if #{t\ 1655}# #{t\ 1655}# (if (eq? #{m\ 1570}# 'c&e) (memq 'eval #{when-list\ 1642}#) #f))))) (#{chi-top-sequence\ 382}# #{body\ 1643}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# 'c&e '(compile load) #{mod\ 1598}#) (if (memq #{m\ 1570}# '(c c&e)) (#{chi-top-sequence\ 382}# #{body\ 1643}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# 'c '(load) #{mod\ 1598}#) (#{chi-void\ 406}#))) (if (let ((#{t\ 1663}# (memq 'compile #{when-list\ 1642}#))) (if #{t\ 1663}# #{t\ 1663}# (let ((#{t\ 1666}# (memq 'expand #{when-list\ 1642}#))) (if #{t\ 1666}# #{t\ 1666}# (if (eq? #{m\ 1570}# 'c&e) (memq 'eval #{when-list\ 1642}#) #f))))) (begin (#{top-level-eval-hook\ 216}# (#{chi-top-sequence\ 382}# #{body\ 1643}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# 'e '(eval) #{mod\ 1598}#) #{mod\ 1598}#) (#{chi-void\ 406}#)) (#{chi-void\ 406}#)))))) #{tmp\ 1631}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1630}#))) ($sc-dispatch #{tmp\ 1630}# '(any each-any any . each-any)))) #{e\ 1595}#) (if (memv #{type\ 1593}# '(define-syntax-form)) (let ((#{n\ 1674}# (#{id-var-name\ 364}# #{value\ 1594}# #{w\ 1596}#)) (#{r\ 1675}# (#{macros-only-env\ 299}# #{r\ 1568}#))) (if (memv #{m\ 1570}# (quote (c))) (if (memq (quote compile) #{esew\ 1571}#) (let ((#{e\ 1678}# (#{chi-install-global\ 384}# #{n\ 1674}# (#{chi\ 392}# #{e\ 1595}# #{r\ 1675}# #{w\ 1596}# #{mod\ 1598}#)))) (begin (#{top-level-eval-hook\ 216}# #{e\ 1678}# #{mod\ 1598}#) (if (memq (quote load) #{esew\ 1571}#) #{e\ 1678}# (#{chi-void\ 406}#)))) (if (memq (quote load) #{esew\ 1571}#) (#{chi-install-global\ 384}# #{n\ 1674}# (#{chi\ 392}# #{e\ 1595}# #{r\ 1675}# #{w\ 1596}# #{mod\ 1598}#)) (#{chi-void\ 406}#))) (if (memv #{m\ 1570}# (quote (c&e))) (let ((#{e\ 1681}# (#{chi-install-global\ 384}# #{n\ 1674}# (#{chi\ 392}# #{e\ 1595}# #{r\ 1675}# #{w\ 1596}# #{mod\ 1598}#)))) (begin (#{top-level-eval-hook\ 216}# #{e\ 1681}# #{mod\ 1598}#) #{e\ 1681}#)) (begin (if (memq (quote eval) #{esew\ 1571}#) (#{top-level-eval-hook\ 216}# (#{chi-install-global\ 384}# #{n\ 1674}# (#{chi\ 392}# #{e\ 1595}# #{r\ 1675}# #{w\ 1596}# #{mod\ 1598}#)) #{mod\ 1598}#)) (#{chi-void\ 406}#))))) (if (memv #{type\ 1593}# (quote (define-form))) (let ((#{n\ 1686}# (#{id-var-name\ 364}# #{value\ 1594}# #{w\ 1596}#))) (let ((#{type\ 1688}# (#{binding-type\ 290}# (#{lookup\ 301}# #{n\ 1686}# #{r\ 1568}# #{mod\ 1598}#)))) (if (memv #{type\ 1688}# '(global core macro module-ref)) (begin (if (if (memq #{m\ 1570}# (quote (c c&e))) (if (not (module-local-variable (current-module) #{n\ 1686}#)) (current-module) #f) #f) (let ((#{old\ 1694}# (module-variable (current-module) #{n\ 1686}#))) (module-define! (current-module) #{n\ 1686}# (if (variable? #{old\ 1694}#) (variable-ref #{old\ 1694}#) #f)))) (let ((#{x\ 1697}# (#{build-global-definition\ 247}# #{s\ 1597}# #{n\ 1686}# (#{chi\ 392}# #{e\ 1595}# #{r\ 1568}# #{w\ 1596}# #{mod\ 1598}#)))) (begin (if (eq? #{m\ 1570}# (quote c&e)) (#{top-level-eval-hook\ 216}# #{x\ 1697}# #{mod\ 1598}#)) #{x\ 1697}#))) (if (memv #{type\ 1688}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" #{e\ 1595}# (#{wrap\ 376}# #{value\ 1594}# #{w\ 1596}# #{mod\ 1598}#)) (syntax-violation #f "cannot define keyword at top level" #{e\ 1595}# (#{wrap\ 376}# #{value\ 1594}# #{w\ 1596}# #{mod\ 1598}#)))))) (let ((#{x\ 1703}# (#{chi-expr\ 394}# #{type\ 1593}# #{value\ 1594}# #{e\ 1595}# #{r\ 1568}# #{w\ 1596}# #{s\ 1597}# #{mod\ 1598}#))) (begin (if (eq? #{m\ 1570}# (quote c&e)) (#{top-level-eval-hook\ 216}# #{x\ 1703}# #{mod\ 1598}#)) #{x\ 1703}#))))))))))) (#{syntax-type\ 388}# (lambda (#{e\ 1704}# #{r\ 1705}# #{w\ 1706}# #{s\ 1707}# #{rib\ 1708}# #{mod\ 1709}# #{for-car?\ 1710}#) (if (symbol? #{e\ 1704}#) (let ((#{n\ 1722}# (#{id-var-name\ 364}# #{e\ 1704}# #{w\ 1706}#))) (let ((#{b\ 1724}# (#{lookup\ 301}# #{n\ 1722}# #{r\ 1705}# #{mod\ 1709}#))) (let ((#{type\ 1726}# (#{binding-type\ 290}# #{b\ 1724}#))) (if (memv #{type\ 1726}# (quote (lexical))) (values #{type\ 1726}# (#{binding-value\ 292}# #{b\ 1724}#) #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{type\ 1726}# (quote (global))) (values #{type\ 1726}# #{n\ 1722}# #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{type\ 1726}# (quote (macro))) (if #{for-car?\ 1710}# (values #{type\ 1726}# (#{binding-value\ 292}# #{b\ 1724}#) #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (#{syntax-type\ 388}# (#{chi-macro\ 398}# (#{binding-value\ 292}# #{b\ 1724}#) #{e\ 1704}# #{r\ 1705}# #{w\ 1706}# #{rib\ 1708}# #{mod\ 1709}#) #{r\ 1705}# '(()) #{s\ 1707}# #{rib\ 1708}# #{mod\ 1709}# #f)) (values #{type\ 1726}# (#{binding-value\ 292}# #{b\ 1724}#) #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#))))))) (if (pair? #{e\ 1704}#) (let ((#{first\ 1735}# (car #{e\ 1704}#))) (call-with-values (lambda () (#{syntax-type\ 388}# #{first\ 1735}# #{r\ 1705}# #{w\ 1706}# #{s\ 1707}# #{rib\ 1708}# #{mod\ 1709}# #t)) (lambda (#{ftype\ 1736}# #{fval\ 1737}# #{fe\ 1738}# #{fw\ 1739}# #{fs\ 1740}# #{fmod\ 1741}#) (if (memv #{ftype\ 1736}# (quote (lexical))) (values 'lexical-call #{fval\ 1737}# #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{ftype\ 1736}# (quote (global))) (values 'global-call (#{make-syntax-object\ 269}# #{fval\ 1737}# #{w\ 1706}# #{fmod\ 1741}#) #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{ftype\ 1736}# (quote (macro))) (#{syntax-type\ 388}# (#{chi-macro\ 398}# #{fval\ 1737}# #{e\ 1704}# #{r\ 1705}# #{w\ 1706}# #{rib\ 1708}# #{mod\ 1709}#) #{r\ 1705}# '(()) #{s\ 1707}# #{rib\ 1708}# #{mod\ 1709}# #{for-car?\ 1710}#) (if (memv #{ftype\ 1736}# (quote (module-ref))) (call-with-values (lambda () (#{fval\ 1737}# #{e\ 1704}# #{r\ 1705}# #{w\ 1706}#)) (lambda (#{e\ 1753}# #{r\ 1754}# #{w\ 1755}# #{s\ 1756}# #{mod\ 1757}#) (#{syntax-type\ 388}# #{e\ 1753}# #{r\ 1754}# #{w\ 1755}# #{s\ 1756}# #{rib\ 1708}# #{mod\ 1757}# #{for-car?\ 1710}#))) (if (memv #{ftype\ 1736}# (quote (core))) (values 'core-form #{fval\ 1737}# #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{ftype\ 1736}# '(local-syntax)) (values 'local-syntax-form #{fval\ 1737}# #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{ftype\ 1736}# (quote (begin))) (values 'begin-form #f #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{ftype\ 1736}# '(eval-when)) (values 'eval-when-form #f #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (if (memv #{ftype\ 1736}# '(define)) ((lambda (#{tmp\ 1768}#) ((lambda (#{tmp\ 1769}#) (if (if #{tmp\ 1769}# (apply (lambda (#{_\ 1773}# #{name\ 1774}# #{val\ 1775}#) (#{id?\ 307}# #{name\ 1774}#)) #{tmp\ 1769}#) #f) (apply (lambda (#{_\ 1779}# #{name\ 1780}# #{val\ 1781}#) (values 'define-form #{name\ 1780}# #{val\ 1781}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#)) #{tmp\ 1769}#) ((lambda (#{tmp\ 1782}#) (if (if #{tmp\ 1782}# (apply (lambda (#{_\ 1788}# #{name\ 1789}# #{args\ 1790}# #{e1\ 1791}# #{e2\ 1792}#) (if (#{id?\ 307}# #{name\ 1789}#) (#{valid-bound-ids?\ 370}# (#{lambda-var-list\ 422}# #{args\ 1790}#)) #f)) #{tmp\ 1782}#) #f) (apply (lambda (#{_\ 1800}# #{name\ 1801}# #{args\ 1802}# #{e1\ 1803}# #{e2\ 1804}#) (values 'define-form (#{wrap\ 376}# #{name\ 1801}# #{w\ 1706}# #{mod\ 1709}#) (#{decorate-source\ 225}# (cons '#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i1795" "i1796" "i1797" "i1798" "i1799")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1742" "i1743" "i1744" "i1745" "i1746" "i1747")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1734")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1711" "i1712" "i1713" "i1714" "i1715" "i1716" "i1717")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) (#{wrap\ 376}# (cons #{args\ 1802}# (cons #{e1\ 1803}# #{e2\ 1804}#)) #{w\ 1706}# #{mod\ 1709}#)) #{s\ 1707}#) '(()) #{s\ 1707}# #{mod\ 1709}#)) #{tmp\ 1782}#) ((lambda (#{tmp\ 1807}#) (if (if #{tmp\ 1807}# (apply (lambda (#{_\ 1810}# #{name\ 1811}#) (#{id?\ 307}# #{name\ 1811}#)) #{tmp\ 1807}#) #f) (apply (lambda (#{_\ 1814}# #{name\ 1815}#) (values 'define-form (#{wrap\ 376}# #{name\ 1815}# #{w\ 1706}# #{mod\ 1709}#) '(#(syntax-object if ((top) #(ribcage #(_ name) #((top) (top)) #("i1812" "i1813")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1742" "i1743" "i1744" "i1745" "i1746" "i1747")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1734")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1711" "i1712" "i1713" "i1714" "i1715" "i1716" "i1717")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i1812" "i1813")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1742" "i1743" "i1744" "i1745" "i1746" "i1747")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1734")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1711" "i1712" "i1713" "i1714" "i1715" "i1716" "i1717")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i1812" "i1813")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1742" "i1743" "i1744" "i1745" "i1746" "i1747")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1734")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1711" "i1712" "i1713" "i1714" "i1715" "i1716" "i1717")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))) '(()) #{s\ 1707}# #{mod\ 1709}#)) #{tmp\ 1807}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1768}#))) ($sc-dispatch #{tmp\ 1768}# '(any any))))) ($sc-dispatch #{tmp\ 1768}# '(any (any . any) any . each-any))))) ($sc-dispatch #{tmp\ 1768}# '(any any any)))) #{e\ 1704}#) (if (memv #{ftype\ 1736}# '(define-syntax)) ((lambda (#{tmp\ 1818}#) ((lambda (#{tmp\ 1819}#) (if (if #{tmp\ 1819}# (apply (lambda (#{_\ 1823}# #{name\ 1824}# #{val\ 1825}#) (#{id?\ 307}# #{name\ 1824}#)) #{tmp\ 1819}#) #f) (apply (lambda (#{_\ 1829}# #{name\ 1830}# #{val\ 1831}#) (values 'define-syntax-form #{name\ 1830}# #{val\ 1831}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#)) #{tmp\ 1819}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1818}#))) ($sc-dispatch #{tmp\ 1818}# '(any any any)))) #{e\ 1704}#) (values 'call #f #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#)))))))))))))) (if (#{syntax-object?\ 271}# #{e\ 1704}#) (#{syntax-type\ 388}# (#{syntax-object-expression\ 273}# #{e\ 1704}#) #{r\ 1705}# (#{join-wraps\ 358}# #{w\ 1706}# (#{syntax-object-wrap\ 275}# #{e\ 1704}#)) #{s\ 1707}# #{rib\ 1708}# (let ((#{t\ 1837}# (#{syntax-object-module\ 277}# #{e\ 1704}#))) (if #{t\ 1837}# #{t\ 1837}# #{mod\ 1709}#)) #{for-car?\ 1710}#) (if (self-evaluating? #{e\ 1704}#) (values 'constant #f #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#) (values 'other #f #{e\ 1704}# #{w\ 1706}# #{s\ 1707}# #{mod\ 1709}#))))))) (#{chi-when-list\ 386}# (lambda (#{e\ 1842}# #{when-list\ 1843}# #{w\ 1844}#) (letrec ((#{f\ 1851}# (lambda (#{when-list\ 1852}# #{situations\ 1853}#) (if (null? #{when-list\ 1852}#) #{situations\ 1853}# (#{f\ 1851}# (cdr #{when-list\ 1852}#) (cons (let ((#{x\ 1855}# (car #{when-list\ 1852}#))) (if (#{free-id=?\ 366}# #{x\ 1855}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1854")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1848" "i1849" "i1850")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1845" "i1846" "i1847")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))) 'compile (if (#{free-id=?\ 366}# #{x\ 1855}# '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1854")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1848" "i1849" "i1850")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1845" "i1846" "i1847")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))) 'load (if (#{free-id=?\ 366}# #{x\ 1855}# '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1854")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1848" "i1849" "i1850")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1845" "i1846" "i1847")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))) 'eval (if (#{free-id=?\ 366}# #{x\ 1855}# '#(syntax-object expand ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1854")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1848" "i1849" "i1850")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1845" "i1846" "i1847")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" #{e\ 1842}# (#{wrap\ 376}# #{x\ 1855}# #{w\ 1844}# #f))))))) #{situations\ 1853}#)))))) (#{f\ 1851}# #{when-list\ 1843}# (quote ()))))) (#{chi-install-global\ 384}# (lambda (#{name\ 1865}# #{e\ 1866}#) (#{build-global-definition\ 247}# #f #{name\ 1865}# (#{build-application\ 229}# #f (#{build-primref\ 255}# #f 'make-syntax-transformer) (list (#{build-data\ 257}# #f #{name\ 1865}#) (#{build-data\ 257}# #f (quote macro)) (#{build-application\ 229}# #f (#{build-primref\ 255}# #f (quote cons)) (list #{e\ 1866}# (#{build-application\ 229}# #f (#{build-primref\ 255}# #f 'module-name) (list (#{build-application\ 229}# #f (#{build-primref\ 255}# #f 'current-module) '())))))))))) (#{chi-top-sequence\ 382}# (lambda (#{body\ 1880}# #{r\ 1881}# #{w\ 1882}# #{s\ 1883}# #{m\ 1884}# #{esew\ 1885}# #{mod\ 1886}#) (#{build-sequence\ 259}# #{s\ 1883}# (letrec ((#{dobody\ 1902}# (lambda (#{body\ 1903}# #{r\ 1904}# #{w\ 1905}# #{m\ 1906}# #{esew\ 1907}# #{mod\ 1908}# #{out\ 1909}#) (if (null? #{body\ 1903}#) (reverse #{out\ 1909}#) (#{dobody\ 1902}# (cdr #{body\ 1903}#) #{r\ 1904}# #{w\ 1905}# #{m\ 1906}# #{esew\ 1907}# #{mod\ 1908}# (cons (#{chi-top\ 390}# (car #{body\ 1903}#) #{r\ 1904}# #{w\ 1905}# #{m\ 1906}# #{esew\ 1907}# #{mod\ 1908}#) #{out\ 1909}#)))))) (#{dobody\ 1902}# #{body\ 1880}# #{r\ 1881}# #{w\ 1882}# #{m\ 1884}# #{esew\ 1885}# #{mod\ 1886}# '()))))) (#{chi-sequence\ 380}# (lambda (#{body\ 1910}# #{r\ 1911}# #{w\ 1912}# #{s\ 1913}# #{mod\ 1914}#) (#{build-sequence\ 259}# #{s\ 1913}# (letrec ((#{dobody\ 1925}# (lambda (#{body\ 1926}# #{r\ 1927}# #{w\ 1928}# #{mod\ 1929}#) (if (null? #{body\ 1926}#) '() (let ((#{first\ 1931}# (#{chi\ 392}# (car #{body\ 1926}#) #{r\ 1927}# #{w\ 1928}# #{mod\ 1929}#))) (cons #{first\ 1931}# (#{dobody\ 1925}# (cdr #{body\ 1926}#) #{r\ 1927}# #{w\ 1928}# #{mod\ 1929}#))))))) (#{dobody\ 1925}# #{body\ 1910}# #{r\ 1911}# #{w\ 1912}# #{mod\ 1914}#))))) (#{source-wrap\ 378}# (lambda (#{x\ 1932}# #{w\ 1933}# #{s\ 1934}# #{defmod\ 1935}#) (#{wrap\ 376}# (#{decorate-source\ 225}# #{x\ 1932}# #{s\ 1934}#) #{w\ 1933}# #{defmod\ 1935}#))) (#{wrap\ 376}# (lambda (#{x\ 1940}# #{w\ 1941}# #{defmod\ 1942}#) (if (if (null? (#{wrap-marks\ 314}# #{w\ 1941}#)) (null? (#{wrap-subst\ 316}# #{w\ 1941}#)) #f) #{x\ 1940}# (if (#{syntax-object?\ 271}# #{x\ 1940}#) (#{make-syntax-object\ 269}# (#{syntax-object-expression\ 273}# #{x\ 1940}#) (#{join-wraps\ 358}# #{w\ 1941}# (#{syntax-object-wrap\ 275}# #{x\ 1940}#)) (#{syntax-object-module\ 277}# #{x\ 1940}#)) (if (null? #{x\ 1940}#) #{x\ 1940}# (#{make-syntax-object\ 269}# #{x\ 1940}# #{w\ 1941}# #{defmod\ 1942}#)))))) (#{bound-id-member?\ 374}# (lambda (#{x\ 1955}# #{list\ 1956}#) (if (not (null? #{list\ 1956}#)) (let ((#{t\ 1963}# (#{bound-id=?\ 368}# #{x\ 1955}# (car #{list\ 1956}#)))) (if #{t\ 1963}# #{t\ 1963}# (#{bound-id-member?\ 374}# #{x\ 1955}# (cdr #{list\ 1956}#)))) #f))) (#{distinct-bound-ids?\ 372}# (lambda (#{ids\ 1965}#) (letrec ((#{distinct?\ 1969}# (lambda (#{ids\ 1970}#) (let ((#{t\ 1973}# (null? #{ids\ 1970}#))) (if #{t\ 1973}# #{t\ 1973}# (if (not (#{bound-id-member?\ 374}# (car #{ids\ 1970}#) (cdr #{ids\ 1970}#))) (#{distinct?\ 1969}# (cdr #{ids\ 1970}#)) #f)))))) (#{distinct?\ 1969}# #{ids\ 1965}#)))) (#{valid-bound-ids?\ 370}# (lambda (#{ids\ 1977}#) (if (letrec ((#{all-ids?\ 1982}# (lambda (#{ids\ 1983}#) (let ((#{t\ 1986}# (null? #{ids\ 1983}#))) (if #{t\ 1986}# #{t\ 1986}# (if (#{id?\ 307}# (car #{ids\ 1983}#)) (#{all-ids?\ 1982}# (cdr #{ids\ 1983}#)) #f)))))) (#{all-ids?\ 1982}# #{ids\ 1977}#)) (#{distinct-bound-ids?\ 372}# #{ids\ 1977}#) #f))) (#{bound-id=?\ 368}# (lambda (#{i\ 1991}# #{j\ 1992}#) (if (if (#{syntax-object?\ 271}# #{i\ 1991}#) (#{syntax-object?\ 271}# #{j\ 1992}#) #f) (if (eq? (#{syntax-object-expression\ 273}# #{i\ 1991}#) (#{syntax-object-expression\ 273}# #{j\ 1992}#)) (#{same-marks?\ 362}# (#{wrap-marks\ 314}# (#{syntax-object-wrap\ 275}# #{i\ 1991}#)) (#{wrap-marks\ 314}# (#{syntax-object-wrap\ 275}# #{j\ 1992}#))) #f) (eq? #{i\ 1991}# #{j\ 1992}#)))) (#{free-id=?\ 366}# (lambda (#{i\ 1999}# #{j\ 2000}#) (if (eq? (let ((#{x\ 2006}# #{i\ 1999}#)) (if (#{syntax-object?\ 271}# #{x\ 2006}#) (#{syntax-object-expression\ 273}# #{x\ 2006}#) #{x\ 2006}#)) (let ((#{x\ 2009}# #{j\ 2000}#)) (if (#{syntax-object?\ 271}# #{x\ 2009}#) (#{syntax-object-expression\ 273}# #{x\ 2009}#) #{x\ 2009}#))) (eq? (#{id-var-name\ 364}# #{i\ 1999}# (quote (()))) (#{id-var-name\ 364}# #{j\ 2000}# (quote (())))) #f))) (#{id-var-name\ 364}# (lambda (#{id\ 2013}# #{w\ 2014}#) (letrec ((#{search-vector-rib\ 2023}# (lambda (#{sym\ 2035}# #{subst\ 2036}# #{marks\ 2037}# #{symnames\ 2038}# #{ribcage\ 2039}#) (let ((#{n\ 2046}# (vector-length #{symnames\ 2038}#))) (letrec ((#{f\ 2049}# (lambda (#{i\ 2050}#) (if (#{fx=\ 212}# #{i\ 2050}# #{n\ 2046}#) (#{search\ 2019}# #{sym\ 2035}# (cdr #{subst\ 2036}#) #{marks\ 2037}#) (if (if (eq? (vector-ref #{symnames\ 2038}# #{i\ 2050}#) #{sym\ 2035}#) (#{same-marks?\ 362}# #{marks\ 2037}# (vector-ref (#{ribcage-marks\ 334}# #{ribcage\ 2039}#) #{i\ 2050}#)) #f) (values (vector-ref (#{ribcage-labels\ 336}# #{ribcage\ 2039}#) #{i\ 2050}#) #{marks\ 2037}#) (#{f\ 2049}# (#{fx+\ 208}# #{i\ 2050}# 1))))))) (#{f\ 2049}# 0))))) (#{search-list-rib\ 2021}# (lambda (#{sym\ 2058}# #{subst\ 2059}# #{marks\ 2060}# #{symnames\ 2061}# #{ribcage\ 2062}#) (letrec ((#{f\ 2071}# (lambda (#{symnames\ 2072}# #{i\ 2073}#) (if (null? #{symnames\ 2072}#) (#{search\ 2019}# #{sym\ 2058}# (cdr #{subst\ 2059}#) #{marks\ 2060}#) (if (if (eq? (car #{symnames\ 2072}#) #{sym\ 2058}#) (#{same-marks?\ 362}# #{marks\ 2060}# (list-ref (#{ribcage-marks\ 334}# #{ribcage\ 2062}#) #{i\ 2073}#)) #f) (values (list-ref (#{ribcage-labels\ 336}# #{ribcage\ 2062}#) #{i\ 2073}#) #{marks\ 2060}#) (#{f\ 2071}# (cdr #{symnames\ 2072}#) (#{fx+\ 208}# #{i\ 2073}# 1))))))) (#{f\ 2071}# #{symnames\ 2061}# 0)))) (#{search\ 2019}# (lambda (#{sym\ 2081}# #{subst\ 2082}# #{marks\ 2083}#) (if (null? #{subst\ 2082}#) (values #f #{marks\ 2083}#) (let ((#{fst\ 2088}# (car #{subst\ 2082}#))) (if (eq? #{fst\ 2088}# (quote shift)) (#{search\ 2019}# #{sym\ 2081}# (cdr #{subst\ 2082}#) (cdr #{marks\ 2083}#)) (let ((#{symnames\ 2090}# (#{ribcage-symnames\ 332}# #{fst\ 2088}#))) (if (vector? #{symnames\ 2090}#) (#{search-vector-rib\ 2023}# #{sym\ 2081}# #{subst\ 2082}# #{marks\ 2083}# #{symnames\ 2090}# #{fst\ 2088}#) (#{search-list-rib\ 2021}# #{sym\ 2081}# #{subst\ 2082}# #{marks\ 2083}# #{symnames\ 2090}# #{fst\ 2088}#))))))))) (if (symbol? #{id\ 2013}#) (let ((#{t\ 2093}# (call-with-values (lambda () (#{search\ 2019}# #{id\ 2013}# (#{wrap-subst\ 316}# #{w\ 2014}#) (#{wrap-marks\ 314}# #{w\ 2014}#))) (lambda (#{x\ 2095}# . #{ignore\ 2096}#) #{x\ 2095}#)))) (if #{t\ 2093}# #{t\ 2093}# #{id\ 2013}#)) (if (#{syntax-object?\ 271}# #{id\ 2013}#) (let ((#{id\ 2104}# (#{syntax-object-expression\ 273}# #{id\ 2013}#)) (#{w1\ 2105}# (#{syntax-object-wrap\ 275}# #{id\ 2013}#))) (let ((#{marks\ 2107}# (#{join-marks\ 360}# (#{wrap-marks\ 314}# #{w\ 2014}#) (#{wrap-marks\ 314}# #{w1\ 2105}#)))) (call-with-values (lambda () (#{search\ 2019}# #{id\ 2104}# (#{wrap-subst\ 316}# #{w\ 2014}#) #{marks\ 2107}#)) (lambda (#{new-id\ 2108}# #{marks\ 2109}#) (let ((#{t\ 2114}# #{new-id\ 2108}#)) (if #{t\ 2114}# #{t\ 2114}# (let ((#{t\ 2117}# (call-with-values (lambda () (#{search\ 2019}# #{id\ 2104}# (#{wrap-subst\ 316}# #{w1\ 2105}#) #{marks\ 2109}#)) (lambda (#{x\ 2119}# . #{ignore\ 2120}#) #{x\ 2119}#)))) (if #{t\ 2117}# #{t\ 2117}# #{id\ 2104}#)))))))) (syntax-violation 'id-var-name "invalid id" #{id\ 2013}#)))))) (#{same-marks?\ 362}# (lambda (#{x\ 2125}# #{y\ 2126}#) (let ((#{t\ 2131}# (eq? #{x\ 2125}# #{y\ 2126}#))) (if #{t\ 2131}# #{t\ 2131}# (if (not (null? #{x\ 2125}#)) (if (not (null? #{y\ 2126}#)) (if (eq? (car #{x\ 2125}#) (car #{y\ 2126}#)) (#{same-marks?\ 362}# (cdr #{x\ 2125}#) (cdr #{y\ 2126}#)) #f) #f) #f))))) (#{join-marks\ 360}# (lambda (#{m1\ 2137}# #{m2\ 2138}#) (#{smart-append\ 356}# #{m1\ 2137}# #{m2\ 2138}#))) (#{join-wraps\ 358}# (lambda (#{w1\ 2141}# #{w2\ 2142}#) (let ((#{m1\ 2147}# (#{wrap-marks\ 314}# #{w1\ 2141}#)) (#{s1\ 2148}# (#{wrap-subst\ 316}# #{w1\ 2141}#))) (if (null? #{m1\ 2147}#) (if (null? #{s1\ 2148}#) #{w2\ 2142}# (#{make-wrap\ 312}# (#{wrap-marks\ 314}# #{w2\ 2142}#) (#{smart-append\ 356}# #{s1\ 2148}# (#{wrap-subst\ 316}# #{w2\ 2142}#)))) (#{make-wrap\ 312}# (#{smart-append\ 356}# #{m1\ 2147}# (#{wrap-marks\ 314}# #{w2\ 2142}#)) (#{smart-append\ 356}# #{s1\ 2148}# (#{wrap-subst\ 316}# #{w2\ 2142}#))))))) (#{smart-append\ 356}# (lambda (#{m1\ 2149}# #{m2\ 2150}#) (if (null? #{m2\ 2150}#) #{m1\ 2149}# (append #{m1\ 2149}# #{m2\ 2150}#)))) (#{make-binding-wrap\ 354}# (lambda (#{ids\ 2153}# #{labels\ 2154}# #{w\ 2155}#) (if (null? #{ids\ 2153}#) #{w\ 2155}# (#{make-wrap\ 312}# (#{wrap-marks\ 314}# #{w\ 2155}#) (cons (let ((#{labelvec\ 2160}# (list->vector #{labels\ 2154}#))) (let ((#{n\ 2162}# (vector-length #{labelvec\ 2160}#))) (let ((#{symnamevec\ 2165}# (make-vector #{n\ 2162}#)) (#{marksvec\ 2166}# (make-vector #{n\ 2162}#))) (begin (letrec ((#{f\ 2170}# (lambda (#{ids\ 2171}# #{i\ 2172}#) (if (not (null? #{ids\ 2171}#)) (call-with-values (lambda () (#{id-sym-name&marks\ 310}# (car #{ids\ 2171}#) #{w\ 2155}#)) (lambda (#{symname\ 2173}# #{marks\ 2174}#) (begin (vector-set! #{symnamevec\ 2165}# #{i\ 2172}# #{symname\ 2173}#) (vector-set! #{marksvec\ 2166}# #{i\ 2172}# #{marks\ 2174}#) (#{f\ 2170}# (cdr #{ids\ 2171}#) (#{fx+\ 208}# #{i\ 2172}# 1))))))))) (#{f\ 2170}# #{ids\ 2153}# 0)) (#{make-ribcage\ 328}# #{symnamevec\ 2165}# #{marksvec\ 2166}# #{labelvec\ 2160}#))))) (#{wrap-subst\ 316}# #{w\ 2155}#)))))) (#{extend-ribcage!\ 352}# (lambda (#{ribcage\ 2177}# #{id\ 2178}# #{label\ 2179}#) (begin (#{set-ribcage-symnames!\ 338}# #{ribcage\ 2177}# (cons (#{syntax-object-expression\ 273}# #{id\ 2178}#) (#{ribcage-symnames\ 332}# #{ribcage\ 2177}#))) (#{set-ribcage-marks!\ 340}# #{ribcage\ 2177}# (cons (#{wrap-marks\ 314}# (#{syntax-object-wrap\ 275}# #{id\ 2178}#)) (#{ribcage-marks\ 334}# #{ribcage\ 2177}#))) (#{set-ribcage-labels!\ 342}# #{ribcage\ 2177}# (cons #{label\ 2179}# (#{ribcage-labels\ 336}# #{ribcage\ 2177}#)))))) (#{anti-mark\ 348}# (lambda (#{w\ 2183}#) (#{make-wrap\ 312}# (cons #f (#{wrap-marks\ 314}# #{w\ 2183}#)) (cons 'shift (#{wrap-subst\ 316}# #{w\ 2183}#))))) (#{set-ribcage-labels!\ 342}# (lambda (#{x\ 2186}# #{update\ 2187}#) (vector-set! #{x\ 2186}# 3 #{update\ 2187}#))) (#{set-ribcage-marks!\ 340}# (lambda (#{x\ 2190}# #{update\ 2191}#) (vector-set! #{x\ 2190}# 2 #{update\ 2191}#))) (#{set-ribcage-symnames!\ 338}# (lambda (#{x\ 2194}# #{update\ 2195}#) (vector-set! #{x\ 2194}# 1 #{update\ 2195}#))) (#{ribcage-labels\ 336}# (lambda (#{x\ 2198}#) (vector-ref #{x\ 2198}# 3))) (#{ribcage-marks\ 334}# (lambda (#{x\ 2200}#) (vector-ref #{x\ 2200}# 2))) (#{ribcage-symnames\ 332}# (lambda (#{x\ 2202}#) (vector-ref #{x\ 2202}# 1))) (#{ribcage?\ 330}# (lambda (#{x\ 2204}#) (if (vector? #{x\ 2204}#) (if (= (vector-length #{x\ 2204}#) 4) (eq? (vector-ref #{x\ 2204}# 0) (quote ribcage)) #f) #f))) (#{make-ribcage\ 328}# (lambda (#{symnames\ 2209}# #{marks\ 2210}# #{labels\ 2211}#) (vector 'ribcage #{symnames\ 2209}# #{marks\ 2210}# #{labels\ 2211}#))) (#{gen-labels\ 325}# (lambda (#{ls\ 2215}#) (if (null? #{ls\ 2215}#) '() (cons (#{gen-label\ 323}#) (#{gen-labels\ 325}# (cdr #{ls\ 2215}#)))))) (#{gen-label\ 323}# (lambda () (symbol->string (gensym "i")))) (#{wrap-subst\ 316}# cdr) (#{wrap-marks\ 314}# car) (#{make-wrap\ 312}# cons) (#{id-sym-name&marks\ 310}# (lambda (#{x\ 2217}# #{w\ 2218}#) (if (#{syntax-object?\ 271}# #{x\ 2217}#) (values (#{syntax-object-expression\ 273}# #{x\ 2217}#) (#{join-marks\ 360}# (#{wrap-marks\ 314}# #{w\ 2218}#) (#{wrap-marks\ 314}# (#{syntax-object-wrap\ 275}# #{x\ 2217}#)))) (values #{x\ 2217}# (#{wrap-marks\ 314}# #{w\ 2218}#))))) (#{id?\ 307}# (lambda (#{x\ 2221}#) (if (symbol? #{x\ 2221}#) #t (if (#{syntax-object?\ 271}# #{x\ 2221}#) (symbol? (#{syntax-object-expression\ 273}# #{x\ 2221}#)) #f)))) (#{nonsymbol-id?\ 305}# (lambda (#{x\ 2228}#) (if (#{syntax-object?\ 271}# #{x\ 2228}#) (symbol? (#{syntax-object-expression\ 273}# #{x\ 2228}#)) #f))) (#{global-extend\ 303}# (lambda (#{type\ 2232}# #{sym\ 2233}# #{val\ 2234}#) (#{put-global-definition-hook\ 221}# #{sym\ 2233}# #{type\ 2232}# #{val\ 2234}#))) (#{lookup\ 301}# (lambda (#{x\ 2238}# #{r\ 2239}# #{mod\ 2240}#) (let ((#{t\ 2246}# (assq #{x\ 2238}# #{r\ 2239}#))) (if #{t\ 2246}# (cdr #{t\ 2246}#) (if (symbol? #{x\ 2238}#) (let ((#{t\ 2252}# (#{get-global-definition-hook\ 223}# #{x\ 2238}# #{mod\ 2240}#))) (if #{t\ 2252}# #{t\ 2252}# (quote (global)))) '(displaced-lexical)))))) (#{macros-only-env\ 299}# (lambda (#{r\ 2257}#) (if (null? #{r\ 2257}#) '() (let ((#{a\ 2260}# (car #{r\ 2257}#))) (if (eq? (cadr #{a\ 2260}#) (quote macro)) (cons #{a\ 2260}# (#{macros-only-env\ 299}# (cdr #{r\ 2257}#))) (#{macros-only-env\ 299}# (cdr #{r\ 2257}#))))))) (#{extend-var-env\ 297}# (lambda (#{labels\ 2261}# #{vars\ 2262}# #{r\ 2263}#) (if (null? #{labels\ 2261}#) #{r\ 2263}# (#{extend-var-env\ 297}# (cdr #{labels\ 2261}#) (cdr #{vars\ 2262}#) (cons (cons (car #{labels\ 2261}#) (cons (quote lexical) (car #{vars\ 2262}#))) #{r\ 2263}#))))) (#{extend-env\ 295}# (lambda (#{labels\ 2268}# #{bindings\ 2269}# #{r\ 2270}#) (if (null? #{labels\ 2268}#) #{r\ 2270}# (#{extend-env\ 295}# (cdr #{labels\ 2268}#) (cdr #{bindings\ 2269}#) (cons (cons (car #{labels\ 2268}#) (car #{bindings\ 2269}#)) #{r\ 2270}#))))) (#{binding-value\ 292}# cdr) (#{binding-type\ 290}# car) (#{source-annotation\ 286}# (lambda (#{x\ 2274}#) (if (#{syntax-object?\ 271}# #{x\ 2274}#) (#{source-annotation\ 286}# (#{syntax-object-expression\ 273}# #{x\ 2274}#)) (if (pair? #{x\ 2274}#) (let ((#{props\ 2281}# (source-properties #{x\ 2274}#))) (if (pair? #{props\ 2281}#) #{props\ 2281}# #f)) #f)))) (#{set-syntax-object-module!\ 283}# (lambda (#{x\ 2283}# #{update\ 2284}#) (vector-set! #{x\ 2283}# 3 #{update\ 2284}#))) (#{set-syntax-object-wrap!\ 281}# (lambda (#{x\ 2287}# #{update\ 2288}#) (vector-set! #{x\ 2287}# 2 #{update\ 2288}#))) (#{set-syntax-object-expression!\ 279}# (lambda (#{x\ 2291}# #{update\ 2292}#) (vector-set! #{x\ 2291}# 1 #{update\ 2292}#))) (#{syntax-object-module\ 277}# (lambda (#{x\ 2295}#) (vector-ref #{x\ 2295}# 3))) (#{syntax-object-wrap\ 275}# (lambda (#{x\ 2297}#) (vector-ref #{x\ 2297}# 2))) (#{syntax-object-expression\ 273}# (lambda (#{x\ 2299}#) (vector-ref #{x\ 2299}# 1))) (#{syntax-object?\ 271}# (lambda (#{x\ 2301}#) (if (vector? #{x\ 2301}#) (if (= (vector-length #{x\ 2301}#) 4) (eq? (vector-ref #{x\ 2301}# 0) 'syntax-object) #f) #f))) (#{make-syntax-object\ 269}# (lambda (#{expression\ 2306}# #{wrap\ 2307}# #{module\ 2308}#) (vector 'syntax-object #{expression\ 2306}# #{wrap\ 2307}# #{module\ 2308}#))) (#{build-letrec\ 265}# (lambda (#{src\ 2312}# #{ids\ 2313}# #{vars\ 2314}# #{val-exps\ 2315}# #{body-exp\ 2316}#) (if (null? #{vars\ 2314}#) #{body-exp\ 2316}# (#{make-letrec\ 204}# #{src\ 2312}# #{ids\ 2313}# #{vars\ 2314}# #{val-exps\ 2315}# #{body-exp\ 2316}#)))) (#{build-named-let\ 263}# (lambda (#{src\ 2322}# #{ids\ 2323}# #{vars\ 2324}# #{val-exps\ 2325}# #{body-exp\ 2326}#) (let ((#{f\ 2336}# (car #{vars\ 2324}#)) (#{f-name\ 2337}# (car #{ids\ 2323}#)) (#{vars\ 2338}# (cdr #{vars\ 2324}#)) (#{ids\ 2339}# (cdr #{ids\ 2323}#))) (let ((#{proc\ 2341}# (#{build-simple-lambda\ 249}# #{src\ 2322}# #{ids\ 2339}# #f #{vars\ 2338}# '() #{body-exp\ 2326}#))) (#{make-letrec\ 204}# #{src\ 2322}# (list #{f-name\ 2337}#) (list #{f\ 2336}#) (list #{proc\ 2341}#) (#{build-application\ 229}# #{src\ 2322}# (#{build-lexical-reference\ 235}# 'fun #{src\ 2322}# #{f-name\ 2337}# #{f\ 2336}#) #{val-exps\ 2325}#)))))) (#{build-let\ 261}# (lambda (#{src\ 2342}# #{ids\ 2343}# #{vars\ 2344}# #{val-exps\ 2345}# #{body-exp\ 2346}#) (if (null? #{vars\ 2344}#) #{body-exp\ 2346}# (#{make-let\ 202}# #{src\ 2342}# #{ids\ 2343}# #{vars\ 2344}# #{val-exps\ 2345}# #{body-exp\ 2346}#)))) (#{build-sequence\ 259}# (lambda (#{src\ 2352}# #{exps\ 2353}#) (if (null? (cdr #{exps\ 2353}#)) (car #{exps\ 2353}#) (#{make-sequence\ 196}# #{src\ 2352}# #{exps\ 2353}#)))) (#{build-data\ 257}# (lambda (#{src\ 2356}# #{exp\ 2357}#) (#{make-const\ 174}# #{src\ 2356}# #{exp\ 2357}#))) (#{build-primref\ 255}# (lambda (#{src\ 2360}# #{name\ 2361}#) (if (equal? (module-name (current-module)) '(guile)) (#{make-toplevel-ref\ 186}# #{src\ 2360}# #{name\ 2361}#) (#{make-module-ref\ 182}# #{src\ 2360}# '(guile) #{name\ 2361}# #f)))) (#{build-lambda-case\ 253}# (lambda (#{src\ 2364}# #{req\ 2365}# #{opt\ 2366}# #{rest\ 2367}# #{kw\ 2368}# #{inits\ 2369}# #{vars\ 2370}# #{body\ 2371}# #{else-case\ 2372}#) (#{make-lambda-case\ 200}# #{src\ 2364}# #{req\ 2365}# #{opt\ 2366}# #{rest\ 2367}# #{kw\ 2368}# #{inits\ 2369}# #{vars\ 2370}# #{body\ 2371}# #{else-case\ 2372}#))) (#{build-case-lambda\ 251}# (lambda (#{src\ 2382}# #{meta\ 2383}# #{body\ 2384}#) (#{make-lambda\ 198}# #{src\ 2382}# #{meta\ 2383}# #{body\ 2384}#))) (#{build-simple-lambda\ 249}# (lambda (#{src\ 2388}# #{req\ 2389}# #{rest\ 2390}# #{vars\ 2391}# #{meta\ 2392}# #{exp\ 2393}#) (#{make-lambda\ 198}# #{src\ 2388}# #{meta\ 2392}# (#{make-lambda-case\ 200}# #{src\ 2388}# #{req\ 2389}# #f #{rest\ 2390}# #f '() #{vars\ 2391}# #{exp\ 2393}# #f)))) (#{build-global-definition\ 247}# (lambda (#{source\ 2400}# #{var\ 2401}# #{exp\ 2402}#) (#{make-toplevel-define\ 190}# #{source\ 2400}# #{var\ 2401}# #{exp\ 2402}#))) (#{maybe-name-value!\ 245}# (lambda (#{name\ 2406}# #{val\ 2407}#) (if ((@ (language tree-il) lambda?) #{val\ 2407}#) (let ((#{meta\ 2413}# ((@ (language tree-il) lambda-meta) #{val\ 2407}#))) (if (not (assq (quote name) #{meta\ 2413}#)) ((setter (@ (language tree-il) lambda-meta)) #{val\ 2407}# (acons 'name #{name\ 2406}# #{meta\ 2413}#))))))) (#{build-global-assignment\ 243}# (lambda (#{source\ 2414}# #{var\ 2415}# #{exp\ 2416}# #{mod\ 2417}#) (#{analyze-variable\ 239}# #{mod\ 2417}# #{var\ 2415}# (lambda (#{mod\ 2422}# #{var\ 2423}# #{public?\ 2424}#) (#{make-module-set\ 184}# #{source\ 2414}# #{mod\ 2422}# #{var\ 2423}# #{public?\ 2424}# #{exp\ 2416}#)) (lambda (#{var\ 2428}#) (#{make-toplevel-set\ 188}# #{source\ 2414}# #{var\ 2428}# #{exp\ 2416}#))))) (#{build-global-reference\ 241}# (lambda (#{source\ 2430}# #{var\ 2431}# #{mod\ 2432}#) (#{analyze-variable\ 239}# #{mod\ 2432}# #{var\ 2431}# (lambda (#{mod\ 2436}# #{var\ 2437}# #{public?\ 2438}#) (#{make-module-ref\ 182}# #{source\ 2430}# #{mod\ 2436}# #{var\ 2437}# #{public?\ 2438}#)) (lambda (#{var\ 2442}#) (#{make-toplevel-ref\ 186}# #{source\ 2430}# #{var\ 2442}#))))) (#{analyze-variable\ 239}# (lambda (#{mod\ 2444}# #{var\ 2445}# #{modref-cont\ 2446}# #{bare-cont\ 2447}#) (if (not #{mod\ 2444}#) (#{bare-cont\ 2447}# #{var\ 2445}#) (let ((#{kind\ 2454}# (car #{mod\ 2444}#)) (#{mod\ 2455}# (cdr #{mod\ 2444}#))) (if (memv #{kind\ 2454}# (quote (public))) (#{modref-cont\ 2446}# #{mod\ 2455}# #{var\ 2445}# #t) (if (memv #{kind\ 2454}# (quote (private))) (if (not (equal? #{mod\ 2455}# (module-name (current-module)))) (#{modref-cont\ 2446}# #{mod\ 2455}# #{var\ 2445}# #f) (#{bare-cont\ 2447}# #{var\ 2445}#)) (if (memv #{kind\ 2454}# (quote (bare))) (#{bare-cont\ 2447}# #{var\ 2445}#) (if (memv #{kind\ 2454}# (quote (hygiene))) (if (if (not (equal? #{mod\ 2455}# (module-name (current-module)))) (module-variable (resolve-module #{mod\ 2455}#) #{var\ 2445}#) #f) (#{modref-cont\ 2446}# #{mod\ 2455}# #{var\ 2445}# #f) (#{bare-cont\ 2447}# #{var\ 2445}#)) (syntax-violation #f "bad module kind" #{var\ 2445}# #{mod\ 2455}#))))))))) (#{build-lexical-assignment\ 237}# (lambda (#{source\ 2463}# #{name\ 2464}# #{var\ 2465}# #{exp\ 2466}#) (#{make-lexical-set\ 180}# #{source\ 2463}# #{name\ 2464}# #{var\ 2465}# #{exp\ 2466}#))) (#{build-lexical-reference\ 235}# (lambda (#{type\ 2471}# #{source\ 2472}# #{name\ 2473}# #{var\ 2474}#) (#{make-lexical-ref\ 178}# #{source\ 2472}# #{name\ 2473}# #{var\ 2474}#))) (#{build-dynlet\ 233}# (lambda (#{source\ 2479}# #{fluids\ 2480}# #{vals\ 2481}# #{body\ 2482}#) (#{make-dynlet\ 206}# #{source\ 2479}# #{fluids\ 2480}# #{vals\ 2481}# #{body\ 2482}#))) (#{build-conditional\ 231}# (lambda (#{source\ 2487}# #{test-exp\ 2488}# #{then-exp\ 2489}# #{else-exp\ 2490}#) (#{make-conditional\ 192}# #{source\ 2487}# #{test-exp\ 2488}# #{then-exp\ 2489}# #{else-exp\ 2490}#))) (#{build-application\ 229}# (lambda (#{source\ 2495}# #{fun-exp\ 2496}# #{arg-exps\ 2497}#) (#{make-application\ 194}# #{source\ 2495}# #{fun-exp\ 2496}# #{arg-exps\ 2497}#))) (#{build-void\ 227}# (lambda (#{source\ 2501}#) (#{make-void\ 172}# #{source\ 2501}#))) (#{decorate-source\ 225}# (lambda (#{e\ 2503}# #{s\ 2504}#) (begin (if (if (pair? #{e\ 2503}#) #{s\ 2504}# #f) (set-source-properties! #{e\ 2503}# #{s\ 2504}#)) #{e\ 2503}#))) (#{get-global-definition-hook\ 223}# (lambda (#{symbol\ 2509}# #{module\ 2510}#) (begin (if (if (not #{module\ 2510}#) (current-module) #f) (warn "module system is booted, we should have a module" #{symbol\ 2509}#)) (let ((#{v\ 2516}# (module-variable (if #{module\ 2510}# (resolve-module (cdr #{module\ 2510}#)) (current-module)) #{symbol\ 2509}#))) (if #{v\ 2516}# (if (variable-bound? #{v\ 2516}#) (let ((#{val\ 2521}# (variable-ref #{v\ 2516}#))) (if (macro? #{val\ 2521}#) (if (macro-type #{val\ 2521}#) (cons (macro-type #{val\ 2521}#) (macro-binding #{val\ 2521}#)) #f) #f)) #f) #f))))) (#{put-global-definition-hook\ 221}# (lambda (#{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#) (module-define! (current-module) #{symbol\ 2525}# (make-syntax-transformer #{symbol\ 2525}# #{type\ 2526}# #{val\ 2527}#)))) (#{local-eval-hook\ 218}# (lambda (#{x\ 2531}# #{mod\ 2532}#) (primitive-eval #{x\ 2531}#))) (#{top-level-eval-hook\ 216}# (lambda (#{x\ 2535}# #{mod\ 2536}#) (primitive-eval #{x\ 2535}#))) (#{fx<\ 214}# <) (#{fx=\ 212}# =) (#{fx-\ 210}# -) (#{fx+\ 208}# +) (#{make-dynlet\ 206}# (lambda (#{src\ 2539}# #{fluids\ 2540}# #{vals\ 2541}# #{body\ 2542}#) (make-struct (vector-ref %expanded-vtables 17) 0 #{src\ 2539}# #{fluids\ 2540}# #{vals\ 2541}# #{body\ 2542}#))) (#{make-letrec\ 204}# (lambda (#{src\ 2547}# #{names\ 2548}# #{gensyms\ 2549}# #{vals\ 2550}# #{body\ 2551}#) (make-struct (vector-ref %expanded-vtables 16) 0 #{src\ 2547}# #{names\ 2548}# #{gensyms\ 2549}# #{vals\ 2550}# #{body\ 2551}#))) (#{make-let\ 202}# (lambda (#{src\ 2557}# #{names\ 2558}# #{gensyms\ 2559}# #{vals\ 2560}# #{body\ 2561}#) (make-struct (vector-ref %expanded-vtables 15) 0 #{src\ 2557}# #{names\ 2558}# #{gensyms\ 2559}# #{vals\ 2560}# #{body\ 2561}#))) (#{make-lambda-case\ 200}# (lambda (#{src\ 2567}# #{req\ 2568}# #{opt\ 2569}# #{rest\ 2570}# #{kw\ 2571}# #{inits\ 2572}# #{gensyms\ 2573}# #{body\ 2574}# #{alternate\ 2575}#) (make-struct (vector-ref %expanded-vtables 14) 0 #{src\ 2567}# #{req\ 2568}# #{opt\ 2569}# #{rest\ 2570}# #{kw\ 2571}# #{inits\ 2572}# #{gensyms\ 2573}# #{body\ 2574}# #{alternate\ 2575}#))) (#{make-lambda\ 198}# (lambda (#{src\ 2585}# #{meta\ 2586}# #{body\ 2587}#) (make-struct (vector-ref %expanded-vtables 13) 0 #{src\ 2585}# #{meta\ 2586}# #{body\ 2587}#))) (#{make-sequence\ 196}# (lambda (#{src\ 2591}# #{exps\ 2592}#) (make-struct (vector-ref %expanded-vtables 12) 0 #{src\ 2591}# #{exps\ 2592}#))) (#{make-application\ 194}# (lambda (#{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#) (make-struct (vector-ref %expanded-vtables 11) 0 #{src\ 2595}# #{proc\ 2596}# #{args\ 2597}#))) (#{make-conditional\ 192}# (lambda (#{src\ 2601}# #{test\ 2602}# #{consequent\ 2603}# #{alternate\ 2604}#) (make-struct (vector-ref %expanded-vtables 10) 0 #{src\ 2601}# #{test\ 2602}# #{consequent\ 2603}# #{alternate\ 2604}#))) (#{make-toplevel-define\ 190}# (lambda (#{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#) (make-struct (vector-ref %expanded-vtables 9) 0 #{src\ 2609}# #{name\ 2610}# #{exp\ 2611}#))) (#{make-toplevel-set\ 188}# (lambda (#{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#) (make-struct (vector-ref %expanded-vtables 8) 0 #{src\ 2615}# #{name\ 2616}# #{exp\ 2617}#))) (#{make-toplevel-ref\ 186}# (lambda (#{src\ 2621}# #{name\ 2622}#) (make-struct (vector-ref %expanded-vtables 7) 0 #{src\ 2621}# #{name\ 2622}#))) (#{make-module-set\ 184}# (lambda (#{src\ 2625}# #{mod\ 2626}# #{name\ 2627}# #{public?\ 2628}# #{exp\ 2629}#) (make-struct (vector-ref %expanded-vtables 6) 0 #{src\ 2625}# #{mod\ 2626}# #{name\ 2627}# #{public?\ 2628}# #{exp\ 2629}#))) (#{make-module-ref\ 182}# (lambda (#{src\ 2635}# #{mod\ 2636}# #{name\ 2637}# #{public?\ 2638}#) (make-struct (vector-ref %expanded-vtables 5) 0 #{src\ 2635}# #{mod\ 2636}# #{name\ 2637}# #{public?\ 2638}#))) (#{make-lexical-set\ 180}# (lambda (#{src\ 2643}# #{name\ 2644}# #{gensym\ 2645}# #{exp\ 2646}#) (make-struct (vector-ref %expanded-vtables 4) 0 #{src\ 2643}# #{name\ 2644}# #{gensym\ 2645}# #{exp\ 2646}#))) (#{make-lexical-ref\ 178}# (lambda (#{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#) (make-struct (vector-ref %expanded-vtables 3) 0 #{src\ 2651}# #{name\ 2652}# #{gensym\ 2653}#))) (#{make-primitive-ref\ 176}# (lambda (#{src\ 2657}# #{name\ 2658}#) (make-struct (vector-ref %expanded-vtables 2) 0 #{src\ 2657}# #{name\ 2658}#))) (#{make-const\ 174}# (lambda (#{src\ 2661}# #{exp\ 2662}#) (make-struct (vector-ref %expanded-vtables 1) 0 #{src\ 2661}# #{exp\ 2662}#))) (#{make-void\ 172}# (lambda (#{src\ 2665}#) (make-struct (vector-ref %expanded-vtables 0) 0 #{src\ 2665}#)))) (begin (#{global-extend\ 303}# 'local-syntax 'letrec-syntax #t) (#{global-extend\ 303}# 'local-syntax 'let-syntax #f) (#{global-extend\ 303}# 'core 'fluid-let-syntax (lambda (#{e\ 2667}# #{r\ 2668}# #{w\ 2669}# #{s\ 2670}# #{mod\ 2671}#) ((lambda (#{tmp\ 2677}#) ((lambda (#{tmp\ 2678}#) (if (if #{tmp\ 2678}# (apply (lambda (#{_\ 2684}# #{var\ 2685}# #{val\ 2686}# #{e1\ 2687}# #{e2\ 2688}#) (#{valid-bound-ids?\ 370}# #{var\ 2685}#)) #{tmp\ 2678}#) #f) (apply (lambda (#{_\ 2695}# #{var\ 2696}# #{val\ 2697}# #{e1\ 2698}# #{e2\ 2699}#) (let ((#{names\ 2701}# (map (lambda (#{x\ 2702}#) (#{id-var-name\ 364}# #{x\ 2702}# #{w\ 2669}#)) #{var\ 2696}#))) (begin (for-each (lambda (#{id\ 2705}# #{n\ 2706}#) (let ((#{atom-key\ 2711}# (#{binding-type\ 290}# (#{lookup\ 301}# #{n\ 2706}# #{r\ 2668}# #{mod\ 2671}#)))) (if (memv #{atom-key\ 2711}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" #{e\ 2667}# (#{source-wrap\ 378}# #{id\ 2705}# #{w\ 2669}# #{s\ 2670}# #{mod\ 2671}#))))) #{var\ 2696}# #{names\ 2701}#) (#{chi-body\ 400}# (cons #{e1\ 2698}# #{e2\ 2699}#) (#{source-wrap\ 378}# #{e\ 2667}# #{w\ 2669}# #{s\ 2670}# #{mod\ 2671}#) (#{extend-env\ 295}# #{names\ 2701}# (let ((#{trans-r\ 2716}# (#{macros-only-env\ 299}# #{r\ 2668}#))) (map (lambda (#{x\ 2717}#) (cons 'macro (#{eval-local-transformer\ 404}# (#{chi\ 392}# #{x\ 2717}# #{trans-r\ 2716}# #{w\ 2669}# #{mod\ 2671}#) #{mod\ 2671}#))) #{val\ 2697}#)) #{r\ 2668}#) #{w\ 2669}# #{mod\ 2671}#)))) #{tmp\ 2678}#) ((lambda (#{_\ 2722}#) (syntax-violation 'fluid-let-syntax "bad syntax" (#{source-wrap\ 378}# #{e\ 2667}# #{w\ 2669}# #{s\ 2670}# #{mod\ 2671}#))) #{tmp\ 2677}#))) ($sc-dispatch #{tmp\ 2677}# '(any #(each (any any)) any . each-any)))) #{e\ 2667}#))) (#{global-extend\ 303}# 'core 'quote (lambda (#{e\ 2723}# #{r\ 2724}# #{w\ 2725}# #{s\ 2726}# #{mod\ 2727}#) ((lambda (#{tmp\ 2733}#) ((lambda (#{tmp\ 2734}#) (if #{tmp\ 2734}# (apply (lambda (#{_\ 2737}# #{e\ 2738}#) (#{build-data\ 257}# #{s\ 2726}# (#{strip\ 418}# #{e\ 2738}# #{w\ 2725}#))) #{tmp\ 2734}#) ((lambda (#{_\ 2740}#) (syntax-violation 'quote "bad syntax" (#{source-wrap\ 378}# #{e\ 2723}# #{w\ 2725}# #{s\ 2726}# #{mod\ 2727}#))) #{tmp\ 2733}#))) ($sc-dispatch #{tmp\ 2733}# (quote (any any))))) #{e\ 2723}#))) (#{global-extend\ 303}# 'core 'syntax (letrec ((#{regen\ 2756}# (lambda (#{x\ 2757}#) (let ((#{atom-key\ 2761}# (car #{x\ 2757}#))) (if (memv #{atom-key\ 2761}# (quote (ref))) (#{build-lexical-reference\ 235}# 'value #f (cadr #{x\ 2757}#) (cadr #{x\ 2757}#)) (if (memv #{atom-key\ 2761}# (quote (primitive))) (#{build-primref\ 255}# #f (cadr #{x\ 2757}#)) (if (memv #{atom-key\ 2761}# (quote (quote))) (#{build-data\ 257}# #f (cadr #{x\ 2757}#)) (if (memv #{atom-key\ 2761}# (quote (lambda))) (if (list? (cadr #{x\ 2757}#)) (#{build-simple-lambda\ 249}# #f (cadr #{x\ 2757}#) #f (cadr #{x\ 2757}#) '() (#{regen\ 2756}# (caddr #{x\ 2757}#))) (error "how did we get here" #{x\ 2757}#)) (#{build-application\ 229}# #f (#{build-primref\ 255}# #f (car #{x\ 2757}#)) (map #{regen\ 2756}# (cdr #{x\ 2757}#)))))))))) (#{gen-vector\ 2754}# (lambda (#{x\ 2773}#) (if (eq? (car #{x\ 2773}#) (quote list)) (cons (quote vector) (cdr #{x\ 2773}#)) (if (eq? (car #{x\ 2773}#) (quote quote)) (list 'quote (list->vector (cadr #{x\ 2773}#))) (list (quote list->vector) #{x\ 2773}#))))) (#{gen-append\ 2752}# (lambda (#{x\ 2783}# #{y\ 2784}#) (if (equal? #{y\ 2784}# (quote (quote ()))) #{x\ 2783}# (list (quote append) #{x\ 2783}# #{y\ 2784}#)))) (#{gen-cons\ 2750}# (lambda (#{x\ 2788}# #{y\ 2789}#) (let ((#{atom-key\ 2794}# (car #{y\ 2789}#))) (if (memv #{atom-key\ 2794}# (quote (quote))) (if (eq? (car #{x\ 2788}#) (quote quote)) (list 'quote (cons (cadr #{x\ 2788}#) (cadr #{y\ 2789}#))) (if (eq? (cadr #{y\ 2789}#) (quote ())) (list (quote list) #{x\ 2788}#) (list (quote cons) #{x\ 2788}# #{y\ 2789}#))) (if (memv #{atom-key\ 2794}# (quote (list))) (cons 'list (cons #{x\ 2788}# (cdr #{y\ 2789}#))) (list (quote cons) #{x\ 2788}# #{y\ 2789}#)))))) (#{gen-map\ 2748}# (lambda (#{e\ 2803}# #{map-env\ 2804}#) (let ((#{formals\ 2809}# (map cdr #{map-env\ 2804}#)) (#{actuals\ 2810}# (map (lambda (#{x\ 2811}#) (list (quote ref) (car #{x\ 2811}#))) #{map-env\ 2804}#))) (if (eq? (car #{e\ 2803}#) (quote ref)) (car #{actuals\ 2810}#) (if (and-map (lambda (#{x\ 2818}#) (if (eq? (car #{x\ 2818}#) (quote ref)) (memq (cadr #{x\ 2818}#) #{formals\ 2809}#) #f)) (cdr #{e\ 2803}#)) (cons 'map (cons (list 'primitive (car #{e\ 2803}#)) (map (let ((#{r\ 2824}# (map cons #{formals\ 2809}# #{actuals\ 2810}#))) (lambda (#{x\ 2825}#) (cdr (assq (cadr #{x\ 2825}#) #{r\ 2824}#)))) (cdr #{e\ 2803}#)))) (cons 'map (cons (list 'lambda #{formals\ 2809}# #{e\ 2803}#) #{actuals\ 2810}#))))))) (#{gen-mappend\ 2746}# (lambda (#{e\ 2829}# #{map-env\ 2830}#) (list 'apply '(primitive append) (#{gen-map\ 2748}# #{e\ 2829}# #{map-env\ 2830}#)))) (#{gen-ref\ 2744}# (lambda (#{src\ 2834}# #{var\ 2835}# #{level\ 2836}# #{maps\ 2837}#) (if (#{fx=\ 212}# #{level\ 2836}# 0) (values #{var\ 2835}# #{maps\ 2837}#) (if (null? #{maps\ 2837}#) (syntax-violation 'syntax "missing ellipsis" #{src\ 2834}#) (call-with-values (lambda () (#{gen-ref\ 2744}# #{src\ 2834}# #{var\ 2835}# (#{fx-\ 210}# #{level\ 2836}# 1) (cdr #{maps\ 2837}#))) (lambda (#{outer-var\ 2842}# #{outer-maps\ 2843}#) (let ((#{b\ 2847}# (assq #{outer-var\ 2842}# (car #{maps\ 2837}#)))) (if #{b\ 2847}# (values (cdr #{b\ 2847}#) #{maps\ 2837}#) (let ((#{inner-var\ 2849}# (#{gen-var\ 420}# (quote tmp)))) (values #{inner-var\ 2849}# (cons (cons (cons #{outer-var\ 2842}# #{inner-var\ 2849}#) (car #{maps\ 2837}#)) #{outer-maps\ 2843}#))))))))))) (#{gen-syntax\ 2742}# (lambda (#{src\ 2850}# #{e\ 2851}# #{r\ 2852}# #{maps\ 2853}# #{ellipsis?\ 2854}# #{mod\ 2855}#) (if (#{id?\ 307}# #{e\ 2851}#) (let ((#{label\ 2863}# (#{id-var-name\ 364}# #{e\ 2851}# '(())))) (let ((#{b\ 2866}# (#{lookup\ 301}# #{label\ 2863}# #{r\ 2852}# #{mod\ 2855}#))) (if (eq? (#{binding-type\ 290}# #{b\ 2866}#) 'syntax) (call-with-values (lambda () (let ((#{var.lev\ 2868}# (#{binding-value\ 292}# #{b\ 2866}#))) (#{gen-ref\ 2744}# #{src\ 2850}# (car #{var.lev\ 2868}#) (cdr #{var.lev\ 2868}#) #{maps\ 2853}#))) (lambda (#{var\ 2869}# #{maps\ 2870}#) (values (list (quote ref) #{var\ 2869}#) #{maps\ 2870}#))) (if (#{ellipsis?\ 2854}# #{e\ 2851}#) (syntax-violation 'syntax "misplaced ellipsis" #{src\ 2850}#) (values (list (quote quote) #{e\ 2851}#) #{maps\ 2853}#))))) ((lambda (#{tmp\ 2875}#) ((lambda (#{tmp\ 2876}#) (if (if #{tmp\ 2876}# (apply (lambda (#{dots\ 2879}# #{e\ 2880}#) (#{ellipsis?\ 2854}# #{dots\ 2879}#)) #{tmp\ 2876}#) #f) (apply (lambda (#{dots\ 2883}# #{e\ 2884}#) (#{gen-syntax\ 2742}# #{src\ 2850}# #{e\ 2884}# #{r\ 2852}# #{maps\ 2853}# (lambda (#{x\ 2885}#) #f) #{mod\ 2855}#)) #{tmp\ 2876}#) ((lambda (#{tmp\ 2887}#) (if (if #{tmp\ 2887}# (apply (lambda (#{x\ 2891}# #{dots\ 2892}# #{y\ 2893}#) (#{ellipsis?\ 2854}# #{dots\ 2892}#)) #{tmp\ 2887}#) #f) (apply (lambda (#{x\ 2897}# #{dots\ 2898}# #{y\ 2899}#) (letrec ((#{f\ 2903}# (lambda (#{y\ 2904}# #{k\ 2905}#) ((lambda (#{tmp\ 2912}#) ((lambda (#{tmp\ 2913}#) (if (if #{tmp\ 2913}# (apply (lambda (#{dots\ 2916}# #{y\ 2917}#) (#{ellipsis?\ 2854}# #{dots\ 2916}#)) #{tmp\ 2913}#) #f) (apply (lambda (#{dots\ 2920}# #{y\ 2921}#) (#{f\ 2903}# #{y\ 2921}# (lambda (#{maps\ 2922}#) (call-with-values (lambda () (#{k\ 2905}# (cons '() #{maps\ 2922}#))) (lambda (#{x\ 2924}# #{maps\ 2925}#) (if (null? (car #{maps\ 2925}#)) (syntax-violation 'syntax "extra ellipsis" #{src\ 2850}#) (values (#{gen-mappend\ 2746}# #{x\ 2924}# (car #{maps\ 2925}#)) (cdr #{maps\ 2925}#)))))))) #{tmp\ 2913}#) ((lambda (#{_\ 2929}#) (call-with-values (lambda () (#{gen-syntax\ 2742}# #{src\ 2850}# #{y\ 2904}# #{r\ 2852}# #{maps\ 2853}# #{ellipsis?\ 2854}# #{mod\ 2855}#)) (lambda (#{y\ 2930}# #{maps\ 2931}#) (call-with-values (lambda () (#{k\ 2905}# #{maps\ 2931}#)) (lambda (#{x\ 2934}# #{maps\ 2935}#) (values (#{gen-append\ 2752}# #{x\ 2934}# #{y\ 2930}#) #{maps\ 2935}#)))))) #{tmp\ 2912}#))) ($sc-dispatch #{tmp\ 2912}# '(any . any)))) #{y\ 2904}#)))) (#{f\ 2903}# #{y\ 2899}# (lambda (#{maps\ 2906}#) (call-with-values (lambda () (#{gen-syntax\ 2742}# #{src\ 2850}# #{x\ 2897}# #{r\ 2852}# (cons '() #{maps\ 2906}#) #{ellipsis?\ 2854}# #{mod\ 2855}#)) (lambda (#{x\ 2908}# #{maps\ 2909}#) (if (null? (car #{maps\ 2909}#)) (syntax-violation 'syntax "extra ellipsis" #{src\ 2850}#) (values (#{gen-map\ 2748}# #{x\ 2908}# (car #{maps\ 2909}#)) (cdr #{maps\ 2909}#))))))))) #{tmp\ 2887}#) ((lambda (#{tmp\ 2938}#) (if #{tmp\ 2938}# (apply (lambda (#{x\ 2941}# #{y\ 2942}#) (call-with-values (lambda () (#{gen-syntax\ 2742}# #{src\ 2850}# #{x\ 2941}# #{r\ 2852}# #{maps\ 2853}# #{ellipsis?\ 2854}# #{mod\ 2855}#)) (lambda (#{x\ 2943}# #{maps\ 2944}#) (call-with-values (lambda () (#{gen-syntax\ 2742}# #{src\ 2850}# #{y\ 2942}# #{r\ 2852}# #{maps\ 2944}# #{ellipsis?\ 2854}# #{mod\ 2855}#)) (lambda (#{y\ 2947}# #{maps\ 2948}#) (values (#{gen-cons\ 2750}# #{x\ 2943}# #{y\ 2947}#) #{maps\ 2948}#)))))) #{tmp\ 2938}#) ((lambda (#{tmp\ 2951}#) (if #{tmp\ 2951}# (apply (lambda (#{e1\ 2954}# #{e2\ 2955}#) (call-with-values (lambda () (#{gen-syntax\ 2742}# #{src\ 2850}# (cons #{e1\ 2954}# #{e2\ 2955}#) #{r\ 2852}# #{maps\ 2853}# #{ellipsis?\ 2854}# #{mod\ 2855}#)) (lambda (#{e\ 2957}# #{maps\ 2958}#) (values (#{gen-vector\ 2754}# #{e\ 2957}#) #{maps\ 2958}#)))) #{tmp\ 2951}#) ((lambda (#{_\ 2962}#) (values (list 'quote #{e\ 2851}#) #{maps\ 2853}#)) #{tmp\ 2875}#))) ($sc-dispatch #{tmp\ 2875}# '#(vector (any . each-any)))))) ($sc-dispatch #{tmp\ 2875}# '(any . any))))) ($sc-dispatch #{tmp\ 2875}# '(any any . any))))) ($sc-dispatch #{tmp\ 2875}# (quote (any any))))) #{e\ 2851}#))))) (lambda (#{e\ 2964}# #{r\ 2965}# #{w\ 2966}# #{s\ 2967}# #{mod\ 2968}#) (let ((#{e\ 2975}# (#{source-wrap\ 378}# #{e\ 2964}# #{w\ 2966}# #{s\ 2967}# #{mod\ 2968}#))) ((lambda (#{tmp\ 2976}#) ((lambda (#{tmp\ 2977}#) (if #{tmp\ 2977}# (apply (lambda (#{_\ 2980}# #{x\ 2981}#) (call-with-values (lambda () (#{gen-syntax\ 2742}# #{e\ 2975}# #{x\ 2981}# #{r\ 2965}# '() #{ellipsis?\ 408}# #{mod\ 2968}#)) (lambda (#{e\ 2982}# #{maps\ 2983}#) (#{regen\ 2756}# #{e\ 2982}#)))) #{tmp\ 2977}#) ((lambda (#{_\ 2987}#) (syntax-violation 'syntax "bad `syntax' form" #{e\ 2975}#)) #{tmp\ 2976}#))) ($sc-dispatch #{tmp\ 2976}# (quote (any any))))) #{e\ 2975}#))))) (#{global-extend\ 303}# 'core 'lambda (lambda (#{e\ 2988}# #{r\ 2989}# #{w\ 2990}# #{s\ 2991}# #{mod\ 2992}#) ((lambda (#{tmp\ 2998}#) ((lambda (#{tmp\ 2999}#) (if #{tmp\ 2999}# (apply (lambda (#{_\ 3004}# #{args\ 3005}# #{e1\ 3006}# #{e2\ 3007}#) (call-with-values (lambda () (#{lambda-formals\ 410}# #{args\ 3005}#)) (lambda (#{req\ 3008}# #{opt\ 3009}# #{rest\ 3010}# #{kw\ 3011}#) (letrec ((#{lp\ 3019}# (lambda (#{body\ 3020}# #{meta\ 3021}#) ((lambda (#{tmp\ 3023}#) ((lambda (#{tmp\ 3024}#) (if (if #{tmp\ 3024}# (apply (lambda (#{docstring\ 3028}# #{e1\ 3029}# #{e2\ 3030}#) (string? (syntax->datum #{docstring\ 3028}#))) #{tmp\ 3024}#) #f) (apply (lambda (#{docstring\ 3034}# #{e1\ 3035}# #{e2\ 3036}#) (#{lp\ 3019}# (cons #{e1\ 3035}# #{e2\ 3036}#) (append #{meta\ 3021}# (list (cons 'documentation (syntax->datum #{docstring\ 3034}#)))))) #{tmp\ 3024}#) ((lambda (#{tmp\ 3039}#) (if #{tmp\ 3039}# (apply (lambda (#{k\ 3044}# #{v\ 3045}# #{e1\ 3046}# #{e2\ 3047}#) (#{lp\ 3019}# (cons #{e1\ 3046}# #{e2\ 3047}#) (append #{meta\ 3021}# (syntax->datum (map cons #{k\ 3044}# #{v\ 3045}#))))) #{tmp\ 3039}#) ((lambda (#{_\ 3052}#) (#{chi-simple-lambda\ 412}# #{e\ 2988}# #{r\ 2989}# #{w\ 2990}# #{s\ 2991}# #{mod\ 2992}# #{req\ 3008}# #{rest\ 3010}# #{meta\ 3021}# #{body\ 3020}#)) #{tmp\ 3023}#))) ($sc-dispatch #{tmp\ 3023}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch #{tmp\ 3023}# '(any any . each-any)))) #{body\ 3020}#)))) (#{lp\ 3019}# (cons #{e1\ 3006}# #{e2\ 3007}#) '()))))) #{tmp\ 2999}#) ((lambda (#{_\ 3054}#) (syntax-violation 'lambda "bad lambda" #{e\ 2988}#)) #{tmp\ 2998}#))) ($sc-dispatch #{tmp\ 2998}# '(any any any . each-any)))) #{e\ 2988}#))) (#{global-extend\ 303}# 'core 'lambda* (lambda (#{e\ 3055}# #{r\ 3056}# #{w\ 3057}# #{s\ 3058}# #{mod\ 3059}#) ((lambda (#{tmp\ 3065}#) ((lambda (#{tmp\ 3066}#) (if #{tmp\ 3066}# (apply (lambda (#{_\ 3071}# #{args\ 3072}# #{e1\ 3073}# #{e2\ 3074}#) (call-with-values (lambda () (#{chi-lambda-case\ 416}# #{e\ 3055}# #{r\ 3056}# #{w\ 3057}# #{s\ 3058}# #{mod\ 3059}# #{lambda*-formals\ 414}# (list (cons #{args\ 3072}# (cons #{e1\ 3073}# #{e2\ 3074}#))))) (lambda (#{meta\ 3076}# #{lcase\ 3077}#) (#{build-case-lambda\ 251}# #{s\ 3058}# #{meta\ 3076}# #{lcase\ 3077}#)))) #{tmp\ 3066}#) ((lambda (#{_\ 3081}#) (syntax-violation 'lambda "bad lambda*" #{e\ 3055}#)) #{tmp\ 3065}#))) ($sc-dispatch #{tmp\ 3065}# '(any any any . each-any)))) #{e\ 3055}#))) (#{global-extend\ 303}# 'core 'case-lambda (lambda (#{e\ 3082}# #{r\ 3083}# #{w\ 3084}# #{s\ 3085}# #{mod\ 3086}#) ((lambda (#{tmp\ 3092}#) ((lambda (#{tmp\ 3093}#) (if #{tmp\ 3093}# (apply (lambda (#{_\ 3101}# #{args\ 3102}# #{e1\ 3103}# #{e2\ 3104}# #{args*\ 3105}# #{e1*\ 3106}# #{e2*\ 3107}#) (call-with-values (lambda () (#{chi-lambda-case\ 416}# #{e\ 3082}# #{r\ 3083}# #{w\ 3084}# #{s\ 3085}# #{mod\ 3086}# #{lambda-formals\ 410}# (cons (cons #{args\ 3102}# (cons #{e1\ 3103}# #{e2\ 3104}#)) (map (lambda (#{tmp\ 3111}# #{tmp\ 3110}# #{tmp\ 3109}#) (cons #{tmp\ 3109}# (cons #{tmp\ 3110}# #{tmp\ 3111}#))) #{e2*\ 3107}# #{e1*\ 3106}# #{args*\ 3105}#)))) (lambda (#{meta\ 3113}# #{lcase\ 3114}#) (#{build-case-lambda\ 251}# #{s\ 3085}# #{meta\ 3113}# #{lcase\ 3114}#)))) #{tmp\ 3093}#) ((lambda (#{_\ 3118}#) (syntax-violation 'case-lambda "bad case-lambda" #{e\ 3082}#)) #{tmp\ 3092}#))) ($sc-dispatch #{tmp\ 3092}# '(any (any any . each-any) . #(each (any any . each-any)))))) #{e\ 3082}#))) (#{global-extend\ 303}# 'core 'case-lambda* (lambda (#{e\ 3119}# #{r\ 3120}# #{w\ 3121}# #{s\ 3122}# #{mod\ 3123}#) ((lambda (#{tmp\ 3129}#) ((lambda (#{tmp\ 3130}#) (if #{tmp\ 3130}# (apply (lambda (#{_\ 3138}# #{args\ 3139}# #{e1\ 3140}# #{e2\ 3141}# #{args*\ 3142}# #{e1*\ 3143}# #{e2*\ 3144}#) (call-with-values (lambda () (#{chi-lambda-case\ 416}# #{e\ 3119}# #{r\ 3120}# #{w\ 3121}# #{s\ 3122}# #{mod\ 3123}# #{lambda*-formals\ 414}# (cons (cons #{args\ 3139}# (cons #{e1\ 3140}# #{e2\ 3141}#)) (map (lambda (#{tmp\ 3148}# #{tmp\ 3147}# #{tmp\ 3146}#) (cons #{tmp\ 3146}# (cons #{tmp\ 3147}# #{tmp\ 3148}#))) #{e2*\ 3144}# #{e1*\ 3143}# #{args*\ 3142}#)))) (lambda (#{meta\ 3150}# #{lcase\ 3151}#) (#{build-case-lambda\ 251}# #{s\ 3122}# #{meta\ 3150}# #{lcase\ 3151}#)))) #{tmp\ 3130}#) ((lambda (#{_\ 3155}#) (syntax-violation 'case-lambda "bad case-lambda*" #{e\ 3119}#)) #{tmp\ 3129}#))) ($sc-dispatch #{tmp\ 3129}# '(any (any any . each-any) . #(each (any any . each-any)))))) #{e\ 3119}#))) (#{global-extend\ 303}# 'core 'let (letrec ((#{chi-let\ 3157}# (lambda (#{e\ 3158}# #{r\ 3159}# #{w\ 3160}# #{s\ 3161}# #{mod\ 3162}# #{constructor\ 3163}# #{ids\ 3164}# #{vals\ 3165}# #{exps\ 3166}#) (if (not (#{valid-bound-ids?\ 370}# #{ids\ 3164}#)) (syntax-violation 'let "duplicate bound variable" #{e\ 3158}#) (let ((#{labels\ 3178}# (#{gen-labels\ 325}# #{ids\ 3164}#)) (#{new-vars\ 3179}# (map #{gen-var\ 420}# #{ids\ 3164}#))) (let ((#{nw\ 3182}# (#{make-binding-wrap\ 354}# #{ids\ 3164}# #{labels\ 3178}# #{w\ 3160}#)) (#{nr\ 3183}# (#{extend-var-env\ 297}# #{labels\ 3178}# #{new-vars\ 3179}# #{r\ 3159}#))) (#{constructor\ 3163}# #{s\ 3161}# (map syntax->datum #{ids\ 3164}#) #{new-vars\ 3179}# (map (lambda (#{x\ 3184}#) (#{chi\ 392}# #{x\ 3184}# #{r\ 3159}# #{w\ 3160}# #{mod\ 3162}#)) #{vals\ 3165}#) (#{chi-body\ 400}# #{exps\ 3166}# (#{source-wrap\ 378}# #{e\ 3158}# #{nw\ 3182}# #{s\ 3161}# #{mod\ 3162}#) #{nr\ 3183}# #{nw\ 3182}# #{mod\ 3162}#)))))))) (lambda (#{e\ 3186}# #{r\ 3187}# #{w\ 3188}# #{s\ 3189}# #{mod\ 3190}#) ((lambda (#{tmp\ 3196}#) ((lambda (#{tmp\ 3197}#) (if (if #{tmp\ 3197}# (apply (lambda (#{_\ 3203}# #{id\ 3204}# #{val\ 3205}# #{e1\ 3206}# #{e2\ 3207}#) (and-map #{id?\ 307}# #{id\ 3204}#)) #{tmp\ 3197}#) #f) (apply (lambda (#{_\ 3214}# #{id\ 3215}# #{val\ 3216}# #{e1\ 3217}# #{e2\ 3218}#) (#{chi-let\ 3157}# #{e\ 3186}# #{r\ 3187}# #{w\ 3188}# #{s\ 3189}# #{mod\ 3190}# #{build-let\ 261}# #{id\ 3215}# #{val\ 3216}# (cons #{e1\ 3217}# #{e2\ 3218}#))) #{tmp\ 3197}#) ((lambda (#{tmp\ 3222}#) (if (if #{tmp\ 3222}# (apply (lambda (#{_\ 3229}# #{f\ 3230}# #{id\ 3231}# #{val\ 3232}# #{e1\ 3233}# #{e2\ 3234}#) (if (#{id?\ 307}# #{f\ 3230}#) (and-map #{id?\ 307}# #{id\ 3231}#) #f)) #{tmp\ 3222}#) #f) (apply (lambda (#{_\ 3244}# #{f\ 3245}# #{id\ 3246}# #{val\ 3247}# #{e1\ 3248}# #{e2\ 3249}#) (#{chi-let\ 3157}# #{e\ 3186}# #{r\ 3187}# #{w\ 3188}# #{s\ 3189}# #{mod\ 3190}# #{build-named-let\ 263}# (cons #{f\ 3245}# #{id\ 3246}#) #{val\ 3247}# (cons #{e1\ 3248}# #{e2\ 3249}#))) #{tmp\ 3222}#) ((lambda (#{_\ 3254}#) (syntax-violation 'let "bad let" (#{source-wrap\ 378}# #{e\ 3186}# #{w\ 3188}# #{s\ 3189}# #{mod\ 3190}#))) #{tmp\ 3196}#))) ($sc-dispatch #{tmp\ 3196}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch #{tmp\ 3196}# '(any #(each (any any)) any . each-any)))) #{e\ 3186}#)))) (#{global-extend\ 303}# 'core 'letrec (lambda (#{e\ 3255}# #{r\ 3256}# #{w\ 3257}# #{s\ 3258}# #{mod\ 3259}#) ((lambda (#{tmp\ 3265}#) ((lambda (#{tmp\ 3266}#) (if (if #{tmp\ 3266}# (apply (lambda (#{_\ 3272}# #{id\ 3273}# #{val\ 3274}# #{e1\ 3275}# #{e2\ 3276}#) (and-map #{id?\ 307}# #{id\ 3273}#)) #{tmp\ 3266}#) #f) (apply (lambda (#{_\ 3283}# #{id\ 3284}# #{val\ 3285}# #{e1\ 3286}# #{e2\ 3287}#) (let ((#{ids\ 3289}# #{id\ 3284}#)) (if (not (#{valid-bound-ids?\ 370}# #{ids\ 3289}#)) (syntax-violation 'letrec "duplicate bound variable" #{e\ 3255}#) (let ((#{labels\ 3293}# (#{gen-labels\ 325}# #{ids\ 3289}#)) (#{new-vars\ 3294}# (map #{gen-var\ 420}# #{ids\ 3289}#))) (let ((#{w\ 3297}# (#{make-binding-wrap\ 354}# #{ids\ 3289}# #{labels\ 3293}# #{w\ 3257}#)) (#{r\ 3298}# (#{extend-var-env\ 297}# #{labels\ 3293}# #{new-vars\ 3294}# #{r\ 3256}#))) (#{build-letrec\ 265}# #{s\ 3258}# (map syntax->datum #{ids\ 3289}#) #{new-vars\ 3294}# (map (lambda (#{x\ 3299}#) (#{chi\ 392}# #{x\ 3299}# #{r\ 3298}# #{w\ 3297}# #{mod\ 3259}#)) #{val\ 3285}#) (#{chi-body\ 400}# (cons #{e1\ 3286}# #{e2\ 3287}#) (#{source-wrap\ 378}# #{e\ 3255}# #{w\ 3297}# #{s\ 3258}# #{mod\ 3259}#) #{r\ 3298}# #{w\ 3297}# #{mod\ 3259}#))))))) #{tmp\ 3266}#) ((lambda (#{_\ 3304}#) (syntax-violation 'letrec "bad letrec" (#{source-wrap\ 378}# #{e\ 3255}# #{w\ 3257}# #{s\ 3258}# #{mod\ 3259}#))) #{tmp\ 3265}#))) ($sc-dispatch #{tmp\ 3265}# '(any #(each (any any)) any . each-any)))) #{e\ 3255}#))) (#{global-extend\ 303}# 'core 'set! (lambda (#{e\ 3305}# #{r\ 3306}# #{w\ 3307}# #{s\ 3308}# #{mod\ 3309}#) ((lambda (#{tmp\ 3315}#) ((lambda (#{tmp\ 3316}#) (if (if #{tmp\ 3316}# (apply (lambda (#{_\ 3320}# #{id\ 3321}# #{val\ 3322}#) (#{id?\ 307}# #{id\ 3321}#)) #{tmp\ 3316}#) #f) (apply (lambda (#{_\ 3326}# #{id\ 3327}# #{val\ 3328}#) (let ((#{val\ 3331}# (#{chi\ 392}# #{val\ 3328}# #{r\ 3306}# #{w\ 3307}# #{mod\ 3309}#)) (#{n\ 3332}# (#{id-var-name\ 364}# #{id\ 3327}# #{w\ 3307}#))) (let ((#{b\ 3334}# (#{lookup\ 301}# #{n\ 3332}# #{r\ 3306}# #{mod\ 3309}#))) (let ((#{atom-key\ 3337}# (#{binding-type\ 290}# #{b\ 3334}#))) (if (memv #{atom-key\ 3337}# '(lexical)) (#{build-lexical-assignment\ 237}# #{s\ 3308}# (syntax->datum #{id\ 3327}#) (#{binding-value\ 292}# #{b\ 3334}#) #{val\ 3331}#) (if (memv #{atom-key\ 3337}# '(global)) (#{build-global-assignment\ 243}# #{s\ 3308}# #{n\ 3332}# #{val\ 3331}# #{mod\ 3309}#) (if (memv #{atom-key\ 3337}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" (#{wrap\ 376}# #{id\ 3327}# #{w\ 3307}# #{mod\ 3309}#)) (syntax-violation 'set! "bad set!" (#{source-wrap\ 378}# #{e\ 3305}# #{w\ 3307}# #{s\ 3308}# #{mod\ 3309}#))))))))) #{tmp\ 3316}#) ((lambda (#{tmp\ 3342}#) (if #{tmp\ 3342}# (apply (lambda (#{_\ 3347}# #{head\ 3348}# #{tail\ 3349}# #{val\ 3350}#) (call-with-values (lambda () (#{syntax-type\ 388}# #{head\ 3348}# #{r\ 3306}# '(()) #f #f #{mod\ 3309}# #t)) (lambda (#{type\ 3353}# #{value\ 3354}# #{ee\ 3355}# #{ww\ 3356}# #{ss\ 3357}# #{modmod\ 3358}#) (if (memv #{type\ 3353}# '(module-ref)) (let ((#{val\ 3367}# (#{chi\ 392}# #{val\ 3350}# #{r\ 3306}# #{w\ 3307}# #{mod\ 3309}#))) (call-with-values (lambda () (#{value\ 3354}# (cons #{head\ 3348}# #{tail\ 3349}#) #{r\ 3306}# #{w\ 3307}#)) (lambda (#{e\ 3369}# #{r\ 3370}# #{w\ 3371}# #{s*\ 3372}# #{mod\ 3373}#) ((lambda (#{tmp\ 3379}#) ((lambda (#{tmp\ 3380}#) (if (if #{tmp\ 3380}# (apply (lambda (#{e\ 3382}#) (#{id?\ 307}# #{e\ 3382}#)) #{tmp\ 3380}#) #f) (apply (lambda (#{e\ 3384}#) (#{build-global-assignment\ 243}# #{s\ 3308}# (syntax->datum #{e\ 3384}#) #{val\ 3367}# #{mod\ 3373}#)) #{tmp\ 3380}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3379}#))) (list #{tmp\ 3379}#))) #{e\ 3369}#)))) (#{build-application\ 229}# #{s\ 3308}# (#{chi\ 392}# (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type value ee ww ss modmod) #((top) (top) (top) (top) (top) (top)) #("i3359" "i3360" "i3361" "i3362" "i3363" "i3364")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) #("i3343" "i3344" "i3345" "i3346")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top)) #("i3310" "i3311" "i3312" "i3313" "i3314")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) #{head\ 3348}#) #{r\ 3306}# #{w\ 3307}# #{mod\ 3309}#) (map (lambda (#{e\ 3386}#) (#{chi\ 392}# #{e\ 3386}# #{r\ 3306}# #{w\ 3307}# #{mod\ 3309}#)) (append #{tail\ 3349}# (list #{val\ 3350}#)))))))) #{tmp\ 3342}#) ((lambda (#{_\ 3390}#) (syntax-violation 'set! "bad set!" (#{source-wrap\ 378}# #{e\ 3305}# #{w\ 3307}# #{s\ 3308}# #{mod\ 3309}#))) #{tmp\ 3315}#))) ($sc-dispatch #{tmp\ 3315}# '(any (any . each-any) any))))) ($sc-dispatch #{tmp\ 3315}# '(any any any)))) #{e\ 3305}#))) (#{global-extend\ 303}# 'module-ref '@ (lambda (#{e\ 3391}# #{r\ 3392}# #{w\ 3393}#) ((lambda (#{tmp\ 3397}#) ((lambda (#{tmp\ 3398}#) (if (if #{tmp\ 3398}# (apply (lambda (#{_\ 3402}# #{mod\ 3403}# #{id\ 3404}#) (if (and-map #{id?\ 307}# #{mod\ 3403}#) (#{id?\ 307}# #{id\ 3404}#) #f)) #{tmp\ 3398}#) #f) (apply (lambda (#{_\ 3411}# #{mod\ 3412}# #{id\ 3413}#) (values (syntax->datum #{id\ 3413}#) #{r\ 3392}# #{w\ 3393}# #f (syntax->datum (cons '#(syntax-object public ((top) #(ribcage #(_ mod id) #((top) (top) (top)) #("i3408" "i3409" "i3410")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) #("i3394" "i3395" "i3396")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) #{mod\ 3412}#)))) #{tmp\ 3398}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3397}#))) ($sc-dispatch #{tmp\ 3397}# '(any each-any any)))) #{e\ 3391}#))) (#{global-extend\ 303}# 'module-ref '@@ (lambda (#{e\ 3415}# #{r\ 3416}# #{w\ 3417}#) (letrec ((#{remodulate\ 3422}# (lambda (#{x\ 3423}# #{mod\ 3424}#) (if (pair? #{x\ 3423}#) (cons (#{remodulate\ 3422}# (car #{x\ 3423}#) #{mod\ 3424}#) (#{remodulate\ 3422}# (cdr #{x\ 3423}#) #{mod\ 3424}#)) (if (#{syntax-object?\ 271}# #{x\ 3423}#) (#{make-syntax-object\ 269}# (#{remodulate\ 3422}# (#{syntax-object-expression\ 273}# #{x\ 3423}#) #{mod\ 3424}#) (#{syntax-object-wrap\ 275}# #{x\ 3423}#) #{mod\ 3424}#) (if (vector? #{x\ 3423}#) (let ((#{n\ 3435}# (vector-length #{x\ 3423}#))) (let ((#{v\ 3437}# (make-vector #{n\ 3435}#))) (letrec ((#{loop\ 3440}# (lambda (#{i\ 3441}#) (if (#{fx=\ 212}# #{i\ 3441}# #{n\ 3435}#) (begin (if #f #f) #{v\ 3437}#) (begin (vector-set! #{v\ 3437}# #{i\ 3441}# (#{remodulate\ 3422}# (vector-ref #{x\ 3423}# #{i\ 3441}#) #{mod\ 3424}#)) (#{loop\ 3440}# (#{fx+\ 208}# #{i\ 3441}# 1))))))) (#{loop\ 3440}# 0)))) #{x\ 3423}#)))))) ((lambda (#{tmp\ 3445}#) ((lambda (#{tmp\ 3446}#) (if (if #{tmp\ 3446}# (apply (lambda (#{_\ 3450}# #{mod\ 3451}# #{exp\ 3452}#) (and-map #{id?\ 307}# #{mod\ 3451}#)) #{tmp\ 3446}#) #f) (apply (lambda (#{_\ 3457}# #{mod\ 3458}# #{exp\ 3459}#) (let ((#{mod\ 3461}# (syntax->datum (cons '#(syntax-object private ((top) #(ribcage #(_ mod exp) #((top) (top) (top)) #("i3454" "i3455" "i3456")) #(ribcage (remodulate) ((top)) ("i3421")) #(ribcage #(e r w) #((top) (top) (top)) #("i3418" "i3419" "i3420")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) #{mod\ 3458}#)))) (values (#{remodulate\ 3422}# #{exp\ 3459}# #{mod\ 3461}#) #{r\ 3416}# #{w\ 3417}# (#{source-annotation\ 286}# #{exp\ 3459}#) #{mod\ 3461}#))) #{tmp\ 3446}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3445}#))) ($sc-dispatch #{tmp\ 3445}# '(any each-any any)))) #{e\ 3415}#)))) (#{global-extend\ 303}# 'core 'if (lambda (#{e\ 3463}# #{r\ 3464}# #{w\ 3465}# #{s\ 3466}# #{mod\ 3467}#) ((lambda (#{tmp\ 3473}#) ((lambda (#{tmp\ 3474}#) (if #{tmp\ 3474}# (apply (lambda (#{_\ 3478}# #{test\ 3479}# #{then\ 3480}#) (#{build-conditional\ 231}# #{s\ 3466}# (#{chi\ 392}# #{test\ 3479}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#) (#{chi\ 392}# #{then\ 3480}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#) (#{build-void\ 227}# #f))) #{tmp\ 3474}#) ((lambda (#{tmp\ 3482}#) (if #{tmp\ 3482}# (apply (lambda (#{_\ 3487}# #{test\ 3488}# #{then\ 3489}# #{else\ 3490}#) (#{build-conditional\ 231}# #{s\ 3466}# (#{chi\ 392}# #{test\ 3488}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#) (#{chi\ 392}# #{then\ 3489}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#) (#{chi\ 392}# #{else\ 3490}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#))) #{tmp\ 3482}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3473}#))) ($sc-dispatch #{tmp\ 3473}# '(any any any any))))) ($sc-dispatch #{tmp\ 3473}# '(any any any)))) #{e\ 3463}#))) (#{global-extend\ 303}# 'core 'with-fluids (lambda (#{e\ 3491}# #{r\ 3492}# #{w\ 3493}# #{s\ 3494}# #{mod\ 3495}#) ((lambda (#{tmp\ 3501}#) ((lambda (#{tmp\ 3502}#) (if #{tmp\ 3502}# (apply (lambda (#{_\ 3508}# #{fluid\ 3509}# #{val\ 3510}# #{b\ 3511}# #{b*\ 3512}#) (#{build-dynlet\ 233}# #{s\ 3494}# (map (lambda (#{x\ 3513}#) (#{chi\ 392}# #{x\ 3513}# #{r\ 3492}# #{w\ 3493}# #{mod\ 3495}#)) #{fluid\ 3509}#) (map (lambda (#{x\ 3516}#) (#{chi\ 392}# #{x\ 3516}# #{r\ 3492}# #{w\ 3493}# #{mod\ 3495}#)) #{val\ 3510}#) (#{chi-body\ 400}# (cons #{b\ 3511}# #{b*\ 3512}#) (#{source-wrap\ 378}# #{e\ 3491}# #{w\ 3493}# #{s\ 3494}# #{mod\ 3495}#) #{r\ 3492}# #{w\ 3493}# #{mod\ 3495}#))) #{tmp\ 3502}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3501}#))) ($sc-dispatch #{tmp\ 3501}# '(any #(each (any any)) any . each-any)))) #{e\ 3491}#))) (#{global-extend\ 303}# 'begin 'begin '()) (#{global-extend\ 303}# 'define 'define '()) (#{global-extend\ 303}# 'define-syntax 'define-syntax '()) (#{global-extend\ 303}# 'eval-when 'eval-when '()) (#{global-extend\ 303}# 'core 'syntax-case (letrec ((#{gen-syntax-case\ 3527}# (lambda (#{x\ 3528}# #{keys\ 3529}# #{clauses\ 3530}# #{r\ 3531}# #{mod\ 3532}#) (if (null? #{clauses\ 3530}#) (#{build-application\ 229}# #f (#{build-primref\ 255}# #f 'syntax-violation) (list (#{build-data\ 257}# #f #f) (#{build-data\ 257}# #f "source expression failed to match any pattern") #{x\ 3528}#)) ((lambda (#{tmp\ 3542}#) ((lambda (#{tmp\ 3543}#) (if #{tmp\ 3543}# (apply (lambda (#{pat\ 3546}# #{exp\ 3547}#) (if (if (#{id?\ 307}# #{pat\ 3546}#) (and-map (lambda (#{x\ 3550}#) (not (#{free-id=?\ 366}# #{pat\ 3546}# #{x\ 3550}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) #("i3544" "i3545")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i3533" "i3534" "i3535" "i3536" "i3537")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3526" "i3524" "i3522" "i3520")) #(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+ 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)) ("i421" "i419" "i417" "i415" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i395" "i393" "i391" "i389" "i387" "i385" "i383" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i365" "i363" "i361" "i359" "i357" "i355" "i353" "i351" "i350" "i349" "i347" "i346" "i345" "i344" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i324" "i322" "i321" "i320" "i319" "i318" "i317" "i315" "i313" "i311" "i309" "i308" "i306" "i304" "i302" "i300" "i298" "i296" "i294" "i293" "i291" "i289" "i288" "i287" "i285" "i284" "i282" "i280" "i278" "i276" "i274" "i272" "i270" "i268" "i266" "i264" "i262" "i260" "i258" "i256" "i254" "i252" "i250" "i248" "i246" "i244" "i242" "i240" "i238" "i236" "i234" "i232" "i230" "i228" "i226" "i224" "i222" "i220" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i173" "i171")) #(ribcage (define-structure define-expansion-constructors and-map*) ((top) (top) (top)) ("i22" "i21" "i19"))) (hygiene guile)) #{keys\ 3529}#)) #f) (let ((#{labels\ 3554}# (list (#{gen-label\ 323}#))) (#{var\ 3555}# (#{gen-var\ 420}# #{pat\ 3546}#))) (#{build-application\ 229}# #f (#{build-simple-lambda\ 249}# #f (list (syntax->datum #{pat\ 3546}#)) #f (list #{var\ 3555}#) '() (#{chi\ 392}# #{exp\ 3547}# (#{extend-env\ 295}# #{labels\ 3554}# (list (cons 'syntax (cons #{var\ 3555}# 0))) #{r\ 3531}#) (#{make-binding-wrap\ 354}# (list #{pat\ 3546}#) #{labels\ 3554}# '(())) #{mod\ 3532}#)) (list #{x\ 3528}#))) (#{gen-clause\ 3525}# #{x\ 3528}# #{keys\ 3529}# (cdr #{clauses\ 3530}#) #{r\ 3531}# #{pat\ 3546}# #t #{exp\ 3547}# #{mod\ 3532}#))) #{tmp\ 3543}#) ((lambda (#{tmp\ 3561}#) (if #{tmp\ 3561}# (apply (lambda (#{pat\ 3565}# #{fender\ 3566}# #{exp\ 3567}#) (#{gen-clause\ 3525}# #{x\ 3528}# #{keys\ 3529}# (cdr #{clauses\ 3530}#) #{r\ 3531}# #{pat\ 3565}# #{fender\ 3566}# #{exp\ 3567}# #{mod\ 3532}#)) #{tmp\ 3561}#) ((lambda (#{_\ 3569}#) (syntax-violation 'syntax-case "invalid clause" (car #{clauses\ 3530}#))) #{tmp\ 3542}#))) ($sc-dispatch #{tmp\ 3542}# '(any any any))))) ($sc-dispatch #{tmp\ 3542}# (quote (any any))))) (car #{clauses\ 3530}#))))) (#{gen-clause\ 3525}# (lambda (#{x\ 3570}# #{keys\ 3571}# #{clauses\ 3572}# #{r\ 3573}# #{pat\ 3574}# #{fender\ 3575}# #{exp\ 3576}# #{mod\ 3577}#) (call-with-values (lambda () (#{convert-pattern\ 3521}# #{pat\ 3574}# #{keys\ 3571}#)) (lambda (#{p\ 3586}# #{pvars\ 3587}#) (if (not (#{distinct-bound-ids?\ 372}# (map car #{pvars\ 3587}#))) (syntax-violation 'syntax-case "duplicate pattern variable" #{pat\ 3574}#) (if (not (and-map (lambda (#{x\ 3594}#) (not (#{ellipsis?\ 408}# (car #{x\ 3594}#)))) #{pvars\ 3587}#)) (syntax-violation 'syntax-case "misplaced ellipsis" #{pat\ 3574}#) (let ((#{y\ 3598}# (#{gen-var\ 420}# (quote tmp)))) (#{build-application\ 229}# #f (#{build-simple-lambda\ 249}# #f (list (quote tmp)) #f (list #{y\ 3598}#) '() (let ((#{y\ 3602}# (#{build-lexical-reference\ 235}# 'value #f 'tmp #{y\ 3598}#))) (#{build-conditional\ 231}# #f ((lambda (#{tmp\ 3605}#) ((lambda (#{tmp\ 3606}#) (if #{tmp\ 3606}# (apply (lambda () #{y\ 3602}#) #{tmp\ 3606}#) ((lambda (#{_\ 3608}#) (#{build-conditional\ 231}# #f #{y\ 3602}# (#{build-dispatch-call\ 3523}# #{pvars\ 3587}# #{fender\ 3575}# #{y\ 3602}# #{r\ 3573}# #{mod\ 3577}#) (#{build-data\ 257}# #f #f))) #{tmp\ 3605}#))) ($sc-dispatch #{tmp\ 3605}# '#(atom #t)))) #{fender\ 3575}#) (#{build-dispatch-call\ 3523}# #{pvars\ 3587}# #{exp\ 3576}# #{y\ 3602}# #{r\ 3573}# #{mod\ 3577}#) (#{gen-syntax-case\ 3527}# #{x\ 3570}# #{keys\ 3571}# #{clauses\ 3572}# #{r\ 3573}# #{mod\ 3577}#)))) (list (if (eq? #{p\ 3586}# (quote any)) (#{build-application\ 229}# #f (#{build-primref\ 255}# #f 'list) (list #{x\ 3570}#)) (#{build-application\ 229}# #f (#{build-primref\ 255}# #f '$sc-dispatch) (list #{x\ 3570}# (#{build-data\ 257}# #f #{p\ 3586}#))))))))))))) (#{build-dispatch-call\ 3523}# (lambda (#{pvars\ 3616}# #{exp\ 3617}# #{y\ 3618}# #{r\ 3619}# #{mod\ 3620}#) (let ((#{ids\ 3628}# (map car #{pvars\ 3616}#)) (#{levels\ 3629}# (map cdr #{pvars\ 3616}#))) (let ((#{labels\ 3632}# (#{gen-labels\ 325}# #{ids\ 3628}#)) (#{new-vars\ 3633}# (map #{gen-var\ 420}# #{ids\ 3628}#))) (#{build-application\ 229}# #f (#{build-primref\ 255}# #f (quote apply)) (list (#{build-simple-lambda\ 249}# #f (map syntax->datum #{ids\ 3628}#) #f #{new-vars\ 3633}# '() (#{chi\ 392}# #{exp\ 3617}# (#{extend-env\ 295}# #{labels\ 3632}# (map (lambda (#{var\ 3637}# #{level\ 3638}#) (cons 'syntax (cons #{var\ 3637}# #{level\ 3638}#))) #{new-vars\ 3633}# (map cdr #{pvars\ 3616}#)) #{r\ 3619}#) (#{make-binding-wrap\ 354}# #{ids\ 3628}# #{labels\ 3632}# '(())) #{mod\ 3620}#)) #{y\ 3618}#)))))) (#{convert-pattern\ 3521}# (lambda (#{pattern\ 3644}# #{keys\ 3645}#) (letrec ((#{cvt\ 3651}# (lambda (#{p\ 3652}# #{n\ 3653}# #{ids\ 3654}#) (if (#{id?\ 307}# #{p\ 3652}#) (if (#{bound-id-member?\ 374}# #{p\ 3652}# #{keys\ 3645}#) (values (vector (quote free-id) #{p\ 3652}#) #{ids\ 3654}#) (values 'any (cons (cons #{p\ 3652}# #{n\ 3653}#) #{ids\ 3654}#))) ((lambda (#{tmp\ 3658}#) ((lambda (#{tmp\ 3659}#) (if (if #{tmp\ 3659}# (apply (lambda (#{x\ 3662}# #{dots\ 3663}#) (#{ellipsis?\ 408}# #{dots\ 3663}#)) #{tmp\ 3659}#) #f) (apply (lambda (#{x\ 3666}# #{dots\ 3667}#) (call-with-values (lambda () (#{cvt\ 3651}# #{x\ 3666}# (#{fx+\ 208}# #{n\ 3653}# 1) #{ids\ 3654}#)) (lambda (#{p\ 3668}# #{ids\ 3669}#) (values (if (eq? #{p\ 3668}# 'any) 'each-any (vector 'each #{p\ 3668}#)) #{ids\ 3669}#)))) #{tmp\ 3659}#) ((lambda (#{tmp\ 3672}#) (if (if #{tmp\ 3672}# (apply (lambda (#{x\ 3676}# #{dots\ 3677}# #{ys\ 3678}#) (#{ellipsis?\ 408}# #{dots\ 3677}#)) #{tmp\ 3672}#) #f) (apply (lambda (#{x\ 3682}# #{dots\ 3683}# #{ys\ 3684}#) (call-with-values (lambda () (#{cvt*\ 3649}# #{ys\ 3684}# #{n\ 3653}# #{ids\ 3654}#)) (lambda (#{ys\ 3686}# #{ids\ 3687}#) (call-with-values (lambda () (#{cvt\ 3651}# #{x\ 3682}# (+ #{n\ 3653}# 1) #{ids\ 3687}#)) (lambda (#{x\ 3690}# #{ids\ 3691}#) (values (list->vector (cons 'each+ (cons #{x\ 3690}# (cons (reverse #{ys\ 3686}#) '(()))))) #{ids\ 3691}#)))))) #{tmp\ 3672}#) ((lambda (#{tmp\ 3695}#) (if #{tmp\ 3695}# (apply (lambda (#{x\ 3698}# #{y\ 3699}#) (call-with-values (lambda () (#{cvt\ 3651}# #{y\ 3699}# #{n\ 3653}# #{ids\ 3654}#)) (lambda (#{y\ 3700}# #{ids\ 3701}#) (call-with-values (lambda () (#{cvt\ 3651}# #{x\ 3698}# #{n\ 3653}# #{ids\ 3701}#)) (lambda (#{x\ 3704}# #{ids\ 3705}#) (values (cons #{x\ 3704}# #{y\ 3700}#) #{ids\ 3705}#)))))) #{tmp\ 3695}#) ((lambda (#{tmp\ 3708}#) (if #{tmp\ 3708}# (apply (lambda () (values '() #{ids\ 3654}#)) #{tmp\ 3708}#) ((lambda (#{tmp\ 3709}#) (if #{tmp\ 3709}# (apply (lambda (#{x\ 3711}#) (call-with-values (lambda () (#{cvt\ 3651}# #{x\ 3711}# #{n\ 3653}# #{ids\ 3654}#)) (lambda (#{p\ 3713}# #{ids\ 3714}#) (values (vector 'vector #{p\ 3713}#) #{ids\ 3714}#)))) #{tmp\ 3709}#) ((lambda (#{x\ 3718}#) (values (vector 'atom (#{strip\ 418}# #{p\ 3652}# '(()))) #{ids\ 3654}#)) #{tmp\ 3658}#))) ($sc-dispatch #{tmp\ 3658}# '#(vector each-any))))) ($sc-dispatch #{tmp\ 3658}# '())))) ($sc-dispatch #{tmp\ 3658}# '(any . any))))) ($sc-dispatch #{tmp\ 3658}# '(any any . each-any))))) ($sc-dispatch #{tmp\ 3658}# '(any any)))) #{p\ 3652}#)))) (#{cvt*\ 3649}# (lambda (#{p*\ 3720}# #{n\ 3721}# #{ids\ 3722}#) (if (null? #{p*\ 3720}#) (values (quote ()) #{ids\ 3722}#) (call-with-values (lambda () (#{cvt*\ 3649}# (cdr #{p*\ 3720}#) #{n\ 3721}# #{ids\ 3722}#)) (lambda (#{y\ 3726}# #{ids\ 3727}#) (call-with-values (lambda () (#{cvt\ 3651}# (car #{p*\ 3720}#) #{n\ 3721}# #{ids\ 3727}#)) (lambda (#{x\ 3730}# #{ids\ 3731}#) (values (cons #{x\ 3730}# #{y\ 3726}#) #{ids\ 3731}#))))))))) (#{cvt\ 3651}# #{pattern\ 3644}# 0 (quote ())))))) (lambda (#{e\ 3734}# #{r\ 3735}# #{w\ 3736}# #{s\ 3737}# #{mod\ 3738}#) (let ((#{e\ 3745}# (#{source-wrap\ 378}# #{e\ 3734}# #{w\ 3736}# #{s\ 3737}# #{mod\ 3738}#))) ((lambda (#{tmp\ 3746}#) ((lambda (#{tmp\ 3747}#) (if #{tmp\ 3747}# (apply (lambda (#{_\ 3752}# #{val\ 3753}# #{key\ 3754}# #{m\ 3755}#) (if (and-map (lambda (#{x\ 3756}#) (if (#{id?\ 307}# #{x\ 3756}#) (not (#{ellipsis?\ 408}# #{x\ 3756}#)) #f)) #{key\ 3754}#) (let ((#{x\ 3762}# (#{gen-var\ 420}# (quote tmp)))) (#{build-application\ 229}# #{s\ 3737}# (#{build-simple-lambda\ 249}# #f (list (quote tmp)) #f (list #{x\ 3762}#) '() (#{gen-syntax-case\ 3527}# (#{build-lexical-reference\ 235}# 'value #f 'tmp #{x\ 3762}#) #{key\ 3754}# #{m\ 3755}# #{r\ 3735}# #{mod\ 3738}#)) (list (#{chi\ 392}# #{val\ 3753}# #{r\ 3735}# '(()) #{mod\ 3738}#)))) (syntax-violation 'syntax-case "invalid literals list" #{e\ 3745}#))) #{tmp\ 3747}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3746}#))) ($sc-dispatch #{tmp\ 3746}# '(any any each-any . each-any)))) #{e\ 3745}#))))) (set! macroexpand (lambda* (#{x\ 3768}# #:optional (#{m\ 3770}# (quote e)) (#{esew\ 3772}# (quote (eval)))) (#{chi-top\ 390}# #{x\ 3768}# '() '((top)) #{m\ 3770}# #{esew\ 3772}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? (lambda (#{x\ 3776}#) (#{nonsymbol-id?\ 305}# #{x\ 3776}#))) (set! datum->syntax (lambda (#{id\ 3778}# #{datum\ 3779}#) (#{make-syntax-object\ 269}# #{datum\ 3779}# (#{syntax-object-wrap\ 275}# #{id\ 3778}#) #f))) (set! syntax->datum (lambda (#{x\ 3782}#) (#{strip\ 418}# #{x\ 3782}# (quote (()))))) (set! generate-temporaries (lambda (#{ls\ 3785}#) (begin (let ((#{x\ 3789}# #{ls\ 3785}#)) (if (not (list? #{x\ 3789}#)) (syntax-violation 'generate-temporaries "invalid argument" #{x\ 3789}#))) (map (lambda (#{x\ 3790}#) (#{wrap\ 376}# (gensym) (quote ((top))) #f)) #{ls\ 3785}#)))) (set! free-identifier=? (lambda (#{x\ 3794}# #{y\ 3795}#) (begin (let ((#{x\ 3800}# #{x\ 3794}#)) (if (not (#{nonsymbol-id?\ 305}# #{x\ 3800}#)) (syntax-violation 'free-identifier=? "invalid argument" #{x\ 3800}#))) (let ((#{x\ 3803}# #{y\ 3795}#)) (if (not (#{nonsymbol-id?\ 305}# #{x\ 3803}#)) (syntax-violation 'free-identifier=? "invalid argument" #{x\ 3803}#))) (#{free-id=?\ 366}# #{x\ 3794}# #{y\ 3795}#)))) (set! bound-identifier=? (lambda (#{x\ 3804}# #{y\ 3805}#) (begin (let ((#{x\ 3810}# #{x\ 3804}#)) (if (not (#{nonsymbol-id?\ 305}# #{x\ 3810}#)) (syntax-violation 'bound-identifier=? "invalid argument" #{x\ 3810}#))) (let ((#{x\ 3813}# #{y\ 3805}#)) (if (not (#{nonsymbol-id?\ 305}# #{x\ 3813}#)) (syntax-violation 'bound-identifier=? "invalid argument" #{x\ 3813}#))) (#{bound-id=?\ 368}# #{x\ 3804}# #{y\ 3805}#)))) (set! syntax-violation (lambda (#{who\ 3814}# #{message\ 3815}# #{form\ 3816}# . #{subform\ 3817}#) (begin (let ((#{x\ 3824}# #{who\ 3814}#)) (if (not ((lambda (#{x\ 3825}#) (let ((#{t\ 3829}# (not #{x\ 3825}#))) (if #{t\ 3829}# #{t\ 3829}# (let ((#{t\ 3832}# (string? #{x\ 3825}#))) (if #{t\ 3832}# #{t\ 3832}# (symbol? #{x\ 3825}#)))))) #{x\ 3824}#)) (syntax-violation 'syntax-violation "invalid argument" #{x\ 3824}#))) (let ((#{x\ 3836}# #{message\ 3815}#)) (if (not (string? #{x\ 3836}#)) (syntax-violation 'syntax-violation "invalid argument" #{x\ 3836}#))) (scm-error 'syntax-error 'macroexpand (string-append (if #{who\ 3814}# "~a: " "") "~a " (if (null? #{subform\ 3817}#) "in ~a" "in subform `~s' of `~s'")) (let ((#{tail\ 3838}# (cons #{message\ 3815}# (map (lambda (#{x\ 3839}#) (#{strip\ 418}# #{x\ 3839}# (quote (())))) (append #{subform\ 3817}# (list #{form\ 3816}#)))))) (if #{who\ 3814}# (cons #{who\ 3814}# #{tail\ 3838}#) #{tail\ 3838}#)) #f)))) (letrec ((#{match\ 3855}# (lambda (#{e\ 3856}# #{p\ 3857}# #{w\ 3858}# #{r\ 3859}# #{mod\ 3860}#) (if (not #{r\ 3859}#) #f (if (eq? #{p\ 3857}# (quote any)) (cons (#{wrap\ 376}# #{e\ 3856}# #{w\ 3858}# #{mod\ 3860}#) #{r\ 3859}#) (if (#{syntax-object?\ 271}# #{e\ 3856}#) (#{match*\ 3853}# (#{syntax-object-expression\ 273}# #{e\ 3856}#) #{p\ 3857}# (#{join-wraps\ 358}# #{w\ 3858}# (#{syntax-object-wrap\ 275}# #{e\ 3856}#)) #{r\ 3859}# (#{syntax-object-module\ 277}# #{e\ 3856}#)) (#{match*\ 3853}# #{e\ 3856}# #{p\ 3857}# #{w\ 3858}# #{r\ 3859}# #{mod\ 3860}#)))))) (#{match*\ 3853}# (lambda (#{e\ 3873}# #{p\ 3874}# #{w\ 3875}# #{r\ 3876}# #{mod\ 3877}#) (if (null? #{p\ 3874}#) (if (null? #{e\ 3873}#) #{r\ 3876}# #f) (if (pair? #{p\ 3874}#) (if (pair? #{e\ 3873}#) (#{match\ 3855}# (car #{e\ 3873}#) (car #{p\ 3874}#) #{w\ 3875}# (#{match\ 3855}# (cdr #{e\ 3873}#) (cdr #{p\ 3874}#) #{w\ 3875}# #{r\ 3876}# #{mod\ 3877}#) #{mod\ 3877}#) #f) (if (eq? #{p\ 3874}# (quote each-any)) (let ((#{l\ 3894}# (#{match-each-any\ 3847}# #{e\ 3873}# #{w\ 3875}# #{mod\ 3877}#))) (if #{l\ 3894}# (cons #{l\ 3894}# #{r\ 3876}#) #f)) (let ((#{atom-key\ 3900}# (vector-ref #{p\ 3874}# 0))) (if (memv #{atom-key\ 3900}# (quote (each))) (if (null? #{e\ 3873}#) (#{match-empty\ 3849}# (vector-ref #{p\ 3874}# 1) #{r\ 3876}#) (let ((#{l\ 3903}# (#{match-each\ 3843}# #{e\ 3873}# (vector-ref #{p\ 3874}# 1) #{w\ 3875}# #{mod\ 3877}#))) (if #{l\ 3903}# (letrec ((#{collect\ 3908}# (lambda (#{l\ 3909}#) (if (null? (car #{l\ 3909}#)) #{r\ 3876}# (cons (map car #{l\ 3909}#) (#{collect\ 3908}# (map cdr #{l\ 3909}#))))))) (#{collect\ 3908}# #{l\ 3903}#)) #f))) (if (memv #{atom-key\ 3900}# (quote (each+))) (call-with-values (lambda () (#{match-each+\ 3845}# #{e\ 3873}# (vector-ref #{p\ 3874}# 1) (vector-ref #{p\ 3874}# 2) (vector-ref #{p\ 3874}# 3) #{w\ 3875}# #{r\ 3876}# #{mod\ 3877}#)) (lambda (#{xr*\ 3911}# #{y-pat\ 3912}# #{r\ 3913}#) (if #{r\ 3913}# (if (null? #{y-pat\ 3912}#) (if (null? #{xr*\ 3911}#) (#{match-empty\ 3849}# (vector-ref #{p\ 3874}# 1) #{r\ 3913}#) (#{combine\ 3851}# #{xr*\ 3911}# #{r\ 3913}#)) #f) #f))) (if (memv #{atom-key\ 3900}# (quote (free-id))) (if (#{id?\ 307}# #{e\ 3873}#) (if (#{free-id=?\ 366}# (#{wrap\ 376}# #{e\ 3873}# #{w\ 3875}# #{mod\ 3877}#) (vector-ref #{p\ 3874}# 1)) #{r\ 3876}# #f) #f) (if (memv #{atom-key\ 3900}# (quote (atom))) (if (equal? (vector-ref #{p\ 3874}# 1) (#{strip\ 418}# #{e\ 3873}# #{w\ 3875}#)) #{r\ 3876}# #f) (if (memv #{atom-key\ 3900}# '(vector)) (if (vector? #{e\ 3873}#) (#{match\ 3855}# (vector->list #{e\ 3873}#) (vector-ref #{p\ 3874}# 1) #{w\ 3875}# #{r\ 3876}# #{mod\ 3877}#) #f)))))))))))) (#{combine\ 3851}# (lambda (#{r*\ 3930}# #{r\ 3931}#) (if (null? (car #{r*\ 3930}#)) #{r\ 3931}# (cons (map car #{r*\ 3930}#) (#{combine\ 3851}# (map cdr #{r*\ 3930}#) #{r\ 3931}#))))) (#{match-empty\ 3849}# (lambda (#{p\ 3934}# #{r\ 3935}#) (if (null? #{p\ 3934}#) #{r\ 3935}# (if (eq? #{p\ 3934}# (quote any)) (cons (quote ()) #{r\ 3935}#) (if (pair? #{p\ 3934}#) (#{match-empty\ 3849}# (car #{p\ 3934}#) (#{match-empty\ 3849}# (cdr #{p\ 3934}#) #{r\ 3935}#)) (if (eq? #{p\ 3934}# (quote each-any)) (cons (quote ()) #{r\ 3935}#) (let ((#{atom-key\ 3949}# (vector-ref #{p\ 3934}# 0))) (if (memv #{atom-key\ 3949}# (quote (each))) (#{match-empty\ 3849}# (vector-ref #{p\ 3934}# 1) #{r\ 3935}#) (if (memv #{atom-key\ 3949}# (quote (each+))) (#{match-empty\ 3849}# (vector-ref #{p\ 3934}# 1) (#{match-empty\ 3849}# (reverse (vector-ref #{p\ 3934}# 2)) (#{match-empty\ 3849}# (vector-ref #{p\ 3934}# 3) #{r\ 3935}#))) (if (memv #{atom-key\ 3949}# '(free-id atom)) #{r\ 3935}# (if (memv #{atom-key\ 3949}# '(vector)) (#{match-empty\ 3849}# (vector-ref #{p\ 3934}# 1) #{r\ 3935}#)))))))))))) (#{match-each-any\ 3847}# (lambda (#{e\ 3954}# #{w\ 3955}# #{mod\ 3956}#) (if (pair? #{e\ 3954}#) (let ((#{l\ 3963}# (#{match-each-any\ 3847}# (cdr #{e\ 3954}#) #{w\ 3955}# #{mod\ 3956}#))) (if #{l\ 3963}# (cons (#{wrap\ 376}# (car #{e\ 3954}#) #{w\ 3955}# #{mod\ 3956}#) #{l\ 3963}#) #f)) (if (null? #{e\ 3954}#) '() (if (#{syntax-object?\ 271}# #{e\ 3954}#) (#{match-each-any\ 3847}# (#{syntax-object-expression\ 273}# #{e\ 3954}#) (#{join-wraps\ 358}# #{w\ 3955}# (#{syntax-object-wrap\ 275}# #{e\ 3954}#)) #{mod\ 3956}#) #f))))) (#{match-each+\ 3845}# (lambda (#{e\ 3971}# #{x-pat\ 3972}# #{y-pat\ 3973}# #{z-pat\ 3974}# #{w\ 3975}# #{r\ 3976}# #{mod\ 3977}#) (letrec ((#{f\ 3988}# (lambda (#{e\ 3989}# #{w\ 3990}#) (if (pair? #{e\ 3989}#) (call-with-values (lambda () (#{f\ 3988}# (cdr #{e\ 3989}#) #{w\ 3990}#)) (lambda (#{xr*\ 3993}# #{y-pat\ 3994}# #{r\ 3995}#) (if #{r\ 3995}# (if (null? #{y-pat\ 3994}#) (let ((#{xr\ 4000}# (#{match\ 3855}# (car #{e\ 3989}#) #{x-pat\ 3972}# #{w\ 3990}# '() #{mod\ 3977}#))) (if #{xr\ 4000}# (values (cons #{xr\ 4000}# #{xr*\ 3993}#) #{y-pat\ 3994}# #{r\ 3995}#) (values #f #f #f))) (values '() (cdr #{y-pat\ 3994}#) (#{match\ 3855}# (car #{e\ 3989}#) (car #{y-pat\ 3994}#) #{w\ 3990}# #{r\ 3995}# #{mod\ 3977}#))) (values #f #f #f)))) (if (#{syntax-object?\ 271}# #{e\ 3989}#) (#{f\ 3988}# (#{syntax-object-expression\ 273}# #{e\ 3989}#) (#{join-wraps\ 358}# #{w\ 3990}# #{e\ 3989}#)) (values '() #{y-pat\ 3973}# (#{match\ 3855}# #{e\ 3989}# #{z-pat\ 3974}# #{w\ 3990}# #{r\ 3976}# #{mod\ 3977}#))))))) (#{f\ 3988}# #{e\ 3971}# #{w\ 3975}#)))) (#{match-each\ 3843}# (lambda (#{e\ 4004}# #{p\ 4005}# #{w\ 4006}# #{mod\ 4007}#) (if (pair? #{e\ 4004}#) (let ((#{first\ 4015}# (#{match\ 3855}# (car #{e\ 4004}#) #{p\ 4005}# #{w\ 4006}# '() #{mod\ 4007}#))) (if #{first\ 4015}# (let ((#{rest\ 4019}# (#{match-each\ 3843}# (cdr #{e\ 4004}#) #{p\ 4005}# #{w\ 4006}# #{mod\ 4007}#))) (if #{rest\ 4019}# (cons #{first\ 4015}# #{rest\ 4019}#) #f)) #f)) (if (null? #{e\ 4004}#) '() (if (#{syntax-object?\ 271}# #{e\ 4004}#) (#{match-each\ 3843}# (#{syntax-object-expression\ 273}# #{e\ 4004}#) #{p\ 4005}# (#{join-wraps\ 358}# #{w\ 4006}# (#{syntax-object-wrap\ 275}# #{e\ 4004}#)) (#{syntax-object-module\ 277}# #{e\ 4004}#)) #f)))))) (set! $sc-dispatch (lambda (#{e\ 4027}# #{p\ 4028}#) (if (eq? #{p\ 4028}# (quote any)) (list #{e\ 4027}#) (if (#{syntax-object?\ 271}# #{e\ 4027}#) (#{match*\ 3853}# (#{syntax-object-expression\ 273}# #{e\ 4027}#) #{p\ 4028}# (#{syntax-object-wrap\ 275}# #{e\ 4027}#) '() (#{syntax-object-module\ 277}# #{e\ 4027}#)) (#{match*\ 3853}# #{e\ 4027}# #{p\ 4028}# '(()) '() #f))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro (cons (lambda (#{x\ 4037}#) ((lambda (#{tmp\ 4039}#) ((lambda (#{tmp\ 4040}#) (if #{tmp\ 4040}# (apply (lambda (#{_\ 4044}# #{e1\ 4045}# #{e2\ 4046}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i4041" "i4042" "i4043")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4038"))) (hygiene guile)) (cons #{e1\ 4045}# #{e2\ 4046}#))) #{tmp\ 4040}#) ((lambda (#{tmp\ 4048}#) (if #{tmp\ 4048}# (apply (lambda (#{_\ 4054}# #{out\ 4055}# #{in\ 4056}# #{e1\ 4057}# #{e2\ 4058}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i4049" "i4050" "i4051" "i4052" "i4053")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4038"))) (hygiene guile)) #{in\ 4056}# '() (list #{out\ 4055}# (cons '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i4049" "i4050" "i4051" "i4052" "i4053")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4038"))) (hygiene guile)) (cons #{e1\ 4057}# #{e2\ 4058}#))))) #{tmp\ 4048}#) ((lambda (#{tmp\ 4060}#) (if #{tmp\ 4060}# (apply (lambda (#{_\ 4066}# #{out\ 4067}# #{in\ 4068}# #{e1\ 4069}# #{e2\ 4070}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i4061" "i4062" "i4063" "i4064" "i4065")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4038"))) (hygiene guile)) (cons '#(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i4061" "i4062" "i4063" "i4064" "i4065")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4038"))) (hygiene guile)) #{in\ 4068}#) '() (list #{out\ 4067}# (cons '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i4061" "i4062" "i4063" "i4064" "i4065")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4038"))) (hygiene guile)) (cons #{e1\ 4069}# #{e2\ 4070}#))))) #{tmp\ 4060}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4039}#))) ($sc-dispatch #{tmp\ 4039}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch #{tmp\ 4039}# '(any ((any any)) any . each-any))))) ($sc-dispatch #{tmp\ 4039}# '(any () any . each-any)))) #{x\ 4037}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro (cons (lambda (#{x\ 4074}#) ((lambda (#{tmp\ 4076}#) ((lambda (#{tmp\ 4077}#) (if #{tmp\ 4077}# (apply (lambda (#{_\ 4083}# #{k\ 4084}# #{keyword\ 4085}# #{pattern\ 4086}# #{template\ 4087}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile))) (vector '(#(syntax-object macro-type ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) . #(syntax-object syntax-rules ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile))) (cons '#(syntax-object patterns ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) #{pattern\ 4086}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) (cons #{k\ 4084}# (map (lambda (#{tmp\ 4091}# #{tmp\ 4090}#) (list (cons '#(syntax-object dummy ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) #{tmp\ 4090}#) (list '#(syntax-object syntax ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i4078" "i4079" "i4080" "i4081" "i4082")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4075"))) (hygiene guile)) #{tmp\ 4091}#))) #{template\ 4087}# #{pattern\ 4086}#)))))) #{tmp\ 4077}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4076}#))) ($sc-dispatch #{tmp\ 4076}# '(any each-any . #(each ((any . any) any)))))) #{x\ 4074}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro (cons (lambda (#{x\ 4092}#) ((lambda (#{tmp\ 4094}#) ((lambda (#{tmp\ 4095}#) (if (if #{tmp\ 4095}# (apply (lambda (#{let*\ 4101}# #{x\ 4102}# #{v\ 4103}# #{e1\ 4104}# #{e2\ 4105}#) (and-map identifier? #{x\ 4102}#)) #{tmp\ 4095}#) #f) (apply (lambda (#{let*\ 4112}# #{x\ 4113}# #{v\ 4114}# #{e1\ 4115}# #{e2\ 4116}#) (letrec ((#{f\ 4119}# (lambda (#{bindings\ 4120}#) (if (null? #{bindings\ 4120}#) (cons '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i4117" "i4118")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i4107" "i4108" "i4109" "i4110" "i4111")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4093"))) (hygiene guile)) (cons '() (cons #{e1\ 4115}# #{e2\ 4116}#))) ((lambda (#{tmp\ 4125}#) ((lambda (#{tmp\ 4126}#) (if #{tmp\ 4126}# (apply (lambda (#{body\ 4129}# #{binding\ 4130}#) (list '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i4127" "i4128")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i4117" "i4118")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i4107" "i4108" "i4109" "i4110" "i4111")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4093"))) (hygiene guile)) (list #{binding\ 4130}#) #{body\ 4129}#)) #{tmp\ 4126}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4125}#))) ($sc-dispatch #{tmp\ 4125}# '(any any)))) (list (#{f\ 4119}# (cdr #{bindings\ 4120}#)) (car #{bindings\ 4120}#))))))) (#{f\ 4119}# (map list #{x\ 4113}# #{v\ 4114}#)))) #{tmp\ 4095}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4094}#))) ($sc-dispatch #{tmp\ 4094}# '(any #(each (any any)) any . each-any)))) #{x\ 4092}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro (cons (lambda (#{orig-x\ 4131}#) ((lambda (#{tmp\ 4133}#) ((lambda (#{tmp\ 4134}#) (if #{tmp\ 4134}# (apply (lambda (#{_\ 4142}# #{var\ 4143}# #{init\ 4144}# #{step\ 4145}# #{e0\ 4146}# #{e1\ 4147}# #{c\ 4148}#) ((lambda (#{tmp\ 4150}#) ((lambda (#{tmp\ 4151}#) (if #{tmp\ 4151}# (apply (lambda (#{step\ 4153}#) ((lambda (#{tmp\ 4154}#) ((lambda (#{tmp\ 4155}#) (if #{tmp\ 4155}# (apply (lambda () (list '#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) (map list #{var\ 4143}# #{init\ 4144}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) (list '#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) #{e0\ 4146}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) (append #{c\ 4148}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) #{step\ 4153}#))))))) #{tmp\ 4155}#) ((lambda (#{tmp\ 4160}#) (if #{tmp\ 4160}# (apply (lambda (#{e1\ 4163}# #{e2\ 4164}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4161" "i4162")) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4161" "i4162")) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) (map list #{var\ 4143}# #{init\ 4144}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4161" "i4162")) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) #{e0\ 4146}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4161" "i4162")) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) (cons #{e1\ 4163}# #{e2\ 4164}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4161" "i4162")) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) (append #{c\ 4148}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4161" "i4162")) #(ribcage #(step) #((top)) #("i4152")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4135" "i4136" "i4137" "i4138" "i4139" "i4140" "i4141")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4132"))) (hygiene guile)) #{step\ 4153}#))))))) #{tmp\ 4160}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4154}#))) ($sc-dispatch #{tmp\ 4154}# '(any . each-any))))) ($sc-dispatch #{tmp\ 4154}# '()))) #{e1\ 4147}#)) #{tmp\ 4151}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4150}#))) ($sc-dispatch #{tmp\ 4150}# 'each-any))) (map (lambda (#{v\ 4171}# #{s\ 4172}#) ((lambda (#{tmp\ 4175}#) ((lambda (#{tmp\ 4176}#) (if #{tmp\ 4176}# (apply (lambda () #{v\ 4171}#) #{tmp\ 4176}#) ((lambda (#{tmp\ 4177}#) (if #{tmp\ 4177}# (apply (lambda (#{e\ 4179}#) #{e\ 4179}#) #{tmp\ 4177}#) ((lambda (#{_\ 4181}#) (syntax-violation 'do "bad step expression" #{orig-x\ 4131}# #{s\ 4172}#)) #{tmp\ 4175}#))) ($sc-dispatch #{tmp\ 4175}# '(any))))) ($sc-dispatch #{tmp\ 4175}# '()))) #{s\ 4172}#)) #{var\ 4143}# #{step\ 4145}#))) #{tmp\ 4134}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4133}#))) ($sc-dispatch #{tmp\ 4133}# '(any #(each (any any . any)) (any . each-any) . each-any)))) #{orig-x\ 4131}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (cons (letrec ((#{quasicons\ 4188}# (lambda (#{x\ 4192}# #{y\ 4193}#) ((lambda (#{tmp\ 4197}#) ((lambda (#{tmp\ 4198}#) (if #{tmp\ 4198}# (apply (lambda (#{x\ 4201}# #{y\ 4202}#) ((lambda (#{tmp\ 4203}#) ((lambda (#{tmp\ 4204}#) (if #{tmp\ 4204}# (apply (lambda (#{dy\ 4206}#) ((lambda (#{tmp\ 4207}#) ((lambda (#{tmp\ 4208}#) (if #{tmp\ 4208}# (apply (lambda (#{dx\ 4210}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) #("i4209")) #(ribcage #(dy) #((top)) #("i4205")) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) (cons #{dx\ 4210}# #{dy\ 4206}#))) #{tmp\ 4208}#) ((lambda (#{_\ 4212}#) (if (null? #{dy\ 4206}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) #("i4211")) #(ribcage #(dy) #((top)) #("i4205")) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{x\ 4201}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) #("i4211")) #(ribcage #(dy) #((top)) #("i4205")) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{x\ 4201}# #{y\ 4202}#))) #{tmp\ 4207}#))) ($sc-dispatch #{tmp\ 4207}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(dy) #((top)) #("i4205")) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) any)))) #{x\ 4201}#)) #{tmp\ 4204}#) ((lambda (#{tmp\ 4213}#) (if #{tmp\ 4213}# (apply (lambda (#{stuff\ 4215}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) #("i4214")) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) (cons #{x\ 4201}# #{stuff\ 4215}#))) #{tmp\ 4213}#) ((lambda (#{else\ 4217}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) #("i4216")) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{x\ 4201}# #{y\ 4202}#)) #{tmp\ 4203}#))) ($sc-dispatch #{tmp\ 4203}# '(#(free-id #(syntax-object list ((top) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) . any))))) ($sc-dispatch #{tmp\ 4203}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(x y) #((top) (top)) #("i4199" "i4200")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4194" "i4195")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) any)))) #{y\ 4202}#)) #{tmp\ 4198}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4197}#))) ($sc-dispatch #{tmp\ 4197}# (quote (any any))))) (list #{x\ 4192}# #{y\ 4193}#)))) (#{quasiappend\ 4189}# (lambda (#{x\ 4218}# #{y\ 4219}#) ((lambda (#{tmp\ 4223}#) ((lambda (#{tmp\ 4224}#) (if #{tmp\ 4224}# (apply (lambda (#{x\ 4227}# #{y\ 4228}#) ((lambda (#{tmp\ 4229}#) ((lambda (#{tmp\ 4230}#) (if #{tmp\ 4230}# (apply (lambda () #{x\ 4227}#) #{tmp\ 4230}#) ((lambda (#{_\ 4232}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) #("i4231")) #(ribcage #(x y) #((top) (top)) #("i4225" "i4226")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4220" "i4221")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{x\ 4227}# #{y\ 4228}#)) #{tmp\ 4229}#))) ($sc-dispatch #{tmp\ 4229}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(x y) #((top) (top)) #("i4225" "i4226")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4220" "i4221")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) ())))) #{y\ 4228}#)) #{tmp\ 4224}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4223}#))) ($sc-dispatch #{tmp\ 4223}# (quote (any any))))) (list #{x\ 4218}# #{y\ 4219}#)))) (#{quasivector\ 4190}# (lambda (#{x\ 4233}#) ((lambda (#{tmp\ 4236}#) ((lambda (#{x\ 4238}#) ((lambda (#{tmp\ 4239}#) ((lambda (#{tmp\ 4240}#) (if #{tmp\ 4240}# (apply (lambda (#{x\ 4242}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i4241")) #(ribcage #(x) #((top)) #("i4237")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4234")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) (list->vector #{x\ 4242}#))) #{tmp\ 4240}#) ((lambda (#{tmp\ 4244}#) (if #{tmp\ 4244}# (apply (lambda (#{x\ 4246}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) #("i4245")) #(ribcage #(x) #((top)) #("i4237")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4234")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{x\ 4246}#)) #{tmp\ 4244}#) ((lambda (#{_\ 4249}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) #("i4248")) #(ribcage #(x) #((top)) #("i4237")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4234")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{x\ 4238}#)) #{tmp\ 4239}#))) ($sc-dispatch #{tmp\ 4239}# '(#(free-id #(syntax-object list ((top) #(ribcage #(x) #((top)) #("i4237")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4234")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) . each-any))))) ($sc-dispatch #{tmp\ 4239}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i4237")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4234")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) each-any)))) #{x\ 4238}#)) #{tmp\ 4236}#)) #{x\ 4233}#))) (#{quasi\ 4191}# (lambda (#{p\ 4250}# #{lev\ 4251}#) ((lambda (#{tmp\ 4254}#) ((lambda (#{tmp\ 4255}#) (if #{tmp\ 4255}# (apply (lambda (#{p\ 4257}#) (if (= #{lev\ 4251}# 0) #{p\ 4257}# (#{quasicons\ 4188}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i4256")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i4256")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) (#{quasi\ 4191}# (list #{p\ 4257}#) (- #{lev\ 4251}# 1))))) #{tmp\ 4255}#) ((lambda (#{tmp\ 4258}#) (if (if #{tmp\ 4258}# (apply (lambda (#{args\ 4260}#) (= #{lev\ 4251}# 0)) #{tmp\ 4258}#) #f) (apply (lambda (#{args\ 4262}#) (syntax-violation 'unquote "unquote takes exactly one argument" #{p\ 4250}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) #("i4261")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{args\ 4262}#))) #{tmp\ 4258}#) ((lambda (#{tmp\ 4263}#) (if #{tmp\ 4263}# (apply (lambda (#{p\ 4266}# #{q\ 4267}#) (if (= #{lev\ 4251}# 0) (#{quasiappend\ 4189}# #{p\ 4266}# (#{quasi\ 4191}# #{q\ 4267}# #{lev\ 4251}#)) (#{quasicons\ 4188}# (#{quasicons\ 4188}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) #("i4264" "i4265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i4264" "i4265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) (#{quasi\ 4191}# (list #{p\ 4266}#) (- #{lev\ 4251}# 1))) (#{quasi\ 4191}# #{q\ 4267}# #{lev\ 4251}#)))) #{tmp\ 4263}#) ((lambda (#{tmp\ 4268}#) (if (if #{tmp\ 4268}# (apply (lambda (#{args\ 4271}# #{q\ 4272}#) (= #{lev\ 4251}# 0)) #{tmp\ 4268}#) #f) (apply (lambda (#{args\ 4275}# #{q\ 4276}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" #{p\ 4250}# (cons '#(syntax-object unquote-splicing ((top) #(ribcage #(args q) #((top) (top)) #("i4273" "i4274")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{args\ 4275}#))) #{tmp\ 4268}#) ((lambda (#{tmp\ 4277}#) (if #{tmp\ 4277}# (apply (lambda (#{p\ 4279}#) (#{quasicons\ 4188}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i4278")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top)) #("i4278")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) (#{quasi\ 4191}# (list #{p\ 4279}#) (+ #{lev\ 4251}# 1)))) #{tmp\ 4277}#) ((lambda (#{tmp\ 4280}#) (if #{tmp\ 4280}# (apply (lambda (#{p\ 4283}# #{q\ 4284}#) (#{quasicons\ 4188}# (#{quasi\ 4191}# #{p\ 4283}# #{lev\ 4251}#) (#{quasi\ 4191}# #{q\ 4284}# #{lev\ 4251}#))) #{tmp\ 4280}#) ((lambda (#{tmp\ 4285}#) (if #{tmp\ 4285}# (apply (lambda (#{x\ 4287}#) (#{quasivector\ 4190}# (#{quasi\ 4191}# #{x\ 4287}# #{lev\ 4251}#))) #{tmp\ 4285}#) ((lambda (#{p\ 4290}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i4289")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile)) #{p\ 4290}#)) #{tmp\ 4254}#))) ($sc-dispatch #{tmp\ 4254}# '#(vector each-any))))) ($sc-dispatch #{tmp\ 4254}# '(any . any))))) ($sc-dispatch #{tmp\ 4254}# '(#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) any))))) ($sc-dispatch #{tmp\ 4254}# '((#(free-id #(syntax-object unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) . any) . any))))) ($sc-dispatch #{tmp\ 4254}# '((#(free-id #(syntax-object unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) any) . any))))) ($sc-dispatch #{tmp\ 4254}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) . any))))) ($sc-dispatch #{tmp\ 4254}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4252" "i4253")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4184" "i4185" "i4186" "i4187"))) (hygiene guile))) any)))) #{p\ 4250}#)))) (lambda (#{x\ 4291}#) ((lambda (#{tmp\ 4293}#) ((lambda (#{tmp\ 4294}#) (if #{tmp\ 4294}# (apply (lambda (#{_\ 4297}# #{e\ 4298}#) (#{quasi\ 4191}# #{e\ 4298}# 0)) #{tmp\ 4294}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4293}#))) ($sc-dispatch #{tmp\ 4293}# (quote (any any))))) #{x\ 4291}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro (cons (lambda (#{x\ 4299}#) (letrec ((#{read-file\ 4302}# (lambda (#{fn\ 4303}# #{k\ 4304}#) (let ((#{p\ 4308}# (open-input-file #{fn\ 4303}#))) (letrec ((#{f\ 4312}# (lambda (#{x\ 4313}# #{result\ 4314}#) (if (eof-object? #{x\ 4313}#) (begin (close-input-port #{p\ 4308}#) (reverse #{result\ 4314}#)) (#{f\ 4312}# (read #{p\ 4308}#) (cons (datum->syntax #{k\ 4304}# #{x\ 4313}#) #{result\ 4314}#)))))) (#{f\ 4312}# (read #{p\ 4308}#) (quote ()))))))) ((lambda (#{tmp\ 4315}#) ((lambda (#{tmp\ 4316}#) (if #{tmp\ 4316}# (apply (lambda (#{k\ 4319}# #{filename\ 4320}#) (let ((#{fn\ 4322}# (syntax->datum #{filename\ 4320}#))) ((lambda (#{tmp\ 4324}#) ((lambda (#{tmp\ 4325}#) (if #{tmp\ 4325}# (apply (lambda (#{exp\ 4327}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i4326")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i4321")) #(ribcage #(k filename) #((top) (top)) #("i4317" "i4318")) #(ribcage (read-file) ((top)) ("i4301")) #(ribcage #(x) #((top)) #("i4300"))) (hygiene guile)) #{exp\ 4327}#)) #{tmp\ 4325}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4324}#))) ($sc-dispatch #{tmp\ 4324}# 'each-any))) (#{read-file\ 4302}# #{fn\ 4322}# #{k\ 4319}#)))) #{tmp\ 4316}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4315}#))) ($sc-dispatch #{tmp\ 4315}# (quote (any any))))) #{x\ 4299}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro (cons (lambda (#{x\ 4329}#) ((lambda (#{tmp\ 4331}#) ((lambda (#{tmp\ 4332}#) (if #{tmp\ 4332}# (apply (lambda (#{k\ 4335}# #{filename\ 4336}#) (let ((#{fn\ 4338}# (syntax->datum #{filename\ 4336}#))) ((lambda (#{tmp\ 4340}#) ((lambda (#{fn\ 4342}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) #("i4341")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i4337")) #(ribcage #(k filename) #((top) (top)) #("i4333" "i4334")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4330"))) (hygiene guile)) #{fn\ 4342}#)) #{tmp\ 4340}#)) (let ((#{t\ 4345}# (%search-load-path #{fn\ 4338}#))) (if #{t\ 4345}# #{t\ 4345}# (syntax-violation 'include-from-path "file not found in path" #{x\ 4329}# #{filename\ 4336}#)))))) #{tmp\ 4332}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4331}#))) ($sc-dispatch #{tmp\ 4331}# (quote (any any))))) #{x\ 4329}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro (cons (lambda (#{x\ 4347}#) ((lambda (#{tmp\ 4349}#) ((lambda (#{tmp\ 4350}#) (if #{tmp\ 4350}# (apply (lambda (#{_\ 4353}# #{e\ 4354}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" #{x\ 4347}#)) #{tmp\ 4350}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4349}#))) ($sc-dispatch #{tmp\ 4349}# (quote (any any))))) #{x\ 4347}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro (cons (lambda (#{x\ 4355}#) ((lambda (#{tmp\ 4357}#) ((lambda (#{tmp\ 4358}#) (if #{tmp\ 4358}# (apply (lambda (#{_\ 4361}# #{e\ 4362}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" #{x\ 4355}#)) #{tmp\ 4358}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4357}#))) ($sc-dispatch #{tmp\ 4357}# (quote (any any))))) #{x\ 4355}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro (cons (lambda (#{x\ 4363}#) ((lambda (#{tmp\ 4365}#) ((lambda (#{tmp\ 4366}#) (if #{tmp\ 4366}# (apply (lambda (#{_\ 4371}# #{e\ 4372}# #{m1\ 4373}# #{m2\ 4374}#) ((lambda (#{tmp\ 4376}#) ((lambda (#{body\ 4378}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i4377")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i4377")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) #{e\ 4372}#)) #{body\ 4378}#)) #{tmp\ 4376}#)) (letrec ((#{f\ 4382}# (lambda (#{clause\ 4383}# #{clauses\ 4384}#) (if (null? #{clauses\ 4384}#) ((lambda (#{tmp\ 4386}#) ((lambda (#{tmp\ 4387}#) (if #{tmp\ 4387}# (apply (lambda (#{e1\ 4390}# #{e2\ 4391}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4388" "i4389")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (cons #{e1\ 4390}# #{e2\ 4391}#))) #{tmp\ 4387}#) ((lambda (#{tmp\ 4393}#) (if #{tmp\ 4393}# (apply (lambda (#{k\ 4397}# #{e1\ 4398}# #{e2\ 4399}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4394" "i4395" "i4396")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4394" "i4395" "i4396")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4394" "i4395" "i4396")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4394" "i4395" "i4396")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) #{k\ 4397}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4394" "i4395" "i4396")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (cons #{e1\ 4398}# #{e2\ 4399}#)))) #{tmp\ 4393}#) ((lambda (#{_\ 4403}#) (syntax-violation 'case "bad clause" #{x\ 4363}# #{clause\ 4383}#)) #{tmp\ 4386}#))) ($sc-dispatch #{tmp\ 4386}# '(each-any any . each-any))))) ($sc-dispatch #{tmp\ 4386}# '(#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile))) any . each-any)))) #{clause\ 4383}#) ((lambda (#{tmp\ 4405}#) ((lambda (#{rest\ 4407}#) ((lambda (#{tmp\ 4408}#) ((lambda (#{tmp\ 4409}#) (if #{tmp\ 4409}# (apply (lambda (#{k\ 4413}# #{e1\ 4414}# #{e2\ 4415}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4410" "i4411" "i4412")) #(ribcage #(rest) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4410" "i4411" "i4412")) #(ribcage #(rest) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4410" "i4411" "i4412")) #(ribcage #(rest) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4410" "i4411" "i4412")) #(ribcage #(rest) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) #{k\ 4413}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4410" "i4411" "i4412")) #(ribcage #(rest) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4379" "i4380" "i4381")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4367" "i4368" "i4369" "i4370")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4364"))) (hygiene guile)) (cons #{e1\ 4414}# #{e2\ 4415}#)) #{rest\ 4407}#)) #{tmp\ 4409}#) ((lambda (#{_\ 4419}#) (syntax-violation 'case "bad clause" #{x\ 4363}# #{clause\ 4383}#)) #{tmp\ 4408}#))) ($sc-dispatch #{tmp\ 4408}# '(each-any any . each-any)))) #{clause\ 4383}#)) #{tmp\ 4405}#)) (#{f\ 4382}# (car #{clauses\ 4384}#) (cdr #{clauses\ 4384}#))))))) (#{f\ 4382}# #{m1\ 4373}# #{m2\ 4374}#)))) #{tmp\ 4366}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4365}#))) ($sc-dispatch #{tmp\ 4365}# '(any any any . each-any)))) #{x\ 4363}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro (cons (lambda (#{x\ 4420}#) ((lambda (#{tmp\ 4422}#) ((lambda (#{tmp\ 4423}#) (if #{tmp\ 4423}# (apply (lambda (#{_\ 4426}# #{e\ 4427}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) '() (list '#(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) '(#(syntax-object identifier? ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) (#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) #{e\ 4427}#)) (list (cons #{_\ 4426}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) (cons #{e\ 4427}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top)) #("i4424" "i4425")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4421"))) (hygiene guile))))))))) #{tmp\ 4423}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4422}#))) ($sc-dispatch #{tmp\ 4422}# (quote (any any))))) #{x\ 4420}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro (cons (lambda (#{x\ 4428}#) ((lambda (#{tmp\ 4430}#) ((lambda (#{tmp\ 4431}#) (if #{tmp\ 4431}# (apply (lambda (#{_\ 4437}# #{id\ 4438}# #{args\ 4439}# #{b0\ 4440}# #{b1\ 4441}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) #("i4432" "i4433" "i4434" "i4435" "i4436")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile)) #{id\ 4438}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) #("i4432" "i4433" "i4434" "i4435" "i4436")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile)) (cons #{args\ 4439}# (cons #{b0\ 4440}# #{b1\ 4441}#))))) #{tmp\ 4431}#) ((lambda (#{tmp\ 4443}#) (if (if #{tmp\ 4443}# (apply (lambda (#{_\ 4447}# #{id\ 4448}# #{val\ 4449}#) (identifier? '#(syntax-object x ((top) #(ribcage #(_ id val) #((top) (top) (top)) #("i4444" "i4445" "i4446")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile)))) #{tmp\ 4443}#) #f) (apply (lambda (#{_\ 4453}# #{id\ 4454}# #{val\ 4455}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) #("i4450" "i4451" "i4452")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4429"))) (hygiene guile)) #{id\ 4454}# #{val\ 4455}#)) #{tmp\ 4443}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4430}#))) ($sc-dispatch #{tmp\ 4430}# '(any any any))))) ($sc-dispatch #{tmp\ 4430}# '(any (any . any) any . each-any)))) #{x\ 4428}#)) (module-name (current-module)))))