(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec*
- ((#{and-map*\ 35}#
- (lambda (#{f\ 207}# #{first\ 208}# . #{rest\ 209}#)
- (begin
- (let ((#{t\ 215}# (null? #{first\ 208}#)))
- (if #{t\ 215}#
- #{t\ 215}#
- (if (null? #{rest\ 209}#)
- (letrec*
- ((#{andmap\ 219}#
- (lambda (#{first\ 220}#)
- (begin
- (let ((#{x\ 223}# (car #{first\ 220}#))
- (#{first\ 224}# (cdr #{first\ 220}#)))
- (if (null? #{first\ 224}#)
- (#{f\ 207}# #{x\ 223}#)
- (if (#{f\ 207}# #{x\ 223}#)
- (#{andmap\ 219}# #{first\ 224}#)
- #f)))))))
- (begin (#{andmap\ 219}# #{first\ 208}#)))
- (letrec*
- ((#{andmap\ 230}#
- (lambda (#{first\ 231}# #{rest\ 232}#)
- (begin
- (let ((#{x\ 237}# (car #{first\ 231}#))
- (#{xr\ 238}# (map car #{rest\ 232}#))
- (#{first\ 239}# (cdr #{first\ 231}#))
- (#{rest\ 240}# (map cdr #{rest\ 232}#)))
- (if (null? #{first\ 239}#)
- (@apply #{f\ 207}# (cons #{x\ 237}# #{xr\ 238}#))
- (if (@apply
- #{f\ 207}#
- (cons #{x\ 237}# #{xr\ 238}#))
- (#{andmap\ 230}# #{first\ 239}# #{rest\ 240}#)
- #f)))))))
- (begin
- (#{andmap\ 230}# #{first\ 208}# #{rest\ 209}#))))))))))
- (begin
- (let ((#{ribcage?\ 410}# (if #f #f))
- (#{wrap-subst\ 396}# (if #f #f))
- (#{wrap-marks\ 394}# (if #f #f))
- (#{make-wrap\ 392}# (if #f #f))
- (#{binding-value\ 372}# (if #f #f))
- (#{binding-type\ 370}# (if #f #f))
- (#{set-syntax-object-module!\ 363}# (if #f #f))
- (#{set-syntax-object-wrap!\ 361}# (if #f #f))
- (#{set-syntax-object-expression!\ 359}#
- (if #f #f))
- (#{fx<\ 294}# (if #f #f))
- (#{fx=\ 292}# (if #f #f))
- (#{fx-\ 290}# (if #f #f))
- (#{fx+\ 288}# (if #f #f))
- (#{make-primitive-ref\ 249}# (if #f #f)))
- (letrec*
- ((#{lambda-var-list\ 502}#
- (lambda (#{vars\ 717}#)
- (letrec*
- ((#{lvl\ 723}#
- (lambda (#{vars\ 724}# #{ls\ 725}# #{w\ 726}#)
- (if (pair? #{vars\ 724}#)
- (#{lvl\ 723}#
- (cdr #{vars\ 724}#)
- (cons (#{wrap\ 456}# (car #{vars\ 724}#) #{w\ 726}# #f)
- #{ls\ 725}#)
- #{w\ 726}#)
- (if (#{id?\ 387}# #{vars\ 724}#)
- (cons (#{wrap\ 456}# #{vars\ 724}# #{w\ 726}# #f)
- #{ls\ 725}#)
- (if (null? #{vars\ 724}#)
- #{ls\ 725}#
- (if (#{syntax-object?\ 351}# #{vars\ 724}#)
- (#{lvl\ 723}#
- (#{syntax-object-expression\ 353}# #{vars\ 724}#)
- #{ls\ 725}#
- (#{join-wraps\ 438}#
- #{w\ 726}#
- (#{syntax-object-wrap\ 355}# #{vars\ 724}#)))
- (cons #{vars\ 724}# #{ls\ 725}#))))))))
- (begin
- (#{lvl\ 723}#
- #{vars\ 717}#
+(let ((session-id-4222 (if #f #f))
+ (transformer-environment-4283 (if #f #f)))
+ (letrec*
+ ((top-level-eval-hook-4220
+ (lambda (x-24656 mod-24657)
+ (primitive-eval x-24656)))
+ (get-global-definition-hook-4224
+ (lambda (symbol-14704 module-14705)
+ (begin
+ (if (if (not module-14705) (current-module) #f)
+ (warn "module system is booted, we should have a module"
+ symbol-14704))
+ (let ((v-14706
+ (module-variable
+ (if module-14705
+ (resolve-module (cdr module-14705))
+ (current-module))
+ symbol-14704)))
+ (if v-14706
+ (if (variable-bound? v-14706)
+ (let ((val-14708 (variable-ref v-14706)))
+ (if (macro? val-14708)
+ (if (macro-type val-14708)
+ (cons (macro-type val-14708)
+ (macro-binding val-14708))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (maybe-name-value!-4226
+ (lambda (name-21545 val-21546)
+ (if (if (struct? val-21546)
+ (eq? (struct-vtable val-21546)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((meta-21553 (struct-ref val-21546 1)))
+ (if (not (assq 'name meta-21553))
+ (let ((v-21558
+ (cons (cons 'name name-21545) meta-21553)))
+ (struct-set! val-21546 1 v-21558)))))))
+ (build-application-4228
+ (lambda (source-14710 fun-exp-14711 arg-exps-14712)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ source-14710
+ fun-exp-14711
+ arg-exps-14712)))
+ (analyze-variable-4233
+ (lambda (mod-14718
+ var-14719
+ modref-cont-14720
+ bare-cont-14721)
+ (if (not mod-14718)
+ (bare-cont-14721 var-14719)
+ (let ((kind-14722 (car mod-14718))
+ (mod-14723 (cdr mod-14718)))
+ (if (eqv? kind-14722 'public)
+ (modref-cont-14720 mod-14723 var-14719 #t)
+ (if (eqv? kind-14722 'private)
+ (if (not (equal? mod-14723 (module-name (current-module))))
+ (modref-cont-14720 mod-14723 var-14719 #f)
+ (bare-cont-14721 var-14719))
+ (if (eqv? kind-14722 'bare)
+ (bare-cont-14721 var-14719)
+ (if (eqv? kind-14722 'hygiene)
+ (if (if (not (equal?
+ mod-14723
+ (module-name (current-module))))
+ (module-variable
+ (resolve-module mod-14723)
+ var-14719)
+ #f)
+ (modref-cont-14720 mod-14723 var-14719 #f)
+ (bare-cont-14721 var-14719))
+ (syntax-violation
+ #f
+ "bad module kind"
+ var-14719
+ mod-14723)))))))))
+ (build-simple-lambda-4237
+ (lambda (src-14750
+ req-14751
+ rest-14752
+ vars-14753
+ meta-14754
+ exp-14755)
+ (let ((body-14761
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ src-14750
+ req-14751
+ #f
+ rest-14752
+ #f
'()
- '(()))))))
- (#{gen-var\ 500}#
- (lambda (#{id\ 737}#)
+ vars-14753
+ exp-14755
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ src-14750
+ meta-14754
+ body-14761))))
+ (build-sequence-4242
+ (lambda (src-24658 exps-24659)
+ (if (null? (cdr exps-24659))
+ (car exps-24659)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ src-24658
+ exps-24659))))
+ (build-let-4243
+ (lambda (src-14773
+ ids-14774
+ vars-14775
+ val-exps-14776
+ body-exp-14777)
+ (begin
+ (for-each
+ maybe-name-value!-4226
+ ids-14774
+ val-exps-14776)
+ (if (null? vars-14775)
+ body-exp-14777
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 15)
+ src-14773
+ ids-14774
+ vars-14775
+ val-exps-14776
+ body-exp-14777)))))
+ (build-named-let-4244
+ (lambda (src-14801
+ ids-14802
+ vars-14803
+ val-exps-14804
+ body-exp-14805)
+ (let ((f-14806 (car vars-14803))
+ (f-name-14807 (car ids-14802))
+ (vars-14808 (cdr vars-14803))
+ (ids-14809 (cdr ids-14802)))
+ (let ((proc-14810
+ (let ((body-14830
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ src-14801
+ ids-14809
+ #f
+ #f
+ #f
+ '()
+ vars-14808
+ body-exp-14805
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ src-14801
+ '()
+ body-14830))))
(begin
- (let ((#{id\ 740}#
- (if (#{syntax-object?\ 351}# #{id\ 737}#)
- (#{syntax-object-expression\ 353}# #{id\ 737}#)
- #{id\ 737}#)))
- (gensym
- (string-append (symbol->string #{id\ 740}#) " "))))))
- (#{strip\ 498}#
- (lambda (#{x\ 742}# #{w\ 743}#)
- (if (memq 'top
- (#{wrap-marks\ 394}# #{w\ 743}#))
- #{x\ 742}#
- (letrec*
- ((#{f\ 749}# (lambda (#{x\ 750}#)
- (if (#{syntax-object?\ 351}# #{x\ 750}#)
- (#{strip\ 498}#
- (#{syntax-object-expression\ 353}#
- #{x\ 750}#)
- (#{syntax-object-wrap\ 355}# #{x\ 750}#))
- (if (pair? #{x\ 750}#)
- (begin
- (let ((#{a\ 757}# (#{f\ 749}# (car #{x\ 750}#)))
- (#{d\ 758}# (#{f\ 749}# (cdr #{x\ 750}#))))
- (if (if (eq? #{a\ 757}#
- (car #{x\ 750}#))
- (eq? #{d\ 758}# (cdr #{x\ 750}#))
- #f)
- #{x\ 750}#
- (cons #{a\ 757}# #{d\ 758}#))))
- (if (vector? #{x\ 750}#)
- (begin
- (let ((#{old\ 764}#
- (vector->list #{x\ 750}#)))
- (begin
- (let ((#{new\ 766}#
- (map #{f\ 749}#
- #{old\ 764}#)))
- (if (#{and-map*\ 35}#
- eq?
- #{old\ 764}#
- #{new\ 766}#)
- #{x\ 750}#
- (list->vector
- #{new\ 766}#))))))
- #{x\ 750}#))))))
- (begin (#{f\ 749}# #{x\ 742}#))))))
- (#{chi-lambda-case\ 496}#
- (lambda (#{e\ 768}#
- #{r\ 769}#
- #{w\ 770}#
- #{s\ 771}#
- #{mod\ 772}#
- #{get-formals\ 773}#
- #{clauses\ 774}#)
- (letrec*
- ((#{expand-body\ 789}#
- (lambda (#{req\ 790}#
- #{opt\ 791}#
- #{rest\ 792}#
- #{kw\ 793}#
- #{body\ 794}#
- #{vars\ 795}#
- #{r*\ 796}#
- #{w*\ 797}#
- #{inits\ 798}#
- #{meta\ 799}#)
- (let ((#{tmp\ 810}# #{body\ 794}#))
- (let ((#{tmp\ 811}#
- ($sc-dispatch
- #{tmp\ 810}#
- '(any any . each-any))))
- (if (if #{tmp\ 811}#
- (@apply
- (lambda (#{docstring\ 815}#
- #{e1\ 816}#
- #{e2\ 817}#)
- (string? (syntax->datum #{docstring\ 815}#)))
- #{tmp\ 811}#)
- #f)
- (@apply
- (lambda (#{docstring\ 821}#
- #{e1\ 822}#
- #{e2\ 823}#)
- (#{expand-body\ 789}#
- #{req\ 790}#
- #{opt\ 791}#
- #{rest\ 792}#
- #{kw\ 793}#
- (cons #{e1\ 822}# #{e2\ 823}#)
- #{vars\ 795}#
- #{r*\ 796}#
- #{w*\ 797}#
- #{inits\ 798}#
- (append
- #{meta\ 799}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring\ 821}#))))))
- #{tmp\ 811}#)
- (let ((#{tmp\ 826}#
- ($sc-dispatch
- #{tmp\ 810}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp\ 826}#
- (@apply
- (lambda (#{k\ 831}#
- #{v\ 832}#
- #{e1\ 833}#
- #{e2\ 834}#)
- (#{expand-body\ 789}#
- #{req\ 790}#
- #{opt\ 791}#
- #{rest\ 792}#
- #{kw\ 793}#
- (cons #{e1\ 833}# #{e2\ 834}#)
- #{vars\ 795}#
- #{r*\ 796}#
- #{w*\ 797}#
- #{inits\ 798}#
- (append
- #{meta\ 799}#
- (syntax->datum
- (map cons #{k\ 831}# #{v\ 832}#)))))
- #{tmp\ 826}#)
- (let ((#{tmp\ 838}#
- ($sc-dispatch
- #{tmp\ 810}#
- '(any . each-any))))
- (if #{tmp\ 838}#
- (@apply
- (lambda (#{e1\ 841}# #{e2\ 842}#)
- (values
- #{meta\ 799}#
- #{req\ 790}#
- #{opt\ 791}#
- #{rest\ 792}#
- #{kw\ 793}#
- #{inits\ 798}#
- #{vars\ 795}#
- (#{chi-body\ 480}#
- (cons #{e1\ 841}# #{e2\ 842}#)
- (#{source-wrap\ 458}#
- #{e\ 768}#
- #{w\ 770}#
- #{s\ 771}#
- #{mod\ 772}#)
- #{r*\ 796}#
- #{w*\ 797}#
- #{mod\ 772}#)))
- #{tmp\ 838}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 810}#))))))))))
- (#{expand-kw\ 787}#
- (lambda (#{req\ 844}#
- #{opt\ 845}#
- #{rest\ 846}#
- #{kw\ 847}#
- #{body\ 848}#
- #{vars\ 849}#
- #{r*\ 850}#
- #{w*\ 851}#
- #{aok\ 852}#
- #{out\ 853}#
- #{inits\ 854}#)
- (if (pair? #{kw\ 847}#)
- (let ((#{tmp\ 868}# (car #{kw\ 847}#)))
- (let ((#{tmp\ 869}#
- ($sc-dispatch
- #{tmp\ 868}#
- '(any any any))))
- (if #{tmp\ 869}#
- (@apply
- (lambda (#{k\ 873}# #{id\ 874}# #{i\ 875}#)
- (begin
- (let ((#{v\ 878}# (#{gen-var\ 500}#
- #{id\ 874}#)))
- (begin
- (let ((#{l\ 880}# (#{gen-labels\ 405}#
- (list #{v\ 878}#))))
- (begin
- (let ((#{r**\ 882}#
- (#{extend-var-env\ 377}#
- #{l\ 880}#
- (list #{v\ 878}#)
- #{r*\ 850}#)))
- (begin
- (let ((#{w**\ 884}#
- (#{make-binding-wrap\ 434}#
- (list #{id\ 874}#)
- #{l\ 880}#
- #{w*\ 851}#)))
- (#{expand-kw\ 787}#
- #{req\ 844}#
- #{opt\ 845}#
- #{rest\ 846}#
- (cdr #{kw\ 847}#)
- #{body\ 848}#
- (cons #{v\ 878}#
- #{vars\ 849}#)
- #{r**\ 882}#
- #{w**\ 884}#
- #{aok\ 852}#
- (cons (list (syntax->datum
- #{k\ 873}#)
- (syntax->datum
- #{id\ 874}#)
- #{v\ 878}#)
- #{out\ 853}#)
- (cons (#{chi\ 472}#
- #{i\ 875}#
- #{r*\ 850}#
- #{w*\ 851}#
- #{mod\ 772}#)
- #{inits\ 854}#)))))))))))
- #{tmp\ 869}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 868}#))))
- (#{expand-body\ 789}#
- #{req\ 844}#
- #{opt\ 845}#
- #{rest\ 846}#
- (if (begin
- (let ((#{t\ 888}# #{aok\ 852}#))
- (if #{t\ 888}#
- #{t\ 888}#
- (pair? #{out\ 853}#))))
- (cons #{aok\ 852}# (reverse #{out\ 853}#))
- #f)
- #{body\ 848}#
- (reverse #{vars\ 849}#)
- #{r*\ 850}#
- #{w*\ 851}#
- (reverse #{inits\ 854}#)
- '()))))
- (#{expand-opt\ 785}#
- (lambda (#{req\ 890}#
- #{opt\ 891}#
- #{rest\ 892}#
- #{kw\ 893}#
- #{body\ 894}#
- #{vars\ 895}#
- #{r*\ 896}#
- #{w*\ 897}#
- #{out\ 898}#
- #{inits\ 899}#)
- (if (pair? #{opt\ 891}#)
- (let ((#{tmp\ 912}# (car #{opt\ 891}#)))
- (let ((#{tmp\ 913}#
- ($sc-dispatch #{tmp\ 912}# (quote (any any)))))
- (if #{tmp\ 913}#
- (@apply
- (lambda (#{id\ 916}# #{i\ 917}#)
- (begin
- (let ((#{v\ 920}# (#{gen-var\ 500}#
- #{id\ 916}#)))
- (begin
- (let ((#{l\ 922}# (#{gen-labels\ 405}#
- (list #{v\ 920}#))))
- (begin
- (let ((#{r**\ 924}#
- (#{extend-var-env\ 377}#
- #{l\ 922}#
- (list #{v\ 920}#)
- #{r*\ 896}#)))
+ (if (if (struct? proc-14810)
+ (eq? (struct-vtable proc-14810)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((meta-14854 (struct-ref proc-14810 1)))
+ (if (not (assq 'name meta-14854))
+ (let ((v-14861
+ (cons (cons 'name f-name-14807) meta-14854)))
+ (struct-set! proc-14810 1 v-14861)))))
+ (for-each
+ maybe-name-value!-4226
+ ids-14809
+ val-exps-14804)
+ (let ((names-14885 (list f-name-14807))
+ (gensyms-14886 (list f-14806))
+ (vals-14887 (list proc-14810))
+ (body-14888
+ (let ((fun-exp-14892
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ src-14801
+ f-name-14807
+ f-14806)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ src-14801
+ fun-exp-14892
+ val-exps-14804))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ src-14801
+ #f
+ names-14885
+ gensyms-14886
+ vals-14887
+ body-14888)))))))
+ (build-letrec-4245
+ (lambda (src-14908
+ in-order?-14909
+ ids-14910
+ vars-14911
+ val-exps-14912
+ body-exp-14913)
+ (if (null? vars-14911)
+ body-exp-14913
+ (begin
+ (for-each
+ maybe-name-value!-4226
+ ids-14910
+ val-exps-14912)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ src-14908
+ in-order?-14909
+ ids-14910
+ vars-14911
+ val-exps-14912
+ body-exp-14913)))))
+ (extend-env-4255
+ (lambda (labels-14939 bindings-14940 r-14941)
+ (if (null? labels-14939)
+ r-14941
+ (extend-env-4255
+ (cdr labels-14939)
+ (cdr bindings-14940)
+ (cons (cons (car labels-14939) (car bindings-14940))
+ r-14941)))))
+ (extend-var-env-4256
+ (lambda (labels-14942 vars-14943 r-14944)
+ (if (null? labels-14942)
+ r-14944
+ (extend-var-env-4256
+ (cdr labels-14942)
+ (cdr vars-14943)
+ (cons (cons (car labels-14942)
+ (cons 'lexical (car vars-14943)))
+ r-14944)))))
+ (macros-only-env-4257
+ (lambda (r-14945)
+ (if (null? r-14945)
+ '()
+ (let ((a-14946 (car r-14945)))
+ (if (eq? (car (cdr a-14946)) 'macro)
+ (cons a-14946
+ (macros-only-env-4257 (cdr r-14945)))
+ (macros-only-env-4257 (cdr r-14945)))))))
+ (global-extend-4259
+ (lambda (type-14948 sym-14949 val-14950)
+ (module-define!
+ (current-module)
+ sym-14949
+ (make-syntax-transformer
+ sym-14949
+ type-14948
+ val-14950))))
+ (id?-4261
+ (lambda (x-9380)
+ (if (symbol? x-9380)
+ #t
+ (if (if (vector? x-9380)
+ (if (= (vector-length x-9380) 4)
+ (eq? (vector-ref x-9380 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-9380 1))
+ #f))))
+ (gen-labels-4264
+ (lambda (ls-14960)
+ (if (null? ls-14960)
+ '()
+ (cons (string-append
+ "l-"
+ (session-id-4222)
+ (symbol->string (gensym "-")))
+ (gen-labels-4264 (cdr ls-14960))))))
+ (make-binding-wrap-4275
+ (lambda (ids-14964 labels-14965 w-14966)
+ (if (null? ids-14964)
+ w-14966
+ (cons (car w-14966)
+ (cons (let ((labelvec-14967 (list->vector labels-14965)))
+ (let ((n-14968 (vector-length labelvec-14967)))
+ (let ((symnamevec-14969 (make-vector n-14968))
+ (marksvec-14970 (make-vector n-14968)))
+ (begin
+ (letrec*
+ ((f-14971
+ (lambda (ids-14974 i-14975)
+ (if (not (null? ids-14974))
+ (call-with-values
+ (lambda ()
+ (let ((x-14978 (car ids-14974)))
+ (if (if (vector? x-14978)
+ (if (= (vector-length
+ x-14978)
+ 4)
+ (eq? (vector-ref
+ x-14978
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (values
+ (vector-ref x-14978 1)
+ (let ((m1-14994
+ (car w-14966))
+ (m2-14995
+ (car (vector-ref
+ x-14978
+ 2))))
+ (if (null? m2-14995)
+ m1-14994
+ (append
+ m1-14994
+ m2-14995))))
+ (values
+ x-14978
+ (car w-14966)))))
+ (lambda (symname-15015 marks-15016)
(begin
- (let ((#{w**\ 926}#
- (#{make-binding-wrap\ 434}#
- (list #{id\ 916}#)
- #{l\ 922}#
- #{w*\ 897}#)))
- (#{expand-opt\ 785}#
- #{req\ 890}#
- (cdr #{opt\ 891}#)
- #{rest\ 892}#
- #{kw\ 893}#
- #{body\ 894}#
- (cons #{v\ 920}#
- #{vars\ 895}#)
- #{r**\ 924}#
- #{w**\ 926}#
- (cons (syntax->datum
- #{id\ 916}#)
- #{out\ 898}#)
- (cons (#{chi\ 472}#
- #{i\ 917}#
- #{r*\ 896}#
- #{w*\ 897}#
- #{mod\ 772}#)
- #{inits\ 899}#)))))))))))
- #{tmp\ 913}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 912}#))))
- (if #{rest\ 892}#
- (begin
- (let ((#{v\ 931}# (#{gen-var\ 500}# #{rest\ 892}#)))
- (begin
- (let ((#{l\ 933}# (#{gen-labels\ 405}#
- (list #{v\ 931}#))))
- (begin
- (let ((#{r*\ 935}#
- (#{extend-var-env\ 377}#
- #{l\ 933}#
- (list #{v\ 931}#)
- #{r*\ 896}#)))
- (begin
- (let ((#{w*\ 937}#
- (#{make-binding-wrap\ 434}#
- (list #{rest\ 892}#)
- #{l\ 933}#
- #{w*\ 897}#)))
- (#{expand-kw\ 787}#
- #{req\ 890}#
- (if (pair? #{out\ 898}#)
- (reverse #{out\ 898}#)
- #f)
- (syntax->datum #{rest\ 892}#)
- (if (pair? #{kw\ 893}#)
- (cdr #{kw\ 893}#)
- #{kw\ 893}#)
- #{body\ 894}#
- (cons #{v\ 931}# #{vars\ 895}#)
- #{r*\ 935}#
- #{w*\ 937}#
- (if (pair? #{kw\ 893}#)
- (car #{kw\ 893}#)
- #f)
- '()
- #{inits\ 899}#)))))))))
- (#{expand-kw\ 787}#
- #{req\ 890}#
- (if (pair? #{out\ 898}#)
- (reverse #{out\ 898}#)
- #f)
- #f
- (if (pair? #{kw\ 893}#)
- (cdr #{kw\ 893}#)
- #{kw\ 893}#)
- #{body\ 894}#
- #{vars\ 895}#
- #{r*\ 896}#
- #{w*\ 897}#
- (if (pair? #{kw\ 893}#) (car #{kw\ 893}#) #f)
- '()
- #{inits\ 899}#)))))
- (#{expand-req\ 783}#
- (lambda (#{req\ 939}#
- #{opt\ 940}#
- #{rest\ 941}#
- #{kw\ 942}#
- #{body\ 943}#)
- (begin
- (let ((#{vars\ 951}#
- (map #{gen-var\ 500}# #{req\ 939}#))
- (#{labels\ 952}#
- (#{gen-labels\ 405}# #{req\ 939}#)))
- (begin
- (let ((#{r*\ 955}#
- (#{extend-var-env\ 377}#
- #{labels\ 952}#
- #{vars\ 951}#
- #{r\ 769}#))
- (#{w*\ 956}#
- (#{make-binding-wrap\ 434}#
- #{req\ 939}#
- #{labels\ 952}#
- #{w\ 770}#)))
- (#{expand-opt\ 785}#
- (map syntax->datum #{req\ 939}#)
- #{opt\ 940}#
- #{rest\ 941}#
- #{kw\ 942}#
- #{body\ 943}#
- (reverse #{vars\ 951}#)
- #{r*\ 955}#
- #{w*\ 956}#
- '()
- '()))))))))
- (begin
- (let ((#{tmp\ 957}# #{clauses\ 774}#))
- (let ((#{tmp\ 958}#
- ($sc-dispatch #{tmp\ 957}# (quote ()))))
- (if #{tmp\ 958}#
- (@apply
- (lambda () (values (quote ()) #f))
- #{tmp\ 958}#)
- (let ((#{tmp\ 959}#
- ($sc-dispatch
- #{tmp\ 957}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 959}#
- (@apply
- (lambda (#{args\ 966}#
- #{e1\ 967}#
- #{e2\ 968}#
- #{args*\ 969}#
- #{e1*\ 970}#
- #{e2*\ 971}#)
- (call-with-values
- (lambda ()
- (#{get-formals\ 773}# #{args\ 966}#))
- (lambda (#{req\ 972}#
- #{opt\ 973}#
- #{rest\ 974}#
- #{kw\ 975}#)
- (call-with-values
- (lambda ()
- (#{expand-req\ 783}#
- #{req\ 972}#
- #{opt\ 973}#
- #{rest\ 974}#
- #{kw\ 975}#
- (cons #{e1\ 967}# #{e2\ 968}#)))
- (lambda (#{meta\ 981}#
- #{req\ 982}#
- #{opt\ 983}#
- #{rest\ 984}#
- #{kw\ 985}#
- #{inits\ 986}#
- #{vars\ 987}#
- #{body\ 988}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 768}#
- #{r\ 769}#
- #{w\ 770}#
- #{s\ 771}#
- #{mod\ 772}#
- #{get-formals\ 773}#
- (map (lambda (#{tmp\ 999}#
- #{tmp\ 998}#
- #{tmp\ 997}#)
- (cons #{tmp\ 997}#
- (cons #{tmp\ 998}#
- #{tmp\ 999}#)))
- #{e2*\ 971}#
- #{e1*\ 970}#
- #{args*\ 969}#)))
- (lambda (#{meta*\ 1001}#
- #{else*\ 1002}#)
- (values
- (append
- #{meta\ 981}#
- #{meta*\ 1001}#)
- (#{build-lambda-case\ 333}#
- #{s\ 771}#
- #{req\ 982}#
- #{opt\ 983}#
- #{rest\ 984}#
- #{kw\ 985}#
- #{inits\ 986}#
- #{vars\ 987}#
- #{body\ 988}#
- #{else*\ 1002}#)))))))))
- #{tmp\ 959}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 957}#))))))))))
- (#{lambda*-formals\ 494}#
- (lambda (#{orig-args\ 1005}#)
- (letrec*
- ((#{check\ 1016}#
- (lambda (#{req\ 1017}#
- #{opt\ 1018}#
- #{rest\ 1019}#
- #{kw\ 1020}#)
- (if (#{distinct-bound-ids?\ 452}#
- (append
- #{req\ 1017}#
- (map car #{opt\ 1018}#)
- (if #{rest\ 1019}#
- (list #{rest\ 1019}#)
- '())
- (if (pair? #{kw\ 1020}#)
- (map cadr (cdr #{kw\ 1020}#))
- '())))
- (values
- #{req\ 1017}#
- #{opt\ 1018}#
- #{rest\ 1019}#
- #{kw\ 1020}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{orig-args\ 1005}#))))
- (#{rest\ 1014}#
- (lambda (#{args\ 1028}#
- #{req\ 1029}#
- #{opt\ 1030}#
- #{kw\ 1031}#)
- (let ((#{tmp\ 1036}# #{args\ 1028}#))
- (let ((#{tmp\ 1037}# (list #{tmp\ 1036}#)))
- (if (if #{tmp\ 1037}#
- (@apply
- (lambda (#{r\ 1039}#)
- (#{id?\ 387}# #{r\ 1039}#))
- #{tmp\ 1037}#)
- #f)
- (@apply
- (lambda (#{r\ 1041}#)
- (#{check\ 1016}#
- #{req\ 1029}#
- #{opt\ 1030}#
- #{r\ 1041}#
- #{kw\ 1031}#))
- #{tmp\ 1037}#)
- (let ((#{else\ 1043}# #{tmp\ 1036}#))
- (syntax-violation
- 'lambda*
- "invalid rest argument"
- #{orig-args\ 1005}#
- #{args\ 1028}#)))))))
- (#{key\ 1012}#
- (lambda (#{args\ 1044}#
- #{req\ 1045}#
- #{opt\ 1046}#
- #{rkey\ 1047}#)
- (let ((#{tmp\ 1052}# #{args\ 1044}#))
- (let ((#{tmp\ 1053}#
- ($sc-dispatch #{tmp\ 1052}# (quote ()))))
- (if #{tmp\ 1053}#
- (@apply
- (lambda ()
- (#{check\ 1016}#
- #{req\ 1045}#
- #{opt\ 1046}#
- #f
- (cons #f (reverse #{rkey\ 1047}#))))
- #{tmp\ 1053}#)
- (let ((#{tmp\ 1054}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '(any . any))))
- (if (if #{tmp\ 1054}#
- (@apply
- (lambda (#{a\ 1057}# #{b\ 1058}#)
- (#{id?\ 387}# #{a\ 1057}#))
- #{tmp\ 1054}#)
- #f)
- (@apply
- (lambda (#{a\ 1061}# #{b\ 1062}#)
- (let ((#{tmp\ 1064}#
- (symbol->keyword
- (syntax->datum #{a\ 1061}#))))
- (let ((#{k\ 1066}# #{tmp\ 1064}#))
- (#{key\ 1012}#
- #{b\ 1062}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons (cons #{k\ 1066}#
- (cons #{a\ 1061}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(k)
- #((top))
- #("i1065"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i1059"
- "i1060"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(args
- req
- opt
- rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i1048"
- "i1049"
- "i1050"
- "i1051"))
- #(ribcage
- (check rest
- key
- opt
- req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i1015"
- "i1013"
- "i1011"
- "i1009"
- "i1007"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i1006"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene
- guile)))))
- #{rkey\ 1047}#)))))
- #{tmp\ 1054}#)
- (let ((#{tmp\ 1067}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '((any any) . any))))
- (if (if #{tmp\ 1067}#
- (@apply
- (lambda (#{a\ 1071}#
- #{init\ 1072}#
- #{b\ 1073}#)
- (#{id?\ 387}# #{a\ 1071}#))
- #{tmp\ 1067}#)
+ (vector-set!
+ symnamevec-14969
+ i-14975
+ symname-15015)
+ (vector-set!
+ marksvec-14970
+ i-14975
+ marks-15016)
+ (f-14971
+ (cdr ids-14974)
+ (#{1+}# i-14975)))))))))
+ (f-14971 ids-14964 0))
+ (vector
+ 'ribcage
+ symnamevec-14969
+ marksvec-14970
+ labelvec-14967)))))
+ (cdr w-14966))))))
+ (join-wraps-4277
+ (lambda (w1-15025 w2-15026)
+ (let ((m1-15027 (car w1-15025))
+ (s1-15028 (cdr w1-15025)))
+ (if (null? m1-15027)
+ (if (null? s1-15028)
+ w2-15026
+ (cons (car w2-15026)
+ (let ((m2-15035 (cdr w2-15026)))
+ (if (null? m2-15035)
+ s1-15028
+ (append s1-15028 m2-15035)))))
+ (cons (let ((m2-15044 (car w2-15026)))
+ (if (null? m2-15044)
+ m1-15027
+ (append m1-15027 m2-15044)))
+ (let ((m2-15053 (cdr w2-15026)))
+ (if (null? m2-15053)
+ s1-15028
+ (append s1-15028 m2-15053))))))))
+ (same-marks?-4279
+ (lambda (x-15058 y-15059)
+ (if (eq? x-15058 y-15059)
+ (eq? x-15058 y-15059)
+ (if (not (null? x-15058))
+ (if (not (null? y-15059))
+ (if (eq? (car x-15058) (car y-15059))
+ (same-marks?-4279 (cdr x-15058) (cdr y-15059))
+ #f)
+ #f)
+ #f))))
+ (id-var-name-4280
+ (lambda (id-15067 w-15068)
+ (letrec*
+ ((search-15069
+ (lambda (sym-15130 subst-15131 marks-15132)
+ (if (null? subst-15131)
+ (values #f marks-15132)
+ (let ((fst-15133 (car subst-15131)))
+ (if (eq? fst-15133 'shift)
+ (search-15069
+ sym-15130
+ (cdr subst-15131)
+ (cdr marks-15132))
+ (let ((symnames-15135 (vector-ref fst-15133 1)))
+ (if (vector? symnames-15135)
+ (let ((n-15147 (vector-length symnames-15135)))
+ (letrec*
+ ((f-15148
+ (lambda (i-15150)
+ (if (= i-15150 n-15147)
+ (search-15069
+ sym-15130
+ (cdr subst-15131)
+ marks-15132)
+ (if (if (eq? (vector-ref
+ symnames-15135
+ i-15150)
+ sym-15130)
+ (same-marks?-4279
+ marks-15132
+ (vector-ref
+ (vector-ref fst-15133 2)
+ i-15150))
+ #f)
+ (values
+ (vector-ref
+ (vector-ref fst-15133 3)
+ i-15150)
+ marks-15132)
+ (f-15148 (#{1+}# i-15150)))))))
+ (f-15148 0)))
+ (letrec*
+ ((f-15183
+ (lambda (symnames-15185 i-15186)
+ (if (null? symnames-15185)
+ (search-15069
+ sym-15130
+ (cdr subst-15131)
+ marks-15132)
+ (if (if (eq? (car symnames-15185) sym-15130)
+ (same-marks?-4279
+ marks-15132
+ (list-ref
+ (vector-ref fst-15133 2)
+ i-15186))
+ #f)
+ (values
+ (list-ref
+ (vector-ref fst-15133 3)
+ i-15186)
+ marks-15132)
+ (f-15183
+ (cdr symnames-15185)
+ (#{1+}# i-15186)))))))
+ (f-15183 symnames-15135 0))))))))))
+ (if (symbol? id-15067)
+ (let ((t-15072
+ (search-15069
+ id-15067
+ (cdr w-15068)
+ (car w-15068))))
+ (if t-15072 t-15072 id-15067))
+ (if (if (vector? id-15067)
+ (if (= (vector-length id-15067) 4)
+ (eq? (vector-ref id-15067 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((id-15087 (vector-ref id-15067 1))
+ (w1-15088 (vector-ref id-15067 2)))
+ (let ((marks-15089
+ (let ((m1-15099 (car w-15068))
+ (m2-15100 (car w1-15088)))
+ (if (null? m2-15100)
+ m1-15099
+ (append m1-15099 m2-15100)))))
+ (call-with-values
+ (lambda ()
+ (search-15069 id-15087 (cdr w-15068) marks-15089))
+ (lambda (new-id-15116 marks-15117)
+ (if new-id-15116
+ new-id-15116
+ (let ((t-15125
+ (search-15069
+ id-15087
+ (cdr w1-15088)
+ marks-15117)))
+ (if t-15125 t-15125 id-15087)))))))
+ (syntax-violation
+ 'id-var-name
+ "invalid id"
+ id-15067))))))
+ (locally-bound-identifiers-4281
+ (lambda (w-15208 mod-15209)
+ (letrec*
+ ((scan-15210
+ (lambda (subst-15215 results-15216)
+ (if (null? subst-15215)
+ results-15216
+ (let ((fst-15217 (car subst-15215)))
+ (if (eq? fst-15217 'shift)
+ (scan-15210 (cdr subst-15215) results-15216)
+ (let ((symnames-15219 (vector-ref fst-15217 1))
+ (marks-15220 (vector-ref fst-15217 2)))
+ (if (vector? symnames-15219)
+ (scan-vector-rib-15212
+ subst-15215
+ symnames-15219
+ marks-15220
+ results-15216)
+ (scan-list-rib-15211
+ subst-15215
+ symnames-15219
+ marks-15220
+ results-15216))))))))
+ (scan-list-rib-15211
+ (lambda (subst-15318
+ symnames-15319
+ marks-15320
+ results-15321)
+ (letrec*
+ ((f-15322
+ (lambda (symnames-15422 marks-15423 results-15424)
+ (if (null? symnames-15422)
+ (scan-15210 (cdr subst-15318) results-15424)
+ (f-15322
+ (cdr symnames-15422)
+ (cdr marks-15423)
+ (cons (wrap-4290
+ (car symnames-15422)
+ (let ((w-15432
+ (cons (car marks-15423)
+ subst-15318)))
+ (cons (cons #f (car w-15432))
+ (cons 'shift (cdr w-15432))))
+ mod-15209)
+ results-15424))))))
+ (f-15322
+ symnames-15319
+ marks-15320
+ results-15321))))
+ (scan-vector-rib-15212
+ (lambda (subst-15433
+ symnames-15434
+ marks-15435
+ results-15436)
+ (let ((n-15437 (vector-length symnames-15434)))
+ (letrec*
+ ((f-15438
+ (lambda (i-15521 results-15522)
+ (if (= i-15521 n-15437)
+ (scan-15210 (cdr subst-15433) results-15522)
+ (f-15438
+ (#{1+}# i-15521)
+ (cons (wrap-4290
+ (vector-ref symnames-15434 i-15521)
+ (let ((w-15530
+ (cons (vector-ref
+ marks-15435
+ i-15521)
+ subst-15433)))
+ (cons (cons #f (car w-15530))
+ (cons 'shift (cdr w-15530))))
+ mod-15209)
+ results-15522))))))
+ (f-15438 0 results-15436))))))
+ (scan-15210 (cdr w-15208) '()))))
+ (valid-bound-ids?-4287
+ (lambda (ids-15531)
+ (if (letrec*
+ ((all-ids?-15532
+ (lambda (ids-15694)
+ (if (null? ids-15694)
+ (null? ids-15694)
+ (if (let ((x-15705 (car ids-15694)))
+ (if (symbol? x-15705)
+ #t
+ (if (if (vector? x-15705)
+ (if (= (vector-length x-15705) 4)
+ (eq? (vector-ref x-15705 0)
+ 'syntax-object)
#f)
- (@apply
- (lambda (#{a\ 1077}#
- #{init\ 1078}#
- #{b\ 1079}#)
- (let ((#{tmp\ 1081}#
- (symbol->keyword
- (syntax->datum #{a\ 1077}#))))
- (let ((#{k\ 1083}# #{tmp\ 1081}#))
- (#{key\ 1012}#
- #{b\ 1079}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons (list #{k\ 1083}#
- #{a\ 1077}#
- #{init\ 1078}#)
- #{rkey\ 1047}#)))))
- #{tmp\ 1067}#)
- (let ((#{tmp\ 1084}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '((any any any) . any))))
- (if (if #{tmp\ 1084}#
- (@apply
- (lambda (#{a\ 1089}#
- #{init\ 1090}#
- #{k\ 1091}#
- #{b\ 1092}#)
- (if (#{id?\ 387}# #{a\ 1089}#)
- (keyword?
- (syntax->datum #{k\ 1091}#))
- #f))
- #{tmp\ 1084}#)
- #f)
- (@apply
- (lambda (#{a\ 1099}#
- #{init\ 1100}#
- #{k\ 1101}#
- #{b\ 1102}#)
- (#{key\ 1012}#
- #{b\ 1102}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons (list #{k\ 1101}#
- #{a\ 1099}#
- #{init\ 1100}#)
- #{rkey\ 1047}#)))
- #{tmp\ 1084}#)
- (let ((#{tmp\ 1103}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '(any))))
- (if (if #{tmp\ 1103}#
- (@apply
- (lambda (#{aok\ 1105}#)
- (eq? (syntax->datum
- #{aok\ 1105}#)
- #:allow-other-keys))
- #{tmp\ 1103}#)
- #f)
- (@apply
- (lambda (#{aok\ 1107}#)
- (#{check\ 1016}#
- #{req\ 1045}#
- #{opt\ 1046}#
- #f
- (cons #t
- (reverse
- #{rkey\ 1047}#))))
- #{tmp\ 1103}#)
- (let ((#{tmp\ 1108}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '(any any any))))
- (if (if #{tmp\ 1108}#
- (@apply
- (lambda (#{aok\ 1112}#
- #{a\ 1113}#
- #{b\ 1114}#)
- (if (eq? (syntax->datum
- #{aok\ 1112}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a\ 1113}#)
- #:rest)
+ #f)
+ (symbol? (vector-ref x-15705 1))
+ #f)))
+ (all-ids?-15532 (cdr ids-15694))
+ #f)))))
+ (all-ids?-15532 ids-15531))
+ (distinct-bound-ids?-4288 ids-15531)
+ #f)))
+ (distinct-bound-ids?-4288
+ (lambda (ids-15833)
+ (letrec*
+ ((distinct?-15834
+ (lambda (ids-15946)
+ (if (null? ids-15946)
+ (null? ids-15946)
+ (if (not (bound-id-member?-4289
+ (car ids-15946)
+ (cdr ids-15946)))
+ (distinct?-15834 (cdr ids-15946))
+ #f)))))
+ (distinct?-15834 ids-15833))))
+ (bound-id-member?-4289
+ (lambda (x-16156 list-16157)
+ (if (not (null? list-16157))
+ (let ((t-16158
+ (let ((j-16239 (car list-16157)))
+ (if (if (if (vector? x-16156)
+ (if (= (vector-length x-16156) 4)
+ (eq? (vector-ref x-16156 0) 'syntax-object)
+ #f)
+ #f)
+ (if (vector? j-16239)
+ (if (= (vector-length j-16239) 4)
+ (eq? (vector-ref j-16239 0) 'syntax-object)
+ #f)
+ #f)
+ #f)
+ (if (eq? (vector-ref x-16156 1)
+ (vector-ref j-16239 1))
+ (same-marks?-4279
+ (car (vector-ref x-16156 2))
+ (car (vector-ref j-16239 2)))
+ #f)
+ (eq? x-16156 j-16239)))))
+ (if t-16158
+ t-16158
+ (bound-id-member?-4289 x-16156 (cdr list-16157))))
+ #f)))
+ (wrap-4290
+ (lambda (x-16283 w-16284 defmod-16285)
+ (if (if (null? (car w-16284))
+ (null? (cdr w-16284))
+ #f)
+ x-16283
+ (if (if (vector? x-16283)
+ (if (= (vector-length x-16283) 4)
+ (eq? (vector-ref x-16283 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((expression-16299 (vector-ref x-16283 1))
+ (wrap-16300
+ (join-wraps-4277 w-16284 (vector-ref x-16283 2)))
+ (module-16301 (vector-ref x-16283 3)))
+ (vector
+ 'syntax-object
+ expression-16299
+ wrap-16300
+ module-16301))
+ (if (null? x-16283)
+ x-16283
+ (vector
+ 'syntax-object
+ x-16283
+ w-16284
+ defmod-16285))))))
+ (source-wrap-4291
+ (lambda (x-16318 w-16319 s-16320 defmod-16321)
+ (wrap-4290
+ (begin
+ (if (if s-16320
+ (supports-source-properties? x-16318)
+ #f)
+ (set-source-properties! x-16318 s-16320))
+ x-16318)
+ w-16319
+ defmod-16321)))
+ (expand-sequence-4292
+ (lambda (body-24664 r-24665 w-24666 s-24667 mod-24668)
+ (build-sequence-4242
+ s-24667
+ (letrec*
+ ((dobody-24791
+ (lambda (body-25066 r-25067 w-25068 mod-25069)
+ (if (null? body-25066)
+ '()
+ (let ((first-25070
+ (let ((e-25120 (car body-25066)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-25120
+ r-25067
+ w-25068
+ (let ((props-25130
+ (source-properties
+ (if (if (vector? e-25120)
+ (if (= (vector-length
+ e-25120)
+ 4)
+ (eq? (vector-ref
+ e-25120
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-25120 1)
+ e-25120))))
+ (if (pair? props-25130) props-25130 #f))
+ #f
+ mod-25069
+ #f))
+ (lambda (type-25153
+ value-25154
+ form-25155
+ e-25156
+ w-25157
+ s-25158
+ mod-25159)
+ (expand-expr-4298
+ type-25153
+ value-25154
+ form-25155
+ e-25156
+ r-25067
+ w-25157
+ s-25158
+ mod-25159))))))
+ (cons first-25070
+ (dobody-24791
+ (cdr body-25066)
+ r-25067
+ w-25068
+ mod-25069)))))))
+ (dobody-24791
+ body-24664
+ r-24665
+ w-24666
+ mod-24668)))))
+ (expand-top-sequence-4293
+ (lambda (body-16339
+ r-16340
+ w-16341
+ s-16342
+ m-16343
+ esew-16344
+ mod-16345)
+ (letrec*
+ ((scan-16346
+ (lambda (body-16477
+ r-16478
+ w-16479
+ s-16480
+ m-16481
+ esew-16482
+ mod-16483
+ exps-16484)
+ (if (null? body-16477)
+ exps-16484
+ (call-with-values
+ (lambda ()
+ (call-with-values
+ (lambda ()
+ (let ((e-16485 (car body-16477)))
+ (syntax-type-4296
+ e-16485
+ r-16478
+ w-16479
+ (let ((t-16489
+ (let ((props-16521
+ (source-properties
+ (if (if (vector? e-16485)
+ (if (= (vector-length
+ e-16485)
+ 4)
+ (eq? (vector-ref
+ e-16485
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-16485 1)
+ e-16485))))
+ (if (pair? props-16521)
+ props-16521
+ #f))))
+ (if t-16489 t-16489 s-16480))
+ #f
+ mod-16483
+ #f)))
+ (lambda (type-16544
+ value-16545
+ form-16546
+ e-16547
+ w-16548
+ s-16549
+ mod-16550)
+ (if (eqv? type-16544 'begin-form)
+ (let ((tmp-16559 ($sc-dispatch e-16547 '(_))))
+ (if tmp-16559
+ (@apply (lambda () exps-16484) tmp-16559)
+ (let ((tmp-16563
+ ($sc-dispatch
+ e-16547
+ '(_ any . each-any))))
+ (if tmp-16563
+ (@apply
+ (lambda (e1-16567 e2-16568)
+ (scan-16346
+ (cons e1-16567 e2-16568)
+ r-16478
+ w-16548
+ s-16549
+ m-16481
+ esew-16482
+ mod-16550
+ exps-16484))
+ tmp-16563)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-16547)))))
+ (if (eqv? type-16544 'local-syntax-form)
+ (expand-local-syntax-4302
+ value-16545
+ e-16547
+ r-16478
+ w-16548
+ s-16549
+ mod-16550
+ (lambda (body-16586
+ r-16587
+ w-16588
+ s-16589
+ mod-16590)
+ (scan-16346
+ body-16586
+ r-16587
+ w-16588
+ s-16589
+ m-16481
+ esew-16482
+ mod-16590
+ exps-16484)))
+ (if (eqv? type-16544 'eval-when-form)
+ (let ((tmp-16598
+ ($sc-dispatch
+ e-16547
+ '(_ each-any any . each-any))))
+ (if tmp-16598
+ (@apply
+ (lambda (x-16602 e1-16603 e2-16604)
+ (let ((when-list-16605
+ (parse-when-list-4295
+ e-16547
+ x-16602))
+ (body-16606
+ (cons e1-16603 e2-16604)))
+ (if (eq? m-16481 'e)
+ (if (memq 'eval when-list-16605)
+ (scan-16346
+ body-16606
+ r-16478
+ w-16548
+ s-16549
+ (if (memq 'expand
+ when-list-16605)
+ 'c&e
+ 'e)
+ '(eval)
+ mod-16550
+ exps-16484)
+ (begin
+ (if (memq 'expand
+ when-list-16605)
+ (let ((x-16683
+ (expand-top-sequence-4293
+ body-16606
+ r-16478
+ w-16548
+ s-16549
+ 'e
+ '(eval)
+ mod-16550)))
+ (primitive-eval x-16683)))
+ exps-16484))
+ (if (memq 'load when-list-16605)
+ (if (let ((t-16709
+ (memq 'compile
+ when-list-16605)))
+ (if t-16709
+ t-16709
+ (let ((t-16758
+ (memq 'expand
+ when-list-16605)))
+ (if t-16758
+ t-16758
+ (if (eq? m-16481
+ 'c&e)
+ (memq 'eval
+ when-list-16605)
+ #f)))))
+ (scan-16346
+ body-16606
+ r-16478
+ w-16548
+ s-16549
+ 'c&e
+ '(compile load)
+ mod-16550
+ exps-16484)
+ (if (if (eq? m-16481 'c)
+ #t
+ (eq? m-16481 'c&e))
+ (scan-16346
+ body-16606
+ r-16478
+ w-16548
+ s-16549
+ 'c
+ '(load)
+ mod-16550
+ exps-16484)
+ exps-16484))
+ (if (let ((t-16887
+ (memq 'compile
+ when-list-16605)))
+ (if t-16887
+ t-16887
+ (let ((t-16936
+ (memq 'expand
+ when-list-16605)))
+ (if t-16936
+ t-16936
+ (if (eq? m-16481
+ 'c&e)
+ (memq 'eval
+ when-list-16605)
+ #f)))))
+ (begin
+ (let ((x-17060
+ (expand-top-sequence-4293
+ body-16606
+ r-16478
+ w-16548
+ s-16549
+ 'e
+ '(eval)
+ mod-16550)))
+ (primitive-eval x-17060))
+ exps-16484)
+ exps-16484)))))
+ tmp-16598)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-16547)))
+ (if (if (eqv? type-16544 'define-syntax-form)
+ #t
+ (eqv? type-16544
+ 'define-syntax-parameter-form))
+ (let ((n-17109
+ (id-var-name-4280
+ value-16545
+ w-16548))
+ (r-17110
+ (macros-only-env-4257 r-16478)))
+ (if (eqv? m-16481 'c)
+ (if (memq 'compile esew-16482)
+ (let ((e-17118
+ (expand-install-global-4294
+ n-17109
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-16547
+ r-17110
+ w-16548
+ (let ((props-17391
+ (source-properties
+ (if (if (vector?
+ e-16547)
+ (if (= (vector-length
+ e-16547)
+ 4)
+ (eq? (vector-ref
+ e-16547
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-16547
+ 1)
+ e-16547))))
+ (if (pair? props-17391)
+ props-17391
+ #f))
+ #f
+ mod-16550
#f))
- #{tmp\ 1108}#)
- #f)
- (@apply
- (lambda (#{aok\ 1120}#
- #{a\ 1121}#
- #{b\ 1122}#)
- (#{rest\ 1014}#
- #{b\ 1122}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons #t
- (reverse
- #{rkey\ 1047}#))))
- #{tmp\ 1108}#)
- (let ((#{tmp\ 1123}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '(any . any))))
- (if (if #{tmp\ 1123}#
- (@apply
- (lambda (#{aok\ 1126}#
- #{r\ 1127}#)
- (if (eq? (syntax->datum
- #{aok\ 1126}#)
- #:allow-other-keys)
- (#{id?\ 387}#
- #{r\ 1127}#)
+ (lambda (type-17424
+ value-17425
+ form-17426
+ e-17427
+ w-17428
+ s-17429
+ mod-17430)
+ (expand-expr-4298
+ type-17424
+ value-17425
+ form-17426
+ e-17427
+ r-17110
+ w-17428
+ s-17429
+ mod-17430))))))
+ (begin
+ (top-level-eval-hook-4220
+ e-17118
+ mod-16550)
+ (if (memq 'load esew-16482)
+ (cons e-17118 exps-16484)
+ exps-16484)))
+ (if (memq 'load esew-16482)
+ (cons (expand-install-global-4294
+ n-17109
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-16547
+ r-17110
+ w-16548
+ (let ((props-17660
+ (source-properties
+ (if (if (vector?
+ e-16547)
+ (if (= (vector-length
+ e-16547)
+ 4)
+ (eq? (vector-ref
+ e-16547
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-16547
+ 1)
+ e-16547))))
+ (if (pair? props-17660)
+ props-17660
#f))
- #{tmp\ 1123}#)
- #f)
- (@apply
- (lambda (#{aok\ 1132}#
- #{r\ 1133}#)
- (#{rest\ 1014}#
- #{r\ 1133}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons #t
- (reverse
- #{rkey\ 1047}#))))
- #{tmp\ 1123}#)
- (let ((#{tmp\ 1134}#
- ($sc-dispatch
- #{tmp\ 1052}#
- '(any any))))
- (if (if #{tmp\ 1134}#
- (@apply
- (lambda (#{a\ 1137}#
- #{b\ 1138}#)
- (eq? (syntax->datum
- #{a\ 1137}#)
- #:rest))
- #{tmp\ 1134}#)
+ #f
+ mod-16550
+ #f))
+ (lambda (type-17662
+ value-17663
+ form-17664
+ e-17665
+ w-17666
+ s-17667
+ mod-17668)
+ (expand-expr-4298
+ type-17662
+ value-17663
+ form-17664
+ e-17665
+ r-17110
+ w-17666
+ s-17667
+ mod-17668))))
+ exps-16484)
+ exps-16484))
+ (if (eqv? m-16481 'c&e)
+ (let ((e-17677
+ (expand-install-global-4294
+ n-17109
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-16547
+ r-17110
+ w-16548
+ (let ((props-17949
+ (source-properties
+ (if (if (vector?
+ e-16547)
+ (if (= (vector-length
+ e-16547)
+ 4)
+ (eq? (vector-ref
+ e-16547
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-16547
+ 1)
+ e-16547))))
+ (if (pair? props-17949)
+ props-17949
+ #f))
+ #f
+ mod-16550
+ #f))
+ (lambda (type-17982
+ value-17983
+ form-17984
+ e-17985
+ w-17986
+ s-17987
+ mod-17988)
+ (expand-expr-4298
+ type-17982
+ value-17983
+ form-17984
+ e-17985
+ r-17110
+ w-17986
+ s-17987
+ mod-17988))))))
+ (begin
+ (top-level-eval-hook-4220
+ e-17677
+ mod-16550)
+ (cons e-17677 exps-16484)))
+ (begin
+ (if (memq 'eval esew-16482)
+ (top-level-eval-hook-4220
+ (let ((e-18087
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-16547
+ r-17110
+ w-16548
+ (let ((props-18152
+ (source-properties
+ (if (if (vector?
+ e-16547)
+ (if (= (vector-length
+ e-16547)
+ 4)
+ (eq? (vector-ref
+ e-16547
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-16547
+ 1)
+ e-16547))))
+ (if (pair? props-18152)
+ props-18152
+ #f))
+ #f
+ mod-16550
+ #f))
+ (lambda (type-18185
+ value-18186
+ form-18187
+ e-18188
+ w-18189
+ s-18190
+ mod-18191)
+ (expand-expr-4298
+ type-18185
+ value-18186
+ form-18187
+ e-18188
+ r-17110
+ w-18189
+ s-18190
+ mod-18191)))))
+ (let ((exp-18092
+ (let ((fun-exp-18102
+ (if (equal?
+ (module-name
+ (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 7)
+ #f
+ 'make-syntax-transformer)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 5)
+ #f
+ '(guile)
+ 'make-syntax-transformer
+ #f)))
+ (arg-exps-18103
+ (list (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ n-17109)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ 'macro)
+ e-18087)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 11)
+ #f
+ fun-exp-18102
+ arg-exps-18103))))
+ (begin
+ (if (if (struct? exp-18092)
+ (eq? (struct-vtable
+ exp-18092)
+ (vector-ref
+ %expanded-vtables
+ 13))
#f)
- (@apply
- (lambda (#{a\ 1141}#
- #{b\ 1142}#)
- (#{rest\ 1014}#
- #{b\ 1142}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons #f
- (reverse
- #{rkey\ 1047}#))))
- #{tmp\ 1134}#)
- (let ((#{tmp\ 1143}#
- (list #{tmp\ 1052}#)))
- (if (if #{tmp\ 1143}#
- (@apply
- (lambda (#{r\ 1145}#)
- (#{id?\ 387}#
- #{r\ 1145}#))
- #{tmp\ 1143}#)
- #f)
- (@apply
- (lambda (#{r\ 1147}#)
- (#{rest\ 1014}#
- #{r\ 1147}#
- #{req\ 1045}#
- #{opt\ 1046}#
- (cons #f
- (reverse
- #{rkey\ 1047}#))))
- #{tmp\ 1143}#)
- (let ((#{else\ 1149}#
- #{tmp\ 1052}#))
- (syntax-violation
- 'lambda*
- "invalid keyword argument list"
- #{orig-args\ 1005}#
- #{args\ 1044}#)))))))))))))))))))))))
- (#{opt\ 1010}#
- (lambda (#{args\ 1150}# #{req\ 1151}# #{ropt\ 1152}#)
- (let ((#{tmp\ 1156}# #{args\ 1150}#))
- (let ((#{tmp\ 1157}#
- ($sc-dispatch #{tmp\ 1156}# (quote ()))))
- (if #{tmp\ 1157}#
- (@apply
- (lambda ()
- (#{check\ 1016}#
- #{req\ 1151}#
- (reverse #{ropt\ 1152}#)
- #f
- '()))
- #{tmp\ 1157}#)
- (let ((#{tmp\ 1158}#
- ($sc-dispatch
- #{tmp\ 1156}#
- '(any . any))))
- (if (if #{tmp\ 1158}#
- (@apply
- (lambda (#{a\ 1161}# #{b\ 1162}#)
- (#{id?\ 387}# #{a\ 1161}#))
- #{tmp\ 1158}#)
- #f)
- (@apply
- (lambda (#{a\ 1165}# #{b\ 1166}#)
- (#{opt\ 1010}#
- #{b\ 1166}#
- #{req\ 1151}#
- (cons (cons #{a\ 1165}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i1163" "i1164"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i1153"
- "i1154"
- "i1155"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i1015"
- "i1013"
- "i1011"
- "i1009"
- "i1007"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i1006"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene guile))))
- #{ropt\ 1152}#)))
- #{tmp\ 1158}#)
- (let ((#{tmp\ 1167}#
- ($sc-dispatch
- #{tmp\ 1156}#
- '((any any) . any))))
- (if (if #{tmp\ 1167}#
- (@apply
- (lambda (#{a\ 1171}#
- #{init\ 1172}#
- #{b\ 1173}#)
- (#{id?\ 387}# #{a\ 1171}#))
- #{tmp\ 1167}#)
- #f)
- (@apply
- (lambda (#{a\ 1177}#
- #{init\ 1178}#
- #{b\ 1179}#)
- (#{opt\ 1010}#
- #{b\ 1179}#
- #{req\ 1151}#
- (cons (list #{a\ 1177}# #{init\ 1178}#)
- #{ropt\ 1152}#)))
- #{tmp\ 1167}#)
- (let ((#{tmp\ 1180}#
- ($sc-dispatch
- #{tmp\ 1156}#
- '(any . any))))
- (if (if #{tmp\ 1180}#
- (@apply
- (lambda (#{a\ 1183}# #{b\ 1184}#)
- (eq? (syntax->datum #{a\ 1183}#)
- #:key))
- #{tmp\ 1180}#)
- #f)
- (@apply
- (lambda (#{a\ 1187}# #{b\ 1188}#)
- (#{key\ 1012}#
- #{b\ 1188}#
- #{req\ 1151}#
- (reverse #{ropt\ 1152}#)
- '()))
- #{tmp\ 1180}#)
- (let ((#{tmp\ 1189}#
- ($sc-dispatch
- #{tmp\ 1156}#
- '(any any))))
- (if (if #{tmp\ 1189}#
- (@apply
- (lambda (#{a\ 1192}#
- #{b\ 1193}#)
- (eq? (syntax->datum
- #{a\ 1192}#)
- #:rest))
- #{tmp\ 1189}#)
- #f)
- (@apply
- (lambda (#{a\ 1196}# #{b\ 1197}#)
- (#{rest\ 1014}#
- #{b\ 1197}#
- #{req\ 1151}#
- (reverse #{ropt\ 1152}#)
- '()))
- #{tmp\ 1189}#)
- (let ((#{tmp\ 1198}#
- (list #{tmp\ 1156}#)))
- (if (if #{tmp\ 1198}#
- (@apply
- (lambda (#{r\ 1200}#)
- (#{id?\ 387}#
- #{r\ 1200}#))
- #{tmp\ 1198}#)
- #f)
- (@apply
- (lambda (#{r\ 1202}#)
- (#{rest\ 1014}#
- #{r\ 1202}#
- #{req\ 1151}#
- (reverse #{ropt\ 1152}#)
- '()))
- #{tmp\ 1198}#)
- (let ((#{else\ 1204}#
- #{tmp\ 1156}#))
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{orig-args\ 1005}#
- #{args\ 1150}#)))))))))))))))))
- (#{req\ 1008}#
- (lambda (#{args\ 1205}# #{rreq\ 1206}#)
- (let ((#{tmp\ 1209}# #{args\ 1205}#))
- (let ((#{tmp\ 1210}#
- ($sc-dispatch #{tmp\ 1209}# (quote ()))))
- (if #{tmp\ 1210}#
- (@apply
- (lambda ()
- (#{check\ 1016}#
- (reverse #{rreq\ 1206}#)
- '()
- #f
- '()))
- #{tmp\ 1210}#)
- (let ((#{tmp\ 1211}#
- ($sc-dispatch
- #{tmp\ 1209}#
- '(any . any))))
- (if (if #{tmp\ 1211}#
- (@apply
- (lambda (#{a\ 1214}# #{b\ 1215}#)
- (#{id?\ 387}# #{a\ 1214}#))
- #{tmp\ 1211}#)
- #f)
- (@apply
- (lambda (#{a\ 1218}# #{b\ 1219}#)
- (#{req\ 1008}#
- #{b\ 1219}#
- (cons #{a\ 1218}# #{rreq\ 1206}#)))
- #{tmp\ 1211}#)
- (let ((#{tmp\ 1220}#
- ($sc-dispatch
- #{tmp\ 1209}#
- '(any . any))))
- (if (if #{tmp\ 1220}#
- (@apply
- (lambda (#{a\ 1223}# #{b\ 1224}#)
- (eq? (syntax->datum #{a\ 1223}#)
- #:optional))
- #{tmp\ 1220}#)
- #f)
- (@apply
- (lambda (#{a\ 1227}# #{b\ 1228}#)
- (#{opt\ 1010}#
- #{b\ 1228}#
- (reverse #{rreq\ 1206}#)
- '()))
- #{tmp\ 1220}#)
- (let ((#{tmp\ 1229}#
- ($sc-dispatch
- #{tmp\ 1209}#
- '(any . any))))
- (if (if #{tmp\ 1229}#
- (@apply
- (lambda (#{a\ 1232}# #{b\ 1233}#)
- (eq? (syntax->datum #{a\ 1232}#)
- #:key))
- #{tmp\ 1229}#)
- #f)
- (@apply
- (lambda (#{a\ 1236}# #{b\ 1237}#)
- (#{key\ 1012}#
- #{b\ 1237}#
- (reverse #{rreq\ 1206}#)
- '()
- '()))
- #{tmp\ 1229}#)
- (let ((#{tmp\ 1238}#
- ($sc-dispatch
- #{tmp\ 1209}#
- '(any any))))
- (if (if #{tmp\ 1238}#
- (@apply
- (lambda (#{a\ 1241}#
- #{b\ 1242}#)
- (eq? (syntax->datum
- #{a\ 1241}#)
- #:rest))
- #{tmp\ 1238}#)
- #f)
- (@apply
- (lambda (#{a\ 1245}# #{b\ 1246}#)
- (#{rest\ 1014}#
- #{b\ 1246}#
- (reverse #{rreq\ 1206}#)
- '()
- '()))
- #{tmp\ 1238}#)
- (let ((#{tmp\ 1247}#
- (list #{tmp\ 1209}#)))
- (if (if #{tmp\ 1247}#
- (@apply
- (lambda (#{r\ 1249}#)
- (#{id?\ 387}#
- #{r\ 1249}#))
- #{tmp\ 1247}#)
+ (let ((meta-18203
+ (struct-ref
+ exp-18092
+ 1)))
+ (if (not (assq 'name
+ meta-18203))
+ (let ((v-18210
+ (cons (cons 'name
+ n-17109)
+ meta-18203)))
+ (struct-set!
+ exp-18092
+ 1
+ v-18210)))))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 9)
+ #f
+ n-17109
+ exp-18092))))
+ mod-16550))
+ exps-16484))))
+ (if (eqv? type-16544 'define-form)
+ (let ((n-18293
+ (id-var-name-4280
+ value-16545
+ w-16548)))
+ (let ((type-18294
+ (car (let ((t-18302
+ (assq n-18293
+ r-16478)))
+ (if t-18302
+ (cdr t-18302)
+ (if (symbol? n-18293)
+ (let ((t-18308
+ (get-global-definition-hook-4224
+ n-18293
+ mod-16550)))
+ (if t-18308
+ t-18308
+ '(global)))
+ '(displaced-lexical)))))))
+ (if (if (eqv? type-18294 'global)
+ #t
+ (if (eqv? type-18294 'core)
+ #t
+ (if (eqv? type-18294 'macro)
+ #t
+ (eqv? type-18294
+ 'module-ref))))
+ (begin
+ (if (if (if (eq? m-16481 'c)
+ #t
+ (eq? m-16481 'c&e))
+ (if (not (module-local-variable
+ (current-module)
+ n-18293))
+ (current-module)
+ #f)
#f)
- (@apply
- (lambda (#{r\ 1251}#)
- (#{rest\ 1014}#
- #{r\ 1251}#
- (reverse #{rreq\ 1206}#)
- '()
- '()))
- #{tmp\ 1247}#)
- (let ((#{else\ 1253}#
- #{tmp\ 1209}#))
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{orig-args\ 1005}#
- #{args\ 1205}#))))))))))))))))))
- (begin
- (#{req\ 1008}# #{orig-args\ 1005}# (quote ()))))))
- (#{chi-simple-lambda\ 492}#
- (lambda (#{e\ 1254}#
- #{r\ 1255}#
- #{w\ 1256}#
- #{s\ 1257}#
- #{mod\ 1258}#
- #{req\ 1259}#
- #{rest\ 1260}#
- #{meta\ 1261}#
- #{body\ 1262}#)
- (begin
- (let ((#{ids\ 1274}#
- (if #{rest\ 1260}#
- (append #{req\ 1259}# (list #{rest\ 1260}#))
- #{req\ 1259}#)))
- (begin
- (let ((#{vars\ 1276}#
- (map #{gen-var\ 500}# #{ids\ 1274}#)))
- (begin
- (let ((#{labels\ 1278}#
- (#{gen-labels\ 405}# #{ids\ 1274}#)))
- (#{build-simple-lambda\ 329}#
- #{s\ 1257}#
- (map syntax->datum #{req\ 1259}#)
- (if #{rest\ 1260}#
- (syntax->datum #{rest\ 1260}#)
- #f)
- #{vars\ 1276}#
- #{meta\ 1261}#
- (#{chi-body\ 480}#
- #{body\ 1262}#
- (#{source-wrap\ 458}#
- #{e\ 1254}#
- #{w\ 1256}#
- #{s\ 1257}#
- #{mod\ 1258}#)
- (#{extend-var-env\ 377}#
- #{labels\ 1278}#
- #{vars\ 1276}#
- #{r\ 1255}#)
- (#{make-binding-wrap\ 434}#
- #{ids\ 1274}#
- #{labels\ 1278}#
- #{w\ 1256}#)
- #{mod\ 1258}#))))))))))
- (#{lambda-formals\ 490}#
- (lambda (#{orig-args\ 1281}#)
- (letrec*
- ((#{check\ 1286}#
- (lambda (#{req\ 1287}# #{rest\ 1288}#)
- (if (#{distinct-bound-ids?\ 452}#
- (if #{rest\ 1288}#
- (cons #{rest\ 1288}# #{req\ 1287}#)
- #{req\ 1287}#))
- (values #{req\ 1287}# #f #{rest\ 1288}# #f)
+ (let ((old-18341
+ (module-variable
+ (current-module)
+ n-18293)))
+ (if (if (variable? old-18341)
+ (variable-bound?
+ old-18341)
+ #f)
+ (module-define!
+ (current-module)
+ n-18293
+ (variable-ref old-18341))
+ (module-add!
+ (current-module)
+ n-18293
+ (make-undefined-variable)))))
+ (cons (if (eq? m-16481 'c&e)
+ (let ((x-18538
+ (let ((exp-18567
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-16547
+ r-16478
+ w-16548
+ (let ((props-18570
+ (source-properties
+ (if (if (vector?
+ e-16547)
+ (if (= (vector-length
+ e-16547)
+ 4)
+ (eq? (vector-ref
+ e-16547
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-16547
+ 1)
+ e-16547))))
+ (if (pair? props-18570)
+ props-18570
+ #f))
+ #f
+ mod-16550
+ #f))
+ (lambda (type-18571
+ value-18572
+ form-18573
+ e-18574
+ w-18575
+ s-18576
+ mod-18577)
+ (expand-expr-4298
+ type-18571
+ value-18572
+ form-18573
+ e-18574
+ r-16478
+ w-18575
+ s-18576
+ mod-18577)))))
+ (begin
+ (if (if (struct?
+ exp-18567)
+ (eq? (struct-vtable
+ exp-18567)
+ (vector-ref
+ %expanded-vtables
+ 13))
+ #f)
+ (let ((meta-18579
+ (struct-ref
+ exp-18567
+ 1)))
+ (if (not (assq 'name
+ meta-18579))
+ (let ((v-18581
+ (cons (cons 'name
+ n-18293)
+ meta-18579)))
+ (struct-set!
+ exp-18567
+ 1
+ v-18581)))))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 9)
+ s-16549
+ n-18293
+ exp-18567)))))
+ (begin
+ (primitive-eval
+ x-18538)
+ x-18538))
+ (lambda ()
+ (let ((exp-18583
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-16547
+ r-16478
+ w-16548
+ (let ((props-18586
+ (source-properties
+ (if (if (vector?
+ e-16547)
+ (if (= (vector-length
+ e-16547)
+ 4)
+ (eq? (vector-ref
+ e-16547
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-16547
+ 1)
+ e-16547))))
+ (if (pair? props-18586)
+ props-18586
+ #f))
+ #f
+ mod-16550
+ #f))
+ (lambda (type-18587
+ value-18588
+ form-18589
+ e-18590
+ w-18591
+ s-18592
+ mod-18593)
+ (expand-expr-4298
+ type-18587
+ value-18588
+ form-18589
+ e-18590
+ r-16478
+ w-18591
+ s-18592
+ mod-18593)))))
+ (begin
+ (if (if (struct?
+ exp-18583)
+ (eq? (struct-vtable
+ exp-18583)
+ (vector-ref
+ %expanded-vtables
+ 13))
+ #f)
+ (let ((meta-18595
+ (struct-ref
+ exp-18583
+ 1)))
+ (if (not (assq 'name
+ meta-18595))
+ (let ((v-18597
+ (cons (cons 'name
+ n-18293)
+ meta-18595)))
+ (struct-set!
+ exp-18583
+ 1
+ v-18597)))))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 9)
+ s-16549
+ n-18293
+ exp-18583)))))
+ exps-16484))
+ (if (eqv? type-18294
+ 'displaced-lexical)
+ (syntax-violation
+ #f
+ "identifier out of context"
+ (wrap-4290
+ (begin
+ (if (if s-16549
+ (supports-source-properties?
+ form-16546)
+ #f)
+ (set-source-properties!
+ form-16546
+ s-16549))
+ form-16546)
+ w-16548
+ mod-16550)
+ (wrap-4290
+ value-16545
+ w-16548
+ mod-16550))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ (wrap-4290
+ (begin
+ (if (if s-16549
+ (supports-source-properties?
+ form-16546)
+ #f)
+ (set-source-properties!
+ form-16546
+ s-16549))
+ form-16546)
+ w-16548
+ mod-16550)
+ (wrap-4290
+ value-16545
+ w-16548
+ mod-16550))))))
+ (cons (if (eq? m-16481 'c&e)
+ (let ((x-18662
+ (expand-expr-4298
+ type-16544
+ value-16545
+ form-16546
+ e-16547
+ r-16478
+ w-16548
+ s-16549
+ mod-16550)))
+ (begin
+ (primitive-eval x-18662)
+ x-18662))
+ (lambda ()
+ (expand-expr-4298
+ type-16544
+ value-16545
+ form-16546
+ e-16547
+ r-16478
+ w-16548
+ s-16549
+ mod-16550)))
+ exps-16484)))))))))
+ (lambda (exps-18667)
+ (scan-16346
+ (cdr body-16477)
+ r-16478
+ w-16479
+ s-16480
+ m-16481
+ esew-16482
+ mod-16483
+ exps-18667)))))))
+ (call-with-values
+ (lambda ()
+ (scan-16346
+ body-16339
+ r-16340
+ w-16341
+ s-16342
+ m-16343
+ esew-16344
+ mod-16345
+ '()))
+ (lambda (exps-16349)
+ (if (null? exps-16349)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ s-16342)
+ (build-sequence-4242
+ s-16342
+ (letrec*
+ ((lp-16389
+ (lambda (in-16473 out-16474)
+ (if (null? in-16473)
+ out-16474
+ (let ((e-16475 (car in-16473)))
+ (lp-16389
+ (cdr in-16473)
+ (cons (if (procedure? e-16475)
+ (e-16475)
+ e-16475)
+ out-16474)))))))
+ (lp-16389 exps-16349 '())))))))))
+ (expand-install-global-4294
+ (lambda (name-18668 e-18669)
+ (let ((exp-18675
+ (let ((fun-exp-18685
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'make-syntax-transformer)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'make-syntax-transformer
+ #f)))
+ (arg-exps-18686
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ name-18668)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ 'macro)
+ e-18669)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ fun-exp-18685
+ arg-exps-18686))))
+ (begin
+ (if (if (struct? exp-18675)
+ (eq? (struct-vtable exp-18675)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((meta-18727 (struct-ref exp-18675 1)))
+ (if (not (assq 'name meta-18727))
+ (let ((v-18734
+ (cons (cons 'name name-18668) meta-18727)))
+ (struct-set! exp-18675 1 v-18734)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #f
+ name-18668
+ exp-18675)))))
+ (parse-when-list-4295
+ (lambda (e-18745 when-list-18746)
+ (let ((result-18747 (strip-4310 when-list-18746 '(()))))
+ (letrec*
+ ((lp-18748
+ (lambda (l-18802)
+ (if (null? l-18802)
+ result-18747
+ (if (let ((t-18804 (car l-18802)))
+ (if (eq? t-18804 'compile)
+ #t
+ (if (eq? t-18804 'load)
+ #t
+ (if (eq? t-18804 'eval)
+ #t
+ (eq? t-18804 'expand)))))
+ (lp-18748 (cdr l-18802))
(syntax-violation
- 'lambda
- "duplicate identifier in argument list"
- #{orig-args\ 1281}#))))
- (#{req\ 1284}#
- (lambda (#{args\ 1294}# #{rreq\ 1295}#)
- (let ((#{tmp\ 1298}# #{args\ 1294}#))
- (let ((#{tmp\ 1299}#
- ($sc-dispatch #{tmp\ 1298}# (quote ()))))
- (if #{tmp\ 1299}#
- (@apply
- (lambda ()
- (#{check\ 1286}# (reverse #{rreq\ 1295}#) #f))
- #{tmp\ 1299}#)
- (let ((#{tmp\ 1300}#
- ($sc-dispatch
- #{tmp\ 1298}#
- '(any . any))))
- (if (if #{tmp\ 1300}#
- (@apply
- (lambda (#{a\ 1303}# #{b\ 1304}#)
- (#{id?\ 387}# #{a\ 1303}#))
- #{tmp\ 1300}#)
- #f)
- (@apply
- (lambda (#{a\ 1307}# #{b\ 1308}#)
- (#{req\ 1284}#
- #{b\ 1308}#
- (cons #{a\ 1307}# #{rreq\ 1295}#)))
- #{tmp\ 1300}#)
- (let ((#{tmp\ 1309}# (list #{tmp\ 1298}#)))
- (if (if #{tmp\ 1309}#
- (@apply
- (lambda (#{r\ 1311}#)
- (#{id?\ 387}# #{r\ 1311}#))
- #{tmp\ 1309}#)
- #f)
- (@apply
- (lambda (#{r\ 1313}#)
- (#{check\ 1286}#
- (reverse #{rreq\ 1295}#)
- #{r\ 1313}#))
- #{tmp\ 1309}#)
- (let ((#{else\ 1315}# #{tmp\ 1298}#))
- (syntax-violation
- 'lambda
- "invalid argument list"
- #{orig-args\ 1281}#
- #{args\ 1294}#))))))))))))
- (begin
- (#{req\ 1284}# #{orig-args\ 1281}# (quote ()))))))
- (#{ellipsis?\ 488}#
- (lambda (#{x\ 1316}#)
- (if (#{nonsymbol-id?\ 385}# #{x\ 1316}#)
- (#{free-id=?\ 446}#
- #{x\ 1316}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1317"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile)))
- #f)))
- (#{chi-void\ 486}#
- (lambda () (#{build-void\ 307}# #f)))
- (#{eval-local-transformer\ 484}#
- (lambda (#{expanded\ 1321}# #{mod\ 1322}#)
- (begin
- (let ((#{p\ 1326}#
- (#{local-eval-hook\ 298}#
- #{expanded\ 1321}#
- #{mod\ 1322}#)))
- (if (procedure? #{p\ 1326}#)
- #{p\ 1326}#
- (syntax-violation
- #f
- "nonprocedure transformer"
- #{p\ 1326}#))))))
- (#{chi-local-syntax\ 482}#
- (lambda (#{rec?\ 1327}#
- #{e\ 1328}#
- #{r\ 1329}#
- #{w\ 1330}#
- #{s\ 1331}#
- #{mod\ 1332}#
- #{k\ 1333}#)
- (let ((#{tmp\ 1341}# #{e\ 1328}#))
- (let ((#{tmp\ 1342}#
- ($sc-dispatch
- #{tmp\ 1341}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 1342}#
- (@apply
- (lambda (#{_\ 1348}#
- #{id\ 1349}#
- #{val\ 1350}#
- #{e1\ 1351}#
- #{e2\ 1352}#)
- (begin
- (let ((#{ids\ 1354}# #{id\ 1349}#))
- (if (not (#{valid-bound-ids?\ 450}# #{ids\ 1354}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e\ 1328}#)
- (begin
- (let ((#{labels\ 1357}#
- (#{gen-labels\ 405}# #{ids\ 1354}#)))
- (begin
- (let ((#{new-w\ 1359}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 1354}#
- #{labels\ 1357}#
- #{w\ 1330}#)))
- (#{k\ 1333}#
- (cons #{e1\ 1351}# #{e2\ 1352}#)
- (#{extend-env\ 375}#
- #{labels\ 1357}#
- (begin
- (let ((#{w\ 1363}#
- (if #{rec?\ 1327}#
- #{new-w\ 1359}#
- #{w\ 1330}#))
- (#{trans-r\ 1364}#
- (#{macros-only-env\ 379}#
- #{r\ 1329}#)))
- (map (lambda (#{x\ 1365}#)
- (cons 'macro
- (#{eval-local-transformer\ 484}#
- (#{chi\ 472}#
- #{x\ 1365}#
- #{trans-r\ 1364}#
- #{w\ 1363}#
- #{mod\ 1332}#)
- #{mod\ 1332}#)))
- #{val\ 1350}#)))
- #{r\ 1329}#)
- #{new-w\ 1359}#
- #{s\ 1331}#
- #{mod\ 1332}#)))))))))
- #{tmp\ 1342}#)
- (let ((#{_\ 1370}# #{tmp\ 1341}#))
- (syntax-violation
- #f
- "bad local syntax definition"
- (#{source-wrap\ 458}#
- #{e\ 1328}#
- #{w\ 1330}#
- #{s\ 1331}#
- #{mod\ 1332}#))))))))
- (#{chi-body\ 480}#
- (lambda (#{body\ 1371}#
- #{outer-form\ 1372}#
- #{r\ 1373}#
- #{w\ 1374}#
- #{mod\ 1375}#)
- (begin
- (let ((#{r\ 1383}#
- (cons '("placeholder" placeholder)
- #{r\ 1373}#)))
- (begin
- (let ((#{ribcage\ 1385}#
- (#{make-ribcage\ 408}#
- '()
- '()
- '())))
- (begin
- (let ((#{w\ 1388}#
- (#{make-wrap\ 392}#
- (#{wrap-marks\ 394}# #{w\ 1374}#)
- (cons #{ribcage\ 1385}#
- (#{wrap-subst\ 396}# #{w\ 1374}#)))))
- (letrec*
- ((#{parse\ 1397}#
- (lambda (#{body\ 1398}#
- #{ids\ 1399}#
- #{labels\ 1400}#
- #{var-ids\ 1401}#
- #{vars\ 1402}#
- #{vals\ 1403}#
- #{bindings\ 1404}#)
- (if (null? #{body\ 1398}#)
- (syntax-violation
- #f
- "no expressions in body"
- #{outer-form\ 1372}#)
- (begin
- (let ((#{e\ 1409}#
- (cdr (car #{body\ 1398}#)))
- (#{er\ 1410}#
- (car (car #{body\ 1398}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type\ 468}#
- #{e\ 1409}#
- #{er\ 1410}#
- '(())
- (#{source-annotation\ 366}#
- #{er\ 1410}#)
- #{ribcage\ 1385}#
- #{mod\ 1375}#
- #f))
- (lambda (#{type\ 1412}#
- #{value\ 1413}#
- #{e\ 1414}#
- #{w\ 1415}#
- #{s\ 1416}#
- #{mod\ 1417}#)
- (if (eqv? #{type\ 1412}#
- 'define-form)
- (begin
- (let ((#{id\ 1427}#
- (#{wrap\ 456}#
- #{value\ 1413}#
- #{w\ 1415}#
- #{mod\ 1417}#))
- (#{label\ 1428}#
- (#{gen-label\ 403}#)))
- (begin
- (let ((#{var\ 1430}#
- (#{gen-var\ 500}#
- #{id\ 1427}#)))
- (begin
- (#{extend-ribcage!\ 432}#
- #{ribcage\ 1385}#
- #{id\ 1427}#
- #{label\ 1428}#)
- (#{parse\ 1397}#
- (cdr #{body\ 1398}#)
- (cons #{id\ 1427}#
- #{ids\ 1399}#)
- (cons #{label\ 1428}#
- #{labels\ 1400}#)
- (cons #{id\ 1427}#
- #{var-ids\ 1401}#)
- (cons #{var\ 1430}#
- #{vars\ 1402}#)
- (cons (cons #{er\ 1410}#
- (#{wrap\ 456}#
- #{e\ 1414}#
- #{w\ 1415}#
- #{mod\ 1417}#))
- #{vals\ 1403}#)
- (cons (cons 'lexical
- #{var\ 1430}#)
- #{bindings\ 1404}#)))))))
- (if (eqv? #{type\ 1412}#
- 'define-syntax-form)
- (begin
- (let ((#{id\ 1435}#
- (#{wrap\ 456}#
- #{value\ 1413}#
- #{w\ 1415}#
- #{mod\ 1417}#))
- (#{label\ 1436}#
- (#{gen-label\ 403}#)))
- (begin
- (#{extend-ribcage!\ 432}#
- #{ribcage\ 1385}#
- #{id\ 1435}#
- #{label\ 1436}#)
- (#{parse\ 1397}#
- (cdr #{body\ 1398}#)
- (cons #{id\ 1435}#
- #{ids\ 1399}#)
- (cons #{label\ 1436}#
- #{labels\ 1400}#)
- #{var-ids\ 1401}#
- #{vars\ 1402}#
- #{vals\ 1403}#
- (cons (cons 'macro
- (cons #{er\ 1410}#
- (#{wrap\ 456}#
- #{e\ 1414}#
- #{w\ 1415}#
- #{mod\ 1417}#)))
- #{bindings\ 1404}#)))))
- (if (eqv? #{type\ 1412}#
- 'begin-form)
- (let ((#{tmp\ 1439}#
- #{e\ 1414}#))
- (let ((#{tmp\ 1440}#
- ($sc-dispatch
- #{tmp\ 1439}#
- '(any .
- each-any))))
- (if #{tmp\ 1440}#
- (@apply
- (lambda (#{_\ 1443}#
- #{e1\ 1444}#)
- (#{parse\ 1397}#
- (letrec*
- ((#{f\ 1447}#
- (lambda (#{forms\ 1448}#)
- (if (null? #{forms\ 1448}#)
- (cdr #{body\ 1398}#)
- (cons (cons #{er\ 1410}#
- (#{wrap\ 456}#
- (car #{forms\ 1448}#)
- #{w\ 1415}#
- #{mod\ 1417}#))
- (#{f\ 1447}#
- (cdr #{forms\ 1448}#)))))))
- (begin
- (#{f\ 1447}#
- #{e1\ 1444}#)))
- #{ids\ 1399}#
- #{labels\ 1400}#
- #{var-ids\ 1401}#
- #{vars\ 1402}#
- #{vals\ 1403}#
- #{bindings\ 1404}#))
- #{tmp\ 1440}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1439}#))))
- (if (eqv? #{type\ 1412}#
- 'local-syntax-form)
- (#{chi-local-syntax\ 482}#
- #{value\ 1413}#
- #{e\ 1414}#
- #{er\ 1410}#
- #{w\ 1415}#
- #{s\ 1416}#
- #{mod\ 1417}#
- (lambda (#{forms\ 1451}#
- #{er\ 1452}#
- #{w\ 1453}#
- #{s\ 1454}#
- #{mod\ 1455}#)
- (#{parse\ 1397}#
- (letrec*
- ((#{f\ 1463}#
- (lambda (#{forms\ 1464}#)
- (if (null? #{forms\ 1464}#)
- (cdr #{body\ 1398}#)
- (cons (cons #{er\ 1452}#
- (#{wrap\ 456}#
- (car #{forms\ 1464}#)
- #{w\ 1453}#
- #{mod\ 1455}#))
- (#{f\ 1463}#
- (cdr #{forms\ 1464}#)))))))
- (begin
- (#{f\ 1463}#
- #{forms\ 1451}#)))
- #{ids\ 1399}#
- #{labels\ 1400}#
- #{var-ids\ 1401}#
- #{vars\ 1402}#
- #{vals\ 1403}#
- #{bindings\ 1404}#)))
- (if (null? #{ids\ 1399}#)
- (#{build-sequence\ 339}#
- #f
- (map (lambda (#{x\ 1467}#)
- (#{chi\ 472}#
- (cdr #{x\ 1467}#)
- (car #{x\ 1467}#)
- '(())
- #{mod\ 1417}#))
- (cons (cons #{er\ 1410}#
- (#{source-wrap\ 458}#
- #{e\ 1414}#
- #{w\ 1415}#
- #{s\ 1416}#
- #{mod\ 1417}#))
- (cdr #{body\ 1398}#))))
- (begin
- (if (not (#{valid-bound-ids?\ 450}#
- #{ids\ 1399}#))
- (syntax-violation
- #f
- "invalid or duplicate identifier in definition"
- #{outer-form\ 1372}#))
- (letrec*
- ((#{loop\ 1474}#
- (lambda (#{bs\ 1475}#
- #{er-cache\ 1476}#
- #{r-cache\ 1477}#)
- (if (not (null? #{bs\ 1475}#))
- (begin
- (let ((#{b\ 1480}#
- (car #{bs\ 1475}#)))
- (if (eq? (car #{b\ 1480}#)
- 'macro)
- (begin
- (let ((#{er\ 1483}#
- (car (cdr #{b\ 1480}#))))
- (begin
- (let ((#{r-cache\ 1485}#
- (if (eq? #{er\ 1483}#
- #{er-cache\ 1476}#)
- #{r-cache\ 1477}#
- (#{macros-only-env\ 379}#
- #{er\ 1483}#))))
- (begin
- (set-cdr!
- #{b\ 1480}#
- (#{eval-local-transformer\ 484}#
- (#{chi\ 472}#
- (cdr (cdr #{b\ 1480}#))
- #{r-cache\ 1485}#
- '(())
- #{mod\ 1417}#)
- #{mod\ 1417}#))
- (#{loop\ 1474}#
- (cdr #{bs\ 1475}#)
- #{er\ 1483}#
- #{r-cache\ 1485}#))))))
- (#{loop\ 1474}#
- (cdr #{bs\ 1475}#)
- #{er-cache\ 1476}#
- #{r-cache\ 1477}#))))))))
- (begin
- (#{loop\ 1474}#
- #{bindings\ 1404}#
- #f
- #f)))
- (set-cdr!
- #{r\ 1383}#
- (#{extend-env\ 375}#
- #{labels\ 1400}#
- #{bindings\ 1404}#
- (cdr #{r\ 1383}#)))
- (#{build-letrec\ 345}#
- #f
- #t
- (map syntax->datum
- #{var-ids\ 1401}#)
- #{vars\ 1402}#
- (map (lambda (#{x\ 1488}#)
- (#{chi\ 472}#
- (cdr #{x\ 1488}#)
- (car #{x\ 1488}#)
- '(())
- #{mod\ 1417}#))
- #{vals\ 1403}#)
- (#{build-sequence\ 339}#
- #f
- (map (lambda (#{x\ 1492}#)
- (#{chi\ 472}#
- (cdr #{x\ 1492}#)
- (car #{x\ 1492}#)
- '(())
- #{mod\ 1417}#))
- (cons (cons #{er\ 1410}#
- (#{source-wrap\ 458}#
- #{e\ 1414}#
- #{w\ 1415}#
- #{s\ 1416}#
- #{mod\ 1417}#))
- (cdr #{body\ 1398}#)))))))))))))))))))
- (begin
- (#{parse\ 1397}#
- (map (lambda (#{x\ 1405}#)
- (cons #{r\ 1383}#
- (#{wrap\ 456}#
- #{x\ 1405}#
- #{w\ 1388}#
- #{mod\ 1375}#)))
- #{body\ 1371}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))))))
- (#{chi-macro\ 478}#
- (lambda (#{p\ 1495}#
- #{e\ 1496}#
- #{r\ 1497}#
- #{w\ 1498}#
- #{s\ 1499}#
- #{rib\ 1500}#
- #{mod\ 1501}#)
- (letrec*
- ((#{rebuild-macro-output\ 1510}#
- (lambda (#{x\ 1511}# #{m\ 1512}#)
- (if (pair? #{x\ 1511}#)
- (#{decorate-source\ 305}#
- (cons (#{rebuild-macro-output\ 1510}#
- (car #{x\ 1511}#)
- #{m\ 1512}#)
- (#{rebuild-macro-output\ 1510}#
- (cdr #{x\ 1511}#)
- #{m\ 1512}#))
- #{s\ 1499}#)
- (if (#{syntax-object?\ 351}# #{x\ 1511}#)
- (begin
- (let ((#{w\ 1520}#
- (#{syntax-object-wrap\ 355}# #{x\ 1511}#)))
- (begin
- (let ((#{ms\ 1523}#
- (#{wrap-marks\ 394}# #{w\ 1520}#))
- (#{s\ 1524}#
- (#{wrap-subst\ 396}# #{w\ 1520}#)))
- (if (if (pair? #{ms\ 1523}#)
- (eq? (car #{ms\ 1523}#) #f)
- #f)
- (#{make-syntax-object\ 349}#
- (#{syntax-object-expression\ 353}#
- #{x\ 1511}#)
- (#{make-wrap\ 392}#
- (cdr #{ms\ 1523}#)
- (if #{rib\ 1500}#
- (cons #{rib\ 1500}# (cdr #{s\ 1524}#))
- (cdr #{s\ 1524}#)))
- (#{syntax-object-module\ 357}#
- #{x\ 1511}#))
- (#{make-syntax-object\ 349}#
- (#{decorate-source\ 305}#
- (#{syntax-object-expression\ 353}#
- #{x\ 1511}#)
- #{s\ 1524}#)
- (#{make-wrap\ 392}#
- (cons #{m\ 1512}# #{ms\ 1523}#)
- (if #{rib\ 1500}#
- (cons #{rib\ 1500}#
- (cons (quote shift) #{s\ 1524}#))
- (cons (quote shift) #{s\ 1524}#)))
- (#{syntax-object-module\ 357}#
- #{x\ 1511}#)))))))
- (if (vector? #{x\ 1511}#)
- (begin
- (let ((#{n\ 1532}# (vector-length #{x\ 1511}#)))
- (begin
- (let ((#{v\ 1534}#
- (#{decorate-source\ 305}#
- (make-vector #{n\ 1532}#)
- #{x\ 1511}#)))
- (letrec*
- ((#{loop\ 1537}#
- (lambda (#{i\ 1538}#)
- (if (#{fx=\ 292}#
- #{i\ 1538}#
- #{n\ 1532}#)
- (begin (if #f #f) #{v\ 1534}#)
- (begin
- (vector-set!
- #{v\ 1534}#
- #{i\ 1538}#
- (#{rebuild-macro-output\ 1510}#
- (vector-ref
- #{x\ 1511}#
- #{i\ 1538}#)
- #{m\ 1512}#))
- (#{loop\ 1537}#
- (#{fx+\ 288}#
- #{i\ 1538}#
- 1)))))))
- (begin (#{loop\ 1537}# 0)))))))
- (if (symbol? #{x\ 1511}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (#{source-wrap\ 458}#
- #{e\ 1496}#
- #{w\ 1498}#
- (#{wrap-subst\ 396}# #{w\ 1498}#)
- #{mod\ 1501}#)
- #{x\ 1511}#)
- (#{decorate-source\ 305}#
- #{x\ 1511}#
- #{s\ 1499}#))))))))
- (begin
- (#{rebuild-macro-output\ 1510}#
- (#{p\ 1495}#
- (#{source-wrap\ 458}#
- #{e\ 1496}#
- (#{anti-mark\ 428}# #{w\ 1498}#)
- #{s\ 1499}#
- #{mod\ 1501}#))
- (gensym "m"))))))
- (#{chi-application\ 476}#
- (lambda (#{x\ 1545}#
- #{e\ 1546}#
- #{r\ 1547}#
- #{w\ 1548}#
- #{s\ 1549}#
- #{mod\ 1550}#)
- (let ((#{tmp\ 1557}# #{e\ 1546}#))
- (let ((#{tmp\ 1558}#
- ($sc-dispatch
- #{tmp\ 1557}#
- '(any . each-any))))
- (if #{tmp\ 1558}#
- (@apply
- (lambda (#{e0\ 1561}# #{e1\ 1562}#)
- (#{build-application\ 309}#
- #{s\ 1549}#
- #{x\ 1545}#
- (map (lambda (#{e\ 1563}#)
- (#{chi\ 472}#
- #{e\ 1563}#
- #{r\ 1547}#
- #{w\ 1548}#
- #{mod\ 1550}#))
- #{e1\ 1562}#)))
- #{tmp\ 1558}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1557}#))))))
- (#{chi-expr\ 474}#
- (lambda (#{type\ 1566}#
- #{value\ 1567}#
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (if (eqv? #{type\ 1566}# (quote lexical))
- (#{build-lexical-reference\ 315}#
- 'value
- #{s\ 1571}#
- #{e\ 1568}#
- #{value\ 1567}#)
- (if (if (eqv? #{type\ 1566}# (quote core))
- #t
- (eqv? #{type\ 1566}# (quote core-form)))
- (#{value\ 1567}#
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (if (eqv? #{type\ 1566}# (quote module-ref))
- (call-with-values
- (lambda ()
- (#{value\ 1567}#
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#))
- (lambda (#{e\ 1583}#
- #{r\ 1584}#
- #{w\ 1585}#
- #{s\ 1586}#
- #{mod\ 1587}#)
- (#{chi\ 472}#
- #{e\ 1583}#
- #{r\ 1584}#
- #{w\ 1585}#
- #{mod\ 1587}#)))
- (if (eqv? #{type\ 1566}# (quote lexical-call))
- (#{chi-application\ 476}#
- (begin
- (let ((#{id\ 1595}# (car #{e\ 1568}#)))
- (#{build-lexical-reference\ 315}#
- 'fun
- (#{source-annotation\ 366}# #{id\ 1595}#)
- (if (#{syntax-object?\ 351}# #{id\ 1595}#)
- (syntax->datum #{id\ 1595}#)
- #{id\ 1595}#)
- #{value\ 1567}#)))
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (if (eqv? #{type\ 1566}# (quote global-call))
- (#{chi-application\ 476}#
- (#{build-global-reference\ 321}#
- (#{source-annotation\ 366}# (car #{e\ 1568}#))
- (if (#{syntax-object?\ 351}# #{value\ 1567}#)
- (#{syntax-object-expression\ 353}#
- #{value\ 1567}#)
- #{value\ 1567}#)
- (if (#{syntax-object?\ 351}# #{value\ 1567}#)
- (#{syntax-object-module\ 357}# #{value\ 1567}#)
- #{mod\ 1572}#))
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (if (eqv? #{type\ 1566}# (quote constant))
- (#{build-data\ 337}#
- #{s\ 1571}#
- (#{strip\ 498}#
- (#{source-wrap\ 458}#
- #{e\ 1568}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- '(())))
- (if (eqv? #{type\ 1566}# (quote global))
- (#{build-global-reference\ 321}#
- #{s\ 1571}#
- #{value\ 1567}#
- #{mod\ 1572}#)
- (if (eqv? #{type\ 1566}# (quote call))
- (#{chi-application\ 476}#
- (#{chi\ 472}#
- (car #{e\ 1568}#)
- #{r\ 1569}#
- #{w\ 1570}#
- #{mod\ 1572}#)
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (if (eqv? #{type\ 1566}# (quote begin-form))
- (let ((#{tmp\ 1602}# #{e\ 1568}#))
- (let ((#{tmp\ 1603}#
- ($sc-dispatch
- #{tmp\ 1602}#
- '(any any . each-any))))
- (if #{tmp\ 1603}#
- (@apply
- (lambda (#{_\ 1607}#
- #{e1\ 1608}#
- #{e2\ 1609}#)
- (#{chi-sequence\ 460}#
- (cons #{e1\ 1608}# #{e2\ 1609}#)
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#))
- #{tmp\ 1603}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1602}#))))
- (if (eqv? #{type\ 1566}#
- 'local-syntax-form)
- (#{chi-local-syntax\ 482}#
- #{value\ 1567}#
- #{e\ 1568}#
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#
- #{chi-sequence\ 460}#)
- (if (eqv? #{type\ 1566}#
- 'eval-when-form)
- (let ((#{tmp\ 1613}# #{e\ 1568}#))
- (let ((#{tmp\ 1614}#
- ($sc-dispatch
- #{tmp\ 1613}#
- '(any each-any
- any
- .
- each-any))))
- (if #{tmp\ 1614}#
- (@apply
- (lambda (#{_\ 1619}#
- #{x\ 1620}#
- #{e1\ 1621}#
- #{e2\ 1622}#)
- (begin
- (let ((#{when-list\ 1624}#
- (#{chi-when-list\ 466}#
- #{e\ 1568}#
- #{x\ 1620}#
- #{w\ 1570}#)))
- (if (memq 'eval
- #{when-list\ 1624}#)
- (#{chi-sequence\ 460}#
- (cons #{e1\ 1621}#
- #{e2\ 1622}#)
- #{r\ 1569}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#)
- (#{chi-void\ 486}#)))))
- #{tmp\ 1614}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1613}#))))
- (if (if (eqv? #{type\ 1566}#
- 'define-form)
- #t
- (eqv? #{type\ 1566}#
- 'define-syntax-form))
- (syntax-violation
- #f
- "definition in expression context"
- #{e\ 1568}#
- (#{wrap\ 456}#
- #{value\ 1567}#
- #{w\ 1570}#
- #{mod\ 1572}#))
- (if (eqv? #{type\ 1566}# (quote syntax))
- (syntax-violation
- #f
- "reference to pattern variable outside syntax form"
- (#{source-wrap\ 458}#
- #{e\ 1568}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#))
- (if (eqv? #{type\ 1566}#
- 'displaced-lexical)
- (syntax-violation
- #f
- "reference to identifier outside its scope"
- (#{source-wrap\ 458}#
- #{e\ 1568}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{source-wrap\ 458}#
- #{e\ 1568}#
- #{w\ 1570}#
- #{s\ 1571}#
- #{mod\ 1572}#))))))))))))))))))
- (#{chi\ 472}#
- (lambda (#{e\ 1631}#
- #{r\ 1632}#
- #{w\ 1633}#
- #{mod\ 1634}#)
- (call-with-values
- (lambda ()
- (#{syntax-type\ 468}#
- #{e\ 1631}#
- #{r\ 1632}#
- #{w\ 1633}#
- (#{source-annotation\ 366}# #{e\ 1631}#)
- #f
- #{mod\ 1634}#
- #f))
- (lambda (#{type\ 1639}#
- #{value\ 1640}#
- #{e\ 1641}#
- #{w\ 1642}#
- #{s\ 1643}#
- #{mod\ 1644}#)
- (#{chi-expr\ 474}#
- #{type\ 1639}#
- #{value\ 1640}#
- #{e\ 1641}#
- #{r\ 1632}#
- #{w\ 1642}#
- #{s\ 1643}#
- #{mod\ 1644}#)))))
- (#{chi-top\ 470}#
- (lambda (#{e\ 1651}#
- #{r\ 1652}#
- #{w\ 1653}#
- #{m\ 1654}#
- #{esew\ 1655}#
- #{mod\ 1656}#)
- (call-with-values
- (lambda ()
- (#{syntax-type\ 468}#
- #{e\ 1651}#
- #{r\ 1652}#
- #{w\ 1653}#
- (#{source-annotation\ 366}# #{e\ 1651}#)
- #f
- #{mod\ 1656}#
- #f))
- (lambda (#{type\ 1677}#
- #{value\ 1678}#
- #{e\ 1679}#
- #{w\ 1680}#
- #{s\ 1681}#
- #{mod\ 1682}#)
- (if (eqv? #{type\ 1677}# (quote begin-form))
- (let ((#{tmp\ 1690}# #{e\ 1679}#))
- (let ((#{tmp\ 1691}#
- ($sc-dispatch #{tmp\ 1690}# (quote (any)))))
- (if #{tmp\ 1691}#
- (@apply
- (lambda (#{_\ 1693}#) (#{chi-void\ 486}#))
- #{tmp\ 1691}#)
- (let ((#{tmp\ 1694}#
- ($sc-dispatch
- #{tmp\ 1690}#
- '(any any . each-any))))
- (if #{tmp\ 1694}#
- (@apply
- (lambda (#{_\ 1698}# #{e1\ 1699}# #{e2\ 1700}#)
- (#{chi-top-sequence\ 462}#
- (cons #{e1\ 1699}# #{e2\ 1700}#)
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- #{m\ 1654}#
- #{esew\ 1655}#
- #{mod\ 1682}#))
- #{tmp\ 1694}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1690}#))))))
- (if (eqv? #{type\ 1677}# (quote local-syntax-form))
- (#{chi-local-syntax\ 482}#
- #{value\ 1678}#
- #{e\ 1679}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- #{mod\ 1682}#
- (lambda (#{body\ 1703}#
- #{r\ 1704}#
- #{w\ 1705}#
- #{s\ 1706}#
- #{mod\ 1707}#)
- (#{chi-top-sequence\ 462}#
- #{body\ 1703}#
- #{r\ 1704}#
- #{w\ 1705}#
- #{s\ 1706}#
- #{m\ 1654}#
- #{esew\ 1655}#
- #{mod\ 1707}#)))
- (if (eqv? #{type\ 1677}# (quote eval-when-form))
- (let ((#{tmp\ 1714}# #{e\ 1679}#))
- (let ((#{tmp\ 1715}#
- ($sc-dispatch
- #{tmp\ 1714}#
- '(any each-any any . each-any))))
- (if #{tmp\ 1715}#
- (@apply
- (lambda (#{_\ 1720}#
- #{x\ 1721}#
- #{e1\ 1722}#
- #{e2\ 1723}#)
- (begin
- (let ((#{when-list\ 1726}#
- (#{chi-when-list\ 466}#
- #{e\ 1679}#
- #{x\ 1721}#
- #{w\ 1680}#))
- (#{body\ 1727}#
- (cons #{e1\ 1722}# #{e2\ 1723}#)))
- (if (eq? #{m\ 1654}# (quote e))
- (if (memq 'eval
- #{when-list\ 1726}#)
- (#{chi-top-sequence\ 462}#
- #{body\ 1727}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- (if (memq 'expand
- #{when-list\ 1726}#)
- 'c&e
- 'e)
- '(eval)
- #{mod\ 1682}#)
- (begin
- (if (memq 'expand
- #{when-list\ 1726}#)
- (#{top-level-eval-hook\ 296}#
- (#{chi-top-sequence\ 462}#
- #{body\ 1727}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- 'e
- '(eval)
- #{mod\ 1682}#)
- #{mod\ 1682}#))
- (#{chi-void\ 486}#)))
- (if (memq 'load
- #{when-list\ 1726}#)
- (if (begin
- (let ((#{t\ 1736}#
- (memq 'compile
- #{when-list\ 1726}#)))
- (if #{t\ 1736}#
- #{t\ 1736}#
- (begin
- (let ((#{t\ 1739}#
- (memq 'expand
- #{when-list\ 1726}#)))
- (if #{t\ 1739}#
- #{t\ 1739}#
- (if (eq? #{m\ 1654}#
- 'c&e)
- (memq 'eval
- #{when-list\ 1726}#)
- #f)))))))
- (#{chi-top-sequence\ 462}#
- #{body\ 1727}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- 'c&e
- '(compile load)
- #{mod\ 1682}#)
- (if (if (eq? #{m\ 1654}# (quote c))
- #t
- (eq? #{m\ 1654}# (quote c&e)))
- (#{chi-top-sequence\ 462}#
- #{body\ 1727}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- 'c
- '(load)
- #{mod\ 1682}#)
- (#{chi-void\ 486}#)))
- (if (begin
- (let ((#{t\ 1747}#
- (memq 'compile
- #{when-list\ 1726}#)))
- (if #{t\ 1747}#
- #{t\ 1747}#
- (begin
- (let ((#{t\ 1750}#
- (memq 'expand
- #{when-list\ 1726}#)))
- (if #{t\ 1750}#
- #{t\ 1750}#
- (if (eq? #{m\ 1654}#
- 'c&e)
- (memq 'eval
- #{when-list\ 1726}#)
- #f)))))))
- (begin
- (#{top-level-eval-hook\ 296}#
- (#{chi-top-sequence\ 462}#
- #{body\ 1727}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- 'e
- '(eval)
- #{mod\ 1682}#)
- #{mod\ 1682}#)
- (#{chi-void\ 486}#))
- (#{chi-void\ 486}#)))))))
- #{tmp\ 1715}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1714}#))))
- (if (eqv? #{type\ 1677}# (quote define-syntax-form))
- (begin
- (let ((#{n\ 1758}#
- (#{id-var-name\ 444}#
- #{value\ 1678}#
- #{w\ 1680}#))
- (#{r\ 1759}#
- (#{macros-only-env\ 379}# #{r\ 1652}#)))
- (if (eqv? #{m\ 1654}# (quote c))
- (if (memq (quote compile) #{esew\ 1655}#)
- (begin
- (let ((#{e\ 1762}#
- (#{chi-install-global\ 464}#
- #{n\ 1758}#
- (#{chi\ 472}#
- #{e\ 1679}#
- #{r\ 1759}#
- #{w\ 1680}#
- #{mod\ 1682}#))))
- (begin
- (#{top-level-eval-hook\ 296}#
- #{e\ 1762}#
- #{mod\ 1682}#)
- (if (memq (quote load) #{esew\ 1655}#)
- #{e\ 1762}#
- (#{chi-void\ 486}#)))))
- (if (memq (quote load) #{esew\ 1655}#)
- (#{chi-install-global\ 464}#
- #{n\ 1758}#
- (#{chi\ 472}#
- #{e\ 1679}#
- #{r\ 1759}#
- #{w\ 1680}#
- #{mod\ 1682}#))
- (#{chi-void\ 486}#)))
- (if (eqv? #{m\ 1654}# (quote c&e))
- (begin
- (let ((#{e\ 1765}#
- (#{chi-install-global\ 464}#
- #{n\ 1758}#
- (#{chi\ 472}#
- #{e\ 1679}#
- #{r\ 1759}#
- #{w\ 1680}#
- #{mod\ 1682}#))))
- (begin
- (#{top-level-eval-hook\ 296}#
- #{e\ 1765}#
- #{mod\ 1682}#)
- #{e\ 1765}#)))
- (begin
- (if (memq (quote eval) #{esew\ 1655}#)
- (#{top-level-eval-hook\ 296}#
- (#{chi-install-global\ 464}#
- #{n\ 1758}#
- (#{chi\ 472}#
- #{e\ 1679}#
- #{r\ 1759}#
- #{w\ 1680}#
- #{mod\ 1682}#))
- #{mod\ 1682}#))
- (#{chi-void\ 486}#))))))
- (if (eqv? #{type\ 1677}# (quote define-form))
- (begin
- (let ((#{n\ 1770}#
- (#{id-var-name\ 444}#
- #{value\ 1678}#
- #{w\ 1680}#)))
- (begin
- (let ((#{type\ 1772}#
- (#{binding-type\ 370}#
- (#{lookup\ 381}#
- #{n\ 1770}#
- #{r\ 1652}#
- #{mod\ 1682}#))))
- (if (if (eqv? #{type\ 1772}# (quote global))
- #t
- (if (eqv? #{type\ 1772}# (quote core))
- #t
- (if (eqv? #{type\ 1772}#
- 'macro)
- #t
- (eqv? #{type\ 1772}#
- 'module-ref))))
- (begin
- (if (if (if (eq? #{m\ 1654}# (quote c))
- #t
- (eq? #{m\ 1654}# (quote c&e)))
- (if (not (module-local-variable
- (current-module)
- #{n\ 1770}#))
- (current-module)
- #f)
- #f)
- (begin
- (let ((#{old\ 1778}#
- (module-variable
- (current-module)
- #{n\ 1770}#)))
- (module-define!
- (current-module)
- #{n\ 1770}#
- (if (variable? #{old\ 1778}#)
- (variable-ref #{old\ 1778}#)
- #f)))))
- (begin
- (let ((#{x\ 1781}#
- (#{build-global-definition\ 327}#
- #{s\ 1681}#
- #{n\ 1770}#
- (#{chi\ 472}#
- #{e\ 1679}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{mod\ 1682}#))))
- (begin
- (if (eq? #{m\ 1654}# (quote c&e))
- (#{top-level-eval-hook\ 296}#
- #{x\ 1781}#
- #{mod\ 1682}#))
- #{x\ 1781}#))))
- (if (eqv? #{type\ 1772}#
- 'displaced-lexical)
- (syntax-violation
- #f
- "identifier out of context"
- #{e\ 1679}#
- (#{wrap\ 456}#
- #{value\ 1678}#
- #{w\ 1680}#
- #{mod\ 1682}#))
- (syntax-violation
- #f
- "cannot define keyword at top level"
- #{e\ 1679}#
- (#{wrap\ 456}#
- #{value\ 1678}#
- #{w\ 1680}#
- #{mod\ 1682}#))))))))
- (begin
- (let ((#{x\ 1787}#
- (#{chi-expr\ 474}#
- #{type\ 1677}#
- #{value\ 1678}#
- #{e\ 1679}#
- #{r\ 1652}#
- #{w\ 1680}#
- #{s\ 1681}#
- #{mod\ 1682}#)))
- (begin
- (if (eq? #{m\ 1654}# (quote c&e))
- (#{top-level-eval-hook\ 296}#
- #{x\ 1787}#
- #{mod\ 1682}#))
- #{x\ 1787}#))))))))))))
- (#{syntax-type\ 468}#
- (lambda (#{e\ 1788}#
- #{r\ 1789}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{rib\ 1792}#
- #{mod\ 1793}#
- #{for-car?\ 1794}#)
- (if (symbol? #{e\ 1788}#)
- (begin
- (let ((#{n\ 1806}#
- (#{id-var-name\ 444}# #{e\ 1788}# #{w\ 1790}#)))
- (begin
- (let ((#{b\ 1808}#
- (#{lookup\ 381}#
- #{n\ 1806}#
- #{r\ 1789}#
- #{mod\ 1793}#)))
- (begin
- (let ((#{type\ 1810}#
- (#{binding-type\ 370}# #{b\ 1808}#)))
- (if (eqv? #{type\ 1810}# (quote lexical))
+ 'eval-when
+ "invalid situation"
+ e-18745
+ (car l-18802)))))))
+ (lp-18748 result-18747)))))
+ (syntax-type-4296
+ (lambda (e-18806
+ r-18807
+ w-18808
+ s-18809
+ rib-18810
+ mod-18811
+ for-car?-18812)
+ (if (symbol? e-18806)
+ (let ((n-18813 (id-var-name-4280 e-18806 w-18808)))
+ (let ((b-18814
+ (let ((t-18823 (assq n-18813 r-18807)))
+ (if t-18823
+ (cdr t-18823)
+ (if (symbol? n-18813)
+ (let ((t-18829
+ (get-global-definition-hook-4224
+ n-18813
+ mod-18811)))
+ (if t-18829 t-18829 '(global)))
+ '(displaced-lexical))))))
+ (let ((type-18815 (car b-18814)))
+ (if (eqv? type-18815 'lexical)
+ (values
+ type-18815
+ (cdr b-18814)
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? type-18815 'global)
+ (values
+ type-18815
+ n-18813
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? type-18815 'macro)
+ (if for-car?-18812
+ (values
+ type-18815
+ (cdr b-18814)
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (syntax-type-4296
+ (expand-macro-4300
+ (cdr b-18814)
+ e-18806
+ r-18807
+ w-18808
+ s-18809
+ rib-18810
+ mod-18811)
+ r-18807
+ '(())
+ s-18809
+ rib-18810
+ mod-18811
+ #f))
+ (values
+ type-18815
+ (cdr b-18814)
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)))))))
+ (if (pair? e-18806)
+ (let ((first-18857 (car e-18806)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ first-18857
+ r-18807
+ w-18808
+ s-18809
+ rib-18810
+ mod-18811
+ #t))
+ (lambda (ftype-18859
+ fval-18860
+ fform-18861
+ fe-18862
+ fw-18863
+ fs-18864
+ fmod-18865)
+ (if (eqv? ftype-18859 'lexical)
+ (values
+ 'lexical-call
+ fval-18860
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? ftype-18859 'global)
+ (values
+ 'global-call
+ (vector
+ 'syntax-object
+ fval-18860
+ w-18808
+ fmod-18865)
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? ftype-18859 'macro)
+ (syntax-type-4296
+ (expand-macro-4300
+ fval-18860
+ e-18806
+ r-18807
+ w-18808
+ s-18809
+ rib-18810
+ mod-18811)
+ r-18807
+ '(())
+ s-18809
+ rib-18810
+ mod-18811
+ for-car?-18812)
+ (if (eqv? ftype-18859 'module-ref)
+ (call-with-values
+ (lambda () (fval-18860 e-18806 r-18807 w-18808))
+ (lambda (e-18899
+ r-18900
+ w-18901
+ s-18902
+ mod-18903)
+ (syntax-type-4296
+ e-18899
+ r-18900
+ w-18901
+ s-18902
+ rib-18810
+ mod-18903
+ for-car?-18812)))
+ (if (eqv? ftype-18859 'core)
(values
- #{type\ 1810}#
- (#{binding-value\ 372}# #{b\ 1808}#)
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{type\ 1810}# (quote global))
+ 'core-form
+ fval-18860
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? ftype-18859 'local-syntax)
(values
- #{type\ 1810}#
- #{n\ 1806}#
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{type\ 1810}# (quote macro))
- (if #{for-car?\ 1794}#
- (values
- #{type\ 1810}#
- (#{binding-value\ 372}# #{b\ 1808}#)
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (#{syntax-type\ 468}#
- (#{chi-macro\ 478}#
- (#{binding-value\ 372}# #{b\ 1808}#)
- #{e\ 1788}#
- #{r\ 1789}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{rib\ 1792}#
- #{mod\ 1793}#)
- #{r\ 1789}#
- '(())
- #{s\ 1791}#
- #{rib\ 1792}#
- #{mod\ 1793}#
- #f))
+ 'local-syntax-form
+ fval-18860
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? ftype-18859 'begin)
(values
- #{type\ 1810}#
- (#{binding-value\ 372}# #{b\ 1808}#)
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#))))))))))
- (if (pair? #{e\ 1788}#)
- (begin
- (let ((#{first\ 1819}# (car #{e\ 1788}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type\ 468}#
- #{first\ 1819}#
- #{r\ 1789}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{rib\ 1792}#
- #{mod\ 1793}#
- #t))
- (lambda (#{ftype\ 1820}#
- #{fval\ 1821}#
- #{fe\ 1822}#
- #{fw\ 1823}#
- #{fs\ 1824}#
- #{fmod\ 1825}#)
- (if (eqv? #{ftype\ 1820}# (quote lexical))
- (values
- 'lexical-call
- #{fval\ 1821}#
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{ftype\ 1820}# (quote global))
- (values
- 'global-call
- (#{make-syntax-object\ 349}#
- #{fval\ 1821}#
- #{w\ 1790}#
- #{fmod\ 1825}#)
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{ftype\ 1820}# (quote macro))
- (#{syntax-type\ 468}#
- (#{chi-macro\ 478}#
- #{fval\ 1821}#
- #{e\ 1788}#
- #{r\ 1789}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{rib\ 1792}#
- #{mod\ 1793}#)
- #{r\ 1789}#
- '(())
- #{s\ 1791}#
- #{rib\ 1792}#
- #{mod\ 1793}#
- #{for-car?\ 1794}#)
- (if (eqv? #{ftype\ 1820}# (quote module-ref))
- (call-with-values
- (lambda ()
- (#{fval\ 1821}#
- #{e\ 1788}#
- #{r\ 1789}#
- #{w\ 1790}#))
- (lambda (#{e\ 1837}#
- #{r\ 1838}#
- #{w\ 1839}#
- #{s\ 1840}#
- #{mod\ 1841}#)
- (#{syntax-type\ 468}#
- #{e\ 1837}#
- #{r\ 1838}#
- #{w\ 1839}#
- #{s\ 1840}#
- #{rib\ 1792}#
- #{mod\ 1841}#
- #{for-car?\ 1794}#)))
- (if (eqv? #{ftype\ 1820}# (quote core))
+ 'begin-form
+ #f
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? ftype-18859 'eval-when)
(values
- 'core-form
- #{fval\ 1821}#
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{ftype\ 1820}#
- 'local-syntax)
- (values
- 'local-syntax-form
- #{fval\ 1821}#
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{ftype\ 1820}# (quote begin))
- (values
- 'begin-form
- #f
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{ftype\ 1820}#
- 'eval-when)
- (values
- 'eval-when-form
- #f
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (if (eqv? #{ftype\ 1820}#
- 'define)
- (let ((#{tmp\ 1852}# #{e\ 1788}#))
- (let ((#{tmp\ 1853}#
- ($sc-dispatch
- #{tmp\ 1852}#
- '(any any any))))
- (if (if #{tmp\ 1853}#
- (@apply
- (lambda (#{_\ 1857}#
- #{name\ 1858}#
- #{val\ 1859}#)
- (#{id?\ 387}#
- #{name\ 1858}#))
- #{tmp\ 1853}#)
- #f)
- (@apply
- (lambda (#{_\ 1863}#
- #{name\ 1864}#
- #{val\ 1865}#)
- (values
- 'define-form
- #{name\ 1864}#
- #{val\ 1865}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#))
- #{tmp\ 1853}#)
- (let ((#{tmp\ 1866}#
- ($sc-dispatch
- #{tmp\ 1852}#
- '(any (any . any)
- any
- .
- each-any))))
- (if (if #{tmp\ 1866}#
- (@apply
- (lambda (#{_\ 1872}#
- #{name\ 1873}#
- #{args\ 1874}#
- #{e1\ 1875}#
- #{e2\ 1876}#)
- (if (#{id?\ 387}#
- #{name\ 1873}#)
- (#{valid-bound-ids?\ 450}#
- (#{lambda-var-list\ 502}#
- #{args\ 1874}#))
- #f))
- #{tmp\ 1866}#)
+ 'eval-when-form
+ #f
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (if (eqv? ftype-18859 'define)
+ (let ((tmp-18935
+ ($sc-dispatch
+ e-18806
+ '(_ any any))))
+ (if (if tmp-18935
+ (@apply
+ (lambda (name-18939 val-18940)
+ (if (symbol? name-18939)
+ #t
+ (if (if (vector? name-18939)
+ (if (= (vector-length
+ name-18939)
+ 4)
+ (eq? (vector-ref
+ name-18939
+ 0)
+ 'syntax-object)
+ #f)
#f)
- (@apply
- (lambda (#{_\ 1884}#
- #{name\ 1885}#
- #{args\ 1886}#
- #{e1\ 1887}#
- #{e2\ 1888}#)
- (values
- 'define-form
- (#{wrap\ 456}#
- #{name\ 1885}#
- #{w\ 1790}#
- #{mod\ 1793}#)
- (#{decorate-source\ 305}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(_
- name
- args
- e1
- e2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i1879"
- "i1880"
- "i1881"
- "i1882"
- "i1883"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1826"
- "i1827"
- "i1828"
- "i1829"
- "i1830"
- "i1831"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1818"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1795"
- "i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene
- guile))
- (#{wrap\ 456}#
- (cons #{args\ 1886}#
- (cons #{e1\ 1887}#
- #{e2\ 1888}#))
- #{w\ 1790}#
- #{mod\ 1793}#))
- #{s\ 1791}#)
- '(())
- #{s\ 1791}#
- #{mod\ 1793}#))
- #{tmp\ 1866}#)
- (let ((#{tmp\ 1891}#
- ($sc-dispatch
- #{tmp\ 1852}#
- '(any any))))
- (if (if #{tmp\ 1891}#
- (@apply
- (lambda (#{_\ 1894}#
- #{name\ 1895}#)
- (#{id?\ 387}#
- #{name\ 1895}#))
- #{tmp\ 1891}#)
- #f)
- (@apply
- (lambda (#{_\ 1898}#
- #{name\ 1899}#)
- (values
- 'define-form
- (#{wrap\ 456}#
- #{name\ 1899}#
- #{w\ 1790}#
- #{mod\ 1793}#)
- '(#(syntax-object
- if
- ((top)
- #(ribcage
- #(_ name)
- #((top)
- (top))
- #("i1896"
- "i1897"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
+ (symbol?
+ (vector-ref
+ name-18939
+ 1))
+ #f)))
+ tmp-18935)
+ #f)
+ (@apply
+ (lambda (name-18967 val-18968)
+ (values
+ 'define-form
+ name-18967
+ e-18806
+ val-18968
+ w-18808
+ s-18809
+ mod-18811))
+ tmp-18935)
+ (let ((tmp-18969
+ ($sc-dispatch
+ e-18806
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if tmp-18969
+ (@apply
+ (lambda (name-18973
+ args-18974
+ e1-18975
+ e2-18976)
+ (if (if (symbol?
+ name-18973)
+ #t
+ (if (if (vector?
+ name-18973)
+ (if (= (vector-length
+ name-18973)
+ 4)
+ (eq? (vector-ref
+ name-18973
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ name-18973
+ 1))
+ #f))
+ (valid-bound-ids?-4287
+ (letrec*
+ ((lvl-19125
+ (lambda (vars-19127
+ ls-19128
+ w-19129)
+ (if (pair? vars-19127)
+ (lvl-19125
+ (cdr vars-19127)
+ (cons (wrap-4290
+ (car vars-19127)
+ w-19129
+ #f)
+ ls-19128)
+ w-19129)
+ (if (if (symbol?
+ vars-19127)
+ #t
+ (if (if (vector?
+ vars-19127)
+ (if (= (vector-length
+ vars-19127)
+ 4)
+ (eq? (vector-ref
+ vars-19127
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ vars-19127
+ 1))
+ #f))
+ (cons (wrap-4290
+ vars-19127
+ w-19129
+ #f)
+ ls-19128)
+ (if (null? vars-19127)
+ ls-19128
+ (if (if (vector?
+ vars-19127)
+ (if (= (vector-length
+ vars-19127)
+ 4)
+ (eq? (vector-ref
+ vars-19127
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (lvl-19125
+ (vector-ref
+ vars-19127
+ 1)
+ ls-19128
+ (join-wraps-4277
+ w-19129
+ (vector-ref
+ vars-19127
+ 2)))
+ (cons vars-19127
+ ls-19128))))))))
+ (lvl-19125
+ args-18974
+ '()
+ '(()))))
+ #f))
+ tmp-18969)
+ #f)
+ (@apply
+ (lambda (name-19173
+ args-19174
+ e1-19175
+ e2-19176)
+ (values
+ 'define-form
+ (wrap-4290
+ name-19173
+ w-18808
+ mod-18811)
+ (wrap-4290
+ e-18806
+ w-18808
+ mod-18811)
+ (let ((e-19184
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1902"
+ "l-*-1903"
+ "l-*-1904"
+ "l-*-1905"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(key)
+ #((m-*-1867
+ top))
+ #("l-*-1868"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fform
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"
+ "l-*-1866"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("l-*-1851"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"
+ "l-*-1833"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
(top)
(top)
(top)
(top)
- (top))
- #("i1826"
- "i1827"
- "i1828"
- "i1829"
- "i1830"
- "i1831"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1818"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
- (top))
- #("i1795"
- "i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene
- guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(_ name)
- #((top)
- (top))
- #("i1896"
- "i1897"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
(top)
(top)
(top)
(top)
- (top))
- #("i1826"
- "i1827"
- "i1828"
- "i1829"
- "i1830"
- "i1831"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1818"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
- (top))
- #("i1795"
- "i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene
- guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(_ name)
- #((top)
- (top))
- #("i1896"
- "i1897"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
(top)
(top)
(top)
(top)
- (top))
- #("i1826"
- "i1827"
- "i1828"
- "i1829"
- "i1830"
- "i1831"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1818"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
(top))
- #("i1795"
- "i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top)
- (top)
- (top)
- (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene
- guile)))
- '(())
- #{s\ 1791}#
- #{mod\ 1793}#))
- #{tmp\ 1891}#)
- (syntax-violation
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene
+ guile))
+ (wrap-4290
+ (cons args-19174
+ (cons e1-19175
+ e2-19176))
+ w-18808
+ mod-18811))))
+ (begin
+ (if (if s-18809
+ (supports-source-properties?
+ e-19184)
+ #f)
+ (set-source-properties!
+ e-19184
+ s-18809))
+ e-19184))
+ '(())
+ s-18809
+ mod-18811))
+ tmp-18969)
+ (let ((tmp-19191
+ ($sc-dispatch
+ e-18806
+ '(_ any))))
+ (if (if tmp-19191
+ (@apply
+ (lambda (name-19195)
+ (if (symbol?
+ name-19195)
+ #t
+ (if (if (vector?
+ name-19195)
+ (if (= (vector-length
+ name-19195)
+ 4)
+ (eq? (vector-ref
+ name-19195
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ name-19195
+ 1))
+ #f)))
+ tmp-19191)
+ #f)
+ (@apply
+ (lambda (name-19222)
+ (values
+ 'define-form
+ (wrap-4290
+ name-19222
+ w-18808
+ mod-18811)
+ (wrap-4290
+ e-18806
+ w-18808
+ mod-18811)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("l-*-1915"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-1867 top))
+ #("l-*-1868"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fform
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"
+ "l-*-1866"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("l-*-1851"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"
+ "l-*-1833"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))
+ #(syntax-object
#f
- "source expression failed to match any pattern"
- #{tmp\ 1852}#))))))))
- (if (eqv? #{ftype\ 1820}#
- 'define-syntax)
- (let ((#{tmp\ 1902}# #{e\ 1788}#))
- (let ((#{tmp\ 1903}#
- ($sc-dispatch
- #{tmp\ 1902}#
- '(any any any))))
- (if (if #{tmp\ 1903}#
- (@apply
- (lambda (#{_\ 1907}#
- #{name\ 1908}#
- #{val\ 1909}#)
- (#{id?\ 387}#
- #{name\ 1908}#))
- #{tmp\ 1903}#)
- #f)
- (@apply
- (lambda (#{_\ 1913}#
- #{name\ 1914}#
- #{val\ 1915}#)
- (values
- 'define-syntax-form
- #{name\ 1914}#
- #{val\ 1915}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#))
- #{tmp\ 1903}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1902}#))))
- (values
- 'call
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("l-*-1915"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-1867 top))
+ #("l-*-1868"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fform
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"
+ "l-*-1866"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("l-*-1851"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"
+ "l-*-1833"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("l-*-1915"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-1867 top))
+ #("l-*-1868"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fform
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"
+ "l-*-1866"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("l-*-1851"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"
+ "l-*-1833"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile)))
+ '(())
+ s-18809
+ mod-18811))
+ tmp-19191)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-18806)))))))
+ (if (eqv? ftype-18859 'define-syntax)
+ (let ((tmp-19246
+ ($sc-dispatch
+ e-18806
+ '(_ any any))))
+ (if (if tmp-19246
+ (@apply
+ (lambda (name-19250 val-19251)
+ (if (symbol? name-19250)
+ #t
+ (if (if (vector?
+ name-19250)
+ (if (= (vector-length
+ name-19250)
+ 4)
+ (eq? (vector-ref
+ name-19250
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ name-19250
+ 1))
+ #f)))
+ tmp-19246)
+ #f)
+ (@apply
+ (lambda (name-19278 val-19279)
+ (values
+ 'define-syntax-form
+ name-19278
+ e-18806
+ val-19279
+ w-18808
+ s-18809
+ mod-18811))
+ tmp-19246)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-18806)))
+ (if (eqv? ftype-18859
+ 'define-syntax-parameter)
+ (let ((tmp-19293
+ ($sc-dispatch
+ e-18806
+ '(_ any any))))
+ (if (if tmp-19293
+ (@apply
+ (lambda (name-19297
+ val-19298)
+ (if (symbol? name-19297)
+ #t
+ (if (if (vector?
+ name-19297)
+ (if (= (vector-length
+ name-19297)
+ 4)
+ (eq? (vector-ref
+ name-19297
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ name-19297
+ 1))
+ #f)))
+ tmp-19293)
+ #f)
+ (@apply
+ (lambda (name-19325 val-19326)
+ (values
+ 'define-syntax-parameter-form
+ name-19325
+ e-18806
+ val-19326
+ w-18808
+ s-18809
+ mod-18811))
+ tmp-19293)
+ (syntax-violation
#f
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)))))))))))))))
- (if (#{syntax-object?\ 351}# #{e\ 1788}#)
- (#{syntax-type\ 468}#
- (#{syntax-object-expression\ 353}# #{e\ 1788}#)
- #{r\ 1789}#
- (#{join-wraps\ 438}#
- #{w\ 1790}#
- (#{syntax-object-wrap\ 355}# #{e\ 1788}#))
- (begin
- (let ((#{t\ 1921}#
- (#{source-annotation\ 366}# #{e\ 1788}#)))
- (if #{t\ 1921}# #{t\ 1921}# #{s\ 1791}#)))
- #{rib\ 1792}#
+ "source expression failed to match any pattern"
+ e-18806)))
+ (values
+ 'call
+ #f
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)))))))))))))))
+ (if (if (vector? e-18806)
+ (if (= (vector-length e-18806) 4)
+ (eq? (vector-ref e-18806 0) 'syntax-object)
+ #f)
+ #f)
+ (syntax-type-4296
+ (vector-ref e-18806 1)
+ r-18807
+ (join-wraps-4277 w-18808 (vector-ref e-18806 2))
+ (let ((t-19353
+ (let ((props-19385
+ (source-properties
+ (if (if (vector? e-18806)
+ (if (= (vector-length e-18806) 4)
+ (eq? (vector-ref e-18806 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-18806 1)
+ e-18806))))
+ (if (pair? props-19385) props-19385 #f))))
+ (if t-19353 t-19353 s-18809))
+ rib-18810
+ (let ((t-19408 (vector-ref e-18806 3)))
+ (if t-19408 t-19408 mod-18811))
+ for-car?-18812)
+ (if (self-evaluating? e-18806)
+ (values
+ 'constant
+ #f
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)
+ (values
+ 'other
+ #f
+ e-18806
+ e-18806
+ w-18808
+ s-18809
+ mod-18811)))))))
+ (expand-4297
+ (lambda (e-19417 r-19418 w-19419 mod-19420)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-19417
+ r-19418
+ w-19419
+ (let ((props-19427
+ (source-properties
+ (if (if (vector? e-19417)
+ (if (= (vector-length e-19417) 4)
+ (eq? (vector-ref e-19417 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-19417 1)
+ e-19417))))
+ (if (pair? props-19427) props-19427 #f))
+ #f
+ mod-19420
+ #f))
+ (lambda (type-19450
+ value-19451
+ form-19452
+ e-19453
+ w-19454
+ s-19455
+ mod-19456)
+ (expand-expr-4298
+ type-19450
+ value-19451
+ form-19452
+ e-19453
+ r-19418
+ w-19454
+ s-19455
+ mod-19456)))))
+ (expand-expr-4298
+ (lambda (type-19459
+ value-19460
+ form-19461
+ e-19462
+ r-19463
+ w-19464
+ s-19465
+ mod-19466)
+ (if (eqv? type-19459 'lexical)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ s-19465
+ e-19462
+ value-19460)
+ (if (if (eqv? type-19459 'core)
+ #t
+ (eqv? type-19459 'core-form))
+ (value-19460
+ e-19462
+ r-19463
+ w-19464
+ s-19465
+ mod-19466)
+ (if (eqv? type-19459 'module-ref)
+ (call-with-values
+ (lambda () (value-19460 e-19462 r-19463 w-19464))
+ (lambda (e-19502 r-19503 w-19504 s-19505 mod-19506)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-19502
+ r-19503
+ w-19504
+ (let ((props-19522
+ (source-properties
+ (if (if (vector? e-19502)
+ (if (= (vector-length e-19502) 4)
+ (eq? (vector-ref e-19502 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-19502 1)
+ e-19502))))
+ (if (pair? props-19522) props-19522 #f))
+ #f
+ mod-19506
+ #f))
+ (lambda (type-19555
+ value-19556
+ form-19557
+ e-19558
+ w-19559
+ s-19560
+ mod-19561)
+ (expand-expr-4298
+ type-19555
+ value-19556
+ form-19557
+ e-19558
+ r-19503
+ w-19559
+ s-19560
+ mod-19561)))))
+ (if (eqv? type-19459 'lexical-call)
+ (expand-application-4299
+ (let ((id-19572 (car e-19462)))
+ (let ((source-19577
+ (let ((props-19587
+ (source-properties
+ (if (if (vector? id-19572)
+ (if (= (vector-length id-19572) 4)
+ (eq? (vector-ref id-19572 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-19572 1)
+ id-19572))))
+ (if (pair? props-19587) props-19587 #f)))
+ (name-19578
+ (if (if (vector? id-19572)
+ (if (= (vector-length id-19572) 4)
+ (eq? (vector-ref id-19572 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (syntax->datum id-19572)
+ id-19572)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ source-19577
+ name-19578
+ value-19460)))
+ e-19462
+ r-19463
+ w-19464
+ s-19465
+ mod-19466)
+ (if (eqv? type-19459 'global-call)
+ (expand-application-4299
+ (let ((source-19630
+ (let ((x-19669 (car e-19462)))
+ (let ((props-19670
+ (source-properties
+ (if (if (vector? x-19669)
+ (if (= (vector-length x-19669)
+ 4)
+ (eq? (vector-ref x-19669 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-19669 1)
+ x-19669))))
+ (if (pair? props-19670) props-19670 #f))))
+ (var-19631
+ (if (if (vector? value-19460)
+ (if (= (vector-length value-19460) 4)
+ (eq? (vector-ref value-19460 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref value-19460 1)
+ value-19460))
+ (mod-19632
+ (if (if (vector? value-19460)
+ (if (= (vector-length value-19460) 4)
+ (eq? (vector-ref value-19460 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref value-19460 3)
+ mod-19466)))
+ (analyze-variable-4233
+ mod-19632
+ var-19631
+ (lambda (mod-19658 var-19659 public?-19660)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ source-19630
+ mod-19658
+ var-19659
+ public?-19660))
+ (lambda (var-19683)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ source-19630
+ var-19683))))
+ e-19462
+ r-19463
+ w-19464
+ s-19465
+ mod-19466)
+ (if (eqv? type-19459 'constant)
+ (let ((exp-19698
+ (strip-4310
+ (wrap-4290
+ (begin
+ (if (if s-19465
+ (supports-source-properties? e-19462)
+ #f)
+ (set-source-properties! e-19462 s-19465))
+ e-19462)
+ w-19464
+ mod-19466)
+ '(()))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ s-19465
+ exp-19698))
+ (if (eqv? type-19459 'global)
+ (analyze-variable-4233
+ mod-19466
+ value-19460
+ (lambda (mod-19737 var-19738 public?-19739)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ s-19465
+ mod-19737
+ var-19738
+ public?-19739))
+ (lambda (var-19748)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ s-19465
+ var-19748)))
+ (if (eqv? type-19459 'call)
+ (expand-application-4299
+ (let ((e-19766 (car e-19462)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-19766
+ r-19463
+ w-19464
+ (let ((props-19776
+ (source-properties
+ (if (if (vector? e-19766)
+ (if (= (vector-length
+ e-19766)
+ 4)
+ (eq? (vector-ref
+ e-19766
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-19766 1)
+ e-19766))))
+ (if (pair? props-19776) props-19776 #f))
+ #f
+ mod-19466
+ #f))
+ (lambda (type-19799
+ value-19800
+ form-19801
+ e-19802
+ w-19803
+ s-19804
+ mod-19805)
+ (expand-expr-4298
+ type-19799
+ value-19800
+ form-19801
+ e-19802
+ r-19463
+ w-19803
+ s-19804
+ mod-19805))))
+ e-19462
+ r-19463
+ w-19464
+ s-19465
+ mod-19466)
+ (if (eqv? type-19459 'begin-form)
+ (let ((tmp-19815
+ ($sc-dispatch e-19462 '(_ any . each-any))))
+ (if tmp-19815
+ (@apply
+ (lambda (e1-19819 e2-19820)
+ (expand-sequence-4292
+ (cons e1-19819 e2-19820)
+ r-19463
+ w-19464
+ s-19465
+ mod-19466))
+ tmp-19815)
+ (let ((tmp-19947 ($sc-dispatch e-19462 '(_))))
+ (if tmp-19947
+ (@apply
+ (lambda ()
+ (if (include-deprecated-features)
+ (begin
+ (issue-deprecation-warning
+ "Sequences of zero expressions are deprecated. Use *unspecified*.")
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))
+ (syntax-violation
+ #f
+ "sequence of zero expressions"
+ (wrap-4290
+ (begin
+ (if (if s-19465
+ (supports-source-properties?
+ e-19462)
+ #f)
+ (set-source-properties!
+ e-19462
+ s-19465))
+ e-19462)
+ w-19464
+ mod-19466))))
+ tmp-19947)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-19462)))))
+ (if (eqv? type-19459 'local-syntax-form)
+ (expand-local-syntax-4302
+ value-19460
+ e-19462
+ r-19463
+ w-19464
+ s-19465
+ mod-19466
+ expand-sequence-4292)
+ (if (eqv? type-19459 'eval-when-form)
+ (let ((tmp-20059
+ ($sc-dispatch
+ e-19462
+ '(_ each-any any . each-any))))
+ (if tmp-20059
+ (@apply
+ (lambda (x-20063 e1-20064 e2-20065)
+ (let ((when-list-20066
+ (parse-when-list-4295
+ e-19462
+ x-20063)))
+ (if (memq 'eval when-list-20066)
+ (expand-sequence-4292
+ (cons e1-20064 e2-20065)
+ r-19463
+ w-19464
+ s-19465
+ mod-19466)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))))
+ tmp-20059)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-19462)))
+ (if (if (eqv? type-19459 'define-form)
+ #t
+ (if (eqv? type-19459 'define-syntax-form)
+ #t
+ (eqv? type-19459
+ 'define-syntax-parameter-form)))
+ (syntax-violation
+ #f
+ "definition in expression context, where definitions are not allowed,"
+ (wrap-4290
+ (begin
+ (if (if s-19465
+ (supports-source-properties?
+ form-19461)
+ #f)
+ (set-source-properties!
+ form-19461
+ s-19465))
+ form-19461)
+ w-19464
+ mod-19466))
+ (if (eqv? type-19459 'syntax)
+ (syntax-violation
+ #f
+ "reference to pattern variable outside syntax form"
+ (wrap-4290
+ (begin
+ (if (if s-19465
+ (supports-source-properties?
+ e-19462)
+ #f)
+ (set-source-properties!
+ e-19462
+ s-19465))
+ e-19462)
+ w-19464
+ mod-19466))
+ (if (eqv? type-19459 'displaced-lexical)
+ (syntax-violation
+ #f
+ "reference to identifier outside its scope"
+ (wrap-4290
+ (begin
+ (if (if s-19465
+ (supports-source-properties?
+ e-19462)
+ #f)
+ (set-source-properties!
+ e-19462
+ s-19465))
+ e-19462)
+ w-19464
+ mod-19466))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (wrap-4290
+ (begin
+ (if (if s-19465
+ (supports-source-properties?
+ e-19462)
+ #f)
+ (set-source-properties!
+ e-19462
+ s-19465))
+ e-19462)
+ w-19464
+ mod-19466))))))))))))))))))
+ (expand-application-4299
+ (lambda (x-20375
+ e-20376
+ r-20377
+ w-20378
+ s-20379
+ mod-20380)
+ (let ((tmp-20382
+ ($sc-dispatch e-20376 '(any . each-any))))
+ (if tmp-20382
+ (@apply
+ (lambda (e0-20386 e1-20387)
+ (let ((arg-exps-20393
+ (map (lambda (e-20398)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-20398
+ r-20377
+ w-20378
+ (let ((props-20413
+ (source-properties
+ (if (if (vector? e-20398)
+ (if (= (vector-length
+ e-20398)
+ 4)
+ (eq? (vector-ref
+ e-20398
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-20398 1)
+ e-20398))))
+ (if (pair? props-20413)
+ props-20413
+ #f))
+ #f
+ mod-20380
+ #f))
+ (lambda (type-20446
+ value-20447
+ form-20448
+ e-20449
+ w-20450
+ s-20451
+ mod-20452)
+ (expand-expr-4298
+ type-20446
+ value-20447
+ form-20448
+ e-20449
+ r-20377
+ w-20450
+ s-20451
+ mod-20452))))
+ e1-20387)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ s-20379
+ x-20375
+ arg-exps-20393)))
+ tmp-20382)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-20376)))))
+ (expand-macro-4300
+ (lambda (p-20462
+ e-20463
+ r-20464
+ w-20465
+ s-20466
+ rib-20467
+ mod-20468)
+ (letrec*
+ ((rebuild-macro-output-20469
+ (lambda (x-20502 m-20503)
+ (if (pair? x-20502)
+ (let ((e-20507
+ (cons (rebuild-macro-output-20469
+ (car x-20502)
+ m-20503)
+ (rebuild-macro-output-20469
+ (cdr x-20502)
+ m-20503))))
+ (begin
+ (if (if s-20466
+ (supports-source-properties? e-20507)
+ #f)
+ (set-source-properties! e-20507 s-20466))
+ e-20507))
+ (if (if (vector? x-20502)
+ (if (= (vector-length x-20502) 4)
+ (eq? (vector-ref x-20502 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((w-20523 (vector-ref x-20502 2)))
+ (let ((ms-20524 (car w-20523))
+ (ss-20525 (cdr w-20523)))
+ (if (if (pair? ms-20524) (eq? (car ms-20524) #f) #f)
+ (let ((expression-20533 (vector-ref x-20502 1))
+ (wrap-20534
+ (cons (cdr ms-20524)
+ (if rib-20467
+ (cons rib-20467 (cdr ss-20525))
+ (cdr ss-20525))))
+ (module-20535 (vector-ref x-20502 3)))
+ (vector
+ 'syntax-object
+ expression-20533
+ wrap-20534
+ module-20535))
+ (let ((expression-20545
+ (let ((e-20550 (vector-ref x-20502 1)))
+ (begin
+ (if (if s-20466
+ (supports-source-properties?
+ e-20550)
+ #f)
+ (set-source-properties!
+ e-20550
+ s-20466))
+ e-20550)))
+ (wrap-20546
+ (cons (cons m-20503 ms-20524)
+ (if rib-20467
+ (cons rib-20467
+ (cons 'shift ss-20525))
+ (cons 'shift ss-20525))))
+ (module-20547 (vector-ref x-20502 3)))
+ (vector
+ 'syntax-object
+ expression-20545
+ wrap-20546
+ module-20547)))))
+ (if (vector? x-20502)
+ (let ((n-20562 (vector-length x-20502)))
+ (let ((v-20563
+ (let ((e-20571 (make-vector n-20562)))
+ (begin
+ (if (if s-20466
+ (supports-source-properties? e-20571)
+ #f)
+ (set-source-properties! e-20571 s-20466))
+ e-20571))))
+ (letrec*
+ ((loop-20564
+ (lambda (i-20616)
+ (if (= i-20616 n-20562)
+ v-20563
+ (begin
+ (vector-set!
+ v-20563
+ i-20616
+ (rebuild-macro-output-20469
+ (vector-ref x-20502 i-20616)
+ m-20503))
+ (loop-20564 (#{1+}# i-20616)))))))
+ (loop-20564 0))))
+ (if (symbol? x-20502)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (let ((s-20622 (cdr w-20465)))
+ (wrap-4290
+ (begin
+ (if (if s-20622
+ (supports-source-properties? e-20463)
+ #f)
+ (set-source-properties! e-20463 s-20622))
+ e-20463)
+ w-20465
+ mod-20468))
+ x-20502)
+ (begin
+ (if (if s-20466
+ (supports-source-properties? x-20502)
+ #f)
+ (set-source-properties! x-20502 s-20466))
+ x-20502))))))))
+ (with-fluids
+ ((transformer-environment-4283
+ (lambda (k-20470)
+ (k-20470
+ e-20463
+ r-20464
+ w-20465
+ s-20466
+ rib-20467
+ mod-20468))))
+ (rebuild-macro-output-20469
+ (p-20462
+ (let ((w-20477
+ (cons (cons #f (car w-20465))
+ (cons 'shift (cdr w-20465)))))
+ (wrap-4290
(begin
- (let ((#{t\ 1925}#
- (#{syntax-object-module\ 357}# #{e\ 1788}#)))
- (if #{t\ 1925}# #{t\ 1925}# #{mod\ 1793}#)))
- #{for-car?\ 1794}#)
- (if (self-evaluating? #{e\ 1788}#)
- (values
- 'constant
- #f
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)
- (values
- 'other
- #f
- #{e\ 1788}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1793}#)))))))
- (#{chi-when-list\ 466}#
- (lambda (#{e\ 1930}# #{when-list\ 1931}# #{w\ 1932}#)
- (letrec*
- ((#{f\ 1939}#
- (lambda (#{when-list\ 1940}# #{situations\ 1941}#)
- (if (null? #{when-list\ 1940}#)
- #{situations\ 1941}#
- (#{f\ 1939}#
- (cdr #{when-list\ 1940}#)
- (cons (begin
- (let ((#{x\ 1943}# (car #{when-list\ 1940}#)))
- (if (#{free-id=?\ 446}#
- #{x\ 1943}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1942"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1936" "i1937" "i1938"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1933" "i1934" "i1935"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
+ (if (if s-20466
+ (supports-source-properties? e-20463)
+ #f)
+ (set-source-properties! e-20463 s-20466))
+ e-20463)
+ w-20477
+ mod-20468)))
+ (gensym
+ (string-append "m-" (session-id-4222) "-")))))))
+ (expand-body-4301
+ (lambda (body-20654
+ outer-form-20655
+ r-20656
+ w-20657
+ mod-20658)
+ (let ((r-20659
+ (cons '("placeholder" placeholder) r-20656)))
+ (let ((ribcage-20660 (vector 'ribcage '() '() '())))
+ (let ((w-20661
+ (cons (car w-20657)
+ (cons ribcage-20660 (cdr w-20657)))))
+ (letrec*
+ ((parse-20662
+ (lambda (body-20675
+ ids-20676
+ labels-20677
+ var-ids-20678
+ vars-20679
+ vals-20680
+ bindings-20681)
+ (if (null? body-20675)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ outer-form-20655)
+ (let ((e-20682 (cdr (car body-20675)))
+ (er-20683 (car (car body-20675))))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-20682
+ er-20683
+ '(())
+ (let ((props-20692
+ (source-properties
+ (if (if (vector? er-20683)
+ (if (= (vector-length er-20683)
+ 4)
+ (eq? (vector-ref er-20683 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref er-20683 1)
+ er-20683))))
+ (if (pair? props-20692) props-20692 #f))
+ ribcage-20660
+ mod-20658
+ #f))
+ (lambda (type-20715
+ value-20716
+ form-20717
+ e-20718
+ w-20719
+ s-20720
+ mod-20721)
+ (if (eqv? type-20715 'define-form)
+ (let ((id-20729
+ (wrap-4290
+ value-20716
+ w-20719
+ mod-20721))
+ (label-20730
+ (string-append
+ "l-"
+ (session-id-4222)
+ (symbol->string (gensym "-")))))
+ (let ((var-20731
+ (let ((id-20791
+ (if (if (vector? id-20729)
+ (if (= (vector-length
+ id-20729)
+ 4)
+ (eq? (vector-ref
+ id-20729
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-20729 1)
+ id-20729)))
+ (gensym
+ (string-append
+ (symbol->string id-20791)
+ "-")))))
+ (begin
+ (let ((update-20781
+ (cons (vector-ref id-20729 1)
+ (vector-ref
+ ribcage-20660
+ 1))))
+ (vector-set!
+ ribcage-20660
+ 1
+ update-20781))
+ (let ((update-20783
+ (cons (car (vector-ref
+ id-20729
+ 2))
+ (vector-ref
+ ribcage-20660
+ 2))))
+ (vector-set!
+ ribcage-20660
+ 2
+ update-20783))
+ (let ((update-20785
+ (cons label-20730
+ (vector-ref
+ ribcage-20660
+ 3))))
+ (vector-set!
+ ribcage-20660
+ 3
+ update-20785))
+ (parse-20662
+ (cdr body-20675)
+ (cons id-20729 ids-20676)
+ (cons label-20730 labels-20677)
+ (cons id-20729 var-ids-20678)
+ (cons var-20731 vars-20679)
+ (cons (cons er-20683
+ (wrap-4290
+ e-20718
+ w-20719
+ mod-20721))
+ vals-20680)
+ (cons (cons 'lexical var-20731)
+ bindings-20681)))))
+ (if (if (eqv? type-20715 'define-syntax-form)
+ #t
+ (eqv? type-20715
+ 'define-syntax-parameter-form))
+ (let ((id-20827
+ (wrap-4290
+ value-20716
+ w-20719
+ mod-20721))
+ (label-20828
+ (string-append
+ "l-"
+ (session-id-4222)
+ (symbol->string (gensym "-")))))
+ (begin
+ (let ((update-20878
+ (cons (vector-ref id-20827 1)
+ (vector-ref
+ ribcage-20660
+ 1))))
+ (vector-set!
+ ribcage-20660
+ 1
+ update-20878))
+ (let ((update-20880
+ (cons (car (vector-ref
+ id-20827
+ 2))
+ (vector-ref
+ ribcage-20660
+ 2))))
+ (vector-set!
+ ribcage-20660
+ 2
+ update-20880))
+ (let ((update-20882
+ (cons label-20828
+ (vector-ref
+ ribcage-20660
+ 3))))
+ (vector-set!
+ ribcage-20660
+ 3
+ update-20882))
+ (parse-20662
+ (cdr body-20675)
+ (cons id-20827 ids-20676)
+ (cons label-20828 labels-20677)
+ var-ids-20678
+ vars-20679
+ vals-20680
+ (cons (cons 'macro
+ (cons er-20683
+ (wrap-4290
+ e-20718
+ w-20719
+ mod-20721)))
+ bindings-20681))))
+ (if (eqv? type-20715 'begin-form)
+ (let ((tmp-20893
+ ($sc-dispatch
+ e-20718
+ '(_ . each-any))))
+ (if tmp-20893
+ (@apply
+ (lambda (e1-20897)
+ (parse-20662
+ (letrec*
+ ((f-20898
+ (lambda (forms-20961)
+ (if (null? forms-20961)
+ (cdr body-20675)
+ (cons (cons er-20683
+ (wrap-4290
+ (car forms-20961)
+ w-20719
+ mod-20721))
+ (f-20898
+ (cdr forms-20961)))))))
+ (f-20898 e1-20897))
+ ids-20676
+ labels-20677
+ var-ids-20678
+ vars-20679
+ vals-20680
+ bindings-20681))
+ tmp-20893)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-20718)))
+ (if (eqv? type-20715 'local-syntax-form)
+ (expand-local-syntax-4302
+ value-20716
+ e-20718
+ er-20683
+ w-20719
+ s-20720
+ mod-20721
+ (lambda (forms-20978
+ er-20979
+ w-20980
+ s-20981
+ mod-20982)
+ (parse-20662
+ (letrec*
+ ((f-20983
+ (lambda (forms-21046)
+ (if (null? forms-21046)
+ (cdr body-20675)
+ (cons (cons er-20979
+ (wrap-4290
+ (car forms-21046)
+ w-20980
+ mod-20982))
+ (f-20983
+ (cdr forms-21046)))))))
+ (f-20983 forms-20978))
+ ids-20676
+ labels-20677
+ var-ids-20678
+ vars-20679
+ vals-20680
+ bindings-20681)))
+ (if (null? ids-20676)
+ (let ((exps-21053
+ (map (lambda (x-21054)
+ (let ((e-21057
+ (cdr x-21054))
+ (r-21058
+ (car x-21054)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-21057
+ r-21058
+ '(())
+ (let ((props-21065
+ (source-properties
+ (if (if (vector?
+ e-21057)
+ (if (= (vector-length
+ e-21057)
+ 4)
+ (eq? (vector-ref
+ e-21057
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-21057
+ 1)
+ e-21057))))
+ (if (pair? props-21065)
+ props-21065
+ #f))
+ #f
+ mod-20721
+ #f))
+ (lambda (type-21088
+ value-21089
+ form-21090
+ e-21091
+ w-21092
+ s-21093
+ mod-21094)
+ (expand-expr-4298
+ type-21088
+ value-21089
+ form-21090
+ e-21091
+ r-21058
+ w-21092
+ s-21093
+ mod-21094)))))
+ (cons (cons er-20683
+ (wrap-4290
+ (begin
+ (if (if s-20720
+ (supports-source-properties?
+ e-20718)
+ #f)
+ (set-source-properties!
+ e-20718
+ s-20720))
+ e-20718)
+ w-20719
+ mod-20721))
+ (cdr body-20675)))))
+ (if (null? (cdr exps-21053))
+ (car exps-21053)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #f
+ exps-21053)))
+ (begin
+ (if (not (valid-bound-ids?-4287
+ ids-20676))
+ (syntax-violation
+ #f
+ "invalid or duplicate identifier in definition"
+ outer-form-20655))
+ (letrec*
+ ((loop-21197
+ (lambda (bs-21200
+ er-cache-21201
+ r-cache-21202)
+ (if (not (null? bs-21200))
+ (let ((b-21203
+ (car bs-21200)))
+ (if (eq? (car b-21203)
+ 'macro)
+ (let ((er-21205
+ (car (cdr b-21203))))
+ (let ((r-cache-21206
+ (if (eq? er-21205
+ er-cache-21201)
+ r-cache-21202
+ (macros-only-env-4257
+ er-21205))))
+ (begin
+ (set-cdr!
+ b-21203
+ (eval-local-transformer-4303
+ (let ((e-21249
+ (cdr (cdr b-21203))))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-21249
+ r-cache-21206
+ '(())
+ (let ((props-21259
+ (source-properties
+ (if (if (vector?
+ e-21249)
+ (if (= (vector-length
+ e-21249)
+ 4)
+ (eq? (vector-ref
+ e-21249
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-21249
+ 1)
+ e-21249))))
+ (if (pair? props-21259)
+ props-21259
+ #f))
+ #f
+ mod-20721
+ #f))
+ (lambda (type-21282
+ value-21283
+ form-21284
+ e-21285
+ w-21286
+ s-21287
+ mod-21288)
+ (expand-expr-4298
+ type-21282
+ value-21283
+ form-21284
+ e-21285
+ r-cache-21206
+ w-21286
+ s-21287
+ mod-21288))))
+ mod-20721))
+ (loop-21197
+ (cdr bs-21200)
+ er-21205
+ r-cache-21206))))
+ (loop-21197
+ (cdr bs-21200)
+ er-cache-21201
+ r-cache-21202)))))))
+ (loop-21197 bindings-20681 #f #f))
+ (set-cdr!
+ r-20659
+ (extend-env-4255
+ labels-20677
+ bindings-20681
+ (cdr r-20659)))
+ (let ((ids-21471
+ (reverse
+ (map syntax->datum
+ var-ids-20678)))
+ (vars-21472
+ (reverse vars-20679))
+ (val-exps-21473
+ (map (lambda (x-21560)
+ (let ((e-21563
+ (cdr x-21560))
+ (r-21564
+ (car x-21560)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-21563
+ r-21564
+ '(())
+ (let ((props-21571
+ (source-properties
+ (if (if (vector?
+ e-21563)
+ (if (= (vector-length
+ e-21563)
+ 4)
+ (eq? (vector-ref
+ e-21563
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-21563
+ 1)
+ e-21563))))
+ (if (pair? props-21571)
+ props-21571
+ #f))
+ #f
+ mod-20721
+ #f))
+ (lambda (type-21594
+ value-21595
+ form-21596
+ e-21597
+ w-21598
+ s-21599
+ mod-21600)
+ (expand-expr-4298
+ type-21594
+ value-21595
+ form-21596
+ e-21597
+ r-21564
+ w-21598
+ s-21599
+ mod-21600)))))
+ (reverse vals-20680)))
+ (body-exp-21474
+ (let ((exps-21478
+ (map (lambda (x-21479)
+ (let ((e-21482
+ (cdr x-21479))
+ (r-21483
+ (car x-21479)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-21482
+ r-21483
+ '(())
+ (let ((props-21490
+ (source-properties
+ (if (if (vector?
+ e-21482)
+ (if (= (vector-length
+ e-21482)
+ 4)
+ (eq? (vector-ref
+ e-21482
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-21482
+ 1)
+ e-21482))))
+ (if (pair? props-21490)
+ props-21490
+ #f))
+ #f
+ mod-20721
+ #f))
+ (lambda (type-21513
+ value-21514
+ form-21515
+ e-21516
+ w-21517
+ s-21518
+ mod-21519)
+ (expand-expr-4298
+ type-21513
+ value-21514
+ form-21515
+ e-21516
+ r-21483
+ w-21517
+ s-21518
+ mod-21519)))))
+ (cons (cons er-20683
+ (wrap-4290
+ (begin
+ (if (if s-20720
+ (supports-source-properties?
+ e-20718)
+ #f)
+ (set-source-properties!
+ e-20718
+ s-20720))
+ e-20718)
+ w-20719
+ mod-20721))
+ (cdr body-20675)))))
+ (if (null? (cdr exps-21478))
+ (car exps-21478)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 12)
+ #f
+ exps-21478)))))
+ (if (null? vars-21472)
+ body-exp-21474
+ (begin
+ (for-each
+ maybe-name-value!-4226
+ ids-21471
+ val-exps-21473)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 16)
+ #f
+ #t
+ ids-21471
+ vars-21472
+ val-exps-21473
+ body-exp-21474)))))))))))))))))
+ (parse-20662
+ (map (lambda (x-20665)
+ (cons r-20659
+ (wrap-4290 x-20665 w-20661 mod-20658)))
+ body-20654)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))
+ (expand-local-syntax-4302
+ (lambda (rec?-21610
+ e-21611
+ r-21612
+ w-21613
+ s-21614
+ mod-21615
+ k-21616)
+ (let ((tmp-21618
+ ($sc-dispatch
+ e-21611
+ '(_ #(each (any any)) any . each-any))))
+ (if tmp-21618
+ (@apply
+ (lambda (id-21620 val-21621 e1-21622 e2-21623)
+ (if (not (valid-bound-ids?-4287 id-21620))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ e-21611)
+ (let ((labels-21713 (gen-labels-4264 id-21620)))
+ (let ((new-w-21714
+ (make-binding-wrap-4275
+ id-21620
+ labels-21713
+ w-21613)))
+ (k-21616
+ (cons e1-21622 e2-21623)
+ (extend-env-4255
+ labels-21713
+ (let ((trans-r-21750
+ (macros-only-env-4257 r-21612)))
+ (begin
+ (if rec?-21610 new-w-21714 w-21613)
+ (map (lambda (x-21751)
+ (cons 'macro
+ (eval-local-transformer-4303
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ x-21751
+ trans-r-21750
+ (values
+ (if rec?-21610
+ new-w-21714
+ w-21613))
+ (let ((props-21811
+ (source-properties
+ (if (if (vector?
+ x-21751)
+ (if (= (vector-length
+ x-21751)
+ 4)
+ (eq? (vector-ref
+ x-21751
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ x-21751
+ 1)
+ x-21751))))
+ (if (pair? props-21811)
+ props-21811
+ #f))
+ #f
+ mod-21615
+ #f))
+ (lambda (type-21844
+ value-21845
+ form-21846
+ e-21847
+ w-21848
+ s-21849
+ mod-21850)
+ (expand-expr-4298
+ type-21844
+ value-21845
+ form-21846
+ e-21847
+ trans-r-21750
+ w-21848
+ s-21849
+ mod-21850)))
+ mod-21615)))
+ val-21621)))
+ r-21612)
+ new-w-21714
+ s-21614
+ mod-21615)))))
+ tmp-21618)
+ (syntax-violation
+ #f
+ "bad local syntax definition"
+ (wrap-4290
+ (begin
+ (if (if s-21614
+ (supports-source-properties? e-21611)
+ #f)
+ (set-source-properties! e-21611 s-21614))
+ e-21611)
+ w-21613
+ mod-21615))))))
+ (eval-local-transformer-4303
+ (lambda (expanded-22016 mod-22017)
+ (let ((p-22018 (primitive-eval expanded-22016)))
+ (if (procedure? p-22018)
+ p-22018
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ p-22018)))))
+ (ellipsis?-4305
+ (lambda (x-4941)
+ (if (if (if (vector? x-4941)
+ (if (= (vector-length x-4941) 4)
+ (eq? (vector-ref x-4941 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-4941 1))
+ #f)
+ (if (eq? (if (if (vector? x-4941)
+ (if (= (vector-length x-4941) 4)
+ (eq? (vector-ref x-4941 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-4941 1)
+ x-4941)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280 x-4941 '(()))
+ (id-var-name-4280
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f)))
+ (lambda-formals-4306
+ (lambda (orig-args-22023)
+ (letrec*
+ ((req-22024
+ (lambda (args-22028 rreq-22029)
+ (let ((tmp-22031 ($sc-dispatch args-22028 '())))
+ (if tmp-22031
+ (@apply
+ (lambda () (check-22025 (reverse rreq-22029) #f))
+ tmp-22031)
+ (let ((tmp-22154
+ ($sc-dispatch args-22028 '(any . any))))
+ (if (if tmp-22154
+ (@apply
+ (lambda (a-22158 b-22159)
+ (if (symbol? a-22158)
+ #t
+ (if (if (vector? a-22158)
+ (if (= (vector-length a-22158) 4)
+ (eq? (vector-ref a-22158 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref a-22158 1))
+ #f)))
+ tmp-22154)
+ #f)
+ (@apply
+ (lambda (a-22186 b-22187)
+ (req-22024 b-22187 (cons a-22186 rreq-22029)))
+ tmp-22154)
+ (let ((tmp-22188 (list args-22028)))
+ (if (@apply
+ (lambda (r-22190)
+ (if (symbol? r-22190)
+ #t
+ (if (if (vector? r-22190)
+ (if (= (vector-length r-22190) 4)
+ (eq? (vector-ref r-22190 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref r-22190 1))
+ #f)))
+ tmp-22188)
+ (@apply
+ (lambda (r-22220)
+ (check-22025 (reverse rreq-22029) r-22220))
+ tmp-22188)
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ orig-args-22023
+ args-22028)))))))))
+ (check-22025
+ (lambda (req-22351 rest-22352)
+ (if (distinct-bound-ids?-4288
+ (if rest-22352
+ (cons rest-22352 req-22351)
+ req-22351))
+ (values req-22351 #f rest-22352 #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ orig-args-22023)))))
+ (req-22024 orig-args-22023 '()))))
+ (expand-simple-lambda-4307
+ (lambda (e-22468
+ r-22469
+ w-22470
+ s-22471
+ mod-22472
+ req-22473
+ rest-22474
+ meta-22475
+ body-22476)
+ (let ((ids-22477
+ (if rest-22474
+ (append req-22473 (list rest-22474))
+ req-22473)))
+ (let ((vars-22478 (map gen-var-4311 ids-22477)))
+ (let ((labels-22479 (gen-labels-4264 ids-22477)))
+ (build-simple-lambda-4237
+ s-22471
+ (map syntax->datum req-22473)
+ (if rest-22474 (syntax->datum rest-22474) #f)
+ vars-22478
+ meta-22475
+ (expand-body-4301
+ body-22476
+ (wrap-4290
+ (begin
+ (if (if s-22471
+ (supports-source-properties? e-22468)
+ #f)
+ (set-source-properties! e-22468 s-22471))
+ e-22468)
+ w-22470
+ mod-22472)
+ (extend-var-env-4256
+ labels-22479
+ vars-22478
+ r-22469)
+ (make-binding-wrap-4275
+ ids-22477
+ labels-22479
+ w-22470)
+ mod-22472)))))))
+ (lambda*-formals-4308
+ (lambda (orig-args-22759)
+ (letrec*
+ ((req-22760
+ (lambda (args-22767 rreq-22768)
+ (let ((tmp-22770 ($sc-dispatch args-22767 '())))
+ (if tmp-22770
+ (@apply
+ (lambda ()
+ (check-22764 (reverse rreq-22768) '() #f '()))
+ tmp-22770)
+ (let ((tmp-22776
+ ($sc-dispatch args-22767 '(any . any))))
+ (if (if tmp-22776
+ (@apply
+ (lambda (a-22780 b-22781)
+ (if (symbol? a-22780)
+ #t
+ (if (if (vector? a-22780)
+ (if (= (vector-length a-22780) 4)
+ (eq? (vector-ref a-22780 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref a-22780 1))
+ #f)))
+ tmp-22776)
+ #f)
+ (@apply
+ (lambda (a-22808 b-22809)
+ (req-22760 b-22809 (cons a-22808 rreq-22768)))
+ tmp-22776)
+ (let ((tmp-22810
+ ($sc-dispatch args-22767 '(any . any))))
+ (if (if tmp-22810
+ (@apply
+ (lambda (a-22814 b-22815)
+ (eq? (syntax->datum a-22814) #:optional))
+ tmp-22810)
+ #f)
+ (@apply
+ (lambda (a-22816 b-22817)
+ (opt-22761 b-22817 (reverse rreq-22768) '()))
+ tmp-22810)
+ (let ((tmp-22820
+ ($sc-dispatch args-22767 '(any . any))))
+ (if (if tmp-22820
+ (@apply
+ (lambda (a-22824 b-22825)
+ (eq? (syntax->datum a-22824) #:key))
+ tmp-22820)
+ #f)
+ (@apply
+ (lambda (a-22826 b-22827)
+ (key-22762
+ b-22827
+ (reverse rreq-22768)
+ '()
+ '()))
+ tmp-22820)
+ (let ((tmp-22830
+ ($sc-dispatch args-22767 '(any any))))
+ (if (if tmp-22830
+ (@apply
+ (lambda (a-22834 b-22835)
+ (eq? (syntax->datum a-22834)
+ #:rest))
+ tmp-22830)
+ #f)
+ (@apply
+ (lambda (a-22836 b-22837)
+ (rest-22763
+ b-22837
+ (reverse rreq-22768)
+ '()
+ '()))
+ tmp-22830)
+ (let ((tmp-22840 (list args-22767)))
+ (if (@apply
+ (lambda (r-22842)
+ (if (symbol? r-22842)
+ #t
+ (if (if (vector? r-22842)
+ (if (= (vector-length
+ r-22842)
+ 4)
+ (eq? (vector-ref
+ r-22842
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref r-22842 1))
+ #f)))
+ tmp-22840)
+ (@apply
+ (lambda (r-22872)
+ (rest-22763
+ r-22872
+ (reverse rreq-22768)
+ '()
+ '()))
+ tmp-22840)
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ orig-args-22759
+ args-22767)))))))))))))))
+ (opt-22761
+ (lambda (args-22891 req-22892 ropt-22893)
+ (let ((tmp-22895 ($sc-dispatch args-22891 '())))
+ (if tmp-22895
+ (@apply
+ (lambda ()
+ (check-22764
+ req-22892
+ (reverse ropt-22893)
+ #f
+ '()))
+ tmp-22895)
+ (let ((tmp-22901
+ ($sc-dispatch args-22891 '(any . any))))
+ (if (if tmp-22901
+ (@apply
+ (lambda (a-22905 b-22906)
+ (if (symbol? a-22905)
+ #t
+ (if (if (vector? a-22905)
+ (if (= (vector-length a-22905) 4)
+ (eq? (vector-ref a-22905 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref a-22905 1))
+ #f)))
+ tmp-22901)
+ #f)
+ (@apply
+ (lambda (a-22933 b-22934)
+ (opt-22761
+ b-22934
+ req-22892
+ (cons (cons a-22933
+ '(#(syntax-object
+ #f
((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile)))
- 'compile
- (if (#{free-id=?\ 446}#
- #{x\ 1943}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1942"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1936" "i1937" "i1938"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1933" "i1934" "i1935"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile)))
- 'load
- (if (#{free-id=?\ 446}#
- #{x\ 1943}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1942"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1936" "i1937" "i1938"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1933" "i1934" "i1935"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile)))
- 'eval
- (if (#{free-id=?\ 446}#
- #{x\ 1943}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1942"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1936" "i1937" "i1938"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1933" "i1934" "i1935"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile)))
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e\ 1930}#
- (#{wrap\ 456}#
- #{x\ 1943}#
- #{w\ 1932}#
- #f))))))))
- #{situations\ 1941}#))))))
- (begin
- (#{f\ 1939}# #{when-list\ 1931}# (quote ()))))))
- (#{chi-install-global\ 464}#
- (lambda (#{name\ 1953}# #{e\ 1954}#)
- (#{build-global-definition\ 327}#
- #f
- #{name\ 1953}#
- (#{build-application\ 309}#
- #f
- (#{build-primref\ 335}#
- #f
- 'make-syntax-transformer)
- (list (#{build-data\ 337}# #f #{name\ 1953}#)
- (#{build-data\ 337}# #f (quote macro))
- #{e\ 1954}#)))))
- (#{chi-top-sequence\ 462}#
- (lambda (#{body\ 1962}#
- #{r\ 1963}#
- #{w\ 1964}#
- #{s\ 1965}#
- #{m\ 1966}#
- #{esew\ 1967}#
- #{mod\ 1968}#)
- (#{build-sequence\ 339}#
- #{s\ 1965}#
- (letrec*
- ((#{dobody\ 1984}#
- (lambda (#{body\ 1985}#
- #{r\ 1986}#
- #{w\ 1987}#
- #{m\ 1988}#
- #{esew\ 1989}#
- #{mod\ 1990}#
- #{out\ 1991}#)
- (if (null? #{body\ 1985}#)
- (reverse #{out\ 1991}#)
- (#{dobody\ 1984}#
- (cdr #{body\ 1985}#)
- #{r\ 1986}#
- #{w\ 1987}#
- #{m\ 1988}#
- #{esew\ 1989}#
- #{mod\ 1990}#
- (cons (#{chi-top\ 470}#
- (car #{body\ 1985}#)
- #{r\ 1986}#
- #{w\ 1987}#
- #{m\ 1988}#
- #{esew\ 1989}#
- #{mod\ 1990}#)
- #{out\ 1991}#))))))
- (begin
- (#{dobody\ 1984}#
- #{body\ 1962}#
- #{r\ 1963}#
- #{w\ 1964}#
- #{m\ 1966}#
- #{esew\ 1967}#
- #{mod\ 1968}#
- '()))))))
- (#{chi-sequence\ 460}#
- (lambda (#{body\ 1992}#
- #{r\ 1993}#
- #{w\ 1994}#
- #{s\ 1995}#
- #{mod\ 1996}#)
- (#{build-sequence\ 339}#
- #{s\ 1995}#
- (letrec*
- ((#{dobody\ 2007}#
- (lambda (#{body\ 2008}#
- #{r\ 2009}#
- #{w\ 2010}#
- #{mod\ 2011}#)
- (if (null? #{body\ 2008}#)
- '()
- (begin
- (let ((#{first\ 2013}#
- (#{chi\ 472}#
- (car #{body\ 2008}#)
- #{r\ 2009}#
- #{w\ 2010}#
- #{mod\ 2011}#)))
- (cons #{first\ 2013}#
- (#{dobody\ 2007}#
- (cdr #{body\ 2008}#)
- #{r\ 2009}#
- #{w\ 2010}#
- #{mod\ 2011}#))))))))
- (begin
- (#{dobody\ 2007}#
- #{body\ 1992}#
- #{r\ 1993}#
- #{w\ 1994}#
- #{mod\ 1996}#))))))
- (#{source-wrap\ 458}#
- (lambda (#{x\ 2014}#
- #{w\ 2015}#
- #{s\ 2016}#
- #{defmod\ 2017}#)
- (#{wrap\ 456}#
- (#{decorate-source\ 305}#
- #{x\ 2014}#
- #{s\ 2016}#)
- #{w\ 2015}#
- #{defmod\ 2017}#)))
- (#{wrap\ 456}#
- (lambda (#{x\ 2022}# #{w\ 2023}# #{defmod\ 2024}#)
- (if (if (null? (#{wrap-marks\ 394}# #{w\ 2023}#))
- (null? (#{wrap-subst\ 396}# #{w\ 2023}#))
- #f)
- #{x\ 2022}#
- (if (#{syntax-object?\ 351}# #{x\ 2022}#)
- (#{make-syntax-object\ 349}#
- (#{syntax-object-expression\ 353}# #{x\ 2022}#)
- (#{join-wraps\ 438}#
- #{w\ 2023}#
- (#{syntax-object-wrap\ 355}# #{x\ 2022}#))
- (#{syntax-object-module\ 357}# #{x\ 2022}#))
- (if (null? #{x\ 2022}#)
- #{x\ 2022}#
- (#{make-syntax-object\ 349}#
- #{x\ 2022}#
- #{w\ 2023}#
- #{defmod\ 2024}#))))))
- (#{bound-id-member?\ 454}#
- (lambda (#{x\ 2037}# #{list\ 2038}#)
- (if (not (null? #{list\ 2038}#))
- (begin
- (let ((#{t\ 2045}#
- (#{bound-id=?\ 448}#
- #{x\ 2037}#
- (car #{list\ 2038}#))))
- (if #{t\ 2045}#
- #{t\ 2045}#
- (#{bound-id-member?\ 454}#
- #{x\ 2037}#
- (cdr #{list\ 2038}#)))))
- #f)))
- (#{distinct-bound-ids?\ 452}#
- (lambda (#{ids\ 2047}#)
- (letrec*
- ((#{distinct?\ 2051}#
- (lambda (#{ids\ 2052}#)
- (begin
- (let ((#{t\ 2055}# (null? #{ids\ 2052}#)))
- (if #{t\ 2055}#
- #{t\ 2055}#
- (if (not (#{bound-id-member?\ 454}#
- (car #{ids\ 2052}#)
- (cdr #{ids\ 2052}#)))
- (#{distinct?\ 2051}# (cdr #{ids\ 2052}#))
- #f)))))))
- (begin (#{distinct?\ 2051}# #{ids\ 2047}#)))))
- (#{valid-bound-ids?\ 450}#
- (lambda (#{ids\ 2059}#)
- (if (letrec*
- ((#{all-ids?\ 2064}#
- (lambda (#{ids\ 2065}#)
- (begin
- (let ((#{t\ 2068}# (null? #{ids\ 2065}#)))
- (if #{t\ 2068}#
- #{t\ 2068}#
- (if (#{id?\ 387}# (car #{ids\ 2065}#))
- (#{all-ids?\ 2064}# (cdr #{ids\ 2065}#))
- #f)))))))
- (begin (#{all-ids?\ 2064}# #{ids\ 2059}#)))
- (#{distinct-bound-ids?\ 452}# #{ids\ 2059}#)
- #f)))
- (#{bound-id=?\ 448}#
- (lambda (#{i\ 2073}# #{j\ 2074}#)
- (if (if (#{syntax-object?\ 351}# #{i\ 2073}#)
- (#{syntax-object?\ 351}# #{j\ 2074}#)
- #f)
- (if (eq? (#{syntax-object-expression\ 353}# #{i\ 2073}#)
- (#{syntax-object-expression\ 353}# #{j\ 2074}#))
- (#{same-marks?\ 442}#
- (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{i\ 2073}#))
- (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{j\ 2074}#)))
- #f)
- (eq? #{i\ 2073}# #{j\ 2074}#))))
- (#{free-id=?\ 446}#
- (lambda (#{i\ 2081}# #{j\ 2082}#)
- (if (eq? (begin
- (let ((#{x\ 2088}# #{i\ 2081}#))
- (if (#{syntax-object?\ 351}# #{x\ 2088}#)
- (#{syntax-object-expression\ 353}# #{x\ 2088}#)
- #{x\ 2088}#)))
- (begin
- (let ((#{x\ 2091}# #{j\ 2082}#))
- (if (#{syntax-object?\ 351}# #{x\ 2091}#)
- (#{syntax-object-expression\ 353}# #{x\ 2091}#)
- #{x\ 2091}#))))
- (eq? (#{id-var-name\ 444}# #{i\ 2081}# (quote (())))
- (#{id-var-name\ 444}# #{j\ 2082}# (quote (()))))
- #f)))
- (#{id-var-name\ 444}#
- (lambda (#{id\ 2095}# #{w\ 2096}#)
- (letrec*
- ((#{search-vector-rib\ 2105}#
- (lambda (#{sym\ 2117}#
- #{subst\ 2118}#
- #{marks\ 2119}#
- #{symnames\ 2120}#
- #{ribcage\ 2121}#)
- (begin
- (let ((#{n\ 2128}# (vector-length #{symnames\ 2120}#)))
- (letrec*
- ((#{f\ 2131}#
- (lambda (#{i\ 2132}#)
- (if (#{fx=\ 292}# #{i\ 2132}# #{n\ 2128}#)
- (#{search\ 2101}#
- #{sym\ 2117}#
- (cdr #{subst\ 2118}#)
- #{marks\ 2119}#)
- (if (if (eq? (vector-ref
- #{symnames\ 2120}#
- #{i\ 2132}#)
- #{sym\ 2117}#)
- (#{same-marks?\ 442}#
- #{marks\ 2119}#
- (vector-ref
- (#{ribcage-marks\ 414}#
- #{ribcage\ 2121}#)
- #{i\ 2132}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels\ 416}#
- #{ribcage\ 2121}#)
- #{i\ 2132}#)
- #{marks\ 2119}#)
- (#{f\ 2131}#
- (#{fx+\ 288}# #{i\ 2132}# 1)))))))
- (begin (#{f\ 2131}# 0)))))))
- (#{search-list-rib\ 2103}#
- (lambda (#{sym\ 2140}#
- #{subst\ 2141}#
- #{marks\ 2142}#
- #{symnames\ 2143}#
- #{ribcage\ 2144}#)
- (letrec*
- ((#{f\ 2153}#
- (lambda (#{symnames\ 2154}# #{i\ 2155}#)
- (if (null? #{symnames\ 2154}#)
- (#{search\ 2101}#
- #{sym\ 2140}#
- (cdr #{subst\ 2141}#)
- #{marks\ 2142}#)
- (if (if (eq? (car #{symnames\ 2154}#)
- #{sym\ 2140}#)
- (#{same-marks?\ 442}#
- #{marks\ 2142}#
- (list-ref
- (#{ribcage-marks\ 414}#
- #{ribcage\ 2144}#)
- #{i\ 2155}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels\ 416}# #{ribcage\ 2144}#)
- #{i\ 2155}#)
- #{marks\ 2142}#)
- (#{f\ 2153}#
- (cdr #{symnames\ 2154}#)
- (#{fx+\ 288}# #{i\ 2155}# 1)))))))
- (begin (#{f\ 2153}# #{symnames\ 2143}# 0)))))
- (#{search\ 2101}#
- (lambda (#{sym\ 2163}# #{subst\ 2164}# #{marks\ 2165}#)
- (if (null? #{subst\ 2164}#)
- (values #f #{marks\ 2165}#)
- (begin
- (let ((#{fst\ 2170}# (car #{subst\ 2164}#)))
- (if (eq? #{fst\ 2170}# (quote shift))
- (#{search\ 2101}#
- #{sym\ 2163}#
- (cdr #{subst\ 2164}#)
- (cdr #{marks\ 2165}#))
- (begin
- (let ((#{symnames\ 2172}#
- (#{ribcage-symnames\ 412}#
- #{fst\ 2170}#)))
- (if (vector? #{symnames\ 2172}#)
- (#{search-vector-rib\ 2105}#
- #{sym\ 2163}#
- #{subst\ 2164}#
- #{marks\ 2165}#
- #{symnames\ 2172}#
- #{fst\ 2170}#)
- (#{search-list-rib\ 2103}#
- #{sym\ 2163}#
- #{subst\ 2164}#
- #{marks\ 2165}#
- #{symnames\ 2172}#
- #{fst\ 2170}#)))))))))))
- (begin
- (if (symbol? #{id\ 2095}#)
- (begin
- (let ((#{t\ 2175}#
- (call-with-values
- (lambda ()
- (#{search\ 2101}#
- #{id\ 2095}#
- (#{wrap-subst\ 396}# #{w\ 2096}#)
- (#{wrap-marks\ 394}# #{w\ 2096}#)))
- (lambda (#{x\ 2177}# . #{ignore\ 2178}#)
- #{x\ 2177}#))))
- (if #{t\ 2175}# #{t\ 2175}# #{id\ 2095}#)))
- (if (#{syntax-object?\ 351}# #{id\ 2095}#)
- (begin
- (let ((#{id\ 2186}#
- (#{syntax-object-expression\ 353}#
- #{id\ 2095}#))
- (#{w1\ 2187}#
- (#{syntax-object-wrap\ 355}# #{id\ 2095}#)))
- (begin
- (let ((#{marks\ 2189}#
- (#{join-marks\ 440}#
- (#{wrap-marks\ 394}# #{w\ 2096}#)
- (#{wrap-marks\ 394}# #{w1\ 2187}#))))
- (call-with-values
- (lambda ()
- (#{search\ 2101}#
- #{id\ 2186}#
- (#{wrap-subst\ 396}# #{w\ 2096}#)
- #{marks\ 2189}#))
- (lambda (#{new-id\ 2190}# #{marks\ 2191}#)
- (begin
- (let ((#{t\ 2196}# #{new-id\ 2190}#))
- (if #{t\ 2196}#
- #{t\ 2196}#
- (begin
- (let ((#{t\ 2199}#
- (call-with-values
- (lambda ()
- (#{search\ 2101}#
- #{id\ 2186}#
- (#{wrap-subst\ 396}#
- #{w1\ 2187}#)
- #{marks\ 2191}#))
- (lambda (#{x\ 2201}#
- .
- #{ignore\ 2202}#)
- #{x\ 2201}#))))
- (if #{t\ 2199}#
- #{t\ 2199}#
- #{id\ 2186}#))))))))))))
- (syntax-violation
- 'id-var-name
- "invalid id"
- #{id\ 2095}#)))))))
- (#{same-marks?\ 442}#
- (lambda (#{x\ 2207}# #{y\ 2208}#)
- (begin
- (let ((#{t\ 2213}# (eq? #{x\ 2207}# #{y\ 2208}#)))
- (if #{t\ 2213}#
- #{t\ 2213}#
- (if (not (null? #{x\ 2207}#))
- (if (not (null? #{y\ 2208}#))
- (if (eq? (car #{x\ 2207}#) (car #{y\ 2208}#))
- (#{same-marks?\ 442}#
- (cdr #{x\ 2207}#)
- (cdr #{y\ 2208}#))
- #f)
- #f)
- #f))))))
- (#{join-marks\ 440}#
- (lambda (#{m1\ 2219}# #{m2\ 2220}#)
- (#{smart-append\ 436}# #{m1\ 2219}# #{m2\ 2220}#)))
- (#{join-wraps\ 438}#
- (lambda (#{w1\ 2223}# #{w2\ 2224}#)
- (begin
- (let ((#{m1\ 2229}# (#{wrap-marks\ 394}# #{w1\ 2223}#))
- (#{s1\ 2230}# (#{wrap-subst\ 396}# #{w1\ 2223}#)))
- (if (null? #{m1\ 2229}#)
- (if (null? #{s1\ 2230}#)
- #{w2\ 2224}#
- (#{make-wrap\ 392}#
- (#{wrap-marks\ 394}# #{w2\ 2224}#)
- (#{smart-append\ 436}#
- #{s1\ 2230}#
- (#{wrap-subst\ 396}# #{w2\ 2224}#))))
- (#{make-wrap\ 392}#
- (#{smart-append\ 436}#
- #{m1\ 2229}#
- (#{wrap-marks\ 394}# #{w2\ 2224}#))
- (#{smart-append\ 436}#
- #{s1\ 2230}#
- (#{wrap-subst\ 396}# #{w2\ 2224}#))))))))
- (#{smart-append\ 436}#
- (lambda (#{m1\ 2231}# #{m2\ 2232}#)
- (if (null? #{m2\ 2232}#)
- #{m1\ 2231}#
- (append #{m1\ 2231}# #{m2\ 2232}#))))
- (#{make-binding-wrap\ 434}#
- (lambda (#{ids\ 2235}# #{labels\ 2236}# #{w\ 2237}#)
- (if (null? #{ids\ 2235}#)
- #{w\ 2237}#
- (#{make-wrap\ 392}#
- (#{wrap-marks\ 394}# #{w\ 2237}#)
- (cons (begin
- (let ((#{labelvec\ 2242}#
- (list->vector #{labels\ 2236}#)))
- (begin
- (let ((#{n\ 2244}#
- (vector-length #{labelvec\ 2242}#)))
- (begin
- (let ((#{symnamevec\ 2247}#
- (make-vector #{n\ 2244}#))
- (#{marksvec\ 2248}#
- (make-vector #{n\ 2244}#)))
- (begin
- (letrec*
- ((#{f\ 2252}#
- (lambda (#{ids\ 2253}# #{i\ 2254}#)
- (if (not (null? #{ids\ 2253}#))
- (call-with-values
- (lambda ()
- (#{id-sym-name&marks\ 390}#
- (car #{ids\ 2253}#)
- #{w\ 2237}#))
- (lambda (#{symname\ 2255}#
- #{marks\ 2256}#)
- (begin
- (vector-set!
- #{symnamevec\ 2247}#
- #{i\ 2254}#
- #{symname\ 2255}#)
- (vector-set!
- #{marksvec\ 2248}#
- #{i\ 2254}#
- #{marks\ 2256}#)
- (#{f\ 2252}#
- (cdr #{ids\ 2253}#)
- (#{fx+\ 288}#
- #{i\ 2254}#
- 1)))))))))
- (begin (#{f\ 2252}# #{ids\ 2235}# 0)))
- (#{make-ribcage\ 408}#
- #{symnamevec\ 2247}#
- #{marksvec\ 2248}#
- #{labelvec\ 2242}#))))))))
- (#{wrap-subst\ 396}# #{w\ 2237}#))))))
- (#{extend-ribcage!\ 432}#
- (lambda (#{ribcage\ 2259}# #{id\ 2260}# #{label\ 2261}#)
- (begin
- (#{set-ribcage-symnames!\ 418}#
- #{ribcage\ 2259}#
- (cons (#{syntax-object-expression\ 353}# #{id\ 2260}#)
- (#{ribcage-symnames\ 412}# #{ribcage\ 2259}#)))
- (#{set-ribcage-marks!\ 420}#
- #{ribcage\ 2259}#
- (cons (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{id\ 2260}#))
- (#{ribcage-marks\ 414}# #{ribcage\ 2259}#)))
- (#{set-ribcage-labels!\ 422}#
- #{ribcage\ 2259}#
- (cons #{label\ 2261}#
- (#{ribcage-labels\ 416}# #{ribcage\ 2259}#))))))
- (#{anti-mark\ 428}#
- (lambda (#{w\ 2265}#)
- (#{make-wrap\ 392}#
- (cons #f (#{wrap-marks\ 394}# #{w\ 2265}#))
- (cons 'shift
- (#{wrap-subst\ 396}# #{w\ 2265}#)))))
- (#{set-ribcage-labels!\ 422}#
- (lambda (#{x\ 2268}# #{update\ 2269}#)
- (vector-set! #{x\ 2268}# 3 #{update\ 2269}#)))
- (#{set-ribcage-marks!\ 420}#
- (lambda (#{x\ 2272}# #{update\ 2273}#)
- (vector-set! #{x\ 2272}# 2 #{update\ 2273}#)))
- (#{set-ribcage-symnames!\ 418}#
- (lambda (#{x\ 2276}# #{update\ 2277}#)
- (vector-set! #{x\ 2276}# 1 #{update\ 2277}#)))
- (#{ribcage-labels\ 416}#
- (lambda (#{x\ 2280}#) (vector-ref #{x\ 2280}# 3)))
- (#{ribcage-marks\ 414}#
- (lambda (#{x\ 2282}#) (vector-ref #{x\ 2282}# 2)))
- (#{ribcage-symnames\ 412}#
- (lambda (#{x\ 2284}#) (vector-ref #{x\ 2284}# 1)))
- (#{make-ribcage\ 408}#
- (lambda (#{symnames\ 2291}#
- #{marks\ 2292}#
- #{labels\ 2293}#)
- (vector
- 'ribcage
- #{symnames\ 2291}#
- #{marks\ 2292}#
- #{labels\ 2293}#)))
- (#{gen-labels\ 405}#
- (lambda (#{ls\ 2297}#)
- (if (null? #{ls\ 2297}#)
- '()
- (cons (#{gen-label\ 403}#)
- (#{gen-labels\ 405}# (cdr #{ls\ 2297}#))))))
- (#{gen-label\ 403}#
- (lambda () (symbol->string (gensym "i"))))
- (#{id-sym-name&marks\ 390}#
- (lambda (#{x\ 2299}# #{w\ 2300}#)
- (if (#{syntax-object?\ 351}# #{x\ 2299}#)
- (values
- (#{syntax-object-expression\ 353}# #{x\ 2299}#)
- (#{join-marks\ 440}#
- (#{wrap-marks\ 394}# #{w\ 2300}#)
- (#{wrap-marks\ 394}#
- (#{syntax-object-wrap\ 355}# #{x\ 2299}#))))
- (values
- #{x\ 2299}#
- (#{wrap-marks\ 394}# #{w\ 2300}#)))))
- (#{id?\ 387}#
- (lambda (#{x\ 2303}#)
- (if (symbol? #{x\ 2303}#)
- #t
- (if (#{syntax-object?\ 351}# #{x\ 2303}#)
- (symbol?
- (#{syntax-object-expression\ 353}# #{x\ 2303}#))
- #f))))
- (#{nonsymbol-id?\ 385}#
- (lambda (#{x\ 2310}#)
- (if (#{syntax-object?\ 351}# #{x\ 2310}#)
- (symbol?
- (#{syntax-object-expression\ 353}# #{x\ 2310}#))
- #f)))
- (#{global-extend\ 383}#
- (lambda (#{type\ 2314}# #{sym\ 2315}# #{val\ 2316}#)
- (#{put-global-definition-hook\ 301}#
- #{sym\ 2315}#
- #{type\ 2314}#
- #{val\ 2316}#)))
- (#{lookup\ 381}#
- (lambda (#{x\ 2320}# #{r\ 2321}# #{mod\ 2322}#)
- (begin
- (let ((#{t\ 2328}# (assq #{x\ 2320}# #{r\ 2321}#)))
- (if #{t\ 2328}#
- (cdr #{t\ 2328}#)
- (if (symbol? #{x\ 2320}#)
- (begin
- (let ((#{t\ 2334}#
- (#{get-global-definition-hook\ 303}#
- #{x\ 2320}#
- #{mod\ 2322}#)))
- (if #{t\ 2334}# #{t\ 2334}# (quote (global)))))
- '(displaced-lexical)))))))
- (#{macros-only-env\ 379}#
- (lambda (#{r\ 2339}#)
- (if (null? #{r\ 2339}#)
- '()
- (begin
- (let ((#{a\ 2342}# (car #{r\ 2339}#)))
- (if (eq? (car (cdr #{a\ 2342}#)) (quote macro))
- (cons #{a\ 2342}#
- (#{macros-only-env\ 379}# (cdr #{r\ 2339}#)))
- (#{macros-only-env\ 379}# (cdr #{r\ 2339}#))))))))
- (#{extend-var-env\ 377}#
- (lambda (#{labels\ 2343}# #{vars\ 2344}# #{r\ 2345}#)
- (if (null? #{labels\ 2343}#)
- #{r\ 2345}#
- (#{extend-var-env\ 377}#
- (cdr #{labels\ 2343}#)
- (cdr #{vars\ 2344}#)
- (cons (cons (car #{labels\ 2343}#)
- (cons (quote lexical) (car #{vars\ 2344}#)))
- #{r\ 2345}#)))))
- (#{extend-env\ 375}#
- (lambda (#{labels\ 2350}# #{bindings\ 2351}# #{r\ 2352}#)
- (if (null? #{labels\ 2350}#)
- #{r\ 2352}#
- (#{extend-env\ 375}#
- (cdr #{labels\ 2350}#)
- (cdr #{bindings\ 2351}#)
- (cons (cons (car #{labels\ 2350}#)
- (car #{bindings\ 2351}#))
- #{r\ 2352}#)))))
- (#{source-annotation\ 366}#
- (lambda (#{x\ 2356}#)
- (if (#{syntax-object?\ 351}# #{x\ 2356}#)
- (#{source-annotation\ 366}#
- (#{syntax-object-expression\ 353}# #{x\ 2356}#))
- (if (pair? #{x\ 2356}#)
- (begin
- (let ((#{props\ 2363}# (source-properties #{x\ 2356}#)))
- (if (pair? #{props\ 2363}#) #{props\ 2363}# #f)))
- #f))))
- (#{syntax-object-module\ 357}#
- (lambda (#{x\ 2377}#) (vector-ref #{x\ 2377}# 3)))
- (#{syntax-object-wrap\ 355}#
- (lambda (#{x\ 2379}#) (vector-ref #{x\ 2379}# 2)))
- (#{syntax-object-expression\ 353}#
- (lambda (#{x\ 2381}#) (vector-ref #{x\ 2381}# 1)))
- (#{syntax-object?\ 351}#
- (lambda (#{x\ 2383}#)
- (if (vector? #{x\ 2383}#)
- (if (= (vector-length #{x\ 2383}#) 4)
- (eq? (vector-ref #{x\ 2383}# 0)
- 'syntax-object)
- #f)
- #f)))
- (#{make-syntax-object\ 349}#
- (lambda (#{expression\ 2388}#
- #{wrap\ 2389}#
- #{module\ 2390}#)
- (vector
- 'syntax-object
- #{expression\ 2388}#
- #{wrap\ 2389}#
- #{module\ 2390}#)))
- (#{build-letrec\ 345}#
- (lambda (#{src\ 2394}#
- #{in-order?\ 2395}#
- #{ids\ 2396}#
- #{vars\ 2397}#
- #{val-exps\ 2398}#
- #{body-exp\ 2399}#)
- (if (null? #{vars\ 2397}#)
- #{body-exp\ 2399}#
- (begin
- (for-each
- #{maybe-name-value!\ 325}#
- #{ids\ 2396}#
- #{val-exps\ 2398}#)
- (#{make-letrec\ 277}#
- #{src\ 2394}#
- #{in-order?\ 2395}#
- #{ids\ 2396}#
- #{vars\ 2397}#
- #{val-exps\ 2398}#
- #{body-exp\ 2399}#)))))
- (#{build-named-let\ 343}#
- (lambda (#{src\ 2406}#
- #{ids\ 2407}#
- #{vars\ 2408}#
- #{val-exps\ 2409}#
- #{body-exp\ 2410}#)
- (begin
- (let ((#{f\ 2420}# (car #{vars\ 2408}#))
- (#{f-name\ 2421}# (car #{ids\ 2407}#))
- (#{vars\ 2422}# (cdr #{vars\ 2408}#))
- (#{ids\ 2423}# (cdr #{ids\ 2407}#)))
- (begin
- (let ((#{proc\ 2425}#
- (#{build-simple-lambda\ 329}#
- #{src\ 2406}#
- #{ids\ 2423}#
- #f
- #{vars\ 2422}#
- '()
- #{body-exp\ 2410}#)))
- (begin
- (#{maybe-name-value!\ 325}#
- #{f-name\ 2421}#
- #{proc\ 2425}#)
- (for-each
- #{maybe-name-value!\ 325}#
- #{ids\ 2423}#
- #{val-exps\ 2409}#)
- (#{make-letrec\ 277}#
- #{src\ 2406}#
- #f
- (list #{f-name\ 2421}#)
- (list #{f\ 2420}#)
- (list #{proc\ 2425}#)
- (#{build-application\ 309}#
- #{src\ 2406}#
- (#{build-lexical-reference\ 315}#
- 'fun
- #{src\ 2406}#
- #{f-name\ 2421}#
- #{f\ 2420}#)
- #{val-exps\ 2409}#)))))))))
- (#{build-let\ 341}#
- (lambda (#{src\ 2426}#
- #{ids\ 2427}#
- #{vars\ 2428}#
- #{val-exps\ 2429}#
- #{body-exp\ 2430}#)
- (begin
- (for-each
- #{maybe-name-value!\ 325}#
- #{ids\ 2427}#
- #{val-exps\ 2429}#)
- (if (null? #{vars\ 2428}#)
- #{body-exp\ 2430}#
- (#{make-let\ 275}#
- #{src\ 2426}#
- #{ids\ 2427}#
- #{vars\ 2428}#
- #{val-exps\ 2429}#
- #{body-exp\ 2430}#)))))
- (#{build-sequence\ 339}#
- (lambda (#{src\ 2436}# #{exps\ 2437}#)
- (if (null? (cdr #{exps\ 2437}#))
- (car #{exps\ 2437}#)
- (#{make-sequence\ 269}#
- #{src\ 2436}#
- #{exps\ 2437}#))))
- (#{build-data\ 337}#
- (lambda (#{src\ 2440}# #{exp\ 2441}#)
- (#{make-const\ 247}# #{src\ 2440}# #{exp\ 2441}#)))
- (#{build-primref\ 335}#
- (lambda (#{src\ 2444}# #{name\ 2445}#)
- (if (equal?
- (module-name (current-module))
- '(guile))
- (#{make-toplevel-ref\ 259}#
- #{src\ 2444}#
- #{name\ 2445}#)
- (#{make-module-ref\ 255}#
- #{src\ 2444}#
- '(guile)
- #{name\ 2445}#
- #f))))
- (#{build-lambda-case\ 333}#
- (lambda (#{src\ 2448}#
- #{req\ 2449}#
- #{opt\ 2450}#
- #{rest\ 2451}#
- #{kw\ 2452}#
- #{inits\ 2453}#
- #{vars\ 2454}#
- #{body\ 2455}#
- #{else-case\ 2456}#)
- (#{make-lambda-case\ 273}#
- #{src\ 2448}#
- #{req\ 2449}#
- #{opt\ 2450}#
- #{rest\ 2451}#
- #{kw\ 2452}#
- #{inits\ 2453}#
- #{vars\ 2454}#
- #{body\ 2455}#
- #{else-case\ 2456}#)))
- (#{build-case-lambda\ 331}#
- (lambda (#{src\ 2466}# #{meta\ 2467}# #{body\ 2468}#)
- (#{make-lambda\ 271}#
- #{src\ 2466}#
- #{meta\ 2467}#
- #{body\ 2468}#)))
- (#{build-simple-lambda\ 329}#
- (lambda (#{src\ 2472}#
- #{req\ 2473}#
- #{rest\ 2474}#
- #{vars\ 2475}#
- #{meta\ 2476}#
- #{exp\ 2477}#)
- (#{make-lambda\ 271}#
- #{src\ 2472}#
- #{meta\ 2476}#
- (#{make-lambda-case\ 273}#
- #{src\ 2472}#
- #{req\ 2473}#
- #f
- #{rest\ 2474}#
- #f
- '()
- #{vars\ 2475}#
- #{exp\ 2477}#
- #f))))
- (#{build-global-definition\ 327}#
- (lambda (#{source\ 2484}# #{var\ 2485}# #{exp\ 2486}#)
- (begin
- (#{maybe-name-value!\ 325}#
- #{var\ 2485}#
- #{exp\ 2486}#)
- (#{make-toplevel-define\ 263}#
- #{source\ 2484}#
- #{var\ 2485}#
- #{exp\ 2486}#))))
- (#{maybe-name-value!\ 325}#
- (lambda (#{name\ 2490}# #{val\ 2491}#)
- (if (#{lambda?\ 282}# #{val\ 2491}#)
- (begin
- (let ((#{meta\ 2495}#
- (#{lambda-meta\ 284}# #{val\ 2491}#)))
- (if (not (assq (quote name) #{meta\ 2495}#))
- (#{set-lambda-meta!\ 286}#
- #{val\ 2491}#
- (cons (cons (quote name) #{name\ 2490}#)
- #{meta\ 2495}#))))))))
- (#{build-global-assignment\ 323}#
- (lambda (#{source\ 2496}#
- #{var\ 2497}#
- #{exp\ 2498}#
- #{mod\ 2499}#)
- (#{analyze-variable\ 319}#
- #{mod\ 2499}#
- #{var\ 2497}#
- (lambda (#{mod\ 2504}# #{var\ 2505}# #{public?\ 2506}#)
- (#{make-module-set\ 257}#
- #{source\ 2496}#
- #{mod\ 2504}#
- #{var\ 2505}#
- #{public?\ 2506}#
- #{exp\ 2498}#))
- (lambda (#{var\ 2510}#)
- (#{make-toplevel-set\ 261}#
- #{source\ 2496}#
- #{var\ 2510}#
- #{exp\ 2498}#)))))
- (#{build-global-reference\ 321}#
- (lambda (#{source\ 2512}# #{var\ 2513}# #{mod\ 2514}#)
- (#{analyze-variable\ 319}#
- #{mod\ 2514}#
- #{var\ 2513}#
- (lambda (#{mod\ 2518}# #{var\ 2519}# #{public?\ 2520}#)
- (#{make-module-ref\ 255}#
- #{source\ 2512}#
- #{mod\ 2518}#
- #{var\ 2519}#
- #{public?\ 2520}#))
- (lambda (#{var\ 2524}#)
- (#{make-toplevel-ref\ 259}#
- #{source\ 2512}#
- #{var\ 2524}#)))))
- (#{analyze-variable\ 319}#
- (lambda (#{mod\ 2526}#
- #{var\ 2527}#
- #{modref-cont\ 2528}#
- #{bare-cont\ 2529}#)
- (if (not #{mod\ 2526}#)
- (#{bare-cont\ 2529}# #{var\ 2527}#)
- (begin
- (let ((#{kind\ 2536}# (car #{mod\ 2526}#))
- (#{mod\ 2537}# (cdr #{mod\ 2526}#)))
- (if (eqv? #{kind\ 2536}# (quote public))
- (#{modref-cont\ 2528}#
- #{mod\ 2537}#
- #{var\ 2527}#
- #t)
- (if (eqv? #{kind\ 2536}# (quote private))
- (if (not (equal?
- #{mod\ 2537}#
- (module-name (current-module))))
- (#{modref-cont\ 2528}#
- #{mod\ 2537}#
- #{var\ 2527}#
- #f)
- (#{bare-cont\ 2529}# #{var\ 2527}#))
- (if (eqv? #{kind\ 2536}# (quote bare))
- (#{bare-cont\ 2529}# #{var\ 2527}#)
- (if (eqv? #{kind\ 2536}# (quote hygiene))
- (if (if (not (equal?
- #{mod\ 2537}#
- (module-name (current-module))))
- (module-variable
- (resolve-module #{mod\ 2537}#)
- #{var\ 2527}#)
- #f)
- (#{modref-cont\ 2528}#
- #{mod\ 2537}#
- #{var\ 2527}#
- #f)
- (#{bare-cont\ 2529}# #{var\ 2527}#))
- (syntax-violation
- #f
- "bad module kind"
- #{var\ 2527}#
- #{mod\ 2537}#))))))))))
- (#{build-lexical-assignment\ 317}#
- (lambda (#{source\ 2545}#
- #{name\ 2546}#
- #{var\ 2547}#
- #{exp\ 2548}#)
- (#{make-lexical-set\ 253}#
- #{source\ 2545}#
- #{name\ 2546}#
- #{var\ 2547}#
- #{exp\ 2548}#)))
- (#{build-lexical-reference\ 315}#
- (lambda (#{type\ 2553}#
- #{source\ 2554}#
- #{name\ 2555}#
- #{var\ 2556}#)
- (#{make-lexical-ref\ 251}#
- #{source\ 2554}#
- #{name\ 2555}#
- #{var\ 2556}#)))
- (#{build-dynlet\ 313}#
- (lambda (#{source\ 2561}#
- #{fluids\ 2562}#
- #{vals\ 2563}#
- #{body\ 2564}#)
- (#{make-dynlet\ 279}#
- #{source\ 2561}#
- #{fluids\ 2562}#
- #{vals\ 2563}#
- #{body\ 2564}#)))
- (#{build-conditional\ 311}#
- (lambda (#{source\ 2569}#
- #{test-exp\ 2570}#
- #{then-exp\ 2571}#
- #{else-exp\ 2572}#)
- (#{make-conditional\ 265}#
- #{source\ 2569}#
- #{test-exp\ 2570}#
- #{then-exp\ 2571}#
- #{else-exp\ 2572}#)))
- (#{build-application\ 309}#
- (lambda (#{source\ 2577}#
- #{fun-exp\ 2578}#
- #{arg-exps\ 2579}#)
- (#{make-application\ 267}#
- #{source\ 2577}#
- #{fun-exp\ 2578}#
- #{arg-exps\ 2579}#)))
- (#{build-void\ 307}#
- (lambda (#{source\ 2583}#)
- (#{make-void\ 245}# #{source\ 2583}#)))
- (#{decorate-source\ 305}#
- (lambda (#{e\ 2585}# #{s\ 2586}#)
- (begin
- (if (if (pair? #{e\ 2585}#) #{s\ 2586}# #f)
- (set-source-properties! #{e\ 2585}# #{s\ 2586}#))
- #{e\ 2585}#)))
- (#{get-global-definition-hook\ 303}#
- (lambda (#{symbol\ 2591}# #{module\ 2592}#)
- (begin
- (if (if (not #{module\ 2592}#) (current-module) #f)
- (warn "module system is booted, we should have a module"
- #{symbol\ 2591}#))
- (begin
- (let ((#{v\ 2598}#
- (module-variable
- (if #{module\ 2592}#
- (resolve-module (cdr #{module\ 2592}#))
- (current-module))
- #{symbol\ 2591}#)))
- (if #{v\ 2598}#
- (if (variable-bound? #{v\ 2598}#)
- (begin
- (let ((#{val\ 2603}# (variable-ref #{v\ 2598}#)))
- (if (macro? #{val\ 2603}#)
- (if (macro-type #{val\ 2603}#)
- (cons (macro-type #{val\ 2603}#)
- (macro-binding #{val\ 2603}#))
- #f)
- #f)))
- #f)
- #f))))))
- (#{put-global-definition-hook\ 301}#
- (lambda (#{symbol\ 2607}# #{type\ 2608}# #{val\ 2609}#)
- (module-define!
- (current-module)
- #{symbol\ 2607}#
- (make-syntax-transformer
- #{symbol\ 2607}#
- #{type\ 2608}#
- #{val\ 2609}#))))
- (#{local-eval-hook\ 298}#
- (lambda (#{x\ 2613}# #{mod\ 2614}#)
- (primitive-eval #{x\ 2613}#)))
- (#{top-level-eval-hook\ 296}#
- (lambda (#{x\ 2617}# #{mod\ 2618}#)
- (primitive-eval #{x\ 2617}#)))
- (#{set-lambda-meta!\ 286}#
- (lambda (#{x\ 2621}# #{v\ 2622}#)
- (struct-set! #{x\ 2621}# 1 #{v\ 2622}#)))
- (#{lambda-meta\ 284}#
- (lambda (#{x\ 2625}#) (struct-ref #{x\ 2625}# 1)))
- (#{lambda?\ 282}#
- (lambda (#{x\ 2627}#)
- (if (struct? #{x\ 2627}#)
- (eq? (struct-vtable #{x\ 2627}#)
- (vector-ref %expanded-vtables 13))
- #f)))
- (#{make-dynlet\ 279}#
- (lambda (#{src\ 2631}#
- #{fluids\ 2632}#
- #{vals\ 2633}#
- #{body\ 2634}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 17)
- #{src\ 2631}#
- #{fluids\ 2632}#
- #{vals\ 2633}#
- #{body\ 2634}#)))
- (#{make-letrec\ 277}#
- (lambda (#{src\ 2639}#
- #{in-order?\ 2640}#
- #{names\ 2641}#
- #{gensyms\ 2642}#
- #{vals\ 2643}#
- #{body\ 2644}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 16)
- #{src\ 2639}#
- #{in-order?\ 2640}#
- #{names\ 2641}#
- #{gensyms\ 2642}#
- #{vals\ 2643}#
- #{body\ 2644}#)))
- (#{make-let\ 275}#
- (lambda (#{src\ 2651}#
- #{names\ 2652}#
- #{gensyms\ 2653}#
- #{vals\ 2654}#
- #{body\ 2655}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 15)
- #{src\ 2651}#
- #{names\ 2652}#
- #{gensyms\ 2653}#
- #{vals\ 2654}#
- #{body\ 2655}#)))
- (#{make-lambda-case\ 273}#
- (lambda (#{src\ 2661}#
- #{req\ 2662}#
- #{opt\ 2663}#
- #{rest\ 2664}#
- #{kw\ 2665}#
- #{inits\ 2666}#
- #{gensyms\ 2667}#
- #{body\ 2668}#
- #{alternate\ 2669}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #{src\ 2661}#
- #{req\ 2662}#
- #{opt\ 2663}#
- #{rest\ 2664}#
- #{kw\ 2665}#
- #{inits\ 2666}#
- #{gensyms\ 2667}#
- #{body\ 2668}#
- #{alternate\ 2669}#)))
- (#{make-lambda\ 271}#
- (lambda (#{src\ 2679}# #{meta\ 2680}# #{body\ 2681}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{src\ 2679}#
- #{meta\ 2680}#
- #{body\ 2681}#)))
- (#{make-sequence\ 269}#
- (lambda (#{src\ 2685}# #{exps\ 2686}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 12)
- #{src\ 2685}#
- #{exps\ 2686}#)))
- (#{make-application\ 267}#
- (lambda (#{src\ 2689}# #{proc\ 2690}# #{args\ 2691}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #{src\ 2689}#
- #{proc\ 2690}#
- #{args\ 2691}#)))
- (#{make-conditional\ 265}#
- (lambda (#{src\ 2695}#
- #{test\ 2696}#
- #{consequent\ 2697}#
- #{alternate\ 2698}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #{src\ 2695}#
- #{test\ 2696}#
- #{consequent\ 2697}#
- #{alternate\ 2698}#)))
- (#{make-toplevel-define\ 263}#
- (lambda (#{src\ 2703}# #{name\ 2704}# #{exp\ 2705}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 9)
- #{src\ 2703}#
- #{name\ 2704}#
- #{exp\ 2705}#)))
- (#{make-toplevel-set\ 261}#
- (lambda (#{src\ 2709}# #{name\ 2710}# #{exp\ 2711}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 8)
- #{src\ 2709}#
- #{name\ 2710}#
- #{exp\ 2711}#)))
- (#{make-toplevel-ref\ 259}#
- (lambda (#{src\ 2715}# #{name\ 2716}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #{src\ 2715}#
- #{name\ 2716}#)))
- (#{make-module-set\ 257}#
- (lambda (#{src\ 2719}#
- #{mod\ 2720}#
- #{name\ 2721}#
- #{public?\ 2722}#
- #{exp\ 2723}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 6)
- #{src\ 2719}#
- #{mod\ 2720}#
- #{name\ 2721}#
- #{public?\ 2722}#
- #{exp\ 2723}#)))
- (#{make-module-ref\ 255}#
- (lambda (#{src\ 2729}#
- #{mod\ 2730}#
- #{name\ 2731}#
- #{public?\ 2732}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #{src\ 2729}#
- #{mod\ 2730}#
- #{name\ 2731}#
- #{public?\ 2732}#)))
- (#{make-lexical-set\ 253}#
- (lambda (#{src\ 2737}#
- #{name\ 2738}#
- #{gensym\ 2739}#
- #{exp\ 2740}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 4)
- #{src\ 2737}#
- #{name\ 2738}#
- #{gensym\ 2739}#
- #{exp\ 2740}#)))
- (#{make-lexical-ref\ 251}#
- (lambda (#{src\ 2745}# #{name\ 2746}# #{gensym\ 2747}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #{src\ 2745}#
- #{name\ 2746}#
- #{gensym\ 2747}#)))
- (#{make-const\ 247}#
- (lambda (#{src\ 2755}# #{exp\ 2756}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{src\ 2755}#
- #{exp\ 2756}#)))
- (#{make-void\ 245}#
- (lambda (#{src\ 2759}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{src\ 2759}#))))
- (begin
- (set! #{ribcage?\ 410}#
- (lambda (#{x\ 2286}#)
- (if (vector? #{x\ 2286}#)
- (if (= (vector-length #{x\ 2286}#) 4)
- (eq? (vector-ref #{x\ 2286}# 0) (quote ribcage))
- #f)
- #f)))
- (set! #{wrap-subst\ 396}# cdr)
- (set! #{wrap-marks\ 394}# car)
- (set! #{make-wrap\ 392}# cons)
- (set! #{binding-value\ 372}# cdr)
- (set! #{binding-type\ 370}# car)
- (set! #{set-syntax-object-module!\ 363}#
- (lambda (#{x\ 2365}# #{update\ 2366}#)
- (vector-set! #{x\ 2365}# 3 #{update\ 2366}#)))
- (set! #{set-syntax-object-wrap!\ 361}#
- (lambda (#{x\ 2369}# #{update\ 2370}#)
- (vector-set! #{x\ 2369}# 2 #{update\ 2370}#)))
- (set! #{set-syntax-object-expression!\ 359}#
- (lambda (#{x\ 2373}# #{update\ 2374}#)
- (vector-set! #{x\ 2373}# 1 #{update\ 2374}#)))
- (set! #{fx<\ 294}# <)
- (set! #{fx=\ 292}# =)
- (set! #{fx-\ 290}# -)
- (set! #{fx+\ 288}# +)
- (set! #{make-primitive-ref\ 249}#
- (lambda (#{src\ 2751}# #{name\ 2752}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 2)
- #{src\ 2751}#
- #{name\ 2752}#)))
- (begin
- (#{global-extend\ 383}#
- 'local-syntax
- 'letrec-syntax
- #t)
- (#{global-extend\ 383}#
- 'local-syntax
- 'let-syntax
- #f)
- (#{global-extend\ 383}#
- 'core
- 'fluid-let-syntax
- (lambda (#{e\ 2761}#
- #{r\ 2762}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#)
- (let ((#{tmp\ 2771}# #{e\ 2761}#))
- (let ((#{tmp\ 2772}#
- ($sc-dispatch
- #{tmp\ 2771}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2772}#
- (@apply
- (lambda (#{_\ 2778}#
- #{var\ 2779}#
- #{val\ 2780}#
- #{e1\ 2781}#
- #{e2\ 2782}#)
- (#{valid-bound-ids?\ 450}# #{var\ 2779}#))
- #{tmp\ 2772}#)
- #f)
- (@apply
- (lambda (#{_\ 2789}#
- #{var\ 2790}#
- #{val\ 2791}#
- #{e1\ 2792}#
- #{e2\ 2793}#)
- (begin
- (let ((#{names\ 2795}#
- (map (lambda (#{x\ 2796}#)
- (#{id-var-name\ 444}#
- #{x\ 2796}#
- #{w\ 2763}#))
- #{var\ 2790}#)))
- (begin
- (for-each
- (lambda (#{id\ 2799}# #{n\ 2800}#)
- (begin
- (let ((#{atom-key\ 2805}#
- (#{binding-type\ 370}#
- (#{lookup\ 381}#
- #{n\ 2800}#
- #{r\ 2762}#
- #{mod\ 2765}#))))
- (if (eqv? #{atom-key\ 2805}#
- 'displaced-lexical)
- (syntax-violation
- 'fluid-let-syntax
- "identifier out of context"
- #{e\ 2761}#
- (#{source-wrap\ 458}#
- #{id\ 2799}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#))))))
- #{var\ 2790}#
- #{names\ 2795}#)
- (#{chi-body\ 480}#
- (cons #{e1\ 2792}# #{e2\ 2793}#)
- (#{source-wrap\ 458}#
- #{e\ 2761}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#)
- (#{extend-env\ 375}#
- #{names\ 2795}#
- (begin
- (let ((#{trans-r\ 2810}#
- (#{macros-only-env\ 379}#
- #{r\ 2762}#)))
- (map (lambda (#{x\ 2811}#)
- (cons 'macro
- (#{eval-local-transformer\ 484}#
- (#{chi\ 472}#
- #{x\ 2811}#
- #{trans-r\ 2810}#
- #{w\ 2763}#
- #{mod\ 2765}#)
- #{mod\ 2765}#)))
- #{val\ 2791}#)))
- #{r\ 2762}#)
- #{w\ 2763}#
- #{mod\ 2765}#)))))
- #{tmp\ 2772}#)
- (let ((#{_\ 2816}# #{tmp\ 2771}#))
- (syntax-violation
- 'fluid-let-syntax
- "bad syntax"
- (#{source-wrap\ 458}#
- #{e\ 2761}#
- #{w\ 2763}#
- #{s\ 2764}#
- #{mod\ 2765}#))))))))
- (#{global-extend\ 383}#
- 'core
- 'quote
- (lambda (#{e\ 2817}#
- #{r\ 2818}#
- #{w\ 2819}#
- #{s\ 2820}#
- #{mod\ 2821}#)
- (let ((#{tmp\ 2827}# #{e\ 2817}#))
- (let ((#{tmp\ 2828}#
- ($sc-dispatch #{tmp\ 2827}# (quote (any any)))))
- (if #{tmp\ 2828}#
- (@apply
- (lambda (#{_\ 2831}# #{e\ 2832}#)
- (#{build-data\ 337}#
- #{s\ 2820}#
- (#{strip\ 498}# #{e\ 2832}# #{w\ 2819}#)))
- #{tmp\ 2828}#)
- (let ((#{_\ 2834}# #{tmp\ 2827}#))
- (syntax-violation
- 'quote
- "bad syntax"
- (#{source-wrap\ 458}#
- #{e\ 2817}#
- #{w\ 2819}#
- #{s\ 2820}#
- #{mod\ 2821}#))))))))
- (#{global-extend\ 383}#
- 'core
- 'syntax
- (letrec*
- ((#{regen\ 2850}#
- (lambda (#{x\ 2851}#)
- (begin
- (let ((#{atom-key\ 2855}# (car #{x\ 2851}#)))
- (if (eqv? #{atom-key\ 2855}# (quote ref))
- (#{build-lexical-reference\ 315}#
- 'value
- #f
- (car (cdr #{x\ 2851}#))
- (car (cdr #{x\ 2851}#)))
- (if (eqv? #{atom-key\ 2855}# (quote primitive))
- (#{build-primref\ 335}#
- #f
- (car (cdr #{x\ 2851}#)))
- (if (eqv? #{atom-key\ 2855}# (quote quote))
- (#{build-data\ 337}# #f (car (cdr #{x\ 2851}#)))
- (if (eqv? #{atom-key\ 2855}# (quote lambda))
- (if (list? (car (cdr #{x\ 2851}#)))
- (#{build-simple-lambda\ 329}#
- #f
- (car (cdr #{x\ 2851}#))
- #f
- (car (cdr #{x\ 2851}#))
- '()
- (#{regen\ 2850}#
- (car (cdr (cdr #{x\ 2851}#)))))
- (error "how did we get here" #{x\ 2851}#))
- (#{build-application\ 309}#
- #f
- (#{build-primref\ 335}#
- #f
- (car #{x\ 2851}#))
- (map #{regen\ 2850}#
- (cdr #{x\ 2851}#)))))))))))
- (#{gen-vector\ 2848}#
- (lambda (#{x\ 2867}#)
- (if (eq? (car #{x\ 2867}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2867}#))
- (if (eq? (car #{x\ 2867}#) (quote quote))
- (list 'quote
- (list->vector (car (cdr #{x\ 2867}#))))
- (list (quote list->vector) #{x\ 2867}#)))))
- (#{gen-append\ 2846}#
- (lambda (#{x\ 2877}# #{y\ 2878}#)
- (if (equal? #{y\ 2878}# (quote (quote ())))
- #{x\ 2877}#
- (list (quote append) #{x\ 2877}# #{y\ 2878}#))))
- (#{gen-cons\ 2844}#
- (lambda (#{x\ 2882}# #{y\ 2883}#)
- (begin
- (let ((#{atom-key\ 2888}# (car #{y\ 2883}#)))
- (if (eqv? #{atom-key\ 2888}# (quote quote))
- (if (eq? (car #{x\ 2882}#) (quote quote))
- (list 'quote
- (cons (car (cdr #{x\ 2882}#))
- (car (cdr #{y\ 2883}#))))
- (if (eq? (car (cdr #{y\ 2883}#)) (quote ()))
- (list (quote list) #{x\ 2882}#)
- (list (quote cons) #{x\ 2882}# #{y\ 2883}#)))
- (if (eqv? #{atom-key\ 2888}# (quote list))
- (cons 'list
- (cons #{x\ 2882}# (cdr #{y\ 2883}#)))
- (list (quote cons) #{x\ 2882}# #{y\ 2883}#)))))))
- (#{gen-map\ 2842}#
- (lambda (#{e\ 2897}# #{map-env\ 2898}#)
- (begin
- (let ((#{formals\ 2903}# (map cdr #{map-env\ 2898}#))
- (#{actuals\ 2904}#
- (map (lambda (#{x\ 2905}#)
- (list (quote ref) (car #{x\ 2905}#)))
- #{map-env\ 2898}#)))
- (if (eq? (car #{e\ 2897}#) (quote ref))
- (car #{actuals\ 2904}#)
- (if (and-map
- (lambda (#{x\ 2912}#)
- (if (eq? (car #{x\ 2912}#) (quote ref))
- (memq (car (cdr #{x\ 2912}#))
- #{formals\ 2903}#)
- #f))
- (cdr #{e\ 2897}#))
- (cons 'map
- (cons (list 'primitive
- (car #{e\ 2897}#))
- (map (begin
- (let ((#{r\ 2918}#
- (map cons
- #{formals\ 2903}#
- #{actuals\ 2904}#)))
- (lambda (#{x\ 2919}#)
- (cdr (assq (car (cdr #{x\ 2919}#))
- #{r\ 2918}#)))))
- (cdr #{e\ 2897}#))))
- (cons 'map
- (cons (list 'lambda
- #{formals\ 2903}#
- #{e\ 2897}#)
- #{actuals\ 2904}#))))))))
- (#{gen-mappend\ 2840}#
- (lambda (#{e\ 2923}# #{map-env\ 2924}#)
- (list 'apply
- '(primitive append)
- (#{gen-map\ 2842}# #{e\ 2923}# #{map-env\ 2924}#))))
- (#{gen-ref\ 2838}#
- (lambda (#{src\ 2928}#
- #{var\ 2929}#
- #{level\ 2930}#
- #{maps\ 2931}#)
- (if (#{fx=\ 292}# #{level\ 2930}# 0)
- (values #{var\ 2929}# #{maps\ 2931}#)
- (if (null? #{maps\ 2931}#)
- (syntax-violation
- 'syntax
- "missing ellipsis"
- #{src\ 2928}#)
- (call-with-values
- (lambda ()
- (#{gen-ref\ 2838}#
- #{src\ 2928}#
- #{var\ 2929}#
- (#{fx-\ 290}# #{level\ 2930}# 1)
- (cdr #{maps\ 2931}#)))
- (lambda (#{outer-var\ 2936}# #{outer-maps\ 2937}#)
- (begin
- (let ((#{b\ 2941}#
- (assq #{outer-var\ 2936}#
- (car #{maps\ 2931}#))))
- (if #{b\ 2941}#
- (values (cdr #{b\ 2941}#) #{maps\ 2931}#)
- (begin
- (let ((#{inner-var\ 2943}#
- (#{gen-var\ 500}# (quote tmp))))
- (values
- #{inner-var\ 2943}#
- (cons (cons (cons #{outer-var\ 2936}#
- #{inner-var\ 2943}#)
- (car #{maps\ 2931}#))
- #{outer-maps\ 2937}#)))))))))))))
- (#{gen-syntax\ 2836}#
- (lambda (#{src\ 2944}#
- #{e\ 2945}#
- #{r\ 2946}#
- #{maps\ 2947}#
- #{ellipsis?\ 2948}#
- #{mod\ 2949}#)
- (if (#{id?\ 387}# #{e\ 2945}#)
- (begin
- (let ((#{label\ 2957}#
- (#{id-var-name\ 444}#
- #{e\ 2945}#
- '(()))))
- (begin
- (let ((#{b\ 2960}#
- (#{lookup\ 381}#
- #{label\ 2957}#
- #{r\ 2946}#
- #{mod\ 2949}#)))
- (if (eq? (#{binding-type\ 370}# #{b\ 2960}#)
- 'syntax)
- (call-with-values
- (lambda ()
- (begin
- (let ((#{var.lev\ 2962}#
- (#{binding-value\ 372}#
- #{b\ 2960}#)))
- (#{gen-ref\ 2838}#
- #{src\ 2944}#
- (car #{var.lev\ 2962}#)
- (cdr #{var.lev\ 2962}#)
- #{maps\ 2947}#))))
- (lambda (#{var\ 2963}# #{maps\ 2964}#)
- (values
- (list (quote ref) #{var\ 2963}#)
- #{maps\ 2964}#)))
- (if (#{ellipsis?\ 2948}# #{e\ 2945}#)
- (syntax-violation
- 'syntax
- "misplaced ellipsis"
- #{src\ 2944}#)
- (values
- (list (quote quote) #{e\ 2945}#)
- #{maps\ 2947}#)))))))
- (let ((#{tmp\ 2969}# #{e\ 2945}#))
- (let ((#{tmp\ 2970}#
- ($sc-dispatch
- #{tmp\ 2969}#
- '(any any))))
- (if (if #{tmp\ 2970}#
- (@apply
- (lambda (#{dots\ 2973}# #{e\ 2974}#)
- (#{ellipsis?\ 2948}# #{dots\ 2973}#))
- #{tmp\ 2970}#)
- #f)
- (@apply
- (lambda (#{dots\ 2977}# #{e\ 2978}#)
- (#{gen-syntax\ 2836}#
- #{src\ 2944}#
- #{e\ 2978}#
- #{r\ 2946}#
- #{maps\ 2947}#
- (lambda (#{x\ 2979}#) #f)
- #{mod\ 2949}#))
- #{tmp\ 2970}#)
- (let ((#{tmp\ 2981}#
- ($sc-dispatch
- #{tmp\ 2969}#
- '(any any . any))))
- (if (if #{tmp\ 2981}#
- (@apply
- (lambda (#{x\ 2985}#
- #{dots\ 2986}#
- #{y\ 2987}#)
- (#{ellipsis?\ 2948}# #{dots\ 2986}#))
- #{tmp\ 2981}#)
- #f)
- (@apply
- (lambda (#{x\ 2991}#
- #{dots\ 2992}#
- #{y\ 2993}#)
- (letrec*
- ((#{f\ 2997}#
- (lambda (#{y\ 2998}# #{k\ 2999}#)
- (let ((#{tmp\ 3006}# #{y\ 2998}#))
- (let ((#{tmp\ 3007}#
- ($sc-dispatch
- #{tmp\ 3006}#
- '(any . any))))
- (if (if #{tmp\ 3007}#
- (@apply
- (lambda (#{dots\ 3010}#
- #{y\ 3011}#)
- (#{ellipsis?\ 2948}#
- #{dots\ 3010}#))
- #{tmp\ 3007}#)
- #f)
- (@apply
- (lambda (#{dots\ 3014}#
- #{y\ 3015}#)
- (#{f\ 2997}#
- #{y\ 3015}#
- (lambda (#{maps\ 3016}#)
- (call-with-values
- (lambda ()
- (#{k\ 2999}#
- (cons '()
- #{maps\ 3016}#)))
- (lambda (#{x\ 3018}#
- #{maps\ 3019}#)
- (if (null? (car #{maps\ 3019}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src\ 2944}#)
- (values
- (#{gen-mappend\ 2840}#
- #{x\ 3018}#
- (car #{maps\ 3019}#))
- (cdr #{maps\ 3019}#))))))))
- #{tmp\ 3007}#)
- (let ((#{_\ 3023}#
- #{tmp\ 3006}#))
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2944}#
- #{y\ 2998}#
- #{r\ 2946}#
- #{maps\ 2947}#
- #{ellipsis?\ 2948}#
- #{mod\ 2949}#))
- (lambda (#{y\ 3024}#
- #{maps\ 3025}#)
- (call-with-values
- (lambda ()
- (#{k\ 2999}#
- #{maps\ 3025}#))
- (lambda (#{x\ 3028}#
- #{maps\ 3029}#)
- (values
- (#{gen-append\ 2846}#
- #{x\ 3028}#
- #{y\ 3024}#)
- #{maps\ 3029}#))))))))))))
- (begin
- (#{f\ 2997}#
- #{y\ 2993}#
- (lambda (#{maps\ 3000}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2944}#
- #{x\ 2991}#
- #{r\ 2946}#
- (cons '()
- #{maps\ 3000}#)
- #{ellipsis?\ 2948}#
- #{mod\ 2949}#))
- (lambda (#{x\ 3002}#
- #{maps\ 3003}#)
- (if (null? (car #{maps\ 3003}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src\ 2944}#)
- (values
- (#{gen-map\ 2842}#
- #{x\ 3002}#
- (car #{maps\ 3003}#))
- (cdr #{maps\ 3003}#))))))))))
- #{tmp\ 2981}#)
- (let ((#{tmp\ 3032}#
- ($sc-dispatch
- #{tmp\ 2969}#
- '(any . any))))
- (if #{tmp\ 3032}#
- (@apply
- (lambda (#{x\ 3035}# #{y\ 3036}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2944}#
- #{x\ 3035}#
- #{r\ 2946}#
- #{maps\ 2947}#
- #{ellipsis?\ 2948}#
- #{mod\ 2949}#))
- (lambda (#{x\ 3037}# #{maps\ 3038}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2944}#
- #{y\ 3036}#
- #{r\ 2946}#
- #{maps\ 3038}#
- #{ellipsis?\ 2948}#
- #{mod\ 2949}#))
- (lambda (#{y\ 3041}#
- #{maps\ 3042}#)
- (values
- (#{gen-cons\ 2844}#
- #{x\ 3037}#
- #{y\ 3041}#)
- #{maps\ 3042}#))))))
- #{tmp\ 3032}#)
- (let ((#{tmp\ 3045}#
- ($sc-dispatch
- #{tmp\ 2969}#
- '#(vector (any . each-any)))))
- (if #{tmp\ 3045}#
- (@apply
- (lambda (#{e1\ 3048}# #{e2\ 3049}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2836}#
- #{src\ 2944}#
- (cons #{e1\ 3048}#
- #{e2\ 3049}#)
- #{r\ 2946}#
- #{maps\ 2947}#
- #{ellipsis?\ 2948}#
- #{mod\ 2949}#))
- (lambda (#{e\ 3051}#
- #{maps\ 3052}#)
- (values
- (#{gen-vector\ 2848}#
- #{e\ 3051}#)
- #{maps\ 3052}#))))
- #{tmp\ 3045}#)
- (let ((#{_\ 3056}# #{tmp\ 2969}#))
- (values
- (list (quote quote) #{e\ 2945}#)
- #{maps\ 2947}#)))))))))))))))
- (begin
- (lambda (#{e\ 3058}#
- #{r\ 3059}#
- #{w\ 3060}#
- #{s\ 3061}#
- #{mod\ 3062}#)
- (begin
- (let ((#{e\ 3069}#
- (#{source-wrap\ 458}#
- #{e\ 3058}#
- #{w\ 3060}#
- #{s\ 3061}#
- #{mod\ 3062}#)))
- (let ((#{tmp\ 3070}# #{e\ 3069}#))
- (let ((#{tmp\ 3071}#
- ($sc-dispatch
- #{tmp\ 3070}#
- '(any any))))
- (if #{tmp\ 3071}#
- (@apply
- (lambda (#{_\ 3074}# #{x\ 3075}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2836}#
- #{e\ 3069}#
- #{x\ 3075}#
- #{r\ 3059}#
- '()
- #{ellipsis?\ 488}#
- #{mod\ 3062}#))
- (lambda (#{e\ 3076}# #{maps\ 3077}#)
- (#{regen\ 2850}# #{e\ 3076}#))))
- #{tmp\ 3071}#)
- (let ((#{_\ 3081}# #{tmp\ 3070}#))
- (syntax-violation
- 'syntax
- "bad `syntax' form"
- #{e\ 3069}#)))))))))))
- (#{global-extend\ 383}#
- 'core
- 'lambda
- (lambda (#{e\ 3082}#
- #{r\ 3083}#
- #{w\ 3084}#
- #{s\ 3085}#
- #{mod\ 3086}#)
- (let ((#{tmp\ 3092}# #{e\ 3082}#))
- (let ((#{tmp\ 3093}#
- ($sc-dispatch
- #{tmp\ 3092}#
- '(any any any . each-any))))
- (if #{tmp\ 3093}#
- (@apply
- (lambda (#{_\ 3098}#
- #{args\ 3099}#
- #{e1\ 3100}#
- #{e2\ 3101}#)
- (call-with-values
- (lambda ()
- (#{lambda-formals\ 490}# #{args\ 3099}#))
- (lambda (#{req\ 3102}#
- #{opt\ 3103}#
- #{rest\ 3104}#
- #{kw\ 3105}#)
- (letrec*
- ((#{lp\ 3113}#
- (lambda (#{body\ 3114}# #{meta\ 3115}#)
- (let ((#{tmp\ 3117}# #{body\ 3114}#))
- (let ((#{tmp\ 3118}#
- ($sc-dispatch
- #{tmp\ 3117}#
- '(any any . each-any))))
- (if (if #{tmp\ 3118}#
- (@apply
- (lambda (#{docstring\ 3122}#
- #{e1\ 3123}#
- #{e2\ 3124}#)
- (string?
- (syntax->datum
- #{docstring\ 3122}#)))
- #{tmp\ 3118}#)
- #f)
- (@apply
- (lambda (#{docstring\ 3128}#
- #{e1\ 3129}#
- #{e2\ 3130}#)
- (#{lp\ 3113}#
- (cons #{e1\ 3129}#
- #{e2\ 3130}#)
- (append
- #{meta\ 3115}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring\ 3128}#))))))
- #{tmp\ 3118}#)
- (let ((#{tmp\ 3133}#
- ($sc-dispatch
- #{tmp\ 3117}#
- '(#(vector
- #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp\ 3133}#
- (@apply
- (lambda (#{k\ 3138}#
- #{v\ 3139}#
- #{e1\ 3140}#
- #{e2\ 3141}#)
- (#{lp\ 3113}#
- (cons #{e1\ 3140}#
- #{e2\ 3141}#)
- (append
- #{meta\ 3115}#
- (syntax->datum
- (map cons
- #{k\ 3138}#
- #{v\ 3139}#)))))
- #{tmp\ 3133}#)
- (let ((#{_\ 3146}#
- #{tmp\ 3117}#))
- (#{chi-simple-lambda\ 492}#
- #{e\ 3082}#
- #{r\ 3083}#
- #{w\ 3084}#
- #{s\ 3085}#
- #{mod\ 3086}#
- #{req\ 3102}#
- #{rest\ 3104}#
- #{meta\ 3115}#
- #{body\ 3114}#))))))))))
- (begin
- (#{lp\ 3113}#
- (cons #{e1\ 3100}# #{e2\ 3101}#)
- '()))))))
- #{tmp\ 3093}#)
- (let ((#{_\ 3148}# #{tmp\ 3092}#))
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e\ 3082}#)))))))
- (#{global-extend\ 383}#
- 'core
- 'lambda*
- (lambda (#{e\ 3149}#
- #{r\ 3150}#
- #{w\ 3151}#
- #{s\ 3152}#
- #{mod\ 3153}#)
- (let ((#{tmp\ 3159}# #{e\ 3149}#))
- (let ((#{tmp\ 3160}#
- ($sc-dispatch
- #{tmp\ 3159}#
- '(any any any . each-any))))
- (if #{tmp\ 3160}#
- (@apply
- (lambda (#{_\ 3165}#
- #{args\ 3166}#
- #{e1\ 3167}#
- #{e2\ 3168}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 3149}#
- #{r\ 3150}#
- #{w\ 3151}#
- #{s\ 3152}#
- #{mod\ 3153}#
- #{lambda*-formals\ 494}#
- (list (cons #{args\ 3166}#
- (cons #{e1\ 3167}#
- #{e2\ 3168}#)))))
- (lambda (#{meta\ 3170}# #{lcase\ 3171}#)
- (#{build-case-lambda\ 331}#
- #{s\ 3152}#
- #{meta\ 3170}#
- #{lcase\ 3171}#))))
- #{tmp\ 3160}#)
- (let ((#{_\ 3175}# #{tmp\ 3159}#))
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e\ 3149}#)))))))
- (#{global-extend\ 383}#
- 'core
- 'case-lambda
- (lambda (#{e\ 3176}#
- #{r\ 3177}#
- #{w\ 3178}#
- #{s\ 3179}#
- #{mod\ 3180}#)
- (let ((#{tmp\ 3186}# #{e\ 3176}#))
- (let ((#{tmp\ 3187}#
- ($sc-dispatch
- #{tmp\ 3186}#
- '(any (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 3187}#
- (@apply
- (lambda (#{_\ 3195}#
- #{args\ 3196}#
- #{e1\ 3197}#
- #{e2\ 3198}#
- #{args*\ 3199}#
- #{e1*\ 3200}#
- #{e2*\ 3201}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 3176}#
- #{r\ 3177}#
- #{w\ 3178}#
- #{s\ 3179}#
- #{mod\ 3180}#
- #{lambda-formals\ 490}#
- (cons (cons #{args\ 3196}#
- (cons #{e1\ 3197}# #{e2\ 3198}#))
- (map (lambda (#{tmp\ 3205}#
- #{tmp\ 3204}#
- #{tmp\ 3203}#)
- (cons #{tmp\ 3203}#
- (cons #{tmp\ 3204}#
- #{tmp\ 3205}#)))
- #{e2*\ 3201}#
- #{e1*\ 3200}#
- #{args*\ 3199}#))))
- (lambda (#{meta\ 3207}# #{lcase\ 3208}#)
- (#{build-case-lambda\ 331}#
- #{s\ 3179}#
- #{meta\ 3207}#
- #{lcase\ 3208}#))))
- #{tmp\ 3187}#)
- (let ((#{_\ 3212}# #{tmp\ 3186}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e\ 3176}#)))))))
- (#{global-extend\ 383}#
- 'core
- 'case-lambda*
- (lambda (#{e\ 3213}#
- #{r\ 3214}#
- #{w\ 3215}#
- #{s\ 3216}#
- #{mod\ 3217}#)
- (let ((#{tmp\ 3223}# #{e\ 3213}#))
- (let ((#{tmp\ 3224}#
- ($sc-dispatch
- #{tmp\ 3223}#
- '(any (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 3224}#
- (@apply
- (lambda (#{_\ 3232}#
- #{args\ 3233}#
- #{e1\ 3234}#
- #{e2\ 3235}#
- #{args*\ 3236}#
- #{e1*\ 3237}#
- #{e2*\ 3238}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case\ 496}#
- #{e\ 3213}#
- #{r\ 3214}#
- #{w\ 3215}#
- #{s\ 3216}#
- #{mod\ 3217}#
- #{lambda*-formals\ 494}#
- (cons (cons #{args\ 3233}#
- (cons #{e1\ 3234}# #{e2\ 3235}#))
- (map (lambda (#{tmp\ 3242}#
- #{tmp\ 3241}#
- #{tmp\ 3240}#)
- (cons #{tmp\ 3240}#
- (cons #{tmp\ 3241}#
- #{tmp\ 3242}#)))
- #{e2*\ 3238}#
- #{e1*\ 3237}#
- #{args*\ 3236}#))))
- (lambda (#{meta\ 3244}# #{lcase\ 3245}#)
- (#{build-case-lambda\ 331}#
- #{s\ 3216}#
- #{meta\ 3244}#
- #{lcase\ 3245}#))))
- #{tmp\ 3224}#)
- (let ((#{_\ 3249}# #{tmp\ 3223}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e\ 3213}#)))))))
- (#{global-extend\ 383}#
- 'core
- 'let
- (letrec*
- ((#{chi-let\ 3251}#
- (lambda (#{e\ 3252}#
- #{r\ 3253}#
- #{w\ 3254}#
- #{s\ 3255}#
- #{mod\ 3256}#
- #{constructor\ 3257}#
- #{ids\ 3258}#
- #{vals\ 3259}#
- #{exps\ 3260}#)
- (if (not (#{valid-bound-ids?\ 450}# #{ids\ 3258}#))
- (syntax-violation
- 'let
- "duplicate bound variable"
- #{e\ 3252}#)
- (begin
- (let ((#{labels\ 3272}#
- (#{gen-labels\ 405}# #{ids\ 3258}#))
- (#{new-vars\ 3273}#
- (map #{gen-var\ 500}# #{ids\ 3258}#)))
- (begin
- (let ((#{nw\ 3276}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 3258}#
- #{labels\ 3272}#
- #{w\ 3254}#))
- (#{nr\ 3277}#
- (#{extend-var-env\ 377}#
- #{labels\ 3272}#
- #{new-vars\ 3273}#
- #{r\ 3253}#)))
- (#{constructor\ 3257}#
- #{s\ 3255}#
- (map syntax->datum #{ids\ 3258}#)
- #{new-vars\ 3273}#
- (map (lambda (#{x\ 3278}#)
- (#{chi\ 472}#
- #{x\ 3278}#
- #{r\ 3253}#
- #{w\ 3254}#
- #{mod\ 3256}#))
- #{vals\ 3259}#)
- (#{chi-body\ 480}#
- #{exps\ 3260}#
- (#{source-wrap\ 458}#
- #{e\ 3252}#
- #{nw\ 3276}#
- #{s\ 3255}#
- #{mod\ 3256}#)
- #{nr\ 3277}#
- #{nw\ 3276}#
- #{mod\ 3256}#))))))))))
- (begin
- (lambda (#{e\ 3280}#
- #{r\ 3281}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#)
- (let ((#{tmp\ 3290}# #{e\ 3280}#))
- (let ((#{tmp\ 3291}#
- ($sc-dispatch
- #{tmp\ 3290}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3291}#
- (@apply
- (lambda (#{_\ 3297}#
- #{id\ 3298}#
- #{val\ 3299}#
- #{e1\ 3300}#
- #{e2\ 3301}#)
- (and-map #{id?\ 387}# #{id\ 3298}#))
- #{tmp\ 3291}#)
- #f)
- (@apply
- (lambda (#{_\ 3308}#
- #{id\ 3309}#
- #{val\ 3310}#
- #{e1\ 3311}#
- #{e2\ 3312}#)
- (#{chi-let\ 3251}#
- #{e\ 3280}#
- #{r\ 3281}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#
- #{build-let\ 341}#
- #{id\ 3309}#
- #{val\ 3310}#
- (cons #{e1\ 3311}# #{e2\ 3312}#)))
- #{tmp\ 3291}#)
- (let ((#{tmp\ 3316}#
- ($sc-dispatch
- #{tmp\ 3290}#
- '(any any
- #(each (any any))
- any
- .
- each-any))))
- (if (if #{tmp\ 3316}#
- (@apply
- (lambda (#{_\ 3323}#
- #{f\ 3324}#
- #{id\ 3325}#
- #{val\ 3326}#
- #{e1\ 3327}#
- #{e2\ 3328}#)
- (if (#{id?\ 387}# #{f\ 3324}#)
- (and-map #{id?\ 387}# #{id\ 3325}#)
- #f))
- #{tmp\ 3316}#)
- #f)
- (@apply
- (lambda (#{_\ 3338}#
- #{f\ 3339}#
- #{id\ 3340}#
- #{val\ 3341}#
- #{e1\ 3342}#
- #{e2\ 3343}#)
- (#{chi-let\ 3251}#
- #{e\ 3280}#
- #{r\ 3281}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#
- #{build-named-let\ 343}#
- (cons #{f\ 3339}# #{id\ 3340}#)
- #{val\ 3341}#
- (cons #{e1\ 3342}# #{e2\ 3343}#)))
- #{tmp\ 3316}#)
- (let ((#{_\ 3348}# #{tmp\ 3290}#))
- (syntax-violation
- 'let
- "bad let"
- (#{source-wrap\ 458}#
- #{e\ 3280}#
- #{w\ 3282}#
- #{s\ 3283}#
- #{mod\ 3284}#))))))))))))
- (#{global-extend\ 383}#
- 'core
- 'letrec
- (lambda (#{e\ 3349}#
- #{r\ 3350}#
- #{w\ 3351}#
- #{s\ 3352}#
- #{mod\ 3353}#)
- (let ((#{tmp\ 3359}# #{e\ 3349}#))
- (let ((#{tmp\ 3360}#
- ($sc-dispatch
- #{tmp\ 3359}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3360}#
- (@apply
- (lambda (#{_\ 3366}#
- #{id\ 3367}#
- #{val\ 3368}#
- #{e1\ 3369}#
- #{e2\ 3370}#)
- (and-map #{id?\ 387}# #{id\ 3367}#))
- #{tmp\ 3360}#)
- #f)
- (@apply
- (lambda (#{_\ 3377}#
- #{id\ 3378}#
- #{val\ 3379}#
- #{e1\ 3380}#
- #{e2\ 3381}#)
- (begin
- (let ((#{ids\ 3383}# #{id\ 3378}#))
- (if (not (#{valid-bound-ids?\ 450}#
- #{ids\ 3383}#))
- (syntax-violation
- 'letrec
- "duplicate bound variable"
- #{e\ 3349}#)
- (begin
- (let ((#{labels\ 3387}#
- (#{gen-labels\ 405}# #{ids\ 3383}#))
- (#{new-vars\ 3388}#
- (map #{gen-var\ 500}#
- #{ids\ 3383}#)))
- (begin
- (let ((#{w\ 3391}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 3383}#
- #{labels\ 3387}#
- #{w\ 3351}#))
- (#{r\ 3392}#
- (#{extend-var-env\ 377}#
- #{labels\ 3387}#
- #{new-vars\ 3388}#
- #{r\ 3350}#)))
- (#{build-letrec\ 345}#
- #{s\ 3352}#
- #f
- (map syntax->datum #{ids\ 3383}#)
- #{new-vars\ 3388}#
- (map (lambda (#{x\ 3393}#)
- (#{chi\ 472}#
- #{x\ 3393}#
- #{r\ 3392}#
- #{w\ 3391}#
- #{mod\ 3353}#))
- #{val\ 3379}#)
- (#{chi-body\ 480}#
- (cons #{e1\ 3380}# #{e2\ 3381}#)
- (#{source-wrap\ 458}#
- #{e\ 3349}#
- #{w\ 3391}#
- #{s\ 3352}#
- #{mod\ 3353}#)
- #{r\ 3392}#
- #{w\ 3391}#
- #{mod\ 3353}#))))))))))
- #{tmp\ 3360}#)
- (let ((#{_\ 3398}# #{tmp\ 3359}#))
- (syntax-violation
- 'letrec
- "bad letrec"
- (#{source-wrap\ 458}#
- #{e\ 3349}#
- #{w\ 3351}#
- #{s\ 3352}#
- #{mod\ 3353}#))))))))
- (#{global-extend\ 383}#
- 'core
- 'letrec*
- (lambda (#{e\ 3399}#
- #{r\ 3400}#
- #{w\ 3401}#
- #{s\ 3402}#
- #{mod\ 3403}#)
- (let ((#{tmp\ 3409}# #{e\ 3399}#))
- (let ((#{tmp\ 3410}#
- ($sc-dispatch
- #{tmp\ 3409}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3410}#
- (@apply
- (lambda (#{_\ 3416}#
- #{id\ 3417}#
- #{val\ 3418}#
- #{e1\ 3419}#
- #{e2\ 3420}#)
- (and-map #{id?\ 387}# #{id\ 3417}#))
- #{tmp\ 3410}#)
- #f)
- (@apply
- (lambda (#{_\ 3427}#
- #{id\ 3428}#
- #{val\ 3429}#
- #{e1\ 3430}#
- #{e2\ 3431}#)
- (begin
- (let ((#{ids\ 3433}# #{id\ 3428}#))
- (if (not (#{valid-bound-ids?\ 450}#
- #{ids\ 3433}#))
- (syntax-violation
- 'letrec*
- "duplicate bound variable"
- #{e\ 3399}#)
- (begin
- (let ((#{labels\ 3437}#
- (#{gen-labels\ 405}# #{ids\ 3433}#))
- (#{new-vars\ 3438}#
- (map #{gen-var\ 500}#
- #{ids\ 3433}#)))
- (begin
- (let ((#{w\ 3441}#
- (#{make-binding-wrap\ 434}#
- #{ids\ 3433}#
- #{labels\ 3437}#
- #{w\ 3401}#))
- (#{r\ 3442}#
- (#{extend-var-env\ 377}#
- #{labels\ 3437}#
- #{new-vars\ 3438}#
- #{r\ 3400}#)))
- (#{build-letrec\ 345}#
- #{s\ 3402}#
- #t
- (map syntax->datum #{ids\ 3433}#)
- #{new-vars\ 3438}#
- (map (lambda (#{x\ 3443}#)
- (#{chi\ 472}#
- #{x\ 3443}#
- #{r\ 3442}#
- #{w\ 3441}#
- #{mod\ 3403}#))
- #{val\ 3429}#)
- (#{chi-body\ 480}#
- (cons #{e1\ 3430}# #{e2\ 3431}#)
- (#{source-wrap\ 458}#
- #{e\ 3399}#
- #{w\ 3441}#
- #{s\ 3402}#
- #{mod\ 3403}#)
- #{r\ 3442}#
- #{w\ 3441}#
- #{mod\ 3403}#))))))))))
- #{tmp\ 3410}#)
- (let ((#{_\ 3448}# #{tmp\ 3409}#))
- (syntax-violation
- 'letrec*
- "bad letrec*"
- (#{source-wrap\ 458}#
- #{e\ 3399}#
- #{w\ 3401}#
- #{s\ 3402}#
- #{mod\ 3403}#))))))))
- (#{global-extend\ 383}#
- 'core
- 'set!
- (lambda (#{e\ 3449}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{s\ 3452}#
- #{mod\ 3453}#)
- (let ((#{tmp\ 3459}# #{e\ 3449}#))
- (let ((#{tmp\ 3460}#
- ($sc-dispatch
- #{tmp\ 3459}#
- '(any any any))))
- (if (if #{tmp\ 3460}#
- (@apply
- (lambda (#{_\ 3464}# #{id\ 3465}# #{val\ 3466}#)
- (#{id?\ 387}# #{id\ 3465}#))
- #{tmp\ 3460}#)
- #f)
- (@apply
- (lambda (#{_\ 3470}# #{id\ 3471}# #{val\ 3472}#)
- (begin
- (let ((#{val\ 3475}#
- (#{chi\ 472}#
- #{val\ 3472}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#))
- (#{n\ 3476}#
- (#{id-var-name\ 444}#
- #{id\ 3471}#
- #{w\ 3451}#)))
- (begin
- (let ((#{b\ 3478}#
- (#{lookup\ 381}#
- #{n\ 3476}#
- #{r\ 3450}#
- #{mod\ 3453}#)))
- (begin
- (let ((#{atom-key\ 3481}#
- (#{binding-type\ 370}#
- #{b\ 3478}#)))
- (if (eqv? #{atom-key\ 3481}#
- 'lexical)
- (#{build-lexical-assignment\ 317}#
- #{s\ 3452}#
- (syntax->datum #{id\ 3471}#)
- (#{binding-value\ 372}# #{b\ 3478}#)
- #{val\ 3475}#)
- (if (eqv? #{atom-key\ 3481}#
- 'global)
- (#{build-global-assignment\ 323}#
- #{s\ 3452}#
- #{n\ 3476}#
- #{val\ 3475}#
- #{mod\ 3453}#)
- (if (eqv? #{atom-key\ 3481}#
- 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap\ 456}#
- #{id\ 3471}#
- #{w\ 3451}#
- #{mod\ 3453}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap\ 458}#
- #{e\ 3449}#
- #{w\ 3451}#
- #{s\ 3452}#
- #{mod\ 3453}#))))))))))))
- #{tmp\ 3460}#)
- (let ((#{tmp\ 3486}#
- ($sc-dispatch
- #{tmp\ 3459}#
- '(any (any . each-any) any))))
- (if #{tmp\ 3486}#
- (@apply
- (lambda (#{_\ 3491}#
- #{head\ 3492}#
- #{tail\ 3493}#
- #{val\ 3494}#)
- (call-with-values
- (lambda ()
- (#{syntax-type\ 468}#
- #{head\ 3492}#
- #{r\ 3450}#
- '(())
- #f
- #f
- #{mod\ 3453}#
- #t))
- (lambda (#{type\ 3497}#
- #{value\ 3498}#
- #{ee\ 3499}#
- #{ww\ 3500}#
- #{ss\ 3501}#
- #{modmod\ 3502}#)
- (if (eqv? #{type\ 3497}# (quote module-ref))
- (begin
- (let ((#{val\ 3511}#
- (#{chi\ 472}#
- #{val\ 3494}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#)))
- (call-with-values
- (lambda ()
- (#{value\ 3498}#
- (cons #{head\ 3492}#
- #{tail\ 3493}#)
- #{r\ 3450}#
- #{w\ 3451}#))
- (lambda (#{e\ 3513}#
- #{r\ 3514}#
- #{w\ 3515}#
- #{s*\ 3516}#
- #{mod\ 3517}#)
- (let ((#{tmp\ 3523}# #{e\ 3513}#))
- (let ((#{tmp\ 3524}#
- (list #{tmp\ 3523}#)))
- (if (if #{tmp\ 3524}#
- (@apply
- (lambda (#{e\ 3526}#)
- (#{id?\ 387}#
- #{e\ 3526}#))
- #{tmp\ 3524}#)
- #f)
- (@apply
- (lambda (#{e\ 3528}#)
- (#{build-global-assignment\ 323}#
- #{s\ 3452}#
- (syntax->datum
- #{e\ 3528}#)
- #{val\ 3511}#
- #{mod\ 3517}#))
- #{tmp\ 3524}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3523}#))))))))
- (#{build-application\ 309}#
- #{s\ 3452}#
- (#{chi\ 472}#
- (list '#(syntax-object
- setter
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(type
- value
- ee
- ww
- ss
- modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3503"
- "i3504"
- "i3505"
- "i3506"
- "i3507"
- "i3508"))
- #(ribcage
- #(_ head tail val)
- #((top) (top) (top) (top))
- #("i3487"
- "i3488"
- "i3489"
- "i3490"))
- #(ribcage () () ())
- #(ribcage
- #(e r w s mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3454"
- "i3455"
- "i3456"
- "i3457"
- "i3458"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile))
- #{head\ 3492}#)
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#)
- (map (lambda (#{e\ 3530}#)
- (#{chi\ 472}#
- #{e\ 3530}#
- #{r\ 3450}#
- #{w\ 3451}#
- #{mod\ 3453}#))
- (append
- #{tail\ 3493}#
- (list #{val\ 3494}#))))))))
- #{tmp\ 3486}#)
- (let ((#{_\ 3534}# #{tmp\ 3459}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap\ 458}#
- #{e\ 3449}#
- #{w\ 3451}#
- #{s\ 3452}#
- #{mod\ 3453}#))))))))))
- (#{global-extend\ 383}#
- 'module-ref
- '@
- (lambda (#{e\ 3535}# #{r\ 3536}# #{w\ 3537}#)
- (let ((#{tmp\ 3541}# #{e\ 3535}#))
- (let ((#{tmp\ 3542}#
- ($sc-dispatch
- #{tmp\ 3541}#
- '(any each-any any))))
- (if (if #{tmp\ 3542}#
- (@apply
- (lambda (#{_\ 3546}# #{mod\ 3547}# #{id\ 3548}#)
- (if (and-map #{id?\ 387}# #{mod\ 3547}#)
- (#{id?\ 387}# #{id\ 3548}#)
- #f))
- #{tmp\ 3542}#)
- #f)
- (@apply
- (lambda (#{_\ 3555}# #{mod\ 3556}# #{id\ 3557}#)
- (values
- (syntax->datum #{id\ 3557}#)
- #{r\ 3536}#
- #{w\ 3537}#
- #f
- (syntax->datum
- (cons '#(syntax-object
- public
- ((top)
- #(ribcage
- #(_ mod id)
- #((top) (top) (top))
- #("i3552" "i3553" "i3554"))
- #(ribcage () () ())
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3538" "i3539" "i3540"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38" "i37" "i36" "i34")))
- (hygiene guile))
- #{mod\ 3556}#))))
- #{tmp\ 3542}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3541}#))))))
- (#{global-extend\ 383}#
- 'module-ref
- '@@
- (lambda (#{e\ 3559}# #{r\ 3560}# #{w\ 3561}#)
- (letrec*
- ((#{remodulate\ 3566}#
- (lambda (#{x\ 3567}# #{mod\ 3568}#)
- (if (pair? #{x\ 3567}#)
- (cons (#{remodulate\ 3566}#
- (car #{x\ 3567}#)
- #{mod\ 3568}#)
- (#{remodulate\ 3566}#
- (cdr #{x\ 3567}#)
- #{mod\ 3568}#))
- (if (#{syntax-object?\ 351}# #{x\ 3567}#)
- (#{make-syntax-object\ 349}#
- (#{remodulate\ 3566}#
- (#{syntax-object-expression\ 353}# #{x\ 3567}#)
- #{mod\ 3568}#)
- (#{syntax-object-wrap\ 355}# #{x\ 3567}#)
- #{mod\ 3568}#)
- (if (vector? #{x\ 3567}#)
- (begin
- (let ((#{n\ 3579}# (vector-length #{x\ 3567}#)))
- (begin
- (let ((#{v\ 3581}#
- (make-vector #{n\ 3579}#)))
- (letrec*
- ((#{loop\ 3584}#
- (lambda (#{i\ 3585}#)
- (if (#{fx=\ 292}#
- #{i\ 3585}#
- #{n\ 3579}#)
- (begin (if #f #f) #{v\ 3581}#)
- (begin
- (vector-set!
- #{v\ 3581}#
- #{i\ 3585}#
- (#{remodulate\ 3566}#
- (vector-ref
- #{x\ 3567}#
- #{i\ 3585}#)
- #{mod\ 3568}#))
- (#{loop\ 3584}#
- (#{fx+\ 288}#
- #{i\ 3585}#
- 1)))))))
- (begin (#{loop\ 3584}# 0)))))))
- #{x\ 3567}#))))))
- (begin
- (let ((#{tmp\ 3589}# #{e\ 3559}#))
- (let ((#{tmp\ 3590}#
- ($sc-dispatch
- #{tmp\ 3589}#
- '(any each-any any))))
- (if (if #{tmp\ 3590}#
- (@apply
- (lambda (#{_\ 3594}#
- #{mod\ 3595}#
- #{exp\ 3596}#)
- (and-map #{id?\ 387}# #{mod\ 3595}#))
- #{tmp\ 3590}#)
- #f)
- (@apply
- (lambda (#{_\ 3601}# #{mod\ 3602}# #{exp\ 3603}#)
- (begin
- (let ((#{mod\ 3605}#
- (syntax->datum
- (cons '#(syntax-object
- private
- ((top)
- #(ribcage
- #(_ mod exp)
- #((top) (top) (top))
- #("i3598"
- "i3599"
- "i3600"))
- #(ribcage
- (remodulate)
- ((top))
- ("i3565"))
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3562"
- "i3563"
- "i3564"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
- (hygiene guile))
- #{mod\ 3602}#))))
- (values
- (#{remodulate\ 3566}#
- #{exp\ 3603}#
- #{mod\ 3605}#)
- #{r\ 3560}#
- #{w\ 3561}#
- (#{source-annotation\ 366}# #{exp\ 3603}#)
- #{mod\ 3605}#))))
- #{tmp\ 3590}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3589}#))))))))
- (#{global-extend\ 383}#
- 'core
- 'if
- (lambda (#{e\ 3607}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{s\ 3610}#
- #{mod\ 3611}#)
- (let ((#{tmp\ 3617}# #{e\ 3607}#))
- (let ((#{tmp\ 3618}#
- ($sc-dispatch
- #{tmp\ 3617}#
- '(any any any))))
- (if #{tmp\ 3618}#
- (@apply
- (lambda (#{_\ 3622}# #{test\ 3623}# #{then\ 3624}#)
- (#{build-conditional\ 311}#
- #{s\ 3610}#
- (#{chi\ 472}#
- #{test\ 3623}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{chi\ 472}#
- #{then\ 3624}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{build-void\ 307}# #f)))
- #{tmp\ 3618}#)
- (let ((#{tmp\ 3626}#
- ($sc-dispatch
- #{tmp\ 3617}#
- '(any any any any))))
- (if #{tmp\ 3626}#
- (@apply
- (lambda (#{_\ 3631}#
- #{test\ 3632}#
- #{then\ 3633}#
- #{else\ 3634}#)
- (#{build-conditional\ 311}#
- #{s\ 3610}#
- (#{chi\ 472}#
- #{test\ 3632}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{chi\ 472}#
- #{then\ 3633}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)
- (#{chi\ 472}#
- #{else\ 3634}#
- #{r\ 3608}#
- #{w\ 3609}#
- #{mod\ 3611}#)))
- #{tmp\ 3626}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3617}#))))))))
- (#{global-extend\ 383}#
- 'core
- 'with-fluids
- (lambda (#{e\ 3635}#
- #{r\ 3636}#
- #{w\ 3637}#
- #{s\ 3638}#
- #{mod\ 3639}#)
- (let ((#{tmp\ 3645}# #{e\ 3635}#))
- (let ((#{tmp\ 3646}#
- ($sc-dispatch
- #{tmp\ 3645}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 3646}#
- (@apply
- (lambda (#{_\ 3652}#
- #{fluid\ 3653}#
- #{val\ 3654}#
- #{b\ 3655}#
- #{b*\ 3656}#)
- (#{build-dynlet\ 313}#
- #{s\ 3638}#
- (map (lambda (#{x\ 3657}#)
- (#{chi\ 472}#
- #{x\ 3657}#
- #{r\ 3636}#
- #{w\ 3637}#
- #{mod\ 3639}#))
- #{fluid\ 3653}#)
- (map (lambda (#{x\ 3660}#)
- (#{chi\ 472}#
- #{x\ 3660}#
- #{r\ 3636}#
- #{w\ 3637}#
- #{mod\ 3639}#))
- #{val\ 3654}#)
- (#{chi-body\ 480}#
- (cons #{b\ 3655}# #{b*\ 3656}#)
- (#{source-wrap\ 458}#
- #{e\ 3635}#
- #{w\ 3637}#
- #{s\ 3638}#
- #{mod\ 3639}#)
- #{r\ 3636}#
- #{w\ 3637}#
- #{mod\ 3639}#)))
- #{tmp\ 3646}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3645}#))))))
- (#{global-extend\ 383}#
- 'begin
- 'begin
- '())
- (#{global-extend\ 383}#
- 'define
- 'define
- '())
- (#{global-extend\ 383}#
- 'define-syntax
- 'define-syntax
- '())
- (#{global-extend\ 383}#
- 'eval-when
- 'eval-when
- '())
- (#{global-extend\ 383}#
- 'core
- 'syntax-case
- (letrec*
- ((#{gen-syntax-case\ 3671}#
- (lambda (#{x\ 3672}#
- #{keys\ 3673}#
- #{clauses\ 3674}#
- #{r\ 3675}#
- #{mod\ 3676}#)
- (if (null? #{clauses\ 3674}#)
- (#{build-application\ 309}#
- #f
- (#{build-primref\ 335}#
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("l-*-2402" "l-*-2403"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("l-*-2392"
+ "l-*-2393"
+ "l-*-2394"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-2338"
+ "l-*-2336"
+ "l-*-2334"
+ "l-*-2332"
+ "l-*-2330"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("l-*-2329"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))))
+ ropt-22893)))
+ tmp-22901)
+ (let ((tmp-22935
+ ($sc-dispatch args-22891 '((any any) . any))))
+ (if (if tmp-22935
+ (@apply
+ (lambda (a-22939 init-22940 b-22941)
+ (if (symbol? a-22939)
+ #t
+ (if (if (vector? a-22939)
+ (if (= (vector-length a-22939) 4)
+ (eq? (vector-ref a-22939 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref a-22939 1))
+ #f)))
+ tmp-22935)
+ #f)
+ (@apply
+ (lambda (a-22968 init-22969 b-22970)
+ (opt-22761
+ b-22970
+ req-22892
+ (cons (list a-22968 init-22969) ropt-22893)))
+ tmp-22935)
+ (let ((tmp-22971
+ ($sc-dispatch args-22891 '(any . any))))
+ (if (if tmp-22971
+ (@apply
+ (lambda (a-22975 b-22976)
+ (eq? (syntax->datum a-22975) #:key))
+ tmp-22971)
+ #f)
+ (@apply
+ (lambda (a-22977 b-22978)
+ (key-22762
+ b-22978
+ req-22892
+ (reverse ropt-22893)
+ '()))
+ tmp-22971)
+ (let ((tmp-22981
+ ($sc-dispatch args-22891 '(any any))))
+ (if (if tmp-22981
+ (@apply
+ (lambda (a-22985 b-22986)
+ (eq? (syntax->datum a-22985)
+ #:rest))
+ tmp-22981)
+ #f)
+ (@apply
+ (lambda (a-22987 b-22988)
+ (rest-22763
+ b-22988
+ req-22892
+ (reverse ropt-22893)
+ '()))
+ tmp-22981)
+ (let ((tmp-22991 (list args-22891)))
+ (if (@apply
+ (lambda (r-22993)
+ (if (symbol? r-22993)
+ #t
+ (if (if (vector? r-22993)
+ (if (= (vector-length
+ r-22993)
+ 4)
+ (eq? (vector-ref
+ r-22993
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref r-22993 1))
+ #f)))
+ tmp-22991)
+ (@apply
+ (lambda (r-23023)
+ (rest-22763
+ r-23023
+ req-22892
+ (reverse ropt-22893)
+ '()))
+ tmp-22991)
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument list"
+ orig-args-22759
+ args-22891)))))))))))))))
+ (key-22762
+ (lambda (args-23042 req-23043 opt-23044 rkey-23045)
+ (let ((tmp-23047 ($sc-dispatch args-23042 '())))
+ (if tmp-23047
+ (@apply
+ (lambda ()
+ (check-22764
+ req-23043
+ opt-23044
+ #f
+ (cons #f (reverse rkey-23045))))
+ tmp-23047)
+ (let ((tmp-23053
+ ($sc-dispatch args-23042 '(any . any))))
+ (if (if tmp-23053
+ (@apply
+ (lambda (a-23057 b-23058)
+ (if (symbol? a-23057)
+ #t
+ (if (if (vector? a-23057)
+ (if (= (vector-length a-23057) 4)
+ (eq? (vector-ref a-23057 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref a-23057 1))
+ #f)))
+ tmp-23053)
+ #f)
+ (@apply
+ (lambda (a-23085 b-23086)
+ (let ((tmp-23087
+ (symbol->keyword (syntax->datum a-23085))))
+ (key-22762
+ b-23086
+ req-23043
+ opt-23044
+ (cons (cons tmp-23087
+ (cons a-23085
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("l-*-2465"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("l-*-2459"
+ "l-*-2460"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req opt rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("l-*-2448"
+ "l-*-2449"
+ "l-*-2450"
+ "l-*-2451"))
+ #(ribcage
+ (check rest
+ key
+ opt
+ req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-2338"
+ "l-*-2336"
+ "l-*-2334"
+ "l-*-2332"
+ "l-*-2330"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("l-*-2329"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile)))))
+ rkey-23045))))
+ tmp-23053)
+ (let ((tmp-23090
+ ($sc-dispatch args-23042 '((any any) . any))))
+ (if (if tmp-23090
+ (@apply
+ (lambda (a-23094 init-23095 b-23096)
+ (if (symbol? a-23094)
+ #t
+ (if (if (vector? a-23094)
+ (if (= (vector-length a-23094) 4)
+ (eq? (vector-ref a-23094 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref a-23094 1))
+ #f)))
+ tmp-23090)
+ #f)
+ (@apply
+ (lambda (a-23123 init-23124 b-23125)
+ (let ((tmp-23126
+ (symbol->keyword
+ (syntax->datum a-23123))))
+ (key-22762
+ b-23125
+ req-23043
+ opt-23044
+ (cons (list tmp-23126 a-23123 init-23124)
+ rkey-23045))))
+ tmp-23090)
+ (let ((tmp-23129
+ ($sc-dispatch
+ args-23042
+ '((any any any) . any))))
+ (if (if tmp-23129
+ (@apply
+ (lambda (a-23133
+ init-23134
+ k-23135
+ b-23136)
+ (if (if (symbol? a-23133)
+ #t
+ (if (if (vector? a-23133)
+ (if (= (vector-length
+ a-23133)
+ 4)
+ (eq? (vector-ref
+ a-23133
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref a-23133 1))
+ #f))
+ (keyword? (syntax->datum k-23135))
+ #f))
+ tmp-23129)
+ #f)
+ (@apply
+ (lambda (a-23163 init-23164 k-23165 b-23166)
+ (key-22762
+ b-23166
+ req-23043
+ opt-23044
+ (cons (list k-23165 a-23163 init-23164)
+ rkey-23045)))
+ tmp-23129)
+ (let ((tmp-23167
+ ($sc-dispatch args-23042 '(any))))
+ (if (if tmp-23167
+ (@apply
+ (lambda (aok-23171)
+ (eq? (syntax->datum aok-23171)
+ #:allow-other-keys))
+ tmp-23167)
+ #f)
+ (@apply
+ (lambda (aok-23172)
+ (check-22764
+ req-23043
+ opt-23044
+ #f
+ (cons #t (reverse rkey-23045))))
+ tmp-23167)
+ (let ((tmp-23175
+ ($sc-dispatch
+ args-23042
+ '(any any any))))
+ (if (if tmp-23175
+ (@apply
+ (lambda (aok-23179
+ a-23180
+ b-23181)
+ (if (eq? (syntax->datum
+ aok-23179)
+ #:allow-other-keys)
+ (eq? (syntax->datum a-23180)
+ #:rest)
+ #f))
+ tmp-23175)
+ #f)
+ (@apply
+ (lambda (aok-23182 a-23183 b-23184)
+ (rest-22763
+ b-23184
+ req-23043
+ opt-23044
+ (cons #t (reverse rkey-23045))))
+ tmp-23175)
+ (let ((tmp-23187
+ ($sc-dispatch
+ args-23042
+ '(any . any))))
+ (if (if tmp-23187
+ (@apply
+ (lambda (aok-23191 r-23192)
+ (if (eq? (syntax->datum
+ aok-23191)
+ #:allow-other-keys)
+ (if (symbol? r-23192)
+ #t
+ (if (if (vector?
+ r-23192)
+ (if (= (vector-length
+ r-23192)
+ 4)
+ (eq? (vector-ref
+ r-23192
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ r-23192
+ 1))
+ #f))
+ #f))
+ tmp-23187)
+ #f)
+ (@apply
+ (lambda (aok-23219 r-23220)
+ (rest-22763
+ r-23220
+ req-23043
+ opt-23044
+ (cons #t
+ (reverse rkey-23045))))
+ tmp-23187)
+ (let ((tmp-23223
+ ($sc-dispatch
+ args-23042
+ '(any any))))
+ (if (if tmp-23223
+ (@apply
+ (lambda (a-23227 b-23228)
+ (eq? (syntax->datum
+ a-23227)
+ #:rest))
+ tmp-23223)
+ #f)
+ (@apply
+ (lambda (a-23229 b-23230)
+ (rest-22763
+ b-23230
+ req-23043
+ opt-23044
+ (cons #f
+ (reverse
+ rkey-23045))))
+ tmp-23223)
+ (let ((tmp-23233
+ (list args-23042)))
+ (if (@apply
+ (lambda (r-23235)
+ (if (symbol? r-23235)
+ #t
+ (if (if (vector?
+ r-23235)
+ (if (= (vector-length
+ r-23235)
+ 4)
+ (eq? (vector-ref
+ r-23235
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ r-23235
+ 1))
+ #f)))
+ tmp-23233)
+ (@apply
+ (lambda (r-23265)
+ (rest-22763
+ r-23265
+ req-23043
+ opt-23044
+ (cons #f
+ (reverse
+ rkey-23045))))
+ tmp-23233)
+ (syntax-violation
+ 'lambda*
+ "invalid keyword argument list"
+ orig-args-22759
+ args-23042)))))))))))))))))))))
+ (rest-22763
+ (lambda (args-23293 req-23294 opt-23295 kw-23296)
+ (let ((tmp-23298 (list args-23293)))
+ (if (@apply
+ (lambda (r-23300)
+ (if (symbol? r-23300)
+ #t
+ (if (if (vector? r-23300)
+ (if (= (vector-length r-23300) 4)
+ (eq? (vector-ref r-23300 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref r-23300 1))
+ #f)))
+ tmp-23298)
+ (@apply
+ (lambda (r-23330)
+ (check-22764
+ req-23294
+ opt-23295
+ r-23330
+ kw-23296))
+ tmp-23298)
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ orig-args-22759
+ args-23293)))))
+ (check-22764
+ (lambda (req-23334 opt-23335 rest-23336 kw-23337)
+ (if (distinct-bound-ids?-4288
+ (append
+ req-23334
+ (map car opt-23335)
+ (if rest-23336 (list rest-23336) '())
+ (if (pair? kw-23337)
+ (map cadr (cdr kw-23337))
+ '())))
+ (values req-23334 opt-23335 rest-23336 kw-23337)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ orig-args-22759)))))
+ (req-22760 orig-args-22759 '()))))
+ (expand-lambda-case-4309
+ (lambda (e-23453
+ r-23454
+ w-23455
+ s-23456
+ mod-23457
+ get-formals-23458
+ clauses-23459)
+ (letrec*
+ ((parse-req-23460
+ (lambda (req-23591
+ opt-23592
+ rest-23593
+ kw-23594
+ body-23595)
+ (let ((vars-23596 (map gen-var-4311 req-23591))
+ (labels-23597 (gen-labels-4264 req-23591)))
+ (let ((r*-23598
+ (extend-var-env-4256
+ labels-23597
+ vars-23596
+ r-23454))
+ (w*-23599
+ (make-binding-wrap-4275
+ req-23591
+ labels-23597
+ w-23455)))
+ (parse-opt-23461
+ (map syntax->datum req-23591)
+ opt-23592
+ rest-23593
+ kw-23594
+ body-23595
+ (reverse vars-23596)
+ r*-23598
+ w*-23599
+ '()
+ '())))))
+ (parse-opt-23461
+ (lambda (req-23785
+ opt-23786
+ rest-23787
+ kw-23788
+ body-23789
+ vars-23790
+ r*-23791
+ w*-23792
+ out-23793
+ inits-23794)
+ (if (pair? opt-23786)
+ (let ((tmp-23795 (car opt-23786)))
+ (let ((tmp-23796 ($sc-dispatch tmp-23795 '(any any))))
+ (if tmp-23796
+ (@apply
+ (lambda (id-23798 i-23799)
+ (let ((v-23800
+ (let ((id-23808
+ (if (if (vector? id-23798)
+ (if (= (vector-length
+ id-23798)
+ 4)
+ (eq? (vector-ref
+ id-23798
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-23798 1)
+ id-23798)))
+ (gensym
+ (string-append
+ (symbol->string id-23808)
+ "-")))))
+ (let ((l-23801 (gen-labels-4264 (list v-23800))))
+ (let ((r**-23802
+ (extend-var-env-4256
+ l-23801
+ (list v-23800)
+ r*-23791)))
+ (let ((w**-23803
+ (make-binding-wrap-4275
+ (list id-23798)
+ l-23801
+ w*-23792)))
+ (parse-opt-23461
+ req-23785
+ (cdr opt-23786)
+ rest-23787
+ kw-23788
+ body-23789
+ (cons v-23800 vars-23790)
+ r**-23802
+ w**-23803
+ (cons (syntax->datum id-23798) out-23793)
+ (cons (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ i-23799
+ r*-23791
+ w*-23792
+ (let ((props-23882
+ (source-properties
+ (if (if (vector?
+ i-23799)
+ (if (= (vector-length
+ i-23799)
+ 4)
+ (eq? (vector-ref
+ i-23799
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ i-23799
+ 1)
+ i-23799))))
+ (if (pair? props-23882)
+ props-23882
+ #f))
+ #f
+ mod-23457
+ #f))
+ (lambda (type-23915
+ value-23916
+ form-23917
+ e-23918
+ w-23919
+ s-23920
+ mod-23921)
+ (expand-expr-4298
+ type-23915
+ value-23916
+ form-23917
+ e-23918
+ r*-23791
+ w-23919
+ s-23920
+ mod-23921)))
+ inits-23794)))))))
+ tmp-23796)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-23795))))
+ (if rest-23787
+ (let ((v-24035
+ (let ((id-24045
+ (if (if (vector? rest-23787)
+ (if (= (vector-length rest-23787) 4)
+ (eq? (vector-ref rest-23787 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref rest-23787 1)
+ rest-23787)))
+ (gensym
+ (string-append
+ (symbol->string id-24045)
+ "-")))))
+ (let ((l-24036 (gen-labels-4264 (list v-24035))))
+ (let ((r*-24037
+ (extend-var-env-4256
+ l-24036
+ (list v-24035)
+ r*-23791)))
+ (let ((w*-24038
+ (make-binding-wrap-4275
+ (list rest-23787)
+ l-24036
+ w*-23792)))
+ (parse-kw-23462
+ req-23785
+ (if (pair? out-23793) (reverse out-23793) #f)
+ (syntax->datum rest-23787)
+ (if (pair? kw-23788) (cdr kw-23788) kw-23788)
+ body-23789
+ (cons v-24035 vars-23790)
+ r*-24037
+ w*-24038
+ (if (pair? kw-23788) (car kw-23788) #f)
+ '()
+ inits-23794)))))
+ (parse-kw-23462
+ req-23785
+ (if (pair? out-23793) (reverse out-23793) #f)
+ #f
+ (if (pair? kw-23788) (cdr kw-23788) kw-23788)
+ body-23789
+ vars-23790
+ r*-23791
+ w*-23792
+ (if (pair? kw-23788) (car kw-23788) #f)
+ '()
+ inits-23794)))))
+ (parse-kw-23462
+ (lambda (req-24216
+ opt-24217
+ rest-24218
+ kw-24219
+ body-24220
+ vars-24221
+ r*-24222
+ w*-24223
+ aok-24224
+ out-24225
+ inits-24226)
+ (if (pair? kw-24219)
+ (let ((tmp-24227 (car kw-24219)))
+ (let ((tmp-24228
+ ($sc-dispatch tmp-24227 '(any any any))))
+ (if tmp-24228
+ (@apply
+ (lambda (k-24230 id-24231 i-24232)
+ (let ((v-24233
+ (let ((id-24241
+ (if (if (vector? id-24231)
+ (if (= (vector-length
+ id-24231)
+ 4)
+ (eq? (vector-ref
+ id-24231
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-24231 1)
+ id-24231)))
+ (gensym
+ (string-append
+ (symbol->string id-24241)
+ "-")))))
+ (let ((l-24234 (gen-labels-4264 (list v-24233))))
+ (let ((r**-24235
+ (extend-var-env-4256
+ l-24234
+ (list v-24233)
+ r*-24222)))
+ (let ((w**-24236
+ (make-binding-wrap-4275
+ (list id-24231)
+ l-24234
+ w*-24223)))
+ (parse-kw-23462
+ req-24216
+ opt-24217
+ rest-24218
+ (cdr kw-24219)
+ body-24220
+ (cons v-24233 vars-24221)
+ r**-24235
+ w**-24236
+ aok-24224
+ (cons (list (syntax->datum k-24230)
+ (syntax->datum id-24231)
+ v-24233)
+ out-24225)
+ (cons (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ i-24232
+ r*-24222
+ w*-24223
+ (let ((props-24315
+ (source-properties
+ (if (if (vector?
+ i-24232)
+ (if (= (vector-length
+ i-24232)
+ 4)
+ (eq? (vector-ref
+ i-24232
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ i-24232
+ 1)
+ i-24232))))
+ (if (pair? props-24315)
+ props-24315
+ #f))
+ #f
+ mod-23457
+ #f))
+ (lambda (type-24348
+ value-24349
+ form-24350
+ e-24351
+ w-24352
+ s-24353
+ mod-24354)
+ (expand-expr-4298
+ type-24348
+ value-24349
+ form-24350
+ e-24351
+ r*-24222
+ w-24352
+ s-24353
+ mod-24354)))
+ inits-24226)))))))
+ tmp-24228)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-24227))))
+ (parse-body-23463
+ req-24216
+ opt-24217
+ rest-24218
+ (if (if aok-24224 aok-24224 (pair? out-24225))
+ (cons aok-24224 (reverse out-24225))
+ #f)
+ body-24220
+ (reverse vars-24221)
+ r*-24222
+ w*-24223
+ (reverse inits-24226)
+ '()))))
+ (parse-body-23463
+ (lambda (req-24477
+ opt-24478
+ rest-24479
+ kw-24480
+ body-24481
+ vars-24482
+ r*-24483
+ w*-24484
+ inits-24485
+ meta-24486)
+ (let ((tmp-24488
+ ($sc-dispatch body-24481 '(any any . each-any))))
+ (if (if tmp-24488
+ (@apply
+ (lambda (docstring-24492 e1-24493 e2-24494)
+ (string? (syntax->datum docstring-24492)))
+ tmp-24488)
+ #f)
+ (@apply
+ (lambda (docstring-24495 e1-24496 e2-24497)
+ (parse-body-23463
+ req-24477
+ opt-24478
+ rest-24479
+ kw-24480
+ (cons e1-24496 e2-24497)
+ vars-24482
+ r*-24483
+ w*-24484
+ inits-24485
+ (append
+ meta-24486
+ (list (cons 'documentation
+ (syntax->datum docstring-24495))))))
+ tmp-24488)
+ (let ((tmp-24498
+ ($sc-dispatch
+ body-24481
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if tmp-24498
+ (@apply
+ (lambda (k-24502 v-24503 e1-24504 e2-24505)
+ (parse-body-23463
+ req-24477
+ opt-24478
+ rest-24479
+ kw-24480
+ (cons e1-24504 e2-24505)
+ vars-24482
+ r*-24483
+ w*-24484
+ inits-24485
+ (append
+ meta-24486
+ (syntax->datum (map cons k-24502 v-24503)))))
+ tmp-24498)
+ (let ((tmp-24506
+ ($sc-dispatch body-24481 '(any . each-any))))
+ (if tmp-24506
+ (@apply
+ (lambda (e1-24510 e2-24511)
+ (values
+ meta-24486
+ req-24477
+ opt-24478
+ rest-24479
+ kw-24480
+ inits-24485
+ vars-24482
+ (expand-body-4301
+ (cons e1-24510 e2-24511)
+ (wrap-4290
+ (begin
+ (if (if s-23456
+ (supports-source-properties?
+ e-23453)
+ #f)
+ (set-source-properties!
+ e-23453
+ s-23456))
+ e-23453)
+ w-23455
+ mod-23457)
+ r*-24483
+ w*-24484
+ mod-23457)))
+ tmp-24506)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ body-24481))))))))))
+ (let ((tmp-23465 ($sc-dispatch clauses-23459 '())))
+ (if tmp-23465
+ (@apply (lambda () (values '() #f)) tmp-23465)
+ (let ((tmp-23469
+ ($sc-dispatch
+ clauses-23459
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if tmp-23469
+ (@apply
+ (lambda (args-23473
+ e1-23474
+ e2-23475
+ args*-23476
+ e1*-23477
+ e2*-23478)
+ (call-with-values
+ (lambda () (get-formals-23458 args-23473))
+ (lambda (req-23479 opt-23480 rest-23481 kw-23482)
+ (call-with-values
+ (lambda ()
+ (parse-req-23460
+ req-23479
+ opt-23480
+ rest-23481
+ kw-23482
+ (cons e1-23474 e2-23475)))
+ (lambda (meta-23547
+ req-23548
+ opt-23549
+ rest-23550
+ kw-23551
+ inits-23552
+ vars-23553
+ body-23554)
+ (call-with-values
+ (lambda ()
+ (expand-lambda-case-4309
+ e-23453
+ r-23454
+ w-23455
+ s-23456
+ mod-23457
+ get-formals-23458
+ (map (lambda (tmp-2800-23555
+ tmp-2799-23556
+ tmp-2798-23557)
+ (cons tmp-2798-23557
+ (cons tmp-2799-23556
+ tmp-2800-23555)))
+ e2*-23478
+ e1*-23477
+ args*-23476)))
+ (lambda (meta*-23558 else*-23559)
+ (values
+ (append meta-23547 meta*-23558)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ s-23456
+ req-23548
+ opt-23549
+ rest-23550
+ kw-23551
+ inits-23552
+ vars-23553
+ body-23554
+ else*-23559)))))))))
+ tmp-23469)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ clauses-23459))))))))
+ (strip-4310
+ (lambda (x-24548 w-24549)
+ (if (memq 'top (car w-24549))
+ x-24548
+ (letrec*
+ ((f-24550
+ (lambda (x-24553)
+ (if (if (vector? x-24553)
+ (if (= (vector-length x-24553) 4)
+ (eq? (vector-ref x-24553 0) 'syntax-object)
+ #f)
+ #f)
+ (strip-4310
+ (vector-ref x-24553 1)
+ (vector-ref x-24553 2))
+ (if (pair? x-24553)
+ (let ((a-24572 (f-24550 (car x-24553)))
+ (d-24573 (f-24550 (cdr x-24553))))
+ (if (if (eq? a-24572 (car x-24553))
+ (eq? d-24573 (cdr x-24553))
+ #f)
+ x-24553
+ (cons a-24572 d-24573)))
+ (if (vector? x-24553)
+ (let ((old-24576 (vector->list x-24553)))
+ (let ((new-24577 (map f-24550 old-24576)))
+ (letrec*
+ ((lp-24578
+ (lambda (l1-24654 l2-24655)
+ (if (null? l1-24654)
+ x-24553
+ (if (eq? (car l1-24654) (car l2-24655))
+ (lp-24578 (cdr l1-24654) (cdr l2-24655))
+ (list->vector new-24577))))))
+ (lp-24578 old-24576 new-24577))))
+ x-24553))))))
+ (f-24550 x-24548)))))
+ (gen-var-4311
+ (lambda (id-23603)
+ (let ((id-23604
+ (if (if (vector? id-23603)
+ (if (= (vector-length id-23603) 4)
+ (eq? (vector-ref id-23603 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-23603 1)
+ id-23603)))
+ (gensym
+ (string-append (symbol->string id-23604) "-"))))))
+ (begin
+ (set! session-id-4222
+ (let ((v-14702
+ (module-variable
+ (current-module)
+ 'syntax-session-id)))
+ (lambda () ((variable-ref v-14702)))))
+ (set! transformer-environment-4283
+ (make-fluid
+ (lambda (k-13734)
+ (error "called outside the dynamic extent of a syntax transformer"))))
+ (module-define!
+ (current-module)
+ 'letrec-syntax
+ (make-syntax-transformer
+ 'letrec-syntax
+ 'local-syntax
+ #t))
+ (module-define!
+ (current-module)
+ 'let-syntax
+ (make-syntax-transformer
+ 'let-syntax
+ 'local-syntax
+ #f))
+ (global-extend-4259
+ 'core
+ 'syntax-parameterize
+ (lambda (e-4430 r-4431 w-4432 s-4433 mod-4434)
+ (let ((tmp-4436
+ ($sc-dispatch
+ e-4430
+ '(_ #(each (any any)) any . each-any))))
+ (if (if tmp-4436
+ (@apply
+ (lambda (var-4438 val-4439 e1-4440 e2-4441)
+ (valid-bound-ids?-4287 var-4438))
+ tmp-4436)
+ #f)
+ (@apply
+ (lambda (var-4519 val-4520 e1-4521 e2-4522)
+ (let ((names-4523
+ (map (lambda (x-4573)
+ (id-var-name-4280 x-4573 w-4432))
+ var-4519)))
+ (begin
+ (for-each
+ (lambda (id-4524 n-4525)
+ (let ((key-4526
+ (car (let ((t-4533 (assq n-4525 r-4431)))
+ (if t-4533
+ (cdr t-4533)
+ (if (symbol? n-4525)
+ (let ((t-4538
+ (get-global-definition-hook-4224
+ n-4525
+ mod-4434)))
+ (if t-4538 t-4538 '(global)))
+ '(displaced-lexical)))))))
+ (if (eqv? key-4526 'displaced-lexical)
+ (syntax-violation
+ 'syntax-parameterize
+ "identifier out of context"
+ e-4430
+ (wrap-4290
+ (begin
+ (if (if s-4433
+ (supports-source-properties? id-4524)
+ #f)
+ (set-source-properties! id-4524 s-4433))
+ id-4524)
+ w-4432
+ mod-4434)))))
+ var-4519
+ names-4523)
+ (expand-body-4301
+ (cons e1-4521 e2-4522)
+ (wrap-4290
+ (begin
+ (if (if s-4433
+ (supports-source-properties? e-4430)
+ #f)
+ (set-source-properties! e-4430 s-4433))
+ e-4430)
+ w-4432
+ mod-4434)
+ (extend-env-4255
+ names-4523
+ (let ((trans-r-4659 (macros-only-env-4257 r-4431)))
+ (map (lambda (x-4660)
+ (cons 'macro
+ (eval-local-transformer-4303
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ x-4660
+ trans-r-4659
+ w-4432
+ (let ((props-4717
+ (source-properties
+ (if (if (vector?
+ x-4660)
+ (if (= (vector-length
+ x-4660)
+ 4)
+ (eq? (vector-ref
+ x-4660
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ x-4660
+ 1)
+ x-4660))))
+ (if (pair? props-4717)
+ props-4717
+ #f))
+ #f
+ mod-4434
+ #f))
+ (lambda (type-4750
+ value-4751
+ form-4752
+ e-4753
+ w-4754
+ s-4755
+ mod-4756)
+ (expand-expr-4298
+ type-4750
+ value-4751
+ form-4752
+ e-4753
+ trans-r-4659
+ w-4754
+ s-4755
+ mod-4756)))
+ mod-4434)))
+ val-4520))
+ r-4431)
+ w-4432
+ mod-4434))))
+ tmp-4436)
+ (syntax-violation
+ 'syntax-parameterize
+ "bad syntax"
+ (wrap-4290
+ (begin
+ (if (if s-4433
+ (supports-source-properties? e-4430)
+ #f)
+ (set-source-properties! e-4430 s-4433))
+ e-4430)
+ w-4432
+ mod-4434))))))
+ (module-define!
+ (current-module)
+ 'quote
+ (make-syntax-transformer
+ 'quote
+ 'core
+ (lambda (e-4855 r-4856 w-4857 s-4858 mod-4859)
+ (let ((tmp-4861 ($sc-dispatch e-4855 '(_ any))))
+ (if tmp-4861
+ (@apply
+ (lambda (e-4862)
+ (let ((exp-4866 (strip-4310 e-4862 w-4857)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ s-4858
+ exp-4866)))
+ tmp-4861)
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (wrap-4290
+ (begin
+ (if (if s-4858
+ (supports-source-properties? e-4855)
+ #f)
+ (set-source-properties! e-4855 s-4858))
+ e-4855)
+ w-4857
+ mod-4859)))))))
+ (global-extend-4259
+ 'core
+ 'syntax
+ (letrec*
+ ((gen-syntax-5078
+ (lambda (src-5175
+ e-5176
+ r-5177
+ maps-5178
+ ellipsis?-5179
+ mod-5180)
+ (if (if (symbol? e-5176)
+ #t
+ (if (if (vector? e-5176)
+ (if (= (vector-length e-5176) 4)
+ (eq? (vector-ref e-5176 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref e-5176 1))
+ #f))
+ (let ((label-5207 (id-var-name-4280 e-5176 '(()))))
+ (let ((b-5208
+ (let ((t-5215 (assq label-5207 r-5177)))
+ (if t-5215
+ (cdr t-5215)
+ (if (symbol? label-5207)
+ (let ((t-5221
+ (get-global-definition-hook-4224
+ label-5207
+ mod-5180)))
+ (if t-5221 t-5221 '(global)))
+ '(displaced-lexical))))))
+ (if (eq? (car b-5208) 'syntax)
+ (call-with-values
+ (lambda ()
+ (let ((var.lev-5230 (cdr b-5208)))
+ (gen-ref-5079
+ src-5175
+ (car var.lev-5230)
+ (cdr var.lev-5230)
+ maps-5178)))
+ (lambda (var-5234 maps-5235)
+ (values (list 'ref var-5234) maps-5235)))
+ (if (ellipsis?-5179 e-5176)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ src-5175)
+ (values (list 'quote e-5176) maps-5178)))))
+ (let ((tmp-5237 ($sc-dispatch e-5176 '(any any))))
+ (if (if tmp-5237
+ (@apply
+ (lambda (dots-5241 e-5242)
+ (ellipsis?-5179 dots-5241))
+ tmp-5237)
+ #f)
+ (@apply
+ (lambda (dots-5243 e-5244)
+ (gen-syntax-5078
+ src-5175
+ e-5244
+ r-5177
+ maps-5178
+ (lambda (x-5245) #f)
+ mod-5180))
+ tmp-5237)
+ (let ((tmp-5246 ($sc-dispatch e-5176 '(any any . any))))
+ (if (if tmp-5246
+ (@apply
+ (lambda (x-5250 dots-5251 y-5252)
+ (ellipsis?-5179 dots-5251))
+ tmp-5246)
+ #f)
+ (@apply
+ (lambda (x-5253 dots-5254 y-5255)
+ (letrec*
+ ((f-5256
+ (lambda (y-5264 k-5265)
+ (let ((tmp-5267
+ ($sc-dispatch
+ y-5264
+ '(any . any))))
+ (if (if tmp-5267
+ (@apply
+ (lambda (dots-5269 y-5270)
+ (ellipsis?-5179 dots-5269))
+ tmp-5267)
+ #f)
+ (@apply
+ (lambda (dots-5271 y-5272)
+ (f-5256
+ y-5272
+ (lambda (maps-5273)
+ (call-with-values
+ (lambda ()
+ (k-5265
+ (cons '() maps-5273)))
+ (lambda (x-5274 maps-5275)
+ (if (null? (car maps-5275))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ src-5175)
+ (values
+ (let ((map-env-5279
+ (car maps-5275)))
+ (list 'apply
+ '(primitive
+ append)
+ (gen-map-5081
+ x-5274
+ map-env-5279)))
+ (cdr maps-5275))))))))
+ tmp-5267)
+ (call-with-values
+ (lambda ()
+ (gen-syntax-5078
+ src-5175
+ y-5264
+ r-5177
+ maps-5178
+ ellipsis?-5179
+ mod-5180))
+ (lambda (y-5281 maps-5282)
+ (call-with-values
+ (lambda () (k-5265 maps-5282))
+ (lambda (x-5283 maps-5284)
+ (values
+ (if (equal? y-5281 ''())
+ x-5283
+ (list 'append
+ x-5283
+ y-5281))
+ maps-5284))))))))))
+ (f-5256
+ y-5255
+ (lambda (maps-5259)
+ (call-with-values
+ (lambda ()
+ (gen-syntax-5078
+ src-5175
+ x-5253
+ r-5177
+ (cons '() maps-5259)
+ ellipsis?-5179
+ mod-5180))
+ (lambda (x-5260 maps-5261)
+ (if (null? (car maps-5261))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ src-5175)
+ (values
+ (gen-map-5081
+ x-5260
+ (car maps-5261))
+ (cdr maps-5261)))))))))
+ tmp-5246)
+ (let ((tmp-5298 ($sc-dispatch e-5176 '(any . any))))
+ (if tmp-5298
+ (@apply
+ (lambda (x-5302 y-5303)
+ (call-with-values
+ (lambda ()
+ (gen-syntax-5078
+ src-5175
+ x-5302
+ r-5177
+ maps-5178
+ ellipsis?-5179
+ mod-5180))
+ (lambda (x-5304 maps-5305)
+ (call-with-values
+ (lambda ()
+ (gen-syntax-5078
+ src-5175
+ y-5303
+ r-5177
+ maps-5305
+ ellipsis?-5179
+ mod-5180))
+ (lambda (y-5306 maps-5307)
+ (values
+ (let ((key-5312 (car y-5306)))
+ (if (eqv? key-5312 'quote)
+ (if (eq? (car x-5304) 'quote)
+ (list 'quote
+ (cons (car (cdr x-5304))
+ (car (cdr y-5306))))
+ (if (eq? (car (cdr y-5306))
+ '())
+ (list 'list x-5304)
+ (list 'cons x-5304 y-5306)))
+ (if (eqv? key-5312 'list)
+ (cons 'list
+ (cons x-5304
+ (cdr y-5306)))
+ (list 'cons x-5304 y-5306))))
+ maps-5307))))))
+ tmp-5298)
+ (let ((tmp-5341
+ ($sc-dispatch
+ e-5176
+ '#(vector (any . each-any)))))
+ (if tmp-5341
+ (@apply
+ (lambda (e1-5345 e2-5346)
+ (call-with-values
+ (lambda ()
+ (gen-syntax-5078
+ src-5175
+ (cons e1-5345 e2-5346)
+ r-5177
+ maps-5178
+ ellipsis?-5179
+ mod-5180))
+ (lambda (e-5347 maps-5348)
+ (values
+ (if (eq? (car e-5347) 'list)
+ (cons 'vector (cdr e-5347))
+ (if (eq? (car e-5347) 'quote)
+ (list 'quote
+ (list->vector
+ (car (cdr e-5347))))
+ (list 'list->vector e-5347)))
+ maps-5348))))
+ tmp-5341)
+ (values
+ (list 'quote e-5176)
+ maps-5178))))))))))))
+ (gen-ref-5079
+ (lambda (src-5374 var-5375 level-5376 maps-5377)
+ (if (= level-5376 0)
+ (values var-5375 maps-5377)
+ (if (null? maps-5377)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ src-5374)
+ (call-with-values
+ (lambda ()
+ (gen-ref-5079
+ src-5374
+ var-5375
+ (#{1-}# level-5376)
+ (cdr maps-5377)))
+ (lambda (outer-var-5378 outer-maps-5379)
+ (let ((b-5380 (assq outer-var-5378 (car maps-5377))))
+ (if b-5380
+ (values (cdr b-5380) maps-5377)
+ (let ((inner-var-5382
+ (gensym
+ (string-append
+ (symbol->string 'tmp)
+ "-"))))
+ (values
+ inner-var-5382
+ (cons (cons (cons outer-var-5378 inner-var-5382)
+ (car maps-5377))
+ outer-maps-5379)))))))))))
+ (gen-map-5081
+ (lambda (e-5396 map-env-5397)
+ (let ((formals-5398 (map cdr map-env-5397))
+ (actuals-5399
+ (map (lambda (x-5401) (list 'ref (car x-5401)))
+ map-env-5397)))
+ (if (eq? (car e-5396) 'ref)
+ (car actuals-5399)
+ (if (and-map
+ (lambda (x-5402)
+ (if (eq? (car x-5402) 'ref)
+ (memq (car (cdr x-5402)) formals-5398)
+ #f))
+ (cdr e-5396))
+ (cons 'map
+ (cons (list 'primitive (car e-5396))
+ (map (let ((r-5404
+ (map cons
+ formals-5398
+ actuals-5399)))
+ (lambda (x-5405)
+ (cdr (assq (car (cdr x-5405))
+ r-5404))))
+ (cdr e-5396))))
+ (cons 'map
+ (cons (list 'lambda formals-5398 e-5396)
+ actuals-5399)))))))
+ (regen-5085
+ (lambda (x-5407)
+ (let ((key-5408 (car x-5407)))
+ (if (eqv? key-5408 'ref)
+ (let ((name-5418 (car (cdr x-5407)))
+ (var-5419 (car (cdr x-5407))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ name-5418
+ var-5419))
+ (if (eqv? key-5408 'primitive)
+ (let ((name-5431 (car (cdr x-5407))))
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ name-5431)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ name-5431
+ #f)))
+ (if (eqv? key-5408 'quote)
+ (let ((exp-5449 (car (cdr x-5407))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
#f
- 'syntax-violation)
- (list (#{build-data\ 337}# #f #f)
- (#{build-data\ 337}#
+ exp-5449))
+ (if (eqv? key-5408 'lambda)
+ (if (list? (car (cdr x-5407)))
+ (let ((req-5460 (car (cdr x-5407)))
+ (vars-5462 (car (cdr x-5407)))
+ (exp-5464
+ (regen-5085 (car (cdr (cdr x-5407))))))
+ (let ((body-5469
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ req-5460
+ #f
+ #f
+ #f
+ '()
+ vars-5462
+ exp-5464
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
#f
- "source expression failed to match any pattern")
- #{x\ 3672}#))
- (let ((#{tmp\ 3686}# (car #{clauses\ 3674}#)))
- (let ((#{tmp\ 3687}#
- ($sc-dispatch
- #{tmp\ 3686}#
- '(any any))))
- (if #{tmp\ 3687}#
- (@apply
- (lambda (#{pat\ 3690}# #{exp\ 3691}#)
- (if (if (#{id?\ 387}# #{pat\ 3690}#)
- (and-map
- (lambda (#{x\ 3694}#)
- (not (#{free-id=?\ 446}#
- #{pat\ 3690}#
- #{x\ 3694}#)))
- (cons '#(syntax-object
+ '()
+ body-5469)))
+ (error "how did we get here" x-5407))
+ (let ((fun-exp-5485
+ (let ((name-5494 (car x-5407)))
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ name-5494)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ name-5494
+ #f))))
+ (arg-exps-5486 (map regen-5085 (cdr x-5407))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ fun-exp-5485
+ arg-exps-5486))))))))))
+ (lambda (e-5086 r-5087 w-5088 s-5089 mod-5090)
+ (let ((e-5091
+ (wrap-4290
+ (begin
+ (if (if s-5089
+ (supports-source-properties? e-5086)
+ #f)
+ (set-source-properties! e-5086 s-5089))
+ e-5086)
+ w-5088
+ mod-5090)))
+ (let ((tmp-5093 ($sc-dispatch e-5091 '(_ any))))
+ (if tmp-5093
+ (@apply
+ (lambda (x-5116)
+ (call-with-values
+ (lambda ()
+ (gen-syntax-5078
+ e-5091
+ x-5116
+ r-5087
+ '()
+ ellipsis?-4305
+ mod-5090))
+ (lambda (e-5170 maps-5171) (regen-5085 e-5170))))
+ tmp-5093)
+ (syntax-violation
+ 'syntax
+ "bad `syntax' form"
+ e-5091)))))))
+ (global-extend-4259
+ 'core
+ 'lambda
+ (lambda (e-5679 r-5680 w-5681 s-5682 mod-5683)
+ (let ((tmp-5685
+ ($sc-dispatch e-5679 '(_ any any . each-any))))
+ (if tmp-5685
+ (@apply
+ (lambda (args-5687 e1-5688 e2-5689)
+ (call-with-values
+ (lambda () (lambda-formals-4306 args-5687))
+ (lambda (req-5692 opt-5693 rest-5694 kw-5695)
+ (letrec*
+ ((lp-5696
+ (lambda (body-5699 meta-5700)
+ (let ((tmp-5702
+ ($sc-dispatch
+ body-5699
+ '(any any . each-any))))
+ (if (if tmp-5702
+ (@apply
+ (lambda (docstring-5706 e1-5707 e2-5708)
+ (string?
+ (syntax->datum docstring-5706)))
+ tmp-5702)
+ #f)
+ (@apply
+ (lambda (docstring-5709 e1-5710 e2-5711)
+ (lp-5696
+ (cons e1-5710 e2-5711)
+ (append
+ meta-5700
+ (list (cons 'documentation
+ (syntax->datum
+ docstring-5709))))))
+ tmp-5702)
+ (let ((tmp-5712
+ ($sc-dispatch
+ body-5699
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if tmp-5712
+ (@apply
+ (lambda (k-5716 v-5717 e1-5718 e2-5719)
+ (lp-5696
+ (cons e1-5718 e2-5719)
+ (append
+ meta-5700
+ (syntax->datum
+ (map cons k-5716 v-5717)))))
+ tmp-5712)
+ (expand-simple-lambda-4307
+ e-5679
+ r-5680
+ w-5681
+ s-5682
+ mod-5683
+ req-5692
+ rest-5694
+ meta-5700
+ body-5699))))))))
+ (lp-5696 (cons e1-5688 e2-5689) '())))))
+ tmp-5685)
+ (syntax-violation 'lambda "bad lambda" e-5679)))))
+ (global-extend-4259
+ 'core
+ 'lambda*
+ (lambda (e-6002 r-6003 w-6004 s-6005 mod-6006)
+ (let ((tmp-6008
+ ($sc-dispatch e-6002 '(_ any any . each-any))))
+ (if tmp-6008
+ (@apply
+ (lambda (args-6010 e1-6011 e2-6012)
+ (call-with-values
+ (lambda ()
+ (expand-lambda-case-4309
+ e-6002
+ r-6003
+ w-6004
+ s-6005
+ mod-6006
+ lambda*-formals-4308
+ (list (cons args-6010 (cons e1-6011 e2-6012)))))
+ (lambda (meta-6015 lcase-6016)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ s-6005
+ meta-6015
+ lcase-6016))))
+ tmp-6008)
+ (syntax-violation 'lambda "bad lambda*" e-6002)))))
+ (global-extend-4259
+ 'core
+ 'case-lambda
+ (lambda (e-6181 r-6182 w-6183 s-6184 mod-6185)
+ (let ((tmp-6187
+ ($sc-dispatch
+ e-6181
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if tmp-6187
+ (@apply
+ (lambda (args-6189
+ e1-6190
+ e2-6191
+ args*-6192
+ e1*-6193
+ e2*-6194)
+ (call-with-values
+ (lambda ()
+ (expand-lambda-case-4309
+ e-6181
+ r-6182
+ w-6183
+ s-6184
+ mod-6185
+ lambda-formals-4306
+ (cons (cons args-6189 (cons e1-6190 e2-6191))
+ (map (lambda (tmp-3252-6197
+ tmp-3251-6198
+ tmp-3250-6199)
+ (cons tmp-3250-6199
+ (cons tmp-3251-6198 tmp-3252-6197)))
+ e2*-6194
+ e1*-6193
+ args*-6192))))
+ (lambda (meta-6200 lcase-6201)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ s-6184
+ meta-6200
+ lcase-6201))))
+ tmp-6187)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ e-6181)))))
+ (global-extend-4259
+ 'core
+ 'case-lambda*
+ (lambda (e-6358 r-6359 w-6360 s-6361 mod-6362)
+ (let ((tmp-6364
+ ($sc-dispatch
+ e-6358
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if tmp-6364
+ (@apply
+ (lambda (args-6366
+ e1-6367
+ e2-6368
+ args*-6369
+ e1*-6370
+ e2*-6371)
+ (call-with-values
+ (lambda ()
+ (expand-lambda-case-4309
+ e-6358
+ r-6359
+ w-6360
+ s-6361
+ mod-6362
+ lambda*-formals-4308
+ (cons (cons args-6366 (cons e1-6367 e2-6368))
+ (map (lambda (tmp-3285-6374
+ tmp-3284-6375
+ tmp-3283-6376)
+ (cons tmp-3283-6376
+ (cons tmp-3284-6375 tmp-3285-6374)))
+ e2*-6371
+ e1*-6370
+ args*-6369))))
+ (lambda (meta-6377 lcase-6378)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ s-6361
+ meta-6377
+ lcase-6378))))
+ tmp-6364)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ e-6358)))))
+ (global-extend-4259
+ 'core
+ 'let
+ (letrec*
+ ((expand-let-6566
+ (lambda (e-6714
+ r-6715
+ w-6716
+ s-6717
+ mod-6718
+ constructor-6719
+ ids-6720
+ vals-6721
+ exps-6722)
+ (if (not (valid-bound-ids?-4287 ids-6720))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ e-6714)
+ (let ((labels-6800 (gen-labels-4264 ids-6720))
+ (new-vars-6801 (map gen-var-4311 ids-6720)))
+ (let ((nw-6802
+ (make-binding-wrap-4275
+ ids-6720
+ labels-6800
+ w-6716))
+ (nr-6803
+ (extend-var-env-4256
+ labels-6800
+ new-vars-6801
+ r-6715)))
+ (constructor-6719
+ s-6717
+ (map syntax->datum ids-6720)
+ new-vars-6801
+ (map (lambda (x-6820)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ x-6820
+ r-6715
+ w-6716
+ (let ((props-6836
+ (source-properties
+ (if (if (vector? x-6820)
+ (if (= (vector-length
+ x-6820)
+ 4)
+ (eq? (vector-ref
+ x-6820
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-6820 1)
+ x-6820))))
+ (if (pair? props-6836) props-6836 #f))
+ #f
+ mod-6718
+ #f))
+ (lambda (type-6869
+ value-6870
+ form-6871
+ e-6872
+ w-6873
+ s-6874
+ mod-6875)
+ (expand-expr-4298
+ type-6869
+ value-6870
+ form-6871
+ e-6872
+ r-6715
+ w-6873
+ s-6874
+ mod-6875))))
+ vals-6721)
+ (expand-body-4301
+ exps-6722
+ (source-wrap-4291 e-6714 nw-6802 s-6717 mod-6718)
+ nr-6803
+ nw-6802
+ mod-6718))))))))
+ (lambda (e-6567 r-6568 w-6569 s-6570 mod-6571)
+ (let ((tmp-6573
+ ($sc-dispatch
+ e-6567
+ '(_ #(each (any any)) any . each-any))))
+ (if (if tmp-6573
+ (@apply
+ (lambda (id-6577 val-6578 e1-6579 e2-6580)
+ (and-map id?-4261 id-6577))
+ tmp-6573)
+ #f)
+ (@apply
+ (lambda (id-6596 val-6597 e1-6598 e2-6599)
+ (expand-let-6566
+ e-6567
+ r-6568
+ w-6569
+ s-6570
+ mod-6571
+ build-let-4243
+ id-6596
+ val-6597
+ (cons e1-6598 e2-6599)))
+ tmp-6573)
+ (let ((tmp-6629
+ ($sc-dispatch
+ e-6567
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if tmp-6629
+ (@apply
+ (lambda (f-6633 id-6634 val-6635 e1-6636 e2-6637)
+ (if (if (symbol? f-6633)
+ #t
+ (if (if (vector? f-6633)
+ (if (= (vector-length f-6633) 4)
+ (eq? (vector-ref f-6633 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref f-6633 1))
+ #f))
+ (and-map id?-4261 id-6634)
+ #f))
+ tmp-6629)
+ #f)
+ (@apply
+ (lambda (f-6679 id-6680 val-6681 e1-6682 e2-6683)
+ (expand-let-6566
+ e-6567
+ r-6568
+ w-6569
+ s-6570
+ mod-6571
+ build-named-let-4244
+ (cons f-6679 id-6680)
+ val-6681
+ (cons e1-6682 e2-6683)))
+ tmp-6629)
+ (syntax-violation
+ 'let
+ "bad let"
+ (wrap-4290
+ (begin
+ (if (if s-6570
+ (supports-source-properties? e-6567)
+ #f)
+ (set-source-properties! e-6567 s-6570))
+ e-6567)
+ w-6569
+ mod-6571)))))))))
+ (global-extend-4259
+ 'core
+ 'letrec
+ (lambda (e-7219 r-7220 w-7221 s-7222 mod-7223)
+ (let ((tmp-7225
+ ($sc-dispatch
+ e-7219
+ '(_ #(each (any any)) any . each-any))))
+ (if (if tmp-7225
+ (@apply
+ (lambda (id-7227 val-7228 e1-7229 e2-7230)
+ (and-map id?-4261 id-7227))
+ tmp-7225)
+ #f)
+ (@apply
+ (lambda (id-7246 val-7247 e1-7248 e2-7249)
+ (if (not (valid-bound-ids?-4287 id-7246))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ e-7219)
+ (let ((labels-7339 (gen-labels-4264 id-7246))
+ (new-vars-7340 (map gen-var-4311 id-7246)))
+ (let ((w-7341
+ (make-binding-wrap-4275
+ id-7246
+ labels-7339
+ w-7221))
+ (r-7342
+ (extend-var-env-4256
+ labels-7339
+ new-vars-7340
+ r-7220)))
+ (build-letrec-4245
+ s-7222
+ #f
+ (map syntax->datum id-7246)
+ new-vars-7340
+ (map (lambda (x-7427)
+ (expand-4297 x-7427 r-7342 w-7341 mod-7223))
+ val-7247)
+ (expand-body-4301
+ (cons e1-7248 e2-7249)
+ (wrap-4290
+ (begin
+ (if (if s-7222
+ (supports-source-properties? e-7219)
+ #f)
+ (set-source-properties! e-7219 s-7222))
+ e-7219)
+ w-7341
+ mod-7223)
+ r-7342
+ w-7341
+ mod-7223))))))
+ tmp-7225)
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (wrap-4290
+ (begin
+ (if (if s-7222
+ (supports-source-properties? e-7219)
+ #f)
+ (set-source-properties! e-7219 s-7222))
+ e-7219)
+ w-7221
+ mod-7223))))))
+ (global-extend-4259
+ 'core
+ 'letrec*
+ (lambda (e-7817 r-7818 w-7819 s-7820 mod-7821)
+ (let ((tmp-7823
+ ($sc-dispatch
+ e-7817
+ '(_ #(each (any any)) any . each-any))))
+ (if (if tmp-7823
+ (@apply
+ (lambda (id-7825 val-7826 e1-7827 e2-7828)
+ (and-map id?-4261 id-7825))
+ tmp-7823)
+ #f)
+ (@apply
+ (lambda (id-7844 val-7845 e1-7846 e2-7847)
+ (if (not (valid-bound-ids?-4287 id-7844))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ e-7817)
+ (let ((labels-7937 (gen-labels-4264 id-7844))
+ (new-vars-7938 (map gen-var-4311 id-7844)))
+ (let ((w-7939
+ (make-binding-wrap-4275
+ id-7844
+ labels-7937
+ w-7819))
+ (r-7940
+ (extend-var-env-4256
+ labels-7937
+ new-vars-7938
+ r-7818)))
+ (build-letrec-4245
+ s-7820
+ #t
+ (map syntax->datum id-7844)
+ new-vars-7938
+ (map (lambda (x-8025)
+ (expand-4297 x-8025 r-7940 w-7939 mod-7821))
+ val-7845)
+ (expand-body-4301
+ (cons e1-7846 e2-7847)
+ (wrap-4290
+ (begin
+ (if (if s-7820
+ (supports-source-properties? e-7817)
+ #f)
+ (set-source-properties! e-7817 s-7820))
+ e-7817)
+ w-7939
+ mod-7821)
+ r-7940
+ w-7939
+ mod-7821))))))
+ tmp-7823)
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (wrap-4290
+ (begin
+ (if (if s-7820
+ (supports-source-properties? e-7817)
+ #f)
+ (set-source-properties! e-7817 s-7820))
+ e-7817)
+ w-7819
+ mod-7821))))))
+ (global-extend-4259
+ 'core
+ 'set!
+ (lambda (e-8488 r-8489 w-8490 s-8491 mod-8492)
+ (let ((tmp-8494 ($sc-dispatch e-8488 '(_ any any))))
+ (if (if tmp-8494
+ (@apply
+ (lambda (id-8498 val-8499)
+ (if (symbol? id-8498)
+ #t
+ (if (if (vector? id-8498)
+ (if (= (vector-length id-8498) 4)
+ (eq? (vector-ref id-8498 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref id-8498 1))
+ #f)))
+ tmp-8494)
+ #f)
+ (@apply
+ (lambda (id-8526 val-8527)
+ (let ((n-8528 (id-var-name-4280 id-8526 w-8490))
+ (id-mod-8529
+ (if (if (vector? id-8526)
+ (if (= (vector-length id-8526) 4)
+ (eq? (vector-ref id-8526 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-8526 3)
+ mod-8492)))
+ (let ((b-8530
+ (let ((t-8571 (assq n-8528 r-8489)))
+ (if t-8571
+ (cdr t-8571)
+ (if (symbol? n-8528)
+ (let ((t-8576
+ (get-global-definition-hook-4224
+ n-8528
+ id-mod-8529)))
+ (if t-8576 t-8576 '(global)))
+ '(displaced-lexical))))))
+ (let ((key-8531 (car b-8530)))
+ (if (eqv? key-8531 'lexical)
+ (let ((name-8588 (syntax->datum id-8526))
+ (var-8589 (cdr b-8530))
+ (exp-8590
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ val-8527
+ r-8489
+ w-8490
+ (let ((props-8611
+ (source-properties
+ (if (if (vector? val-8527)
+ (if (= (vector-length
+ val-8527)
+ 4)
+ (eq? (vector-ref
+ val-8527
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref val-8527 1)
+ val-8527))))
+ (if (pair? props-8611)
+ props-8611
+ #f))
+ #f
+ mod-8492
+ #f))
+ (lambda (type-8644
+ value-8645
+ form-8646
+ e-8647
+ w-8648
+ s-8649
+ mod-8650)
+ (expand-expr-4298
+ type-8644
+ value-8645
+ form-8646
+ e-8647
+ r-8489
+ w-8648
+ s-8649
+ mod-8650)))))
+ (begin
+ (if (if (struct? exp-8590)
+ (eq? (struct-vtable exp-8590)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((meta-8662 (struct-ref exp-8590 1)))
+ (if (not (assq 'name meta-8662))
+ (let ((v-8669
+ (cons (cons 'name name-8588)
+ meta-8662)))
+ (struct-set! exp-8590 1 v-8669)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 4)
+ s-8491
+ name-8588
+ var-8589
+ exp-8590)))
+ (if (eqv? key-8531 'global)
+ (let ((exp-8685
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ val-8527
+ r-8489
+ w-8490
+ (let ((props-8707
+ (source-properties
+ (if (if (vector? val-8527)
+ (if (= (vector-length
+ val-8527)
+ 4)
+ (eq? (vector-ref
+ val-8527
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref val-8527 1)
+ val-8527))))
+ (if (pair? props-8707)
+ props-8707
+ #f))
+ #f
+ mod-8492
+ #f))
+ (lambda (type-8740
+ value-8741
+ form-8742
+ e-8743
+ w-8744
+ s-8745
+ mod-8746)
+ (expand-expr-4298
+ type-8740
+ value-8741
+ form-8742
+ e-8743
+ r-8489
+ w-8744
+ s-8745
+ mod-8746)))))
+ (begin
+ (if (if (struct? exp-8685)
+ (eq? (struct-vtable exp-8685)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((meta-8758 (struct-ref exp-8685 1)))
+ (if (not (assq 'name meta-8758))
+ (let ((v-8765
+ (cons (cons 'name n-8528)
+ meta-8758)))
+ (struct-set! exp-8685 1 v-8765)))))
+ (analyze-variable-4233
+ id-mod-8529
+ n-8528
+ (lambda (mod-8773 var-8774 public?-8775)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 6)
+ s-8491
+ mod-8773
+ var-8774
+ public?-8775
+ exp-8685))
+ (lambda (var-8784)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 8)
+ s-8491
+ var-8784
+ exp-8685)))))
+ (if (eqv? key-8531 'macro)
+ (let ((p-8794 (cdr b-8530)))
+ (if (procedure-property
+ p-8794
+ 'variable-transformer)
+ (let ((e-8799
+ (expand-macro-4300
+ p-8794
+ e-8488
+ r-8489
+ w-8490
+ s-8491
+ #f
+ mod-8492)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-8799
+ r-8489
+ '(())
+ (let ((props-8810
+ (source-properties
+ (if (if (vector? e-8799)
+ (if (= (vector-length
+ e-8799)
+ 4)
+ (eq? (vector-ref
+ e-8799
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-8799 1)
+ e-8799))))
+ (if (pair? props-8810)
+ props-8810
+ #f))
+ #f
+ mod-8492
+ #f))
+ (lambda (type-8833
+ value-8834
+ form-8835
+ e-8836
+ w-8837
+ s-8838
+ mod-8839)
+ (expand-expr-4298
+ type-8833
+ value-8834
+ form-8835
+ e-8836
+ r-8489
+ w-8837
+ s-8838
+ mod-8839))))
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (wrap-4290 e-8488 w-8490 mod-8492)
+ (wrap-4290 id-8526 w-8490 id-mod-8529))))
+ (if (eqv? key-8531 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (wrap-4290 id-8526 w-8490 mod-8492))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (wrap-4290
+ (begin
+ (if (if s-8491
+ (supports-source-properties?
+ e-8488)
+ #f)
+ (set-source-properties! e-8488 s-8491))
+ e-8488)
+ w-8490
+ mod-8492))))))))))
+ tmp-8494)
+ (let ((tmp-8874
+ ($sc-dispatch e-8488 '(_ (any . each-any) any))))
+ (if tmp-8874
+ (@apply
+ (lambda (head-8878 tail-8879 val-8880)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ head-8878
+ r-8489
+ '(())
+ #f
+ #f
+ mod-8492
+ #t))
+ (lambda (type-8883
+ value-8884
+ formform-8885
+ ee-8886
+ ww-8887
+ ss-8888
+ modmod-8889)
+ (if (eqv? type-8883 'module-ref)
+ (let ((val-8895
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ val-8880
+ r-8489
+ w-8490
+ (let ((props-8962
+ (source-properties
+ (if (if (vector? val-8880)
+ (if (= (vector-length
+ val-8880)
+ 4)
+ (eq? (vector-ref
+ val-8880
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref val-8880 1)
+ val-8880))))
+ (if (pair? props-8962)
+ props-8962
+ #f))
+ #f
+ mod-8492
+ #f))
+ (lambda (type-8995
+ value-8996
+ form-8997
+ e-8998
+ w-8999
+ s-9000
+ mod-9001)
+ (expand-expr-4298
+ type-8995
+ value-8996
+ form-8997
+ e-8998
+ r-8489
+ w-8999
+ s-9000
+ mod-9001)))))
+ (call-with-values
+ (lambda ()
+ (value-8884
+ (cons head-8878 tail-8879)
+ r-8489
+ w-8490))
+ (lambda (e-8896 r-8897 w-8898 s*-8899 mod-8900)
+ (let ((tmp-8902 (list e-8896)))
+ (if (@apply
+ (lambda (e-8904)
+ (if (symbol? e-8904)
+ #t
+ (if (if (vector? e-8904)
+ (if (= (vector-length
+ e-8904)
+ 4)
+ (eq? (vector-ref
+ e-8904
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref e-8904 1))
+ #f)))
+ tmp-8902)
+ (@apply
+ (lambda (e-8934)
+ (let ((var-8939
+ (syntax->datum e-8934)))
+ (begin
+ (if (if (struct? val-8895)
+ (eq? (struct-vtable
+ val-8895)
+ (vector-ref
+ %expanded-vtables
+ 13))
+ #f)
+ (let ((meta-9017
+ (struct-ref
+ val-8895
+ 1)))
+ (if (not (assq 'name
+ meta-9017))
+ (let ((v-9026
+ (cons (cons 'name
+ var-8939)
+ meta-9017)))
+ (struct-set!
+ val-8895
+ 1
+ v-9026)))))
+ (analyze-variable-4233
+ mod-8900
+ var-8939
+ (lambda (mod-9032
+ var-9033
+ public?-9034)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 6)
+ s-8491
+ mod-9032
+ var-9033
+ public?-9034
+ val-8895))
+ (lambda (var-9045)
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 8)
+ s-8491
+ var-9045
+ val-8895))))))
+ tmp-8902)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-8896))))))
+ (let ((fun-exp-9061
+ (let ((e-9069
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-3526 top))
+ #("l-*-3527"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type
+ value
+ formform
+ ee
+ ww
+ ss
+ modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-3519"
+ "l-*-3520"
+ "l-*-3521"
+ "l-*-3522"
+ "l-*-3523"
+ "l-*-3524"
+ "l-*-3525"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("l-*-3504"
+ "l-*-3505"
+ "l-*-3506"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-3473"
+ "l-*-3474"
+ "l-*-3475"
+ "l-*-3476"
+ "l-*-3477"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))
+ head-8878)))
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-9069
+ r-8489
+ w-8490
+ (let ((props-9079
+ (source-properties
+ (if (if (vector? e-9069)
+ (if (= (vector-length
+ e-9069)
+ 4)
+ (eq? (vector-ref
+ e-9069
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref e-9069 1)
+ e-9069))))
+ (if (pair? props-9079)
+ props-9079
+ #f))
+ #f
+ mod-8492
+ #f))
+ (lambda (type-9102
+ value-9103
+ form-9104
+ e-9105
+ w-9106
+ s-9107
+ mod-9108)
+ (expand-expr-4298
+ type-9102
+ value-9103
+ form-9104
+ e-9105
+ r-8489
+ w-9106
+ s-9107
+ mod-9108)))))
+ (arg-exps-9062
+ (map (lambda (e-9112)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ e-9112
+ r-8489
+ w-8490
+ (let ((props-9127
+ (source-properties
+ (if (if (vector?
+ e-9112)
+ (if (= (vector-length
+ e-9112)
+ 4)
+ (eq? (vector-ref
+ e-9112
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ e-9112
+ 1)
+ e-9112))))
+ (if (pair? props-9127)
+ props-9127
+ #f))
+ #f
+ mod-8492
+ #f))
+ (lambda (type-9160
+ value-9161
+ form-9162
+ e-9163
+ w-9164
+ s-9165
+ mod-9166)
+ (expand-expr-4298
+ type-9160
+ value-9161
+ form-9162
+ e-9163
+ r-8489
+ w-9164
+ s-9165
+ mod-9166))))
+ (append tail-8879 (list val-8880)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ s-8491
+ fun-exp-9061
+ arg-exps-9062))))))
+ tmp-8874)
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (wrap-4290
+ (begin
+ (if (if s-8491
+ (supports-source-properties? e-8488)
+ #f)
+ (set-source-properties! e-8488 s-8491))
+ e-8488)
+ w-8490
+ mod-8492))))))))
+ (module-define!
+ (current-module)
+ '@
+ (make-syntax-transformer
+ '@
+ 'module-ref
+ (lambda (e-9208 r-9209 w-9210)
+ (let ((tmp-9212
+ ($sc-dispatch e-9208 '(_ each-any any))))
+ (if (if tmp-9212
+ (@apply
+ (lambda (mod-9215 id-9216)
+ (if (and-map id?-4261 mod-9215)
+ (if (symbol? id-9216)
+ #t
+ (if (if (vector? id-9216)
+ (if (= (vector-length id-9216) 4)
+ (eq? (vector-ref id-9216 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref id-9216 1))
+ #f))
+ #f))
+ tmp-9212)
+ #f)
+ (@apply
+ (lambda (mod-9256 id-9257)
+ (values
+ (syntax->datum id-9257)
+ r-9209
+ w-9210
+ #f
+ (syntax->datum
+ (cons '#(syntax-object
+ public
+ ((top)
+ #(ribcage
+ #(mod id)
+ #((top) (top))
+ #("l-*-3566" "l-*-3567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("l-*-3554" "l-*-3555" "l-*-3556"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))
+ mod-9256))))
+ tmp-9212)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-9208))))))
+ (global-extend-4259
+ 'module-ref
+ '@@
+ (lambda (e-9368 r-9369 w-9370)
+ (letrec*
+ ((remodulate-9371
+ (lambda (x-9433 mod-9434)
+ (if (pair? x-9433)
+ (cons (remodulate-9371 (car x-9433) mod-9434)
+ (remodulate-9371 (cdr x-9433) mod-9434))
+ (if (if (vector? x-9433)
+ (if (= (vector-length x-9433) 4)
+ (eq? (vector-ref x-9433 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((expression-9448
+ (remodulate-9371 (vector-ref x-9433 1) mod-9434))
+ (wrap-9449 (vector-ref x-9433 2)))
+ (vector
+ 'syntax-object
+ expression-9448
+ wrap-9449
+ mod-9434))
+ (if (vector? x-9433)
+ (let ((n-9457 (vector-length x-9433)))
+ (let ((v-9458 (make-vector n-9457)))
+ (letrec*
+ ((loop-9459
+ (lambda (i-9506)
+ (if (= i-9506 n-9457)
+ v-9458
+ (begin
+ (vector-set!
+ v-9458
+ i-9506
+ (remodulate-9371
+ (vector-ref x-9433 i-9506)
+ mod-9434))
+ (loop-9459 (#{1+}# i-9506)))))))
+ (loop-9459 0))))
+ x-9433))))))
+ (let ((tmp-9373
+ ($sc-dispatch e-9368 '(_ each-any any))))
+ (if (if tmp-9373
+ (@apply
+ (lambda (mod-9377 exp-9378)
+ (and-map id?-4261 mod-9377))
+ tmp-9373)
+ #f)
+ (@apply
+ (lambda (mod-9394 exp-9395)
+ (let ((mod-9396
+ (syntax->datum
+ (cons '#(syntax-object
+ private
+ ((top)
+ #(ribcage
+ #(mod exp)
+ #((top) (top))
+ #("l-*-3604" "l-*-3605"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("l-*-3577"))
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("l-*-3574" "l-*-3575" "l-*-3576"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))
+ mod-9394))))
+ (values
+ (remodulate-9371 exp-9395 mod-9396)
+ r-9369
+ w-9370
+ (let ((props-9404
+ (source-properties
+ (if (if (vector? exp-9395)
+ (if (= (vector-length exp-9395) 4)
+ (eq? (vector-ref exp-9395 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref exp-9395 1)
+ exp-9395))))
+ (if (pair? props-9404) props-9404 #f))
+ mod-9396)))
+ tmp-9373)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-9368))))))
+ (global-extend-4259
+ 'core
+ 'if
+ (lambda (e-9750 r-9751 w-9752 s-9753 mod-9754)
+ (let ((tmp-9756 ($sc-dispatch e-9750 '(_ any any))))
+ (if tmp-9756
+ (@apply
+ (lambda (test-9760 then-9761)
+ (let ((test-exp-9766
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ test-9760
+ r-9751
+ w-9752
+ (let ((props-9788
+ (source-properties
+ (if (if (vector? test-9760)
+ (if (= (vector-length
+ test-9760)
+ 4)
+ (eq? (vector-ref test-9760 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref test-9760 1)
+ test-9760))))
+ (if (pair? props-9788) props-9788 #f))
+ #f
+ mod-9754
+ #f))
+ (lambda (type-9821
+ value-9822
+ form-9823
+ e-9824
+ w-9825
+ s-9826
+ mod-9827)
+ (expand-expr-4298
+ type-9821
+ value-9822
+ form-9823
+ e-9824
+ r-9751
+ w-9825
+ s-9826
+ mod-9827))))
+ (then-exp-9767
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ then-9761
+ r-9751
+ w-9752
+ (let ((props-9845
+ (source-properties
+ (if (if (vector? then-9761)
+ (if (= (vector-length
+ then-9761)
+ 4)
+ (eq? (vector-ref then-9761 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref then-9761 1)
+ then-9761))))
+ (if (pair? props-9845) props-9845 #f))
+ #f
+ mod-9754
+ #f))
+ (lambda (type-9878
+ value-9879
+ form-9880
+ e-9881
+ w-9882
+ s-9883
+ mod-9884)
+ (expand-expr-4298
+ type-9878
+ value-9879
+ form-9880
+ e-9881
+ r-9751
+ w-9882
+ s-9883
+ mod-9884))))
+ (else-exp-9768
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ s-9753
+ test-exp-9766
+ then-exp-9767
+ else-exp-9768)))
+ tmp-9756)
+ (let ((tmp-9893 ($sc-dispatch e-9750 '(_ any any any))))
+ (if tmp-9893
+ (@apply
+ (lambda (test-9897 then-9898 else-9899)
+ (let ((test-exp-9904
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ test-9897
+ r-9751
+ w-9752
+ (let ((props-9926
+ (source-properties
+ (if (if (vector? test-9897)
+ (if (= (vector-length
+ test-9897)
+ 4)
+ (eq? (vector-ref
+ test-9897
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref test-9897 1)
+ test-9897))))
+ (if (pair? props-9926) props-9926 #f))
+ #f
+ mod-9754
+ #f))
+ (lambda (type-9959
+ value-9960
+ form-9961
+ e-9962
+ w-9963
+ s-9964
+ mod-9965)
+ (expand-expr-4298
+ type-9959
+ value-9960
+ form-9961
+ e-9962
+ r-9751
+ w-9963
+ s-9964
+ mod-9965))))
+ (then-exp-9905
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ then-9898
+ r-9751
+ w-9752
+ (let ((props-9983
+ (source-properties
+ (if (if (vector? then-9898)
+ (if (= (vector-length
+ then-9898)
+ 4)
+ (eq? (vector-ref
+ then-9898
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref then-9898 1)
+ then-9898))))
+ (if (pair? props-9983) props-9983 #f))
+ #f
+ mod-9754
+ #f))
+ (lambda (type-10016
+ value-10017
+ form-10018
+ e-10019
+ w-10020
+ s-10021
+ mod-10022)
+ (expand-expr-4298
+ type-10016
+ value-10017
+ form-10018
+ e-10019
+ r-9751
+ w-10020
+ s-10021
+ mod-10022))))
+ (else-exp-9906
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ else-9899
+ r-9751
+ w-9752
+ (let ((props-10040
+ (source-properties
+ (if (if (vector? else-9899)
+ (if (= (vector-length
+ else-9899)
+ 4)
+ (eq? (vector-ref
+ else-9899
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref else-9899 1)
+ else-9899))))
+ (if (pair? props-10040) props-10040 #f))
+ #f
+ mod-9754
+ #f))
+ (lambda (type-10073
+ value-10074
+ form-10075
+ e-10076
+ w-10077
+ s-10078
+ mod-10079)
+ (expand-expr-4298
+ type-10073
+ value-10074
+ form-10075
+ e-10076
+ r-9751
+ w-10077
+ s-10078
+ mod-10079)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ s-9753
+ test-exp-9904
+ then-exp-9905
+ else-exp-9906)))
+ tmp-9893)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-9750)))))))
+ (module-define!
+ (current-module)
+ 'with-fluids
+ (make-syntax-transformer
+ 'with-fluids
+ 'core
+ (lambda (e-10102 r-10103 w-10104 s-10105 mod-10106)
+ (let ((tmp-10108
+ ($sc-dispatch
+ e-10102
+ '(_ #(each (any any)) any . each-any))))
+ (if tmp-10108
+ (@apply
+ (lambda (fluid-10111 val-10112 b-10113 b*-10114)
+ (let ((fluids-10117
+ (map (lambda (x-10125)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ x-10125
+ r-10103
+ w-10104
+ (let ((props-10140
+ (source-properties
+ (if (if (vector? x-10125)
+ (if (= (vector-length
+ x-10125)
+ 4)
+ (eq? (vector-ref
+ x-10125
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-10125 1)
+ x-10125))))
+ (if (pair? props-10140)
+ props-10140
+ #f))
+ #f
+ mod-10106
+ #f))
+ (lambda (type-10173
+ value-10174
+ form-10175
+ e-10176
+ w-10177
+ s-10178
+ mod-10179)
+ (expand-expr-4298
+ type-10173
+ value-10174
+ form-10175
+ e-10176
+ r-10103
+ w-10177
+ s-10178
+ mod-10179))))
+ fluid-10111))
+ (vals-10118
+ (map (lambda (x-10183)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ x-10183
+ r-10103
+ w-10104
+ (let ((props-10198
+ (source-properties
+ (if (if (vector? x-10183)
+ (if (= (vector-length
+ x-10183)
+ 4)
+ (eq? (vector-ref
+ x-10183
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-10183 1)
+ x-10183))))
+ (if (pair? props-10198)
+ props-10198
+ #f))
+ #f
+ mod-10106
+ #f))
+ (lambda (type-10231
+ value-10232
+ form-10233
+ e-10234
+ w-10235
+ s-10236
+ mod-10237)
+ (expand-expr-4298
+ type-10231
+ value-10232
+ form-10233
+ e-10234
+ r-10103
+ w-10235
+ s-10236
+ mod-10237))))
+ val-10112))
+ (body-10119
+ (expand-body-4301
+ (cons b-10113 b*-10114)
+ (wrap-4290
+ (begin
+ (if (if s-10105
+ (supports-source-properties? e-10102)
+ #f)
+ (set-source-properties! e-10102 s-10105))
+ e-10102)
+ w-10104
+ mod-10106)
+ r-10103
+ w-10104
+ mod-10106)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 17)
+ s-10105
+ fluids-10117
+ vals-10118
+ body-10119)))
+ tmp-10108)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-10102))))))
+ (module-define!
+ (current-module)
+ 'begin
+ (make-syntax-transformer 'begin 'begin '()))
+ (module-define!
+ (current-module)
+ 'define
+ (make-syntax-transformer 'define 'define '()))
+ (module-define!
+ (current-module)
+ 'define-syntax
+ (make-syntax-transformer
+ 'define-syntax
+ 'define-syntax
+ '()))
+ (module-define!
+ (current-module)
+ 'define-syntax-parameter
+ (make-syntax-transformer
+ 'define-syntax-parameter
+ 'define-syntax-parameter
+ '()))
+ (module-define!
+ (current-module)
+ 'eval-when
+ (make-syntax-transformer
+ 'eval-when
+ 'eval-when
+ '()))
+ (global-extend-4259
+ 'core
+ 'syntax-case
+ (letrec*
+ ((convert-pattern-10535
+ (lambda (pattern-12018 keys-12019)
+ (letrec*
+ ((cvt*-12020
+ (lambda (p*-12644 n-12645 ids-12646)
+ (if (not (pair? p*-12644))
+ (cvt-12022 p*-12644 n-12645 ids-12646)
+ (call-with-values
+ (lambda ()
+ (cvt*-12020 (cdr p*-12644) n-12645 ids-12646))
+ (lambda (y-12649 ids-12650)
+ (call-with-values
+ (lambda ()
+ (cvt-12022 (car p*-12644) n-12645 ids-12650))
+ (lambda (x-12653 ids-12654)
+ (values
+ (cons x-12653 y-12649)
+ ids-12654))))))))
+ (v-reverse-12021
+ (lambda (x-12655)
+ (letrec*
+ ((loop-12656
+ (lambda (r-12736 x-12737)
+ (if (not (pair? x-12737))
+ (values r-12736 x-12737)
+ (loop-12656
+ (cons (car x-12737) r-12736)
+ (cdr x-12737))))))
+ (loop-12656 '() x-12655))))
+ (cvt-12022
+ (lambda (p-12025 n-12026 ids-12027)
+ (if (if (symbol? p-12025)
+ #t
+ (if (if (vector? p-12025)
+ (if (= (vector-length p-12025) 4)
+ (eq? (vector-ref p-12025 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref p-12025 1))
+ #f))
+ (if (bound-id-member?-4289 p-12025 keys-12019)
+ (values (vector 'free-id p-12025) ids-12027)
+ (if (if (eq? (if (if (vector? p-12025)
+ (if (= (vector-length p-12025) 4)
+ (eq? (vector-ref p-12025 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref p-12025 1)
+ p-12025)
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("l-*-3705"
+ "l-*-3706"
+ "l-*-3707"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("l-*-3678"
+ "l-*-3676"
+ "l-*-3674"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("l-*-3672"
+ "l-*-3673"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("l-*-3705"
+ "l-*-3706"
+ "l-*-3707"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("l-*-3678"
+ "l-*-3676"
+ "l-*-3674"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("l-*-3672" "l-*-3673"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280 p-12025 '(()))
+ (id-var-name-4280
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("l-*-3705"
+ "l-*-3706"
+ "l-*-3707"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("l-*-3678"
+ "l-*-3676"
+ "l-*-3674"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("l-*-3672" "l-*-3673"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (values '_ ids-12027)
+ (values
+ 'any
+ (cons (cons p-12025 n-12026) ids-12027))))
+ (let ((tmp-12347 ($sc-dispatch p-12025 '(any any))))
+ (if (if tmp-12347
+ (@apply
+ (lambda (x-12351 dots-12352)
+ (if (if (if (vector? dots-12352)
+ (if (= (vector-length dots-12352)
+ 4)
+ (eq? (vector-ref dots-12352 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref dots-12352 1))
+ #f)
+ (if (eq? (if (if (vector? dots-12352)
+ (if (= (vector-length
+ dots-12352)
+ 4)
+ (eq? (vector-ref
+ dots-12352
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref dots-12352 1)
+ dots-12352)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280
+ dots-12352
+ '(()))
+ (id-var-name-4280
+ '#(syntax-object
...
((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3688" "i3689"))
+ #(ribcage () () ())
#(ribcage () () ())
#(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3677"
- "i3678"
- "i3679"
- "i3680"
- "i3681"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3670"
- "i3668"
- "i3666"
- "i3664"))
+ #(x)
+ #((top))
+ #("l-*-2265"))
#(ribcage
(lambda-var-list
gen-var
strip
- chi-lambda-case
+ expand-lambda-case
lambda*-formals
- chi-simple-lambda
+ expand-simple-lambda
lambda-formals
ellipsis?
- chi-void
+ expand-void
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
source-wrap
wrap
bound-id-member?
valid-bound-ids?
bound-id=?
free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top)
+ (top)
+ (top)
+ (top)
(top))
- ("i501"
- "i499"
- "i497"
- "i495"
- "i493"
- "i491"
- "i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i430"
- "i429"
- "i427"
- "i426"
- "i425"
- "i424"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i404"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i397"
- "i395"
- "i393"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i373"
- "i371"
- "i369"
- "i368"
- "i367"
- "i365"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
- define-expansion-constructors
- and-map*)
- ((top) (top) (top) (top))
- ("i38"
- "i37"
- "i36"
- "i34")))
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
- #{keys\ 3673}#))
+ '(())))
+ #f)
+ #f))
+ tmp-12347)
+ #f)
+ (@apply
+ (lambda (x-12452 dots-12453)
+ (call-with-values
+ (lambda ()
+ (cvt-12022
+ x-12452
+ (#{1+}# n-12026)
+ ids-12027))
+ (lambda (p-12454 ids-12455)
+ (values
+ (if (eq? p-12454 'any)
+ 'each-any
+ (vector 'each p-12454))
+ ids-12455))))
+ tmp-12347)
+ (let ((tmp-12456
+ ($sc-dispatch p-12025 '(any any . any))))
+ (if (if tmp-12456
+ (@apply
+ (lambda (x-12460 dots-12461 ys-12462)
+ (if (if (if (vector? dots-12461)
+ (if (= (vector-length
+ dots-12461)
+ 4)
+ (eq? (vector-ref
+ dots-12461
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref dots-12461 1))
+ #f)
+ (if (eq? (if (if (vector? dots-12461)
+ (if (= (vector-length
+ dots-12461)
+ 4)
+ (eq? (vector-ref
+ dots-12461
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref dots-12461 1)
+ dots-12461)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280
+ dots-12461
+ '(()))
+ (id-var-name-4280
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ tmp-12456)
+ #f)
+ (@apply
+ (lambda (x-12562 dots-12563 ys-12564)
+ (call-with-values
+ (lambda ()
+ (cvt*-12020
+ ys-12564
+ n-12026
+ ids-12027))
+ (lambda (ys-12567 ids-12568)
+ (call-with-values
+ (lambda ()
+ (cvt-12022
+ x-12562
+ (#{1+}# n-12026)
+ ids-12568))
+ (lambda (x-12569 ids-12570)
+ (call-with-values
+ (lambda ()
+ (v-reverse-12021 ys-12567))
+ (lambda (ys-12603 e-12604)
+ (values
+ (vector
+ 'each+
+ x-12569
+ ys-12603
+ e-12604)
+ ids-12570))))))))
+ tmp-12456)
+ (let ((tmp-12605
+ ($sc-dispatch p-12025 '(any . any))))
+ (if tmp-12605
+ (@apply
+ (lambda (x-12609 y-12610)
+ (call-with-values
+ (lambda ()
+ (cvt-12022
+ y-12610
+ n-12026
+ ids-12027))
+ (lambda (y-12611 ids-12612)
+ (call-with-values
+ (lambda ()
+ (cvt-12022
+ x-12609
+ n-12026
+ ids-12612))
+ (lambda (x-12613 ids-12614)
+ (values
+ (cons x-12613 y-12611)
+ ids-12614))))))
+ tmp-12605)
+ (let ((tmp-12615
+ ($sc-dispatch p-12025 '())))
+ (if tmp-12615
+ (@apply
+ (lambda () (values '() ids-12027))
+ tmp-12615)
+ (let ((tmp-12619
+ ($sc-dispatch
+ p-12025
+ '#(vector each-any))))
+ (if tmp-12619
+ (@apply
+ (lambda (x-12623)
+ (call-with-values
+ (lambda ()
+ (cvt-12022
+ x-12623
+ n-12026
+ ids-12027))
+ (lambda (p-12624 ids-12625)
+ (values
+ (vector 'vector p-12624)
+ ids-12625))))
+ tmp-12619)
+ (values
+ (vector
+ 'atom
+ (strip-4310 p-12025 '(())))
+ ids-12027)))))))))))))))
+ (cvt-12022 pattern-12018 0 '()))))
+ (build-dispatch-call-10536
+ (lambda (pvars-12738 exp-12739 y-12740 r-12741 mod-12742)
+ (let ((ids-12743 (map car pvars-12738)))
+ (begin
+ (map cdr pvars-12738)
+ (let ((labels-12745 (gen-labels-4264 ids-12743))
+ (new-vars-12746 (map gen-var-4311 ids-12743)))
+ (build-application-4228
+ #f
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'apply)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'apply
+ #f))
+ (list (build-simple-lambda-4237
+ #f
+ (map syntax->datum ids-12743)
+ #f
+ new-vars-12746
+ '()
+ (expand-4297
+ exp-12739
+ (extend-env-4255
+ labels-12745
+ (map (lambda (var-13069 level-13070)
+ (cons 'syntax
+ (cons var-13069 level-13070)))
+ new-vars-12746
+ (map cdr pvars-12738))
+ r-12741)
+ (make-binding-wrap-4275
+ ids-12743
+ labels-12745
+ '(()))
+ mod-12742))
+ y-12740)))))))
+ (gen-clause-10537
+ (lambda (x-11400
+ keys-11401
+ clauses-11402
+ r-11403
+ pat-11404
+ fender-11405
+ exp-11406
+ mod-11407)
+ (call-with-values
+ (lambda ()
+ (convert-pattern-10535 pat-11404 keys-11401))
+ (lambda (p-11562 pvars-11563)
+ (if (not (distinct-bound-ids?-4288 (map car pvars-11563)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ pat-11404)
+ (if (not (and-map
+ (lambda (x-11679)
+ (not (let ((x-11683 (car x-11679)))
+ (if (if (if (vector? x-11683)
+ (if (= (vector-length
+ x-11683)
+ 4)
+ (eq? (vector-ref
+ x-11683
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-11683 1))
+ #f)
+ (if (eq? (if (if (vector? x-11683)
+ (if (= (vector-length
+ x-11683)
+ 4)
+ (eq? (vector-ref
+ x-11683
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-11683 1)
+ x-11683)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280
+ x-11683
+ '(()))
+ (id-var-name-4280
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))))
+ pvars-11563))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ pat-11404)
+ (let ((y-11759
+ (gensym
+ (string-append (symbol->string 'tmp) "-"))))
+ (build-application-4228
+ #f
+ (let ((req-11897 (list 'tmp))
+ (vars-11899 (list y-11759))
+ (exp-11901
+ (let ((y-11918
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ y-11759)))
+ (let ((test-exp-11922
+ (let ((tmp-11931
+ ($sc-dispatch
+ fender-11405
+ '#(atom #t))))
+ (if tmp-11931
+ (@apply
+ (lambda () y-11918)
+ tmp-11931)
+ (let ((then-exp-11946
+ (build-dispatch-call-10536
+ pvars-11563
+ fender-11405
+ y-11918
+ r-11403
+ mod-11407))
+ (else-exp-11947
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #f)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 10)
+ #f
+ y-11918
+ then-exp-11946
+ else-exp-11947)))))
+ (then-exp-11923
+ (build-dispatch-call-10536
+ pvars-11563
+ exp-11406
+ y-11918
+ r-11403
+ mod-11407))
+ (else-exp-11924
+ (gen-syntax-case-10538
+ x-11400
+ keys-11401
+ clauses-11402
+ r-11403
+ mod-11407)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #f
+ test-exp-11922
+ then-exp-11923
+ else-exp-11924)))))
+ (let ((body-11906
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ req-11897
+ #f
+ #f
+ #f
+ '()
+ vars-11899
+ exp-11901
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ body-11906)))
+ (list (if (eq? p-11562 'any)
+ (let ((fun-exp-11967
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'list)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'list
+ #f)))
+ (arg-exps-11968 (list x-11400)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ fun-exp-11967
+ arg-exps-11968))
+ (let ((fun-exp-11991
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ '$sc-dispatch)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ '$sc-dispatch
+ #f)))
+ (arg-exps-11992
+ (list x-11400
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ p-11562))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ fun-exp-11991
+ arg-exps-11992))))))))))))
+ (gen-syntax-case-10538
+ (lambda (x-10821
+ keys-10822
+ clauses-10823
+ r-10824
+ mod-10825)
+ (if (null? clauses-10823)
+ (let ((fun-exp-10830
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'syntax-violation)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'syntax-violation
+ #f)))
+ (arg-exps-10831
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #f)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ "source expression failed to match any pattern")
+ x-10821)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ fun-exp-10830
+ arg-exps-10831))
+ (let ((tmp-10864 (car clauses-10823)))
+ (let ((tmp-10865 ($sc-dispatch tmp-10864 '(any any))))
+ (if tmp-10865
+ (@apply
+ (lambda (pat-10867 exp-10868)
+ (if (if (if (symbol? pat-10867)
+ #t
+ (if (if (vector? pat-10867)
+ (if (= (vector-length pat-10867) 4)
+ (eq? (vector-ref pat-10867 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref pat-10867 1))
+ #f))
+ (and-map
+ (lambda (x-10895)
+ (not (if (eq? (if (if (vector? pat-10867)
+ (if (= (vector-length
+ pat-10867)
+ 4)
+ (eq? (vector-ref
+ pat-10867
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref pat-10867 1)
+ pat-10867)
+ (if (if (vector? x-10895)
+ (if (= (vector-length
+ x-10895)
+ 4)
+ (eq? (vector-ref
+ x-10895
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-10895 1)
+ x-10895))
+ (eq? (id-var-name-4280
+ pat-10867
+ '(()))
+ (id-var-name-4280
+ x-10895
+ '(())))
+ #f)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("l-*-3859" "l-*-3860"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("l-*-3848"
+ "l-*-3849"
+ "l-*-3850"
+ "l-*-3851"
+ "l-*-3852"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))
+ keys-10822))
+ #f)
+ (if (if (eq? (if (if (vector? pat-10867)
+ (if (= (vector-length
+ pat-10867)
+ 4)
+ (eq? (vector-ref pat-10867 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref pat-10867 1)
+ pat-10867)
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("l-*-3859"
+ "l-*-3860"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-3848"
+ "l-*-3849"
+ "l-*-3850"
+ "l-*-3851"
+ "l-*-3852"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("l-*-3859" "l-*-3860"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-3848"
+ "l-*-3849"
+ "l-*-3850"
+ "l-*-3851"
+ "l-*-3852"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280 pat-10867 '(()))
+ (id-var-name-4280
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("l-*-3859" "l-*-3860"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-3848"
+ "l-*-3849"
+ "l-*-3850"
+ "l-*-3851"
+ "l-*-3852"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("l-*-3668"
+ "l-*-3666"
+ "l-*-3664"
+ "l-*-3662"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47" "l-*-46" "l-*-45")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ exp-10868
+ r-10824
+ '(())
+ (let ((props-11041
+ (source-properties
+ (if (if (vector? exp-10868)
+ (if (= (vector-length
+ exp-10868)
+ 4)
+ (eq? (vector-ref
+ exp-10868
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref exp-10868 1)
+ exp-10868))))
+ (if (pair? props-11041) props-11041 #f))
+ #f
+ mod-10825
+ #f))
+ (lambda (type-11074
+ value-11075
+ form-11076
+ e-11077
+ w-11078
+ s-11079
+ mod-11080)
+ (expand-expr-4298
+ type-11074
+ value-11075
+ form-11076
+ e-11077
+ r-10824
+ w-11078
+ s-11079
+ mod-11080)))
+ (let ((labels-11084
+ (list (string-append
+ "l-"
+ (session-id-4222)
+ (symbol->string (gensym "-")))))
+ (var-11085
+ (let ((id-11123
+ (if (if (vector? pat-10867)
+ (if (= (vector-length
+ pat-10867)
+ 4)
+ (eq? (vector-ref
+ pat-10867
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref pat-10867 1)
+ pat-10867)))
+ (gensym
+ (string-append
+ (symbol->string id-11123)
+ "-")))))
+ (build-application-4228
+ #f
+ (build-simple-lambda-4237
+ #f
+ (list (syntax->datum pat-10867))
+ #f
+ (list var-11085)
+ '()
+ (expand-4297
+ exp-10868
+ (extend-env-4255
+ labels-11084
+ (list (cons 'syntax
+ (cons var-11085 0)))
+ r-10824)
+ (make-binding-wrap-4275
+ (list pat-10867)
+ labels-11084
+ '(()))
+ mod-10825))
+ (list x-10821))))
+ (gen-clause-10537
+ x-10821
+ keys-10822
+ (cdr clauses-10823)
+ r-10824
+ pat-10867
+ #t
+ exp-10868
+ mod-10825)))
+ tmp-10865)
+ (let ((tmp-11393
+ ($sc-dispatch tmp-10864 '(any any any))))
+ (if tmp-11393
+ (@apply
+ (lambda (pat-11395 fender-11396 exp-11397)
+ (gen-clause-10537
+ x-10821
+ keys-10822
+ (cdr clauses-10823)
+ r-10824
+ pat-11395
+ fender-11396
+ exp-11397
+ mod-10825))
+ tmp-11393)
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car clauses-10823)))))))))))
+ (lambda (e-10539 r-10540 w-10541 s-10542 mod-10543)
+ (let ((e-10544
+ (wrap-4290
+ (begin
+ (if (if s-10542
+ (supports-source-properties? e-10539)
+ #f)
+ (set-source-properties! e-10539 s-10542))
+ e-10539)
+ w-10541
+ mod-10543)))
+ (let ((tmp-10546
+ ($sc-dispatch
+ e-10544
+ '(_ any each-any . each-any))))
+ (if tmp-10546
+ (@apply
+ (lambda (val-10571 key-10572 m-10573)
+ (if (and-map
+ (lambda (x-10574)
+ (if (if (symbol? x-10574)
+ #t
+ (if (if (vector? x-10574)
+ (if (= (vector-length x-10574) 4)
+ (eq? (vector-ref x-10574 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-10574 1))
+ #f))
+ (not (if (if (if (vector? x-10574)
+ (if (= (vector-length x-10574)
+ 4)
+ (eq? (vector-ref x-10574 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-10574 1))
+ #f)
+ (if (eq? (if (if (vector? x-10574)
+ (if (= (vector-length
+ x-10574)
+ 4)
+ (eq? (vector-ref
+ x-10574
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-10574 1)
+ x-10574)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))))
+ (eq? (id-var-name-4280 x-10574 '(()))
+ (id-var-name-4280
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-2265"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ with-transformer-environment
+ transformer-environment
+ resolve-identifier
+ locally-bound-identifiers
+ 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
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ session-id
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #f))
+ key-10572)
+ (let ((x-10700
+ (gensym
+ (string-append (symbol->string 'tmp) "-"))))
+ (let ((fun-exp-10705
+ (let ((req-10714 (list 'tmp))
+ (vars-10716 (list x-10700))
+ (exp-10718
+ (gen-syntax-case-10538
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ x-10700)
+ key-10572
+ m-10573
+ r-10540
+ mod-10543)))
+ (let ((body-10723
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ req-10714
+ #f
+ #f
+ #f
+ '()
+ vars-10716
+ exp-10718
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ body-10723))))
+ (arg-exps-10706
+ (list (call-with-values
+ (lambda ()
+ (syntax-type-4296
+ val-10571
+ r-10540
+ '(())
+ (let ((props-10772
+ (source-properties
+ (if (if (vector?
+ val-10571)
+ (if (= (vector-length
+ val-10571)
+ 4)
+ (eq? (vector-ref
+ val-10571
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ val-10571
+ 1)
+ val-10571))))
+ (if (pair? props-10772)
+ props-10772
+ #f))
+ #f
+ mod-10543
+ #f))
+ (lambda (type-10805
+ value-10806
+ form-10807
+ e-10808
+ w-10809
+ s-10810
+ mod-10811)
+ (expand-expr-4298
+ type-10805
+ value-10806
+ form-10807
+ e-10808
+ r-10540
+ w-10809
+ s-10810
+ mod-10811))))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ s-10542
+ fun-exp-10705
+ arg-exps-10706)))
+ (syntax-violation
+ 'syntax-case
+ "invalid literals list"
+ e-10544)))
+ tmp-10546)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e-10544)))))))
+ (set! macroexpand
+ (lambda*
+ (x-13143
+ #:optional
+ (m-13144 'e)
+ (esew-13145 '(eval)))
+ (expand-top-sequence-4293
+ (list x-13143)
+ '()
+ '((top))
+ #f
+ m-13144
+ esew-13145
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
+ (lambda (x-13148)
+ (if (if (vector? x-13148)
+ (if (= (vector-length x-13148) 4)
+ (eq? (vector-ref x-13148 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-13148 1))
+ #f)))
+ (set! datum->syntax
+ (lambda (id-13173 datum-13174)
+ (let ((wrap-13179 (vector-ref id-13173 2))
+ (module-13180 (vector-ref id-13173 3)))
+ (vector
+ 'syntax-object
+ datum-13174
+ wrap-13179
+ module-13180))))
+ (set! syntax->datum
+ (lambda (x-13187) (strip-4310 x-13187 '(()))))
+ (set! syntax-source
+ (lambda (x-13190)
+ (let ((props-13195
+ (source-properties
+ (if (if (vector? x-13190)
+ (if (= (vector-length x-13190) 4)
+ (eq? (vector-ref x-13190 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-13190 1)
+ x-13190))))
+ (if (pair? props-13195) props-13195 #f))))
+ (set! generate-temporaries
+ (lambda (ls-13218)
+ (begin
+ (if (not (list? ls-13218))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
+ ls-13218))
+ (let ((mod-13226
+ (cons 'hygiene (module-name (current-module)))))
+ (map (lambda (x-13227)
+ (wrap-4290 (gensym "t-") '((top)) mod-13226))
+ ls-13218)))))
+ (set! free-identifier=?
+ (lambda (x-13231 y-13232)
+ (begin
+ (if (not (if (if (vector? x-13231)
+ (if (= (vector-length x-13231) 4)
+ (eq? (vector-ref x-13231 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-13231 1))
+ #f))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ x-13231))
+ (if (not (if (if (vector? y-13232)
+ (if (= (vector-length y-13232) 4)
+ (eq? (vector-ref y-13232 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref y-13232 1))
+ #f))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ y-13232))
+ (if (eq? (if (if (vector? x-13231)
+ (if (= (vector-length x-13231) 4)
+ (eq? (vector-ref x-13231 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref x-13231 1)
+ x-13231)
+ (if (if (vector? y-13232)
+ (if (= (vector-length y-13232) 4)
+ (eq? (vector-ref y-13232 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref y-13232 1)
+ y-13232))
+ (eq? (id-var-name-4280 x-13231 '(()))
+ (id-var-name-4280 y-13232 '(())))
+ #f))))
+ (set! bound-identifier=?
+ (lambda (x-13382 y-13383)
+ (begin
+ (if (not (if (if (vector? x-13382)
+ (if (= (vector-length x-13382) 4)
+ (eq? (vector-ref x-13382 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref x-13382 1))
+ #f))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ x-13382))
+ (if (not (if (if (vector? y-13383)
+ (if (= (vector-length y-13383) 4)
+ (eq? (vector-ref y-13383 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref y-13383 1))
+ #f))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ y-13383))
+ (if (if (if (vector? x-13382)
+ (if (= (vector-length x-13382) 4)
+ (eq? (vector-ref x-13382 0) 'syntax-object)
+ #f)
+ #f)
+ (if (vector? y-13383)
+ (if (= (vector-length y-13383) 4)
+ (eq? (vector-ref y-13383 0) 'syntax-object)
+ #f)
+ #f)
+ #f)
+ (if (eq? (vector-ref x-13382 1)
+ (vector-ref y-13383 1))
+ (same-marks?-4279
+ (car (vector-ref x-13382 2))
+ (car (vector-ref y-13383 2)))
+ #f)
+ (eq? x-13382 y-13383)))))
+ (set! syntax-violation
+ (lambda*
+ (who-13516
+ message-13517
+ form-13518
+ #:optional
+ (subform-13519 #f))
+ (begin
+ (if (not (if (not who-13516)
+ (not who-13516)
+ (let ((t-13537 (string? who-13516)))
+ (if t-13537 t-13537 (symbol? who-13516)))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ who-13516))
+ (if (not (string? message-13517))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ message-13517))
+ (throw 'syntax-error
+ who-13516
+ message-13517
+ (let ((t-13568
+ (let ((props-13627
+ (source-properties
+ (if (if (vector? subform-13519)
+ (if (= (vector-length subform-13519)
+ 4)
+ (eq? (vector-ref subform-13519 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref subform-13519 1)
+ subform-13519))))
+ (if (pair? props-13627) props-13627 #f))))
+ (if t-13568
+ t-13568
+ (let ((props-13600
+ (source-properties
+ (if (if (vector? form-13518)
+ (if (= (vector-length form-13518) 4)
+ (eq? (vector-ref form-13518 0)
+ 'syntax-object)
+ #f)
#f)
- (begin
- (let ((#{labels\ 3698}#
- (list (#{gen-label\ 403}#)))
- (#{var\ 3699}#
- (#{gen-var\ 500}# #{pat\ 3690}#)))
- (#{build-application\ 309}#
- #f
- (#{build-simple-lambda\ 329}#
- #f
- (list (syntax->datum #{pat\ 3690}#))
- #f
- (list #{var\ 3699}#)
- '()
- (#{chi\ 472}#
- #{exp\ 3691}#
- (#{extend-env\ 375}#
- #{labels\ 3698}#
- (list (cons 'syntax
- (cons #{var\ 3699}#
- 0)))
- #{r\ 3675}#)
- (#{make-binding-wrap\ 434}#
- (list #{pat\ 3690}#)
- #{labels\ 3698}#
- '(()))
- #{mod\ 3676}#))
- (list #{x\ 3672}#))))
- (#{gen-clause\ 3669}#
- #{x\ 3672}#
- #{keys\ 3673}#
- (cdr #{clauses\ 3674}#)
- #{r\ 3675}#
- #{pat\ 3690}#
- #t
- #{exp\ 3691}#
- #{mod\ 3676}#)))
- #{tmp\ 3687}#)
- (let ((#{tmp\ 3705}#
- ($sc-dispatch
- #{tmp\ 3686}#
- '(any any any))))
- (if #{tmp\ 3705}#
- (@apply
- (lambda (#{pat\ 3709}#
- #{fender\ 3710}#
- #{exp\ 3711}#)
- (#{gen-clause\ 3669}#
- #{x\ 3672}#
- #{keys\ 3673}#
- (cdr #{clauses\ 3674}#)
- #{r\ 3675}#
- #{pat\ 3709}#
- #{fender\ 3710}#
- #{exp\ 3711}#
- #{mod\ 3676}#))
- #{tmp\ 3705}#)
- (let ((#{_\ 3713}# #{tmp\ 3686}#))
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses\ 3674}#)))))))))))
- (#{gen-clause\ 3669}#
- (lambda (#{x\ 3714}#
- #{keys\ 3715}#
- #{clauses\ 3716}#
- #{r\ 3717}#
- #{pat\ 3718}#
- #{fender\ 3719}#
- #{exp\ 3720}#
- #{mod\ 3721}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern\ 3665}#
- #{pat\ 3718}#
- #{keys\ 3715}#))
- (lambda (#{p\ 3730}# #{pvars\ 3731}#)
- (if (not (#{distinct-bound-ids?\ 452}#
- (map car #{pvars\ 3731}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat\ 3718}#)
- (if (not (and-map
- (lambda (#{x\ 3738}#)
- (not (#{ellipsis?\ 488}#
- (car #{x\ 3738}#))))
- #{pvars\ 3731}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat\ 3718}#)
- (begin
- (let ((#{y\ 3742}#
- (#{gen-var\ 500}# (quote tmp))))
- (#{build-application\ 309}#
- #f
- (#{build-simple-lambda\ 329}#
- #f
- (list (quote tmp))
- #f
- (list #{y\ 3742}#)
- '()
- (begin
- (let ((#{y\ 3746}#
- (#{build-lexical-reference\ 315}#
- 'value
- #f
- 'tmp
- #{y\ 3742}#)))
- (#{build-conditional\ 311}#
- #f
- (let ((#{tmp\ 3749}#
- #{fender\ 3719}#))
- (let ((#{tmp\ 3750}#
- ($sc-dispatch
- #{tmp\ 3749}#
- '#(atom #t))))
- (if #{tmp\ 3750}#
- (@apply
- (lambda () #{y\ 3746}#)
- #{tmp\ 3750}#)
- (let ((#{_\ 3752}#
- #{tmp\ 3749}#))
- (#{build-conditional\ 311}#
- #f
- #{y\ 3746}#
- (#{build-dispatch-call\ 3667}#
- #{pvars\ 3731}#
- #{fender\ 3719}#
- #{y\ 3746}#
- #{r\ 3717}#
- #{mod\ 3721}#)
- (#{build-data\ 337}#
- #f
- #f))))))
- (#{build-dispatch-call\ 3667}#
- #{pvars\ 3731}#
- #{exp\ 3720}#
- #{y\ 3746}#
- #{r\ 3717}#
- #{mod\ 3721}#)
- (#{gen-syntax-case\ 3671}#
- #{x\ 3714}#
- #{keys\ 3715}#
- #{clauses\ 3716}#
- #{r\ 3717}#
- #{mod\ 3721}#)))))
- (list (if (eq? #{p\ 3730}# (quote any))
- (#{build-application\ 309}#
- #f
- (#{build-primref\ 335}#
- #f
- 'list)
- (list #{x\ 3714}#))
- (#{build-application\ 309}#
- #f
- (#{build-primref\ 335}#
- #f
- '$sc-dispatch)
- (list #{x\ 3714}#
- (#{build-data\ 337}#
- #f
- #{p\ 3730}#))))))))))))))
- (#{build-dispatch-call\ 3667}#
- (lambda (#{pvars\ 3760}#
- #{exp\ 3761}#
- #{y\ 3762}#
- #{r\ 3763}#
- #{mod\ 3764}#)
- (begin
- (map cdr #{pvars\ 3760}#)
- (let ((#{ids\ 3772}# (map car #{pvars\ 3760}#)))
- (begin
- (let ((#{labels\ 3776}#
- (#{gen-labels\ 405}# #{ids\ 3772}#))
- (#{new-vars\ 3777}#
- (map #{gen-var\ 500}# #{ids\ 3772}#)))
- (#{build-application\ 309}#
- #f
- (#{build-primref\ 335}# #f (quote apply))
- (list (#{build-simple-lambda\ 329}#
- #f
- (map syntax->datum #{ids\ 3772}#)
- #f
- #{new-vars\ 3777}#
- '()
- (#{chi\ 472}#
- #{exp\ 3761}#
- (#{extend-env\ 375}#
- #{labels\ 3776}#
- (map (lambda (#{var\ 3781}#
- #{level\ 3782}#)
- (cons 'syntax
- (cons #{var\ 3781}#
- #{level\ 3782}#)))
- #{new-vars\ 3777}#
- (map cdr #{pvars\ 3760}#))
- #{r\ 3763}#)
- (#{make-binding-wrap\ 434}#
- #{ids\ 3772}#
- #{labels\ 3776}#
- '(()))
- #{mod\ 3764}#))
- #{y\ 3762}#))))))))
- (#{convert-pattern\ 3665}#
- (lambda (#{pattern\ 3788}# #{keys\ 3789}#)
- (letrec*
- ((#{cvt\ 3795}#
- (lambda (#{p\ 3796}# #{n\ 3797}# #{ids\ 3798}#)
- (if (#{id?\ 387}# #{p\ 3796}#)
- (if (#{bound-id-member?\ 454}#
- #{p\ 3796}#
- #{keys\ 3789}#)
- (values
- (vector (quote free-id) #{p\ 3796}#)
- #{ids\ 3798}#)
- (values
- 'any
- (cons (cons #{p\ 3796}# #{n\ 3797}#)
- #{ids\ 3798}#)))
- (let ((#{tmp\ 3802}# #{p\ 3796}#))
- (let ((#{tmp\ 3803}#
- ($sc-dispatch
- #{tmp\ 3802}#
- '(any any))))
- (if (if #{tmp\ 3803}#
- (@apply
- (lambda (#{x\ 3806}# #{dots\ 3807}#)
- (#{ellipsis?\ 488}#
- #{dots\ 3807}#))
- #{tmp\ 3803}#)
+ (vector-ref form-13518 1)
+ form-13518))))
+ (if (pair? props-13600) props-13600 #f))))
+ (strip-4310 form-13518 '(()))
+ (if subform-13519
+ (strip-4310 subform-13519 '(()))
+ #f)))))
+ (letrec*
+ ((syntax-local-binding-13655
+ (lambda (id-13788)
+ (begin
+ (if (not (if (if (vector? id-13788)
+ (if (= (vector-length id-13788) 4)
+ (eq? (vector-ref id-13788 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref id-13788 1))
+ #f))
+ (syntax-violation
+ 'syntax-local-binding
+ "invalid argument"
+ id-13788))
+ ((fluid-ref transformer-environment-4283)
+ (lambda (e-13828
+ r-13829
+ w-13830
+ s-13831
+ rib-13832
+ mod-13833)
+ (call-with-values
+ (lambda ()
+ (let ((id-13836 (vector-ref id-13788 1))
+ (w-13837
+ (let ((w-13848 (vector-ref id-13788 2)))
+ (let ((ms-13849 (car w-13848))
+ (s-13850 (cdr w-13848)))
+ (if (if (pair? ms-13849)
+ (eq? (car ms-13849) #f)
#f)
- (@apply
- (lambda (#{x\ 3810}# #{dots\ 3811}#)
+ (cons (cdr ms-13849)
+ (if rib-13832
+ (cons rib-13832 (cdr s-13850))
+ (cdr s-13850)))
+ (cons ms-13849
+ (if rib-13832
+ (cons rib-13832 s-13850)
+ s-13850))))))
+ (mod-13839 (vector-ref id-13788 3)))
+ (let ((n-13842 (id-var-name-4280 id-13836 w-13837)))
+ (if (symbol? n-13842)
+ (let ((mod-13856
+ (if (if (vector? id-13836)
+ (if (= (vector-length id-13836) 4)
+ (eq? (vector-ref id-13836 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-13836 3)
+ mod-13839)))
+ (let ((b-13857
+ (let ((t-13858
+ (get-global-definition-hook-4224
+ n-13842
+ mod-13856)))
+ (if t-13858 t-13858 '(global)))))
+ (if (eq? (car b-13857) 'global)
+ (values 'global n-13842 mod-13856)
+ (values
+ (car b-13857)
+ (cdr b-13857)
+ mod-13856))))
+ (if (string? n-13842)
+ (let ((mod-13884
+ (if (if (vector? id-13836)
+ (if (= (vector-length id-13836) 4)
+ (eq? (vector-ref id-13836 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref id-13836 3)
+ mod-13839)))
+ (let ((b-13885
+ (let ((t-13886
+ (assq-ref r-13829 n-13842)))
+ (if t-13886
+ t-13886
+ '(displaced-lexical)))))
+ (values
+ (car b-13885)
+ (cdr b-13885)
+ mod-13884)))
+ (error "unexpected id-var-name"
+ id-13836
+ w-13837
+ n-13842))))))
+ (lambda (type-13899 value-13900 mod-13901)
+ (if (eqv? type-13899 'lexical)
+ (values 'lexical value-13900)
+ (if (eqv? type-13899 'macro)
+ (values 'macro value-13900)
+ (if (eqv? type-13899 'syntax)
+ (values 'pattern-variable value-13900)
+ (if (eqv? type-13899 'displaced-lexical)
+ (values 'displaced-lexical #f)
+ (if (eqv? type-13899 'global)
+ (values
+ 'global
+ (cons value-13900 (cdr mod-13901)))
+ (values 'other #f)))))))))))))
+ (syntax-locally-bound-identifiers-13656
+ (lambda (id-13923)
+ (begin
+ (if (not (if (if (vector? id-13923)
+ (if (= (vector-length id-13923) 4)
+ (eq? (vector-ref id-13923 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref id-13923 1))
+ #f))
+ (syntax-violation
+ 'syntax-locally-bound-identifiers
+ "invalid argument"
+ id-13923))
+ (locally-bound-identifiers-4281
+ (vector-ref id-13923 2)
+ (vector-ref id-13923 3))))))
+ (begin
+ (define!
+ 'syntax-module
+ (lambda (id-13658)
+ (begin
+ (if (not (if (if (vector? id-13658)
+ (if (= (vector-length id-13658) 4)
+ (eq? (vector-ref id-13658 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref id-13658 1))
+ #f))
+ (syntax-violation
+ 'syntax-module
+ "invalid argument"
+ id-13658))
+ (cdr (vector-ref id-13658 3)))))
+ (define!
+ 'syntax-local-binding
+ syntax-local-binding-13655)
+ (define!
+ 'syntax-locally-bound-identifiers
+ syntax-locally-bound-identifiers-13656)))
+ (letrec*
+ ((match-each-14030
+ (lambda (e-14617 p-14618 w-14619 mod-14620)
+ (if (pair? e-14617)
+ (let ((first-14621
+ (match-14036
+ (car e-14617)
+ p-14618
+ w-14619
+ '()
+ mod-14620)))
+ (if first-14621
+ (let ((rest-14624
+ (match-each-14030
+ (cdr e-14617)
+ p-14618
+ w-14619
+ mod-14620)))
+ (if rest-14624 (cons first-14621 rest-14624) #f))
+ #f))
+ (if (null? e-14617)
+ '()
+ (if (if (vector? e-14617)
+ (if (= (vector-length e-14617) 4)
+ (eq? (vector-ref e-14617 0) 'syntax-object)
+ #f)
+ #f)
+ (match-each-14030
+ (vector-ref e-14617 1)
+ p-14618
+ (join-wraps-4277 w-14619 (vector-ref e-14617 2))
+ (vector-ref e-14617 3))
+ #f)))))
+ (match-each-any-14032
+ (lambda (e-14652 w-14653 mod-14654)
+ (if (pair? e-14652)
+ (let ((l-14655
+ (match-each-any-14032
+ (cdr e-14652)
+ w-14653
+ mod-14654)))
+ (if l-14655
+ (cons (wrap-4290 (car e-14652) w-14653 mod-14654)
+ l-14655)
+ #f))
+ (if (null? e-14652)
+ '()
+ (if (if (vector? e-14652)
+ (if (= (vector-length e-14652) 4)
+ (eq? (vector-ref e-14652 0) 'syntax-object)
+ #f)
+ #f)
+ (match-each-any-14032
+ (vector-ref e-14652 1)
+ (join-wraps-4277 w-14653 (vector-ref e-14652 2))
+ mod-14654)
+ #f)))))
+ (match-empty-14033
+ (lambda (p-14679 r-14680)
+ (if (null? p-14679)
+ r-14680
+ (if (eq? p-14679 '_)
+ r-14680
+ (if (eq? p-14679 'any)
+ (cons '() r-14680)
+ (if (pair? p-14679)
+ (match-empty-14033
+ (car p-14679)
+ (match-empty-14033 (cdr p-14679) r-14680))
+ (if (eq? p-14679 'each-any)
+ (cons '() r-14680)
+ (let ((key-14681 (vector-ref p-14679 0)))
+ (if (eqv? key-14681 'each)
+ (match-empty-14033
+ (vector-ref p-14679 1)
+ r-14680)
+ (if (eqv? key-14681 'each+)
+ (match-empty-14033
+ (vector-ref p-14679 1)
+ (match-empty-14033
+ (reverse (vector-ref p-14679 2))
+ (match-empty-14033
+ (vector-ref p-14679 3)
+ r-14680)))
+ (if (if (eqv? key-14681 'free-id)
+ #t
+ (eqv? key-14681 'atom))
+ r-14680
+ (if (eqv? key-14681 'vector)
+ (match-empty-14033
+ (vector-ref p-14679 1)
+ r-14680)))))))))))))
+ (combine-14034
+ (lambda (r*-14700 r-14701)
+ (if (null? (car r*-14700))
+ r-14701
+ (cons (map car r*-14700)
+ (combine-14034 (map cdr r*-14700) r-14701)))))
+ (match*-14035
+ (lambda (e-14065 p-14066 w-14067 r-14068 mod-14069)
+ (if (null? p-14066)
+ (if (null? e-14065) r-14068 #f)
+ (if (pair? p-14066)
+ (if (pair? e-14065)
+ (match-14036
+ (car e-14065)
+ (car p-14066)
+ w-14067
+ (match-14036
+ (cdr e-14065)
+ (cdr p-14066)
+ w-14067
+ r-14068
+ mod-14069)
+ mod-14069)
+ #f)
+ (if (eq? p-14066 'each-any)
+ (let ((l-14074
+ (match-each-any-14032 e-14065 w-14067 mod-14069)))
+ (if l-14074 (cons l-14074 r-14068) #f))
+ (let ((key-14079 (vector-ref p-14066 0)))
+ (if (eqv? key-14079 'each)
+ (if (null? e-14065)
+ (match-empty-14033
+ (vector-ref p-14066 1)
+ r-14068)
+ (let ((l-14086
+ (match-each-14030
+ e-14065
+ (vector-ref p-14066 1)
+ w-14067
+ mod-14069)))
+ (if l-14086
+ (letrec*
+ ((collect-14089
+ (lambda (l-14140)
+ (if (null? (car l-14140))
+ r-14068
+ (cons (map car l-14140)
+ (collect-14089
+ (map cdr l-14140)))))))
+ (collect-14089 l-14086))
+ #f)))
+ (if (eqv? key-14079 'each+)
+ (call-with-values
+ (lambda ()
+ (let ((x-pat-14149 (vector-ref p-14066 1))
+ (y-pat-14150 (vector-ref p-14066 2))
+ (z-pat-14151 (vector-ref p-14066 3)))
+ (letrec*
+ ((f-14155
+ (lambda (e-14157 w-14158)
+ (if (pair? e-14157)
(call-with-values
(lambda ()
- (#{cvt\ 3795}#
- #{x\ 3810}#
- (#{fx+\ 288}# #{n\ 3797}# 1)
- #{ids\ 3798}#))
- (lambda (#{p\ 3812}# #{ids\ 3813}#)
- (values
- (if (eq? #{p\ 3812}# (quote any))
- 'each-any
- (vector
- 'each
- #{p\ 3812}#))
- #{ids\ 3813}#))))
- #{tmp\ 3803}#)
- (let ((#{tmp\ 3816}#
- ($sc-dispatch
- #{tmp\ 3802}#
- '(any any . each-any))))
- (if (if #{tmp\ 3816}#
- (@apply
- (lambda (#{x\ 3820}#
- #{dots\ 3821}#
- #{ys\ 3822}#)
- (#{ellipsis?\ 488}#
- #{dots\ 3821}#))
- #{tmp\ 3816}#)
- #f)
- (@apply
- (lambda (#{x\ 3826}#
- #{dots\ 3827}#
- #{ys\ 3828}#)
- (call-with-values
- (lambda ()
- (#{cvt*\ 3793}#
- #{ys\ 3828}#
- #{n\ 3797}#
- #{ids\ 3798}#))
- (lambda (#{ys\ 3830}#
- #{ids\ 3831}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3795}#
- #{x\ 3826}#
- (1+ #{n\ 3797}#)
- #{ids\ 3831}#))
- (lambda (#{x\ 3834}#
- #{ids\ 3835}#)
- (values
- (list->vector
- (cons 'each+
- (cons #{x\ 3834}#
- (cons (reverse
- #{ys\ 3830}#)
- '(())))))
- #{ids\ 3835}#))))))
- #{tmp\ 3816}#)
- (let ((#{tmp\ 3839}#
- ($sc-dispatch
- #{tmp\ 3802}#
- '(any . any))))
- (if #{tmp\ 3839}#
- (@apply
- (lambda (#{x\ 3842}# #{y\ 3843}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3795}#
- #{y\ 3843}#
- #{n\ 3797}#
- #{ids\ 3798}#))
- (lambda (#{y\ 3844}#
- #{ids\ 3845}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3795}#
- #{x\ 3842}#
- #{n\ 3797}#
- #{ids\ 3845}#))
- (lambda (#{x\ 3848}#
- #{ids\ 3849}#)
- (values
- (cons #{x\ 3848}#
- #{y\ 3844}#)
- #{ids\ 3849}#))))))
- #{tmp\ 3839}#)
- (let ((#{tmp\ 3852}#
- ($sc-dispatch
- #{tmp\ 3802}#
- '())))
- (if #{tmp\ 3852}#
- (@apply
- (lambda ()
+ (f-14155 (cdr e-14157) w-14158))
+ (lambda (xr*-14159
+ y-pat-14160
+ r-14161)
+ (if r-14161
+ (if (null? y-pat-14160)
+ (let ((xr-14162
+ (match-14036
+ (car e-14157)
+ x-pat-14149
+ w-14158
+ '()
+ mod-14069)))
+ (if xr-14162
(values
- '()
- #{ids\ 3798}#))
- #{tmp\ 3852}#)
- (let ((#{tmp\ 3853}#
- ($sc-dispatch
- #{tmp\ 3802}#
- '#(vector
- each-any))))
- (if #{tmp\ 3853}#
- (@apply
- (lambda (#{x\ 3855}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3795}#
- #{x\ 3855}#
- #{n\ 3797}#
- #{ids\ 3798}#))
- (lambda (#{p\ 3857}#
- #{ids\ 3858}#)
- (values
- (vector
- 'vector
- #{p\ 3857}#)
- #{ids\ 3858}#))))
- #{tmp\ 3853}#)
- (let ((#{x\ 3862}#
- #{tmp\ 3802}#))
- (values
- (vector
- 'atom
- (#{strip\ 498}#
- #{p\ 3796}#
- '(())))
- #{ids\ 3798}#))))))))))))))))
- (#{cvt*\ 3793}#
- (lambda (#{p*\ 3864}# #{n\ 3865}# #{ids\ 3866}#)
- (if (null? #{p*\ 3864}#)
- (values (quote ()) #{ids\ 3866}#)
- (call-with-values
- (lambda ()
- (#{cvt*\ 3793}#
- (cdr #{p*\ 3864}#)
- #{n\ 3865}#
- #{ids\ 3866}#))
- (lambda (#{y\ 3870}# #{ids\ 3871}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3795}#
- (car #{p*\ 3864}#)
- #{n\ 3865}#
- #{ids\ 3871}#))
- (lambda (#{x\ 3874}# #{ids\ 3875}#)
- (values
- (cons #{x\ 3874}# #{y\ 3870}#)
- #{ids\ 3875}#)))))))))
- (begin
- (#{cvt\ 3795}# #{pattern\ 3788}# 0 (quote ())))))))
- (begin
- (lambda (#{e\ 3878}#
- #{r\ 3879}#
- #{w\ 3880}#
- #{s\ 3881}#
- #{mod\ 3882}#)
- (begin
- (let ((#{e\ 3889}#
- (#{source-wrap\ 458}#
- #{e\ 3878}#
- #{w\ 3880}#
- #{s\ 3881}#
- #{mod\ 3882}#)))
- (let ((#{tmp\ 3890}# #{e\ 3889}#))
- (let ((#{tmp\ 3891}#
- ($sc-dispatch
- #{tmp\ 3890}#
- '(any any each-any . each-any))))
- (if #{tmp\ 3891}#
- (@apply
- (lambda (#{_\ 3896}#
- #{val\ 3897}#
- #{key\ 3898}#
- #{m\ 3899}#)
- (if (and-map
- (lambda (#{x\ 3900}#)
- (if (#{id?\ 387}# #{x\ 3900}#)
- (not (#{ellipsis?\ 488}#
- #{x\ 3900}#))
- #f))
- #{key\ 3898}#)
- (begin
- (let ((#{x\ 3906}#
- (#{gen-var\ 500}# (quote tmp))))
- (#{build-application\ 309}#
- #{s\ 3881}#
- (#{build-simple-lambda\ 329}#
- #f
- (list (quote tmp))
- #f
- (list #{x\ 3906}#)
+ (cons xr-14162 xr*-14159)
+ y-pat-14160
+ r-14161)
+ (values #f #f #f)))
+ (values
+ '()
+ (cdr y-pat-14160)
+ (match-14036
+ (car e-14157)
+ (car y-pat-14160)
+ w-14158
+ r-14161
+ mod-14069)))
+ (values #f #f #f))))
+ (if (if (vector? e-14157)
+ (if (= (vector-length e-14157) 4)
+ (eq? (vector-ref e-14157 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (f-14155
+ (vector-ref e-14157 1)
+ (join-wraps-4277 w-14158 e-14157))
+ (values
'()
- (#{gen-syntax-case\ 3671}#
- (#{build-lexical-reference\ 315}#
- 'value
- #f
- 'tmp
- #{x\ 3906}#)
- #{key\ 3898}#
- #{m\ 3899}#
- #{r\ 3879}#
- #{mod\ 3882}#))
- (list (#{chi\ 472}#
- #{val\ 3897}#
- #{r\ 3879}#
- '(())
- #{mod\ 3882}#)))))
- (syntax-violation
- 'syntax-case
- "invalid literals list"
- #{e\ 3889}#)))
- #{tmp\ 3891}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3890}#))))))))))
- (set! macroexpand
- (lambda*
- (#{x\ 3912}#
- #:optional
- (#{m\ 3914}# (quote e))
- (#{esew\ 3916}# (quote (eval))))
- (#{chi-top\ 470}#
- #{x\ 3912}#
- '()
- '((top))
- #{m\ 3914}#
- #{esew\ 3916}#
- (cons 'hygiene
- (module-name (current-module))))))
- (set! identifier?
- (lambda (#{x\ 3920}#)
- (#{nonsymbol-id?\ 385}# #{x\ 3920}#)))
- (set! datum->syntax
- (lambda (#{id\ 3922}# #{datum\ 3923}#)
- (#{make-syntax-object\ 349}#
- #{datum\ 3923}#
- (#{syntax-object-wrap\ 355}# #{id\ 3922}#)
- (#{syntax-object-module\ 357}# #{id\ 3922}#))))
- (set! syntax->datum
- (lambda (#{x\ 3926}#)
- (#{strip\ 498}# #{x\ 3926}# (quote (())))))
- (set! syntax-source
- (lambda (#{x\ 3929}#)
- (#{source-annotation\ 366}# #{x\ 3929}#)))
- (set! generate-temporaries
- (lambda (#{ls\ 3931}#)
- (begin
- (begin
- (let ((#{x\ 3935}# #{ls\ 3931}#))
- (if (not (list? #{x\ 3935}#))
- (syntax-violation
- 'generate-temporaries
- "invalid argument"
- #{x\ 3935}#))))
- (map (lambda (#{x\ 3936}#)
- (#{wrap\ 456}# (gensym) (quote ((top))) #f))
- #{ls\ 3931}#))))
- (set! free-identifier=?
- (lambda (#{x\ 3940}# #{y\ 3941}#)
- (begin
- (begin
- (let ((#{x\ 3946}# #{x\ 3940}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3946}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x\ 3946}#))))
- (begin
- (let ((#{x\ 3949}# #{y\ 3941}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3949}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x\ 3949}#))))
- (#{free-id=?\ 446}# #{x\ 3940}# #{y\ 3941}#))))
- (set! bound-identifier=?
- (lambda (#{x\ 3950}# #{y\ 3951}#)
- (begin
- (begin
- (let ((#{x\ 3956}# #{x\ 3950}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3956}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x\ 3956}#))))
- (begin
- (let ((#{x\ 3959}# #{y\ 3951}#))
- (if (not (#{nonsymbol-id?\ 385}# #{x\ 3959}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x\ 3959}#))))
- (#{bound-id=?\ 448}# #{x\ 3950}# #{y\ 3951}#))))
- (set! syntax-violation
- (lambda (#{who\ 3960}#
- #{message\ 3961}#
- #{form\ 3962}#
- .
- #{subform\ 3963}#)
- (begin
- (begin
- (let ((#{x\ 3970}# #{who\ 3960}#))
- (if (not (let ((#{x\ 3971}# #{x\ 3970}#))
- (begin
- (let ((#{t\ 3975}# (not #{x\ 3971}#)))
- (if #{t\ 3975}#
- #{t\ 3975}#
- (begin
- (let ((#{t\ 3978}#
- (string? #{x\ 3971}#)))
- (if #{t\ 3978}#
- #{t\ 3978}#
- (symbol? #{x\ 3971}#)))))))))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x\ 3970}#))))
- (begin
- (let ((#{x\ 3982}# #{message\ 3961}#))
- (if (not (string? #{x\ 3982}#))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x\ 3982}#))))
- (scm-error
- 'syntax-error
- 'macroexpand
- (string-append
- (if #{who\ 3960}# "~a: " "")
- "~a "
- (if (null? #{subform\ 3963}#)
- "in ~a"
- "in subform `~s' of `~s'"))
- (begin
- (let ((#{tail\ 3984}#
- (cons #{message\ 3961}#
- (map (lambda (#{x\ 3985}#)
- (#{strip\ 498}#
- #{x\ 3985}#
- '(())))
- (append
- #{subform\ 3963}#
- (list #{form\ 3962}#))))))
- (if #{who\ 3960}#
- (cons #{who\ 3960}# #{tail\ 3984}#)
- #{tail\ 3984}#)))
- #f))))
- (letrec*
- ((#{match\ 4001}#
- (lambda (#{e\ 4002}#
- #{p\ 4003}#
- #{w\ 4004}#
- #{r\ 4005}#
- #{mod\ 4006}#)
- (if (not #{r\ 4005}#)
- #f
- (if (eq? #{p\ 4003}# (quote any))
- (cons (#{wrap\ 456}#
- #{e\ 4002}#
- #{w\ 4004}#
- #{mod\ 4006}#)
- #{r\ 4005}#)
- (if (#{syntax-object?\ 351}# #{e\ 4002}#)
- (#{match*\ 3999}#
- (#{syntax-object-expression\ 353}# #{e\ 4002}#)
- #{p\ 4003}#
- (#{join-wraps\ 438}#
- #{w\ 4004}#
- (#{syntax-object-wrap\ 355}# #{e\ 4002}#))
- #{r\ 4005}#
- (#{syntax-object-module\ 357}# #{e\ 4002}#))
- (#{match*\ 3999}#
- #{e\ 4002}#
- #{p\ 4003}#
- #{w\ 4004}#
- #{r\ 4005}#
- #{mod\ 4006}#))))))
- (#{match*\ 3999}#
- (lambda (#{e\ 4019}#
- #{p\ 4020}#
- #{w\ 4021}#
- #{r\ 4022}#
- #{mod\ 4023}#)
- (if (null? #{p\ 4020}#)
- (if (null? #{e\ 4019}#) #{r\ 4022}# #f)
- (if (pair? #{p\ 4020}#)
- (if (pair? #{e\ 4019}#)
- (#{match\ 4001}#
- (car #{e\ 4019}#)
- (car #{p\ 4020}#)
- #{w\ 4021}#
- (#{match\ 4001}#
- (cdr #{e\ 4019}#)
- (cdr #{p\ 4020}#)
- #{w\ 4021}#
- #{r\ 4022}#
- #{mod\ 4023}#)
- #{mod\ 4023}#)
- #f)
- (if (eq? #{p\ 4020}# (quote each-any))
- (begin
- (let ((#{l\ 4040}#
- (#{match-each-any\ 3993}#
- #{e\ 4019}#
- #{w\ 4021}#
- #{mod\ 4023}#)))
- (if #{l\ 4040}#
- (cons #{l\ 4040}# #{r\ 4022}#)
+ y-pat-14150
+ (match-14036
+ e-14157
+ z-pat-14151
+ w-14158
+ r-14068
+ mod-14069)))))))
+ (f-14155 e-14065 w-14067))))
+ (lambda (xr*-14188 y-pat-14189 r-14190)
+ (if r-14190
+ (if (null? y-pat-14189)
+ (if (null? xr*-14188)
+ (match-empty-14033
+ (vector-ref p-14066 1)
+ r-14190)
+ (combine-14034 xr*-14188 r-14190))
+ #f)
#f)))
- (begin
- (let ((#{atom-key\ 4046}#
- (vector-ref #{p\ 4020}# 0)))
- (if (eqv? #{atom-key\ 4046}# (quote each))
- (if (null? #{e\ 4019}#)
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4020}# 1)
- #{r\ 4022}#)
- (begin
- (let ((#{l\ 4049}#
- (#{match-each\ 3989}#
- #{e\ 4019}#
- (vector-ref #{p\ 4020}# 1)
- #{w\ 4021}#
- #{mod\ 4023}#)))
- (if #{l\ 4049}#
- (letrec*
- ((#{collect\ 4054}#
- (lambda (#{l\ 4055}#)
- (if (null? (car #{l\ 4055}#))
- #{r\ 4022}#
- (cons (map car #{l\ 4055}#)
- (#{collect\ 4054}#
- (map cdr
- #{l\ 4055}#)))))))
- (begin
- (#{collect\ 4054}# #{l\ 4049}#)))
- #f))))
- (if (eqv? #{atom-key\ 4046}# (quote each+))
- (call-with-values
- (lambda ()
- (#{match-each+\ 3991}#
- #{e\ 4019}#
- (vector-ref #{p\ 4020}# 1)
- (vector-ref #{p\ 4020}# 2)
- (vector-ref #{p\ 4020}# 3)
- #{w\ 4021}#
- #{r\ 4022}#
- #{mod\ 4023}#))
- (lambda (#{xr*\ 4057}#
- #{y-pat\ 4058}#
- #{r\ 4059}#)
- (if #{r\ 4059}#
- (if (null? #{y-pat\ 4058}#)
- (if (null? #{xr*\ 4057}#)
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4020}# 1)
- #{r\ 4059}#)
- (#{combine\ 3997}#
- #{xr*\ 4057}#
- #{r\ 4059}#))
+ (if (eqv? key-14079 'free-id)
+ (if (if (symbol? e-14065)
+ #t
+ (if (if (vector? e-14065)
+ (if (= (vector-length e-14065) 4)
+ (eq? (vector-ref e-14065 0)
+ 'syntax-object)
#f)
- #f)))
- (if (eqv? #{atom-key\ 4046}# (quote free-id))
- (if (#{id?\ 387}# #{e\ 4019}#)
- (if (#{free-id=?\ 446}#
- (#{wrap\ 456}#
- #{e\ 4019}#
- #{w\ 4021}#
- #{mod\ 4023}#)
- (vector-ref #{p\ 4020}# 1))
- #{r\ 4022}#
- #f)
- #f)
- (if (eqv? #{atom-key\ 4046}# (quote atom))
- (if (equal?
- (vector-ref #{p\ 4020}# 1)
- (#{strip\ 498}#
- #{e\ 4019}#
- #{w\ 4021}#))
- #{r\ 4022}#
#f)
- (if (eqv? #{atom-key\ 4046}#
- 'vector)
- (if (vector? #{e\ 4019}#)
- (#{match\ 4001}#
- (vector->list #{e\ 4019}#)
- (vector-ref #{p\ 4020}# 1)
- #{w\ 4021}#
- #{r\ 4022}#
- #{mod\ 4023}#)
- #f)))))))))))))
- (#{combine\ 3997}#
- (lambda (#{r*\ 4076}# #{r\ 4077}#)
- (if (null? (car #{r*\ 4076}#))
- #{r\ 4077}#
- (cons (map car #{r*\ 4076}#)
- (#{combine\ 3997}#
- (map cdr #{r*\ 4076}#)
- #{r\ 4077}#)))))
- (#{match-empty\ 3995}#
- (lambda (#{p\ 4080}# #{r\ 4081}#)
- (if (null? #{p\ 4080}#)
- #{r\ 4081}#
- (if (eq? #{p\ 4080}# (quote any))
- (cons (quote ()) #{r\ 4081}#)
- (if (pair? #{p\ 4080}#)
- (#{match-empty\ 3995}#
- (car #{p\ 4080}#)
- (#{match-empty\ 3995}#
- (cdr #{p\ 4080}#)
- #{r\ 4081}#))
- (if (eq? #{p\ 4080}# (quote each-any))
- (cons (quote ()) #{r\ 4081}#)
- (begin
- (let ((#{atom-key\ 4095}#
- (vector-ref #{p\ 4080}# 0)))
- (if (eqv? #{atom-key\ 4095}# (quote each))
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4080}# 1)
- #{r\ 4081}#)
- (if (eqv? #{atom-key\ 4095}# (quote each+))
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4080}# 1)
- (#{match-empty\ 3995}#
- (reverse (vector-ref #{p\ 4080}# 2))
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4080}# 3)
- #{r\ 4081}#)))
- (if (if (eqv? #{atom-key\ 4095}#
- 'free-id)
- #t
- (eqv? #{atom-key\ 4095}#
- 'atom))
- #{r\ 4081}#
- (if (eqv? #{atom-key\ 4095}#
- 'vector)
- (#{match-empty\ 3995}#
- (vector-ref #{p\ 4080}# 1)
- #{r\ 4081}#)))))))))))))
- (#{match-each-any\ 3993}#
- (lambda (#{e\ 4100}# #{w\ 4101}# #{mod\ 4102}#)
- (if (pair? #{e\ 4100}#)
- (begin
- (let ((#{l\ 4109}#
- (#{match-each-any\ 3993}#
- (cdr #{e\ 4100}#)
- #{w\ 4101}#
- #{mod\ 4102}#)))
- (if #{l\ 4109}#
- (cons (#{wrap\ 456}#
- (car #{e\ 4100}#)
- #{w\ 4101}#
- #{mod\ 4102}#)
- #{l\ 4109}#)
- #f)))
- (if (null? #{e\ 4100}#)
- '()
- (if (#{syntax-object?\ 351}# #{e\ 4100}#)
- (#{match-each-any\ 3993}#
- (#{syntax-object-expression\ 353}# #{e\ 4100}#)
- (#{join-wraps\ 438}#
- #{w\ 4101}#
- (#{syntax-object-wrap\ 355}# #{e\ 4100}#))
- #{mod\ 4102}#)
- #f)))))
- (#{match-each+\ 3991}#
- (lambda (#{e\ 4117}#
- #{x-pat\ 4118}#
- #{y-pat\ 4119}#
- #{z-pat\ 4120}#
- #{w\ 4121}#
- #{r\ 4122}#
- #{mod\ 4123}#)
- (letrec*
- ((#{f\ 4134}#
- (lambda (#{e\ 4135}# #{w\ 4136}#)
- (if (pair? #{e\ 4135}#)
- (call-with-values
- (lambda ()
- (#{f\ 4134}# (cdr #{e\ 4135}#) #{w\ 4136}#))
- (lambda (#{xr*\ 4139}#
- #{y-pat\ 4140}#
- #{r\ 4141}#)
- (if #{r\ 4141}#
- (if (null? #{y-pat\ 4140}#)
- (begin
- (let ((#{xr\ 4146}#
- (#{match\ 4001}#
- (car #{e\ 4135}#)
- #{x-pat\ 4118}#
- #{w\ 4136}#
- '()
- #{mod\ 4123}#)))
- (if #{xr\ 4146}#
- (values
- (cons #{xr\ 4146}# #{xr*\ 4139}#)
- #{y-pat\ 4140}#
- #{r\ 4141}#)
- (values #f #f #f))))
- (values
- '()
- (cdr #{y-pat\ 4140}#)
- (#{match\ 4001}#
- (car #{e\ 4135}#)
- (car #{y-pat\ 4140}#)
- #{w\ 4136}#
- #{r\ 4141}#
- #{mod\ 4123}#)))
- (values #f #f #f))))
- (if (#{syntax-object?\ 351}# #{e\ 4135}#)
- (#{f\ 4134}#
- (#{syntax-object-expression\ 353}# #{e\ 4135}#)
- (#{join-wraps\ 438}# #{w\ 4136}# #{e\ 4135}#))
- (values
- '()
- #{y-pat\ 4119}#
- (#{match\ 4001}#
- #{e\ 4135}#
- #{z-pat\ 4120}#
- #{w\ 4136}#
- #{r\ 4122}#
- #{mod\ 4123}#)))))))
- (begin (#{f\ 4134}# #{e\ 4117}# #{w\ 4121}#)))))
- (#{match-each\ 3989}#
- (lambda (#{e\ 4150}#
- #{p\ 4151}#
- #{w\ 4152}#
- #{mod\ 4153}#)
- (if (pair? #{e\ 4150}#)
- (begin
- (let ((#{first\ 4161}#
- (#{match\ 4001}#
- (car #{e\ 4150}#)
- #{p\ 4151}#
- #{w\ 4152}#
- '()
- #{mod\ 4153}#)))
- (if #{first\ 4161}#
- (begin
- (let ((#{rest\ 4165}#
- (#{match-each\ 3989}#
- (cdr #{e\ 4150}#)
- #{p\ 4151}#
- #{w\ 4152}#
- #{mod\ 4153}#)))
- (if #{rest\ 4165}#
- (cons #{first\ 4161}# #{rest\ 4165}#)
- #f)))
- #f)))
- (if (null? #{e\ 4150}#)
- '()
- (if (#{syntax-object?\ 351}# #{e\ 4150}#)
- (#{match-each\ 3989}#
- (#{syntax-object-expression\ 353}# #{e\ 4150}#)
- #{p\ 4151}#
- (#{join-wraps\ 438}#
- #{w\ 4152}#
- (#{syntax-object-wrap\ 355}# #{e\ 4150}#))
- (#{syntax-object-module\ 357}# #{e\ 4150}#))
- #f))))))
- (begin
- (set! $sc-dispatch
- (lambda (#{e\ 4173}# #{p\ 4174}#)
- (if (eq? #{p\ 4174}# (quote any))
- (list #{e\ 4173}#)
- (if (#{syntax-object?\ 351}# #{e\ 4173}#)
- (#{match*\ 3999}#
- (#{syntax-object-expression\ 353}# #{e\ 4173}#)
- #{p\ 4174}#
- (#{syntax-object-wrap\ 355}# #{e\ 4173}#)
- '()
- (#{syntax-object-module\ 357}# #{e\ 4173}#))
- (#{match*\ 3999}#
- #{e\ 4173}#
- #{p\ 4174}#
- '(())
- '()
- #f)))))))))))))
+ (symbol? (vector-ref e-14065 1))
+ #f))
+ (if (let ((i-14521
+ (wrap-4290 e-14065 w-14067 mod-14069))
+ (j-14522 (vector-ref p-14066 1)))
+ (if (eq? (if (if (vector? i-14521)
+ (if (= (vector-length
+ i-14521)
+ 4)
+ (eq? (vector-ref i-14521 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref i-14521 1)
+ i-14521)
+ (if (if (vector? j-14522)
+ (if (= (vector-length
+ j-14522)
+ 4)
+ (eq? (vector-ref j-14522 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref j-14522 1)
+ j-14522))
+ (eq? (id-var-name-4280 i-14521 '(()))
+ (id-var-name-4280 j-14522 '(())))
+ #f))
+ r-14068
+ #f)
+ #f)
+ (if (eqv? key-14079 'atom)
+ (if (equal?
+ (vector-ref p-14066 1)
+ (strip-4310 e-14065 w-14067))
+ r-14068
+ #f)
+ (if (eqv? key-14079 'vector)
+ (if (vector? e-14065)
+ (match-14036
+ (vector->list e-14065)
+ (vector-ref p-14066 1)
+ w-14067
+ r-14068
+ mod-14069)
+ #f))))))))))))
+ (match-14036
+ (lambda (e-14582 p-14583 w-14584 r-14585 mod-14586)
+ (if (not r-14585)
+ #f
+ (if (eq? p-14583 '_)
+ r-14585
+ (if (eq? p-14583 'any)
+ (cons (wrap-4290 e-14582 w-14584 mod-14586)
+ r-14585)
+ (if (if (vector? e-14582)
+ (if (= (vector-length e-14582) 4)
+ (eq? (vector-ref e-14582 0) 'syntax-object)
+ #f)
+ #f)
+ (match*-14035
+ (vector-ref e-14582 1)
+ p-14583
+ (join-wraps-4277 w-14584 (vector-ref e-14582 2))
+ r-14585
+ (vector-ref e-14582 3))
+ (match*-14035
+ e-14582
+ p-14583
+ w-14584
+ r-14585
+ mod-14586))))))))
+ (set! $sc-dispatch
+ (lambda (e-14037 p-14038)
+ (if (eq? p-14038 'any)
+ (list e-14037)
+ (if (eq? p-14038 '_)
+ '()
+ (if (if (vector? e-14037)
+ (if (= (vector-length e-14037) 4)
+ (eq? (vector-ref e-14037 0) 'syntax-object)
+ #f)
+ #f)
+ (match*-14035
+ (vector-ref e-14037 1)
+ p-14038
+ (vector-ref e-14037 2)
+ '()
+ (vector-ref e-14037 3))
+ (match*-14035 e-14037 p-14038 '(()) '() #f))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4183}#)
- (let ((#{tmp\ 4185}# #{x\ 4183}#))
- (let ((#{tmp\ 4186}#
- ($sc-dispatch
- #{tmp\ 4185}#
- '(any () any . each-any))))
- (if #{tmp\ 4186}#
- (@apply
- (lambda (#{_\ 4190}# #{e1\ 4191}# #{e2\ 4192}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(_ e1 e2)
- #((top) (top) (top))
- #("i4187" "i4188" "i4189"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
- (hygiene guile))
- (cons #{e1\ 4191}# #{e2\ 4192}#)))
- #{tmp\ 4186}#)
- (let ((#{tmp\ 4194}#
- ($sc-dispatch
- #{tmp\ 4185}#
- '(any ((any any)) any . each-any))))
- (if #{tmp\ 4194}#
- (@apply
- (lambda (#{_\ 4200}#
- #{out\ 4201}#
- #{in\ 4202}#
- #{e1\ 4203}#
- #{e2\ 4204}#)
- (list '#(syntax-object
+ (lambda (x-25194)
+ (let ((tmp-25196
+ ($sc-dispatch x-25194 '(_ () any . each-any))))
+ (if tmp-25196
+ (@apply
+ (lambda (e1-25200 e2-25201)
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-25167" "l-*-25168"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25164")))
+ (hygiene guile))
+ (cons '() (cons e1-25200 e2-25201))))
+ tmp-25196)
+ (let ((tmp-25202
+ ($sc-dispatch
+ x-25194
+ '(_ ((any any)) any . each-any))))
+ (if tmp-25202
+ (@apply
+ (lambda (out-25206 in-25207 e1-25208 e2-25209)
+ (list '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("l-*-25173"
+ "l-*-25174"
+ "l-*-25175"
+ "l-*-25176"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25164")))
+ (hygiene guile))
+ in-25207
+ '()
+ (list out-25206
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("l-*-25173"
+ "l-*-25174"
+ "l-*-25175"
+ "l-*-25176"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25164")))
+ (hygiene guile))
+ (cons '() (cons e1-25208 e2-25209))))))
+ tmp-25202)
+ (let ((tmp-25210
+ ($sc-dispatch
+ x-25194
+ '(_ #(each (any any)) any . each-any))))
+ (if tmp-25210
+ (@apply
+ (lambda (out-25214 in-25215 e1-25216 e2-25217)
+ (list '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("l-*-25183"
+ "l-*-25184"
+ "l-*-25185"
+ "l-*-25186"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25164")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ list
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("l-*-25183"
+ "l-*-25184"
+ "l-*-25185"
+ "l-*-25186"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25164")))
+ (hygiene guile))
+ in-25215)
+ '()
+ (list out-25214
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("l-*-25183"
+ "l-*-25184"
+ "l-*-25185"
+ "l-*-25186"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25164")))
+ (hygiene guile))
+ (cons '() (cons e1-25216 e2-25217))))))
+ tmp-25210)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-25194))))))))))
+
+(define syntax-rules
+ (make-syntax-transformer
+ 'syntax-rules
+ 'macro
+ (lambda (x-25271)
+ (let ((tmp-25273
+ ($sc-dispatch
+ x-25271
+ '(_ each-any . #(each ((any . any) any))))))
+ (if tmp-25273
+ (@apply
+ (lambda (k-25277
+ keyword-25278
+ pattern-25279
+ template-25280)
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile)))
+ (vector
+ '(#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile)))
+ (cons '#(syntax-object
+ patterns
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ pattern-25279))
+ (cons '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4195" "i4196" "i4197" "i4198" "i4199"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ (cons k-25277
+ (map (lambda (tmp-25245-25281
+ tmp-25244-25282)
+ (list (cons '#(syntax-object
+ dummy
+ ((top)
+ #(ribcage
+ #(k
+ keyword
+ pattern
+ template)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25231")))
+ (hygiene guile))
+ tmp-25244-25282)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(k
+ keyword
+ pattern
+ template)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25234"
+ "l-*-25235"
+ "l-*-25236"
+ "l-*-25237"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25231")))
+ (hygiene guile))
+ tmp-25245-25281)))
+ template-25280
+ pattern-25279))))))
+ tmp-25273)
+ (let ((tmp-25283
+ ($sc-dispatch
+ x-25271
+ '(_ each-any any . #(each ((any . any) any))))))
+ (if (if tmp-25283
+ (@apply
+ (lambda (k-25287
+ docstring-25288
+ keyword-25289
+ pattern-25290
+ template-25291)
+ (string? (syntax->datum docstring-25288)))
+ tmp-25283)
+ #f)
+ (@apply
+ (lambda (k-25292
+ docstring-25293
+ keyword-25294
+ pattern-25295
+ template-25296)
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile)))
+ docstring-25293
+ (vector
+ '(#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile)))
+ (cons '#(syntax-object
+ patterns
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ pattern-25295))
+ (cons '#(syntax-object
+ syntax-case
+ ((top)
+ #(ribcage
+ #(k docstring keyword pattern template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25231")))
+ (hygiene guile))
+ (cons '#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(k
+ docstring
+ keyword
+ pattern
+ template)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25231")))
+ (hygiene guile))
+ (cons k-25292
+ (map (lambda (tmp-25270-25297
+ tmp-25269-25298)
+ (list (cons '#(syntax-object
+ dummy
+ ((top)
+ #(ribcage
+ #(k
+ docstring
+ keyword
+ pattern
+ template)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25231")))
+ (hygiene
+ guile))
+ tmp-25269-25298)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(k
+ docstring
+ keyword
+ pattern
+ template)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25257"
+ "l-*-25258"
+ "l-*-25259"
+ "l-*-25260"
+ "l-*-25261"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25231")))
+ (hygiene
+ guile))
+ tmp-25270-25297)))
+ template-25296
+ pattern-25295))))))
+ tmp-25283)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-25271))))))))
+
+(define define-syntax-rule
+ (make-syntax-transformer
+ 'define-syntax-rule
+ 'macro
+ (lambda (x-25335)
+ (let ((tmp-25337
+ ($sc-dispatch x-25335 '(_ (any . any) any))))
+ (if tmp-25337
+ (@apply
+ (lambda (name-25341 pattern-25342 template-25343)
+ (list '#(syntax-object
+ define-syntax
+ ((top)
+ #(ribcage
+ #(name pattern template)
+ #((top) (top) (top))
+ #("l-*-25312" "l-*-25313" "l-*-25314"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25309")))
+ (hygiene guile))
+ name-25341
+ (list '#(syntax-object
+ syntax-rules
+ ((top)
+ #(ribcage
+ #(name pattern template)
+ #((top) (top) (top))
+ #("l-*-25312" "l-*-25313" "l-*-25314"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("l-*-25309")))
(hygiene guile))
- #{in\ 4202}#
'()
- (list #{out\ 4201}#
- (cons '#(syntax-object
- begin
+ (list (cons '#(syntax-object
+ _
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4195"
- "i4196"
- "i4197"
- "i4198"
- "i4199"))
+ #(name pattern template)
+ #((top) (top) (top))
+ #("l-*-25312"
+ "l-*-25313"
+ "l-*-25314"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25309")))
(hygiene guile))
- (cons #{e1\ 4203}# #{e2\ 4204}#)))))
- #{tmp\ 4194}#)
- (let ((#{tmp\ 4206}#
- ($sc-dispatch
- #{tmp\ 4185}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 4206}#
- (@apply
- (lambda (#{_\ 4212}#
- #{out\ 4213}#
- #{in\ 4214}#
- #{e1\ 4215}#
- #{e2\ 4216}#)
+ pattern-25342)
+ template-25343))))
+ tmp-25337)
+ (let ((tmp-25344
+ ($sc-dispatch x-25335 '(_ (any . any) any any))))
+ (if (if tmp-25344
+ (@apply
+ (lambda (name-25348
+ pattern-25349
+ docstring-25350
+ template-25351)
+ (string? (syntax->datum docstring-25350)))
+ tmp-25344)
+ #f)
+ (@apply
+ (lambda (name-25352
+ pattern-25353
+ docstring-25354
+ template-25355)
+ (list '#(syntax-object
+ define-syntax
+ ((top)
+ #(ribcage
+ #(name pattern docstring template)
+ #((top) (top) (top) (top))
+ #("l-*-25327"
+ "l-*-25328"
+ "l-*-25329"
+ "l-*-25330"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25309")))
+ (hygiene guile))
+ name-25352
(list '#(syntax-object
- syntax-case
+ syntax-rules
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4207" "i4208" "i4209" "i4210" "i4211"))
+ #(name pattern docstring template)
+ #((top) (top) (top) (top))
+ #("l-*-25327"
+ "l-*-25328"
+ "l-*-25329"
+ "l-*-25330"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
+ #(ribcage #(x) #((top)) #("l-*-25309")))
(hygiene guile))
- (cons '#(syntax-object
- list
- ((top)
- #(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4207"
- "i4208"
- "i4209"
- "i4210"
- "i4211"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4184")))
- (hygiene guile))
- #{in\ 4214}#)
'()
- (list #{out\ 4213}#
- (cons '#(syntax-object
- begin
+ docstring-25354
+ (list (cons '#(syntax-object
+ _
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4207"
- "i4208"
- "i4209"
- "i4210"
- "i4211"))
+ #(name
+ pattern
+ docstring
+ template)
+ #((top) (top) (top) (top))
+ #("l-*-25327"
+ "l-*-25328"
+ "l-*-25329"
+ "l-*-25330"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4184")))
+ #("l-*-25309")))
(hygiene guile))
- (cons #{e1\ 4215}# #{e2\ 4216}#)))))
- #{tmp\ 4206}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4185}#)))))))))))
-
-(define syntax-rules
- (make-syntax-transformer
- 'syntax-rules
- 'macro
- (lambda (#{x\ 4220}#)
- (let ((#{tmp\ 4222}# #{x\ 4220}#))
- (let ((#{tmp\ 4223}#
- ($sc-dispatch
- #{tmp\ 4222}#
- '(any each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4223}#
- (@apply
- (lambda (#{_\ 4229}#
- #{k\ 4230}#
- #{keyword\ 4231}#
- #{pattern\ 4232}#
- #{template\ 4233}#)
- (list '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile))
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile)))
- (vector
- '(#(syntax-object
- macro-type
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile))
- .
- #(syntax-object
- syntax-rules
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile)))
- (cons '#(syntax-object
- patterns
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile))
- #{pattern\ 4232}#))
- (cons '#(syntax-object
- syntax-case
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224" "i4225" "i4226" "i4227" "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile))
- (cons '#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i4224"
- "i4225"
- "i4226"
- "i4227"
- "i4228"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4221")))
- (hygiene guile))
- (cons #{k\ 4230}#
- (map (lambda (#{tmp\ 4237}#
- #{tmp\ 4236}#)
- (list (cons '#(syntax-object
- dummy
- ((top)
- #(ribcage
- #(_
- k
- keyword
- pattern
- template)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4224"
- "i4225"
- "i4226"
- "i4227"
- "i4228"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4221")))
- (hygiene guile))
- #{tmp\ 4236}#)
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(_
- k
- keyword
- pattern
- template)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i4224"
- "i4225"
- "i4226"
- "i4227"
- "i4228"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4221")))
- (hygiene guile))
- #{tmp\ 4237}#)))
- #{template\ 4233}#
- #{pattern\ 4232}#))))))
- #{tmp\ 4223}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4222}#)))))))
+ pattern-25353)
+ template-25355))))
+ tmp-25344)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-25335))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4238}#)
- (let ((#{tmp\ 4240}# #{x\ 4238}#))
- (let ((#{tmp\ 4241}#
- ($sc-dispatch
- #{tmp\ 4240}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4241}#
- (@apply
- (lambda (#{let*\ 4247}#
- #{x\ 4248}#
- #{v\ 4249}#
- #{e1\ 4250}#
- #{e2\ 4251}#)
- (and-map identifier? #{x\ 4248}#))
- #{tmp\ 4241}#)
- #f)
- (@apply
- (lambda (#{let*\ 4258}#
- #{x\ 4259}#
- #{v\ 4260}#
- #{e1\ 4261}#
- #{e2\ 4262}#)
- (letrec*
- ((#{f\ 4265}#
- (lambda (#{bindings\ 4266}#)
- (if (null? #{bindings\ 4266}#)
- (cons '#(syntax-object
- let
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(f bindings)
- #((top) (top))
- #("i4263" "i4264"))
- #(ribcage
- #(let* x v e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4253"
- "i4254"
- "i4255"
- "i4256"
- "i4257"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4239")))
- (hygiene guile))
- (cons '()
- (cons #{e1\ 4261}# #{e2\ 4262}#)))
- (let ((#{tmp\ 4271}#
- (list (#{f\ 4265}# (cdr #{bindings\ 4266}#))
- (car #{bindings\ 4266}#))))
- (let ((#{tmp\ 4272}#
- ($sc-dispatch
- #{tmp\ 4271}#
- '(any any))))
- (if #{tmp\ 4272}#
- (@apply
- (lambda (#{body\ 4275}# #{binding\ 4276}#)
- (list '#(syntax-object
- let
- ((top)
- #(ribcage
- #(body binding)
- #((top) (top))
- #("i4273" "i4274"))
- #(ribcage () () ())
- #(ribcage
- #(f bindings)
- #((top) (top))
- #("i4263" "i4264"))
- #(ribcage
- #(let* x v e1 e2)
- #((top) (top) (top) (top) (top))
- #("i4253"
- "i4254"
- "i4255"
- "i4256"
- "i4257"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4239")))
- (hygiene guile))
- (list #{binding\ 4276}#)
- #{body\ 4275}#))
- #{tmp\ 4272}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4271}#))))))))
- (begin
- (#{f\ 4265}# (map list #{x\ 4259}# #{v\ 4260}#)))))
- #{tmp\ 4241}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4240}#)))))))
+ (lambda (x-25404)
+ (let ((tmp-25406
+ ($sc-dispatch
+ x-25404
+ '(any #(each (any any)) any . each-any))))
+ (if (if tmp-25406
+ (@apply
+ (lambda (let*-25410 x-25411 v-25412 e1-25413 e2-25414)
+ (and-map identifier? x-25411))
+ tmp-25406)
+ #f)
+ (@apply
+ (lambda (let*-25415 x-25416 v-25417 e1-25418 e2-25419)
+ (letrec*
+ ((f-25420
+ (lambda (bindings-25423)
+ (if (null? bindings-25423)
+ (cons '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(f bindings)
+ #((top) (top))
+ #("l-*-25390" "l-*-25391"))
+ #(ribcage
+ #(let* x v e1 e2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25380"
+ "l-*-25381"
+ "l-*-25382"
+ "l-*-25383"
+ "l-*-25384"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25366")))
+ (hygiene guile))
+ (cons '() (cons e1-25418 e2-25419)))
+ (let ((tmp-25424
+ (list (f-25420 (cdr bindings-25423))
+ (car bindings-25423))))
+ (let ((tmp-25425 ($sc-dispatch tmp-25424 '(any any))))
+ (if tmp-25425
+ (@apply
+ (lambda (body-25427 binding-25428)
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(body binding)
+ #((top) (top))
+ #("l-*-25400" "l-*-25401"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f bindings)
+ #((top) (top))
+ #("l-*-25390" "l-*-25391"))
+ #(ribcage
+ #(let* x v e1 e2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-25380"
+ "l-*-25381"
+ "l-*-25382"
+ "l-*-25383"
+ "l-*-25384"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25366")))
+ (hygiene guile))
+ (list binding-25428)
+ body-25427))
+ tmp-25425)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-25424))))))))
+ (f-25420 (map list x-25416 v-25417))))
+ tmp-25406)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-25404))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4277}#)
- (let ((#{tmp\ 4279}# #{orig-x\ 4277}#))
- (let ((#{tmp\ 4280}#
- ($sc-dispatch
- #{tmp\ 4279}#
- '(any #(each (any any . any))
- (any . each-any)
- .
- each-any))))
- (if #{tmp\ 4280}#
- (@apply
- (lambda (#{_\ 4288}#
- #{var\ 4289}#
- #{init\ 4290}#
- #{step\ 4291}#
- #{e0\ 4292}#
- #{e1\ 4293}#
- #{c\ 4294}#)
- (let ((#{tmp\ 4296}#
- (map (lambda (#{v\ 4317}# #{s\ 4318}#)
- (let ((#{tmp\ 4321}# #{s\ 4318}#))
- (let ((#{tmp\ 4322}#
- ($sc-dispatch
- #{tmp\ 4321}#
- '())))
- (if #{tmp\ 4322}#
+ (lambda (orig-x-25484)
+ (let ((tmp-25486
+ ($sc-dispatch
+ orig-x-25484
+ '(_ #(each (any any . any))
+ (any . each-any)
+ .
+ each-any))))
+ (if tmp-25486
+ (@apply
+ (lambda (var-25490
+ init-25491
+ step-25492
+ e0-25493
+ e1-25494
+ c-25495)
+ (let ((tmp-25496
+ (map (lambda (v-25499 s-25500)
+ (let ((tmp-25502 ($sc-dispatch s-25500 '())))
+ (if tmp-25502
+ (@apply (lambda () v-25499) tmp-25502)
+ (let ((tmp-25505
+ ($sc-dispatch s-25500 '(any))))
+ (if tmp-25505
(@apply
- (lambda () #{v\ 4317}#)
- #{tmp\ 4322}#)
- (let ((#{tmp\ 4323}#
- ($sc-dispatch
- #{tmp\ 4321}#
- '(any))))
- (if #{tmp\ 4323}#
- (@apply
- (lambda (#{e\ 4325}#) #{e\ 4325}#)
- #{tmp\ 4323}#)
- (let ((#{_\ 4327}# #{tmp\ 4321}#))
- (syntax-violation
- 'do
- "bad step expression"
- #{orig-x\ 4277}#
- #{s\ 4318}#))))))))
- #{var\ 4289}#
- #{step\ 4291}#)))
- (let ((#{tmp\ 4297}#
- ($sc-dispatch #{tmp\ 4296}# (quote each-any))))
- (if #{tmp\ 4297}#
- (@apply
- (lambda (#{step\ 4299}#)
- (let ((#{tmp\ 4300}# #{e1\ 4293}#))
- (let ((#{tmp\ 4301}#
- ($sc-dispatch #{tmp\ 4300}# (quote ()))))
- (if #{tmp\ 4301}#
+ (lambda (e-25508) e-25508)
+ tmp-25505)
+ (syntax-violation
+ 'do
+ "bad step expression"
+ orig-x-25484
+ s-25500))))))
+ var-25490
+ step-25492)))
+ (let ((tmp-25497 ($sc-dispatch tmp-25496 'each-any)))
+ (if tmp-25497
+ (@apply
+ (lambda (step-25513)
+ (let ((tmp-25515 ($sc-dispatch e1-25494 '())))
+ (if tmp-25515
+ (@apply
+ (lambda ()
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-25454"))
+ #(ribcage
+ #(var init step e0 e1 c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("l-*-25436")))
+ (hygiene guile))
+ '#(syntax-object
+ doloop
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-25454"))
+ #(ribcage
+ #(var init step e0 e1 c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("l-*-25436")))
+ (hygiene guile))
+ (map list var-25490 init-25491)
+ (list '#(syntax-object
+ if
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-25454"))
+ #(ribcage
+ #(var init step e0 e1 c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("l-*-25436")))
+ (hygiene guile))
+ (list '#(syntax-object
+ not
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-25454"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("l-*-25436")))
+ (hygiene guile))
+ e0-25493)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-25454"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
+ #(ribcage () () ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("l-*-25436")))
+ (hygiene guile))
+ (append
+ c-25495
+ (list (cons '#(syntax-object
+ doloop
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-25454"))
+ #(ribcage
+ #(var
+ init
+ step
+ e0
+ e1
+ c)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(orig-x)
+ #((top))
+ #("l-*-25436")))
+ (hygiene
+ guile))
+ step-25513)))))))
+ tmp-25515)
+ (let ((tmp-25519
+ ($sc-dispatch e1-25494 '(any . each-any))))
+ (if tmp-25519
(@apply
- (lambda ()
+ (lambda (e1-25523 e2-25524)
(list '#(syntax-object
let
((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-25463" "l-*-25464"))
+ #(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("l-*-25454"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("l-*-25436")))
(hygiene guile))
'#(syntax-object
doloop
((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-25463" "l-*-25464"))
+ #(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("l-*-25454"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("l-*-25436")))
(hygiene guile))
- (map list
- #{var\ 4289}#
- #{init\ 4290}#)
+ (map list var-25490 init-25491)
(list '#(syntax-object
if
((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-25463"
+ "l-*-25464"))
+ #(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("l-*-25454"))
#(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("l-*-25436")))
(hygiene guile))
- (list '#(syntax-object
- not
+ e0-25493
+ (cons '#(syntax-object
+ begin
((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-25463"
+ "l-*-25464"))
+ #(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("l-*-25454"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
(top)
(top)
(top)
- (top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("l-*-25436")))
(hygiene guile))
- #{e0\ 4292}#)
+ (cons e1-25523 e2-25524))
(cons '#(syntax-object
begin
((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-25463"
+ "l-*-25464"))
+ #(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("l-*-25454"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
(top)
(top)
(top)
- (top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("l-*-25436")))
(hygiene guile))
(append
- #{c\ 4294}#
+ c-25495
(list (cons '#(syntax-object
doloop
((top)
+ #(ribcage
+ #(e1
+ e2)
+ #((top)
+ (top))
+ #("l-*-25463"
+ "l-*-25464"))
+ #(ribcage
+ ()
+ ()
+ ())
#(ribcage
#(step)
#((top))
- #("i4298"))
+ #("l-*-25454"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
(top)
(top)
(top)
- (top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #("l-*-25439"
+ "l-*-25440"
+ "l-*-25441"
+ "l-*-25442"
+ "l-*-25443"
+ "l-*-25444"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4278")))
+ #("l-*-25436")))
(hygiene
guile))
- #{step\ 4299}#)))))))
- #{tmp\ 4301}#)
- (let ((#{tmp\ 4306}#
- ($sc-dispatch
- #{tmp\ 4300}#
- '(any . each-any))))
- (if #{tmp\ 4306}#
- (@apply
- (lambda (#{e1\ 4309}# #{e2\ 4310}#)
- (list '#(syntax-object
- let
+ step-25513)))))))
+ tmp-25519)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ e1-25494))))))
+ tmp-25497)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-25496)))))
+ tmp-25486)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ orig-x-25484))))))
+
+(define quasiquote
+ (make-syntax-transformer
+ 'quasiquote
+ 'macro
+ (letrec*
+ ((quasi-25792
+ (lambda (p-25816 lev-25817)
+ (let ((tmp-25819
+ ($sc-dispatch
+ p-25816
+ '(#(free-id
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ any))))
+ (if tmp-25819
+ (@apply
+ (lambda (p-25823)
+ (if (= lev-25817 0)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25560"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ p-25823)
+ (quasicons-25794
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25560"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25560"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ (quasi-25792 (list p-25823) (#{1-}# lev-25817)))))
+ tmp-25819)
+ (let ((tmp-25826
+ ($sc-dispatch
+ p-25816
+ '(#(free-id
+ #(syntax-object
+ quasiquote
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ any))))
+ (if tmp-25826
+ (@apply
+ (lambda (p-25830)
+ (quasicons-25794
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25563"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ #(syntax-object
+ quasiquote
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25563"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ (quasi-25792 (list p-25830) (#{1+}# lev-25817))))
+ tmp-25826)
+ (let ((tmp-25833 ($sc-dispatch p-25816 '(any . any))))
+ (if tmp-25833
+ (@apply
+ (lambda (p-25837 q-25838)
+ (let ((tmp-25840
+ ($sc-dispatch
+ p-25837
+ '(#(free-id
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25566" "l-*-25567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if tmp-25840
+ (@apply
+ (lambda (p-25844)
+ (if (= lev-25817 0)
+ (quasilist*-25796
+ (map (lambda (tmp-25574-25880)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25572"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25566"
+ "l-*-25567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556"
+ "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ tmp-25574-25880))
+ p-25844)
+ (quasi-25792 q-25838 lev-25817))
+ (quasicons-25794
+ (quasicons-25794
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25572"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25566" "l-*-25567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25572"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25566" "l-*-25567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ (quasi-25792
+ p-25844
+ (#{1-}# lev-25817)))
+ (quasi-25792 q-25838 lev-25817))))
+ tmp-25840)
+ (let ((tmp-25885
+ ($sc-dispatch
+ p-25837
+ '(#(free-id
+ #(syntax-object
+ unquote-splicing
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25566" "l-*-25567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if tmp-25885
+ (@apply
+ (lambda (p-25889)
+ (if (= lev-25817 0)
+ (quasiappend-25795
+ (map (lambda (tmp-25579-25892)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25577"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25566"
+ "l-*-25567"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556"
+ "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ tmp-25579-25892))
+ p-25889)
+ (quasi-25792 q-25838 lev-25817))
+ (quasicons-25794
+ (quasicons-25794
+ '(#(syntax-object
+ "quote"
((top)
#(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4307" "i4308"))
- #(ribcage
- #(step)
+ #(p)
#((top))
- #("i4298"))
+ #("l-*-25577"))
#(ribcage
- #(_ var init step e0 e1 c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
+ #(p q)
+ #((top) (top))
+ #("l-*-25566" "l-*-25567"))
#(ribcage () () ())
#(ribcage
- #(orig-x)
- #((top))
- #("i4278")))
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
(hygiene guile))
- '#(syntax-object
- doloop
+ #(syntax-object
+ unquote-splicing
((top)
#(ribcage
- #(e1 e2)
+ #(p)
+ #((top))
+ #("l-*-25577"))
+ #(ribcage
+ #(p q)
#((top) (top))
- #("i4307" "i4308"))
+ #("l-*-25566" "l-*-25567"))
+ #(ribcage () () ())
#(ribcage
- #(step)
- #((top))
- #("i4298"))
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
#(ribcage
- #(_ var init step e0 e1 c)
- #((top)
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ (quasi-25792
+ p-25889
+ (#{1-}# lev-25817)))
+ (quasi-25792 q-25838 lev-25817))))
+ tmp-25885)
+ (quasicons-25794
+ (quasi-25792 p-25837 lev-25817)
+ (quasi-25792 q-25838 lev-25817)))))))
+ tmp-25833)
+ (let ((tmp-25905
+ ($sc-dispatch p-25816 '#(vector each-any))))
+ (if tmp-25905
+ (@apply
+ (lambda (x-25909)
+ (let ((x-25912
+ (vquasi-25793 x-25909 lev-25817)))
+ (let ((tmp-25914
+ ($sc-dispatch
+ x-25912
+ '(#(atom "quote") each-any))))
+ (if tmp-25914
+ (@apply
+ (lambda (x-25916)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25668"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25665"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
(top)
(top)
(top)
(top)
(top)
(top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4278")))
- (hygiene guile))
- (map list
- #{var\ 4289}#
- #{init\ 4290}#)
- (list '#(syntax-object
- if
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4307" "i4308"))
- #(ribcage
- #(step)
- #((top))
- #("i4298"))
- #(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
- #(ribcage () () ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4278")))
- (hygiene guile))
- #{e0\ 4292}#
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4307"
- "i4308"))
- #(ribcage
- #(step)
- #((top))
- #("i4298"))
- #(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4278")))
- (hygiene guile))
- (cons #{e1\ 4309}#
- #{e2\ 4310}#))
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4307"
- "i4308"))
- #(ribcage
- #(step)
- #((top))
- #("i4298"))
- #(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4278")))
- (hygiene guile))
- (append
- #{c\ 4294}#
- (list (cons '#(syntax-object
- doloop
- ((top)
- #(ribcage
- #(e1
- e2)
- #((top)
- (top))
- #("i4307"
- "i4308"))
- #(ribcage
- #(step)
- #((top))
- #("i4298"))
- #(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i4281"
- "i4282"
- "i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(orig-x)
- #((top))
- #("i4278")))
- (hygiene
- guile))
- #{step\ 4299}#)))))))
- #{tmp\ 4306}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4300}#)))))))
- #{tmp\ 4297}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4296}#)))))
- #{tmp\ 4280}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4279}#)))))))
-
-(define quasiquote
- (make-syntax-transformer
- 'quasiquote
- 'macro
- (letrec*
- ((#{quasicons\ 4334}#
- (lambda (#{x\ 4338}# #{y\ 4339}#)
- (let ((#{tmp\ 4343}# (list #{x\ 4338}# #{y\ 4339}#)))
- (let ((#{tmp\ 4344}#
- ($sc-dispatch #{tmp\ 4343}# (quote (any any)))))
- (if #{tmp\ 4344}#
- (@apply
- (lambda (#{x\ 4347}# #{y\ 4348}#)
- (let ((#{tmp\ 4349}# #{y\ 4348}#))
- (let ((#{tmp\ 4350}#
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ (list->vector x-25916)))
+ tmp-25914)
+ (letrec*
+ ((f-25917
+ (lambda (y-25929 k-25930)
+ (let ((tmp-25932
+ ($sc-dispatch
+ y-25929
+ '(#(atom "quote")
+ each-any))))
+ (if tmp-25932
+ (@apply
+ (lambda (y-25935)
+ (k-25930
+ (map (lambda (tmp-25691-25936)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(y)
+ #((top))
+ #("l-*-25689"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ y
+ k)
+ #((top)
+ (top)
+ (top))
+ #("l-*-25671"
+ "l-*-25672"
+ "l-*-25673"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25665"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene
+ guile))
+ tmp-25691-25936))
+ y-25935)))
+ tmp-25932)
+ (let ((tmp-25937
+ ($sc-dispatch
+ y-25929
+ '(#(atom "list")
+ .
+ each-any))))
+ (if tmp-25937
+ (@apply
+ (lambda (y-25940)
+ (k-25930 y-25940))
+ tmp-25937)
+ (let ((tmp-25941
+ ($sc-dispatch
+ y-25929
+ '(#(atom "list*")
+ .
+ #(each+
+ any
+ (any)
+ ())))))
+ (if tmp-25941
+ (@apply
+ (lambda (y-25944
+ z-25945)
+ (f-25917
+ z-25945
+ (lambda (ls-25946)
+ (k-25930
+ (append
+ y-25944
+ ls-25946)))))
+ tmp-25941)
+ (list '#(syntax-object
+ "list->vector"
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(t-25706)
+ #((m-*-25707
+ top))
+ #("l-*-25710"))
+ #(ribcage
+ #(else)
+ #((top))
+ #("l-*-25704"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f y k)
+ #((top)
+ (top)
+ (top))
+ #("l-*-25671"
+ "l-*-25672"
+ "l-*-25673"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25665"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene
+ guile))
+ x-25912))))))))))
+ (f-25917
+ x-25912
+ (lambda (ls-25919)
+ (let ((tmp-25921
+ ($sc-dispatch
+ ls-25919
+ 'each-any)))
+ (if tmp-25921
+ (@apply
+ (lambda (t-25679-25924)
+ (cons '#(syntax-object
+ "vector"
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(t-25679)
+ #((m-*-25680
+ top))
+ #("l-*-25684"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ls)
+ #((top))
+ #("l-*-25678"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25665"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ t-25679-25924))
+ tmp-25921)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ ls-25919))))))))))
+ tmp-25905)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25585"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25556" "l-*-25557"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ p-25816)))))))))))
+ (vquasi-25793
+ (lambda (p-25972 lev-25973)
+ (let ((tmp-25975 ($sc-dispatch p-25972 '(any . any))))
+ (if tmp-25975
+ (@apply
+ (lambda (p-25979 q-25980)
+ (let ((tmp-25982
+ ($sc-dispatch
+ p-25979
+ '(#(free-id
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593" "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ .
+ each-any))))
+ (if tmp-25982
+ (@apply
+ (lambda (p-25986)
+ (if (= lev-25973 0)
+ (quasilist*-25796
+ (map (lambda (tmp-25601-26022)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25599"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593" "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ tmp-25601-26022))
+ p-25986)
+ (vquasi-25793 q-25980 lev-25973))
+ (quasicons-25794
+ (quasicons-25794
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25599"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593" "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ #(syntax-object
+ unquote
+ ((top)
+ #(ribcage #(p) #((top)) #("l-*-25599"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593" "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ (quasi-25792 p-25986 (#{1-}# lev-25973)))
+ (vquasi-25793 q-25980 lev-25973))))
+ tmp-25982)
+ (let ((tmp-26029
($sc-dispatch
- #{tmp\ 4349}#
+ p-25979
'(#(free-id
#(syntax-object
- quote
+ unquote-splicing
((top)
#(ribcage
- #(x y)
+ #(p q)
#((top) (top))
- #("i4345" "i4346"))
- #(ribcage () () ())
+ #("l-*-25593" "l-*-25594"))
#(ribcage () () ())
#(ribcage
- #(x y)
+ #(p lev)
#((top) (top))
- #("i4340" "i4341"))
+ #("l-*-25589" "l-*-25590"))
#(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
(hygiene guile)))
- any))))
- (if #{tmp\ 4350}#
+ .
+ each-any))))
+ (if tmp-26029
(@apply
- (lambda (#{dy\ 4352}#)
- (let ((#{tmp\ 4353}# #{x\ 4347}#))
- (let ((#{tmp\ 4354}#
- ($sc-dispatch
- #{tmp\ 4353}#
- '(#(free-id
- #(syntax-object
- quote
- ((top)
- #(ribcage
- #(dy)
- #((top))
- #("i4351"))
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4345" "i4346"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4340" "i4341"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile)))
- any))))
- (if #{tmp\ 4354}#
- (@apply
- (lambda (#{dx\ 4356}#)
- (list '#(syntax-object
- quote
- ((top)
- #(ribcage
- #(dx)
- #((top))
- #("i4355"))
- #(ribcage
- #(dy)
- #((top))
- #("i4351"))
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4345" "i4346"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4340" "i4341"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile))
- (cons #{dx\ 4356}#
- #{dy\ 4352}#)))
- #{tmp\ 4354}#)
- (let ((#{_\ 4358}# #{tmp\ 4353}#))
- (if (null? #{dy\ 4352}#)
- (list '#(syntax-object
- list
- ((top)
- #(ribcage
- #(_)
- #((top))
- #("i4357"))
- #(ribcage
- #(dy)
- #((top))
- #("i4351"))
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4345" "i4346"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4340" "i4341"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile))
- #{x\ 4347}#)
- (list '#(syntax-object
- cons
- ((top)
- #(ribcage
- #(_)
- #((top))
- #("i4357"))
- #(ribcage
- #(dy)
- #((top))
- #("i4351"))
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4345" "i4346"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4340" "i4341"))
- #(ribcage
- #(quasicons
+ (lambda (p-26033)
+ (if (= lev-25973 0)
+ (quasiappend-25795
+ (map (lambda (tmp-25606-26036)
+ (list '#(syntax-object
+ "value"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25604"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593"
+ "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589"
+ "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ tmp-25606-26036))
+ p-26033)
+ (vquasi-25793 q-25980 lev-25973))
+ (quasicons-25794
+ (quasicons-25794
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25604"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593" "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ #(syntax-object
+ unquote-splicing
+ ((top)
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25604"))
+ #(ribcage
+ #(p q)
+ #((top) (top))
+ #("l-*-25593" "l-*-25594"))
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile)))
+ (quasi-25792 p-26033 (#{1-}# lev-25973)))
+ (vquasi-25793 q-25980 lev-25973))))
+ tmp-26029)
+ (quasicons-25794
+ (quasi-25792 p-25979 lev-25973)
+ (vquasi-25793 q-25980 lev-25973)))))))
+ tmp-25975)
+ (let ((tmp-26053 ($sc-dispatch p-25972 '())))
+ (if tmp-26053
+ (@apply
+ (lambda ()
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-25589" "l-*-25590"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ ()))
+ tmp-26053)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ p-25972)))))))
+ (quasicons-25794
+ (lambda (x-26066 y-26067)
+ (let ((tmp-26068 (list x-26066 y-26067)))
+ (let ((tmp-26069 ($sc-dispatch tmp-26068 '(any any))))
+ (if tmp-26069
+ (@apply
+ (lambda (x-26071 y-26072)
+ (let ((tmp-26074
+ ($sc-dispatch y-26072 '(#(atom "quote") any))))
+ (if tmp-26074
+ (@apply
+ (lambda (dy-26078)
+ (let ((tmp-26080
+ ($sc-dispatch
+ x-26071
+ '(#(atom "quote") any))))
+ (if tmp-26080
+ (@apply
+ (lambda (dx-26082)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(dx)
+ #((top))
+ #("l-*-25626"))
+ #(ribcage
+ #(dy)
+ #((top))
+ #("l-*-25622"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25616" "l-*-25617"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25611" "l-*-25612"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
quasiappend
- quasivector
+ quasicons
+ vquasi
quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile))
- #{x\ 4347}#
- #{y\ 4348}#)))))))
- #{tmp\ 4350}#)
- (let ((#{tmp\ 4359}#
- ($sc-dispatch
- #{tmp\ 4349}#
- '(#(free-id
- #(syntax-object
- list
- ((top)
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4345" "i4346"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4340" "i4341"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile)))
- .
- any))))
- (if #{tmp\ 4359}#
- (@apply
- (lambda (#{stuff\ 4361}#)
- (cons '#(syntax-object
- list
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ (cons dx-26082 dy-26078)))
+ tmp-26080)
+ (if (null? dy-26078)
+ (list '#(syntax-object
+ "list"
((top)
#(ribcage
- #(stuff)
+ #(dy)
#((top))
- #("i4360"))
+ #("l-*-25622"))
+ #(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("l-*-25616" "l-*-25617"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("l-*-25611" "l-*-25612"))
#(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
(hygiene guile))
- (cons #{x\ 4347}# #{stuff\ 4361}#)))
- #{tmp\ 4359}#)
- (let ((#{else\ 4363}# #{tmp\ 4349}#))
- (list '#(syntax-object
- cons
+ x-26071)
+ (list '#(syntax-object
+ "list*"
+ ((top)
+ #(ribcage
+ #(dy)
+ #((top))
+ #("l-*-25622"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25616" "l-*-25617"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25611" "l-*-25612"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ x-26071
+ y-26072)))))
+ tmp-26074)
+ (let ((tmp-26084
+ ($sc-dispatch
+ y-26072
+ '(#(atom "list") . any))))
+ (if tmp-26084
+ (@apply
+ (lambda (stuff-26088)
+ (cons '#(syntax-object
+ "list"
((top)
#(ribcage
- #(else)
+ #(stuff)
#((top))
- #("i4362"))
+ #("l-*-25629"))
+ #(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4345" "i4346"))
+ #("l-*-25616" "l-*-25617"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4340" "i4341"))
+ #("l-*-25611" "l-*-25612"))
#(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
(hygiene guile))
- #{x\ 4347}#
- #{y\ 4348}#))))))))
- #{tmp\ 4344}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4343}#))))))
- (#{quasiappend\ 4335}#
- (lambda (#{x\ 4364}# #{y\ 4365}#)
- (let ((#{tmp\ 4369}# (list #{x\ 4364}# #{y\ 4365}#)))
- (let ((#{tmp\ 4370}#
- ($sc-dispatch #{tmp\ 4369}# (quote (any any)))))
- (if #{tmp\ 4370}#
- (@apply
- (lambda (#{x\ 4373}# #{y\ 4374}#)
- (let ((#{tmp\ 4375}# #{y\ 4374}#))
- (let ((#{tmp\ 4376}#
- ($sc-dispatch
- #{tmp\ 4375}#
- '(#(free-id
- #(syntax-object
- quote
- ((top)
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4371" "i4372"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4366" "i4367"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- ()))))
- (if #{tmp\ 4376}#
- (@apply (lambda () #{x\ 4373}#) #{tmp\ 4376}#)
- (let ((#{_\ 4378}# #{tmp\ 4375}#))
- (list '#(syntax-object
- append
- ((top)
- #(ribcage #(_) #((top)) #("i4377"))
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4371" "i4372"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x y)
- #((top) (top))
- #("i4366" "i4367"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- #{x\ 4373}#
- #{y\ 4374}#))))))
- #{tmp\ 4370}#)
+ (cons x-26071 stuff-26088)))
+ tmp-26084)
+ (let ((tmp-26089
+ ($sc-dispatch
+ y-26072
+ '(#(atom "list*") . any))))
+ (if tmp-26089
+ (@apply
+ (lambda (stuff-26093)
+ (cons '#(syntax-object
+ "list*"
+ ((top)
+ #(ribcage
+ #(stuff)
+ #((top))
+ #("l-*-25632"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25616" "l-*-25617"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25611" "l-*-25612"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ (cons x-26071 stuff-26093)))
+ tmp-26089)
+ (list '#(syntax-object
+ "list*"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25616" "l-*-25617"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25611" "l-*-25612"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ x-26071
+ y-26072))))))))
+ tmp-26069)
(syntax-violation
#f
- "source expression failed to match any pattern"
- #{tmp\ 4369}#))))))
- (#{quasivector\ 4336}#
- (lambda (#{x\ 4379}#)
- (let ((#{tmp\ 4382}# #{x\ 4379}#))
- (let ((#{x\ 4384}# #{tmp\ 4382}#))
- (let ((#{tmp\ 4385}# #{x\ 4384}#))
- (let ((#{tmp\ 4386}#
- ($sc-dispatch
- #{tmp\ 4385}#
- '(#(free-id
- #(syntax-object
- quote
- ((top)
- #(ribcage #(x) #((top)) #("i4383"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
- #(ribcage
- #(quasicons quasiappend quasivector quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- each-any))))
- (if #{tmp\ 4386}#
- (@apply
- (lambda (#{x\ 4388}#)
- (list '#(syntax-object
- quote
- ((top)
- #(ribcage #(x) #((top)) #("i4387"))
- #(ribcage #(x) #((top)) #("i4383"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
- #(ribcage
- #(quasicons quasiappend quasivector quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- (list->vector #{x\ 4388}#)))
- #{tmp\ 4386}#)
- (let ((#{tmp\ 4390}#
- ($sc-dispatch
- #{tmp\ 4385}#
- '(#(free-id
- #(syntax-object
- list
- ((top)
- #(ribcage #(x) #((top)) #("i4383"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- .
- each-any))))
- (if #{tmp\ 4390}#
- (@apply
- (lambda (#{x\ 4392}#)
- (cons '#(syntax-object
- vector
- ((top)
- #(ribcage #(x) #((top)) #("i4391"))
- #(ribcage #(x) #((top)) #("i4383"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- #{x\ 4392}#))
- #{tmp\ 4390}#)
- (let ((#{_\ 4395}# #{tmp\ 4385}#))
- (list '#(syntax-object
- list->vector
+ "source expression failed to match any pattern"
+ tmp-26068))))))
+ (quasiappend-25795
+ (lambda (x-26103 y-26104)
+ (let ((tmp-26106
+ ($sc-dispatch y-26104 '(#(atom "quote") ()))))
+ (if tmp-26106
+ (@apply
+ (lambda ()
+ (if (null? x-26103)
+ '(#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25636" "l-*-25637"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ ())
+ (if (null? (cdr x-26103))
+ (car x-26103)
+ (let ((tmp-26109 ($sc-dispatch x-26103 'each-any)))
+ (if tmp-26109
+ (@apply
+ (lambda (p-26113)
+ (cons '#(syntax-object
+ "append"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-25644"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25636" "l-*-25637"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ p-26113))
+ tmp-26109)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-26103))))))
+ tmp-26106)
+ (if (null? x-26103)
+ y-26104
+ (let ((tmp-26120 (list x-26103 y-26104)))
+ (let ((tmp-26121
+ ($sc-dispatch tmp-26120 '(each-any any))))
+ (if tmp-26121
+ (@apply
+ (lambda (p-26123 y-26124)
+ (cons '#(syntax-object
+ "append"
((top)
- #(ribcage #(_) #((top)) #("i4394"))
- #(ribcage #(x) #((top)) #("i4383"))
#(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4380"))
#(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- #{x\ 4384}#)))))))))))
- (#{quasi\ 4337}#
- (lambda (#{p\ 4396}# #{lev\ 4397}#)
- (let ((#{tmp\ 4400}# #{p\ 4396}#))
- (let ((#{tmp\ 4401}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '(#(free-id
- #(syntax-object
- unquote
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons quasiappend quasivector quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- any))))
- (if #{tmp\ 4401}#
- (@apply
- (lambda (#{p\ 4403}#)
- (if (= #{lev\ 4397}# 0)
- #{p\ 4403}#
- (#{quasicons\ 4334}#
- '(#(syntax-object
- quote
- ((top)
- #(ribcage #(p) #((top)) #("i4402"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons quasiappend quasivector quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- #(syntax-object
- unquote
- ((top)
- #(ribcage #(p) #((top)) #("i4402"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons quasiappend quasivector quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- (#{quasi\ 4337}#
- (list #{p\ 4403}#)
- (1- #{lev\ 4397}#)))))
- #{tmp\ 4401}#)
- (let ((#{tmp\ 4404}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '(#(free-id
- #(syntax-object
- unquote
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons quasiappend quasivector quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- .
- any))))
- (if (if #{tmp\ 4404}#
- (@apply
- (lambda (#{args\ 4406}#) (= #{lev\ 4397}# 0))
- #{tmp\ 4404}#)
- #f)
- (@apply
- (lambda (#{args\ 4408}#)
- (syntax-violation
- 'unquote
- "unquote takes exactly one argument"
- #{p\ 4396}#
- (cons '#(syntax-object
- unquote
- ((top)
- #(ribcage #(args) #((top)) #("i4407"))
+ #(p y)
+ #((top) (top))
+ #("l-*-25651" "l-*-25652"))
#(ribcage () () ())
#(ribcage
- #(p lev)
+ #(x y)
#((top) (top))
- #("i4398" "i4399"))
+ #("l-*-25636" "l-*-25637"))
#(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- #{args\ 4408}#)))
- #{tmp\ 4404}#)
- (let ((#{tmp\ 4409}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '((#(free-id
- #(syntax-object
- unquote-splicing
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- any)
- .
- any))))
- (if #{tmp\ 4409}#
- (@apply
- (lambda (#{p\ 4412}# #{q\ 4413}#)
- (if (= #{lev\ 4397}# 0)
- (#{quasiappend\ 4335}#
- #{p\ 4412}#
- (#{quasi\ 4337}# #{q\ 4413}# #{lev\ 4397}#))
- (#{quasicons\ 4334}#
- (#{quasicons\ 4334}#
- '(#(syntax-object
- quote
- ((top)
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4410" "i4411"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile))
- #(syntax-object
- unquote-splicing
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
((top)
- #(ribcage
- #(p q)
- #((top) (top))
- #("i4410" "i4411"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330" "i4331" "i4332" "i4333")))
- (hygiene guile)))
- (#{quasi\ 4337}#
- (list #{p\ 4412}#)
- (1- #{lev\ 4397}#)))
- (#{quasi\ 4337}# #{q\ 4413}# #{lev\ 4397}#))))
- #{tmp\ 4409}#)
- (let ((#{tmp\ 4414}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '((#(free-id
- #(syntax-object
- unquote-splicing
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ (append p-26123 (list y-26124))))
+ tmp-26121)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-26120)))))))))
+ (quasilist*-25796
+ (lambda (x-26126 y-26127)
+ (letrec*
+ ((f-26128
+ (lambda (x-26217)
+ (if (null? x-26217)
+ y-26127
+ (quasicons-25794
+ (car x-26217)
+ (f-26128 (cdr x-26217)))))))
+ (f-26128 x-26126))))
+ (emit-25798
+ (lambda (x-26220)
+ (let ((tmp-26222
+ ($sc-dispatch x-26220 '(#(atom "quote") any))))
+ (if tmp-26222
+ (@apply
+ (lambda (x-26226)
+ (list '#(syntax-object
+ quote
+ ((top)
+ #(ribcage #(x) #((top)) #("l-*-25716"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-25713"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top) (top) (top) (top) (top) (top) (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ x-26226))
+ tmp-26222)
+ (let ((tmp-26227
+ ($sc-dispatch
+ x-26220
+ '(#(atom "list") . each-any))))
+ (if tmp-26227
+ (@apply
+ (lambda (x-26231)
+ (let ((tmp-26232 (map emit-25798 x-26231)))
+ (let ((tmp-26233 ($sc-dispatch tmp-26232 'each-any)))
+ (if tmp-26233
+ (@apply
+ (lambda (t-25721-26235)
+ (cons '#(syntax-object
+ list
((top)
#(ribcage () () ())
#(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
+ #(t-25721)
+ #((m-*-25722 top))
+ #("l-*-25726"))
#(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile)))
- .
- any)
- .
- any))))
- (if (if #{tmp\ 4414}#
- (@apply
- (lambda (#{args\ 4417}# #{q\ 4418}#)
- (= #{lev\ 4397}# 0))
- #{tmp\ 4414}#)
- #f)
- (@apply
- (lambda (#{args\ 4421}# #{q\ 4422}#)
- (syntax-violation
- 'unquote-splicing
- "unquote-splicing takes exactly one argument"
- #{p\ 4396}#
- (cons '#(syntax-object
- unquote-splicing
- ((top)
- #(ribcage
- #(args q)
- #((top) (top))
- #("i4419" "i4420"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile))
- #{args\ 4421}#)))
- #{tmp\ 4414}#)
- (let ((#{tmp\ 4423}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '(#(free-id
- #(syntax-object
- quasiquote
+ #(x)
+ #((top))
+ #("l-*-25719"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25713"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
((top)
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile)))
- any))))
- (if #{tmp\ 4423}#
- (@apply
- (lambda (#{p\ 4425}#)
- (#{quasicons\ 4334}#
- '(#(syntax-object
- quote
- ((top)
- #(ribcage #(p) #((top)) #("i4424"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile))
- #(syntax-object
- quasiquote
- ((top)
- #(ribcage #(p) #((top)) #("i4424"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top) (top) (top) (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile)))
- (#{quasi\ 4337}#
- (list #{p\ 4425}#)
- (1+ #{lev\ 4397}#))))
- #{tmp\ 4423}#)
- (let ((#{tmp\ 4426}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '(any . any))))
- (if #{tmp\ 4426}#
- (@apply
- (lambda (#{p\ 4429}# #{q\ 4430}#)
- (#{quasicons\ 4334}#
- (#{quasi\ 4337}#
- #{p\ 4429}#
- #{lev\ 4397}#)
- (#{quasi\ 4337}#
- #{q\ 4430}#
- #{lev\ 4397}#)))
- #{tmp\ 4426}#)
- (let ((#{tmp\ 4431}#
- ($sc-dispatch
- #{tmp\ 4400}#
- '#(vector each-any))))
- (if #{tmp\ 4431}#
- (@apply
- (lambda (#{x\ 4433}#)
- (#{quasivector\ 4336}#
- (#{quasi\ 4337}#
- #{x\ 4433}#
- #{lev\ 4397}#)))
- #{tmp\ 4431}#)
- (let ((#{p\ 4436}# #{tmp\ 4400}#))
- (list '#(syntax-object
- quote
- ((top)
- #(ribcage
- #(p)
- #((top))
- #("i4435"))
- #(ribcage () () ())
- #(ribcage
- #(p lev)
- #((top) (top))
- #("i4398" "i4399"))
- #(ribcage
- #(quasicons
- quasiappend
- quasivector
- quasi)
- #((top)
- (top)
- (top)
- (top))
- #("i4330"
- "i4331"
- "i4332"
- "i4333")))
- (hygiene guile))
- #{p\ 4436}#))))))))))))))))))))
- (begin
- (lambda (#{x\ 4437}#)
- (let ((#{tmp\ 4439}# #{x\ 4437}#))
- (let ((#{tmp\ 4440}#
- ($sc-dispatch #{tmp\ 4439}# (quote (any any)))))
- (if #{tmp\ 4440}#
- (@apply
- (lambda (#{_\ 4443}# #{e\ 4444}#)
- (#{quasi\ 4337}# #{e\ 4444}# 0))
- #{tmp\ 4440}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4439}#)))))))))
-
-(define include
- (make-syntax-transformer
- 'include
- 'macro
- (lambda (#{x\ 4445}#)
- (letrec*
- ((#{read-file\ 4448}#
- (lambda (#{fn\ 4449}# #{k\ 4450}#)
- (begin
- (let ((#{p\ 4454}# (open-input-file #{fn\ 4449}#)))
- (letrec*
- ((#{f\ 4458}#
- (lambda (#{x\ 4459}# #{result\ 4460}#)
- (if (eof-object? #{x\ 4459}#)
- (begin
- (close-input-port #{p\ 4454}#)
- (reverse #{result\ 4460}#))
- (#{f\ 4458}#
- (read #{p\ 4454}#)
- (cons (datum->syntax #{k\ 4450}# #{x\ 4459}#)
- #{result\ 4460}#))))))
- (begin
- (#{f\ 4458}# (read #{p\ 4454}#) (quote ())))))))))
- (begin
- (let ((#{tmp\ 4461}# #{x\ 4445}#))
- (let ((#{tmp\ 4462}#
- ($sc-dispatch #{tmp\ 4461}# (quote (any any)))))
- (if #{tmp\ 4462}#
- (@apply
- (lambda (#{k\ 4465}# #{filename\ 4466}#)
- (begin
- (let ((#{fn\ 4468}# (syntax->datum #{filename\ 4466}#)))
- (let ((#{tmp\ 4470}#
- (#{read-file\ 4448}#
- #{fn\ 4468}#
- #{filename\ 4466}#)))
- (let ((#{tmp\ 4471}#
- ($sc-dispatch
- #{tmp\ 4470}#
- 'each-any)))
- (if #{tmp\ 4471}#
- (@apply
- (lambda (#{exp\ 4473}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(exp)
- #((top))
- #("i4472"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(fn)
- #((top))
- #("i4467"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4463" "i4464"))
- #(ribcage
- (read-file)
- ((top))
- ("i4447"))
- #(ribcage
- #(x)
- #((top))
- #("i4446")))
- (hygiene guile))
- #{exp\ 4473}#))
- #{tmp\ 4471}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4470}#)))))))
- #{tmp\ 4462}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4461}#)))))))))
-
-(define include-from-path
- (make-syntax-transformer
- 'include-from-path
- 'macro
- (lambda (#{x\ 4475}#)
- (let ((#{tmp\ 4477}# #{x\ 4475}#))
- (let ((#{tmp\ 4478}#
- ($sc-dispatch #{tmp\ 4477}# (quote (any any)))))
- (if #{tmp\ 4478}#
- (@apply
- (lambda (#{k\ 4481}# #{filename\ 4482}#)
- (begin
- (let ((#{fn\ 4484}# (syntax->datum #{filename\ 4482}#)))
- (let ((#{tmp\ 4486}#
- (datum->syntax
- #{filename\ 4482}#
- (begin
- (let ((#{t\ 4491}#
- (%search-load-path #{fn\ 4484}#)))
- (if #{t\ 4491}#
- #{t\ 4491}#
- (syntax-violation
- 'include-from-path
- "file not found in path"
- #{x\ 4475}#
- #{filename\ 4482}#)))))))
- (let ((#{fn\ 4488}# #{tmp\ 4486}#))
- (list '#(syntax-object
- include
- ((top)
- #(ribcage #(fn) #((top)) #("i4487"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4483"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4479" "i4480"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4476")))
- (hygiene guile))
- #{fn\ 4488}#))))))
- #{tmp\ 4478}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4477}#)))))))
-
-(define unquote
- (make-syntax-transformer
- 'unquote
- 'macro
- (lambda (#{x\ 4493}#)
- (let ((#{tmp\ 4495}# #{x\ 4493}#))
- (let ((#{tmp\ 4496}#
- ($sc-dispatch #{tmp\ 4495}# (quote (any any)))))
- (if #{tmp\ 4496}#
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ t-25721-26235))
+ tmp-26233)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-26232)))))
+ tmp-26227)
+ (let ((tmp-26236
+ ($sc-dispatch
+ x-26220
+ '(#(atom "list*") . #(each+ any (any) ())))))
+ (if tmp-26236
+ (@apply
+ (lambda (x-26240 y-26241)
+ (letrec*
+ ((f-26242
+ (lambda (x*-26245)
+ (if (null? x*-26245)
+ (emit-25798 y-26241)
+ (let ((tmp-26246
+ (list (emit-25798 (car x*-26245))
+ (f-26242 (cdr x*-26245)))))
+ (let ((tmp-26247
+ ($sc-dispatch
+ tmp-26246
+ '(any any))))
+ (if tmp-26247
+ (@apply
+ (lambda (t-25741-26249
+ t-25740-26250)
+ (list '#(syntax-object
+ cons
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(t-25741 t-25740)
+ #((m-*-25742 top)
+ (m-*-25742 top))
+ #("l-*-25746"
+ "l-*-25747"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f x*)
+ #((top) (top))
+ #("l-*-25735"
+ "l-*-25736"))
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-25731"
+ "l-*-25732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25713"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ t-25741-26249
+ t-25740-26250))
+ tmp-26247)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-26246))))))))
+ (f-26242 x-26240)))
+ tmp-26236)
+ (let ((tmp-26251
+ ($sc-dispatch
+ x-26220
+ '(#(atom "append") . each-any))))
+ (if tmp-26251
+ (@apply
+ (lambda (x-26255)
+ (let ((tmp-26256 (map emit-25798 x-26255)))
+ (let ((tmp-26257
+ ($sc-dispatch tmp-26256 'each-any)))
+ (if tmp-26257
+ (@apply
+ (lambda (t-25753-26259)
+ (cons '#(syntax-object
+ append
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(t-25753)
+ #((m-*-25754 top))
+ #("l-*-25758"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25751"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25713"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ t-25753-26259))
+ tmp-26257)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-26256)))))
+ tmp-26251)
+ (let ((tmp-26260
+ ($sc-dispatch
+ x-26220
+ '(#(atom "vector") . each-any))))
+ (if tmp-26260
+ (@apply
+ (lambda (x-26264)
+ (let ((tmp-26265 (map emit-25798 x-26264)))
+ (let ((tmp-26266
+ ($sc-dispatch
+ tmp-26265
+ 'each-any)))
+ (if tmp-26266
+ (@apply
+ (lambda (t-25765-26268)
+ (cons '#(syntax-object
+ vector
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(t-25765)
+ #((m-*-25766 top))
+ #("l-*-25770"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25763"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25713"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ t-25765-26268))
+ tmp-26266)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-26265)))))
+ tmp-26260)
+ (let ((tmp-26269
+ ($sc-dispatch
+ x-26220
+ '(#(atom "list->vector") any))))
+ (if tmp-26269
+ (@apply
+ (lambda (x-26273)
+ (let ((tmp-26274 (emit-25798 x-26273)))
+ (list '#(syntax-object
+ list->vector
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(t-25777)
+ #((m-*-25778 top))
+ #("l-*-25781"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25775"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-25713"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("l-*-25552"
+ "l-*-25550"
+ "l-*-25548"
+ "l-*-25546"
+ "l-*-25544"
+ "l-*-25542"
+ "l-*-25540")))
+ (hygiene guile))
+ tmp-26274)))
+ tmp-26269)
+ (let ((tmp-26277
+ ($sc-dispatch
+ x-26220
+ '(#(atom "value") any))))
+ (if tmp-26277
+ (@apply
+ (lambda (x-26281) x-26281)
+ tmp-26277)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-26220))))))))))))))))))
+ (lambda (x-25799)
+ (let ((tmp-25801 ($sc-dispatch x-25799 '(_ any))))
+ (if tmp-25801
(@apply
- (lambda (#{_\ 4499}# #{e\ 4500}#)
- (syntax-violation
- 'unquote
- "expression not valid outside of quasiquote"
- #{x\ 4493}#))
- #{tmp\ 4496}#)
+ (lambda (e-25805)
+ (emit-25798 (quasi-25792 e-25805 0)))
+ tmp-25801)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4495}#)))))))
+ x-25799)))))))
-(define unquote-splicing
+(define include
(make-syntax-transformer
- 'unquote-splicing
+ 'include
'macro
- (lambda (#{x\ 4501}#)
- (let ((#{tmp\ 4503}# #{x\ 4501}#))
- (let ((#{tmp\ 4504}#
- ($sc-dispatch #{tmp\ 4503}# (quote (any any)))))
- (if #{tmp\ 4504}#
+ (lambda (x-26336)
+ (letrec*
+ ((read-file-26337
+ (lambda (fn-26446 k-26447)
+ (let ((p-26448 (open-input-file fn-26446)))
+ (letrec*
+ ((f-26449
+ (lambda (x-26503 result-26504)
+ (if (eof-object? x-26503)
+ (begin
+ (close-input-port p-26448)
+ (reverse result-26504))
+ (f-26449
+ (read p-26448)
+ (cons (datum->syntax k-26447 x-26503)
+ result-26504))))))
+ (f-26449 (read p-26448) '()))))))
+ (let ((tmp-26339 ($sc-dispatch x-26336 '(any any))))
+ (if tmp-26339
(@apply
- (lambda (#{_\ 4507}# #{e\ 4508}#)
- (syntax-violation
- 'unquote-splicing
- "expression not valid outside of quasiquote"
- #{x\ 4501}#))
- #{tmp\ 4504}#)
+ (lambda (k-26343 filename-26344)
+ (let ((fn-26345 (syntax->datum filename-26344)))
+ (let ((tmp-26346
+ (read-file-26337 fn-26345 filename-26344)))
+ (let ((tmp-26347 ($sc-dispatch tmp-26346 'each-any)))
+ (if tmp-26347
+ (@apply
+ (lambda (exp-26365)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(exp) #((top)) #("l-*-26333"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("l-*-26328"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
+ #("l-*-26324" "l-*-26325"))
+ #(ribcage
+ (read-file)
+ ((top))
+ ("l-*-26308"))
+ #(ribcage #(x) #((top)) #("l-*-26307")))
+ (hygiene guile))
+ exp-26365))
+ tmp-26347)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ tmp-26346))))))
+ tmp-26339)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4503}#)))))))
+ x-26336)))))))
-(define case
+(define include-from-path
(make-syntax-transformer
- 'case
+ 'include-from-path
'macro
- (lambda (#{x\ 4509}#)
- (let ((#{tmp\ 4511}# #{x\ 4509}#))
- (let ((#{tmp\ 4512}#
- ($sc-dispatch
- #{tmp\ 4511}#
- '(any any any . each-any))))
- (if #{tmp\ 4512}#
- (@apply
- (lambda (#{_\ 4517}#
- #{e\ 4518}#
- #{m1\ 4519}#
- #{m2\ 4520}#)
- (let ((#{tmp\ 4522}#
- (letrec*
- ((#{f\ 4528}#
- (lambda (#{clause\ 4529}# #{clauses\ 4530}#)
- (if (null? #{clauses\ 4530}#)
- (let ((#{tmp\ 4532}# #{clause\ 4529}#))
- (let ((#{tmp\ 4533}#
- ($sc-dispatch
- #{tmp\ 4532}#
- '(#(free-id
- #(syntax-object
- else
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(f clause clauses)
- #((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile)))
- any
- .
- each-any))))
- (if #{tmp\ 4533}#
- (@apply
- (lambda (#{e1\ 4536}# #{e2\ 4537}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(e1 e2)
- #((top) (top))
- #("i4534" "i4535"))
- #(ribcage () () ())
- #(ribcage
- #(f clause clauses)
- #((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- (cons #{e1\ 4536}#
- #{e2\ 4537}#)))
- #{tmp\ 4533}#)
- (let ((#{tmp\ 4539}#
- ($sc-dispatch
- #{tmp\ 4532}#
- '(each-any any . each-any))))
- (if #{tmp\ 4539}#
- (@apply
- (lambda (#{k\ 4543}#
- #{e1\ 4544}#
- #{e2\ 4545}#)
- (list '#(syntax-object
- if
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top) (top) (top))
- #("i4540"
- "i4541"
- "i4542"))
- #(ribcage () () ())
- #(ribcage
- #(f clause clauses)
- #((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- (list '#(syntax-object
- memv
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4540"
- "i4541"
- "i4542"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- '#(syntax-object
- t
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4540"
- "i4541"
- "i4542"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- (list '#(syntax-object
- quote
- ((top)
- #(ribcage
- #(k
- e1
- e2)
- #((top)
- (top)
- (top))
- #("i4540"
- "i4541"
- "i4542"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_
- e
- m1
- m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene
- guile))
- #{k\ 4543}#))
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4540"
- "i4541"
- "i4542"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- (cons #{e1\ 4544}#
- #{e2\ 4545}#))))
- #{tmp\ 4539}#)
- (let ((#{_\ 4549}# #{tmp\ 4532}#))
- (syntax-violation
- 'case
- "bad clause"
- #{x\ 4509}#
- #{clause\ 4529}#)))))))
- (let ((#{tmp\ 4551}#
- (#{f\ 4528}#
- (car #{clauses\ 4530}#)
- (cdr #{clauses\ 4530}#))))
- (let ((#{rest\ 4553}# #{tmp\ 4551}#))
- (let ((#{tmp\ 4554}# #{clause\ 4529}#))
- (let ((#{tmp\ 4555}#
- ($sc-dispatch
- #{tmp\ 4554}#
- '(each-any any . each-any))))
- (if #{tmp\ 4555}#
- (@apply
- (lambda (#{k\ 4559}#
- #{e1\ 4560}#
- #{e2\ 4561}#)
+ (lambda (x-26523)
+ (let ((tmp-26525 ($sc-dispatch x-26523 '(any any))))
+ (if tmp-26525
+ (@apply
+ (lambda (k-26529 filename-26530)
+ (let ((fn-26531 (syntax->datum filename-26530)))
+ (let ((tmp-26532
+ (datum->syntax
+ filename-26530
+ (let ((t-26535 (%search-load-path fn-26531)))
+ (if t-26535
+ t-26535
+ (syntax-violation
+ 'include-from-path
+ "file not found in path"
+ x-26523
+ filename-26530))))))
+ (list '#(syntax-object
+ include
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("l-*-26517"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("l-*-26513"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
+ #("l-*-26509" "l-*-26510"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26506")))
+ (hygiene guile))
+ tmp-26532))))
+ tmp-26525)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-26523))))))
+
+(define unquote
+ (make-syntax-transformer
+ 'unquote
+ 'macro
+ (lambda (x-26544)
+ (syntax-violation
+ 'unquote
+ "expression not valid outside of quasiquote"
+ x-26544))))
+
+(define unquote-splicing
+ (make-syntax-transformer
+ 'unquote-splicing
+ 'macro
+ (lambda (x-26547)
+ (syntax-violation
+ 'unquote-splicing
+ "expression not valid outside of quasiquote"
+ x-26547))))
+
+(define case
+ (make-syntax-transformer
+ 'case
+ 'macro
+ (lambda (x-26599)
+ (let ((tmp-26601
+ ($sc-dispatch x-26599 '(_ any any . each-any))))
+ (if tmp-26601
+ (@apply
+ (lambda (e-26605 m1-26606 m2-26607)
+ (let ((tmp-26608
+ (letrec*
+ ((f-26652
+ (lambda (clause-26655 clauses-26656)
+ (if (null? clauses-26656)
+ (let ((tmp-26658
+ ($sc-dispatch
+ clause-26655
+ '(#(free-id
+ #(syntax-object
+ else
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile)))
+ any
+ .
+ each-any))))
+ (if tmp-26658
+ (@apply
+ (lambda (e1-26662 e2-26663)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-26571" "l-*-26572"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ (cons e1-26662 e2-26663)))
+ tmp-26658)
+ (let ((tmp-26664
+ ($sc-dispatch
+ clause-26655
+ '(each-any any . each-any))))
+ (if tmp-26664
+ (@apply
+ (lambda (k-26668 e1-26669 e2-26670)
+ (list '#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top) (top) (top))
+ #("l-*-26577"
+ "l-*-26578"
+ "l-*-26579"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ (list '#(syntax-object
+ memv
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26577"
+ "l-*-26578"
+ "l-*-26579"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ '#(syntax-object
+ t
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26577"
+ "l-*-26578"
+ "l-*-26579"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ (list '#(syntax-object
+ quote
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26577"
+ "l-*-26578"
+ "l-*-26579"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene
+ guile))
+ k-26668))
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26577"
+ "l-*-26578"
+ "l-*-26579"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ clause
+ clauses)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top)
+ (top)
+ (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ (cons e1-26669
+ e2-26670))))
+ tmp-26664)
+ (syntax-violation
+ 'case
+ "bad clause"
+ x-26599
+ clause-26655)))))
+ (let ((tmp-26677
+ (f-26652
+ (car clauses-26656)
+ (cdr clauses-26656))))
+ (let ((tmp-26680
+ ($sc-dispatch
+ clause-26655
+ '(each-any any . each-any))))
+ (if tmp-26680
+ (@apply
+ (lambda (k-26682 e1-26683 e2-26684)
+ (list '#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top) (top) (top))
+ #("l-*-26591"
+ "l-*-26592"
+ "l-*-26593"))
+ #(ribcage () () ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("l-*-26587"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
(list '#(syntax-object
- if
+ memv
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4556"
- "i4557"
- "i4558"))
+ #("l-*-26591"
+ "l-*-26592"
+ "l-*-26593"))
+ #(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4552"))
+ #("l-*-26587"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ '#(syntax-object
+ t
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top) (top) (top))
+ #("l-*-26591"
+ "l-*-26592"
+ "l-*-26593"))
+ #(ribcage () () ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("l-*-26587"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("l-*-26549")))
(hygiene guile))
(list '#(syntax-object
- memv
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4556"
- "i4557"
- "i4558"))
- #(ribcage
- #(rest)
- #((top))
- #("i4552"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- '#(syntax-object
- t
+ quote
((top)
#(ribcage
#(k e1 e2)
#((top)
(top)
(top))
- #("i4556"
- "i4557"
- "i4558"))
- #(ribcage
- #(rest)
- #((top))
- #("i4552"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("l-*-26591"
+ "l-*-26592"
+ "l-*-26593"))
#(ribcage
()
()
())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene guile))
- (list '#(syntax-object
- quote
- ((top)
- #(ribcage
- #(k
- e1
- e2)
- #((top)
- (top)
- (top))
- #("i4556"
- "i4557"
- "i4558"))
- #(ribcage
- #(rest)
- #((top))
- #("i4552"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- clause
- clauses)
- #((top)
- (top)
- (top))
- #("i4525"
- "i4526"
- "i4527"))
- #(ribcage
- #(_
- e
- m1
- m2)
- #((top)
- (top)
- (top)
- (top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i4510")))
- (hygiene
- guile))
- #{k\ 4559}#))
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage
- #(k e1 e2)
- #((top)
- (top)
- (top))
- #("i4556"
- "i4557"
- "i4558"))
#(ribcage
#(rest)
#((top))
- #("i4552"))
+ #("l-*-26587"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4525"
- "i4526"
- "i4527"))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
- (top)
(top)
(top))
- #("i4513"
- "i4514"
- "i4515"
- "i4516"))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4510")))
+ #("l-*-26549")))
(hygiene guile))
- (cons #{e1\ 4560}#
- #{e2\ 4561}#))
- #{rest\ 4553}#))
- #{tmp\ 4555}#)
- (let ((#{_\ 4565}# #{tmp\ 4554}#))
- (syntax-violation
- 'case
- "bad clause"
- #{x\ 4509}#
- #{clause\ 4529}#)))))))))))
- (begin (#{f\ 4528}# #{m1\ 4519}# #{m2\ 4520}#)))))
- (let ((#{body\ 4524}# #{tmp\ 4522}#))
+ k-26682))
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage
+ #(k e1 e2)
+ #((top) (top) (top))
+ #("l-*-26591"
+ "l-*-26592"
+ "l-*-26593"))
+ #(ribcage () () ())
+ #(ribcage
+ #(rest)
+ #((top))
+ #("l-*-26587"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f clause clauses)
+ #((top) (top) (top))
+ #("l-*-26562"
+ "l-*-26563"
+ "l-*-26564"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ (cons e1-26683 e2-26684))
+ tmp-26677))
+ tmp-26680)
+ (syntax-violation
+ 'case
+ "bad clause"
+ x-26599
+ clause-26655))))))))
+ (f-26652 m1-26606 m2-26607))))
+ (let ((body-26609 tmp-26608))
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(body) #((top)) #("l-*-26560"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552" "l-*-26553" "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26549")))
+ (hygiene guile))
+ (list (list '#(syntax-object
+ t
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(body)
+ #((top))
+ #("l-*-26560"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("l-*-26552"
+ "l-*-26553"
+ "l-*-26554"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26549")))
+ (hygiene guile))
+ e-26605))
+ body-26609))))
+ tmp-26601)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-26599))))))
+
+(define make-variable-transformer
+ (lambda (proc-26699)
+ (if (procedure? proc-26699)
+ (letrec*
+ ((trans-26700
+ (lambda (x-26706) (proc-26699 x-26706))))
+ (begin
+ (set-procedure-property!
+ trans-26700
+ 'variable-transformer
+ #t)
+ trans-26700))
+ (error "variable transformer not a procedure"
+ proc-26699))))
+
+(define identifier-syntax
+ (make-syntax-transformer
+ 'identifier-syntax
+ 'macro
+ (lambda (x-26738)
+ (let ((tmp-26740 ($sc-dispatch x-26738 '(_ any))))
+ (if tmp-26740
+ (@apply
+ (lambda (e-26744)
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile)))
+ '#((#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ identifier-syntax
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))))
(list '#(syntax-object
- let
+ syntax-case
((top)
- #(ribcage #(body) #((top)) #("i4523"))
- #(ribcage
- #(_ e m1 m2)
- #((top) (top) (top) (top))
- #("i4513" "i4514" "i4515" "i4516"))
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ '#(syntax-object
+ x
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4510")))
+ #(ribcage #(x) #((top)) #("l-*-26710")))
(hygiene guile))
- (list (list '#(syntax-object
- t
+ '()
+ (list '#(syntax-object
+ id
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ '(#(syntax-object
+ identifier?
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ (#(syntax-object
+ syntax
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ #(syntax-object
+ id
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ e-26744))
+ (list '(#(syntax-object
+ _
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ #(syntax-object
+ x
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage #(e) #((top)) #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile)))
+ (list '#(syntax-object
+ syntax
((top)
#(ribcage
- #(body)
+ #(e)
#((top))
- #("i4523"))
- #(ribcage
- #(_ e m1 m2)
- #((top) (top) (top) (top))
- #("i4513" "i4514" "i4515" "i4516"))
+ #("l-*-26713"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4510")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
(hygiene guile))
- #{e\ 4518}#))
- #{body\ 4524}#))))
- #{tmp\ 4512}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4511}#)))))))
-
-(define identifier-syntax
- (make-syntax-transformer
- 'identifier-syntax
- 'macro
- (lambda (#{x\ 4566}#)
- (let ((#{tmp\ 4568}# #{x\ 4566}#))
- (let ((#{tmp\ 4569}#
- ($sc-dispatch #{tmp\ 4568}# (quote (any any)))))
- (if #{tmp\ 4569}#
- (@apply
- (lambda (#{_\ 4572}# #{e\ 4573}#)
- (list '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile)))
- '#((#(syntax-object
- macro-type
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))
- .
- #(syntax-object
- identifier-syntax
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))))
- (list '#(syntax-object
- syntax-case
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))
- '#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))
- '()
- (list '#(syntax-object
- id
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))
- '(#(syntax-object
- identifier?
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))
- (#(syntax-object
- syntax
+ (cons e-26744
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-26713"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile)))))))))
+ tmp-26740)
+ (let ((tmp-26745
+ ($sc-dispatch
+ x-26738
+ '(_ (any any)
+ ((#(free-id
+ #(syntax-object
+ set!
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile)))
+ any
+ any)
+ any)))))
+ (if (if tmp-26745
+ (@apply
+ (lambda (id-26749
+ exp1-26750
+ var-26751
+ val-26752
+ exp2-26753)
+ (if (identifier? id-26749)
+ (identifier? var-26751)
+ #f))
+ tmp-26745)
+ #f)
+ (@apply
+ (lambda (id-26754
+ exp1-26755
+ var-26756
+ val-26757
+ exp2-26758)
+ (list '#(syntax-object
+ make-variable-transformer
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ (list '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile)))
+ '#((#(syntax-object
+ macro-type
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))
+ .
+ #(syntax-object
+ variable-transformer
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26710")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax-case
((top)
#(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
(hygiene guile))
- #(syntax-object
- id
+ '#(syntax-object
+ x
((top)
#(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4567")))
- (hygiene guile))))
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4567")))
- (hygiene guile))
- #{e\ 4573}#))
- (list (cons #{_\ 4572}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4567")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4567")))
- (hygiene guile))))
- (list '#(syntax-object
- syntax
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4567")))
- (hygiene guile))
- (cons #{e\ 4573}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4567")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i4570" "i4571"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4567")))
- (hygiene guile)))))))))
- #{tmp\ 4569}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4568}#)))))))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ '(#(syntax-object
+ set!
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile)))
+ (list (list '#(syntax-object
+ set!
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ var-26756
+ val-26757)
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ exp2-26758))
+ (list (cons id-26754
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ (cons exp1-26755
+ '(#(syntax-object
+ x
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))))))
+ (list id-26754
+ (list '#(syntax-object
+ identifier?
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id
+ exp1
+ var
+ val
+ exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ id-26754))
+ (list '#(syntax-object
+ syntax
+ ((top)
+ #(ribcage
+ #(id exp1 var val exp2)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("l-*-26728"
+ "l-*-26729"
+ "l-*-26730"
+ "l-*-26731"
+ "l-*-26732"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-26710")))
+ (hygiene guile))
+ exp1-26755))))))
+ tmp-26745)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-26738))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4574}#)
- (let ((#{tmp\ 4576}# #{x\ 4574}#))
- (let ((#{tmp\ 4577}#
- ($sc-dispatch
- #{tmp\ 4576}#
- '(any (any . any) any . each-any))))
- (if #{tmp\ 4577}#
- (@apply
- (lambda (#{_\ 4583}#
- #{id\ 4584}#
- #{args\ 4585}#
- #{b0\ 4586}#
- #{b1\ 4587}#)
- (list '#(syntax-object
- define
- ((top)
- #(ribcage
- #(_ id args b0 b1)
- #((top) (top) (top) (top) (top))
- #("i4578" "i4579" "i4580" "i4581" "i4582"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
- (hygiene guile))
- #{id\ 4584}#
- (cons '#(syntax-object
- lambda*
- ((top)
- #(ribcage
- #(_ id args b0 b1)
- #((top) (top) (top) (top) (top))
- #("i4578" "i4579" "i4580" "i4581" "i4582"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
- (hygiene guile))
- (cons #{args\ 4585}#
- (cons #{b0\ 4586}# #{b1\ 4587}#)))))
- #{tmp\ 4577}#)
- (let ((#{tmp\ 4589}#
- ($sc-dispatch
- #{tmp\ 4576}#
- '(any any any))))
- (if (if #{tmp\ 4589}#
- (@apply
- (lambda (#{_\ 4593}# #{id\ 4594}# #{val\ 4595}#)
- (identifier?
- '#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ id val)
- #((top) (top) (top))
- #("i4590" "i4591" "i4592"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
- (hygiene guile))))
- #{tmp\ 4589}#)
- #f)
- (@apply
- (lambda (#{_\ 4599}# #{id\ 4600}# #{val\ 4601}#)
- (list '#(syntax-object
- define
+ (lambda (x-26790)
+ (let ((tmp-26792
+ ($sc-dispatch
+ x-26790
+ '(_ (any . any) any . each-any))))
+ (if tmp-26792
+ (@apply
+ (lambda (id-26796 args-26797 b0-26798 b1-26799)
+ (list '#(syntax-object
+ define
+ ((top)
+ #(ribcage
+ #(id args b0 b1)
+ #((top) (top) (top) (top))
+ #("l-*-26772"
+ "l-*-26773"
+ "l-*-26774"
+ "l-*-26775"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26769")))
+ (hygiene guile))
+ id-26796
+ (cons '#(syntax-object
+ lambda*
((top)
#(ribcage
- #(_ id val)
- #((top) (top) (top))
- #("i4596" "i4597" "i4598"))
+ #(id args b0 b1)
+ #((top) (top) (top) (top))
+ #("l-*-26772"
+ "l-*-26773"
+ "l-*-26774"
+ "l-*-26775"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("l-*-26769")))
(hygiene guile))
- #{id\ 4600}#
- #{val\ 4601}#))
- #{tmp\ 4589}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 4576}#)))))))))
+ (cons args-26797 (cons b0-26798 b1-26799)))))
+ tmp-26792)
+ (let ((tmp-26800 ($sc-dispatch x-26790 '(_ any any))))
+ (if (if tmp-26800
+ (@apply
+ (lambda (id-26804 val-26805)
+ (identifier? id-26804))
+ tmp-26800)
+ #f)
+ (@apply
+ (lambda (id-26806 val-26807)
+ (list '#(syntax-object
+ define
+ ((top)
+ #(ribcage
+ #(id val)
+ #((top) (top))
+ #("l-*-26786" "l-*-26787"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("l-*-26769")))
+ (hygiene guile))
+ id-26806
+ val-26807))
+ tmp-26800)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ x-26790))))))))