(eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) (letrec ((#{and-map*\ 60}# (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#) (let ((#{t\ 130}# (null? #{first\ 123}#))) (if #{t\ 130}# #{t\ 130}# (if (null? #{rest\ 124}#) (letrec ((#{andmap\ 134}# (lambda (#{first\ 135}#) (let ((#{x\ 138}# (car #{first\ 135}#)) (#{first\ 139}# (cdr #{first\ 135}#))) (if (null? #{first\ 139}#) (#{f\ 122}# #{x\ 138}#) (if (#{f\ 122}# #{x\ 138}#) (#{andmap\ 134}# #{first\ 139}#) #f)))))) (#{andmap\ 134}# #{first\ 123}#)) (letrec ((#{andmap\ 145}# (lambda (#{first\ 146}# #{rest\ 147}#) (let ((#{x\ 152}# (car #{first\ 146}#)) (#{xr\ 153}# (map car #{rest\ 147}#)) (#{first\ 154}# (cdr #{first\ 146}#)) (#{rest\ 155}# (map cdr #{rest\ 147}#))) (if (null? #{first\ 154}#) (apply #{f\ 122}# (cons #{x\ 152}# #{xr\ 153}#)) (if (apply #{f\ 122}# (cons #{x\ 152}# #{xr\ 153}#)) (#{andmap\ 145}# #{first\ 154}# #{rest\ 155}#) #f)))))) (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#)))))))) (letrec ((#{lambda-var-list\ 375}# (lambda (#{vars\ 590}#) (letrec ((#{lvl\ 596}# (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#) (if (pair? #{vars\ 597}#) (#{lvl\ 596}# (cdr #{vars\ 597}#) (cons (#{wrap\ 329}# (car #{vars\ 597}#) #{w\ 599}# #f) #{ls\ 598}#) #{w\ 599}#) (if (#{id?\ 260}# #{vars\ 597}#) (cons (#{wrap\ 329}# #{vars\ 597}# #{w\ 599}# #f) #{ls\ 598}#) (if (null? #{vars\ 597}#) #{ls\ 598}# (if (#{syntax-object?\ 224}# #{vars\ 597}#) (#{lvl\ 596}# (#{syntax-object-expression\ 226}# #{vars\ 597}#) #{ls\ 598}# (#{join-wraps\ 311}# #{w\ 599}# (#{syntax-object-wrap\ 228}# #{vars\ 597}#))) (cons #{vars\ 597}# #{ls\ 598}#)))))))) (#{lvl\ 596}# #{vars\ 590}# '() '(()))))) (#{gen-var\ 373}# (lambda (#{id\ 610}#) (let ((#{id\ 613}# (if (#{syntax-object?\ 224}# #{id\ 610}#) (#{syntax-object-expression\ 226}# #{id\ 610}#) #{id\ 610}#))) (gensym (string-append (symbol->string #{id\ 613}#) " "))))) (#{strip\ 371}# (lambda (#{x\ 615}# #{w\ 616}#) (if (memq 'top (#{wrap-marks\ 267}# #{w\ 616}#)) #{x\ 615}# (letrec ((#{f\ 622}# (lambda (#{x\ 623}#) (if (#{syntax-object?\ 224}# #{x\ 623}#) (#{strip\ 371}# (#{syntax-object-expression\ 226}# #{x\ 623}#) (#{syntax-object-wrap\ 228}# #{x\ 623}#)) (if (pair? #{x\ 623}#) (let ((#{a\ 630}# (#{f\ 622}# (car #{x\ 623}#))) (#{d\ 631}# (#{f\ 622}# (cdr #{x\ 623}#)))) (if (if (eq? #{a\ 630}# (car #{x\ 623}#)) (eq? #{d\ 631}# (cdr #{x\ 623}#)) #f) #{x\ 623}# (cons #{a\ 630}# #{d\ 631}#))) (if (vector? #{x\ 623}#) (let ((#{old\ 637}# (vector->list #{x\ 623}#))) (let ((#{new\ 639}# (map #{f\ 622}# #{old\ 637}#))) (if (#{and-map*\ 60}# eq? #{old\ 637}# #{new\ 639}#) #{x\ 623}# (list->vector #{new\ 639}#)))) #{x\ 623}#)))))) (#{f\ 622}# #{x\ 615}#))))) (#{chi-lambda-case\ 369}# (lambda (#{e\ 641}# #{r\ 642}# #{w\ 643}# #{s\ 644}# #{mod\ 645}# #{get-formals\ 646}# #{clauses\ 647}#) (letrec ((#{expand-body\ 662}# (lambda (#{req\ 663}# #{opt\ 664}# #{rest\ 665}# #{kw\ 666}# #{body\ 667}# #{vars\ 668}# #{r*\ 669}# #{w*\ 670}# #{inits\ 671}#) ((lambda (#{tmp\ 681}#) ((lambda (#{tmp\ 682}#) (if (if #{tmp\ 682}# (apply (lambda (#{docstring\ 686}# #{e1\ 687}# #{e2\ 688}#) (string? (syntax->datum #{docstring\ 686}#))) #{tmp\ 682}#) #f) (apply (lambda (#{docstring\ 692}# #{e1\ 693}# #{e2\ 694}#) (values (syntax->datum #{docstring\ 692}#) #{req\ 663}# #{opt\ 664}# #{rest\ 665}# #{kw\ 666}# #{inits\ 671}# #{vars\ 668}# (#{chi-body\ 353}# (cons #{e1\ 693}# #{e2\ 694}#) (#{source-wrap\ 331}# #{e\ 641}# #{w\ 643}# #{s\ 644}# #{mod\ 645}#) #{r*\ 669}# #{w*\ 670}# #{mod\ 645}#))) #{tmp\ 682}#) ((lambda (#{tmp\ 696}#) (if #{tmp\ 696}# (apply (lambda (#{e1\ 699}# #{e2\ 700}#) (values #f #{req\ 663}# #{opt\ 664}# #{rest\ 665}# #{kw\ 666}# #{inits\ 671}# #{vars\ 668}# (#{chi-body\ 353}# (cons #{e1\ 699}# #{e2\ 700}#) (#{source-wrap\ 331}# #{e\ 641}# #{w\ 643}# #{s\ 644}# #{mod\ 645}#) #{r*\ 669}# #{w*\ 670}# #{mod\ 645}#))) #{tmp\ 696}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 681}#))) ($sc-dispatch #{tmp\ 681}# '(any . each-any))))) ($sc-dispatch #{tmp\ 681}# '(any any . each-any)))) #{body\ 667}#))) (#{expand-kw\ 660}# (lambda (#{req\ 702}# #{opt\ 703}# #{rest\ 704}# #{kw\ 705}# #{body\ 706}# #{vars\ 707}# #{r*\ 708}# #{w*\ 709}# #{aok\ 710}# #{out\ 711}# #{inits\ 712}#) (if (pair? #{kw\ 705}#) ((lambda (#{tmp\ 726}#) ((lambda (#{tmp\ 727}#) (if #{tmp\ 727}# (apply (lambda (#{k\ 731}# #{id\ 732}# #{i\ 733}#) (let ((#{v\ 736}# (#{gen-var\ 373}# #{id\ 732}#))) (let ((#{l\ 738}# (#{gen-labels\ 278}# (list #{v\ 736}#)))) (let ((#{r**\ 740}# (#{extend-var-env\ 250}# #{l\ 738}# (list #{v\ 736}#) #{r*\ 708}#))) (let ((#{w**\ 742}# (#{make-binding-wrap\ 307}# (list #{id\ 732}#) #{l\ 738}# #{w*\ 709}#))) (#{expand-kw\ 660}# #{req\ 702}# #{opt\ 703}# #{rest\ 704}# (cdr #{kw\ 705}#) #{body\ 706}# (cons #{v\ 736}# #{vars\ 707}#) #{r**\ 740}# #{w**\ 742}# #{aok\ 710}# (cons (list (syntax->datum #{k\ 731}#) (syntax->datum #{id\ 732}#) #{v\ 736}#) #{out\ 711}#) (cons (#{chi\ 345}# #{i\ 733}# #{r*\ 708}# #{w*\ 709}# #{mod\ 645}#) #{inits\ 712}#))))))) #{tmp\ 727}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 726}#))) ($sc-dispatch #{tmp\ 726}# '(any any any)))) (car #{kw\ 705}#)) (#{expand-body\ 662}# #{req\ 702}# #{opt\ 703}# #{rest\ 704}# (if (let ((#{t\ 746}# #{aok\ 710}#)) (if #{t\ 746}# #{t\ 746}# (pair? #{out\ 711}#))) (cons #{aok\ 710}# (reverse #{out\ 711}#)) #f) #{body\ 706}# (reverse #{vars\ 707}#) #{r*\ 708}# #{w*\ 709}# (reverse #{inits\ 712}#))))) (#{expand-opt\ 658}# (lambda (#{req\ 748}# #{opt\ 749}# #{rest\ 750}# #{kw\ 751}# #{body\ 752}# #{vars\ 753}# #{r*\ 754}# #{w*\ 755}# #{out\ 756}# #{inits\ 757}#) (if (pair? #{opt\ 749}#) ((lambda (#{tmp\ 770}#) ((lambda (#{tmp\ 771}#) (if #{tmp\ 771}# (apply (lambda (#{id\ 774}# #{i\ 775}#) (let ((#{v\ 778}# (#{gen-var\ 373}# #{id\ 774}#))) (let ((#{l\ 780}# (#{gen-labels\ 278}# (list #{v\ 778}#)))) (let ((#{r**\ 782}# (#{extend-var-env\ 250}# #{l\ 780}# (list #{v\ 778}#) #{r*\ 754}#))) (let ((#{w**\ 784}# (#{make-binding-wrap\ 307}# (list #{id\ 774}#) #{l\ 780}# #{w*\ 755}#))) (#{expand-opt\ 658}# #{req\ 748}# (cdr #{opt\ 749}#) #{rest\ 750}# #{kw\ 751}# #{body\ 752}# (cons #{v\ 778}# #{vars\ 753}#) #{r**\ 782}# #{w**\ 784}# (cons (syntax->datum #{id\ 774}#) #{out\ 756}#) (cons (#{chi\ 345}# #{i\ 775}# #{r*\ 754}# #{w*\ 755}# #{mod\ 645}#) #{inits\ 757}#))))))) #{tmp\ 771}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 770}#))) ($sc-dispatch #{tmp\ 770}# '(any any)))) (car #{opt\ 749}#)) (if #{rest\ 750}# (let ((#{v\ 789}# (#{gen-var\ 373}# #{rest\ 750}#))) (let ((#{l\ 791}# (#{gen-labels\ 278}# (list #{v\ 789}#)))) (let ((#{r*\ 793}# (#{extend-var-env\ 250}# #{l\ 791}# (list #{v\ 789}#) #{r*\ 754}#))) (let ((#{w*\ 795}# (#{make-binding-wrap\ 307}# (list #{rest\ 750}#) #{l\ 791}# #{w*\ 755}#))) (#{expand-kw\ 660}# #{req\ 748}# (if (pair? #{out\ 756}#) (reverse #{out\ 756}#) #f) (syntax->datum #{rest\ 750}#) (if (pair? #{kw\ 751}#) (cdr #{kw\ 751}#) #{kw\ 751}#) #{body\ 752}# (cons #{v\ 789}# #{vars\ 753}#) #{r*\ 793}# #{w*\ 795}# (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f) '() #{inits\ 757}#))))) (#{expand-kw\ 660}# #{req\ 748}# (if (pair? #{out\ 756}#) (reverse #{out\ 756}#) #f) #f (if (pair? #{kw\ 751}#) (cdr #{kw\ 751}#) #{kw\ 751}#) #{body\ 752}# #{vars\ 753}# #{r*\ 754}# #{w*\ 755}# (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f) '() #{inits\ 757}#))))) (#{expand-req\ 656}# (lambda (#{req\ 797}# #{opt\ 798}# #{rest\ 799}# #{kw\ 800}# #{body\ 801}#) (let ((#{vars\ 809}# (map #{gen-var\ 373}# #{req\ 797}#)) (#{labels\ 810}# (#{gen-labels\ 278}# #{req\ 797}#))) (let ((#{r*\ 813}# (#{extend-var-env\ 250}# #{labels\ 810}# #{vars\ 809}# #{r\ 642}#)) (#{w*\ 814}# (#{make-binding-wrap\ 307}# #{req\ 797}# #{labels\ 810}# #{w\ 643}#))) (#{expand-opt\ 658}# (map syntax->datum #{req\ 797}#) #{opt\ 798}# #{rest\ 799}# #{kw\ 800}# #{body\ 801}# (reverse #{vars\ 809}#) #{r*\ 813}# #{w*\ 814}# '() '())))))) ((lambda (#{tmp\ 815}#) ((lambda (#{tmp\ 816}#) (if #{tmp\ 816}# (apply (lambda () (values #f #f)) #{tmp\ 816}#) ((lambda (#{tmp\ 817}#) (if #{tmp\ 817}# (apply (lambda (#{args\ 824}# #{e1\ 825}# #{e2\ 826}# #{args*\ 827}# #{e1*\ 828}# #{e2*\ 829}#) (call-with-values (lambda () (#{get-formals\ 646}# #{args\ 824}#)) (lambda (#{req\ 830}# #{opt\ 831}# #{rest\ 832}# #{kw\ 833}#) (call-with-values (lambda () (#{expand-req\ 656}# #{req\ 830}# #{opt\ 831}# #{rest\ 832}# #{kw\ 833}# (cons #{e1\ 825}# #{e2\ 826}#))) (lambda (#{docstring\ 839}# #{req\ 840}# #{opt\ 841}# #{rest\ 842}# #{kw\ 843}# #{inits\ 844}# #{vars\ 845}# #{body\ 846}#) (call-with-values (lambda () (#{chi-lambda-case\ 369}# #{e\ 641}# #{r\ 642}# #{w\ 643}# #{s\ 644}# #{mod\ 645}# #{get-formals\ 646}# (map (lambda (#{tmp\ 857}# #{tmp\ 856}# #{tmp\ 855}#) (cons #{tmp\ 855}# (cons #{tmp\ 856}# #{tmp\ 857}#))) #{e2*\ 829}# #{e1*\ 828}# #{args*\ 827}#))) (lambda (#{docstring*\ 859}# #{else*\ 860}#) (values (let ((#{t\ 865}# #{docstring\ 839}#)) (if #{t\ 865}# #{t\ 865}# #{docstring*\ 859}#)) (#{build-lambda-case\ 206}# #{s\ 644}# #{req\ 840}# #{opt\ 841}# #{rest\ 842}# #{kw\ 843}# #{inits\ 844}# #{vars\ 845}# #{body\ 846}# #{else*\ 860}#))))))))) #{tmp\ 817}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 815}#))) ($sc-dispatch #{tmp\ 815}# '((any any . each-any) . #(each (any any . each-any))))))) ($sc-dispatch #{tmp\ 815}# (quote ())))) #{clauses\ 647}#)))) (#{lambda*-formals\ 367}# (lambda (#{orig-args\ 867}#) (letrec ((#{check\ 878}# (lambda (#{req\ 879}# #{opt\ 880}# #{rest\ 881}# #{kw\ 882}#) (if (#{distinct-bound-ids?\ 325}# (append #{req\ 879}# (map car #{opt\ 880}#) (if #{rest\ 881}# (list #{rest\ 881}#) '()) (if (pair? #{kw\ 882}#) (map cadr (cdr #{kw\ 882}#)) '()))) (values #{req\ 879}# #{opt\ 880}# #{rest\ 881}# #{kw\ 882}#) (syntax-violation 'lambda* "duplicate identifier in argument list" #{orig-args\ 867}#)))) (#{rest\ 876}# (lambda (#{args\ 890}# #{req\ 891}# #{opt\ 892}# #{kw\ 893}#) ((lambda (#{tmp\ 898}#) ((lambda (#{tmp\ 899}#) (if (if #{tmp\ 899}# (apply (lambda (#{r\ 901}#) (#{id?\ 260}# #{r\ 901}#)) #{tmp\ 899}#) #f) (apply (lambda (#{r\ 903}#) (#{check\ 878}# #{req\ 891}# #{opt\ 892}# #{r\ 903}# #{kw\ 893}#)) #{tmp\ 899}#) ((lambda (#{else\ 905}#) (syntax-violation 'lambda* "invalid rest argument" #{orig-args\ 867}# #{args\ 890}#)) #{tmp\ 898}#))) (list #{tmp\ 898}#))) #{args\ 890}#))) (#{key\ 874}# (lambda (#{args\ 906}# #{req\ 907}# #{opt\ 908}# #{rkey\ 909}#) ((lambda (#{tmp\ 914}#) ((lambda (#{tmp\ 915}#) (if #{tmp\ 915}# (apply (lambda () (#{check\ 878}# #{req\ 907}# #{opt\ 908}# #f (cons #f (reverse #{rkey\ 909}#)))) #{tmp\ 915}#) ((lambda (#{tmp\ 916}#) (if (if #{tmp\ 916}# (apply (lambda (#{a\ 919}# #{b\ 920}#) (#{id?\ 260}# #{a\ 919}#)) #{tmp\ 916}#) #f) (apply (lambda (#{a\ 923}# #{b\ 924}#) ((lambda (#{tmp\ 926}#) ((lambda (#{k\ 928}#) (#{key\ 874}# #{b\ 924}# #{req\ 907}# #{opt\ 908}# (cons (cons #{k\ 928}# (cons #{a\ 923}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) #("i927")) #(ribcage #(a b) #((top) (top)) #("i921" "i922")) #(ribcage () () ()) #(ribcage #(args req opt rkey) #((top) (top) (top) (top)) #("i910" "i911" "i912" "i913")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i877" "i875" "i873" "i871" "i869")) #(ribcage #(orig-args) #((top)) #("i868")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile))))) #{rkey\ 909}#))) #{tmp\ 926}#)) (symbol->keyword (syntax->datum #{a\ 923}#)))) #{tmp\ 916}#) ((lambda (#{tmp\ 929}#) (if (if #{tmp\ 929}# (apply (lambda (#{a\ 933}# #{init\ 934}# #{b\ 935}#) (#{id?\ 260}# #{a\ 933}#)) #{tmp\ 929}#) #f) (apply (lambda (#{a\ 939}# #{init\ 940}# #{b\ 941}#) ((lambda (#{tmp\ 943}#) ((lambda (#{k\ 945}#) (#{key\ 874}# #{b\ 941}# #{req\ 907}# #{opt\ 908}# (cons (list #{k\ 945}# #{a\ 939}# #{init\ 940}#) #{rkey\ 909}#))) #{tmp\ 943}#)) (symbol->keyword (syntax->datum #{a\ 939}#)))) #{tmp\ 929}#) ((lambda (#{tmp\ 946}#) (if (if #{tmp\ 946}# (apply (lambda (#{a\ 951}# #{init\ 952}# #{k\ 953}# #{b\ 954}#) (if (#{id?\ 260}# #{a\ 951}#) (keyword? (syntax->datum #{k\ 953}#)) #f)) #{tmp\ 946}#) #f) (apply (lambda (#{a\ 961}# #{init\ 962}# #{k\ 963}# #{b\ 964}#) (#{key\ 874}# #{b\ 964}# #{req\ 907}# #{opt\ 908}# (cons (list #{k\ 963}# #{a\ 961}# #{init\ 962}#) #{rkey\ 909}#))) #{tmp\ 946}#) ((lambda (#{tmp\ 965}#) (if (if #{tmp\ 965}# (apply (lambda (#{aok\ 967}#) (eq? (syntax->datum #{aok\ 967}#) #:allow-other-keys)) #{tmp\ 965}#) #f) (apply (lambda (#{aok\ 969}#) (#{check\ 878}# #{req\ 907}# #{opt\ 908}# #f (cons #t (reverse #{rkey\ 909}#)))) #{tmp\ 965}#) ((lambda (#{tmp\ 970}#) (if (if #{tmp\ 970}# (apply (lambda (#{aok\ 974}# #{a\ 975}# #{b\ 976}#) (if (eq? (syntax->datum #{aok\ 974}#) #:allow-other-keys) (eq? (syntax->datum #{a\ 975}#) #:rest) #f)) #{tmp\ 970}#) #f) (apply (lambda (#{aok\ 982}# #{a\ 983}# #{b\ 984}#) (#{rest\ 876}# #{b\ 984}# #{req\ 907}# #{opt\ 908}# (cons #t (reverse #{rkey\ 909}#)))) #{tmp\ 970}#) ((lambda (#{tmp\ 985}#) (if (if #{tmp\ 985}# (apply (lambda (#{aok\ 988}# #{r\ 989}#) (if (eq? (syntax->datum #{aok\ 988}#) #:allow-other-keys) (#{id?\ 260}# #{r\ 989}#) #f)) #{tmp\ 985}#) #f) (apply (lambda (#{aok\ 994}# #{r\ 995}#) (#{rest\ 876}# #{r\ 995}# #{req\ 907}# #{opt\ 908}# (cons #t (reverse #{rkey\ 909}#)))) #{tmp\ 985}#) ((lambda (#{tmp\ 996}#) (if (if #{tmp\ 996}# (apply (lambda (#{a\ 999}# #{b\ 1000}#) (eq? (syntax->datum #{a\ 999}#) #:rest)) #{tmp\ 996}#) #f) (apply (lambda (#{a\ 1003}# #{b\ 1004}#) (#{rest\ 876}# #{b\ 1004}# #{req\ 907}# #{opt\ 908}# (cons #f (reverse #{rkey\ 909}#)))) #{tmp\ 996}#) ((lambda (#{tmp\ 1005}#) (if (if #{tmp\ 1005}# (apply (lambda (#{r\ 1007}#) (#{id?\ 260}# #{r\ 1007}#)) #{tmp\ 1005}#) #f) (apply (lambda (#{r\ 1009}#) (#{rest\ 876}# #{r\ 1009}# #{req\ 907}# #{opt\ 908}# (cons #f (reverse #{rkey\ 909}#)))) #{tmp\ 1005}#) ((lambda (#{else\ 1011}#) (syntax-violation 'lambda* "invalid keyword argument list" #{orig-args\ 867}# #{args\ 906}#)) #{tmp\ 914}#))) (list #{tmp\ 914}#)))) ($sc-dispatch #{tmp\ 914}# '(any any))))) ($sc-dispatch #{tmp\ 914}# '(any . any))))) ($sc-dispatch #{tmp\ 914}# '(any any any))))) ($sc-dispatch #{tmp\ 914}# '(any))))) ($sc-dispatch #{tmp\ 914}# '((any any any) . any))))) ($sc-dispatch #{tmp\ 914}# '((any any) . any))))) ($sc-dispatch #{tmp\ 914}# '(any . any))))) ($sc-dispatch #{tmp\ 914}# (quote ())))) #{args\ 906}#))) (#{opt\ 872}# (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#) ((lambda (#{tmp\ 1018}#) ((lambda (#{tmp\ 1019}#) (if #{tmp\ 1019}# (apply (lambda () (#{check\ 878}# #{req\ 1013}# (reverse #{ropt\ 1014}#) #f '())) #{tmp\ 1019}#) ((lambda (#{tmp\ 1020}#) (if (if #{tmp\ 1020}# (apply (lambda (#{a\ 1023}# #{b\ 1024}#) (#{id?\ 260}# #{a\ 1023}#)) #{tmp\ 1020}#) #f) (apply (lambda (#{a\ 1027}# #{b\ 1028}#) (#{opt\ 872}# #{b\ 1028}# #{req\ 1013}# (cons (cons #{a\ 1027}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) #("i1025" "i1026")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) #("i1015" "i1016" "i1017")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i877" "i875" "i873" "i871" "i869")) #(ribcage #(orig-args) #((top)) #("i868")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)))) #{ropt\ 1014}#))) #{tmp\ 1020}#) ((lambda (#{tmp\ 1029}#) (if (if #{tmp\ 1029}# (apply (lambda (#{a\ 1033}# #{init\ 1034}# #{b\ 1035}#) (#{id?\ 260}# #{a\ 1033}#)) #{tmp\ 1029}#) #f) (apply (lambda (#{a\ 1039}# #{init\ 1040}# #{b\ 1041}#) (#{opt\ 872}# #{b\ 1041}# #{req\ 1013}# (cons (list #{a\ 1039}# #{init\ 1040}#) #{ropt\ 1014}#))) #{tmp\ 1029}#) ((lambda (#{tmp\ 1042}#) (if (if #{tmp\ 1042}# (apply (lambda (#{a\ 1045}# #{b\ 1046}#) (eq? (syntax->datum #{a\ 1045}#) #:key)) #{tmp\ 1042}#) #f) (apply (lambda (#{a\ 1049}# #{b\ 1050}#) (#{key\ 874}# #{b\ 1050}# #{req\ 1013}# (reverse #{ropt\ 1014}#) '())) #{tmp\ 1042}#) ((lambda (#{tmp\ 1051}#) (if (if #{tmp\ 1051}# (apply (lambda (#{a\ 1054}# #{b\ 1055}#) (eq? (syntax->datum #{a\ 1054}#) #:rest)) #{tmp\ 1051}#) #f) (apply (lambda (#{a\ 1058}# #{b\ 1059}#) (#{rest\ 876}# #{b\ 1059}# #{req\ 1013}# (reverse #{ropt\ 1014}#) '())) #{tmp\ 1051}#) ((lambda (#{tmp\ 1060}#) (if (if #{tmp\ 1060}# (apply (lambda (#{r\ 1062}#) (#{id?\ 260}# #{r\ 1062}#)) #{tmp\ 1060}#) #f) (apply (lambda (#{r\ 1064}#) (#{rest\ 876}# #{r\ 1064}# #{req\ 1013}# (reverse #{ropt\ 1014}#) '())) #{tmp\ 1060}#) ((lambda (#{else\ 1066}#) (syntax-violation 'lambda* "invalid optional argument list" #{orig-args\ 867}# #{args\ 1012}#)) #{tmp\ 1018}#))) (list #{tmp\ 1018}#)))) ($sc-dispatch #{tmp\ 1018}# '(any any))))) ($sc-dispatch #{tmp\ 1018}# '(any . any))))) ($sc-dispatch #{tmp\ 1018}# '((any any) . any))))) ($sc-dispatch #{tmp\ 1018}# '(any . any))))) ($sc-dispatch #{tmp\ 1018}# (quote ())))) #{args\ 1012}#))) (#{req\ 870}# (lambda (#{args\ 1067}# #{rreq\ 1068}#) ((lambda (#{tmp\ 1071}#) ((lambda (#{tmp\ 1072}#) (if #{tmp\ 1072}# (apply (lambda () (#{check\ 878}# (reverse #{rreq\ 1068}#) '() #f '())) #{tmp\ 1072}#) ((lambda (#{tmp\ 1073}#) (if (if #{tmp\ 1073}# (apply (lambda (#{a\ 1076}# #{b\ 1077}#) (#{id?\ 260}# #{a\ 1076}#)) #{tmp\ 1073}#) #f) (apply (lambda (#{a\ 1080}# #{b\ 1081}#) (#{req\ 870}# #{b\ 1081}# (cons #{a\ 1080}# #{rreq\ 1068}#))) #{tmp\ 1073}#) ((lambda (#{tmp\ 1082}#) (if (if #{tmp\ 1082}# (apply (lambda (#{a\ 1085}# #{b\ 1086}#) (eq? (syntax->datum #{a\ 1085}#) #:optional)) #{tmp\ 1082}#) #f) (apply (lambda (#{a\ 1089}# #{b\ 1090}#) (#{opt\ 872}# #{b\ 1090}# (reverse #{rreq\ 1068}#) '())) #{tmp\ 1082}#) ((lambda (#{tmp\ 1091}#) (if (if #{tmp\ 1091}# (apply (lambda (#{a\ 1094}# #{b\ 1095}#) (eq? (syntax->datum #{a\ 1094}#) #:key)) #{tmp\ 1091}#) #f) (apply (lambda (#{a\ 1098}# #{b\ 1099}#) (#{key\ 874}# #{b\ 1099}# (reverse #{rreq\ 1068}#) '() '())) #{tmp\ 1091}#) ((lambda (#{tmp\ 1100}#) (if (if #{tmp\ 1100}# (apply (lambda (#{a\ 1103}# #{b\ 1104}#) (eq? (syntax->datum #{a\ 1103}#) #:rest)) #{tmp\ 1100}#) #f) (apply (lambda (#{a\ 1107}# #{b\ 1108}#) (#{rest\ 876}# #{b\ 1108}# (reverse #{rreq\ 1068}#) '() '())) #{tmp\ 1100}#) ((lambda (#{tmp\ 1109}#) (if (if #{tmp\ 1109}# (apply (lambda (#{r\ 1111}#) (#{id?\ 260}# #{r\ 1111}#)) #{tmp\ 1109}#) #f) (apply (lambda (#{r\ 1113}#) (#{rest\ 876}# #{r\ 1113}# (reverse #{rreq\ 1068}#) '() '())) #{tmp\ 1109}#) ((lambda (#{else\ 1115}#) (syntax-violation 'lambda* "invalid argument list" #{orig-args\ 867}# #{args\ 1067}#)) #{tmp\ 1071}#))) (list #{tmp\ 1071}#)))) ($sc-dispatch #{tmp\ 1071}# '(any any))))) ($sc-dispatch #{tmp\ 1071}# '(any . any))))) ($sc-dispatch #{tmp\ 1071}# '(any . any))))) ($sc-dispatch #{tmp\ 1071}# '(any . any))))) ($sc-dispatch #{tmp\ 1071}# (quote ())))) #{args\ 1067}#)))) (#{req\ 870}# #{orig-args\ 867}# (quote ()))))) (#{chi-simple-lambda\ 365}# (lambda (#{e\ 1116}# #{r\ 1117}# #{w\ 1118}# #{s\ 1119}# #{mod\ 1120}# #{req\ 1121}# #{rest\ 1122}# #{docstring\ 1123}# #{body\ 1124}#) (let ((#{ids\ 1136}# (if #{rest\ 1122}# (append #{req\ 1121}# (list #{rest\ 1122}#)) #{req\ 1121}#))) (let ((#{vars\ 1138}# (map #{gen-var\ 373}# #{ids\ 1136}#))) (let ((#{labels\ 1140}# (#{gen-labels\ 278}# #{ids\ 1136}#))) (#{build-simple-lambda\ 202}# #{s\ 1119}# (map syntax->datum #{req\ 1121}#) (if #{rest\ 1122}# (syntax->datum #{rest\ 1122}#) #f) #{vars\ 1138}# #{docstring\ 1123}# (#{chi-body\ 353}# #{body\ 1124}# (#{source-wrap\ 331}# #{e\ 1116}# #{w\ 1118}# #{s\ 1119}# #{mod\ 1120}#) (#{extend-var-env\ 250}# #{labels\ 1140}# #{vars\ 1138}# #{r\ 1117}#) (#{make-binding-wrap\ 307}# #{ids\ 1136}# #{labels\ 1140}# #{w\ 1118}#) #{mod\ 1120}#))))))) (#{lambda-formals\ 363}# (lambda (#{orig-args\ 1143}#) (letrec ((#{check\ 1148}# (lambda (#{req\ 1149}# #{rest\ 1150}#) (if (#{distinct-bound-ids?\ 325}# (if #{rest\ 1150}# (cons #{rest\ 1150}# #{req\ 1149}#) #{req\ 1149}#)) (values #{req\ 1149}# #f #{rest\ 1150}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" #{orig-args\ 1143}#)))) (#{req\ 1146}# (lambda (#{args\ 1156}# #{rreq\ 1157}#) ((lambda (#{tmp\ 1160}#) ((lambda (#{tmp\ 1161}#) (if #{tmp\ 1161}# (apply (lambda () (#{check\ 1148}# (reverse #{rreq\ 1157}#) #f)) #{tmp\ 1161}#) ((lambda (#{tmp\ 1162}#) (if (if #{tmp\ 1162}# (apply (lambda (#{a\ 1165}# #{b\ 1166}#) (#{id?\ 260}# #{a\ 1165}#)) #{tmp\ 1162}#) #f) (apply (lambda (#{a\ 1169}# #{b\ 1170}#) (#{req\ 1146}# #{b\ 1170}# (cons #{a\ 1169}# #{rreq\ 1157}#))) #{tmp\ 1162}#) ((lambda (#{tmp\ 1171}#) (if (if #{tmp\ 1171}# (apply (lambda (#{r\ 1173}#) (#{id?\ 260}# #{r\ 1173}#)) #{tmp\ 1171}#) #f) (apply (lambda (#{r\ 1175}#) (#{check\ 1148}# (reverse #{rreq\ 1157}#) #{r\ 1175}#)) #{tmp\ 1171}#) ((lambda (#{else\ 1177}#) (syntax-violation 'lambda "invalid argument list" #{orig-args\ 1143}# #{args\ 1156}#)) #{tmp\ 1160}#))) (list #{tmp\ 1160}#)))) ($sc-dispatch #{tmp\ 1160}# '(any . any))))) ($sc-dispatch #{tmp\ 1160}# (quote ())))) #{args\ 1156}#)))) (#{req\ 1146}# #{orig-args\ 1143}# (quote ()))))) (#{ellipsis?\ 361}# (lambda (#{x\ 1178}#) (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#) (#{free-id=?\ 319}# #{x\ 1178}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1179")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile))) #f))) (#{chi-void\ 359}# (lambda () (#{build-void\ 182}# #f))) (#{eval-local-transformer\ 357}# (lambda (#{expanded\ 1183}# #{mod\ 1184}#) (let ((#{p\ 1188}# (#{local-eval-hook\ 173}# #{expanded\ 1183}# #{mod\ 1184}#))) (if (procedure? #{p\ 1188}#) (cons #{p\ 1188}# (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" #{p\ 1188}#))))) (#{chi-local-syntax\ 355}# (lambda (#{rec?\ 1189}# #{e\ 1190}# #{r\ 1191}# #{w\ 1192}# #{s\ 1193}# #{mod\ 1194}# #{k\ 1195}#) ((lambda (#{tmp\ 1203}#) ((lambda (#{tmp\ 1204}#) (if #{tmp\ 1204}# (apply (lambda (#{_\ 1210}# #{id\ 1211}# #{val\ 1212}# #{e1\ 1213}# #{e2\ 1214}#) (let ((#{ids\ 1216}# #{id\ 1211}#)) (if (not (#{valid-bound-ids?\ 323}# #{ids\ 1216}#)) (syntax-violation #f "duplicate bound keyword" #{e\ 1190}#) (let ((#{labels\ 1219}# (#{gen-labels\ 278}# #{ids\ 1216}#))) (let ((#{new-w\ 1221}# (#{make-binding-wrap\ 307}# #{ids\ 1216}# #{labels\ 1219}# #{w\ 1192}#))) (#{k\ 1195}# (cons #{e1\ 1213}# #{e2\ 1214}#) (#{extend-env\ 248}# #{labels\ 1219}# (let ((#{w\ 1225}# (if #{rec?\ 1189}# #{new-w\ 1221}# #{w\ 1192}#)) (#{trans-r\ 1226}# (#{macros-only-env\ 252}# #{r\ 1191}#))) (map (lambda (#{x\ 1227}#) (cons 'macro (#{eval-local-transformer\ 357}# (#{chi\ 345}# #{x\ 1227}# #{trans-r\ 1226}# #{w\ 1225}# #{mod\ 1194}#) #{mod\ 1194}#))) #{val\ 1212}#)) #{r\ 1191}#) #{new-w\ 1221}# #{s\ 1193}# #{mod\ 1194}#)))))) #{tmp\ 1204}#) ((lambda (#{_\ 1232}#) (syntax-violation #f "bad local syntax definition" (#{source-wrap\ 331}# #{e\ 1190}# #{w\ 1192}# #{s\ 1193}# #{mod\ 1194}#))) #{tmp\ 1203}#))) ($sc-dispatch #{tmp\ 1203}# '(any #(each (any any)) any . each-any)))) #{e\ 1190}#))) (#{chi-body\ 353}# (lambda (#{body\ 1233}# #{outer-form\ 1234}# #{r\ 1235}# #{w\ 1236}# #{mod\ 1237}#) (let ((#{r\ 1245}# (cons '("placeholder" placeholder) #{r\ 1235}#))) (let ((#{ribcage\ 1247}# (#{make-ribcage\ 281}# '() '() '()))) (let ((#{w\ 1250}# (#{make-wrap\ 265}# (#{wrap-marks\ 267}# #{w\ 1236}#) (cons #{ribcage\ 1247}# (#{wrap-subst\ 269}# #{w\ 1236}#))))) (letrec ((#{parse\ 1259}# (lambda (#{body\ 1260}# #{ids\ 1261}# #{labels\ 1262}# #{var-ids\ 1263}# #{vars\ 1264}# #{vals\ 1265}# #{bindings\ 1266}#) (if (null? #{body\ 1260}#) (syntax-violation #f "no expressions in body" #{outer-form\ 1234}#) (let ((#{e\ 1271}# (cdar #{body\ 1260}#)) (#{er\ 1272}# (caar #{body\ 1260}#))) (call-with-values (lambda () (#{syntax-type\ 341}# #{e\ 1271}# #{er\ 1272}# '(()) (#{source-annotation\ 239}# #{er\ 1272}#) #{ribcage\ 1247}# #{mod\ 1237}# #f)) (lambda (#{type\ 1274}# #{value\ 1275}# #{e\ 1276}# #{w\ 1277}# #{s\ 1278}# #{mod\ 1279}#) (if (memv #{type\ 1274}# '(define-form)) (let ((#{id\ 1289}# (#{wrap\ 329}# #{value\ 1275}# #{w\ 1277}# #{mod\ 1279}#)) (#{label\ 1290}# (#{gen-label\ 276}#))) (let ((#{var\ 1292}# (#{gen-var\ 373}# #{id\ 1289}#))) (begin (#{extend-ribcage!\ 305}# #{ribcage\ 1247}# #{id\ 1289}# #{label\ 1290}#) (#{parse\ 1259}# (cdr #{body\ 1260}#) (cons #{id\ 1289}# #{ids\ 1261}#) (cons #{label\ 1290}# #{labels\ 1262}#) (cons #{id\ 1289}# #{var-ids\ 1263}#) (cons #{var\ 1292}# #{vars\ 1264}#) (cons (cons #{er\ 1272}# (#{wrap\ 329}# #{e\ 1276}# #{w\ 1277}# #{mod\ 1279}#)) #{vals\ 1265}#) (cons (cons 'lexical #{var\ 1292}#) #{bindings\ 1266}#))))) (if (memv #{type\ 1274}# '(define-syntax-form)) (let ((#{id\ 1297}# (#{wrap\ 329}# #{value\ 1275}# #{w\ 1277}# #{mod\ 1279}#)) (#{label\ 1298}# (#{gen-label\ 276}#))) (begin (#{extend-ribcage!\ 305}# #{ribcage\ 1247}# #{id\ 1297}# #{label\ 1298}#) (#{parse\ 1259}# (cdr #{body\ 1260}#) (cons #{id\ 1297}# #{ids\ 1261}#) (cons #{label\ 1298}# #{labels\ 1262}#) #{var-ids\ 1263}# #{vars\ 1264}# #{vals\ 1265}# (cons (cons 'macro (cons #{er\ 1272}# (#{wrap\ 329}# #{e\ 1276}# #{w\ 1277}# #{mod\ 1279}#))) #{bindings\ 1266}#)))) (if (memv #{type\ 1274}# '(begin-form)) ((lambda (#{tmp\ 1301}#) ((lambda (#{tmp\ 1302}#) (if #{tmp\ 1302}# (apply (lambda (#{_\ 1305}# #{e1\ 1306}#) (#{parse\ 1259}# (letrec ((#{f\ 1309}# (lambda (#{forms\ 1310}#) (if (null? #{forms\ 1310}#) (cdr #{body\ 1260}#) (cons (cons #{er\ 1272}# (#{wrap\ 329}# (car #{forms\ 1310}#) #{w\ 1277}# #{mod\ 1279}#)) (#{f\ 1309}# (cdr #{forms\ 1310}#))))))) (#{f\ 1309}# #{e1\ 1306}#)) #{ids\ 1261}# #{labels\ 1262}# #{var-ids\ 1263}# #{vars\ 1264}# #{vals\ 1265}# #{bindings\ 1266}#)) #{tmp\ 1302}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1301}#))) ($sc-dispatch #{tmp\ 1301}# '(any . each-any)))) #{e\ 1276}#) (if (memv #{type\ 1274}# '(local-syntax-form)) (#{chi-local-syntax\ 355}# #{value\ 1275}# #{e\ 1276}# #{er\ 1272}# #{w\ 1277}# #{s\ 1278}# #{mod\ 1279}# (lambda (#{forms\ 1313}# #{er\ 1314}# #{w\ 1315}# #{s\ 1316}# #{mod\ 1317}#) (#{parse\ 1259}# (letrec ((#{f\ 1325}# (lambda (#{forms\ 1326}#) (if (null? #{forms\ 1326}#) (cdr #{body\ 1260}#) (cons (cons #{er\ 1314}# (#{wrap\ 329}# (car #{forms\ 1326}#) #{w\ 1315}# #{mod\ 1317}#)) (#{f\ 1325}# (cdr #{forms\ 1326}#))))))) (#{f\ 1325}# #{forms\ 1313}#)) #{ids\ 1261}# #{labels\ 1262}# #{var-ids\ 1263}# #{vars\ 1264}# #{vals\ 1265}# #{bindings\ 1266}#))) (if (null? #{ids\ 1261}#) (#{build-sequence\ 212}# #f (map (lambda (#{x\ 1329}#) (#{chi\ 345}# (cdr #{x\ 1329}#) (car #{x\ 1329}#) '(()) #{mod\ 1279}#)) (cons (cons #{er\ 1272}# (#{source-wrap\ 331}# #{e\ 1276}# #{w\ 1277}# #{s\ 1278}# #{mod\ 1279}#)) (cdr #{body\ 1260}#)))) (begin (if (not (#{valid-bound-ids?\ 323}# #{ids\ 1261}#)) (syntax-violation #f "invalid or duplicate identifier in definition" #{outer-form\ 1234}#)) (letrec ((#{loop\ 1336}# (lambda (#{bs\ 1337}# #{er-cache\ 1338}# #{r-cache\ 1339}#) (if (not (null? #{bs\ 1337}#)) (let ((#{b\ 1342}# (car #{bs\ 1337}#))) (if (eq? (car #{b\ 1342}#) 'macro) (let ((#{er\ 1345}# (cadr #{b\ 1342}#))) (let ((#{r-cache\ 1347}# (if (eq? #{er\ 1345}# #{er-cache\ 1338}#) #{r-cache\ 1339}# (#{macros-only-env\ 252}# #{er\ 1345}#)))) (begin (set-cdr! #{b\ 1342}# (#{eval-local-transformer\ 357}# (#{chi\ 345}# (cddr #{b\ 1342}#) #{r-cache\ 1347}# '(()) #{mod\ 1279}#) #{mod\ 1279}#)) (#{loop\ 1336}# (cdr #{bs\ 1337}#) #{er\ 1345}# #{r-cache\ 1347}#)))) (#{loop\ 1336}# (cdr #{bs\ 1337}#) #{er-cache\ 1338}# #{r-cache\ 1339}#))))))) (#{loop\ 1336}# #{bindings\ 1266}# #f #f)) (set-cdr! #{r\ 1245}# (#{extend-env\ 248}# #{labels\ 1262}# #{bindings\ 1266}# (cdr #{r\ 1245}#))) (#{build-letrec\ 218}# #f (map syntax->datum #{var-ids\ 1263}#) #{vars\ 1264}# (map (lambda (#{x\ 1350}#) (#{chi\ 345}# (cdr #{x\ 1350}#) (car #{x\ 1350}#) '(()) #{mod\ 1279}#)) #{vals\ 1265}#) (#{build-sequence\ 212}# #f (map (lambda (#{x\ 1354}#) (#{chi\ 345}# (cdr #{x\ 1354}#) (car #{x\ 1354}#) '(()) #{mod\ 1279}#)) (cons (cons #{er\ 1272}# (#{source-wrap\ 331}# #{e\ 1276}# #{w\ 1277}# #{s\ 1278}# #{mod\ 1279}#)) (cdr #{body\ 1260}#)))))))))))))))))) (#{parse\ 1259}# (map (lambda (#{x\ 1267}#) (cons #{r\ 1245}# (#{wrap\ 329}# #{x\ 1267}# #{w\ 1250}# #{mod\ 1237}#))) #{body\ 1233}#) '() '() '() '() '() '()))))))) (#{chi-macro\ 351}# (lambda (#{p\ 1357}# #{e\ 1358}# #{r\ 1359}# #{w\ 1360}# #{rib\ 1361}# #{mod\ 1362}#) (letrec ((#{rebuild-macro-output\ 1370}# (lambda (#{x\ 1371}# #{m\ 1372}#) (if (pair? #{x\ 1371}#) (cons (#{rebuild-macro-output\ 1370}# (car #{x\ 1371}#) #{m\ 1372}#) (#{rebuild-macro-output\ 1370}# (cdr #{x\ 1371}#) #{m\ 1372}#)) (if (#{syntax-object?\ 224}# #{x\ 1371}#) (let ((#{w\ 1380}# (#{syntax-object-wrap\ 228}# #{x\ 1371}#))) (let ((#{ms\ 1383}# (#{wrap-marks\ 267}# #{w\ 1380}#)) (#{s\ 1384}# (#{wrap-subst\ 269}# #{w\ 1380}#))) (if (if (pair? #{ms\ 1383}#) (eq? (car #{ms\ 1383}#) #f) #f) (#{make-syntax-object\ 222}# (#{syntax-object-expression\ 226}# #{x\ 1371}#) (#{make-wrap\ 265}# (cdr #{ms\ 1383}#) (if #{rib\ 1361}# (cons #{rib\ 1361}# (cdr #{s\ 1384}#)) (cdr #{s\ 1384}#))) (#{syntax-object-module\ 230}# #{x\ 1371}#)) (#{make-syntax-object\ 222}# (#{syntax-object-expression\ 226}# #{x\ 1371}#) (#{make-wrap\ 265}# (cons #{m\ 1372}# #{ms\ 1383}#) (if #{rib\ 1361}# (cons #{rib\ 1361}# (cons 'shift #{s\ 1384}#)) (cons (quote shift) #{s\ 1384}#))) (cons 'hygiene (cdr #{p\ 1357}#)))))) (if (vector? #{x\ 1371}#) (let ((#{n\ 1392}# (vector-length #{x\ 1371}#))) (let ((#{v\ 1394}# (make-vector #{n\ 1392}#))) (letrec ((#{loop\ 1397}# (lambda (#{i\ 1398}#) (if (#{fx=\ 167}# #{i\ 1398}# #{n\ 1392}#) (begin (if #f #f) #{v\ 1394}#) (begin (vector-set! #{v\ 1394}# #{i\ 1398}# (#{rebuild-macro-output\ 1370}# (vector-ref #{x\ 1371}# #{i\ 1398}#) #{m\ 1372}#)) (#{loop\ 1397}# (#{fx+\ 163}# #{i\ 1398}# 1))))))) (#{loop\ 1397}# 0)))) (if (symbol? #{x\ 1371}#) (syntax-violation #f "encountered raw symbol in macro output" (#{source-wrap\ 331}# #{e\ 1358}# #{w\ 1360}# (#{wrap-subst\ 269}# #{w\ 1360}#) #{mod\ 1362}#) #{x\ 1371}#) #{x\ 1371}#))))))) (#{rebuild-macro-output\ 1370}# ((car #{p\ 1357}#) (#{wrap\ 329}# #{e\ 1358}# (#{anti-mark\ 301}# #{w\ 1360}#) #{mod\ 1362}#)) (gensym "m"))))) (#{chi-application\ 349}# (lambda (#{x\ 1405}# #{e\ 1406}# #{r\ 1407}# #{w\ 1408}# #{s\ 1409}# #{mod\ 1410}#) ((lambda (#{tmp\ 1417}#) ((lambda (#{tmp\ 1418}#) (if #{tmp\ 1418}# (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#) (#{build-application\ 184}# #{s\ 1409}# #{x\ 1405}# (map (lambda (#{e\ 1423}#) (#{chi\ 345}# #{e\ 1423}# #{r\ 1407}# #{w\ 1408}# #{mod\ 1410}#)) #{e1\ 1422}#))) #{tmp\ 1418}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1417}#))) ($sc-dispatch #{tmp\ 1417}# '(any . each-any)))) #{e\ 1406}#))) (#{chi-expr\ 347}# (lambda (#{type\ 1426}# #{value\ 1427}# #{e\ 1428}# #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) (if (memv #{type\ 1426}# (quote (lexical))) (#{build-lexical-reference\ 188}# 'value #{s\ 1431}# #{e\ 1428}# #{value\ 1427}#) (if (memv #{type\ 1426}# (quote (core core-form))) (#{value\ 1427}# #{e\ 1428}# #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) (if (memv #{type\ 1426}# (quote (module-ref))) (call-with-values (lambda () (#{value\ 1427}# #{e\ 1428}#)) (lambda (#{id\ 1443}# #{mod\ 1444}#) (#{build-global-reference\ 194}# #{s\ 1431}# #{id\ 1443}# #{mod\ 1444}#))) (if (memv #{type\ 1426}# (quote (lexical-call))) (#{chi-application\ 349}# (#{build-lexical-reference\ 188}# 'fun (#{source-annotation\ 239}# (car #{e\ 1428}#)) (car #{e\ 1428}#) #{value\ 1427}#) #{e\ 1428}# #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) (if (memv #{type\ 1426}# (quote (global-call))) (#{chi-application\ 349}# (#{build-global-reference\ 194}# (#{source-annotation\ 239}# (car #{e\ 1428}#)) (if (#{syntax-object?\ 224}# #{value\ 1427}#) (#{syntax-object-expression\ 226}# #{value\ 1427}#) #{value\ 1427}#) (if (#{syntax-object?\ 224}# #{value\ 1427}#) (#{syntax-object-module\ 230}# #{value\ 1427}#) #{mod\ 1432}#)) #{e\ 1428}# #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) (if (memv #{type\ 1426}# (quote (constant))) (#{build-data\ 210}# #{s\ 1431}# (#{strip\ 371}# (#{source-wrap\ 331}# #{e\ 1428}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) '(()))) (if (memv #{type\ 1426}# (quote (global))) (#{build-global-reference\ 194}# #{s\ 1431}# #{value\ 1427}# #{mod\ 1432}#) (if (memv #{type\ 1426}# (quote (call))) (#{chi-application\ 349}# (#{chi\ 345}# (car #{e\ 1428}#) #{r\ 1429}# #{w\ 1430}# #{mod\ 1432}#) #{e\ 1428}# #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) (if (memv #{type\ 1426}# (quote (begin-form))) ((lambda (#{tmp\ 1454}#) ((lambda (#{tmp\ 1455}#) (if #{tmp\ 1455}# (apply (lambda (#{_\ 1459}# #{e1\ 1460}# #{e2\ 1461}#) (#{chi-sequence\ 333}# (cons #{e1\ 1460}# #{e2\ 1461}#) #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#)) #{tmp\ 1455}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1454}#))) ($sc-dispatch #{tmp\ 1454}# '(any any . each-any)))) #{e\ 1428}#) (if (memv #{type\ 1426}# '(local-syntax-form)) (#{chi-local-syntax\ 355}# #{value\ 1427}# #{e\ 1428}# #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}# #{chi-sequence\ 333}#) (if (memv #{type\ 1426}# '(eval-when-form)) ((lambda (#{tmp\ 1465}#) ((lambda (#{tmp\ 1466}#) (if #{tmp\ 1466}# (apply (lambda (#{_\ 1471}# #{x\ 1472}# #{e1\ 1473}# #{e2\ 1474}#) (let ((#{when-list\ 1476}# (#{chi-when-list\ 339}# #{e\ 1428}# #{x\ 1472}# #{w\ 1430}#))) (if (memq 'eval #{when-list\ 1476}#) (#{chi-sequence\ 333}# (cons #{e1\ 1473}# #{e2\ 1474}#) #{r\ 1429}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#) (#{chi-void\ 359}#)))) #{tmp\ 1466}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1465}#))) ($sc-dispatch #{tmp\ 1465}# '(any each-any any . each-any)))) #{e\ 1428}#) (if (memv #{type\ 1426}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" #{e\ 1428}# (#{wrap\ 329}# #{value\ 1427}# #{w\ 1430}# #{mod\ 1432}#)) (if (memv #{type\ 1426}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" (#{source-wrap\ 331}# #{e\ 1428}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#)) (if (memv #{type\ 1426}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" (#{source-wrap\ 331}# #{e\ 1428}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#)) (syntax-violation #f "unexpected syntax" (#{source-wrap\ 331}# #{e\ 1428}# #{w\ 1430}# #{s\ 1431}# #{mod\ 1432}#)))))))))))))))))) (#{chi\ 345}# (lambda (#{e\ 1483}# #{r\ 1484}# #{w\ 1485}# #{mod\ 1486}#) (call-with-values (lambda () (#{syntax-type\ 341}# #{e\ 1483}# #{r\ 1484}# #{w\ 1485}# (#{source-annotation\ 239}# #{e\ 1483}#) #f #{mod\ 1486}# #f)) (lambda (#{type\ 1491}# #{value\ 1492}# #{e\ 1493}# #{w\ 1494}# #{s\ 1495}# #{mod\ 1496}#) (#{chi-expr\ 347}# #{type\ 1491}# #{value\ 1492}# #{e\ 1493}# #{r\ 1484}# #{w\ 1494}# #{s\ 1495}# #{mod\ 1496}#))))) (#{chi-top\ 343}# (lambda (#{e\ 1503}# #{r\ 1504}# #{w\ 1505}# #{m\ 1506}# #{esew\ 1507}# #{mod\ 1508}#) (call-with-values (lambda () (#{syntax-type\ 341}# #{e\ 1503}# #{r\ 1504}# #{w\ 1505}# (#{source-annotation\ 239}# #{e\ 1503}#) #f #{mod\ 1508}# #f)) (lambda (#{type\ 1529}# #{value\ 1530}# #{e\ 1531}# #{w\ 1532}# #{s\ 1533}# #{mod\ 1534}#) (if (memv #{type\ 1529}# (quote (begin-form))) ((lambda (#{tmp\ 1542}#) ((lambda (#{tmp\ 1543}#) (if #{tmp\ 1543}# (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#)) #{tmp\ 1543}#) ((lambda (#{tmp\ 1546}#) (if #{tmp\ 1546}# (apply (lambda (#{_\ 1550}# #{e1\ 1551}# #{e2\ 1552}#) (#{chi-top-sequence\ 335}# (cons #{e1\ 1551}# #{e2\ 1552}#) #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# #{m\ 1506}# #{esew\ 1507}# #{mod\ 1534}#)) #{tmp\ 1546}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1542}#))) ($sc-dispatch #{tmp\ 1542}# '(any any . each-any))))) ($sc-dispatch #{tmp\ 1542}# (quote (any))))) #{e\ 1531}#) (if (memv #{type\ 1529}# (quote (local-syntax-form))) (#{chi-local-syntax\ 355}# #{value\ 1530}# #{e\ 1531}# #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# #{mod\ 1534}# (lambda (#{body\ 1555}# #{r\ 1556}# #{w\ 1557}# #{s\ 1558}# #{mod\ 1559}#) (#{chi-top-sequence\ 335}# #{body\ 1555}# #{r\ 1556}# #{w\ 1557}# #{s\ 1558}# #{m\ 1506}# #{esew\ 1507}# #{mod\ 1559}#))) (if (memv #{type\ 1529}# (quote (eval-when-form))) ((lambda (#{tmp\ 1566}#) ((lambda (#{tmp\ 1567}#) (if #{tmp\ 1567}# (apply (lambda (#{_\ 1572}# #{x\ 1573}# #{e1\ 1574}# #{e2\ 1575}#) (let ((#{when-list\ 1578}# (#{chi-when-list\ 339}# #{e\ 1531}# #{x\ 1573}# #{w\ 1532}#)) (#{body\ 1579}# (cons #{e1\ 1574}# #{e2\ 1575}#))) (if (eq? #{m\ 1506}# (quote e)) (if (memq 'eval #{when-list\ 1578}#) (#{chi-top-sequence\ 335}# #{body\ 1579}# #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# 'e '(eval) #{mod\ 1534}#) (#{chi-void\ 359}#)) (if (memq 'load #{when-list\ 1578}#) (if (let ((#{t\ 1588}# (memq 'compile #{when-list\ 1578}#))) (if #{t\ 1588}# #{t\ 1588}# (if (eq? #{m\ 1506}# 'c&e) (memq 'eval #{when-list\ 1578}#) #f))) (#{chi-top-sequence\ 335}# #{body\ 1579}# #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# 'c&e '(compile load) #{mod\ 1534}#) (if (memq #{m\ 1506}# '(c c&e)) (#{chi-top-sequence\ 335}# #{body\ 1579}# #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# 'c '(load) #{mod\ 1534}#) (#{chi-void\ 359}#))) (if (let ((#{t\ 1596}# (memq 'compile #{when-list\ 1578}#))) (if #{t\ 1596}# #{t\ 1596}# (if (eq? #{m\ 1506}# 'c&e) (memq 'eval #{when-list\ 1578}#) #f))) (begin (#{top-level-eval-hook\ 171}# (#{chi-top-sequence\ 335}# #{body\ 1579}# #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# 'e '(eval) #{mod\ 1534}#) #{mod\ 1534}#) (#{chi-void\ 359}#)) (#{chi-void\ 359}#)))))) #{tmp\ 1567}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1566}#))) ($sc-dispatch #{tmp\ 1566}# '(any each-any any . each-any)))) #{e\ 1531}#) (if (memv #{type\ 1529}# '(define-syntax-form)) (let ((#{n\ 1604}# (#{id-var-name\ 317}# #{value\ 1530}# #{w\ 1532}#)) (#{r\ 1605}# (#{macros-only-env\ 252}# #{r\ 1504}#))) (if (memv #{m\ 1506}# (quote (c))) (if (memq (quote compile) #{esew\ 1507}#) (let ((#{e\ 1608}# (#{chi-install-global\ 337}# #{n\ 1604}# (#{chi\ 345}# #{e\ 1531}# #{r\ 1605}# #{w\ 1532}# #{mod\ 1534}#)))) (begin (#{top-level-eval-hook\ 171}# #{e\ 1608}# #{mod\ 1534}#) (if (memq (quote load) #{esew\ 1507}#) #{e\ 1608}# (#{chi-void\ 359}#)))) (if (memq (quote load) #{esew\ 1507}#) (#{chi-install-global\ 337}# #{n\ 1604}# (#{chi\ 345}# #{e\ 1531}# #{r\ 1605}# #{w\ 1532}# #{mod\ 1534}#)) (#{chi-void\ 359}#))) (if (memv #{m\ 1506}# (quote (c&e))) (let ((#{e\ 1611}# (#{chi-install-global\ 337}# #{n\ 1604}# (#{chi\ 345}# #{e\ 1531}# #{r\ 1605}# #{w\ 1532}# #{mod\ 1534}#)))) (begin (#{top-level-eval-hook\ 171}# #{e\ 1611}# #{mod\ 1534}#) #{e\ 1611}#)) (begin (if (memq (quote eval) #{esew\ 1507}#) (#{top-level-eval-hook\ 171}# (#{chi-install-global\ 337}# #{n\ 1604}# (#{chi\ 345}# #{e\ 1531}# #{r\ 1605}# #{w\ 1532}# #{mod\ 1534}#)) #{mod\ 1534}#)) (#{chi-void\ 359}#))))) (if (memv #{type\ 1529}# (quote (define-form))) (let ((#{n\ 1616}# (#{id-var-name\ 317}# #{value\ 1530}# #{w\ 1532}#))) (let ((#{type\ 1618}# (#{binding-type\ 243}# (#{lookup\ 254}# #{n\ 1616}# #{r\ 1504}# #{mod\ 1534}#)))) (if (memv #{type\ 1618}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) #{n\ 1616}#)) (current-module) #f) (let ((#{old\ 1623}# (module-variable (current-module) #{n\ 1616}#))) (module-define! (current-module) #{n\ 1616}# (if (variable? #{old\ 1623}#) (variable-ref #{old\ 1623}#) #f)))) (let ((#{x\ 1626}# (#{build-global-definition\ 200}# #{s\ 1533}# #{n\ 1616}# (#{chi\ 345}# #{e\ 1531}# #{r\ 1504}# #{w\ 1532}# #{mod\ 1534}#)))) (begin (if (eq? #{m\ 1506}# (quote c&e)) (#{top-level-eval-hook\ 171}# #{x\ 1626}# #{mod\ 1534}#)) #{x\ 1626}#))) (if (memv #{type\ 1618}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" #{e\ 1531}# (#{wrap\ 329}# #{value\ 1530}# #{w\ 1532}# #{mod\ 1534}#)) (syntax-violation #f "cannot define keyword at top level" #{e\ 1531}# (#{wrap\ 329}# #{value\ 1530}# #{w\ 1532}# #{mod\ 1534}#)))))) (let ((#{x\ 1632}# (#{chi-expr\ 347}# #{type\ 1529}# #{value\ 1530}# #{e\ 1531}# #{r\ 1504}# #{w\ 1532}# #{s\ 1533}# #{mod\ 1534}#))) (begin (if (eq? #{m\ 1506}# (quote c&e)) (#{top-level-eval-hook\ 171}# #{x\ 1632}# #{mod\ 1534}#)) #{x\ 1632}#))))))))))) (#{syntax-type\ 341}# (lambda (#{e\ 1633}# #{r\ 1634}# #{w\ 1635}# #{s\ 1636}# #{rib\ 1637}# #{mod\ 1638}# #{for-car?\ 1639}#) (if (symbol? #{e\ 1633}#) (let ((#{n\ 1651}# (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#))) (let ((#{b\ 1653}# (#{lookup\ 254}# #{n\ 1651}# #{r\ 1634}# #{mod\ 1638}#))) (let ((#{type\ 1655}# (#{binding-type\ 243}# #{b\ 1653}#))) (if (memv #{type\ 1655}# (quote (lexical))) (values #{type\ 1655}# (#{binding-value\ 245}# #{b\ 1653}#) #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{type\ 1655}# (quote (global))) (values #{type\ 1655}# #{n\ 1651}# #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{type\ 1655}# (quote (macro))) (if #{for-car?\ 1639}# (values #{type\ 1655}# (#{binding-value\ 245}# #{b\ 1653}#) #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (#{syntax-type\ 341}# (#{chi-macro\ 351}# (#{binding-value\ 245}# #{b\ 1653}#) #{e\ 1633}# #{r\ 1634}# #{w\ 1635}# #{rib\ 1637}# #{mod\ 1638}#) #{r\ 1634}# '(()) #{s\ 1636}# #{rib\ 1637}# #{mod\ 1638}# #f)) (values #{type\ 1655}# (#{binding-value\ 245}# #{b\ 1653}#) #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#))))))) (if (pair? #{e\ 1633}#) (let ((#{first\ 1664}# (car #{e\ 1633}#))) (call-with-values (lambda () (#{syntax-type\ 341}# #{first\ 1664}# #{r\ 1634}# #{w\ 1635}# #{s\ 1636}# #{rib\ 1637}# #{mod\ 1638}# #t)) (lambda (#{ftype\ 1665}# #{fval\ 1666}# #{fe\ 1667}# #{fw\ 1668}# #{fs\ 1669}# #{fmod\ 1670}#) (if (memv #{ftype\ 1665}# (quote (lexical))) (values 'lexical-call #{fval\ 1666}# #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{ftype\ 1665}# (quote (global))) (values 'global-call (#{make-syntax-object\ 222}# #{fval\ 1666}# #{w\ 1635}# #{fmod\ 1670}#) #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{ftype\ 1665}# (quote (macro))) (#{syntax-type\ 341}# (#{chi-macro\ 351}# #{fval\ 1666}# #{e\ 1633}# #{r\ 1634}# #{w\ 1635}# #{rib\ 1637}# #{mod\ 1638}#) #{r\ 1634}# '(()) #{s\ 1636}# #{rib\ 1637}# #{mod\ 1638}# #{for-car?\ 1639}#) (if (memv #{ftype\ 1665}# (quote (module-ref))) (call-with-values (lambda () (#{fval\ 1666}# #{e\ 1633}#)) (lambda (#{sym\ 1682}# #{mod\ 1683}#) (#{syntax-type\ 341}# #{sym\ 1682}# #{r\ 1634}# #{w\ 1635}# #{s\ 1636}# #{rib\ 1637}# #{mod\ 1683}# #{for-car?\ 1639}#))) (if (memv #{ftype\ 1665}# (quote (core))) (values 'core-form #{fval\ 1666}# #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{ftype\ 1665}# '(local-syntax)) (values 'local-syntax-form #{fval\ 1666}# #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{ftype\ 1665}# (quote (begin))) (values 'begin-form #f #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{ftype\ 1665}# '(eval-when)) (values 'eval-when-form #f #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (if (memv #{ftype\ 1665}# '(define)) ((lambda (#{tmp\ 1691}#) ((lambda (#{tmp\ 1692}#) (if (if #{tmp\ 1692}# (apply (lambda (#{_\ 1696}# #{name\ 1697}# #{val\ 1698}#) (#{id?\ 260}# #{name\ 1697}#)) #{tmp\ 1692}#) #f) (apply (lambda (#{_\ 1702}# #{name\ 1703}# #{val\ 1704}#) (values 'define-form #{name\ 1703}# #{val\ 1704}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#)) #{tmp\ 1692}#) ((lambda (#{tmp\ 1705}#) (if (if #{tmp\ 1705}# (apply (lambda (#{_\ 1711}# #{name\ 1712}# #{args\ 1713}# #{e1\ 1714}# #{e2\ 1715}#) (if (#{id?\ 260}# #{name\ 1712}#) (#{valid-bound-ids?\ 323}# (#{lambda-var-list\ 375}# #{args\ 1713}#)) #f)) #{tmp\ 1705}#) #f) (apply (lambda (#{_\ 1723}# #{name\ 1724}# #{args\ 1725}# #{e1\ 1726}# #{e2\ 1727}#) (values 'define-form (#{wrap\ 329}# #{name\ 1724}# #{w\ 1635}# #{mod\ 1638}#) (#{decorate-source\ 180}# (cons '#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i1718" "i1719" "i1720" "i1721" "i1722")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1671" "i1672" "i1673" "i1674" "i1675" "i1676")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1663")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1640" "i1641" "i1642" "i1643" "i1644" "i1645" "i1646")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) (#{wrap\ 329}# (cons #{args\ 1725}# (cons #{e1\ 1726}# #{e2\ 1727}#)) #{w\ 1635}# #{mod\ 1638}#)) #{s\ 1636}#) '(()) #{s\ 1636}# #{mod\ 1638}#)) #{tmp\ 1705}#) ((lambda (#{tmp\ 1730}#) (if (if #{tmp\ 1730}# (apply (lambda (#{_\ 1733}# #{name\ 1734}#) (#{id?\ 260}# #{name\ 1734}#)) #{tmp\ 1730}#) #f) (apply (lambda (#{_\ 1737}# #{name\ 1738}#) (values 'define-form (#{wrap\ 329}# #{name\ 1738}# #{w\ 1635}# #{mod\ 1638}#) '(#(syntax-object if ((top) #(ribcage #(_ name) #((top) (top)) #("i1735" "i1736")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1671" "i1672" "i1673" "i1674" "i1675" "i1676")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1663")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1640" "i1641" "i1642" "i1643" "i1644" "i1645" "i1646")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i1735" "i1736")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1671" "i1672" "i1673" "i1674" "i1675" "i1676")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1663")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1640" "i1641" "i1642" "i1643" "i1644" "i1645" "i1646")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i1735" "i1736")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1671" "i1672" "i1673" "i1674" "i1675" "i1676")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1663")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1640" "i1641" "i1642" "i1643" "i1644" "i1645" "i1646")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile))) '(()) #{s\ 1636}# #{mod\ 1638}#)) #{tmp\ 1730}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1691}#))) ($sc-dispatch #{tmp\ 1691}# '(any any))))) ($sc-dispatch #{tmp\ 1691}# '(any (any . any) any . each-any))))) ($sc-dispatch #{tmp\ 1691}# '(any any any)))) #{e\ 1633}#) (if (memv #{ftype\ 1665}# '(define-syntax)) ((lambda (#{tmp\ 1741}#) ((lambda (#{tmp\ 1742}#) (if (if #{tmp\ 1742}# (apply (lambda (#{_\ 1746}# #{name\ 1747}# #{val\ 1748}#) (#{id?\ 260}# #{name\ 1747}#)) #{tmp\ 1742}#) #f) (apply (lambda (#{_\ 1752}# #{name\ 1753}# #{val\ 1754}#) (values 'define-syntax-form #{name\ 1753}# #{val\ 1754}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#)) #{tmp\ 1742}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1741}#))) ($sc-dispatch #{tmp\ 1741}# '(any any any)))) #{e\ 1633}#) (values 'call #f #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#)))))))))))))) (if (#{syntax-object?\ 224}# #{e\ 1633}#) (#{syntax-type\ 341}# (#{syntax-object-expression\ 226}# #{e\ 1633}#) #{r\ 1634}# (#{join-wraps\ 311}# #{w\ 1635}# (#{syntax-object-wrap\ 228}# #{e\ 1633}#)) #{s\ 1636}# #{rib\ 1637}# (let ((#{t\ 1760}# (#{syntax-object-module\ 230}# #{e\ 1633}#))) (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#)) #{for-car?\ 1639}#) (if (self-evaluating? #{e\ 1633}#) (values 'constant #f #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#) (values 'other #f #{e\ 1633}# #{w\ 1635}# #{s\ 1636}# #{mod\ 1638}#))))))) (#{chi-when-list\ 339}# (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#) (letrec ((#{f\ 1774}# (lambda (#{when-list\ 1775}# #{situations\ 1776}#) (if (null? #{when-list\ 1775}#) #{situations\ 1776}# (#{f\ 1774}# (cdr #{when-list\ 1775}#) (cons (let ((#{x\ 1778}# (car #{when-list\ 1775}#))) (if (#{free-id=?\ 319}# #{x\ 1778}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1777")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1771" "i1772" "i1773")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1768" "i1769" "i1770")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile))) 'compile (if (#{free-id=?\ 319}# #{x\ 1778}# '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1777")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1771" "i1772" "i1773")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1768" "i1769" "i1770")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile))) 'load (if (#{free-id=?\ 319}# #{x\ 1778}# '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1777")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1771" "i1772" "i1773")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1768" "i1769" "i1770")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile))) 'eval (syntax-violation 'eval-when "invalid situation" #{e\ 1765}# (#{wrap\ 329}# #{x\ 1778}# #{w\ 1767}# #f)))))) #{situations\ 1776}#)))))) (#{f\ 1774}# #{when-list\ 1766}# (quote ()))))) (#{chi-install-global\ 337}# (lambda (#{name\ 1786}# #{e\ 1787}#) (#{build-global-definition\ 200}# #f #{name\ 1786}# (#{build-application\ 184}# #f (#{build-primref\ 208}# #f 'make-syntax-transformer) (list (#{build-data\ 210}# #f #{name\ 1786}#) (#{build-data\ 210}# #f (quote macro)) (#{build-application\ 184}# #f (#{build-primref\ 208}# #f (quote cons)) (list #{e\ 1787}# (#{build-application\ 184}# #f (#{build-primref\ 208}# #f 'module-name) (list (#{build-application\ 184}# #f (#{build-primref\ 208}# #f 'current-module) '())))))))))) (#{chi-top-sequence\ 335}# (lambda (#{body\ 1801}# #{r\ 1802}# #{w\ 1803}# #{s\ 1804}# #{m\ 1805}# #{esew\ 1806}# #{mod\ 1807}#) (#{build-sequence\ 212}# #{s\ 1804}# (letrec ((#{dobody\ 1822}# (lambda (#{body\ 1823}# #{r\ 1824}# #{w\ 1825}# #{m\ 1826}# #{esew\ 1827}# #{mod\ 1828}#) (if (null? #{body\ 1823}#) '() (let ((#{first\ 1830}# (#{chi-top\ 343}# (car #{body\ 1823}#) #{r\ 1824}# #{w\ 1825}# #{m\ 1826}# #{esew\ 1827}# #{mod\ 1828}#))) (cons #{first\ 1830}# (#{dobody\ 1822}# (cdr #{body\ 1823}#) #{r\ 1824}# #{w\ 1825}# #{m\ 1826}# #{esew\ 1827}# #{mod\ 1828}#))))))) (#{dobody\ 1822}# #{body\ 1801}# #{r\ 1802}# #{w\ 1803}# #{m\ 1805}# #{esew\ 1806}# #{mod\ 1807}#))))) (#{chi-sequence\ 333}# (lambda (#{body\ 1831}# #{r\ 1832}# #{w\ 1833}# #{s\ 1834}# #{mod\ 1835}#) (#{build-sequence\ 212}# #{s\ 1834}# (letrec ((#{dobody\ 1846}# (lambda (#{body\ 1847}# #{r\ 1848}# #{w\ 1849}# #{mod\ 1850}#) (if (null? #{body\ 1847}#) '() (let ((#{first\ 1852}# (#{chi\ 345}# (car #{body\ 1847}#) #{r\ 1848}# #{w\ 1849}# #{mod\ 1850}#))) (cons #{first\ 1852}# (#{dobody\ 1846}# (cdr #{body\ 1847}#) #{r\ 1848}# #{w\ 1849}# #{mod\ 1850}#))))))) (#{dobody\ 1846}# #{body\ 1831}# #{r\ 1832}# #{w\ 1833}# #{mod\ 1835}#))))) (#{source-wrap\ 331}# (lambda (#{x\ 1853}# #{w\ 1854}# #{s\ 1855}# #{defmod\ 1856}#) (#{wrap\ 329}# (#{decorate-source\ 180}# #{x\ 1853}# #{s\ 1855}#) #{w\ 1854}# #{defmod\ 1856}#))) (#{wrap\ 329}# (lambda (#{x\ 1861}# #{w\ 1862}# #{defmod\ 1863}#) (if (if (null? (#{wrap-marks\ 267}# #{w\ 1862}#)) (null? (#{wrap-subst\ 269}# #{w\ 1862}#)) #f) #{x\ 1861}# (if (#{syntax-object?\ 224}# #{x\ 1861}#) (#{make-syntax-object\ 222}# (#{syntax-object-expression\ 226}# #{x\ 1861}#) (#{join-wraps\ 311}# #{w\ 1862}# (#{syntax-object-wrap\ 228}# #{x\ 1861}#)) (#{syntax-object-module\ 230}# #{x\ 1861}#)) (if (null? #{x\ 1861}#) #{x\ 1861}# (#{make-syntax-object\ 222}# #{x\ 1861}# #{w\ 1862}# #{defmod\ 1863}#)))))) (#{bound-id-member?\ 327}# (lambda (#{x\ 1876}# #{list\ 1877}#) (if (not (null? #{list\ 1877}#)) (let ((#{t\ 1884}# (#{bound-id=?\ 321}# #{x\ 1876}# (car #{list\ 1877}#)))) (if #{t\ 1884}# #{t\ 1884}# (#{bound-id-member?\ 327}# #{x\ 1876}# (cdr #{list\ 1877}#)))) #f))) (#{distinct-bound-ids?\ 325}# (lambda (#{ids\ 1886}#) (letrec ((#{distinct?\ 1890}# (lambda (#{ids\ 1891}#) (let ((#{t\ 1894}# (null? #{ids\ 1891}#))) (if #{t\ 1894}# #{t\ 1894}# (if (not (#{bound-id-member?\ 327}# (car #{ids\ 1891}#) (cdr #{ids\ 1891}#))) (#{distinct?\ 1890}# (cdr #{ids\ 1891}#)) #f)))))) (#{distinct?\ 1890}# #{ids\ 1886}#)))) (#{valid-bound-ids?\ 323}# (lambda (#{ids\ 1898}#) (if (letrec ((#{all-ids?\ 1903}# (lambda (#{ids\ 1904}#) (let ((#{t\ 1907}# (null? #{ids\ 1904}#))) (if #{t\ 1907}# #{t\ 1907}# (if (#{id?\ 260}# (car #{ids\ 1904}#)) (#{all-ids?\ 1903}# (cdr #{ids\ 1904}#)) #f)))))) (#{all-ids?\ 1903}# #{ids\ 1898}#)) (#{distinct-bound-ids?\ 325}# #{ids\ 1898}#) #f))) (#{bound-id=?\ 321}# (lambda (#{i\ 1912}# #{j\ 1913}#) (if (if (#{syntax-object?\ 224}# #{i\ 1912}#) (#{syntax-object?\ 224}# #{j\ 1913}#) #f) (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1912}#) (#{syntax-object-expression\ 226}# #{j\ 1913}#)) (#{same-marks?\ 315}# (#{wrap-marks\ 267}# (#{syntax-object-wrap\ 228}# #{i\ 1912}#)) (#{wrap-marks\ 267}# (#{syntax-object-wrap\ 228}# #{j\ 1913}#))) #f) (eq? #{i\ 1912}# #{j\ 1913}#)))) (#{free-id=?\ 319}# (lambda (#{i\ 1920}# #{j\ 1921}#) (if (eq? (let ((#{x\ 1927}# #{i\ 1920}#)) (if (#{syntax-object?\ 224}# #{x\ 1927}#) (#{syntax-object-expression\ 226}# #{x\ 1927}#) #{x\ 1927}#)) (let ((#{x\ 1930}# #{j\ 1921}#)) (if (#{syntax-object?\ 224}# #{x\ 1930}#) (#{syntax-object-expression\ 226}# #{x\ 1930}#) #{x\ 1930}#))) (eq? (#{id-var-name\ 317}# #{i\ 1920}# (quote (()))) (#{id-var-name\ 317}# #{j\ 1921}# (quote (())))) #f))) (#{id-var-name\ 317}# (lambda (#{id\ 1934}# #{w\ 1935}#) (letrec ((#{search-vector-rib\ 1944}# (lambda (#{sym\ 1956}# #{subst\ 1957}# #{marks\ 1958}# #{symnames\ 1959}# #{ribcage\ 1960}#) (let ((#{n\ 1967}# (vector-length #{symnames\ 1959}#))) (letrec ((#{f\ 1970}# (lambda (#{i\ 1971}#) (if (#{fx=\ 167}# #{i\ 1971}# #{n\ 1967}#) (#{search\ 1940}# #{sym\ 1956}# (cdr #{subst\ 1957}#) #{marks\ 1958}#) (if (if (eq? (vector-ref #{symnames\ 1959}# #{i\ 1971}#) #{sym\ 1956}#) (#{same-marks?\ 315}# #{marks\ 1958}# (vector-ref (#{ribcage-marks\ 287}# #{ribcage\ 1960}#) #{i\ 1971}#)) #f) (values (vector-ref (#{ribcage-labels\ 289}# #{ribcage\ 1960}#) #{i\ 1971}#) #{marks\ 1958}#) (#{f\ 1970}# (#{fx+\ 163}# #{i\ 1971}# 1))))))) (#{f\ 1970}# 0))))) (#{search-list-rib\ 1942}# (lambda (#{sym\ 1979}# #{subst\ 1980}# #{marks\ 1981}# #{symnames\ 1982}# #{ribcage\ 1983}#) (letrec ((#{f\ 1992}# (lambda (#{symnames\ 1993}# #{i\ 1994}#) (if (null? #{symnames\ 1993}#) (#{search\ 1940}# #{sym\ 1979}# (cdr #{subst\ 1980}#) #{marks\ 1981}#) (if (if (eq? (car #{symnames\ 1993}#) #{sym\ 1979}#) (#{same-marks?\ 315}# #{marks\ 1981}# (list-ref (#{ribcage-marks\ 287}# #{ribcage\ 1983}#) #{i\ 1994}#)) #f) (values (list-ref (#{ribcage-labels\ 289}# #{ribcage\ 1983}#) #{i\ 1994}#) #{marks\ 1981}#) (#{f\ 1992}# (cdr #{symnames\ 1993}#) (#{fx+\ 163}# #{i\ 1994}# 1))))))) (#{f\ 1992}# #{symnames\ 1982}# 0)))) (#{search\ 1940}# (lambda (#{sym\ 2002}# #{subst\ 2003}# #{marks\ 2004}#) (if (null? #{subst\ 2003}#) (values #f #{marks\ 2004}#) (let ((#{fst\ 2009}# (car #{subst\ 2003}#))) (if (eq? #{fst\ 2009}# (quote shift)) (#{search\ 1940}# #{sym\ 2002}# (cdr #{subst\ 2003}#) (cdr #{marks\ 2004}#)) (let ((#{symnames\ 2011}# (#{ribcage-symnames\ 285}# #{fst\ 2009}#))) (if (vector? #{symnames\ 2011}#) (#{search-vector-rib\ 1944}# #{sym\ 2002}# #{subst\ 2003}# #{marks\ 2004}# #{symnames\ 2011}# #{fst\ 2009}#) (#{search-list-rib\ 1942}# #{sym\ 2002}# #{subst\ 2003}# #{marks\ 2004}# #{symnames\ 2011}# #{fst\ 2009}#))))))))) (if (symbol? #{id\ 1934}#) (let ((#{t\ 2014}# (call-with-values (lambda () (#{search\ 1940}# #{id\ 1934}# (#{wrap-subst\ 269}# #{w\ 1935}#) (#{wrap-marks\ 267}# #{w\ 1935}#))) (lambda (#{x\ 2016}# . #{ignore\ 2017}#) #{x\ 2016}#)))) (if #{t\ 2014}# #{t\ 2014}# #{id\ 1934}#)) (if (#{syntax-object?\ 224}# #{id\ 1934}#) (let ((#{id\ 2025}# (#{syntax-object-expression\ 226}# #{id\ 1934}#)) (#{w1\ 2026}# (#{syntax-object-wrap\ 228}# #{id\ 1934}#))) (let ((#{marks\ 2028}# (#{join-marks\ 313}# (#{wrap-marks\ 267}# #{w\ 1935}#) (#{wrap-marks\ 267}# #{w1\ 2026}#)))) (call-with-values (lambda () (#{search\ 1940}# #{id\ 2025}# (#{wrap-subst\ 269}# #{w\ 1935}#) #{marks\ 2028}#)) (lambda (#{new-id\ 2029}# #{marks\ 2030}#) (let ((#{t\ 2035}# #{new-id\ 2029}#)) (if #{t\ 2035}# #{t\ 2035}# (let ((#{t\ 2038}# (call-with-values (lambda () (#{search\ 1940}# #{id\ 2025}# (#{wrap-subst\ 269}# #{w1\ 2026}#) #{marks\ 2030}#)) (lambda (#{x\ 2040}# . #{ignore\ 2041}#) #{x\ 2040}#)))) (if #{t\ 2038}# #{t\ 2038}# #{id\ 2025}#)))))))) (syntax-violation 'id-var-name "invalid id" #{id\ 1934}#)))))) (#{same-marks?\ 315}# (lambda (#{x\ 2046}# #{y\ 2047}#) (let ((#{t\ 2052}# (eq? #{x\ 2046}# #{y\ 2047}#))) (if #{t\ 2052}# #{t\ 2052}# (if (not (null? #{x\ 2046}#)) (if (not (null? #{y\ 2047}#)) (if (eq? (car #{x\ 2046}#) (car #{y\ 2047}#)) (#{same-marks?\ 315}# (cdr #{x\ 2046}#) (cdr #{y\ 2047}#)) #f) #f) #f))))) (#{join-marks\ 313}# (lambda (#{m1\ 2058}# #{m2\ 2059}#) (#{smart-append\ 309}# #{m1\ 2058}# #{m2\ 2059}#))) (#{join-wraps\ 311}# (lambda (#{w1\ 2062}# #{w2\ 2063}#) (let ((#{m1\ 2068}# (#{wrap-marks\ 267}# #{w1\ 2062}#)) (#{s1\ 2069}# (#{wrap-subst\ 269}# #{w1\ 2062}#))) (if (null? #{m1\ 2068}#) (if (null? #{s1\ 2069}#) #{w2\ 2063}# (#{make-wrap\ 265}# (#{wrap-marks\ 267}# #{w2\ 2063}#) (#{smart-append\ 309}# #{s1\ 2069}# (#{wrap-subst\ 269}# #{w2\ 2063}#)))) (#{make-wrap\ 265}# (#{smart-append\ 309}# #{m1\ 2068}# (#{wrap-marks\ 267}# #{w2\ 2063}#)) (#{smart-append\ 309}# #{s1\ 2069}# (#{wrap-subst\ 269}# #{w2\ 2063}#))))))) (#{smart-append\ 309}# (lambda (#{m1\ 2070}# #{m2\ 2071}#) (if (null? #{m2\ 2071}#) #{m1\ 2070}# (append #{m1\ 2070}# #{m2\ 2071}#)))) (#{make-binding-wrap\ 307}# (lambda (#{ids\ 2074}# #{labels\ 2075}# #{w\ 2076}#) (if (null? #{ids\ 2074}#) #{w\ 2076}# (#{make-wrap\ 265}# (#{wrap-marks\ 267}# #{w\ 2076}#) (cons (let ((#{labelvec\ 2081}# (list->vector #{labels\ 2075}#))) (let ((#{n\ 2083}# (vector-length #{labelvec\ 2081}#))) (let ((#{symnamevec\ 2086}# (make-vector #{n\ 2083}#)) (#{marksvec\ 2087}# (make-vector #{n\ 2083}#))) (begin (letrec ((#{f\ 2091}# (lambda (#{ids\ 2092}# #{i\ 2093}#) (if (not (null? #{ids\ 2092}#)) (call-with-values (lambda () (#{id-sym-name&marks\ 263}# (car #{ids\ 2092}#) #{w\ 2076}#)) (lambda (#{symname\ 2094}# #{marks\ 2095}#) (begin (vector-set! #{symnamevec\ 2086}# #{i\ 2093}# #{symname\ 2094}#) (vector-set! #{marksvec\ 2087}# #{i\ 2093}# #{marks\ 2095}#) (#{f\ 2091}# (cdr #{ids\ 2092}#) (#{fx+\ 163}# #{i\ 2093}# 1))))))))) (#{f\ 2091}# #{ids\ 2074}# 0)) (#{make-ribcage\ 281}# #{symnamevec\ 2086}# #{marksvec\ 2087}# #{labelvec\ 2081}#))))) (#{wrap-subst\ 269}# #{w\ 2076}#)))))) (#{extend-ribcage!\ 305}# (lambda (#{ribcage\ 2098}# #{id\ 2099}# #{label\ 2100}#) (begin (#{set-ribcage-symnames!\ 291}# #{ribcage\ 2098}# (cons (#{syntax-object-expression\ 226}# #{id\ 2099}#) (#{ribcage-symnames\ 285}# #{ribcage\ 2098}#))) (#{set-ribcage-marks!\ 293}# #{ribcage\ 2098}# (cons (#{wrap-marks\ 267}# (#{syntax-object-wrap\ 228}# #{id\ 2099}#)) (#{ribcage-marks\ 287}# #{ribcage\ 2098}#))) (#{set-ribcage-labels!\ 295}# #{ribcage\ 2098}# (cons #{label\ 2100}# (#{ribcage-labels\ 289}# #{ribcage\ 2098}#)))))) (#{anti-mark\ 301}# (lambda (#{w\ 2104}#) (#{make-wrap\ 265}# (cons #f (#{wrap-marks\ 267}# #{w\ 2104}#)) (cons 'shift (#{wrap-subst\ 269}# #{w\ 2104}#))))) (#{set-ribcage-labels!\ 295}# (lambda (#{x\ 2107}# #{update\ 2108}#) (vector-set! #{x\ 2107}# 3 #{update\ 2108}#))) (#{set-ribcage-marks!\ 293}# (lambda (#{x\ 2111}# #{update\ 2112}#) (vector-set! #{x\ 2111}# 2 #{update\ 2112}#))) (#{set-ribcage-symnames!\ 291}# (lambda (#{x\ 2115}# #{update\ 2116}#) (vector-set! #{x\ 2115}# 1 #{update\ 2116}#))) (#{ribcage-labels\ 289}# (lambda (#{x\ 2119}#) (vector-ref #{x\ 2119}# 3))) (#{ribcage-marks\ 287}# (lambda (#{x\ 2121}#) (vector-ref #{x\ 2121}# 2))) (#{ribcage-symnames\ 285}# (lambda (#{x\ 2123}#) (vector-ref #{x\ 2123}# 1))) (#{ribcage?\ 283}# (lambda (#{x\ 2125}#) (if (vector? #{x\ 2125}#) (if (= (vector-length #{x\ 2125}#) 4) (eq? (vector-ref #{x\ 2125}# 0) (quote ribcage)) #f) #f))) (#{make-ribcage\ 281}# (lambda (#{symnames\ 2130}# #{marks\ 2131}# #{labels\ 2132}#) (vector 'ribcage #{symnames\ 2130}# #{marks\ 2131}# #{labels\ 2132}#))) (#{gen-labels\ 278}# (lambda (#{ls\ 2136}#) (if (null? #{ls\ 2136}#) '() (cons (#{gen-label\ 276}#) (#{gen-labels\ 278}# (cdr #{ls\ 2136}#)))))) (#{gen-label\ 276}# (lambda () (symbol->string (gensym "i")))) (#{wrap-subst\ 269}# cdr) (#{wrap-marks\ 267}# car) (#{make-wrap\ 265}# cons) (#{id-sym-name&marks\ 263}# (lambda (#{x\ 2138}# #{w\ 2139}#) (if (#{syntax-object?\ 224}# #{x\ 2138}#) (values (#{syntax-object-expression\ 226}# #{x\ 2138}#) (#{join-marks\ 313}# (#{wrap-marks\ 267}# #{w\ 2139}#) (#{wrap-marks\ 267}# (#{syntax-object-wrap\ 228}# #{x\ 2138}#)))) (values #{x\ 2138}# (#{wrap-marks\ 267}# #{w\ 2139}#))))) (#{id?\ 260}# (lambda (#{x\ 2142}#) (if (symbol? #{x\ 2142}#) #t (if (#{syntax-object?\ 224}# #{x\ 2142}#) (symbol? (#{syntax-object-expression\ 226}# #{x\ 2142}#)) #f)))) (#{nonsymbol-id?\ 258}# (lambda (#{x\ 2149}#) (if (#{syntax-object?\ 224}# #{x\ 2149}#) (symbol? (#{syntax-object-expression\ 226}# #{x\ 2149}#)) #f))) (#{global-extend\ 256}# (lambda (#{type\ 2153}# #{sym\ 2154}# #{val\ 2155}#) (#{put-global-definition-hook\ 176}# #{sym\ 2154}# #{type\ 2153}# #{val\ 2155}#))) (#{lookup\ 254}# (lambda (#{x\ 2159}# #{r\ 2160}# #{mod\ 2161}#) (let ((#{t\ 2167}# (assq #{x\ 2159}# #{r\ 2160}#))) (if #{t\ 2167}# (cdr #{t\ 2167}#) (if (symbol? #{x\ 2159}#) (let ((#{t\ 2173}# (#{get-global-definition-hook\ 178}# #{x\ 2159}# #{mod\ 2161}#))) (if #{t\ 2173}# #{t\ 2173}# (quote (global)))) '(displaced-lexical)))))) (#{macros-only-env\ 252}# (lambda (#{r\ 2178}#) (if (null? #{r\ 2178}#) '() (let ((#{a\ 2181}# (car #{r\ 2178}#))) (if (eq? (cadr #{a\ 2181}#) (quote macro)) (cons #{a\ 2181}# (#{macros-only-env\ 252}# (cdr #{r\ 2178}#))) (#{macros-only-env\ 252}# (cdr #{r\ 2178}#))))))) (#{extend-var-env\ 250}# (lambda (#{labels\ 2182}# #{vars\ 2183}# #{r\ 2184}#) (if (null? #{labels\ 2182}#) #{r\ 2184}# (#{extend-var-env\ 250}# (cdr #{labels\ 2182}#) (cdr #{vars\ 2183}#) (cons (cons (car #{labels\ 2182}#) (cons (quote lexical) (car #{vars\ 2183}#))) #{r\ 2184}#))))) (#{extend-env\ 248}# (lambda (#{labels\ 2189}# #{bindings\ 2190}# #{r\ 2191}#) (if (null? #{labels\ 2189}#) #{r\ 2191}# (#{extend-env\ 248}# (cdr #{labels\ 2189}#) (cdr #{bindings\ 2190}#) (cons (cons (car #{labels\ 2189}#) (car #{bindings\ 2190}#)) #{r\ 2191}#))))) (#{binding-value\ 245}# cdr) (#{binding-type\ 243}# car) (#{source-annotation\ 239}# (lambda (#{x\ 2195}#) (if (#{syntax-object?\ 224}# #{x\ 2195}#) (#{source-annotation\ 239}# (#{syntax-object-expression\ 226}# #{x\ 2195}#)) (if (pair? #{x\ 2195}#) (let ((#{props\ 2202}# (source-properties #{x\ 2195}#))) (if (pair? #{props\ 2202}#) #{props\ 2202}# #f)) #f)))) (#{set-syntax-object-module!\ 236}# (lambda (#{x\ 2204}# #{update\ 2205}#) (vector-set! #{x\ 2204}# 3 #{update\ 2205}#))) (#{set-syntax-object-wrap!\ 234}# (lambda (#{x\ 2208}# #{update\ 2209}#) (vector-set! #{x\ 2208}# 2 #{update\ 2209}#))) (#{set-syntax-object-expression!\ 232}# (lambda (#{x\ 2212}# #{update\ 2213}#) (vector-set! #{x\ 2212}# 1 #{update\ 2213}#))) (#{syntax-object-module\ 230}# (lambda (#{x\ 2216}#) (vector-ref #{x\ 2216}# 3))) (#{syntax-object-wrap\ 228}# (lambda (#{x\ 2218}#) (vector-ref #{x\ 2218}# 2))) (#{syntax-object-expression\ 226}# (lambda (#{x\ 2220}#) (vector-ref #{x\ 2220}# 1))) (#{syntax-object?\ 224}# (lambda (#{x\ 2222}#) (if (vector? #{x\ 2222}#) (if (= (vector-length #{x\ 2222}#) 4) (eq? (vector-ref #{x\ 2222}# 0) 'syntax-object) #f) #f))) (#{make-syntax-object\ 222}# (lambda (#{expression\ 2227}# #{wrap\ 2228}# #{module\ 2229}#) (vector 'syntax-object #{expression\ 2227}# #{wrap\ 2228}# #{module\ 2229}#))) (#{build-letrec\ 218}# (lambda (#{src\ 2233}# #{ids\ 2234}# #{vars\ 2235}# #{val-exps\ 2236}# #{body-exp\ 2237}#) (if (null? #{vars\ 2235}#) #{body-exp\ 2237}# (let ((#{atom-key\ 2245}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2245}# (quote (c))) (begin (for-each #{maybe-name-value!\ 198}# #{ids\ 2234}# #{val-exps\ 2236}#) ((@ (language tree-il) make-letrec) #{src\ 2233}# #{ids\ 2234}# #{vars\ 2235}# #{val-exps\ 2236}# #{body-exp\ 2237}#)) (#{decorate-source\ 180}# (list 'letrec (map list #{vars\ 2235}# #{val-exps\ 2236}#) #{body-exp\ 2237}#) #{src\ 2233}#)))))) (#{build-named-let\ 216}# (lambda (#{src\ 2249}# #{ids\ 2250}# #{vars\ 2251}# #{val-exps\ 2252}# #{body-exp\ 2253}#) (let ((#{f\ 2263}# (car #{vars\ 2251}#)) (#{f-name\ 2264}# (car #{ids\ 2250}#)) (#{vars\ 2265}# (cdr #{vars\ 2251}#)) (#{ids\ 2266}# (cdr #{ids\ 2250}#))) (let ((#{atom-key\ 2269}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2269}# (quote (c))) (let ((#{proc\ 2272}# (#{build-simple-lambda\ 202}# #{src\ 2249}# #{ids\ 2266}# #f #{vars\ 2265}# #f #{body-exp\ 2253}#))) (begin (#{maybe-name-value!\ 198}# #{f-name\ 2264}# #{proc\ 2272}#) (for-each #{maybe-name-value!\ 198}# #{ids\ 2266}# #{val-exps\ 2252}#) ((@ (language tree-il) make-letrec) #{src\ 2249}# (list #{f-name\ 2264}#) (list #{f\ 2263}#) (list #{proc\ 2272}#) (#{build-application\ 184}# #{src\ 2249}# (#{build-lexical-reference\ 188}# 'fun #{src\ 2249}# #{f-name\ 2264}# #{f\ 2263}#) #{val-exps\ 2252}#)))) (#{decorate-source\ 180}# (list 'letrec (list (list #{f\ 2263}# (list 'lambda #{vars\ 2265}# #{body-exp\ 2253}#))) (cons #{f\ 2263}# #{val-exps\ 2252}#)) #{src\ 2249}#)))))) (#{build-let\ 214}# (lambda (#{src\ 2275}# #{ids\ 2276}# #{vars\ 2277}# #{val-exps\ 2278}# #{body-exp\ 2279}#) (if (null? #{vars\ 2277}#) #{body-exp\ 2279}# (let ((#{atom-key\ 2287}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2287}# (quote (c))) (begin (for-each #{maybe-name-value!\ 198}# #{ids\ 2276}# #{val-exps\ 2278}#) ((@ (language tree-il) make-let) #{src\ 2275}# #{ids\ 2276}# #{vars\ 2277}# #{val-exps\ 2278}# #{body-exp\ 2279}#)) (#{decorate-source\ 180}# (list 'let (map list #{vars\ 2277}# #{val-exps\ 2278}#) #{body-exp\ 2279}#) #{src\ 2275}#)))))) (#{build-sequence\ 212}# (lambda (#{src\ 2291}# #{exps\ 2292}#) (if (null? (cdr #{exps\ 2292}#)) (car #{exps\ 2292}#) (let ((#{atom-key\ 2297}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2297}# (quote (c))) ((@ (language tree-il) make-sequence) #{src\ 2291}# #{exps\ 2292}#) (#{decorate-source\ 180}# (cons (quote begin) #{exps\ 2292}#) #{src\ 2291}#)))))) (#{build-data\ 210}# (lambda (#{src\ 2301}# #{exp\ 2302}#) (let ((#{atom-key\ 2307}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2307}# (quote (c))) ((@ (language tree-il) make-const) #{src\ 2301}# #{exp\ 2302}#) (#{decorate-source\ 180}# (if (if (self-evaluating? #{exp\ 2302}#) (not (vector? #{exp\ 2302}#)) #f) #{exp\ 2302}# (list (quote quote) #{exp\ 2302}#)) #{src\ 2301}#))))) (#{build-primref\ 208}# (lambda (#{src\ 2312}# #{name\ 2313}#) (if (equal? (module-name (current-module)) '(guile)) (let ((#{atom-key\ 2318}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2318}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) #{src\ 2312}# #{name\ 2313}#) (#{decorate-source\ 180}# #{name\ 2313}# #{src\ 2312}#))) (let ((#{atom-key\ 2323}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2323}# (quote (c))) ((@ (language tree-il) make-module-ref) #{src\ 2312}# '(guile) #{name\ 2313}# #f) (#{decorate-source\ 180}# (list (quote @@) (quote (guile)) #{name\ 2313}#) #{src\ 2312}#)))))) (#{build-lambda-case\ 206}# (lambda (#{src\ 2327}# #{req\ 2328}# #{opt\ 2329}# #{rest\ 2330}# #{kw\ 2331}# #{inits\ 2332}# #{vars\ 2333}# #{body\ 2334}# #{else-case\ 2335}#) (let ((#{atom-key\ 2347}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2347}# (quote (c))) ((@ (language tree-il) make-lambda-case) #{src\ 2327}# #{req\ 2328}# #{opt\ 2329}# #{rest\ 2330}# #{kw\ 2331}# #{inits\ 2332}# #{vars\ 2333}# #{body\ 2334}# #{else-case\ 2335}#) (let ((#{nreq\ 2352}# (length #{req\ 2328}#))) (let ((#{nopt\ 2354}# (if #{opt\ 2329}# (length #{opt\ 2329}#) 0))) (let ((#{rest-idx\ 2356}# (if #{rest\ 2330}# (+ #{nreq\ 2352}# #{nopt\ 2354}#) #f))) (let ((#{allow-other-keys?\ 2360}# (if #{kw\ 2331}# (car #{kw\ 2331}#) #f))) (let ((#{kw-indices\ 2362}# (map (lambda (#{x\ 2363}#) (cons (car #{x\ 2363}#) (list-index #{vars\ 2333}# (caddr #{x\ 2363}#)))) (if #{kw\ 2331}# (cdr #{kw\ 2331}#) '())))) (let ((#{nargs\ 2366}# (apply max (+ #{nreq\ 2352}# #{nopt\ 2354}# (if #{rest\ 2330}# 1 0)) (map 1+ (map cdr #{kw-indices\ 2362}#))))) (begin (let ((#{t\ 2369}# (= #{nargs\ 2366}# (length #{vars\ 2333}#) (+ #{nreq\ 2352}# (length #{inits\ 2332}#) (if #{rest\ 2330}# 1 0))))) (if #{t\ 2369}# #{t\ 2369}# (error "something went wrong" #{req\ 2328}# #{opt\ 2329}# #{rest\ 2330}# #{kw\ 2331}# #{inits\ 2332}# #{vars\ 2333}# #{nreq\ 2352}# #{nopt\ 2354}# #{kw-indices\ 2362}# #{nargs\ 2366}#))) (#{decorate-source\ 180}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote (list #{nreq\ 2352}# #{nopt\ 2354}# #{rest-idx\ 2356}# #{nargs\ 2366}# #{allow-other-keys?\ 2360}# #{kw-indices\ 2362}#)) (cons (cons 'list (map (lambda (#{i\ 2372}#) (list 'lambda #{vars\ 2333}# #{i\ 2372}#)) #{inits\ 2332}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda #{vars\ 2333}# #{body\ 2334}#) '(%%args))))) (let ((#{t\ 2377}# #{else-case\ 2335}#)) (if #{t\ 2377}# #{t\ 2377}# '((%%args (scm-error 'wrong-number-of-args #f "Wrong number of arguments" '() %%args)))))) #{src\ 2327}#)))))))))))) (#{build-case-lambda\ 204}# (lambda (#{src\ 2380}# #{docstring\ 2381}# #{body\ 2382}#) (let ((#{atom-key\ 2388}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2388}# (quote (c))) ((@ (language tree-il) make-lambda) #{src\ 2380}# (if #{docstring\ 2381}# (list (cons (quote documentation) #{docstring\ 2381}#)) '()) #{body\ 2382}#) (#{decorate-source\ 180}# (cons 'lambda (cons '%%args (append (if #{docstring\ 2381}# (list #{docstring\ 2381}#) '()) (list (cons (quote cond) #{body\ 2382}#))))) #{src\ 2380}#))))) (#{build-simple-lambda\ 202}# (lambda (#{src\ 2393}# #{req\ 2394}# #{rest\ 2395}# #{vars\ 2396}# #{docstring\ 2397}# #{exp\ 2398}#) (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2407}# (quote (c))) ((@ (language tree-il) make-lambda) #{src\ 2393}# (if #{docstring\ 2397}# (list (cons (quote documentation) #{docstring\ 2397}#)) '()) ((@ (language tree-il) make-lambda-case) #{src\ 2393}# #{req\ 2394}# #f #{rest\ 2395}# #f '() #{vars\ 2396}# #{exp\ 2398}# #f)) (#{decorate-source\ 180}# (cons 'lambda (cons (if #{rest\ 2395}# (apply cons* #{vars\ 2396}#) #{vars\ 2396}#) (append (if #{docstring\ 2397}# (list #{docstring\ 2397}#) '()) (list #{exp\ 2398}#)))) #{src\ 2393}#))))) (#{build-global-definition\ 200}# (lambda (#{source\ 2412}# #{var\ 2413}# #{exp\ 2414}#) (let ((#{atom-key\ 2420}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2420}# (quote (c))) (begin (#{maybe-name-value!\ 198}# #{var\ 2413}# #{exp\ 2414}#) ((@ (language tree-il) make-toplevel-define) #{source\ 2412}# #{var\ 2413}# #{exp\ 2414}#)) (#{decorate-source\ 180}# (list (quote define) #{var\ 2413}# #{exp\ 2414}#) #{source\ 2412}#))))) (#{maybe-name-value!\ 198}# (lambda (#{name\ 2424}# #{val\ 2425}#) (if ((@ (language tree-il) lambda?) #{val\ 2425}#) (let ((#{meta\ 2431}# ((@ (language tree-il) lambda-meta) #{val\ 2425}#))) (if (not (assq (quote name) #{meta\ 2431}#)) ((setter (@ (language tree-il) lambda-meta)) #{val\ 2425}# (acons 'name #{name\ 2424}# #{meta\ 2431}#))))))) (#{build-global-assignment\ 196}# (lambda (#{source\ 2432}# #{var\ 2433}# #{exp\ 2434}# #{mod\ 2435}#) (#{analyze-variable\ 192}# #{mod\ 2435}# #{var\ 2433}# (lambda (#{mod\ 2440}# #{var\ 2441}# #{public?\ 2442}#) (let ((#{atom-key\ 2448}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2448}# (quote (c))) ((@ (language tree-il) make-module-set) #{source\ 2432}# #{mod\ 2440}# #{var\ 2441}# #{public?\ 2442}# #{exp\ 2434}#) (#{decorate-source\ 180}# (list 'set! (list (if #{public?\ 2442}# '@ '@@) #{mod\ 2440}# #{var\ 2441}#) #{exp\ 2434}#) #{source\ 2432}#)))) (lambda (#{var\ 2452}#) (let ((#{atom-key\ 2456}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2456}# (quote (c))) ((@ (language tree-il) make-toplevel-set) #{source\ 2432}# #{var\ 2452}# #{exp\ 2434}#) (#{decorate-source\ 180}# (list (quote set!) #{var\ 2452}# #{exp\ 2434}#) #{source\ 2432}#))))))) (#{build-global-reference\ 194}# (lambda (#{source\ 2460}# #{var\ 2461}# #{mod\ 2462}#) (#{analyze-variable\ 192}# #{mod\ 2462}# #{var\ 2461}# (lambda (#{mod\ 2466}# #{var\ 2467}# #{public?\ 2468}#) (let ((#{atom-key\ 2474}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2474}# (quote (c))) ((@ (language tree-il) make-module-ref) #{source\ 2460}# #{mod\ 2466}# #{var\ 2467}# #{public?\ 2468}#) (#{decorate-source\ 180}# (list (if #{public?\ 2468}# (quote @) (quote @@)) #{mod\ 2466}# #{var\ 2467}#) #{source\ 2460}#)))) (lambda (#{var\ 2477}#) (let ((#{atom-key\ 2481}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2481}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) #{source\ 2460}# #{var\ 2477}#) (#{decorate-source\ 180}# #{var\ 2477}# #{source\ 2460}#))))))) (#{analyze-variable\ 192}# (lambda (#{mod\ 2484}# #{var\ 2485}# #{modref-cont\ 2486}# #{bare-cont\ 2487}#) (if (not #{mod\ 2484}#) (#{bare-cont\ 2487}# #{var\ 2485}#) (let ((#{kind\ 2494}# (car #{mod\ 2484}#)) (#{mod\ 2495}# (cdr #{mod\ 2484}#))) (if (memv #{kind\ 2494}# (quote (public))) (#{modref-cont\ 2486}# #{mod\ 2495}# #{var\ 2485}# #t) (if (memv #{kind\ 2494}# (quote (private))) (if (not (equal? #{mod\ 2495}# (module-name (current-module)))) (#{modref-cont\ 2486}# #{mod\ 2495}# #{var\ 2485}# #f) (#{bare-cont\ 2487}# #{var\ 2485}#)) (if (memv #{kind\ 2494}# (quote (bare))) (#{bare-cont\ 2487}# #{var\ 2485}#) (if (memv #{kind\ 2494}# (quote (hygiene))) (if (if (not (equal? #{mod\ 2495}# (module-name (current-module)))) (module-variable (resolve-module #{mod\ 2495}#) #{var\ 2485}#) #f) (#{modref-cont\ 2486}# #{mod\ 2495}# #{var\ 2485}# #f) (#{bare-cont\ 2487}# #{var\ 2485}#)) (syntax-violation #f "bad module kind" #{var\ 2485}# #{mod\ 2495}#))))))))) (#{build-lexical-assignment\ 190}# (lambda (#{source\ 2503}# #{name\ 2504}# #{var\ 2505}# #{exp\ 2506}#) (let ((#{atom-key\ 2513}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2513}# (quote (c))) ((@ (language tree-il) make-lexical-set) #{source\ 2503}# #{name\ 2504}# #{var\ 2505}# #{exp\ 2506}#) (#{decorate-source\ 180}# (list (quote set!) #{var\ 2505}# #{exp\ 2506}#) #{source\ 2503}#))))) (#{build-lexical-reference\ 188}# (lambda (#{type\ 2517}# #{source\ 2518}# #{name\ 2519}# #{var\ 2520}#) (let ((#{atom-key\ 2527}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2527}# (quote (c))) ((@ (language tree-il) make-lexical-ref) #{source\ 2518}# #{name\ 2519}# #{var\ 2520}#) (#{decorate-source\ 180}# #{var\ 2520}# #{source\ 2518}#))))) (#{build-conditional\ 186}# (lambda (#{source\ 2530}# #{test-exp\ 2531}# #{then-exp\ 2532}# #{else-exp\ 2533}#) (let ((#{atom-key\ 2540}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2540}# (quote (c))) ((@ (language tree-il) make-conditional) #{source\ 2530}# #{test-exp\ 2531}# #{then-exp\ 2532}# #{else-exp\ 2533}#) (#{decorate-source\ 180}# (if (equal? #{else-exp\ 2533}# (quote (if #f #f))) (list 'if #{test-exp\ 2531}# #{then-exp\ 2532}#) (list 'if #{test-exp\ 2531}# #{then-exp\ 2532}# #{else-exp\ 2533}#)) #{source\ 2530}#))))) (#{build-application\ 184}# (lambda (#{source\ 2545}# #{fun-exp\ 2546}# #{arg-exps\ 2547}#) (let ((#{atom-key\ 2553}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2553}# (quote (c))) ((@ (language tree-il) make-application) #{source\ 2545}# #{fun-exp\ 2546}# #{arg-exps\ 2547}#) (#{decorate-source\ 180}# (cons #{fun-exp\ 2546}# #{arg-exps\ 2547}#) #{source\ 2545}#))))) (#{build-void\ 182}# (lambda (#{source\ 2557}#) (let ((#{atom-key\ 2561}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2561}# (quote (c))) ((@ (language tree-il) make-void) #{source\ 2557}#) (#{decorate-source\ 180}# '(if #f #f) #{source\ 2557}#))))) (#{decorate-source\ 180}# (lambda (#{e\ 2564}# #{s\ 2565}#) (begin (if (if (pair? #{e\ 2564}#) #{s\ 2565}# #f) (set-source-properties! #{e\ 2564}# #{s\ 2565}#)) #{e\ 2564}#))) (#{get-global-definition-hook\ 178}# (lambda (#{symbol\ 2570}# #{module\ 2571}#) (begin (if (if (not #{module\ 2571}#) (current-module) #f) (warn "module system is booted, we should have a module" #{symbol\ 2570}#)) (let ((#{v\ 2577}# (module-variable (if #{module\ 2571}# (resolve-module (cdr #{module\ 2571}#)) (current-module)) #{symbol\ 2570}#))) (if #{v\ 2577}# (if (variable-bound? #{v\ 2577}#) (let ((#{val\ 2582}# (variable-ref #{v\ 2577}#))) (if (macro? #{val\ 2582}#) (if (macro-type #{val\ 2582}#) (cons (macro-type #{val\ 2582}#) (macro-binding #{val\ 2582}#)) #f) #f)) #f) #f))))) (#{put-global-definition-hook\ 176}# (lambda (#{symbol\ 2586}# #{type\ 2587}# #{val\ 2588}#) (module-define! (current-module) #{symbol\ 2586}# (make-syntax-transformer #{symbol\ 2586}# #{type\ 2587}# #{val\ 2588}#)))) (#{local-eval-hook\ 173}# (lambda (#{x\ 2592}# #{mod\ 2593}#) (primitive-eval (list #{noexpand\ 159}# (let ((#{atom-key\ 2599}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2599}# (quote (c))) ((@ (language tree-il) tree-il->scheme) #{x\ 2592}#) #{x\ 2592}#)))))) (#{top-level-eval-hook\ 171}# (lambda (#{x\ 2602}# #{mod\ 2603}#) (primitive-eval (list #{noexpand\ 159}# (let ((#{atom-key\ 2609}# (fluid-ref #{*mode*\ 161}#))) (if (memv #{atom-key\ 2609}# (quote (c))) ((@ (language tree-il) tree-il->scheme) #{x\ 2602}#) #{x\ 2602}#)))))) (#{fx<\ 169}# <) (#{fx=\ 167}# =) (#{fx-\ 165}# -) (#{fx+\ 163}# +) (#{*mode*\ 161}# (make-fluid)) (#{noexpand\ 159}# "noexpand")) (begin (#{global-extend\ 256}# 'local-syntax 'letrec-syntax #t) (#{global-extend\ 256}# 'local-syntax 'let-syntax #f) (#{global-extend\ 256}# 'core 'fluid-let-syntax (lambda (#{e\ 2612}# #{r\ 2613}# #{w\ 2614}# #{s\ 2615}# #{mod\ 2616}#) ((lambda (#{tmp\ 2622}#) ((lambda (#{tmp\ 2623}#) (if (if #{tmp\ 2623}# (apply (lambda (#{_\ 2629}# #{var\ 2630}# #{val\ 2631}# #{e1\ 2632}# #{e2\ 2633}#) (#{valid-bound-ids?\ 323}# #{var\ 2630}#)) #{tmp\ 2623}#) #f) (apply (lambda (#{_\ 2640}# #{var\ 2641}# #{val\ 2642}# #{e1\ 2643}# #{e2\ 2644}#) (let ((#{names\ 2646}# (map (lambda (#{x\ 2647}#) (#{id-var-name\ 317}# #{x\ 2647}# #{w\ 2614}#)) #{var\ 2641}#))) (begin (for-each (lambda (#{id\ 2650}# #{n\ 2651}#) (let ((#{atom-key\ 2656}# (#{binding-type\ 243}# (#{lookup\ 254}# #{n\ 2651}# #{r\ 2613}# #{mod\ 2616}#)))) (if (memv #{atom-key\ 2656}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" #{e\ 2612}# (#{source-wrap\ 331}# #{id\ 2650}# #{w\ 2614}# #{s\ 2615}# #{mod\ 2616}#))))) #{var\ 2641}# #{names\ 2646}#) (#{chi-body\ 353}# (cons #{e1\ 2643}# #{e2\ 2644}#) (#{source-wrap\ 331}# #{e\ 2612}# #{w\ 2614}# #{s\ 2615}# #{mod\ 2616}#) (#{extend-env\ 248}# #{names\ 2646}# (let ((#{trans-r\ 2661}# (#{macros-only-env\ 252}# #{r\ 2613}#))) (map (lambda (#{x\ 2662}#) (cons 'macro (#{eval-local-transformer\ 357}# (#{chi\ 345}# #{x\ 2662}# #{trans-r\ 2661}# #{w\ 2614}# #{mod\ 2616}#) #{mod\ 2616}#))) #{val\ 2642}#)) #{r\ 2613}#) #{w\ 2614}# #{mod\ 2616}#)))) #{tmp\ 2623}#) ((lambda (#{_\ 2667}#) (syntax-violation 'fluid-let-syntax "bad syntax" (#{source-wrap\ 331}# #{e\ 2612}# #{w\ 2614}# #{s\ 2615}# #{mod\ 2616}#))) #{tmp\ 2622}#))) ($sc-dispatch #{tmp\ 2622}# '(any #(each (any any)) any . each-any)))) #{e\ 2612}#))) (#{global-extend\ 256}# 'core 'quote (lambda (#{e\ 2668}# #{r\ 2669}# #{w\ 2670}# #{s\ 2671}# #{mod\ 2672}#) ((lambda (#{tmp\ 2678}#) ((lambda (#{tmp\ 2679}#) (if #{tmp\ 2679}# (apply (lambda (#{_\ 2682}# #{e\ 2683}#) (#{build-data\ 210}# #{s\ 2671}# (#{strip\ 371}# #{e\ 2683}# #{w\ 2670}#))) #{tmp\ 2679}#) ((lambda (#{_\ 2685}#) (syntax-violation 'quote "bad syntax" (#{source-wrap\ 331}# #{e\ 2668}# #{w\ 2670}# #{s\ 2671}# #{mod\ 2672}#))) #{tmp\ 2678}#))) ($sc-dispatch #{tmp\ 2678}# (quote (any any))))) #{e\ 2668}#))) (#{global-extend\ 256}# 'core 'syntax (letrec ((#{regen\ 2701}# (lambda (#{x\ 2702}#) (let ((#{atom-key\ 2706}# (car #{x\ 2702}#))) (if (memv #{atom-key\ 2706}# (quote (ref))) (#{build-lexical-reference\ 188}# 'value #f (cadr #{x\ 2702}#) (cadr #{x\ 2702}#)) (if (memv #{atom-key\ 2706}# (quote (primitive))) (#{build-primref\ 208}# #f (cadr #{x\ 2702}#)) (if (memv #{atom-key\ 2706}# (quote (quote))) (#{build-data\ 210}# #f (cadr #{x\ 2702}#)) (if (memv #{atom-key\ 2706}# (quote (lambda))) (if (list? (cadr #{x\ 2702}#)) (#{build-simple-lambda\ 202}# #f (cadr #{x\ 2702}#) #f (cadr #{x\ 2702}#) #f (#{regen\ 2701}# (caddr #{x\ 2702}#))) (error "how did we get here" #{x\ 2702}#)) (#{build-application\ 184}# #f (#{build-primref\ 208}# #f (car #{x\ 2702}#)) (map #{regen\ 2701}# (cdr #{x\ 2702}#)))))))))) (#{gen-vector\ 2699}# (lambda (#{x\ 2718}#) (if (eq? (car #{x\ 2718}#) (quote list)) (cons (quote vector) (cdr #{x\ 2718}#)) (if (eq? (car #{x\ 2718}#) (quote quote)) (list 'quote (list->vector (cadr #{x\ 2718}#))) (list (quote list->vector) #{x\ 2718}#))))) (#{gen-append\ 2697}# (lambda (#{x\ 2728}# #{y\ 2729}#) (if (equal? #{y\ 2729}# (quote (quote ()))) #{x\ 2728}# (list (quote append) #{x\ 2728}# #{y\ 2729}#)))) (#{gen-cons\ 2695}# (lambda (#{x\ 2733}# #{y\ 2734}#) (let ((#{atom-key\ 2739}# (car #{y\ 2734}#))) (if (memv #{atom-key\ 2739}# (quote (quote))) (if (eq? (car #{x\ 2733}#) (quote quote)) (list 'quote (cons (cadr #{x\ 2733}#) (cadr #{y\ 2734}#))) (if (eq? (cadr #{y\ 2734}#) (quote ())) (list (quote list) #{x\ 2733}#) (list (quote cons) #{x\ 2733}# #{y\ 2734}#))) (if (memv #{atom-key\ 2739}# (quote (list))) (cons 'list (cons #{x\ 2733}# (cdr #{y\ 2734}#))) (list (quote cons) #{x\ 2733}# #{y\ 2734}#)))))) (#{gen-map\ 2693}# (lambda (#{e\ 2748}# #{map-env\ 2749}#) (let ((#{formals\ 2754}# (map cdr #{map-env\ 2749}#)) (#{actuals\ 2755}# (map (lambda (#{x\ 2756}#) (list (quote ref) (car #{x\ 2756}#))) #{map-env\ 2749}#))) (if (eq? (car #{e\ 2748}#) (quote ref)) (car #{actuals\ 2755}#) (if (and-map (lambda (#{x\ 2763}#) (if (eq? (car #{x\ 2763}#) (quote ref)) (memq (cadr #{x\ 2763}#) #{formals\ 2754}#) #f)) (cdr #{e\ 2748}#)) (cons 'map (cons (list 'primitive (car #{e\ 2748}#)) (map (let ((#{r\ 2769}# (map cons #{formals\ 2754}# #{actuals\ 2755}#))) (lambda (#{x\ 2770}#) (cdr (assq (cadr #{x\ 2770}#) #{r\ 2769}#)))) (cdr #{e\ 2748}#)))) (cons 'map (cons (list 'lambda #{formals\ 2754}# #{e\ 2748}#) #{actuals\ 2755}#))))))) (#{gen-mappend\ 2691}# (lambda (#{e\ 2774}# #{map-env\ 2775}#) (list 'apply '(primitive append) (#{gen-map\ 2693}# #{e\ 2774}# #{map-env\ 2775}#)))) (#{gen-ref\ 2689}# (lambda (#{src\ 2779}# #{var\ 2780}# #{level\ 2781}# #{maps\ 2782}#) (if (#{fx=\ 167}# #{level\ 2781}# 0) (values #{var\ 2780}# #{maps\ 2782}#) (if (null? #{maps\ 2782}#) (syntax-violation 'syntax "missing ellipsis" #{src\ 2779}#) (call-with-values (lambda () (#{gen-ref\ 2689}# #{src\ 2779}# #{var\ 2780}# (#{fx-\ 165}# #{level\ 2781}# 1) (cdr #{maps\ 2782}#))) (lambda (#{outer-var\ 2787}# #{outer-maps\ 2788}#) (let ((#{b\ 2792}# (assq #{outer-var\ 2787}# (car #{maps\ 2782}#)))) (if #{b\ 2792}# (values (cdr #{b\ 2792}#) #{maps\ 2782}#) (let ((#{inner-var\ 2794}# (#{gen-var\ 373}# (quote tmp)))) (values #{inner-var\ 2794}# (cons (cons (cons #{outer-var\ 2787}# #{inner-var\ 2794}#) (car #{maps\ 2782}#)) #{outer-maps\ 2788}#))))))))))) (#{gen-syntax\ 2687}# (lambda (#{src\ 2795}# #{e\ 2796}# #{r\ 2797}# #{maps\ 2798}# #{ellipsis?\ 2799}# #{mod\ 2800}#) (if (#{id?\ 260}# #{e\ 2796}#) (let ((#{label\ 2808}# (#{id-var-name\ 317}# #{e\ 2796}# '(())))) (let ((#{b\ 2811}# (#{lookup\ 254}# #{label\ 2808}# #{r\ 2797}# #{mod\ 2800}#))) (if (eq? (#{binding-type\ 243}# #{b\ 2811}#) 'syntax) (call-with-values (lambda () (let ((#{var.lev\ 2813}# (#{binding-value\ 245}# #{b\ 2811}#))) (#{gen-ref\ 2689}# #{src\ 2795}# (car #{var.lev\ 2813}#) (cdr #{var.lev\ 2813}#) #{maps\ 2798}#))) (lambda (#{var\ 2814}# #{maps\ 2815}#) (values (list (quote ref) #{var\ 2814}#) #{maps\ 2815}#))) (if (#{ellipsis?\ 2799}# #{e\ 2796}#) (syntax-violation 'syntax "misplaced ellipsis" #{src\ 2795}#) (values (list (quote quote) #{e\ 2796}#) #{maps\ 2798}#))))) ((lambda (#{tmp\ 2820}#) ((lambda (#{tmp\ 2821}#) (if (if #{tmp\ 2821}# (apply (lambda (#{dots\ 2824}# #{e\ 2825}#) (#{ellipsis?\ 2799}# #{dots\ 2824}#)) #{tmp\ 2821}#) #f) (apply (lambda (#{dots\ 2828}# #{e\ 2829}#) (#{gen-syntax\ 2687}# #{src\ 2795}# #{e\ 2829}# #{r\ 2797}# #{maps\ 2798}# (lambda (#{x\ 2830}#) #f) #{mod\ 2800}#)) #{tmp\ 2821}#) ((lambda (#{tmp\ 2832}#) (if (if #{tmp\ 2832}# (apply (lambda (#{x\ 2836}# #{dots\ 2837}# #{y\ 2838}#) (#{ellipsis?\ 2799}# #{dots\ 2837}#)) #{tmp\ 2832}#) #f) (apply (lambda (#{x\ 2842}# #{dots\ 2843}# #{y\ 2844}#) (letrec ((#{f\ 2848}# (lambda (#{y\ 2849}# #{k\ 2850}#) ((lambda (#{tmp\ 2857}#) ((lambda (#{tmp\ 2858}#) (if (if #{tmp\ 2858}# (apply (lambda (#{dots\ 2861}# #{y\ 2862}#) (#{ellipsis?\ 2799}# #{dots\ 2861}#)) #{tmp\ 2858}#) #f) (apply (lambda (#{dots\ 2865}# #{y\ 2866}#) (#{f\ 2848}# #{y\ 2866}# (lambda (#{maps\ 2867}#) (call-with-values (lambda () (#{k\ 2850}# (cons '() #{maps\ 2867}#))) (lambda (#{x\ 2869}# #{maps\ 2870}#) (if (null? (car #{maps\ 2870}#)) (syntax-violation 'syntax "extra ellipsis" #{src\ 2795}#) (values (#{gen-mappend\ 2691}# #{x\ 2869}# (car #{maps\ 2870}#)) (cdr #{maps\ 2870}#)))))))) #{tmp\ 2858}#) ((lambda (#{_\ 2874}#) (call-with-values (lambda () (#{gen-syntax\ 2687}# #{src\ 2795}# #{y\ 2849}# #{r\ 2797}# #{maps\ 2798}# #{ellipsis?\ 2799}# #{mod\ 2800}#)) (lambda (#{y\ 2875}# #{maps\ 2876}#) (call-with-values (lambda () (#{k\ 2850}# #{maps\ 2876}#)) (lambda (#{x\ 2879}# #{maps\ 2880}#) (values (#{gen-append\ 2697}# #{x\ 2879}# #{y\ 2875}#) #{maps\ 2880}#)))))) #{tmp\ 2857}#))) ($sc-dispatch #{tmp\ 2857}# '(any . any)))) #{y\ 2849}#)))) (#{f\ 2848}# #{y\ 2844}# (lambda (#{maps\ 2851}#) (call-with-values (lambda () (#{gen-syntax\ 2687}# #{src\ 2795}# #{x\ 2842}# #{r\ 2797}# (cons '() #{maps\ 2851}#) #{ellipsis?\ 2799}# #{mod\ 2800}#)) (lambda (#{x\ 2853}# #{maps\ 2854}#) (if (null? (car #{maps\ 2854}#)) (syntax-violation 'syntax "extra ellipsis" #{src\ 2795}#) (values (#{gen-map\ 2693}# #{x\ 2853}# (car #{maps\ 2854}#)) (cdr #{maps\ 2854}#))))))))) #{tmp\ 2832}#) ((lambda (#{tmp\ 2883}#) (if #{tmp\ 2883}# (apply (lambda (#{x\ 2886}# #{y\ 2887}#) (call-with-values (lambda () (#{gen-syntax\ 2687}# #{src\ 2795}# #{x\ 2886}# #{r\ 2797}# #{maps\ 2798}# #{ellipsis?\ 2799}# #{mod\ 2800}#)) (lambda (#{x\ 2888}# #{maps\ 2889}#) (call-with-values (lambda () (#{gen-syntax\ 2687}# #{src\ 2795}# #{y\ 2887}# #{r\ 2797}# #{maps\ 2889}# #{ellipsis?\ 2799}# #{mod\ 2800}#)) (lambda (#{y\ 2892}# #{maps\ 2893}#) (values (#{gen-cons\ 2695}# #{x\ 2888}# #{y\ 2892}#) #{maps\ 2893}#)))))) #{tmp\ 2883}#) ((lambda (#{tmp\ 2896}#) (if #{tmp\ 2896}# (apply (lambda (#{e1\ 2899}# #{e2\ 2900}#) (call-with-values (lambda () (#{gen-syntax\ 2687}# #{src\ 2795}# (cons #{e1\ 2899}# #{e2\ 2900}#) #{r\ 2797}# #{maps\ 2798}# #{ellipsis?\ 2799}# #{mod\ 2800}#)) (lambda (#{e\ 2902}# #{maps\ 2903}#) (values (#{gen-vector\ 2699}# #{e\ 2902}#) #{maps\ 2903}#)))) #{tmp\ 2896}#) ((lambda (#{_\ 2907}#) (values (list 'quote #{e\ 2796}#) #{maps\ 2798}#)) #{tmp\ 2820}#))) ($sc-dispatch #{tmp\ 2820}# '#(vector (any . each-any)))))) ($sc-dispatch #{tmp\ 2820}# '(any . any))))) ($sc-dispatch #{tmp\ 2820}# '(any any . any))))) ($sc-dispatch #{tmp\ 2820}# (quote (any any))))) #{e\ 2796}#))))) (lambda (#{e\ 2909}# #{r\ 2910}# #{w\ 2911}# #{s\ 2912}# #{mod\ 2913}#) (let ((#{e\ 2920}# (#{source-wrap\ 331}# #{e\ 2909}# #{w\ 2911}# #{s\ 2912}# #{mod\ 2913}#))) ((lambda (#{tmp\ 2921}#) ((lambda (#{tmp\ 2922}#) (if #{tmp\ 2922}# (apply (lambda (#{_\ 2925}# #{x\ 2926}#) (call-with-values (lambda () (#{gen-syntax\ 2687}# #{e\ 2920}# #{x\ 2926}# #{r\ 2910}# '() #{ellipsis?\ 361}# #{mod\ 2913}#)) (lambda (#{e\ 2927}# #{maps\ 2928}#) (#{regen\ 2701}# #{e\ 2927}#)))) #{tmp\ 2922}#) ((lambda (#{_\ 2932}#) (syntax-violation 'syntax "bad `syntax' form" #{e\ 2920}#)) #{tmp\ 2921}#))) ($sc-dispatch #{tmp\ 2921}# (quote (any any))))) #{e\ 2920}#))))) (#{global-extend\ 256}# 'core 'lambda (lambda (#{e\ 2933}# #{r\ 2934}# #{w\ 2935}# #{s\ 2936}# #{mod\ 2937}#) ((lambda (#{tmp\ 2943}#) ((lambda (#{tmp\ 2944}#) (if (if #{tmp\ 2944}# (apply (lambda (#{_\ 2950}# #{args\ 2951}# #{docstring\ 2952}# #{e1\ 2953}# #{e2\ 2954}#) (string? (syntax->datum #{docstring\ 2952}#))) #{tmp\ 2944}#) #f) (apply (lambda (#{_\ 2960}# #{args\ 2961}# #{docstring\ 2962}# #{e1\ 2963}# #{e2\ 2964}#) (call-with-values (lambda () (#{lambda-formals\ 363}# #{args\ 2961}#)) (lambda (#{req\ 2965}# #{opt\ 2966}# #{rest\ 2967}# #{kw\ 2968}#) (#{chi-simple-lambda\ 365}# #{e\ 2933}# #{r\ 2934}# #{w\ 2935}# #{s\ 2936}# #{mod\ 2937}# #{req\ 2965}# #{rest\ 2967}# (syntax->datum #{docstring\ 2962}#) (cons #{e1\ 2963}# #{e2\ 2964}#))))) #{tmp\ 2944}#) ((lambda (#{tmp\ 2974}#) (if #{tmp\ 2974}# (apply (lambda (#{_\ 2979}# #{args\ 2980}# #{e1\ 2981}# #{e2\ 2982}#) (call-with-values (lambda () (#{lambda-formals\ 363}# #{args\ 2980}#)) (lambda (#{req\ 2983}# #{opt\ 2984}# #{rest\ 2985}# #{kw\ 2986}#) (#{chi-simple-lambda\ 365}# #{e\ 2933}# #{r\ 2934}# #{w\ 2935}# #{s\ 2936}# #{mod\ 2937}# #{req\ 2983}# #{rest\ 2985}# #f (cons #{e1\ 2981}# #{e2\ 2982}#))))) #{tmp\ 2974}#) ((lambda (#{_\ 2993}#) (syntax-violation 'lambda "bad lambda" #{e\ 2933}#)) #{tmp\ 2943}#))) ($sc-dispatch #{tmp\ 2943}# '(any any any . each-any))))) ($sc-dispatch #{tmp\ 2943}# '(any any any any . each-any)))) #{e\ 2933}#))) (#{global-extend\ 256}# 'core 'lambda* (lambda (#{e\ 2994}# #{r\ 2995}# #{w\ 2996}# #{s\ 2997}# #{mod\ 2998}#) ((lambda (#{tmp\ 3004}#) ((lambda (#{tmp\ 3005}#) (if #{tmp\ 3005}# (apply (lambda (#{_\ 3010}# #{args\ 3011}# #{e1\ 3012}# #{e2\ 3013}#) (call-with-values (lambda () (#{chi-lambda-case\ 369}# #{e\ 2994}# #{r\ 2995}# #{w\ 2996}# #{s\ 2997}# #{mod\ 2998}# #{lambda*-formals\ 367}# (list (cons #{args\ 3011}# (cons #{e1\ 3012}# #{e2\ 3013}#))))) (lambda (#{docstring\ 3015}# #{lcase\ 3016}#) (#{build-case-lambda\ 204}# #{s\ 2997}# #{docstring\ 3015}# #{lcase\ 3016}#)))) #{tmp\ 3005}#) ((lambda (#{_\ 3020}#) (syntax-violation 'lambda "bad lambda*" #{e\ 2994}#)) #{tmp\ 3004}#))) ($sc-dispatch #{tmp\ 3004}# '(any any any . each-any)))) #{e\ 2994}#))) (#{global-extend\ 256}# 'core 'case-lambda (lambda (#{e\ 3021}# #{r\ 3022}# #{w\ 3023}# #{s\ 3024}# #{mod\ 3025}#) ((lambda (#{tmp\ 3031}#) ((lambda (#{tmp\ 3032}#) (if #{tmp\ 3032}# (apply (lambda (#{_\ 3040}# #{args\ 3041}# #{e1\ 3042}# #{e2\ 3043}# #{args*\ 3044}# #{e1*\ 3045}# #{e2*\ 3046}#) (call-with-values (lambda () (#{chi-lambda-case\ 369}# #{e\ 3021}# #{r\ 3022}# #{w\ 3023}# #{s\ 3024}# #{mod\ 3025}# #{lambda-formals\ 363}# (cons (cons #{args\ 3041}# (cons #{e1\ 3042}# #{e2\ 3043}#)) (map (lambda (#{tmp\ 3050}# #{tmp\ 3049}# #{tmp\ 3048}#) (cons #{tmp\ 3048}# (cons #{tmp\ 3049}# #{tmp\ 3050}#))) #{e2*\ 3046}# #{e1*\ 3045}# #{args*\ 3044}#)))) (lambda (#{docstring\ 3052}# #{lcase\ 3053}#) (#{build-case-lambda\ 204}# #{s\ 3024}# #{docstring\ 3052}# #{lcase\ 3053}#)))) #{tmp\ 3032}#) ((lambda (#{_\ 3057}#) (syntax-violation 'case-lambda "bad case-lambda" #{e\ 3021}#)) #{tmp\ 3031}#))) ($sc-dispatch #{tmp\ 3031}# '(any (any any . each-any) . #(each (any any . each-any)))))) #{e\ 3021}#))) (#{global-extend\ 256}# 'core 'case-lambda* (lambda (#{e\ 3058}# #{r\ 3059}# #{w\ 3060}# #{s\ 3061}# #{mod\ 3062}#) ((lambda (#{tmp\ 3068}#) ((lambda (#{tmp\ 3069}#) (if #{tmp\ 3069}# (apply (lambda (#{_\ 3077}# #{args\ 3078}# #{e1\ 3079}# #{e2\ 3080}# #{args*\ 3081}# #{e1*\ 3082}# #{e2*\ 3083}#) (call-with-values (lambda () (#{chi-lambda-case\ 369}# #{e\ 3058}# #{r\ 3059}# #{w\ 3060}# #{s\ 3061}# #{mod\ 3062}# #{lambda*-formals\ 367}# (cons (cons #{args\ 3078}# (cons #{e1\ 3079}# #{e2\ 3080}#)) (map (lambda (#{tmp\ 3087}# #{tmp\ 3086}# #{tmp\ 3085}#) (cons #{tmp\ 3085}# (cons #{tmp\ 3086}# #{tmp\ 3087}#))) #{e2*\ 3083}# #{e1*\ 3082}# #{args*\ 3081}#)))) (lambda (#{docstring\ 3089}# #{lcase\ 3090}#) (#{build-case-lambda\ 204}# #{s\ 3061}# #{docstring\ 3089}# #{lcase\ 3090}#)))) #{tmp\ 3069}#) ((lambda (#{_\ 3094}#) (syntax-violation 'case-lambda "bad case-lambda*" #{e\ 3058}#)) #{tmp\ 3068}#))) ($sc-dispatch #{tmp\ 3068}# '(any (any any . each-any) . #(each (any any . each-any)))))) #{e\ 3058}#))) (#{global-extend\ 256}# 'core 'let (letrec ((#{chi-let\ 3096}# (lambda (#{e\ 3097}# #{r\ 3098}# #{w\ 3099}# #{s\ 3100}# #{mod\ 3101}# #{constructor\ 3102}# #{ids\ 3103}# #{vals\ 3104}# #{exps\ 3105}#) (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3103}#)) (syntax-violation 'let "duplicate bound variable" #{e\ 3097}#) (let ((#{labels\ 3117}# (#{gen-labels\ 278}# #{ids\ 3103}#)) (#{new-vars\ 3118}# (map #{gen-var\ 373}# #{ids\ 3103}#))) (let ((#{nw\ 3121}# (#{make-binding-wrap\ 307}# #{ids\ 3103}# #{labels\ 3117}# #{w\ 3099}#)) (#{nr\ 3122}# (#{extend-var-env\ 250}# #{labels\ 3117}# #{new-vars\ 3118}# #{r\ 3098}#))) (#{constructor\ 3102}# #{s\ 3100}# (map syntax->datum #{ids\ 3103}#) #{new-vars\ 3118}# (map (lambda (#{x\ 3123}#) (#{chi\ 345}# #{x\ 3123}# #{r\ 3098}# #{w\ 3099}# #{mod\ 3101}#)) #{vals\ 3104}#) (#{chi-body\ 353}# #{exps\ 3105}# (#{source-wrap\ 331}# #{e\ 3097}# #{nw\ 3121}# #{s\ 3100}# #{mod\ 3101}#) #{nr\ 3122}# #{nw\ 3121}# #{mod\ 3101}#)))))))) (lambda (#{e\ 3125}# #{r\ 3126}# #{w\ 3127}# #{s\ 3128}# #{mod\ 3129}#) ((lambda (#{tmp\ 3135}#) ((lambda (#{tmp\ 3136}#) (if (if #{tmp\ 3136}# (apply (lambda (#{_\ 3142}# #{id\ 3143}# #{val\ 3144}# #{e1\ 3145}# #{e2\ 3146}#) (and-map #{id?\ 260}# #{id\ 3143}#)) #{tmp\ 3136}#) #f) (apply (lambda (#{_\ 3153}# #{id\ 3154}# #{val\ 3155}# #{e1\ 3156}# #{e2\ 3157}#) (#{chi-let\ 3096}# #{e\ 3125}# #{r\ 3126}# #{w\ 3127}# #{s\ 3128}# #{mod\ 3129}# #{build-let\ 214}# #{id\ 3154}# #{val\ 3155}# (cons #{e1\ 3156}# #{e2\ 3157}#))) #{tmp\ 3136}#) ((lambda (#{tmp\ 3161}#) (if (if #{tmp\ 3161}# (apply (lambda (#{_\ 3168}# #{f\ 3169}# #{id\ 3170}# #{val\ 3171}# #{e1\ 3172}# #{e2\ 3173}#) (if (#{id?\ 260}# #{f\ 3169}#) (and-map #{id?\ 260}# #{id\ 3170}#) #f)) #{tmp\ 3161}#) #f) (apply (lambda (#{_\ 3183}# #{f\ 3184}# #{id\ 3185}# #{val\ 3186}# #{e1\ 3187}# #{e2\ 3188}#) (#{chi-let\ 3096}# #{e\ 3125}# #{r\ 3126}# #{w\ 3127}# #{s\ 3128}# #{mod\ 3129}# #{build-named-let\ 216}# (cons #{f\ 3184}# #{id\ 3185}#) #{val\ 3186}# (cons #{e1\ 3187}# #{e2\ 3188}#))) #{tmp\ 3161}#) ((lambda (#{_\ 3193}#) (syntax-violation 'let "bad let" (#{source-wrap\ 331}# #{e\ 3125}# #{w\ 3127}# #{s\ 3128}# #{mod\ 3129}#))) #{tmp\ 3135}#))) ($sc-dispatch #{tmp\ 3135}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch #{tmp\ 3135}# '(any #(each (any any)) any . each-any)))) #{e\ 3125}#)))) (#{global-extend\ 256}# 'core 'letrec (lambda (#{e\ 3194}# #{r\ 3195}# #{w\ 3196}# #{s\ 3197}# #{mod\ 3198}#) ((lambda (#{tmp\ 3204}#) ((lambda (#{tmp\ 3205}#) (if (if #{tmp\ 3205}# (apply (lambda (#{_\ 3211}# #{id\ 3212}# #{val\ 3213}# #{e1\ 3214}# #{e2\ 3215}#) (and-map #{id?\ 260}# #{id\ 3212}#)) #{tmp\ 3205}#) #f) (apply (lambda (#{_\ 3222}# #{id\ 3223}# #{val\ 3224}# #{e1\ 3225}# #{e2\ 3226}#) (let ((#{ids\ 3228}# #{id\ 3223}#)) (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3228}#)) (syntax-violation 'letrec "duplicate bound variable" #{e\ 3194}#) (let ((#{labels\ 3232}# (#{gen-labels\ 278}# #{ids\ 3228}#)) (#{new-vars\ 3233}# (map #{gen-var\ 373}# #{ids\ 3228}#))) (let ((#{w\ 3236}# (#{make-binding-wrap\ 307}# #{ids\ 3228}# #{labels\ 3232}# #{w\ 3196}#)) (#{r\ 3237}# (#{extend-var-env\ 250}# #{labels\ 3232}# #{new-vars\ 3233}# #{r\ 3195}#))) (#{build-letrec\ 218}# #{s\ 3197}# (map syntax->datum #{ids\ 3228}#) #{new-vars\ 3233}# (map (lambda (#{x\ 3238}#) (#{chi\ 345}# #{x\ 3238}# #{r\ 3237}# #{w\ 3236}# #{mod\ 3198}#)) #{val\ 3224}#) (#{chi-body\ 353}# (cons #{e1\ 3225}# #{e2\ 3226}#) (#{source-wrap\ 331}# #{e\ 3194}# #{w\ 3236}# #{s\ 3197}# #{mod\ 3198}#) #{r\ 3237}# #{w\ 3236}# #{mod\ 3198}#))))))) #{tmp\ 3205}#) ((lambda (#{_\ 3243}#) (syntax-violation 'letrec "bad letrec" (#{source-wrap\ 331}# #{e\ 3194}# #{w\ 3196}# #{s\ 3197}# #{mod\ 3198}#))) #{tmp\ 3204}#))) ($sc-dispatch #{tmp\ 3204}# '(any #(each (any any)) any . each-any)))) #{e\ 3194}#))) (#{global-extend\ 256}# 'core 'set! (lambda (#{e\ 3244}# #{r\ 3245}# #{w\ 3246}# #{s\ 3247}# #{mod\ 3248}#) ((lambda (#{tmp\ 3254}#) ((lambda (#{tmp\ 3255}#) (if (if #{tmp\ 3255}# (apply (lambda (#{_\ 3259}# #{id\ 3260}# #{val\ 3261}#) (#{id?\ 260}# #{id\ 3260}#)) #{tmp\ 3255}#) #f) (apply (lambda (#{_\ 3265}# #{id\ 3266}# #{val\ 3267}#) (let ((#{val\ 3270}# (#{chi\ 345}# #{val\ 3267}# #{r\ 3245}# #{w\ 3246}# #{mod\ 3248}#)) (#{n\ 3271}# (#{id-var-name\ 317}# #{id\ 3266}# #{w\ 3246}#))) (let ((#{b\ 3273}# (#{lookup\ 254}# #{n\ 3271}# #{r\ 3245}# #{mod\ 3248}#))) (let ((#{atom-key\ 3276}# (#{binding-type\ 243}# #{b\ 3273}#))) (if (memv #{atom-key\ 3276}# '(lexical)) (#{build-lexical-assignment\ 190}# #{s\ 3247}# (syntax->datum #{id\ 3266}#) (#{binding-value\ 245}# #{b\ 3273}#) #{val\ 3270}#) (if (memv #{atom-key\ 3276}# '(global)) (#{build-global-assignment\ 196}# #{s\ 3247}# #{n\ 3271}# #{val\ 3270}# #{mod\ 3248}#) (if (memv #{atom-key\ 3276}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" (#{wrap\ 329}# #{id\ 3266}# #{w\ 3246}# #{mod\ 3248}#)) (syntax-violation 'set! "bad set!" (#{source-wrap\ 331}# #{e\ 3244}# #{w\ 3246}# #{s\ 3247}# #{mod\ 3248}#))))))))) #{tmp\ 3255}#) ((lambda (#{tmp\ 3281}#) (if #{tmp\ 3281}# (apply (lambda (#{_\ 3286}# #{head\ 3287}# #{tail\ 3288}# #{val\ 3289}#) (call-with-values (lambda () (#{syntax-type\ 341}# #{head\ 3287}# #{r\ 3245}# '(()) #f #f #{mod\ 3248}# #t)) (lambda (#{type\ 3292}# #{value\ 3293}# #{ee\ 3294}# #{ww\ 3295}# #{ss\ 3296}# #{modmod\ 3297}#) (if (memv #{type\ 3292}# '(module-ref)) (let ((#{val\ 3306}# (#{chi\ 345}# #{val\ 3289}# #{r\ 3245}# #{w\ 3246}# #{mod\ 3248}#))) (call-with-values (lambda () (#{value\ 3293}# (cons #{head\ 3287}# #{tail\ 3288}#))) (lambda (#{id\ 3308}# #{mod\ 3309}#) (#{build-global-assignment\ 196}# #{s\ 3247}# #{id\ 3308}# #{val\ 3306}# #{mod\ 3309}#)))) (#{build-application\ 184}# #{s\ 3247}# (#{chi\ 345}# (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type value ee ww ss modmod) #((top) (top) (top) (top) (top) (top)) #("i3298" "i3299" "i3300" "i3301" "i3302" "i3303")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) #("i3282" "i3283" "i3284" "i3285")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top)) #("i3249" "i3250" "i3251" "i3252" "i3253")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) #{head\ 3287}#) #{r\ 3245}# #{w\ 3246}# #{mod\ 3248}#) (map (lambda (#{e\ 3313}#) (#{chi\ 345}# #{e\ 3313}# #{r\ 3245}# #{w\ 3246}# #{mod\ 3248}#)) (append #{tail\ 3288}# (list #{val\ 3289}#)))))))) #{tmp\ 3281}#) ((lambda (#{_\ 3317}#) (syntax-violation 'set! "bad set!" (#{source-wrap\ 331}# #{e\ 3244}# #{w\ 3246}# #{s\ 3247}# #{mod\ 3248}#))) #{tmp\ 3254}#))) ($sc-dispatch #{tmp\ 3254}# '(any (any . each-any) any))))) ($sc-dispatch #{tmp\ 3254}# '(any any any)))) #{e\ 3244}#))) (#{global-extend\ 256}# 'module-ref '@ (lambda (#{e\ 3318}#) ((lambda (#{tmp\ 3320}#) ((lambda (#{tmp\ 3321}#) (if (if #{tmp\ 3321}# (apply (lambda (#{_\ 3325}# #{mod\ 3326}# #{id\ 3327}#) (if (and-map #{id?\ 260}# #{mod\ 3326}#) (#{id?\ 260}# #{id\ 3327}#) #f)) #{tmp\ 3321}#) #f) (apply (lambda (#{_\ 3334}# #{mod\ 3335}# #{id\ 3336}#) (values (syntax->datum #{id\ 3336}#) (syntax->datum (cons '#(syntax-object public ((top) #(ribcage #(_ mod id) #((top) (top) (top)) #("i3331" "i3332" "i3333")) #(ribcage () () ()) #(ribcage #(e) #((top)) #("i3319")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) #{mod\ 3335}#)))) #{tmp\ 3321}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3320}#))) ($sc-dispatch #{tmp\ 3320}# '(any each-any any)))) #{e\ 3318}#))) (#{global-extend\ 256}# 'module-ref '@@ (lambda (#{e\ 3338}#) ((lambda (#{tmp\ 3340}#) ((lambda (#{tmp\ 3341}#) (if (if #{tmp\ 3341}# (apply (lambda (#{_\ 3345}# #{mod\ 3346}# #{id\ 3347}#) (if (and-map #{id?\ 260}# #{mod\ 3346}#) (#{id?\ 260}# #{id\ 3347}#) #f)) #{tmp\ 3341}#) #f) (apply (lambda (#{_\ 3354}# #{mod\ 3355}# #{id\ 3356}#) (values (syntax->datum #{id\ 3356}#) (syntax->datum (cons '#(syntax-object private ((top) #(ribcage #(_ mod id) #((top) (top) (top)) #("i3351" "i3352" "i3353")) #(ribcage () () ()) #(ribcage #(e) #((top)) #("i3339")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) #{mod\ 3355}#)))) #{tmp\ 3341}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3340}#))) ($sc-dispatch #{tmp\ 3340}# '(any each-any any)))) #{e\ 3338}#))) (#{global-extend\ 256}# 'core 'if (lambda (#{e\ 3358}# #{r\ 3359}# #{w\ 3360}# #{s\ 3361}# #{mod\ 3362}#) ((lambda (#{tmp\ 3368}#) ((lambda (#{tmp\ 3369}#) (if #{tmp\ 3369}# (apply (lambda (#{_\ 3373}# #{test\ 3374}# #{then\ 3375}#) (#{build-conditional\ 186}# #{s\ 3361}# (#{chi\ 345}# #{test\ 3374}# #{r\ 3359}# #{w\ 3360}# #{mod\ 3362}#) (#{chi\ 345}# #{then\ 3375}# #{r\ 3359}# #{w\ 3360}# #{mod\ 3362}#) (#{build-void\ 182}# #f))) #{tmp\ 3369}#) ((lambda (#{tmp\ 3377}#) (if #{tmp\ 3377}# (apply (lambda (#{_\ 3382}# #{test\ 3383}# #{then\ 3384}# #{else\ 3385}#) (#{build-conditional\ 186}# #{s\ 3361}# (#{chi\ 345}# #{test\ 3383}# #{r\ 3359}# #{w\ 3360}# #{mod\ 3362}#) (#{chi\ 345}# #{then\ 3384}# #{r\ 3359}# #{w\ 3360}# #{mod\ 3362}#) (#{chi\ 345}# #{else\ 3385}# #{r\ 3359}# #{w\ 3360}# #{mod\ 3362}#))) #{tmp\ 3377}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3368}#))) ($sc-dispatch #{tmp\ 3368}# '(any any any any))))) ($sc-dispatch #{tmp\ 3368}# '(any any any)))) #{e\ 3358}#))) (#{global-extend\ 256}# 'begin 'begin '()) (#{global-extend\ 256}# 'define 'define '()) (#{global-extend\ 256}# 'define-syntax 'define-syntax '()) (#{global-extend\ 256}# 'eval-when 'eval-when '()) (#{global-extend\ 256}# 'core 'syntax-case (letrec ((#{gen-syntax-case\ 3393}# (lambda (#{x\ 3394}# #{keys\ 3395}# #{clauses\ 3396}# #{r\ 3397}# #{mod\ 3398}#) (if (null? #{clauses\ 3396}#) (#{build-application\ 184}# #f (#{build-primref\ 208}# #f 'syntax-violation) (list (#{build-data\ 210}# #f #f) (#{build-data\ 210}# #f "source expression failed to match any pattern") #{x\ 3394}#)) ((lambda (#{tmp\ 3408}#) ((lambda (#{tmp\ 3409}#) (if #{tmp\ 3409}# (apply (lambda (#{pat\ 3412}# #{exp\ 3413}#) (if (if (#{id?\ 260}# #{pat\ 3412}#) (and-map (lambda (#{x\ 3416}#) (not (#{free-id=?\ 319}# #{pat\ 3412}# #{x\ 3416}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) #("i3410" "i3411")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i3399" "i3400" "i3401" "i3402" "i3403")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3392" "i3390" "i3388" "i3386")) #(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-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+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i374" "i372" "i370" "i368" "i366" "i364" "i362" "i360" "i358" "i356" "i354" "i352" "i350" "i348" "i346" "i344" "i342" "i340" "i338" "i336" "i334" "i332" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i310" "i308" "i306" "i304" "i303" "i302" "i300" "i299" "i298" "i297" "i296" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i277" "i275" "i274" "i273" "i272" "i271" "i270" "i268" "i266" "i264" "i262" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i246" "i244" "i242" "i241" "i240" "i238" "i237" "i235" "i233" "i231" "i229" "i227" "i225" "i223" "i221" "i219" "i217" "i215" "i213" "i211" "i209" "i207" "i205" "i203" "i201" "i199" "i197" "i195" "i193" "i191" "i189" "i187" "i185" "i183" "i181" "i179" "i177" "i175" "i174" "i172" "i170" "i168" "i166" "i164" "i162" "i160" "i158")) #(ribcage (define-structure and-map*) ((top) (top)) ("i61" "i59"))) (hygiene guile)) #{keys\ 3395}#)) #f) (let ((#{labels\ 3420}# (list (#{gen-label\ 276}#))) (#{var\ 3421}# (#{gen-var\ 373}# #{pat\ 3412}#))) (#{build-application\ 184}# #f (#{build-simple-lambda\ 202}# #f (list (syntax->datum #{pat\ 3412}#)) #f (list #{var\ 3421}#) #f (#{chi\ 345}# #{exp\ 3413}# (#{extend-env\ 248}# #{labels\ 3420}# (list (cons 'syntax (cons #{var\ 3421}# 0))) #{r\ 3397}#) (#{make-binding-wrap\ 307}# (list #{pat\ 3412}#) #{labels\ 3420}# '(())) #{mod\ 3398}#)) (list #{x\ 3394}#))) (#{gen-clause\ 3391}# #{x\ 3394}# #{keys\ 3395}# (cdr #{clauses\ 3396}#) #{r\ 3397}# #{pat\ 3412}# #t #{exp\ 3413}# #{mod\ 3398}#))) #{tmp\ 3409}#) ((lambda (#{tmp\ 3427}#) (if #{tmp\ 3427}# (apply (lambda (#{pat\ 3431}# #{fender\ 3432}# #{exp\ 3433}#) (#{gen-clause\ 3391}# #{x\ 3394}# #{keys\ 3395}# (cdr #{clauses\ 3396}#) #{r\ 3397}# #{pat\ 3431}# #{fender\ 3432}# #{exp\ 3433}# #{mod\ 3398}#)) #{tmp\ 3427}#) ((lambda (#{_\ 3435}#) (syntax-violation 'syntax-case "invalid clause" (car #{clauses\ 3396}#))) #{tmp\ 3408}#))) ($sc-dispatch #{tmp\ 3408}# '(any any any))))) ($sc-dispatch #{tmp\ 3408}# (quote (any any))))) (car #{clauses\ 3396}#))))) (#{gen-clause\ 3391}# (lambda (#{x\ 3436}# #{keys\ 3437}# #{clauses\ 3438}# #{r\ 3439}# #{pat\ 3440}# #{fender\ 3441}# #{exp\ 3442}# #{mod\ 3443}#) (call-with-values (lambda () (#{convert-pattern\ 3387}# #{pat\ 3440}# #{keys\ 3437}#)) (lambda (#{p\ 3452}# #{pvars\ 3453}#) (if (not (#{distinct-bound-ids?\ 325}# (map car #{pvars\ 3453}#))) (syntax-violation 'syntax-case "duplicate pattern variable" #{pat\ 3440}#) (if (not (and-map (lambda (#{x\ 3460}#) (not (#{ellipsis?\ 361}# (car #{x\ 3460}#)))) #{pvars\ 3453}#)) (syntax-violation 'syntax-case "misplaced ellipsis" #{pat\ 3440}#) (let ((#{y\ 3464}# (#{gen-var\ 373}# (quote tmp)))) (#{build-application\ 184}# #f (#{build-simple-lambda\ 202}# #f (list (quote tmp)) #f (list #{y\ 3464}#) #f (let ((#{y\ 3468}# (#{build-lexical-reference\ 188}# 'value #f 'tmp #{y\ 3464}#))) (#{build-conditional\ 186}# #f ((lambda (#{tmp\ 3471}#) ((lambda (#{tmp\ 3472}#) (if #{tmp\ 3472}# (apply (lambda () #{y\ 3468}#) #{tmp\ 3472}#) ((lambda (#{_\ 3474}#) (#{build-conditional\ 186}# #f #{y\ 3468}# (#{build-dispatch-call\ 3389}# #{pvars\ 3453}# #{fender\ 3441}# #{y\ 3468}# #{r\ 3439}# #{mod\ 3443}#) (#{build-data\ 210}# #f #f))) #{tmp\ 3471}#))) ($sc-dispatch #{tmp\ 3471}# '#(atom #t)))) #{fender\ 3441}#) (#{build-dispatch-call\ 3389}# #{pvars\ 3453}# #{exp\ 3442}# #{y\ 3468}# #{r\ 3439}# #{mod\ 3443}#) (#{gen-syntax-case\ 3393}# #{x\ 3436}# #{keys\ 3437}# #{clauses\ 3438}# #{r\ 3439}# #{mod\ 3443}#)))) (list (if (eq? #{p\ 3452}# (quote any)) (#{build-application\ 184}# #f (#{build-primref\ 208}# #f 'list) (list #{x\ 3436}#)) (#{build-application\ 184}# #f (#{build-primref\ 208}# #f '$sc-dispatch) (list #{x\ 3436}# (#{build-data\ 210}# #f #{p\ 3452}#))))))))))))) (#{build-dispatch-call\ 3389}# (lambda (#{pvars\ 3482}# #{exp\ 3483}# #{y\ 3484}# #{r\ 3485}# #{mod\ 3486}#) (let ((#{ids\ 3494}# (map car #{pvars\ 3482}#)) (#{levels\ 3495}# (map cdr #{pvars\ 3482}#))) (let ((#{labels\ 3498}# (#{gen-labels\ 278}# #{ids\ 3494}#)) (#{new-vars\ 3499}# (map #{gen-var\ 373}# #{ids\ 3494}#))) (#{build-application\ 184}# #f (#{build-primref\ 208}# #f (quote apply)) (list (#{build-simple-lambda\ 202}# #f (map syntax->datum #{ids\ 3494}#) #f #{new-vars\ 3499}# #f (#{chi\ 345}# #{exp\ 3483}# (#{extend-env\ 248}# #{labels\ 3498}# (map (lambda (#{var\ 3503}# #{level\ 3504}#) (cons 'syntax (cons #{var\ 3503}# #{level\ 3504}#))) #{new-vars\ 3499}# (map cdr #{pvars\ 3482}#)) #{r\ 3485}#) (#{make-binding-wrap\ 307}# #{ids\ 3494}# #{labels\ 3498}# '(())) #{mod\ 3486}#)) #{y\ 3484}#)))))) (#{convert-pattern\ 3387}# (lambda (#{pattern\ 3510}# #{keys\ 3511}#) (letrec ((#{cvt\ 3517}# (lambda (#{p\ 3518}# #{n\ 3519}# #{ids\ 3520}#) (if (#{id?\ 260}# #{p\ 3518}#) (if (#{bound-id-member?\ 327}# #{p\ 3518}# #{keys\ 3511}#) (values (vector (quote free-id) #{p\ 3518}#) #{ids\ 3520}#) (values 'any (cons (cons #{p\ 3518}# #{n\ 3519}#) #{ids\ 3520}#))) ((lambda (#{tmp\ 3524}#) ((lambda (#{tmp\ 3525}#) (if (if #{tmp\ 3525}# (apply (lambda (#{x\ 3528}# #{dots\ 3529}#) (#{ellipsis?\ 361}# #{dots\ 3529}#)) #{tmp\ 3525}#) #f) (apply (lambda (#{x\ 3532}# #{dots\ 3533}#) (call-with-values (lambda () (#{cvt\ 3517}# #{x\ 3532}# (#{fx+\ 163}# #{n\ 3519}# 1) #{ids\ 3520}#)) (lambda (#{p\ 3534}# #{ids\ 3535}#) (values (if (eq? #{p\ 3534}# 'any) 'each-any (vector 'each #{p\ 3534}#)) #{ids\ 3535}#)))) #{tmp\ 3525}#) ((lambda (#{tmp\ 3538}#) (if (if #{tmp\ 3538}# (apply (lambda (#{x\ 3542}# #{dots\ 3543}# #{ys\ 3544}#) (#{ellipsis?\ 361}# #{dots\ 3543}#)) #{tmp\ 3538}#) #f) (apply (lambda (#{x\ 3548}# #{dots\ 3549}# #{ys\ 3550}#) (call-with-values (lambda () (#{cvt*\ 3515}# #{ys\ 3550}# #{n\ 3519}# #{ids\ 3520}#)) (lambda (#{ys\ 3552}# #{ids\ 3553}#) (call-with-values (lambda () (#{cvt\ 3517}# #{x\ 3548}# (+ #{n\ 3519}# 1) #{ids\ 3553}#)) (lambda (#{x\ 3556}# #{ids\ 3557}#) (values (list->vector (cons 'each+ (cons #{x\ 3556}# (cons (reverse #{ys\ 3552}#) '(()))))) #{ids\ 3557}#)))))) #{tmp\ 3538}#) ((lambda (#{tmp\ 3561}#) (if #{tmp\ 3561}# (apply (lambda (#{x\ 3564}# #{y\ 3565}#) (call-with-values (lambda () (#{cvt\ 3517}# #{y\ 3565}# #{n\ 3519}# #{ids\ 3520}#)) (lambda (#{y\ 3566}# #{ids\ 3567}#) (call-with-values (lambda () (#{cvt\ 3517}# #{x\ 3564}# #{n\ 3519}# #{ids\ 3567}#)) (lambda (#{x\ 3570}# #{ids\ 3571}#) (values (cons #{x\ 3570}# #{y\ 3566}#) #{ids\ 3571}#)))))) #{tmp\ 3561}#) ((lambda (#{tmp\ 3574}#) (if #{tmp\ 3574}# (apply (lambda () (values '() #{ids\ 3520}#)) #{tmp\ 3574}#) ((lambda (#{tmp\ 3575}#) (if #{tmp\ 3575}# (apply (lambda (#{x\ 3577}#) (call-with-values (lambda () (#{cvt\ 3517}# #{x\ 3577}# #{n\ 3519}# #{ids\ 3520}#)) (lambda (#{p\ 3579}# #{ids\ 3580}#) (values (vector 'vector #{p\ 3579}#) #{ids\ 3580}#)))) #{tmp\ 3575}#) ((lambda (#{x\ 3584}#) (values (vector 'atom (#{strip\ 371}# #{p\ 3518}# '(()))) #{ids\ 3520}#)) #{tmp\ 3524}#))) ($sc-dispatch #{tmp\ 3524}# '#(vector each-any))))) ($sc-dispatch #{tmp\ 3524}# '())))) ($sc-dispatch #{tmp\ 3524}# '(any . any))))) ($sc-dispatch #{tmp\ 3524}# '(any any . each-any))))) ($sc-dispatch #{tmp\ 3524}# '(any any)))) #{p\ 3518}#)))) (#{cvt*\ 3515}# (lambda (#{p*\ 3586}# #{n\ 3587}# #{ids\ 3588}#) (if (null? #{p*\ 3586}#) (values (quote ()) #{ids\ 3588}#) (call-with-values (lambda () (#{cvt*\ 3515}# (cdr #{p*\ 3586}#) #{n\ 3587}# #{ids\ 3588}#)) (lambda (#{y\ 3592}# #{ids\ 3593}#) (call-with-values (lambda () (#{cvt\ 3517}# (car #{p*\ 3586}#) #{n\ 3587}# #{ids\ 3593}#)) (lambda (#{x\ 3596}# #{ids\ 3597}#) (values (cons #{x\ 3596}# #{y\ 3592}#) #{ids\ 3597}#))))))))) (#{cvt\ 3517}# #{pattern\ 3510}# 0 (quote ())))))) (lambda (#{e\ 3600}# #{r\ 3601}# #{w\ 3602}# #{s\ 3603}# #{mod\ 3604}#) (let ((#{e\ 3611}# (#{source-wrap\ 331}# #{e\ 3600}# #{w\ 3602}# #{s\ 3603}# #{mod\ 3604}#))) ((lambda (#{tmp\ 3612}#) ((lambda (#{tmp\ 3613}#) (if #{tmp\ 3613}# (apply (lambda (#{_\ 3618}# #{val\ 3619}# #{key\ 3620}# #{m\ 3621}#) (if (and-map (lambda (#{x\ 3622}#) (if (#{id?\ 260}# #{x\ 3622}#) (not (#{ellipsis?\ 361}# #{x\ 3622}#)) #f)) #{key\ 3620}#) (let ((#{x\ 3628}# (#{gen-var\ 373}# (quote tmp)))) (#{build-application\ 184}# #{s\ 3603}# (#{build-simple-lambda\ 202}# #f (list (quote tmp)) #f (list #{x\ 3628}#) #f (#{gen-syntax-case\ 3393}# (#{build-lexical-reference\ 188}# 'value #f 'tmp #{x\ 3628}#) #{key\ 3620}# #{m\ 3621}# #{r\ 3601}# #{mod\ 3604}#)) (list (#{chi\ 345}# #{val\ 3619}# #{r\ 3601}# '(()) #{mod\ 3604}#)))) (syntax-violation 'syntax-case "invalid literals list" #{e\ 3611}#))) #{tmp\ 3613}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3612}#))) ($sc-dispatch #{tmp\ 3612}# '(any any each-any . each-any)))) #{e\ 3611}#))))) (set! sc-expand (lambda (#{x\ 3634}# . #{rest\ 3635}#) (if (if (pair? #{x\ 3634}#) (equal? (car #{x\ 3634}#) #{noexpand\ 159}#) #f) (cadr #{x\ 3634}#) (let ((#{m\ 3642}# (if (null? #{rest\ 3635}#) 'e (car #{rest\ 3635}#))) (#{esew\ 3643}# (if (let ((#{t\ 3646}# (null? #{rest\ 3635}#))) (if #{t\ 3646}# #{t\ 3646}# (null? (cdr #{rest\ 3635}#)))) '(eval) (cadr #{rest\ 3635}#)))) (with-fluid* #{*mode*\ 161}# #{m\ 3642}# (lambda () (#{chi-top\ 343}# #{x\ 3634}# '() '((top)) #{m\ 3642}# #{esew\ 3643}# (cons 'hygiene (module-name (current-module)))))))))) (set! identifier? (lambda (#{x\ 3650}#) (#{nonsymbol-id?\ 258}# #{x\ 3650}#))) (set! datum->syntax (lambda (#{id\ 3652}# #{datum\ 3653}#) (#{make-syntax-object\ 222}# #{datum\ 3653}# (#{syntax-object-wrap\ 228}# #{id\ 3652}#) #f))) (set! syntax->datum (lambda (#{x\ 3656}#) (#{strip\ 371}# #{x\ 3656}# (quote (()))))) (set! generate-temporaries (lambda (#{ls\ 3659}#) (begin (let ((#{x\ 3663}# #{ls\ 3659}#)) (if (not (list? #{x\ 3663}#)) (syntax-violation 'generate-temporaries "invalid argument" #{x\ 3663}#))) (map (lambda (#{x\ 3664}#) (#{wrap\ 329}# (gensym) (quote ((top))) #f)) #{ls\ 3659}#)))) (set! free-identifier=? (lambda (#{x\ 3668}# #{y\ 3669}#) (begin (let ((#{x\ 3674}# #{x\ 3668}#)) (if (not (#{nonsymbol-id?\ 258}# #{x\ 3674}#)) (syntax-violation 'free-identifier=? "invalid argument" #{x\ 3674}#))) (let ((#{x\ 3677}# #{y\ 3669}#)) (if (not (#{nonsymbol-id?\ 258}# #{x\ 3677}#)) (syntax-violation 'free-identifier=? "invalid argument" #{x\ 3677}#))) (#{free-id=?\ 319}# #{x\ 3668}# #{y\ 3669}#)))) (set! bound-identifier=? (lambda (#{x\ 3678}# #{y\ 3679}#) (begin (let ((#{x\ 3684}# #{x\ 3678}#)) (if (not (#{nonsymbol-id?\ 258}# #{x\ 3684}#)) (syntax-violation 'bound-identifier=? "invalid argument" #{x\ 3684}#))) (let ((#{x\ 3687}# #{y\ 3679}#)) (if (not (#{nonsymbol-id?\ 258}# #{x\ 3687}#)) (syntax-violation 'bound-identifier=? "invalid argument" #{x\ 3687}#))) (#{bound-id=?\ 321}# #{x\ 3678}# #{y\ 3679}#)))) (set! syntax-violation (lambda (#{who\ 3688}# #{message\ 3689}# #{form\ 3690}# . #{subform\ 3691}#) (begin (let ((#{x\ 3698}# #{who\ 3688}#)) (if (not ((lambda (#{x\ 3699}#) (let ((#{t\ 3703}# (not #{x\ 3699}#))) (if #{t\ 3703}# #{t\ 3703}# (let ((#{t\ 3706}# (string? #{x\ 3699}#))) (if #{t\ 3706}# #{t\ 3706}# (symbol? #{x\ 3699}#)))))) #{x\ 3698}#)) (syntax-violation 'syntax-violation "invalid argument" #{x\ 3698}#))) (let ((#{x\ 3710}# #{message\ 3689}#)) (if (not (string? #{x\ 3710}#)) (syntax-violation 'syntax-violation "invalid argument" #{x\ 3710}#))) (scm-error 'syntax-error 'sc-expand (string-append (if #{who\ 3688}# "~a: " "") "~a " (if (null? #{subform\ 3691}#) "in ~a" "in subform `~s' of `~s'")) (let ((#{tail\ 3712}# (cons #{message\ 3689}# (map (lambda (#{x\ 3713}#) (#{strip\ 371}# #{x\ 3713}# (quote (())))) (append #{subform\ 3691}# (list #{form\ 3690}#)))))) (if #{who\ 3688}# (cons #{who\ 3688}# #{tail\ 3712}#) #{tail\ 3712}#)) #f)))) (letrec ((#{match\ 3729}# (lambda (#{e\ 3730}# #{p\ 3731}# #{w\ 3732}# #{r\ 3733}# #{mod\ 3734}#) (if (not #{r\ 3733}#) #f (if (eq? #{p\ 3731}# (quote any)) (cons (#{wrap\ 329}# #{e\ 3730}# #{w\ 3732}# #{mod\ 3734}#) #{r\ 3733}#) (if (#{syntax-object?\ 224}# #{e\ 3730}#) (#{match*\ 3727}# (#{syntax-object-expression\ 226}# #{e\ 3730}#) #{p\ 3731}# (#{join-wraps\ 311}# #{w\ 3732}# (#{syntax-object-wrap\ 228}# #{e\ 3730}#)) #{r\ 3733}# (#{syntax-object-module\ 230}# #{e\ 3730}#)) (#{match*\ 3727}# #{e\ 3730}# #{p\ 3731}# #{w\ 3732}# #{r\ 3733}# #{mod\ 3734}#)))))) (#{match*\ 3727}# (lambda (#{e\ 3747}# #{p\ 3748}# #{w\ 3749}# #{r\ 3750}# #{mod\ 3751}#) (if (null? #{p\ 3748}#) (if (null? #{e\ 3747}#) #{r\ 3750}# #f) (if (pair? #{p\ 3748}#) (if (pair? #{e\ 3747}#) (#{match\ 3729}# (car #{e\ 3747}#) (car #{p\ 3748}#) #{w\ 3749}# (#{match\ 3729}# (cdr #{e\ 3747}#) (cdr #{p\ 3748}#) #{w\ 3749}# #{r\ 3750}# #{mod\ 3751}#) #{mod\ 3751}#) #f) (if (eq? #{p\ 3748}# (quote each-any)) (let ((#{l\ 3768}# (#{match-each-any\ 3721}# #{e\ 3747}# #{w\ 3749}# #{mod\ 3751}#))) (if #{l\ 3768}# (cons #{l\ 3768}# #{r\ 3750}#) #f)) (let ((#{atom-key\ 3774}# (vector-ref #{p\ 3748}# 0))) (if (memv #{atom-key\ 3774}# (quote (each))) (if (null? #{e\ 3747}#) (#{match-empty\ 3723}# (vector-ref #{p\ 3748}# 1) #{r\ 3750}#) (let ((#{l\ 3777}# (#{match-each\ 3717}# #{e\ 3747}# (vector-ref #{p\ 3748}# 1) #{w\ 3749}# #{mod\ 3751}#))) (if #{l\ 3777}# (letrec ((#{collect\ 3782}# (lambda (#{l\ 3783}#) (if (null? (car #{l\ 3783}#)) #{r\ 3750}# (cons (map car #{l\ 3783}#) (#{collect\ 3782}# (map cdr #{l\ 3783}#))))))) (#{collect\ 3782}# #{l\ 3777}#)) #f))) (if (memv #{atom-key\ 3774}# (quote (each+))) (call-with-values (lambda () (#{match-each+\ 3719}# #{e\ 3747}# (vector-ref #{p\ 3748}# 1) (vector-ref #{p\ 3748}# 2) (vector-ref #{p\ 3748}# 3) #{w\ 3749}# #{r\ 3750}# #{mod\ 3751}#)) (lambda (#{xr*\ 3785}# #{y-pat\ 3786}# #{r\ 3787}#) (if #{r\ 3787}# (if (null? #{y-pat\ 3786}#) (if (null? #{xr*\ 3785}#) (#{match-empty\ 3723}# (vector-ref #{p\ 3748}# 1) #{r\ 3787}#) (#{combine\ 3725}# #{xr*\ 3785}# #{r\ 3787}#)) #f) #f))) (if (memv #{atom-key\ 3774}# (quote (free-id))) (if (#{id?\ 260}# #{e\ 3747}#) (if (#{free-id=?\ 319}# (#{wrap\ 329}# #{e\ 3747}# #{w\ 3749}# #{mod\ 3751}#) (vector-ref #{p\ 3748}# 1)) #{r\ 3750}# #f) #f) (if (memv #{atom-key\ 3774}# (quote (atom))) (if (equal? (vector-ref #{p\ 3748}# 1) (#{strip\ 371}# #{e\ 3747}# #{w\ 3749}#)) #{r\ 3750}# #f) (if (memv #{atom-key\ 3774}# '(vector)) (if (vector? #{e\ 3747}#) (#{match\ 3729}# (vector->list #{e\ 3747}#) (vector-ref #{p\ 3748}# 1) #{w\ 3749}# #{r\ 3750}# #{mod\ 3751}#) #f)))))))))))) (#{combine\ 3725}# (lambda (#{r*\ 3804}# #{r\ 3805}#) (if (null? (car #{r*\ 3804}#)) #{r\ 3805}# (cons (map car #{r*\ 3804}#) (#{combine\ 3725}# (map cdr #{r*\ 3804}#) #{r\ 3805}#))))) (#{match-empty\ 3723}# (lambda (#{p\ 3808}# #{r\ 3809}#) (if (null? #{p\ 3808}#) #{r\ 3809}# (if (eq? #{p\ 3808}# (quote any)) (cons (quote ()) #{r\ 3809}#) (if (pair? #{p\ 3808}#) (#{match-empty\ 3723}# (car #{p\ 3808}#) (#{match-empty\ 3723}# (cdr #{p\ 3808}#) #{r\ 3809}#)) (if (eq? #{p\ 3808}# (quote each-any)) (cons (quote ()) #{r\ 3809}#) (let ((#{atom-key\ 3823}# (vector-ref #{p\ 3808}# 0))) (if (memv #{atom-key\ 3823}# (quote (each))) (#{match-empty\ 3723}# (vector-ref #{p\ 3808}# 1) #{r\ 3809}#) (if (memv #{atom-key\ 3823}# (quote (each+))) (#{match-empty\ 3723}# (vector-ref #{p\ 3808}# 1) (#{match-empty\ 3723}# (reverse (vector-ref #{p\ 3808}# 2)) (#{match-empty\ 3723}# (vector-ref #{p\ 3808}# 3) #{r\ 3809}#))) (if (memv #{atom-key\ 3823}# '(free-id atom)) #{r\ 3809}# (if (memv #{atom-key\ 3823}# '(vector)) (#{match-empty\ 3723}# (vector-ref #{p\ 3808}# 1) #{r\ 3809}#)))))))))))) (#{match-each-any\ 3721}# (lambda (#{e\ 3828}# #{w\ 3829}# #{mod\ 3830}#) (if (pair? #{e\ 3828}#) (let ((#{l\ 3837}# (#{match-each-any\ 3721}# (cdr #{e\ 3828}#) #{w\ 3829}# #{mod\ 3830}#))) (if #{l\ 3837}# (cons (#{wrap\ 329}# (car #{e\ 3828}#) #{w\ 3829}# #{mod\ 3830}#) #{l\ 3837}#) #f)) (if (null? #{e\ 3828}#) '() (if (#{syntax-object?\ 224}# #{e\ 3828}#) (#{match-each-any\ 3721}# (#{syntax-object-expression\ 226}# #{e\ 3828}#) (#{join-wraps\ 311}# #{w\ 3829}# (#{syntax-object-wrap\ 228}# #{e\ 3828}#)) #{mod\ 3830}#) #f))))) (#{match-each+\ 3719}# (lambda (#{e\ 3845}# #{x-pat\ 3846}# #{y-pat\ 3847}# #{z-pat\ 3848}# #{w\ 3849}# #{r\ 3850}# #{mod\ 3851}#) (letrec ((#{f\ 3862}# (lambda (#{e\ 3863}# #{w\ 3864}#) (if (pair? #{e\ 3863}#) (call-with-values (lambda () (#{f\ 3862}# (cdr #{e\ 3863}#) #{w\ 3864}#)) (lambda (#{xr*\ 3867}# #{y-pat\ 3868}# #{r\ 3869}#) (if #{r\ 3869}# (if (null? #{y-pat\ 3868}#) (let ((#{xr\ 3874}# (#{match\ 3729}# (car #{e\ 3863}#) #{x-pat\ 3846}# #{w\ 3864}# '() #{mod\ 3851}#))) (if #{xr\ 3874}# (values (cons #{xr\ 3874}# #{xr*\ 3867}#) #{y-pat\ 3868}# #{r\ 3869}#) (values #f #f #f))) (values '() (cdr #{y-pat\ 3868}#) (#{match\ 3729}# (car #{e\ 3863}#) (car #{y-pat\ 3868}#) #{w\ 3864}# #{r\ 3869}# #{mod\ 3851}#))) (values #f #f #f)))) (if (#{syntax-object?\ 224}# #{e\ 3863}#) (#{f\ 3862}# (#{syntax-object-expression\ 226}# #{e\ 3863}#) (#{join-wraps\ 311}# #{w\ 3864}# #{e\ 3863}#)) (values '() #{y-pat\ 3847}# (#{match\ 3729}# #{e\ 3863}# #{z-pat\ 3848}# #{w\ 3864}# #{r\ 3850}# #{mod\ 3851}#))))))) (#{f\ 3862}# #{e\ 3845}# #{w\ 3849}#)))) (#{match-each\ 3717}# (lambda (#{e\ 3878}# #{p\ 3879}# #{w\ 3880}# #{mod\ 3881}#) (if (pair? #{e\ 3878}#) (let ((#{first\ 3889}# (#{match\ 3729}# (car #{e\ 3878}#) #{p\ 3879}# #{w\ 3880}# '() #{mod\ 3881}#))) (if #{first\ 3889}# (let ((#{rest\ 3893}# (#{match-each\ 3717}# (cdr #{e\ 3878}#) #{p\ 3879}# #{w\ 3880}# #{mod\ 3881}#))) (if #{rest\ 3893}# (cons #{first\ 3889}# #{rest\ 3893}#) #f)) #f)) (if (null? #{e\ 3878}#) '() (if (#{syntax-object?\ 224}# #{e\ 3878}#) (#{match-each\ 3717}# (#{syntax-object-expression\ 226}# #{e\ 3878}#) #{p\ 3879}# (#{join-wraps\ 311}# #{w\ 3880}# (#{syntax-object-wrap\ 228}# #{e\ 3878}#)) (#{syntax-object-module\ 230}# #{e\ 3878}#)) #f)))))) (set! $sc-dispatch (lambda (#{e\ 3901}# #{p\ 3902}#) (if (eq? #{p\ 3902}# (quote any)) (list #{e\ 3901}#) (if (#{syntax-object?\ 224}# #{e\ 3901}#) (#{match*\ 3727}# (#{syntax-object-expression\ 226}# #{e\ 3901}#) #{p\ 3902}# (#{syntax-object-wrap\ 228}# #{e\ 3901}#) '() (#{syntax-object-module\ 230}# #{e\ 3901}#)) (#{match*\ 3727}# #{e\ 3901}# #{p\ 3902}# '(()) '() #f))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro (cons (lambda (#{x\ 3911}#) ((lambda (#{tmp\ 3913}#) ((lambda (#{tmp\ 3914}#) (if #{tmp\ 3914}# (apply (lambda (#{_\ 3918}# #{e1\ 3919}# #{e2\ 3920}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i3915" "i3916" "i3917")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) (cons #{e1\ 3919}# #{e2\ 3920}#))) #{tmp\ 3914}#) ((lambda (#{tmp\ 3922}#) (if #{tmp\ 3922}# (apply (lambda (#{_\ 3928}# #{out\ 3929}# #{in\ 3930}# #{e1\ 3931}# #{e2\ 3932}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i3923" "i3924" "i3925" "i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) #{in\ 3930}# '() (list #{out\ 3929}# (cons '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i3923" "i3924" "i3925" "i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) (cons #{e1\ 3931}# #{e2\ 3932}#))))) #{tmp\ 3922}#) ((lambda (#{tmp\ 3934}#) (if #{tmp\ 3934}# (apply (lambda (#{_\ 3940}# #{out\ 3941}# #{in\ 3942}# #{e1\ 3943}# #{e2\ 3944}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i3935" "i3936" "i3937" "i3938" "i3939")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) (cons '#(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i3935" "i3936" "i3937" "i3938" "i3939")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) #{in\ 3942}#) '() (list #{out\ 3941}# (cons '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i3935" "i3936" "i3937" "i3938" "i3939")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3912"))) (hygiene guile)) (cons #{e1\ 3943}# #{e2\ 3944}#))))) #{tmp\ 3934}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3913}#))) ($sc-dispatch #{tmp\ 3913}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch #{tmp\ 3913}# '(any ((any any)) any . each-any))))) ($sc-dispatch #{tmp\ 3913}# '(any () any . each-any)))) #{x\ 3911}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro (cons (lambda (#{x\ 3948}#) ((lambda (#{tmp\ 3950}#) ((lambda (#{tmp\ 3951}#) (if #{tmp\ 3951}# (apply (lambda (#{_\ 3957}# #{k\ 3958}# #{keyword\ 3959}# #{pattern\ 3960}# #{template\ 3961}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i3952" "i3953" "i3954" "i3955" "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i3952" "i3953" "i3954" "i3955" "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile))) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i3952" "i3953" "i3954" "i3955" "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i3952" "i3953" "i3954" "i3955" "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile)) (cons #{k\ 3958}# (map (lambda (#{tmp\ 3964}# #{tmp\ 3963}#) (list (cons '#(syntax-object dummy ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i3952" "i3953" "i3954" "i3955" "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile)) #{tmp\ 3963}#) (list '#(syntax-object syntax ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i3952" "i3953" "i3954" "i3955" "i3956")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3949"))) (hygiene guile)) #{tmp\ 3964}#))) #{template\ 3961}# #{pattern\ 3960}#)))))) #{tmp\ 3951}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3950}#))) ($sc-dispatch #{tmp\ 3950}# '(any each-any . #(each ((any . any) any)))))) #{x\ 3948}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro (cons (lambda (#{x\ 3965}#) ((lambda (#{tmp\ 3967}#) ((lambda (#{tmp\ 3968}#) (if (if #{tmp\ 3968}# (apply (lambda (#{let*\ 3974}# #{x\ 3975}# #{v\ 3976}# #{e1\ 3977}# #{e2\ 3978}#) (and-map identifier? #{x\ 3975}#)) #{tmp\ 3968}#) #f) (apply (lambda (#{let*\ 3985}# #{x\ 3986}# #{v\ 3987}# #{e1\ 3988}# #{e2\ 3989}#) (letrec ((#{f\ 3992}# (lambda (#{bindings\ 3993}#) (if (null? #{bindings\ 3993}#) (cons '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i3990" "i3991")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i3980" "i3981" "i3982" "i3983" "i3984")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3966"))) (hygiene guile)) (cons '() (cons #{e1\ 3988}# #{e2\ 3989}#))) ((lambda (#{tmp\ 3998}#) ((lambda (#{tmp\ 3999}#) (if #{tmp\ 3999}# (apply (lambda (#{body\ 4002}# #{binding\ 4003}#) (list '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i4000" "i4001")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i3990" "i3991")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i3980" "i3981" "i3982" "i3983" "i3984")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i3966"))) (hygiene guile)) (list #{binding\ 4003}#) #{body\ 4002}#)) #{tmp\ 3999}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3998}#))) ($sc-dispatch #{tmp\ 3998}# '(any any)))) (list (#{f\ 3992}# (cdr #{bindings\ 3993}#)) (car #{bindings\ 3993}#))))))) (#{f\ 3992}# (map list #{x\ 3986}# #{v\ 3987}#)))) #{tmp\ 3968}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3967}#))) ($sc-dispatch #{tmp\ 3967}# '(any #(each (any any)) any . each-any)))) #{x\ 3965}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro (cons (lambda (#{orig-x\ 4004}#) ((lambda (#{tmp\ 4006}#) ((lambda (#{tmp\ 4007}#) (if #{tmp\ 4007}# (apply (lambda (#{_\ 4015}# #{var\ 4016}# #{init\ 4017}# #{step\ 4018}# #{e0\ 4019}# #{e1\ 4020}# #{c\ 4021}#) ((lambda (#{tmp\ 4023}#) ((lambda (#{tmp\ 4024}#) (if #{tmp\ 4024}# (apply (lambda (#{step\ 4026}#) ((lambda (#{tmp\ 4027}#) ((lambda (#{tmp\ 4028}#) (if #{tmp\ 4028}# (apply (lambda () (list '#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) (map list #{var\ 4016}# #{init\ 4017}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) (list '#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) #{e0\ 4019}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) (append #{c\ 4021}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) #{step\ 4026}#))))))) #{tmp\ 4028}#) ((lambda (#{tmp\ 4033}#) (if #{tmp\ 4033}# (apply (lambda (#{e1\ 4036}# #{e2\ 4037}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4034" "i4035")) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4034" "i4035")) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) (map list #{var\ 4016}# #{init\ 4017}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4034" "i4035")) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) #{e0\ 4019}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4034" "i4035")) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) (cons #{e1\ 4036}# #{e2\ 4037}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4034" "i4035")) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) (append #{c\ 4021}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4034" "i4035")) #(ribcage #(step) #((top)) #("i4025")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i4008" "i4009" "i4010" "i4011" "i4012" "i4013" "i4014")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4005"))) (hygiene guile)) #{step\ 4026}#))))))) #{tmp\ 4033}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4027}#))) ($sc-dispatch #{tmp\ 4027}# '(any . each-any))))) ($sc-dispatch #{tmp\ 4027}# '()))) #{e1\ 4020}#)) #{tmp\ 4024}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4023}#))) ($sc-dispatch #{tmp\ 4023}# 'each-any))) (map (lambda (#{v\ 4044}# #{s\ 4045}#) ((lambda (#{tmp\ 4048}#) ((lambda (#{tmp\ 4049}#) (if #{tmp\ 4049}# (apply (lambda () #{v\ 4044}#) #{tmp\ 4049}#) ((lambda (#{tmp\ 4050}#) (if #{tmp\ 4050}# (apply (lambda (#{e\ 4052}#) #{e\ 4052}#) #{tmp\ 4050}#) ((lambda (#{_\ 4054}#) (syntax-violation 'do "bad step expression" #{orig-x\ 4004}# #{s\ 4045}#)) #{tmp\ 4048}#))) ($sc-dispatch #{tmp\ 4048}# '(any))))) ($sc-dispatch #{tmp\ 4048}# '()))) #{s\ 4045}#)) #{var\ 4016}# #{step\ 4018}#))) #{tmp\ 4007}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4006}#))) ($sc-dispatch #{tmp\ 4006}# '(any #(each (any any . any)) (any . each-any) . each-any)))) #{orig-x\ 4004}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (cons (letrec ((#{quasicons\ 4061}# (lambda (#{x\ 4065}# #{y\ 4066}#) ((lambda (#{tmp\ 4070}#) ((lambda (#{tmp\ 4071}#) (if #{tmp\ 4071}# (apply (lambda (#{x\ 4074}# #{y\ 4075}#) ((lambda (#{tmp\ 4076}#) ((lambda (#{tmp\ 4077}#) (if #{tmp\ 4077}# (apply (lambda (#{dy\ 4079}#) ((lambda (#{tmp\ 4080}#) ((lambda (#{tmp\ 4081}#) (if #{tmp\ 4081}# (apply (lambda (#{dx\ 4083}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) #("i4082")) #(ribcage #(dy) #((top)) #("i4078")) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) (cons #{dx\ 4083}# #{dy\ 4079}#))) #{tmp\ 4081}#) ((lambda (#{_\ 4085}#) (if (null? #{dy\ 4079}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) #("i4084")) #(ribcage #(dy) #((top)) #("i4078")) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{x\ 4074}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) #("i4084")) #(ribcage #(dy) #((top)) #("i4078")) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{x\ 4074}# #{y\ 4075}#))) #{tmp\ 4080}#))) ($sc-dispatch #{tmp\ 4080}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(dy) #((top)) #("i4078")) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) any)))) #{x\ 4074}#)) #{tmp\ 4077}#) ((lambda (#{tmp\ 4086}#) (if #{tmp\ 4086}# (apply (lambda (#{stuff\ 4088}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) #("i4087")) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) (cons #{x\ 4074}# #{stuff\ 4088}#))) #{tmp\ 4086}#) ((lambda (#{else\ 4090}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) #("i4089")) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{x\ 4074}# #{y\ 4075}#)) #{tmp\ 4076}#))) ($sc-dispatch #{tmp\ 4076}# '(#(free-id #(syntax-object list ((top) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) . any))))) ($sc-dispatch #{tmp\ 4076}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(x y) #((top) (top)) #("i4072" "i4073")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4067" "i4068")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) any)))) #{y\ 4075}#)) #{tmp\ 4071}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4070}#))) ($sc-dispatch #{tmp\ 4070}# (quote (any any))))) (list #{x\ 4065}# #{y\ 4066}#)))) (#{quasiappend\ 4062}# (lambda (#{x\ 4091}# #{y\ 4092}#) ((lambda (#{tmp\ 4096}#) ((lambda (#{tmp\ 4097}#) (if #{tmp\ 4097}# (apply (lambda (#{x\ 4100}# #{y\ 4101}#) ((lambda (#{tmp\ 4102}#) ((lambda (#{tmp\ 4103}#) (if #{tmp\ 4103}# (apply (lambda () #{x\ 4100}#) #{tmp\ 4103}#) ((lambda (#{_\ 4105}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) #("i4104")) #(ribcage #(x y) #((top) (top)) #("i4098" "i4099")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4093" "i4094")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{x\ 4100}# #{y\ 4101}#)) #{tmp\ 4102}#))) ($sc-dispatch #{tmp\ 4102}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(x y) #((top) (top)) #("i4098" "i4099")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4093" "i4094")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) ())))) #{y\ 4101}#)) #{tmp\ 4097}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4096}#))) ($sc-dispatch #{tmp\ 4096}# (quote (any any))))) (list #{x\ 4091}# #{y\ 4092}#)))) (#{quasivector\ 4063}# (lambda (#{x\ 4106}#) ((lambda (#{tmp\ 4109}#) ((lambda (#{x\ 4111}#) ((lambda (#{tmp\ 4112}#) ((lambda (#{tmp\ 4113}#) (if #{tmp\ 4113}# (apply (lambda (#{x\ 4115}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i4114")) #(ribcage #(x) #((top)) #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) (list->vector #{x\ 4115}#))) #{tmp\ 4113}#) ((lambda (#{tmp\ 4117}#) (if #{tmp\ 4117}# (apply (lambda (#{x\ 4119}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) #("i4118")) #(ribcage #(x) #((top)) #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{x\ 4119}#)) #{tmp\ 4117}#) ((lambda (#{_\ 4122}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) #("i4121")) #(ribcage #(x) #((top)) #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{x\ 4111}#)) #{tmp\ 4112}#))) ($sc-dispatch #{tmp\ 4112}# '(#(free-id #(syntax-object list ((top) #(ribcage #(x) #((top)) #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) . each-any))))) ($sc-dispatch #{tmp\ 4112}# '(#(free-id #(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i4110")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4107")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) each-any)))) #{x\ 4111}#)) #{tmp\ 4109}#)) #{x\ 4106}#))) (#{quasi\ 4064}# (lambda (#{p\ 4123}# #{lev\ 4124}#) ((lambda (#{tmp\ 4127}#) ((lambda (#{tmp\ 4128}#) (if #{tmp\ 4128}# (apply (lambda (#{p\ 4130}#) (if (= #{lev\ 4124}# 0) #{p\ 4130}# (#{quasicons\ 4061}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i4129")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i4129")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) (#{quasi\ 4064}# (list #{p\ 4130}#) (- #{lev\ 4124}# 1))))) #{tmp\ 4128}#) ((lambda (#{tmp\ 4131}#) (if (if #{tmp\ 4131}# (apply (lambda (#{args\ 4133}#) (= #{lev\ 4124}# 0)) #{tmp\ 4131}#) #f) (apply (lambda (#{args\ 4135}#) (syntax-violation 'unquote "unquote takes exactly one argument" #{p\ 4123}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) #("i4134")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{args\ 4135}#))) #{tmp\ 4131}#) ((lambda (#{tmp\ 4136}#) (if #{tmp\ 4136}# (apply (lambda (#{p\ 4139}# #{q\ 4140}#) (if (= #{lev\ 4124}# 0) (#{quasiappend\ 4062}# #{p\ 4139}# (#{quasi\ 4064}# #{q\ 4140}# #{lev\ 4124}#)) (#{quasicons\ 4061}# (#{quasicons\ 4061}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) #("i4137" "i4138")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i4137" "i4138")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) (#{quasi\ 4064}# (list #{p\ 4139}#) (- #{lev\ 4124}# 1))) (#{quasi\ 4064}# #{q\ 4140}# #{lev\ 4124}#)))) #{tmp\ 4136}#) ((lambda (#{tmp\ 4141}#) (if (if #{tmp\ 4141}# (apply (lambda (#{args\ 4144}# #{q\ 4145}#) (= #{lev\ 4124}# 0)) #{tmp\ 4141}#) #f) (apply (lambda (#{args\ 4148}# #{q\ 4149}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" #{p\ 4123}# (cons '#(syntax-object unquote-splicing ((top) #(ribcage #(args q) #((top) (top)) #("i4146" "i4147")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{args\ 4148}#))) #{tmp\ 4141}#) ((lambda (#{tmp\ 4150}#) (if #{tmp\ 4150}# (apply (lambda (#{p\ 4152}#) (#{quasicons\ 4061}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i4151")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top)) #("i4151")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) (#{quasi\ 4064}# (list #{p\ 4152}#) (+ #{lev\ 4124}# 1)))) #{tmp\ 4150}#) ((lambda (#{tmp\ 4153}#) (if #{tmp\ 4153}# (apply (lambda (#{p\ 4156}# #{q\ 4157}#) (#{quasicons\ 4061}# (#{quasi\ 4064}# #{p\ 4156}# #{lev\ 4124}#) (#{quasi\ 4064}# #{q\ 4157}# #{lev\ 4124}#))) #{tmp\ 4153}#) ((lambda (#{tmp\ 4158}#) (if #{tmp\ 4158}# (apply (lambda (#{x\ 4160}#) (#{quasivector\ 4063}# (#{quasi\ 4064}# #{x\ 4160}# #{lev\ 4124}#))) #{tmp\ 4158}#) ((lambda (#{p\ 4163}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i4162")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile)) #{p\ 4163}#)) #{tmp\ 4127}#))) ($sc-dispatch #{tmp\ 4127}# '#(vector each-any))))) ($sc-dispatch #{tmp\ 4127}# '(any . any))))) ($sc-dispatch #{tmp\ 4127}# '(#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) any))))) ($sc-dispatch #{tmp\ 4127}# '((#(free-id #(syntax-object unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) . any) . any))))) ($sc-dispatch #{tmp\ 4127}# '((#(free-id #(syntax-object unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) any) . any))))) ($sc-dispatch #{tmp\ 4127}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) . any))))) ($sc-dispatch #{tmp\ 4127}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4125" "i4126")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i4057" "i4058" "i4059" "i4060"))) (hygiene guile))) any)))) #{p\ 4123}#)))) (lambda (#{x\ 4164}#) ((lambda (#{tmp\ 4166}#) ((lambda (#{tmp\ 4167}#) (if #{tmp\ 4167}# (apply (lambda (#{_\ 4170}# #{e\ 4171}#) (#{quasi\ 4064}# #{e\ 4171}# 0)) #{tmp\ 4167}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4166}#))) ($sc-dispatch #{tmp\ 4166}# (quote (any any))))) #{x\ 4164}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro (cons (lambda (#{x\ 4172}#) (letrec ((#{read-file\ 4175}# (lambda (#{fn\ 4176}# #{k\ 4177}#) (let ((#{p\ 4181}# (open-input-file #{fn\ 4176}#))) (letrec ((#{f\ 4184}# (lambda (#{x\ 4185}#) (if (eof-object? #{x\ 4185}#) (begin (close-input-port #{p\ 4181}#) '()) (cons (datum->syntax #{k\ 4177}# #{x\ 4185}#) (#{f\ 4184}# (read #{p\ 4181}#))))))) (#{f\ 4184}# (read #{p\ 4181}#))))))) ((lambda (#{tmp\ 4186}#) ((lambda (#{tmp\ 4187}#) (if #{tmp\ 4187}# (apply (lambda (#{k\ 4190}# #{filename\ 4191}#) (let ((#{fn\ 4193}# (syntax->datum #{filename\ 4191}#))) ((lambda (#{tmp\ 4195}#) ((lambda (#{tmp\ 4196}#) (if #{tmp\ 4196}# (apply (lambda (#{exp\ 4198}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i4197")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i4192")) #(ribcage #(k filename) #((top) (top)) #("i4188" "i4189")) #(ribcage (read-file) ((top)) ("i4174")) #(ribcage #(x) #((top)) #("i4173"))) (hygiene guile)) #{exp\ 4198}#)) #{tmp\ 4196}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4195}#))) ($sc-dispatch #{tmp\ 4195}# 'each-any))) (#{read-file\ 4175}# #{fn\ 4193}# #{k\ 4190}#)))) #{tmp\ 4187}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4186}#))) ($sc-dispatch #{tmp\ 4186}# (quote (any any))))) #{x\ 4172}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro (cons (lambda (#{x\ 4200}#) ((lambda (#{tmp\ 4202}#) ((lambda (#{tmp\ 4203}#) (if #{tmp\ 4203}# (apply (lambda (#{k\ 4206}# #{filename\ 4207}#) (let ((#{fn\ 4209}# (syntax->datum #{filename\ 4207}#))) ((lambda (#{tmp\ 4211}#) ((lambda (#{fn\ 4213}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) #("i4212")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i4208")) #(ribcage #(k filename) #((top) (top)) #("i4204" "i4205")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4201"))) (hygiene guile)) #{fn\ 4213}#)) #{tmp\ 4211}#)) (let ((#{t\ 4216}# (%search-load-path #{fn\ 4209}#))) (if #{t\ 4216}# #{t\ 4216}# (syntax-violation 'include-from-path "file not found in path" #{x\ 4200}# #{filename\ 4207}#)))))) #{tmp\ 4203}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4202}#))) ($sc-dispatch #{tmp\ 4202}# (quote (any any))))) #{x\ 4200}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro (cons (lambda (#{x\ 4218}#) ((lambda (#{tmp\ 4220}#) ((lambda (#{tmp\ 4221}#) (if #{tmp\ 4221}# (apply (lambda (#{_\ 4224}# #{e\ 4225}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" #{x\ 4218}#)) #{tmp\ 4221}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4220}#))) ($sc-dispatch #{tmp\ 4220}# (quote (any any))))) #{x\ 4218}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro (cons (lambda (#{x\ 4226}#) ((lambda (#{tmp\ 4228}#) ((lambda (#{tmp\ 4229}#) (if #{tmp\ 4229}# (apply (lambda (#{_\ 4232}# #{e\ 4233}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" #{x\ 4226}#)) #{tmp\ 4229}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4228}#))) ($sc-dispatch #{tmp\ 4228}# (quote (any any))))) #{x\ 4226}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro (cons (lambda (#{x\ 4234}#) ((lambda (#{tmp\ 4236}#) ((lambda (#{tmp\ 4237}#) (if #{tmp\ 4237}# (apply (lambda (#{_\ 4242}# #{e\ 4243}# #{m1\ 4244}# #{m2\ 4245}#) ((lambda (#{tmp\ 4247}#) ((lambda (#{body\ 4249}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i4248")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i4248")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) #{e\ 4243}#)) #{body\ 4249}#)) #{tmp\ 4247}#)) (letrec ((#{f\ 4253}# (lambda (#{clause\ 4254}# #{clauses\ 4255}#) (if (null? #{clauses\ 4255}#) ((lambda (#{tmp\ 4257}#) ((lambda (#{tmp\ 4258}#) (if #{tmp\ 4258}# (apply (lambda (#{e1\ 4261}# #{e2\ 4262}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4259" "i4260")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (cons #{e1\ 4261}# #{e2\ 4262}#))) #{tmp\ 4258}#) ((lambda (#{tmp\ 4264}#) (if #{tmp\ 4264}# (apply (lambda (#{k\ 4268}# #{e1\ 4269}# #{e2\ 4270}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4265" "i4266" "i4267")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4265" "i4266" "i4267")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4265" "i4266" "i4267")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4265" "i4266" "i4267")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) #{k\ 4268}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4265" "i4266" "i4267")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (cons #{e1\ 4269}# #{e2\ 4270}#)))) #{tmp\ 4264}#) ((lambda (#{_\ 4274}#) (syntax-violation 'case "bad clause" #{x\ 4234}# #{clause\ 4254}#)) #{tmp\ 4257}#))) ($sc-dispatch #{tmp\ 4257}# '(each-any any . each-any))))) ($sc-dispatch #{tmp\ 4257}# '(#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile))) any . each-any)))) #{clause\ 4254}#) ((lambda (#{tmp\ 4276}#) ((lambda (#{rest\ 4278}#) ((lambda (#{tmp\ 4279}#) ((lambda (#{tmp\ 4280}#) (if #{tmp\ 4280}# (apply (lambda (#{k\ 4284}# #{e1\ 4285}# #{e2\ 4286}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4281" "i4282" "i4283")) #(ribcage #(rest) #((top)) #("i4277")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4281" "i4282" "i4283")) #(ribcage #(rest) #((top)) #("i4277")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4281" "i4282" "i4283")) #(ribcage #(rest) #((top)) #("i4277")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4281" "i4282" "i4283")) #(ribcage #(rest) #((top)) #("i4277")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) #{k\ 4284}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4281" "i4282" "i4283")) #(ribcage #(rest) #((top)) #("i4277")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4250" "i4251" "i4252")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i4238" "i4239" "i4240" "i4241")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4235"))) (hygiene guile)) (cons #{e1\ 4285}# #{e2\ 4286}#)) #{rest\ 4278}#)) #{tmp\ 4280}#) ((lambda (#{_\ 4290}#) (syntax-violation 'case "bad clause" #{x\ 4234}# #{clause\ 4254}#)) #{tmp\ 4279}#))) ($sc-dispatch #{tmp\ 4279}# '(each-any any . each-any)))) #{clause\ 4254}#)) #{tmp\ 4276}#)) (#{f\ 4253}# (car #{clauses\ 4255}#) (cdr #{clauses\ 4255}#))))))) (#{f\ 4253}# #{m1\ 4244}# #{m2\ 4245}#)))) #{tmp\ 4237}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4236}#))) ($sc-dispatch #{tmp\ 4236}# '(any any any . each-any)))) #{x\ 4234}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro (cons (lambda (#{x\ 4291}#) ((lambda (#{tmp\ 4293}#) ((lambda (#{tmp\ 4294}#) (if #{tmp\ 4294}# (apply (lambda (#{_\ 4297}# #{e\ 4298}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile))) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) '() (list '#(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) '(#(syntax-object identifier? ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) (#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) #{e\ 4298}#)) (list (cons #{_\ 4297}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) (cons #{e\ 4298}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top)) #("i4295" "i4296")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4292"))) (hygiene guile))))))))) #{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 define* (make-syntax-transformer 'define* 'macro (cons (lambda (#{x\ 4299}#) ((lambda (#{tmp\ 4301}#) ((lambda (#{tmp\ 4302}#) (if #{tmp\ 4302}# (apply (lambda (#{_\ 4308}# #{id\ 4309}# #{args\ 4310}# #{b0\ 4311}# #{b1\ 4312}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) #("i4303" "i4304" "i4305" "i4306" "i4307")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4300"))) (hygiene guile)) #{id\ 4309}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) #("i4303" "i4304" "i4305" "i4306" "i4307")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4300"))) (hygiene guile)) (cons #{args\ 4310}# (cons #{b0\ 4311}# #{b1\ 4312}#))))) #{tmp\ 4302}#) ((lambda (#{tmp\ 4314}#) (if (if #{tmp\ 4314}# (apply (lambda (#{_\ 4318}# #{id\ 4319}# #{val\ 4320}#) (identifier? '#(syntax-object x ((top) #(ribcage #(_ id val) #((top) (top) (top)) #("i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4300"))) (hygiene guile)))) #{tmp\ 4314}#) #f) (apply (lambda (#{_\ 4324}# #{id\ 4325}# #{val\ 4326}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) #("i4321" "i4322" "i4323")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4300"))) (hygiene guile)) #{id\ 4325}# #{val\ 4326}#)) #{tmp\ 4314}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4301}#))) ($sc-dispatch #{tmp\ 4301}# '(any any any))))) ($sc-dispatch #{tmp\ 4301}# '(any (any . any) any . each-any)))) #{x\ 4299}#)) (module-name (current-module)))))