From 40e92f09fc3330aa33a169ad1aa6bf458633984c Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 26 Jan 2012 23:55:24 -0500 Subject: [PATCH] Fix error messages involving definition forms * module/ice-9/psyntax.scm (syntax-type): Return an additional value that contains the entire form in _all_ cases, including for definition forms. Previously, the entire form was not returned for definition forms. (expand-expr): Add an additional argument that contains the entire form in _all_ cases, including for definition forms. Use it to include the entire form in error messages, notably for definitions in expression context. Include the source location information, which was previously missing from these errors when the rhs expression was an atom. Improve the "definition in expression context" error message to be more comprehensible for Scheme beginners. (expand-top-sequence, expand, expand-body): Adjust as needed to handle the additional return value from 'syntax-type' and the additional argument to 'expand-expr'. * module/ice-9/psyntax-pp.scm: Regenerate. * NEWS: Update. --- NEWS | 1 + module/ice-9/psyntax-pp.scm | 22721 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 75 +- 3 files changed, 11472 insertions(+), 11325 deletions(-) diff --git a/NEWS b/NEWS index ad0910ceb..a91490568 100644 --- a/NEWS +++ b/NEWS @@ -173,6 +173,7 @@ Search the manual for these identifiers and modules, for more. ** Fix serialization. ** Fix erroneous check in `set-procedure-properties!'. ** Fix generalized-vector-{ref,set!} for slices. +** Fix error messages involving definition forms. ** HTTP: Extend handling of "Cache-Control" header. ** HTTP: Fix qstring writing of cache-extension values ** HTTP: Fix validators for various list-style headers. diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 2f9c0d5d0..24343d8c8 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1243 +1,1268 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((session-id-4447 (if #f #f)) - (transformer-environment-4508 (if #f #f))) +(let ((session-id-6510 (if #f #f)) + (transformer-environment-6571 (if #f #f))) (letrec* - ((top-level-eval-hook-4445 - (lambda (x-27176 mod-27177) - (primitive-eval x-27176))) - (get-global-definition-hook-4449 - (lambda (symbol-15643 module-15644) + ((top-level-eval-hook-6508 + (lambda (x-29318 mod-29319) + (primitive-eval x-29318))) + (get-global-definition-hook-6512 + (lambda (symbol-17709 module-17710) (begin - (if (if (not module-15644) (current-module) #f) + (if (if (not module-17710) (current-module) #f) (warn "module system is booted, we should have a module" - symbol-15643)) - (let ((v-15645 + symbol-17709)) + (let ((v-17711 (module-variable - (if module-15644 - (resolve-module (cdr module-15644)) + (if module-17710 + (resolve-module (cdr module-17710)) (current-module)) - symbol-15643))) - (if v-15645 - (if (variable-bound? v-15645) - (let ((val-15647 (variable-ref v-15645))) - (if (macro? val-15647) - (if (macro-type val-15647) - (cons (macro-type val-15647) - (macro-binding val-15647)) + symbol-17709))) + (if v-17711 + (if (variable-bound? v-17711) + (let ((val-17713 (variable-ref v-17711))) + (if (macro? val-17713) + (if (macro-type val-17713) + (cons (macro-type val-17713) + (macro-binding val-17713)) #f) #f)) #f) #f))))) - (maybe-name-value!-4451 - (lambda (name-15924 val-15925) - (if (if (struct? val-15925) - (eq? (struct-vtable val-15925) + (maybe-name-value!-6514 + (lambda (name-17990 val-17991) + (if (if (struct? val-17991) + (eq? (struct-vtable val-17991) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15932 (struct-ref val-15925 1))) - (if (not (assq 'name meta-15932)) - (let ((v-15937 - (cons (cons 'name name-15924) meta-15932))) - (struct-set! val-15925 1 v-15937))))))) - (build-application-4453 - (lambda (source-15649 fun-exp-15650 arg-exps-15651) + (let ((meta-17998 (struct-ref val-17991 1))) + (if (not (assq 'name meta-17998)) + (let ((v-18003 + (cons (cons 'name name-17990) meta-17998))) + (struct-set! val-17991 1 v-18003))))))) + (build-application-6516 + (lambda (source-17715 fun-exp-17716 arg-exps-17717) (make-struct/no-tail (vector-ref %expanded-vtables 11) - source-15649 - fun-exp-15650 - arg-exps-15651))) - (build-conditional-4454 - (lambda (source-15657 - test-exp-15658 - then-exp-15659 - else-exp-15660) + source-17715 + fun-exp-17716 + arg-exps-17717))) + (build-conditional-6517 + (lambda (source-17723 + test-exp-17724 + then-exp-17725 + else-exp-17726) (make-struct/no-tail (vector-ref %expanded-vtables 10) - source-15657 - test-exp-15658 - then-exp-15659 - else-exp-15660))) - (build-dynlet-4455 - (lambda (source-15667 fluids-15668 vals-15669 body-15670) + source-17723 + test-exp-17724 + then-exp-17725 + else-exp-17726))) + (build-dynlet-6518 + (lambda (source-17733 fluids-17734 vals-17735 body-17736) (make-struct/no-tail (vector-ref %expanded-vtables 17) - source-15667 - fluids-15668 - vals-15669 - body-15670))) - (build-lexical-reference-4456 - (lambda (type-27178 source-27179 name-27180 var-27181) + source-17733 + fluids-17734 + vals-17735 + body-17736))) + (build-lexical-reference-6519 + (lambda (type-29320 source-29321 name-29322 var-29323) (make-struct/no-tail (vector-ref %expanded-vtables 3) - source-27179 - name-27180 - var-27181))) - (build-lexical-assignment-4457 - (lambda (source-15677 name-15678 var-15679 exp-15680) + source-29321 + name-29322 + var-29323))) + (build-lexical-assignment-6520 + (lambda (source-17743 name-17744 var-17745 exp-17746) (begin - (if (if (struct? exp-15680) - (eq? (struct-vtable exp-15680) + (if (if (struct? exp-17746) + (eq? (struct-vtable exp-17746) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15696 (struct-ref exp-15680 1))) - (if (not (assq 'name meta-15696)) - (let ((v-15703 - (cons (cons 'name name-15678) meta-15696))) - (struct-set! exp-15680 1 v-15703))))) + (let ((meta-17762 (struct-ref exp-17746 1))) + (if (not (assq 'name meta-17762)) + (let ((v-17769 + (cons (cons 'name name-17744) meta-17762))) + (struct-set! exp-17746 1 v-17769))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - source-15677 - name-15678 - var-15679 - exp-15680)))) - (analyze-variable-4458 - (lambda (mod-27187 - var-27188 - modref-cont-27189 - bare-cont-27190) - (if (not mod-27187) - (bare-cont-27190 var-27188) - (let ((kind-27191 (car mod-27187)) - (mod-27192 (cdr mod-27187))) - (if (eqv? kind-27191 'public) - (modref-cont-27189 mod-27192 var-27188 #t) - (if (eqv? kind-27191 'private) - (if (not (equal? mod-27192 (module-name (current-module)))) - (modref-cont-27189 mod-27192 var-27188 #f) - (bare-cont-27190 var-27188)) - (if (eqv? kind-27191 'bare) - (bare-cont-27190 var-27188) - (if (eqv? kind-27191 'hygiene) + source-17743 + name-17744 + var-17745 + exp-17746)))) + (analyze-variable-6521 + (lambda (mod-29329 + var-29330 + modref-cont-29331 + bare-cont-29332) + (if (not mod-29329) + (bare-cont-29332 var-29330) + (let ((kind-29333 (car mod-29329)) + (mod-29334 (cdr mod-29329))) + (if (eqv? kind-29333 'public) + (modref-cont-29331 mod-29334 var-29330 #t) + (if (eqv? kind-29333 'private) + (if (not (equal? mod-29334 (module-name (current-module)))) + (modref-cont-29331 mod-29334 var-29330 #f) + (bare-cont-29332 var-29330)) + (if (eqv? kind-29333 'bare) + (bare-cont-29332 var-29330) + (if (eqv? kind-29333 'hygiene) (if (if (not (equal? - mod-27192 + mod-29334 (module-name (current-module)))) (module-variable - (resolve-module mod-27192) - var-27188) + (resolve-module mod-29334) + var-29330) #f) - (modref-cont-27189 mod-27192 var-27188 #f) - (bare-cont-27190 var-27188)) + (modref-cont-29331 mod-29334 var-29330 #f) + (bare-cont-29332 var-29330)) (syntax-violation #f "bad module kind" - var-27188 - mod-27192))))))))) - (build-global-reference-4459 - (lambda (source-27207 var-27208 mod-27209) - (analyze-variable-4458 - mod-27209 - var-27208 - (lambda (mod-27212 var-27213 public?-27214) + var-29330 + mod-29334))))))))) + (build-global-reference-6522 + (lambda (source-29349 var-29350 mod-29351) + (analyze-variable-6521 + mod-29351 + var-29350 + (lambda (mod-29354 var-29355 public?-29356) (make-struct/no-tail (vector-ref %expanded-vtables 5) - source-27207 - mod-27212 - var-27213 - public?-27214)) - (lambda (var-27222) + source-29349 + mod-29354 + var-29355 + public?-29356)) + (lambda (var-29364) (make-struct/no-tail (vector-ref %expanded-vtables 7) - source-27207 - var-27222))))) - (build-global-assignment-4460 - (lambda (source-15712 var-15713 exp-15714 mod-15715) + source-29349 + var-29364))))) + (build-global-assignment-6523 + (lambda (source-17778 var-17779 exp-17780 mod-17781) (begin - (if (if (struct? exp-15714) - (eq? (struct-vtable exp-15714) + (if (if (struct? exp-17780) + (eq? (struct-vtable exp-17780) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15731 (struct-ref exp-15714 1))) - (if (not (assq 'name meta-15731)) - (let ((v-15738 - (cons (cons 'name var-15713) meta-15731))) - (struct-set! exp-15714 1 v-15738))))) - (analyze-variable-4458 - mod-15715 - var-15713 - (lambda (mod-15743 var-15744 public?-15745) + (let ((meta-17797 (struct-ref exp-17780 1))) + (if (not (assq 'name meta-17797)) + (let ((v-17804 + (cons (cons 'name var-17779) meta-17797))) + (struct-set! exp-17780 1 v-17804))))) + (analyze-variable-6521 + mod-17781 + var-17779 + (lambda (mod-17809 var-17810 public?-17811) (make-struct/no-tail (vector-ref %expanded-vtables 6) - source-15712 - mod-15743 - var-15744 - public?-15745 - exp-15714)) - (lambda (var-15753) + source-17778 + mod-17809 + var-17810 + public?-17811 + exp-17780)) + (lambda (var-17819) (make-struct/no-tail (vector-ref %expanded-vtables 8) - source-15712 - var-15753 - exp-15714)))))) - (build-global-definition-4461 - (lambda (source-27228 var-27229 exp-27230) + source-17778 + var-17819 + exp-17780)))))) + (build-global-definition-6524 + (lambda (source-29370 var-29371 exp-29372) (begin - (if (if (struct? exp-27230) - (eq? (struct-vtable exp-27230) + (if (if (struct? exp-29372) + (eq? (struct-vtable exp-29372) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-27246 (struct-ref exp-27230 1))) - (if (not (assq 'name meta-27246)) - (let ((v-27253 - (cons (cons 'name var-27229) meta-27246))) - (struct-set! exp-27230 1 v-27253))))) + (let ((meta-29388 (struct-ref exp-29372 1))) + (if (not (assq 'name meta-29388)) + (let ((v-29395 + (cons (cons 'name var-29371) meta-29388))) + (struct-set! exp-29372 1 v-29395))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - source-27228 - var-27229 - exp-27230)))) - (build-simple-lambda-4462 - (lambda (src-15759 - req-15760 - rest-15761 - vars-15762 - meta-15763 - exp-15764) - (let ((body-15770 + source-29370 + var-29371 + exp-29372)))) + (build-simple-lambda-6525 + (lambda (src-17825 + req-17826 + rest-17827 + vars-17828 + meta-17829 + exp-17830) + (let ((body-17836 (make-struct/no-tail (vector-ref %expanded-vtables 14) - src-15759 - req-15760 + src-17825 + req-17826 #f - rest-15761 + rest-17827 #f '() - vars-15762 - exp-15764 + vars-17828 + exp-17830 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-15759 - meta-15763 - body-15770)))) - (build-sequence-4467 - (lambda (src-27261 exps-27262) - (if (null? (cdr exps-27262)) - (car exps-27262) + src-17825 + meta-17829 + body-17836)))) + (build-sequence-6530 + (lambda (src-29403 exps-29404) + (if (null? (cdr exps-29404)) + (car exps-29404) (make-struct/no-tail (vector-ref %expanded-vtables 12) - src-27261 - exps-27262)))) - (build-let-4468 - (lambda (src-15782 - ids-15783 - vars-15784 - val-exps-15785 - body-exp-15786) + src-29403 + exps-29404)))) + (build-let-6531 + (lambda (src-17848 + ids-17849 + vars-17850 + val-exps-17851 + body-exp-17852) (begin (for-each - maybe-name-value!-4451 - ids-15783 - val-exps-15785) - (if (null? vars-15784) - body-exp-15786 + maybe-name-value!-6514 + ids-17849 + val-exps-17851) + (if (null? vars-17850) + body-exp-17852 (make-struct/no-tail (vector-ref %expanded-vtables 15) - src-15782 - ids-15783 - vars-15784 - val-exps-15785 - body-exp-15786))))) - (build-named-let-4469 - (lambda (src-15810 - ids-15811 - vars-15812 - val-exps-15813 - body-exp-15814) - (let ((f-15815 (car vars-15812)) - (f-name-15816 (car ids-15811)) - (vars-15817 (cdr vars-15812)) - (ids-15818 (cdr ids-15811))) - (let ((proc-15819 - (let ((body-15839 + src-17848 + ids-17849 + vars-17850 + val-exps-17851 + body-exp-17852))))) + (build-named-let-6532 + (lambda (src-17876 + ids-17877 + vars-17878 + val-exps-17879 + body-exp-17880) + (let ((f-17881 (car vars-17878)) + (f-name-17882 (car ids-17877)) + (vars-17883 (cdr vars-17878)) + (ids-17884 (cdr ids-17877))) + (let ((proc-17885 + (let ((body-17905 (make-struct/no-tail (vector-ref %expanded-vtables 14) - src-15810 - ids-15818 + src-17876 + ids-17884 #f #f #f '() - vars-15817 - body-exp-15814 + vars-17883 + body-exp-17880 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-15810 + src-17876 '() - body-15839)))) + body-17905)))) (begin - (if (if (struct? proc-15819) - (eq? (struct-vtable proc-15819) + (if (if (struct? proc-17885) + (eq? (struct-vtable proc-17885) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15863 (struct-ref proc-15819 1))) - (if (not (assq 'name meta-15863)) - (let ((v-15870 - (cons (cons 'name f-name-15816) meta-15863))) - (struct-set! proc-15819 1 v-15870))))) + (let ((meta-17929 (struct-ref proc-17885 1))) + (if (not (assq 'name meta-17929)) + (let ((v-17936 + (cons (cons 'name f-name-17882) meta-17929))) + (struct-set! proc-17885 1 v-17936))))) (for-each - maybe-name-value!-4451 - ids-15818 - val-exps-15813) - (let ((names-15894 (list f-name-15816)) - (gensyms-15895 (list f-15815)) - (vals-15896 (list proc-15819)) - (body-15897 - (let ((fun-exp-15901 + maybe-name-value!-6514 + ids-17884 + val-exps-17879) + (let ((names-17960 (list f-name-17882)) + (gensyms-17961 (list f-17881)) + (vals-17962 (list proc-17885)) + (body-17963 + (let ((fun-exp-17967 (make-struct/no-tail (vector-ref %expanded-vtables 3) - src-15810 - f-name-15816 - f-15815))) + src-17876 + f-name-17882 + f-17881))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - src-15810 - fun-exp-15901 - val-exps-15813)))) + src-17876 + fun-exp-17967 + val-exps-17879)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-15810 + src-17876 #f - names-15894 - gensyms-15895 - vals-15896 - body-15897))))))) - (build-letrec-4470 - (lambda (src-15917 - in-order?-15918 - ids-15919 - vars-15920 - val-exps-15921 - body-exp-15922) - (if (null? vars-15920) - body-exp-15922 + names-17960 + gensyms-17961 + vals-17962 + body-17963))))))) + (build-letrec-6533 + (lambda (src-17983 + in-order?-17984 + ids-17985 + vars-17986 + val-exps-17987 + body-exp-17988) + (if (null? vars-17986) + body-exp-17988 (begin (for-each - maybe-name-value!-4451 - ids-15919 - val-exps-15921) + maybe-name-value!-6514 + ids-17985 + val-exps-17987) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-15917 - in-order?-15918 - ids-15919 - vars-15920 - val-exps-15921 - body-exp-15922))))) - (source-annotation-4479 - (lambda (x-15948) - (if (if (vector? x-15948) - (if (= (vector-length x-15948) 4) - (eq? (vector-ref x-15948 0) 'syntax-object) + src-17983 + in-order?-17984 + ids-17985 + vars-17986 + val-exps-17987 + body-exp-17988))))) + (source-annotation-6542 + (lambda (x-18014) + (if (if (vector? x-18014) + (if (= (vector-length x-18014) 4) + (eq? (vector-ref x-18014 0) 'syntax-object) #f) #f) - (source-annotation-4479 (vector-ref x-15948 1)) - (if (pair? x-15948) - (let ((props-15963 (source-properties x-15948))) - (if (pair? props-15963) props-15963 #f)) + (source-annotation-6542 (vector-ref x-18014 1)) + (if (pair? x-18014) + (let ((props-18029 (source-properties x-18014))) + (if (pair? props-18029) props-18029 #f)) #f)))) - (extend-env-4480 - (lambda (labels-15965 bindings-15966 r-15967) - (if (null? labels-15965) - r-15967 - (extend-env-4480 - (cdr labels-15965) - (cdr bindings-15966) - (cons (cons (car labels-15965) (car bindings-15966)) - r-15967))))) - (extend-var-env-4481 - (lambda (labels-15968 vars-15969 r-15970) - (if (null? labels-15968) - r-15970 - (extend-var-env-4481 - (cdr labels-15968) - (cdr vars-15969) - (cons (cons (car labels-15968) - (cons 'lexical (car vars-15969))) - r-15970))))) - (macros-only-env-4482 - (lambda (r-15971) - (if (null? r-15971) + (extend-env-6543 + (lambda (labels-18031 bindings-18032 r-18033) + (if (null? labels-18031) + r-18033 + (extend-env-6543 + (cdr labels-18031) + (cdr bindings-18032) + (cons (cons (car labels-18031) (car bindings-18032)) + r-18033))))) + (extend-var-env-6544 + (lambda (labels-18034 vars-18035 r-18036) + (if (null? labels-18034) + r-18036 + (extend-var-env-6544 + (cdr labels-18034) + (cdr vars-18035) + (cons (cons (car labels-18034) + (cons 'lexical (car vars-18035))) + r-18036))))) + (macros-only-env-6545 + (lambda (r-18037) + (if (null? r-18037) '() - (let ((a-15972 (car r-15971))) - (if (eq? (car (cdr a-15972)) 'macro) - (cons a-15972 - (macros-only-env-4482 (cdr r-15971))) - (macros-only-env-4482 (cdr r-15971))))))) - (global-extend-4484 - (lambda (type-15974 sym-15975 val-15976) + (let ((a-18038 (car r-18037))) + (if (eq? (car (cdr a-18038)) 'macro) + (cons a-18038 + (macros-only-env-6545 (cdr r-18037))) + (macros-only-env-6545 (cdr r-18037))))))) + (global-extend-6547 + (lambda (type-18040 sym-18041 val-18042) (module-define! (current-module) - sym-15975 + sym-18041 (make-syntax-transformer - sym-15975 - type-15974 - val-15976)))) - (id?-4486 - (lambda (x-9787) - (if (symbol? x-9787) + sym-18041 + type-18040 + val-18042)))) + (id?-6549 + (lambda (x-11853) + (if (symbol? x-11853) #t - (if (if (vector? x-9787) - (if (= (vector-length x-9787) 4) - (eq? (vector-ref x-9787 0) 'syntax-object) + (if (if (vector? x-11853) + (if (= (vector-length x-11853) 4) + (eq? (vector-ref x-11853 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-9787 1)) + (symbol? (vector-ref x-11853 1)) #f)))) - (gen-labels-4489 - (lambda (ls-15986) - (if (null? ls-15986) + (gen-labels-6552 + (lambda (ls-18052) + (if (null? ls-18052) '() (cons (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))) - (gen-labels-4489 (cdr ls-15986)))))) - (make-binding-wrap-4500 - (lambda (ids-15990 labels-15991 w-15992) - (if (null? ids-15990) - w-15992 - (cons (car w-15992) - (cons (let ((labelvec-15993 (list->vector labels-15991))) - (let ((n-15994 (vector-length labelvec-15993))) - (let ((symnamevec-15995 (make-vector n-15994)) - (marksvec-15996 (make-vector n-15994))) + (gen-labels-6552 (cdr ls-18052)))))) + (make-binding-wrap-6563 + (lambda (ids-18056 labels-18057 w-18058) + (if (null? ids-18056) + w-18058 + (cons (car w-18058) + (cons (let ((labelvec-18059 (list->vector labels-18057))) + (let ((n-18060 (vector-length labelvec-18059))) + (let ((symnamevec-18061 (make-vector n-18060)) + (marksvec-18062 (make-vector n-18060))) (begin (letrec* - ((f-15997 - (lambda (ids-16000 i-16001) - (if (not (null? ids-16000)) + ((f-18063 + (lambda (ids-18066 i-18067) + (if (not (null? ids-18066)) (call-with-values (lambda () - (let ((x-16004 (car ids-16000))) - (if (if (vector? x-16004) + (let ((x-18070 (car ids-18066))) + (if (if (vector? x-18070) (if (= (vector-length - x-16004) + x-18070) 4) (eq? (vector-ref - x-16004 + x-18070 0) 'syntax-object) #f) #f) (values - (vector-ref x-16004 1) - (let ((m1-16020 - (car w-15992)) - (m2-16021 + (vector-ref x-18070 1) + (let ((m1-18086 + (car w-18058)) + (m2-18087 (car (vector-ref - x-16004 + x-18070 2)))) - (if (null? m2-16021) - m1-16020 + (if (null? m2-18087) + m1-18086 (append - m1-16020 - m2-16021)))) + m1-18086 + m2-18087)))) (values - x-16004 - (car w-15992))))) - (lambda (symname-16041 marks-16042) + x-18070 + (car w-18058))))) + (lambda (symname-18107 marks-18108) (begin (vector-set! - symnamevec-15995 - i-16001 - symname-16041) + symnamevec-18061 + i-18067 + symname-18107) (vector-set! - marksvec-15996 - i-16001 - marks-16042) - (f-15997 - (cdr ids-16000) - (#{1+}# i-16001))))))))) - (f-15997 ids-15990 0)) + marksvec-18062 + i-18067 + marks-18108) + (f-18063 + (cdr ids-18066) + (#{1+}# i-18067))))))))) + (f-18063 ids-18056 0)) (vector 'ribcage - symnamevec-15995 - marksvec-15996 - labelvec-15993))))) - (cdr w-15992)))))) - (join-wraps-4502 - (lambda (w1-16051 w2-16052) - (let ((m1-16053 (car w1-16051)) - (s1-16054 (cdr w1-16051))) - (if (null? m1-16053) - (if (null? s1-16054) - w2-16052 - (cons (car w2-16052) - (let ((m2-16061 (cdr w2-16052))) - (if (null? m2-16061) - s1-16054 - (append s1-16054 m2-16061))))) - (cons (let ((m2-16070 (car w2-16052))) - (if (null? m2-16070) - m1-16053 - (append m1-16053 m2-16070))) - (let ((m2-16079 (cdr w2-16052))) - (if (null? m2-16079) - s1-16054 - (append s1-16054 m2-16079)))))))) - (same-marks?-4504 - (lambda (x-16084 y-16085) - (if (eq? x-16084 y-16085) - (eq? x-16084 y-16085) - (if (not (null? x-16084)) - (if (not (null? y-16085)) - (if (eq? (car x-16084) (car y-16085)) - (same-marks?-4504 (cdr x-16084) (cdr y-16085)) + symnamevec-18061 + marksvec-18062 + labelvec-18059))))) + (cdr w-18058)))))) + (join-wraps-6565 + (lambda (w1-18117 w2-18118) + (let ((m1-18119 (car w1-18117)) + (s1-18120 (cdr w1-18117))) + (if (null? m1-18119) + (if (null? s1-18120) + w2-18118 + (cons (car w2-18118) + (let ((m2-18127 (cdr w2-18118))) + (if (null? m2-18127) + s1-18120 + (append s1-18120 m2-18127))))) + (cons (let ((m2-18136 (car w2-18118))) + (if (null? m2-18136) + m1-18119 + (append m1-18119 m2-18136))) + (let ((m2-18145 (cdr w2-18118))) + (if (null? m2-18145) + s1-18120 + (append s1-18120 m2-18145)))))))) + (same-marks?-6567 + (lambda (x-18150 y-18151) + (if (eq? x-18150 y-18151) + (eq? x-18150 y-18151) + (if (not (null? x-18150)) + (if (not (null? y-18151)) + (if (eq? (car x-18150) (car y-18151)) + (same-marks?-6567 (cdr x-18150) (cdr y-18151)) #f) #f) #f)))) - (id-var-name-4505 - (lambda (id-16093 w-16094) + (id-var-name-6568 + (lambda (id-18159 w-18160) (letrec* - ((search-16095 - (lambda (sym-16156 subst-16157 marks-16158) - (if (null? subst-16157) - (values #f marks-16158) - (let ((fst-16159 (car subst-16157))) - (if (eq? fst-16159 'shift) - (search-16095 - sym-16156 - (cdr subst-16157) - (cdr marks-16158)) - (let ((symnames-16161 (vector-ref fst-16159 1))) - (if (vector? symnames-16161) - (let ((n-16173 (vector-length symnames-16161))) + ((search-18161 + (lambda (sym-18222 subst-18223 marks-18224) + (if (null? subst-18223) + (values #f marks-18224) + (let ((fst-18225 (car subst-18223))) + (if (eq? fst-18225 'shift) + (search-18161 + sym-18222 + (cdr subst-18223) + (cdr marks-18224)) + (let ((symnames-18227 (vector-ref fst-18225 1))) + (if (vector? symnames-18227) + (let ((n-18239 (vector-length symnames-18227))) (letrec* - ((f-16174 - (lambda (i-16176) - (if (= i-16176 n-16173) - (search-16095 - sym-16156 - (cdr subst-16157) - marks-16158) + ((f-18240 + (lambda (i-18242) + (if (= i-18242 n-18239) + (search-18161 + sym-18222 + (cdr subst-18223) + marks-18224) (if (if (eq? (vector-ref - symnames-16161 - i-16176) - sym-16156) - (same-marks?-4504 - marks-16158 + symnames-18227 + i-18242) + sym-18222) + (same-marks?-6567 + marks-18224 (vector-ref - (vector-ref fst-16159 2) - i-16176)) + (vector-ref fst-18225 2) + i-18242)) #f) (values (vector-ref - (vector-ref fst-16159 3) - i-16176) - marks-16158) - (f-16174 (#{1+}# i-16176))))))) - (f-16174 0))) + (vector-ref fst-18225 3) + i-18242) + marks-18224) + (f-18240 (#{1+}# i-18242))))))) + (f-18240 0))) (letrec* - ((f-16209 - (lambda (symnames-16211 i-16212) - (if (null? symnames-16211) - (search-16095 - sym-16156 - (cdr subst-16157) - marks-16158) - (if (if (eq? (car symnames-16211) sym-16156) - (same-marks?-4504 - marks-16158 + ((f-18275 + (lambda (symnames-18277 i-18278) + (if (null? symnames-18277) + (search-18161 + sym-18222 + (cdr subst-18223) + marks-18224) + (if (if (eq? (car symnames-18277) sym-18222) + (same-marks?-6567 + marks-18224 (list-ref - (vector-ref fst-16159 2) - i-16212)) + (vector-ref fst-18225 2) + i-18278)) #f) (values (list-ref - (vector-ref fst-16159 3) - i-16212) - marks-16158) - (f-16209 - (cdr symnames-16211) - (#{1+}# i-16212))))))) - (f-16209 symnames-16161 0)))))))))) - (if (symbol? id-16093) - (let ((t-16098 - (search-16095 - id-16093 - (cdr w-16094) - (car w-16094)))) - (if t-16098 t-16098 id-16093)) - (if (if (vector? id-16093) - (if (= (vector-length id-16093) 4) - (eq? (vector-ref id-16093 0) 'syntax-object) + (vector-ref fst-18225 3) + i-18278) + marks-18224) + (f-18275 + (cdr symnames-18277) + (#{1+}# i-18278))))))) + (f-18275 symnames-18227 0)))))))))) + (if (symbol? id-18159) + (let ((t-18164 + (search-18161 + id-18159 + (cdr w-18160) + (car w-18160)))) + (if t-18164 t-18164 id-18159)) + (if (if (vector? id-18159) + (if (= (vector-length id-18159) 4) + (eq? (vector-ref id-18159 0) 'syntax-object) #f) #f) - (let ((id-16113 (vector-ref id-16093 1)) - (w1-16114 (vector-ref id-16093 2))) - (let ((marks-16115 - (let ((m1-16125 (car w-16094)) - (m2-16126 (car w1-16114))) - (if (null? m2-16126) - m1-16125 - (append m1-16125 m2-16126))))) + (let ((id-18179 (vector-ref id-18159 1)) + (w1-18180 (vector-ref id-18159 2))) + (let ((marks-18181 + (let ((m1-18191 (car w-18160)) + (m2-18192 (car w1-18180))) + (if (null? m2-18192) + m1-18191 + (append m1-18191 m2-18192))))) (call-with-values (lambda () - (search-16095 id-16113 (cdr w-16094) marks-16115)) - (lambda (new-id-16142 marks-16143) - (if new-id-16142 - new-id-16142 - (let ((t-16151 - (search-16095 - id-16113 - (cdr w1-16114) - marks-16143))) - (if t-16151 t-16151 id-16113))))))) + (search-18161 id-18179 (cdr w-18160) marks-18181)) + (lambda (new-id-18208 marks-18209) + (if new-id-18208 + new-id-18208 + (let ((t-18217 + (search-18161 + id-18179 + (cdr w1-18180) + marks-18209))) + (if t-18217 t-18217 id-18179))))))) (syntax-violation 'id-var-name "invalid id" - id-16093)))))) - (locally-bound-identifiers-4506 - (lambda (w-16234 mod-16235) + id-18159)))))) + (locally-bound-identifiers-6569 + (lambda (w-18300 mod-18301) (letrec* - ((scan-16236 - (lambda (subst-16241 results-16242) - (if (null? subst-16241) - results-16242 - (let ((fst-16243 (car subst-16241))) - (if (eq? fst-16243 'shift) - (scan-16236 (cdr subst-16241) results-16242) - (let ((symnames-16245 (vector-ref fst-16243 1)) - (marks-16246 (vector-ref fst-16243 2))) - (if (vector? symnames-16245) - (scan-vector-rib-16238 - subst-16241 - symnames-16245 - marks-16246 - results-16242) - (scan-list-rib-16237 - subst-16241 - symnames-16245 - marks-16246 - results-16242)))))))) - (scan-list-rib-16237 - (lambda (subst-16344 - symnames-16345 - marks-16346 - results-16347) + ((scan-18302 + (lambda (subst-18307 results-18308) + (if (null? subst-18307) + results-18308 + (let ((fst-18309 (car subst-18307))) + (if (eq? fst-18309 'shift) + (scan-18302 (cdr subst-18307) results-18308) + (let ((symnames-18311 (vector-ref fst-18309 1)) + (marks-18312 (vector-ref fst-18309 2))) + (if (vector? symnames-18311) + (scan-vector-rib-18304 + subst-18307 + symnames-18311 + marks-18312 + results-18308) + (scan-list-rib-18303 + subst-18307 + symnames-18311 + marks-18312 + results-18308)))))))) + (scan-list-rib-18303 + (lambda (subst-18410 + symnames-18411 + marks-18412 + results-18413) (letrec* - ((f-16348 - (lambda (symnames-16448 marks-16449 results-16450) - (if (null? symnames-16448) - (scan-16236 (cdr subst-16344) results-16450) - (f-16348 - (cdr symnames-16448) - (cdr marks-16449) - (cons (wrap-4515 - (car symnames-16448) - (let ((w-16458 - (cons (car marks-16449) - subst-16344))) - (cons (cons #f (car w-16458)) - (cons 'shift (cdr w-16458)))) - mod-16235) - results-16450)))))) - (f-16348 - symnames-16345 - marks-16346 - results-16347)))) - (scan-vector-rib-16238 - (lambda (subst-16459 - symnames-16460 - marks-16461 - results-16462) - (let ((n-16463 (vector-length symnames-16460))) + ((f-18414 + (lambda (symnames-18514 marks-18515 results-18516) + (if (null? symnames-18514) + (scan-18302 (cdr subst-18410) results-18516) + (f-18414 + (cdr symnames-18514) + (cdr marks-18515) + (cons (wrap-6578 + (car symnames-18514) + (let ((w-18524 + (cons (car marks-18515) + subst-18410))) + (cons (cons #f (car w-18524)) + (cons 'shift (cdr w-18524)))) + mod-18301) + results-18516)))))) + (f-18414 + symnames-18411 + marks-18412 + results-18413)))) + (scan-vector-rib-18304 + (lambda (subst-18525 + symnames-18526 + marks-18527 + results-18528) + (let ((n-18529 (vector-length symnames-18526))) (letrec* - ((f-16464 - (lambda (i-16547 results-16548) - (if (= i-16547 n-16463) - (scan-16236 (cdr subst-16459) results-16548) - (f-16464 - (#{1+}# i-16547) - (cons (wrap-4515 - (vector-ref symnames-16460 i-16547) - (let ((w-16556 + ((f-18530 + (lambda (i-18613 results-18614) + (if (= i-18613 n-18529) + (scan-18302 (cdr subst-18525) results-18614) + (f-18530 + (#{1+}# i-18613) + (cons (wrap-6578 + (vector-ref symnames-18526 i-18613) + (let ((w-18622 (cons (vector-ref - marks-16461 - i-16547) - subst-16459))) - (cons (cons #f (car w-16556)) - (cons 'shift (cdr w-16556)))) - mod-16235) - results-16548)))))) - (f-16464 0 results-16462)))))) - (scan-16236 (cdr w-16234) '())))) - (valid-bound-ids?-4512 - (lambda (ids-16557) + marks-18527 + i-18613) + subst-18525))) + (cons (cons #f (car w-18622)) + (cons 'shift (cdr w-18622)))) + mod-18301) + results-18614)))))) + (f-18530 0 results-18528)))))) + (scan-18302 (cdr w-18300) '())))) + (valid-bound-ids?-6575 + (lambda (ids-18623) (if (letrec* - ((all-ids?-16558 - (lambda (ids-16720) - (if (null? ids-16720) - (null? ids-16720) - (if (let ((x-16731 (car ids-16720))) - (if (symbol? x-16731) + ((all-ids?-18624 + (lambda (ids-18786) + (if (null? ids-18786) + (null? ids-18786) + (if (let ((x-18797 (car ids-18786))) + (if (symbol? x-18797) #t - (if (if (vector? x-16731) - (if (= (vector-length x-16731) 4) - (eq? (vector-ref x-16731 0) + (if (if (vector? x-18797) + (if (= (vector-length x-18797) 4) + (eq? (vector-ref x-18797 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-16731 1)) + (symbol? (vector-ref x-18797 1)) #f))) - (all-ids?-16558 (cdr ids-16720)) + (all-ids?-18624 (cdr ids-18786)) #f))))) - (all-ids?-16558 ids-16557)) - (distinct-bound-ids?-4513 ids-16557) + (all-ids?-18624 ids-18623)) + (distinct-bound-ids?-6576 ids-18623) #f))) - (distinct-bound-ids?-4513 - (lambda (ids-16859) + (distinct-bound-ids?-6576 + (lambda (ids-18925) (letrec* - ((distinct?-16860 - (lambda (ids-16972) - (if (null? ids-16972) - (null? ids-16972) - (if (not (bound-id-member?-4514 - (car ids-16972) - (cdr ids-16972))) - (distinct?-16860 (cdr ids-16972)) + ((distinct?-18926 + (lambda (ids-19038) + (if (null? ids-19038) + (null? ids-19038) + (if (not (bound-id-member?-6577 + (car ids-19038) + (cdr ids-19038))) + (distinct?-18926 (cdr ids-19038)) #f))))) - (distinct?-16860 ids-16859)))) - (bound-id-member?-4514 - (lambda (x-17182 list-17183) - (if (not (null? list-17183)) - (let ((t-17184 - (let ((j-17265 (car list-17183))) - (if (if (if (vector? x-17182) - (if (= (vector-length x-17182) 4) - (eq? (vector-ref x-17182 0) 'syntax-object) + (distinct?-18926 ids-18925)))) + (bound-id-member?-6577 + (lambda (x-19248 list-19249) + (if (not (null? list-19249)) + (let ((t-19250 + (let ((j-19331 (car list-19249))) + (if (if (if (vector? x-19248) + (if (= (vector-length x-19248) 4) + (eq? (vector-ref x-19248 0) 'syntax-object) #f) #f) - (if (vector? j-17265) - (if (= (vector-length j-17265) 4) - (eq? (vector-ref j-17265 0) 'syntax-object) + (if (vector? j-19331) + (if (= (vector-length j-19331) 4) + (eq? (vector-ref j-19331 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref x-17182 1) - (vector-ref j-17265 1)) - (same-marks?-4504 - (car (vector-ref x-17182 2)) - (car (vector-ref j-17265 2))) + (if (eq? (vector-ref x-19248 1) + (vector-ref j-19331 1)) + (same-marks?-6567 + (car (vector-ref x-19248 2)) + (car (vector-ref j-19331 2))) #f) - (eq? x-17182 j-17265))))) - (if t-17184 - t-17184 - (bound-id-member?-4514 x-17182 (cdr list-17183)))) + (eq? x-19248 j-19331))))) + (if t-19250 + t-19250 + (bound-id-member?-6577 x-19248 (cdr list-19249)))) #f))) - (wrap-4515 - (lambda (x-17309 w-17310 defmod-17311) - (if (if (null? (car w-17310)) - (null? (cdr w-17310)) + (wrap-6578 + (lambda (x-19375 w-19376 defmod-19377) + (if (if (null? (car w-19376)) + (null? (cdr w-19376)) #f) - x-17309 - (if (if (vector? x-17309) - (if (= (vector-length x-17309) 4) - (eq? (vector-ref x-17309 0) 'syntax-object) + x-19375 + (if (if (vector? x-19375) + (if (= (vector-length x-19375) 4) + (eq? (vector-ref x-19375 0) 'syntax-object) #f) #f) - (let ((expression-17325 (vector-ref x-17309 1)) - (wrap-17326 - (join-wraps-4502 w-17310 (vector-ref x-17309 2))) - (module-17327 (vector-ref x-17309 3))) + (let ((expression-19391 (vector-ref x-19375 1)) + (wrap-19392 + (join-wraps-6565 w-19376 (vector-ref x-19375 2))) + (module-19393 (vector-ref x-19375 3))) (vector 'syntax-object - expression-17325 - wrap-17326 - module-17327)) - (if (null? x-17309) - x-17309 + expression-19391 + wrap-19392 + module-19393)) + (if (null? x-19375) + x-19375 (vector 'syntax-object - x-17309 - w-17310 - defmod-17311)))))) - (source-wrap-4516 - (lambda (x-17344 w-17345 s-17346 defmod-17347) - (wrap-4515 + x-19375 + w-19376 + defmod-19377)))))) + (source-wrap-6579 + (lambda (x-19410 w-19411 s-19412 defmod-19413) + (wrap-6578 (begin - (if (if (pair? x-17344) s-17346 #f) - (set-source-properties! x-17344 s-17346)) - x-17344) - w-17345 - defmod-17347))) - (expand-sequence-4517 - (lambda (body-27267 r-27268 w-27269 s-27270 mod-27271) - (build-sequence-4467 - s-27270 + (if (if (pair? x-19410) s-19412 #f) + (set-source-properties! x-19410 s-19412)) + x-19410) + w-19411 + defmod-19413))) + (expand-sequence-6580 + (lambda (body-29409 r-29410 w-29411 s-29412 mod-29413) + (build-sequence-6530 + s-29412 (letrec* - ((dobody-27351 - (lambda (body-27701 r-27702 w-27703 mod-27704) - (if (null? body-27701) + ((dobody-29493 + (lambda (body-29833 r-29834 w-29835 mod-29836) + (if (null? body-29833) '() - (let ((first-27705 - (let ((e-27709 (car body-27701))) + (let ((first-29837 + (let ((e-29841 (car body-29833))) (call-with-values (lambda () - (syntax-type-4521 - e-27709 - r-27702 - w-27703 - (source-annotation-4479 e-27709) + (syntax-type-6584 + e-29841 + r-29834 + w-29835 + (source-annotation-6542 e-29841) #f - mod-27704 + mod-29836 #f)) - (lambda (type-27716 - value-27717 - e-27718 - w-27719 - s-27720 - mod-27721) - (expand-expr-4523 - type-27716 - value-27717 - e-27718 - r-27702 - w-27719 - s-27720 - mod-27721)))))) - (cons first-27705 - (dobody-27351 - (cdr body-27701) - r-27702 - w-27703 - mod-27704))))))) - (dobody-27351 - body-27267 - r-27268 - w-27269 - mod-27271))))) - (expand-top-sequence-4518 - (lambda (body-17365 - r-17366 - w-17367 - s-17368 - m-17369 - esew-17370 - mod-17371) + (lambda (type-29848 + value-29849 + form-29850 + e-29851 + w-29852 + s-29853 + mod-29854) + (expand-expr-6586 + type-29848 + value-29849 + form-29850 + e-29851 + r-29834 + w-29852 + s-29853 + mod-29854)))))) + (cons first-29837 + (dobody-29493 + (cdr body-29833) + r-29834 + w-29835 + mod-29836))))))) + (dobody-29493 + body-29409 + r-29410 + w-29411 + mod-29413))))) + (expand-top-sequence-6581 + (lambda (body-19431 + r-19432 + w-19433 + s-19434 + m-19435 + esew-19436 + mod-19437) (letrec* - ((scan-17372 - (lambda (body-17503 - r-17504 - w-17505 - s-17506 - m-17507 - esew-17508 - mod-17509 - exps-17510) - (if (null? body-17503) - exps-17510 + ((scan-19438 + (lambda (body-19569 + r-19570 + w-19571 + s-19572 + m-19573 + esew-19574 + mod-19575 + exps-19576) + (if (null? body-19569) + exps-19576 (call-with-values (lambda () (call-with-values (lambda () - (let ((e-17511 (car body-17503))) - (syntax-type-4521 - e-17511 - r-17504 - w-17505 - (let ((t-17515 (source-annotation-4479 e-17511))) - (if t-17515 t-17515 s-17506)) + (let ((e-19577 (car body-19569))) + (syntax-type-6584 + e-19577 + r-19570 + w-19571 + (let ((t-19581 (source-annotation-6542 e-19577))) + (if t-19581 t-19581 s-19572)) #f - mod-17509 + mod-19575 #f))) - (lambda (type-17750 - value-17751 - e-17752 - w-17753 - s-17754 - mod-17755) - (if (eqv? type-17750 'begin-form) - (let ((tmp-17760 ($sc-dispatch e-17752 '(_)))) - (if tmp-17760 - (@apply (lambda () exps-17510) tmp-17760) - (let ((tmp-17764 + (lambda (type-19816 + value-19817 + form-19818 + e-19819 + w-19820 + s-19821 + mod-19822) + (if (eqv? type-19816 'begin-form) + (let ((tmp-19827 ($sc-dispatch e-19819 '(_)))) + (if tmp-19827 + (@apply (lambda () exps-19576) tmp-19827) + (let ((tmp-19831 ($sc-dispatch - e-17752 + e-19819 '(_ any . each-any)))) - (if tmp-17764 + (if tmp-19831 (@apply - (lambda (e1-17768 e2-17769) - (scan-17372 - (cons e1-17768 e2-17769) - r-17504 - w-17753 - s-17754 - m-17507 - esew-17508 - mod-17755 - exps-17510)) - tmp-17764) + (lambda (e1-19835 e2-19836) + (scan-19438 + (cons e1-19835 e2-19836) + r-19570 + w-19820 + s-19821 + m-19573 + esew-19574 + mod-19822 + exps-19576)) + tmp-19831) (syntax-violation #f "source expression failed to match any pattern" - e-17752))))) - (if (eqv? type-17750 'local-syntax-form) - (expand-local-syntax-4527 - value-17751 - e-17752 - r-17504 - w-17753 - s-17754 - mod-17755 - (lambda (body-17784 - r-17785 - w-17786 - s-17787 - mod-17788) - (scan-17372 - body-17784 - r-17785 - w-17786 - s-17787 - m-17507 - esew-17508 - mod-17788 - exps-17510))) - (if (eqv? type-17750 'eval-when-form) - (let ((tmp-17793 + e-19819))))) + (if (eqv? type-19816 'local-syntax-form) + (expand-local-syntax-6590 + value-19817 + e-19819 + r-19570 + w-19820 + s-19821 + mod-19822 + (lambda (body-19851 + r-19852 + w-19853 + s-19854 + mod-19855) + (scan-19438 + body-19851 + r-19852 + w-19853 + s-19854 + m-19573 + esew-19574 + mod-19855 + exps-19576))) + (if (eqv? type-19816 'eval-when-form) + (let ((tmp-19860 ($sc-dispatch - e-17752 + e-19819 '(_ each-any any . each-any)))) - (if tmp-17793 + (if tmp-19860 (@apply - (lambda (x-17797 e1-17798 e2-17799) - (let ((when-list-17800 - (parse-when-list-4520 - e-17752 - x-17797)) - (body-17801 - (cons e1-17798 e2-17799))) - (if (eq? m-17507 'e) - (if (memq 'eval when-list-17800) - (scan-17372 - body-17801 - r-17504 - w-17753 - s-17754 + (lambda (x-19864 e1-19865 e2-19866) + (let ((when-list-19867 + (parse-when-list-6583 + e-19819 + x-19864)) + (body-19868 + (cons e1-19865 e2-19866))) + (if (eq? m-19573 'e) + (if (memq 'eval when-list-19867) + (scan-19438 + body-19868 + r-19570 + w-19820 + s-19821 (if (memq 'expand - when-list-17800) + when-list-19867) 'c&e 'e) '(eval) - mod-17755 - exps-17510) + mod-19822 + exps-19576) (begin (if (memq 'expand - when-list-17800) - (let ((x-17878 - (expand-top-sequence-4518 - body-17801 - r-17504 - w-17753 - s-17754 + when-list-19867) + (let ((x-19945 + (expand-top-sequence-6581 + body-19868 + r-19570 + w-19820 + s-19821 'e '(eval) - mod-17755))) - (primitive-eval x-17878))) - exps-17510)) - (if (memq 'load when-list-17800) - (if (let ((t-17904 + mod-19822))) + (primitive-eval x-19945))) + exps-19576)) + (if (memq 'load when-list-19867) + (if (let ((t-19971 (memq 'compile - when-list-17800))) - (if t-17904 - t-17904 - (let ((t-17953 + when-list-19867))) + (if t-19971 + t-19971 + (let ((t-20020 (memq 'expand - when-list-17800))) - (if t-17953 - t-17953 - (if (eq? m-17507 + when-list-19867))) + (if t-20020 + t-20020 + (if (eq? m-19573 'c&e) (memq 'eval - when-list-17800) + when-list-19867) #f))))) - (scan-17372 - body-17801 - r-17504 - w-17753 - s-17754 + (scan-19438 + body-19868 + r-19570 + w-19820 + s-19821 'c&e '(compile load) - mod-17755 - exps-17510) - (if (if (eq? m-17507 'c) + mod-19822 + exps-19576) + (if (if (eq? m-19573 'c) #t - (eq? m-17507 'c&e)) - (scan-17372 - body-17801 - r-17504 - w-17753 - s-17754 + (eq? m-19573 'c&e)) + (scan-19438 + body-19868 + r-19570 + w-19820 + s-19821 'c '(load) - mod-17755 - exps-17510) - exps-17510)) - (if (let ((t-18082 + mod-19822 + exps-19576) + exps-19576)) + (if (let ((t-20149 (memq 'compile - when-list-17800))) - (if t-18082 - t-18082 - (let ((t-18131 + when-list-19867))) + (if t-20149 + t-20149 + (let ((t-20198 (memq 'expand - when-list-17800))) - (if t-18131 - t-18131 - (if (eq? m-17507 + when-list-19867))) + (if t-20198 + t-20198 + (if (eq? m-19573 'c&e) (memq 'eval - when-list-17800) + when-list-19867) #f))))) (begin - (let ((x-18255 - (expand-top-sequence-4518 - body-17801 - r-17504 - w-17753 - s-17754 + (let ((x-20322 + (expand-top-sequence-6581 + body-19868 + r-19570 + w-19820 + s-19821 'e '(eval) - mod-17755))) - (primitive-eval x-18255)) - exps-17510) - exps-17510))))) - tmp-17793) + mod-19822))) + (primitive-eval x-20322)) + exps-19576) + exps-19576))))) + tmp-19860) (syntax-violation #f "source expression failed to match any pattern" - e-17752))) - (if (if (eqv? type-17750 'define-syntax-form) + e-19819))) + (if (if (eqv? type-19816 'define-syntax-form) #t - (eqv? type-17750 + (eqv? type-19816 'define-syntax-parameter-form)) - (let ((n-18301 - (id-var-name-4505 - value-17751 - w-17753)) - (r-18302 - (macros-only-env-4482 r-17504))) - (if (eqv? m-17507 'c) - (if (memq 'compile esew-17508) - (let ((e-18306 - (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)))) + (let ((n-20368 + (id-var-name-6568 + value-19817 + w-19820)) + (r-20369 + (macros-only-env-6545 r-19570))) + (if (eqv? m-19573 'c) + (if (memq 'compile esew-19574) + (let ((e-20373 + (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)))) (begin - (top-level-eval-hook-4445 - e-18306 - mod-17755) - (if (memq 'load esew-17508) - (cons e-18306 exps-17510) - exps-17510))) - (if (memq 'load esew-17508) - (cons (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)) - exps-17510) - exps-17510)) - (if (eqv? m-17507 'c&e) - (let ((e-18948 - (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)))) + (top-level-eval-hook-6508 + e-20373 + mod-19822) + (if (memq 'load esew-19574) + (cons e-20373 exps-19576) + exps-19576))) + (if (memq 'load esew-19574) + (cons (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)) + exps-19576) + exps-19576)) + (if (eqv? m-19573 'c&e) + (let ((e-21015 + (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)))) (begin - (top-level-eval-hook-4445 - e-18948 - mod-17755) - (cons e-18948 exps-17510))) + (top-level-eval-hook-6508 + e-21015 + mod-19822) + (cons e-21015 exps-19576))) (begin - (if (memq 'eval esew-17508) - (top-level-eval-hook-4445 - (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)) - mod-17755)) - exps-17510)))) - (if (eqv? type-17750 'define-form) - (let ((n-19622 - (id-var-name-4505 - value-17751 - w-17753))) - (let ((type-19623 - (car (let ((t-19630 - (assq n-19622 - r-17504))) - (if t-19630 - (cdr t-19630) - (if (symbol? n-19622) - (let ((t-19636 - (get-global-definition-hook-4449 - n-19622 - mod-17755))) - (if t-19636 - t-19636 + (if (memq 'eval esew-19574) + (top-level-eval-hook-6508 + (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)) + mod-19822)) + exps-19576)))) + (if (eqv? type-19816 'define-form) + (let ((n-21689 + (id-var-name-6568 + value-19817 + w-19820))) + (let ((type-21690 + (car (let ((t-21697 + (assq n-21689 + r-19570))) + (if t-21697 + (cdr t-21697) + (if (symbol? n-21689) + (let ((t-21703 + (get-global-definition-hook-6512 + n-21689 + mod-19822))) + (if t-21703 + t-21703 '(global))) '(displaced-lexical))))))) - (if (if (eqv? type-19623 'global) + (if (if (eqv? type-21690 'global) #t - (if (eqv? type-19623 'core) + (if (eqv? type-21690 'core) #t - (if (eqv? type-19623 'macro) + (if (eqv? type-21690 'macro) #t - (eqv? type-19623 + (eqv? type-21690 'module-ref)))) (begin - (if (if (if (eq? m-17507 'c) + (if (if (if (eq? m-19573 'c) #t - (eq? m-17507 'c&e)) + (eq? m-19573 'c&e)) (if (not (module-local-variable (current-module) - n-19622)) + n-21689)) (current-module) #f) #f) - (let ((old-19667 + (let ((old-21734 (module-variable (current-module) - n-19622))) - (if (if (variable? old-19667) + n-21689))) + (if (if (variable? old-21734) (variable-bound? - old-19667) + old-21734) #f) (module-define! (current-module) - n-19622 - (variable-ref old-19667)) + n-21689 + (variable-ref old-21734)) (module-add! (current-module) - n-19622 + n-21689 (make-undefined-variable))))) - (cons (if (eq? m-17507 'c&e) - (let ((x-20108 - (build-global-definition-4461 - s-17754 - n-19622 - (expand-4522 - e-17752 - r-17504 - w-17753 - mod-17755)))) + (cons (if (eq? m-19573 'c&e) + (let ((x-22175 + (build-global-definition-6524 + s-19821 + n-21689 + (expand-6585 + e-19819 + r-19570 + w-19820 + mod-19822)))) (begin - (top-level-eval-hook-4445 - x-20108 - mod-17755) - x-20108)) + (top-level-eval-hook-6508 + x-22175 + mod-19822) + x-22175)) (lambda () - (build-global-definition-4461 - s-17754 - n-19622 - (expand-4522 - e-17752 - r-17504 - w-17753 - mod-17755)))) - exps-17510)) - (if (eqv? type-19623 + (build-global-definition-6524 + s-19821 + n-21689 + (expand-6585 + e-19819 + r-19570 + w-19820 + mod-19822)))) + exps-19576)) + (if (eqv? type-21690 'displaced-lexical) (syntax-violation #f "identifier out of context" - e-17752 - (wrap-4515 - value-17751 - w-17753 - mod-17755)) + (wrap-6578 + (begin + (if (if (pair? form-19818) + s-19821 + #f) + (set-source-properties! + form-19818 + s-19821)) + form-19818) + w-19820 + mod-19822) + (wrap-6578 + value-19817 + w-19820 + mod-19822)) (syntax-violation #f "cannot define keyword at top level" - e-17752 - (wrap-4515 - value-17751 - w-17753 - mod-17755)))))) - (cons (if (eq? m-17507 'c&e) - (let ((x-20563 - (expand-expr-4523 - type-17750 - value-17751 - e-17752 - r-17504 - w-17753 - s-17754 - mod-17755))) + (wrap-6578 + (begin + (if (if (pair? form-19818) + s-19821 + #f) + (set-source-properties! + form-19818 + s-19821)) + form-19818) + w-19820 + mod-19822) + (wrap-6578 + value-19817 + w-19820 + mod-19822)))))) + (cons (if (eq? m-19573 'c&e) + (let ((x-22674 + (expand-expr-6586 + type-19816 + value-19817 + form-19818 + e-19819 + r-19570 + w-19820 + s-19821 + mod-19822))) (begin - (primitive-eval x-20563) - x-20563)) + (primitive-eval x-22674) + x-22674)) (lambda () - (expand-expr-4523 - type-17750 - value-17751 - e-17752 - r-17504 - w-17753 - s-17754 - mod-17755))) - exps-17510))))))))) - (lambda (exps-20568) - (scan-17372 - (cdr body-17503) - r-17504 - w-17505 - s-17506 - m-17507 - esew-17508 - mod-17509 - exps-20568))))))) + (expand-expr-6586 + type-19816 + value-19817 + form-19818 + e-19819 + r-19570 + w-19820 + s-19821 + mod-19822))) + exps-19576))))))))) + (lambda (exps-22679) + (scan-19438 + (cdr body-19569) + r-19570 + w-19571 + s-19572 + m-19573 + esew-19574 + mod-19575 + exps-22679))))))) (call-with-values (lambda () - (scan-17372 - body-17365 - r-17366 - w-17367 - s-17368 - m-17369 - esew-17370 - mod-17371 + (scan-19438 + body-19431 + r-19432 + w-19433 + s-19434 + m-19435 + esew-19436 + mod-19437 '())) - (lambda (exps-17375) - (if (null? exps-17375) + (lambda (exps-19441) + (if (null? exps-19441) (make-struct/no-tail (vector-ref %expanded-vtables 0) - s-17368) - (build-sequence-4467 - s-17368 + s-19434) + (build-sequence-6530 + s-19434 (letrec* - ((lp-17415 - (lambda (in-17499 out-17500) - (if (null? in-17499) - out-17500 - (let ((e-17501 (car in-17499))) - (lp-17415 - (cdr in-17499) - (cons (if (procedure? e-17501) - (e-17501) - e-17501) - out-17500))))))) - (lp-17415 exps-17375 '()))))))))) - (expand-install-global-4519 - (lambda (name-20569 e-20570) - (let ((exp-20576 - (let ((fun-exp-20586 + ((lp-19481 + (lambda (in-19565 out-19566) + (if (null? in-19565) + out-19566 + (let ((e-19567 (car in-19565))) + (lp-19481 + (cdr in-19565) + (cons (if (procedure? e-19567) + (e-19567) + e-19567) + out-19566))))))) + (lp-19481 exps-19441 '()))))))))) + (expand-install-global-6582 + (lambda (name-22680 e-22681) + (let ((exp-22687 + (let ((fun-exp-22697 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1249,382 +1274,398 @@ '(guile) 'make-syntax-transformer #f))) - (arg-exps-20587 + (arg-exps-22698 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - name-20569) + name-22680) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - e-20570))) + e-22681))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-20586 - arg-exps-20587)))) + fun-exp-22697 + arg-exps-22698)))) (begin - (if (if (struct? exp-20576) - (eq? (struct-vtable exp-20576) + (if (if (struct? exp-22687) + (eq? (struct-vtable exp-22687) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-20628 (struct-ref exp-20576 1))) - (if (not (assq 'name meta-20628)) - (let ((v-20635 - (cons (cons 'name name-20569) meta-20628))) - (struct-set! exp-20576 1 v-20635))))) + (let ((meta-22739 (struct-ref exp-22687 1))) + (if (not (assq 'name meta-22739)) + (let ((v-22746 + (cons (cons 'name name-22680) meta-22739))) + (struct-set! exp-22687 1 v-22746))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - name-20569 - exp-20576))))) - (parse-when-list-4520 - (lambda (e-20646 when-list-20647) - (let ((result-20648 (strip-4535 when-list-20647 '(())))) + name-22680 + exp-22687))))) + (parse-when-list-6583 + (lambda (e-22757 when-list-22758) + (let ((result-22759 (strip-6598 when-list-22758 '(())))) (letrec* - ((lp-20649 - (lambda (l-20703) - (if (null? l-20703) - result-20648 - (if (let ((t-20705 (car l-20703))) - (if (eq? t-20705 'compile) + ((lp-22760 + (lambda (l-22814) + (if (null? l-22814) + result-22759 + (if (let ((t-22816 (car l-22814))) + (if (eq? t-22816 'compile) #t - (if (eq? t-20705 'load) + (if (eq? t-22816 'load) #t - (if (eq? t-20705 'eval) + (if (eq? t-22816 'eval) #t - (eq? t-20705 'expand))))) - (lp-20649 (cdr l-20703)) + (eq? t-22816 'expand))))) + (lp-22760 (cdr l-22814)) (syntax-violation 'eval-when "invalid situation" - e-20646 - (car l-20703))))))) - (lp-20649 result-20648))))) - (syntax-type-4521 - (lambda (e-20707 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712 - for-car?-20713) - (if (symbol? e-20707) - (let ((n-20714 (id-var-name-4505 e-20707 w-20709))) - (let ((b-20715 - (let ((t-20723 (assq n-20714 r-20708))) - (if t-20723 - (cdr t-20723) - (if (symbol? n-20714) - (let ((t-20729 - (get-global-definition-hook-4449 - n-20714 - mod-20712))) - (if t-20729 t-20729 '(global))) + e-22757 + (car l-22814))))))) + (lp-22760 result-22759))))) + (syntax-type-6584 + (lambda (e-22818 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823 + for-car?-22824) + (if (symbol? e-22818) + (let ((n-22825 (id-var-name-6568 e-22818 w-22820))) + (let ((b-22826 + (let ((t-22834 (assq n-22825 r-22819))) + (if t-22834 + (cdr t-22834) + (if (symbol? n-22825) + (let ((t-22840 + (get-global-definition-hook-6512 + n-22825 + mod-22823))) + (if t-22840 t-22840 '(global))) '(displaced-lexical)))))) - (let ((type-20716 (car b-20715))) - (if (eqv? type-20716 'lexical) + (let ((type-22827 (car b-22826))) + (if (eqv? type-22827 'lexical) (values - type-20716 - (cdr b-20715) - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? type-20716 'global) + type-22827 + (cdr b-22826) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? type-22827 'global) (values - type-20716 - n-20714 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? type-20716 'macro) - (if for-car?-20713 + type-22827 + n-22825 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? type-22827 'macro) + (if for-car?-22824 (values - type-20716 - (cdr b-20715) - e-20707 - w-20709 - s-20710 - mod-20712) - (syntax-type-4521 - (expand-macro-4525 - (cdr b-20715) - e-20707 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712) - r-20708 + type-22827 + (cdr b-22826) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (syntax-type-6584 + (expand-macro-6588 + (cdr b-22826) + e-22818 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823) + r-22819 '(()) - s-20710 - rib-20711 - mod-20712 + s-22821 + rib-22822 + mod-22823 #f)) (values - type-20716 - (cdr b-20715) - e-20707 - w-20709 - s-20710 - mod-20712))))))) - (if (pair? e-20707) - (let ((first-20749 (car e-20707))) + type-22827 + (cdr b-22826) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823))))))) + (if (pair? e-22818) + (let ((first-22860 (car e-22818))) (call-with-values (lambda () - (syntax-type-4521 - first-20749 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712 + (syntax-type-6584 + first-22860 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823 #t)) - (lambda (ftype-20751 - fval-20752 - fe-20753 - fw-20754 - fs-20755 - fmod-20756) - (if (eqv? ftype-20751 'lexical) + (lambda (ftype-22862 + fval-22863 + fform-22864 + fe-22865 + fw-22866 + fs-22867 + fmod-22868) + (if (eqv? ftype-22862 'lexical) (values 'lexical-call - fval-20752 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'global) + fval-22863 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'global) (values 'global-call (vector 'syntax-object - fval-20752 - w-20709 - fmod-20756) - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'macro) - (syntax-type-4521 - (expand-macro-4525 - fval-20752 - e-20707 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712) - r-20708 + fval-22863 + w-22820 + fmod-22868) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'macro) + (syntax-type-6584 + (expand-macro-6588 + fval-22863 + e-22818 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823) + r-22819 '(()) - s-20710 - rib-20711 - mod-20712 - for-car?-20713) - (if (eqv? ftype-20751 'module-ref) + s-22821 + rib-22822 + mod-22823 + for-car?-22824) + (if (eqv? ftype-22862 'module-ref) (call-with-values - (lambda () (fval-20752 e-20707 r-20708 w-20709)) - (lambda (e-20777 - r-20778 - w-20779 - s-20780 - mod-20781) - (syntax-type-4521 - e-20777 - r-20778 - w-20779 - s-20780 - rib-20711 - mod-20781 - for-car?-20713))) - (if (eqv? ftype-20751 'core) + (lambda () (fval-22863 e-22818 r-22819 w-22820)) + (lambda (e-22889 + r-22890 + w-22891 + s-22892 + mod-22893) + (syntax-type-6584 + e-22889 + r-22890 + w-22891 + s-22892 + rib-22822 + mod-22893 + for-car?-22824))) + (if (eqv? ftype-22862 'core) (values 'core-form - fval-20752 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'local-syntax) + fval-22863 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'local-syntax) (values 'local-syntax-form - fval-20752 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'begin) + fval-22863 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'begin) (values 'begin-form #f - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'eval-when) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'eval-when) (values 'eval-when-form #f - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'define) - (let ((tmp-20798 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'define) + (let ((tmp-22910 ($sc-dispatch - e-20707 + e-22818 '(_ any any)))) - (if (if tmp-20798 + (if (if tmp-22910 (@apply - (lambda (name-20802 val-20803) - (if (symbol? name-20802) + (lambda (name-22914 val-22915) + (if (symbol? name-22914) #t - (if (if (vector? name-20802) + (if (if (vector? name-22914) (if (= (vector-length - name-20802) + name-22914) 4) (eq? (vector-ref - name-20802 + name-22914 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-20802 + name-22914 1)) #f))) - tmp-20798) + tmp-22910) #f) (@apply - (lambda (name-20830 val-20831) + (lambda (name-22942 val-22943) (values 'define-form - name-20830 - val-20831 - w-20709 - s-20710 - mod-20712)) - tmp-20798) - (let ((tmp-20832 + name-22942 + e-22818 + val-22943 + w-22820 + s-22821 + mod-22823)) + tmp-22910) + (let ((tmp-22944 ($sc-dispatch - e-20707 + e-22818 '(_ (any . any) any . each-any)))) - (if (if tmp-20832 + (if (if tmp-22944 (@apply - (lambda (name-20836 - args-20837 - e1-20838 - e2-20839) + (lambda (name-22948 + args-22949 + e1-22950 + e2-22951) (if (if (symbol? - name-20836) + name-22948) #t (if (if (vector? - name-20836) + name-22948) (if (= (vector-length - name-20836) + name-22948) 4) (eq? (vector-ref - name-20836 + name-22948 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-20836 + name-22948 1)) #f)) - (valid-bound-ids?-4512 + (valid-bound-ids?-6575 (letrec* - ((lvl-20988 - (lambda (vars-20990 - ls-20991 - w-20992) - (if (pair? vars-20990) - (lvl-20988 - (cdr vars-20990) - (cons (wrap-4515 - (car vars-20990) - w-20992 + ((lvl-23100 + (lambda (vars-23102 + ls-23103 + w-23104) + (if (pair? vars-23102) + (lvl-23100 + (cdr vars-23102) + (cons (wrap-6578 + (car vars-23102) + w-23104 #f) - ls-20991) - w-20992) + ls-23103) + w-23104) (if (if (symbol? - vars-20990) + vars-23102) #t (if (if (vector? - vars-20990) + vars-23102) (if (= (vector-length - vars-20990) + vars-23102) 4) (eq? (vector-ref - vars-20990 + vars-23102 0) 'syntax-object) #f) #f) (symbol? (vector-ref - vars-20990 + vars-23102 1)) #f)) - (cons (wrap-4515 - vars-20990 - w-20992 + (cons (wrap-6578 + vars-23102 + w-23104 #f) - ls-20991) - (if (null? vars-20990) - ls-20991 + ls-23103) + (if (null? vars-23102) + ls-23103 (if (if (vector? - vars-20990) + vars-23102) (if (= (vector-length - vars-20990) + vars-23102) 4) (eq? (vector-ref - vars-20990 + vars-23102 0) 'syntax-object) #f) #f) - (lvl-20988 + (lvl-23100 (vector-ref - vars-20990 + vars-23102 1) - ls-20991 - (join-wraps-4502 - w-20992 + ls-23103 + (join-wraps-6565 + w-23104 (vector-ref - vars-20990 + vars-23102 2))) - (cons vars-20990 - ls-20991)))))))) - (lvl-20988 - args-20837 + (cons vars-23102 + ls-23103)))))))) + (lvl-23100 + args-22949 '() '(())))) #f)) - tmp-20832) + tmp-22944) #f) (@apply - (lambda (name-21036 - args-21037 - e1-21038 - e2-21039) + (lambda (name-23148 + args-23149 + e1-23150 + e2-23151) (values 'define-form - (wrap-4515 - name-21036 - w-20709 - mod-20712) - (let ((e-21045 + (wrap-6578 + name-23148 + w-22820 + mod-22823) + (wrap-6578 + e-22818 + w-22820 + mod-22823) + (let ((e-23159 (cons '#(syntax-object lambda ((top) @@ -1637,10 +1678,10 @@ (top) (top) (top)) - #("l-*-1954" - "l-*-1955" - "l-*-1956" - "l-*-1957")) + #("l-*-4009" + "l-*-4010" + "l-*-4011" + "l-*-4012")) #(ribcage () () @@ -1652,6 +1693,7 @@ #(ribcage #(ftype fval + fform fe fw fs @@ -1661,13 +1703,15 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () @@ -1675,7 +1719,7 @@ #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () @@ -1703,13 +1747,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -1991,146 +2035,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -2138,77 +2182,82 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) - (wrap-4515 - (cons args-21037 - (cons e1-21038 - e2-21039)) - w-20709 - mod-20712)))) + (wrap-6578 + (cons args-23149 + (cons e1-23150 + e2-23151)) + w-22820 + mod-22823)))) (begin - (if (if (pair? e-21045) - s-20710 + (if (if (pair? e-23159) + s-22821 #f) (set-source-properties! - e-21045 - s-20710)) - e-21045)) + e-23159 + s-22821)) + e-23159)) '(()) - s-20710 - mod-20712)) - tmp-20832) - (let ((tmp-21052 + s-22821 + mod-22823)) + tmp-22944) + (let ((tmp-23166 ($sc-dispatch - e-20707 + e-22818 '(_ any)))) - (if (if tmp-21052 + (if (if tmp-23166 (@apply - (lambda (name-21056) + (lambda (name-23170) (if (symbol? - name-21056) + name-23170) #t (if (if (vector? - name-21056) + name-23170) (if (= (vector-length - name-21056) + name-23170) 4) (eq? (vector-ref - name-21056 + name-23170 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21056 + name-23170 1)) #f))) - tmp-21052) + tmp-23166) #f) (@apply - (lambda (name-21083) + (lambda (name-23197) (values 'define-form - (wrap-4515 - name-21083 - w-20709 - mod-20712) + (wrap-6578 + name-23197 + w-22820 + mod-22823) + (wrap-6578 + e-22818 + w-22820 + mod-22823) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("l-*-1967")) + #("l-*-4022")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval + fform fe fw fs @@ -2218,18 +2267,20 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2248,13 +2299,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -2536,146 +2587,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -2683,9 +2734,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) #(syntax-object #f @@ -2693,12 +2744,13 @@ #(ribcage #(name) #((top)) - #("l-*-1967")) + #("l-*-4022")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval + fform fe fw fs @@ -2708,18 +2760,20 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2738,13 +2792,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -3026,146 +3080,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -3173,9 +3227,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) #(syntax-object #f @@ -3183,12 +3237,13 @@ #(ribcage #(name) #((top)) - #("l-*-1967")) + #("l-*-4022")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval + fform fe fw fs @@ -3198,18 +3253,20 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3228,13 +3285,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -3516,146 +3573,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -3663,295 +3720,303 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) '(()) - s-20710 - mod-20712)) - tmp-21052) + s-22821 + mod-22823)) + tmp-23166) (syntax-violation #f "source expression failed to match any pattern" - e-20707))))))) - (if (eqv? ftype-20751 'define-syntax) - (let ((tmp-21102 + e-22818))))))) + (if (eqv? ftype-22862 'define-syntax) + (let ((tmp-23218 ($sc-dispatch - e-20707 + e-22818 '(_ any any)))) - (if (if tmp-21102 + (if (if tmp-23218 (@apply - (lambda (name-21106 val-21107) - (if (symbol? name-21106) + (lambda (name-23222 val-23223) + (if (symbol? name-23222) #t (if (if (vector? - name-21106) + name-23222) (if (= (vector-length - name-21106) + name-23222) 4) (eq? (vector-ref - name-21106 + name-23222 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21106 + name-23222 1)) #f))) - tmp-21102) + tmp-23218) #f) (@apply - (lambda (name-21134 val-21135) + (lambda (name-23250 val-23251) (values 'define-syntax-form - name-21134 - val-21135 - w-20709 - s-20710 - mod-20712)) - tmp-21102) + name-23250 + e-22818 + val-23251 + w-22820 + s-22821 + mod-22823)) + tmp-23218) (syntax-violation #f "source expression failed to match any pattern" - e-20707))) - (if (eqv? ftype-20751 + e-22818))) + (if (eqv? ftype-22862 'define-syntax-parameter) - (let ((tmp-21146 + (let ((tmp-23262 ($sc-dispatch - e-20707 + e-22818 '(_ any any)))) - (if (if tmp-21146 + (if (if tmp-23262 (@apply - (lambda (name-21150 - val-21151) - (if (symbol? name-21150) + (lambda (name-23266 + val-23267) + (if (symbol? name-23266) #t (if (if (vector? - name-21150) + name-23266) (if (= (vector-length - name-21150) + name-23266) 4) (eq? (vector-ref - name-21150 + name-23266 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21150 + name-23266 1)) #f))) - tmp-21146) + tmp-23262) #f) (@apply - (lambda (name-21178 val-21179) + (lambda (name-23294 val-23295) (values 'define-syntax-parameter-form - name-21178 - val-21179 - w-20709 - s-20710 - mod-20712)) - tmp-21146) + name-23294 + e-22818 + val-23295 + w-22820 + s-22821 + mod-22823)) + tmp-23262) (syntax-violation #f "source expression failed to match any pattern" - e-20707))) + e-22818))) (values 'call #f - e-20707 - w-20709 - s-20710 - mod-20712))))))))))))))) - (if (if (vector? e-20707) - (if (= (vector-length e-20707) 4) - (eq? (vector-ref e-20707 0) 'syntax-object) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823))))))))))))))) + (if (if (vector? e-22818) + (if (= (vector-length e-22818) 4) + (eq? (vector-ref e-22818 0) 'syntax-object) #f) #f) - (syntax-type-4521 - (vector-ref e-20707 1) - r-20708 - (join-wraps-4502 w-20709 (vector-ref e-20707 2)) - (let ((t-21206 (source-annotation-4479 e-20707))) - (if t-21206 t-21206 s-20710)) - rib-20711 - (let ((t-21441 (vector-ref e-20707 3))) - (if t-21441 t-21441 mod-20712)) - for-car?-20713) - (if (self-evaluating? e-20707) + (syntax-type-6584 + (vector-ref e-22818 1) + r-22819 + (join-wraps-6565 w-22820 (vector-ref e-22818 2)) + (let ((t-23322 (source-annotation-6542 e-22818))) + (if t-23322 t-23322 s-22821)) + rib-22822 + (let ((t-23557 (vector-ref e-22818 3))) + (if t-23557 t-23557 mod-22823)) + for-car?-22824) + (if (self-evaluating? e-22818) (values 'constant #f - e-20707 - w-20709 - s-20710 - mod-20712) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) (values 'other #f - e-20707 - w-20709 - s-20710 - mod-20712))))))) - (expand-4522 - (lambda (e-21450 r-21451 w-21452 mod-21453) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823))))))) + (expand-6585 + (lambda (e-23566 r-23567 w-23568 mod-23569) (call-with-values (lambda () - (syntax-type-4521 - e-21450 - r-21451 - w-21452 - (source-annotation-4479 e-21450) + (syntax-type-6584 + e-23566 + r-23567 + w-23568 + (source-annotation-6542 e-23566) #f - mod-21453 + mod-23569 #f)) - (lambda (type-21608 - value-21609 - e-21610 - w-21611 - s-21612 - mod-21613) - (expand-expr-4523 - type-21608 - value-21609 - e-21610 - r-21451 - w-21611 - s-21612 - mod-21613))))) - (expand-expr-4523 - (lambda (type-21616 - value-21617 - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'lexical) + (lambda (type-23724 + value-23725 + form-23726 + e-23727 + w-23728 + s-23729 + mod-23730) + (expand-expr-6586 + type-23724 + value-23725 + form-23726 + e-23727 + r-23567 + w-23728 + s-23729 + mod-23730))))) + (expand-expr-6586 + (lambda (type-23733 + value-23734 + form-23735 + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - s-21621 - e-21618 - value-21617) - (if (if (eqv? type-21616 'core) + s-23739 + e-23736 + value-23734) + (if (if (eqv? type-23733 'core) #t - (eqv? type-21616 'core-form)) - (value-21617 - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'module-ref) + (eqv? type-23733 'core-form)) + (value-23734 + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'module-ref) (call-with-values - (lambda () (value-21617 e-21618 r-21619 w-21620)) - (lambda (e-21648 r-21649 w-21650 s-21651 mod-21652) - (expand-4522 e-21648 r-21649 w-21650 mod-21652))) - (if (eqv? type-21616 'lexical-call) - (expand-application-4524 - (let ((id-21727 (car e-21618))) - (build-lexical-reference-4456 + (lambda () (value-23734 e-23736 r-23737 w-23738)) + (lambda (e-23766 r-23767 w-23768 s-23769 mod-23770) + (expand-6585 e-23766 r-23767 w-23768 mod-23770))) + (if (eqv? type-23733 'lexical-call) + (expand-application-6587 + (let ((id-23845 (car e-23736))) + (build-lexical-reference-6519 'fun - (source-annotation-4479 id-21727) - (if (if (vector? id-21727) - (if (= (vector-length id-21727) 4) - (eq? (vector-ref id-21727 0) 'syntax-object) + (source-annotation-6542 id-23845) + (if (if (vector? id-23845) + (if (= (vector-length id-23845) 4) + (eq? (vector-ref id-23845 0) 'syntax-object) #f) #f) - (syntax->datum id-21727) - id-21727) - value-21617)) - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'global-call) - (expand-application-4524 - (build-global-reference-4459 - (source-annotation-4479 (car e-21618)) - (if (if (vector? value-21617) - (if (= (vector-length value-21617) 4) - (eq? (vector-ref value-21617 0) 'syntax-object) + (syntax->datum id-23845) + id-23845) + value-23734)) + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'global-call) + (expand-application-6587 + (build-global-reference-6522 + (source-annotation-6542 (car e-23736)) + (if (if (vector? value-23734) + (if (= (vector-length value-23734) 4) + (eq? (vector-ref value-23734 0) 'syntax-object) #f) #f) - (vector-ref value-21617 1) - value-21617) - (if (if (vector? value-21617) - (if (= (vector-length value-21617) 4) - (eq? (vector-ref value-21617 0) 'syntax-object) + (vector-ref value-23734 1) + value-23734) + (if (if (vector? value-23734) + (if (= (vector-length value-23734) 4) + (eq? (vector-ref value-23734 0) 'syntax-object) #f) #f) - (vector-ref value-21617 3) - mod-21622)) - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'constant) - (let ((exp-22064 - (strip-4535 - (wrap-4515 + (vector-ref value-23734 3) + mod-23740)) + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'constant) + (let ((exp-24182 + (strip-6598 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) - (set-source-properties! e-21618 s-21621)) - e-21618) - w-21620 - mod-21622) + (if (if (pair? e-23736) s-23739 #f) + (set-source-properties! e-23736 s-23739)) + e-23736) + w-23738 + mod-23740) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-21621 - exp-22064)) - (if (eqv? type-21616 'global) - (analyze-variable-4458 - mod-21622 - value-21617 - (lambda (mod-22100 var-22101 public?-22102) + s-23739 + exp-24182)) + (if (eqv? type-23733 'global) + (analyze-variable-6521 + mod-23740 + value-23734 + (lambda (mod-24218 var-24219 public?-24220) (make-struct/no-tail (vector-ref %expanded-vtables 5) - s-21621 - mod-22100 - var-22101 - public?-22102)) - (lambda (var-22111) + s-23739 + mod-24218 + var-24219 + public?-24220)) + (lambda (var-24229) (make-struct/no-tail (vector-ref %expanded-vtables 7) - s-21621 - var-22111))) - (if (eqv? type-21616 'call) - (expand-application-4524 - (expand-4522 - (car e-21618) - r-21619 - w-21620 - mod-21622) - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'begin-form) - (let ((tmp-22186 - ($sc-dispatch e-21618 '(_ any . each-any)))) - (if tmp-22186 + s-23739 + var-24229))) + (if (eqv? type-23733 'call) + (expand-application-6587 + (expand-6585 + (car e-23736) + r-23737 + w-23738 + mod-23740) + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'begin-form) + (let ((tmp-24304 + ($sc-dispatch e-23736 '(_ any . each-any)))) + (if tmp-24304 (@apply - (lambda (e1-22190 e2-22191) - (expand-sequence-4517 - (cons e1-22190 e2-22191) - r-21619 - w-21620 - s-21621 - mod-21622)) - tmp-22186) - (let ((tmp-22278 ($sc-dispatch e-21618 '(_)))) - (if tmp-22278 + (lambda (e1-24308 e2-24309) + (expand-sequence-6580 + (cons e1-24308 e2-24309) + r-23737 + w-23738 + s-23739 + mod-23740)) + tmp-24304) + (let ((tmp-24396 ($sc-dispatch e-23736 '(_)))) + (if tmp-24396 (@apply (lambda () (if (include-deprecated-features) @@ -3964,787 +4029,801 @@ (syntax-violation #f "sequence of zero expressions" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) - s-21621 + (if (if (pair? e-23736) + s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)))) - tmp-22278) + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)))) + tmp-24396) (syntax-violation #f "source expression failed to match any pattern" - e-21618))))) - (if (eqv? type-21616 'local-syntax-form) - (expand-local-syntax-4527 - value-21617 - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622 - expand-sequence-4517) - (if (eqv? type-21616 'eval-when-form) - (let ((tmp-22389 + e-23736))))) + (if (eqv? type-23733 'local-syntax-form) + (expand-local-syntax-6590 + value-23734 + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740 + expand-sequence-6580) + (if (eqv? type-23733 'eval-when-form) + (let ((tmp-24507 ($sc-dispatch - e-21618 + e-23736 '(_ each-any any . each-any)))) - (if tmp-22389 + (if tmp-24507 (@apply - (lambda (x-22393 e1-22394 e2-22395) - (let ((when-list-22396 - (parse-when-list-4520 - e-21618 - x-22393))) - (if (memq 'eval when-list-22396) - (expand-sequence-4517 - (cons e1-22394 e2-22395) - r-21619 - w-21620 - s-21621 - mod-21622) + (lambda (x-24511 e1-24512 e2-24513) + (let ((when-list-24514 + (parse-when-list-6583 + e-23736 + x-24511))) + (if (memq 'eval when-list-24514) + (expand-sequence-6580 + (cons e1-24512 e2-24513) + r-23737 + w-23738 + s-23739 + mod-23740) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - tmp-22389) + tmp-24507) (syntax-violation #f "source expression failed to match any pattern" - e-21618))) - (if (if (eqv? type-21616 'define-form) + e-23736))) + (if (if (eqv? type-23733 'define-form) #t - (if (eqv? type-21616 'define-syntax-form) + (if (eqv? type-23733 'define-syntax-form) #t - (eqv? type-21616 + (eqv? type-23733 'define-syntax-parameter-form))) (syntax-violation #f - "definition in expression context" - e-21618 - (wrap-4515 value-21617 w-21620 mod-21622)) - (if (eqv? type-21616 'syntax) + "definition in expression context, where definitions are not allowed," + (wrap-6578 + (begin + (if (if (pair? form-23735) s-23739 #f) + (set-source-properties! + form-23735 + s-23739)) + form-23735) + w-23738 + mod-23740)) + (if (eqv? type-23733 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) + (if (if (pair? e-23736) s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)) - (if (eqv? type-21616 'displaced-lexical) + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)) + (if (eqv? type-23733 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) + (if (if (pair? e-23736) s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)) + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)) (syntax-violation #f "unexpected syntax" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) + (if (if (pair? e-23736) s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)))))))))))))))))) - (expand-application-4524 - (lambda (x-22636 - e-22637 - r-22638 - w-22639 - s-22640 - mod-22641) - (let ((tmp-22643 - ($sc-dispatch e-22637 '(any . each-any)))) - (if tmp-22643 + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)))))))))))))))))) + (expand-application-6587 + (lambda (x-24774 + e-24775 + r-24776 + w-24777 + s-24778 + mod-24779) + (let ((tmp-24781 + ($sc-dispatch e-24775 '(any . each-any)))) + (if tmp-24781 (@apply - (lambda (e0-22647 e1-22648) - (build-application-4453 - s-22640 - x-22636 - (map (lambda (e-22728) - (expand-4522 e-22728 r-22638 w-22639 mod-22641)) - e1-22648))) - tmp-22643) + (lambda (e0-24785 e1-24786) + (build-application-6516 + s-24778 + x-24774 + (map (lambda (e-24866) + (expand-6585 e-24866 r-24776 w-24777 mod-24779)) + e1-24786))) + tmp-24781) (syntax-violation #f "source expression failed to match any pattern" - e-22637))))) - (expand-macro-4525 - (lambda (p-22804 - e-22805 - r-22806 - w-22807 - s-22808 - rib-22809 - mod-22810) + e-24775))))) + (expand-macro-6588 + (lambda (p-24942 + e-24943 + r-24944 + w-24945 + s-24946 + rib-24947 + mod-24948) (letrec* - ((rebuild-macro-output-22811 - (lambda (x-22844 m-22845) - (if (pair? x-22844) - (let ((e-22849 - (cons (rebuild-macro-output-22811 - (car x-22844) - m-22845) - (rebuild-macro-output-22811 - (cdr x-22844) - m-22845)))) + ((rebuild-macro-output-24949 + (lambda (x-24982 m-24983) + (if (pair? x-24982) + (let ((e-24987 + (cons (rebuild-macro-output-24949 + (car x-24982) + m-24983) + (rebuild-macro-output-24949 + (cdr x-24982) + m-24983)))) (begin - (if (if (pair? e-22849) s-22808 #f) - (set-source-properties! e-22849 s-22808)) - e-22849)) - (if (if (vector? x-22844) - (if (= (vector-length x-22844) 4) - (eq? (vector-ref x-22844 0) 'syntax-object) + (if (if (pair? e-24987) s-24946 #f) + (set-source-properties! e-24987 s-24946)) + e-24987)) + (if (if (vector? x-24982) + (if (= (vector-length x-24982) 4) + (eq? (vector-ref x-24982 0) 'syntax-object) #f) #f) - (let ((w-22865 (vector-ref x-22844 2))) - (let ((ms-22866 (car w-22865)) - (s-22867 (cdr w-22865))) - (if (if (pair? ms-22866) (eq? (car ms-22866) #f) #f) - (let ((expression-22875 (vector-ref x-22844 1)) - (wrap-22876 - (cons (cdr ms-22866) - (if rib-22809 - (cons rib-22809 (cdr s-22867)) - (cdr s-22867)))) - (module-22877 (vector-ref x-22844 3))) + (let ((w-25003 (vector-ref x-24982 2))) + (let ((ms-25004 (car w-25003)) + (s-25005 (cdr w-25003))) + (if (if (pair? ms-25004) (eq? (car ms-25004) #f) #f) + (let ((expression-25013 (vector-ref x-24982 1)) + (wrap-25014 + (cons (cdr ms-25004) + (if rib-24947 + (cons rib-24947 (cdr s-25005)) + (cdr s-25005)))) + (module-25015 (vector-ref x-24982 3))) (vector 'syntax-object - expression-22875 - wrap-22876 - module-22877)) - (let ((expression-22887 - (let ((e-22892 (vector-ref x-22844 1))) + expression-25013 + wrap-25014 + module-25015)) + (let ((expression-25025 + (let ((e-25030 (vector-ref x-24982 1))) (begin - (if (if (pair? e-22892) s-22867 #f) + (if (if (pair? e-25030) s-25005 #f) (set-source-properties! - e-22892 - s-22867)) - e-22892))) - (wrap-22888 - (cons (cons m-22845 ms-22866) - (if rib-22809 - (cons rib-22809 - (cons 'shift s-22867)) - (cons 'shift s-22867)))) - (module-22889 (vector-ref x-22844 3))) + e-25030 + s-25005)) + e-25030))) + (wrap-25026 + (cons (cons m-24983 ms-25004) + (if rib-24947 + (cons rib-24947 + (cons 'shift s-25005)) + (cons 'shift s-25005)))) + (module-25027 (vector-ref x-24982 3))) (vector 'syntax-object - expression-22887 - wrap-22888 - module-22889))))) - (if (vector? x-22844) - (let ((n-22904 (vector-length x-22844))) - (let ((v-22905 - (let ((e-22913 (make-vector n-22904))) + expression-25025 + wrap-25026 + module-25027))))) + (if (vector? x-24982) + (let ((n-25042 (vector-length x-24982))) + (let ((v-25043 + (let ((e-25051 (make-vector n-25042))) (begin - (if (if (pair? e-22913) x-22844 #f) - (set-source-properties! e-22913 x-22844)) - e-22913)))) + (if (if (pair? e-25051) x-24982 #f) + (set-source-properties! e-25051 x-24982)) + e-25051)))) (letrec* - ((loop-22906 - (lambda (i-22958) - (if (= i-22958 n-22904) - v-22905 + ((loop-25044 + (lambda (i-25096) + (if (= i-25096 n-25042) + v-25043 (begin (vector-set! - v-22905 - i-22958 - (rebuild-macro-output-22811 - (vector-ref x-22844 i-22958) - m-22845)) - (loop-22906 (#{1+}# i-22958))))))) - (loop-22906 0)))) - (if (symbol? x-22844) + v-25043 + i-25096 + (rebuild-macro-output-24949 + (vector-ref x-24982 i-25096) + m-24983)) + (loop-25044 (#{1+}# i-25096))))))) + (loop-25044 0)))) + (if (symbol? x-24982) (syntax-violation #f "encountered raw symbol in macro output" - (let ((s-22964 (cdr w-22807))) - (wrap-4515 + (let ((s-25102 (cdr w-24945))) + (wrap-6578 (begin - (if (if (pair? e-22805) s-22964 #f) - (set-source-properties! e-22805 s-22964)) - e-22805) - w-22807 - mod-22810)) - x-22844) + (if (if (pair? e-24943) s-25102 #f) + (set-source-properties! e-24943 s-25102)) + e-24943) + w-24945 + mod-24948)) + x-24982) (begin - (if (if (pair? x-22844) s-22808 #f) - (set-source-properties! x-22844 s-22808)) - x-22844)))))))) + (if (if (pair? x-24982) s-24946 #f) + (set-source-properties! x-24982 s-24946)) + x-24982)))))))) (with-fluids - ((transformer-environment-4508 - (lambda (k-22812) - (k-22812 - e-22805 - r-22806 - w-22807 - s-22808 - rib-22809 - mod-22810)))) - (rebuild-macro-output-22811 - (p-22804 - (let ((w-22819 - (cons (cons #f (car w-22807)) - (cons 'shift (cdr w-22807))))) - (wrap-4515 + ((transformer-environment-6571 + (lambda (k-24950) + (k-24950 + e-24943 + r-24944 + w-24945 + s-24946 + rib-24947 + mod-24948)))) + (rebuild-macro-output-24949 + (p-24942 + (let ((w-24957 + (cons (cons #f (car w-24945)) + (cons 'shift (cdr w-24945))))) + (wrap-6578 (begin - (if (if (pair? e-22805) s-22808 #f) - (set-source-properties! e-22805 s-22808)) - e-22805) - w-22819 - mod-22810))) + (if (if (pair? e-24943) s-24946 #f) + (set-source-properties! e-24943 s-24946)) + e-24943) + w-24957 + mod-24948))) (gensym - (string-append "m-" (session-id-4447) "-"))))))) - (expand-body-4526 - (lambda (body-22996 - outer-form-22997 - r-22998 - w-22999 - mod-23000) - (let ((r-23001 - (cons '("placeholder" placeholder) r-22998))) - (let ((ribcage-23002 (vector 'ribcage '() '() '()))) - (let ((w-23003 - (cons (car w-22999) - (cons ribcage-23002 (cdr w-22999))))) + (string-append "m-" (session-id-6510) "-"))))))) + (expand-body-6589 + (lambda (body-25134 + outer-form-25135 + r-25136 + w-25137 + mod-25138) + (let ((r-25139 + (cons '("placeholder" placeholder) r-25136))) + (let ((ribcage-25140 (vector 'ribcage '() '() '()))) + (let ((w-25141 + (cons (car w-25137) + (cons ribcage-25140 (cdr w-25137))))) (letrec* - ((parse-23004 - (lambda (body-23017 - ids-23018 - labels-23019 - var-ids-23020 - vars-23021 - vals-23022 - bindings-23023) - (if (null? body-23017) + ((parse-25142 + (lambda (body-25155 + ids-25156 + labels-25157 + var-ids-25158 + vars-25159 + vals-25160 + bindings-25161) + (if (null? body-25155) (syntax-violation #f "no expressions in body" - outer-form-22997) - (let ((e-23024 (cdr (car body-23017))) - (er-23025 (car (car body-23017)))) + outer-form-25135) + (let ((e-25162 (cdr (car body-25155))) + (er-25163 (car (car body-25155)))) (call-with-values (lambda () - (syntax-type-4521 - e-23024 - er-23025 + (syntax-type-6584 + e-25162 + er-25163 '(()) - (source-annotation-4479 er-23025) - ribcage-23002 - mod-23000 + (source-annotation-6542 er-25163) + ribcage-25140 + mod-25138 #f)) - (lambda (type-23182 - value-23183 - e-23184 - w-23185 - s-23186 - mod-23187) - (if (eqv? type-23182 'define-form) - (let ((id-23191 - (wrap-4515 - value-23183 - w-23185 - mod-23187)) - (label-23192 + (lambda (type-25320 + value-25321 + form-25322 + e-25323 + w-25324 + s-25325 + mod-25326) + (if (eqv? type-25320 'define-form) + (let ((id-25330 + (wrap-6578 + value-25321 + w-25324 + mod-25326)) + (label-25331 (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))))) - (let ((var-23193 - (let ((id-23253 - (if (if (vector? id-23191) + (let ((var-25332 + (let ((id-25392 + (if (if (vector? id-25330) (if (= (vector-length - id-23191) + id-25330) 4) (eq? (vector-ref - id-23191 + id-25330 0) 'syntax-object) #f) #f) - (vector-ref id-23191 1) - id-23191))) + (vector-ref id-25330 1) + id-25330))) (gensym (string-append - (symbol->string id-23253) + (symbol->string id-25392) "-"))))) (begin - (let ((update-23243 - (cons (vector-ref id-23191 1) + (let ((update-25382 + (cons (vector-ref id-25330 1) (vector-ref - ribcage-23002 + ribcage-25140 1)))) (vector-set! - ribcage-23002 + ribcage-25140 1 - update-23243)) - (let ((update-23245 + update-25382)) + (let ((update-25384 (cons (car (vector-ref - id-23191 + id-25330 2)) (vector-ref - ribcage-23002 + ribcage-25140 2)))) (vector-set! - ribcage-23002 + ribcage-25140 2 - update-23245)) - (let ((update-23247 - (cons label-23192 + update-25384)) + (let ((update-25386 + (cons label-25331 (vector-ref - ribcage-23002 + ribcage-25140 3)))) (vector-set! - ribcage-23002 + ribcage-25140 3 - update-23247)) - (parse-23004 - (cdr body-23017) - (cons id-23191 ids-23018) - (cons label-23192 labels-23019) - (cons id-23191 var-ids-23020) - (cons var-23193 vars-23021) - (cons (cons er-23025 - (wrap-4515 - e-23184 - w-23185 - mod-23187)) - vals-23022) - (cons (cons 'lexical var-23193) - bindings-23023))))) - (if (if (eqv? type-23182 'define-syntax-form) + update-25386)) + (parse-25142 + (cdr body-25155) + (cons id-25330 ids-25156) + (cons label-25331 labels-25157) + (cons id-25330 var-ids-25158) + (cons var-25332 vars-25159) + (cons (cons er-25163 + (wrap-6578 + e-25323 + w-25324 + mod-25326)) + vals-25160) + (cons (cons 'lexical var-25332) + bindings-25161))))) + (if (if (eqv? type-25320 'define-syntax-form) #t - (eqv? type-23182 + (eqv? type-25320 'define-syntax-parameter-form)) - (let ((id-23286 - (wrap-4515 - value-23183 - w-23185 - mod-23187)) - (label-23287 + (let ((id-25425 + (wrap-6578 + value-25321 + w-25324 + mod-25326)) + (label-25426 (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))))) (begin - (let ((update-23337 - (cons (vector-ref id-23286 1) + (let ((update-25476 + (cons (vector-ref id-25425 1) (vector-ref - ribcage-23002 + ribcage-25140 1)))) (vector-set! - ribcage-23002 + ribcage-25140 1 - update-23337)) - (let ((update-23339 + update-25476)) + (let ((update-25478 (cons (car (vector-ref - id-23286 + id-25425 2)) (vector-ref - ribcage-23002 + ribcage-25140 2)))) (vector-set! - ribcage-23002 + ribcage-25140 2 - update-23339)) - (let ((update-23341 - (cons label-23287 + update-25478)) + (let ((update-25480 + (cons label-25426 (vector-ref - ribcage-23002 + ribcage-25140 3)))) (vector-set! - ribcage-23002 + ribcage-25140 3 - update-23341)) - (parse-23004 - (cdr body-23017) - (cons id-23286 ids-23018) - (cons label-23287 labels-23019) - var-ids-23020 - vars-23021 - vals-23022 + update-25480)) + (parse-25142 + (cdr body-25155) + (cons id-25425 ids-25156) + (cons label-25426 labels-25157) + var-ids-25158 + vars-25159 + vals-25160 (cons (cons 'macro - (cons er-23025 - (wrap-4515 - e-23184 - w-23185 - mod-23187))) - bindings-23023)))) - (if (eqv? type-23182 'begin-form) - (let ((tmp-23349 + (cons er-25163 + (wrap-6578 + e-25323 + w-25324 + mod-25326))) + bindings-25161)))) + (if (eqv? type-25320 'begin-form) + (let ((tmp-25488 ($sc-dispatch - e-23184 + e-25323 '(_ . each-any)))) - (if tmp-23349 + (if tmp-25488 (@apply - (lambda (e1-23353) - (parse-23004 + (lambda (e1-25492) + (parse-25142 (letrec* - ((f-23354 - (lambda (forms-23417) - (if (null? forms-23417) - (cdr body-23017) - (cons (cons er-23025 - (wrap-4515 - (car forms-23417) - w-23185 - mod-23187)) - (f-23354 - (cdr forms-23417))))))) - (f-23354 e1-23353)) - ids-23018 - labels-23019 - var-ids-23020 - vars-23021 - vals-23022 - bindings-23023)) - tmp-23349) + ((f-25493 + (lambda (forms-25556) + (if (null? forms-25556) + (cdr body-25155) + (cons (cons er-25163 + (wrap-6578 + (car forms-25556) + w-25324 + mod-25326)) + (f-25493 + (cdr forms-25556))))))) + (f-25493 e1-25492)) + ids-25156 + labels-25157 + var-ids-25158 + vars-25159 + vals-25160 + bindings-25161)) + tmp-25488) (syntax-violation #f "source expression failed to match any pattern" - e-23184))) - (if (eqv? type-23182 'local-syntax-form) - (expand-local-syntax-4527 - value-23183 - e-23184 - er-23025 - w-23185 - s-23186 - mod-23187 - (lambda (forms-23431 - er-23432 - w-23433 - s-23434 - mod-23435) - (parse-23004 + e-25323))) + (if (eqv? type-25320 'local-syntax-form) + (expand-local-syntax-6590 + value-25321 + e-25323 + er-25163 + w-25324 + s-25325 + mod-25326 + (lambda (forms-25570 + er-25571 + w-25572 + s-25573 + mod-25574) + (parse-25142 (letrec* - ((f-23436 - (lambda (forms-23499) - (if (null? forms-23499) - (cdr body-23017) - (cons (cons er-23432 - (wrap-4515 - (car forms-23499) - w-23433 - mod-23435)) - (f-23436 - (cdr forms-23499))))))) - (f-23436 forms-23431)) - ids-23018 - labels-23019 - var-ids-23020 - vars-23021 - vals-23022 - bindings-23023))) - (if (null? ids-23018) - (build-sequence-4467 + ((f-25575 + (lambda (forms-25638) + (if (null? forms-25638) + (cdr body-25155) + (cons (cons er-25571 + (wrap-6578 + (car forms-25638) + w-25572 + mod-25574)) + (f-25575 + (cdr forms-25638))))))) + (f-25575 forms-25570)) + ids-25156 + labels-25157 + var-ids-25158 + vars-25159 + vals-25160 + bindings-25161))) + (if (null? ids-25156) + (build-sequence-6530 #f - (map (lambda (x-23564) - (let ((e-23568 (cdr x-23564)) - (r-23569 (car x-23564))) + (map (lambda (x-25703) + (let ((e-25707 (cdr x-25703)) + (r-25708 (car x-25703))) (call-with-values (lambda () - (syntax-type-4521 - e-23568 - r-23569 + (syntax-type-6584 + e-25707 + r-25708 '(()) - (source-annotation-4479 - e-23568) + (source-annotation-6542 + e-25707) #f - mod-23187 + mod-25326 #f)) - (lambda (type-23573 - value-23574 - e-23575 - w-23576 - s-23577 - mod-23578) - (expand-expr-4523 - type-23573 - value-23574 - e-23575 - r-23569 - w-23576 - s-23577 - mod-23578))))) - (cons (cons er-23025 - (wrap-4515 + (lambda (type-25712 + value-25713 + form-25714 + e-25715 + w-25716 + s-25717 + mod-25718) + (expand-expr-6586 + type-25712 + value-25713 + form-25714 + e-25715 + r-25708 + w-25716 + s-25717 + mod-25718))))) + (cons (cons er-25163 + (wrap-6578 (begin - (if (if (pair? e-23184) - s-23186 + (if (if (pair? e-25323) + s-25325 #f) (set-source-properties! - e-23184 - s-23186)) - e-23184) - w-23185 - mod-23187)) - (cdr body-23017)))) + e-25323 + s-25325)) + e-25323) + w-25324 + mod-25326)) + (cdr body-25155)))) (begin - (if (not (valid-bound-ids?-4512 - ids-23018)) + (if (not (valid-bound-ids?-6575 + ids-25156)) (syntax-violation #f "invalid or duplicate identifier in definition" - outer-form-22997)) + outer-form-25135)) (letrec* - ((loop-23679 - (lambda (bs-23682 - er-cache-23683 - r-cache-23684) - (if (not (null? bs-23682)) - (let ((b-23685 - (car bs-23682))) - (if (eq? (car b-23685) + ((loop-25819 + (lambda (bs-25822 + er-cache-25823 + r-cache-25824) + (if (not (null? bs-25822)) + (let ((b-25825 + (car bs-25822))) + (if (eq? (car b-25825) 'macro) - (let ((er-23687 - (car (cdr b-23685)))) - (let ((r-cache-23688 - (if (eq? er-23687 - er-cache-23683) - r-cache-23684 - (macros-only-env-4482 - er-23687)))) + (let ((er-25827 + (car (cdr b-25825)))) + (let ((r-cache-25828 + (if (eq? er-25827 + er-cache-25823) + r-cache-25824 + (macros-only-env-6545 + er-25827)))) (begin (set-cdr! - b-23685 - (eval-local-transformer-4528 - (expand-4522 - (cdr (cdr b-23685)) - r-cache-23688 + b-25825 + (eval-local-transformer-6591 + (expand-6585 + (cdr (cdr b-25825)) + r-cache-25828 '(()) - mod-23187) - mod-23187)) - (loop-23679 - (cdr bs-23682) - er-23687 - r-cache-23688)))) - (loop-23679 - (cdr bs-23682) - er-cache-23683 - r-cache-23684))))))) - (loop-23679 bindings-23023 #f #f)) + mod-25326) + mod-25326)) + (loop-25819 + (cdr bs-25822) + er-25827 + r-cache-25828)))) + (loop-25819 + (cdr bs-25822) + er-cache-25823 + r-cache-25824))))))) + (loop-25819 bindings-25161 #f #f)) (set-cdr! - r-23001 - (extend-env-4480 - labels-23019 - bindings-23023 - (cdr r-23001))) - (build-letrec-4470 + r-25139 + (extend-env-6543 + labels-25157 + bindings-25161 + (cdr r-25139))) + (build-letrec-6533 #f #t (reverse (map syntax->datum - var-ids-23020)) - (reverse vars-23021) - (map (lambda (x-24031) - (let ((e-24035 - (cdr x-24031)) - (r-24036 - (car x-24031))) + var-ids-25158)) + (reverse vars-25159) + (map (lambda (x-26171) + (let ((e-26175 + (cdr x-26171)) + (r-26176 + (car x-26171))) (call-with-values (lambda () - (syntax-type-4521 - e-24035 - r-24036 + (syntax-type-6584 + e-26175 + r-26176 '(()) - (source-annotation-4479 - e-24035) + (source-annotation-6542 + e-26175) #f - mod-23187 + mod-25326 #f)) - (lambda (type-24040 - value-24041 - e-24042 - w-24043 - s-24044 - mod-24045) - (expand-expr-4523 - type-24040 - value-24041 - e-24042 - r-24036 - w-24043 - s-24044 - mod-24045))))) - (reverse vals-23022)) - (let ((exps-24051 - (map (lambda (x-24052) - (let ((e-24055 - (cdr x-24052)) - (r-24056 - (car x-24052))) + (lambda (type-26180 + value-26181 + form-26182 + e-26183 + w-26184 + s-26185 + mod-26186) + (expand-expr-6586 + type-26180 + value-26181 + form-26182 + e-26183 + r-26176 + w-26184 + s-26185 + mod-26186))))) + (reverse vals-25160)) + (let ((exps-26192 + (map (lambda (x-26193) + (let ((e-26196 + (cdr x-26193)) + (r-26197 + (car x-26193))) (call-with-values (lambda () - (syntax-type-4521 - e-24055 - r-24056 + (syntax-type-6584 + e-26196 + r-26197 '(()) - (source-annotation-4479 - e-24055) + (source-annotation-6542 + e-26196) #f - mod-23187 + mod-25326 #f)) - (lambda (type-24060 - value-24061 - e-24062 - w-24063 - s-24064 - mod-24065) - (expand-expr-4523 - type-24060 - value-24061 - e-24062 - r-24056 - w-24063 - s-24064 - mod-24065))))) - (cons (cons er-23025 - (wrap-4515 + (lambda (type-26201 + value-26202 + form-26203 + e-26204 + w-26205 + s-26206 + mod-26207) + (expand-expr-6586 + type-26201 + value-26202 + form-26203 + e-26204 + r-26197 + w-26205 + s-26206 + mod-26207))))) + (cons (cons er-25163 + (wrap-6578 (begin - (if (if (pair? e-23184) - s-23186 + (if (if (pair? e-25323) + s-25325 #f) (set-source-properties! - e-23184 - s-23186)) - e-23184) - w-23185 - mod-23187)) - (cdr body-23017))))) - (if (null? (cdr exps-24051)) - (car exps-24051) + e-25323 + s-25325)) + e-25323) + w-25324 + mod-25326)) + (cdr body-25155))))) + (if (null? (cdr exps-26192)) + (car exps-26192) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - exps-24051))))))))))))))))) - (parse-23004 - (map (lambda (x-23007) - (cons r-23001 - (wrap-4515 x-23007 w-23003 mod-23000))) - body-22996) + exps-26192))))))))))))))))) + (parse-25142 + (map (lambda (x-25145) + (cons r-25139 + (wrap-6578 x-25145 w-25141 mod-25138))) + body-25134) '() '() '() '() '() '()))))))) - (expand-local-syntax-4527 - (lambda (rec?-24091 - e-24092 - r-24093 - w-24094 - s-24095 - mod-24096 - k-24097) - (let ((tmp-24099 + (expand-local-syntax-6590 + (lambda (rec?-26233 + e-26234 + r-26235 + w-26236 + s-26237 + mod-26238 + k-26239) + (let ((tmp-26241 ($sc-dispatch - e-24092 + e-26234 '(_ #(each (any any)) any . each-any)))) - (if tmp-24099 + (if tmp-26241 (@apply - (lambda (id-24103 val-24104 e1-24105 e2-24106) - (if (not (valid-bound-ids?-4512 id-24103)) + (lambda (id-26245 val-26246 e1-26247 e2-26248) + (if (not (valid-bound-ids?-6575 id-26245)) (syntax-violation #f "duplicate bound keyword" - e-24092) - (let ((labels-24196 (gen-labels-4489 id-24103))) - (let ((new-w-24197 - (make-binding-wrap-4500 - id-24103 - labels-24196 - w-24094))) - (k-24097 - (cons e1-24105 e2-24106) - (extend-env-4480 - labels-24196 - (let ((trans-r-24233 - (macros-only-env-4482 r-24093))) + e-26234) + (let ((labels-26338 (gen-labels-6552 id-26245))) + (let ((new-w-26339 + (make-binding-wrap-6563 + id-26245 + labels-26338 + w-26236))) + (k-26239 + (cons e1-26247 e2-26248) + (extend-env-6543 + labels-26338 + (let ((trans-r-26375 + (macros-only-env-6545 r-26235))) (begin - (if rec?-24091 new-w-24197 w-24094) - (map (lambda (x-24234) + (if rec?-26233 new-w-26339 w-26236) + (map (lambda (x-26376) (cons 'macro - (eval-local-transformer-4528 - (expand-4522 - x-24234 - trans-r-24233 + (eval-local-transformer-6591 + (expand-6585 + x-26376 + trans-r-26375 (values - (if rec?-24091 - new-w-24197 - w-24094)) - mod-24096) - mod-24096))) - val-24104))) - r-24093) - new-w-24197 - s-24095 - mod-24096))))) - tmp-24099) + (if rec?-26233 + new-w-26339 + w-26236)) + mod-26238) + mod-26238))) + val-26246))) + r-26235) + new-w-26339 + s-26237 + mod-26238))))) + tmp-26241) (syntax-violation #f "bad local syntax definition" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-24092) s-24095 #f) - (set-source-properties! e-24092 s-24095)) - e-24092) - w-24094 - mod-24096)))))) - (eval-local-transformer-4528 - (lambda (expanded-24514 mod-24515) - (let ((p-24516 (primitive-eval expanded-24514))) - (if (procedure? p-24516) - p-24516 + (if (if (pair? e-26234) s-26237 #f) + (set-source-properties! e-26234 s-26237)) + e-26234) + w-26236 + mod-26238)))))) + (eval-local-transformer-6591 + (lambda (expanded-26656 mod-26657) + (let ((p-26658 (primitive-eval expanded-26656))) + (if (procedure? p-26658) + p-26658 (syntax-violation #f "nonprocedure transformer" - p-24516))))) - (ellipsis?-4530 - (lambda (x-5191) - (if (if (if (vector? x-5191) - (if (= (vector-length x-5191) 4) - (eq? (vector-ref x-5191 0) 'syntax-object) + p-26658))))) + (ellipsis?-6593 + (lambda (x-7254) + (if (if (if (vector? x-7254) + (if (= (vector-length x-7254) 4) + (eq? (vector-ref x-7254 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-5191 1)) + (symbol? (vector-ref x-7254 1)) #f) - (if (eq? (if (if (vector? x-5191) - (if (= (vector-length x-5191) 4) - (eq? (vector-ref x-5191 0) 'syntax-object) + (if (eq? (if (if (vector? x-7254) + (if (= (vector-length x-7254) 4) + (eq? (vector-ref x-7254 0) 'syntax-object) #f) #f) - (vector-ref x-5191 1) - x-5191) + (vector-ref x-7254 1) + x-7254) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2343")) + #(ribcage #(x) #((top)) #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -5026,152 +5105,152 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile))) 4) #t @@ -5182,7 +5261,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2343")) + #(ribcage #(x) #((top)) #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -5464,161 +5543,161 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 x-5191 '(())) - (id-var-name-4505 + (eq? (id-var-name-6568 x-7254 '(())) + (id-var-name-6568 '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2343")) + #(ribcage #(x) #((top)) #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -5900,420 +5979,420 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)) '(()))) #f) #f))) - (lambda-formals-4531 - (lambda (orig-args-24521) + (lambda-formals-6594 + (lambda (orig-args-26663) (letrec* - ((req-24522 - (lambda (args-24526 rreq-24527) - (let ((tmp-24529 ($sc-dispatch args-24526 '()))) - (if tmp-24529 + ((req-26664 + (lambda (args-26668 rreq-26669) + (let ((tmp-26671 ($sc-dispatch args-26668 '()))) + (if tmp-26671 (@apply - (lambda () (check-24523 (reverse rreq-24527) #f)) - tmp-24529) - (let ((tmp-24652 - ($sc-dispatch args-24526 '(any . any)))) - (if (if tmp-24652 + (lambda () (check-26665 (reverse rreq-26669) #f)) + tmp-26671) + (let ((tmp-26794 + ($sc-dispatch args-26668 '(any . any)))) + (if (if tmp-26794 (@apply - (lambda (a-24656 b-24657) - (if (symbol? a-24656) + (lambda (a-26798 b-26799) + (if (symbol? a-26798) #t - (if (if (vector? a-24656) - (if (= (vector-length a-24656) 4) - (eq? (vector-ref a-24656 0) + (if (if (vector? a-26798) + (if (= (vector-length a-26798) 4) + (eq? (vector-ref a-26798 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-24656 1)) + (symbol? (vector-ref a-26798 1)) #f))) - tmp-24652) + tmp-26794) #f) (@apply - (lambda (a-24684 b-24685) - (req-24522 b-24685 (cons a-24684 rreq-24527))) - tmp-24652) - (let ((tmp-24686 (list args-24526))) + (lambda (a-26826 b-26827) + (req-26664 b-26827 (cons a-26826 rreq-26669))) + tmp-26794) + (let ((tmp-26828 (list args-26668))) (if (@apply - (lambda (r-24688) - (if (symbol? r-24688) + (lambda (r-26830) + (if (symbol? r-26830) #t - (if (if (vector? r-24688) - (if (= (vector-length r-24688) 4) - (eq? (vector-ref r-24688 0) + (if (if (vector? r-26830) + (if (= (vector-length r-26830) 4) + (eq? (vector-ref r-26830 0) 'syntax-object) #f) #f) - (symbol? (vector-ref r-24688 1)) + (symbol? (vector-ref r-26830 1)) #f))) - tmp-24686) + tmp-26828) (@apply - (lambda (r-24718) - (check-24523 (reverse rreq-24527) r-24718)) - tmp-24686) + (lambda (r-26860) + (check-26665 (reverse rreq-26669) r-26860)) + tmp-26828) (syntax-violation 'lambda "invalid argument list" - orig-args-24521 - args-24526))))))))) - (check-24523 - (lambda (req-24849 rest-24850) - (if (distinct-bound-ids?-4513 - (if rest-24850 - (cons rest-24850 req-24849) - req-24849)) - (values req-24849 #f rest-24850 #f) + orig-args-26663 + args-26668))))))))) + (check-26665 + (lambda (req-26991 rest-26992) + (if (distinct-bound-ids?-6576 + (if rest-26992 + (cons rest-26992 req-26991) + req-26991)) + (values req-26991 #f rest-26992 #f) (syntax-violation 'lambda "duplicate identifier in argument list" - orig-args-24521))))) - (req-24522 orig-args-24521 '())))) - (expand-simple-lambda-4532 - (lambda (e-24966 - r-24967 - w-24968 - s-24969 - mod-24970 - req-24971 - rest-24972 - meta-24973 - body-24974) - (let ((ids-24975 - (if rest-24972 - (append req-24971 (list rest-24972)) - req-24971))) - (let ((vars-24976 (map gen-var-4536 ids-24975))) - (let ((labels-24977 (gen-labels-4489 ids-24975))) - (build-simple-lambda-4462 - s-24969 - (map syntax->datum req-24971) - (if rest-24972 (syntax->datum rest-24972) #f) - vars-24976 - meta-24973 - (expand-body-4526 - body-24974 - (wrap-4515 + orig-args-26663))))) + (req-26664 orig-args-26663 '())))) + (expand-simple-lambda-6595 + (lambda (e-27108 + r-27109 + w-27110 + s-27111 + mod-27112 + req-27113 + rest-27114 + meta-27115 + body-27116) + (let ((ids-27117 + (if rest-27114 + (append req-27113 (list rest-27114)) + req-27113))) + (let ((vars-27118 (map gen-var-6599 ids-27117))) + (let ((labels-27119 (gen-labels-6552 ids-27117))) + (build-simple-lambda-6525 + s-27111 + (map syntax->datum req-27113) + (if rest-27114 (syntax->datum rest-27114) #f) + vars-27118 + meta-27115 + (expand-body-6589 + body-27116 + (wrap-6578 (begin - (if (if (pair? e-24966) s-24969 #f) - (set-source-properties! e-24966 s-24969)) - e-24966) - w-24968 - mod-24970) - (extend-var-env-4481 - labels-24977 - vars-24976 - r-24967) - (make-binding-wrap-4500 - ids-24975 - labels-24977 - w-24968) - mod-24970))))))) - (lambda*-formals-4533 - (lambda (orig-args-25257) + (if (if (pair? e-27108) s-27111 #f) + (set-source-properties! e-27108 s-27111)) + e-27108) + w-27110 + mod-27112) + (extend-var-env-6544 + labels-27119 + vars-27118 + r-27109) + (make-binding-wrap-6563 + ids-27117 + labels-27119 + w-27110) + mod-27112))))))) + (lambda*-formals-6596 + (lambda (orig-args-27399) (letrec* - ((req-25258 - (lambda (args-25265 rreq-25266) - (let ((tmp-25268 ($sc-dispatch args-25265 '()))) - (if tmp-25268 + ((req-27400 + (lambda (args-27407 rreq-27408) + (let ((tmp-27410 ($sc-dispatch args-27407 '()))) + (if tmp-27410 (@apply (lambda () - (check-25262 (reverse rreq-25266) '() #f '())) - tmp-25268) - (let ((tmp-25274 - ($sc-dispatch args-25265 '(any . any)))) - (if (if tmp-25274 + (check-27404 (reverse rreq-27408) '() #f '())) + tmp-27410) + (let ((tmp-27416 + ($sc-dispatch args-27407 '(any . any)))) + (if (if tmp-27416 (@apply - (lambda (a-25278 b-25279) - (if (symbol? a-25278) + (lambda (a-27420 b-27421) + (if (symbol? a-27420) #t - (if (if (vector? a-25278) - (if (= (vector-length a-25278) 4) - (eq? (vector-ref a-25278 0) + (if (if (vector? a-27420) + (if (= (vector-length a-27420) 4) + (eq? (vector-ref a-27420 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25278 1)) + (symbol? (vector-ref a-27420 1)) #f))) - tmp-25274) + tmp-27416) #f) (@apply - (lambda (a-25306 b-25307) - (req-25258 b-25307 (cons a-25306 rreq-25266))) - tmp-25274) - (let ((tmp-25308 - ($sc-dispatch args-25265 '(any . any)))) - (if (if tmp-25308 + (lambda (a-27448 b-27449) + (req-27400 b-27449 (cons a-27448 rreq-27408))) + tmp-27416) + (let ((tmp-27450 + ($sc-dispatch args-27407 '(any . any)))) + (if (if tmp-27450 (@apply - (lambda (a-25312 b-25313) - (eq? (syntax->datum a-25312) #:optional)) - tmp-25308) + (lambda (a-27454 b-27455) + (eq? (syntax->datum a-27454) #:optional)) + tmp-27450) #f) (@apply - (lambda (a-25314 b-25315) - (opt-25259 b-25315 (reverse rreq-25266) '())) - tmp-25308) - (let ((tmp-25318 - ($sc-dispatch args-25265 '(any . any)))) - (if (if tmp-25318 + (lambda (a-27456 b-27457) + (opt-27401 b-27457 (reverse rreq-27408) '())) + tmp-27450) + (let ((tmp-27460 + ($sc-dispatch args-27407 '(any . any)))) + (if (if tmp-27460 (@apply - (lambda (a-25322 b-25323) - (eq? (syntax->datum a-25322) #:key)) - tmp-25318) + (lambda (a-27464 b-27465) + (eq? (syntax->datum a-27464) #:key)) + tmp-27460) #f) (@apply - (lambda (a-25324 b-25325) - (key-25260 - b-25325 - (reverse rreq-25266) + (lambda (a-27466 b-27467) + (key-27402 + b-27467 + (reverse rreq-27408) '() '())) - tmp-25318) - (let ((tmp-25328 - ($sc-dispatch args-25265 '(any any)))) - (if (if tmp-25328 + tmp-27460) + (let ((tmp-27470 + ($sc-dispatch args-27407 '(any any)))) + (if (if tmp-27470 (@apply - (lambda (a-25332 b-25333) - (eq? (syntax->datum a-25332) + (lambda (a-27474 b-27475) + (eq? (syntax->datum a-27474) #:rest)) - tmp-25328) + tmp-27470) #f) (@apply - (lambda (a-25334 b-25335) - (rest-25261 - b-25335 - (reverse rreq-25266) + (lambda (a-27476 b-27477) + (rest-27403 + b-27477 + (reverse rreq-27408) '() '())) - tmp-25328) - (let ((tmp-25338 (list args-25265))) + tmp-27470) + (let ((tmp-27480 (list args-27407))) (if (@apply - (lambda (r-25340) - (if (symbol? r-25340) + (lambda (r-27482) + (if (symbol? r-27482) #t - (if (if (vector? r-25340) + (if (if (vector? r-27482) (if (= (vector-length - r-25340) + r-27482) 4) (eq? (vector-ref - r-25340 + r-27482 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-25340 1)) + (vector-ref r-27482 1)) #f))) - tmp-25338) + tmp-27480) (@apply - (lambda (r-25370) - (rest-25261 - r-25370 - (reverse rreq-25266) + (lambda (r-27512) + (rest-27403 + r-27512 + (reverse rreq-27408) '() '())) - tmp-25338) + tmp-27480) (syntax-violation 'lambda* "invalid argument list" - orig-args-25257 - args-25265))))))))))))))) - (opt-25259 - (lambda (args-25389 req-25390 ropt-25391) - (let ((tmp-25393 ($sc-dispatch args-25389 '()))) - (if tmp-25393 + orig-args-27399 + args-27407))))))))))))))) + (opt-27401 + (lambda (args-27531 req-27532 ropt-27533) + (let ((tmp-27535 ($sc-dispatch args-27531 '()))) + (if tmp-27535 (@apply (lambda () - (check-25262 - req-25390 - (reverse ropt-25391) + (check-27404 + req-27532 + (reverse ropt-27533) #f '())) - tmp-25393) - (let ((tmp-25399 - ($sc-dispatch args-25389 '(any . any)))) - (if (if tmp-25399 + tmp-27535) + (let ((tmp-27541 + ($sc-dispatch args-27531 '(any . any)))) + (if (if tmp-27541 (@apply - (lambda (a-25403 b-25404) - (if (symbol? a-25403) + (lambda (a-27545 b-27546) + (if (symbol? a-27545) #t - (if (if (vector? a-25403) - (if (= (vector-length a-25403) 4) - (eq? (vector-ref a-25403 0) + (if (if (vector? a-27545) + (if (= (vector-length a-27545) 4) + (eq? (vector-ref a-27545 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25403 1)) + (symbol? (vector-ref a-27545 1)) #f))) - tmp-25399) + tmp-27541) #f) (@apply - (lambda (a-25431 b-25432) - (opt-25259 - b-25432 - req-25390 - (cons (cons a-25431 + (lambda (a-27573 b-27574) + (opt-27401 + b-27574 + req-27532 + (cons (cons a-27573 '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("l-*-2482" "l-*-2483")) + #("l-*-4543" "l-*-4544")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("l-*-2472" - "l-*-2473" - "l-*-2474")) + #("l-*-4533" + "l-*-4534" + "l-*-4535")) #(ribcage (check rest key opt req) ((top) @@ -6321,15 +6400,15 @@ (top) (top) (top)) - ("l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410")) + ("l-*-4479" + "l-*-4477" + "l-*-4475" + "l-*-4473" + "l-*-4471")) #(ribcage #(orig-args) #((top)) - #("l-*-2409")) + #("l-*-4470")) #(ribcage (lambda-var-list gen-var @@ -6611,283 +6690,285 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - ropt-25391))) - tmp-25399) - (let ((tmp-25433 - ($sc-dispatch args-25389 '((any any) . any)))) - (if (if tmp-25433 + ropt-27533))) + tmp-27541) + (let ((tmp-27575 + ($sc-dispatch args-27531 '((any any) . any)))) + (if (if tmp-27575 (@apply - (lambda (a-25437 init-25438 b-25439) - (if (symbol? a-25437) + (lambda (a-27579 init-27580 b-27581) + (if (symbol? a-27579) #t - (if (if (vector? a-25437) - (if (= (vector-length a-25437) 4) - (eq? (vector-ref a-25437 0) + (if (if (vector? a-27579) + (if (= (vector-length a-27579) 4) + (eq? (vector-ref a-27579 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25437 1)) + (symbol? (vector-ref a-27579 1)) #f))) - tmp-25433) + tmp-27575) #f) (@apply - (lambda (a-25466 init-25467 b-25468) - (opt-25259 - b-25468 - req-25390 - (cons (list a-25466 init-25467) ropt-25391))) - tmp-25433) - (let ((tmp-25469 - ($sc-dispatch args-25389 '(any . any)))) - (if (if tmp-25469 + (lambda (a-27608 init-27609 b-27610) + (opt-27401 + b-27610 + req-27532 + (cons (list a-27608 init-27609) ropt-27533))) + tmp-27575) + (let ((tmp-27611 + ($sc-dispatch args-27531 '(any . any)))) + (if (if tmp-27611 (@apply - (lambda (a-25473 b-25474) - (eq? (syntax->datum a-25473) #:key)) - tmp-25469) + (lambda (a-27615 b-27616) + (eq? (syntax->datum a-27615) #:key)) + tmp-27611) #f) (@apply - (lambda (a-25475 b-25476) - (key-25260 - b-25476 - req-25390 - (reverse ropt-25391) + (lambda (a-27617 b-27618) + (key-27402 + b-27618 + req-27532 + (reverse ropt-27533) '())) - tmp-25469) - (let ((tmp-25479 - ($sc-dispatch args-25389 '(any any)))) - (if (if tmp-25479 + tmp-27611) + (let ((tmp-27621 + ($sc-dispatch args-27531 '(any any)))) + (if (if tmp-27621 (@apply - (lambda (a-25483 b-25484) - (eq? (syntax->datum a-25483) + (lambda (a-27625 b-27626) + (eq? (syntax->datum a-27625) #:rest)) - tmp-25479) + tmp-27621) #f) (@apply - (lambda (a-25485 b-25486) - (rest-25261 - b-25486 - req-25390 - (reverse ropt-25391) + (lambda (a-27627 b-27628) + (rest-27403 + b-27628 + req-27532 + (reverse ropt-27533) '())) - tmp-25479) - (let ((tmp-25489 (list args-25389))) + tmp-27621) + (let ((tmp-27631 (list args-27531))) (if (@apply - (lambda (r-25491) - (if (symbol? r-25491) + (lambda (r-27633) + (if (symbol? r-27633) #t - (if (if (vector? r-25491) + (if (if (vector? r-27633) (if (= (vector-length - r-25491) + r-27633) 4) (eq? (vector-ref - r-25491 + r-27633 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-25491 1)) + (vector-ref r-27633 1)) #f))) - tmp-25489) + tmp-27631) (@apply - (lambda (r-25521) - (rest-25261 - r-25521 - req-25390 - (reverse ropt-25391) + (lambda (r-27663) + (rest-27403 + r-27663 + req-27532 + (reverse ropt-27533) '())) - tmp-25489) + tmp-27631) (syntax-violation 'lambda* "invalid optional argument list" - orig-args-25257 - args-25389))))))))))))))) - (key-25260 - (lambda (args-25540 req-25541 opt-25542 rkey-25543) - (let ((tmp-25545 ($sc-dispatch args-25540 '()))) - (if tmp-25545 + orig-args-27399 + args-27531))))))))))))))) + (key-27402 + (lambda (args-27682 req-27683 opt-27684 rkey-27685) + (let ((tmp-27687 ($sc-dispatch args-27682 '()))) + (if tmp-27687 (@apply (lambda () - (check-25262 - req-25541 - opt-25542 + (check-27404 + req-27683 + opt-27684 #f - (cons #f (reverse rkey-25543)))) - tmp-25545) - (let ((tmp-25551 - ($sc-dispatch args-25540 '(any . any)))) - (if (if tmp-25551 + (cons #f (reverse rkey-27685)))) + tmp-27687) + (let ((tmp-27693 + ($sc-dispatch args-27682 '(any . any)))) + (if (if tmp-27693 (@apply - (lambda (a-25555 b-25556) - (if (symbol? a-25555) + (lambda (a-27697 b-27698) + (if (symbol? a-27697) #t - (if (if (vector? a-25555) - (if (= (vector-length a-25555) 4) - (eq? (vector-ref a-25555 0) + (if (if (vector? a-27697) + (if (= (vector-length a-27697) 4) + (eq? (vector-ref a-27697 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25555 1)) + (symbol? (vector-ref a-27697 1)) #f))) - tmp-25551) + tmp-27693) #f) (@apply - (lambda (a-25583 b-25584) - (let ((tmp-25585 - (symbol->keyword (syntax->datum a-25583)))) - (key-25260 - b-25584 - req-25541 - opt-25542 - (cons (cons tmp-25585 - (cons a-25583 + (lambda (a-27725 b-27726) + (let ((tmp-27727 + (symbol->keyword (syntax->datum a-27725)))) + (key-27402 + b-27726 + req-27683 + opt-27684 + (cons (cons tmp-27727 + (cons a-27725 '(#(syntax-object #f ((top) @@ -6895,12 +6976,12 @@ #(ribcage #(k) #((top)) - #("l-*-2545")) + #("l-*-4606")) #(ribcage #(a b) #((top) (top)) - #("l-*-2539" - "l-*-2540")) + #("l-*-4600" + "l-*-4601")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -6908,10 +6989,10 @@ (top) (top) (top)) - #("l-*-2528" - "l-*-2529" - "l-*-2530" - "l-*-2531")) + #("l-*-4589" + "l-*-4590" + "l-*-4591" + "l-*-4592")) #(ribcage (check rest key @@ -6922,15 +7003,15 @@ (top) (top) (top)) - ("l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410")) + ("l-*-4479" + "l-*-4477" + "l-*-4475" + "l-*-4473" + "l-*-4471")) #(ribcage #(orig-args) #((top)) - #("l-*-2409")) + #("l-*-4470")) #(ribcage (lambda-var-list gen-var @@ -7212,875 +7293,875 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))))) - rkey-25543)))) - tmp-25551) - (let ((tmp-25588 - ($sc-dispatch args-25540 '((any any) . any)))) - (if (if tmp-25588 + rkey-27685)))) + tmp-27693) + (let ((tmp-27730 + ($sc-dispatch args-27682 '((any any) . any)))) + (if (if tmp-27730 (@apply - (lambda (a-25592 init-25593 b-25594) - (if (symbol? a-25592) + (lambda (a-27734 init-27735 b-27736) + (if (symbol? a-27734) #t - (if (if (vector? a-25592) - (if (= (vector-length a-25592) 4) - (eq? (vector-ref a-25592 0) + (if (if (vector? a-27734) + (if (= (vector-length a-27734) 4) + (eq? (vector-ref a-27734 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25592 1)) + (symbol? (vector-ref a-27734 1)) #f))) - tmp-25588) + tmp-27730) #f) (@apply - (lambda (a-25621 init-25622 b-25623) - (let ((tmp-25624 + (lambda (a-27763 init-27764 b-27765) + (let ((tmp-27766 (symbol->keyword - (syntax->datum a-25621)))) - (key-25260 - b-25623 - req-25541 - opt-25542 - (cons (list tmp-25624 a-25621 init-25622) - rkey-25543)))) - tmp-25588) - (let ((tmp-25627 + (syntax->datum a-27763)))) + (key-27402 + b-27765 + req-27683 + opt-27684 + (cons (list tmp-27766 a-27763 init-27764) + rkey-27685)))) + tmp-27730) + (let ((tmp-27769 ($sc-dispatch - args-25540 + args-27682 '((any any any) . any)))) - (if (if tmp-25627 + (if (if tmp-27769 (@apply - (lambda (a-25631 - init-25632 - k-25633 - b-25634) - (if (if (symbol? a-25631) + (lambda (a-27773 + init-27774 + k-27775 + b-27776) + (if (if (symbol? a-27773) #t - (if (if (vector? a-25631) + (if (if (vector? a-27773) (if (= (vector-length - a-25631) + a-27773) 4) (eq? (vector-ref - a-25631 + a-27773 0) 'syntax-object) #f) #f) (symbol? - (vector-ref a-25631 1)) + (vector-ref a-27773 1)) #f)) - (keyword? (syntax->datum k-25633)) + (keyword? (syntax->datum k-27775)) #f)) - tmp-25627) + tmp-27769) #f) (@apply - (lambda (a-25661 init-25662 k-25663 b-25664) - (key-25260 - b-25664 - req-25541 - opt-25542 - (cons (list k-25663 a-25661 init-25662) - rkey-25543))) - tmp-25627) - (let ((tmp-25665 - ($sc-dispatch args-25540 '(any)))) - (if (if tmp-25665 + (lambda (a-27803 init-27804 k-27805 b-27806) + (key-27402 + b-27806 + req-27683 + opt-27684 + (cons (list k-27805 a-27803 init-27804) + rkey-27685))) + tmp-27769) + (let ((tmp-27807 + ($sc-dispatch args-27682 '(any)))) + (if (if tmp-27807 (@apply - (lambda (aok-25669) - (eq? (syntax->datum aok-25669) + (lambda (aok-27811) + (eq? (syntax->datum aok-27811) #:allow-other-keys)) - tmp-25665) + tmp-27807) #f) (@apply - (lambda (aok-25670) - (check-25262 - req-25541 - opt-25542 + (lambda (aok-27812) + (check-27404 + req-27683 + opt-27684 #f - (cons #t (reverse rkey-25543)))) - tmp-25665) - (let ((tmp-25673 + (cons #t (reverse rkey-27685)))) + tmp-27807) + (let ((tmp-27815 ($sc-dispatch - args-25540 + args-27682 '(any any any)))) - (if (if tmp-25673 + (if (if tmp-27815 (@apply - (lambda (aok-25677 - a-25678 - b-25679) + (lambda (aok-27819 + a-27820 + b-27821) (if (eq? (syntax->datum - aok-25677) + aok-27819) #:allow-other-keys) - (eq? (syntax->datum a-25678) + (eq? (syntax->datum a-27820) #:rest) #f)) - tmp-25673) + tmp-27815) #f) (@apply - (lambda (aok-25680 a-25681 b-25682) - (rest-25261 - b-25682 - req-25541 - opt-25542 - (cons #t (reverse rkey-25543)))) - tmp-25673) - (let ((tmp-25685 + (lambda (aok-27822 a-27823 b-27824) + (rest-27403 + b-27824 + req-27683 + opt-27684 + (cons #t (reverse rkey-27685)))) + tmp-27815) + (let ((tmp-27827 ($sc-dispatch - args-25540 + args-27682 '(any . any)))) - (if (if tmp-25685 + (if (if tmp-27827 (@apply - (lambda (aok-25689 r-25690) + (lambda (aok-27831 r-27832) (if (eq? (syntax->datum - aok-25689) + aok-27831) #:allow-other-keys) - (if (symbol? r-25690) + (if (symbol? r-27832) #t (if (if (vector? - r-25690) + r-27832) (if (= (vector-length - r-25690) + r-27832) 4) (eq? (vector-ref - r-25690 + r-27832 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-25690 + r-27832 1)) #f)) #f)) - tmp-25685) + tmp-27827) #f) (@apply - (lambda (aok-25717 r-25718) - (rest-25261 - r-25718 - req-25541 - opt-25542 + (lambda (aok-27859 r-27860) + (rest-27403 + r-27860 + req-27683 + opt-27684 (cons #t - (reverse rkey-25543)))) - tmp-25685) - (let ((tmp-25721 + (reverse rkey-27685)))) + tmp-27827) + (let ((tmp-27863 ($sc-dispatch - args-25540 + args-27682 '(any any)))) - (if (if tmp-25721 + (if (if tmp-27863 (@apply - (lambda (a-25725 b-25726) + (lambda (a-27867 b-27868) (eq? (syntax->datum - a-25725) + a-27867) #:rest)) - tmp-25721) + tmp-27863) #f) (@apply - (lambda (a-25727 b-25728) - (rest-25261 - b-25728 - req-25541 - opt-25542 + (lambda (a-27869 b-27870) + (rest-27403 + b-27870 + req-27683 + opt-27684 (cons #f (reverse - rkey-25543)))) - tmp-25721) - (let ((tmp-25731 - (list args-25540))) + rkey-27685)))) + tmp-27863) + (let ((tmp-27873 + (list args-27682))) (if (@apply - (lambda (r-25733) - (if (symbol? r-25733) + (lambda (r-27875) + (if (symbol? r-27875) #t (if (if (vector? - r-25733) + r-27875) (if (= (vector-length - r-25733) + r-27875) 4) (eq? (vector-ref - r-25733 + r-27875 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-25733 + r-27875 1)) #f))) - tmp-25731) + tmp-27873) (@apply - (lambda (r-25763) - (rest-25261 - r-25763 - req-25541 - opt-25542 + (lambda (r-27905) + (rest-27403 + r-27905 + req-27683 + opt-27684 (cons #f (reverse - rkey-25543)))) - tmp-25731) + rkey-27685)))) + tmp-27873) (syntax-violation 'lambda* "invalid keyword argument list" - orig-args-25257 - args-25540))))))))))))))))))))) - (rest-25261 - (lambda (args-25791 req-25792 opt-25793 kw-25794) - (let ((tmp-25796 (list args-25791))) + orig-args-27399 + args-27682))))))))))))))))))))) + (rest-27403 + (lambda (args-27933 req-27934 opt-27935 kw-27936) + (let ((tmp-27938 (list args-27933))) (if (@apply - (lambda (r-25798) - (if (symbol? r-25798) + (lambda (r-27940) + (if (symbol? r-27940) #t - (if (if (vector? r-25798) - (if (= (vector-length r-25798) 4) - (eq? (vector-ref r-25798 0) 'syntax-object) + (if (if (vector? r-27940) + (if (= (vector-length r-27940) 4) + (eq? (vector-ref r-27940 0) 'syntax-object) #f) #f) - (symbol? (vector-ref r-25798 1)) + (symbol? (vector-ref r-27940 1)) #f))) - tmp-25796) + tmp-27938) (@apply - (lambda (r-25828) - (check-25262 - req-25792 - opt-25793 - r-25828 - kw-25794)) - tmp-25796) + (lambda (r-27970) + (check-27404 + req-27934 + opt-27935 + r-27970 + kw-27936)) + tmp-27938) (syntax-violation 'lambda* "invalid rest argument" - orig-args-25257 - args-25791))))) - (check-25262 - (lambda (req-25832 opt-25833 rest-25834 kw-25835) - (if (distinct-bound-ids?-4513 + orig-args-27399 + args-27933))))) + (check-27404 + (lambda (req-27974 opt-27975 rest-27976 kw-27977) + (if (distinct-bound-ids?-6576 (append - req-25832 - (map car opt-25833) - (if rest-25834 (list rest-25834) '()) - (if (pair? kw-25835) - (map cadr (cdr kw-25835)) + req-27974 + (map car opt-27975) + (if rest-27976 (list rest-27976) '()) + (if (pair? kw-27977) + (map cadr (cdr kw-27977)) '()))) - (values req-25832 opt-25833 rest-25834 kw-25835) + (values req-27974 opt-27975 rest-27976 kw-27977) (syntax-violation 'lambda* "duplicate identifier in argument list" - orig-args-25257))))) - (req-25258 orig-args-25257 '())))) - (expand-lambda-case-4534 - (lambda (e-25951 - r-25952 - w-25953 - s-25954 - mod-25955 - get-formals-25956 - clauses-25957) + orig-args-27399))))) + (req-27400 orig-args-27399 '())))) + (expand-lambda-case-6597 + (lambda (e-28093 + r-28094 + w-28095 + s-28096 + mod-28097 + get-formals-28098 + clauses-28099) (letrec* - ((parse-req-25958 - (lambda (req-26089 - opt-26090 - rest-26091 - kw-26092 - body-26093) - (let ((vars-26094 (map gen-var-4536 req-26089)) - (labels-26095 (gen-labels-4489 req-26089))) - (let ((r*-26096 - (extend-var-env-4481 - labels-26095 - vars-26094 - r-25952)) - (w*-26097 - (make-binding-wrap-4500 - req-26089 - labels-26095 - w-25953))) - (parse-opt-25959 - (map syntax->datum req-26089) - opt-26090 - rest-26091 - kw-26092 - body-26093 - (reverse vars-26094) - r*-26096 - w*-26097 + ((parse-req-28100 + (lambda (req-28231 + opt-28232 + rest-28233 + kw-28234 + body-28235) + (let ((vars-28236 (map gen-var-6599 req-28231)) + (labels-28237 (gen-labels-6552 req-28231))) + (let ((r*-28238 + (extend-var-env-6544 + labels-28237 + vars-28236 + r-28094)) + (w*-28239 + (make-binding-wrap-6563 + req-28231 + labels-28237 + w-28095))) + (parse-opt-28101 + (map syntax->datum req-28231) + opt-28232 + rest-28233 + kw-28234 + body-28235 + (reverse vars-28236) + r*-28238 + w*-28239 '() '()))))) - (parse-opt-25959 - (lambda (req-26283 - opt-26284 - rest-26285 - kw-26286 - body-26287 - vars-26288 - r*-26289 - w*-26290 - out-26291 - inits-26292) - (if (pair? opt-26284) - (let ((tmp-26293 (car opt-26284))) - (let ((tmp-26294 ($sc-dispatch tmp-26293 '(any any)))) - (if tmp-26294 + (parse-opt-28101 + (lambda (req-28425 + opt-28426 + rest-28427 + kw-28428 + body-28429 + vars-28430 + r*-28431 + w*-28432 + out-28433 + inits-28434) + (if (pair? opt-28426) + (let ((tmp-28435 (car opt-28426))) + (let ((tmp-28436 ($sc-dispatch tmp-28435 '(any any)))) + (if tmp-28436 (@apply - (lambda (id-26296 i-26297) - (let ((v-26298 - (let ((id-26306 - (if (if (vector? id-26296) + (lambda (id-28438 i-28439) + (let ((v-28440 + (let ((id-28448 + (if (if (vector? id-28438) (if (= (vector-length - id-26296) + id-28438) 4) (eq? (vector-ref - id-26296 + id-28438 0) 'syntax-object) #f) #f) - (vector-ref id-26296 1) - id-26296))) + (vector-ref id-28438 1) + id-28438))) (gensym (string-append - (symbol->string id-26306) + (symbol->string id-28448) "-"))))) - (let ((l-26299 (gen-labels-4489 (list v-26298)))) - (let ((r**-26300 - (extend-var-env-4481 - l-26299 - (list v-26298) - r*-26289))) - (let ((w**-26301 - (make-binding-wrap-4500 - (list id-26296) - l-26299 - w*-26290))) - (parse-opt-25959 - req-26283 - (cdr opt-26284) - rest-26285 - kw-26286 - body-26287 - (cons v-26298 vars-26288) - r**-26300 - w**-26301 - (cons (syntax->datum id-26296) out-26291) - (cons (expand-4522 - i-26297 - r*-26289 - w*-26290 - mod-25955) - inits-26292))))))) - tmp-26294) + (let ((l-28441 (gen-labels-6552 (list v-28440)))) + (let ((r**-28442 + (extend-var-env-6544 + l-28441 + (list v-28440) + r*-28431))) + (let ((w**-28443 + (make-binding-wrap-6563 + (list id-28438) + l-28441 + w*-28432))) + (parse-opt-28101 + req-28425 + (cdr opt-28426) + rest-28427 + kw-28428 + body-28429 + (cons v-28440 vars-28430) + r**-28442 + w**-28443 + (cons (syntax->datum id-28438) out-28433) + (cons (expand-6585 + i-28439 + r*-28431 + w*-28432 + mod-28097) + inits-28434))))))) + tmp-28436) (syntax-violation #f "source expression failed to match any pattern" - tmp-26293)))) - (if rest-26285 - (let ((v-26544 - (let ((id-26554 - (if (if (vector? rest-26285) - (if (= (vector-length rest-26285) 4) - (eq? (vector-ref rest-26285 0) + tmp-28435)))) + (if rest-28427 + (let ((v-28686 + (let ((id-28696 + (if (if (vector? rest-28427) + (if (= (vector-length rest-28427) 4) + (eq? (vector-ref rest-28427 0) 'syntax-object) #f) #f) - (vector-ref rest-26285 1) - rest-26285))) + (vector-ref rest-28427 1) + rest-28427))) (gensym (string-append - (symbol->string id-26554) + (symbol->string id-28696) "-"))))) - (let ((l-26545 (gen-labels-4489 (list v-26544)))) - (let ((r*-26546 - (extend-var-env-4481 - l-26545 - (list v-26544) - r*-26289))) - (let ((w*-26547 - (make-binding-wrap-4500 - (list rest-26285) - l-26545 - w*-26290))) - (parse-kw-25960 - req-26283 - (if (pair? out-26291) (reverse out-26291) #f) - (syntax->datum rest-26285) - (if (pair? kw-26286) (cdr kw-26286) kw-26286) - body-26287 - (cons v-26544 vars-26288) - r*-26546 - w*-26547 - (if (pair? kw-26286) (car kw-26286) #f) + (let ((l-28687 (gen-labels-6552 (list v-28686)))) + (let ((r*-28688 + (extend-var-env-6544 + l-28687 + (list v-28686) + r*-28431))) + (let ((w*-28689 + (make-binding-wrap-6563 + (list rest-28427) + l-28687 + w*-28432))) + (parse-kw-28102 + req-28425 + (if (pair? out-28433) (reverse out-28433) #f) + (syntax->datum rest-28427) + (if (pair? kw-28428) (cdr kw-28428) kw-28428) + body-28429 + (cons v-28686 vars-28430) + r*-28688 + w*-28689 + (if (pair? kw-28428) (car kw-28428) #f) '() - inits-26292))))) - (parse-kw-25960 - req-26283 - (if (pair? out-26291) (reverse out-26291) #f) + inits-28434))))) + (parse-kw-28102 + req-28425 + (if (pair? out-28433) (reverse out-28433) #f) #f - (if (pair? kw-26286) (cdr kw-26286) kw-26286) - body-26287 - vars-26288 - r*-26289 - w*-26290 - (if (pair? kw-26286) (car kw-26286) #f) + (if (pair? kw-28428) (cdr kw-28428) kw-28428) + body-28429 + vars-28430 + r*-28431 + w*-28432 + (if (pair? kw-28428) (car kw-28428) #f) '() - inits-26292))))) - (parse-kw-25960 - (lambda (req-26725 - opt-26726 - rest-26727 - kw-26728 - body-26729 - vars-26730 - r*-26731 - w*-26732 - aok-26733 - out-26734 - inits-26735) - (if (pair? kw-26728) - (let ((tmp-26736 (car kw-26728))) - (let ((tmp-26737 - ($sc-dispatch tmp-26736 '(any any any)))) - (if tmp-26737 + inits-28434))))) + (parse-kw-28102 + (lambda (req-28867 + opt-28868 + rest-28869 + kw-28870 + body-28871 + vars-28872 + r*-28873 + w*-28874 + aok-28875 + out-28876 + inits-28877) + (if (pair? kw-28870) + (let ((tmp-28878 (car kw-28870))) + (let ((tmp-28879 + ($sc-dispatch tmp-28878 '(any any any)))) + (if tmp-28879 (@apply - (lambda (k-26739 id-26740 i-26741) - (let ((v-26742 - (let ((id-26750 - (if (if (vector? id-26740) + (lambda (k-28881 id-28882 i-28883) + (let ((v-28884 + (let ((id-28892 + (if (if (vector? id-28882) (if (= (vector-length - id-26740) + id-28882) 4) (eq? (vector-ref - id-26740 + id-28882 0) 'syntax-object) #f) #f) - (vector-ref id-26740 1) - id-26740))) + (vector-ref id-28882 1) + id-28882))) (gensym (string-append - (symbol->string id-26750) + (symbol->string id-28892) "-"))))) - (let ((l-26743 (gen-labels-4489 (list v-26742)))) - (let ((r**-26744 - (extend-var-env-4481 - l-26743 - (list v-26742) - r*-26731))) - (let ((w**-26745 - (make-binding-wrap-4500 - (list id-26740) - l-26743 - w*-26732))) - (parse-kw-25960 - req-26725 - opt-26726 - rest-26727 - (cdr kw-26728) - body-26729 - (cons v-26742 vars-26730) - r**-26744 - w**-26745 - aok-26733 - (cons (list (syntax->datum k-26739) - (syntax->datum id-26740) - v-26742) - out-26734) - (cons (expand-4522 - i-26741 - r*-26731 - w*-26732 - mod-25955) - inits-26735))))))) - tmp-26737) + (let ((l-28885 (gen-labels-6552 (list v-28884)))) + (let ((r**-28886 + (extend-var-env-6544 + l-28885 + (list v-28884) + r*-28873))) + (let ((w**-28887 + (make-binding-wrap-6563 + (list id-28882) + l-28885 + w*-28874))) + (parse-kw-28102 + req-28867 + opt-28868 + rest-28869 + (cdr kw-28870) + body-28871 + (cons v-28884 vars-28872) + r**-28886 + w**-28887 + aok-28875 + (cons (list (syntax->datum k-28881) + (syntax->datum id-28882) + v-28884) + out-28876) + (cons (expand-6585 + i-28883 + r*-28873 + w*-28874 + mod-28097) + inits-28877))))))) + tmp-28879) (syntax-violation #f "source expression failed to match any pattern" - tmp-26736)))) - (parse-body-25961 - req-26725 - opt-26726 - rest-26727 - (if (if aok-26733 aok-26733 (pair? out-26734)) - (cons aok-26733 (reverse out-26734)) + tmp-28878)))) + (parse-body-28103 + req-28867 + opt-28868 + rest-28869 + (if (if aok-28875 aok-28875 (pair? out-28876)) + (cons aok-28875 (reverse out-28876)) #f) - body-26729 - (reverse vars-26730) - r*-26731 - w*-26732 - (reverse inits-26735) + body-28871 + (reverse vars-28872) + r*-28873 + w*-28874 + (reverse inits-28877) '())))) - (parse-body-25961 - (lambda (req-26997 - opt-26998 - rest-26999 - kw-27000 - body-27001 - vars-27002 - r*-27003 - w*-27004 - inits-27005 - meta-27006) - (let ((tmp-27008 - ($sc-dispatch body-27001 '(any any . each-any)))) - (if (if tmp-27008 + (parse-body-28103 + (lambda (req-29139 + opt-29140 + rest-29141 + kw-29142 + body-29143 + vars-29144 + r*-29145 + w*-29146 + inits-29147 + meta-29148) + (let ((tmp-29150 + ($sc-dispatch body-29143 '(any any . each-any)))) + (if (if tmp-29150 (@apply - (lambda (docstring-27012 e1-27013 e2-27014) - (string? (syntax->datum docstring-27012))) - tmp-27008) + (lambda (docstring-29154 e1-29155 e2-29156) + (string? (syntax->datum docstring-29154))) + tmp-29150) #f) (@apply - (lambda (docstring-27015 e1-27016 e2-27017) - (parse-body-25961 - req-26997 - opt-26998 - rest-26999 - kw-27000 - (cons e1-27016 e2-27017) - vars-27002 - r*-27003 - w*-27004 - inits-27005 + (lambda (docstring-29157 e1-29158 e2-29159) + (parse-body-28103 + req-29139 + opt-29140 + rest-29141 + kw-29142 + (cons e1-29158 e2-29159) + vars-29144 + r*-29145 + w*-29146 + inits-29147 (append - meta-27006 + meta-29148 (list (cons 'documentation - (syntax->datum docstring-27015)))))) - tmp-27008) - (let ((tmp-27018 + (syntax->datum docstring-29157)))))) + tmp-29150) + (let ((tmp-29160 ($sc-dispatch - body-27001 + body-29143 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-27018 + (if tmp-29160 (@apply - (lambda (k-27022 v-27023 e1-27024 e2-27025) - (parse-body-25961 - req-26997 - opt-26998 - rest-26999 - kw-27000 - (cons e1-27024 e2-27025) - vars-27002 - r*-27003 - w*-27004 - inits-27005 + (lambda (k-29164 v-29165 e1-29166 e2-29167) + (parse-body-28103 + req-29139 + opt-29140 + rest-29141 + kw-29142 + (cons e1-29166 e2-29167) + vars-29144 + r*-29145 + w*-29146 + inits-29147 (append - meta-27006 - (syntax->datum (map cons k-27022 v-27023))))) - tmp-27018) - (let ((tmp-27026 - ($sc-dispatch body-27001 '(any . each-any)))) - (if tmp-27026 + meta-29148 + (syntax->datum (map cons k-29164 v-29165))))) + tmp-29160) + (let ((tmp-29168 + ($sc-dispatch body-29143 '(any . each-any)))) + (if tmp-29168 (@apply - (lambda (e1-27030 e2-27031) + (lambda (e1-29172 e2-29173) (values - meta-27006 - req-26997 - opt-26998 - rest-26999 - kw-27000 - inits-27005 - vars-27002 - (expand-body-4526 - (cons e1-27030 e2-27031) - (wrap-4515 + meta-29148 + req-29139 + opt-29140 + rest-29141 + kw-29142 + inits-29147 + vars-29144 + (expand-body-6589 + (cons e1-29172 e2-29173) + (wrap-6578 (begin - (if (if (pair? e-25951) s-25954 #f) + (if (if (pair? e-28093) s-28096 #f) (set-source-properties! - e-25951 - s-25954)) - e-25951) - w-25953 - mod-25955) - r*-27003 - w*-27004 - mod-25955))) - tmp-27026) + e-28093 + s-28096)) + e-28093) + w-28095 + mod-28097) + r*-29145 + w*-29146 + mod-28097))) + tmp-29168) (syntax-violation #f "source expression failed to match any pattern" - body-27001)))))))))) - (let ((tmp-25963 ($sc-dispatch clauses-25957 '()))) - (if tmp-25963 - (@apply (lambda () (values '() #f)) tmp-25963) - (let ((tmp-25967 + body-29143)))))))))) + (let ((tmp-28105 ($sc-dispatch clauses-28099 '()))) + (if tmp-28105 + (@apply (lambda () (values '() #f)) tmp-28105) + (let ((tmp-28109 ($sc-dispatch - clauses-25957 + clauses-28099 '((any any . each-any) . #(each (any any . each-any)))))) - (if tmp-25967 + (if tmp-28109 (@apply - (lambda (args-25971 - e1-25972 - e2-25973 - args*-25974 - e1*-25975 - e2*-25976) + (lambda (args-28113 + e1-28114 + e2-28115 + args*-28116 + e1*-28117 + e2*-28118) (call-with-values - (lambda () (get-formals-25956 args-25971)) - (lambda (req-25977 opt-25978 rest-25979 kw-25980) + (lambda () (get-formals-28098 args-28113)) + (lambda (req-28119 opt-28120 rest-28121 kw-28122) (call-with-values (lambda () - (parse-req-25958 - req-25977 - opt-25978 - rest-25979 - kw-25980 - (cons e1-25972 e2-25973))) - (lambda (meta-26045 - req-26046 - opt-26047 - rest-26048 - kw-26049 - inits-26050 - vars-26051 - body-26052) + (parse-req-28100 + req-28119 + opt-28120 + rest-28121 + kw-28122 + (cons e1-28114 e2-28115))) + (lambda (meta-28187 + req-28188 + opt-28189 + rest-28190 + kw-28191 + inits-28192 + vars-28193 + body-28194) (call-with-values (lambda () - (expand-lambda-case-4534 - e-25951 - r-25952 - w-25953 - s-25954 - mod-25955 - get-formals-25956 - (map (lambda (tmp-2888-26053 - tmp-2887-26054 - tmp-2886-26055) - (cons tmp-2886-26055 - (cons tmp-2887-26054 - tmp-2888-26053))) - e2*-25976 - e1*-25975 - args*-25974))) - (lambda (meta*-26056 else*-26057) + (expand-lambda-case-6597 + e-28093 + r-28094 + w-28095 + s-28096 + mod-28097 + get-formals-28098 + (map (lambda (tmp-4949-28195 + tmp-4948-28196 + tmp-4947-28197) + (cons tmp-4947-28197 + (cons tmp-4948-28196 + tmp-4949-28195))) + e2*-28118 + e1*-28117 + args*-28116))) + (lambda (meta*-28198 else*-28199) (values - (append meta-26045 meta*-26056) + (append meta-28187 meta*-28198) (make-struct/no-tail (vector-ref %expanded-vtables 14) - s-25954 - req-26046 - opt-26047 - rest-26048 - kw-26049 - inits-26050 - vars-26051 - body-26052 - else*-26057))))))))) - tmp-25967) + s-28096 + req-28188 + opt-28189 + rest-28190 + kw-28191 + inits-28192 + vars-28193 + body-28194 + else*-28199))))))))) + tmp-28109) (syntax-violation #f "source expression failed to match any pattern" - clauses-25957)))))))) - (strip-4535 - (lambda (x-27068 w-27069) - (if (memq 'top (car w-27069)) - x-27068 + clauses-28099)))))))) + (strip-6598 + (lambda (x-29210 w-29211) + (if (memq 'top (car w-29211)) + x-29210 (letrec* - ((f-27070 - (lambda (x-27073) - (if (if (vector? x-27073) - (if (= (vector-length x-27073) 4) - (eq? (vector-ref x-27073 0) 'syntax-object) + ((f-29212 + (lambda (x-29215) + (if (if (vector? x-29215) + (if (= (vector-length x-29215) 4) + (eq? (vector-ref x-29215 0) 'syntax-object) #f) #f) - (strip-4535 - (vector-ref x-27073 1) - (vector-ref x-27073 2)) - (if (pair? x-27073) - (let ((a-27092 (f-27070 (car x-27073))) - (d-27093 (f-27070 (cdr x-27073)))) - (if (if (eq? a-27092 (car x-27073)) - (eq? d-27093 (cdr x-27073)) + (strip-6598 + (vector-ref x-29215 1) + (vector-ref x-29215 2)) + (if (pair? x-29215) + (let ((a-29234 (f-29212 (car x-29215))) + (d-29235 (f-29212 (cdr x-29215)))) + (if (if (eq? a-29234 (car x-29215)) + (eq? d-29235 (cdr x-29215)) #f) - x-27073 - (cons a-27092 d-27093))) - (if (vector? x-27073) - (let ((old-27096 (vector->list x-27073))) - (let ((new-27097 (map f-27070 old-27096))) + x-29215 + (cons a-29234 d-29235))) + (if (vector? x-29215) + (let ((old-29238 (vector->list x-29215))) + (let ((new-29239 (map f-29212 old-29238))) (letrec* - ((lp-27098 - (lambda (l1-27174 l2-27175) - (if (null? l1-27174) - x-27073 - (if (eq? (car l1-27174) (car l2-27175)) - (lp-27098 (cdr l1-27174) (cdr l2-27175)) - (list->vector new-27097)))))) - (lp-27098 old-27096 new-27097)))) - x-27073)))))) - (f-27070 x-27068))))) - (gen-var-4536 - (lambda (id-26101) - (let ((id-26102 - (if (if (vector? id-26101) - (if (= (vector-length id-26101) 4) - (eq? (vector-ref id-26101 0) 'syntax-object) + ((lp-29240 + (lambda (l1-29316 l2-29317) + (if (null? l1-29316) + x-29215 + (if (eq? (car l1-29316) (car l2-29317)) + (lp-29240 (cdr l1-29316) (cdr l2-29317)) + (list->vector new-29239)))))) + (lp-29240 old-29238 new-29239)))) + x-29215)))))) + (f-29212 x-29210))))) + (gen-var-6599 + (lambda (id-28243) + (let ((id-28244 + (if (if (vector? id-28243) + (if (= (vector-length id-28243) 4) + (eq? (vector-ref id-28243 0) 'syntax-object) #f) #f) - (vector-ref id-26101 1) - id-26101))) + (vector-ref id-28243 1) + id-28243))) (gensym - (string-append (symbol->string id-26102) "-")))))) + (string-append (symbol->string id-28244) "-")))))) (begin - (set! session-id-4447 - (let ((v-15641 + (set! session-id-6510 + (let ((v-17707 (module-variable (current-module) 'syntax-session-id))) - (lambda () ((variable-ref v-15641))))) - (set! transformer-environment-4508 + (lambda () ((variable-ref v-17707))))) + (set! transformer-environment-6571 (make-fluid - (lambda (k-14684) + (lambda (k-16750) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8096,1119 +8177,1142 @@ 'let-syntax 'local-syntax #f)) - (global-extend-4484 + (global-extend-6547 'core 'syntax-parameterize - (lambda (e-4657 r-4658 w-4659 s-4660 mod-4661) - (let ((tmp-4663 + (lambda (e-6720 r-6721 w-6722 s-6723 mod-6724) + (let ((tmp-6726 ($sc-dispatch - e-4657 + e-6720 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-4663 + (if (if tmp-6726 (@apply - (lambda (var-4667 val-4668 e1-4669 e2-4670) - (valid-bound-ids?-4512 var-4667)) - tmp-4663) + (lambda (var-6730 val-6731 e1-6732 e2-6733) + (valid-bound-ids?-6575 var-6730)) + tmp-6726) #f) (@apply - (lambda (var-4748 val-4749 e1-4750 e2-4751) - (let ((names-4752 - (map (lambda (x-4802) - (id-var-name-4505 x-4802 w-4659)) - var-4748))) + (lambda (var-6811 val-6812 e1-6813 e2-6814) + (let ((names-6815 + (map (lambda (x-6865) + (id-var-name-6568 x-6865 w-6722)) + var-6811))) (begin (for-each - (lambda (id-4753 n-4754) - (let ((atom-key-4755 - (car (let ((t-4762 (assq n-4754 r-4658))) - (if t-4762 - (cdr t-4762) - (if (symbol? n-4754) - (let ((t-4767 - (get-global-definition-hook-4449 - n-4754 - mod-4661))) - (if t-4767 t-4767 '(global))) + (lambda (id-6816 n-6817) + (let ((atom-key-6818 + (car (let ((t-6825 (assq n-6817 r-6721))) + (if t-6825 + (cdr t-6825) + (if (symbol? n-6817) + (let ((t-6830 + (get-global-definition-hook-6512 + n-6817 + mod-6724))) + (if t-6830 t-6830 '(global))) '(displaced-lexical))))))) - (if (eqv? atom-key-4755 'displaced-lexical) + (if (eqv? atom-key-6818 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - e-4657 - (wrap-4515 + e-6720 + (wrap-6578 (begin - (if (if (pair? id-4753) s-4660 #f) - (set-source-properties! id-4753 s-4660)) - id-4753) - w-4659 - mod-4661))))) - var-4748 - names-4752) - (expand-body-4526 - (cons e1-4750 e2-4751) - (wrap-4515 + (if (if (pair? id-6816) s-6723 #f) + (set-source-properties! id-6816 s-6723)) + id-6816) + w-6722 + mod-6724))))) + var-6811 + names-6815) + (expand-body-6589 + (cons e1-6813 e2-6814) + (wrap-6578 (begin - (if (if (pair? e-4657) s-4660 #f) - (set-source-properties! e-4657 s-4660)) - e-4657) - w-4659 - mod-4661) - (extend-env-4480 - names-4752 - (let ((trans-r-4888 (macros-only-env-4482 r-4658))) - (map (lambda (x-4889) + (if (if (pair? e-6720) s-6723 #f) + (set-source-properties! e-6720 s-6723)) + e-6720) + w-6722 + mod-6724) + (extend-env-6543 + names-6815 + (let ((trans-r-6951 (macros-only-env-6545 r-6721))) + (map (lambda (x-6952) (cons 'macro - (eval-local-transformer-4528 - (expand-4522 - x-4889 - trans-r-4888 - w-4659 - mod-4661) - mod-4661))) - val-4749)) - r-4658) - w-4659 - mod-4661)))) - tmp-4663) + (eval-local-transformer-6591 + (expand-6585 + x-6952 + trans-r-6951 + w-6722 + mod-6724) + mod-6724))) + val-6812)) + r-6721) + w-6722 + mod-6724)))) + tmp-6726) (syntax-violation 'syntax-parameterize "bad syntax" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-4657) s-4660 #f) - (set-source-properties! e-4657 s-4660)) - e-4657) - w-4659 - mod-4661)))))) + (if (if (pair? e-6720) s-6723 #f) + (set-source-properties! e-6720 s-6723)) + e-6720) + w-6722 + mod-6724)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (e-5098 r-5099 w-5100 s-5101 mod-5102) - (let ((tmp-5104 ($sc-dispatch e-5098 '(_ any)))) - (if tmp-5104 + (lambda (e-7161 r-7162 w-7163 s-7164 mod-7165) + (let ((tmp-7167 ($sc-dispatch e-7161 '(_ any)))) + (if tmp-7167 (@apply - (lambda (e-5107) - (let ((exp-5111 (strip-4535 e-5107 w-5100))) + (lambda (e-7170) + (let ((exp-7174 (strip-6598 e-7170 w-7163))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-5101 - exp-5111))) - tmp-5104) + s-7164 + exp-7174))) + tmp-7167) (syntax-violation 'quote "bad syntax" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-5098) s-5101 #f) - (set-source-properties! e-5098 s-5101)) - e-5098) - w-5100 - mod-5102))))))) - (global-extend-4484 + (if (if (pair? e-7161) s-7164 #f) + (set-source-properties! e-7161 s-7164)) + e-7161) + w-7163 + mod-7165))))))) + (global-extend-6547 'core 'syntax (letrec* - ((gen-syntax-5331 - (lambda (src-5433 - e-5434 - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438) - (if (if (symbol? e-5434) + ((gen-syntax-7394 + (lambda (src-7496 + e-7497 + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501) + (if (if (symbol? e-7497) #t - (if (if (vector? e-5434) - (if (= (vector-length e-5434) 4) - (eq? (vector-ref e-5434 0) 'syntax-object) + (if (if (vector? e-7497) + (if (= (vector-length e-7497) 4) + (eq? (vector-ref e-7497 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-5434 1)) + (symbol? (vector-ref e-7497 1)) #f)) - (let ((label-5465 (id-var-name-4505 e-5434 '(())))) - (let ((b-5466 - (let ((t-5473 (assq label-5465 r-5435))) - (if t-5473 - (cdr t-5473) - (if (symbol? label-5465) - (let ((t-5479 - (get-global-definition-hook-4449 - label-5465 - mod-5438))) - (if t-5479 t-5479 '(global))) + (let ((label-7528 (id-var-name-6568 e-7497 '(())))) + (let ((b-7529 + (let ((t-7536 (assq label-7528 r-7498))) + (if t-7536 + (cdr t-7536) + (if (symbol? label-7528) + (let ((t-7542 + (get-global-definition-hook-6512 + label-7528 + mod-7501))) + (if t-7542 t-7542 '(global))) '(displaced-lexical)))))) - (if (eq? (car b-5466) 'syntax) + (if (eq? (car b-7529) 'syntax) (call-with-values (lambda () - (let ((var.lev-5488 (cdr b-5466))) - (gen-ref-5332 - src-5433 - (car var.lev-5488) - (cdr var.lev-5488) - maps-5436))) - (lambda (var-5492 maps-5493) - (values (list 'ref var-5492) maps-5493))) - (if (ellipsis?-5437 e-5434) + (let ((var.lev-7551 (cdr b-7529))) + (gen-ref-7395 + src-7496 + (car var.lev-7551) + (cdr var.lev-7551) + maps-7499))) + (lambda (var-7555 maps-7556) + (values (list 'ref var-7555) maps-7556))) + (if (ellipsis?-7500 e-7497) (syntax-violation 'syntax "misplaced ellipsis" - src-5433) - (values (list 'quote e-5434) maps-5436))))) - (let ((tmp-5495 ($sc-dispatch e-5434 '(any any)))) - (if (if tmp-5495 + src-7496) + (values (list 'quote e-7497) maps-7499))))) + (let ((tmp-7558 ($sc-dispatch e-7497 '(any any)))) + (if (if tmp-7558 (@apply - (lambda (dots-5499 e-5500) - (ellipsis?-5437 dots-5499)) - tmp-5495) + (lambda (dots-7562 e-7563) + (ellipsis?-7500 dots-7562)) + tmp-7558) #f) (@apply - (lambda (dots-5501 e-5502) - (gen-syntax-5331 - src-5433 - e-5502 - r-5435 - maps-5436 - (lambda (x-5503) #f) - mod-5438)) - tmp-5495) - (let ((tmp-5504 ($sc-dispatch e-5434 '(any any . any)))) - (if (if tmp-5504 + (lambda (dots-7564 e-7565) + (gen-syntax-7394 + src-7496 + e-7565 + r-7498 + maps-7499 + (lambda (x-7566) #f) + mod-7501)) + tmp-7558) + (let ((tmp-7567 ($sc-dispatch e-7497 '(any any . any)))) + (if (if tmp-7567 (@apply - (lambda (x-5508 dots-5509 y-5510) - (ellipsis?-5437 dots-5509)) - tmp-5504) + (lambda (x-7571 dots-7572 y-7573) + (ellipsis?-7500 dots-7572)) + tmp-7567) #f) (@apply - (lambda (x-5511 dots-5512 y-5513) + (lambda (x-7574 dots-7575 y-7576) (letrec* - ((f-5514 - (lambda (y-5522 k-5523) - (let ((tmp-5525 + ((f-7577 + (lambda (y-7585 k-7586) + (let ((tmp-7588 ($sc-dispatch - y-5522 + y-7585 '(any . any)))) - (if (if tmp-5525 + (if (if tmp-7588 (@apply - (lambda (dots-5529 y-5530) - (ellipsis?-5437 dots-5529)) - tmp-5525) + (lambda (dots-7592 y-7593) + (ellipsis?-7500 dots-7592)) + tmp-7588) #f) (@apply - (lambda (dots-5531 y-5532) - (f-5514 - y-5532 - (lambda (maps-5533) + (lambda (dots-7594 y-7595) + (f-7577 + y-7595 + (lambda (maps-7596) (call-with-values (lambda () - (k-5523 - (cons '() maps-5533))) - (lambda (x-5534 maps-5535) - (if (null? (car maps-5535)) + (k-7586 + (cons '() maps-7596))) + (lambda (x-7597 maps-7598) + (if (null? (car maps-7598)) (syntax-violation 'syntax "extra ellipsis" - src-5433) + src-7496) (values - (let ((map-env-5539 - (car maps-5535))) + (let ((map-env-7602 + (car maps-7598))) (list 'apply '(primitive append) - (gen-map-5334 - x-5534 - map-env-5539))) - (cdr maps-5535)))))))) - tmp-5525) + (gen-map-7397 + x-7597 + map-env-7602))) + (cdr maps-7598)))))))) + tmp-7588) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - y-5522 - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438)) - (lambda (y-5542 maps-5543) + (gen-syntax-7394 + src-7496 + y-7585 + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501)) + (lambda (y-7605 maps-7606) (call-with-values - (lambda () (k-5523 maps-5543)) - (lambda (x-5544 maps-5545) + (lambda () (k-7586 maps-7606)) + (lambda (x-7607 maps-7608) (values - (if (equal? y-5542 ''()) - x-5544 + (if (equal? y-7605 ''()) + x-7607 (list 'append - x-5544 - y-5542)) - maps-5545)))))))))) - (f-5514 - y-5513 - (lambda (maps-5517) + x-7607 + y-7605)) + maps-7608)))))))))) + (f-7577 + y-7576 + (lambda (maps-7580) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - x-5511 - r-5435 - (cons '() maps-5517) - ellipsis?-5437 - mod-5438)) - (lambda (x-5518 maps-5519) - (if (null? (car maps-5519)) + (gen-syntax-7394 + src-7496 + x-7574 + r-7498 + (cons '() maps-7580) + ellipsis?-7500 + mod-7501)) + (lambda (x-7581 maps-7582) + (if (null? (car maps-7582)) (syntax-violation 'syntax "extra ellipsis" - src-5433) + src-7496) (values - (gen-map-5334 - x-5518 - (car maps-5519)) - (cdr maps-5519))))))))) - tmp-5504) - (let ((tmp-5561 ($sc-dispatch e-5434 '(any . any)))) - (if tmp-5561 + (gen-map-7397 + x-7581 + (car maps-7582)) + (cdr maps-7582))))))))) + tmp-7567) + (let ((tmp-7624 ($sc-dispatch e-7497 '(any . any)))) + (if tmp-7624 (@apply - (lambda (x-5565 y-5566) + (lambda (x-7628 y-7629) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - x-5565 - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438)) - (lambda (x-5567 maps-5568) + (gen-syntax-7394 + src-7496 + x-7628 + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501)) + (lambda (x-7630 maps-7631) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - y-5566 - r-5435 - maps-5568 - ellipsis?-5437 - mod-5438)) - (lambda (y-5569 maps-5570) + (gen-syntax-7394 + src-7496 + y-7629 + r-7498 + maps-7631 + ellipsis?-7500 + mod-7501)) + (lambda (y-7632 maps-7633) (values - (let ((atom-key-5575 (car y-5569))) - (if (eqv? atom-key-5575 'quote) - (if (eq? (car x-5567) 'quote) + (let ((atom-key-7638 (car y-7632))) + (if (eqv? atom-key-7638 'quote) + (if (eq? (car x-7630) 'quote) (list 'quote - (cons (car (cdr x-5567)) - (car (cdr y-5569)))) - (if (eq? (car (cdr y-5569)) + (cons (car (cdr x-7630)) + (car (cdr y-7632)))) + (if (eq? (car (cdr y-7632)) '()) - (list 'list x-5567) - (list 'cons x-5567 y-5569))) - (if (eqv? atom-key-5575 'list) + (list 'list x-7630) + (list 'cons x-7630 y-7632))) + (if (eqv? atom-key-7638 'list) (cons 'list - (cons x-5567 - (cdr y-5569))) - (list 'cons x-5567 y-5569)))) - maps-5570)))))) - tmp-5561) - (let ((tmp-5604 + (cons x-7630 + (cdr y-7632))) + (list 'cons x-7630 y-7632)))) + maps-7633)))))) + tmp-7624) + (let ((tmp-7667 ($sc-dispatch - e-5434 + e-7497 '#(vector (any . each-any))))) - (if tmp-5604 + (if tmp-7667 (@apply - (lambda (e1-5608 e2-5609) + (lambda (e1-7671 e2-7672) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - (cons e1-5608 e2-5609) - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438)) - (lambda (e-5610 maps-5611) + (gen-syntax-7394 + src-7496 + (cons e1-7671 e2-7672) + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501)) + (lambda (e-7673 maps-7674) (values - (if (eq? (car e-5610) 'list) - (cons 'vector (cdr e-5610)) - (if (eq? (car e-5610) 'quote) + (if (eq? (car e-7673) 'list) + (cons 'vector (cdr e-7673)) + (if (eq? (car e-7673) 'quote) (list 'quote (list->vector - (car (cdr e-5610)))) - (list 'list->vector e-5610))) - maps-5611)))) - tmp-5604) + (car (cdr e-7673)))) + (list 'list->vector e-7673))) + maps-7674)))) + tmp-7667) (values - (list 'quote e-5434) - maps-5436)))))))))))) - (gen-ref-5332 - (lambda (src-5638 var-5639 level-5640 maps-5641) - (if (= level-5640 0) - (values var-5639 maps-5641) - (if (null? maps-5641) + (list 'quote e-7497) + maps-7499)))))))))))) + (gen-ref-7395 + (lambda (src-7701 var-7702 level-7703 maps-7704) + (if (= level-7703 0) + (values var-7702 maps-7704) + (if (null? maps-7704) (syntax-violation 'syntax "missing ellipsis" - src-5638) + src-7701) (call-with-values (lambda () - (gen-ref-5332 - src-5638 - var-5639 - (#{1-}# level-5640) - (cdr maps-5641))) - (lambda (outer-var-5642 outer-maps-5643) - (let ((b-5644 (assq outer-var-5642 (car maps-5641)))) - (if b-5644 - (values (cdr b-5644) maps-5641) - (let ((inner-var-5646 + (gen-ref-7395 + src-7701 + var-7702 + (#{1-}# level-7703) + (cdr maps-7704))) + (lambda (outer-var-7705 outer-maps-7706) + (let ((b-7707 (assq outer-var-7705 (car maps-7704)))) + (if b-7707 + (values (cdr b-7707) maps-7704) + (let ((inner-var-7709 (gensym (string-append (symbol->string 'tmp) "-")))) (values - inner-var-5646 - (cons (cons (cons outer-var-5642 inner-var-5646) - (car maps-5641)) - outer-maps-5643))))))))))) - (gen-map-5334 - (lambda (e-5660 map-env-5661) - (let ((formals-5662 (map cdr map-env-5661)) - (actuals-5663 - (map (lambda (x-5665) (list 'ref (car x-5665))) - map-env-5661))) - (if (eq? (car e-5660) 'ref) - (car actuals-5663) + inner-var-7709 + (cons (cons (cons outer-var-7705 inner-var-7709) + (car maps-7704)) + outer-maps-7706))))))))))) + (gen-map-7397 + (lambda (e-7723 map-env-7724) + (let ((formals-7725 (map cdr map-env-7724)) + (actuals-7726 + (map (lambda (x-7728) (list 'ref (car x-7728))) + map-env-7724))) + (if (eq? (car e-7723) 'ref) + (car actuals-7726) (if (and-map - (lambda (x-5666) - (if (eq? (car x-5666) 'ref) - (memq (car (cdr x-5666)) formals-5662) + (lambda (x-7729) + (if (eq? (car x-7729) 'ref) + (memq (car (cdr x-7729)) formals-7725) #f)) - (cdr e-5660)) + (cdr e-7723)) (cons 'map - (cons (list 'primitive (car e-5660)) - (map (let ((r-5668 + (cons (list 'primitive (car e-7723)) + (map (let ((r-7731 (map cons - formals-5662 - actuals-5663))) - (lambda (x-5669) - (cdr (assq (car (cdr x-5669)) - r-5668)))) - (cdr e-5660)))) + formals-7725 + actuals-7726))) + (lambda (x-7732) + (cdr (assq (car (cdr x-7732)) + r-7731)))) + (cdr e-7723)))) (cons 'map - (cons (list 'lambda formals-5662 e-5660) - actuals-5663))))))) - (regen-5338 - (lambda (x-5671) - (let ((atom-key-5672 (car x-5671))) - (if (eqv? atom-key-5672 'ref) - (let ((name-5682 (car (cdr x-5671))) - (var-5683 (car (cdr x-5671)))) + (cons (list 'lambda formals-7725 e-7723) + actuals-7726))))))) + (regen-7401 + (lambda (x-7734) + (let ((atom-key-7735 (car x-7734))) + (if (eqv? atom-key-7735 'ref) + (let ((name-7745 (car (cdr x-7734))) + (var-7746 (car (cdr x-7734)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - name-5682 - var-5683)) - (if (eqv? atom-key-5672 'primitive) - (let ((name-5695 (car (cdr x-5671)))) + name-7745 + var-7746)) + (if (eqv? atom-key-7735 'primitive) + (let ((name-7758 (car (cdr x-7734)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - name-5695) + name-7758) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-5695 + name-7758 #f))) - (if (eqv? atom-key-5672 'quote) - (let ((exp-5713 (car (cdr x-5671)))) + (if (eqv? atom-key-7735 'quote) + (let ((exp-7776 (car (cdr x-7734)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - exp-5713)) - (if (eqv? atom-key-5672 'lambda) - (if (list? (car (cdr x-5671))) - (let ((req-5724 (car (cdr x-5671))) - (vars-5726 (car (cdr x-5671))) - (exp-5728 - (regen-5338 (car (cdr (cdr x-5671)))))) - (let ((body-5733 + exp-7776)) + (if (eqv? atom-key-7735 'lambda) + (if (list? (car (cdr x-7734))) + (let ((req-7787 (car (cdr x-7734))) + (vars-7789 (car (cdr x-7734))) + (exp-7791 + (regen-7401 (car (cdr (cdr x-7734)))))) + (let ((body-7796 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-5724 + req-7787 #f #f #f '() - vars-5726 - exp-5728 + vars-7789 + exp-7791 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-5733))) - (error "how did we get here" x-5671)) - (let ((fun-exp-5749 - (let ((name-5758 (car x-5671))) + body-7796))) + (error "how did we get here" x-7734)) + (let ((fun-exp-7812 + (let ((name-7821 (car x-7734))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - name-5758) + name-7821) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-5758 + name-7821 #f)))) - (arg-exps-5750 (map regen-5338 (cdr x-5671)))) + (arg-exps-7813 (map regen-7401 (cdr x-7734)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-5749 - arg-exps-5750)))))))))) - (lambda (e-5339 r-5340 w-5341 s-5342 mod-5343) - (let ((e-5344 - (wrap-4515 + fun-exp-7812 + arg-exps-7813)))))))))) + (lambda (e-7402 r-7403 w-7404 s-7405 mod-7406) + (let ((e-7407 + (wrap-6578 (begin - (if (if (pair? e-5339) s-5342 #f) - (set-source-properties! e-5339 s-5342)) - e-5339) - w-5341 - mod-5343))) - (let ((tmp-5346 ($sc-dispatch e-5344 '(_ any)))) - (if tmp-5346 + (if (if (pair? e-7402) s-7405 #f) + (set-source-properties! e-7402 s-7405)) + e-7402) + w-7404 + mod-7406))) + (let ((tmp-7409 ($sc-dispatch e-7407 '(_ any)))) + (if tmp-7409 (@apply - (lambda (x-5371) + (lambda (x-7434) (call-with-values (lambda () - (gen-syntax-5331 - e-5344 - x-5371 - r-5340 + (gen-syntax-7394 + e-7407 + x-7434 + r-7403 '() - ellipsis?-4530 - mod-5343)) - (lambda (e-5425 maps-5426) (regen-5338 e-5425)))) - tmp-5346) + ellipsis?-6593 + mod-7406)) + (lambda (e-7488 maps-7489) (regen-7401 e-7488)))) + tmp-7409) (syntax-violation 'syntax "bad `syntax' form" - e-5344))))))) - (global-extend-4484 + e-7407))))))) + (global-extend-6547 'core 'lambda - (lambda (e-5946 r-5947 w-5948 s-5949 mod-5950) - (let ((tmp-5952 - ($sc-dispatch e-5946 '(_ any any . each-any)))) - (if tmp-5952 + (lambda (e-8009 r-8010 w-8011 s-8012 mod-8013) + (let ((tmp-8015 + ($sc-dispatch e-8009 '(_ any any . each-any)))) + (if tmp-8015 (@apply - (lambda (args-5956 e1-5957 e2-5958) + (lambda (args-8019 e1-8020 e2-8021) (call-with-values - (lambda () (lambda-formals-4531 args-5956)) - (lambda (req-5961 opt-5962 rest-5963 kw-5964) + (lambda () (lambda-formals-6594 args-8019)) + (lambda (req-8024 opt-8025 rest-8026 kw-8027) (letrec* - ((lp-5965 - (lambda (body-5968 meta-5969) - (let ((tmp-5971 + ((lp-8028 + (lambda (body-8031 meta-8032) + (let ((tmp-8034 ($sc-dispatch - body-5968 + body-8031 '(any any . each-any)))) - (if (if tmp-5971 + (if (if tmp-8034 (@apply - (lambda (docstring-5975 e1-5976 e2-5977) + (lambda (docstring-8038 e1-8039 e2-8040) (string? - (syntax->datum docstring-5975))) - tmp-5971) + (syntax->datum docstring-8038))) + tmp-8034) #f) (@apply - (lambda (docstring-5978 e1-5979 e2-5980) - (lp-5965 - (cons e1-5979 e2-5980) + (lambda (docstring-8041 e1-8042 e2-8043) + (lp-8028 + (cons e1-8042 e2-8043) (append - meta-5969 + meta-8032 (list (cons 'documentation (syntax->datum - docstring-5978)))))) - tmp-5971) - (let ((tmp-5981 + docstring-8041)))))) + tmp-8034) + (let ((tmp-8044 ($sc-dispatch - body-5968 + body-8031 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-5981 + (if tmp-8044 (@apply - (lambda (k-5985 v-5986 e1-5987 e2-5988) - (lp-5965 - (cons e1-5987 e2-5988) + (lambda (k-8048 v-8049 e1-8050 e2-8051) + (lp-8028 + (cons e1-8050 e2-8051) (append - meta-5969 + meta-8032 (syntax->datum - (map cons k-5985 v-5986))))) - tmp-5981) - (expand-simple-lambda-4532 - e-5946 - r-5947 - w-5948 - s-5949 - mod-5950 - req-5961 - rest-5963 - meta-5969 - body-5968)))))))) - (lp-5965 (cons e1-5957 e2-5958) '()))))) - tmp-5952) - (syntax-violation 'lambda "bad lambda" e-5946))))) - (global-extend-4484 + (map cons k-8048 v-8049))))) + tmp-8044) + (expand-simple-lambda-6595 + e-8009 + r-8010 + w-8011 + s-8012 + mod-8013 + req-8024 + rest-8026 + meta-8032 + body-8031)))))))) + (lp-8028 (cons e1-8020 e2-8021) '()))))) + tmp-8015) + (syntax-violation 'lambda "bad lambda" e-8009))))) + (global-extend-6547 'core 'lambda* - (lambda (e-6277 r-6278 w-6279 s-6280 mod-6281) - (let ((tmp-6283 - ($sc-dispatch e-6277 '(_ any any . each-any)))) - (if tmp-6283 + (lambda (e-8340 r-8341 w-8342 s-8343 mod-8344) + (let ((tmp-8346 + ($sc-dispatch e-8340 '(_ any any . each-any)))) + (if tmp-8346 (@apply - (lambda (args-6287 e1-6288 e2-6289) + (lambda (args-8350 e1-8351 e2-8352) (call-with-values (lambda () - (expand-lambda-case-4534 - e-6277 - r-6278 - w-6279 - s-6280 - mod-6281 - lambda*-formals-4533 - (list (cons args-6287 (cons e1-6288 e2-6289))))) - (lambda (meta-6292 lcase-6293) + (expand-lambda-case-6597 + e-8340 + r-8341 + w-8342 + s-8343 + mod-8344 + lambda*-formals-6596 + (list (cons args-8350 (cons e1-8351 e2-8352))))) + (lambda (meta-8355 lcase-8356) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-6280 - meta-6292 - lcase-6293)))) - tmp-6283) - (syntax-violation 'lambda "bad lambda*" e-6277))))) - (global-extend-4484 + s-8343 + meta-8355 + lcase-8356)))) + tmp-8346) + (syntax-violation 'lambda "bad lambda*" e-8340))))) + (global-extend-6547 'core 'case-lambda - (lambda (e-6463 r-6464 w-6465 s-6466 mod-6467) - (let ((tmp-6469 + (lambda (e-8526 r-8527 w-8528 s-8529 mod-8530) + (let ((tmp-8532 ($sc-dispatch - e-6463 + e-8526 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-6469 + (if tmp-8532 (@apply - (lambda (args-6473 - e1-6474 - e2-6475 - args*-6476 - e1*-6477 - e2*-6478) + (lambda (args-8536 + e1-8537 + e2-8538 + args*-8539 + e1*-8540 + e2*-8541) (call-with-values (lambda () - (expand-lambda-case-4534 - e-6463 - r-6464 - w-6465 - s-6466 - mod-6467 - lambda-formals-4531 - (cons (cons args-6473 (cons e1-6474 e2-6475)) - (map (lambda (tmp-3387-6481 - tmp-3386-6482 - tmp-3385-6483) - (cons tmp-3385-6483 - (cons tmp-3386-6482 tmp-3387-6481))) - e2*-6478 - e1*-6477 - args*-6476)))) - (lambda (meta-6484 lcase-6485) + (expand-lambda-case-6597 + e-8526 + r-8527 + w-8528 + s-8529 + mod-8530 + lambda-formals-6594 + (cons (cons args-8536 (cons e1-8537 e2-8538)) + (map (lambda (tmp-5448-8544 + tmp-5447-8545 + tmp-5446-8546) + (cons tmp-5446-8546 + (cons tmp-5447-8545 tmp-5448-8544))) + e2*-8541 + e1*-8540 + args*-8539)))) + (lambda (meta-8547 lcase-8548) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-6466 - meta-6484 - lcase-6485)))) - tmp-6469) + s-8529 + meta-8547 + lcase-8548)))) + tmp-8532) (syntax-violation 'case-lambda "bad case-lambda" - e-6463))))) - (global-extend-4484 + e-8526))))) + (global-extend-6547 'core 'case-lambda* - (lambda (e-6647 r-6648 w-6649 s-6650 mod-6651) - (let ((tmp-6653 + (lambda (e-8710 r-8711 w-8712 s-8713 mod-8714) + (let ((tmp-8716 ($sc-dispatch - e-6647 + e-8710 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-6653 + (if tmp-8716 (@apply - (lambda (args-6657 - e1-6658 - e2-6659 - args*-6660 - e1*-6661 - e2*-6662) + (lambda (args-8720 + e1-8721 + e2-8722 + args*-8723 + e1*-8724 + e2*-8725) (call-with-values (lambda () - (expand-lambda-case-4534 - e-6647 - r-6648 - w-6649 - s-6650 - mod-6651 - lambda*-formals-4533 - (cons (cons args-6657 (cons e1-6658 e2-6659)) - (map (lambda (tmp-3422-6665 - tmp-3421-6666 - tmp-3420-6667) - (cons tmp-3420-6667 - (cons tmp-3421-6666 tmp-3422-6665))) - e2*-6662 - e1*-6661 - args*-6660)))) - (lambda (meta-6668 lcase-6669) + (expand-lambda-case-6597 + e-8710 + r-8711 + w-8712 + s-8713 + mod-8714 + lambda*-formals-6596 + (cons (cons args-8720 (cons e1-8721 e2-8722)) + (map (lambda (tmp-5483-8728 + tmp-5482-8729 + tmp-5481-8730) + (cons tmp-5481-8730 + (cons tmp-5482-8729 tmp-5483-8728))) + e2*-8725 + e1*-8724 + args*-8723)))) + (lambda (meta-8731 lcase-8732) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-6650 - meta-6668 - lcase-6669)))) - tmp-6653) + s-8713 + meta-8731 + lcase-8732)))) + tmp-8716) (syntax-violation 'case-lambda "bad case-lambda*" - e-6647))))) - (global-extend-4484 + e-8710))))) + (global-extend-6547 'core 'let (letrec* - ((expand-let-6860 - (lambda (e-7009 - r-7010 - w-7011 - s-7012 - mod-7013 - constructor-7014 - ids-7015 - vals-7016 - exps-7017) - (if (not (valid-bound-ids?-4512 ids-7015)) + ((expand-let-8923 + (lambda (e-9072 + r-9073 + w-9074 + s-9075 + mod-9076 + constructor-9077 + ids-9078 + vals-9079 + exps-9080) + (if (not (valid-bound-ids?-6575 ids-9078)) (syntax-violation 'let "duplicate bound variable" - e-7009) - (let ((labels-7095 (gen-labels-4489 ids-7015)) - (new-vars-7096 (map gen-var-4536 ids-7015))) - (let ((nw-7097 - (make-binding-wrap-4500 - ids-7015 - labels-7095 - w-7011)) - (nr-7098 - (extend-var-env-4481 - labels-7095 - new-vars-7096 - r-7010))) - (constructor-7014 - s-7012 - (map syntax->datum ids-7015) - new-vars-7096 - (map (lambda (x-7115) - (expand-4522 x-7115 r-7010 w-7011 mod-7013)) - vals-7016) - (expand-body-4526 - exps-7017 - (source-wrap-4516 e-7009 nw-7097 s-7012 mod-7013) - nr-7098 - nw-7097 - mod-7013)))))))) - (lambda (e-6861 r-6862 w-6863 s-6864 mod-6865) - (let ((tmp-6867 + e-9072) + (let ((labels-9158 (gen-labels-6552 ids-9078)) + (new-vars-9159 (map gen-var-6599 ids-9078))) + (let ((nw-9160 + (make-binding-wrap-6563 + ids-9078 + labels-9158 + w-9074)) + (nr-9161 + (extend-var-env-6544 + labels-9158 + new-vars-9159 + r-9073))) + (constructor-9077 + s-9075 + (map syntax->datum ids-9078) + new-vars-9159 + (map (lambda (x-9178) + (expand-6585 x-9178 r-9073 w-9074 mod-9076)) + vals-9079) + (expand-body-6589 + exps-9080 + (source-wrap-6579 e-9072 nw-9160 s-9075 mod-9076) + nr-9161 + nw-9160 + mod-9076)))))))) + (lambda (e-8924 r-8925 w-8926 s-8927 mod-8928) + (let ((tmp-8930 ($sc-dispatch - e-6861 + e-8924 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-6867 + (if (if tmp-8930 (@apply - (lambda (id-6871 val-6872 e1-6873 e2-6874) - (and-map id?-4486 id-6871)) - tmp-6867) + (lambda (id-8934 val-8935 e1-8936 e2-8937) + (and-map id?-6549 id-8934)) + tmp-8930) #f) (@apply - (lambda (id-6890 val-6891 e1-6892 e2-6893) - (expand-let-6860 - e-6861 - r-6862 - w-6863 - s-6864 - mod-6865 - build-let-4468 - id-6890 - val-6891 - (cons e1-6892 e2-6893))) - tmp-6867) - (let ((tmp-6923 + (lambda (id-8953 val-8954 e1-8955 e2-8956) + (expand-let-8923 + e-8924 + r-8925 + w-8926 + s-8927 + mod-8928 + build-let-6531 + id-8953 + val-8954 + (cons e1-8955 e2-8956))) + tmp-8930) + (let ((tmp-8986 ($sc-dispatch - e-6861 + e-8924 '(_ any #(each (any any)) any . each-any)))) - (if (if tmp-6923 + (if (if tmp-8986 (@apply - (lambda (f-6927 id-6928 val-6929 e1-6930 e2-6931) - (if (if (symbol? f-6927) + (lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994) + (if (if (symbol? f-8990) #t - (if (if (vector? f-6927) - (if (= (vector-length f-6927) 4) - (eq? (vector-ref f-6927 0) + (if (if (vector? f-8990) + (if (= (vector-length f-8990) 4) + (eq? (vector-ref f-8990 0) 'syntax-object) #f) #f) - (symbol? (vector-ref f-6927 1)) + (symbol? (vector-ref f-8990 1)) #f)) - (and-map id?-4486 id-6928) + (and-map id?-6549 id-8991) #f)) - tmp-6923) + tmp-8986) #f) (@apply - (lambda (f-6973 id-6974 val-6975 e1-6976 e2-6977) - (expand-let-6860 - e-6861 - r-6862 - w-6863 - s-6864 - mod-6865 - build-named-let-4469 - (cons f-6973 id-6974) - val-6975 - (cons e1-6976 e2-6977))) - tmp-6923) + (lambda (f-9036 id-9037 val-9038 e1-9039 e2-9040) + (expand-let-8923 + e-8924 + r-8925 + w-8926 + s-8927 + mod-8928 + build-named-let-6532 + (cons f-9036 id-9037) + val-9038 + (cons e1-9039 e2-9040))) + tmp-8986) (syntax-violation 'let "bad let" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-6861) s-6864 #f) - (set-source-properties! e-6861 s-6864)) - e-6861) - w-6863 - mod-6865))))))))) - (global-extend-4484 + (if (if (pair? e-8924) s-8927 #f) + (set-source-properties! e-8924 s-8927)) + e-8924) + w-8926 + mod-8928))))))))) + (global-extend-6547 'core 'letrec - (lambda (e-7527 r-7528 w-7529 s-7530 mod-7531) - (let ((tmp-7533 + (lambda (e-9590 r-9591 w-9592 s-9593 mod-9594) + (let ((tmp-9596 ($sc-dispatch - e-7527 + e-9590 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-7533 + (if (if tmp-9596 (@apply - (lambda (id-7537 val-7538 e1-7539 e2-7540) - (and-map id?-4486 id-7537)) - tmp-7533) + (lambda (id-9600 val-9601 e1-9602 e2-9603) + (and-map id?-6549 id-9600)) + tmp-9596) #f) (@apply - (lambda (id-7556 val-7557 e1-7558 e2-7559) - (if (not (valid-bound-ids?-4512 id-7556)) + (lambda (id-9619 val-9620 e1-9621 e2-9622) + (if (not (valid-bound-ids?-6575 id-9619)) (syntax-violation 'letrec "duplicate bound variable" - e-7527) - (let ((labels-7649 (gen-labels-4489 id-7556)) - (new-vars-7650 (map gen-var-4536 id-7556))) - (let ((w-7651 - (make-binding-wrap-4500 - id-7556 - labels-7649 - w-7529)) - (r-7652 - (extend-var-env-4481 - labels-7649 - new-vars-7650 - r-7528))) - (build-letrec-4470 - s-7530 + e-9590) + (let ((labels-9712 (gen-labels-6552 id-9619)) + (new-vars-9713 (map gen-var-6599 id-9619))) + (let ((w-9714 + (make-binding-wrap-6563 + id-9619 + labels-9712 + w-9592)) + (r-9715 + (extend-var-env-6544 + labels-9712 + new-vars-9713 + r-9591))) + (build-letrec-6533 + s-9593 #f - (map syntax->datum id-7556) - new-vars-7650 - (map (lambda (x-7737) - (expand-4522 x-7737 r-7652 w-7651 mod-7531)) - val-7557) - (expand-body-4526 - (cons e1-7558 e2-7559) - (wrap-4515 + (map syntax->datum id-9619) + new-vars-9713 + (map (lambda (x-9800) + (expand-6585 x-9800 r-9715 w-9714 mod-9594)) + val-9620) + (expand-body-6589 + (cons e1-9621 e2-9622) + (wrap-6578 (begin - (if (if (pair? e-7527) s-7530 #f) - (set-source-properties! e-7527 s-7530)) - e-7527) - w-7651 - mod-7531) - r-7652 - w-7651 - mod-7531)))))) - tmp-7533) + (if (if (pair? e-9590) s-9593 #f) + (set-source-properties! e-9590 s-9593)) + e-9590) + w-9714 + mod-9594) + r-9715 + w-9714 + mod-9594)))))) + tmp-9596) (syntax-violation 'letrec "bad letrec" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-7527) s-7530 #f) - (set-source-properties! e-7527 s-7530)) - e-7527) - w-7529 - mod-7531)))))) - (global-extend-4484 + (if (if (pair? e-9590) s-9593 #f) + (set-source-properties! e-9590 s-9593)) + e-9590) + w-9592 + mod-9594)))))) + (global-extend-6547 'core 'letrec* - (lambda (e-8132 r-8133 w-8134 s-8135 mod-8136) - (let ((tmp-8138 + (lambda (e-10195 r-10196 w-10197 s-10198 mod-10199) + (let ((tmp-10201 ($sc-dispatch - e-8132 + e-10195 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-8138 + (if (if tmp-10201 (@apply - (lambda (id-8142 val-8143 e1-8144 e2-8145) - (and-map id?-4486 id-8142)) - tmp-8138) + (lambda (id-10205 val-10206 e1-10207 e2-10208) + (and-map id?-6549 id-10205)) + tmp-10201) #f) (@apply - (lambda (id-8161 val-8162 e1-8163 e2-8164) - (if (not (valid-bound-ids?-4512 id-8161)) + (lambda (id-10224 val-10225 e1-10226 e2-10227) + (if (not (valid-bound-ids?-6575 id-10224)) (syntax-violation 'letrec* "duplicate bound variable" - e-8132) - (let ((labels-8254 (gen-labels-4489 id-8161)) - (new-vars-8255 (map gen-var-4536 id-8161))) - (let ((w-8256 - (make-binding-wrap-4500 - id-8161 - labels-8254 - w-8134)) - (r-8257 - (extend-var-env-4481 - labels-8254 - new-vars-8255 - r-8133))) - (build-letrec-4470 - s-8135 + e-10195) + (let ((labels-10317 (gen-labels-6552 id-10224)) + (new-vars-10318 (map gen-var-6599 id-10224))) + (let ((w-10319 + (make-binding-wrap-6563 + id-10224 + labels-10317 + w-10197)) + (r-10320 + (extend-var-env-6544 + labels-10317 + new-vars-10318 + r-10196))) + (build-letrec-6533 + s-10198 #t - (map syntax->datum id-8161) - new-vars-8255 - (map (lambda (x-8342) - (expand-4522 x-8342 r-8257 w-8256 mod-8136)) - val-8162) - (expand-body-4526 - (cons e1-8163 e2-8164) - (wrap-4515 + (map syntax->datum id-10224) + new-vars-10318 + (map (lambda (x-10405) + (expand-6585 + x-10405 + r-10320 + w-10319 + mod-10199)) + val-10225) + (expand-body-6589 + (cons e1-10226 e2-10227) + (wrap-6578 (begin - (if (if (pair? e-8132) s-8135 #f) - (set-source-properties! e-8132 s-8135)) - e-8132) - w-8256 - mod-8136) - r-8257 - w-8256 - mod-8136)))))) - tmp-8138) + (if (if (pair? e-10195) s-10198 #f) + (set-source-properties! e-10195 s-10198)) + e-10195) + w-10319 + mod-10199) + r-10320 + w-10319 + mod-10199)))))) + tmp-10201) (syntax-violation 'letrec* "bad letrec*" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-8132) s-8135 #f) - (set-source-properties! e-8132 s-8135)) - e-8132) - w-8134 - mod-8136)))))) - (global-extend-4484 + (if (if (pair? e-10195) s-10198 #f) + (set-source-properties! e-10195 s-10198)) + e-10195) + w-10197 + mod-10199)))))) + (global-extend-6547 'core 'set! - (lambda (e-8776 r-8777 w-8778 s-8779 mod-8780) - (let ((tmp-8782 ($sc-dispatch e-8776 '(_ any any)))) - (if (if tmp-8782 + (lambda (e-10839 r-10840 w-10841 s-10842 mod-10843) + (let ((tmp-10845 ($sc-dispatch e-10839 '(_ any any)))) + (if (if tmp-10845 (@apply - (lambda (id-8786 val-8787) - (if (symbol? id-8786) + (lambda (id-10849 val-10850) + (if (symbol? id-10849) #t - (if (if (vector? id-8786) - (if (= (vector-length id-8786) 4) - (eq? (vector-ref id-8786 0) 'syntax-object) + (if (if (vector? id-10849) + (if (= (vector-length id-10849) 4) + (eq? (vector-ref id-10849 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-8786 1)) + (symbol? (vector-ref id-10849 1)) #f))) - tmp-8782) + tmp-10845) #f) (@apply - (lambda (id-8814 val-8815) - (let ((n-8816 (id-var-name-4505 id-8814 w-8778)) - (id-mod-8817 - (if (if (vector? id-8814) - (if (= (vector-length id-8814) 4) - (eq? (vector-ref id-8814 0) 'syntax-object) + (lambda (id-10877 val-10878) + (let ((n-10879 (id-var-name-6568 id-10877 w-10841)) + (id-mod-10880 + (if (if (vector? id-10877) + (if (= (vector-length id-10877) 4) + (eq? (vector-ref id-10877 0) 'syntax-object) #f) #f) - (vector-ref id-8814 3) - mod-8780))) - (let ((b-8818 - (let ((t-8859 (assq n-8816 r-8777))) - (if t-8859 - (cdr t-8859) - (if (symbol? n-8816) - (let ((t-8864 - (get-global-definition-hook-4449 - n-8816 - id-mod-8817))) - (if t-8864 t-8864 '(global))) + (vector-ref id-10877 3) + mod-10843))) + (let ((b-10881 + (let ((t-10922 (assq n-10879 r-10840))) + (if t-10922 + (cdr t-10922) + (if (symbol? n-10879) + (let ((t-10927 + (get-global-definition-hook-6512 + n-10879 + id-mod-10880))) + (if t-10927 t-10927 '(global))) '(displaced-lexical)))))) - (let ((atom-key-8819 (car b-8818))) - (if (eqv? atom-key-8819 'lexical) - (build-lexical-assignment-4457 - s-8779 - (syntax->datum id-8814) - (cdr b-8818) - (expand-4522 val-8815 r-8777 w-8778 mod-8780)) - (if (eqv? atom-key-8819 'global) - (build-global-assignment-4460 - s-8779 - n-8816 - (expand-4522 val-8815 r-8777 w-8778 mod-8780) - id-mod-8817) - (if (eqv? atom-key-8819 'macro) - (let ((p-9178 (cdr b-8818))) + (let ((atom-key-10882 (car b-10881))) + (if (eqv? atom-key-10882 'lexical) + (build-lexical-assignment-6520 + s-10842 + (syntax->datum id-10877) + (cdr b-10881) + (expand-6585 val-10878 r-10840 w-10841 mod-10843)) + (if (eqv? atom-key-10882 'global) + (build-global-assignment-6523 + s-10842 + n-10879 + (expand-6585 val-10878 r-10840 w-10841 mod-10843) + id-mod-10880) + (if (eqv? atom-key-10882 'macro) + (let ((p-11241 (cdr b-10881))) (if (procedure-property - p-9178 + p-11241 'variable-transformer) - (expand-4522 - (expand-macro-4525 - p-9178 - e-8776 - r-8777 - w-8778 - s-8779 + (expand-6585 + (expand-macro-6588 + p-11241 + e-10839 + r-10840 + w-10841 + s-10842 #f - mod-8780) - r-8777 + mod-10843) + r-10840 '(()) - mod-8780) + mod-10843) (syntax-violation 'set! "not a variable transformer" - (wrap-4515 e-8776 w-8778 mod-8780) - (wrap-4515 id-8814 w-8778 id-mod-8817)))) - (if (eqv? atom-key-8819 'displaced-lexical) + (wrap-6578 e-10839 w-10841 mod-10843) + (wrap-6578 + id-10877 + w-10841 + id-mod-10880)))) + (if (eqv? atom-key-10882 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (wrap-4515 id-8814 w-8778 mod-8780)) + (wrap-6578 id-10877 w-10841 mod-10843)) (syntax-violation 'set! "bad set!" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-8776) s-8779 #f) - (set-source-properties! e-8776 s-8779)) - e-8776) - w-8778 - mod-8780)))))))))) - tmp-8782) - (let ((tmp-9273 - ($sc-dispatch e-8776 '(_ (any . each-any) any)))) - (if tmp-9273 + (if (if (pair? e-10839) s-10842 #f) + (set-source-properties! + e-10839 + s-10842)) + e-10839) + w-10841 + mod-10843)))))))))) + tmp-10845) + (let ((tmp-11336 + ($sc-dispatch e-10839 '(_ (any . each-any) any)))) + (if tmp-11336 (@apply - (lambda (head-9277 tail-9278 val-9279) + (lambda (head-11340 tail-11341 val-11342) (call-with-values (lambda () - (syntax-type-4521 - head-9277 - r-8777 + (syntax-type-6584 + head-11340 + r-10840 '(()) #f #f - mod-8780 + mod-10843 #t)) - (lambda (type-9282 - value-9283 - ee-9284 - ww-9285 - ss-9286 - modmod-9287) - (if (eqv? type-9282 'module-ref) - (let ((val-9291 - (expand-4522 - val-9279 - r-8777 - w-8778 - mod-8780))) + (lambda (type-11345 + value-11346 + formform-11347 + ee-11348 + ww-11349 + ss-11350 + modmod-11351) + (if (eqv? type-11345 'module-ref) + (let ((val-11355 + (expand-6585 + val-11342 + r-10840 + w-10841 + mod-10843))) (call-with-values (lambda () - (value-9283 - (cons head-9277 tail-9278) - r-8777 - w-8778)) - (lambda (e-9292 r-9293 w-9294 s*-9295 mod-9296) - (let ((tmp-9298 (list e-9292))) + (value-11346 + (cons head-11340 tail-11341) + r-10840 + w-10841)) + (lambda (e-11356 + r-11357 + w-11358 + s*-11359 + mod-11360) + (let ((tmp-11362 (list e-11356))) (if (@apply - (lambda (e-9300) - (if (symbol? e-9300) + (lambda (e-11364) + (if (symbol? e-11364) #t - (if (if (vector? e-9300) + (if (if (vector? e-11364) (if (= (vector-length - e-9300) + e-11364) 4) (eq? (vector-ref - e-9300 + e-11364 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-9300 1)) + (symbol? + (vector-ref e-11364 1)) #f))) - tmp-9298) + tmp-11362) (@apply - (lambda (e-9330) - (build-global-assignment-4460 - s-8779 - (syntax->datum e-9330) - val-9291 - mod-9296)) - tmp-9298) + (lambda (e-11394) + (build-global-assignment-6523 + s-10842 + (syntax->datum e-11394) + val-11355 + mod-11360)) + tmp-11362) (syntax-violation #f "source expression failed to match any pattern" - e-9292)))))) - (build-application-4453 - s-8779 - (let ((e-9555 + e-11356)))))) + (build-application-6516 + s-10842 + (let ((e-11619 (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(type value ee ww ss modmod) + #(type + value + formform + ee + ww + ss + modmod) #((top) (top) (top) (top) (top) + (top) (top)) - #("l-*-3668" - "l-*-3669" - "l-*-3670" - "l-*-3671" - "l-*-3672" - "l-*-3673")) + #("l-*-5730" + "l-*-5731" + "l-*-5732" + "l-*-5733" + "l-*-5734" + "l-*-5735" + "l-*-5736")) #(ribcage #(head tail val) #((top) (top) (top)) - #("l-*-3654" - "l-*-3655" - "l-*-3656")) + #("l-*-5715" + "l-*-5716" + "l-*-5717")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9217,11 +9321,11 @@ (top) (top) (top)) - #("l-*-3618" - "l-*-3619" - "l-*-3620" - "l-*-3621" - "l-*-3622")) + #("l-*-5679" + "l-*-5680" + "l-*-5681" + "l-*-5682" + "l-*-5683")) #(ribcage (lambda-var-list gen-var @@ -9503,248 +9607,253 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) - head-9277))) + head-11340))) (call-with-values (lambda () - (syntax-type-4521 - e-9555 - r-8777 - w-8778 - (source-annotation-4479 e-9555) + (syntax-type-6584 + e-11619 + r-10840 + w-10841 + (source-annotation-6542 e-11619) #f - mod-8780 + mod-10843 #f)) - (lambda (type-9562 - value-9563 - e-9564 - w-9565 - s-9566 - mod-9567) - (expand-expr-4523 - type-9562 - value-9563 - e-9564 - r-8777 - w-9565 - s-9566 - mod-9567)))) - (map (lambda (e-9571) + (lambda (type-11626 + value-11627 + form-11628 + e-11629 + w-11630 + s-11631 + mod-11632) + (expand-expr-6586 + type-11626 + value-11627 + form-11628 + e-11629 + r-10840 + w-11630 + s-11631 + mod-11632)))) + (map (lambda (e-11636) (call-with-values (lambda () - (syntax-type-4521 - e-9571 - r-8777 - w-8778 - (source-annotation-4479 e-9571) + (syntax-type-6584 + e-11636 + r-10840 + w-10841 + (source-annotation-6542 e-11636) #f - mod-8780 + mod-10843 #f)) - (lambda (type-9586 - value-9587 - e-9588 - w-9589 - s-9590 - mod-9591) - (expand-expr-4523 - type-9586 - value-9587 - e-9588 - r-8777 - w-9589 - s-9590 - mod-9591)))) - (append tail-9278 (list val-9279)))))))) - tmp-9273) + (lambda (type-11651 + value-11652 + form-11653 + e-11654 + w-11655 + s-11656 + mod-11657) + (expand-expr-6586 + type-11651 + value-11652 + form-11653 + e-11654 + r-10840 + w-11655 + s-11656 + mod-11657)))) + (append tail-11341 (list val-11342)))))))) + tmp-11336) (syntax-violation 'set! "bad set!" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-8776) s-8779 #f) - (set-source-properties! e-8776 s-8779)) - e-8776) - w-8778 - mod-8780)))))))) + (if (if (pair? e-10839) s-10842 #f) + (set-source-properties! e-10839 s-10842)) + e-10839) + w-10841 + mod-10843)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (e-9634 r-9635 w-9636) - (let ((tmp-9638 - ($sc-dispatch e-9634 '(_ each-any any)))) - (if (if tmp-9638 + (lambda (e-11700 r-11701 w-11702) + (let ((tmp-11704 + ($sc-dispatch e-11700 '(_ each-any any)))) + (if (if tmp-11704 (@apply - (lambda (mod-9641 id-9642) - (if (and-map id?-4486 mod-9641) - (if (symbol? id-9642) + (lambda (mod-11707 id-11708) + (if (and-map id?-6549 mod-11707) + (if (symbol? id-11708) #t - (if (if (vector? id-9642) - (if (= (vector-length id-9642) 4) - (eq? (vector-ref id-9642 0) 'syntax-object) + (if (if (vector? id-11708) + (if (= (vector-length id-11708) 4) + (eq? (vector-ref id-11708 0) + 'syntax-object) #f) #f) - (symbol? (vector-ref id-9642 1)) + (symbol? (vector-ref id-11708 1)) #f)) #f)) - tmp-9638) + tmp-11704) #f) (@apply - (lambda (mod-9682 id-9683) + (lambda (mod-11748 id-11749) (values - (syntax->datum id-9683) - r-9635 - w-9636 + (syntax->datum id-11749) + r-11701 + w-11702 #f (syntax->datum (cons '#(syntax-object @@ -9753,12 +9862,12 @@ #(ribcage #(mod id) #((top) (top)) - #("l-*-3715" "l-*-3716")) + #("l-*-5778" "l-*-5779")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-3703" "l-*-3704" "l-*-3705")) + #("l-*-5766" "l-*-5767" "l-*-5768")) #(ribcage (lambda-var-list gen-var @@ -10040,211 +10149,213 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)) - mod-9682)))) - tmp-9638) + mod-11748)))) + tmp-11704) (syntax-violation #f "source expression failed to match any pattern" - e-9634)))))) - (global-extend-4484 + e-11700)))))) + (global-extend-6547 'module-ref '@@ - (lambda (e-9775 r-9776 w-9777) + (lambda (e-11841 r-11842 w-11843) (letrec* - ((remodulate-9778 - (lambda (x-9813 mod-9814) - (if (pair? x-9813) - (cons (remodulate-9778 (car x-9813) mod-9814) - (remodulate-9778 (cdr x-9813) mod-9814)) - (if (if (vector? x-9813) - (if (= (vector-length x-9813) 4) - (eq? (vector-ref x-9813 0) 'syntax-object) + ((remodulate-11844 + (lambda (x-11879 mod-11880) + (if (pair? x-11879) + (cons (remodulate-11844 (car x-11879) mod-11880) + (remodulate-11844 (cdr x-11879) mod-11880)) + (if (if (vector? x-11879) + (if (= (vector-length x-11879) 4) + (eq? (vector-ref x-11879 0) 'syntax-object) #f) #f) - (let ((expression-9828 - (remodulate-9778 (vector-ref x-9813 1) mod-9814)) - (wrap-9829 (vector-ref x-9813 2))) + (let ((expression-11894 + (remodulate-11844 + (vector-ref x-11879 1) + mod-11880)) + (wrap-11895 (vector-ref x-11879 2))) (vector 'syntax-object - expression-9828 - wrap-9829 - mod-9814)) - (if (vector? x-9813) - (let ((n-9837 (vector-length x-9813))) - (let ((v-9838 (make-vector n-9837))) + expression-11894 + wrap-11895 + mod-11880)) + (if (vector? x-11879) + (let ((n-11903 (vector-length x-11879))) + (let ((v-11904 (make-vector n-11903))) (letrec* - ((loop-9839 - (lambda (i-9886) - (if (= i-9886 n-9837) - v-9838 + ((loop-11905 + (lambda (i-11952) + (if (= i-11952 n-11903) + v-11904 (begin (vector-set! - v-9838 - i-9886 - (remodulate-9778 - (vector-ref x-9813 i-9886) - mod-9814)) - (loop-9839 (#{1+}# i-9886))))))) - (loop-9839 0)))) - x-9813)))))) - (let ((tmp-9780 - ($sc-dispatch e-9775 '(_ each-any any)))) - (if (if tmp-9780 + v-11904 + i-11952 + (remodulate-11844 + (vector-ref x-11879 i-11952) + mod-11880)) + (loop-11905 (#{1+}# i-11952))))))) + (loop-11905 0)))) + x-11879)))))) + (let ((tmp-11846 + ($sc-dispatch e-11841 '(_ each-any any)))) + (if (if tmp-11846 (@apply - (lambda (mod-9784 exp-9785) - (and-map id?-4486 mod-9784)) - tmp-9780) + (lambda (mod-11850 exp-11851) + (and-map id?-6549 mod-11850)) + tmp-11846) #f) (@apply - (lambda (mod-9801 exp-9802) - (let ((mod-9803 + (lambda (mod-11867 exp-11868) + (let ((mod-11869 (syntax->datum (cons '#(syntax-object private @@ -10252,15 +10363,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("l-*-3759" "l-*-3760")) + #("l-*-5822" "l-*-5823")) #(ribcage (remodulate) ((top)) - ("l-*-3726")) + ("l-*-5789")) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-3723" "l-*-3724" "l-*-3725")) + #("l-*-5786" "l-*-5787" "l-*-5788")) #(ribcage (lambda-var-list gen-var @@ -10542,232 +10653,252 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)) - mod-9801)))) + mod-11867)))) (values - (remodulate-9778 exp-9802 mod-9803) - r-9776 - w-9777 - (source-annotation-4479 exp-9802) - mod-9803))) - tmp-9780) + (remodulate-11844 exp-11868 mod-11869) + r-11842 + w-11843 + (source-annotation-6542 exp-11868) + mod-11869))) + tmp-11846) (syntax-violation #f "source expression failed to match any pattern" - e-9775)))))) - (global-extend-4484 + e-11841)))))) + (global-extend-6547 'core 'if - (lambda (e-9987 r-9988 w-9989 s-9990 mod-9991) - (let ((tmp-9993 ($sc-dispatch e-9987 '(_ any any)))) - (if tmp-9993 + (lambda (e-12053 r-12054 w-12055 s-12056 mod-12057) + (let ((tmp-12059 ($sc-dispatch e-12053 '(_ any any)))) + (if tmp-12059 (@apply - (lambda (test-9997 then-9998) - (build-conditional-4454 - s-9990 - (expand-4522 test-9997 r-9988 w-9989 mod-9991) - (expand-4522 then-9998 r-9988 w-9989 mod-9991) + (lambda (test-12063 then-12064) + (build-conditional-6517 + s-12056 + (expand-6585 + test-12063 + r-12054 + w-12055 + mod-12057) + (expand-6585 + then-12064 + r-12054 + w-12055 + mod-12057) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - tmp-9993) - (let ((tmp-10223 - ($sc-dispatch e-9987 '(_ any any any)))) - (if tmp-10223 + tmp-12059) + (let ((tmp-12289 + ($sc-dispatch e-12053 '(_ any any any)))) + (if tmp-12289 (@apply - (lambda (test-10227 then-10228 else-10229) - (build-conditional-4454 - s-9990 - (expand-4522 test-10227 r-9988 w-9989 mod-9991) - (expand-4522 then-10228 r-9988 w-9989 mod-9991) - (expand-4522 else-10229 r-9988 w-9989 mod-9991))) - tmp-10223) + (lambda (test-12293 then-12294 else-12295) + (build-conditional-6517 + s-12056 + (expand-6585 + test-12293 + r-12054 + w-12055 + mod-12057) + (expand-6585 + then-12294 + r-12054 + w-12055 + mod-12057) + (expand-6585 + else-12295 + r-12054 + w-12055 + mod-12057))) + tmp-12289) (syntax-violation #f "source expression failed to match any pattern" - e-9987))))))) - (global-extend-4484 + e-12053))))))) + (global-extend-6547 'core 'with-fluids - (lambda (e-10628 r-10629 w-10630 s-10631 mod-10632) - (let ((tmp-10634 + (lambda (e-12694 r-12695 w-12696 s-12697 mod-12698) + (let ((tmp-12700 ($sc-dispatch - e-10628 + e-12694 '(_ #(each (any any)) any . each-any)))) - (if tmp-10634 + (if tmp-12700 (@apply - (lambda (fluid-10638 val-10639 b-10640 b*-10641) - (build-dynlet-4455 - s-10631 - (map (lambda (x-10722) - (expand-4522 x-10722 r-10629 w-10630 mod-10632)) - fluid-10638) - (map (lambda (x-10792) - (expand-4522 x-10792 r-10629 w-10630 mod-10632)) - val-10639) - (expand-body-4526 - (cons b-10640 b*-10641) - (wrap-4515 + (lambda (fluid-12704 val-12705 b-12706 b*-12707) + (build-dynlet-6518 + s-12697 + (map (lambda (x-12788) + (expand-6585 x-12788 r-12695 w-12696 mod-12698)) + fluid-12704) + (map (lambda (x-12858) + (expand-6585 x-12858 r-12695 w-12696 mod-12698)) + val-12705) + (expand-body-6589 + (cons b-12706 b*-12707) + (wrap-6578 (begin - (if (if (pair? e-10628) s-10631 #f) - (set-source-properties! e-10628 s-10631)) - e-10628) - w-10630 - mod-10632) - r-10629 - w-10630 - mod-10632))) - tmp-10634) + (if (if (pair? e-12694) s-12697 #f) + (set-source-properties! e-12694 s-12697)) + e-12694) + w-12696 + mod-12698) + r-12695 + w-12696 + mod-12698))) + tmp-12700) (syntax-violation #f "source expression failed to match any pattern" - e-10628))))) + e-12694))))) (module-define! (current-module) 'begin @@ -10797,60 +10928,60 @@ 'eval-when 'eval-when '())) - (global-extend-4484 + (global-extend-6547 'core 'syntax-case (letrec* - ((convert-pattern-11160 - (lambda (pattern-12757 keys-12758) + ((convert-pattern-13226 + (lambda (pattern-14823 keys-14824) (letrec* - ((cvt*-12759 - (lambda (p*-13383 n-13384 ids-13385) - (if (not (pair? p*-13383)) - (cvt-12761 p*-13383 n-13384 ids-13385) + ((cvt*-14825 + (lambda (p*-15449 n-15450 ids-15451) + (if (not (pair? p*-15449)) + (cvt-14827 p*-15449 n-15450 ids-15451) (call-with-values (lambda () - (cvt*-12759 (cdr p*-13383) n-13384 ids-13385)) - (lambda (y-13388 ids-13389) + (cvt*-14825 (cdr p*-15449) n-15450 ids-15451)) + (lambda (y-15454 ids-15455) (call-with-values (lambda () - (cvt-12761 (car p*-13383) n-13384 ids-13389)) - (lambda (x-13392 ids-13393) + (cvt-14827 (car p*-15449) n-15450 ids-15455)) + (lambda (x-15458 ids-15459) (values - (cons x-13392 y-13388) - ids-13393)))))))) - (v-reverse-12760 - (lambda (x-13394) + (cons x-15458 y-15454) + ids-15459)))))))) + (v-reverse-14826 + (lambda (x-15460) (letrec* - ((loop-13395 - (lambda (r-13475 x-13476) - (if (not (pair? x-13476)) - (values r-13475 x-13476) - (loop-13395 - (cons (car x-13476) r-13475) - (cdr x-13476)))))) - (loop-13395 '() x-13394)))) - (cvt-12761 - (lambda (p-12764 n-12765 ids-12766) - (if (if (symbol? p-12764) + ((loop-15461 + (lambda (r-15541 x-15542) + (if (not (pair? x-15542)) + (values r-15541 x-15542) + (loop-15461 + (cons (car x-15542) r-15541) + (cdr x-15542)))))) + (loop-15461 '() x-15460)))) + (cvt-14827 + (lambda (p-14830 n-14831 ids-14832) + (if (if (symbol? p-14830) #t - (if (if (vector? p-12764) - (if (= (vector-length p-12764) 4) - (eq? (vector-ref p-12764 0) 'syntax-object) + (if (if (vector? p-14830) + (if (= (vector-length p-14830) 4) + (eq? (vector-ref p-14830 0) 'syntax-object) #f) #f) - (symbol? (vector-ref p-12764 1)) + (symbol? (vector-ref p-14830 1)) #f)) - (if (bound-id-member?-4514 p-12764 keys-12758) - (values (vector 'free-id p-12764) ids-12766) - (if (if (eq? (if (if (vector? p-12764) - (if (= (vector-length p-12764) 4) - (eq? (vector-ref p-12764 0) + (if (bound-id-member?-6577 p-14830 keys-14824) + (values (vector 'free-id p-14830) ids-14832) + (if (if (eq? (if (if (vector? p-14830) + (if (= (vector-length p-14830) 4) + (eq? (vector-ref p-14830 0) 'syntax-object) #f) #f) - (vector-ref p-12764 1) - p-12764) + (vector-ref p-14830 1) + p-14830) (if (if (= (vector-length '#(syntax-object _ @@ -10859,20 +10990,20 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3860" - "l-*-3861" - "l-*-3862")) + #("l-*-5923" + "l-*-5924" + "l-*-5925")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3833" - "l-*-3831" - "l-*-3829")) + ("l-*-5896" + "l-*-5894" + "l-*-5892")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3827" - "l-*-3828")) + #("l-*-5890" + "l-*-5891")) #(ribcage (gen-syntax-case gen-clause @@ -10882,10 +11013,10 @@ (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -11167,154 +11298,154 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) #t @@ -11327,29 +11458,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3860" - "l-*-3861" - "l-*-3862")) + #("l-*-5923" + "l-*-5924" + "l-*-5925")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3833" - "l-*-3831" - "l-*-3829")) + ("l-*-5896" + "l-*-5894" + "l-*-5892")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3827" "l-*-3828")) + #("l-*-5890" "l-*-5891")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -11631,155 +11762,157 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 p-12764 '(())) - (id-var-name-4505 + (eq? (id-var-name-6568 p-14830 '(())) + (id-var-name-6568 '#(syntax-object _ ((top) @@ -11787,29 +11920,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3860" - "l-*-3861" - "l-*-3862")) + #("l-*-5923" + "l-*-5924" + "l-*-5925")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3833" - "l-*-3831" - "l-*-3829")) + ("l-*-5896" + "l-*-5894" + "l-*-5892")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3827" "l-*-3828")) + #("l-*-5890" "l-*-5891")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -12091,184 +12224,186 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) - (values '_ ids-12766) + (values '_ ids-14832) (values 'any - (cons (cons p-12764 n-12765) ids-12766)))) - (let ((tmp-13086 ($sc-dispatch p-12764 '(any any)))) - (if (if tmp-13086 + (cons (cons p-14830 n-14831) ids-14832)))) + (let ((tmp-15152 ($sc-dispatch p-14830 '(any any)))) + (if (if tmp-15152 (@apply - (lambda (x-13090 dots-13091) - (if (if (if (vector? dots-13091) - (if (= (vector-length dots-13091) + (lambda (x-15156 dots-15157) + (if (if (if (vector? dots-15157) + (if (= (vector-length dots-15157) 4) - (eq? (vector-ref dots-13091 0) + (eq? (vector-ref dots-15157 0) 'syntax-object) #f) #f) - (symbol? (vector-ref dots-13091 1)) + (symbol? (vector-ref dots-15157 1)) #f) - (if (eq? (if (if (vector? dots-13091) + (if (eq? (if (if (vector? dots-15157) (if (= (vector-length - dots-13091) + dots-15157) 4) (eq? (vector-ref - dots-13091 + dots-15157 0) 'syntax-object) #f) #f) - (vector-ref dots-13091 1) - dots-13091) + (vector-ref dots-15157 1) + dots-15157) (if (if (= (vector-length '#(syntax-object ... @@ -12284,7 +12419,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -12566,146 +12701,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -12713,9 +12848,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -12730,7 +12865,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -13012,159 +13147,159 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 - dots-13091 + (eq? (id-var-name-6568 + dots-15157 '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object ... ((top) @@ -13173,7 +13308,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -13455,205 +13590,205 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)) - tmp-13086) + tmp-15152) #f) (@apply - (lambda (x-13191 dots-13192) + (lambda (x-15257 dots-15258) (call-with-values (lambda () - (cvt-12761 - x-13191 - (#{1+}# n-12765) - ids-12766)) - (lambda (p-13193 ids-13194) + (cvt-14827 + x-15257 + (#{1+}# n-14831) + ids-14832)) + (lambda (p-15259 ids-15260) (values - (if (eq? p-13193 'any) + (if (eq? p-15259 'any) 'each-any - (vector 'each p-13193)) - ids-13194)))) - tmp-13086) - (let ((tmp-13195 - ($sc-dispatch p-12764 '(any any . any)))) - (if (if tmp-13195 + (vector 'each p-15259)) + ids-15260)))) + tmp-15152) + (let ((tmp-15261 + ($sc-dispatch p-14830 '(any any . any)))) + (if (if tmp-15261 (@apply - (lambda (x-13199 dots-13200 ys-13201) - (if (if (if (vector? dots-13200) + (lambda (x-15265 dots-15266 ys-15267) + (if (if (if (vector? dots-15266) (if (= (vector-length - dots-13200) + dots-15266) 4) (eq? (vector-ref - dots-13200 + dots-15266 0) 'syntax-object) #f) #f) (symbol? - (vector-ref dots-13200 1)) + (vector-ref dots-15266 1)) #f) - (if (eq? (if (if (vector? dots-13200) + (if (eq? (if (if (vector? dots-15266) (if (= (vector-length - dots-13200) + dots-15266) 4) (eq? (vector-ref - dots-13200 + dots-15266 0) 'syntax-object) #f) #f) - (vector-ref dots-13200 1) - dots-13200) + (vector-ref dots-15266 1) + dots-15266) (if (if (= (vector-length '#(syntax-object ... @@ -13669,7 +13804,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -13951,146 +14086,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -14098,9 +14233,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -14115,7 +14250,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -14397,159 +14532,159 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 - dots-13200 + (eq? (id-var-name-6568 + dots-15266 '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object ... ((top) @@ -14558,7 +14693,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -14840,249 +14975,249 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)) - tmp-13195) + tmp-15261) #f) (@apply - (lambda (x-13301 dots-13302 ys-13303) + (lambda (x-15367 dots-15368 ys-15369) (call-with-values (lambda () - (cvt*-12759 - ys-13303 - n-12765 - ids-12766)) - (lambda (ys-13306 ids-13307) + (cvt*-14825 + ys-15369 + n-14831 + ids-14832)) + (lambda (ys-15372 ids-15373) (call-with-values (lambda () - (cvt-12761 - x-13301 - (#{1+}# n-12765) - ids-13307)) - (lambda (x-13308 ids-13309) + (cvt-14827 + x-15367 + (#{1+}# n-14831) + ids-15373)) + (lambda (x-15374 ids-15375) (call-with-values (lambda () - (v-reverse-12760 ys-13306)) - (lambda (ys-13342 e-13343) + (v-reverse-14826 ys-15372)) + (lambda (ys-15408 e-15409) (values (vector 'each+ - x-13308 - ys-13342 - e-13343) - ids-13309)))))))) - tmp-13195) - (let ((tmp-13344 - ($sc-dispatch p-12764 '(any . any)))) - (if tmp-13344 + x-15374 + ys-15408 + e-15409) + ids-15375)))))))) + tmp-15261) + (let ((tmp-15410 + ($sc-dispatch p-14830 '(any . any)))) + (if tmp-15410 (@apply - (lambda (x-13348 y-13349) + (lambda (x-15414 y-15415) (call-with-values (lambda () - (cvt-12761 - y-13349 - n-12765 - ids-12766)) - (lambda (y-13350 ids-13351) + (cvt-14827 + y-15415 + n-14831 + ids-14832)) + (lambda (y-15416 ids-15417) (call-with-values (lambda () - (cvt-12761 - x-13348 - n-12765 - ids-13351)) - (lambda (x-13352 ids-13353) + (cvt-14827 + x-15414 + n-14831 + ids-15417)) + (lambda (x-15418 ids-15419) (values - (cons x-13352 y-13350) - ids-13353)))))) - tmp-13344) - (let ((tmp-13354 - ($sc-dispatch p-12764 '()))) - (if tmp-13354 + (cons x-15418 y-15416) + ids-15419)))))) + tmp-15410) + (let ((tmp-15420 + ($sc-dispatch p-14830 '()))) + (if tmp-15420 (@apply - (lambda () (values '() ids-12766)) - tmp-13354) - (let ((tmp-13358 + (lambda () (values '() ids-14832)) + tmp-15420) + (let ((tmp-15424 ($sc-dispatch - p-12764 + p-14830 '#(vector each-any)))) - (if tmp-13358 + (if tmp-15424 (@apply - (lambda (x-13362) + (lambda (x-15428) (call-with-values (lambda () - (cvt-12761 - x-13362 - n-12765 - ids-12766)) - (lambda (p-13363 ids-13364) + (cvt-14827 + x-15428 + n-14831 + ids-14832)) + (lambda (p-15429 ids-15430) (values - (vector 'vector p-13363) - ids-13364)))) - tmp-13358) + (vector 'vector p-15429) + ids-15430)))) + tmp-15424) (values (vector 'atom - (strip-4535 p-12764 '(()))) - ids-12766))))))))))))))) - (cvt-12761 pattern-12757 0 '())))) - (build-dispatch-call-11161 - (lambda (pvars-13477 exp-13478 y-13479 r-13480 mod-13481) - (let ((ids-13482 (map car pvars-13477))) + (strip-6598 p-14830 '(()))) + ids-14832))))))))))))))) + (cvt-14827 pattern-14823 0 '())))) + (build-dispatch-call-13227 + (lambda (pvars-15543 exp-15544 y-15545 r-15546 mod-15547) + (let ((ids-15548 (map car pvars-15543))) (begin - (map cdr pvars-13477) - (let ((labels-13484 (gen-labels-4489 ids-13482)) - (new-vars-13485 (map gen-var-4536 ids-13482))) - (build-application-4453 + (map cdr pvars-15543) + (let ((labels-15550 (gen-labels-6552 ids-15548)) + (new-vars-15551 (map gen-var-6599 ids-15548))) + (build-application-6516 #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15095,73 +15230,73 @@ '(guile) 'apply #f)) - (list (build-simple-lambda-4462 + (list (build-simple-lambda-6525 #f - (map syntax->datum ids-13482) + (map syntax->datum ids-15548) #f - new-vars-13485 + new-vars-15551 '() - (expand-4522 - exp-13478 - (extend-env-4480 - labels-13484 - (map (lambda (var-13808 level-13809) + (expand-6585 + exp-15544 + (extend-env-6543 + labels-15550 + (map (lambda (var-15874 level-15875) (cons 'syntax - (cons var-13808 level-13809))) - new-vars-13485 - (map cdr pvars-13477)) - r-13480) - (make-binding-wrap-4500 - ids-13482 - labels-13484 + (cons var-15874 level-15875))) + new-vars-15551 + (map cdr pvars-15543)) + r-15546) + (make-binding-wrap-6563 + ids-15548 + labels-15550 '(())) - mod-13481)) - y-13479))))))) - (gen-clause-11162 - (lambda (x-12129 - keys-12130 - clauses-12131 - r-12132 - pat-12133 - fender-12134 - exp-12135 - mod-12136) + mod-15547)) + y-15545))))))) + (gen-clause-13228 + (lambda (x-14195 + keys-14196 + clauses-14197 + r-14198 + pat-14199 + fender-14200 + exp-14201 + mod-14202) (call-with-values (lambda () - (convert-pattern-11160 pat-12133 keys-12130)) - (lambda (p-12291 pvars-12292) - (if (not (distinct-bound-ids?-4513 (map car pvars-12292))) + (convert-pattern-13226 pat-14199 keys-14196)) + (lambda (p-14357 pvars-14358) + (if (not (distinct-bound-ids?-6576 (map car pvars-14358))) (syntax-violation 'syntax-case "duplicate pattern variable" - pat-12133) + pat-14199) (if (not (and-map - (lambda (x-12408) - (not (let ((x-12412 (car x-12408))) - (if (if (if (vector? x-12412) + (lambda (x-14474) + (not (let ((x-14478 (car x-14474))) + (if (if (if (vector? x-14478) (if (= (vector-length - x-12412) + x-14478) 4) (eq? (vector-ref - x-12412 + x-14478 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-12412 1)) + (symbol? (vector-ref x-14478 1)) #f) - (if (eq? (if (if (vector? x-12412) + (if (eq? (if (if (vector? x-14478) (if (= (vector-length - x-12412) + x-14478) 4) (eq? (vector-ref - x-12412 + x-14478 0) 'syntax-object) #f) #f) - (vector-ref x-12412 1) - x-12412) + (vector-ref x-14478 1) + x-14478) (if (if (= (vector-length '#(syntax-object ... @@ -15177,7 +15312,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -15459,146 +15594,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -15606,9 +15741,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -15623,7 +15758,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -15905,159 +16040,159 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 - x-12412 + (eq? (id-var-name-6568 + x-14478 '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object ... ((top) @@ -16066,7 +16201,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -16348,194 +16483,194 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)))) - pvars-12292)) + pvars-14358)) (syntax-violation 'syntax-case "misplaced ellipsis" - pat-12133) - (let ((y-12488 + pat-14199) + (let ((y-14554 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-4453 + (build-application-6516 #f - (let ((req-12631 (list 'tmp)) - (vars-12633 (list y-12488)) - (exp-12635 - (let ((y-12652 + (let ((req-14697 (list 'tmp)) + (vars-14699 (list y-14554)) + (exp-14701 + (let ((y-14718 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - y-12488))) - (let ((test-exp-12656 - (let ((tmp-12665 + y-14554))) + (let ((test-exp-14722 + (let ((tmp-14731 ($sc-dispatch - fender-12134 + fender-14200 '#(atom #t)))) - (if tmp-12665 + (if tmp-14731 (@apply - (lambda () y-12652) - tmp-12665) - (let ((then-exp-12683 - (build-dispatch-call-11161 - pvars-12292 - fender-12134 - y-12652 - r-12132 - mod-12136)) - (else-exp-12684 + (lambda () y-14718) + tmp-14731) + (let ((then-exp-14749 + (build-dispatch-call-13227 + pvars-14358 + fender-14200 + y-14718 + r-14198 + mod-14202)) + (else-exp-14750 (make-struct/no-tail (vector-ref %expanded-vtables @@ -16547,48 +16682,48 @@ %expanded-vtables 10) #f - y-12652 - then-exp-12683 - else-exp-12684))))) - (then-exp-12657 - (build-dispatch-call-11161 - pvars-12292 - exp-12135 - y-12652 - r-12132 - mod-12136)) - (else-exp-12658 - (gen-syntax-case-11163 - x-12129 - keys-12130 - clauses-12131 - r-12132 - mod-12136))) + y-14718 + then-exp-14749 + else-exp-14750))))) + (then-exp-14723 + (build-dispatch-call-13227 + pvars-14358 + exp-14201 + y-14718 + r-14198 + mod-14202)) + (else-exp-14724 + (gen-syntax-case-13229 + x-14195 + keys-14196 + clauses-14197 + r-14198 + mod-14202))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - test-exp-12656 - then-exp-12657 - else-exp-12658))))) - (let ((body-12640 + test-exp-14722 + then-exp-14723 + else-exp-14724))))) + (let ((body-14706 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-12631 + req-14697 #f #f #f '() - vars-12633 - exp-12635 + vars-14699 + exp-14701 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-12640))) - (list (if (eq? p-12291 'any) - (let ((fun-exp-12706 + body-14706))) + (list (if (eq? p-14357 'any) + (let ((fun-exp-14772 (if (equal? (module-name (current-module)) '(guile)) @@ -16602,13 +16737,13 @@ '(guile) 'list #f))) - (arg-exps-12707 (list x-12129))) + (arg-exps-14773 (list x-14195))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-12706 - arg-exps-12707)) - (let ((fun-exp-12730 + fun-exp-14772 + arg-exps-14773)) + (let ((fun-exp-14796 (if (equal? (module-name (current-module)) '(guile)) @@ -16622,27 +16757,27 @@ '(guile) '$sc-dispatch #f))) - (arg-exps-12731 - (list x-12129 + (arg-exps-14797 + (list x-14195 (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - p-12291)))) + p-14357)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-12730 - arg-exps-12731)))))))))))) - (gen-syntax-case-11163 - (lambda (x-11562 - keys-11563 - clauses-11564 - r-11565 - mod-11566) - (if (null? clauses-11564) - (let ((fun-exp-11571 + fun-exp-14796 + arg-exps-14797)))))))))))) + (gen-syntax-case-13229 + (lambda (x-13628 + keys-13629 + clauses-13630 + r-13631 + mod-13632) + (if (null? clauses-13630) + (let ((fun-exp-13637 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -16654,7 +16789,7 @@ '(guile) 'syntax-violation #f))) - (arg-exps-11572 + (arg-exps-13638 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16663,58 +16798,58 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - x-11562))) + x-13628))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-11571 - arg-exps-11572)) - (let ((tmp-11605 (car clauses-11564))) - (let ((tmp-11606 ($sc-dispatch tmp-11605 '(any any)))) - (if tmp-11606 + fun-exp-13637 + arg-exps-13638)) + (let ((tmp-13671 (car clauses-13630))) + (let ((tmp-13672 ($sc-dispatch tmp-13671 '(any any)))) + (if tmp-13672 (@apply - (lambda (pat-11608 exp-11609) - (if (if (if (symbol? pat-11608) + (lambda (pat-13674 exp-13675) + (if (if (if (symbol? pat-13674) #t - (if (if (vector? pat-11608) - (if (= (vector-length pat-11608) 4) - (eq? (vector-ref pat-11608 0) + (if (if (vector? pat-13674) + (if (= (vector-length pat-13674) 4) + (eq? (vector-ref pat-13674 0) 'syntax-object) #f) #f) - (symbol? (vector-ref pat-11608 1)) + (symbol? (vector-ref pat-13674 1)) #f)) (and-map - (lambda (x-11636) - (not (if (eq? (if (if (vector? pat-11608) + (lambda (x-13702) + (not (if (eq? (if (if (vector? pat-13674) (if (= (vector-length - pat-11608) + pat-13674) 4) (eq? (vector-ref - pat-11608 + pat-13674 0) 'syntax-object) #f) #f) - (vector-ref pat-11608 1) - pat-11608) - (if (if (vector? x-11636) + (vector-ref pat-13674 1) + pat-13674) + (if (if (vector? x-13702) (if (= (vector-length - x-11636) + x-13702) 4) (eq? (vector-ref - x-11636 + x-13702 0) 'syntax-object) #f) #f) - (vector-ref x-11636 1) - x-11636)) - (eq? (id-var-name-4505 - pat-11608 + (vector-ref x-13702 1) + x-13702)) + (eq? (id-var-name-6568 + pat-13674 '(())) - (id-var-name-4505 - x-11636 + (id-var-name-6568 + x-13702 '(()))) #f))) (cons '#(syntax-object @@ -16723,26 +16858,26 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -17024,154 +17159,156 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) - keys-11563)) + keys-13629)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17180,8 +17317,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" - "l-*-4025")) + #("l-*-6087" + "l-*-6088")) #(ribcage () () ()) #(ribcage #(x @@ -17194,11 +17331,11 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause @@ -17208,10 +17345,10 @@ (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -17493,146 +17630,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -17640,9 +17777,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) #t @@ -17654,7 +17791,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17663,21 +17800,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -17959,154 +18096,154 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -18115,8 +18252,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" - "l-*-4025")) + #("l-*-6087" + "l-*-6088")) #(ribcage () () ()) #(ribcage #(x @@ -18129,11 +18266,11 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause @@ -18143,10 +18280,10 @@ (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -18428,146 +18565,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -18575,9 +18712,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) #t @@ -18589,7 +18726,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18598,21 +18735,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -18894,163 +19031,163 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 + (eq? (id-var-name-6568 '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19059,21 +19196,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -19355,162 +19492,164 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19519,21 +19658,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -19815,278 +19954,280 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) - (expand-4522 exp-11609 r-11565 '(()) mod-11566) - (let ((labels-11812 + (expand-6585 exp-13675 r-13631 '(()) mod-13632) + (let ((labels-13878 (list (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))))) - (var-11813 - (let ((id-11851 - (if (if (vector? pat-11608) + (var-13879 + (let ((id-13917 + (if (if (vector? pat-13674) (if (= (vector-length - pat-11608) + pat-13674) 4) (eq? (vector-ref - pat-11608 + pat-13674 0) 'syntax-object) #f) #f) - (vector-ref pat-11608 1) - pat-11608))) + (vector-ref pat-13674 1) + pat-13674))) (gensym (string-append - (symbol->string id-11851) + (symbol->string id-13917) "-"))))) - (build-application-4453 + (build-application-6516 #f - (build-simple-lambda-4462 + (build-simple-lambda-6525 #f - (list (syntax->datum pat-11608)) + (list (syntax->datum pat-13674)) #f - (list var-11813) + (list var-13879) '() - (expand-4522 - exp-11609 - (extend-env-4480 - labels-11812 + (expand-6585 + exp-13675 + (extend-env-6543 + labels-13878 (list (cons 'syntax - (cons var-11813 0))) - r-11565) - (make-binding-wrap-4500 - (list pat-11608) - labels-11812 + (cons var-13879 0))) + r-13631) + (make-binding-wrap-6563 + (list pat-13674) + labels-13878 '(())) - mod-11566)) - (list x-11562)))) - (gen-clause-11162 - x-11562 - keys-11563 - (cdr clauses-11564) - r-11565 - pat-11608 + mod-13632)) + (list x-13628)))) + (gen-clause-13228 + x-13628 + keys-13629 + (cdr clauses-13630) + r-13631 + pat-13674 #t - exp-11609 - mod-11566))) - tmp-11606) - (let ((tmp-12121 - ($sc-dispatch tmp-11605 '(any any any)))) - (if tmp-12121 + exp-13675 + mod-13632))) + tmp-13672) + (let ((tmp-14187 + ($sc-dispatch tmp-13671 '(any any any)))) + (if tmp-14187 (@apply - (lambda (pat-12123 fender-12124 exp-12125) - (gen-clause-11162 - x-11562 - keys-11563 - (cdr clauses-11564) - r-11565 - pat-12123 - fender-12124 - exp-12125 - mod-11566)) - tmp-12121) + (lambda (pat-14189 fender-14190 exp-14191) + (gen-clause-13228 + x-13628 + keys-13629 + (cdr clauses-13630) + r-13631 + pat-14189 + fender-14190 + exp-14191 + mod-13632)) + tmp-14187) (syntax-violation 'syntax-case "invalid clause" - (car clauses-11564))))))))))) - (lambda (e-11164 r-11165 w-11166 s-11167 mod-11168) - (let ((e-11169 - (wrap-4515 + (car clauses-13630))))))))))) + (lambda (e-13230 r-13231 w-13232 s-13233 mod-13234) + (let ((e-13235 + (wrap-6578 (begin - (if (if (pair? e-11164) s-11167 #f) - (set-source-properties! e-11164 s-11167)) - e-11164) - w-11166 - mod-11168))) - (let ((tmp-11171 + (if (if (pair? e-13230) s-13233 #f) + (set-source-properties! e-13230 s-13233)) + e-13230) + w-13232 + mod-13234))) + (let ((tmp-13237 ($sc-dispatch - e-11169 + e-13235 '(_ any each-any . each-any)))) - (if tmp-11171 + (if tmp-13237 (@apply - (lambda (val-11196 key-11197 m-11198) + (lambda (val-13262 key-13263 m-13264) (if (and-map - (lambda (x-11199) - (if (if (symbol? x-11199) + (lambda (x-13265) + (if (if (symbol? x-13265) #t - (if (if (vector? x-11199) - (if (= (vector-length x-11199) 4) - (eq? (vector-ref x-11199 0) + (if (if (vector? x-13265) + (if (= (vector-length x-13265) 4) + (eq? (vector-ref x-13265 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-11199 1)) + (symbol? (vector-ref x-13265 1)) #f)) - (not (if (if (if (vector? x-11199) - (if (= (vector-length x-11199) + (not (if (if (if (vector? x-13265) + (if (= (vector-length x-13265) 4) - (eq? (vector-ref x-11199 0) + (eq? (vector-ref x-13265 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-11199 1)) + (symbol? (vector-ref x-13265 1)) #f) - (if (eq? (if (if (vector? x-11199) + (if (eq? (if (if (vector? x-13265) (if (= (vector-length - x-11199) + x-13265) 4) (eq? (vector-ref - x-11199 + x-13265 0) 'syntax-object) #f) #f) - (vector-ref x-11199 1) - x-11199) + (vector-ref x-13265 1) + x-13265) (if (if (= (vector-length '#(syntax-object ... @@ -20102,7 +20243,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -20384,146 +20525,146 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -20531,9 +20672,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -20548,7 +20689,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -20830,157 +20971,157 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 x-11199 '(())) - (id-var-name-4505 + (eq? (id-var-name-6568 x-13265 '(())) + (id-var-name-6568 '#(syntax-object ... ((top) @@ -20989,7 +21130,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -21271,911 +21412,911 @@ (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")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)) #f)) - key-11197) - (let ((x-11325 + key-13263) + (let ((x-13391 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-4453 - s-11167 - (let ((req-11455 (list 'tmp)) - (vars-11457 (list x-11325)) - (exp-11459 - (gen-syntax-case-11163 + (build-application-6516 + s-13233 + (let ((req-13521 (list 'tmp)) + (vars-13523 (list x-13391)) + (exp-13525 + (gen-syntax-case-13229 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - x-11325) - key-11197 - m-11198 - r-11165 - mod-11168))) - (let ((body-11464 + x-13391) + key-13263 + m-13264 + r-13231 + mod-13234))) + (let ((body-13530 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-11455 + req-13521 #f #f #f '() - vars-11457 - exp-11459 + vars-13523 + exp-13525 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-11464))) - (list (expand-4522 - val-11196 - r-11165 + body-13530))) + (list (expand-6585 + val-13262 + r-13231 '(()) - mod-11168)))) + mod-13234)))) (syntax-violation 'syntax-case "invalid literals list" - e-11169))) - tmp-11171) + e-13235))) + tmp-13237) (syntax-violation #f "source expression failed to match any pattern" - e-11169))))))) + e-13235))))))) (set! macroexpand (lambda* - (x-13882 + (x-15948 #:optional - (m-13883 'e) - (esew-13884 '(eval))) - (expand-top-sequence-4518 - (list x-13882) + (m-15949 'e) + (esew-15950 '(eval))) + (expand-top-sequence-6581 + (list x-15948) '() '((top)) #f - m-13883 - esew-13884 + m-15949 + esew-15950 (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (x-13887) - (if (if (vector? x-13887) - (if (= (vector-length x-13887) 4) - (eq? (vector-ref x-13887 0) 'syntax-object) + (lambda (x-15953) + (if (if (vector? x-15953) + (if (= (vector-length x-15953) 4) + (eq? (vector-ref x-15953 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-13887 1)) + (symbol? (vector-ref x-15953 1)) #f))) (set! datum->syntax - (lambda (id-13912 datum-13913) - (let ((wrap-13918 (vector-ref id-13912 2)) - (module-13919 (vector-ref id-13912 3))) + (lambda (id-15978 datum-15979) + (let ((wrap-15984 (vector-ref id-15978 2)) + (module-15985 (vector-ref id-15978 3))) (vector 'syntax-object - datum-13913 - wrap-13918 - module-13919)))) + datum-15979 + wrap-15984 + module-15985)))) (set! syntax->datum - (lambda (x-13926) (strip-4535 x-13926 '(())))) + (lambda (x-15992) (strip-6598 x-15992 '(())))) (set! syntax-source - (lambda (x-13929) - (source-annotation-4479 x-13929))) + (lambda (x-15995) + (source-annotation-6542 x-15995))) (set! generate-temporaries - (lambda (ls-14082) + (lambda (ls-16148) (begin - (if (not (list? ls-14082)) + (if (not (list? ls-16148)) (syntax-violation 'generate-temporaries "invalid argument" - ls-14082)) - (let ((mod-14090 + ls-16148)) + (let ((mod-16156 (cons 'hygiene (module-name (current-module))))) - (map (lambda (x-14091) - (wrap-4515 (gensym "t-") '((top)) mod-14090)) - ls-14082))))) + (map (lambda (x-16157) + (wrap-6578 (gensym "t-") '((top)) mod-16156)) + ls-16148))))) (set! free-identifier=? - (lambda (x-14095 y-14096) + (lambda (x-16161 y-16162) (begin - (if (not (if (if (vector? x-14095) - (if (= (vector-length x-14095) 4) - (eq? (vector-ref x-14095 0) 'syntax-object) + (if (not (if (if (vector? x-16161) + (if (= (vector-length x-16161) 4) + (eq? (vector-ref x-16161 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-14095 1)) + (symbol? (vector-ref x-16161 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - x-14095)) - (if (not (if (if (vector? y-14096) - (if (= (vector-length y-14096) 4) - (eq? (vector-ref y-14096 0) 'syntax-object) + x-16161)) + (if (not (if (if (vector? y-16162) + (if (= (vector-length y-16162) 4) + (eq? (vector-ref y-16162 0) 'syntax-object) #f) #f) - (symbol? (vector-ref y-14096 1)) + (symbol? (vector-ref y-16162 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - y-14096)) - (if (eq? (if (if (vector? x-14095) - (if (= (vector-length x-14095) 4) - (eq? (vector-ref x-14095 0) 'syntax-object) + y-16162)) + (if (eq? (if (if (vector? x-16161) + (if (= (vector-length x-16161) 4) + (eq? (vector-ref x-16161 0) 'syntax-object) #f) #f) - (vector-ref x-14095 1) - x-14095) - (if (if (vector? y-14096) - (if (= (vector-length y-14096) 4) - (eq? (vector-ref y-14096 0) 'syntax-object) + (vector-ref x-16161 1) + x-16161) + (if (if (vector? y-16162) + (if (= (vector-length y-16162) 4) + (eq? (vector-ref y-16162 0) 'syntax-object) #f) #f) - (vector-ref y-14096 1) - y-14096)) - (eq? (id-var-name-4505 x-14095 '(())) - (id-var-name-4505 y-14096 '(()))) + (vector-ref y-16162 1) + y-16162)) + (eq? (id-var-name-6568 x-16161 '(())) + (id-var-name-6568 y-16162 '(()))) #f)))) (set! bound-identifier=? - (lambda (x-14246 y-14247) + (lambda (x-16312 y-16313) (begin - (if (not (if (if (vector? x-14246) - (if (= (vector-length x-14246) 4) - (eq? (vector-ref x-14246 0) 'syntax-object) + (if (not (if (if (vector? x-16312) + (if (= (vector-length x-16312) 4) + (eq? (vector-ref x-16312 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-14246 1)) + (symbol? (vector-ref x-16312 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - x-14246)) - (if (not (if (if (vector? y-14247) - (if (= (vector-length y-14247) 4) - (eq? (vector-ref y-14247 0) 'syntax-object) + x-16312)) + (if (not (if (if (vector? y-16313) + (if (= (vector-length y-16313) 4) + (eq? (vector-ref y-16313 0) 'syntax-object) #f) #f) - (symbol? (vector-ref y-14247 1)) + (symbol? (vector-ref y-16313 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - y-14247)) - (if (if (if (vector? x-14246) - (if (= (vector-length x-14246) 4) - (eq? (vector-ref x-14246 0) 'syntax-object) + y-16313)) + (if (if (if (vector? x-16312) + (if (= (vector-length x-16312) 4) + (eq? (vector-ref x-16312 0) 'syntax-object) #f) #f) - (if (vector? y-14247) - (if (= (vector-length y-14247) 4) - (eq? (vector-ref y-14247 0) 'syntax-object) + (if (vector? y-16313) + (if (= (vector-length y-16313) 4) + (eq? (vector-ref y-16313 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref x-14246 1) - (vector-ref y-14247 1)) - (same-marks?-4504 - (car (vector-ref x-14246 2)) - (car (vector-ref y-14247 2))) + (if (eq? (vector-ref x-16312 1) + (vector-ref y-16313 1)) + (same-marks?-6567 + (car (vector-ref x-16312 2)) + (car (vector-ref y-16313 2))) #f) - (eq? x-14246 y-14247))))) + (eq? x-16312 y-16313))))) (set! syntax-violation (lambda* - (who-14380 - message-14381 - form-14382 + (who-16446 + message-16447 + form-16448 #:optional - (subform-14383 #f)) + (subform-16449 #f)) (begin - (if (not (if (not who-14380) - (not who-14380) - (let ((t-14401 (string? who-14380))) - (if t-14401 t-14401 (symbol? who-14380))))) + (if (not (if (not who-16446) + (not who-16446) + (let ((t-16467 (string? who-16446))) + (if t-16467 t-16467 (symbol? who-16446))))) (syntax-violation 'syntax-violation "invalid argument" - who-14380)) - (if (not (string? message-14381)) + who-16446)) + (if (not (string? message-16447)) (syntax-violation 'syntax-violation "invalid argument" - message-14381)) + message-16447)) (throw 'syntax-error - who-14380 - message-14381 - (source-annotation-4479 - (if form-14382 form-14382 subform-14383)) - (strip-4535 form-14382 '(())) - (if subform-14383 - (strip-4535 subform-14383 '(())) + who-16446 + message-16447 + (source-annotation-6542 + (if form-16448 form-16448 subform-16449)) + (strip-6598 form-16448 '(())) + (if subform-16449 + (strip-6598 subform-16449 '(())) #f))))) (letrec* - ((syntax-local-binding-14605 - (lambda (id-14738) + ((syntax-local-binding-16671 + (lambda (id-16804) (begin - (if (not (if (if (vector? id-14738) - (if (= (vector-length id-14738) 4) - (eq? (vector-ref id-14738 0) 'syntax-object) + (if (not (if (if (vector? id-16804) + (if (= (vector-length id-16804) 4) + (eq? (vector-ref id-16804 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-14738 1)) + (symbol? (vector-ref id-16804 1)) #f)) (syntax-violation 'syntax-local-binding "invalid argument" - id-14738)) - ((fluid-ref transformer-environment-4508) - (lambda (e-14778 - r-14779 - w-14780 - s-14781 - rib-14782 - mod-14783) + id-16804)) + ((fluid-ref transformer-environment-6571) + (lambda (e-16844 + r-16845 + w-16846 + s-16847 + rib-16848 + mod-16849) (call-with-values (lambda () - (let ((id-14786 (vector-ref id-14738 1)) - (w-14787 - (let ((w-14798 (vector-ref id-14738 2))) - (let ((ms-14799 (car w-14798)) - (s-14800 (cdr w-14798))) - (if (if (pair? ms-14799) - (eq? (car ms-14799) #f) + (let ((id-16852 (vector-ref id-16804 1)) + (w-16853 + (let ((w-16864 (vector-ref id-16804 2))) + (let ((ms-16865 (car w-16864)) + (s-16866 (cdr w-16864))) + (if (if (pair? ms-16865) + (eq? (car ms-16865) #f) #f) - (cons (cdr ms-14799) - (if rib-14782 - (cons rib-14782 (cdr s-14800)) - (cdr s-14800))) - (cons ms-14799 - (if rib-14782 - (cons rib-14782 s-14800) - s-14800)))))) - (mod-14789 (vector-ref id-14738 3))) - (let ((n-14792 (id-var-name-4505 id-14786 w-14787))) - (if (symbol? n-14792) - (let ((mod-14806 - (if (if (vector? id-14786) - (if (= (vector-length id-14786) 4) - (eq? (vector-ref id-14786 0) + (cons (cdr ms-16865) + (if rib-16848 + (cons rib-16848 (cdr s-16866)) + (cdr s-16866))) + (cons ms-16865 + (if rib-16848 + (cons rib-16848 s-16866) + s-16866)))))) + (mod-16855 (vector-ref id-16804 3))) + (let ((n-16858 (id-var-name-6568 id-16852 w-16853))) + (if (symbol? n-16858) + (let ((mod-16872 + (if (if (vector? id-16852) + (if (= (vector-length id-16852) 4) + (eq? (vector-ref id-16852 0) 'syntax-object) #f) #f) - (vector-ref id-14786 3) - mod-14789))) - (let ((b-14807 - (let ((t-14808 - (get-global-definition-hook-4449 - n-14792 - mod-14806))) - (if t-14808 t-14808 '(global))))) - (if (eq? (car b-14807) 'global) - (values 'global n-14792 mod-14806) + (vector-ref id-16852 3) + mod-16855))) + (let ((b-16873 + (let ((t-16874 + (get-global-definition-hook-6512 + n-16858 + mod-16872))) + (if t-16874 t-16874 '(global))))) + (if (eq? (car b-16873) 'global) + (values 'global n-16858 mod-16872) (values - (car b-14807) - (cdr b-14807) - mod-14806)))) - (if (string? n-14792) - (let ((mod-14834 - (if (if (vector? id-14786) - (if (= (vector-length id-14786) 4) - (eq? (vector-ref id-14786 0) + (car b-16873) + (cdr b-16873) + mod-16872)))) + (if (string? n-16858) + (let ((mod-16900 + (if (if (vector? id-16852) + (if (= (vector-length id-16852) 4) + (eq? (vector-ref id-16852 0) 'syntax-object) #f) #f) - (vector-ref id-14786 3) - mod-14789))) - (let ((b-14835 - (let ((t-14836 - (assq-ref r-14779 n-14792))) - (if t-14836 - t-14836 + (vector-ref id-16852 3) + mod-16855))) + (let ((b-16901 + (let ((t-16902 + (assq-ref r-16845 n-16858))) + (if t-16902 + t-16902 '(displaced-lexical))))) (values - (car b-14835) - (cdr b-14835) - mod-14834))) + (car b-16901) + (cdr b-16901) + mod-16900))) (error "unexpected id-var-name" - id-14786 - w-14787 - n-14792)))))) - (lambda (type-14849 value-14850 mod-14851) - (if (eqv? type-14849 'lexical) - (values 'lexical value-14850) - (if (eqv? type-14849 'macro) - (values 'macro value-14850) - (if (eqv? type-14849 'syntax) - (values 'pattern-variable value-14850) - (if (eqv? type-14849 'displaced-lexical) + id-16852 + w-16853 + n-16858)))))) + (lambda (type-16915 value-16916 mod-16917) + (if (eqv? type-16915 'lexical) + (values 'lexical value-16916) + (if (eqv? type-16915 'macro) + (values 'macro value-16916) + (if (eqv? type-16915 'syntax) + (values 'pattern-variable value-16916) + (if (eqv? type-16915 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? type-14849 'global) + (if (eqv? type-16915 'global) (values 'global - (cons value-14850 (cdr mod-14851))) + (cons value-16916 (cdr mod-16917))) (values 'other #f))))))))))))) - (syntax-locally-bound-identifiers-14606 - (lambda (id-14862) + (syntax-locally-bound-identifiers-16672 + (lambda (id-16928) (begin - (if (not (if (if (vector? id-14862) - (if (= (vector-length id-14862) 4) - (eq? (vector-ref id-14862 0) 'syntax-object) + (if (not (if (if (vector? id-16928) + (if (= (vector-length id-16928) 4) + (eq? (vector-ref id-16928 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-14862 1)) + (symbol? (vector-ref id-16928 1)) #f)) (syntax-violation 'syntax-locally-bound-identifiers "invalid argument" - id-14862)) - (locally-bound-identifiers-4506 - (vector-ref id-14862 2) - (vector-ref id-14862 3)))))) + id-16928)) + (locally-bound-identifiers-6569 + (vector-ref id-16928 2) + (vector-ref id-16928 3)))))) (begin (define! 'syntax-module - (lambda (id-14608) + (lambda (id-16674) (begin - (if (not (if (if (vector? id-14608) - (if (= (vector-length id-14608) 4) - (eq? (vector-ref id-14608 0) 'syntax-object) + (if (not (if (if (vector? id-16674) + (if (= (vector-length id-16674) 4) + (eq? (vector-ref id-16674 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-14608 1)) + (symbol? (vector-ref id-16674 1)) #f)) (syntax-violation 'syntax-module "invalid argument" - id-14608)) - (cdr (vector-ref id-14608 3))))) + id-16674)) + (cdr (vector-ref id-16674 3))))) (define! 'syntax-local-binding - syntax-local-binding-14605) + syntax-local-binding-16671) (define! 'syntax-locally-bound-identifiers - syntax-locally-bound-identifiers-14606))) + syntax-locally-bound-identifiers-16672))) (letrec* - ((match-each-14969 - (lambda (e-15556 p-15557 w-15558 mod-15559) - (if (pair? e-15556) - (let ((first-15560 - (match-14975 - (car e-15556) - p-15557 - w-15558 + ((match-each-17035 + (lambda (e-17622 p-17623 w-17624 mod-17625) + (if (pair? e-17622) + (let ((first-17626 + (match-17041 + (car e-17622) + p-17623 + w-17624 '() - mod-15559))) - (if first-15560 - (let ((rest-15563 - (match-each-14969 - (cdr e-15556) - p-15557 - w-15558 - mod-15559))) - (if rest-15563 (cons first-15560 rest-15563) #f)) + mod-17625))) + (if first-17626 + (let ((rest-17629 + (match-each-17035 + (cdr e-17622) + p-17623 + w-17624 + mod-17625))) + (if rest-17629 (cons first-17626 rest-17629) #f)) #f)) - (if (null? e-15556) + (if (null? e-17622) '() - (if (if (vector? e-15556) - (if (= (vector-length e-15556) 4) - (eq? (vector-ref e-15556 0) 'syntax-object) + (if (if (vector? e-17622) + (if (= (vector-length e-17622) 4) + (eq? (vector-ref e-17622 0) 'syntax-object) #f) #f) - (match-each-14969 - (vector-ref e-15556 1) - p-15557 - (join-wraps-4502 w-15558 (vector-ref e-15556 2)) - (vector-ref e-15556 3)) + (match-each-17035 + (vector-ref e-17622 1) + p-17623 + (join-wraps-6565 w-17624 (vector-ref e-17622 2)) + (vector-ref e-17622 3)) #f))))) - (match-each-any-14971 - (lambda (e-15591 w-15592 mod-15593) - (if (pair? e-15591) - (let ((l-15594 - (match-each-any-14971 - (cdr e-15591) - w-15592 - mod-15593))) - (if l-15594 - (cons (wrap-4515 (car e-15591) w-15592 mod-15593) - l-15594) + (match-each-any-17037 + (lambda (e-17657 w-17658 mod-17659) + (if (pair? e-17657) + (let ((l-17660 + (match-each-any-17037 + (cdr e-17657) + w-17658 + mod-17659))) + (if l-17660 + (cons (wrap-6578 (car e-17657) w-17658 mod-17659) + l-17660) #f)) - (if (null? e-15591) + (if (null? e-17657) '() - (if (if (vector? e-15591) - (if (= (vector-length e-15591) 4) - (eq? (vector-ref e-15591 0) 'syntax-object) + (if (if (vector? e-17657) + (if (= (vector-length e-17657) 4) + (eq? (vector-ref e-17657 0) 'syntax-object) #f) #f) - (match-each-any-14971 - (vector-ref e-15591 1) - (join-wraps-4502 w-15592 (vector-ref e-15591 2)) - mod-15593) + (match-each-any-17037 + (vector-ref e-17657 1) + (join-wraps-6565 w-17658 (vector-ref e-17657 2)) + mod-17659) #f))))) - (match-empty-14972 - (lambda (p-15618 r-15619) - (if (null? p-15618) - r-15619 - (if (eq? p-15618 '_) - r-15619 - (if (eq? p-15618 'any) - (cons '() r-15619) - (if (pair? p-15618) - (match-empty-14972 - (car p-15618) - (match-empty-14972 (cdr p-15618) r-15619)) - (if (eq? p-15618 'each-any) - (cons '() r-15619) - (let ((atom-key-15620 (vector-ref p-15618 0))) - (if (eqv? atom-key-15620 'each) - (match-empty-14972 - (vector-ref p-15618 1) - r-15619) - (if (eqv? atom-key-15620 'each+) - (match-empty-14972 - (vector-ref p-15618 1) - (match-empty-14972 - (reverse (vector-ref p-15618 2)) - (match-empty-14972 - (vector-ref p-15618 3) - r-15619))) - (if (if (eqv? atom-key-15620 'free-id) + (match-empty-17038 + (lambda (p-17684 r-17685) + (if (null? p-17684) + r-17685 + (if (eq? p-17684 '_) + r-17685 + (if (eq? p-17684 'any) + (cons '() r-17685) + (if (pair? p-17684) + (match-empty-17038 + (car p-17684) + (match-empty-17038 (cdr p-17684) r-17685)) + (if (eq? p-17684 'each-any) + (cons '() r-17685) + (let ((atom-key-17686 (vector-ref p-17684 0))) + (if (eqv? atom-key-17686 'each) + (match-empty-17038 + (vector-ref p-17684 1) + r-17685) + (if (eqv? atom-key-17686 'each+) + (match-empty-17038 + (vector-ref p-17684 1) + (match-empty-17038 + (reverse (vector-ref p-17684 2)) + (match-empty-17038 + (vector-ref p-17684 3) + r-17685))) + (if (if (eqv? atom-key-17686 'free-id) #t - (eqv? atom-key-15620 'atom)) - r-15619 - (if (eqv? atom-key-15620 'vector) - (match-empty-14972 - (vector-ref p-15618 1) - r-15619))))))))))))) - (combine-14973 - (lambda (r*-15639 r-15640) - (if (null? (car r*-15639)) - r-15640 - (cons (map car r*-15639) - (combine-14973 (map cdr r*-15639) r-15640))))) - (match*-14974 - (lambda (e-15004 p-15005 w-15006 r-15007 mod-15008) - (if (null? p-15005) - (if (null? e-15004) r-15007 #f) - (if (pair? p-15005) - (if (pair? e-15004) - (match-14975 - (car e-15004) - (car p-15005) - w-15006 - (match-14975 - (cdr e-15004) - (cdr p-15005) - w-15006 - r-15007 - mod-15008) - mod-15008) + (eqv? atom-key-17686 'atom)) + r-17685 + (if (eqv? atom-key-17686 'vector) + (match-empty-17038 + (vector-ref p-17684 1) + r-17685))))))))))))) + (combine-17039 + (lambda (r*-17705 r-17706) + (if (null? (car r*-17705)) + r-17706 + (cons (map car r*-17705) + (combine-17039 (map cdr r*-17705) r-17706))))) + (match*-17040 + (lambda (e-17070 p-17071 w-17072 r-17073 mod-17074) + (if (null? p-17071) + (if (null? e-17070) r-17073 #f) + (if (pair? p-17071) + (if (pair? e-17070) + (match-17041 + (car e-17070) + (car p-17071) + w-17072 + (match-17041 + (cdr e-17070) + (cdr p-17071) + w-17072 + r-17073 + mod-17074) + mod-17074) #f) - (if (eq? p-15005 'each-any) - (let ((l-15013 - (match-each-any-14971 e-15004 w-15006 mod-15008))) - (if l-15013 (cons l-15013 r-15007) #f)) - (let ((atom-key-15018 (vector-ref p-15005 0))) - (if (eqv? atom-key-15018 'each) - (if (null? e-15004) - (match-empty-14972 - (vector-ref p-15005 1) - r-15007) - (let ((l-15025 - (match-each-14969 - e-15004 - (vector-ref p-15005 1) - w-15006 - mod-15008))) - (if l-15025 + (if (eq? p-17071 'each-any) + (let ((l-17079 + (match-each-any-17037 e-17070 w-17072 mod-17074))) + (if l-17079 (cons l-17079 r-17073) #f)) + (let ((atom-key-17084 (vector-ref p-17071 0))) + (if (eqv? atom-key-17084 'each) + (if (null? e-17070) + (match-empty-17038 + (vector-ref p-17071 1) + r-17073) + (let ((l-17091 + (match-each-17035 + e-17070 + (vector-ref p-17071 1) + w-17072 + mod-17074))) + (if l-17091 (letrec* - ((collect-15028 - (lambda (l-15079) - (if (null? (car l-15079)) - r-15007 - (cons (map car l-15079) - (collect-15028 - (map cdr l-15079))))))) - (collect-15028 l-15025)) + ((collect-17094 + (lambda (l-17145) + (if (null? (car l-17145)) + r-17073 + (cons (map car l-17145) + (collect-17094 + (map cdr l-17145))))))) + (collect-17094 l-17091)) #f))) - (if (eqv? atom-key-15018 'each+) + (if (eqv? atom-key-17084 'each+) (call-with-values (lambda () - (let ((x-pat-15088 (vector-ref p-15005 1)) - (y-pat-15089 (vector-ref p-15005 2)) - (z-pat-15090 (vector-ref p-15005 3))) + (let ((x-pat-17154 (vector-ref p-17071 1)) + (y-pat-17155 (vector-ref p-17071 2)) + (z-pat-17156 (vector-ref p-17071 3))) (letrec* - ((f-15094 - (lambda (e-15096 w-15097) - (if (pair? e-15096) + ((f-17160 + (lambda (e-17162 w-17163) + (if (pair? e-17162) (call-with-values (lambda () - (f-15094 (cdr e-15096) w-15097)) - (lambda (xr*-15098 - y-pat-15099 - r-15100) - (if r-15100 - (if (null? y-pat-15099) - (let ((xr-15101 - (match-14975 - (car e-15096) - x-pat-15088 - w-15097 + (f-17160 (cdr e-17162) w-17163)) + (lambda (xr*-17164 + y-pat-17165 + r-17166) + (if r-17166 + (if (null? y-pat-17165) + (let ((xr-17167 + (match-17041 + (car e-17162) + x-pat-17154 + w-17163 '() - mod-15008))) - (if xr-15101 + mod-17074))) + (if xr-17167 (values - (cons xr-15101 xr*-15098) - y-pat-15099 - r-15100) + (cons xr-17167 xr*-17164) + y-pat-17165 + r-17166) (values #f #f #f))) (values '() - (cdr y-pat-15099) - (match-14975 - (car e-15096) - (car y-pat-15099) - w-15097 - r-15100 - mod-15008))) + (cdr y-pat-17165) + (match-17041 + (car e-17162) + (car y-pat-17165) + w-17163 + r-17166 + mod-17074))) (values #f #f #f)))) - (if (if (vector? e-15096) - (if (= (vector-length e-15096) 4) - (eq? (vector-ref e-15096 0) + (if (if (vector? e-17162) + (if (= (vector-length e-17162) 4) + (eq? (vector-ref e-17162 0) 'syntax-object) #f) #f) - (f-15094 - (vector-ref e-15096 1) - (join-wraps-4502 w-15097 e-15096)) + (f-17160 + (vector-ref e-17162 1) + (join-wraps-6565 w-17163 e-17162)) (values '() - y-pat-15089 - (match-14975 - e-15096 - z-pat-15090 - w-15097 - r-15007 - mod-15008))))))) - (f-15094 e-15004 w-15006)))) - (lambda (xr*-15127 y-pat-15128 r-15129) - (if r-15129 - (if (null? y-pat-15128) - (if (null? xr*-15127) - (match-empty-14972 - (vector-ref p-15005 1) - r-15129) - (combine-14973 xr*-15127 r-15129)) + y-pat-17155 + (match-17041 + e-17162 + z-pat-17156 + w-17163 + r-17073 + mod-17074))))))) + (f-17160 e-17070 w-17072)))) + (lambda (xr*-17193 y-pat-17194 r-17195) + (if r-17195 + (if (null? y-pat-17194) + (if (null? xr*-17193) + (match-empty-17038 + (vector-ref p-17071 1) + r-17195) + (combine-17039 xr*-17193 r-17195)) #f) #f))) - (if (eqv? atom-key-15018 'free-id) - (if (if (symbol? e-15004) + (if (eqv? atom-key-17084 'free-id) + (if (if (symbol? e-17070) #t - (if (if (vector? e-15004) - (if (= (vector-length e-15004) 4) - (eq? (vector-ref e-15004 0) + (if (if (vector? e-17070) + (if (= (vector-length e-17070) 4) + (eq? (vector-ref e-17070 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-15004 1)) + (symbol? (vector-ref e-17070 1)) #f)) - (if (let ((i-15460 - (wrap-4515 e-15004 w-15006 mod-15008)) - (j-15461 (vector-ref p-15005 1))) - (if (eq? (if (if (vector? i-15460) + (if (let ((i-17526 + (wrap-6578 e-17070 w-17072 mod-17074)) + (j-17527 (vector-ref p-17071 1))) + (if (eq? (if (if (vector? i-17526) (if (= (vector-length - i-15460) + i-17526) 4) - (eq? (vector-ref i-15460 0) + (eq? (vector-ref i-17526 0) 'syntax-object) #f) #f) - (vector-ref i-15460 1) - i-15460) - (if (if (vector? j-15461) + (vector-ref i-17526 1) + i-17526) + (if (if (vector? j-17527) (if (= (vector-length - j-15461) + j-17527) 4) - (eq? (vector-ref j-15461 0) + (eq? (vector-ref j-17527 0) 'syntax-object) #f) #f) - (vector-ref j-15461 1) - j-15461)) - (eq? (id-var-name-4505 i-15460 '(())) - (id-var-name-4505 j-15461 '(()))) + (vector-ref j-17527 1) + j-17527)) + (eq? (id-var-name-6568 i-17526 '(())) + (id-var-name-6568 j-17527 '(()))) #f)) - r-15007 + r-17073 #f) #f) - (if (eqv? atom-key-15018 'atom) + (if (eqv? atom-key-17084 'atom) (if (equal? - (vector-ref p-15005 1) - (strip-4535 e-15004 w-15006)) - r-15007 + (vector-ref p-17071 1) + (strip-6598 e-17070 w-17072)) + r-17073 #f) - (if (eqv? atom-key-15018 'vector) - (if (vector? e-15004) - (match-14975 - (vector->list e-15004) - (vector-ref p-15005 1) - w-15006 - r-15007 - mod-15008) + (if (eqv? atom-key-17084 'vector) + (if (vector? e-17070) + (match-17041 + (vector->list e-17070) + (vector-ref p-17071 1) + w-17072 + r-17073 + mod-17074) #f)))))))))))) - (match-14975 - (lambda (e-15521 p-15522 w-15523 r-15524 mod-15525) - (if (not r-15524) + (match-17041 + (lambda (e-17587 p-17588 w-17589 r-17590 mod-17591) + (if (not r-17590) #f - (if (eq? p-15522 '_) - r-15524 - (if (eq? p-15522 'any) - (cons (wrap-4515 e-15521 w-15523 mod-15525) - r-15524) - (if (if (vector? e-15521) - (if (= (vector-length e-15521) 4) - (eq? (vector-ref e-15521 0) 'syntax-object) + (if (eq? p-17588 '_) + r-17590 + (if (eq? p-17588 'any) + (cons (wrap-6578 e-17587 w-17589 mod-17591) + r-17590) + (if (if (vector? e-17587) + (if (= (vector-length e-17587) 4) + (eq? (vector-ref e-17587 0) 'syntax-object) #f) #f) - (match*-14974 - (vector-ref e-15521 1) - p-15522 - (join-wraps-4502 w-15523 (vector-ref e-15521 2)) - r-15524 - (vector-ref e-15521 3)) - (match*-14974 - e-15521 - p-15522 - w-15523 - r-15524 - mod-15525)))))))) + (match*-17040 + (vector-ref e-17587 1) + p-17588 + (join-wraps-6565 w-17589 (vector-ref e-17587 2)) + r-17590 + (vector-ref e-17587 3)) + (match*-17040 + e-17587 + p-17588 + w-17589 + r-17590 + mod-17591)))))))) (set! $sc-dispatch - (lambda (e-14976 p-14977) - (if (eq? p-14977 'any) - (list e-14976) - (if (eq? p-14977 '_) + (lambda (e-17042 p-17043) + (if (eq? p-17043 'any) + (list e-17042) + (if (eq? p-17043 '_) '() - (if (if (vector? e-14976) - (if (= (vector-length e-14976) 4) - (eq? (vector-ref e-14976 0) 'syntax-object) + (if (if (vector? e-17042) + (if (= (vector-length e-17042) 4) + (eq? (vector-ref e-17042 0) 'syntax-object) #f) #f) - (match*-14974 - (vector-ref e-14976 1) - p-14977 - (vector-ref e-14976 2) + (match*-17040 + (vector-ref e-17042 1) + p-17043 + (vector-ref e-17042 2) '() - (vector-ref e-14976 3)) - (match*-14974 e-14976 p-14977 '(()) '() #f)))))))))) + (vector-ref e-17042 3)) + (match*-17040 e-17042 p-17043 '(()) '() #f)))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (x-27756) - (let ((tmp-27758 - ($sc-dispatch x-27756 '(_ () any . each-any)))) - (if tmp-27758 + (lambda (x-29889) + (let ((tmp-29891 + ($sc-dispatch x-29889 '(_ () any . each-any)))) + (if tmp-29891 (@apply - (lambda (e1-27762 e2-27763) + (lambda (e1-29895 e2-29896) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-27729" "l-*-27730")) + #("l-*-29862" "l-*-29863")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) - (cons '() (cons e1-27762 e2-27763)))) - tmp-27758) - (let ((tmp-27764 + (cons '() (cons e1-29895 e2-29896)))) + tmp-29891) + (let ((tmp-29897 ($sc-dispatch - x-27756 + x-29889 '(_ ((any any)) any . each-any)))) - (if tmp-27764 + (if tmp-29897 (@apply - (lambda (out-27768 in-27769 e1-27770 e2-27771) + (lambda (out-29901 in-29902 e1-29903 e2-29904) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27735" - "l-*-27736" - "l-*-27737" - "l-*-27738")) + #("l-*-29868" + "l-*-29869" + "l-*-29870" + "l-*-29871")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) - in-27769 + in-29902 '() - (list out-27768 + (list out-29901 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27735" - "l-*-27736" - "l-*-27737" - "l-*-27738")) + #("l-*-29868" + "l-*-29869" + "l-*-29870" + "l-*-29871")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27726"))) + #("l-*-29859"))) (hygiene guile)) - (cons '() (cons e1-27770 e2-27771)))))) - tmp-27764) - (let ((tmp-27772 + (cons '() (cons e1-29903 e2-29904)))))) + tmp-29897) + (let ((tmp-29905 ($sc-dispatch - x-27756 + x-29889 '(_ #(each (any any)) any . each-any)))) - (if tmp-27772 + (if tmp-29905 (@apply - (lambda (out-27776 in-27777 e1-27778 e2-27779) + (lambda (out-29909 in-29910 e1-29911 e2-29912) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27745" - "l-*-27746" - "l-*-27747" - "l-*-27748")) + #("l-*-29878" + "l-*-29879" + "l-*-29880" + "l-*-29881")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) (cons '#(syntax-object list @@ -22183,66 +22324,66 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27745" - "l-*-27746" - "l-*-27747" - "l-*-27748")) + #("l-*-29878" + "l-*-29879" + "l-*-29880" + "l-*-29881")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) - in-27777) + in-29910) '() - (list out-27776 + (list out-29909 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27745" - "l-*-27746" - "l-*-27747" - "l-*-27748")) + #("l-*-29878" + "l-*-29879" + "l-*-29880" + "l-*-29881")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27726"))) + #("l-*-29859"))) (hygiene guile)) - (cons '() (cons e1-27778 e2-27779)))))) - tmp-27772) + (cons '() (cons e1-29911 e2-29912)))))) + tmp-29905) (syntax-violation #f "source expression failed to match any pattern" - x-27756)))))))))) + x-29889)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (x-27833) - (let ((tmp-27835 + (lambda (x-29966) + (let ((tmp-29968 ($sc-dispatch - x-27833 + x-29966 '(_ each-any . #(each ((any . any) any)))))) - (if tmp-27835 + (if tmp-29968 (@apply - (lambda (k-27839 - keyword-27840 - pattern-27841 - template-27842) + (lambda (k-29972 + keyword-29973 + pattern-29974 + template-29975) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) '(#(syntax-object x @@ -22250,12 +22391,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) (vector '(#(syntax-object @@ -22264,12 +22405,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) . #(syntax-object @@ -22278,12 +22419,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22291,26 +22432,26 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) - pattern-27841)) + pattern-29974)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) (cons '#(syntax-object x @@ -22318,16 +22459,16 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) - (cons k-27839 - (map (lambda (tmp-27807-27843 - tmp-27806-27844) + (cons k-29972 + (map (lambda (tmp-29940-29976 + tmp-29939-29977) (list (cons '#(syntax-object dummy ((top) @@ -22340,10 +22481,10 @@ (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () @@ -22351,9 +22492,9 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27806-27844) + tmp-29939-29977) (list '#(syntax-object syntax ((top) @@ -22366,10 +22507,10 @@ (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () @@ -22377,45 +22518,45 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27807-27843))) - template-27842 - pattern-27841)))))) - tmp-27835) - (let ((tmp-27845 + tmp-29940-29976))) + template-29975 + pattern-29974)))))) + tmp-29968) + (let ((tmp-29978 ($sc-dispatch - x-27833 + x-29966 '(_ each-any any . #(each ((any . any) any)))))) - (if (if tmp-27845 + (if (if tmp-29978 (@apply - (lambda (k-27849 - docstring-27850 - keyword-27851 - pattern-27852 - template-27853) - (string? (syntax->datum docstring-27850))) - tmp-27845) + (lambda (k-29982 + docstring-29983 + keyword-29984 + pattern-29985 + template-29986) + (string? (syntax->datum docstring-29983))) + tmp-29978) #f) (@apply - (lambda (k-27854 - docstring-27855 - keyword-27856 - pattern-27857 - template-27858) + (lambda (k-29987 + docstring-29988 + keyword-29989 + pattern-29990 + template-29991) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) '(#(syntax-object x @@ -22423,15 +22564,15 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) - docstring-27855 + docstring-29988 (vector '(#(syntax-object macro-type @@ -22439,13 +22580,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) . #(syntax-object @@ -22454,13 +22595,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22468,28 +22609,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) - pattern-27857)) + pattern-29990)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) (cons '#(syntax-object x @@ -22501,20 +22642,20 @@ pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - (cons k-27854 - (map (lambda (tmp-27832-27859 - tmp-27831-27860) + (cons k-29987 + (map (lambda (tmp-29965-29992 + tmp-29964-29993) (list (cons '#(syntax-object dummy ((top) @@ -22529,11 +22670,11 @@ (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () @@ -22541,10 +22682,10 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27831-27860) + tmp-29964-29993) (list '#(syntax-object syntax ((top) @@ -22559,11 +22700,11 @@ (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () @@ -22571,48 +22712,48 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27832-27859))) - template-27858 - pattern-27857)))))) - tmp-27845) + tmp-29965-29992))) + template-29991 + pattern-29990)))))) + tmp-29978) (syntax-violation #f "source expression failed to match any pattern" - x-27833)))))))) + x-29966)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (x-27897) - (let ((tmp-27899 - ($sc-dispatch x-27897 '(_ (any . any) any)))) - (if tmp-27899 + (lambda (x-30030) + (let ((tmp-30032 + ($sc-dispatch x-30030 '(_ (any . any) any)))) + (if tmp-30032 (@apply - (lambda (name-27903 pattern-27904 template-27905) + (lambda (name-30036 pattern-30037 template-30038) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-27874" "l-*-27875" "l-*-27876")) + #("l-*-30007" "l-*-30008" "l-*-30009")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) - name-27903 + name-30036 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-27874" "l-*-27875" "l-*-27876")) + #("l-*-30007" "l-*-30008" "l-*-30009")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22621,63 +22762,63 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-27874" - "l-*-27875" - "l-*-27876")) + #("l-*-30007" + "l-*-30008" + "l-*-30009")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27871"))) + #("l-*-30004"))) (hygiene guile)) - pattern-27904) - template-27905)))) - tmp-27899) - (let ((tmp-27906 - ($sc-dispatch x-27897 '(_ (any . any) any any)))) - (if (if tmp-27906 + pattern-30037) + template-30038)))) + tmp-30032) + (let ((tmp-30039 + ($sc-dispatch x-30030 '(_ (any . any) any any)))) + (if (if tmp-30039 (@apply - (lambda (name-27910 - pattern-27911 - docstring-27912 - template-27913) - (string? (syntax->datum docstring-27912))) - tmp-27906) + (lambda (name-30043 + pattern-30044 + docstring-30045 + template-30046) + (string? (syntax->datum docstring-30045))) + tmp-30039) #f) (@apply - (lambda (name-27914 - pattern-27915 - docstring-27916 - template-27917) + (lambda (name-30047 + pattern-30048 + docstring-30049 + template-30050) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-27889" - "l-*-27890" - "l-*-27891" - "l-*-27892")) + #("l-*-30022" + "l-*-30023" + "l-*-30024" + "l-*-30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) - name-27914 + name-30047 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-27889" - "l-*-27890" - "l-*-27891" - "l-*-27892")) + #("l-*-30022" + "l-*-30023" + "l-*-30024" + "l-*-30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) '() - docstring-27916 + docstring-30049 (list (cons '#(syntax-object _ ((top) @@ -22687,45 +22828,45 @@ docstring template) #((top) (top) (top) (top)) - #("l-*-27889" - "l-*-27890" - "l-*-27891" - "l-*-27892")) + #("l-*-30022" + "l-*-30023" + "l-*-30024" + "l-*-30025")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27871"))) + #("l-*-30004"))) (hygiene guile)) - pattern-27915) - template-27917)))) - tmp-27906) + pattern-30048) + template-30050)))) + tmp-30039) (syntax-violation #f "source expression failed to match any pattern" - x-27897)))))))) + x-30030)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (x-27966) - (let ((tmp-27968 + (lambda (x-30099) + (let ((tmp-30101 ($sc-dispatch - x-27966 + x-30099 '(any #(each (any any)) any . each-any)))) - (if (if tmp-27968 + (if (if tmp-30101 (@apply - (lambda (let*-27972 x-27973 v-27974 e1-27975 e2-27976) - (and-map identifier? x-27973)) - tmp-27968) + (lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109) + (and-map identifier? x-30106)) + tmp-30101) #f) (@apply - (lambda (let*-27977 x-27978 v-27979 e1-27980 e2-27981) + (lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114) (letrec* - ((f-27982 - (lambda (bindings-27985) - (if (null? bindings-27985) + ((f-30115 + (lambda (bindings-30118) + (if (null? bindings-30118) (cons '#(syntax-object let ((top) @@ -22733,26 +22874,26 @@ #(ribcage #(f bindings) #((top) (top)) - #("l-*-27952" "l-*-27953")) + #("l-*-30085" "l-*-30086")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-27942" - "l-*-27943" - "l-*-27944" - "l-*-27945" - "l-*-27946")) + #("l-*-30075" + "l-*-30076" + "l-*-30077" + "l-*-30078" + "l-*-30079")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27928"))) + #(ribcage #(x) #((top)) #("l-*-30061"))) (hygiene guile)) - (cons '() (cons e1-27980 e2-27981))) - (let ((tmp-27986 - (list (f-27982 (cdr bindings-27985)) - (car bindings-27985)))) - (let ((tmp-27987 ($sc-dispatch tmp-27986 '(any any)))) - (if tmp-27987 + (cons '() (cons e1-30113 e2-30114))) + (let ((tmp-30119 + (list (f-30115 (cdr bindings-30118)) + (car bindings-30118)))) + (let ((tmp-30120 ($sc-dispatch tmp-30119 '(any any)))) + (if tmp-30120 (@apply - (lambda (body-27989 binding-27990) + (lambda (body-30122 binding-30123) (list '#(syntax-object let ((top) @@ -22760,84 +22901,84 @@ #(ribcage #(body binding) #((top) (top)) - #("l-*-27962" "l-*-27963")) + #("l-*-30095" "l-*-30096")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("l-*-27952" "l-*-27953")) + #("l-*-30085" "l-*-30086")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-27942" - "l-*-27943" - "l-*-27944" - "l-*-27945" - "l-*-27946")) + #("l-*-30075" + "l-*-30076" + "l-*-30077" + "l-*-30078" + "l-*-30079")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27928"))) + #("l-*-30061"))) (hygiene guile)) - (list binding-27990) - body-27989)) - tmp-27987) + (list binding-30123) + body-30122)) + tmp-30120) (syntax-violation #f "source expression failed to match any pattern" - tmp-27986)))))))) - (f-27982 (map list x-27978 v-27979)))) - tmp-27968) + tmp-30119)))))))) + (f-30115 (map list x-30111 v-30112)))) + tmp-30101) (syntax-violation #f "source expression failed to match any pattern" - x-27966)))))) + x-30099)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (orig-x-28048) - (let ((tmp-28050 + (lambda (orig-x-30181) + (let ((tmp-30183 ($sc-dispatch - orig-x-28048 + orig-x-30181 '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if tmp-28050 + (if tmp-30183 (@apply - (lambda (var-28054 - init-28055 - step-28056 - e0-28057 - e1-28058 - c-28059) - (let ((tmp-28060 - (map (lambda (v-28063 s-28064) - (let ((tmp-28066 ($sc-dispatch s-28064 '()))) - (if tmp-28066 - (@apply (lambda () v-28063) tmp-28066) - (let ((tmp-28069 - ($sc-dispatch s-28064 '(any)))) - (if tmp-28069 + (lambda (var-30187 + init-30188 + step-30189 + e0-30190 + e1-30191 + c-30192) + (let ((tmp-30193 + (map (lambda (v-30196 s-30197) + (let ((tmp-30199 ($sc-dispatch s-30197 '()))) + (if tmp-30199 + (@apply (lambda () v-30196) tmp-30199) + (let ((tmp-30202 + ($sc-dispatch s-30197 '(any)))) + (if tmp-30202 (@apply - (lambda (e-28072) e-28072) - tmp-28069) + (lambda (e-30205) e-30205) + tmp-30202) (syntax-violation 'do "bad step expression" - orig-x-28048 - s-28064)))))) - var-28054 - step-28056))) - (let ((tmp-28061 ($sc-dispatch tmp-28060 'each-any))) - (if tmp-28061 + orig-x-30181 + s-30197)))))) + var-30187 + step-30189))) + (let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any))) + (if tmp-30194 (@apply - (lambda (step-28078) - (let ((tmp-28080 ($sc-dispatch e1-28058 '()))) - (if tmp-28080 + (lambda (step-30211) + (let ((tmp-30213 ($sc-dispatch e1-30191 '()))) + (if tmp-30213 (@apply (lambda () (list '#(syntax-object @@ -22847,7 +22988,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22856,17 +22997,17 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) '#(syntax-object doloop @@ -22875,7 +23016,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22884,19 +23025,19 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - (map list var-28054 init-28055) + (map list var-30187 init-30188) (list '#(syntax-object if ((top) @@ -22904,7 +23045,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22913,17 +23054,17 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) (list '#(syntax-object not @@ -22932,7 +23073,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -22946,19 +23087,19 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - e0-28057) + e0-30190) (cons '#(syntax-object begin ((top) @@ -22966,7 +23107,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -22980,20 +23121,20 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) (append - c-28059 + c-30192 (list (cons '#(syntax-object doloop ((top) @@ -23004,7 +23145,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23018,12 +23159,12 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () @@ -23031,28 +23172,28 @@ #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - step-28078))))))) - tmp-28080) - (let ((tmp-28084 - ($sc-dispatch e1-28058 '(any . each-any)))) - (if tmp-28084 + step-30211))))))) + tmp-30213) + (let ((tmp-30217 + ($sc-dispatch e1-30191 '(any . each-any)))) + (if tmp-30217 (@apply - (lambda (e1-28088 e2-28089) + (lambda (e1-30221 e2-30222) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" "l-*-28026")) + #("l-*-30158" "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23061,17 +23202,17 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) '#(syntax-object doloop @@ -23079,12 +23220,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" "l-*-28026")) + #("l-*-30158" "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23093,32 +23234,32 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - (map list var-28054 init-28055) + (map list var-30187 init-30188) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23127,32 +23268,32 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - e0-28057 + e0-30190 (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23166,32 +23307,32 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - (cons e1-28088 e2-28089)) + (cons e1-30221 e2-30222)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23205,20 +23346,20 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) (append - c-28059 + c-30192 (list (cons '#(syntax-object doloop ((top) @@ -23227,8 +23368,8 @@ e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () @@ -23236,7 +23377,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23250,12 +23391,12 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () @@ -23263,36 +23404,36 @@ #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - step-28078))))))) - tmp-28084) + step-30211))))))) + tmp-30217) (syntax-violation #f "source expression failed to match any pattern" - e1-28058)))))) - tmp-28061) + e1-30191)))))) + tmp-30194) (syntax-violation #f "source expression failed to match any pattern" - tmp-28060))))) - tmp-28050) + tmp-30193))))) + tmp-30183) (syntax-violation #f "source expression failed to match any pattern" - orig-x-28048)))))) + orig-x-30181)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((quasi-28375 - (lambda (p-28399 lev-28400) - (let ((tmp-28402 + ((quasi-30508 + (lambda (p-30532 lev-30533) + (let ((tmp-30535 ($sc-dispatch - p-28399 + p-30532 '(#(free-id #(syntax-object unquote @@ -23301,7 +23442,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23310,28 +23451,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) any)))) - (if tmp-28402 + (if tmp-30535 (@apply - (lambda (p-28406) - (if (= lev-28400 0) + (lambda (p-30539) + (if (= lev-30533 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("l-*-28125")) + #(ribcage #(p) #((top)) #("l-*-30258")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23340,25 +23481,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - p-28406) - (quasicons-28377 + p-30539) + (quasicons-30510 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28125")) + #(ribcage #(p) #((top)) #("l-*-30258")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23367,23 +23508,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-28125")) + #(ribcage #(p) #((top)) #("l-*-30258")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23392,19 +23533,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 (list p-28406) (#{1-}# lev-28400))))) - tmp-28402) - (let ((tmp-28409 + (quasi-30508 (list p-30539) (#{1-}# lev-30533))))) + tmp-30535) + (let ((tmp-30542 ($sc-dispatch - p-28399 + p-30532 '(#(free-id #(syntax-object quasiquote @@ -23413,7 +23554,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23422,28 +23563,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) any)))) - (if tmp-28409 + (if tmp-30542 (@apply - (lambda (p-28413) - (quasicons-28377 + (lambda (p-30546) + (quasicons-30510 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28128")) + #(ribcage #(p) #((top)) #("l-*-30261")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23452,23 +23593,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("l-*-28128")) + #(ribcage #(p) #((top)) #("l-*-30261")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23477,23 +23618,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 (list p-28413) (#{1+}# lev-28400)))) - tmp-28409) - (let ((tmp-28416 ($sc-dispatch p-28399 '(any . any)))) - (if tmp-28416 + (quasi-30508 (list p-30546) (#{1+}# lev-30533)))) + tmp-30542) + (let ((tmp-30549 ($sc-dispatch p-30532 '(any . any)))) + (if tmp-30549 (@apply - (lambda (p-28420 q-28421) - (let ((tmp-28423 + (lambda (p-30553 q-30554) + (let ((tmp-30556 ($sc-dispatch - p-28420 + p-30553 '(#(free-id #(syntax-object unquote @@ -23501,12 +23642,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23521,40 +23662,40 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28423 + (if tmp-30556 (@apply - (lambda (p-28427) - (if (= lev-28400 0) - (quasilist*-28379 - (map (lambda (tmp-28139-28463) + (lambda (p-30560) + (if (= lev-30533 0) + (quasilist*-30512 + (map (lambda (tmp-30272-30596) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28137")) + #("l-*-30270")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" - "l-*-28132")) + #("l-*-30264" + "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" - "l-*-28122")) + #("l-*-30254" + "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23569,35 +23710,35 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28139-28463)) - p-28427) - (quasi-28375 q-28421 lev-28400)) - (quasicons-28377 - (quasicons-28377 + tmp-30272-30596)) + p-30560) + (quasi-30508 q-30554 lev-30533)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28137")) + #("l-*-30270")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23612,13 +23753,13 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote @@ -23626,16 +23767,16 @@ #(ribcage #(p) #((top)) - #("l-*-28137")) + #("l-*-30270")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23650,22 +23791,22 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 - p-28427 - (#{1-}# lev-28400))) - (quasi-28375 q-28421 lev-28400)))) - tmp-28423) - (let ((tmp-28468 + (quasi-30508 + p-30560 + (#{1-}# lev-30533))) + (quasi-30508 q-30554 lev-30533)))) + tmp-30556) + (let ((tmp-30601 ($sc-dispatch - p-28420 + p-30553 '(#(free-id #(syntax-object unquote-splicing @@ -23673,12 +23814,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23693,40 +23834,40 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28468 + (if tmp-30601 (@apply - (lambda (p-28472) - (if (= lev-28400 0) - (quasiappend-28378 - (map (lambda (tmp-28144-28475) + (lambda (p-30605) + (if (= lev-30533 0) + (quasiappend-30511 + (map (lambda (tmp-30277-30608) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28142")) + #("l-*-30275")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" - "l-*-28132")) + #("l-*-30264" + "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" - "l-*-28122")) + #("l-*-30254" + "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23741,35 +23882,35 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28144-28475)) - p-28472) - (quasi-28375 q-28421 lev-28400)) - (quasicons-28377 - (quasicons-28377 + tmp-30277-30608)) + p-30605) + (quasi-30508 q-30554 lev-30533)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28142")) + #("l-*-30275")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23784,13 +23925,13 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23798,16 +23939,16 @@ #(ribcage #(p) #((top)) - #("l-*-28142")) + #("l-*-30275")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23822,49 +23963,49 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 - p-28472 - (#{1-}# lev-28400))) - (quasi-28375 q-28421 lev-28400)))) - tmp-28468) - (quasicons-28377 - (quasi-28375 p-28420 lev-28400) - (quasi-28375 q-28421 lev-28400))))))) - tmp-28416) - (let ((tmp-28489 - ($sc-dispatch p-28399 '#(vector each-any)))) - (if tmp-28489 + (quasi-30508 + p-30605 + (#{1-}# lev-30533))) + (quasi-30508 q-30554 lev-30533)))) + tmp-30601) + (quasicons-30510 + (quasi-30508 p-30553 lev-30533) + (quasi-30508 q-30554 lev-30533))))))) + tmp-30549) + (let ((tmp-30622 + ($sc-dispatch p-30532 '#(vector each-any)))) + (if tmp-30622 (@apply - (lambda (x-28493) - (let ((x-28496 - (vquasi-28376 x-28493 lev-28400))) - (let ((tmp-28498 + (lambda (x-30626) + (let ((x-30629 + (vquasi-30509 x-30626 lev-30533))) + (let ((tmp-30631 ($sc-dispatch - x-28496 + x-30629 '(#(atom "quote") each-any)))) - (if tmp-28498 + (if tmp-30631 (@apply - (lambda (x-28502) + (lambda (x-30635) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("l-*-28249")) + #("l-*-30382")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -23879,36 +24020,36 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (list->vector x-28502))) - tmp-28498) + (list->vector x-30635))) + tmp-30631) (letrec* - ((f-28504 - (lambda (y-28516 k-28517) - (let ((tmp-28519 + ((f-30637 + (lambda (y-30649 k-30650) + (let ((tmp-30652 ($sc-dispatch - y-28516 + y-30649 '(#(atom "quote") each-any)))) - (if tmp-28519 + (if tmp-30652 (@apply - (lambda (y-28522) - (k-28517 - (map (lambda (tmp-28274-28523) + (lambda (y-30655) + (k-30650 + (map (lambda (tmp-30407-30656) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("l-*-28272")) + #("l-*-30405")) #(ribcage () () @@ -23920,13 +24061,13 @@ #((top) (top) (top)) - #("l-*-28254" - "l-*-28255" - "l-*-28256")) + #("l-*-30387" + "l-*-30388" + "l-*-30389")) #(ribcage #(_) #((top)) - #("l-*-28252")) + #("l-*-30385")) #(ribcage () () @@ -23934,7 +24075,7 @@ #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -23949,50 +24090,50 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28274-28523)) - y-28522))) - tmp-28519) - (let ((tmp-28524 + tmp-30407-30656)) + y-30655))) + tmp-30652) + (let ((tmp-30657 ($sc-dispatch - y-28516 + y-30649 '(#(atom "list") . each-any)))) - (if tmp-28524 + (if tmp-30657 (@apply - (lambda (y-28527) - (k-28517 y-28527)) - tmp-28524) - (let ((tmp-28528 + (lambda (y-30660) + (k-30650 y-30660)) + tmp-30657) + (let ((tmp-30661 ($sc-dispatch - y-28516 + y-30649 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-28528 + (if tmp-30661 (@apply - (lambda (y-28531 - z-28532) - (f-28504 - z-28532 - (lambda (ls-28533) - (k-28517 + (lambda (y-30664 + z-30665) + (f-30637 + z-30665 + (lambda (ls-30666) + (k-30650 (append - y-28531 - ls-28533))))) - tmp-28528) + y-30664 + ls-30666))))) + tmp-30661) (list '#(syntax-object "list->vector" ((top) @@ -24001,14 +24142,14 @@ () ()) #(ribcage - #(t-28289) - #((m-*-28290 + #(t-30422) + #((m-*-30423 top)) - #("l-*-28293")) + #("l-*-30426")) #(ribcage #(else) #((top)) - #("l-*-28287")) + #("l-*-30420")) #(ribcage () () @@ -24018,13 +24159,13 @@ #((top) (top) (top)) - #("l-*-28254" - "l-*-28255" - "l-*-28256")) + #("l-*-30387" + "l-*-30388" + "l-*-30389")) #(ribcage #(_) #((top)) - #("l-*-28252")) + #("l-*-30385")) #(ribcage () () @@ -24032,7 +24173,7 @@ #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -24047,26 +24188,26 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28496)))))))))) - (f-28504 - x-28496 - (lambda (ls-28506) - (let ((tmp-28508 + x-30629)))))))))) + (f-30637 + x-30629 + (lambda (ls-30639) + (let ((tmp-30641 ($sc-dispatch - ls-28506 + ls-30639 'each-any))) - (if tmp-28508 + (if tmp-30641 (@apply - (lambda (t-28262-28511) + (lambda (t-30395-30644) (cons '#(syntax-object "vector" ((top) @@ -24075,10 +24216,10 @@ () ()) #(ribcage - #(t-28262) - #((m-*-28263 + #(t-30395) + #((m-*-30396 top)) - #("l-*-28267")) + #("l-*-30400")) #(ribcage () () @@ -24094,11 +24235,11 @@ #(ribcage #(ls) #((top)) - #("l-*-28261")) + #("l-*-30394")) #(ribcage #(_) #((top)) - #("l-*-28252")) + #("l-*-30385")) #(ribcage () () @@ -24106,7 +24247,7 @@ #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -24121,30 +24262,30 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28262-28511)) - tmp-28508) + t-30395-30644)) + tmp-30641) (syntax-violation #f "source expression failed to match any pattern" - ls-28506)))))))))) - tmp-28489) + ls-30639)))))))))) + tmp-30622) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28152")) + #(ribcage #(p) #((top)) #("l-*-30285")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -24159,24 +24300,24 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - p-28399))))))))))) - (vquasi-28376 - (lambda (p-28561 lev-28562) - (let ((tmp-28564 ($sc-dispatch p-28561 '(any . any)))) - (if tmp-28564 + p-30532))))))))))) + (vquasi-30509 + (lambda (p-30694 lev-30695) + (let ((tmp-30697 ($sc-dispatch p-30694 '(any . any)))) + (if tmp-30697 (@apply - (lambda (p-28568 q-28569) - (let ((tmp-28571 + (lambda (p-30701 q-30702) + (let ((tmp-30704 ($sc-dispatch - p-28568 + p-30701 '(#(free-id #(syntax-object unquote @@ -24184,12 +24325,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24204,38 +24345,38 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28571 + (if tmp-30704 (@apply - (lambda (p-28575) - (if (= lev-28562 0) - (quasilist*-28379 - (map (lambda (tmp-28168-28611) + (lambda (p-30708) + (if (= lev-30695 0) + (quasilist*-30512 + (map (lambda (tmp-30301-30744) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28166")) + #("l-*-30299")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24250,32 +24391,32 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28168-28611)) - p-28575) - (vquasi-28376 q-28569 lev-28562)) - (quasicons-28377 - (quasicons-28377 + tmp-30301-30744)) + p-30708) + (vquasi-30509 q-30702 lev-30695)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28166")) + #(ribcage #(p) #((top)) #("l-*-30299")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24290,27 +24431,27 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-28166")) + #(ribcage #(p) #((top)) #("l-*-30299")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24325,20 +24466,20 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 p-28575 (#{1-}# lev-28562))) - (vquasi-28376 q-28569 lev-28562)))) - tmp-28571) - (let ((tmp-28618 + (quasi-30508 p-30708 (#{1-}# lev-30695))) + (vquasi-30509 q-30702 lev-30695)))) + tmp-30704) + (let ((tmp-30751 ($sc-dispatch - p-28568 + p-30701 '(#(free-id #(syntax-object unquote-splicing @@ -24346,12 +24487,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24366,40 +24507,40 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28618 + (if tmp-30751 (@apply - (lambda (p-28622) - (if (= lev-28562 0) - (quasiappend-28378 - (map (lambda (tmp-28173-28625) + (lambda (p-30755) + (if (= lev-30695 0) + (quasiappend-30511 + (map (lambda (tmp-30306-30758) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28171")) + #("l-*-30304")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" - "l-*-28161")) + #("l-*-30293" + "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" - "l-*-28157")) + #("l-*-30289" + "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24414,35 +24555,35 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28173-28625)) - p-28622) - (vquasi-28376 q-28569 lev-28562)) - (quasicons-28377 - (quasicons-28377 + tmp-30306-30758)) + p-30755) + (vquasi-30509 q-30702 lev-30695)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28171")) + #("l-*-30304")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24457,13 +24598,13 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -24471,16 +24612,16 @@ #(ribcage #(p) #((top)) - #("l-*-28171")) + #("l-*-30304")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24495,23 +24636,23 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 p-28622 (#{1-}# lev-28562))) - (vquasi-28376 q-28569 lev-28562)))) - tmp-28618) - (quasicons-28377 - (quasi-28375 p-28568 lev-28562) - (vquasi-28376 q-28569 lev-28562))))))) - tmp-28564) - (let ((tmp-28643 ($sc-dispatch p-28561 '()))) - (if tmp-28643 + (quasi-30508 p-30755 (#{1-}# lev-30695))) + (vquasi-30509 q-30702 lev-30695)))) + tmp-30751) + (quasicons-30510 + (quasi-30508 p-30701 lev-30695) + (vquasi-30509 q-30702 lev-30695))))))) + tmp-30697) + (let ((tmp-30776 ($sc-dispatch p-30694 '()))) + (if tmp-30776 (@apply (lambda () '(#(syntax-object @@ -24521,7 +24662,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24530,61 +24671,61 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) ())) - tmp-28643) + tmp-30776) (syntax-violation #f "source expression failed to match any pattern" - p-28561))))))) - (quasicons-28377 - (lambda (x-28656 y-28657) - (let ((tmp-28658 (list x-28656 y-28657))) - (let ((tmp-28659 ($sc-dispatch tmp-28658 '(any any)))) - (if tmp-28659 + p-30694))))))) + (quasicons-30510 + (lambda (x-30789 y-30790) + (let ((tmp-30791 (list x-30789 y-30790))) + (let ((tmp-30792 ($sc-dispatch tmp-30791 '(any any)))) + (if tmp-30792 (@apply - (lambda (x-28661 y-28662) - (let ((tmp-28664 - ($sc-dispatch y-28662 '(#(atom "quote") any)))) - (if tmp-28664 + (lambda (x-30794 y-30795) + (let ((tmp-30797 + ($sc-dispatch y-30795 '(#(atom "quote") any)))) + (if tmp-30797 (@apply - (lambda (dy-28668) - (let ((tmp-28670 + (lambda (dy-30801) + (let ((tmp-30803 ($sc-dispatch - x-28661 + x-30794 '(#(atom "quote") any)))) - (if tmp-28670 + (if tmp-30803 (@apply - (lambda (dx-28674) + (lambda (dx-30807) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("l-*-28195")) + #("l-*-30328")) #(ribcage #(dy) #((top)) - #("l-*-28191")) + #("l-*-30324")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24599,39 +24740,39 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (cons dx-28674 dy-28668))) - tmp-28670) - (if (null? dy-28668) + (cons dx-30807 dy-30801))) + tmp-30803) + (if (null? dy-30801) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("l-*-28197")) + #("l-*-30330")) #(ribcage #(dy) #((top)) - #("l-*-28191")) + #("l-*-30324")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24646,37 +24787,37 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28661) + x-30794) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("l-*-28197")) + #("l-*-30330")) #(ribcage #(dy) #((top)) - #("l-*-28191")) + #("l-*-30324")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24691,42 +24832,42 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28661 - y-28662))))) - tmp-28664) - (let ((tmp-28679 + x-30794 + y-30795))))) + tmp-30797) + (let ((tmp-30812 ($sc-dispatch - y-28662 + y-30795 '(#(atom "list") . any)))) - (if tmp-28679 + (if tmp-30812 (@apply - (lambda (stuff-28683) + (lambda (stuff-30816) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("l-*-28200")) + #("l-*-30333")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24741,41 +24882,41 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (cons x-28661 stuff-28683))) - tmp-28679) - (let ((tmp-28684 + (cons x-30794 stuff-30816))) + tmp-30812) + (let ((tmp-30817 ($sc-dispatch - y-28662 + y-30795 '(#(atom "list*") . any)))) - (if tmp-28684 + (if tmp-30817 (@apply - (lambda (stuff-28688) + (lambda (stuff-30821) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("l-*-28203")) + #("l-*-30336")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24790,34 +24931,34 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (cons x-28661 stuff-28688))) - tmp-28684) + (cons x-30794 stuff-30821))) + tmp-30817) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("l-*-28205")) + #("l-*-30338")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24832,29 +24973,29 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28661 - y-28662)))))))) - tmp-28659) + x-30794 + y-30795)))))))) + tmp-30792) (syntax-violation #f "source expression failed to match any pattern" - tmp-28658)))))) - (quasiappend-28378 - (lambda (x-28699 y-28700) - (let ((tmp-28702 - ($sc-dispatch y-28700 '(#(atom "quote") ())))) - (if tmp-28702 + tmp-30791)))))) + (quasiappend-30511 + (lambda (x-30832 y-30833) + (let ((tmp-30835 + ($sc-dispatch y-30833 '(#(atom "quote") ())))) + (if tmp-30835 (@apply (lambda () - (if (null? x-28699) + (if (null? x-30832) '(#(syntax-object "quote" ((top) @@ -24862,7 +25003,7 @@ #(ribcage #(x y) #((top) (top)) - #("l-*-28209" "l-*-28210")) + #("l-*-30342" "l-*-30343")) #(ribcage (emit quasivector quasilist* @@ -24871,21 +25012,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) ()) - (if (null? (cdr x-28699)) - (car x-28699) - (let ((tmp-28707 ($sc-dispatch x-28699 'each-any))) - (if tmp-28707 + (if (null? (cdr x-30832)) + (car x-30832) + (let ((tmp-30840 ($sc-dispatch x-30832 'each-any))) + (if tmp-30840 (@apply - (lambda (p-28711) + (lambda (p-30844) (cons '#(syntax-object "append" ((top) @@ -24893,12 +25034,12 @@ #(ribcage #(p) #((top)) - #("l-*-28221")) + #("l-*-30354")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28209" "l-*-28210")) + #("l-*-30342" "l-*-30343")) #(ribcage (emit quasivector quasilist* @@ -24913,29 +25054,29 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - p-28711)) - tmp-28707) + p-30844)) + tmp-30840) (syntax-violation #f "source expression failed to match any pattern" - x-28699)))))) - tmp-28702) - (if (null? x-28699) - y-28700 - (let ((tmp-28719 (list x-28699 y-28700))) - (let ((tmp-28720 - ($sc-dispatch tmp-28719 '(each-any any)))) - (if tmp-28720 + x-30832)))))) + tmp-30835) + (if (null? x-30832) + y-30833 + (let ((tmp-30852 (list x-30832 y-30833))) + (let ((tmp-30853 + ($sc-dispatch tmp-30852 '(each-any any)))) + (if tmp-30853 (@apply - (lambda (p-28722 y-28723) + (lambda (p-30855 y-30856) (cons '#(syntax-object "append" ((top) @@ -24943,13 +25084,13 @@ #(ribcage #(p y) #((top) (top)) - #("l-*-28232" "l-*-28233")) - #(ribcage #(_) #((top)) #("l-*-28224")) + #("l-*-30365" "l-*-30366")) + #(ribcage #(_) #((top)) #("l-*-30357")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28209" "l-*-28210")) + #("l-*-30342" "l-*-30343")) #(ribcage (emit quasivector quasilist* @@ -24964,44 +25105,44 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (append p-28722 (list y-28723)))) - tmp-28720) + (append p-30855 (list y-30856)))) + tmp-30853) (syntax-violation #f "source expression failed to match any pattern" - tmp-28719))))))))) - (quasilist*-28379 - (lambda (x-28727 y-28728) + tmp-30852))))))))) + (quasilist*-30512 + (lambda (x-30860 y-30861) (letrec* - ((f-28729 - (lambda (x-28818) - (if (null? x-28818) - y-28728 - (quasicons-28377 - (car x-28818) - (f-28729 (cdr x-28818))))))) - (f-28729 x-28727)))) - (emit-28381 - (lambda (x-28821) - (let ((tmp-28823 - ($sc-dispatch x-28821 '(#(atom "quote") any)))) - (if tmp-28823 + ((f-30862 + (lambda (x-30951) + (if (null? x-30951) + y-30861 + (quasicons-30510 + (car x-30951) + (f-30862 (cdr x-30951))))))) + (f-30862 x-30860)))) + (emit-30514 + (lambda (x-30954) + (let ((tmp-30956 + ($sc-dispatch x-30954 '(#(atom "quote") any)))) + (if tmp-30956 (@apply - (lambda (x-28827) + (lambda (x-30960) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("l-*-28299")) + #(ribcage #(x) #((top)) #("l-*-30432")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28296")) + #(ribcage #(x) #((top)) #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25010,45 +25151,45 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28827)) - tmp-28823) - (let ((tmp-28828 + x-30960)) + tmp-30956) + (let ((tmp-30961 ($sc-dispatch - x-28821 + x-30954 '(#(atom "list") . each-any)))) - (if tmp-28828 + (if tmp-30961 (@apply - (lambda (x-28832) - (let ((tmp-28833 (map emit-28381 x-28832))) - (let ((tmp-28834 ($sc-dispatch tmp-28833 'each-any))) - (if tmp-28834 + (lambda (x-30965) + (let ((tmp-30966 (map emit-30514 x-30965))) + (let ((tmp-30967 ($sc-dispatch tmp-30966 'each-any))) + (if tmp-30967 (@apply - (lambda (t-28304-28836) + (lambda (t-30437-30969) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(t-28304) - #((m-*-28305 top)) - #("l-*-28309")) + #(t-30437) + #((m-*-30438 top)) + #("l-*-30442")) #(ribcage #(x) #((top)) - #("l-*-28302")) + #("l-*-30435")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25063,70 +25204,70 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28304-28836)) - tmp-28834) + t-30437-30969)) + tmp-30967) (syntax-violation #f "source expression failed to match any pattern" - tmp-28833))))) - tmp-28828) - (let ((tmp-28837 + tmp-30966))))) + tmp-30961) + (let ((tmp-30970 ($sc-dispatch - x-28821 + x-30954 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-28837 + (if tmp-30970 (@apply - (lambda (x-28841 y-28842) + (lambda (x-30974 y-30975) (letrec* - ((f-28843 - (lambda (x*-28846) - (if (null? x*-28846) - (emit-28381 y-28842) - (let ((tmp-28847 - (list (emit-28381 (car x*-28846)) - (f-28843 (cdr x*-28846))))) - (let ((tmp-28848 + ((f-30976 + (lambda (x*-30979) + (if (null? x*-30979) + (emit-30514 y-30975) + (let ((tmp-30980 + (list (emit-30514 (car x*-30979)) + (f-30976 (cdr x*-30979))))) + (let ((tmp-30981 ($sc-dispatch - tmp-28847 + tmp-30980 '(any any)))) - (if tmp-28848 + (if tmp-30981 (@apply - (lambda (t-28324-28850 - t-28323-28851) + (lambda (t-30457-30983 + t-30456-30984) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(t-28324 t-28323) - #((m-*-28325 top) - (m-*-28325 top)) - #("l-*-28329" - "l-*-28330")) + #(t-30457 t-30456) + #((m-*-30458 top) + (m-*-30458 top)) + #("l-*-30462" + "l-*-30463")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("l-*-28318" - "l-*-28319")) + #("l-*-30451" + "l-*-30452")) #(ribcage #(x y) #((top) (top)) - #("l-*-28314" - "l-*-28315")) + #("l-*-30447" + "l-*-30448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25141,53 +25282,53 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28324-28850 - t-28323-28851)) - tmp-28848) + t-30457-30983 + t-30456-30984)) + tmp-30981) (syntax-violation #f "source expression failed to match any pattern" - tmp-28847)))))))) - (f-28843 x-28841))) - tmp-28837) - (let ((tmp-28852 + tmp-30980)))))))) + (f-30976 x-30974))) + tmp-30970) + (let ((tmp-30985 ($sc-dispatch - x-28821 + x-30954 '(#(atom "append") . each-any)))) - (if tmp-28852 + (if tmp-30985 (@apply - (lambda (x-28856) - (let ((tmp-28857 (map emit-28381 x-28856))) - (let ((tmp-28858 - ($sc-dispatch tmp-28857 'each-any))) - (if tmp-28858 + (lambda (x-30989) + (let ((tmp-30990 (map emit-30514 x-30989))) + (let ((tmp-30991 + ($sc-dispatch tmp-30990 'each-any))) + (if tmp-30991 (@apply - (lambda (t-28336-28860) + (lambda (t-30469-30993) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(t-28336) - #((m-*-28337 top)) - #("l-*-28341")) + #(t-30469) + #((m-*-30470 top)) + #("l-*-30474")) #(ribcage #(x) #((top)) - #("l-*-28334")) + #("l-*-30467")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25202,53 +25343,53 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28336-28860)) - tmp-28858) + t-30469-30993)) + tmp-30991) (syntax-violation #f "source expression failed to match any pattern" - tmp-28857))))) - tmp-28852) - (let ((tmp-28861 + tmp-30990))))) + tmp-30985) + (let ((tmp-30994 ($sc-dispatch - x-28821 + x-30954 '(#(atom "vector") . each-any)))) - (if tmp-28861 + (if tmp-30994 (@apply - (lambda (x-28865) - (let ((tmp-28866 (map emit-28381 x-28865))) - (let ((tmp-28867 + (lambda (x-30998) + (let ((tmp-30999 (map emit-30514 x-30998))) + (let ((tmp-31000 ($sc-dispatch - tmp-28866 + tmp-30999 'each-any))) - (if tmp-28867 + (if tmp-31000 (@apply - (lambda (t-28348-28869) + (lambda (t-30481-31002) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(t-28348) - #((m-*-28349 top)) - #("l-*-28353")) + #(t-30481) + #((m-*-30482 top)) + #("l-*-30486")) #(ribcage #(x) #((top)) - #("l-*-28346")) + #("l-*-30479")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25263,46 +25404,46 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28348-28869)) - tmp-28867) + t-30481-31002)) + tmp-31000) (syntax-violation #f "source expression failed to match any pattern" - tmp-28866))))) - tmp-28861) - (let ((tmp-28870 + tmp-30999))))) + tmp-30994) + (let ((tmp-31003 ($sc-dispatch - x-28821 + x-30954 '(#(atom "list->vector") any)))) - (if tmp-28870 + (if tmp-31003 (@apply - (lambda (x-28874) - (let ((tmp-28875 (emit-28381 x-28874))) + (lambda (x-31007) + (let ((tmp-31008 (emit-30514 x-31007))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(t-28360) - #((m-*-28361 top)) - #("l-*-28364")) + #(t-30493) + #((m-*-30494 top)) + #("l-*-30497")) #(ribcage #(x) #((top)) - #("l-*-28358")) + #("l-*-30491")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25317,183 +25458,183 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28875))) - tmp-28870) - (let ((tmp-28878 + tmp-31008))) + tmp-31003) + (let ((tmp-31011 ($sc-dispatch - x-28821 + x-30954 '(#(atom "value") any)))) - (if tmp-28878 + (if tmp-31011 (@apply - (lambda (x-28882) x-28882) - tmp-28878) + (lambda (x-31015) x-31015) + tmp-31011) (syntax-violation #f "source expression failed to match any pattern" - x-28821)))))))))))))))))) - (lambda (x-28382) - (let ((tmp-28384 ($sc-dispatch x-28382 '(_ any)))) - (if tmp-28384 + x-30954)))))))))))))))))) + (lambda (x-30515) + (let ((tmp-30517 ($sc-dispatch x-30515 '(_ any)))) + (if tmp-30517 (@apply - (lambda (e-28388) - (emit-28381 (quasi-28375 e-28388 0))) - tmp-28384) + (lambda (e-30521) + (emit-30514 (quasi-30508 e-30521 0))) + tmp-30517) (syntax-violation #f "source expression failed to match any pattern" - x-28382))))))) + x-30515))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (x-28937) + (lambda (x-31070) (letrec* - ((read-file-28938 - (lambda (fn-29047 k-29048) - (let ((p-29049 (open-input-file fn-29047))) + ((read-file-31071 + (lambda (fn-31180 k-31181) + (let ((p-31182 (open-input-file fn-31180))) (letrec* - ((f-29050 - (lambda (x-29104 result-29105) - (if (eof-object? x-29104) + ((f-31183 + (lambda (x-31237 result-31238) + (if (eof-object? x-31237) (begin - (close-input-port p-29049) - (reverse result-29105)) - (f-29050 - (read p-29049) - (cons (datum->syntax k-29048 x-29104) - result-29105)))))) - (f-29050 (read p-29049) '())))))) - (let ((tmp-28940 ($sc-dispatch x-28937 '(any any)))) - (if tmp-28940 + (close-input-port p-31182) + (reverse result-31238)) + (f-31183 + (read p-31182) + (cons (datum->syntax k-31181 x-31237) + result-31238)))))) + (f-31183 (read p-31182) '())))))) + (let ((tmp-31073 ($sc-dispatch x-31070 '(any any)))) + (if tmp-31073 (@apply - (lambda (k-28944 filename-28945) - (let ((fn-28946 (syntax->datum filename-28945))) - (let ((tmp-28947 - (read-file-28938 fn-28946 filename-28945))) - (let ((tmp-28948 ($sc-dispatch tmp-28947 'each-any))) - (if tmp-28948 + (lambda (k-31077 filename-31078) + (let ((fn-31079 (syntax->datum filename-31078))) + (let ((tmp-31080 + (read-file-31071 fn-31079 filename-31078))) + (let ((tmp-31081 ($sc-dispatch tmp-31080 'each-any))) + (if tmp-31081 (@apply - (lambda (exp-28966) + (lambda (exp-31099) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("l-*-28934")) + #(ribcage #(exp) #((top)) #("l-*-31067")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-28929")) + #(ribcage #(fn) #((top)) #("l-*-31062")) #(ribcage #(k filename) #((top) (top)) - #("l-*-28925" "l-*-28926")) + #("l-*-31058" "l-*-31059")) #(ribcage (read-file) ((top)) - ("l-*-28909")) - #(ribcage #(x) #((top)) #("l-*-28908"))) + ("l-*-31042")) + #(ribcage #(x) #((top)) #("l-*-31041"))) (hygiene guile)) - exp-28966)) - tmp-28948) + exp-31099)) + tmp-31081) (syntax-violation #f "source expression failed to match any pattern" - tmp-28947)))))) - tmp-28940) + tmp-31080)))))) + tmp-31073) (syntax-violation #f "source expression failed to match any pattern" - x-28937))))))) + x-31070))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (x-29124) - (let ((tmp-29126 ($sc-dispatch x-29124 '(any any)))) - (if tmp-29126 + (lambda (x-31257) + (let ((tmp-31259 ($sc-dispatch x-31257 '(any any)))) + (if tmp-31259 (@apply - (lambda (k-29130 filename-29131) - (let ((fn-29132 (syntax->datum filename-29131))) - (let ((tmp-29133 + (lambda (k-31263 filename-31264) + (let ((fn-31265 (syntax->datum filename-31264))) + (let ((tmp-31266 (datum->syntax - filename-29131 - (let ((t-29136 (%search-load-path fn-29132))) - (if t-29136 - t-29136 + filename-31264 + (let ((t-31269 (%search-load-path fn-31265))) + (if t-31269 + t-31269 (syntax-violation 'include-from-path "file not found in path" - x-29124 - filename-29131)))))) + x-31257 + filename-31264)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29118")) + #(ribcage #(fn) #((top)) #("l-*-31251")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29114")) + #(ribcage #(fn) #((top)) #("l-*-31247")) #(ribcage #(k filename) #((top) (top)) - #("l-*-29110" "l-*-29111")) + #("l-*-31243" "l-*-31244")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29107"))) + #(ribcage #(x) #((top)) #("l-*-31240"))) (hygiene guile)) - tmp-29133)))) - tmp-29126) + tmp-31266)))) + tmp-31259) (syntax-violation #f "source expression failed to match any pattern" - x-29124)))))) + x-31257)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (x-29145) + (lambda (x-31278) (syntax-violation 'unquote "expression not valid outside of quasiquote" - x-29145)))) + x-31278)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (x-29148) + (lambda (x-31281) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - x-29148)))) + x-31281)))) (define case (make-syntax-transformer 'case 'macro - (lambda (x-29204) - (let ((tmp-29206 - ($sc-dispatch x-29204 '(_ any any . each-any)))) - (if tmp-29206 + (lambda (x-31337) + (let ((tmp-31339 + ($sc-dispatch x-31337 '(_ any any . each-any)))) + (if tmp-31339 (@apply - (lambda (e-29210 m1-29211 m2-29212) - (let ((tmp-29213 + (lambda (e-31343 m1-31344 m2-31345) + (let ((tmp-31346 (letrec* - ((f-29255 - (lambda (clause-29258 clauses-29259) - (if (null? clauses-29259) - (let ((tmp-29261 + ((f-31388 + (lambda (clause-31391 clauses-31392) + (if (null? clauses-31392) + (let ((tmp-31394 ($sc-dispatch - clause-29258 + clause-31391 '(#(free-id #(syntax-object else @@ -25502,89 +25643,89 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile))) any . each-any)))) - (if tmp-29261 + (if tmp-31394 (@apply - (lambda (e1-29265 e2-29266) + (lambda (e1-31398 e2-31399) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-29172" "l-*-29173")) + #("l-*-31305" "l-*-31306")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - (cons e1-29265 e2-29266))) - tmp-29261) - (let ((tmp-29267 + (cons e1-31398 e2-31399))) + tmp-31394) + (let ((tmp-31400 ($sc-dispatch - clause-29258 + clause-31391 '(each-any any . each-any)))) - (if tmp-29267 + (if tmp-31400 (@apply - (lambda (k-29271 e1-29272 e2-29273) + (lambda (k-31404 e1-31405 e2-31406) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object memv @@ -25594,9 +25735,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f @@ -25605,22 +25746,22 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) '#(syntax-object t @@ -25630,9 +25771,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f @@ -25641,22 +25782,22 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object quote @@ -25666,9 +25807,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () @@ -25680,17 +25821,17 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () @@ -25698,10 +25839,10 @@ #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - k-29271)) + k-31404)) (cons '#(syntax-object begin ((top) @@ -25710,9 +25851,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f @@ -25721,74 +25862,74 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - (cons e1-29272 - e2-29273)))) - tmp-29267) + (cons e1-31405 + e2-31406)))) + tmp-31400) (syntax-violation 'case "bad clause" - x-29204 - clause-29258))))) - (let ((tmp-29281 - (f-29255 - (car clauses-29259) - (cdr clauses-29259)))) - (let ((tmp-29284 + x-31337 + clause-31391))))) + (let ((tmp-31414 + (f-31388 + (car clauses-31392) + (cdr clauses-31392)))) + (let ((tmp-31417 ($sc-dispatch - clause-29258 + clause-31391 '(each-any any . each-any)))) - (if tmp-29284 + (if tmp-31417 (@apply - (lambda (k-29288 e1-29289 e2-29290) + (lambda (k-31421 e1-31422 e2-31423) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object memv @@ -25796,32 +25937,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) '#(syntax-object t @@ -25829,32 +25970,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object quote @@ -25864,9 +26005,9 @@ #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () @@ -25874,7 +26015,7 @@ #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () @@ -25886,17 +26027,17 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () @@ -25904,63 +26045,63 @@ #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - k-29288)) + k-31421)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - (cons e1-29289 e2-29290)) - tmp-29281)) - tmp-29284) + (cons e1-31422 e2-31423)) + tmp-31414)) + tmp-31417) (syntax-violation 'case "bad clause" - x-29204 - clause-29258)))))))) - (f-29255 m1-29211 m2-29212)))) - (let ((body-29214 tmp-29213)) + x-31337 + clause-31391)))))))) + (f-31388 m1-31344 m2-31345)))) + (let ((body-31347 tmp-31346)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("l-*-29161")) + #(ribcage #(body) #((top)) #("l-*-31294")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" "l-*-29154" "l-*-29155")) + #("l-*-31286" "l-*-31287" "l-*-31288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29150"))) + #(ribcage #(x) #((top)) #("l-*-31283"))) (hygiene guile)) (list (list '#(syntax-object t @@ -25969,122 +26110,122 @@ #(ribcage #(body) #((top)) - #("l-*-29161")) + #("l-*-31294")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - e-29210)) - body-29214)))) - tmp-29206) + e-31343)) + body-31347)))) + tmp-31339) (syntax-violation #f "source expression failed to match any pattern" - x-29204)))))) + x-31337)))))) (define make-variable-transformer - (lambda (proc-29308) - (if (procedure? proc-29308) + (lambda (proc-31441) + (if (procedure? proc-31441) (letrec* - ((trans-29309 - (lambda (x-29315) (proc-29308 x-29315)))) + ((trans-31442 + (lambda (x-31448) (proc-31441 x-31448)))) (begin (set-procedure-property! - trans-29309 + trans-31442 'variable-transformer #t) - trans-29309)) + trans-31442)) (error "variable transformer not a procedure" - proc-29308)))) + proc-31441)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (x-29347) - (let ((tmp-29349 ($sc-dispatch x-29347 '(_ any)))) - (if tmp-29349 + (lambda (x-31480) + (let ((tmp-31482 ($sc-dispatch x-31480 '(_ any)))) + (if tmp-31482 (@apply - (lambda (e-29353) + (lambda (e-31486) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26092,34 +26233,34 @@ #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - e-29353)) + e-31486)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) (list '#(syntax-object syntax @@ -26127,26 +26268,26 @@ #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - (cons e-29353 + (cons e-31486 '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) #(syntax-object ... @@ -26154,59 +26295,59 @@ #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile))))))))) - tmp-29349) - (let ((tmp-29354 + tmp-31482) + (let ((tmp-31487 ($sc-dispatch - x-29347 + x-31480 '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) any any) any))))) - (if (if tmp-29354 + (if (if tmp-31487 (@apply - (lambda (id-29358 - exp1-29359 - var-29360 - val-29361 - exp2-29362) - (if (identifier? id-29358) - (identifier? var-29360) + (lambda (id-31491 + exp1-31492 + var-31493 + val-31494 + exp2-31495) + (if (identifier? id-31491) + (identifier? var-31493) #f)) - tmp-29354) + tmp-31487) #f) (@apply - (lambda (id-29363 - exp1-29364 - var-29365 - val-29366 - exp2-29367) + (lambda (id-31496 + exp1-31497 + var-31498 + val-31499 + exp2-31500) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26214,13 +26355,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '(#(syntax-object x @@ -26228,13 +26369,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26242,13 +26383,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) . #(syntax-object @@ -26257,13 +26398,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26271,16 +26412,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) '#(syntax-object x @@ -26288,16 +26429,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) '(#(syntax-object set! @@ -26305,16 +26446,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26326,19 +26467,19 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - var-29365 - val-29366) + var-31498 + val-31499) (list '#(syntax-object syntax ((top) @@ -26349,19 +26490,19 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - exp2-29367)) - (list (cons id-29363 + exp2-31500)) + (list (cons id-31496 '(#(syntax-object x ((top) @@ -26372,16 +26513,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) #(syntax-object ... @@ -26393,16 +26534,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26414,18 +26555,18 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - (cons exp1-29364 + (cons exp1-31497 '(#(syntax-object x ((top) @@ -26440,16 +26581,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) #(syntax-object ... @@ -26465,18 +26606,18 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)))))) - (list id-29363 + (list id-31496 (list '#(syntax-object identifier? ((top) @@ -26487,16 +26628,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26512,18 +26653,18 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - id-29363)) + id-31496)) (list '#(syntax-object syntax ((top) @@ -26534,69 +26675,69 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - exp1-29364)))))) - tmp-29354) + exp1-31497)))))) + tmp-31487) (syntax-violation #f "source expression failed to match any pattern" - x-29347)))))))) + x-31480)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (x-29399) - (let ((tmp-29401 + (lambda (x-31532) + (let ((tmp-31534 ($sc-dispatch - x-29399 + x-31532 '(_ (any . any) any . each-any)))) - (if tmp-29401 + (if tmp-31534 (@apply - (lambda (id-29405 args-29406 b0-29407 b1-29408) + (lambda (id-31538 args-31539 b0-31540 b1-31541) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-29381" - "l-*-29382" - "l-*-29383" - "l-*-29384")) + #("l-*-31514" + "l-*-31515" + "l-*-31516" + "l-*-31517")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)) - id-29405 + id-31538 (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-29381" - "l-*-29382" - "l-*-29383" - "l-*-29384")) + #("l-*-31514" + "l-*-31515" + "l-*-31516" + "l-*-31517")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)) - (cons args-29406 (cons b0-29407 b1-29408))))) - tmp-29401) - (let ((tmp-29409 ($sc-dispatch x-29399 '(_ any any)))) - (if (if tmp-29409 + (cons args-31539 (cons b0-31540 b1-31541))))) + tmp-31534) + (let ((tmp-31542 ($sc-dispatch x-31532 '(_ any any)))) + (if (if tmp-31542 (@apply - (lambda (id-29413 val-29414) + (lambda (id-31546 val-31547) (identifier? '#(syntax-object x @@ -26604,29 +26745,29 @@ #(ribcage #(id val) #((top) (top)) - #("l-*-29391" "l-*-29392")) + #("l-*-31524" "l-*-31525")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)))) - tmp-29409) + tmp-31542) #f) (@apply - (lambda (id-29415 val-29416) + (lambda (id-31548 val-31549) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("l-*-29395" "l-*-29396")) + #("l-*-31528" "l-*-31529")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)) - id-29415 - val-29416)) - tmp-29409) + id-31548 + val-31549)) + tmp-31542) (syntax-violation #f "source expression failed to match any pattern" - x-29399)))))))) + x-31532)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 20ea8ebcf..728ab1254 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -982,7 +982,7 @@ (lambda () (let ((e (car body))) (syntax-type e r w (or (source-annotation e) s) #f mod #f))) - (lambda (type value e w s mod) + (lambda (type value form e w s mod) (case type ((begin-form) (syntax-case e () @@ -1079,18 +1079,20 @@ exps))) ((displaced-lexical) (syntax-violation #f "identifier out of context" - e (wrap value w mod))) + (source-wrap form w s mod) + (wrap value w mod))) (else (syntax-violation #f "cannot define keyword at top level" - e (wrap value w mod)))))) + (source-wrap form w s mod) + (wrap value w mod)))))) (else (values (cons (if (eq? m 'c&e) - (let ((x (expand-expr type value e r w s mod))) + (let ((x (expand-expr type value form e r w s mod))) (top-level-eval-hook x mod) x) (lambda () - (expand-expr type value e r w s mod))) + (expand-expr type value form e r w s mod))) exps))))))) (lambda (exps) (scan (cdr body) r w s m esew mod exps)))))) @@ -1132,8 +1134,8 @@ (syntax-violation 'eval-when "invalid situation" e (car l)))))))) - ;; syntax-type returns six values: type, value, e, w, s, and mod. The - ;; first two are described in the table below. + ;; syntax-type returns seven values: type, value, form, e, w, s, and + ;; mod. The first two are described in the table below. ;; ;; type value explanation ;; ------------------------------------------------------------------- @@ -1162,10 +1164,11 @@ ;; constant none self-evaluating datum ;; other none anything else ;; - ;; For definition forms (define-form, define-syntax-parameter-form, - ;; and define-syntax-form), e is the rhs expression. For all - ;; others, e is the entire form. w is the wrap for e. s is the - ;; source for the entire form. mod is the module for e. + ;; form is the entire form. For definition forms (define-form, + ;; define-syntax-form, and define-syntax-parameter-form), e is the + ;; rhs expression. For all others, e is the entire form. w is the + ;; wrap for both form and e. s is the source for the entire form. + ;; mod is the module for both form and e. ;; ;; syntax-type expands macros and unwraps as necessary to get to one ;; of the forms above. It also parses definition forms, although @@ -1179,28 +1182,28 @@ (b (lookup n r mod)) (type (binding-type b))) (case type - ((lexical) (values type (binding-value b) e w s mod)) - ((global) (values type n e w s mod)) + ((lexical) (values type (binding-value b) e e w s mod)) + ((global) (values type n e e w s mod)) ((macro) (if for-car? - (values type (binding-value b) e w s mod) + (values type (binding-value b) e e w s mod) (syntax-type (expand-macro (binding-value b) e r w s rib mod) r empty-wrap s rib mod #f))) - (else (values type (binding-value b) e w s mod))))) + (else (values type (binding-value b) e e w s mod))))) ((pair? e) (let ((first (car e))) (call-with-values (lambda () (syntax-type first r w s rib mod #t)) - (lambda (ftype fval fe fw fs fmod) + (lambda (ftype fval fform fe fw fs fmod) (case ftype ((lexical) - (values 'lexical-call fval e w s mod)) + (values 'lexical-call fval e e w s mod)) ((global) ;; If we got here via an (@@ ...) expansion, we need to ;; make sure the fmod information is propagated back ;; correctly -- hence this consing. (values 'global-call (make-syntax-object fval w fmod) - e w s mod)) + e e w s mod)) ((macro) (syntax-type (expand-macro fval e r w s rib mod) r empty-wrap s rib mod for-car?)) @@ -1209,23 +1212,24 @@ (lambda (e r w s mod) (syntax-type e r w s rib mod for-car?)))) ((core) - (values 'core-form fval e w s mod)) + (values 'core-form fval e e w s mod)) ((local-syntax) - (values 'local-syntax-form fval e w s mod)) + (values 'local-syntax-form fval e e w s mod)) ((begin) - (values 'begin-form #f e w s mod)) + (values 'begin-form #f e e w s mod)) ((eval-when) - (values 'eval-when-form #f e w s mod)) + (values 'eval-when-form #f e e w s mod)) ((define) (syntax-case e () ((_ name val) (id? #'name) - (values 'define-form #'name #'val w s mod)) + (values 'define-form #'name e #'val w s mod)) ((_ (name . args) e1 e2 ...) (and (id? #'name) (valid-bound-ids? (lambda-var-list #'args))) ;; need lambda here... (values 'define-form (wrap #'name w mod) + (wrap e w mod) (decorate-source (cons #'lambda (wrap #'(args e1 e2 ...) w mod)) s) @@ -1233,38 +1237,39 @@ ((_ name) (id? #'name) (values 'define-form (wrap #'name w mod) + (wrap e w mod) #'(if #f #f) empty-wrap s mod)))) ((define-syntax) (syntax-case e () ((_ name val) (id? #'name) - (values 'define-syntax-form #'name #'val w s mod)))) + (values 'define-syntax-form #'name e #'val w s mod)))) ((define-syntax-parameter) (syntax-case e () ((_ name val) (id? #'name) - (values 'define-syntax-parameter-form #'name #'val w s mod)))) + (values 'define-syntax-parameter-form #'name e #'val w s mod)))) (else - (values 'call #f e w s mod))))))) + (values 'call #f e e w s mod))))))) ((syntax-object? e) (syntax-type (syntax-object-expression e) r (join-wraps w (syntax-object-wrap e)) (or (source-annotation e) s) rib (or (syntax-object-module e) mod) for-car?)) - ((self-evaluating? e) (values 'constant #f e w s mod)) - (else (values 'other #f e w s mod))))) + ((self-evaluating? e) (values 'constant #f e e w s mod)) + (else (values 'other #f e e w s mod))))) (define expand (lambda (e r w mod) (call-with-values (lambda () (syntax-type e r w (source-annotation e) #f mod #f)) - (lambda (type value e w s mod) - (expand-expr type value e r w s mod))))) + (lambda (type value form e w s mod) + (expand-expr type value form e r w s mod))))) (define expand-expr - (lambda (type value e r w s mod) + (lambda (type value form e r w s mod) (case type ((lexical) (build-lexical-reference 'value s e value)) @@ -1318,8 +1323,8 @@ (expand-sequence #'(e1 e2 ...) r w s mod) (expand-void)))))) ((define-form define-syntax-form define-syntax-parameter-form) - (syntax-violation #f "definition in expression context" - e (wrap value w mod))) + (syntax-violation #f "definition in expression context, where definitions are not allowed," + (source-wrap form w s mod))) ((syntax) (syntax-violation #f "reference to pattern variable outside syntax form" (source-wrap e w s mod))) @@ -1463,7 +1468,7 @@ (let ((e (cdar body)) (er (caar body))) (call-with-values (lambda () (syntax-type e er empty-wrap (source-annotation er) ribcage mod #f)) - (lambda (type value e w s mod) + (lambda (type value form e w s mod) (case type ((define-form) (let ((id (wrap value w mod)) (label (gen-label))) @@ -2222,7 +2227,7 @@ ((_ (head tail ...) val) (call-with-values (lambda () (syntax-type #'head r empty-wrap no-source #f mod #t)) - (lambda (type value ee ww ss modmod) + (lambda (type value formform ee ww ss modmod) (case type ((module-ref) (let ((val (expand #'val r w mod)))