From 9120f130a8ccd237d31806f381a1a1a25f5d930a Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Fri, 2 Mar 2012 17:54:23 -0500 Subject: [PATCH] Fix typos in psyntax.scm * module/ice-9/psyntax.scm (gen-syntax-case): #'pad --> #'pat (define*): #'x --> #'id * module/ice-9/psyntax-pp.scm: Regenerate --- module/ice-9/psyntax-pp.scm | 17131 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 4 +- 2 files changed, 8604 insertions(+), 8531 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index dd6b6cada..d11a3f84d 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1270 +1,1548 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((session-id-4256 (if #f #f)) - (transformer-environment-4317 (if #f #f))) +(let ((session-id-4222 (if #f #f)) + (transformer-environment-4283 (if #f #f))) (letrec* - ((top-level-eval-hook-4254 - (lambda (x-27424 mod-27425) - (primitive-eval x-27424))) - (get-global-definition-hook-4258 - (lambda (symbol-15687 module-15688) + ((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-15688) (current-module) #f) + (if (if (not module-14705) (current-module) #f) (warn "module system is booted, we should have a module" - symbol-15687)) - (let ((v-15689 + symbol-14704)) + (let ((v-14706 (module-variable - (if module-15688 - (resolve-module (cdr module-15688)) + (if module-14705 + (resolve-module (cdr module-14705)) (current-module)) - symbol-15687))) - (if v-15689 - (if (variable-bound? v-15689) - (let ((val-15691 (variable-ref v-15689))) - (if (macro? val-15691) - (if (macro-type val-15691) - (cons (macro-type val-15691) - (macro-binding val-15691)) + 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!-4260 - (lambda (name-15968 val-15969) - (if (if (struct? val-15969) - (eq? (struct-vtable val-15969) + (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-15976 (struct-ref val-15969 1))) - (if (not (assq 'name meta-15976)) - (let ((v-15981 - (cons (cons 'name name-15968) meta-15976))) - (struct-set! val-15969 1 v-15981))))))) - (build-application-4262 - (lambda (source-15693 fun-exp-15694 arg-exps-15695) + (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-15693 - fun-exp-15694 - arg-exps-15695))) - (build-conditional-4263 - (lambda (source-15701 - test-exp-15702 - then-exp-15703 - else-exp-15704) - (make-struct/no-tail - (vector-ref %expanded-vtables 10) - source-15701 - test-exp-15702 - then-exp-15703 - else-exp-15704))) - (build-dynlet-4264 - (lambda (source-15711 fluids-15712 vals-15713 body-15714) - (make-struct/no-tail - (vector-ref %expanded-vtables 17) - source-15711 - fluids-15712 - vals-15713 - body-15714))) - (build-lexical-reference-4265 - (lambda (type-27426 source-27427 name-27428 var-27429) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - source-27427 - name-27428 - var-27429))) - (build-lexical-assignment-4266 - (lambda (source-15721 name-15722 var-15723 exp-15724) - (begin - (if (if (struct? exp-15724) - (eq? (struct-vtable exp-15724) - (vector-ref %expanded-vtables 13)) - #f) - (let ((meta-15740 (struct-ref exp-15724 1))) - (if (not (assq 'name meta-15740)) - (let ((v-15747 - (cons (cons 'name name-15722) meta-15740))) - (struct-set! exp-15724 1 v-15747))))) - (make-struct/no-tail - (vector-ref %expanded-vtables 4) - source-15721 - name-15722 - var-15723 - exp-15724)))) - (analyze-variable-4267 - (lambda (mod-27435 - var-27436 - modref-cont-27437 - bare-cont-27438) - (if (not mod-27435) - (bare-cont-27438 var-27436) - (let ((kind-27439 (car mod-27435)) - (mod-27440 (cdr mod-27435))) - (if (eqv? kind-27439 'public) - (modref-cont-27437 mod-27440 var-27436 #t) - (if (eqv? kind-27439 'private) - (if (not (equal? mod-27440 (module-name (current-module)))) - (modref-cont-27437 mod-27440 var-27436 #f) - (bare-cont-27438 var-27436)) - (if (eqv? kind-27439 'bare) - (bare-cont-27438 var-27436) - (if (eqv? kind-27439 'hygiene) + 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-27440 + mod-14723 (module-name (current-module)))) (module-variable - (resolve-module mod-27440) - var-27436) + (resolve-module mod-14723) + var-14719) #f) - (modref-cont-27437 mod-27440 var-27436 #f) - (bare-cont-27438 var-27436)) + (modref-cont-14720 mod-14723 var-14719 #f) + (bare-cont-14721 var-14719)) (syntax-violation #f "bad module kind" - var-27436 - mod-27440))))))))) - (build-global-reference-4268 - (lambda (source-27467 var-27468 mod-27469) - (analyze-variable-4267 - mod-27469 - var-27468 - (lambda (mod-27472 var-27473 public?-27474) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - source-27467 - mod-27472 - var-27473 - public?-27474)) - (lambda (var-27482) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - source-27467 - var-27482))))) - (build-global-assignment-4269 - (lambda (source-15756 var-15757 exp-15758 mod-15759) - (begin - (if (if (struct? exp-15758) - (eq? (struct-vtable exp-15758) - (vector-ref %expanded-vtables 13)) - #f) - (let ((meta-15775 (struct-ref exp-15758 1))) - (if (not (assq 'name meta-15775)) - (let ((v-15782 - (cons (cons 'name var-15757) meta-15775))) - (struct-set! exp-15758 1 v-15782))))) - (analyze-variable-4267 - mod-15759 - var-15757 - (lambda (mod-15787 var-15788 public?-15789) - (make-struct/no-tail - (vector-ref %expanded-vtables 6) - source-15756 - mod-15787 - var-15788 - public?-15789 - exp-15758)) - (lambda (var-15797) - (make-struct/no-tail - (vector-ref %expanded-vtables 8) - source-15756 - var-15797 - exp-15758)))))) - (build-global-definition-4270 - (lambda (source-27488 var-27489 exp-27490) - (begin - (if (if (struct? exp-27490) - (eq? (struct-vtable exp-27490) - (vector-ref %expanded-vtables 13)) - #f) - (let ((meta-27506 (struct-ref exp-27490 1))) - (if (not (assq 'name meta-27506)) - (let ((v-27513 - (cons (cons 'name var-27489) meta-27506))) - (struct-set! exp-27490 1 v-27513))))) - (make-struct/no-tail - (vector-ref %expanded-vtables 9) - source-27488 - var-27489 - exp-27490)))) - (build-simple-lambda-4271 - (lambda (src-15803 - req-15804 - rest-15805 - vars-15806 - meta-15807 - exp-15808) - (let ((body-15814 + 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-15803 - req-15804 + src-14750 + req-14751 #f - rest-15805 + rest-14752 #f '() - vars-15806 - exp-15808 + vars-14753 + exp-14755 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-15803 - meta-15807 - body-15814)))) - (build-sequence-4276 - (lambda (src-27521 exps-27522) - (if (null? (cdr exps-27522)) - (car exps-27522) + 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-27521 - exps-27522)))) - (build-let-4277 - (lambda (src-15826 - ids-15827 - vars-15828 - val-exps-15829 - body-exp-15830) + 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!-4260 - ids-15827 - val-exps-15829) - (if (null? vars-15828) - body-exp-15830 + 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-15826 - ids-15827 - vars-15828 - val-exps-15829 - body-exp-15830))))) - (build-named-let-4278 - (lambda (src-15854 - ids-15855 - vars-15856 - val-exps-15857 - body-exp-15858) - (let ((f-15859 (car vars-15856)) - (f-name-15860 (car ids-15855)) - (vars-15861 (cdr vars-15856)) - (ids-15862 (cdr ids-15855))) - (let ((proc-15863 - (let ((body-15883 + 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-15854 - ids-15862 + src-14801 + ids-14809 #f #f #f '() - vars-15861 - body-exp-15858 + vars-14808 + body-exp-14805 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-15854 + src-14801 '() - body-15883)))) + body-14830)))) (begin - (if (if (struct? proc-15863) - (eq? (struct-vtable proc-15863) + (if (if (struct? proc-14810) + (eq? (struct-vtable proc-14810) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15907 (struct-ref proc-15863 1))) - (if (not (assq 'name meta-15907)) - (let ((v-15914 - (cons (cons 'name f-name-15860) meta-15907))) - (struct-set! proc-15863 1 v-15914))))) + (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!-4260 - ids-15862 - val-exps-15857) - (let ((names-15938 (list f-name-15860)) - (gensyms-15939 (list f-15859)) - (vals-15940 (list proc-15863)) - (body-15941 - (let ((fun-exp-15945 + 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-15854 - f-name-15860 - f-15859))) + src-14801 + f-name-14807 + f-14806))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - src-15854 - fun-exp-15945 - val-exps-15857)))) + src-14801 + fun-exp-14892 + val-exps-14804)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-15854 + src-14801 #f - names-15938 - gensyms-15939 - vals-15940 - body-15941))))))) - (build-letrec-4279 - (lambda (src-15961 - in-order?-15962 - ids-15963 - vars-15964 - val-exps-15965 - body-exp-15966) - (if (null? vars-15964) - body-exp-15966 + 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!-4260 - ids-15963 - val-exps-15965) + maybe-name-value!-4226 + ids-14910 + val-exps-14912) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-15961 - in-order?-15962 - ids-15963 - vars-15964 - val-exps-15965 - body-exp-15966))))) - (source-annotation-4288 - (lambda (x-15992) - (if (if (vector? x-15992) - (if (= (vector-length x-15992) 4) - (eq? (vector-ref x-15992 0) 'syntax-object) - #f) - #f) - (source-annotation-4288 (vector-ref x-15992 1)) - (let ((props-16007 (source-properties x-15992))) - (if (pair? props-16007) props-16007 #f))))) - (extend-env-4289 - (lambda (labels-16009 bindings-16010 r-16011) - (if (null? labels-16009) - r-16011 - (extend-env-4289 - (cdr labels-16009) - (cdr bindings-16010) - (cons (cons (car labels-16009) (car bindings-16010)) - r-16011))))) - (extend-var-env-4290 - (lambda (labels-16012 vars-16013 r-16014) - (if (null? labels-16012) - r-16014 - (extend-var-env-4290 - (cdr labels-16012) - (cdr vars-16013) - (cons (cons (car labels-16012) - (cons 'lexical (car vars-16013))) - r-16014))))) - (macros-only-env-4291 - (lambda (r-16015) - (if (null? r-16015) + 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-16016 (car r-16015))) - (if (eq? (car (cdr a-16016)) 'macro) - (cons a-16016 - (macros-only-env-4291 (cdr r-16015))) - (macros-only-env-4291 (cdr r-16015))))))) - (global-extend-4293 - (lambda (type-16018 sym-16019 val-16020) + (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-16019 + sym-14949 (make-syntax-transformer - sym-16019 - type-16018 - val-16020)))) - (id?-4295 - (lambda (x-9601) - (if (symbol? x-9601) + sym-14949 + type-14948 + val-14950)))) + (id?-4261 + (lambda (x-9380) + (if (symbol? x-9380) #t - (if (if (vector? x-9601) - (if (= (vector-length x-9601) 4) - (eq? (vector-ref x-9601 0) 'syntax-object) + (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-9601 1)) + (symbol? (vector-ref x-9380 1)) #f)))) - (gen-labels-4298 - (lambda (ls-16030) - (if (null? ls-16030) + (gen-labels-4264 + (lambda (ls-14960) + (if (null? ls-14960) '() (cons (string-append "l-" - (session-id-4256) + (session-id-4222) (symbol->string (gensym "-"))) - (gen-labels-4298 (cdr ls-16030)))))) - (make-binding-wrap-4309 - (lambda (ids-16034 labels-16035 w-16036) - (if (null? ids-16034) - w-16036 - (cons (car w-16036) - (cons (let ((labelvec-16037 (list->vector labels-16035))) - (let ((n-16038 (vector-length labelvec-16037))) - (let ((symnamevec-16039 (make-vector n-16038)) - (marksvec-16040 (make-vector n-16038))) + (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-16041 - (lambda (ids-16044 i-16045) - (if (not (null? ids-16044)) + ((f-14971 + (lambda (ids-14974 i-14975) + (if (not (null? ids-14974)) (call-with-values (lambda () - (let ((x-16048 (car ids-16044))) - (if (if (vector? x-16048) + (let ((x-14978 (car ids-14974))) + (if (if (vector? x-14978) (if (= (vector-length - x-16048) + x-14978) 4) (eq? (vector-ref - x-16048 + x-14978 0) 'syntax-object) #f) #f) (values - (vector-ref x-16048 1) - (let ((m1-16064 - (car w-16036)) - (m2-16065 + (vector-ref x-14978 1) + (let ((m1-14994 + (car w-14966)) + (m2-14995 (car (vector-ref - x-16048 + x-14978 2)))) - (if (null? m2-16065) - m1-16064 + (if (null? m2-14995) + m1-14994 (append - m1-16064 - m2-16065)))) + m1-14994 + m2-14995)))) (values - x-16048 - (car w-16036))))) - (lambda (symname-16085 marks-16086) + x-14978 + (car w-14966))))) + (lambda (symname-15015 marks-15016) (begin (vector-set! - symnamevec-16039 - i-16045 - symname-16085) + symnamevec-14969 + i-14975 + symname-15015) (vector-set! - marksvec-16040 - i-16045 - marks-16086) - (f-16041 - (cdr ids-16044) - (#{1+}# i-16045))))))))) - (f-16041 ids-16034 0)) + marksvec-14970 + i-14975 + marks-15016) + (f-14971 + (cdr ids-14974) + (#{1+}# i-14975))))))))) + (f-14971 ids-14964 0)) (vector 'ribcage - symnamevec-16039 - marksvec-16040 - labelvec-16037))))) - (cdr w-16036)))))) - (join-wraps-4311 - (lambda (w1-16095 w2-16096) - (let ((m1-16097 (car w1-16095)) - (s1-16098 (cdr w1-16095))) - (if (null? m1-16097) - (if (null? s1-16098) - w2-16096 - (cons (car w2-16096) - (let ((m2-16105 (cdr w2-16096))) - (if (null? m2-16105) - s1-16098 - (append s1-16098 m2-16105))))) - (cons (let ((m2-16114 (car w2-16096))) - (if (null? m2-16114) - m1-16097 - (append m1-16097 m2-16114))) - (let ((m2-16123 (cdr w2-16096))) - (if (null? m2-16123) - s1-16098 - (append s1-16098 m2-16123)))))))) - (same-marks?-4313 - (lambda (x-16128 y-16129) - (if (eq? x-16128 y-16129) - (eq? x-16128 y-16129) - (if (not (null? x-16128)) - (if (not (null? y-16129)) - (if (eq? (car x-16128) (car y-16129)) - (same-marks?-4313 (cdr x-16128) (cdr y-16129)) + 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-4314 - (lambda (id-16137 w-16138) + (id-var-name-4280 + (lambda (id-15067 w-15068) (letrec* - ((search-16139 - (lambda (sym-16200 subst-16201 marks-16202) - (if (null? subst-16201) - (values #f marks-16202) - (let ((fst-16203 (car subst-16201))) - (if (eq? fst-16203 'shift) - (search-16139 - sym-16200 - (cdr subst-16201) - (cdr marks-16202)) - (let ((symnames-16205 (vector-ref fst-16203 1))) - (if (vector? symnames-16205) - (let ((n-16217 (vector-length symnames-16205))) + ((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-16218 - (lambda (i-16220) - (if (= i-16220 n-16217) - (search-16139 - sym-16200 - (cdr subst-16201) - marks-16202) + ((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-16205 - i-16220) - sym-16200) - (same-marks?-4313 - marks-16202 + symnames-15135 + i-15150) + sym-15130) + (same-marks?-4279 + marks-15132 (vector-ref - (vector-ref fst-16203 2) - i-16220)) + (vector-ref fst-15133 2) + i-15150)) #f) (values (vector-ref - (vector-ref fst-16203 3) - i-16220) - marks-16202) - (f-16218 (#{1+}# i-16220))))))) - (f-16218 0))) + (vector-ref fst-15133 3) + i-15150) + marks-15132) + (f-15148 (#{1+}# i-15150))))))) + (f-15148 0))) (letrec* - ((f-16253 - (lambda (symnames-16255 i-16256) - (if (null? symnames-16255) - (search-16139 - sym-16200 - (cdr subst-16201) - marks-16202) - (if (if (eq? (car symnames-16255) sym-16200) - (same-marks?-4313 - marks-16202 + ((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-16203 2) - i-16256)) + (vector-ref fst-15133 2) + i-15186)) #f) (values (list-ref - (vector-ref fst-16203 3) - i-16256) - marks-16202) - (f-16253 - (cdr symnames-16255) - (#{1+}# i-16256))))))) - (f-16253 symnames-16205 0)))))))))) - (if (symbol? id-16137) - (let ((t-16142 - (search-16139 - id-16137 - (cdr w-16138) - (car w-16138)))) - (if t-16142 t-16142 id-16137)) - (if (if (vector? id-16137) - (if (= (vector-length id-16137) 4) - (eq? (vector-ref id-16137 0) 'syntax-object) + (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-16157 (vector-ref id-16137 1)) - (w1-16158 (vector-ref id-16137 2))) - (let ((marks-16159 - (let ((m1-16169 (car w-16138)) - (m2-16170 (car w1-16158))) - (if (null? m2-16170) - m1-16169 - (append m1-16169 m2-16170))))) + (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-16139 id-16157 (cdr w-16138) marks-16159)) - (lambda (new-id-16186 marks-16187) - (if new-id-16186 - new-id-16186 - (let ((t-16195 - (search-16139 - id-16157 - (cdr w1-16158) - marks-16187))) - (if t-16195 t-16195 id-16157))))))) + (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-16137)))))) - (locally-bound-identifiers-4315 - (lambda (w-16278 mod-16279) + id-15067)))))) + (locally-bound-identifiers-4281 + (lambda (w-15208 mod-15209) (letrec* - ((scan-16280 - (lambda (subst-16285 results-16286) - (if (null? subst-16285) - results-16286 - (let ((fst-16287 (car subst-16285))) - (if (eq? fst-16287 'shift) - (scan-16280 (cdr subst-16285) results-16286) - (let ((symnames-16289 (vector-ref fst-16287 1)) - (marks-16290 (vector-ref fst-16287 2))) - (if (vector? symnames-16289) - (scan-vector-rib-16282 - subst-16285 - symnames-16289 - marks-16290 - results-16286) - (scan-list-rib-16281 - subst-16285 - symnames-16289 - marks-16290 - results-16286)))))))) - (scan-list-rib-16281 - (lambda (subst-16388 - symnames-16389 - marks-16390 - results-16391) + ((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-16392 - (lambda (symnames-16492 marks-16493 results-16494) - (if (null? symnames-16492) - (scan-16280 (cdr subst-16388) results-16494) - (f-16392 - (cdr symnames-16492) - (cdr marks-16493) - (cons (wrap-4324 - (car symnames-16492) - (let ((w-16502 - (cons (car marks-16493) - subst-16388))) - (cons (cons #f (car w-16502)) - (cons 'shift (cdr w-16502)))) - mod-16279) - results-16494)))))) - (f-16392 - symnames-16389 - marks-16390 - results-16391)))) - (scan-vector-rib-16282 - (lambda (subst-16503 - symnames-16504 - marks-16505 - results-16506) - (let ((n-16507 (vector-length symnames-16504))) + ((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-16508 - (lambda (i-16591 results-16592) - (if (= i-16591 n-16507) - (scan-16280 (cdr subst-16503) results-16592) - (f-16508 - (#{1+}# i-16591) - (cons (wrap-4324 - (vector-ref symnames-16504 i-16591) - (let ((w-16600 + ((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-16505 - i-16591) - subst-16503))) - (cons (cons #f (car w-16600)) - (cons 'shift (cdr w-16600)))) - mod-16279) - results-16592)))))) - (f-16508 0 results-16506)))))) - (scan-16280 (cdr w-16278) '())))) - (valid-bound-ids?-4321 - (lambda (ids-16601) + 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?-16602 - (lambda (ids-16764) - (if (null? ids-16764) - (null? ids-16764) - (if (let ((x-16775 (car ids-16764))) - (if (symbol? x-16775) + ((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-16775) - (if (= (vector-length x-16775) 4) - (eq? (vector-ref x-16775 0) + (if (if (vector? x-15705) + (if (= (vector-length x-15705) 4) + (eq? (vector-ref x-15705 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-16775 1)) + (symbol? (vector-ref x-15705 1)) #f))) - (all-ids?-16602 (cdr ids-16764)) + (all-ids?-15532 (cdr ids-15694)) #f))))) - (all-ids?-16602 ids-16601)) - (distinct-bound-ids?-4322 ids-16601) + (all-ids?-15532 ids-15531)) + (distinct-bound-ids?-4288 ids-15531) #f))) - (distinct-bound-ids?-4322 - (lambda (ids-16903) + (distinct-bound-ids?-4288 + (lambda (ids-15833) (letrec* - ((distinct?-16904 - (lambda (ids-17016) - (if (null? ids-17016) - (null? ids-17016) - (if (not (bound-id-member?-4323 - (car ids-17016) - (cdr ids-17016))) - (distinct?-16904 (cdr ids-17016)) + ((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?-16904 ids-16903)))) - (bound-id-member?-4323 - (lambda (x-17226 list-17227) - (if (not (null? list-17227)) - (let ((t-17228 - (let ((j-17309 (car list-17227))) - (if (if (if (vector? x-17226) - (if (= (vector-length x-17226) 4) - (eq? (vector-ref x-17226 0) 'syntax-object) + (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-17309) - (if (= (vector-length j-17309) 4) - (eq? (vector-ref j-17309 0) 'syntax-object) + (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-17226 1) - (vector-ref j-17309 1)) - (same-marks?-4313 - (car (vector-ref x-17226 2)) - (car (vector-ref j-17309 2))) + (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-17226 j-17309))))) - (if t-17228 - t-17228 - (bound-id-member?-4323 x-17226 (cdr list-17227)))) + (eq? x-16156 j-16239))))) + (if t-16158 + t-16158 + (bound-id-member?-4289 x-16156 (cdr list-16157)))) #f))) - (wrap-4324 - (lambda (x-17353 w-17354 defmod-17355) - (if (if (null? (car w-17354)) - (null? (cdr w-17354)) + (wrap-4290 + (lambda (x-16283 w-16284 defmod-16285) + (if (if (null? (car w-16284)) + (null? (cdr w-16284)) #f) - x-17353 - (if (if (vector? x-17353) - (if (= (vector-length x-17353) 4) - (eq? (vector-ref x-17353 0) 'syntax-object) + 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-17369 (vector-ref x-17353 1)) - (wrap-17370 - (join-wraps-4311 w-17354 (vector-ref x-17353 2))) - (module-17371 (vector-ref x-17353 3))) + (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-17369 - wrap-17370 - module-17371)) - (if (null? x-17353) - x-17353 + expression-16299 + wrap-16300 + module-16301)) + (if (null? x-16283) + x-16283 (vector 'syntax-object - x-17353 - w-17354 - defmod-17355)))))) - (source-wrap-4325 - (lambda (x-17388 w-17389 s-17390 defmod-17391) - (wrap-4324 + x-16283 + w-16284 + defmod-16285)))))) + (source-wrap-4291 + (lambda (x-16318 w-16319 s-16320 defmod-16321) + (wrap-4290 (begin - (if (if s-17390 - (supports-source-properties? x-17388) + (if (if s-16320 + (supports-source-properties? x-16318) #f) - (set-source-properties! x-17388 s-17390)) - x-17388) - w-17389 - defmod-17391))) - (expand-sequence-4326 - (lambda (body-27527 r-27528 w-27529 s-27530 mod-27531) - (build-sequence-4276 - s-27530 + (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-27611 - (lambda (body-27951 r-27952 w-27953 mod-27954) - (if (null? body-27951) + ((dobody-24791 + (lambda (body-25066 r-25067 w-25068 mod-25069) + (if (null? body-25066) '() - (let ((first-27955 - (let ((e-27959 (car body-27951))) + (let ((first-25070 + (let ((e-25120 (car body-25066))) (call-with-values (lambda () - (syntax-type-4330 - e-27959 - r-27952 - w-27953 - (source-annotation-4288 e-27959) + (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-27954 + mod-25069 #f)) - (lambda (type-27966 - value-27967 - form-27968 - e-27969 - w-27970 - s-27971 - mod-27972) - (expand-expr-4332 - type-27966 - value-27967 - form-27968 - e-27969 - r-27952 - w-27970 - s-27971 - mod-27972)))))) - (cons first-27955 - (dobody-27611 - (cdr body-27951) - r-27952 - w-27953 - mod-27954))))))) - (dobody-27611 - body-27527 - r-27528 - w-27529 - mod-27531))))) - (expand-top-sequence-4327 - (lambda (body-17409 - r-17410 - w-17411 - s-17412 - m-17413 - esew-17414 - mod-17415) + (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-17416 - (lambda (body-17547 - r-17548 - w-17549 - s-17550 - m-17551 - esew-17552 - mod-17553 - exps-17554) - (if (null? body-17547) - exps-17554 + ((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-17555 (car body-17547))) - (syntax-type-4330 - e-17555 - r-17548 - w-17549 - (let ((t-17559 (source-annotation-4288 e-17555))) - (if t-17559 t-17559 s-17550)) + (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-17553 + mod-16483 #f))) - (lambda (type-17794 - value-17795 - form-17796 - e-17797 - w-17798 - s-17799 - mod-17800) - (if (eqv? type-17794 'begin-form) - (let ((tmp-17809 ($sc-dispatch e-17797 '(_)))) - (if tmp-17809 - (@apply (lambda () exps-17554) tmp-17809) - (let ((tmp-17813 + (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-17797 + e-16547 '(_ any . each-any)))) - (if tmp-17813 + (if tmp-16563 (@apply - (lambda (e1-17817 e2-17818) - (scan-17416 - (cons e1-17817 e2-17818) - r-17548 - w-17798 - s-17799 - m-17551 - esew-17552 - mod-17800 - exps-17554)) - tmp-17813) + (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-17797))))) - (if (eqv? type-17794 'local-syntax-form) - (expand-local-syntax-4336 - value-17795 - e-17797 - r-17548 - w-17798 - s-17799 - mod-17800 - (lambda (body-17836 - r-17837 - w-17838 - s-17839 - mod-17840) - (scan-17416 - body-17836 - r-17837 - w-17838 - s-17839 - m-17551 - esew-17552 - mod-17840 - exps-17554))) - (if (eqv? type-17794 'eval-when-form) - (let ((tmp-17848 + 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-17797 + e-16547 '(_ each-any any . each-any)))) - (if tmp-17848 + (if tmp-16598 (@apply - (lambda (x-17852 e1-17853 e2-17854) - (let ((when-list-17855 - (parse-when-list-4329 - e-17797 - x-17852)) - (body-17856 - (cons e1-17853 e2-17854))) - (if (eq? m-17551 'e) - (if (memq 'eval when-list-17855) - (scan-17416 - body-17856 - r-17548 - w-17798 - s-17799 + (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-17855) + when-list-16605) 'c&e 'e) '(eval) - mod-17800 - exps-17554) + mod-16550 + exps-16484) (begin (if (memq 'expand - when-list-17855) - (let ((x-17933 - (expand-top-sequence-4327 - body-17856 - r-17548 - w-17798 - s-17799 + when-list-16605) + (let ((x-16683 + (expand-top-sequence-4293 + body-16606 + r-16478 + w-16548 + s-16549 'e '(eval) - mod-17800))) - (primitive-eval x-17933))) - exps-17554)) - (if (memq 'load when-list-17855) - (if (let ((t-17959 + mod-16550))) + (primitive-eval x-16683))) + exps-16484)) + (if (memq 'load when-list-16605) + (if (let ((t-16709 (memq 'compile - when-list-17855))) - (if t-17959 - t-17959 - (let ((t-18008 + when-list-16605))) + (if t-16709 + t-16709 + (let ((t-16758 (memq 'expand - when-list-17855))) - (if t-18008 - t-18008 - (if (eq? m-17551 + when-list-16605))) + (if t-16758 + t-16758 + (if (eq? m-16481 'c&e) (memq 'eval - when-list-17855) + when-list-16605) #f))))) - (scan-17416 - body-17856 - r-17548 - w-17798 - s-17799 + (scan-16346 + body-16606 + r-16478 + w-16548 + s-16549 'c&e '(compile load) - mod-17800 - exps-17554) - (if (if (eq? m-17551 'c) + mod-16550 + exps-16484) + (if (if (eq? m-16481 'c) #t - (eq? m-17551 'c&e)) - (scan-17416 - body-17856 - r-17548 - w-17798 - s-17799 + (eq? m-16481 'c&e)) + (scan-16346 + body-16606 + r-16478 + w-16548 + s-16549 'c '(load) - mod-17800 - exps-17554) - exps-17554)) - (if (let ((t-18137 + mod-16550 + exps-16484) + exps-16484)) + (if (let ((t-16887 (memq 'compile - when-list-17855))) - (if t-18137 - t-18137 - (let ((t-18186 + when-list-16605))) + (if t-16887 + t-16887 + (let ((t-16936 (memq 'expand - when-list-17855))) - (if t-18186 - t-18186 - (if (eq? m-17551 + when-list-16605))) + (if t-16936 + t-16936 + (if (eq? m-16481 'c&e) (memq 'eval - when-list-17855) + when-list-16605) #f))))) (begin - (let ((x-18310 - (expand-top-sequence-4327 - body-17856 - r-17548 - w-17798 - s-17799 + (let ((x-17060 + (expand-top-sequence-4293 + body-16606 + r-16478 + w-16548 + s-16549 'e '(eval) - mod-17800))) - (primitive-eval x-18310)) - exps-17554) - exps-17554))))) - tmp-17848) + mod-16550))) + (primitive-eval x-17060)) + exps-16484) + exps-16484))))) + tmp-16598) (syntax-violation #f "source expression failed to match any pattern" - e-17797))) - (if (if (eqv? type-17794 'define-syntax-form) + e-16547))) + (if (if (eqv? type-16544 'define-syntax-form) #t - (eqv? type-17794 + (eqv? type-16544 'define-syntax-parameter-form)) - (let ((n-18359 - (id-var-name-4314 - value-17795 - w-17798)) - (r-18360 - (macros-only-env-4291 r-17548))) - (if (eqv? m-17551 'c) - (if (memq 'compile esew-17552) - (let ((e-18368 - (expand-install-global-4328 - n-18359 - (expand-4331 - e-17797 - r-18360 - w-17798 - mod-17800)))) + (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)) + (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-4254 - e-18368 - mod-17800) - (if (memq 'load esew-17552) - (cons e-18368 exps-17554) - exps-17554))) - (if (memq 'load esew-17552) - (cons (expand-install-global-4328 - n-18359 - (expand-4331 - e-17797 - r-18360 - w-17798 - mod-17800)) - exps-17554) - exps-17554)) - (if (eqv? m-17551 'c&e) - (let ((e-19013 - (expand-install-global-4328 - n-18359 - (expand-4331 - e-17797 - r-18360 - w-17798 - mod-17800)))) + (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)) + #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-4254 - e-19013 - mod-17800) - (cons e-19013 exps-17554))) + (top-level-eval-hook-4220 + e-17677 + mod-16550) + (cons e-17677 exps-16484))) (begin - (if (memq 'eval esew-17552) - (top-level-eval-hook-4254 - (expand-install-global-4328 - n-18359 - (expand-4331 - e-17797 - r-18360 - w-17798 - mod-17800)) - mod-17800)) - exps-17554)))) - (if (eqv? type-17794 'define-form) - (let ((n-19690 - (id-var-name-4314 - value-17795 - w-17798))) - (let ((type-19691 - (car (let ((t-19699 - (assq n-19690 - r-17548))) - (if t-19699 - (cdr t-19699) - (if (symbol? n-19690) - (let ((t-19705 - (get-global-definition-hook-4258 - n-19690 - mod-17800))) - (if t-19705 - t-19705 + (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) + (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-19691 'global) + (if (if (eqv? type-18294 'global) #t - (if (eqv? type-19691 'core) + (if (eqv? type-18294 'core) #t - (if (eqv? type-19691 'macro) + (if (eqv? type-18294 'macro) #t - (eqv? type-19691 + (eqv? type-18294 'module-ref)))) (begin - (if (if (if (eq? m-17551 'c) + (if (if (if (eq? m-16481 'c) #t - (eq? m-17551 'c&e)) + (eq? m-16481 'c&e)) (if (not (module-local-variable (current-module) - n-19690)) + n-18293)) (current-module) #f) #f) - (let ((old-19738 + (let ((old-18341 (module-variable (current-module) - n-19690))) - (if (if (variable? old-19738) + n-18293))) + (if (if (variable? old-18341) (variable-bound? - old-19738) + old-18341) #f) (module-define! (current-module) - n-19690 - (variable-ref old-19738)) + n-18293 + (variable-ref old-18341)) (module-add! (current-module) - n-19690 + n-18293 (make-undefined-variable))))) - (cons (if (eq? m-17551 'c&e) - (let ((x-20179 - (build-global-definition-4270 - s-17799 - n-19690 - (expand-4331 - e-17797 - r-17548 - w-17798 - mod-17800)))) + (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 - (top-level-eval-hook-4254 - x-20179 - mod-17800) - x-20179)) + (primitive-eval + x-18538) + x-18538)) (lambda () - (build-global-definition-4270 - s-17799 - n-19690 - (expand-4331 - e-17797 - r-17548 - w-17798 - mod-17800)))) - exps-17554)) - (if (eqv? type-19691 + (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-4324 + (wrap-4290 (begin - (if (if s-17799 + (if (if s-16549 (supports-source-properties? - form-17796) + form-16546) #f) (set-source-properties! - form-17796 - s-17799)) - form-17796) - w-17798 - mod-17800) - (wrap-4324 - value-17795 - w-17798 - mod-17800)) + 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-4324 + (wrap-4290 (begin - (if (if s-17799 + (if (if s-16549 (supports-source-properties? - form-17796) + form-16546) #f) (set-source-properties! - form-17796 - s-17799)) - form-17796) - w-17798 - mod-17800) - (wrap-4324 - value-17795 - w-17798 - mod-17800)))))) - (cons (if (eq? m-17551 'c&e) - (let ((x-20681 - (expand-expr-4332 - type-17794 - value-17795 - form-17796 - e-17797 - r-17548 - w-17798 - s-17799 - mod-17800))) + 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-20681) - x-20681)) + (primitive-eval x-18662) + x-18662)) (lambda () - (expand-expr-4332 - type-17794 - value-17795 - form-17796 - e-17797 - r-17548 - w-17798 - s-17799 - mod-17800))) - exps-17554))))))))) - (lambda (exps-20686) - (scan-17416 - (cdr body-17547) - r-17548 - w-17549 - s-17550 - m-17551 - esew-17552 - mod-17553 - exps-20686))))))) + (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-17416 - body-17409 - r-17410 - w-17411 - s-17412 - m-17413 - esew-17414 - mod-17415 + (scan-16346 + body-16339 + r-16340 + w-16341 + s-16342 + m-16343 + esew-16344 + mod-16345 '())) - (lambda (exps-17419) - (if (null? exps-17419) + (lambda (exps-16349) + (if (null? exps-16349) (make-struct/no-tail (vector-ref %expanded-vtables 0) - s-17412) - (build-sequence-4276 - s-17412 + s-16342) + (build-sequence-4242 + s-16342 (letrec* - ((lp-17459 - (lambda (in-17543 out-17544) - (if (null? in-17543) - out-17544 - (let ((e-17545 (car in-17543))) - (lp-17459 - (cdr in-17543) - (cons (if (procedure? e-17545) - (e-17545) - e-17545) - out-17544))))))) - (lp-17459 exps-17419 '()))))))))) - (expand-install-global-4328 - (lambda (name-20687 e-20688) - (let ((exp-20694 - (let ((fun-exp-20704 + ((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) @@ -1276,398 +1554,398 @@ '(guile) 'make-syntax-transformer #f))) - (arg-exps-20705 + (arg-exps-18686 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - name-20687) + name-18668) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - e-20688))) + e-18669))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-20704 - arg-exps-20705)))) + fun-exp-18685 + arg-exps-18686)))) (begin - (if (if (struct? exp-20694) - (eq? (struct-vtable exp-20694) + (if (if (struct? exp-18675) + (eq? (struct-vtable exp-18675) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-20746 (struct-ref exp-20694 1))) - (if (not (assq 'name meta-20746)) - (let ((v-20753 - (cons (cons 'name name-20687) meta-20746))) - (struct-set! exp-20694 1 v-20753))))) + (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-20687 - exp-20694))))) - (parse-when-list-4329 - (lambda (e-20764 when-list-20765) - (let ((result-20766 (strip-4344 when-list-20765 '(())))) + name-18668 + exp-18675))))) + (parse-when-list-4295 + (lambda (e-18745 when-list-18746) + (let ((result-18747 (strip-4310 when-list-18746 '(())))) (letrec* - ((lp-20767 - (lambda (l-20821) - (if (null? l-20821) - result-20766 - (if (let ((t-20823 (car l-20821))) - (if (eq? t-20823 'compile) + ((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-20823 'load) + (if (eq? t-18804 'load) #t - (if (eq? t-20823 'eval) + (if (eq? t-18804 'eval) #t - (eq? t-20823 'expand))))) - (lp-20767 (cdr l-20821)) + (eq? t-18804 'expand))))) + (lp-18748 (cdr l-18802)) (syntax-violation 'eval-when "invalid situation" - e-20764 - (car l-20821))))))) - (lp-20767 result-20766))))) - (syntax-type-4330 - (lambda (e-20825 - r-20826 - w-20827 - s-20828 - rib-20829 - mod-20830 - for-car?-20831) - (if (symbol? e-20825) - (let ((n-20832 (id-var-name-4314 e-20825 w-20827))) - (let ((b-20833 - (let ((t-20842 (assq n-20832 r-20826))) - (if t-20842 - (cdr t-20842) - (if (symbol? n-20832) - (let ((t-20848 - (get-global-definition-hook-4258 - n-20832 - mod-20830))) - (if t-20848 t-20848 '(global))) + 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-20834 (car b-20833))) - (if (eqv? type-20834 'lexical) + (let ((type-18815 (car b-18814))) + (if (eqv? type-18815 'lexical) (values - type-20834 - (cdr b-20833) - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? type-20834 'global) + type-18815 + (cdr b-18814) + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) + (if (eqv? type-18815 'global) (values - type-20834 - n-20832 - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? type-20834 'macro) - (if for-car?-20831 + 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-20834 - (cdr b-20833) - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (syntax-type-4330 - (expand-macro-4334 - (cdr b-20833) - e-20825 - r-20826 - w-20827 - s-20828 - rib-20829 - mod-20830) - r-20826 + 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-20828 - rib-20829 - mod-20830 + s-18809 + rib-18810 + mod-18811 #f)) (values - type-20834 - (cdr b-20833) - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830))))))) - (if (pair? e-20825) - (let ((first-20876 (car e-20825))) + 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-4330 - first-20876 - r-20826 - w-20827 - s-20828 - rib-20829 - mod-20830 + (syntax-type-4296 + first-18857 + r-18807 + w-18808 + s-18809 + rib-18810 + mod-18811 #t)) - (lambda (ftype-20878 - fval-20879 - fform-20880 - fe-20881 - fw-20882 - fs-20883 - fmod-20884) - (if (eqv? ftype-20878 'lexical) + (lambda (ftype-18859 + fval-18860 + fform-18861 + fe-18862 + fw-18863 + fs-18864 + fmod-18865) + (if (eqv? ftype-18859 'lexical) (values 'lexical-call - fval-20879 - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? ftype-20878 'global) + fval-18860 + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) + (if (eqv? ftype-18859 'global) (values 'global-call (vector 'syntax-object - fval-20879 - w-20827 - fmod-20884) - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? ftype-20878 'macro) - (syntax-type-4330 - (expand-macro-4334 - fval-20879 - e-20825 - r-20826 - w-20827 - s-20828 - rib-20829 - mod-20830) - r-20826 + 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-20828 - rib-20829 - mod-20830 - for-car?-20831) - (if (eqv? ftype-20878 'module-ref) + s-18809 + rib-18810 + mod-18811 + for-car?-18812) + (if (eqv? ftype-18859 'module-ref) (call-with-values - (lambda () (fval-20879 e-20825 r-20826 w-20827)) - (lambda (e-20918 - r-20919 - w-20920 - s-20921 - mod-20922) - (syntax-type-4330 - e-20918 - r-20919 - w-20920 - s-20921 - rib-20829 - mod-20922 - for-car?-20831))) - (if (eqv? ftype-20878 'core) + (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 'core-form - fval-20879 - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? ftype-20878 'local-syntax) + fval-18860 + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) + (if (eqv? ftype-18859 'local-syntax) (values 'local-syntax-form - fval-20879 - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? ftype-20878 'begin) + fval-18860 + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) + (if (eqv? ftype-18859 'begin) (values 'begin-form #f - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? ftype-20878 'eval-when) + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) + (if (eqv? ftype-18859 'eval-when) (values 'eval-when-form #f - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830) - (if (eqv? ftype-20878 'define) - (let ((tmp-20954 + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) + (if (eqv? ftype-18859 'define) + (let ((tmp-18935 ($sc-dispatch - e-20825 + e-18806 '(_ any any)))) - (if (if tmp-20954 + (if (if tmp-18935 (@apply - (lambda (name-20958 val-20959) - (if (symbol? name-20958) + (lambda (name-18939 val-18940) + (if (symbol? name-18939) #t - (if (if (vector? name-20958) + (if (if (vector? name-18939) (if (= (vector-length - name-20958) + name-18939) 4) (eq? (vector-ref - name-20958 + name-18939 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-20958 + name-18939 1)) #f))) - tmp-20954) + tmp-18935) #f) (@apply - (lambda (name-20986 val-20987) + (lambda (name-18967 val-18968) (values 'define-form - name-20986 - e-20825 - val-20987 - w-20827 - s-20828 - mod-20830)) - tmp-20954) - (let ((tmp-20988 + name-18967 + e-18806 + val-18968 + w-18808 + s-18809 + mod-18811)) + tmp-18935) + (let ((tmp-18969 ($sc-dispatch - e-20825 + e-18806 '(_ (any . any) any . each-any)))) - (if (if tmp-20988 + (if (if tmp-18969 (@apply - (lambda (name-20992 - args-20993 - e1-20994 - e2-20995) + (lambda (name-18973 + args-18974 + e1-18975 + e2-18976) (if (if (symbol? - name-20992) + name-18973) #t (if (if (vector? - name-20992) + name-18973) (if (= (vector-length - name-20992) + name-18973) 4) (eq? (vector-ref - name-20992 + name-18973 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-20992 + name-18973 1)) #f)) - (valid-bound-ids?-4321 + (valid-bound-ids?-4287 (letrec* - ((lvl-21144 - (lambda (vars-21146 - ls-21147 - w-21148) - (if (pair? vars-21146) - (lvl-21144 - (cdr vars-21146) - (cons (wrap-4324 - (car vars-21146) - w-21148 + ((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-21147) - w-21148) + ls-19128) + w-19129) (if (if (symbol? - vars-21146) + vars-19127) #t (if (if (vector? - vars-21146) + vars-19127) (if (= (vector-length - vars-21146) + vars-19127) 4) (eq? (vector-ref - vars-21146 + vars-19127 0) 'syntax-object) #f) #f) (symbol? (vector-ref - vars-21146 + vars-19127 1)) #f)) - (cons (wrap-4324 - vars-21146 - w-21148 + (cons (wrap-4290 + vars-19127 + w-19129 #f) - ls-21147) - (if (null? vars-21146) - ls-21147 + ls-19128) + (if (null? vars-19127) + ls-19128 (if (if (vector? - vars-21146) + vars-19127) (if (= (vector-length - vars-21146) + vars-19127) 4) (eq? (vector-ref - vars-21146 + vars-19127 0) 'syntax-object) #f) #f) - (lvl-21144 + (lvl-19125 (vector-ref - vars-21146 + vars-19127 1) - ls-21147 - (join-wraps-4311 - w-21148 + ls-19128 + (join-wraps-4277 + w-19129 (vector-ref - vars-21146 + vars-19127 2))) - (cons vars-21146 - ls-21147)))))))) - (lvl-21144 - args-20993 + (cons vars-19127 + ls-19128)))))))) + (lvl-19125 + args-18974 '() '(())))) #f)) - tmp-20988) + tmp-18969) #f) (@apply - (lambda (name-21192 - args-21193 - e1-21194 - e2-21195) + (lambda (name-19173 + args-19174 + e1-19175 + e2-19176) (values 'define-form - (wrap-4324 - name-21192 - w-20827 - mod-20830) - (wrap-4324 - e-20825 - w-20827 - mod-20830) - (let ((e-21203 + (wrap-4290 + name-19173 + w-18808 + mod-18811) + (wrap-4290 + e-18806 + w-18808 + mod-18811) + (let ((e-19184 (cons '#(syntax-object lambda ((top) @@ -2194,65 +2472,65 @@ "l-*-45"))) (hygiene guile)) - (wrap-4324 - (cons args-21193 - (cons e1-21194 - e2-21195)) - w-20827 - mod-20830)))) + (wrap-4290 + (cons args-19174 + (cons e1-19175 + e2-19176)) + w-18808 + mod-18811)))) (begin - (if (if s-20828 + (if (if s-18809 (supports-source-properties? - e-21203) + e-19184) #f) (set-source-properties! - e-21203 - s-20828)) - e-21203)) + e-19184 + s-18809)) + e-19184)) '(()) - s-20828 - mod-20830)) - tmp-20988) - (let ((tmp-21210 + s-18809 + mod-18811)) + tmp-18969) + (let ((tmp-19191 ($sc-dispatch - e-20825 + e-18806 '(_ any)))) - (if (if tmp-21210 + (if (if tmp-19191 (@apply - (lambda (name-21214) + (lambda (name-19195) (if (symbol? - name-21214) + name-19195) #t (if (if (vector? - name-21214) + name-19195) (if (= (vector-length - name-21214) + name-19195) 4) (eq? (vector-ref - name-21214 + name-19195 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21214 + name-19195 1)) #f))) - tmp-21210) + tmp-19191) #f) (@apply - (lambda (name-21241) + (lambda (name-19222) (values 'define-form - (wrap-4324 - name-21241 - w-20827 - mod-20830) - (wrap-4324 - e-20825 - w-20827 - mod-20830) + (wrap-4290 + name-19222 + w-18808 + mod-18811) + (wrap-4290 + e-18806 + w-18808 + mod-18811) '(#(syntax-object if ((top) @@ -3745,300 +4023,437 @@ "l-*-45"))) (hygiene guile))) '(()) - s-20828 - mod-20830)) - tmp-21210) + s-18809 + mod-18811)) + tmp-19191) (syntax-violation #f "source expression failed to match any pattern" - e-20825))))))) - (if (eqv? ftype-20878 'define-syntax) - (let ((tmp-21265 + e-18806))))))) + (if (eqv? ftype-18859 'define-syntax) + (let ((tmp-19246 ($sc-dispatch - e-20825 + e-18806 '(_ any any)))) - (if (if tmp-21265 + (if (if tmp-19246 (@apply - (lambda (name-21269 val-21270) - (if (symbol? name-21269) + (lambda (name-19250 val-19251) + (if (symbol? name-19250) #t (if (if (vector? - name-21269) + name-19250) (if (= (vector-length - name-21269) + name-19250) 4) (eq? (vector-ref - name-21269 + name-19250 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21269 + name-19250 1)) #f))) - tmp-21265) + tmp-19246) #f) (@apply - (lambda (name-21297 val-21298) + (lambda (name-19278 val-19279) (values 'define-syntax-form - name-21297 - e-20825 - val-21298 - w-20827 - s-20828 - mod-20830)) - tmp-21265) + 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-20825))) - (if (eqv? ftype-20878 + e-18806))) + (if (eqv? ftype-18859 'define-syntax-parameter) - (let ((tmp-21312 + (let ((tmp-19293 ($sc-dispatch - e-20825 + e-18806 '(_ any any)))) - (if (if tmp-21312 + (if (if tmp-19293 (@apply - (lambda (name-21316 - val-21317) - (if (symbol? name-21316) + (lambda (name-19297 + val-19298) + (if (symbol? name-19297) #t (if (if (vector? - name-21316) + name-19297) (if (= (vector-length - name-21316) + name-19297) 4) (eq? (vector-ref - name-21316 + name-19297 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21316 + name-19297 1)) #f))) - tmp-21312) + tmp-19293) #f) (@apply - (lambda (name-21344 val-21345) + (lambda (name-19325 val-19326) (values 'define-syntax-parameter-form - name-21344 - e-20825 - val-21345 - w-20827 - s-20828 - mod-20830)) - tmp-21312) + name-19325 + e-18806 + val-19326 + w-18808 + s-18809 + mod-18811)) + tmp-19293) (syntax-violation #f "source expression failed to match any pattern" - e-20825))) + e-18806))) (values 'call #f - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830))))))))))))))) - (if (if (vector? e-20825) - (if (= (vector-length e-20825) 4) - (eq? (vector-ref e-20825 0) 'syntax-object) + 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-4330 - (vector-ref e-20825 1) - r-20826 - (join-wraps-4311 w-20827 (vector-ref e-20825 2)) - (let ((t-21372 (source-annotation-4288 e-20825))) - (if t-21372 t-21372 s-20828)) - rib-20829 - (let ((t-21607 (vector-ref e-20825 3))) - (if t-21607 t-21607 mod-20830)) - for-car?-20831) - (if (self-evaluating? e-20825) + (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-20825 - e-20825 - w-20827 - s-20828 - mod-20830) + e-18806 + e-18806 + w-18808 + s-18809 + mod-18811) (values 'other #f - e-20825 - e-20825 - w-20827 - s-20828 - mod-20830))))))) - (expand-4331 - (lambda (e-21616 r-21617 w-21618 mod-21619) + 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-4330 - e-21616 - r-21617 - w-21618 - (source-annotation-4288 e-21616) + (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-21619 + mod-19420 #f)) - (lambda (type-21774 - value-21775 - form-21776 - e-21777 - w-21778 - s-21779 - mod-21780) - (expand-expr-4332 - type-21774 - value-21775 - form-21776 - e-21777 - r-21617 - w-21778 - s-21779 - mod-21780))))) - (expand-expr-4332 - (lambda (type-21783 - value-21784 - form-21785 - e-21786 - r-21787 - w-21788 - s-21789 - mod-21790) - (if (eqv? type-21783 'lexical) + (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-21789 - e-21786 - value-21784) - (if (if (eqv? type-21783 'core) + s-19465 + e-19462 + value-19460) + (if (if (eqv? type-19459 'core) #t - (eqv? type-21783 'core-form)) - (value-21784 - e-21786 - r-21787 - w-21788 - s-21789 - mod-21790) - (if (eqv? type-21783 'module-ref) + (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-21784 e-21786 r-21787 w-21788)) - (lambda (e-21826 r-21827 w-21828 s-21829 mod-21830) - (expand-4331 e-21826 r-21827 w-21828 mod-21830))) - (if (eqv? type-21783 'lexical-call) - (expand-application-4333 - (let ((id-21908 (car e-21786))) - (build-lexical-reference-4265 - 'fun - (source-annotation-4288 id-21908) - (if (if (vector? id-21908) - (if (= (vector-length id-21908) 4) - (eq? (vector-ref id-21908 0) 'syntax-object) - #f) - #f) - (syntax->datum id-21908) - id-21908) - value-21784)) - e-21786 - r-21787 - w-21788 - s-21789 - mod-21790) - (if (eqv? type-21783 'global-call) - (expand-application-4333 - (build-global-reference-4268 - (source-annotation-4288 (car e-21786)) - (if (if (vector? value-21784) - (if (= (vector-length value-21784) 4) - (eq? (vector-ref value-21784 0) 'syntax-object) - #f) - #f) - (vector-ref value-21784 1) - value-21784) - (if (if (vector? value-21784) - (if (= (vector-length value-21784) 4) - (eq? (vector-ref value-21784 0) 'syntax-object) - #f) - #f) - (vector-ref value-21784 3) - mod-21790)) - e-21786 - r-21787 - w-21788 - s-21789 - mod-21790) - (if (eqv? type-21783 'constant) - (let ((exp-22251 - (strip-4344 - (wrap-4324 - (begin - (if (if s-21789 - (supports-source-properties? e-21786) + (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) - (set-source-properties! e-21786 s-21789)) - e-21786) - w-21788 - mod-21790) + (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-21789 - exp-22251)) - (if (eqv? type-21783 'global) - (analyze-variable-4267 - mod-21790 - value-21784 - (lambda (mod-22290 var-22291 public?-22292) + 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-21789 - mod-22290 - var-22291 - public?-22292)) - (lambda (var-22301) + s-19465 + mod-19737 + var-19738 + public?-19739)) + (lambda (var-19748) (make-struct/no-tail (vector-ref %expanded-vtables 7) - s-21789 - var-22301))) - (if (eqv? type-21783 'call) - (expand-application-4333 - (expand-4331 - (car e-21786) - r-21787 - w-21788 - mod-21790) - e-21786 - r-21787 - w-21788 - s-21789 - mod-21790) - (if (eqv? type-21783 'begin-form) - (let ((tmp-22382 - ($sc-dispatch e-21786 '(_ any . each-any)))) - (if tmp-22382 + 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-22386 e2-22387) - (expand-sequence-4326 - (cons e1-22386 e2-22387) - r-21787 - w-21788 - s-21789 - mod-21790)) - tmp-22382) - (let ((tmp-22474 ($sc-dispatch e-21786 '(_)))) - (if tmp-22474 + (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) @@ -4051,831 +4466,1047 @@ (syntax-violation #f "sequence of zero expressions" - (wrap-4324 + (wrap-4290 (begin - (if (if s-21789 + (if (if s-19465 (supports-source-properties? - e-21786) + e-19462) #f) (set-source-properties! - e-21786 - s-21789)) - e-21786) - w-21788 - mod-21790)))) - tmp-22474) + e-19462 + s-19465)) + e-19462) + w-19464 + mod-19466)))) + tmp-19947) (syntax-violation #f "source expression failed to match any pattern" - e-21786))))) - (if (eqv? type-21783 'local-syntax-form) - (expand-local-syntax-4336 - value-21784 - e-21786 - r-21787 - w-21788 - s-21789 - mod-21790 - expand-sequence-4326) - (if (eqv? type-21783 'eval-when-form) - (let ((tmp-22591 + 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-21786 + e-19462 '(_ each-any any . each-any)))) - (if tmp-22591 + (if tmp-20059 (@apply - (lambda (x-22595 e1-22596 e2-22597) - (let ((when-list-22598 - (parse-when-list-4329 - e-21786 - x-22595))) - (if (memq 'eval when-list-22598) - (expand-sequence-4326 - (cons e1-22596 e2-22597) - r-21787 - w-21788 - s-21789 - mod-21790) + (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-22591) + tmp-20059) (syntax-violation #f "source expression failed to match any pattern" - e-21786))) - (if (if (eqv? type-21783 'define-form) + e-19462))) + (if (if (eqv? type-19459 'define-form) #t - (if (eqv? type-21783 'define-syntax-form) + (if (eqv? type-19459 'define-syntax-form) #t - (eqv? type-21783 + (eqv? type-19459 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context, where definitions are not allowed," - (wrap-4324 + (wrap-4290 (begin - (if (if s-21789 + (if (if s-19465 (supports-source-properties? - form-21785) + form-19461) #f) (set-source-properties! - form-21785 - s-21789)) - form-21785) - w-21788 - mod-21790)) - (if (eqv? type-21783 'syntax) + 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-4324 + (wrap-4290 (begin - (if (if s-21789 + (if (if s-19465 (supports-source-properties? - e-21786) + e-19462) #f) (set-source-properties! - e-21786 - s-21789)) - e-21786) - w-21788 - mod-21790)) - (if (eqv? type-21783 'displaced-lexical) + 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-4324 + (wrap-4290 (begin - (if (if s-21789 + (if (if s-19465 (supports-source-properties? - e-21786) + e-19462) #f) (set-source-properties! - e-21786 - s-21789)) - e-21786) - w-21788 - mod-21790)) + e-19462 + s-19465)) + e-19462) + w-19464 + mod-19466)) (syntax-violation #f "unexpected syntax" - (wrap-4324 + (wrap-4290 (begin - (if (if s-21789 + (if (if s-19465 (supports-source-properties? - e-21786) + e-19462) #f) (set-source-properties! - e-21786 - s-21789)) - e-21786) - w-21788 - mod-21790)))))))))))))))))) - (expand-application-4333 - (lambda (x-22867 - e-22868 - r-22869 - w-22870 - s-22871 - mod-22872) - (let ((tmp-22874 - ($sc-dispatch e-22868 '(any . each-any)))) - (if tmp-22874 + 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-22878 e1-22879) - (build-application-4262 - s-22871 - x-22867 - (map (lambda (e-22959) - (expand-4331 e-22959 r-22869 w-22870 mod-22872)) - e1-22879))) - tmp-22874) + (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-22868))))) - (expand-macro-4334 - (lambda (p-23035 - e-23036 - r-23037 - w-23038 - s-23039 - rib-23040 - mod-23041) + e-20376))))) + (expand-macro-4300 + (lambda (p-20462 + e-20463 + r-20464 + w-20465 + s-20466 + rib-20467 + mod-20468) (letrec* - ((rebuild-macro-output-23042 - (lambda (x-23075 m-23076) - (if (pair? x-23075) - (let ((e-23080 - (cons (rebuild-macro-output-23042 - (car x-23075) - m-23076) - (rebuild-macro-output-23042 - (cdr x-23075) - m-23076)))) + ((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-23039 - (supports-source-properties? e-23080) + (if (if s-20466 + (supports-source-properties? e-20507) #f) - (set-source-properties! e-23080 s-23039)) - e-23080)) - (if (if (vector? x-23075) - (if (= (vector-length x-23075) 4) - (eq? (vector-ref x-23075 0) 'syntax-object) + (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-23096 (vector-ref x-23075 2))) - (let ((ms-23097 (car w-23096)) - (ss-23098 (cdr w-23096))) - (if (if (pair? ms-23097) (eq? (car ms-23097) #f) #f) - (let ((expression-23106 (vector-ref x-23075 1)) - (wrap-23107 - (cons (cdr ms-23097) - (if rib-23040 - (cons rib-23040 (cdr ss-23098)) - (cdr ss-23098)))) - (module-23108 (vector-ref x-23075 3))) + (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-23106 - wrap-23107 - module-23108)) - (let ((expression-23118 - (let ((e-23123 (vector-ref x-23075 1))) + expression-20533 + wrap-20534 + module-20535)) + (let ((expression-20545 + (let ((e-20550 (vector-ref x-20502 1))) (begin - (if (if s-23039 + (if (if s-20466 (supports-source-properties? - e-23123) + e-20550) #f) (set-source-properties! - e-23123 - s-23039)) - e-23123))) - (wrap-23119 - (cons (cons m-23076 ms-23097) - (if rib-23040 - (cons rib-23040 - (cons 'shift ss-23098)) - (cons 'shift ss-23098)))) - (module-23120 (vector-ref x-23075 3))) + 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-23118 - wrap-23119 - module-23120))))) - (if (vector? x-23075) - (let ((n-23135 (vector-length x-23075))) - (let ((v-23136 - (let ((e-23144 (make-vector n-23135))) + 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-23039 - (supports-source-properties? e-23144) + (if (if s-20466 + (supports-source-properties? e-20571) #f) - (set-source-properties! e-23144 s-23039)) - e-23144)))) + (set-source-properties! e-20571 s-20466)) + e-20571)))) (letrec* - ((loop-23137 - (lambda (i-23189) - (if (= i-23189 n-23135) - v-23136 + ((loop-20564 + (lambda (i-20616) + (if (= i-20616 n-20562) + v-20563 (begin (vector-set! - v-23136 - i-23189 - (rebuild-macro-output-23042 - (vector-ref x-23075 i-23189) - m-23076)) - (loop-23137 (#{1+}# i-23189))))))) - (loop-23137 0)))) - (if (symbol? x-23075) + 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-23195 (cdr w-23038))) - (wrap-4324 + (let ((s-20622 (cdr w-20465))) + (wrap-4290 (begin - (if (if s-23195 - (supports-source-properties? e-23036) + (if (if s-20622 + (supports-source-properties? e-20463) #f) - (set-source-properties! e-23036 s-23195)) - e-23036) - w-23038 - mod-23041)) - x-23075) + (set-source-properties! e-20463 s-20622)) + e-20463) + w-20465 + mod-20468)) + x-20502) (begin - (if (if s-23039 - (supports-source-properties? x-23075) + (if (if s-20466 + (supports-source-properties? x-20502) #f) - (set-source-properties! x-23075 s-23039)) - x-23075)))))))) + (set-source-properties! x-20502 s-20466)) + x-20502)))))))) (with-fluids - ((transformer-environment-4317 - (lambda (k-23043) - (k-23043 - e-23036 - r-23037 - w-23038 - s-23039 - rib-23040 - mod-23041)))) - (rebuild-macro-output-23042 - (p-23035 - (let ((w-23050 - (cons (cons #f (car w-23038)) - (cons 'shift (cdr w-23038))))) - (wrap-4324 + ((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 - (if (if s-23039 - (supports-source-properties? e-23036) + (if (if s-20466 + (supports-source-properties? e-20463) #f) - (set-source-properties! e-23036 s-23039)) - e-23036) - w-23050 - mod-23041))) + (set-source-properties! e-20463 s-20466)) + e-20463) + w-20477 + mod-20468))) (gensym - (string-append "m-" (session-id-4256) "-"))))))) - (expand-body-4335 - (lambda (body-23227 - outer-form-23228 - r-23229 - w-23230 - mod-23231) - (let ((r-23232 - (cons '("placeholder" placeholder) r-23229))) - (let ((ribcage-23233 (vector 'ribcage '() '() '()))) - (let ((w-23234 - (cons (car w-23230) - (cons ribcage-23233 (cdr w-23230))))) + (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-23235 - (lambda (body-23248 - ids-23249 - labels-23250 - var-ids-23251 - vars-23252 - vals-23253 - bindings-23254) - (if (null? body-23248) + ((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-23228) - (let ((e-23255 (cdr (car body-23248))) - (er-23256 (car (car body-23248)))) + outer-form-20655) + (let ((e-20682 (cdr (car body-20675))) + (er-20683 (car (car body-20675)))) (call-with-values (lambda () - (syntax-type-4330 - e-23255 - er-23256 + (syntax-type-4296 + e-20682 + er-20683 '(()) - (source-annotation-4288 er-23256) - ribcage-23233 - mod-23231 + (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-23413 - value-23414 - form-23415 - e-23416 - w-23417 - s-23418 - mod-23419) - (if (eqv? type-23413 'define-form) - (let ((id-23427 - (wrap-4324 - value-23414 - w-23417 - mod-23419)) - (label-23428 + (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-4256) + (session-id-4222) (symbol->string (gensym "-"))))) - (let ((var-23429 - (let ((id-23489 - (if (if (vector? id-23427) + (let ((var-20731 + (let ((id-20791 + (if (if (vector? id-20729) (if (= (vector-length - id-23427) + id-20729) 4) (eq? (vector-ref - id-23427 + id-20729 0) 'syntax-object) #f) #f) - (vector-ref id-23427 1) - id-23427))) + (vector-ref id-20729 1) + id-20729))) (gensym (string-append - (symbol->string id-23489) + (symbol->string id-20791) "-"))))) (begin - (let ((update-23479 - (cons (vector-ref id-23427 1) + (let ((update-20781 + (cons (vector-ref id-20729 1) (vector-ref - ribcage-23233 + ribcage-20660 1)))) (vector-set! - ribcage-23233 + ribcage-20660 1 - update-23479)) - (let ((update-23481 + update-20781)) + (let ((update-20783 (cons (car (vector-ref - id-23427 + id-20729 2)) (vector-ref - ribcage-23233 + ribcage-20660 2)))) (vector-set! - ribcage-23233 + ribcage-20660 2 - update-23481)) - (let ((update-23483 - (cons label-23428 + update-20783)) + (let ((update-20785 + (cons label-20730 (vector-ref - ribcage-23233 + ribcage-20660 3)))) (vector-set! - ribcage-23233 + ribcage-20660 3 - update-23483)) - (parse-23235 - (cdr body-23248) - (cons id-23427 ids-23249) - (cons label-23428 labels-23250) - (cons id-23427 var-ids-23251) - (cons var-23429 vars-23252) - (cons (cons er-23256 - (wrap-4324 - e-23416 - w-23417 - mod-23419)) - vals-23253) - (cons (cons 'lexical var-23429) - bindings-23254))))) - (if (if (eqv? type-23413 'define-syntax-form) + 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-23413 + (eqv? type-20715 'define-syntax-parameter-form)) - (let ((id-23525 - (wrap-4324 - value-23414 - w-23417 - mod-23419)) - (label-23526 + (let ((id-20827 + (wrap-4290 + value-20716 + w-20719 + mod-20721)) + (label-20828 (string-append "l-" - (session-id-4256) + (session-id-4222) (symbol->string (gensym "-"))))) (begin - (let ((update-23576 - (cons (vector-ref id-23525 1) + (let ((update-20878 + (cons (vector-ref id-20827 1) (vector-ref - ribcage-23233 + ribcage-20660 1)))) (vector-set! - ribcage-23233 + ribcage-20660 1 - update-23576)) - (let ((update-23578 + update-20878)) + (let ((update-20880 (cons (car (vector-ref - id-23525 + id-20827 2)) (vector-ref - ribcage-23233 + ribcage-20660 2)))) (vector-set! - ribcage-23233 + ribcage-20660 2 - update-23578)) - (let ((update-23580 - (cons label-23526 + update-20880)) + (let ((update-20882 + (cons label-20828 (vector-ref - ribcage-23233 + ribcage-20660 3)))) (vector-set! - ribcage-23233 + ribcage-20660 3 - update-23580)) - (parse-23235 - (cdr body-23248) - (cons id-23525 ids-23249) - (cons label-23526 labels-23250) - var-ids-23251 - vars-23252 - vals-23253 + 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-23256 - (wrap-4324 - e-23416 - w-23417 - mod-23419))) - bindings-23254)))) - (if (eqv? type-23413 'begin-form) - (let ((tmp-23591 + (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-23416 + e-20718 '(_ . each-any)))) - (if tmp-23591 + (if tmp-20893 (@apply - (lambda (e1-23595) - (parse-23235 + (lambda (e1-20897) + (parse-20662 (letrec* - ((f-23596 - (lambda (forms-23659) - (if (null? forms-23659) - (cdr body-23248) - (cons (cons er-23256 - (wrap-4324 - (car forms-23659) - w-23417 - mod-23419)) - (f-23596 - (cdr forms-23659))))))) - (f-23596 e1-23595)) - ids-23249 - labels-23250 - var-ids-23251 - vars-23252 - vals-23253 - bindings-23254)) - tmp-23591) + ((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-23416))) - (if (eqv? type-23413 'local-syntax-form) - (expand-local-syntax-4336 - value-23414 - e-23416 - er-23256 - w-23417 - s-23418 - mod-23419 - (lambda (forms-23676 - er-23677 - w-23678 - s-23679 - mod-23680) - (parse-23235 + 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-23681 - (lambda (forms-23744) - (if (null? forms-23744) - (cdr body-23248) - (cons (cons er-23677 - (wrap-4324 - (car forms-23744) - w-23678 - mod-23680)) - (f-23681 - (cdr forms-23744))))))) - (f-23681 forms-23676)) - ids-23249 - labels-23250 - var-ids-23251 - vars-23252 - vals-23253 - bindings-23254))) - (if (null? ids-23249) - (build-sequence-4276 - #f - (map (lambda (x-23809) - (let ((e-23813 (cdr x-23809)) - (r-23814 (car x-23809))) - (call-with-values - (lambda () - (syntax-type-4330 - e-23813 - r-23814 - '(()) - (source-annotation-4288 - e-23813) - #f - mod-23419 - #f)) - (lambda (type-23818 - value-23819 - form-23820 - e-23821 - w-23822 - s-23823 - mod-23824) - (expand-expr-4332 - type-23818 - value-23819 - form-23820 - e-23821 - r-23814 - w-23822 - s-23823 - mod-23824))))) - (cons (cons er-23256 - (wrap-4324 - (begin - (if (if s-23418 - (supports-source-properties? - e-23416) - #f) - (set-source-properties! - e-23416 - s-23418)) - e-23416) - w-23417 - mod-23419)) - (cdr body-23248)))) + ((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?-4321 - ids-23249)) + (if (not (valid-bound-ids?-4287 + ids-20676)) (syntax-violation #f "invalid or duplicate identifier in definition" - outer-form-23228)) + outer-form-20655)) (letrec* - ((loop-23925 - (lambda (bs-23928 - er-cache-23929 - r-cache-23930) - (if (not (null? bs-23928)) - (let ((b-23931 - (car bs-23928))) - (if (eq? (car b-23931) + ((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-23933 - (car (cdr b-23931)))) - (let ((r-cache-23934 - (if (eq? er-23933 - er-cache-23929) - r-cache-23930 - (macros-only-env-4291 - er-23933)))) + (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-23931 - (eval-local-transformer-4337 - (expand-4331 - (cdr (cdr b-23931)) - r-cache-23934 - '(()) - mod-23419) - mod-23419)) - (loop-23925 - (cdr bs-23928) - er-23933 - r-cache-23934)))) - (loop-23925 - (cdr bs-23928) - er-cache-23929 - r-cache-23930))))))) - (loop-23925 bindings-23254 #f #f)) + 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-23232 - (extend-env-4289 - labels-23250 - bindings-23254 - (cdr r-23232))) - (build-letrec-4279 - #f - #t - (reverse - (map syntax->datum - var-ids-23251)) - (reverse vars-23252) - (map (lambda (x-24277) - (let ((e-24281 - (cdr x-24277)) - (r-24282 - (car x-24277))) - (call-with-values - (lambda () - (syntax-type-4330 - e-24281 - r-24282 - '(()) - (source-annotation-4288 - e-24281) - #f - mod-23419 - #f)) - (lambda (type-24286 - value-24287 - form-24288 - e-24289 - w-24290 - s-24291 - mod-24292) - (expand-expr-4332 - type-24286 - value-24287 - form-24288 - e-24289 - r-24282 - w-24290 - s-24291 - mod-24292))))) - (reverse vals-23253)) - (let ((exps-24298 - (map (lambda (x-24299) - (let ((e-24302 - (cdr x-24299)) - (r-24303 - (car x-24299))) - (call-with-values - (lambda () - (syntax-type-4330 - e-24302 - r-24303 - '(()) - (source-annotation-4288 - e-24302) - #f - mod-23419 - #f)) - (lambda (type-24307 - value-24308 - form-24309 - e-24310 - w-24311 - s-24312 - mod-24313) - (expand-expr-4332 - type-24307 - value-24308 - form-24309 - e-24310 - r-24303 - w-24311 - s-24312 - mod-24313))))) - (cons (cons er-23256 - (wrap-4324 - (begin - (if (if s-23418 - (supports-source-properties? - e-23416) - #f) - (set-source-properties! - e-23416 - s-23418)) - e-23416) - w-23417 - mod-23419)) - (cdr body-23248))))) - (if (null? (cdr exps-24298)) - (car exps-24298) + 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 - 12) + 16) #f - exps-24298))))))))))))))))) - (parse-23235 - (map (lambda (x-23238) - (cons r-23232 - (wrap-4324 x-23238 w-23234 mod-23231))) - body-23227) + #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-4336 - (lambda (rec?-24339 - e-24340 - r-24341 - w-24342 - s-24343 - mod-24344 - k-24345) - (let ((tmp-24347 + (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-24340 + e-21611 '(_ #(each (any any)) any . each-any)))) - (if tmp-24347 + (if tmp-21618 (@apply - (lambda (id-24351 val-24352 e1-24353 e2-24354) - (if (not (valid-bound-ids?-4321 id-24351)) + (lambda (id-21620 val-21621 e1-21622 e2-21623) + (if (not (valid-bound-ids?-4287 id-21620)) (syntax-violation #f "duplicate bound keyword" - e-24340) - (let ((labels-24444 (gen-labels-4298 id-24351))) - (let ((new-w-24445 - (make-binding-wrap-4309 - id-24351 - labels-24444 - w-24342))) - (k-24345 - (cons e1-24353 e2-24354) - (extend-env-4289 - labels-24444 - (let ((trans-r-24481 - (macros-only-env-4291 r-24341))) + 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?-24339 new-w-24445 w-24342) - (map (lambda (x-24482) + (if rec?-21610 new-w-21714 w-21613) + (map (lambda (x-21751) (cons 'macro - (eval-local-transformer-4337 - (expand-4331 - x-24482 - trans-r-24481 - (values - (if rec?-24339 - new-w-24445 - w-24342)) - mod-24344) - mod-24344))) - val-24352))) - r-24341) - new-w-24445 - s-24343 - mod-24344))))) - tmp-24347) + (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-4324 + (wrap-4290 (begin - (if (if s-24343 - (supports-source-properties? e-24340) + (if (if s-21614 + (supports-source-properties? e-21611) #f) - (set-source-properties! e-24340 s-24343)) - e-24340) - w-24342 - mod-24344)))))) - (eval-local-transformer-4337 - (lambda (expanded-24762 mod-24763) - (let ((p-24764 (primitive-eval expanded-24762))) - (if (procedure? p-24764) - p-24764 + (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-24764))))) - (ellipsis?-4339 - (lambda (x-5000) - (if (if (if (vector? x-5000) - (if (= (vector-length x-5000) 4) - (eq? (vector-ref x-5000 0) 'syntax-object) + 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-5000 1)) + (symbol? (vector-ref x-4941 1)) #f) - (if (eq? (if (if (vector? x-5000) - (if (= (vector-length x-5000) 4) - (eq? (vector-ref x-5000 0) 'syntax-object) + (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-5000 1) - x-5000) + (vector-ref x-4941 1) + x-4941) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2267")) + #(ribcage #(x) #((top)) #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -5313,7 +5944,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2267")) + #(ribcage #(x) #((top)) #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -5742,14 +6373,14 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 x-5000 '(())) - (id-var-name-4314 + (eq? (id-var-name-4280 x-4941 '(())) + (id-var-name-4280 '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2267")) + #(ribcage #(x) #((top)) #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -6181,272 +6812,272 @@ '(()))) #f) #f))) - (lambda-formals-4340 - (lambda (orig-args-24769) + (lambda-formals-4306 + (lambda (orig-args-22023) (letrec* - ((req-24770 - (lambda (args-24774 rreq-24775) - (let ((tmp-24777 ($sc-dispatch args-24774 '()))) - (if tmp-24777 + ((req-22024 + (lambda (args-22028 rreq-22029) + (let ((tmp-22031 ($sc-dispatch args-22028 '()))) + (if tmp-22031 (@apply - (lambda () (check-24771 (reverse rreq-24775) #f)) - tmp-24777) - (let ((tmp-24900 - ($sc-dispatch args-24774 '(any . any)))) - (if (if tmp-24900 + (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-24904 b-24905) - (if (symbol? a-24904) + (lambda (a-22158 b-22159) + (if (symbol? a-22158) #t - (if (if (vector? a-24904) - (if (= (vector-length a-24904) 4) - (eq? (vector-ref a-24904 0) + (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-24904 1)) + (symbol? (vector-ref a-22158 1)) #f))) - tmp-24900) + tmp-22154) #f) (@apply - (lambda (a-24932 b-24933) - (req-24770 b-24933 (cons a-24932 rreq-24775))) - tmp-24900) - (let ((tmp-24934 (list args-24774))) + (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-24936) - (if (symbol? r-24936) + (lambda (r-22190) + (if (symbol? r-22190) #t - (if (if (vector? r-24936) - (if (= (vector-length r-24936) 4) - (eq? (vector-ref r-24936 0) + (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-24936 1)) + (symbol? (vector-ref r-22190 1)) #f))) - tmp-24934) + tmp-22188) (@apply - (lambda (r-24966) - (check-24771 (reverse rreq-24775) r-24966)) - tmp-24934) + (lambda (r-22220) + (check-22025 (reverse rreq-22029) r-22220)) + tmp-22188) (syntax-violation 'lambda "invalid argument list" - orig-args-24769 - args-24774))))))))) - (check-24771 - (lambda (req-25097 rest-25098) - (if (distinct-bound-ids?-4322 - (if rest-25098 - (cons rest-25098 req-25097) - req-25097)) - (values req-25097 #f rest-25098 #f) + 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-24769))))) - (req-24770 orig-args-24769 '())))) - (expand-simple-lambda-4341 - (lambda (e-25214 - r-25215 - w-25216 - s-25217 - mod-25218 - req-25219 - rest-25220 - meta-25221 - body-25222) - (let ((ids-25223 - (if rest-25220 - (append req-25219 (list rest-25220)) - req-25219))) - (let ((vars-25224 (map gen-var-4345 ids-25223))) - (let ((labels-25225 (gen-labels-4298 ids-25223))) - (build-simple-lambda-4271 - s-25217 - (map syntax->datum req-25219) - (if rest-25220 (syntax->datum rest-25220) #f) - vars-25224 - meta-25221 - (expand-body-4335 - body-25222 - (wrap-4324 + 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-25217 - (supports-source-properties? e-25214) + (if (if s-22471 + (supports-source-properties? e-22468) #f) - (set-source-properties! e-25214 s-25217)) - e-25214) - w-25216 - mod-25218) - (extend-var-env-4290 - labels-25225 - vars-25224 - r-25215) - (make-binding-wrap-4309 - ids-25223 - labels-25225 - w-25216) - mod-25218))))))) - (lambda*-formals-4342 - (lambda (orig-args-25505) + (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-25506 - (lambda (args-25513 rreq-25514) - (let ((tmp-25516 ($sc-dispatch args-25513 '()))) - (if tmp-25516 + ((req-22760 + (lambda (args-22767 rreq-22768) + (let ((tmp-22770 ($sc-dispatch args-22767 '()))) + (if tmp-22770 (@apply (lambda () - (check-25510 (reverse rreq-25514) '() #f '())) - tmp-25516) - (let ((tmp-25522 - ($sc-dispatch args-25513 '(any . any)))) - (if (if tmp-25522 + (check-22764 (reverse rreq-22768) '() #f '())) + tmp-22770) + (let ((tmp-22776 + ($sc-dispatch args-22767 '(any . any)))) + (if (if tmp-22776 (@apply - (lambda (a-25526 b-25527) - (if (symbol? a-25526) + (lambda (a-22780 b-22781) + (if (symbol? a-22780) #t - (if (if (vector? a-25526) - (if (= (vector-length a-25526) 4) - (eq? (vector-ref a-25526 0) + (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-25526 1)) + (symbol? (vector-ref a-22780 1)) #f))) - tmp-25522) + tmp-22776) #f) (@apply - (lambda (a-25554 b-25555) - (req-25506 b-25555 (cons a-25554 rreq-25514))) - tmp-25522) - (let ((tmp-25556 - ($sc-dispatch args-25513 '(any . any)))) - (if (if tmp-25556 + (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-25560 b-25561) - (eq? (syntax->datum a-25560) #:optional)) - tmp-25556) + (lambda (a-22814 b-22815) + (eq? (syntax->datum a-22814) #:optional)) + tmp-22810) #f) (@apply - (lambda (a-25562 b-25563) - (opt-25507 b-25563 (reverse rreq-25514) '())) - tmp-25556) - (let ((tmp-25566 - ($sc-dispatch args-25513 '(any . any)))) - (if (if tmp-25566 + (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-25570 b-25571) - (eq? (syntax->datum a-25570) #:key)) - tmp-25566) + (lambda (a-22824 b-22825) + (eq? (syntax->datum a-22824) #:key)) + tmp-22820) #f) (@apply - (lambda (a-25572 b-25573) - (key-25508 - b-25573 - (reverse rreq-25514) + (lambda (a-22826 b-22827) + (key-22762 + b-22827 + (reverse rreq-22768) '() '())) - tmp-25566) - (let ((tmp-25576 - ($sc-dispatch args-25513 '(any any)))) - (if (if tmp-25576 + tmp-22820) + (let ((tmp-22830 + ($sc-dispatch args-22767 '(any any)))) + (if (if tmp-22830 (@apply - (lambda (a-25580 b-25581) - (eq? (syntax->datum a-25580) + (lambda (a-22834 b-22835) + (eq? (syntax->datum a-22834) #:rest)) - tmp-25576) + tmp-22830) #f) (@apply - (lambda (a-25582 b-25583) - (rest-25509 - b-25583 - (reverse rreq-25514) + (lambda (a-22836 b-22837) + (rest-22763 + b-22837 + (reverse rreq-22768) '() '())) - tmp-25576) - (let ((tmp-25586 (list args-25513))) + tmp-22830) + (let ((tmp-22840 (list args-22767))) (if (@apply - (lambda (r-25588) - (if (symbol? r-25588) + (lambda (r-22842) + (if (symbol? r-22842) #t - (if (if (vector? r-25588) + (if (if (vector? r-22842) (if (= (vector-length - r-25588) + r-22842) 4) (eq? (vector-ref - r-25588 + r-22842 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-25588 1)) + (vector-ref r-22842 1)) #f))) - tmp-25586) + tmp-22840) (@apply - (lambda (r-25618) - (rest-25509 - r-25618 - (reverse rreq-25514) + (lambda (r-22872) + (rest-22763 + r-22872 + (reverse rreq-22768) '() '())) - tmp-25586) + tmp-22840) (syntax-violation 'lambda* "invalid argument list" - orig-args-25505 - args-25513))))))))))))))) - (opt-25507 - (lambda (args-25637 req-25638 ropt-25639) - (let ((tmp-25641 ($sc-dispatch args-25637 '()))) - (if tmp-25641 + 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-25510 - req-25638 - (reverse ropt-25639) + (check-22764 + req-22892 + (reverse ropt-22893) #f '())) - tmp-25641) - (let ((tmp-25647 - ($sc-dispatch args-25637 '(any . any)))) - (if (if tmp-25647 + tmp-22895) + (let ((tmp-22901 + ($sc-dispatch args-22891 '(any . any)))) + (if (if tmp-22901 (@apply - (lambda (a-25651 b-25652) - (if (symbol? a-25651) + (lambda (a-22905 b-22906) + (if (symbol? a-22905) #t - (if (if (vector? a-25651) - (if (= (vector-length a-25651) 4) - (eq? (vector-ref a-25651 0) + (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-25651 1)) + (symbol? (vector-ref a-22905 1)) #f))) - tmp-25647) + tmp-22901) #f) (@apply - (lambda (a-25679 b-25680) - (opt-25507 - b-25680 - req-25638 - (cons (cons a-25679 + (lambda (a-22933 b-22934) + (opt-22761 + b-22934 + req-22892 + (cons (cons a-22933 '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("l-*-2404" "l-*-2405")) + #("l-*-2402" "l-*-2403")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("l-*-2394" - "l-*-2395" - "l-*-2396")) + #("l-*-2392" + "l-*-2393" + "l-*-2394")) #(ribcage (check rest key opt req) ((top) @@ -6454,15 +7085,15 @@ (top) (top) (top)) - ("l-*-2340" - "l-*-2338" + ("l-*-2338" "l-*-2336" "l-*-2334" - "l-*-2332")) + "l-*-2332" + "l-*-2330")) #(ribcage #(orig-args) #((top)) - #("l-*-2331")) + #("l-*-2329")) #(ribcage (lambda-var-list gen-var @@ -6891,136 +7522,136 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - ropt-25639))) - tmp-25647) - (let ((tmp-25681 - ($sc-dispatch args-25637 '((any any) . any)))) - (if (if tmp-25681 + ropt-22893))) + tmp-22901) + (let ((tmp-22935 + ($sc-dispatch args-22891 '((any any) . any)))) + (if (if tmp-22935 (@apply - (lambda (a-25685 init-25686 b-25687) - (if (symbol? a-25685) + (lambda (a-22939 init-22940 b-22941) + (if (symbol? a-22939) #t - (if (if (vector? a-25685) - (if (= (vector-length a-25685) 4) - (eq? (vector-ref a-25685 0) + (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-25685 1)) + (symbol? (vector-ref a-22939 1)) #f))) - tmp-25681) + tmp-22935) #f) (@apply - (lambda (a-25714 init-25715 b-25716) - (opt-25507 - b-25716 - req-25638 - (cons (list a-25714 init-25715) ropt-25639))) - tmp-25681) - (let ((tmp-25717 - ($sc-dispatch args-25637 '(any . any)))) - (if (if tmp-25717 + (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-25721 b-25722) - (eq? (syntax->datum a-25721) #:key)) - tmp-25717) + (lambda (a-22975 b-22976) + (eq? (syntax->datum a-22975) #:key)) + tmp-22971) #f) (@apply - (lambda (a-25723 b-25724) - (key-25508 - b-25724 - req-25638 - (reverse ropt-25639) + (lambda (a-22977 b-22978) + (key-22762 + b-22978 + req-22892 + (reverse ropt-22893) '())) - tmp-25717) - (let ((tmp-25727 - ($sc-dispatch args-25637 '(any any)))) - (if (if tmp-25727 + tmp-22971) + (let ((tmp-22981 + ($sc-dispatch args-22891 '(any any)))) + (if (if tmp-22981 (@apply - (lambda (a-25731 b-25732) - (eq? (syntax->datum a-25731) + (lambda (a-22985 b-22986) + (eq? (syntax->datum a-22985) #:rest)) - tmp-25727) + tmp-22981) #f) (@apply - (lambda (a-25733 b-25734) - (rest-25509 - b-25734 - req-25638 - (reverse ropt-25639) + (lambda (a-22987 b-22988) + (rest-22763 + b-22988 + req-22892 + (reverse ropt-22893) '())) - tmp-25727) - (let ((tmp-25737 (list args-25637))) + tmp-22981) + (let ((tmp-22991 (list args-22891))) (if (@apply - (lambda (r-25739) - (if (symbol? r-25739) + (lambda (r-22993) + (if (symbol? r-22993) #t - (if (if (vector? r-25739) + (if (if (vector? r-22993) (if (= (vector-length - r-25739) + r-22993) 4) (eq? (vector-ref - r-25739 + r-22993 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-25739 1)) + (vector-ref r-22993 1)) #f))) - tmp-25737) + tmp-22991) (@apply - (lambda (r-25769) - (rest-25509 - r-25769 - req-25638 - (reverse ropt-25639) + (lambda (r-23023) + (rest-22763 + r-23023 + req-22892 + (reverse ropt-22893) '())) - tmp-25737) + tmp-22991) (syntax-violation 'lambda* "invalid optional argument list" - orig-args-25505 - args-25637))))))))))))))) - (key-25508 - (lambda (args-25788 req-25789 opt-25790 rkey-25791) - (let ((tmp-25793 ($sc-dispatch args-25788 '()))) - (if tmp-25793 + 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-25510 - req-25789 - opt-25790 + (check-22764 + req-23043 + opt-23044 #f - (cons #f (reverse rkey-25791)))) - tmp-25793) - (let ((tmp-25799 - ($sc-dispatch args-25788 '(any . any)))) - (if (if tmp-25799 + (cons #f (reverse rkey-23045)))) + tmp-23047) + (let ((tmp-23053 + ($sc-dispatch args-23042 '(any . any)))) + (if (if tmp-23053 (@apply - (lambda (a-25803 b-25804) - (if (symbol? a-25803) + (lambda (a-23057 b-23058) + (if (symbol? a-23057) #t - (if (if (vector? a-25803) - (if (= (vector-length a-25803) 4) - (eq? (vector-ref a-25803 0) + (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-25803 1)) + (symbol? (vector-ref a-23057 1)) #f))) - tmp-25799) + tmp-23053) #f) (@apply - (lambda (a-25831 b-25832) - (let ((tmp-25833 - (symbol->keyword (syntax->datum a-25831)))) - (key-25508 - b-25832 - req-25789 - opt-25790 - (cons (cons tmp-25833 - (cons a-25831 + (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) @@ -7028,12 +7659,12 @@ #(ribcage #(k) #((top)) - #("l-*-2467")) + #("l-*-2465")) #(ribcage #(a b) #((top) (top)) - #("l-*-2461" - "l-*-2462")) + #("l-*-2459" + "l-*-2460")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7041,10 +7672,10 @@ (top) (top) (top)) - #("l-*-2450" - "l-*-2451" - "l-*-2452" - "l-*-2453")) + #("l-*-2448" + "l-*-2449" + "l-*-2450" + "l-*-2451")) #(ribcage (check rest key @@ -7055,15 +7686,15 @@ (top) (top) (top)) - ("l-*-2340" - "l-*-2338" + ("l-*-2338" "l-*-2336" "l-*-2334" - "l-*-2332")) + "l-*-2332" + "l-*-2330")) #(ribcage #(orig-args) #((top)) - #("l-*-2331")) + #("l-*-2329")) #(ribcage (lambda-var-list gen-var @@ -7494,729 +8125,809 @@ "l-*-46" "l-*-45"))) (hygiene guile))))) - rkey-25791)))) - tmp-25799) - (let ((tmp-25836 - ($sc-dispatch args-25788 '((any any) . any)))) - (if (if tmp-25836 + rkey-23045)))) + tmp-23053) + (let ((tmp-23090 + ($sc-dispatch args-23042 '((any any) . any)))) + (if (if tmp-23090 (@apply - (lambda (a-25840 init-25841 b-25842) - (if (symbol? a-25840) + (lambda (a-23094 init-23095 b-23096) + (if (symbol? a-23094) #t - (if (if (vector? a-25840) - (if (= (vector-length a-25840) 4) - (eq? (vector-ref a-25840 0) + (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-25840 1)) + (symbol? (vector-ref a-23094 1)) #f))) - tmp-25836) + tmp-23090) #f) (@apply - (lambda (a-25869 init-25870 b-25871) - (let ((tmp-25872 + (lambda (a-23123 init-23124 b-23125) + (let ((tmp-23126 (symbol->keyword - (syntax->datum a-25869)))) - (key-25508 - b-25871 - req-25789 - opt-25790 - (cons (list tmp-25872 a-25869 init-25870) - rkey-25791)))) - tmp-25836) - (let ((tmp-25875 + (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-25788 + args-23042 '((any any any) . any)))) - (if (if tmp-25875 + (if (if tmp-23129 (@apply - (lambda (a-25879 - init-25880 - k-25881 - b-25882) - (if (if (symbol? a-25879) + (lambda (a-23133 + init-23134 + k-23135 + b-23136) + (if (if (symbol? a-23133) #t - (if (if (vector? a-25879) + (if (if (vector? a-23133) (if (= (vector-length - a-25879) + a-23133) 4) (eq? (vector-ref - a-25879 + a-23133 0) 'syntax-object) #f) #f) (symbol? - (vector-ref a-25879 1)) + (vector-ref a-23133 1)) #f)) - (keyword? (syntax->datum k-25881)) + (keyword? (syntax->datum k-23135)) #f)) - tmp-25875) + tmp-23129) #f) (@apply - (lambda (a-25909 init-25910 k-25911 b-25912) - (key-25508 - b-25912 - req-25789 - opt-25790 - (cons (list k-25911 a-25909 init-25910) - rkey-25791))) - tmp-25875) - (let ((tmp-25913 - ($sc-dispatch args-25788 '(any)))) - (if (if tmp-25913 + (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-25917) - (eq? (syntax->datum aok-25917) + (lambda (aok-23171) + (eq? (syntax->datum aok-23171) #:allow-other-keys)) - tmp-25913) + tmp-23167) #f) (@apply - (lambda (aok-25918) - (check-25510 - req-25789 - opt-25790 + (lambda (aok-23172) + (check-22764 + req-23043 + opt-23044 #f - (cons #t (reverse rkey-25791)))) - tmp-25913) - (let ((tmp-25921 + (cons #t (reverse rkey-23045)))) + tmp-23167) + (let ((tmp-23175 ($sc-dispatch - args-25788 + args-23042 '(any any any)))) - (if (if tmp-25921 + (if (if tmp-23175 (@apply - (lambda (aok-25925 - a-25926 - b-25927) + (lambda (aok-23179 + a-23180 + b-23181) (if (eq? (syntax->datum - aok-25925) + aok-23179) #:allow-other-keys) - (eq? (syntax->datum a-25926) + (eq? (syntax->datum a-23180) #:rest) #f)) - tmp-25921) + tmp-23175) #f) (@apply - (lambda (aok-25928 a-25929 b-25930) - (rest-25509 - b-25930 - req-25789 - opt-25790 - (cons #t (reverse rkey-25791)))) - tmp-25921) - (let ((tmp-25933 + (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-25788 + args-23042 '(any . any)))) - (if (if tmp-25933 + (if (if tmp-23187 (@apply - (lambda (aok-25937 r-25938) + (lambda (aok-23191 r-23192) (if (eq? (syntax->datum - aok-25937) + aok-23191) #:allow-other-keys) - (if (symbol? r-25938) + (if (symbol? r-23192) #t (if (if (vector? - r-25938) + r-23192) (if (= (vector-length - r-25938) + r-23192) 4) (eq? (vector-ref - r-25938 + r-23192 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-25938 + r-23192 1)) #f)) #f)) - tmp-25933) + tmp-23187) #f) (@apply - (lambda (aok-25965 r-25966) - (rest-25509 - r-25966 - req-25789 - opt-25790 + (lambda (aok-23219 r-23220) + (rest-22763 + r-23220 + req-23043 + opt-23044 (cons #t - (reverse rkey-25791)))) - tmp-25933) - (let ((tmp-25969 + (reverse rkey-23045)))) + tmp-23187) + (let ((tmp-23223 ($sc-dispatch - args-25788 + args-23042 '(any any)))) - (if (if tmp-25969 + (if (if tmp-23223 (@apply - (lambda (a-25973 b-25974) + (lambda (a-23227 b-23228) (eq? (syntax->datum - a-25973) + a-23227) #:rest)) - tmp-25969) + tmp-23223) #f) (@apply - (lambda (a-25975 b-25976) - (rest-25509 - b-25976 - req-25789 - opt-25790 + (lambda (a-23229 b-23230) + (rest-22763 + b-23230 + req-23043 + opt-23044 (cons #f (reverse - rkey-25791)))) - tmp-25969) - (let ((tmp-25979 - (list args-25788))) + rkey-23045)))) + tmp-23223) + (let ((tmp-23233 + (list args-23042))) (if (@apply - (lambda (r-25981) - (if (symbol? r-25981) + (lambda (r-23235) + (if (symbol? r-23235) #t (if (if (vector? - r-25981) + r-23235) (if (= (vector-length - r-25981) + r-23235) 4) (eq? (vector-ref - r-25981 + r-23235 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-25981 + r-23235 1)) #f))) - tmp-25979) + tmp-23233) (@apply - (lambda (r-26011) - (rest-25509 - r-26011 - req-25789 - opt-25790 + (lambda (r-23265) + (rest-22763 + r-23265 + req-23043 + opt-23044 (cons #f (reverse - rkey-25791)))) - tmp-25979) + rkey-23045)))) + tmp-23233) (syntax-violation 'lambda* "invalid keyword argument list" - orig-args-25505 - args-25788))))))))))))))))))))) - (rest-25509 - (lambda (args-26039 req-26040 opt-26041 kw-26042) - (let ((tmp-26044 (list args-26039))) + 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-26046) - (if (symbol? r-26046) + (lambda (r-23300) + (if (symbol? r-23300) #t - (if (if (vector? r-26046) - (if (= (vector-length r-26046) 4) - (eq? (vector-ref r-26046 0) 'syntax-object) + (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-26046 1)) + (symbol? (vector-ref r-23300 1)) #f))) - tmp-26044) + tmp-23298) (@apply - (lambda (r-26076) - (check-25510 - req-26040 - opt-26041 - r-26076 - kw-26042)) - tmp-26044) + (lambda (r-23330) + (check-22764 + req-23294 + opt-23295 + r-23330 + kw-23296)) + tmp-23298) (syntax-violation 'lambda* "invalid rest argument" - orig-args-25505 - args-26039))))) - (check-25510 - (lambda (req-26080 opt-26081 rest-26082 kw-26083) - (if (distinct-bound-ids?-4322 + orig-args-22759 + args-23293))))) + (check-22764 + (lambda (req-23334 opt-23335 rest-23336 kw-23337) + (if (distinct-bound-ids?-4288 (append - req-26080 - (map car opt-26081) - (if rest-26082 (list rest-26082) '()) - (if (pair? kw-26083) - (map cadr (cdr kw-26083)) + req-23334 + (map car opt-23335) + (if rest-23336 (list rest-23336) '()) + (if (pair? kw-23337) + (map cadr (cdr kw-23337)) '()))) - (values req-26080 opt-26081 rest-26082 kw-26083) + (values req-23334 opt-23335 rest-23336 kw-23337) (syntax-violation 'lambda* "duplicate identifier in argument list" - orig-args-25505))))) - (req-25506 orig-args-25505 '())))) - (expand-lambda-case-4343 - (lambda (e-26199 - r-26200 - w-26201 - s-26202 - mod-26203 - get-formals-26204 - clauses-26205) + 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-26206 - (lambda (req-26337 - opt-26338 - rest-26339 - kw-26340 - body-26341) - (let ((vars-26342 (map gen-var-4345 req-26337)) - (labels-26343 (gen-labels-4298 req-26337))) - (let ((r*-26344 - (extend-var-env-4290 - labels-26343 - vars-26342 - r-26200)) - (w*-26345 - (make-binding-wrap-4309 - req-26337 - labels-26343 - w-26201))) - (parse-opt-26207 - (map syntax->datum req-26337) - opt-26338 - rest-26339 - kw-26340 - body-26341 - (reverse vars-26342) - r*-26344 - w*-26345 + ((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-26207 - (lambda (req-26531 - opt-26532 - rest-26533 - kw-26534 - body-26535 - vars-26536 - r*-26537 - w*-26538 - out-26539 - inits-26540) - (if (pair? opt-26532) - (let ((tmp-26541 (car opt-26532))) - (let ((tmp-26542 ($sc-dispatch tmp-26541 '(any any)))) - (if tmp-26542 + (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-26544 i-26545) - (let ((v-26546 - (let ((id-26554 - (if (if (vector? id-26544) + (lambda (id-23798 i-23799) + (let ((v-23800 + (let ((id-23808 + (if (if (vector? id-23798) (if (= (vector-length - id-26544) + id-23798) 4) (eq? (vector-ref - id-26544 + id-23798 0) 'syntax-object) #f) #f) - (vector-ref id-26544 1) - id-26544))) + (vector-ref id-23798 1) + id-23798))) (gensym (string-append - (symbol->string id-26554) + (symbol->string id-23808) "-"))))) - (let ((l-26547 (gen-labels-4298 (list v-26546)))) - (let ((r**-26548 - (extend-var-env-4290 - l-26547 - (list v-26546) - r*-26537))) - (let ((w**-26549 - (make-binding-wrap-4309 - (list id-26544) - l-26547 - w*-26538))) - (parse-opt-26207 - req-26531 - (cdr opt-26532) - rest-26533 - kw-26534 - body-26535 - (cons v-26546 vars-26536) - r**-26548 - w**-26549 - (cons (syntax->datum id-26544) out-26539) - (cons (expand-4331 - i-26545 - r*-26537 - w*-26538 - mod-26203) - inits-26540))))))) - tmp-26542) + (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-26541)))) - (if rest-26533 - (let ((v-26792 - (let ((id-26802 - (if (if (vector? rest-26533) - (if (= (vector-length rest-26533) 4) - (eq? (vector-ref rest-26533 0) + 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-26533 1) - rest-26533))) + (vector-ref rest-23787 1) + rest-23787))) (gensym (string-append - (symbol->string id-26802) + (symbol->string id-24045) "-"))))) - (let ((l-26793 (gen-labels-4298 (list v-26792)))) - (let ((r*-26794 - (extend-var-env-4290 - l-26793 - (list v-26792) - r*-26537))) - (let ((w*-26795 - (make-binding-wrap-4309 - (list rest-26533) - l-26793 - w*-26538))) - (parse-kw-26208 - req-26531 - (if (pair? out-26539) (reverse out-26539) #f) - (syntax->datum rest-26533) - (if (pair? kw-26534) (cdr kw-26534) kw-26534) - body-26535 - (cons v-26792 vars-26536) - r*-26794 - w*-26795 - (if (pair? kw-26534) (car kw-26534) #f) + (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-26540))))) - (parse-kw-26208 - req-26531 - (if (pair? out-26539) (reverse out-26539) #f) + inits-23794))))) + (parse-kw-23462 + req-23785 + (if (pair? out-23793) (reverse out-23793) #f) #f - (if (pair? kw-26534) (cdr kw-26534) kw-26534) - body-26535 - vars-26536 - r*-26537 - w*-26538 - (if (pair? kw-26534) (car kw-26534) #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-26540))))) - (parse-kw-26208 - (lambda (req-26973 - opt-26974 - rest-26975 - kw-26976 - body-26977 - vars-26978 - r*-26979 - w*-26980 - aok-26981 - out-26982 - inits-26983) - (if (pair? kw-26976) - (let ((tmp-26984 (car kw-26976))) - (let ((tmp-26985 - ($sc-dispatch tmp-26984 '(any any any)))) - (if tmp-26985 + 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-26987 id-26988 i-26989) - (let ((v-26990 - (let ((id-26998 - (if (if (vector? id-26988) + (lambda (k-24230 id-24231 i-24232) + (let ((v-24233 + (let ((id-24241 + (if (if (vector? id-24231) (if (= (vector-length - id-26988) + id-24231) 4) (eq? (vector-ref - id-26988 + id-24231 0) 'syntax-object) #f) #f) - (vector-ref id-26988 1) - id-26988))) + (vector-ref id-24231 1) + id-24231))) (gensym (string-append - (symbol->string id-26998) + (symbol->string id-24241) "-"))))) - (let ((l-26991 (gen-labels-4298 (list v-26990)))) - (let ((r**-26992 - (extend-var-env-4290 - l-26991 - (list v-26990) - r*-26979))) - (let ((w**-26993 - (make-binding-wrap-4309 - (list id-26988) - l-26991 - w*-26980))) - (parse-kw-26208 - req-26973 - opt-26974 - rest-26975 - (cdr kw-26976) - body-26977 - (cons v-26990 vars-26978) - r**-26992 - w**-26993 - aok-26981 - (cons (list (syntax->datum k-26987) - (syntax->datum id-26988) - v-26990) - out-26982) - (cons (expand-4331 - i-26989 - r*-26979 - w*-26980 - mod-26203) - inits-26983))))))) - tmp-26985) + (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-26984)))) - (parse-body-26209 - req-26973 - opt-26974 - rest-26975 - (if (if aok-26981 aok-26981 (pair? out-26982)) - (cons aok-26981 (reverse out-26982)) + 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-26977 - (reverse vars-26978) - r*-26979 - w*-26980 - (reverse inits-26983) + body-24220 + (reverse vars-24221) + r*-24222 + w*-24223 + (reverse inits-24226) '())))) - (parse-body-26209 - (lambda (req-27245 - opt-27246 - rest-27247 - kw-27248 - body-27249 - vars-27250 - r*-27251 - w*-27252 - inits-27253 - meta-27254) - (let ((tmp-27256 - ($sc-dispatch body-27249 '(any any . each-any)))) - (if (if tmp-27256 + (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-27260 e1-27261 e2-27262) - (string? (syntax->datum docstring-27260))) - tmp-27256) + (lambda (docstring-24492 e1-24493 e2-24494) + (string? (syntax->datum docstring-24492))) + tmp-24488) #f) (@apply - (lambda (docstring-27263 e1-27264 e2-27265) - (parse-body-26209 - req-27245 - opt-27246 - rest-27247 - kw-27248 - (cons e1-27264 e2-27265) - vars-27250 - r*-27251 - w*-27252 - inits-27253 + (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-27254 + meta-24486 (list (cons 'documentation - (syntax->datum docstring-27263)))))) - tmp-27256) - (let ((tmp-27266 + (syntax->datum docstring-24495)))))) + tmp-24488) + (let ((tmp-24498 ($sc-dispatch - body-27249 + body-24481 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-27266 + (if tmp-24498 (@apply - (lambda (k-27270 v-27271 e1-27272 e2-27273) - (parse-body-26209 - req-27245 - opt-27246 - rest-27247 - kw-27248 - (cons e1-27272 e2-27273) - vars-27250 - r*-27251 - w*-27252 - inits-27253 + (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-27254 - (syntax->datum (map cons k-27270 v-27271))))) - tmp-27266) - (let ((tmp-27274 - ($sc-dispatch body-27249 '(any . each-any)))) - (if tmp-27274 + 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-27278 e2-27279) + (lambda (e1-24510 e2-24511) (values - meta-27254 - req-27245 - opt-27246 - rest-27247 - kw-27248 - inits-27253 - vars-27250 - (expand-body-4335 - (cons e1-27278 e2-27279) - (wrap-4324 + 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-26202 + (if (if s-23456 (supports-source-properties? - e-26199) + e-23453) #f) (set-source-properties! - e-26199 - s-26202)) - e-26199) - w-26201 - mod-26203) - r*-27251 - w*-27252 - mod-26203))) - tmp-27274) + 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-27249)))))))))) - (let ((tmp-26211 ($sc-dispatch clauses-26205 '()))) - (if tmp-26211 - (@apply (lambda () (values '() #f)) tmp-26211) - (let ((tmp-26215 + body-24481)))))))))) + (let ((tmp-23465 ($sc-dispatch clauses-23459 '()))) + (if tmp-23465 + (@apply (lambda () (values '() #f)) tmp-23465) + (let ((tmp-23469 ($sc-dispatch - clauses-26205 + clauses-23459 '((any any . each-any) . #(each (any any . each-any)))))) - (if tmp-26215 + (if tmp-23469 (@apply - (lambda (args-26219 - e1-26220 - e2-26221 - args*-26222 - e1*-26223 - e2*-26224) + (lambda (args-23473 + e1-23474 + e2-23475 + args*-23476 + e1*-23477 + e2*-23478) (call-with-values - (lambda () (get-formals-26204 args-26219)) - (lambda (req-26225 opt-26226 rest-26227 kw-26228) + (lambda () (get-formals-23458 args-23473)) + (lambda (req-23479 opt-23480 rest-23481 kw-23482) (call-with-values (lambda () - (parse-req-26206 - req-26225 - opt-26226 - rest-26227 - kw-26228 - (cons e1-26220 e2-26221))) - (lambda (meta-26293 - req-26294 - opt-26295 - rest-26296 - kw-26297 - inits-26298 - vars-26299 - body-26300) + (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-4343 - e-26199 - r-26200 - w-26201 - s-26202 - mod-26203 - get-formals-26204 - (map (lambda (tmp-2802-26301 - tmp-2801-26302 - tmp-2800-26303) - (cons tmp-2800-26303 - (cons tmp-2801-26302 - tmp-2802-26301))) - e2*-26224 - e1*-26223 - args*-26222))) - (lambda (meta*-26304 else*-26305) + (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-26293 meta*-26304) + (append meta-23547 meta*-23558) (make-struct/no-tail (vector-ref %expanded-vtables 14) - s-26202 - req-26294 - opt-26295 - rest-26296 - kw-26297 - inits-26298 - vars-26299 - body-26300 - else*-26305))))))))) - tmp-26215) + 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-26205)))))))) - (strip-4344 - (lambda (x-27316 w-27317) - (if (memq 'top (car w-27317)) - x-27316 + clauses-23459)))))))) + (strip-4310 + (lambda (x-24548 w-24549) + (if (memq 'top (car w-24549)) + x-24548 (letrec* - ((f-27318 - (lambda (x-27321) - (if (if (vector? x-27321) - (if (= (vector-length x-27321) 4) - (eq? (vector-ref x-27321 0) 'syntax-object) + ((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-4344 - (vector-ref x-27321 1) - (vector-ref x-27321 2)) - (if (pair? x-27321) - (let ((a-27340 (f-27318 (car x-27321))) - (d-27341 (f-27318 (cdr x-27321)))) - (if (if (eq? a-27340 (car x-27321)) - (eq? d-27341 (cdr x-27321)) + (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-27321 - (cons a-27340 d-27341))) - (if (vector? x-27321) - (let ((old-27344 (vector->list x-27321))) - (let ((new-27345 (map f-27318 old-27344))) + 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-27346 - (lambda (l1-27422 l2-27423) - (if (null? l1-27422) - x-27321 - (if (eq? (car l1-27422) (car l2-27423)) - (lp-27346 (cdr l1-27422) (cdr l2-27423)) - (list->vector new-27345)))))) - (lp-27346 old-27344 new-27345)))) - x-27321)))))) - (f-27318 x-27316))))) - (gen-var-4345 - (lambda (id-26349) - (let ((id-26350 - (if (if (vector? id-26349) - (if (= (vector-length id-26349) 4) - (eq? (vector-ref id-26349 0) 'syntax-object) + ((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-26349 1) - id-26349))) + (vector-ref id-23603 1) + id-23603))) (gensym - (string-append (symbol->string id-26350) "-")))))) + (string-append (symbol->string id-23604) "-")))))) (begin - (set! session-id-4256 - (let ((v-15685 + (set! session-id-4222 + (let ((v-14702 (module-variable (current-module) 'syntax-session-id))) - (lambda () ((variable-ref v-15685))))) - (set! transformer-environment-4317 + (lambda () ((variable-ref v-14702))))) + (set! transformer-environment-4283 (make-fluid - (lambda (k-14717) + (lambda (k-13734) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8232,1698 +8943,2058 @@ 'let-syntax 'local-syntax #f)) - (global-extend-4293 + (global-extend-4259 'core 'syntax-parameterize - (lambda (e-4466 r-4467 w-4468 s-4469 mod-4470) - (let ((tmp-4472 + (lambda (e-4430 r-4431 w-4432 s-4433 mod-4434) + (let ((tmp-4436 ($sc-dispatch - e-4466 + e-4430 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-4472 + (if (if tmp-4436 (@apply - (lambda (var-4476 val-4477 e1-4478 e2-4479) - (valid-bound-ids?-4321 var-4476)) - tmp-4472) + (lambda (var-4438 val-4439 e1-4440 e2-4441) + (valid-bound-ids?-4287 var-4438)) + tmp-4436) #f) (@apply - (lambda (var-4557 val-4558 e1-4559 e2-4560) - (let ((names-4561 - (map (lambda (x-4611) - (id-var-name-4314 x-4611 w-4468)) - var-4557))) + (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-4562 n-4563) - (let ((key-4564 - (car (let ((t-4571 (assq n-4563 r-4467))) - (if t-4571 - (cdr t-4571) - (if (symbol? n-4563) - (let ((t-4576 - (get-global-definition-hook-4258 - n-4563 - mod-4470))) - (if t-4576 t-4576 '(global))) + (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-4564 'displaced-lexical) + (if (eqv? key-4526 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - e-4466 - (wrap-4324 + e-4430 + (wrap-4290 (begin - (if (if s-4469 - (supports-source-properties? id-4562) + (if (if s-4433 + (supports-source-properties? id-4524) #f) - (set-source-properties! id-4562 s-4469)) - id-4562) - w-4468 - mod-4470))))) - var-4557 - names-4561) - (expand-body-4335 - (cons e1-4559 e2-4560) - (wrap-4324 + (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-4469 - (supports-source-properties? e-4466) + (if (if s-4433 + (supports-source-properties? e-4430) #f) - (set-source-properties! e-4466 s-4469)) - e-4466) - w-4468 - mod-4470) - (extend-env-4289 - names-4561 - (let ((trans-r-4697 (macros-only-env-4291 r-4467))) - (map (lambda (x-4698) + (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-4337 - (expand-4331 - x-4698 - trans-r-4697 - w-4468 - mod-4470) - mod-4470))) - val-4558)) - r-4467) - w-4468 - mod-4470)))) - tmp-4472) + (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-4324 + (wrap-4290 (begin - (if (if s-4469 - (supports-source-properties? e-4466) + (if (if s-4433 + (supports-source-properties? e-4430) #f) - (set-source-properties! e-4466 s-4469)) - e-4466) - w-4468 - mod-4470)))))) + (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-4907 r-4908 w-4909 s-4910 mod-4911) - (let ((tmp-4913 ($sc-dispatch e-4907 '(_ any)))) - (if tmp-4913 + (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-4916) - (let ((exp-4920 (strip-4344 e-4916 w-4909))) + (lambda (e-4862) + (let ((exp-4866 (strip-4310 e-4862 w-4857))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-4910 - exp-4920))) - tmp-4913) + s-4858 + exp-4866))) + tmp-4861) (syntax-violation 'quote "bad syntax" - (wrap-4324 + (wrap-4290 (begin - (if (if s-4910 - (supports-source-properties? e-4907) + (if (if s-4858 + (supports-source-properties? e-4855) #f) - (set-source-properties! e-4907 s-4910)) - e-4907) - w-4909 - mod-4911))))))) - (global-extend-4293 + (set-source-properties! e-4855 s-4858)) + e-4855) + w-4857 + mod-4859))))))) + (global-extend-4259 'core 'syntax (letrec* - ((gen-syntax-5140 - (lambda (src-5242 - e-5243 - r-5244 - maps-5245 - ellipsis?-5246 - mod-5247) - (if (if (symbol? e-5243) + ((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-5243) - (if (= (vector-length e-5243) 4) - (eq? (vector-ref e-5243 0) 'syntax-object) + (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-5243 1)) + (symbol? (vector-ref e-5176 1)) #f)) - (let ((label-5274 (id-var-name-4314 e-5243 '(())))) - (let ((b-5275 - (let ((t-5282 (assq label-5274 r-5244))) - (if t-5282 - (cdr t-5282) - (if (symbol? label-5274) - (let ((t-5288 - (get-global-definition-hook-4258 - label-5274 - mod-5247))) - (if t-5288 t-5288 '(global))) + (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-5275) 'syntax) + (if (eq? (car b-5208) 'syntax) (call-with-values (lambda () - (let ((var.lev-5297 (cdr b-5275))) - (gen-ref-5141 - src-5242 - (car var.lev-5297) - (cdr var.lev-5297) - maps-5245))) - (lambda (var-5301 maps-5302) - (values (list 'ref var-5301) maps-5302))) - (if (ellipsis?-5246 e-5243) + (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-5242) - (values (list 'quote e-5243) maps-5245))))) - (let ((tmp-5304 ($sc-dispatch e-5243 '(any any)))) - (if (if tmp-5304 + 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-5308 e-5309) - (ellipsis?-5246 dots-5308)) - tmp-5304) + (lambda (dots-5241 e-5242) + (ellipsis?-5179 dots-5241)) + tmp-5237) #f) (@apply - (lambda (dots-5310 e-5311) - (gen-syntax-5140 - src-5242 - e-5311 - r-5244 - maps-5245 - (lambda (x-5312) #f) - mod-5247)) - tmp-5304) - (let ((tmp-5313 ($sc-dispatch e-5243 '(any any . any)))) - (if (if tmp-5313 + (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-5317 dots-5318 y-5319) - (ellipsis?-5246 dots-5318)) - tmp-5313) + (lambda (x-5250 dots-5251 y-5252) + (ellipsis?-5179 dots-5251)) + tmp-5246) #f) (@apply - (lambda (x-5320 dots-5321 y-5322) + (lambda (x-5253 dots-5254 y-5255) (letrec* - ((f-5323 - (lambda (y-5331 k-5332) - (let ((tmp-5334 + ((f-5256 + (lambda (y-5264 k-5265) + (let ((tmp-5267 ($sc-dispatch - y-5331 + y-5264 '(any . any)))) - (if (if tmp-5334 + (if (if tmp-5267 (@apply - (lambda (dots-5338 y-5339) - (ellipsis?-5246 dots-5338)) - tmp-5334) + (lambda (dots-5269 y-5270) + (ellipsis?-5179 dots-5269)) + tmp-5267) #f) (@apply - (lambda (dots-5340 y-5341) - (f-5323 - y-5341 - (lambda (maps-5342) + (lambda (dots-5271 y-5272) + (f-5256 + y-5272 + (lambda (maps-5273) (call-with-values (lambda () - (k-5332 - (cons '() maps-5342))) - (lambda (x-5343 maps-5344) - (if (null? (car maps-5344)) + (k-5265 + (cons '() maps-5273))) + (lambda (x-5274 maps-5275) + (if (null? (car maps-5275)) (syntax-violation 'syntax "extra ellipsis" - src-5242) + src-5175) (values - (let ((map-env-5348 - (car maps-5344))) + (let ((map-env-5279 + (car maps-5275))) (list 'apply '(primitive append) - (gen-map-5143 - x-5343 - map-env-5348))) - (cdr maps-5344)))))))) - tmp-5334) + (gen-map-5081 + x-5274 + map-env-5279))) + (cdr maps-5275)))))))) + tmp-5267) (call-with-values (lambda () - (gen-syntax-5140 - src-5242 - y-5331 - r-5244 - maps-5245 - ellipsis?-5246 - mod-5247)) - (lambda (y-5351 maps-5352) + (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-5332 maps-5352)) - (lambda (x-5353 maps-5354) + (lambda () (k-5265 maps-5282)) + (lambda (x-5283 maps-5284) (values - (if (equal? y-5351 ''()) - x-5353 + (if (equal? y-5281 ''()) + x-5283 (list 'append - x-5353 - y-5351)) - maps-5354)))))))))) - (f-5323 - y-5322 - (lambda (maps-5326) + x-5283 + y-5281)) + maps-5284)))))))))) + (f-5256 + y-5255 + (lambda (maps-5259) (call-with-values (lambda () - (gen-syntax-5140 - src-5242 - x-5320 - r-5244 - (cons '() maps-5326) - ellipsis?-5246 - mod-5247)) - (lambda (x-5327 maps-5328) - (if (null? (car maps-5328)) + (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-5242) + src-5175) (values - (gen-map-5143 - x-5327 - (car maps-5328)) - (cdr maps-5328))))))))) - tmp-5313) - (let ((tmp-5370 ($sc-dispatch e-5243 '(any . any)))) - (if tmp-5370 + (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-5374 y-5375) + (lambda (x-5302 y-5303) (call-with-values (lambda () - (gen-syntax-5140 - src-5242 - x-5374 - r-5244 - maps-5245 - ellipsis?-5246 - mod-5247)) - (lambda (x-5376 maps-5377) + (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-5140 - src-5242 - y-5375 - r-5244 - maps-5377 - ellipsis?-5246 - mod-5247)) - (lambda (y-5378 maps-5379) + (gen-syntax-5078 + src-5175 + y-5303 + r-5177 + maps-5305 + ellipsis?-5179 + mod-5180)) + (lambda (y-5306 maps-5307) (values - (let ((key-5384 (car y-5378))) - (if (eqv? key-5384 'quote) - (if (eq? (car x-5376) 'quote) + (let ((key-5312 (car y-5306))) + (if (eqv? key-5312 'quote) + (if (eq? (car x-5304) 'quote) (list 'quote - (cons (car (cdr x-5376)) - (car (cdr y-5378)))) - (if (eq? (car (cdr y-5378)) + (cons (car (cdr x-5304)) + (car (cdr y-5306)))) + (if (eq? (car (cdr y-5306)) '()) - (list 'list x-5376) - (list 'cons x-5376 y-5378))) - (if (eqv? key-5384 'list) + (list 'list x-5304) + (list 'cons x-5304 y-5306))) + (if (eqv? key-5312 'list) (cons 'list - (cons x-5376 - (cdr y-5378))) - (list 'cons x-5376 y-5378)))) - maps-5379)))))) - tmp-5370) - (let ((tmp-5413 + (cons x-5304 + (cdr y-5306))) + (list 'cons x-5304 y-5306)))) + maps-5307)))))) + tmp-5298) + (let ((tmp-5341 ($sc-dispatch - e-5243 + e-5176 '#(vector (any . each-any))))) - (if tmp-5413 + (if tmp-5341 (@apply - (lambda (e1-5417 e2-5418) + (lambda (e1-5345 e2-5346) (call-with-values (lambda () - (gen-syntax-5140 - src-5242 - (cons e1-5417 e2-5418) - r-5244 - maps-5245 - ellipsis?-5246 - mod-5247)) - (lambda (e-5419 maps-5420) + (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-5419) 'list) - (cons 'vector (cdr e-5419)) - (if (eq? (car e-5419) 'quote) + (if (eq? (car e-5347) 'list) + (cons 'vector (cdr e-5347)) + (if (eq? (car e-5347) 'quote) (list 'quote (list->vector - (car (cdr e-5419)))) - (list 'list->vector e-5419))) - maps-5420)))) - tmp-5413) + (car (cdr e-5347)))) + (list 'list->vector e-5347))) + maps-5348)))) + tmp-5341) (values - (list 'quote e-5243) - maps-5245)))))))))))) - (gen-ref-5141 - (lambda (src-5447 var-5448 level-5449 maps-5450) - (if (= level-5449 0) - (values var-5448 maps-5450) - (if (null? maps-5450) + (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-5447) + src-5374) (call-with-values (lambda () - (gen-ref-5141 - src-5447 - var-5448 - (#{1-}# level-5449) - (cdr maps-5450))) - (lambda (outer-var-5451 outer-maps-5452) - (let ((b-5453 (assq outer-var-5451 (car maps-5450)))) - (if b-5453 - (values (cdr b-5453) maps-5450) - (let ((inner-var-5455 + (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-5455 - (cons (cons (cons outer-var-5451 inner-var-5455) - (car maps-5450)) - outer-maps-5452))))))))))) - (gen-map-5143 - (lambda (e-5469 map-env-5470) - (let ((formals-5471 (map cdr map-env-5470)) - (actuals-5472 - (map (lambda (x-5474) (list 'ref (car x-5474))) - map-env-5470))) - (if (eq? (car e-5469) 'ref) - (car actuals-5472) + 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-5475) - (if (eq? (car x-5475) 'ref) - (memq (car (cdr x-5475)) formals-5471) + (lambda (x-5402) + (if (eq? (car x-5402) 'ref) + (memq (car (cdr x-5402)) formals-5398) #f)) - (cdr e-5469)) + (cdr e-5396)) (cons 'map - (cons (list 'primitive (car e-5469)) - (map (let ((r-5477 + (cons (list 'primitive (car e-5396)) + (map (let ((r-5404 (map cons - formals-5471 - actuals-5472))) - (lambda (x-5478) - (cdr (assq (car (cdr x-5478)) - r-5477)))) - (cdr e-5469)))) + formals-5398 + actuals-5399))) + (lambda (x-5405) + (cdr (assq (car (cdr x-5405)) + r-5404)))) + (cdr e-5396)))) (cons 'map - (cons (list 'lambda formals-5471 e-5469) - actuals-5472))))))) - (regen-5147 - (lambda (x-5480) - (let ((key-5481 (car x-5480))) - (if (eqv? key-5481 'ref) - (let ((name-5491 (car (cdr x-5480))) - (var-5492 (car (cdr x-5480)))) + (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-5491 - var-5492)) - (if (eqv? key-5481 'primitive) - (let ((name-5504 (car (cdr x-5480)))) + 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-5504) + name-5431) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-5504 + name-5431 #f))) - (if (eqv? key-5481 'quote) - (let ((exp-5522 (car (cdr x-5480)))) + (if (eqv? key-5408 'quote) + (let ((exp-5449 (car (cdr x-5407)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - exp-5522)) - (if (eqv? key-5481 'lambda) - (if (list? (car (cdr x-5480))) - (let ((req-5533 (car (cdr x-5480))) - (vars-5535 (car (cdr x-5480))) - (exp-5537 - (regen-5147 (car (cdr (cdr x-5480)))))) - (let ((body-5542 + 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-5533 + req-5460 #f #f #f '() - vars-5535 - exp-5537 + vars-5462 + exp-5464 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-5542))) - (error "how did we get here" x-5480)) - (let ((fun-exp-5558 - (let ((name-5567 (car x-5480))) + 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-5567) + name-5494) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-5567 + name-5494 #f)))) - (arg-exps-5559 (map regen-5147 (cdr x-5480)))) + (arg-exps-5486 (map regen-5085 (cdr x-5407)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-5558 - arg-exps-5559)))))))))) - (lambda (e-5148 r-5149 w-5150 s-5151 mod-5152) - (let ((e-5153 - (wrap-4324 + 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-5151 - (supports-source-properties? e-5148) + (if (if s-5089 + (supports-source-properties? e-5086) #f) - (set-source-properties! e-5148 s-5151)) - e-5148) - w-5150 - mod-5152))) - (let ((tmp-5155 ($sc-dispatch e-5153 '(_ any)))) - (if tmp-5155 + (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-5180) + (lambda (x-5116) (call-with-values (lambda () - (gen-syntax-5140 - e-5153 - x-5180 - r-5149 + (gen-syntax-5078 + e-5091 + x-5116 + r-5087 '() - ellipsis?-4339 - mod-5152)) - (lambda (e-5234 maps-5235) (regen-5147 e-5234)))) - tmp-5155) + ellipsis?-4305 + mod-5090)) + (lambda (e-5170 maps-5171) (regen-5085 e-5170)))) + tmp-5093) (syntax-violation 'syntax "bad `syntax' form" - e-5153))))))) - (global-extend-4293 + e-5091))))))) + (global-extend-4259 'core 'lambda - (lambda (e-5755 r-5756 w-5757 s-5758 mod-5759) - (let ((tmp-5761 - ($sc-dispatch e-5755 '(_ any any . each-any)))) - (if tmp-5761 + (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-5765 e1-5766 e2-5767) + (lambda (args-5687 e1-5688 e2-5689) (call-with-values - (lambda () (lambda-formals-4340 args-5765)) - (lambda (req-5770 opt-5771 rest-5772 kw-5773) + (lambda () (lambda-formals-4306 args-5687)) + (lambda (req-5692 opt-5693 rest-5694 kw-5695) (letrec* - ((lp-5774 - (lambda (body-5777 meta-5778) - (let ((tmp-5780 + ((lp-5696 + (lambda (body-5699 meta-5700) + (let ((tmp-5702 ($sc-dispatch - body-5777 + body-5699 '(any any . each-any)))) - (if (if tmp-5780 + (if (if tmp-5702 (@apply - (lambda (docstring-5784 e1-5785 e2-5786) + (lambda (docstring-5706 e1-5707 e2-5708) (string? - (syntax->datum docstring-5784))) - tmp-5780) + (syntax->datum docstring-5706))) + tmp-5702) #f) (@apply - (lambda (docstring-5787 e1-5788 e2-5789) - (lp-5774 - (cons e1-5788 e2-5789) + (lambda (docstring-5709 e1-5710 e2-5711) + (lp-5696 + (cons e1-5710 e2-5711) (append - meta-5778 + meta-5700 (list (cons 'documentation (syntax->datum - docstring-5787)))))) - tmp-5780) - (let ((tmp-5790 + docstring-5709)))))) + tmp-5702) + (let ((tmp-5712 ($sc-dispatch - body-5777 + body-5699 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-5790 + (if tmp-5712 (@apply - (lambda (k-5794 v-5795 e1-5796 e2-5797) - (lp-5774 - (cons e1-5796 e2-5797) + (lambda (k-5716 v-5717 e1-5718 e2-5719) + (lp-5696 + (cons e1-5718 e2-5719) (append - meta-5778 + meta-5700 (syntax->datum - (map cons k-5794 v-5795))))) - tmp-5790) - (expand-simple-lambda-4341 - e-5755 - r-5756 - w-5757 - s-5758 - mod-5759 - req-5770 - rest-5772 - meta-5778 - body-5777)))))))) - (lp-5774 (cons e1-5766 e2-5767) '()))))) - tmp-5761) - (syntax-violation 'lambda "bad lambda" e-5755))))) - (global-extend-4293 + (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-6086 r-6087 w-6088 s-6089 mod-6090) - (let ((tmp-6092 - ($sc-dispatch e-6086 '(_ any any . each-any)))) - (if tmp-6092 + (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-6096 e1-6097 e2-6098) + (lambda (args-6010 e1-6011 e2-6012) (call-with-values (lambda () - (expand-lambda-case-4343 - e-6086 - r-6087 - w-6088 - s-6089 - mod-6090 - lambda*-formals-4342 - (list (cons args-6096 (cons e1-6097 e2-6098))))) - (lambda (meta-6101 lcase-6102) + (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-6089 - meta-6101 - lcase-6102)))) - tmp-6092) - (syntax-violation 'lambda "bad lambda*" e-6086))))) - (global-extend-4293 + s-6005 + meta-6015 + lcase-6016)))) + tmp-6008) + (syntax-violation 'lambda "bad lambda*" e-6002))))) + (global-extend-4259 'core 'case-lambda - (lambda (e-6272 r-6273 w-6274 s-6275 mod-6276) - (let ((tmp-6278 + (lambda (e-6181 r-6182 w-6183 s-6184 mod-6185) + (let ((tmp-6187 ($sc-dispatch - e-6272 + e-6181 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-6278 + (if tmp-6187 (@apply - (lambda (args-6282 - e1-6283 - e2-6284 - args*-6285 - e1*-6286 - e2*-6287) + (lambda (args-6189 + e1-6190 + e2-6191 + args*-6192 + e1*-6193 + e2*-6194) (call-with-values (lambda () - (expand-lambda-case-4343 - e-6272 - r-6273 - w-6274 - s-6275 - mod-6276 - lambda-formals-4340 - (cons (cons args-6282 (cons e1-6283 e2-6284)) - (map (lambda (tmp-3270-6290 - tmp-3269-6291 - tmp-3268-6292) - (cons tmp-3268-6292 - (cons tmp-3269-6291 tmp-3270-6290))) - e2*-6287 - e1*-6286 - args*-6285)))) - (lambda (meta-6293 lcase-6294) + (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-6275 - meta-6293 - lcase-6294)))) - tmp-6278) + s-6184 + meta-6200 + lcase-6201)))) + tmp-6187) (syntax-violation 'case-lambda "bad case-lambda" - e-6272))))) - (global-extend-4293 + e-6181))))) + (global-extend-4259 'core 'case-lambda* - (lambda (e-6456 r-6457 w-6458 s-6459 mod-6460) - (let ((tmp-6462 + (lambda (e-6358 r-6359 w-6360 s-6361 mod-6362) + (let ((tmp-6364 ($sc-dispatch - e-6456 + e-6358 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-6462 + (if tmp-6364 (@apply - (lambda (args-6466 - e1-6467 - e2-6468 - args*-6469 - e1*-6470 - e2*-6471) + (lambda (args-6366 + e1-6367 + e2-6368 + args*-6369 + e1*-6370 + e2*-6371) (call-with-values (lambda () - (expand-lambda-case-4343 - e-6456 - r-6457 - w-6458 - s-6459 - mod-6460 - lambda*-formals-4342 - (cons (cons args-6466 (cons e1-6467 e2-6468)) - (map (lambda (tmp-3305-6474 - tmp-3304-6475 - tmp-3303-6476) - (cons tmp-3303-6476 - (cons tmp-3304-6475 tmp-3305-6474))) - e2*-6471 - e1*-6470 - args*-6469)))) - (lambda (meta-6477 lcase-6478) + (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-6459 - meta-6477 - lcase-6478)))) - tmp-6462) + s-6361 + meta-6377 + lcase-6378)))) + tmp-6364) (syntax-violation 'case-lambda "bad case-lambda*" - e-6456))))) - (global-extend-4293 + e-6358))))) + (global-extend-4259 'core 'let (letrec* - ((expand-let-6669 - (lambda (e-6818 - r-6819 - w-6820 - s-6821 - mod-6822 - constructor-6823 - ids-6824 - vals-6825 - exps-6826) - (if (not (valid-bound-ids?-4321 ids-6824)) + ((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-6818) - (let ((labels-6904 (gen-labels-4298 ids-6824)) - (new-vars-6905 (map gen-var-4345 ids-6824))) - (let ((nw-6906 - (make-binding-wrap-4309 - ids-6824 - labels-6904 - w-6820)) - (nr-6907 - (extend-var-env-4290 - labels-6904 - new-vars-6905 - r-6819))) - (constructor-6823 - s-6821 - (map syntax->datum ids-6824) - new-vars-6905 - (map (lambda (x-6924) - (expand-4331 x-6924 r-6819 w-6820 mod-6822)) - vals-6825) - (expand-body-4335 - exps-6826 - (source-wrap-4325 e-6818 nw-6906 s-6821 mod-6822) - nr-6907 - nw-6906 - mod-6822)))))))) - (lambda (e-6670 r-6671 w-6672 s-6673 mod-6674) - (let ((tmp-6676 - ($sc-dispatch - e-6670 - '(_ #(each (any any)) any . each-any)))) - (if (if tmp-6676 - (@apply - (lambda (id-6680 val-6681 e1-6682 e2-6683) - (and-map id?-4295 id-6680)) - tmp-6676) - #f) - (@apply - (lambda (id-6699 val-6700 e1-6701 e2-6702) - (expand-let-6669 - e-6670 - r-6671 - w-6672 - s-6673 - mod-6674 - build-let-4277 - id-6699 - val-6700 - (cons e1-6701 e2-6702))) - tmp-6676) - (let ((tmp-6732 - ($sc-dispatch - e-6670 - '(_ any #(each (any any)) any . each-any)))) - (if (if tmp-6732 - (@apply - (lambda (f-6736 id-6737 val-6738 e1-6739 e2-6740) - (if (if (symbol? f-6736) - #t - (if (if (vector? f-6736) - (if (= (vector-length f-6736) 4) - (eq? (vector-ref f-6736 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref f-6736 1)) - #f)) - (and-map id?-4295 id-6737) - #f)) - tmp-6732) - #f) - (@apply - (lambda (f-6782 id-6783 val-6784 e1-6785 e2-6786) - (expand-let-6669 - e-6670 - r-6671 - w-6672 - s-6673 - mod-6674 - build-named-let-4278 - (cons f-6782 id-6783) - val-6784 - (cons e1-6785 e2-6786))) - tmp-6732) - (syntax-violation - 'let - "bad let" - (wrap-4324 - (begin - (if (if s-6673 - (supports-source-properties? e-6670) - #f) - (set-source-properties! e-6670 s-6673)) - e-6670) - w-6672 - mod-6674))))))))) - (global-extend-4293 - 'core - 'letrec - (lambda (e-7336 r-7337 w-7338 s-7339 mod-7340) - (let ((tmp-7342 - ($sc-dispatch - e-7336 - '(_ #(each (any any)) any . each-any)))) - (if (if tmp-7342 - (@apply - (lambda (id-7346 val-7347 e1-7348 e2-7349) - (and-map id?-4295 id-7346)) - tmp-7342) - #f) - (@apply - (lambda (id-7365 val-7366 e1-7367 e2-7368) - (if (not (valid-bound-ids?-4321 id-7365)) - (syntax-violation - 'letrec - "duplicate bound variable" - e-7336) - (let ((labels-7458 (gen-labels-4298 id-7365)) - (new-vars-7459 (map gen-var-4345 id-7365))) - (let ((w-7460 - (make-binding-wrap-4309 - id-7365 - labels-7458 - w-7338)) - (r-7461 - (extend-var-env-4290 - labels-7458 - new-vars-7459 - r-7337))) - (build-letrec-4279 - s-7339 - #f - (map syntax->datum id-7365) - new-vars-7459 - (map (lambda (x-7546) - (expand-4331 x-7546 r-7461 w-7460 mod-7340)) - val-7366) - (expand-body-4335 - (cons e1-7367 e2-7368) - (wrap-4324 - (begin - (if (if s-7339 - (supports-source-properties? e-7336) - #f) - (set-source-properties! e-7336 s-7339)) - e-7336) - w-7460 - mod-7340) - r-7461 - w-7460 - mod-7340)))))) - tmp-7342) - (syntax-violation - 'letrec - "bad letrec" - (wrap-4324 - (begin - (if (if s-7339 - (supports-source-properties? e-7336) - #f) - (set-source-properties! e-7336 s-7339)) - e-7336) - w-7338 - mod-7340)))))) - (global-extend-4293 - 'core - 'letrec* - (lambda (e-7941 r-7942 w-7943 s-7944 mod-7945) - (let ((tmp-7947 - ($sc-dispatch - e-7941 - '(_ #(each (any any)) any . each-any)))) - (if (if tmp-7947 - (@apply - (lambda (id-7951 val-7952 e1-7953 e2-7954) - (and-map id?-4295 id-7951)) - tmp-7947) - #f) - (@apply - (lambda (id-7970 val-7971 e1-7972 e2-7973) - (if (not (valid-bound-ids?-4321 id-7970)) - (syntax-violation - 'letrec* - "duplicate bound variable" - e-7941) - (let ((labels-8063 (gen-labels-4298 id-7970)) - (new-vars-8064 (map gen-var-4345 id-7970))) - (let ((w-8065 - (make-binding-wrap-4309 - id-7970 - labels-8063 - w-7943)) - (r-8066 - (extend-var-env-4290 - labels-8063 - new-vars-8064 - r-7942))) - (build-letrec-4279 - s-7944 - #t - (map syntax->datum id-7970) - new-vars-8064 - (map (lambda (x-8151) - (expand-4331 x-8151 r-8066 w-8065 mod-7945)) - val-7971) - (expand-body-4335 - (cons e1-7972 e2-7973) - (wrap-4324 - (begin - (if (if s-7944 - (supports-source-properties? e-7941) - #f) - (set-source-properties! e-7941 s-7944)) - e-7941) - w-8065 - mod-7945) - r-8066 - w-8065 - mod-7945)))))) - tmp-7947) - (syntax-violation - 'letrec* - "bad letrec*" - (wrap-4324 - (begin - (if (if s-7944 - (supports-source-properties? e-7941) - #f) - (set-source-properties! e-7941 s-7944)) - e-7941) - w-7943 - mod-7945)))))) - (global-extend-4293 - 'core - 'set! - (lambda (e-8585 r-8586 w-8587 s-8588 mod-8589) - (let ((tmp-8591 ($sc-dispatch e-8585 '(_ any any)))) - (if (if tmp-8591 - (@apply - (lambda (id-8595 val-8596) - (if (symbol? id-8595) - #t - (if (if (vector? id-8595) - (if (= (vector-length id-8595) 4) - (eq? (vector-ref id-8595 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref id-8595 1)) - #f))) - tmp-8591) - #f) - (@apply - (lambda (id-8623 val-8624) - (let ((n-8625 (id-var-name-4314 id-8623 w-8587)) - (id-mod-8626 - (if (if (vector? id-8623) - (if (= (vector-length id-8623) 4) - (eq? (vector-ref id-8623 0) 'syntax-object) - #f) - #f) - (vector-ref id-8623 3) - mod-8589))) - (let ((b-8627 - (let ((t-8668 (assq n-8625 r-8586))) - (if t-8668 - (cdr t-8668) - (if (symbol? n-8625) - (let ((t-8673 - (get-global-definition-hook-4258 - n-8625 - id-mod-8626))) - (if t-8673 t-8673 '(global))) - '(displaced-lexical)))))) - (let ((key-8628 (car b-8627))) - (if (eqv? key-8628 'lexical) - (build-lexical-assignment-4266 - s-8588 - (syntax->datum id-8623) - (cdr b-8627) - (expand-4331 val-8624 r-8586 w-8587 mod-8589)) - (if (eqv? key-8628 'global) - (build-global-assignment-4269 - s-8588 - n-8625 - (expand-4331 val-8624 r-8586 w-8587 mod-8589) - id-mod-8626) - (if (eqv? key-8628 'macro) - (let ((p-8987 (cdr b-8627))) - (if (procedure-property - p-8987 - 'variable-transformer) - (expand-4331 - (expand-macro-4334 - p-8987 - e-8585 - r-8586 - w-8587 - s-8588 - #f - mod-8589) - r-8586 - '(()) - mod-8589) - (syntax-violation - 'set! - "not a variable transformer" - (wrap-4324 e-8585 w-8587 mod-8589) - (wrap-4324 id-8623 w-8587 id-mod-8626)))) - (if (eqv? key-8628 'displaced-lexical) - (syntax-violation - 'set! - "identifier out of context" - (wrap-4324 id-8623 w-8587 mod-8589)) - (syntax-violation - 'set! - "bad set!" - (wrap-4324 - (begin - (if (if s-8588 - (supports-source-properties? - e-8585) - #f) - (set-source-properties! e-8585 s-8588)) - e-8585) - w-8587 - mod-8589)))))))))) - tmp-8591) - (let ((tmp-9082 - ($sc-dispatch e-8585 '(_ (any . each-any) any)))) - (if tmp-9082 - (@apply - (lambda (head-9086 tail-9087 val-9088) - (call-with-values - (lambda () - (syntax-type-4330 - head-9086 - r-8586 - '(()) - #f - #f - mod-8589 - #t)) - (lambda (type-9091 - value-9092 - formform-9093 - ee-9094 - ww-9095 - ss-9096 - modmod-9097) - (if (eqv? type-9091 'module-ref) - (let ((val-9103 - (expand-4331 - val-9088 - r-8586 - w-8587 - mod-8589))) + 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 () - (value-9092 - (cons head-9086 tail-9087) - r-8586 - w-8587)) - (lambda (e-9104 r-9105 w-9106 s*-9107 mod-9108) - (let ((tmp-9110 (list e-9104))) - (if (@apply - (lambda (e-9112) - (if (symbol? e-9112) - #t - (if (if (vector? e-9112) + (syntax-type-4296 + x-6820 + r-6715 + w-6716 + (let ((props-6836 + (source-properties + (if (if (vector? x-6820) (if (= (vector-length - e-9112) + x-6820) 4) (eq? (vector-ref - e-9112 + x-6820 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-9112 1)) + (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-9110) + tmp-8902) (@apply - (lambda (e-9142) - (build-global-assignment-4269 - s-8588 - (syntax->datum e-9142) - val-9103 - mod-9108)) - tmp-9110) + (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-9104)))))) - (build-application-4262 - s-8588 - (let ((e-9367 - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage - #(key) - #((m-*-3554 top)) - #("l-*-3555")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type - value - formform - ee - ww - ss - modmod) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("l-*-3547" - "l-*-3548" - "l-*-3549" - "l-*-3550" - "l-*-3551" - "l-*-3552" - "l-*-3553")) - #(ribcage - #(head tail val) - #((top) (top) (top)) - #("l-*-3532" - "l-*-3533" - "l-*-3534")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) - (top) - (top) - (top) - (top)) - #("l-*-3501" - "l-*-3502" - "l-*-3503" - "l-*-3504" - "l-*-3505")) - #(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-9086))) - (call-with-values - (lambda () - (syntax-type-4330 - e-9367 - r-8586 - w-8587 - (source-annotation-4288 e-9367) - #f - mod-8589 - #f)) - (lambda (type-9374 - value-9375 - form-9376 - e-9377 - w-9378 - s-9379 - mod-9380) - (expand-expr-4332 - type-9374 - value-9375 - form-9376 - e-9377 - r-8586 - w-9378 - s-9379 - mod-9380)))) - (map (lambda (e-9384) - (call-with-values - (lambda () - (syntax-type-4330 - e-9384 - r-8586 - w-8587 - (source-annotation-4288 e-9384) - #f - mod-8589 - #f)) - (lambda (type-9399 - value-9400 - form-9401 - e-9402 - w-9403 - s-9404 - mod-9405) - (expand-expr-4332 - type-9399 - value-9400 - form-9401 - e-9402 - r-8586 - w-9403 - s-9404 - mod-9405)))) - (append tail-9087 (list val-9088)))))))) - tmp-9082) + 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-4324 + (wrap-4290 (begin - (if (if s-8588 - (supports-source-properties? e-8585) + (if (if s-8491 + (supports-source-properties? e-8488) #f) - (set-source-properties! e-8585 s-8588)) - e-8585) - w-8587 - mod-8589)))))))) + (set-source-properties! e-8488 s-8491)) + e-8488) + w-8490 + mod-8492)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (e-9448 r-9449 w-9450) - (let ((tmp-9452 - ($sc-dispatch e-9448 '(_ each-any any)))) - (if (if tmp-9452 + (lambda (e-9208 r-9209 w-9210) + (let ((tmp-9212 + ($sc-dispatch e-9208 '(_ each-any any)))) + (if (if tmp-9212 (@apply - (lambda (mod-9455 id-9456) - (if (and-map id?-4295 mod-9455) - (if (symbol? id-9456) + (lambda (mod-9215 id-9216) + (if (and-map id?-4261 mod-9215) + (if (symbol? id-9216) #t - (if (if (vector? id-9456) - (if (= (vector-length id-9456) 4) - (eq? (vector-ref id-9456 0) 'syntax-object) + (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-9456 1)) + (symbol? (vector-ref id-9216 1)) #f)) #f)) - tmp-9452) + tmp-9212) #f) (@apply - (lambda (mod-9496 id-9497) + (lambda (mod-9256 id-9257) (values - (syntax->datum id-9497) - r-9449 - w-9450 + (syntax->datum id-9257) + r-9209 + w-9210 #f (syntax->datum (cons '#(syntax-object @@ -9932,12 +11003,12 @@ #(ribcage #(mod id) #((top) (top)) - #("l-*-3596" "l-*-3597")) + #("l-*-3566" "l-*-3567")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-3584" "l-*-3585" "l-*-3586")) + #("l-*-3554" "l-*-3555" "l-*-3556")) #(ribcage (lambda-var-list gen-var @@ -10366,64 +11437,64 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - mod-9496)))) - tmp-9452) + mod-9256)))) + tmp-9212) (syntax-violation #f "source expression failed to match any pattern" - e-9448)))))) - (global-extend-4293 + e-9208)))))) + (global-extend-4259 'module-ref '@@ - (lambda (e-9589 r-9590 w-9591) + (lambda (e-9368 r-9369 w-9370) (letrec* - ((remodulate-9592 - (lambda (x-9627 mod-9628) - (if (pair? x-9627) - (cons (remodulate-9592 (car x-9627) mod-9628) - (remodulate-9592 (cdr x-9627) mod-9628)) - (if (if (vector? x-9627) - (if (= (vector-length x-9627) 4) - (eq? (vector-ref x-9627 0) 'syntax-object) + ((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-9642 - (remodulate-9592 (vector-ref x-9627 1) mod-9628)) - (wrap-9643 (vector-ref x-9627 2))) + (let ((expression-9448 + (remodulate-9371 (vector-ref x-9433 1) mod-9434)) + (wrap-9449 (vector-ref x-9433 2))) (vector 'syntax-object - expression-9642 - wrap-9643 - mod-9628)) - (if (vector? x-9627) - (let ((n-9651 (vector-length x-9627))) - (let ((v-9652 (make-vector n-9651))) + 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-9653 - (lambda (i-9700) - (if (= i-9700 n-9651) - v-9652 + ((loop-9459 + (lambda (i-9506) + (if (= i-9506 n-9457) + v-9458 (begin (vector-set! - v-9652 - i-9700 - (remodulate-9592 - (vector-ref x-9627 i-9700) - mod-9628)) - (loop-9653 (#{1+}# i-9700))))))) - (loop-9653 0)))) - x-9627)))))) - (let ((tmp-9594 - ($sc-dispatch e-9589 '(_ each-any any)))) - (if (if tmp-9594 + 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-9598 exp-9599) - (and-map id?-4295 mod-9598)) - tmp-9594) + (lambda (mod-9377 exp-9378) + (and-map id?-4261 mod-9377)) + tmp-9373) #f) (@apply - (lambda (mod-9615 exp-9616) - (let ((mod-9617 + (lambda (mod-9394 exp-9395) + (let ((mod-9396 (syntax->datum (cons '#(syntax-object private @@ -10431,15 +11502,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("l-*-3634" "l-*-3635")) + #("l-*-3604" "l-*-3605")) #(ribcage (remodulate) ((top)) - ("l-*-3607")) + ("l-*-3577")) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-3604" "l-*-3605" "l-*-3606")) + #("l-*-3574" "l-*-3575" "l-*-3576")) #(ribcage (lambda-var-list gen-var @@ -10868,87 +11939,393 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - mod-9615)))) + mod-9394)))) (values - (remodulate-9592 exp-9616 mod-9617) - r-9590 - w-9591 - (source-annotation-4288 exp-9616) - mod-9617))) - tmp-9594) + (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-9589)))))) - (global-extend-4293 + e-9368)))))) + (global-extend-4259 'core 'if - (lambda (e-9801 r-9802 w-9803 s-9804 mod-9805) - (let ((tmp-9807 ($sc-dispatch e-9801 '(_ any any)))) - (if tmp-9807 + (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-9811 then-9812) - (build-conditional-4263 - s-9804 - (expand-4331 test-9811 r-9802 w-9803 mod-9805) - (expand-4331 then-9812 r-9802 w-9803 mod-9805) + (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 0) - #f))) - tmp-9807) - (let ((tmp-10037 - ($sc-dispatch e-9801 '(_ any any any)))) - (if tmp-10037 + (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-10041 then-10042 else-10043) - (build-conditional-4263 - s-9804 - (expand-4331 test-10041 r-9802 w-9803 mod-9805) - (expand-4331 then-10042 r-9802 w-9803 mod-9805) - (expand-4331 else-10043 r-9802 w-9803 mod-9805))) - tmp-10037) + (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-9801))))))) - (global-extend-4293 - 'core + e-9750))))))) + (module-define! + (current-module) 'with-fluids - (lambda (e-10442 r-10443 w-10444 s-10445 mod-10446) - (let ((tmp-10448 - ($sc-dispatch - e-10442 - '(_ #(each (any any)) any . each-any)))) - (if tmp-10448 - (@apply - (lambda (fluid-10452 val-10453 b-10454 b*-10455) - (build-dynlet-4264 - s-10445 - (map (lambda (x-10536) - (expand-4331 x-10536 r-10443 w-10444 mod-10446)) - fluid-10452) - (map (lambda (x-10606) - (expand-4331 x-10606 r-10443 w-10444 mod-10446)) - val-10453) - (expand-body-4335 - (cons b-10454 b*-10455) - (wrap-4324 - (begin - (if (if s-10445 - (supports-source-properties? e-10442) - #f) - (set-source-properties! e-10442 s-10445)) - e-10442) - w-10444 - mod-10446) - r-10443 - w-10444 - mod-10446))) - tmp-10448) - (syntax-violation - #f - "source expression failed to match any pattern" - e-10442))))) + (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 @@ -10978,60 +12355,60 @@ 'eval-when 'eval-when '())) - (global-extend-4293 + (global-extend-4259 'core 'syntax-case (letrec* - ((convert-pattern-10974 - (lambda (pattern-12571 keys-12572) + ((convert-pattern-10535 + (lambda (pattern-12018 keys-12019) (letrec* - ((cvt*-12573 - (lambda (p*-13197 n-13198 ids-13199) - (if (not (pair? p*-13197)) - (cvt-12575 p*-13197 n-13198 ids-13199) + ((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*-12573 (cdr p*-13197) n-13198 ids-13199)) - (lambda (y-13202 ids-13203) + (cvt*-12020 (cdr p*-12644) n-12645 ids-12646)) + (lambda (y-12649 ids-12650) (call-with-values (lambda () - (cvt-12575 (car p*-13197) n-13198 ids-13203)) - (lambda (x-13206 ids-13207) + (cvt-12022 (car p*-12644) n-12645 ids-12650)) + (lambda (x-12653 ids-12654) (values - (cons x-13206 y-13202) - ids-13207)))))))) - (v-reverse-12574 - (lambda (x-13208) + (cons x-12653 y-12649) + ids-12654)))))))) + (v-reverse-12021 + (lambda (x-12655) (letrec* - ((loop-13209 - (lambda (r-13289 x-13290) - (if (not (pair? x-13290)) - (values r-13289 x-13290) - (loop-13209 - (cons (car x-13290) r-13289) - (cdr x-13290)))))) - (loop-13209 '() x-13208)))) - (cvt-12575 - (lambda (p-12578 n-12579 ids-12580) - (if (if (symbol? p-12578) + ((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-12578) - (if (= (vector-length p-12578) 4) - (eq? (vector-ref p-12578 0) 'syntax-object) + (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-12578 1)) + (symbol? (vector-ref p-12025 1)) #f)) - (if (bound-id-member?-4323 p-12578 keys-12572) - (values (vector 'free-id p-12578) ids-12580) - (if (if (eq? (if (if (vector? p-12578) - (if (= (vector-length p-12578) 4) - (eq? (vector-ref p-12578 0) + (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-12578 1) - p-12578) + (vector-ref p-12025 1) + p-12025) (if (if (= (vector-length '#(syntax-object _ @@ -11040,20 +12417,20 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3735" - "l-*-3736" - "l-*-3737")) + #("l-*-3705" + "l-*-3706" + "l-*-3707")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3708" - "l-*-3706" - "l-*-3704")) + ("l-*-3678" + "l-*-3676" + "l-*-3674")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3702" - "l-*-3703")) + #("l-*-3672" + "l-*-3673")) #(ribcage (gen-syntax-case gen-clause @@ -11063,10 +12440,10 @@ (top) (top) (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -11508,29 +12885,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3735" - "l-*-3736" - "l-*-3737")) + #("l-*-3705" + "l-*-3706" + "l-*-3707")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3708" - "l-*-3706" - "l-*-3704")) + ("l-*-3678" + "l-*-3676" + "l-*-3674")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3702" "l-*-3703")) + #("l-*-3672" "l-*-3673")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -11959,8 +13336,8 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 p-12578 '(())) - (id-var-name-4314 + (eq? (id-var-name-4280 p-12025 '(())) + (id-var-name-4280 '#(syntax-object _ ((top) @@ -11968,29 +13345,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3735" - "l-*-3736" - "l-*-3737")) + #("l-*-3705" + "l-*-3706" + "l-*-3707")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3708" - "l-*-3706" - "l-*-3704")) + ("l-*-3678" + "l-*-3676" + "l-*-3674")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3702" "l-*-3703")) + #("l-*-3672" "l-*-3673")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -12421,35 +13798,35 @@ (hygiene guile)) '(()))) #f) - (values '_ ids-12580) + (values '_ ids-12027) (values 'any - (cons (cons p-12578 n-12579) ids-12580)))) - (let ((tmp-12900 ($sc-dispatch p-12578 '(any any)))) - (if (if tmp-12900 + (cons (cons p-12025 n-12026) ids-12027)))) + (let ((tmp-12347 ($sc-dispatch p-12025 '(any any)))) + (if (if tmp-12347 (@apply - (lambda (x-12904 dots-12905) - (if (if (if (vector? dots-12905) - (if (= (vector-length dots-12905) + (lambda (x-12351 dots-12352) + (if (if (if (vector? dots-12352) + (if (= (vector-length dots-12352) 4) - (eq? (vector-ref dots-12905 0) + (eq? (vector-ref dots-12352 0) 'syntax-object) #f) #f) - (symbol? (vector-ref dots-12905 1)) + (symbol? (vector-ref dots-12352 1)) #f) - (if (eq? (if (if (vector? dots-12905) + (if (eq? (if (if (vector? dots-12352) (if (= (vector-length - dots-12905) + dots-12352) 4) (eq? (vector-ref - dots-12905 + dots-12352 0) 'syntax-object) #f) #f) - (vector-ref dots-12905 1) - dots-12905) + (vector-ref dots-12352 1) + dots-12352) (if (if (= (vector-length '#(syntax-object ... @@ -12465,7 +13842,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -12911,7 +14288,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -13342,10 +14719,10 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 - dots-12905 + (eq? (id-var-name-4280 + dots-12352 '(())) - (id-var-name-4314 + (id-var-name-4280 '#(syntax-object ... ((top) @@ -13354,7 +14731,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -13788,53 +15165,53 @@ '(()))) #f) #f)) - tmp-12900) + tmp-12347) #f) (@apply - (lambda (x-13005 dots-13006) + (lambda (x-12452 dots-12453) (call-with-values (lambda () - (cvt-12575 - x-13005 - (#{1+}# n-12579) - ids-12580)) - (lambda (p-13007 ids-13008) + (cvt-12022 + x-12452 + (#{1+}# n-12026) + ids-12027)) + (lambda (p-12454 ids-12455) (values - (if (eq? p-13007 'any) + (if (eq? p-12454 'any) 'each-any - (vector 'each p-13007)) - ids-13008)))) - tmp-12900) - (let ((tmp-13009 - ($sc-dispatch p-12578 '(any any . any)))) - (if (if tmp-13009 + (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-13013 dots-13014 ys-13015) - (if (if (if (vector? dots-13014) + (lambda (x-12460 dots-12461 ys-12462) + (if (if (if (vector? dots-12461) (if (= (vector-length - dots-13014) + dots-12461) 4) (eq? (vector-ref - dots-13014 + dots-12461 0) 'syntax-object) #f) #f) (symbol? - (vector-ref dots-13014 1)) + (vector-ref dots-12461 1)) #f) - (if (eq? (if (if (vector? dots-13014) + (if (eq? (if (if (vector? dots-12461) (if (= (vector-length - dots-13014) + dots-12461) 4) (eq? (vector-ref - dots-13014 + dots-12461 0) 'syntax-object) #f) #f) - (vector-ref dots-13014 1) - dots-13014) + (vector-ref dots-12461 1) + dots-12461) (if (if (= (vector-length '#(syntax-object ... @@ -13850,7 +15227,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -14296,7 +15673,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -14727,10 +16104,10 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 - dots-13014 + (eq? (id-var-name-4280 + dots-12461 '(())) - (id-var-name-4314 + (id-var-name-4280 '#(syntax-object ... ((top) @@ -14739,7 +16116,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -15173,97 +16550,97 @@ '(()))) #f) #f)) - tmp-13009) + tmp-12456) #f) (@apply - (lambda (x-13115 dots-13116 ys-13117) + (lambda (x-12562 dots-12563 ys-12564) (call-with-values (lambda () - (cvt*-12573 - ys-13117 - n-12579 - ids-12580)) - (lambda (ys-13120 ids-13121) + (cvt*-12020 + ys-12564 + n-12026 + ids-12027)) + (lambda (ys-12567 ids-12568) (call-with-values (lambda () - (cvt-12575 - x-13115 - (#{1+}# n-12579) - ids-13121)) - (lambda (x-13122 ids-13123) + (cvt-12022 + x-12562 + (#{1+}# n-12026) + ids-12568)) + (lambda (x-12569 ids-12570) (call-with-values (lambda () - (v-reverse-12574 ys-13120)) - (lambda (ys-13156 e-13157) + (v-reverse-12021 ys-12567)) + (lambda (ys-12603 e-12604) (values (vector 'each+ - x-13122 - ys-13156 - e-13157) - ids-13123)))))))) - tmp-13009) - (let ((tmp-13158 - ($sc-dispatch p-12578 '(any . any)))) - (if tmp-13158 + 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-13162 y-13163) + (lambda (x-12609 y-12610) (call-with-values (lambda () - (cvt-12575 - y-13163 - n-12579 - ids-12580)) - (lambda (y-13164 ids-13165) + (cvt-12022 + y-12610 + n-12026 + ids-12027)) + (lambda (y-12611 ids-12612) (call-with-values (lambda () - (cvt-12575 - x-13162 - n-12579 - ids-13165)) - (lambda (x-13166 ids-13167) + (cvt-12022 + x-12609 + n-12026 + ids-12612)) + (lambda (x-12613 ids-12614) (values - (cons x-13166 y-13164) - ids-13167)))))) - tmp-13158) - (let ((tmp-13168 - ($sc-dispatch p-12578 '()))) - (if tmp-13168 + (cons x-12613 y-12611) + ids-12614)))))) + tmp-12605) + (let ((tmp-12615 + ($sc-dispatch p-12025 '()))) + (if tmp-12615 (@apply - (lambda () (values '() ids-12580)) - tmp-13168) - (let ((tmp-13172 + (lambda () (values '() ids-12027)) + tmp-12615) + (let ((tmp-12619 ($sc-dispatch - p-12578 + p-12025 '#(vector each-any)))) - (if tmp-13172 + (if tmp-12619 (@apply - (lambda (x-13176) + (lambda (x-12623) (call-with-values (lambda () - (cvt-12575 - x-13176 - n-12579 - ids-12580)) - (lambda (p-13177 ids-13178) + (cvt-12022 + x-12623 + n-12026 + ids-12027)) + (lambda (p-12624 ids-12625) (values - (vector 'vector p-13177) - ids-13178)))) - tmp-13172) + (vector 'vector p-12624) + ids-12625)))) + tmp-12619) (values (vector 'atom - (strip-4344 p-12578 '(()))) - ids-12580))))))))))))))) - (cvt-12575 pattern-12571 0 '())))) - (build-dispatch-call-10975 - (lambda (pvars-13291 exp-13292 y-13293 r-13294 mod-13295) - (let ((ids-13296 (map car pvars-13291))) + (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-13291) - (let ((labels-13298 (gen-labels-4298 ids-13296)) - (new-vars-13299 (map gen-var-4345 ids-13296))) - (build-application-4262 + (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 @@ -15276,73 +16653,73 @@ '(guile) 'apply #f)) - (list (build-simple-lambda-4271 + (list (build-simple-lambda-4237 #f - (map syntax->datum ids-13296) + (map syntax->datum ids-12743) #f - new-vars-13299 + new-vars-12746 '() - (expand-4331 - exp-13292 - (extend-env-4289 - labels-13298 - (map (lambda (var-13622 level-13623) + (expand-4297 + exp-12739 + (extend-env-4255 + labels-12745 + (map (lambda (var-13069 level-13070) (cons 'syntax - (cons var-13622 level-13623))) - new-vars-13299 - (map cdr pvars-13291)) - r-13294) - (make-binding-wrap-4309 - ids-13296 - labels-13298 + (cons var-13069 level-13070))) + new-vars-12746 + (map cdr pvars-12738)) + r-12741) + (make-binding-wrap-4275 + ids-12743 + labels-12745 '(())) - mod-13295)) - y-13293))))))) - (gen-clause-10976 - (lambda (x-11943 - keys-11944 - clauses-11945 - r-11946 - pat-11947 - fender-11948 - exp-11949 - mod-11950) + 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-10974 pat-11947 keys-11944)) - (lambda (p-12105 pvars-12106) - (if (not (distinct-bound-ids?-4322 (map car pvars-12106))) + (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-11947) + pat-11404) (if (not (and-map - (lambda (x-12222) - (not (let ((x-12226 (car x-12222))) - (if (if (if (vector? x-12226) + (lambda (x-11679) + (not (let ((x-11683 (car x-11679))) + (if (if (if (vector? x-11683) (if (= (vector-length - x-12226) + x-11683) 4) (eq? (vector-ref - x-12226 + x-11683 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-12226 1)) + (symbol? (vector-ref x-11683 1)) #f) - (if (eq? (if (if (vector? x-12226) + (if (eq? (if (if (vector? x-11683) (if (= (vector-length - x-12226) + x-11683) 4) (eq? (vector-ref - x-12226 + x-11683 0) 'syntax-object) #f) #f) - (vector-ref x-12226 1) - x-12226) + (vector-ref x-11683 1) + x-11683) (if (if (= (vector-length '#(syntax-object ... @@ -15358,7 +16735,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -15804,7 +17181,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -16235,10 +17612,10 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 - x-12226 + (eq? (id-var-name-4280 + x-11683 '(())) - (id-var-name-4314 + (id-var-name-4280 '#(syntax-object ... ((top) @@ -16247,7 +17624,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -16681,42 +18058,42 @@ '(()))) #f) #f)))) - pvars-12106)) + pvars-11563)) (syntax-violation 'syntax-case "misplaced ellipsis" - pat-11947) - (let ((y-12302 + pat-11404) + (let ((y-11759 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-4262 + (build-application-4228 #f - (let ((req-12445 (list 'tmp)) - (vars-12447 (list y-12302)) - (exp-12449 - (let ((y-12466 + (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-12302))) - (let ((test-exp-12470 - (let ((tmp-12479 + y-11759))) + (let ((test-exp-11922 + (let ((tmp-11931 ($sc-dispatch - fender-11948 + fender-11405 '#(atom #t)))) - (if tmp-12479 + (if tmp-11931 (@apply - (lambda () y-12466) - tmp-12479) - (let ((then-exp-12497 - (build-dispatch-call-10975 - pvars-12106 - fender-11948 - y-12466 - r-11946 - mod-11950)) - (else-exp-12498 + (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 @@ -16728,48 +18105,48 @@ %expanded-vtables 10) #f - y-12466 - then-exp-12497 - else-exp-12498))))) - (then-exp-12471 - (build-dispatch-call-10975 - pvars-12106 - exp-11949 - y-12466 - r-11946 - mod-11950)) - (else-exp-12472 - (gen-syntax-case-10977 - x-11943 - keys-11944 - clauses-11945 - r-11946 - mod-11950))) + 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-12470 - then-exp-12471 - else-exp-12472))))) - (let ((body-12454 + test-exp-11922 + then-exp-11923 + else-exp-11924))))) + (let ((body-11906 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-12445 + req-11897 #f #f #f '() - vars-12447 - exp-12449 + vars-11899 + exp-11901 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-12454))) - (list (if (eq? p-12105 'any) - (let ((fun-exp-12520 + body-11906))) + (list (if (eq? p-11562 'any) + (let ((fun-exp-11967 (if (equal? (module-name (current-module)) '(guile)) @@ -16783,13 +18160,13 @@ '(guile) 'list #f))) - (arg-exps-12521 (list x-11943))) + (arg-exps-11968 (list x-11400))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-12520 - arg-exps-12521)) - (let ((fun-exp-12544 + fun-exp-11967 + arg-exps-11968)) + (let ((fun-exp-11991 (if (equal? (module-name (current-module)) '(guile)) @@ -16803,27 +18180,27 @@ '(guile) '$sc-dispatch #f))) - (arg-exps-12545 - (list x-11943 + (arg-exps-11992 + (list x-11400 (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - p-12105)))) + p-11562)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-12544 - arg-exps-12545)))))))))))) - (gen-syntax-case-10977 - (lambda (x-11376 - keys-11377 - clauses-11378 - r-11379 - mod-11380) - (if (null? clauses-11378) - (let ((fun-exp-11385 + 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) @@ -16835,7 +18212,7 @@ '(guile) 'syntax-violation #f))) - (arg-exps-11386 + (arg-exps-10831 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16844,58 +18221,58 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - x-11376))) + x-10821))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-11385 - arg-exps-11386)) - (let ((tmp-11419 (car clauses-11378))) - (let ((tmp-11420 ($sc-dispatch tmp-11419 '(any any)))) - (if tmp-11420 + 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-11422 exp-11423) - (if (if (if (symbol? pat-11422) + (lambda (pat-10867 exp-10868) + (if (if (if (symbol? pat-10867) #t - (if (if (vector? pat-11422) - (if (= (vector-length pat-11422) 4) - (eq? (vector-ref pat-11422 0) + (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-11422 1)) + (symbol? (vector-ref pat-10867 1)) #f)) (and-map - (lambda (x-11450) - (not (if (eq? (if (if (vector? pat-11422) + (lambda (x-10895) + (not (if (eq? (if (if (vector? pat-10867) (if (= (vector-length - pat-11422) + pat-10867) 4) (eq? (vector-ref - pat-11422 + pat-10867 0) 'syntax-object) #f) #f) - (vector-ref pat-11422 1) - pat-11422) - (if (if (vector? x-11450) + (vector-ref pat-10867 1) + pat-10867) + (if (if (vector? x-10895) (if (= (vector-length - x-11450) + x-10895) 4) (eq? (vector-ref - x-11450 + x-10895 0) 'syntax-object) #f) #f) - (vector-ref x-11450 1) - x-11450)) - (eq? (id-var-name-4314 - pat-11422 + (vector-ref x-10895 1) + x-10895)) + (eq? (id-var-name-4280 + pat-10867 '(())) - (id-var-name-4314 - x-11450 + (id-var-name-4280 + x-10895 '(()))) #f))) (cons '#(syntax-object @@ -16904,26 +18281,26 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-3891" "l-*-3892")) + #("l-*-3859" "l-*-3860")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) + #("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-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -17352,943 +18729,18 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - keys-11377)) + keys-10822)) #f) - (if (if (eq? (if (if (= (vector-length - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("l-*-3891" - "l-*-3892")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) - #(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 + (if (if (eq? (if (if (vector? pat-10867) + (if (= (vector-length + pat-10867) + 4) + (eq? (vector-ref pat-10867 0) + 'syntax-object) + #f) #f) - 'pad - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("l-*-3891" "l-*-3892")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) - #(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))) + (vector-ref pat-10867 1) + pat-10867) (if (if (= (vector-length '#(syntax-object _ @@ -18296,8 +18748,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-3891" - "l-*-3892")) + #("l-*-3859" + "l-*-3860")) #(ribcage () () ()) #(ribcage #(x @@ -18310,11 +18762,11 @@ (top) (top) (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) + #("l-*-3848" + "l-*-3849" + "l-*-3850" + "l-*-3851" + "l-*-3852")) #(ribcage (gen-syntax-case gen-clause @@ -18324,10 +18776,10 @@ (top) (top) (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -18770,7 +19222,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-3891" "l-*-3892")) + #("l-*-3859" "l-*-3860")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18779,21 +19231,21 @@ (top) (top) (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) + #("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-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -19224,474 +19676,15 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("l-*-3891" "l-*-3892")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("l-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) - #(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)) - '(())) - (id-var-name-4314 + (eq? (id-var-name-4280 pat-10867 '(())) + (id-var-name-4280 '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-3891" "l-*-3892")) + #("l-*-3859" "l-*-3860")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19700,21 +19693,21 @@ (top) (top) (top)) - #("l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883" - "l-*-3884")) + #("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-*-3698" - "l-*-3696" - "l-*-3694" - "l-*-3692")) + ("l-*-3668" + "l-*-3666" + "l-*-3664" + "l-*-3662")) #(ribcage (lambda-var-list gen-var @@ -20145,131 +20138,170 @@ (hygiene guile)) '(()))) #f) - (expand-4331 exp-11423 r-11379 '(()) mod-11380) - (let ((labels-11626 - (list (string-append - "l-" - (session-id-4256) - (symbol->string (gensym "-"))))) - (var-11627 - (let ((id-11665 - (if (if (vector? pat-11422) + (call-with-values + (lambda () + (syntax-type-4296 + exp-10868 + r-10824 + '(()) + (let ((props-11041 + (source-properties + (if (if (vector? exp-10868) (if (= (vector-length - pat-11422) + exp-10868) 4) (eq? (vector-ref - pat-11422 + exp-10868 0) 'syntax-object) #f) #f) - (vector-ref pat-11422 1) - pat-11422))) + (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-11665) + (symbol->string id-11123) "-"))))) - (build-application-4262 + (build-application-4228 #f - (build-simple-lambda-4271 + (build-simple-lambda-4237 #f - (list (syntax->datum pat-11422)) + (list (syntax->datum pat-10867)) #f - (list var-11627) + (list var-11085) '() - (expand-4331 - exp-11423 - (extend-env-4289 - labels-11626 + (expand-4297 + exp-10868 + (extend-env-4255 + labels-11084 (list (cons 'syntax - (cons var-11627 0))) - r-11379) - (make-binding-wrap-4309 - (list pat-11422) - labels-11626 + (cons var-11085 0))) + r-10824) + (make-binding-wrap-4275 + (list pat-10867) + labels-11084 '(())) - mod-11380)) - (list x-11376)))) - (gen-clause-10976 - x-11376 - keys-11377 - (cdr clauses-11378) - r-11379 - pat-11422 + mod-10825)) + (list x-10821)))) + (gen-clause-10537 + x-10821 + keys-10822 + (cdr clauses-10823) + r-10824 + pat-10867 #t - exp-11423 - mod-11380))) - tmp-11420) - (let ((tmp-11935 - ($sc-dispatch tmp-11419 '(any any any)))) - (if tmp-11935 + exp-10868 + mod-10825))) + tmp-10865) + (let ((tmp-11393 + ($sc-dispatch tmp-10864 '(any any any)))) + (if tmp-11393 (@apply - (lambda (pat-11937 fender-11938 exp-11939) - (gen-clause-10976 - x-11376 - keys-11377 - (cdr clauses-11378) - r-11379 - pat-11937 - fender-11938 - exp-11939 - mod-11380)) - tmp-11935) + (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-11378))))))))))) - (lambda (e-10978 r-10979 w-10980 s-10981 mod-10982) - (let ((e-10983 - (wrap-4324 + (car clauses-10823))))))))))) + (lambda (e-10539 r-10540 w-10541 s-10542 mod-10543) + (let ((e-10544 + (wrap-4290 (begin - (if (if s-10981 - (supports-source-properties? e-10978) + (if (if s-10542 + (supports-source-properties? e-10539) #f) - (set-source-properties! e-10978 s-10981)) - e-10978) - w-10980 - mod-10982))) - (let ((tmp-10985 + (set-source-properties! e-10539 s-10542)) + e-10539) + w-10541 + mod-10543))) + (let ((tmp-10546 ($sc-dispatch - e-10983 + e-10544 '(_ any each-any . each-any)))) - (if tmp-10985 + (if tmp-10546 (@apply - (lambda (val-11010 key-11011 m-11012) + (lambda (val-10571 key-10572 m-10573) (if (and-map - (lambda (x-11013) - (if (if (symbol? x-11013) + (lambda (x-10574) + (if (if (symbol? x-10574) #t - (if (if (vector? x-11013) - (if (= (vector-length x-11013) 4) - (eq? (vector-ref x-11013 0) + (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-11013 1)) + (symbol? (vector-ref x-10574 1)) #f)) - (not (if (if (if (vector? x-11013) - (if (= (vector-length x-11013) + (not (if (if (if (vector? x-10574) + (if (= (vector-length x-10574) 4) - (eq? (vector-ref x-11013 0) + (eq? (vector-ref x-10574 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-11013 1)) + (symbol? (vector-ref x-10574 1)) #f) - (if (eq? (if (if (vector? x-11013) + (if (eq? (if (if (vector? x-10574) (if (= (vector-length - x-11013) + x-10574) 4) (eq? (vector-ref - x-11013 + x-10574 0) 'syntax-object) #f) #f) - (vector-ref x-11013 1) - x-11013) + (vector-ref x-10574 1) + x-10574) (if (if (= (vector-length '#(syntax-object ... @@ -20285,7 +20317,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -20731,7 +20763,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -21162,8 +21194,8 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-4314 x-11013 '(())) - (id-var-name-4314 + (eq? (id-var-name-4280 x-10574 '(())) + (id-var-name-4280 '#(syntax-object ... ((top) @@ -21172,7 +21204,7 @@ #(ribcage #(x) #((top)) - #("l-*-2267")) + #("l-*-2265")) #(ribcage (lambda-var-list gen-var @@ -21607,760 +21639,836 @@ #f) #f)) #f)) - key-11011) - (let ((x-11139 + key-10572) + (let ((x-10700 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-4262 - s-10981 - (let ((req-11269 (list 'tmp)) - (vars-11271 (list x-11139)) - (exp-11273 - (gen-syntax-case-10977 + (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 3) - #f - 'tmp - x-11139) - key-11011 - m-11012 - r-10979 - mod-10982))) - (let ((body-11278 - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - req-11269 - #f - #f + (vector-ref %expanded-vtables 13) #f '() - vars-11271 - exp-11273 - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - body-11278))) - (list (expand-4331 - val-11010 - r-10979 - '(()) - mod-10982)))) + 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-10983))) - tmp-10985) + e-10544))) + tmp-10546) (syntax-violation #f "source expression failed to match any pattern" - e-10983))))))) + e-10544))))))) (set! macroexpand (lambda* - (x-13696 + (x-13143 #:optional - (m-13697 'e) - (esew-13698 '(eval))) - (expand-top-sequence-4327 - (list x-13696) + (m-13144 'e) + (esew-13145 '(eval))) + (expand-top-sequence-4293 + (list x-13143) '() '((top)) #f - m-13697 - esew-13698 + m-13144 + esew-13145 (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (x-13701) - (if (if (vector? x-13701) - (if (= (vector-length x-13701) 4) - (eq? (vector-ref x-13701 0) 'syntax-object) + (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-13701 1)) + (symbol? (vector-ref x-13148 1)) #f))) (set! datum->syntax - (lambda (id-13726 datum-13727) - (let ((wrap-13732 (vector-ref id-13726 2)) - (module-13733 (vector-ref id-13726 3))) + (lambda (id-13173 datum-13174) + (let ((wrap-13179 (vector-ref id-13173 2)) + (module-13180 (vector-ref id-13173 3))) (vector 'syntax-object - datum-13727 - wrap-13732 - module-13733)))) + datum-13174 + wrap-13179 + module-13180)))) (set! syntax->datum - (lambda (x-13740) (strip-4344 x-13740 '(())))) + (lambda (x-13187) (strip-4310 x-13187 '(())))) (set! syntax-source - (lambda (x-13743) - (source-annotation-4288 x-13743))) + (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-13896) + (lambda (ls-13218) (begin - (if (not (list? ls-13896)) + (if (not (list? ls-13218)) (syntax-violation 'generate-temporaries "invalid argument" - ls-13896)) - (let ((mod-13904 + ls-13218)) + (let ((mod-13226 (cons 'hygiene (module-name (current-module))))) - (map (lambda (x-13905) - (wrap-4324 (gensym "t-") '((top)) mod-13904)) - ls-13896))))) + (map (lambda (x-13227) + (wrap-4290 (gensym "t-") '((top)) mod-13226)) + ls-13218))))) (set! free-identifier=? - (lambda (x-13909 y-13910) + (lambda (x-13231 y-13232) (begin - (if (not (if (if (vector? x-13909) - (if (= (vector-length x-13909) 4) - (eq? (vector-ref x-13909 0) 'syntax-object) + (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-13909 1)) + (symbol? (vector-ref x-13231 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - x-13909)) - (if (not (if (if (vector? y-13910) - (if (= (vector-length y-13910) 4) - (eq? (vector-ref y-13910 0) 'syntax-object) + 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-13910 1)) + (symbol? (vector-ref y-13232 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - y-13910)) - (if (eq? (if (if (vector? x-13909) - (if (= (vector-length x-13909) 4) - (eq? (vector-ref x-13909 0) 'syntax-object) + 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-13909 1) - x-13909) - (if (if (vector? y-13910) - (if (= (vector-length y-13910) 4) - (eq? (vector-ref y-13910 0) 'syntax-object) + (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-13910 1) - y-13910)) - (eq? (id-var-name-4314 x-13909 '(())) - (id-var-name-4314 y-13910 '(()))) + (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-14060 y-14061) + (lambda (x-13382 y-13383) (begin - (if (not (if (if (vector? x-14060) - (if (= (vector-length x-14060) 4) - (eq? (vector-ref x-14060 0) 'syntax-object) + (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-14060 1)) + (symbol? (vector-ref x-13382 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - x-14060)) - (if (not (if (if (vector? y-14061) - (if (= (vector-length y-14061) 4) - (eq? (vector-ref y-14061 0) 'syntax-object) + 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-14061 1)) + (symbol? (vector-ref y-13383 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - y-14061)) - (if (if (if (vector? x-14060) - (if (= (vector-length x-14060) 4) - (eq? (vector-ref x-14060 0) 'syntax-object) + 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-14061) - (if (= (vector-length y-14061) 4) - (eq? (vector-ref y-14061 0) 'syntax-object) + (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-14060 1) - (vector-ref y-14061 1)) - (same-marks?-4313 - (car (vector-ref x-14060 2)) - (car (vector-ref y-14061 2))) + (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-14060 y-14061))))) + (eq? x-13382 y-13383))))) (set! syntax-violation (lambda* - (who-14194 - message-14195 - form-14196 + (who-13516 + message-13517 + form-13518 #:optional - (subform-14197 #f)) + (subform-13519 #f)) (begin - (if (not (if (not who-14194) - (not who-14194) - (let ((t-14215 (string? who-14194))) - (if t-14215 t-14215 (symbol? who-14194))))) + (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-14194)) - (if (not (string? message-14195)) + who-13516)) + (if (not (string? message-13517)) (syntax-violation 'syntax-violation "invalid argument" - message-14195)) + message-13517)) (throw 'syntax-error - who-14194 - message-14195 - (let ((t-14246 (source-annotation-4288 subform-14197))) - (if t-14246 - t-14246 - (source-annotation-4288 form-14196))) - (strip-4344 form-14196 '(())) - (if subform-14197 - (strip-4344 subform-14197 '(())) + 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) + (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-14638 - (lambda (id-14771) + ((syntax-local-binding-13655 + (lambda (id-13788) (begin - (if (not (if (if (vector? id-14771) - (if (= (vector-length id-14771) 4) - (eq? (vector-ref id-14771 0) 'syntax-object) + (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-14771 1)) + (symbol? (vector-ref id-13788 1)) #f)) (syntax-violation 'syntax-local-binding "invalid argument" - id-14771)) - ((fluid-ref transformer-environment-4317) - (lambda (e-14811 - r-14812 - w-14813 - s-14814 - rib-14815 - mod-14816) + 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-14819 (vector-ref id-14771 1)) - (w-14820 - (let ((w-14831 (vector-ref id-14771 2))) - (let ((ms-14832 (car w-14831)) - (s-14833 (cdr w-14831))) - (if (if (pair? ms-14832) - (eq? (car ms-14832) #f) + (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) - (cons (cdr ms-14832) - (if rib-14815 - (cons rib-14815 (cdr s-14833)) - (cdr s-14833))) - (cons ms-14832 - (if rib-14815 - (cons rib-14815 s-14833) - s-14833)))))) - (mod-14822 (vector-ref id-14771 3))) - (let ((n-14825 (id-var-name-4314 id-14819 w-14820))) - (if (symbol? n-14825) - (let ((mod-14839 - (if (if (vector? id-14819) - (if (= (vector-length id-14819) 4) - (eq? (vector-ref id-14819 0) + (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-14819 3) - mod-14822))) - (let ((b-14840 - (let ((t-14841 - (get-global-definition-hook-4258 - n-14825 - mod-14839))) - (if t-14841 t-14841 '(global))))) - (if (eq? (car b-14840) 'global) - (values 'global n-14825 mod-14839) + (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-14840) - (cdr b-14840) - mod-14839)))) - (if (string? n-14825) - (let ((mod-14867 - (if (if (vector? id-14819) - (if (= (vector-length id-14819) 4) - (eq? (vector-ref id-14819 0) + (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-14819 3) - mod-14822))) - (let ((b-14868 - (let ((t-14869 - (assq-ref r-14812 n-14825))) - (if t-14869 - t-14869 + (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-14868) - (cdr b-14868) - mod-14867))) + (car b-13885) + (cdr b-13885) + mod-13884))) (error "unexpected id-var-name" - id-14819 - w-14820 - n-14825)))))) - (lambda (type-14882 value-14883 mod-14884) - (if (eqv? type-14882 'lexical) - (values 'lexical value-14883) - (if (eqv? type-14882 'macro) - (values 'macro value-14883) - (if (eqv? type-14882 'syntax) - (values 'pattern-variable value-14883) - (if (eqv? type-14882 'displaced-lexical) + 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-14882 'global) + (if (eqv? type-13899 'global) (values 'global - (cons value-14883 (cdr mod-14884))) + (cons value-13900 (cdr mod-13901))) (values 'other #f))))))))))))) - (syntax-locally-bound-identifiers-14639 - (lambda (id-14906) + (syntax-locally-bound-identifiers-13656 + (lambda (id-13923) (begin - (if (not (if (if (vector? id-14906) - (if (= (vector-length id-14906) 4) - (eq? (vector-ref id-14906 0) 'syntax-object) + (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-14906 1)) + (symbol? (vector-ref id-13923 1)) #f)) (syntax-violation 'syntax-locally-bound-identifiers "invalid argument" - id-14906)) - (locally-bound-identifiers-4315 - (vector-ref id-14906 2) - (vector-ref id-14906 3)))))) + id-13923)) + (locally-bound-identifiers-4281 + (vector-ref id-13923 2) + (vector-ref id-13923 3)))))) (begin (define! 'syntax-module - (lambda (id-14641) + (lambda (id-13658) (begin - (if (not (if (if (vector? id-14641) - (if (= (vector-length id-14641) 4) - (eq? (vector-ref id-14641 0) 'syntax-object) + (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-14641 1)) + (symbol? (vector-ref id-13658 1)) #f)) (syntax-violation 'syntax-module "invalid argument" - id-14641)) - (cdr (vector-ref id-14641 3))))) + id-13658)) + (cdr (vector-ref id-13658 3))))) (define! 'syntax-local-binding - syntax-local-binding-14638) + syntax-local-binding-13655) (define! 'syntax-locally-bound-identifiers - syntax-locally-bound-identifiers-14639))) + syntax-locally-bound-identifiers-13656))) (letrec* - ((match-each-15013 - (lambda (e-15600 p-15601 w-15602 mod-15603) - (if (pair? e-15600) - (let ((first-15604 - (match-15019 - (car e-15600) - p-15601 - w-15602 + ((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-15603))) - (if first-15604 - (let ((rest-15607 - (match-each-15013 - (cdr e-15600) - p-15601 - w-15602 - mod-15603))) - (if rest-15607 (cons first-15604 rest-15607) #f)) + 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-15600) + (if (null? e-14617) '() - (if (if (vector? e-15600) - (if (= (vector-length e-15600) 4) - (eq? (vector-ref e-15600 0) 'syntax-object) + (if (if (vector? e-14617) + (if (= (vector-length e-14617) 4) + (eq? (vector-ref e-14617 0) 'syntax-object) #f) #f) - (match-each-15013 - (vector-ref e-15600 1) - p-15601 - (join-wraps-4311 w-15602 (vector-ref e-15600 2)) - (vector-ref e-15600 3)) + (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-15015 - (lambda (e-15635 w-15636 mod-15637) - (if (pair? e-15635) - (let ((l-15638 - (match-each-any-15015 - (cdr e-15635) - w-15636 - mod-15637))) - (if l-15638 - (cons (wrap-4324 (car e-15635) w-15636 mod-15637) - l-15638) + (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-15635) + (if (null? e-14652) '() - (if (if (vector? e-15635) - (if (= (vector-length e-15635) 4) - (eq? (vector-ref e-15635 0) 'syntax-object) + (if (if (vector? e-14652) + (if (= (vector-length e-14652) 4) + (eq? (vector-ref e-14652 0) 'syntax-object) #f) #f) - (match-each-any-15015 - (vector-ref e-15635 1) - (join-wraps-4311 w-15636 (vector-ref e-15635 2)) - mod-15637) + (match-each-any-14032 + (vector-ref e-14652 1) + (join-wraps-4277 w-14653 (vector-ref e-14652 2)) + mod-14654) #f))))) - (match-empty-15016 - (lambda (p-15662 r-15663) - (if (null? p-15662) - r-15663 - (if (eq? p-15662 '_) - r-15663 - (if (eq? p-15662 'any) - (cons '() r-15663) - (if (pair? p-15662) - (match-empty-15016 - (car p-15662) - (match-empty-15016 (cdr p-15662) r-15663)) - (if (eq? p-15662 'each-any) - (cons '() r-15663) - (let ((key-15664 (vector-ref p-15662 0))) - (if (eqv? key-15664 'each) - (match-empty-15016 - (vector-ref p-15662 1) - r-15663) - (if (eqv? key-15664 'each+) - (match-empty-15016 - (vector-ref p-15662 1) - (match-empty-15016 - (reverse (vector-ref p-15662 2)) - (match-empty-15016 - (vector-ref p-15662 3) - r-15663))) - (if (if (eqv? key-15664 'free-id) + (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-15664 'atom)) - r-15663 - (if (eqv? key-15664 'vector) - (match-empty-15016 - (vector-ref p-15662 1) - r-15663))))))))))))) - (combine-15017 - (lambda (r*-15683 r-15684) - (if (null? (car r*-15683)) - r-15684 - (cons (map car r*-15683) - (combine-15017 (map cdr r*-15683) r-15684))))) - (match*-15018 - (lambda (e-15048 p-15049 w-15050 r-15051 mod-15052) - (if (null? p-15049) - (if (null? e-15048) r-15051 #f) - (if (pair? p-15049) - (if (pair? e-15048) - (match-15019 - (car e-15048) - (car p-15049) - w-15050 - (match-15019 - (cdr e-15048) - (cdr p-15049) - w-15050 - r-15051 - mod-15052) - mod-15052) + (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-15049 'each-any) - (let ((l-15057 - (match-each-any-15015 e-15048 w-15050 mod-15052))) - (if l-15057 (cons l-15057 r-15051) #f)) - (let ((key-15062 (vector-ref p-15049 0))) - (if (eqv? key-15062 'each) - (if (null? e-15048) - (match-empty-15016 - (vector-ref p-15049 1) - r-15051) - (let ((l-15069 - (match-each-15013 - e-15048 - (vector-ref p-15049 1) - w-15050 - mod-15052))) - (if l-15069 + (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-15072 - (lambda (l-15123) - (if (null? (car l-15123)) - r-15051 - (cons (map car l-15123) - (collect-15072 - (map cdr l-15123))))))) - (collect-15072 l-15069)) + ((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-15062 'each+) + (if (eqv? key-14079 'each+) (call-with-values (lambda () - (let ((x-pat-15132 (vector-ref p-15049 1)) - (y-pat-15133 (vector-ref p-15049 2)) - (z-pat-15134 (vector-ref p-15049 3))) + (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-15138 - (lambda (e-15140 w-15141) - (if (pair? e-15140) + ((f-14155 + (lambda (e-14157 w-14158) + (if (pair? e-14157) (call-with-values (lambda () - (f-15138 (cdr e-15140) w-15141)) - (lambda (xr*-15142 - y-pat-15143 - r-15144) - (if r-15144 - (if (null? y-pat-15143) - (let ((xr-15145 - (match-15019 - (car e-15140) - x-pat-15132 - w-15141 + (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-15052))) - (if xr-15145 + mod-14069))) + (if xr-14162 (values - (cons xr-15145 xr*-15142) - y-pat-15143 - r-15144) + (cons xr-14162 xr*-14159) + y-pat-14160 + r-14161) (values #f #f #f))) (values '() - (cdr y-pat-15143) - (match-15019 - (car e-15140) - (car y-pat-15143) - w-15141 - r-15144 - mod-15052))) + (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-15140) - (if (= (vector-length e-15140) 4) - (eq? (vector-ref e-15140 0) + (if (if (vector? e-14157) + (if (= (vector-length e-14157) 4) + (eq? (vector-ref e-14157 0) 'syntax-object) #f) #f) - (f-15138 - (vector-ref e-15140 1) - (join-wraps-4311 w-15141 e-15140)) + (f-14155 + (vector-ref e-14157 1) + (join-wraps-4277 w-14158 e-14157)) (values '() - y-pat-15133 - (match-15019 - e-15140 - z-pat-15134 - w-15141 - r-15051 - mod-15052))))))) - (f-15138 e-15048 w-15050)))) - (lambda (xr*-15171 y-pat-15172 r-15173) - (if r-15173 - (if (null? y-pat-15172) - (if (null? xr*-15171) - (match-empty-15016 - (vector-ref p-15049 1) - r-15173) - (combine-15017 xr*-15171 r-15173)) + 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))) - (if (eqv? key-15062 'free-id) - (if (if (symbol? e-15048) + (if (eqv? key-14079 'free-id) + (if (if (symbol? e-14065) #t - (if (if (vector? e-15048) - (if (= (vector-length e-15048) 4) - (eq? (vector-ref e-15048 0) + (if (if (vector? e-14065) + (if (= (vector-length e-14065) 4) + (eq? (vector-ref e-14065 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-15048 1)) + (symbol? (vector-ref e-14065 1)) #f)) - (if (let ((i-15504 - (wrap-4324 e-15048 w-15050 mod-15052)) - (j-15505 (vector-ref p-15049 1))) - (if (eq? (if (if (vector? i-15504) + (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-15504) + i-14521) 4) - (eq? (vector-ref i-15504 0) + (eq? (vector-ref i-14521 0) 'syntax-object) #f) #f) - (vector-ref i-15504 1) - i-15504) - (if (if (vector? j-15505) + (vector-ref i-14521 1) + i-14521) + (if (if (vector? j-14522) (if (= (vector-length - j-15505) + j-14522) 4) - (eq? (vector-ref j-15505 0) + (eq? (vector-ref j-14522 0) 'syntax-object) #f) #f) - (vector-ref j-15505 1) - j-15505)) - (eq? (id-var-name-4314 i-15504 '(())) - (id-var-name-4314 j-15505 '(()))) + (vector-ref j-14522 1) + j-14522)) + (eq? (id-var-name-4280 i-14521 '(())) + (id-var-name-4280 j-14522 '(()))) #f)) - r-15051 + r-14068 #f) #f) - (if (eqv? key-15062 'atom) + (if (eqv? key-14079 'atom) (if (equal? - (vector-ref p-15049 1) - (strip-4344 e-15048 w-15050)) - r-15051 + (vector-ref p-14066 1) + (strip-4310 e-14065 w-14067)) + r-14068 #f) - (if (eqv? key-15062 'vector) - (if (vector? e-15048) - (match-15019 - (vector->list e-15048) - (vector-ref p-15049 1) - w-15050 - r-15051 - mod-15052) + (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-15019 - (lambda (e-15565 p-15566 w-15567 r-15568 mod-15569) - (if (not r-15568) + (match-14036 + (lambda (e-14582 p-14583 w-14584 r-14585 mod-14586) + (if (not r-14585) #f - (if (eq? p-15566 '_) - r-15568 - (if (eq? p-15566 'any) - (cons (wrap-4324 e-15565 w-15567 mod-15569) - r-15568) - (if (if (vector? e-15565) - (if (= (vector-length e-15565) 4) - (eq? (vector-ref e-15565 0) 'syntax-object) + (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*-15018 - (vector-ref e-15565 1) - p-15566 - (join-wraps-4311 w-15567 (vector-ref e-15565 2)) - r-15568 - (vector-ref e-15565 3)) - (match*-15018 - e-15565 - p-15566 - w-15567 - r-15568 - mod-15569)))))))) + (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-15020 p-15021) - (if (eq? p-15021 'any) - (list e-15020) - (if (eq? p-15021 '_) + (lambda (e-14037 p-14038) + (if (eq? p-14038 'any) + (list e-14037) + (if (eq? p-14038 '_) '() - (if (if (vector? e-15020) - (if (= (vector-length e-15020) 4) - (eq? (vector-ref e-15020 0) 'syntax-object) + (if (if (vector? e-14037) + (if (= (vector-length e-14037) 4) + (eq? (vector-ref e-14037 0) 'syntax-object) #f) #f) - (match*-15018 - (vector-ref e-15020 1) - p-15021 - (vector-ref e-15020 2) + (match*-14035 + (vector-ref e-14037 1) + p-14038 + (vector-ref e-14037 2) '() - (vector-ref e-15020 3)) - (match*-15018 e-15020 p-15021 '(()) '() #f)))))))))) + (vector-ref e-14037 3)) + (match*-14035 e-14037 p-14038 '(()) '() #f)))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (x-28007) - (let ((tmp-28009 - ($sc-dispatch x-28007 '(_ () any . each-any)))) - (if tmp-28009 + (lambda (x-25194) + (let ((tmp-25196 + ($sc-dispatch x-25194 '(_ () any . each-any)))) + (if tmp-25196 (@apply - (lambda (e1-28013 e2-28014) + (lambda (e1-25200 e2-25201) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-27980" "l-*-27981")) + #("l-*-25167" "l-*-25168")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27977"))) + #(ribcage #(x) #((top)) #("l-*-25164"))) (hygiene guile)) - (cons '() (cons e1-28013 e2-28014)))) - tmp-28009) - (let ((tmp-28015 + (cons '() (cons e1-25200 e2-25201)))) + tmp-25196) + (let ((tmp-25202 ($sc-dispatch - x-28007 + x-25194 '(_ ((any any)) any . each-any)))) - (if tmp-28015 + (if tmp-25202 (@apply - (lambda (out-28019 in-28020 e1-28021 e2-28022) + (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-*-27986" - "l-*-27987" - "l-*-27988" - "l-*-27989")) + #("l-*-25173" + "l-*-25174" + "l-*-25175" + "l-*-25176")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27977"))) + #(ribcage #(x) #((top)) #("l-*-25164"))) (hygiene guile)) - in-28020 + in-25207 '() - (list out-28019 + (list out-25206 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27986" - "l-*-27987" - "l-*-27988" - "l-*-27989")) + #("l-*-25173" + "l-*-25174" + "l-*-25175" + "l-*-25176")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27977"))) + #("l-*-25164"))) (hygiene guile)) - (cons '() (cons e1-28021 e2-28022)))))) - tmp-28015) - (let ((tmp-28023 + (cons '() (cons e1-25208 e2-25209)))))) + tmp-25202) + (let ((tmp-25210 ($sc-dispatch - x-28007 + x-25194 '(_ #(each (any any)) any . each-any)))) - (if tmp-28023 + (if tmp-25210 (@apply - (lambda (out-28027 in-28028 e1-28029 e2-28030) + (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-*-27996" - "l-*-27997" - "l-*-27998" - "l-*-27999")) + #("l-*-25183" + "l-*-25184" + "l-*-25185" + "l-*-25186")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27977"))) + #(ribcage #(x) #((top)) #("l-*-25164"))) (hygiene guile)) (cons '#(syntax-object list @@ -22368,66 +22476,66 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27996" - "l-*-27997" - "l-*-27998" - "l-*-27999")) + #("l-*-25183" + "l-*-25184" + "l-*-25185" + "l-*-25186")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27977"))) + #(ribcage #(x) #((top)) #("l-*-25164"))) (hygiene guile)) - in-28028) + in-25215) '() - (list out-28027 + (list out-25214 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27996" - "l-*-27997" - "l-*-27998" - "l-*-27999")) + #("l-*-25183" + "l-*-25184" + "l-*-25185" + "l-*-25186")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27977"))) + #("l-*-25164"))) (hygiene guile)) - (cons '() (cons e1-28029 e2-28030)))))) - tmp-28023) + (cons '() (cons e1-25216 e2-25217)))))) + tmp-25210) (syntax-violation #f "source expression failed to match any pattern" - x-28007)))))))))) + x-25194)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (x-28084) - (let ((tmp-28086 + (lambda (x-25271) + (let ((tmp-25273 ($sc-dispatch - x-28084 + x-25271 '(_ each-any . #(each ((any . any) any)))))) - (if tmp-28086 + (if tmp-25273 (@apply - (lambda (k-28090 - keyword-28091 - pattern-28092 - template-28093) + (lambda (k-25277 + keyword-25278 + pattern-25279 + template-25280) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) '(#(syntax-object x @@ -22435,12 +22543,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile))) (vector '(#(syntax-object @@ -22449,12 +22557,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) . #(syntax-object @@ -22463,12 +22571,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22476,26 +22584,26 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) - pattern-28092)) + pattern-25279)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) (cons '#(syntax-object x @@ -22503,16 +22611,16 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) - (cons k-28090 - (map (lambda (tmp-28058-28094 - tmp-28057-28095) + (cons k-25277 + (map (lambda (tmp-25245-25281 + tmp-25244-25282) (list (cons '#(syntax-object dummy ((top) @@ -22525,10 +22633,10 @@ (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () @@ -22536,9 +22644,9 @@ #(ribcage #(x) #((top)) - #("l-*-28044"))) + #("l-*-25231"))) (hygiene guile)) - tmp-28057-28095) + tmp-25244-25282) (list '#(syntax-object syntax ((top) @@ -22551,10 +22659,10 @@ (top) (top) (top)) - #("l-*-28047" - "l-*-28048" - "l-*-28049" - "l-*-28050")) + #("l-*-25234" + "l-*-25235" + "l-*-25236" + "l-*-25237")) #(ribcage () () @@ -22562,45 +22670,45 @@ #(ribcage #(x) #((top)) - #("l-*-28044"))) + #("l-*-25231"))) (hygiene guile)) - tmp-28058-28094))) - template-28093 - pattern-28092)))))) - tmp-28086) - (let ((tmp-28096 + tmp-25245-25281))) + template-25280 + pattern-25279)))))) + tmp-25273) + (let ((tmp-25283 ($sc-dispatch - x-28084 + x-25271 '(_ each-any any . #(each ((any . any) any)))))) - (if (if tmp-28096 + (if (if tmp-25283 (@apply - (lambda (k-28100 - docstring-28101 - keyword-28102 - pattern-28103 - template-28104) - (string? (syntax->datum docstring-28101))) - tmp-28096) + (lambda (k-25287 + docstring-25288 + keyword-25289 + pattern-25290 + template-25291) + (string? (syntax->datum docstring-25288))) + tmp-25283) #f) (@apply - (lambda (k-28105 - docstring-28106 - keyword-28107 - pattern-28108 - template-28109) + (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-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) '(#(syntax-object x @@ -22608,15 +22716,15 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile))) - docstring-28106 + docstring-25293 (vector '(#(syntax-object macro-type @@ -22624,13 +22732,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) . #(syntax-object @@ -22639,13 +22747,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22653,28 +22761,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) - pattern-28108)) + pattern-25295)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28044"))) + #(ribcage #(x) #((top)) #("l-*-25231"))) (hygiene guile)) (cons '#(syntax-object x @@ -22686,20 +22794,20 @@ pattern template) #((top) (top) (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28044"))) + #("l-*-25231"))) (hygiene guile)) - (cons k-28105 - (map (lambda (tmp-28083-28110 - tmp-28082-28111) + (cons k-25292 + (map (lambda (tmp-25270-25297 + tmp-25269-25298) (list (cons '#(syntax-object dummy ((top) @@ -22714,11 +22822,11 @@ (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () @@ -22726,10 +22834,10 @@ #(ribcage #(x) #((top)) - #("l-*-28044"))) + #("l-*-25231"))) (hygiene guile)) - tmp-28082-28111) + tmp-25269-25298) (list '#(syntax-object syntax ((top) @@ -22744,11 +22852,11 @@ (top) (top) (top)) - #("l-*-28070" - "l-*-28071" - "l-*-28072" - "l-*-28073" - "l-*-28074")) + #("l-*-25257" + "l-*-25258" + "l-*-25259" + "l-*-25260" + "l-*-25261")) #(ribcage () () @@ -22756,48 +22864,48 @@ #(ribcage #(x) #((top)) - #("l-*-28044"))) + #("l-*-25231"))) (hygiene guile)) - tmp-28083-28110))) - template-28109 - pattern-28108)))))) - tmp-28096) + tmp-25270-25297))) + template-25296 + pattern-25295)))))) + tmp-25283) (syntax-violation #f "source expression failed to match any pattern" - x-28084)))))))) + x-25271)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (x-28148) - (let ((tmp-28150 - ($sc-dispatch x-28148 '(_ (any . any) any)))) - (if tmp-28150 + (lambda (x-25335) + (let ((tmp-25337 + ($sc-dispatch x-25335 '(_ (any . any) any)))) + (if tmp-25337 (@apply - (lambda (name-28154 pattern-28155 template-28156) + (lambda (name-25341 pattern-25342 template-25343) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-28125" "l-*-28126" "l-*-28127")) + #("l-*-25312" "l-*-25313" "l-*-25314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28122"))) + #(ribcage #(x) #((top)) #("l-*-25309"))) (hygiene guile)) - name-28154 + name-25341 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-28125" "l-*-28126" "l-*-28127")) + #("l-*-25312" "l-*-25313" "l-*-25314")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28122"))) + #(ribcage #(x) #((top)) #("l-*-25309"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22806,63 +22914,63 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-28125" - "l-*-28126" - "l-*-28127")) + #("l-*-25312" + "l-*-25313" + "l-*-25314")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28122"))) + #("l-*-25309"))) (hygiene guile)) - pattern-28155) - template-28156)))) - tmp-28150) - (let ((tmp-28157 - ($sc-dispatch x-28148 '(_ (any . any) any any)))) - (if (if tmp-28157 + pattern-25342) + template-25343)))) + tmp-25337) + (let ((tmp-25344 + ($sc-dispatch x-25335 '(_ (any . any) any any)))) + (if (if tmp-25344 (@apply - (lambda (name-28161 - pattern-28162 - docstring-28163 - template-28164) - (string? (syntax->datum docstring-28163))) - tmp-28157) + (lambda (name-25348 + pattern-25349 + docstring-25350 + template-25351) + (string? (syntax->datum docstring-25350))) + tmp-25344) #f) (@apply - (lambda (name-28165 - pattern-28166 - docstring-28167 - template-28168) + (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-*-28140" - "l-*-28141" - "l-*-28142" - "l-*-28143")) + #("l-*-25327" + "l-*-25328" + "l-*-25329" + "l-*-25330")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28122"))) + #(ribcage #(x) #((top)) #("l-*-25309"))) (hygiene guile)) - name-28165 + name-25352 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-28140" - "l-*-28141" - "l-*-28142" - "l-*-28143")) + #("l-*-25327" + "l-*-25328" + "l-*-25329" + "l-*-25330")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28122"))) + #(ribcage #(x) #((top)) #("l-*-25309"))) (hygiene guile)) '() - docstring-28167 + docstring-25354 (list (cons '#(syntax-object _ ((top) @@ -22872,45 +22980,45 @@ docstring template) #((top) (top) (top) (top)) - #("l-*-28140" - "l-*-28141" - "l-*-28142" - "l-*-28143")) + #("l-*-25327" + "l-*-25328" + "l-*-25329" + "l-*-25330")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28122"))) + #("l-*-25309"))) (hygiene guile)) - pattern-28166) - template-28168)))) - tmp-28157) + pattern-25353) + template-25355)))) + tmp-25344) (syntax-violation #f "source expression failed to match any pattern" - x-28148)))))))) + x-25335)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (x-28217) - (let ((tmp-28219 + (lambda (x-25404) + (let ((tmp-25406 ($sc-dispatch - x-28217 + x-25404 '(any #(each (any any)) any . each-any)))) - (if (if tmp-28219 + (if (if tmp-25406 (@apply - (lambda (let*-28223 x-28224 v-28225 e1-28226 e2-28227) - (and-map identifier? x-28224)) - tmp-28219) + (lambda (let*-25410 x-25411 v-25412 e1-25413 e2-25414) + (and-map identifier? x-25411)) + tmp-25406) #f) (@apply - (lambda (let*-28228 x-28229 v-28230 e1-28231 e2-28232) + (lambda (let*-25415 x-25416 v-25417 e1-25418 e2-25419) (letrec* - ((f-28233 - (lambda (bindings-28236) - (if (null? bindings-28236) + ((f-25420 + (lambda (bindings-25423) + (if (null? bindings-25423) (cons '#(syntax-object let ((top) @@ -22918,26 +23026,26 @@ #(ribcage #(f bindings) #((top) (top)) - #("l-*-28203" "l-*-28204")) + #("l-*-25390" "l-*-25391")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-28193" - "l-*-28194" - "l-*-28195" - "l-*-28196" - "l-*-28197")) + #("l-*-25380" + "l-*-25381" + "l-*-25382" + "l-*-25383" + "l-*-25384")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28179"))) + #(ribcage #(x) #((top)) #("l-*-25366"))) (hygiene guile)) - (cons '() (cons e1-28231 e2-28232))) - (let ((tmp-28237 - (list (f-28233 (cdr bindings-28236)) - (car bindings-28236)))) - (let ((tmp-28238 ($sc-dispatch tmp-28237 '(any any)))) - (if tmp-28238 + (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-28240 binding-28241) + (lambda (body-25427 binding-25428) (list '#(syntax-object let ((top) @@ -22945,84 +23053,84 @@ #(ribcage #(body binding) #((top) (top)) - #("l-*-28213" "l-*-28214")) + #("l-*-25400" "l-*-25401")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("l-*-28203" "l-*-28204")) + #("l-*-25390" "l-*-25391")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-28193" - "l-*-28194" - "l-*-28195" - "l-*-28196" - "l-*-28197")) + #("l-*-25380" + "l-*-25381" + "l-*-25382" + "l-*-25383" + "l-*-25384")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28179"))) + #("l-*-25366"))) (hygiene guile)) - (list binding-28241) - body-28240)) - tmp-28238) + (list binding-25428) + body-25427)) + tmp-25425) (syntax-violation #f "source expression failed to match any pattern" - tmp-28237)))))))) - (f-28233 (map list x-28229 v-28230)))) - tmp-28219) + tmp-25424)))))))) + (f-25420 (map list x-25416 v-25417)))) + tmp-25406) (syntax-violation #f "source expression failed to match any pattern" - x-28217)))))) + x-25404)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (orig-x-28299) - (let ((tmp-28301 + (lambda (orig-x-25484) + (let ((tmp-25486 ($sc-dispatch - orig-x-28299 + orig-x-25484 '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if tmp-28301 + (if tmp-25486 (@apply - (lambda (var-28305 - init-28306 - step-28307 - e0-28308 - e1-28309 - c-28310) - (let ((tmp-28311 - (map (lambda (v-28314 s-28315) - (let ((tmp-28317 ($sc-dispatch s-28315 '()))) - (if tmp-28317 - (@apply (lambda () v-28314) tmp-28317) - (let ((tmp-28320 - ($sc-dispatch s-28315 '(any)))) - (if tmp-28320 + (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 (e-28323) e-28323) - tmp-28320) + (lambda (e-25508) e-25508) + tmp-25505) (syntax-violation 'do "bad step expression" - orig-x-28299 - s-28315)))))) - var-28305 - step-28307))) - (let ((tmp-28312 ($sc-dispatch tmp-28311 'each-any))) - (if tmp-28312 + orig-x-25484 + s-25500)))))) + var-25490 + step-25492))) + (let ((tmp-25497 ($sc-dispatch tmp-25496 'each-any))) + (if tmp-25497 (@apply - (lambda (step-28329) - (let ((tmp-28331 ($sc-dispatch e1-28309 '()))) - (if tmp-28331 + (lambda (step-25513) + (let ((tmp-25515 ($sc-dispatch e1-25494 '()))) + (if tmp-25515 (@apply (lambda () (list '#(syntax-object @@ -23032,7 +23140,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23041,17 +23149,17 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) '#(syntax-object doloop @@ -23060,7 +23168,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23069,19 +23177,19 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - (map list var-28305 init-28306) + (map list var-25490 init-25491) (list '#(syntax-object if ((top) @@ -23089,7 +23197,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23098,17 +23206,17 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) (list '#(syntax-object not @@ -23117,7 +23225,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init @@ -23131,19 +23239,19 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - e0-28308) + e0-25493) (cons '#(syntax-object begin ((top) @@ -23151,7 +23259,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init @@ -23165,20 +23273,20 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) (append - c-28310 + c-25495 (list (cons '#(syntax-object doloop ((top) @@ -23189,7 +23297,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init @@ -23203,12 +23311,12 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () @@ -23216,28 +23324,28 @@ #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - step-28329))))))) - tmp-28331) - (let ((tmp-28335 - ($sc-dispatch e1-28309 '(any . each-any)))) - (if tmp-28335 + step-25513))))))) + tmp-25515) + (let ((tmp-25519 + ($sc-dispatch e1-25494 '(any . each-any)))) + (if tmp-25519 (@apply - (lambda (e1-28339 e2-28340) + (lambda (e1-25523 e2-25524) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28276" "l-*-28277")) + #("l-*-25463" "l-*-25464")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23246,17 +23354,17 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) '#(syntax-object doloop @@ -23264,12 +23372,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28276" "l-*-28277")) + #("l-*-25463" "l-*-25464")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23278,32 +23386,32 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - (map list var-28305 init-28306) + (map list var-25490 init-25491) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28276" - "l-*-28277")) + #("l-*-25463" + "l-*-25464")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23312,32 +23420,32 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - e0-28308 + e0-25493 (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28276" - "l-*-28277")) + #("l-*-25463" + "l-*-25464")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init @@ -23351,32 +23459,32 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - (cons e1-28339 e2-28340)) + (cons e1-25523 e2-25524)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28276" - "l-*-28277")) + #("l-*-25463" + "l-*-25464")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init @@ -23390,20 +23498,20 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) (append - c-28310 + c-25495 (list (cons '#(syntax-object doloop ((top) @@ -23412,8 +23520,8 @@ e2) #((top) (top)) - #("l-*-28276" - "l-*-28277")) + #("l-*-25463" + "l-*-25464")) #(ribcage () () @@ -23421,7 +23529,7 @@ #(ribcage #(step) #((top)) - #("l-*-28267")) + #("l-*-25454")) #(ribcage #(var init @@ -23435,12 +23543,12 @@ (top) (top) (top)) - #("l-*-28252" - "l-*-28253" - "l-*-28254" - "l-*-28255" - "l-*-28256" - "l-*-28257")) + #("l-*-25439" + "l-*-25440" + "l-*-25441" + "l-*-25442" + "l-*-25443" + "l-*-25444")) #(ribcage () () @@ -23448,36 +23556,36 @@ #(ribcage #(orig-x) #((top)) - #("l-*-28249"))) + #("l-*-25436"))) (hygiene guile)) - step-28329))))))) - tmp-28335) + step-25513))))))) + tmp-25519) (syntax-violation #f "source expression failed to match any pattern" - e1-28309)))))) - tmp-28312) + e1-25494)))))) + tmp-25497) (syntax-violation #f "source expression failed to match any pattern" - tmp-28311))))) - tmp-28301) + tmp-25496))))) + tmp-25486) (syntax-violation #f "source expression failed to match any pattern" - orig-x-28299)))))) + orig-x-25484)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((quasi-28620 - (lambda (p-28644 lev-28645) - (let ((tmp-28647 + ((quasi-25792 + (lambda (p-25816 lev-25817) + (let ((tmp-25819 ($sc-dispatch - p-28644 + p-25816 '(#(free-id #(syntax-object unquote @@ -23486,7 +23594,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23495,28 +23603,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) any)))) - (if tmp-28647 + (if tmp-25819 (@apply - (lambda (p-28651) - (if (= lev-28645 0) + (lambda (p-25823) + (if (= lev-25817 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("l-*-28376")) + #(ribcage #(p) #((top)) #("l-*-25560")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23525,25 +23633,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - p-28651) - (quasicons-28622 + p-25823) + (quasicons-25794 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28376")) + #(ribcage #(p) #((top)) #("l-*-25560")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23552,23 +23660,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-28376")) + #(ribcage #(p) #((top)) #("l-*-25560")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23577,19 +23685,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) - (quasi-28620 (list p-28651) (#{1-}# lev-28645))))) - tmp-28647) - (let ((tmp-28654 + (quasi-25792 (list p-25823) (#{1-}# lev-25817))))) + tmp-25819) + (let ((tmp-25826 ($sc-dispatch - p-28644 + p-25816 '(#(free-id #(syntax-object quasiquote @@ -23598,7 +23706,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23607,28 +23715,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) any)))) - (if tmp-28654 + (if tmp-25826 (@apply - (lambda (p-28658) - (quasicons-28622 + (lambda (p-25830) + (quasicons-25794 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28379")) + #(ribcage #(p) #((top)) #("l-*-25563")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23637,23 +23745,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("l-*-28379")) + #(ribcage #(p) #((top)) #("l-*-25563")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23662,23 +23770,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) - (quasi-28620 (list p-28658) (#{1+}# lev-28645)))) - tmp-28654) - (let ((tmp-28661 ($sc-dispatch p-28644 '(any . any)))) - (if tmp-28661 + (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-28665 q-28666) - (let ((tmp-28668 + (lambda (p-25837 q-25838) + (let ((tmp-25840 ($sc-dispatch - p-28665 + p-25837 '(#(free-id #(syntax-object unquote @@ -23686,12 +23794,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28382" "l-*-28383")) + #("l-*-25566" "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23706,40 +23814,40 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) . each-any)))) - (if tmp-28668 + (if tmp-25840 (@apply - (lambda (p-28672) - (if (= lev-28645 0) - (quasilist*-28624 - (map (lambda (tmp-28390-28708) + (lambda (p-25844) + (if (= lev-25817 0) + (quasilist*-25796 + (map (lambda (tmp-25574-25880) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28388")) + #("l-*-25572")) #(ribcage #(p q) #((top) (top)) - #("l-*-28382" - "l-*-28383")) + #("l-*-25566" + "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" - "l-*-28373")) + #("l-*-25556" + "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23754,35 +23862,35 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - tmp-28390-28708)) - p-28672) - (quasi-28620 q-28666 lev-28645)) - (quasicons-28622 - (quasicons-28622 + tmp-25574-25880)) + p-25844) + (quasi-25792 q-25838 lev-25817)) + (quasicons-25794 + (quasicons-25794 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28388")) + #("l-*-25572")) #(ribcage #(p q) #((top) (top)) - #("l-*-28382" "l-*-28383")) + #("l-*-25566" "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23797,13 +23905,13 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) #(syntax-object unquote @@ -23811,16 +23919,16 @@ #(ribcage #(p) #((top)) - #("l-*-28388")) + #("l-*-25572")) #(ribcage #(p q) #((top) (top)) - #("l-*-28382" "l-*-28383")) + #("l-*-25566" "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23835,22 +23943,22 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) - (quasi-28620 - p-28672 - (#{1-}# lev-28645))) - (quasi-28620 q-28666 lev-28645)))) - tmp-28668) - (let ((tmp-28713 + (quasi-25792 + p-25844 + (#{1-}# lev-25817))) + (quasi-25792 q-25838 lev-25817)))) + tmp-25840) + (let ((tmp-25885 ($sc-dispatch - p-28665 + p-25837 '(#(free-id #(syntax-object unquote-splicing @@ -23858,12 +23966,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28382" "l-*-28383")) + #("l-*-25566" "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23878,40 +23986,40 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) . each-any)))) - (if tmp-28713 + (if tmp-25885 (@apply - (lambda (p-28717) - (if (= lev-28645 0) - (quasiappend-28623 - (map (lambda (tmp-28395-28720) + (lambda (p-25889) + (if (= lev-25817 0) + (quasiappend-25795 + (map (lambda (tmp-25579-25892) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28393")) + #("l-*-25577")) #(ribcage #(p q) #((top) (top)) - #("l-*-28382" - "l-*-28383")) + #("l-*-25566" + "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" - "l-*-28373")) + #("l-*-25556" + "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23926,35 +24034,35 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - tmp-28395-28720)) - p-28717) - (quasi-28620 q-28666 lev-28645)) - (quasicons-28622 - (quasicons-28622 + tmp-25579-25892)) + p-25889) + (quasi-25792 q-25838 lev-25817)) + (quasicons-25794 + (quasicons-25794 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28393")) + #("l-*-25577")) #(ribcage #(p q) #((top) (top)) - #("l-*-28382" "l-*-28383")) + #("l-*-25566" "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -23969,13 +24077,13 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23983,16 +24091,16 @@ #(ribcage #(p) #((top)) - #("l-*-28393")) + #("l-*-25577")) #(ribcage #(p q) #((top) (top)) - #("l-*-28382" "l-*-28383")) + #("l-*-25566" "l-*-25567")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -24007,49 +24115,49 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) - (quasi-28620 - p-28717 - (#{1-}# lev-28645))) - (quasi-28620 q-28666 lev-28645)))) - tmp-28713) - (quasicons-28622 - (quasi-28620 p-28665 lev-28645) - (quasi-28620 q-28666 lev-28645))))))) - tmp-28661) - (let ((tmp-28734 - ($sc-dispatch p-28644 '#(vector each-any)))) - (if tmp-28734 + (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-28738) - (let ((x-28741 - (vquasi-28621 x-28738 lev-28645))) - (let ((tmp-28743 + (lambda (x-25909) + (let ((x-25912 + (vquasi-25793 x-25909 lev-25817))) + (let ((tmp-25914 ($sc-dispatch - x-28741 + x-25912 '(#(atom "quote") each-any)))) - (if tmp-28743 + (if tmp-25914 (@apply - (lambda (x-28747) + (lambda (x-25916) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("l-*-28494")) + #("l-*-25668")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28491")) + #("l-*-25665")) #(ribcage (emit quasivector quasilist* @@ -24064,36 +24172,36 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - (list->vector x-28747))) - tmp-28743) + (list->vector x-25916))) + tmp-25914) (letrec* - ((f-28749 - (lambda (y-28761 k-28762) - (let ((tmp-28764 + ((f-25917 + (lambda (y-25929 k-25930) + (let ((tmp-25932 ($sc-dispatch - y-28761 + y-25929 '(#(atom "quote") each-any)))) - (if tmp-28764 + (if tmp-25932 (@apply - (lambda (y-28767) - (k-28762 - (map (lambda (tmp-28519-28768) + (lambda (y-25935) + (k-25930 + (map (lambda (tmp-25691-25936) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("l-*-28517")) + #("l-*-25689")) #(ribcage () () @@ -24105,13 +24213,9 @@ #((top) (top) (top)) - #("l-*-28499" - "l-*-28500" - "l-*-28501")) - #(ribcage - #(_) - #((top)) - #("l-*-28497")) + #("l-*-25671" + "l-*-25672" + "l-*-25673")) #(ribcage () () @@ -24119,7 +24223,7 @@ #(ribcage #(x) #((top)) - #("l-*-28491")) + #("l-*-25665")) #(ribcage (emit quasivector quasilist* @@ -24134,50 +24238,50 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - tmp-28519-28768)) - y-28767))) - tmp-28764) - (let ((tmp-28769 + tmp-25691-25936)) + y-25935))) + tmp-25932) + (let ((tmp-25937 ($sc-dispatch - y-28761 + y-25929 '(#(atom "list") . each-any)))) - (if tmp-28769 + (if tmp-25937 (@apply - (lambda (y-28772) - (k-28762 y-28772)) - tmp-28769) - (let ((tmp-28773 + (lambda (y-25940) + (k-25930 y-25940)) + tmp-25937) + (let ((tmp-25941 ($sc-dispatch - y-28761 + y-25929 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-28773 + (if tmp-25941 (@apply - (lambda (y-28776 - z-28777) - (f-28749 - z-28777 - (lambda (ls-28778) - (k-28762 + (lambda (y-25944 + z-25945) + (f-25917 + z-25945 + (lambda (ls-25946) + (k-25930 (append - y-28776 - ls-28778))))) - tmp-28773) + y-25944 + ls-25946))))) + tmp-25941) (list '#(syntax-object "list->vector" ((top) @@ -24186,14 +24290,14 @@ () ()) #(ribcage - #(t-28534) - #((m-*-28535 + #(t-25706) + #((m-*-25707 top)) - #("l-*-28538")) + #("l-*-25710")) #(ribcage #(else) #((top)) - #("l-*-28532")) + #("l-*-25704")) #(ribcage () () @@ -24203,13 +24307,9 @@ #((top) (top) (top)) - #("l-*-28499" - "l-*-28500" - "l-*-28501")) - #(ribcage - #(_) - #((top)) - #("l-*-28497")) + #("l-*-25671" + "l-*-25672" + "l-*-25673")) #(ribcage () () @@ -24217,7 +24317,7 @@ #(ribcage #(x) #((top)) - #("l-*-28491")) + #("l-*-25665")) #(ribcage (emit quasivector quasilist* @@ -24232,26 +24332,26 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - x-28741)))))))))) - (f-28749 - x-28741 - (lambda (ls-28751) - (let ((tmp-28753 + x-25912)))))))))) + (f-25917 + x-25912 + (lambda (ls-25919) + (let ((tmp-25921 ($sc-dispatch - ls-28751 + ls-25919 'each-any))) - (if tmp-28753 + (if tmp-25921 (@apply - (lambda (t-28507-28756) + (lambda (t-25679-25924) (cons '#(syntax-object "vector" ((top) @@ -24260,10 +24360,10 @@ () ()) #(ribcage - #(t-28507) - #((m-*-28508 + #(t-25679) + #((m-*-25680 top)) - #("l-*-28512")) + #("l-*-25684")) #(ribcage () () @@ -24279,11 +24379,7 @@ #(ribcage #(ls) #((top)) - #("l-*-28506")) - #(ribcage - #(_) - #((top)) - #("l-*-28497")) + #("l-*-25678")) #(ribcage () () @@ -24291,7 +24387,7 @@ #(ribcage #(x) #((top)) - #("l-*-28491")) + #("l-*-25665")) #(ribcage (emit quasivector quasilist* @@ -24306,30 +24402,30 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - t-28507-28756)) - tmp-28753) + t-25679-25924)) + tmp-25921) (syntax-violation #f "source expression failed to match any pattern" - ls-28751)))))))))) - tmp-28734) + ls-25919)))))))))) + tmp-25905) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28403")) + #(ribcage #(p) #((top)) #("l-*-25585")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28372" "l-*-28373")) + #("l-*-25556" "l-*-25557")) #(ribcage (emit quasivector quasilist* @@ -24344,24 +24440,24 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - p-28644))))))))))) - (vquasi-28621 - (lambda (p-28806 lev-28807) - (let ((tmp-28809 ($sc-dispatch p-28806 '(any . any)))) - (if tmp-28809 + p-25816))))))))))) + (vquasi-25793 + (lambda (p-25972 lev-25973) + (let ((tmp-25975 ($sc-dispatch p-25972 '(any . any)))) + (if tmp-25975 (@apply - (lambda (p-28813 q-28814) - (let ((tmp-28816 + (lambda (p-25979 q-25980) + (let ((tmp-25982 ($sc-dispatch - p-28813 + p-25979 '(#(free-id #(syntax-object unquote @@ -24369,12 +24465,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24389,38 +24485,38 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) . each-any)))) - (if tmp-28816 + (if tmp-25982 (@apply - (lambda (p-28820) - (if (= lev-28807 0) - (quasilist*-28624 - (map (lambda (tmp-28419-28856) + (lambda (p-25986) + (if (= lev-25973 0) + (quasilist*-25796 + (map (lambda (tmp-25601-26022) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28417")) + #("l-*-25599")) #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24435,32 +24531,32 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - tmp-28419-28856)) - p-28820) - (vquasi-28621 q-28814 lev-28807)) - (quasicons-28622 - (quasicons-28622 + tmp-25601-26022)) + p-25986) + (vquasi-25793 q-25980 lev-25973)) + (quasicons-25794 + (quasicons-25794 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28417")) + #(ribcage #(p) #((top)) #("l-*-25599")) #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24475,27 +24571,27 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-28417")) + #(ribcage #(p) #((top)) #("l-*-25599")) #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24510,20 +24606,20 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) - (quasi-28620 p-28820 (#{1-}# lev-28807))) - (vquasi-28621 q-28814 lev-28807)))) - tmp-28816) - (let ((tmp-28863 + (quasi-25792 p-25986 (#{1-}# lev-25973))) + (vquasi-25793 q-25980 lev-25973)))) + tmp-25982) + (let ((tmp-26029 ($sc-dispatch - p-28813 + p-25979 '(#(free-id #(syntax-object unquote-splicing @@ -24531,12 +24627,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24551,40 +24647,40 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) . each-any)))) - (if tmp-28863 + (if tmp-26029 (@apply - (lambda (p-28867) - (if (= lev-28807 0) - (quasiappend-28623 - (map (lambda (tmp-28424-28870) + (lambda (p-26033) + (if (= lev-25973 0) + (quasiappend-25795 + (map (lambda (tmp-25606-26036) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28422")) + #("l-*-25604")) #(ribcage #(p q) #((top) (top)) - #("l-*-28411" - "l-*-28412")) + #("l-*-25593" + "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" - "l-*-28408")) + #("l-*-25589" + "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24599,35 +24695,35 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - tmp-28424-28870)) - p-28867) - (vquasi-28621 q-28814 lev-28807)) - (quasicons-28622 - (quasicons-28622 + tmp-25606-26036)) + p-26033) + (vquasi-25793 q-25980 lev-25973)) + (quasicons-25794 + (quasicons-25794 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28422")) + #("l-*-25604")) #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24642,13 +24738,13 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -24656,16 +24752,16 @@ #(ribcage #(p) #((top)) - #("l-*-28422")) + #("l-*-25604")) #(ribcage #(p q) #((top) (top)) - #("l-*-28411" "l-*-28412")) + #("l-*-25593" "l-*-25594")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24680,23 +24776,23 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile))) - (quasi-28620 p-28867 (#{1-}# lev-28807))) - (vquasi-28621 q-28814 lev-28807)))) - tmp-28863) - (quasicons-28622 - (quasi-28620 p-28813 lev-28807) - (vquasi-28621 q-28814 lev-28807))))))) - tmp-28809) - (let ((tmp-28888 ($sc-dispatch p-28806 '()))) - (if tmp-28888 + (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 @@ -24706,7 +24802,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28407" "l-*-28408")) + #("l-*-25589" "l-*-25590")) #(ribcage (emit quasivector quasilist* @@ -24715,61 +24811,61 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) ())) - tmp-28888) + tmp-26053) (syntax-violation #f "source expression failed to match any pattern" - p-28806))))))) - (quasicons-28622 - (lambda (x-28901 y-28902) - (let ((tmp-28903 (list x-28901 y-28902))) - (let ((tmp-28904 ($sc-dispatch tmp-28903 '(any any)))) - (if tmp-28904 + 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-28906 y-28907) - (let ((tmp-28909 - ($sc-dispatch y-28907 '(#(atom "quote") any)))) - (if tmp-28909 + (lambda (x-26071 y-26072) + (let ((tmp-26074 + ($sc-dispatch y-26072 '(#(atom "quote") any)))) + (if tmp-26074 (@apply - (lambda (dy-28913) - (let ((tmp-28915 + (lambda (dy-26078) + (let ((tmp-26080 ($sc-dispatch - x-28906 + x-26071 '(#(atom "quote") any)))) - (if tmp-28915 + (if tmp-26080 (@apply - (lambda (dx-28919) + (lambda (dx-26082) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("l-*-28446")) + #("l-*-25626")) #(ribcage #(dy) #((top)) - #("l-*-28442")) + #("l-*-25622")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28436" "l-*-28437")) + #("l-*-25616" "l-*-25617")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28431" "l-*-28432")) + #("l-*-25611" "l-*-25612")) #(ribcage (emit quasivector quasilist* @@ -24784,39 +24880,35 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - (cons dx-28919 dy-28913))) - tmp-28915) - (if (null? dy-28913) + (cons dx-26082 dy-26078))) + tmp-26080) + (if (null? dy-26078) (list '#(syntax-object "list" ((top) - #(ribcage - #(_) - #((top)) - #("l-*-28448")) #(ribcage #(dy) #((top)) - #("l-*-28442")) + #("l-*-25622")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28436" "l-*-28437")) + #("l-*-25616" "l-*-25617")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28431" "l-*-28432")) + #("l-*-25611" "l-*-25612")) #(ribcage (emit quasivector quasilist* @@ -24831,37 +24923,33 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - x-28906) + x-26071) (list '#(syntax-object "list*" ((top) - #(ribcage - #(_) - #((top)) - #("l-*-28448")) #(ribcage #(dy) #((top)) - #("l-*-28442")) + #("l-*-25622")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28436" "l-*-28437")) + #("l-*-25616" "l-*-25617")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28431" "l-*-28432")) + #("l-*-25611" "l-*-25612")) #(ribcage (emit quasivector quasilist* @@ -24876,42 +24964,42 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - x-28906 - y-28907))))) - tmp-28909) - (let ((tmp-28924 + x-26071 + y-26072))))) + tmp-26074) + (let ((tmp-26084 ($sc-dispatch - y-28907 + y-26072 '(#(atom "list") . any)))) - (if tmp-28924 + (if tmp-26084 (@apply - (lambda (stuff-28928) + (lambda (stuff-26088) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("l-*-28451")) + #("l-*-25629")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28436" "l-*-28437")) + #("l-*-25616" "l-*-25617")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28431" "l-*-28432")) + #("l-*-25611" "l-*-25612")) #(ribcage (emit quasivector quasilist* @@ -24926,41 +25014,41 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - (cons x-28906 stuff-28928))) - tmp-28924) - (let ((tmp-28929 + (cons x-26071 stuff-26088))) + tmp-26084) + (let ((tmp-26089 ($sc-dispatch - y-28907 + y-26072 '(#(atom "list*") . any)))) - (if tmp-28929 + (if tmp-26089 (@apply - (lambda (stuff-28933) + (lambda (stuff-26093) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("l-*-28454")) + #("l-*-25632")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28436" "l-*-28437")) + #("l-*-25616" "l-*-25617")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28431" "l-*-28432")) + #("l-*-25611" "l-*-25612")) #(ribcage (emit quasivector quasilist* @@ -24975,34 +25063,30 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - (cons x-28906 stuff-28933))) - tmp-28929) + (cons x-26071 stuff-26093))) + tmp-26089) (list '#(syntax-object "list*" ((top) - #(ribcage - #(_) - #((top)) - #("l-*-28456")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28436" "l-*-28437")) + #("l-*-25616" "l-*-25617")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28431" "l-*-28432")) + #("l-*-25611" "l-*-25612")) #(ribcage (emit quasivector quasilist* @@ -25017,29 +25101,29 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - x-28906 - y-28907)))))))) - tmp-28904) + x-26071 + y-26072)))))))) + tmp-26069) (syntax-violation #f "source expression failed to match any pattern" - tmp-28903)))))) - (quasiappend-28623 - (lambda (x-28944 y-28945) - (let ((tmp-28947 - ($sc-dispatch y-28945 '(#(atom "quote") ())))) - (if tmp-28947 + 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-28944) + (if (null? x-26103) '(#(syntax-object "quote" ((top) @@ -25047,7 +25131,7 @@ #(ribcage #(x y) #((top) (top)) - #("l-*-28460" "l-*-28461")) + #("l-*-25636" "l-*-25637")) #(ribcage (emit quasivector quasilist* @@ -25056,21 +25140,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) ()) - (if (null? (cdr x-28944)) - (car x-28944) - (let ((tmp-28952 ($sc-dispatch x-28944 'each-any))) - (if tmp-28952 + (if (null? (cdr x-26103)) + (car x-26103) + (let ((tmp-26109 ($sc-dispatch x-26103 'each-any))) + (if tmp-26109 (@apply - (lambda (p-28956) + (lambda (p-26113) (cons '#(syntax-object "append" ((top) @@ -25078,12 +25162,12 @@ #(ribcage #(p) #((top)) - #("l-*-28468")) + #("l-*-25644")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28460" "l-*-28461")) + #("l-*-25636" "l-*-25637")) #(ribcage (emit quasivector quasilist* @@ -25098,29 +25182,29 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - p-28956)) - tmp-28952) + p-26113)) + tmp-26109) (syntax-violation #f "source expression failed to match any pattern" - x-28944)))))) - tmp-28947) - (if (null? x-28944) - y-28945 - (let ((tmp-28964 (list x-28944 y-28945))) - (let ((tmp-28965 - ($sc-dispatch tmp-28964 '(each-any any)))) - (if tmp-28965 + 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-28967 y-28968) + (lambda (p-26123 y-26124) (cons '#(syntax-object "append" ((top) @@ -25128,13 +25212,12 @@ #(ribcage #(p y) #((top) (top)) - #("l-*-28477" "l-*-28478")) - #(ribcage #(_) #((top)) #("l-*-28471")) + #("l-*-25651" "l-*-25652")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28460" "l-*-28461")) + #("l-*-25636" "l-*-25637")) #(ribcage (emit quasivector quasilist* @@ -25149,44 +25232,44 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - (append p-28967 (list y-28968)))) - tmp-28965) + (append p-26123 (list y-26124)))) + tmp-26121) (syntax-violation #f "source expression failed to match any pattern" - tmp-28964))))))))) - (quasilist*-28624 - (lambda (x-28972 y-28973) + tmp-26120))))))))) + (quasilist*-25796 + (lambda (x-26126 y-26127) (letrec* - ((f-28974 - (lambda (x-29063) - (if (null? x-29063) - y-28973 - (quasicons-28622 - (car x-29063) - (f-28974 (cdr x-29063))))))) - (f-28974 x-28972)))) - (emit-28626 - (lambda (x-29066) - (let ((tmp-29068 - ($sc-dispatch x-29066 '(#(atom "quote") any)))) - (if tmp-29068 + ((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-29072) + (lambda (x-26226) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("l-*-28544")) + #(ribcage #(x) #((top)) #("l-*-25716")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28541")) + #(ribcage #(x) #((top)) #("l-*-25713")) #(ribcage (emit quasivector quasilist* @@ -25195,45 +25278,45 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - x-29072)) - tmp-29068) - (let ((tmp-29073 + x-26226)) + tmp-26222) + (let ((tmp-26227 ($sc-dispatch - x-29066 + x-26220 '(#(atom "list") . each-any)))) - (if tmp-29073 + (if tmp-26227 (@apply - (lambda (x-29077) - (let ((tmp-29078 (map emit-28626 x-29077))) - (let ((tmp-29079 ($sc-dispatch tmp-29078 'each-any))) - (if tmp-29079 + (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-28549-29081) + (lambda (t-25721-26235) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(t-28549) - #((m-*-28550 top)) - #("l-*-28554")) + #(t-25721) + #((m-*-25722 top)) + #("l-*-25726")) #(ribcage #(x) #((top)) - #("l-*-28547")) + #("l-*-25719")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28541")) + #("l-*-25713")) #(ribcage (emit quasivector quasilist* @@ -25248,70 +25331,70 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - t-28549-29081)) - tmp-29079) + t-25721-26235)) + tmp-26233) (syntax-violation #f "source expression failed to match any pattern" - tmp-29078))))) - tmp-29073) - (let ((tmp-29082 + tmp-26232))))) + tmp-26227) + (let ((tmp-26236 ($sc-dispatch - x-29066 + x-26220 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-29082 + (if tmp-26236 (@apply - (lambda (x-29086 y-29087) + (lambda (x-26240 y-26241) (letrec* - ((f-29088 - (lambda (x*-29091) - (if (null? x*-29091) - (emit-28626 y-29087) - (let ((tmp-29092 - (list (emit-28626 (car x*-29091)) - (f-29088 (cdr x*-29091))))) - (let ((tmp-29093 + ((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-29092 + tmp-26246 '(any any)))) - (if tmp-29093 + (if tmp-26247 (@apply - (lambda (t-28569-29095 - t-28568-29096) + (lambda (t-25741-26249 + t-25740-26250) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(t-28569 t-28568) - #((m-*-28570 top) - (m-*-28570 top)) - #("l-*-28574" - "l-*-28575")) + #(t-25741 t-25740) + #((m-*-25742 top) + (m-*-25742 top)) + #("l-*-25746" + "l-*-25747")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("l-*-28563" - "l-*-28564")) + #("l-*-25735" + "l-*-25736")) #(ribcage #(x y) #((top) (top)) - #("l-*-28559" - "l-*-28560")) + #("l-*-25731" + "l-*-25732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28541")) + #("l-*-25713")) #(ribcage (emit quasivector quasilist* @@ -25326,53 +25409,53 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - t-28569-29095 - t-28568-29096)) - tmp-29093) + t-25741-26249 + t-25740-26250)) + tmp-26247) (syntax-violation #f "source expression failed to match any pattern" - tmp-29092)))))))) - (f-29088 x-29086))) - tmp-29082) - (let ((tmp-29097 + tmp-26246)))))))) + (f-26242 x-26240))) + tmp-26236) + (let ((tmp-26251 ($sc-dispatch - x-29066 + x-26220 '(#(atom "append") . each-any)))) - (if tmp-29097 + (if tmp-26251 (@apply - (lambda (x-29101) - (let ((tmp-29102 (map emit-28626 x-29101))) - (let ((tmp-29103 - ($sc-dispatch tmp-29102 'each-any))) - (if tmp-29103 + (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-28581-29105) + (lambda (t-25753-26259) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(t-28581) - #((m-*-28582 top)) - #("l-*-28586")) + #(t-25753) + #((m-*-25754 top)) + #("l-*-25758")) #(ribcage #(x) #((top)) - #("l-*-28579")) + #("l-*-25751")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28541")) + #("l-*-25713")) #(ribcage (emit quasivector quasilist* @@ -25387,53 +25470,53 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - t-28581-29105)) - tmp-29103) + t-25753-26259)) + tmp-26257) (syntax-violation #f "source expression failed to match any pattern" - tmp-29102))))) - tmp-29097) - (let ((tmp-29106 + tmp-26256))))) + tmp-26251) + (let ((tmp-26260 ($sc-dispatch - x-29066 + x-26220 '(#(atom "vector") . each-any)))) - (if tmp-29106 + (if tmp-26260 (@apply - (lambda (x-29110) - (let ((tmp-29111 (map emit-28626 x-29110))) - (let ((tmp-29112 + (lambda (x-26264) + (let ((tmp-26265 (map emit-25798 x-26264))) + (let ((tmp-26266 ($sc-dispatch - tmp-29111 + tmp-26265 'each-any))) - (if tmp-29112 + (if tmp-26266 (@apply - (lambda (t-28593-29114) + (lambda (t-25765-26268) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(t-28593) - #((m-*-28594 top)) - #("l-*-28598")) + #(t-25765) + #((m-*-25766 top)) + #("l-*-25770")) #(ribcage #(x) #((top)) - #("l-*-28591")) + #("l-*-25763")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28541")) + #("l-*-25713")) #(ribcage (emit quasivector quasilist* @@ -25448,46 +25531,46 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - t-28593-29114)) - tmp-29112) + t-25765-26268)) + tmp-26266) (syntax-violation #f "source expression failed to match any pattern" - tmp-29111))))) - tmp-29106) - (let ((tmp-29115 + tmp-26265))))) + tmp-26260) + (let ((tmp-26269 ($sc-dispatch - x-29066 + x-26220 '(#(atom "list->vector") any)))) - (if tmp-29115 + (if tmp-26269 (@apply - (lambda (x-29119) - (let ((tmp-29120 (emit-28626 x-29119))) + (lambda (x-26273) + (let ((tmp-26274 (emit-25798 x-26273))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(t-28605) - #((m-*-28606 top)) - #("l-*-28609")) + #(t-25777) + #((m-*-25778 top)) + #("l-*-25781")) #(ribcage #(x) #((top)) - #("l-*-28603")) + #("l-*-25775")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28541")) + #("l-*-25713")) #(ribcage (emit quasivector quasilist* @@ -25502,183 +25585,183 @@ (top) (top) (top)) - ("l-*-28368" - "l-*-28366" - "l-*-28364" - "l-*-28362" - "l-*-28360" - "l-*-28358" - "l-*-28356"))) + ("l-*-25552" + "l-*-25550" + "l-*-25548" + "l-*-25546" + "l-*-25544" + "l-*-25542" + "l-*-25540"))) (hygiene guile)) - tmp-29120))) - tmp-29115) - (let ((tmp-29123 + tmp-26274))) + tmp-26269) + (let ((tmp-26277 ($sc-dispatch - x-29066 + x-26220 '(#(atom "value") any)))) - (if tmp-29123 + (if tmp-26277 (@apply - (lambda (x-29127) x-29127) - tmp-29123) + (lambda (x-26281) x-26281) + tmp-26277) (syntax-violation #f "source expression failed to match any pattern" - x-29066)))))))))))))))))) - (lambda (x-28627) - (let ((tmp-28629 ($sc-dispatch x-28627 '(_ any)))) - (if tmp-28629 + x-26220)))))))))))))))))) + (lambda (x-25799) + (let ((tmp-25801 ($sc-dispatch x-25799 '(_ any)))) + (if tmp-25801 (@apply - (lambda (e-28633) - (emit-28626 (quasi-28620 e-28633 0))) - tmp-28629) + (lambda (e-25805) + (emit-25798 (quasi-25792 e-25805 0))) + tmp-25801) (syntax-violation #f "source expression failed to match any pattern" - x-28627))))))) + x-25799))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (x-29182) + (lambda (x-26336) (letrec* - ((read-file-29183 - (lambda (fn-29292 k-29293) - (let ((p-29294 (open-input-file fn-29292))) + ((read-file-26337 + (lambda (fn-26446 k-26447) + (let ((p-26448 (open-input-file fn-26446))) (letrec* - ((f-29295 - (lambda (x-29349 result-29350) - (if (eof-object? x-29349) + ((f-26449 + (lambda (x-26503 result-26504) + (if (eof-object? x-26503) (begin - (close-input-port p-29294) - (reverse result-29350)) - (f-29295 - (read p-29294) - (cons (datum->syntax k-29293 x-29349) - result-29350)))))) - (f-29295 (read p-29294) '())))))) - (let ((tmp-29185 ($sc-dispatch x-29182 '(any any)))) - (if tmp-29185 + (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 (k-29189 filename-29190) - (let ((fn-29191 (syntax->datum filename-29190))) - (let ((tmp-29192 - (read-file-29183 fn-29191 filename-29190))) - (let ((tmp-29193 ($sc-dispatch tmp-29192 'each-any))) - (if tmp-29193 + (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-29211) + (lambda (exp-26365) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("l-*-29179")) + #(ribcage #(exp) #((top)) #("l-*-26333")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29174")) + #(ribcage #(fn) #((top)) #("l-*-26328")) #(ribcage #(k filename) #((top) (top)) - #("l-*-29170" "l-*-29171")) + #("l-*-26324" "l-*-26325")) #(ribcage (read-file) ((top)) - ("l-*-29154")) - #(ribcage #(x) #((top)) #("l-*-29153"))) + ("l-*-26308")) + #(ribcage #(x) #((top)) #("l-*-26307"))) (hygiene guile)) - exp-29211)) - tmp-29193) + exp-26365)) + tmp-26347) (syntax-violation #f "source expression failed to match any pattern" - tmp-29192)))))) - tmp-29185) + tmp-26346)))))) + tmp-26339) (syntax-violation #f "source expression failed to match any pattern" - x-29182))))))) + x-26336))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (x-29369) - (let ((tmp-29371 ($sc-dispatch x-29369 '(any any)))) - (if tmp-29371 + (lambda (x-26523) + (let ((tmp-26525 ($sc-dispatch x-26523 '(any any)))) + (if tmp-26525 (@apply - (lambda (k-29375 filename-29376) - (let ((fn-29377 (syntax->datum filename-29376))) - (let ((tmp-29378 + (lambda (k-26529 filename-26530) + (let ((fn-26531 (syntax->datum filename-26530))) + (let ((tmp-26532 (datum->syntax - filename-29376 - (let ((t-29381 (%search-load-path fn-29377))) - (if t-29381 - t-29381 + 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-29369 - filename-29376)))))) + x-26523 + filename-26530)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29363")) + #(ribcage #(fn) #((top)) #("l-*-26517")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29359")) + #(ribcage #(fn) #((top)) #("l-*-26513")) #(ribcage #(k filename) #((top) (top)) - #("l-*-29355" "l-*-29356")) + #("l-*-26509" "l-*-26510")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29352"))) + #(ribcage #(x) #((top)) #("l-*-26506"))) (hygiene guile)) - tmp-29378)))) - tmp-29371) + tmp-26532)))) + tmp-26525) (syntax-violation #f "source expression failed to match any pattern" - x-29369)))))) + x-26523)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (x-29390) + (lambda (x-26544) (syntax-violation 'unquote "expression not valid outside of quasiquote" - x-29390)))) + x-26544)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (x-29393) + (lambda (x-26547) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - x-29393)))) + x-26547)))) (define case (make-syntax-transformer 'case 'macro - (lambda (x-29449) - (let ((tmp-29451 - ($sc-dispatch x-29449 '(_ any any . each-any)))) - (if tmp-29451 + (lambda (x-26599) + (let ((tmp-26601 + ($sc-dispatch x-26599 '(_ any any . each-any)))) + (if tmp-26601 (@apply - (lambda (e-29455 m1-29456 m2-29457) - (let ((tmp-29458 + (lambda (e-26605 m1-26606 m2-26607) + (let ((tmp-26608 (letrec* - ((f-29500 - (lambda (clause-29503 clauses-29504) - (if (null? clauses-29504) - (let ((tmp-29506 + ((f-26652 + (lambda (clause-26655 clauses-26656) + (if (null? clauses-26656) + (let ((tmp-26658 ($sc-dispatch - clause-29503 + clause-26655 '(#(free-id #(syntax-object else @@ -25687,89 +25770,89 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile))) any . each-any)))) - (if tmp-29506 + (if tmp-26658 (@apply - (lambda (e1-29510 e2-29511) + (lambda (e1-26662 e2-26663) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-29417" "l-*-29418")) + #("l-*-26571" "l-*-26572")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) - (cons e1-29510 e2-29511))) - tmp-29506) - (let ((tmp-29512 + (cons e1-26662 e2-26663))) + tmp-26658) + (let ((tmp-26664 ($sc-dispatch - clause-29503 + clause-26655 '(each-any any . each-any)))) - (if tmp-29512 + (if tmp-26664 (@apply - (lambda (k-29516 e1-29517 e2-29518) + (lambda (k-26668 e1-26669 e2-26670) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29423" - "l-*-29424" - "l-*-29425")) + #("l-*-26577" + "l-*-26578" + "l-*-26579")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) (list '#(syntax-object memv @@ -25779,9 +25862,9 @@ #((top) (top) (top)) - #("l-*-29423" - "l-*-29424" - "l-*-29425")) + #("l-*-26577" + "l-*-26578" + "l-*-26579")) #(ribcage () () ()) #(ribcage #(f @@ -25790,22 +25873,22 @@ #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) '#(syntax-object t @@ -25815,9 +25898,9 @@ #((top) (top) (top)) - #("l-*-29423" - "l-*-29424" - "l-*-29425")) + #("l-*-26577" + "l-*-26578" + "l-*-26579")) #(ribcage () () ()) #(ribcage #(f @@ -25826,22 +25909,22 @@ #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) (list '#(syntax-object quote @@ -25851,9 +25934,9 @@ #((top) (top) (top)) - #("l-*-29423" - "l-*-29424" - "l-*-29425")) + #("l-*-26577" + "l-*-26578" + "l-*-26579")) #(ribcage () () @@ -25865,17 +25948,17 @@ #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () @@ -25883,10 +25966,10 @@ #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) - k-29516)) + k-26668)) (cons '#(syntax-object begin ((top) @@ -25895,9 +25978,9 @@ #((top) (top) (top)) - #("l-*-29423" - "l-*-29424" - "l-*-29425")) + #("l-*-26577" + "l-*-26578" + "l-*-26579")) #(ribcage () () ()) #(ribcage #(f @@ -25906,74 +25989,74 @@ #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) - (cons e1-29517 - e2-29518)))) - tmp-29512) + (cons e1-26669 + e2-26670)))) + tmp-26664) (syntax-violation 'case "bad clause" - x-29449 - clause-29503))))) - (let ((tmp-29526 - (f-29500 - (car clauses-29504) - (cdr clauses-29504)))) - (let ((tmp-29529 + x-26599 + clause-26655))))) + (let ((tmp-26677 + (f-26652 + (car clauses-26656) + (cdr clauses-26656)))) + (let ((tmp-26680 ($sc-dispatch - clause-29503 + clause-26655 '(each-any any . each-any)))) - (if tmp-29529 + (if tmp-26680 (@apply - (lambda (k-29533 e1-29534 e2-29535) + (lambda (k-26682 e1-26683 e2-26684) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29439" - "l-*-29440" - "l-*-29441")) + #("l-*-26591" + "l-*-26592" + "l-*-26593")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29435")) + #("l-*-26587")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) (list '#(syntax-object memv @@ -25981,32 +26064,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29439" - "l-*-29440" - "l-*-29441")) + #("l-*-26591" + "l-*-26592" + "l-*-26593")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29435")) + #("l-*-26587")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) '#(syntax-object t @@ -26014,32 +26097,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29439" - "l-*-29440" - "l-*-29441")) + #("l-*-26591" + "l-*-26592" + "l-*-26593")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29435")) + #("l-*-26587")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) (list '#(syntax-object quote @@ -26049,9 +26132,9 @@ #((top) (top) (top)) - #("l-*-29439" - "l-*-29440" - "l-*-29441")) + #("l-*-26591" + "l-*-26592" + "l-*-26593")) #(ribcage () () @@ -26059,7 +26142,7 @@ #(ribcage #(rest) #((top)) - #("l-*-29435")) + #("l-*-26587")) #(ribcage () () @@ -26071,17 +26154,17 @@ #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () @@ -26089,63 +26172,63 @@ #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) - k-29533)) + k-26682)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29439" - "l-*-29440" - "l-*-29441")) + #("l-*-26591" + "l-*-26592" + "l-*-26593")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29435")) + #("l-*-26587")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29408" - "l-*-29409" - "l-*-29410")) + #("l-*-26562" + "l-*-26563" + "l-*-26564")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) - (cons e1-29534 e2-29535)) - tmp-29526)) - tmp-29529) + (cons e1-26683 e2-26684)) + tmp-26677)) + tmp-26680) (syntax-violation 'case "bad clause" - x-29449 - clause-29503)))))))) - (f-29500 m1-29456 m2-29457)))) - (let ((body-29459 tmp-29458)) + 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-*-29406")) + #(ribcage #(body) #((top)) #("l-*-26560")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" "l-*-29399" "l-*-29400")) + #("l-*-26552" "l-*-26553" "l-*-26554")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29395"))) + #(ribcage #(x) #((top)) #("l-*-26549"))) (hygiene guile)) (list (list '#(syntax-object t @@ -26154,122 +26237,122 @@ #(ribcage #(body) #((top)) - #("l-*-29406")) + #("l-*-26560")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29398" - "l-*-29399" - "l-*-29400")) + #("l-*-26552" + "l-*-26553" + "l-*-26554")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29395"))) + #("l-*-26549"))) (hygiene guile)) - e-29455)) - body-29459)))) - tmp-29451) + e-26605)) + body-26609)))) + tmp-26601) (syntax-violation #f "source expression failed to match any pattern" - x-29449)))))) + x-26599)))))) (define make-variable-transformer - (lambda (proc-29553) - (if (procedure? proc-29553) + (lambda (proc-26699) + (if (procedure? proc-26699) (letrec* - ((trans-29554 - (lambda (x-29560) (proc-29553 x-29560)))) + ((trans-26700 + (lambda (x-26706) (proc-26699 x-26706)))) (begin (set-procedure-property! - trans-29554 + trans-26700 'variable-transformer #t) - trans-29554)) + trans-26700)) (error "variable transformer not a procedure" - proc-29553)))) + proc-26699)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (x-29592) - (let ((tmp-29594 ($sc-dispatch x-29592 '(_ any)))) - (if tmp-29594 + (lambda (x-26738) + (let ((tmp-26740 ($sc-dispatch x-26738 '(_ any)))) + (if tmp-26740 (@apply - (lambda (e-29598) + (lambda (e-26744) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26277,34 +26360,34 @@ #(ribcage #(e) #((top)) - #("l-*-29567")) + #("l-*-26713")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - e-29598)) + e-26744)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("l-*-29567")) + #(ribcage #(e) #((top)) #("l-*-26713")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile))) (list '#(syntax-object syntax @@ -26312,26 +26395,26 @@ #(ribcage #(e) #((top)) - #("l-*-29567")) + #("l-*-26713")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - (cons e-29598 + (cons e-26744 '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("l-*-29567")) + #("l-*-26713")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) #(syntax-object ... @@ -26339,59 +26422,59 @@ #(ribcage #(e) #((top)) - #("l-*-29567")) + #("l-*-26713")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile))))))))) - tmp-29594) - (let ((tmp-29599 + tmp-26740) + (let ((tmp-26745 ($sc-dispatch - x-29592 + x-26738 '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile))) any any) any))))) - (if (if tmp-29599 + (if (if tmp-26745 (@apply - (lambda (id-29603 - exp1-29604 - var-29605 - val-29606 - exp2-29607) - (if (identifier? id-29603) - (identifier? var-29605) + (lambda (id-26749 + exp1-26750 + var-26751 + val-26752 + exp2-26753) + (if (identifier? id-26749) + (identifier? var-26751) #f)) - tmp-29599) + tmp-26745) #f) (@apply - (lambda (id-29608 - exp1-29609 - var-29610 - val-29611 - exp2-29612) + (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-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26399,13 +26482,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) '(#(syntax-object x @@ -26413,13 +26496,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26427,13 +26510,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)) . #(syntax-object @@ -26442,13 +26525,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29564"))) + #(ribcage #(x) #((top)) #("l-*-26710"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26456,16 +26539,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) '#(syntax-object x @@ -26473,16 +26556,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) '(#(syntax-object set! @@ -26490,16 +26573,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26511,19 +26594,19 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - var-29610 - val-29611) + var-26756 + val-26757) (list '#(syntax-object syntax ((top) @@ -26534,19 +26617,19 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - exp2-29612)) - (list (cons id-29608 + exp2-26758)) + (list (cons id-26754 '(#(syntax-object x ((top) @@ -26557,16 +26640,16 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) #(syntax-object ... @@ -26578,16 +26661,16 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26599,18 +26682,18 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - (cons exp1-29609 + (cons exp1-26755 '(#(syntax-object x ((top) @@ -26625,16 +26708,16 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) #(syntax-object ... @@ -26650,18 +26733,18 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)))))) - (list id-29608 + (list id-26754 (list '#(syntax-object identifier? ((top) @@ -26672,16 +26755,16 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26697,18 +26780,18 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - id-29608)) + id-26754)) (list '#(syntax-object syntax ((top) @@ -26719,99 +26802,89 @@ (top) (top) (top)) - #("l-*-29582" - "l-*-29583" - "l-*-29584" - "l-*-29585" - "l-*-29586")) + #("l-*-26728" + "l-*-26729" + "l-*-26730" + "l-*-26731" + "l-*-26732")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29564"))) + #("l-*-26710"))) (hygiene guile)) - exp1-29609)))))) - tmp-29599) + exp1-26755)))))) + tmp-26745) (syntax-violation #f "source expression failed to match any pattern" - x-29592)))))))) + x-26738)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (x-29644) - (let ((tmp-29646 + (lambda (x-26790) + (let ((tmp-26792 ($sc-dispatch - x-29644 + x-26790 '(_ (any . any) any . each-any)))) - (if tmp-29646 + (if tmp-26792 (@apply - (lambda (id-29650 args-29651 b0-29652 b1-29653) + (lambda (id-26796 args-26797 b0-26798 b1-26799) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-29626" - "l-*-29627" - "l-*-29628" - "l-*-29629")) + #("l-*-26772" + "l-*-26773" + "l-*-26774" + "l-*-26775")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29623"))) + #(ribcage #(x) #((top)) #("l-*-26769"))) (hygiene guile)) - id-29650 + id-26796 (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-29626" - "l-*-29627" - "l-*-29628" - "l-*-29629")) + #("l-*-26772" + "l-*-26773" + "l-*-26774" + "l-*-26775")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29623"))) + #(ribcage #(x) #((top)) #("l-*-26769"))) (hygiene guile)) - (cons args-29651 (cons b0-29652 b1-29653))))) - tmp-29646) - (let ((tmp-29654 ($sc-dispatch x-29644 '(_ any any)))) - (if (if tmp-29654 + (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-29658 val-29659) - (identifier? - '#(syntax-object - x - ((top) - #(ribcage - #(id val) - #((top) (top)) - #("l-*-29636" "l-*-29637")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29623"))) - (hygiene guile)))) - tmp-29654) + (lambda (id-26804 val-26805) + (identifier? id-26804)) + tmp-26800) #f) (@apply - (lambda (id-29660 val-29661) + (lambda (id-26806 val-26807) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("l-*-29640" "l-*-29641")) + #("l-*-26786" "l-*-26787")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29623"))) + #(ribcage #(x) #((top)) #("l-*-26769"))) (hygiene guile)) - id-29660 - val-29661)) - tmp-29654) + id-26806 + val-26807)) + tmp-26800) (syntax-violation #f "source expression failed to match any pattern" - x-29644)))))))) + x-26790)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 429006920..7f2f3e383 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2451,7 +2451,7 @@ (if (and (id? #'pat) (and-map (lambda (x) (not (free-id=? #'pat x))) (cons #'(... ...) keys))) - (if (free-id=? #'pad #'_) + (if (free-id=? #'pat #'_) (expand #'exp r empty-wrap mod) (let ((labels (list (gen-label))) (var (gen-var #'pat))) @@ -3053,5 +3053,5 @@ (syntax-case x () ((_ (id . args) b0 b1 ...) #'(define id (lambda* args b0 b1 ...))) - ((_ id val) (identifier? #'x) + ((_ id val) (identifier? #'id) #'(define id val)))))