diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index 1b9f1951e2..d5875a1478 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2285,6 +2285,39 @@ case of module-leve bindings; it doesn't cover local bindings. (test 5 dynamic-require ''likely-inlines-across-two-submodules 'result) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check that the lift context is different for multiple +;; `#%module-begin` expansions. That's important, for example, to make +;; sure that a lift in the first pass record by the contract system +;; isn't assumed to be from a lexically earlier expression within a +;; second pass. + +(module module-begin-and-unique-context-check racket/base + (require (for-syntax racket/base)) + + (provide (except-out (all-from-out racket/base) + #%module-begin) + (rename-out [module-begin #%module-begin]) + check-unique-context) + + (define-for-syntax prev-key #f) + + (define-syntax (module-begin stx) + (syntax-case stx () + [(_ form ...) + (with-syntax ([(pmb new-form ...) (local-expand #'(#%plain-module-begin form ...) 'module-begin null)]) + #'(#%plain-module-begin new-form ... (check-unique-context)))])) + + (define-syntax (check-unique-context stx) + (define key (syntax-local-lift-context)) + (when (eq? key prev-key) + (raise-syntax-error #f "context didn't change")) + (set! prev-key key) + #'(void))) + +(module use-module-begin-and-unique-context-check 'module-begin-and-unique-context-check + (#%expression (check-unique-context))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/racket/src/expander/expand/expr.rkt b/racket/src/expander/expand/expr.rkt index 3fdf98494d..57a1ef5d4b 100644 --- a/racket/src/expander/expand/expr.rkt +++ b/racket/src/expander/expand/expr.rkt @@ -448,6 +448,8 @@ (lambda (s ctx) (log-expand ctx 'prim-if) (define disarmed-s (syntax-disarm s)) + (define-match bad-m disarmed-s #:try '(_ _ _)) + (when (bad-m) (raise-syntax-error #f "missing an \"else\" expression" s)) (define-match m disarmed-s '(if tst thn els)) (define expr-ctx (as-expression-context ctx)) (define tail-ctx (as-tail-context expr-ctx #:wrt ctx)) diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index cdf49433f9..83bd9bef48 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -20,6 +20,7 @@ "require+provide.rkt" "../common/module-path.rkt" "lift-context.rkt" + "lift-key.rkt" "../namespace/core.rkt" "context.rkt" "use-site.rkt" @@ -309,6 +310,7 @@ [def-ctx-scopes def-ctx-scopes] [need-eventually-defined need-eventually-defined] ; used only at phase 1 and up [declared-submodule-names declared-submodule-names] + [lift-key #:parent root-expand-context (generate-lift-key)] [lifts (make-lift-context (make-wrap-as-definition self frame-id inside-scope all-scopes-s @@ -714,6 +716,7 @@ (log-expand partial-body-ctx 'next) (define exp-body (performance-region ['expand 'form-in-module/1] + ;; --- expand to core form --- (expand (car bodys) partial-body-ctx))) (define disarmed-exp-body (syntax-disarm exp-body)) (define lifted-defns (get-and-clear-lifts! (expand-context-lifts partial-body-ctx))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 9ebcbe3b19..50cafc73d0 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -64755,92 +64755,165 @@ static const char *startup_source = "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-if)))(void)))" "(values))))" "(let-values(((disarmed-s_13)(syntax-disarm$1 s_279)))" -"(let-values(((ok?_46 if256_0 tst257_0 thn258_0 els259_0)" +"(let-values(((ok?_46 _256_0 _257_0 _258_0)" "(let-values(((s_586) disarmed-s_13))" -"(let-values(((orig-s_53) s_586))" -"(let-values(((if256_1 tst257_1 thn258_1 els259_1)" -"(let-values(((s_587)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" +"(if(let-values(((s_587)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" "(if(pair? s_587)" -"(let-values(((if260_0)(let-values(((s_588)(car s_587))) s_588))" -"((tst261_0 thn262_0 els263_0)" -"(let-values(((s_589)(cdr s_587)))" -"(let-values(((s_590)" -"(if(syntax?$1 s_589)" -"(syntax-e$1 s_589)" -" s_589)))" -"(if(pair? s_590)" -"(let-values(((tst264_0)" -"(let-values(((s_591)(car s_590)))" -" s_591))" -"((thn265_0 els266_0)" -"(let-values(((s_592)(cdr s_590)))" -"(let-values(((s_289)" -"(if(syntax?$1 s_592)" -"(syntax-e$1 s_592)" -" s_592)))" -"(if(pair? s_289)" -"(let-values(((thn267_0)" -"(let-values(((s_593)" -"(car" -" s_289)))" -" s_593))" -"((els268_0)" -"(let-values(((s_290)" -"(cdr" -" s_289)))" -"(let-values(((s_594)" -"(if(syntax?$1" -" s_290)" -"(syntax-e$1" -" s_290)" -" s_290)))" -"(if(pair? s_594)" -"(let-values(((els269_0)" +"(if(let-values(((s_588)(car s_587))) #t)" +"(let-values(((s_289)(cdr s_587)))" +"(let-values(((s_589)(if(syntax?$1 s_289)(syntax-e$1 s_289) s_289)))" +"(if(pair? s_589)" +"(if(let-values(((s_590)(car s_589))) #t)" +"(let-values(((s_591)(cdr s_589)))" +"(let-values(((s_290)(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))" +"(if(pair? s_290)" +"(if(let-values(((s_592)(car s_290))) #t)" +"(let-values(((s_593)(cdr s_290)))" "(let-values(((s_291)" +"(if(syntax?$1 s_593)(syntax-e$1 s_593) s_593)))" +"(null? s_291)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +" #f)" +" #f))" +"(let-values()" +"(let-values(((_256_1 _257_1 _258_1)" +"(let-values(((s_594)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" +"(let-values(((_259_0)(let-values(((s_595)(car s_594))) s_595))" +"((_260_0 _261_0)" +"(let-values(((s_596)(cdr s_594)))" +"(let-values(((s_597)" +"(if(syntax?$1 s_596)" +"(syntax-e$1 s_596)" +" s_596)))" +"(let-values(((_262_0)" +"(let-values(((s_598)(car s_597))) s_598))" +"((_263_0)" +"(let-values(((s_599)(cdr s_597)))" +"(let-values(((s_600)" +"(if(syntax?$1 s_599)" +"(syntax-e$1 s_599)" +" s_599)))" +"(let-values(((_264_0)" +"(let-values(((s_601)" "(car" -" s_594)))" -" s_291))" +" s_600)))" +" s_601))" "(()" -"(let-values(((s_292)" +"(let-values(((s_602)" "(cdr" -" s_594)))" -"(let-values(((s_293)" +" s_600)))" +"(let-values(((s_294)" "(if(syntax?$1" -" s_292)" +" s_602)" "(syntax-e$1" -" s_292)" -" s_292)))" +" s_602)" +" s_602)))" +"(values)))))" +"(values _264_0))))))" +"(values _262_0 _263_0))))))" +"(values _259_0 _260_0 _261_0)))))" +"(values #t _256_1 _257_1 _258_1)))" +"(values #f #f #f #f)))))" +"(let-values((()" +"(begin" +"(if ok?_46" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_279))" +"(void))" +"(values))))" +"(let-values(((ok?_47 if265_0 tst266_0 thn267_0 els268_0)" +"(let-values(((s_603) disarmed-s_13))" +"(let-values(((orig-s_53) s_603))" +"(let-values(((if265_1 tst266_1 thn267_1 els268_1)" +"(let-values(((s_604)(if(syntax?$1 s_603)(syntax-e$1 s_603) s_603)))" +"(if(pair? s_604)" +"(let-values(((if269_0)(let-values(((s_605)(car s_604))) s_605))" +"((tst270_0 thn271_0 els272_0)" +"(let-values(((s_606)(cdr s_604)))" +"(let-values(((s_299)" +"(if(syntax?$1 s_606)" +"(syntax-e$1 s_606)" +" s_606)))" +"(if(pair? s_299)" +"(let-values(((tst273_0)" +"(let-values(((s_607)(car s_299)))" +" s_607))" +"((thn274_0 els275_0)" +"(let-values(((s_608)(cdr s_299)))" +"(let-values(((s_609)" +"(if(syntax?$1 s_608)" +"(syntax-e$1 s_608)" +" s_608)))" +"(if(pair? s_609)" +"(let-values(((thn276_0)" +"(let-values(((s_610)" +"(car" +" s_609)))" +" s_610))" +"((els277_0)" +"(let-values(((s_611)" +"(cdr" +" s_609)))" +"(let-values(((s_612)" +"(if(syntax?$1" +" s_611)" +"(syntax-e$1" +" s_611)" +" s_611)))" +"(if(pair?" +" s_612)" +"(let-values(((els278_0)" +"(let-values(((s_613)" +"(car" +" s_612)))" +" s_613))" +"(()" +"(let-values(((s_614)" +"(cdr" +" s_612)))" +"(let-values(((s_615)" +"(if(syntax?$1" +" s_614)" +"(syntax-e$1" +" s_614)" +" s_614)))" "(if(null?" -" s_293)" +" s_615)" "(values)" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_53))))))" "(values" -" els269_0))" +" els278_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_53))))))" -"(values thn267_0 els268_0))" +"(values thn276_0 els277_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_53))))))" -"(values tst264_0 thn265_0 els266_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53))))))" -"(values if260_0 tst261_0 thn262_0 els263_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" -"(values #t if256_1 tst257_1 thn258_1 els259_1))))))" +"(values tst273_0 thn274_0 els275_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_53))))))" +"(values if269_0 tst270_0 thn271_0 els272_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" +"(values #t if265_1 tst266_1 thn267_1 els268_1))))))" "(let-values(((expr-ctx_2)(as-expression-context ctx_86)))" -"(let-values(((tail-ctx_0)(let-values(((ctx271_0) ctx_86))(as-tail-context23.1 ctx271_0 expr-ctx_2))))" +"(let-values(((tail-ctx_0)" +"(let-values(((ctx280_0) ctx_86))(as-tail-context23.1 ctx280_0 expr-ctx_2))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx272_0) ctx_86)((s273_0) s_279))" -"(keep-as-needed74.1 #f #f #f #f #f #f ctx272_0 s273_0))))" +"(let-values(((ctx281_0) ctx_86)((s282_0) s_279))" +"(keep-as-needed74.1 #f #f #f #f #f #f ctx281_0 s282_0))))" "(let-values(((exp-tst_0)" -"(let-values(((temp274_0) tst257_0)((expr-ctx275_0) expr-ctx_2))" -"(expand7.1 #f #f #f #f temp274_0 expr-ctx275_0))))" +"(let-values(((temp283_0) tst266_0)((expr-ctx284_0) expr-ctx_2))" +"(expand7.1 #f #f #f #f temp283_0 expr-ctx284_0))))" "(let-values((()" "(begin" "(let-values(((obs_101)(expand-context-observer ctx_86)))" @@ -64849,8 +64922,8 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-thn_0)" -"(let-values(((temp276_0) thn258_0)((tail-ctx277_0) tail-ctx_0))" -"(expand7.1 #f #f #f #f temp276_0 tail-ctx277_0))))" +"(let-values(((temp285_0) thn267_0)((tail-ctx286_0) tail-ctx_0))" +"(expand7.1 #f #f #f #f temp285_0 tail-ctx286_0))))" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer ctx_86)))" @@ -64859,17 +64932,17 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-els_0)" -"(let-values(((temp278_1) els259_0)((tail-ctx279_0) tail-ctx_0))" -"(expand7.1 #f #f #f #f temp278_1 tail-ctx279_0))))" +"(let-values(((temp287_0) els268_0)((tail-ctx288_0) tail-ctx_0))" +"(expand7.1 #f #f #f #f temp287_0 tail-ctx288_0))))" "(if(expand-context-to-parsed? ctx_86)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" -"(let-values(((rebuild-s280_0) rebuild-s_9)" -"((temp281_0)(list if256_0 exp-tst_0 exp-thn_0 exp-els_0)))" -"(rebuild5.1 #f #f rebuild-s280_0 temp281_0)))))))))))))))))" +"(let-values(((rebuild-s289_0) rebuild-s_9)" +"((temp290_0)(list if265_0 exp-tst_0 exp-thn_0 exp-els_0)))" +"(rebuild5.1 #f #f rebuild-s289_0 temp290_0)))))))))))))))))))" "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_595 ctx_87)" +"(lambda(s_616 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_103)(expand-context-observer ctx_87)))" @@ -64877,93 +64950,93 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_103 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_595)))" -"(let-values(((ok?_47 with-continuation-mark282_0 key283_0 val284_0 body285_0)" -"(let-values(((s_596) disarmed-s_14))" -"(let-values(((orig-s_54) s_596))" -"(let-values(((with-continuation-mark282_1 key283_1 val284_1 body285_1)" -"(let-values(((s_597)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" -"(if(pair? s_597)" -"(let-values(((with-continuation-mark286_0)" -"(let-values(((s_598)(car s_597))) s_598))" -"((key287_0 val288_0 body289_0)" -"(let-values(((s_599)(cdr s_597)))" -"(let-values(((s_600)" -"(if(syntax?$1 s_599)" -"(syntax-e$1 s_599)" -" s_599)))" -"(if(pair? s_600)" -"(let-values(((key290_0)" -"(let-values(((s_601)(car s_600)))" -" s_601))" -"((val291_0 body292_0)" -"(let-values(((s_602)(cdr s_600)))" -"(let-values(((s_603)" -"(if(syntax?$1 s_602)" -"(syntax-e$1 s_602)" -" s_602)))" -"(if(pair? s_603)" -"(let-values(((val293_0)" -"(let-values(((s_604)" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_616)))" +"(let-values(((ok?_48 with-continuation-mark291_0 key292_0 val293_0 body294_0)" +"(let-values(((s_617) disarmed-s_14))" +"(let-values(((orig-s_54) s_617))" +"(let-values(((with-continuation-mark291_1 key292_1 val293_1 body294_1)" +"(let-values(((s_618)(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" +"(if(pair? s_618)" +"(let-values(((with-continuation-mark295_0)" +"(let-values(((s_619)(car s_618))) s_619))" +"((key296_0 val297_0 body298_0)" +"(let-values(((s_620)(cdr s_618)))" +"(let-values(((s_621)" +"(if(syntax?$1 s_620)" +"(syntax-e$1 s_620)" +" s_620)))" +"(if(pair? s_621)" +"(let-values(((key299_0)" +"(let-values(((s_622)(car s_621)))" +" s_622))" +"((val300_0 body301_0)" +"(let-values(((s_623)(cdr s_621)))" +"(let-values(((s_624)" +"(if(syntax?$1 s_623)" +"(syntax-e$1 s_623)" +" s_623)))" +"(if(pair? s_624)" +"(let-values(((val302_0)" +"(let-values(((s_625)" "(car" -" s_603)))" -" s_604))" -"((body294_0)" -"(let-values(((s_605)" +" s_624)))" +" s_625))" +"((body303_0)" +"(let-values(((s_626)" "(cdr" -" s_603)))" -"(let-values(((s_606)" +" s_624)))" +"(let-values(((s_627)" "(if(syntax?$1" -" s_605)" +" s_626)" "(syntax-e$1" -" s_605)" -" s_605)))" -"(if(pair? s_606)" -"(let-values(((body295_0)" -"(let-values(((s_607)" +" s_626)" +" s_626)))" +"(if(pair? s_627)" +"(let-values(((body304_0)" +"(let-values(((s_628)" "(car" -" s_606)))" -" s_607))" +" s_627)))" +" s_628))" "(()" -"(let-values(((s_608)" +"(let-values(((s_629)" "(cdr" -" s_606)))" -"(let-values(((s_609)" +" s_627)))" +"(let-values(((s_630)" "(if(syntax?$1" -" s_608)" +" s_629)" "(syntax-e$1" -" s_608)" -" s_608)))" +" s_629)" +" s_629)))" "(if(null?" -" s_609)" +" s_630)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_54))))))" "(values" -" body295_0))" +" body304_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_54))))))" -"(values val293_0 body294_0))" +"(values val302_0 body303_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_54))))))" -"(values key290_0 val291_0 body292_0))" +"(values key299_0 val300_0 body301_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54))))))" -"(values with-continuation-mark286_0 key287_0 val288_0 body289_0))" +"(values with-continuation-mark295_0 key296_0 val297_0 body298_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" -"(values #t with-continuation-mark282_1 key283_1 val284_1 body285_1))))))" +"(values #t with-continuation-mark291_1 key292_1 val293_1 body294_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_87)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx296_0) ctx_87)((s297_0) s_595))" -"(keep-as-needed74.1 #f #f #f #f #f #f ctx296_0 s297_0))))" +"(let-values(((ctx305_0) ctx_87)((s306_0) s_616))" +"(keep-as-needed74.1 #f #f #f #f #f #f ctx305_0 s306_0))))" "(let-values(((exp-key_0)" -"(let-values(((temp298_0) key283_0)((expr-ctx299_0) expr-ctx_3))" -"(expand7.1 #f #f #f #f temp298_0 expr-ctx299_0))))" +"(let-values(((temp307_0) key292_0)((expr-ctx308_0) expr-ctx_3))" +"(expand7.1 #f #f #f #f temp307_0 expr-ctx308_0))))" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer ctx_87)))" @@ -64972,8 +65045,8 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-val_0)" -"(let-values(((temp300_1) val284_0)((expr-ctx301_0) expr-ctx_3))" -"(expand7.1 #f #f #f #f temp300_1 expr-ctx301_0))))" +"(let-values(((temp309_0) val293_0)((expr-ctx310_0) expr-ctx_3))" +"(expand7.1 #f #f #f #f temp309_0 expr-ctx310_0))))" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_87)))" @@ -64982,16 +65055,16 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-body_6)" -"(let-values(((temp302_0) body285_0)" -"((temp303_0)" -"(let-values(((ctx305_0) ctx_87))" -"(as-tail-context23.1 ctx305_0 expr-ctx_3))))" -"(expand7.1 #f #f #f #f temp302_0 temp303_0))))" +"(let-values(((temp311_0) body294_0)" +"((temp312_0)" +"(let-values(((ctx314_0) ctx_87))" +"(as-tail-context23.1 ctx314_0 expr-ctx_3))))" +"(expand7.1 #f #f #f #f temp311_0 temp312_0))))" "(if(expand-context-to-parsed? ctx_87)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" -"(let-values(((rebuild-s306_0) rebuild-s_10)" -"((temp307_0)(list with-continuation-mark282_0 exp-key_0 exp-val_0 exp-body_6)))" -"(rebuild5.1 #f #f rebuild-s306_0 temp307_0))))))))))))))))" +"(let-values(((rebuild-s315_0) rebuild-s_10)" +"((temp316_0)(list with-continuation-mark291_0 exp-key_0 exp-val_0 exp-body_6)))" +"(rebuild5.1 #f #f rebuild-s315_0 temp316_0))))))))))))))))" "(define-values" "(make-begin20.1)" "(lambda(last-is-tail?15_0 list-start-index14_0 log-tag18_0 parsed-begin19_0)" @@ -65002,7 +65075,7 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_610 ctx_88)" +"(lambda(s_631 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_106)(expand-context-observer ctx_88)))" @@ -65010,24 +65083,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_106 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_610)))" -"(let-values(((ok?_48 begin308_0 e309_0)" -"(let-values(((s_611) disarmed-s_15))" -"(let-values(((orig-s_55) s_611))" -"(let-values(((begin308_1 e309_1)" -"(let-values(((s_612)" -"(if(syntax?$1 s_611)(syntax-e$1 s_611) s_611)))" -"(if(pair? s_612)" -"(let-values(((begin310_0)" -"(let-values(((s_613)(car s_612))) s_613))" -"((e311_0)" -"(let-values(((s_614)(cdr s_612)))" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)" -"(syntax-e$1 s_614)" -" s_614)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_631)))" +"(let-values(((ok?_49 begin317_0 e318_0)" +"(let-values(((s_632) disarmed-s_15))" +"(let-values(((orig-s_55) s_632))" +"(let-values(((begin317_1 e318_1)" +"(let-values(((s_633)" +"(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" +"(if(pair? s_633)" +"(let-values(((begin319_0)" +"(let-values(((s_634)(car s_633))) s_634))" +"((e320_0)" +"(let-values(((s_635)(cdr s_633)))" +"(let-values(((s_636)" +"(if(syntax?$1 s_635)" +"(syntax-e$1 s_635)" +" s_635)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_615)))" +"(to-syntax-list.1 s_636)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" @@ -65041,16 +65114,16 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_55))" "(let-values() flat-s_41))))))))" -"(values begin310_0 e311_0))" +"(values begin319_0 e320_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" -"(values #t begin308_1 e309_1))))))" +"(values #t begin317_1 e318_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" "(as-begin-expression-context ctx_88)" "(as-expression-context ctx_88))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx312_0) ctx_88)((s313_0) s_610))" -"(keep-as-needed74.1 #f #f #f #f #f #f ctx312_0 s313_0))))" +"(let-values(((ctx321_0) ctx_88)((s322_0) s_631))" +"(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_127)" "(lambda(es_5 index_6)" @@ -65088,15 +65161,15 @@ static const char *startup_source = "(call-expand-observe obs_108 'next)))" "(void)))" "(cons" -"(let-values(((temp314_0)(car es_5))" -"((temp315_0)" +"(let-values(((temp323_0)(car es_5))" +"((temp324_0)" "(if(if last-is-tail?_0" "(null? rest-es_1)" " #f)" -"(let-values(((ctx317_0)" +"(let-values(((ctx326_0)" " ctx_88))" "(as-tail-context23.1" -" ctx317_0" +" ctx326_0" " expr-ctx_4))" " expr-ctx_4)))" "(expand7.1" @@ -65104,11 +65177,11 @@ static const char *startup_source = " #f" " #f" " #f" -" temp314_0" -" temp315_0))" +" temp323_0" +" temp324_0))" "(loop_127 rest-es_1(sub1 index_6))))))))))))" " loop_127)" -" e309_0" +" e318_0" " list-start-index_0)))" "(begin" "(let-values(((obs_109)(expand-context-observer ctx_88)))" @@ -65122,55 +65195,55 @@ static const char *startup_source = "(void)))" "(if(expand-context-to-parsed? ctx_88)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" -"(let-values(((rebuild-s318_0) rebuild-s_11)((temp319_0)(cons begin308_0 exp-es_2)))" -"(rebuild5.1 #f #f rebuild-s318_0 temp319_0)))))))))))))))))))" +"(let-values(((rebuild-s327_0) rebuild-s_11)((temp328_0)(cons begin317_0 exp-es_2)))" +"(rebuild5.1 #f #f rebuild-s327_0 temp328_0)))))))))))))))))))" "(void" "(add-core-form!*" " 'begin" "(let-values(((nonempty-begin_0)" -"(let-values(((temp320_0) 'prim-begin)" -"((parsed-begin321_0) parsed-begin12.1)" -"((temp322_0) 0)" -"((temp323_0) #t))" -"(make-begin20.1 temp323_0 temp322_0 temp320_0 parsed-begin321_0))))" -"(lambda(s_616 ctx_89)" +"(let-values(((temp329_0) 'prim-begin)" +"((parsed-begin330_0) parsed-begin12.1)" +"((temp331_0) 0)" +"((temp332_1) #t))" +"(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))" +"(lambda(s_637 ctx_89)" "(let-values(((context_24)(expand-context-context ctx_89)))" "(if(let-values(((or-part_373)(eq? context_24 'top-level)))" "(if or-part_373 or-part_373(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_616)))" -"(let-values(((ok?_49 begin324_0)" -"(let-values(((s_617) disarmed-s_16))" -"(if(let-values(((s_618)(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" -"(if(pair? s_618)" -"(if(let-values(((s_619)(car s_618))) #t)" -"(let-values(((s_620)(cdr s_618)))" -"(let-values(((s_621)(if(syntax?$1 s_620)(syntax-e$1 s_620) s_620)))" -"(null? s_621)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_637)))" +"(let-values(((ok?_50 begin333_0)" +"(let-values(((s_638) disarmed-s_16))" +"(if(let-values(((s_639)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(if(pair? s_639)" +"(if(let-values(((s_640)(car s_639))) #t)" +"(let-values(((s_641)(cdr s_639)))" +"(let-values(((s_642)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" +"(null? s_642)))" " #f)" " #f))" "(let-values()" -"(let-values(((begin324_1)" -"(let-values(((s_622)(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" -"(let-values(((begin325_0)" -"(let-values(((s_623)(car s_622))) s_623))" +"(let-values(((begin333_1)" +"(let-values(((s_643)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(let-values(((begin334_0)" +"(let-values(((s_644)(car s_643))) s_644))" "(()" -"(let-values(((s_624)(cdr s_622)))" -"(let-values(((s_625)" -"(if(syntax?$1 s_624)" -"(syntax-e$1 s_624)" -" s_624)))" +"(let-values(((s_645)(cdr s_643)))" +"(let-values(((s_646)" +"(if(syntax?$1 s_645)" +"(syntax-e$1 s_645)" +" s_645)))" "(values)))))" -"(values begin325_0)))))" -"(values #t begin324_1)))" +"(values begin334_0)))))" +"(values #t begin333_1)))" "(values #f #f)))))" -"(if ok?_49 s_616(nonempty-begin_0 s_616 ctx_89)))))" -"(let-values()(nonempty-begin_0 s_616 ctx_89))))))))" +"(if ok?_50 s_637(nonempty-begin_0 s_637 ctx_89)))))" +"(let-values()(nonempty-begin_0 s_637 ctx_89))))))))" "(void" "(add-core-form!*" " 'begin0" -"(let-values(((temp326_0) 'prim-begin0)((parsed-begin0327_0) parsed-begin013.1)((temp328_0) 1)((temp329_0) #f))" -"(make-begin20.1 temp329_0 temp328_0 temp326_0 parsed-begin0327_0))))" +"(let-values(((temp335_0) 'prim-begin0)((parsed-begin0336_0) parsed-begin013.1)((temp337_0) 1)((temp338_0) #f))" +"(make-begin20.1 temp338_0 temp337_0 temp335_0 parsed-begin0336_0))))" "(define-values" "(register-eventual-variable!?)" "(lambda(id_119 ctx_90)" @@ -65188,13 +65261,13 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%top" -"(let-values(((core334_0)" -"(lambda(s332_0 ctx333_0 implicit-omitted?330_0 implicit-omitted?331_0)" +"(let-values(((core343_0)" +"(lambda(s341_0 ctx342_0 implicit-omitted?339_0 implicit-omitted?340_0)" "(begin" -" 'core334" -"(let-values(((s_626) s332_0))" -"(let-values(((ctx_91) ctx333_0))" -"(let-values(((implicit-omitted?_0)(if implicit-omitted?331_0 implicit-omitted?330_0 #f)))" +" 'core343" +"(let-values(((s_647) s341_0))" +"(let-values(((ctx_91) ctx342_0))" +"(let-values(((implicit-omitted?_0)(if implicit-omitted?340_0 implicit-omitted?339_0 #f)))" "(let-values()" "(let-values((()" "(begin" @@ -65204,58 +65277,58 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_110 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_626)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_647)))" "(let-values(((id_120)" "(if implicit-omitted?_0" -"(let-values() s_626)" +"(let-values() s_647)" "(let-values()" -"(let-values(((ok?_50 #%top336_0 id337_0)" -"(let-values(((s_627) disarmed-s_17))" -"(let-values(((orig-s_56) s_627))" -"(let-values(((#%top336_1 id337_1)" -"(let-values(((s_628)" -"(if(syntax?$1 s_627)" -"(syntax-e$1 s_627)" -" s_627)))" -"(if(pair? s_628)" -"(let-values(((#%top338_0)" -"(let-values(((s_629)" +"(let-values(((ok?_51 #%top345_0 id346_0)" +"(let-values(((s_648) disarmed-s_17))" +"(let-values(((orig-s_56) s_648))" +"(let-values(((#%top345_1 id346_1)" +"(let-values(((s_649)" +"(if(syntax?$1 s_648)" +"(syntax-e$1 s_648)" +" s_648)))" +"(if(pair? s_649)" +"(let-values(((#%top347_0)" +"(let-values(((s_650)" "(car" -" s_628)))" -" s_629))" -"((id339_0)" -"(let-values(((s_630)" +" s_649)))" +" s_650))" +"((id348_0)" +"(let-values(((s_651)" "(cdr" -" s_628)))" +" s_649)))" "(if(let-values(((or-part_374)" "(if(syntax?$1" -" s_630)" +" s_651)" "(symbol?" "(syntax-e$1" -" s_630))" +" s_651))" " #f)))" "(if or-part_374" " or-part_374" "(symbol?" -" s_630)))" -" s_630" +" s_651)))" +" s_651" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_56" -" s_630)))))" -"(values #%top338_0 id339_0))" +" s_651)))))" +"(values #%top347_0 id348_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_56)))))" -"(values #t #%top336_1 id337_1))))))" -" id337_0)))))" +"(values #t #%top345_1 id346_1))))))" +" id346_0)))))" "(let-values(((b_90)" -"(let-values(((temp341_0)(expand-context-phase ctx_91))" -"((temp342_0) 'ambiguous))" +"(let-values(((temp350_0)(expand-context-phase ctx_91))" +"((temp351_0) 'ambiguous))" "(resolve+shift30.1" -" temp342_0" +" temp351_0" " #t" " #f" " #f" @@ -65266,7 +65339,7 @@ static const char *startup_source = " #f" " #f" " id_120" -" temp341_0))))" +" temp350_0))))" "(if(eq? b_90 'ambiguous)" "(let-values()(raise-ambiguous-error id_120 ctx_91))" "(if(if b_90" @@ -65280,7 +65353,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_91)" "(parsed-id2.1 id_120 b_90 #f)" "(if(top-level-module-path-index?(module-binding-module b_90))" -"(let-values() s_626)" +"(let-values() s_647)" "(let-values() id_120))))" "(if(register-eventual-variable!? id_120 ctx_91)" "(let-values()" @@ -65303,8 +65376,8 @@ static const char *startup_source = " id_120" "(root-expand-context-top-level-bind-scope ctx_91))))" "(let-values(((tl-b_1)" -"(let-values(((tl-id343_0) tl-id_1)" -"((temp344_0)" +"(let-values(((tl-id352_0) tl-id_1)" +"((temp353_0)" "(expand-context-phase ctx_91)))" "(resolve33.1" " #f" @@ -65315,8 +65388,8 @@ static const char *startup_source = " #f" " #f" " #f" -" tl-id343_0" -" temp344_0))))" +" tl-id352_0" +" temp353_0))))" "(if tl-b_1" "(let-values()" "(if(expand-context-to-parsed? ctx_91)" @@ -65324,162 +65397,162 @@ static const char *startup_source = "(if implicit-omitted?_0" "(let-values() id_120)" "(let-values()" -"(let-values(((ok?_51 #%top345_0 id346_0)" -"(let-values(((s_631) disarmed-s_17))" -"(let-values(((orig-s_57) s_631))" -"(let-values(((#%top345_1 id346_1)" -"(let-values(((s_632)" +"(let-values(((ok?_52 #%top354_0 id355_0)" +"(let-values(((s_652) disarmed-s_17))" +"(let-values(((orig-s_57) s_652))" +"(let-values(((#%top354_1 id355_1)" +"(let-values(((s_653)" "(if(syntax?$1" -" s_631)" +" s_652)" "(syntax-e$1" -" s_631)" -" s_631)))" -"(if(pair? s_632)" -"(let-values(((#%top347_0)" -"(let-values(((s_633)" +" s_652)" +" s_652)))" +"(if(pair? s_653)" +"(let-values(((#%top356_0)" +"(let-values(((s_654)" "(car" -" s_632)))" -" s_633))" -"((id348_0)" -"(let-values(((s_634)" +" s_653)))" +" s_654))" +"((id357_0)" +"(let-values(((s_655)" "(cdr" -" s_632)))" +" s_653)))" "(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_634)" +" s_655)" "(symbol?" "(syntax-e$1" -" s_634))" +" s_655))" " #f)))" "(if or-part_375" " or-part_375" "(symbol?" -" s_634)))" -" s_634" +" s_655)))" +" s_655" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_634)))))" +" s_655)))))" "(values" -" #%top347_0" -" id348_0))" +" #%top356_0" +" id357_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_57)))))" -"(values #t #%top345_1 id346_1))))))" -"(let-values(((s349_0) s_626)" -"((temp350_0)(cons #%top345_0 id_120)))" -"(rebuild5.1 #f #f s349_0 temp350_0)))))))" +"(values #t #%top354_1 id355_1))))))" +"(let-values(((s358_0) s_647)" +"((temp359_0)(cons #%top354_0 id_120)))" +"(rebuild5.1 #f #f s358_0 temp359_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_91)" "(parsed-top-id4.1 id_120 b_90 #f)" -" s_626)))))))))))))))))))))))" +" s_647)))))))))))))))))))))))" "(case-lambda" -"((s_635 ctx_92)(core334_0 s_635 ctx_92 #f #f))" -"((s_636 ctx_93 implicit-omitted?330_1)(core334_0 s_636 ctx_93 implicit-omitted?330_1 #t))))))" +"((s_656 ctx_92)(core343_0 s_656 ctx_92 #f #f))" +"((s_657 ctx_93 implicit-omitted?339_1)(core343_0 s_657 ctx_93 implicit-omitted?339_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_637 ctx_94)" +"(lambda(s_658 ctx_94)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_94)))" "(if obs_111(let-values()(let-values()(call-expand-observe obs_111 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_637)))" -"(let-values(((ok?_52 set!351_0 id352_0 rhs353_0)" -"(let-values(((s_638) disarmed-s_18))" -"(let-values(((orig-s_58) s_638))" -"(let-values(((set!351_1 id352_1 rhs353_1)" -"(let-values(((s_639)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" -"(if(pair? s_639)" -"(let-values(((set!354_0)(let-values(((s_640)(car s_639))) s_640))" -"((id355_0 rhs356_0)" -"(let-values(((s_641)(cdr s_639)))" -"(let-values(((s_642)" -"(if(syntax?$1 s_641)" -"(syntax-e$1 s_641)" -" s_641)))" -"(if(pair? s_642)" -"(let-values(((id357_0)" -"(let-values(((s_643)(car s_642)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_658)))" +"(let-values(((ok?_53 set!360_0 id361_0 rhs362_0)" +"(let-values(((s_659) disarmed-s_18))" +"(let-values(((orig-s_58) s_659))" +"(let-values(((set!360_1 id361_1 rhs362_1)" +"(let-values(((s_660)(if(syntax?$1 s_659)(syntax-e$1 s_659) s_659)))" +"(if(pair? s_660)" +"(let-values(((set!363_0)(let-values(((s_661)(car s_660))) s_661))" +"((id364_0 rhs365_0)" +"(let-values(((s_662)(cdr s_660)))" +"(let-values(((s_663)" +"(if(syntax?$1 s_662)" +"(syntax-e$1 s_662)" +" s_662)))" +"(if(pair? s_663)" +"(let-values(((id366_0)" +"(let-values(((s_664)(car s_663)))" "(if(let-values(((or-part_376)" -"(if(syntax?$1 s_643)" +"(if(syntax?$1 s_664)" "(symbol?" "(syntax-e$1" -" s_643))" +" s_664))" " #f)))" "(if or-part_376" " or-part_376" -"(symbol? s_643)))" -" s_643" +"(symbol? s_664)))" +" s_664" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_643))))" -"((rhs358_0)" -"(let-values(((s_644)(cdr s_642)))" -"(let-values(((s_645)" -"(if(syntax?$1 s_644)" -"(syntax-e$1 s_644)" -" s_644)))" -"(if(pair? s_645)" -"(let-values(((rhs359_0)" -"(let-values(((s_646)" +" s_664))))" +"((rhs367_0)" +"(let-values(((s_665)(cdr s_663)))" +"(let-values(((s_666)" +"(if(syntax?$1 s_665)" +"(syntax-e$1 s_665)" +" s_665)))" +"(if(pair? s_666)" +"(let-values(((rhs368_0)" +"(let-values(((s_667)" "(car" -" s_645)))" -" s_646))" +" s_666)))" +" s_667))" "(()" -"(let-values(((s_647)" +"(let-values(((s_668)" "(cdr" -" s_645)))" -"(let-values(((s_648)" +" s_666)))" +"(let-values(((s_669)" "(if(syntax?$1" -" s_647)" +" s_668)" "(syntax-e$1" -" s_647)" -" s_647)))" -"(if(null? s_648)" +" s_668)" +" s_668)))" +"(if(null? s_669)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_58))))))" -"(values rhs359_0))" +"(values rhs368_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_58))))))" -"(values id357_0 rhs358_0))" +"(values id366_0 rhs367_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))" -"(values set!354_0 id355_0 rhs356_0))" +"(values set!363_0 id364_0 rhs365_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" -"(values #t set!351_1 id352_1 rhs353_1))))))" -"(let-values(((id_121) id352_0))" +"(values #t set!360_1 id361_1 rhs362_1))))))" +"(let-values(((id_121) id361_0))" "((letrec-values(((rename-loop_0)" "(lambda(id_122 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((temp361_0)(expand-context-phase ctx_94))" -"((temp362_0) 'ambiguous)" -"((temp363_0) #t))" +"(let-values(((temp370_0)(expand-context-phase ctx_94))" +"((temp371_0) 'ambiguous)" +"((temp372_0) #t))" "(resolve+shift30.1" -" temp362_0" +" temp371_0" " #t" " #f" " #f" " #f" " #f" -" temp363_0" +" temp372_0" " #t" " #f" " #f" " id_122" -" temp361_0))))" +" temp370_0))))" "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" @@ -65488,10 +65561,10 @@ static const char *startup_source = "(values))))" "(let-values(((t_57 primitive?_10 insp_24)" "(if binding_30" -"(let-values(((binding364_0) binding_30)" -"((ctx365_0) ctx_94)" -"((s366_0) s_637))" -"(lookup17.1 #f #f #f #f binding364_0 ctx365_0 s366_0))" +"(let-values(((binding373_0) binding_30)" +"((ctx374_0) ctx_94)" +"((s375_0) s_658))" +"(lookup17.1 #f #f #f #f binding373_0 ctx374_0 s375_0))" "(values #f #f #f))))" "(begin" "(let-values(((obs_112)(expand-context-observer ctx_94)))" @@ -65523,7 +65596,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_637" +" s_658" " id_122))" "(void))" "(values))))" @@ -65542,7 +65615,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx367_0) ctx_94)((s368_0) s_637))" +"(let-values(((ctx376_0) ctx_94)((s377_0) s_658))" "(keep-as-needed74.1" " #f" " #f" @@ -65550,38 +65623,38 @@ static const char *startup_source = " #f" " #f" " #f" -" ctx367_0" -" s368_0))))" +" ctx376_0" +" s377_0))))" "(let-values(((exp-rhs_5)" -"(let-values(((temp369_0) rhs353_0)" -"((temp370_0)" +"(let-values(((temp378_0) rhs362_0)" +"((temp379_0)" "(as-expression-context ctx_94)))" -"(expand7.1 #f #f #f #f temp369_0 temp370_0))))" +"(expand7.1 #f #f #f #f temp378_0 temp379_0))))" "(if(expand-context-to-parsed? ctx_94)" "(parsed-set!9.1" " rebuild-s_12" "(parsed-id2.1 id_122 binding_30 #f)" " exp-rhs_5)" -"(let-values(((rebuild-s371_0) rebuild-s_12)" -"((temp372_0)" +"(let-values(((rebuild-s380_0) rebuild-s_12)" +"((temp381_0)" "(list" -" set!351_0" -"(let-values(((temp375_0)" +" set!360_0" +"(let-values(((temp384_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" " ctx_94))))" "(substitute-variable6.1" -" temp375_0" +" temp384_0" " id_122" " t_57))" " exp-rhs_5)))" -"(rebuild5.1 #f #f rebuild-s371_0 temp372_0)))))))))" +"(rebuild5.1 #f #f rebuild-s380_0 temp381_0)))))))))" "(if(not binding_30)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_637" +" s_658" " id_122" " null" "(syntax-debug-info-string id_122 ctx_94)))" @@ -65589,54 +65662,54 @@ static const char *startup_source = "(let-values()" "(if(not-in-this-expand-context? t_57 ctx_94)" "(let-values()" -"(let-values(((temp376_0)" +"(let-values(((temp385_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_637" +" s_658" " disarmed-s_18" -" set!351_0" -" rhs353_0" +" set!360_0" +" rhs362_0" " id_122" " from-rename?_0" " ctx_94)" " t_57" " ctx_94))" -"((ctx377_0) ctx_94))" -"(expand7.1 #f #f #f #f temp376_0 ctx377_0)))" +"((ctx386_0) ctx_94))" +"(expand7.1 #f #f #f #f temp385_0 ctx386_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" "(apply-transformer" " t_57" " insp_24" -" s_637" +" s_658" " id_122" " ctx_94" " binding_30)))" "(if(expand-context-just-once? ctx_94)" "(let-values() exp-s_14)" "(let-values()" -"(let-values(((exp-s378_0) exp-s_14)" -"((re-ctx379_0) re-ctx_1))" -"(expand7.1 #f #f #f #f exp-s378_0 re-ctx379_0))))))))" +"(let-values(((exp-s387_0) exp-s_14)" +"((re-ctx388_0) re-ctx_1))" +"(expand7.1 #f #f #f #f exp-s387_0 re-ctx388_0))))))))" "(if(1/rename-transformer? t_57)" "(let-values()" "(if(not-in-this-expand-context? t_57 ctx_94)" "(let-values()" -"(let-values(((temp380_0)" +"(let-values(((temp389_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_637" +" s_658" " disarmed-s_18" -" set!351_0" -" rhs353_0" +" set!360_0" +" rhs362_0" " id_122" " from-rename?_0" " ctx_94" " t_57)" " t_57" " ctx_94))" -"((ctx381_0) ctx_94))" -"(expand7.1 #f #f #f #f temp380_0 ctx381_0)))" +"((ctx390_0) ctx_94))" +"(expand7.1 #f #f #f #f temp389_0 ctx390_0)))" "(let-values()" "(rename-loop_0" "(rename-transformer-target-in-context t_57 ctx_94)" @@ -65645,7 +65718,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_637" +" s_658" " id_122))))))))))))))" " rename-loop_0)" " id_121" @@ -65656,7 +65729,7 @@ static const char *startup_source = "(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_649) s25_0))" +"(let-values(((s_670) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_123) id28_0))" @@ -65678,17 +65751,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_649)))" -"(let-values() s_649)))))))))))))))" +" s_670)))" +"(let-values() s_670)))))))))))))))" "(case-lambda" -"((s_650 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_96)" -"(begin(substitute-set!-rename32_0 s_650 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_96 #f #f)))" -"((s_651 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_97 t23_1)" -"(substitute-set!-rename32_0 s_651 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_97 t23_1 #t)))))" +"((s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_96)" +"(begin(substitute-set!-rename32_0 s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_96 #f #f)))" +"((s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_97 t23_1)" +"(substitute-set!-rename32_0 s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_97 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_652 ctx_98)" +"(lambda(s_673 ctx_98)" "(let-values((()" "(begin" "(let-values(((obs_114)(expand-context-observer ctx_98)))" @@ -65696,152 +65769,152 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_114 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_652)))" -"(let-values(((ok?_53 #%variable-reference382_0 id383_0)" -"(let-values(((s_653) disarmed-s_22))" -"(if(let-values(((s_654)(if(syntax?$1 s_653)(syntax-e$1 s_653) s_653)))" -"(if(pair? s_654)" -"(if(let-values(((s_655)(car s_654))) #t)" -"(let-values(((s_656)(cdr s_654)))" -"(let-values(((s_657)(if(syntax?$1 s_656)(syntax-e$1 s_656) s_656)))" -"(if(pair? s_657)" -"(if(let-values(((s_658)(car s_657)))" -"(let-values(((or-part_380)" -"(if(syntax?$1 s_658)(symbol?(syntax-e$1 s_658)) #f)))" -"(if or-part_380 or-part_380(symbol? s_658))))" -"(let-values(((s_659)(cdr s_657)))" -"(let-values(((s_660)(if(syntax?$1 s_659)(syntax-e$1 s_659) s_659)))" -"(null? s_660)))" -" #f)" -" #f)))" -" #f)" -" #f))" -"(let-values()" -"(let-values(((#%variable-reference382_1 id383_1)" -"(let-values(((s_661)(if(syntax?$1 s_653)(syntax-e$1 s_653) s_653)))" -"(let-values(((#%variable-reference384_0)" -"(let-values(((s_662)(car s_661))) s_662))" -"((id385_0)" -"(let-values(((s_663)(cdr s_661)))" -"(let-values(((s_664)" -"(if(syntax?$1 s_663)" -"(syntax-e$1 s_663)" -" s_663)))" -"(let-values(((id386_0)" -"(let-values(((s_665)(car s_664))) s_665))" -"(()" -"(let-values(((s_666)(cdr s_664)))" -"(let-values(((s_667)" -"(if(syntax?$1 s_666)" -"(syntax-e$1 s_666)" -" s_666)))" -"(values)))))" -"(values id386_0))))))" -"(values #%variable-reference384_0 id385_0)))))" -"(values #t #%variable-reference382_1 id383_1)))" -"(values #f #f #f)))))" -"(let-values(((ok?_54 #%variable-reference387_0 #%top388_0 id389_0)" -"(let-values(((s_668) disarmed-s_22))" -"(if(if(not ok?_53)" -"(let-values(((s_669)(if(syntax?$1 s_668)(syntax-e$1 s_668) s_668)))" -"(if(pair? s_669)" -"(if(let-values(((s_670)(car s_669))) #t)" -"(let-values(((s_671)(cdr s_669)))" -"(let-values(((s_672)(if(syntax?$1 s_671)(syntax-e$1 s_671) s_671)))" -"(if(pair? s_672)" -"(if(let-values(((s_673)(car s_672)))" -"(let-values(((s_674)" -"(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" -"(if(pair? s_674)" -"(if(let-values(((s_675)(car s_674))) #t)" -"(let-values(((s_676)(cdr s_674)))" -"(let-values(((or-part_381)" -"(if(syntax?$1 s_676)" -"(symbol?(syntax-e$1 s_676))" -" #f)))" -"(if or-part_381 or-part_381(symbol? s_676))))" -" #f)" -" #f)))" -"(let-values(((s_677)(cdr s_672)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_673)))" +"(let-values(((ok?_54 #%variable-reference391_0 id392_0)" +"(let-values(((s_674) disarmed-s_22))" +"(if(let-values(((s_675)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" +"(if(pair? s_675)" +"(if(let-values(((s_676)(car s_675))) #t)" +"(let-values(((s_677)(cdr s_675)))" "(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" -"(null? s_678)))" +"(if(pair? s_678)" +"(if(let-values(((s_679)(car s_678)))" +"(let-values(((or-part_380)" +"(if(syntax?$1 s_679)(symbol?(syntax-e$1 s_679)) #f)))" +"(if or-part_380 or-part_380(symbol? s_679))))" +"(let-values(((s_680)(cdr s_678)))" +"(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" +"(null? s_681)))" " #f)" " #f)))" " #f)" " #f))" -" #f)" "(let-values()" -"(let-values(((#%variable-reference387_1 #%top388_1 id389_1)" -"(let-values(((s_679)(if(syntax?$1 s_668)(syntax-e$1 s_668) s_668)))" -"(let-values(((#%variable-reference390_0)" -"(let-values(((s_680)(car s_679))) s_680))" -"((#%top391_0 id392_0)" -"(let-values(((s_681)(cdr s_679)))" -"(let-values(((s_682)" -"(if(syntax?$1 s_681)" -"(syntax-e$1 s_681)" -" s_681)))" -"(let-values(((#%top393_0 id394_0)" -"(let-values(((s_683)(car s_682)))" -"(let-values(((s_684)" -"(if(syntax?$1 s_683)" -"(syntax-e$1 s_683)" -" s_683)))" -"(let-values(((#%top395_0)" +"(let-values(((#%variable-reference391_1 id392_1)" +"(let-values(((s_682)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" +"(let-values(((#%variable-reference393_0)" +"(let-values(((s_683)(car s_682))) s_683))" +"((id394_0)" +"(let-values(((s_684)(cdr s_682)))" "(let-values(((s_685)" -"(car" +"(if(syntax?$1 s_684)" +"(syntax-e$1 s_684)" " s_684)))" -" s_685))" -"((id396_0)" -"(let-values(((s_686)" -"(cdr" -" s_684)))" -" s_686)))" -"(values #%top395_0 id396_0)))))" +"(let-values(((id395_0)" +"(let-values(((s_686)(car s_685))) s_686))" "(()" -"(let-values(((s_687)(cdr s_682)))" +"(let-values(((s_687)(cdr s_685)))" "(let-values(((s_688)" "(if(syntax?$1 s_687)" "(syntax-e$1 s_687)" " s_687)))" "(values)))))" -"(values #%top393_0 id394_0))))))" -"(values #%variable-reference390_0 #%top391_0 id392_0)))))" -"(values #t #%variable-reference387_1 #%top388_1 id389_1)))" -"(values #f #f #f #f)))))" -"(let-values(((ok?_55 #%variable-reference397_0)" +"(values id395_0))))))" +"(values #%variable-reference393_0 id394_0)))))" +"(values #t #%variable-reference391_1 id392_1)))" +"(values #f #f #f)))))" +"(let-values(((ok?_55 #%variable-reference396_0 #%top397_0 id398_0)" "(let-values(((s_689) disarmed-s_22))" -"(if(if(not(let-values(((or-part_382) ok?_53))(if or-part_382 or-part_382 ok?_54)))" -" #t" -" #f)" -"(let-values(((orig-s_59) s_689))" -"(let-values(((#%variable-reference397_1)" +"(if(if(not ok?_54)" "(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" "(if(pair? s_690)" -"(let-values(((#%variable-reference398_0)" -"(let-values(((s_691)(car s_690))) s_691))" -"(()" +"(if(let-values(((s_691)(car s_690))) #t)" "(let-values(((s_692)(cdr s_690)))" -"(let-values(((s_693)" -"(if(syntax?$1 s_692)" -"(syntax-e$1 s_692)" -" s_692)))" -"(if(null? s_693)" +"(let-values(((s_693)(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" +"(if(pair? s_693)" +"(if(let-values(((s_694)(car s_693)))" +"(let-values(((s_695)" +"(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" +"(if(pair? s_695)" +"(if(let-values(((s_696)(car s_695))) #t)" +"(let-values(((s_697)(cdr s_695)))" +"(let-values(((or-part_381)" +"(if(syntax?$1 s_697)" +"(symbol?(syntax-e$1 s_697))" +" #f)))" +"(if or-part_381 or-part_381(symbol? s_697))))" +" #f)" +" #f)))" +"(let-values(((s_698)(cdr s_693)))" +"(let-values(((s_699)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" +"(null? s_699)))" +" #f)" +" #f)))" +" #f)" +" #f))" +" #f)" +"(let-values()" +"(let-values(((#%variable-reference396_1 #%top397_1 id398_1)" +"(let-values(((s_700)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" +"(let-values(((#%variable-reference399_0)" +"(let-values(((s_701)(car s_700))) s_701))" +"((#%top400_0 id401_0)" +"(let-values(((s_702)(cdr s_700)))" +"(let-values(((s_703)" +"(if(syntax?$1 s_702)" +"(syntax-e$1 s_702)" +" s_702)))" +"(let-values(((#%top402_0 id403_0)" +"(let-values(((s_704)(car s_703)))" +"(let-values(((s_705)" +"(if(syntax?$1 s_704)" +"(syntax-e$1 s_704)" +" s_704)))" +"(let-values(((#%top404_0)" +"(let-values(((s_706)" +"(car" +" s_705)))" +" s_706))" +"((id405_0)" +"(let-values(((s_707)" +"(cdr" +" s_705)))" +" s_707)))" +"(values #%top404_0 id405_0)))))" +"(()" +"(let-values(((s_708)(cdr s_703)))" +"(let-values(((s_709)" +"(if(syntax?$1 s_708)" +"(syntax-e$1 s_708)" +" s_708)))" +"(values)))))" +"(values #%top402_0 id403_0))))))" +"(values #%variable-reference399_0 #%top400_0 id401_0)))))" +"(values #t #%variable-reference396_1 #%top397_1 id398_1)))" +"(values #f #f #f #f)))))" +"(let-values(((ok?_56 #%variable-reference406_0)" +"(let-values(((s_710) disarmed-s_22))" +"(if(if(not(let-values(((or-part_382) ok?_54))(if or-part_382 or-part_382 ok?_55)))" +" #t" +" #f)" +"(let-values(((orig-s_59) s_710))" +"(let-values(((#%variable-reference406_1)" +"(let-values(((s_711)(if(syntax?$1 s_710)(syntax-e$1 s_710) s_710)))" +"(if(pair? s_711)" +"(let-values(((#%variable-reference407_0)" +"(let-values(((s_712)(car s_711))) s_712))" +"(()" +"(let-values(((s_713)(cdr s_711)))" +"(let-values(((s_714)" +"(if(syntax?$1 s_713)" +"(syntax-e$1 s_713)" +" s_713)))" +"(if(null? s_714)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_59))))))" -"(values #%variable-reference398_0))" +"(values #%variable-reference407_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" -"(values #t #%variable-reference397_1)))" +"(values #t #%variable-reference406_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_383) ok?_53))(if or-part_383 or-part_383 ok?_54))" +"(if(let-values(((or-part_383) ok?_54))(if or-part_383 or-part_383 ok?_55))" "(let-values()" -"(let-values(((var-id_0)(if ok?_53 id383_0 id389_0)))" +"(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))" "(let-values(((binding_31)" -"(let-values(((temp400_0)(expand-context-phase ctx_98))((temp401_0) 'ambiguous))" -"(resolve+shift30.1 temp401_0 #t #f #f #f #f #f #f #f #f var-id_0 temp400_0))))" +"(let-values(((temp409_0)(expand-context-phase ctx_98))((temp410_0) 'ambiguous))" +"(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id_0 temp409_0))))" "(let-values((()" "(begin" "(if(eq? binding_31 'ambiguous)" @@ -65857,37 +65930,37 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_652" +" s_673" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_98))))" "(values))))" "(let-values(((t_59 primitive?_11 insp-of-t_7)" "(if binding_31" -"(let-values(((s405_0) s_652)" -"((temp406_0)(expand-context-in-local-expand? ctx_98)))" -"(lookup17.1 s405_0 #t temp406_0 #t binding_31 ctx_98 var-id_0))" +"(let-values(((s414_0) s_673)" +"((temp415_0)(expand-context-in-local-expand? ctx_98)))" +"(lookup17.1 s414_0 #t temp415_0 #t binding_31 ctx_98 var-id_0))" "(values #f #f #f))))" "(begin" "(if(if t_59(not(variable? t_59)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_652))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_673))" "(void))" "(if(expand-context-to-parsed? ctx_98)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_652)" -"(if ok?_54" +"(keep-properties-only~ s_673)" +"(if ok?_55" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_652))))))))" +" s_673))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_98)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_652) #f)" -" s_652)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_673) #f)" +" s_673)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_694 ctx_99)" +"(lambda(s_715 ctx_99)" "(let-values((()" "(begin" "(let-values(((obs_115)(expand-context-observer ctx_99)))" @@ -65895,50 +65968,50 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_115 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_694)))" -"(let-values(((ok?_56 #%expression407_0 e408_0)" -"(let-values(((s_695) disarmed-s_23))" -"(let-values(((orig-s_60) s_695))" -"(let-values(((#%expression407_1 e408_1)" -"(let-values(((s_696)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" -"(if(pair? s_696)" -"(let-values(((#%expression409_0)" -"(let-values(((s_697)(car s_696))) s_697))" -"((e410_0)" -"(let-values(((s_698)(cdr s_696)))" -"(let-values(((s_699)" -"(if(syntax?$1 s_698)" -"(syntax-e$1 s_698)" -" s_698)))" -"(if(pair? s_699)" -"(let-values(((e411_0)" -"(let-values(((s_700)(car s_699)))" -" s_700))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_715)))" +"(let-values(((ok?_57 #%expression416_0 e417_0)" +"(let-values(((s_716) disarmed-s_23))" +"(let-values(((orig-s_60) s_716))" +"(let-values(((#%expression416_1 e417_1)" +"(let-values(((s_717)(if(syntax?$1 s_716)(syntax-e$1 s_716) s_716)))" +"(if(pair? s_717)" +"(let-values(((#%expression418_0)" +"(let-values(((s_718)(car s_717))) s_718))" +"((e419_0)" +"(let-values(((s_719)(cdr s_717)))" +"(let-values(((s_720)" +"(if(syntax?$1 s_719)" +"(syntax-e$1 s_719)" +" s_719)))" +"(if(pair? s_720)" +"(let-values(((e420_0)" +"(let-values(((s_721)(car s_720)))" +" s_721))" "(()" -"(let-values(((s_701)(cdr s_699)))" -"(let-values(((s_702)" -"(if(syntax?$1 s_701)" -"(syntax-e$1 s_701)" -" s_701)))" -"(if(null? s_702)" +"(let-values(((s_722)(cdr s_720)))" +"(let-values(((s_723)" +"(if(syntax?$1 s_722)" +"(syntax-e$1 s_722)" +" s_722)))" +"(if(null? s_723)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_60))))))" -"(values e411_0))" +"(values e420_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60))))))" -"(values #%expression409_0 e410_0))" +"(values #%expression418_0 e419_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" -"(values #t #%expression407_1 e408_1))))))" +"(values #t #%expression416_1 e417_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((temp414_0) #t))(keep-as-needed74.1 temp414_0 #t #f #f #f #f ctx_99 s_694))))" +"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_99 s_715))))" "(let-values(((exp-e_0)" -"(let-values(((temp415_0) e408_0)" -"((temp416_0)" -"(let-values(((temp417_0)(as-expression-context ctx_99))((ctx418_0) ctx_99))" -"(as-tail-context23.1 ctx418_0 temp417_0))))" -"(expand7.1 #f #f #f #f temp415_0 temp416_0))))" +"(let-values(((temp424_0) e417_0)" +"((temp425_0)" +"(let-values(((temp426_0)(as-expression-context ctx_99))((ctx427_0) ctx_99))" +"(as-tail-context23.1 ctx427_0 temp426_0))))" +"(expand7.1 #f #f #f #f temp424_0 temp425_0))))" "(if(expand-context-to-parsed? ctx_99)" " exp-e_0" "(let-values(((tmp_62)" @@ -65953,10 +66026,10 @@ static const char *startup_source = "(void)))" " result-s_13)))" "(let-values()" -"(let-values(((rebuild-s419_0) rebuild-s_13)((temp420_0)(list #%expression407_0 exp-e_0)))" -"(rebuild5.1 #f #f rebuild-s419_0 temp420_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_703 ctx_100) (raise-syntax-error$1 #f \"not in quasiquote\" s_703))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_704 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_704))))" +"(let-values(((rebuild-s428_0) rebuild-s_13)((temp429_0)(list #%expression416_0 exp-e_0)))" +"(rebuild5.1 #f #f rebuild-s428_0 temp429_0))))))))))))))" +" (void (add-core-form!* 'unquote (lambda (s_724 ctx_100) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_725 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_725))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_126 at-phase_12 ns_123)" @@ -66147,7 +66220,7 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_57" +"(let-values(((ok?_58" " for-meta3_0" " phase-level4_0" " spec5_0)" @@ -66281,7 +66354,7 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_58" +"(let-values(((ok?_59" " for-syntax13_0" " spec14_0)" "(let-values(((s_20)" @@ -66307,7 +66380,7 @@ static const char *startup_source = "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_705)" +"(let-values(((s_726)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -66315,7 +66388,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_705)))" +" s_726)))" "(if(not" " flat-s_43)" "(let-values()" @@ -66370,7 +66443,7 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_59" +"(let-values(((ok?_60" " for-label19_0" " spec20_0)" "(let-values(((s_44)" @@ -66379,23 +66452,23 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_706)" +"(let-values(((s_727)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_706)" +" s_727)" "(let-values(((for-label21_0)" "(let-values(((s_473)" "(car" -" s_706)))" +" s_727)))" " s_473))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_706)))" +" s_727)))" "(let-values(((s_397)" "(if(syntax?$1" " s_45)" @@ -66468,7 +66541,7 @@ static const char *startup_source = " spec_0))" "(void))" "(values))))" -"(let-values(((ok?_60" +"(let-values(((ok?_61" " protect25_0" " p-spec26_0)" "(let-values(((s_85)" @@ -66486,20 +66559,20 @@ static const char *startup_source = "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_707)" +"(let-values(((s_728)" "(car" " s_31)))" -" s_707))" +" s_728))" "((p-spec28_0)" -"(let-values(((s_708)" +"(let-values(((s_729)" "(cdr" " s_31)))" "(let-values(((s_393)" "(if(syntax?$1" -" s_708)" +" s_729)" "(syntax-e$1" -" s_708)" -" s_708)))" +" s_729)" +" s_729)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" " s_393)))" @@ -66552,7 +66625,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_61" +"(let-values(((ok?_62" " rename31_0" " id:from32_0" " id:to33_0)" @@ -66614,18 +66687,18 @@ static const char *startup_source = "(let-values(((s_389)" "(cdr" " s_492)))" -"(let-values(((s_709)" +"(let-values(((s_730)" "(if(syntax?$1" " s_389)" "(syntax-e$1" " s_389)" " s_389)))" "(if(pair?" -" s_709)" +" s_730)" "(let-values(((id:to39_0)" "(let-values(((s_390)" "(car" -" s_709)))" +" s_730)))" "(if(let-values(((or-part_104)" "(if(syntax?$1" " s_390)" @@ -66646,7 +66719,7 @@ static const char *startup_source = "(()" "(let-values(((s_391)" "(cdr" -" s_709)))" +" s_730)))" "(let-values(((s_493)" "(if(syntax?$1" " s_391)" @@ -66712,7 +66785,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_62" +"(let-values(((ok?_63" " struct40_0" " id:struct41_0" " id:field42_0)" @@ -66723,24 +66796,24 @@ static const char *startup_source = "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_710)" +"(let-values(((s_731)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_710)" +" s_731)" "(let-values(((struct43_0)" "(let-values(((s_199)" "(car" -" s_710)))" +" s_731)))" " s_199))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_37)" "(cdr" -" s_710)))" +" s_731)))" "(let-values(((s_86)" "(if(syntax?$1" " s_37)" @@ -66750,26 +66823,26 @@ static const char *startup_source = "(if(pair?" " s_86)" "(let-values(((id:struct46_0)" -"(let-values(((s_711)" +"(let-values(((s_732)" "(car" " s_86)))" "(if(let-values(((or-part_258)" "(if(syntax?$1" -" s_711)" +" s_732)" "(symbol?" "(syntax-e$1" -" s_711))" +" s_732))" " #f)))" "(if or-part_258" " or-part_258" "(symbol?" -" s_711)))" -" s_711" +" s_732)))" +" s_732" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_65" -" s_711))))" +" s_732))))" "((id:field47_0)" "(let-values(((s_320)" "(cdr" @@ -66932,7 +67005,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_63" +"(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" "(let-values(((s_409)" @@ -66941,23 +67014,23 @@ static const char *startup_source = " s_409))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_712)" +"(let-values(((s_733)" "(if(syntax?$1" " s_409)" "(syntax-e$1" " s_409)" " s_409)))" "(if(pair?" -" s_712)" +" s_733)" "(let-values(((all-from52_0)" "(let-values(((s_417)" "(car" -" s_712)))" +" s_733)))" " s_417))" "((mod-path53_0)" "(let-values(((s_206)" "(cdr" -" s_712)))" +" s_733)))" "(let-values(((s_207)" "(if(syntax?$1" " s_206)" @@ -66972,15 +67045,15 @@ static const char *startup_source = " s_207)))" " s_93))" "(()" -"(let-values(((s_713)" +"(let-values(((s_734)" "(cdr" " s_207)))" "(let-values(((s_322)" "(if(syntax?$1" -" s_713)" +" s_734)" "(syntax-e$1" -" s_713)" -" s_713)))" +" s_734)" +" s_734)))" "(if(null?" " s_322)" "(values)" @@ -67026,7 +67099,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_64" +"(let-values(((ok?_65" " all-from-except55_0" " mod-path56_0" " id57_0)" @@ -67046,10 +67119,10 @@ static const char *startup_source = "(if(pair?" " s_98)" "(let-values(((all-from-except58_0)" -"(let-values(((s_714)" +"(let-values(((s_735)" "(car" " s_98)))" -" s_714))" +" s_735))" "((mod-path59_0" " id60_0)" "(let-values(((s_102)" @@ -67072,7 +67145,7 @@ static const char *startup_source = "(let-values(((s_483)" "(cdr" " s_154)))" -"(let-values(((s_715)" +"(let-values(((s_736)" "(if(syntax?$1" " s_483)" "(syntax-e$1" @@ -67080,7 +67153,7 @@ static const char *startup_source = " s_483)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_715)))" +" s_736)))" "(if(not" " flat-s_47)" "(let-values()" @@ -67200,7 +67273,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_65" +"(let-values(((ok?_66" " all-defined64_0)" "(let-values(((s_213)" " disarmed-spec_0))" @@ -67216,10 +67289,10 @@ static const char *startup_source = "(if(pair?" " s_395)" "(let-values(((all-defined65_0)" -"(let-values(((s_716)" +"(let-values(((s_737)" "(car" " s_395)))" -" s_716))" +" s_737))" "(()" "(let-values(((s_494)" "(cdr" @@ -67267,21 +67340,21 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_66" +"(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_717)" +"(let-values(((s_738)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_717))" +" s_738))" "(let-values(((all-defined-except66_1" " id67_1)" "(let-values(((s_216)" "(if(syntax?$1" -" s_717)" +" s_738)" "(syntax-e$1" -" s_717)" -" s_717)))" +" s_738)" +" s_738)))" "(if(pair?" " s_216)" "(let-values(((all-defined-except68_0)" @@ -67409,7 +67482,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_67" +"(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" "(let-values(((s_504)" @@ -67418,62 +67491,62 @@ static const char *startup_source = " s_504))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_718)" +"(let-values(((s_739)" "(if(syntax?$1" " s_504)" "(syntax-e$1" " s_504)" " s_504)))" "(if(pair?" -" s_718)" +" s_739)" "(let-values(((prefix-all-defined73_0)" "(let-values(((s_507)" "(car" -" s_718)))" +" s_739)))" " s_507))" "((id:prefix74_0)" -"(let-values(((s_719)" +"(let-values(((s_740)" "(cdr" -" s_718)))" -"(let-values(((s_720)" +" s_739)))" +"(let-values(((s_741)" "(if(syntax?$1" -" s_719)" +" s_740)" "(syntax-e$1" -" s_719)" -" s_719)))" +" s_740)" +" s_740)))" "(if(pair?" -" s_720)" +" s_741)" "(let-values(((id:prefix75_0)" -"(let-values(((s_721)" +"(let-values(((s_742)" "(car" -" s_720)))" +" s_741)))" "(if(let-values(((or-part_388)" "(if(syntax?$1" -" s_721)" +" s_742)" "(symbol?" "(syntax-e$1" -" s_721))" +" s_742))" " #f)))" "(if or-part_388" " or-part_388" "(symbol?" -" s_721)))" -" s_721" +" s_742)))" +" s_742" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_721))))" +" s_742))))" "(()" -"(let-values(((s_722)" +"(let-values(((s_743)" "(cdr" -" s_720)))" +" s_741)))" "(let-values(((s_462)" "(if(syntax?$1" -" s_722)" +" s_743)" "(syntax-e$1" -" s_722)" -" s_722)))" +" s_743)" +" s_743)))" "(if(null?" " s_462)" "(values)" @@ -67523,7 +67596,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_68" +"(let-values(((ok?_69" " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" @@ -67619,7 +67692,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_405)" -"(let-values(((s_723)" +"(let-values(((s_744)" "(unsafe-car" " lst_405))" "((rest_237)" @@ -67634,21 +67707,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_723)" +" s_744)" "(symbol?" "(syntax-e$1" -" s_723))" +" s_744))" " #f)))" "(if or-part_390" " or-part_390" "(symbol?" -" s_723)))" -" s_723" +" s_744)))" +" s_744" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_723)))))" +" s_744)))))" "(cons" " id84_2" " id_138)))))" @@ -67703,23 +67776,23 @@ static const char *startup_source = "(list" " spec_0))))))" "(let-values()" -"(let-values(((ok?_69" +"(let-values(((ok?_70" " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_724)" +"(let-values(((s_745)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_724))" +" s_745))" "(let-values(((expand85_1" " id86_1" " datum87_1)" "(let-values(((s_248)" "(if(syntax?$1" -" s_724)" +" s_745)" "(syntax-e$1" -" s_724)" -" s_724)))" +" s_745)" +" s_745)))" "(if(pair?" " s_248)" "(let-values(((expand88_0)" @@ -67742,38 +67815,38 @@ static const char *startup_source = " s_250)" "(let-values(((id91_1" " datum92_0)" -"(let-values(((s_725)" +"(let-values(((s_746)" "(car" " s_250)))" "(let-values(((s_252)" "(if(syntax?$1" -" s_725)" +" s_746)" "(syntax-e$1" -" s_725)" -" s_725)))" +" s_746)" +" s_746)))" "(if(pair?" " s_252)" "(let-values(((id93_0)" -"(let-values(((s_726)" +"(let-values(((s_747)" "(car" " s_252)))" "(if(let-values(((or-part_391)" "(if(syntax?$1" -" s_726)" +" s_747)" "(symbol?" "(syntax-e$1" -" s_726))" +" s_747))" " #f)))" "(if or-part_391" " or-part_391" "(symbol?" -" s_726)))" -" s_726" +" s_747)))" +" s_747" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_726))))" +" s_747))))" "((datum94_0)" "(let-values(((s_364)" "(cdr" @@ -67823,7 +67896,7 @@ static const char *startup_source = " expand85_1" " id86_1" " datum87_1))))))" -"(let-values(((ok?_70" +"(let-values(((ok?_71" " expand95_0" " form96_0)" "(let-values(((s_367)" @@ -67858,22 +67931,22 @@ static const char *startup_source = "(if(pair?" " s_375)" "(let-values(((form99_0)" -"(let-values(((s_727)" +"(let-values(((s_748)" "(car" " s_375)))" -" s_727))" +" s_748))" "(()" -"(let-values(((s_728)" +"(let-values(((s_749)" "(cdr" " s_375)))" -"(let-values(((s_729)" +"(let-values(((s_750)" "(if(syntax?$1" -" s_728)" +" s_749)" "(syntax-e$1" -" s_728)" -" s_728)))" +" s_749)" +" s_749)))" "(if(null?" -" s_729)" +" s_750)" "(values)" "(raise-syntax-error$1" " #f" @@ -68038,7 +68111,7 @@ static const char *startup_source = " orig-s_61" " spec_0)))" "(values))))" -"(let-values(((ok?_71" +"(let-values(((ok?_72" " begin100_0" " spec101_0)" "(let-values(((s_379)" @@ -68056,10 +68129,10 @@ static const char *startup_source = "(if(pair?" " s_380)" "(let-values(((begin102_0)" -"(let-values(((s_730)" +"(let-values(((s_751)" "(car" " s_380)))" -" s_730))" +" s_751))" "((spec103_0)" "(let-values(((s_464)" "(cdr" @@ -69072,7 +69145,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" -"(let-values(((ok?_72 module228_0 id:module-name229_0 initial-require230_0 body231_0)" +"(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_491) disarmed-s_24))" "(let-values(((orig-s_79) s_491))" "(let-values(((module228_1" @@ -69085,8 +69158,8 @@ static const char *startup_source = " s_491)))" "(if(pair? s_315)" "(let-values(((module232_0)" -"(let-values(((s_731)(car s_315)))" -" s_731))" +"(let-values(((s_752)(car s_315)))" +" s_752))" "((id:module-name233_0" " initial-require234_0" " body235_0)" @@ -69139,7 +69212,7 @@ static const char *startup_source = "(let-values(((s_388)" "(cdr" " s_317)))" -"(let-values(((s_732)" +"(let-values(((s_753)" "(if(syntax?$1" " s_388)" "(syntax-e$1" @@ -69147,7 +69220,7 @@ static const char *startup_source = " s_388)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_732)))" +" s_753)))" "(if(not" " flat-s_51)" "(let-values()" @@ -69429,7 +69502,7 @@ static const char *startup_source = "(let-values(((scoped-s_0)" "(apply-module-scopes_0" " disarmed-s_24)))" -"(let-values(((ok?_73" +"(let-values(((ok?_74" " _272_0" " _273_0" " _274_0" @@ -69476,15 +69549,15 @@ static const char *startup_source = " s_91))" "((_281_0" " body282_0)" -"(let-values(((s_712)" +"(let-values(((s_733)" "(cdr" " s_90)))" "(let-values(((s_205)" "(if(syntax?$1" -" s_712)" +" s_733)" "(syntax-e$1" -" s_712)" -" s_712)))" +" s_733)" +" s_733)))" "(if(pair?" " s_205)" "(let-values(((_283_0)" @@ -69833,13 +69906,13 @@ static const char *startup_source = " added-s_2)))" "(let-values(((ok?_6" " #%module-begin300_0" -" body301_0)" +" body301_1)" "(let-values(((s_112)" " disarmed-mb-s_0))" "(let-values(((orig-s_81)" " s_112))" "(let-values(((#%module-begin300_1" -" body301_1)" +" body301_2)" "(let-values(((s_113)" "(if(syntax?$1" " s_112)" @@ -69853,7 +69926,7 @@ static const char *startup_source = "(car" " s_113)))" " s_116))" -"((body303_0)" +"((body303_1)" "(let-values(((s_421)" "(cdr" " s_113)))" @@ -69877,7 +69950,7 @@ static const char *startup_source = " flat-s_52)))))))" "(values" " #%module-begin302_0" -" body303_0))" +" body303_1))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" @@ -69885,9 +69958,9 @@ static const char *startup_source = "(values" " #t" " #%module-begin300_1" -" body301_1))))))" +" body301_2))))))" "(let-values(((bodys_16)" -" body301_0))" +" body301_1))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx315_0)" " ctx_109)" @@ -69954,8 +70027,10 @@ static const char *startup_source = " phase_148)))" "((declared-submodule-names332_0)" " declared-submodule-names_3)" -"((lifts333_0)" -"(let-values(((temp337_0)" +"((lift-key333_0)" +"(generate-lift-key))" +"((lifts334_0)" +"(let-values(((temp338_1)" "(make-wrap-as-definition" " self_30" " frame-id_16" @@ -69966,29 +70041,29 @@ static const char *startup_source = "(make-lift-context6.1" " #f" " #f" -" temp337_0)))" -"((module-lifts334_0)" +" temp338_1)))" +"((module-lifts335_0)" "(make-module-lift-context" " phase_148" " #t))" -"((require-lifts335_0)" +"((require-lifts336_0)" "(make-require-lift-context" " phase_148" -"(let-values(((declared-submodule-names341_0)" +"(let-values(((declared-submodule-names342_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" -" declared-submodule-names341_0" +" declared-submodule-names342_0" " m-ns_19" " self_30" " requires+provides_6))))" -"((to-module-lifts336_0)" -"(let-values(((module-ends343_0)" +"((to-module-lifts337_0)" +"(let-values(((module-ends344_0)" " module-ends_0)" -"((temp344_1)" +"((temp345_0)" " #f))" "(make-to-module-lift-context27.1" -" temp344_1" -" module-ends343_0" +" temp345_0" +" module-ends344_0" " phase_148))))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -70001,8 +70076,7 @@ static const char *startup_source = " the-struct_48)" "(root-expand-context/inner-counter" " the-struct_48)" -"(root-expand-context/inner-lift-key" -" the-struct_48)" +" lift-key333_0" "(expand-context/inner-to-parsed?" " the-struct_48)" " phase329_0" @@ -70017,12 +70091,12 @@ static const char *startup_source = " the-struct_48)" " stops331_0" " declared-submodule-names332_0" -" lifts333_0" +" lifts334_0" "(expand-context/inner-lift-envs" " the-struct_48)" -" module-lifts334_0" -" require-lifts335_0" -" to-module-lifts336_0" +" module-lifts335_0" +" require-lifts336_0" +" to-module-lifts337_0" "(expand-context/inner-requires+provides" " the-struct_48)" "(expand-context/inner-observer" @@ -70067,52 +70141,52 @@ static const char *startup_source = " \"expand-context/outer?\"" " the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" -"(let-values(((phase346_0)" +"(let-values(((phase347_0)" " phase_148)" -"((partial-body-ctx347_0)" +"((partial-body-ctx348_0)" " partial-body-ctx_0)" -"((m-ns348_0)" +"((m-ns349_0)" " m-ns_19)" -"((self349_0)" +"((self350_0)" " self_30)" -"((frame-id350_0)" +"((frame-id351_0)" " frame-id_16)" -"((requires+provides351_0)" +"((requires+provides352_0)" " requires+provides_6)" -"((need-eventually-defined352_0)" +"((need-eventually-defined353_0)" " need-eventually-defined_1)" -"((all-scopes-s353_0)" +"((all-scopes-s354_0)" " all-scopes-s_0)" -"((defined-syms354_0)" +"((defined-syms355_0)" " defined-syms_10)" -"((declared-keywords355_0)" +"((declared-keywords356_0)" " declared-keywords_0)" -"((declared-submodule-names356_0)" +"((declared-submodule-names357_0)" " declared-submodule-names_3)" -"((compiled-submodules357_0)" +"((compiled-submodules358_0)" " compiled-submodules_1)" -"((modules-being-compiled358_0)" +"((modules-being-compiled359_0)" " modules-being-compiled_3)" -"((mpis-to-reset359_0)" +"((mpis-to-reset360_0)" " mpis-to-reset_0)" -"((pass-1-and-2-loop360_0)" +"((pass-1-and-2-loop361_0)" " pass-1-and-2-loop_0))" "(partially-expand-bodys81.1" -" all-scopes-s353_0" -" compiled-submodules357_0" -" partial-body-ctx347_0" -" declared-keywords355_0" -" declared-submodule-names356_0" -" defined-syms354_0" -" frame-id350_0" -" pass-1-and-2-loop360_0" -" modules-being-compiled358_0" -" mpis-to-reset359_0" -" m-ns348_0" -" need-eventually-defined352_0" -" phase346_0" -" requires+provides351_0" -" self349_0" +" all-scopes-s354_0" +" compiled-submodules358_0" +" partial-body-ctx348_0" +" declared-keywords356_0" +" declared-submodule-names357_0" +" defined-syms355_0" +" frame-id351_0" +" pass-1-and-2-loop361_0" +" modules-being-compiled359_0" +" mpis-to-reset360_0" +" m-ns349_0" +" need-eventually-defined353_0" +" phase347_0" +" requires+provides352_0" +" self350_0" " bodys_17))))" "(let-values((()" "(begin" @@ -70136,26 +70210,26 @@ static const char *startup_source = " v_256))" "(if(expand-context/outer?" " the-struct_106)" -"(let-values(((def-ctx-scopes361_0)" +"(let-values(((def-ctx-scopes362_0)" " #f)" -"((post-expansion-scope362_0)" +"((post-expansion-scope363_0)" " #f)" -"((inner363_0)" +"((inner364_0)" "(let-values(((the-struct_107)" "(root-expand-context/outer-inner" " v_256)))" "(if(expand-context/inner?" " the-struct_107)" -"(let-values(((stops364_0)" +"(let-values(((stops365_0)" " empty-free-id-set)" -"((to-module-lifts365_0)" -"(let-values(((module-ends367_0)" +"((to-module-lifts366_0)" +"(let-values(((module-ends368_0)" " module-ends_0)" -"((temp368_0)" +"((temp369_0)" " #t))" "(make-to-module-lift-context27.1" -" temp368_0" -" module-ends367_0" +" temp369_0" +" module-ends368_0" " phase_148))))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -70184,7 +70258,7 @@ static const char *startup_source = " the-struct_107)" "(expand-context/inner-in-local-expand?" " the-struct_107)" -" stops364_0" +" stops365_0" "(expand-context/inner-declared-submodule-names" " the-struct_107)" "(expand-context/inner-lifts" @@ -70195,7 +70269,7 @@ static const char *startup_source = " the-struct_107)" "(expand-context/inner-require-lifts" " the-struct_107)" -" to-module-lifts365_0" +" to-module-lifts366_0" "(expand-context/inner-requires+provides" " the-struct_107)" "(expand-context/inner-observer" @@ -70209,8 +70283,8 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_107)))))" "(expand-context/outer1.1" -" inner363_0" -" post-expansion-scope362_0" +" inner364_0" +" post-expansion-scope363_0" "(root-expand-context/outer-use-site-scopes" " the-struct_106)" "(root-expand-context/outer-frame-id" @@ -70223,7 +70297,7 @@ static const char *startup_source = " the-struct_106)" "(expand-context/outer-scopes" " the-struct_106)" -" def-ctx-scopes361_0" +" def-ctx-scopes362_0" "(expand-context/outer-binding-layer" " the-struct_106)" "(expand-context/outer-reference-records" @@ -70287,25 +70361,25 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((requires+provides370_0)" +"(let-values(((requires+provides371_0)" " requires+provides_6)" -"((declared-submodule-names371_0)" +"((declared-submodule-names372_0)" " declared-submodule-names_3)" -"((m-ns372_0)" +"((m-ns373_0)" " m-ns_19)" -"((phase373_0)" +"((phase374_0)" " phase_147)" -"((self374_0)" +"((self375_0)" " self_30)" -"((ctx375_0)" +"((ctx376_1)" " ctx_109))" "(resolve-provides115.1" -" ctx375_0" -" declared-submodule-names371_0" -" m-ns372_0" -" phase373_0" -" requires+provides370_0" -" self374_0" +" ctx376_1" +" declared-submodule-names372_0" +" m-ns373_0" +" phase374_0" +" requires+provides371_0" +" self375_0" " expression-expanded-bodys_0))))" "(let-values(((is-cross-phase-persistent?_1)" "(hash-ref" @@ -70335,22 +70409,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_126)" +"(let-values(((obs_68)" "(expand-context-observer" " ctx_109)))" -"(if obs_126" +"(if obs_68" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_126" +" obs_68" " 'next)))" "(void)))" "(values))))" "(let-values(((submod-m-ns_0)" -"(let-values(((temp377_0)" +"(let-values(((temp378_1)" " #t))" "(make-m-ns244_0" -" temp377_0" +" temp378_1" " #t" " m-ns_19))))" "(let-values(((submod-ctx_0)" @@ -70360,17 +70434,17 @@ static const char *startup_source = " v_257))" "(if(expand-context/outer?" " the-struct_108)" -"(let-values(((frame-id378_0)" +"(let-values(((frame-id379_0)" " #f)" -"((post-expansion-scope379_0)" +"((post-expansion-scope380_0)" " #f)" -"((inner380_0)" +"((inner381_0)" "(let-values(((the-struct_109)" "(root-expand-context/outer-inner" " v_257)))" "(if(expand-context/inner?" " the-struct_109)" -"(let-values(((namespace381_0)" +"(let-values(((namespace382_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -70389,7 +70463,7 @@ static const char *startup_source = " the-struct_109)" "(expand-context/inner-phase" " the-struct_109)" -" namespace381_0" +" namespace382_0" "(expand-context/inner-just-once?" " the-struct_109)" "(expand-context/inner-module-begin-k" @@ -70425,11 +70499,11 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_109)))))" "(expand-context/outer1.1" -" inner380_0" -" post-expansion-scope379_0" +" inner381_0" +" post-expansion-scope380_0" "(root-expand-context/outer-use-site-scopes" " the-struct_108)" -" frame-id378_0" +" frame-id379_0" "(expand-context/outer-context" " the-struct_108)" "(expand-context/outer-env" @@ -70461,37 +70535,37 @@ static const char *startup_source = "(lambda()" "(begin" " 'declare-enclosing-module" -"(let-values(((temp383_0)" +"(let-values(((temp384_1)" " id:module-name229_0)" -"((rebuild-s384_0)" +"((rebuild-s385_0)" " rebuild-s_14)" -"((requires+provides385_0)" +"((requires+provides386_0)" " requires+provides_6)" -"((submod-m-ns386_0)" +"((submod-m-ns387_0)" " submod-m-ns_0)" -"((self387_0)" +"((self388_0)" " self_30)" -"((enclosing-self388_0)" +"((enclosing-self389_0)" " enclosing-self_1)" -"((root-ctx389_0)" +"((root-ctx390_0)" " root-ctx_6)" -"((submod-ctx390_0)" +"((submod-ctx391_0)" " submod-ctx_0)" -"((modules-being-compiled391_0)" +"((modules-being-compiled392_0)" " modules-being-compiled_3)" -"((compiled-module-box392_0)" +"((compiled-module-box393_0)" " compiled-module-box_0))" "(declare-module-for-expansion139.1" -" submod-ctx390_0" -" enclosing-self388_0" -" compiled-module-box392_0" -" temp383_0" -" modules-being-compiled391_0" -" submod-m-ns386_0" -" rebuild-s384_0" -" requires+provides385_0" -" root-ctx389_0" -" self387_0" +" submod-ctx391_0" +" enclosing-self389_0" +" compiled-module-box393_0" +" temp384_1" +" modules-being-compiled392_0" +" submod-m-ns387_0" +" rebuild-s385_0" +" requires+provides386_0" +" root-ctx390_0" +" self388_0" " fully-expanded-bodys-except-post-submodules_0)))))))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" @@ -70499,40 +70573,40 @@ static const char *startup_source = "(let-values()" " fully-expanded-bodys-except-post-submodules_0)" "(let-values()" -"(let-values(((declare-enclosing-module394_0)" +"(let-values(((declare-enclosing-module395_0)" " declare-enclosing-module_0)" -"((phase395_0)" +"((phase396_0)" " phase_147)" -"((self396_0)" +"((self397_0)" " self_30)" -"((requires+provides397_0)" +"((requires+provides398_0)" " requires+provides_6)" -"((is-cross-phase-persistent?398_0)" +"((is-cross-phase-persistent?399_0)" " is-cross-phase-persistent?_1)" -"((all-scopes-s399_0)" +"((all-scopes-s400_0)" " all-scopes-s_0)" -"((mpis-to-reset400_0)" +"((mpis-to-reset401_0)" " mpis-to-reset_0)" -"((declared-submodule-names401_0)" +"((declared-submodule-names402_0)" " declared-submodule-names_3)" -"((compiled-submodules402_0)" +"((compiled-submodules403_0)" " compiled-submodules_1)" -"((modules-being-compiled403_0)" +"((modules-being-compiled404_0)" " modules-being-compiled_3)" -"((submod-ctx404_0)" +"((submod-ctx405_0)" " submod-ctx_0))" "(expand-post-submodules165.1" -" all-scopes-s399_0" -" compiled-submodules402_0" -" submod-ctx404_0" -" declare-enclosing-module394_0" -" declared-submodule-names401_0" -" is-cross-phase-persistent?398_0" -" modules-being-compiled403_0" -" mpis-to-reset400_0" -" phase395_0" -" requires+provides397_0" -" self396_0" +" all-scopes-s400_0" +" compiled-submodules403_0" +" submod-ctx405_0" +" declare-enclosing-module395_0" +" declared-submodule-names402_0" +" is-cross-phase-persistent?399_0" +" modules-being-compiled404_0" +" mpis-to-reset401_0" +" phase396_0" +" requires+provides398_0" +" self397_0" " fully-expanded-bodys-except-post-submodules_0))))))" "(if(expand-context-to-parsed?" " submod-ctx_0)" @@ -70543,9 +70617,9 @@ static const char *startup_source = " fully-expanded-bodys_0)))" "(let-values()" "(let-values(((mb-result-s_0)" -"(let-values(((rebuild-mb-s405_0)" +"(let-values(((rebuild-mb-s406_0)" " rebuild-mb-s_0)" -"((temp406_1)" +"((temp407_0)" "(list*" " #%module-begin300_0" "(syntax-only" @@ -70553,8 +70627,8 @@ static const char *startup_source = "(rebuild5.1" " #f" " #f" -" rebuild-mb-s405_0" -" temp406_1))))" +" rebuild-mb-s406_0" +" temp407_0))))" "(if(not" "(expand-context-in-local-expand?" " submod-ctx_0))" @@ -70574,17 +70648,17 @@ static const char *startup_source = " v_258))" "(if(expand-context/outer?" " the-struct_110)" -"(let-values(((context407_0)" +"(let-values(((context408_0)" " 'module-begin)" -"((inner408_0)" +"((inner409_0)" "(let-values(((the-struct_111)" "(root-expand-context/outer-inner" " v_258)))" "(if(expand-context/inner?" " the-struct_111)" -"(let-values(((module-begin-k409_0)" +"(let-values(((module-begin-k410_0)" " module-begin-k_1)" -"((in-local-expand?410_0)" +"((in-local-expand?411_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -70607,10 +70681,10 @@ static const char *startup_source = " the-struct_111)" "(expand-context/inner-just-once?" " the-struct_111)" -" module-begin-k409_0" +" module-begin-k410_0" "(expand-context/inner-allow-unbound?" " the-struct_111)" -" in-local-expand?410_0" +" in-local-expand?411_0" "(expand-context/inner-stops" " the-struct_111)" "(expand-context/inner-declared-submodule-names" @@ -70638,14 +70712,14 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_111)))))" "(expand-context/outer1.1" -" inner408_0" +" inner409_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_110)" "(root-expand-context/outer-use-site-scopes" " the-struct_110)" "(root-expand-context/outer-frame-id" " the-struct_110)" -" context407_0" +" context408_0" "(expand-context/outer-env" " the-struct_110)" "(expand-context/outer-post-expansion-scope-action" @@ -70678,34 +70752,34 @@ static const char *startup_source = "(box" " null)))" "(let-values(((mb_0)" -"(let-values(((module-name-sym412_0)" +"(let-values(((module-name-sym413_0)" " module-name-sym_0)" -"((mb-scopes-s413_0)" +"((mb-scopes-s414_0)" " mb-scopes-s_0)" -"((m-ns414_0)" +"((m-ns415_0)" " m-ns_19)" -"((mb-ctx415_0)" +"((mb-ctx416_0)" " mb-ctx_0)" -"((mb-def-ctx-scopes416_0)" +"((mb-def-ctx-scopes417_0)" " mb-def-ctx-scopes_0)" -"((phase417_0)" +"((phase418_0)" " phase_147)" -"((s418_0)" +"((s419_0)" " s_16))" "(ensure-module-begin36.1" -" mb-ctx415_0" -" mb-def-ctx-scopes416_0" -" m-ns414_0" -" module-name-sym412_0" -" phase417_0" -" s418_0" -" mb-scopes-s413_0" +" mb-ctx416_0" +" mb-def-ctx-scopes417_0" +" m-ns415_0" +" module-name-sym413_0" +" phase418_0" +" s419_0" +" mb-scopes-s414_0" " bodys_15))))" "(let-values(((expanded-mb_0)" "(let-values()" -"(let-values(((mb419_0)" +"(let-values(((mb420_0)" " mb_0)" -"((temp420_1)" +"((temp421_0)" "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" @@ -70714,8 +70788,8 @@ static const char *startup_source = " #f" " #f" " #f" -" mb419_0" -" temp420_1)))))" +" mb420_0" +" temp421_0)))))" "(let-values(((requires_6" " provides_13)" "(extract-requires-and-provides" @@ -70723,11 +70797,11 @@ static const char *startup_source = " self_30" " self_30)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_340)" +"(if(let-values(((or-part_341)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_340" -" or-part_340" +"(if or-part_341" +" or-part_341" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -70763,7 +70837,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_30)" -"(let-values(((lst_215)" +"(let-values(((lst_216)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -70772,7 +70846,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_215)))" +" lst_216)))" "((letrec-values(((for-loop_312)" "(lambda(lst_413)" "(begin" @@ -70782,7 +70856,7 @@ static const char *startup_source = "(let-values(((mpi_54)" "(unsafe-car" " lst_413))" -"((rest_246)" +"((rest_114)" "(unsafe-cdr" " lst_413)))" "(let-values((()" @@ -70798,16 +70872,16 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_312" -" rest_246)" +" rest_114)" "(values))))" "(values))))))" " for-loop_312)" -" lst_215)))" +" lst_216)))" "(void)" "(let-values(((result-s_15)" -"(let-values(((rebuild-s421_0)" +"(let-values(((rebuild-s422_0)" " rebuild-s_14)" -"((temp422_0)" +"((temp423_1)" "(list" " module228_0" " id:module-name229_0" @@ -70817,21 +70891,21 @@ static const char *startup_source = "(rebuild5.1" " #f" " #f" -" rebuild-s421_0" -" temp422_0))))" +" rebuild-s422_0" +" temp423_1))))" "(let-values(((result-s_16)" -"(let-values(((result-s423_0)" +"(let-values(((result-s424_0)" " result-s_15)" -"((self424_0)" +"((self425_0)" " self_30)" -"((generic-self425_0)" +"((generic-self426_0)" " generic-self_0))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" result-s423_0" -" self424_0" -" generic-self425_0" +" result-s424_0" +" self425_0" +" generic-self426_0" " #f" " #f))))" "(let-values(((result-s_17)" @@ -70849,14 +70923,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_127)" +"(let-values(((obs_126)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_127" +"(if obs_126" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_127" +" obs_126" " 'rename-one" " result-s_18)))" "(void)))" @@ -70885,7 +70959,7 @@ static const char *startup_source = "(let-values(((ctx_110) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_149) phase26_2))" -"(let-values(((s_263) s27_2))" +"(let-values(((s_754) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" @@ -70894,23 +70968,23 @@ static const char *startup_source = "(let-values(((v_259) ctx_110))" "(let-values(((the-struct_112) v_259))" "(if(expand-context/outer? the-struct_112)" -"(let-values(((context426_0) 'module-begin)" -"((only-immediate?427_0) #t)" -"((def-ctx-scopes428_0) def-ctx-scopes_9)" -"((inner429_0)(root-expand-context/outer-inner v_259)))" +"(let-values(((context427_0) 'module-begin)" +"((only-immediate?428_0) #t)" +"((def-ctx-scopes429_0) def-ctx-scopes_9)" +"((inner430_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" -" inner429_0" +" inner430_0" "(root-expand-context/outer-post-expansion-scope the-struct_112)" "(root-expand-context/outer-use-site-scopes the-struct_112)" "(root-expand-context/outer-frame-id the-struct_112)" -" context426_0" +" context427_0" "(expand-context/outer-env the-struct_112)" "(expand-context/outer-post-expansion-scope-action the-struct_112)" "(expand-context/outer-scopes the-struct_112)" -" def-ctx-scopes428_0" +" def-ctx-scopes429_0" "(expand-context/outer-binding-layer the-struct_112)" "(expand-context/outer-reference-records the-struct_112)" -" only-immediate?427_0" +" only-immediate?428_0" "(expand-context/outer-need-eventually-defined the-struct_112)" "(expand-context/outer-current-introduction-scopes the-struct_112)" "(expand-context/outer-name the-struct_112)))" @@ -70922,11 +70996,11 @@ static const char *startup_source = "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_128)(expand-context-observer ctx_110)))" -"(if obs_128" +"(let-values(((obs_127)(expand-context-observer ctx_110)))" +"(if obs_127" "(let-values()" "(let-values()" -"(call-expand-observe obs_128 'rename-one(car bodys_18))))" +"(call-expand-observe obs_127 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" @@ -70935,12 +71009,12 @@ static const char *startup_source = "(let-values()" "(let-values(((partly-expanded-body_0)" "(let-values()" -"(let-values(((temp430_0)" +"(let-values(((temp431_0)" "(add-enclosing-name-property" "(car bodys_18)" " module-name-sym_1))" -"((temp431_0)(make-mb-ctx_0)))" -"(expand7.1 #f #f #f #f temp430_0 temp431_0)))))" +"((temp432_0)(make-mb-ctx_0)))" +"(expand7.1 #f #f #f #f temp431_0 temp432_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" @@ -70948,38 +71022,38 @@ static const char *startup_source = " phase_149))" "(let-values() partly-expanded-body_0)" "(let-values()" -"(let-values(((temp432_0)(list partly-expanded-body_0))" -"((s433_0) s_263)" -"((scopes-s434_0) scopes-s_0)" -"((phase435_0) phase_149)" -"((module-name-sym436_0) module-name-sym_1)" -"((temp437_0)(make-mb-ctx_0))" -"((temp438_0) #f))" +"(let-values(((temp433_0)(list partly-expanded-body_0))" +"((s434_0) s_754)" +"((scopes-s435_0) scopes-s_0)" +"((phase436_0) phase_149)" +"((module-name-sym437_0) module-name-sym_1)" +"((temp438_0)(make-mb-ctx_0))" +"((temp439_0) #f))" "(add-module-begin47.1" -" temp438_0" +" temp439_0" " #t" -" temp432_0" -" s433_0" -" scopes-s434_0" -" phase435_0" -" module-name-sym436_0" -" temp437_0)))))))))" +" temp433_0" +" s434_0" +" scopes-s435_0" +" phase436_0" +" module-name-sym437_0" +" temp438_0)))))))))" "(let-values()" -"(let-values(((bodys439_0) bodys_18)" -"((s440_0) s_263)" -"((scopes-s441_0) scopes-s_0)" -"((phase442_0) phase_149)" -"((module-name-sym443_0) module-name-sym_1)" -"((temp444_0)(make-mb-ctx_0)))" +"(let-values(((bodys440_0) bodys_18)" +"((s441_0) s_754)" +"((scopes-s442_0) scopes-s_0)" +"((phase443_0) phase_149)" +"((module-name-sym444_0) module-name-sym_1)" +"((temp445_0)(make-mb-ctx_0)))" "(add-module-begin47.1" " #f" " #f" -" bodys439_0" -" s440_0" -" scopes-s441_0" -" phase442_0" -" module-name-sym443_0" -" temp444_0))))))" +" bodys440_0" +" s441_0" +" scopes-s442_0" +" phase443_0" +" module-name-sym444_0" +" temp445_0))))))" "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" "(define-values" "(add-module-begin47.1)" @@ -70994,7 +71068,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_733) s42_0))" +"(let-values(((s_755) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_150) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -71005,42 +71079,42 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id445_0) mb-id_0)((phase446_0) phase_150))" -"(resolve33.1 #f #f #f #f #f #f #f #f mb-id445_0 phase446_0))" +"(if(let-values(((mb-id446_0) mb-id_0)((phase447_0) phase_150))" +"(resolve33.1 #f #f #f #f #f #f #f #f mb-id446_0 phase447_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_733)))" +" s_755)))" "(values))))" -"(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_733)))" +"(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_755)))" "(let-values((()" "(begin" -"(let-values(((obs_129)(expand-context-observer mb-ctx_1)))" -"(if obs_129" +"(let-values(((obs_128)(expand-context-observer mb-ctx_1)))" +"(if obs_128" "(let-values()" -"(let-values()(call-expand-observe obs_129 'tag mb_2)))" +"(let-values()(call-expand-observe obs_128 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_130)(expand-context-observer mb-ctx_1)))" -"(if obs_130" +"(let-values(((obs_129)(expand-context-observer mb-ctx_1)))" +"(if obs_129" "(let-values()" "(let-values()" -"(call-expand-observe obs_130 'rename-one mb_2)))" +"(call-expand-observe obs_129 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" "(let-values(((partly-expanded-mb_0)" "(let-values()" -"(let-values(((temp447_0)" +"(let-values(((temp448_0)" "(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx448_0) mb-ctx_1))" -"(expand7.1 #f #f #f #f temp447_0 mb-ctx448_0)))))" +"((mb-ctx449_0) mb-ctx_1))" +"(expand7.1 #f #f #f #f temp448_0 mb-ctx449_0)))))" "(begin" "(if(eq?" " '#%module-begin" @@ -71050,7 +71124,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_733" +" s_755" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -71062,46 +71136,46 @@ static const char *startup_source = " outside-scope_2" " init-ctx_1" " keep-enclosing-scope-at-phase_1" -" self_11" +" self_31" " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_734)" +"(lambda(s_756)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_734" +" s_756" "(remove-use-site-scopes" -"(remove-scopes s_734(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_756(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" "(let-values(((s-with-suitable-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" "(let-values()" -"(let-values(((s-with-edges453_0) s-with-edges_0)" -"((enclosing-self454_0) enclosing-self_2)" -"((enclosing-mod455_0) enclosing-mod_2))" +"(let-values(((s-with-edges454_0) s-with-edges_0)" +"((enclosing-self455_0) enclosing-self_2)" +"((enclosing-mod456_0) enclosing-mod_2))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" s-with-edges453_0" -" enclosing-self454_0" -" enclosing-mod455_0" +" s-with-edges454_0" +" enclosing-self455_0" +" enclosing-mod456_0" " #f" " #f)))" "(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing449_0) s-with-suitable-enclosing_0)" -"((temp450_0)(make-generic-self-module-path-index self_11))" -"((self451_0) self_11)" -"((temp452_0)(current-code-inspector)))" +"(let-values(((s-with-suitable-enclosing450_0) s-with-suitable-enclosing_0)" +"((temp451_0)(make-generic-self-module-path-index self_31))" +"((self452_0) self_31)" +"((temp453_0)(current-code-inspector)))" "(syntax-module-path-index-shift15.1" " #f" " #f" -" s-with-suitable-enclosing449_0" -" temp450_0" -" self451_0" -" temp452_0" +" s-with-suitable-enclosing450_0" +" temp451_0" +" self452_0" +" temp453_0" " #t))))))))))" "(define-values" "(partially-expand-bodys81.1)" @@ -71124,10 +71198,10 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_45) phase50_0))" +"(let-values(((phase_151) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" -"(let-values(((self_31) self53_0))" +"(let-values(((self_32) self53_0))" "(let-values(((frame-id_17) frame-id54_0))" "(let-values(((requires+provides_7) requires-and-provides55_0))" "(let-values(((need-eventually-defined_2) need-eventually-defined56_0))" @@ -71141,24 +71215,24 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_45)" +"(namespace-visit-available-modules! m-ns_20 phase_151)" "((letrec-values(((loop_128)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_45)) #f)" +"(if(if tail?_53(not(zero? phase_151)) #f)" "(let-values()" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_130)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_131" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_130" " 'module-lift-end-loop" " '())))" "(void)))" @@ -71174,14 +71248,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_131)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_132" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_131" " 'module-lift-end-loop" " bodys_22)))" "(void)))" @@ -71198,30 +71272,30 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_132)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_133" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_132" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_7)" "(let-values()" -"(let-values(((temp456_0)" +"(let-values(((temp457_0)" "(car bodys_21))" -"((partial-body-ctx457_0)" +"((partial-body-ctx458_0)" " partial-body-ctx_1))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp456_0" -" partial-body-ctx457_0)))))" +" temp457_0" +" partial-body-ctx458_0)))))" "(let-values(((disarmed-exp-body_1)" "(syntax-disarm$1 exp-body_7)))" "(let-values(((lifted-defns_0)" @@ -71237,14 +71311,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_134)" +"(let-values(((obs_133)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_134" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_133" " 'rename-one" " exp-body_7)))" "(void)))" @@ -71255,46 +71329,46 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_45)))" +" phase_151)))" "(if(equal?" " tmp_65" " 'begin)" "(let-values()" -"(let-values(((ok?_74" -" begin458_0" -" e459_0)" -"(let-values(((s_735)" +"(let-values(((ok?_75" +" begin459_0" +" e460_0)" +"(let-values(((s_757)" " disarmed-exp-body_1))" "(let-values(((orig-s_82)" -" s_735))" -"(let-values(((begin458_1" -" e459_1)" -"(let-values(((s_736)" +" s_757))" +"(let-values(((begin459_1" +" e460_1)" +"(let-values(((s_758)" "(if(syntax?$1" -" s_735)" +" s_757)" "(syntax-e$1" -" s_735)" -" s_735)))" +" s_757)" +" s_757)))" "(if(pair?" -" s_736)" -"(let-values(((begin460_0)" -"(let-values(((s_737)" +" s_758)" +"(let-values(((begin461_0)" +"(let-values(((s_759)" "(car" -" s_736)))" -" s_737))" -"((e461_0)" -"(let-values(((s_738)" +" s_758)))" +" s_759))" +"((e462_0)" +"(let-values(((s_760)" "(cdr" -" s_736)))" -"(let-values(((s_739)" +" s_758)))" +"(let-values(((s_761)" "(if(syntax?$1" -" s_738)" +" s_760)" "(syntax-e$1" -" s_738)" -" s_738)))" +" s_760)" +" s_760)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_739)))" +" s_761)))" "(if(not" " flat-s_53)" "(let-values()" @@ -71305,16 +71379,16 @@ static const char *startup_source = "(let-values()" " flat-s_53)))))))" "(values" -" begin460_0" -" e461_0))" +" begin461_0" +" e462_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_82)))))" "(values" " #t" -" begin458_1" -" e459_1))))))" +" begin459_1" +" e460_1))))))" "(let-values(((track_1)" "(lambda(e_91)" "(begin" @@ -71326,17 +71400,17 @@ static const char *startup_source = "(append" "(map2" " track_1" -" e459_0)" +" e460_0)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_134)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_135" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_135" +" obs_134" " 'splice" " spliced-bodys_0)))" "(void)))" @@ -71349,22 +71423,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_136)" +"(let-values(((obs_135)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_136" +"(if obs_135" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_136" +" obs_135" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_136" +" obs_135" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_136" +" obs_135" " 'prepare-env))))" "(void)))" "(values))))" @@ -71372,7 +71446,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_45))))" +" phase_151))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -71380,52 +71454,52 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_137)" +"(let-values(((obs_136)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_136" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_137" +" obs_136" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_75" -" begin-for-syntax462_0" -" e463_0)" -"(let-values(((s_740)" +"(let-values(((ok?_76" +" begin-for-syntax463_0" +" e464_0)" +"(let-values(((s_762)" " disarmed-exp-body_1))" "(let-values(((orig-s_83)" -" s_740))" -"(let-values(((begin-for-syntax462_1" -" e463_1)" -"(let-values(((s_741)" +" s_762))" +"(let-values(((begin-for-syntax463_1" +" e464_1)" +"(let-values(((s_763)" "(if(syntax?$1" -" s_740)" +" s_762)" "(syntax-e$1" -" s_740)" -" s_740)))" +" s_762)" +" s_762)))" "(if(pair?" -" s_741)" -"(let-values(((begin-for-syntax464_0)" -"(let-values(((s_742)" +" s_763)" +"(let-values(((begin-for-syntax465_0)" +"(let-values(((s_764)" "(car" -" s_741)))" -" s_742))" -"((e465_0)" -"(let-values(((s_743)" +" s_763)))" +" s_764))" +"((e466_0)" +"(let-values(((s_765)" "(cdr" -" s_741)))" -"(let-values(((s_744)" +" s_763)))" +"(let-values(((s_766)" "(if(syntax?$1" -" s_743)" +" s_765)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_765)" +" s_765)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_744)))" +" s_766)))" "(if(not" " flat-s_54)" "(let-values()" @@ -71436,22 +71510,46 @@ static const char *startup_source = "(let-values()" " flat-s_54)))))))" "(values" -" begin-for-syntax464_0" -" e465_0))" +" begin-for-syntax465_0" +" e466_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_83)))))" "(values" " #t" -" begin-for-syntax462_1" -" e463_1))))))" +" begin-for-syntax463_1" +" e464_1))))))" "(let-values(((nested-bodys_1)" "(pass-1-and-2-loop_1" -" e463_0" +" e464_0" "(add1" -" phase_45))))" +" phase_151))))" "(begin" +"(let-values(((obs_137)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_137" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_137" +" 'next-group)))" +"(void)))" +"(namespace-run-available-modules!" +" m-ns_20" +"(add1" +" phase_151))" +"(eval-nested-bodys" +" nested-bodys_1" +"(add1" +" phase_151)" +" ct-m-ns_0" +" self_32" +" partial-body-ctx_1)" +"(namespace-visit-available-modules!" +" m-ns_20" +" phase_151)" "(let-values(((obs_138)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -71460,34 +71558,10 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_138" -" 'next-group)))" -"(void)))" -"(namespace-run-available-modules!" -" m-ns_20" -"(add1" -" phase_45))" -"(eval-nested-bodys" -" nested-bodys_1" -"(add1" -" phase_45)" -" ct-m-ns_0" -" self_31" -" partial-body-ctx_1)" -"(namespace-visit-available-modules!" -" m-ns_20" -" phase_45)" -"(let-values(((obs_139)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_139" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_139" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_131)" +"(let-values(((lst_47)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71495,46 +71569,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_131)))" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_122" -" lst_132)" +" lst_47)))" +"((letrec-values(((for-loop_313)" +"(lambda(fold-var_358" +" lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_132)" +" lst_414)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_132))" -"((rest_65)" +" lst_414))" +"((rest_246)" "(unsafe-cdr" -" lst_132)))" -"(let-values(((fold-var_123)" +" lst_414)))" "(let-values(((fold-var_124)" -" fold-var_122))" "(let-values(((fold-var_125)" +" fold-var_358))" +"(let-values(((fold-var_363)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_124))))" +" fold-var_125))))" "(values" -" fold-var_125)))))" +" fold-var_363)))))" "(if(not" " #f)" -"(for-loop_160" -" fold-var_123" -" rest_65)" -" fold-var_123)))" -" fold-var_122)))))" -" for-loop_160)" +"(for-loop_313" +" fold-var_124" +" rest_246)" +" fold-var_124)))" +" fold-var_358)))))" +" for-loop_313)" " null" -" lst_131))))))" +" lst_47))))))" "(datum->syntax$1" " #f" "(cons" -" begin-for-syntax462_0" +" begin-for-syntax463_0" " s-nested-bodys_0)" " exp-body_7)))))" "(void)))" @@ -71551,72 +71625,72 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_140)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_139" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_140" +" obs_139" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_140" +" obs_139" " 'prim-define-values))))" "(void)))" "(values))))" -"(let-values(((ok?_76" -" define-values466_0" -" id467_0" -" rhs468_0)" -"(let-values(((s_745)" +"(let-values(((ok?_77" +" define-values467_0" +" id468_0" +" rhs469_0)" +"(let-values(((s_767)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_745))" -"(let-values(((define-values466_1" -" id467_1" -" rhs468_1)" -"(let-values(((s_746)" +" s_767))" +"(let-values(((define-values467_1" +" id468_1" +" rhs469_1)" +"(let-values(((s_768)" "(if(syntax?$1" -" s_745)" +" s_767)" "(syntax-e$1" -" s_745)" -" s_745)))" +" s_767)" +" s_767)))" "(if(pair?" -" s_746)" -"(let-values(((define-values469_0)" -"(let-values(((s_747)" +" s_768)" +"(let-values(((define-values470_0)" +"(let-values(((s_769)" "(car" -" s_746)))" -" s_747))" -"((id470_0" -" rhs471_0)" -"(let-values(((s_748)" +" s_768)))" +" s_769))" +"((id471_0" +" rhs472_0)" +"(let-values(((s_770)" "(cdr" -" s_746)))" -"(let-values(((s_749)" +" s_768)))" +"(let-values(((s_525)" "(if(syntax?$1" -" s_748)" +" s_770)" "(syntax-e$1" -" s_748)" -" s_748)))" +" s_770)" +" s_770)))" "(if(pair?" -" s_749)" -"(let-values(((id472_0)" -"(let-values(((s_750)" -"(car" -" s_749)))" +" s_525)" +"(let-values(((id473_0)" "(let-values(((s_526)" +"(car" +" s_525)))" +"(let-values(((s_527)" "(if(syntax?$1" -" s_750)" +" s_526)" "(syntax-e$1" -" s_750)" -" s_750)))" +" s_526)" +" s_526)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_526)))" +" s_527)))" "(if(not" " flat-s_55)" "(let-values()" @@ -71626,7 +71700,7 @@ static const char *startup_source = " orig-s_84))" "(let-values()" "(let-values(((id_145)" -"(let-values(((lst_414)" +"(let-values(((lst_415)" " flat-s_55))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71634,194 +71708,194 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_414)))" -"((letrec-values(((for-loop_313)" +" lst_415)))" +"((letrec-values(((for-loop_314)" "(lambda(id_146" -" lst_415)" +" lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_415)" -"(let-values(((s_751)" +" lst_416)" +"(let-values(((s_771)" "(unsafe-car" -" lst_415))" +" lst_416))" "((rest_247)" "(unsafe-cdr" -" lst_415)))" +" lst_416)))" "(let-values(((id_147)" "(let-values(((id_148)" " id_146))" "(let-values(((id_149)" "(let-values()" -"(let-values(((id482_0)" +"(let-values(((id483_0)" "(let-values()" "(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_751)" +" s_771)" "(symbol?" "(syntax-e$1" -" s_751))" +" s_771))" " #f)))" "(if or-part_394" " or-part_394" "(symbol?" -" s_751)))" -" s_751" +" s_771)))" +" s_771" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_84" -" s_751)))))" +" s_771)))))" "(cons" -" id482_0" +" id483_0" " id_148)))))" "(values" " id_149)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_314" " id_147" " rest_247)" " id_147)))" " id_146)))))" -" for-loop_313)" +" for-loop_314)" " null" -" lst_414)))))" +" lst_415)))))" "(reverse$1" " id_145))))))))" -"((rhs473_0)" -"(let-values(((s_752)" +"((rhs474_0)" +"(let-values(((s_772)" "(cdr" -" s_749)))" -"(let-values(((s_753)" +" s_525)))" +"(let-values(((s_773)" "(if(syntax?$1" -" s_752)" +" s_772)" "(syntax-e$1" -" s_752)" -" s_752)))" +" s_772)" +" s_772)))" "(if(pair?" -" s_753)" -"(let-values(((rhs474_0)" -"(let-values(((s_754)" +" s_773)" +"(let-values(((rhs475_0)" +"(let-values(((s_774)" "(car" -" s_753)))" -" s_754))" +" s_773)))" +" s_774))" "(()" -"(let-values(((s_755)" -"(cdr" -" s_753)))" "(let-values(((s_190)" +"(cdr" +" s_773)))" +"(let-values(((s_775)" "(if(syntax?$1" -" s_755)" -"(syntax-e$1" -" s_755)" -" s_755)))" -"(if(null?" " s_190)" +"(syntax-e$1" +" s_190)" +" s_190)))" +"(if(null?" +" s_775)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84))))))" "(values" -" rhs474_0))" +" rhs475_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84))))))" "(values" -" id472_0" -" rhs473_0))" +" id473_0" +" rhs474_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84))))))" "(values" -" define-values469_0" -" id470_0" -" rhs471_0))" +" define-values470_0" +" id471_0" +" rhs472_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84)))))" "(values" " #t" -" define-values466_1" -" id467_1" -" rhs468_1))))))" +" define-values467_1" +" id468_1" +" rhs469_1))))))" "(let-values(((ids_40)" "(remove-use-site-scopes" -" id467_0" +" id468_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids475_0)" +"(let-values(((ids476_0)" " ids_40)" -"((phase476_0)" -" phase_45)" -"((exp-body477_0)" +"((phase477_0)" +" phase_151)" +"((exp-body478_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" " #f" " #f" -" ids475_0" -" phase476_0" -" exp-body477_0" +" ids476_0" +" phase477_0" +" exp-body478_0" " #f" " #f))" "(values))))" "(let-values((()" "(begin" -"(let-values(((exp-body481_0)" +"(let-values(((exp-body482_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body481_0" +" exp-body482_0" " ids_40" -" phase_45" +" phase_151" " requires+provides_7))" "(values))))" "(let-values(((syms_24)" -"(let-values(((frame-id488_0)" +"(let-values(((frame-id489_0)" " frame-id_17)" -"((requires+provides489_0)" +"((requires+provides490_0)" " requires+provides_7)" -"((exp-body490_0)" +"((exp-body491_0)" " exp-body_7))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id488_0" -" exp-body490_0" +" frame-id489_0" +" exp-body491_0" " #t" -" requires+provides489_0" +" requires+provides490_0" " #t" " #f" " #f" " ids_40" " defined-syms_11" -" self_31" -" phase_45" +" self_32" +" phase_151" " all-scopes-stx_5))))" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_45)" -"(let-values(((obs_141)" +" phase_151)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_141" +" obs_140" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-values466_0" +" define-values467_0" " ids_40" -" rhs468_0)" +" rhs469_0)" " exp-body_7))))" "(void)))" "(cons" @@ -71829,7 +71903,7 @@ static const char *startup_source = " exp-body_7" " syms_24" " ids_40" -" rhs468_0)" +" rhs469_0)" "(loop_128" " tail?_53" " rest-bodys_1))))))))))" @@ -71839,22 +71913,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_141" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_142" +" obs_141" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_142" +" obs_141" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_142" +" obs_141" " 'prepare-env))))" "(void)))" "(values))))" @@ -71865,69 +71939,69 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_143)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_143" +" obs_142" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_77" -" define-syntaxes491_0" -" id492_0" -" rhs493_0)" -"(let-values(((s_756)" +"(let-values(((ok?_78" +" define-syntaxes492_0" +" id493_0" +" rhs494_0)" +"(let-values(((s_776)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_756))" -"(let-values(((define-syntaxes491_1" -" id492_1" -" rhs493_1)" -"(let-values(((s_757)" +" s_776))" +"(let-values(((define-syntaxes492_1" +" id493_1" +" rhs494_1)" +"(let-values(((s_777)" "(if(syntax?$1" -" s_756)" +" s_776)" "(syntax-e$1" -" s_756)" -" s_756)))" +" s_776)" +" s_776)))" "(if(pair?" -" s_757)" -"(let-values(((define-syntaxes494_0)" -"(let-values(((s_758)" +" s_777)" +"(let-values(((define-syntaxes495_0)" +"(let-values(((s_778)" "(car" -" s_757)))" -" s_758))" -"((id495_0" -" rhs496_0)" -"(let-values(((s_759)" -"(cdr" -" s_757)))" +" s_777)))" +" s_778))" +"((id496_0" +" rhs497_0)" "(let-values(((s_535)" +"(cdr" +" s_777)))" +"(let-values(((s_779)" "(if(syntax?$1" -" s_759)" -"(syntax-e$1" -" s_759)" -" s_759)))" -"(if(pair?" " s_535)" -"(let-values(((id497_0)" -"(let-values(((s_536)" -"(car" -" s_535)))" -"(let-values(((s_537)" -"(if(syntax?$1" -" s_536)" "(syntax-e$1" -" s_536)" -" s_536)))" -"(let-values(((flat-s_56)" -"(to-syntax-list.1" +" s_535)" +" s_535)))" +"(if(pair?" +" s_779)" +"(let-values(((id498_0)" +"(let-values(((s_537)" +"(car" +" s_779)))" +"(let-values(((s_538)" +"(if(syntax?$1" +" s_537)" +"(syntax-e$1" +" s_537)" " s_537)))" +"(let-values(((flat-s_40)" +"(to-syntax-list.1" +" s_538)))" "(if(not" -" flat-s_56)" +" flat-s_40)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -71935,218 +72009,218 @@ static const char *startup_source = " orig-s_85))" "(let-values()" "(let-values(((id_150)" -"(let-values(((lst_416)" -" flat-s_56))" +"(let-values(((lst_417)" +" flat-s_40))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_416)))" -"((letrec-values(((for-loop_314)" +" lst_417)))" +"((letrec-values(((for-loop_315)" "(lambda(id_151" -" lst_417)" +" lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_417)" -"(let-values(((s_760)" +" lst_418)" +"(let-values(((s_780)" "(unsafe-car" -" lst_417))" +" lst_418))" "((rest_248)" "(unsafe-cdr" -" lst_417)))" +" lst_418)))" "(let-values(((id_152)" "(let-values(((id_153)" " id_151))" "(let-values(((id_154)" "(let-values()" -"(let-values(((id507_0)" +"(let-values(((id508_0)" "(let-values()" "(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_760)" +" s_780)" "(symbol?" "(syntax-e$1" -" s_760))" +" s_780))" " #f)))" "(if or-part_395" " or-part_395" "(symbol?" -" s_760)))" -" s_760" +" s_780)))" +" s_780" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_85" -" s_760)))))" +" s_780)))))" "(cons" -" id507_0" +" id508_0" " id_153)))))" "(values" " id_154)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_315" " id_152" " rest_248)" " id_152)))" " id_151)))))" -" for-loop_314)" +" for-loop_315)" " null" -" lst_416)))))" +" lst_417)))))" "(reverse$1" " id_150))))))))" -"((rhs498_0)" -"(let-values(((s_761)" +"((rhs499_0)" +"(let-values(((s_781)" "(cdr" -" s_535)))" -"(let-values(((s_762)" +" s_779)))" +"(let-values(((s_782)" "(if(syntax?$1" -" s_761)" +" s_781)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_781)" +" s_781)))" "(if(pair?" -" s_762)" -"(let-values(((rhs499_0)" -"(let-values(((s_763)" +" s_782)" +"(let-values(((rhs500_0)" +"(let-values(((s_783)" "(car" -" s_762)))" -" s_763))" +" s_782)))" +" s_783))" "(()" -"(let-values(((s_764)" +"(let-values(((s_784)" "(cdr" -" s_762)))" -"(let-values(((s_765)" +" s_782)))" +"(let-values(((s_785)" "(if(syntax?$1" -" s_764)" +" s_784)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_784)" +" s_784)))" "(if(null?" -" s_765)" +" s_785)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85))))))" "(values" -" rhs499_0))" +" rhs500_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85))))))" "(values" -" id497_0" -" rhs498_0))" +" id498_0" +" rhs499_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85))))))" "(values" -" define-syntaxes494_0" -" id495_0" -" rhs496_0))" +" define-syntaxes495_0" +" id496_0" +" rhs497_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85)))))" "(values" " #t" -" define-syntaxes491_1" -" id492_1" -" rhs493_1))))))" +" define-syntaxes492_1" +" id493_1" +" rhs494_1))))))" "(let-values(((ids_41)" "(remove-use-site-scopes" -" id492_0" +" id493_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids500_0)" +"(let-values(((ids501_0)" " ids_41)" -"((phase501_0)" -" phase_45)" -"((exp-body502_0)" +"((phase502_0)" +" phase_151)" +"((exp-body503_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" " #f" " #f" -" ids500_0" -" phase501_0" -" exp-body502_0" +" ids501_0" +" phase502_0" +" exp-body503_0" " #f" " #f))" "(values))))" "(let-values((()" "(begin" -"(let-values(((exp-body506_0)" +"(let-values(((exp-body507_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body506_0" +" exp-body507_0" " ids_41" -" phase_45" +" phase_151" " requires+provides_7))" "(values))))" "(let-values(((syms_25)" -"(let-values(((frame-id513_0)" +"(let-values(((frame-id514_0)" " frame-id_17)" -"((requires+provides514_0)" +"((requires+provides515_0)" " requires+provides_7)" -"((exp-body515_0)" +"((exp-body516_0)" " exp-body_7)" -"((temp516_0)" +"((temp517_0)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp516_0" +" temp517_0" " #t" -" frame-id513_0" -" exp-body515_0" +" frame-id514_0" +" exp-body516_0" " #t" -" requires+provides514_0" +" requires+provides515_0" " #t" " #f" " #f" " ids_41" " defined-syms_11" -" self_31" -" phase_45" +" self_32" +" phase_151" " all-scopes-stx_5))))" "(let-values((()" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_45)" +" phase_151)" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp517_0)" -" rhs493_0)" -"((ids518_0)" +"(let-values(((temp518_0)" +" rhs494_0)" +"((ids519_0)" " ids_41)" -"((temp519_0)" +"((temp520_0)" "(let-values(((v_260)" " partial-body-ctx_1))" "(let-values(((the-struct_113)" " v_260))" "(if(expand-context/outer?" " the-struct_113)" -"(let-values(((need-eventually-defined521_0)" +"(let-values(((need-eventually-defined522_0)" " need-eventually-defined_2)" -"((inner522_0)" +"((inner523_0)" "(let-values(((the-struct_114)" "(root-expand-context/outer-inner" " v_260)))" "(if(expand-context/inner?" " the-struct_114)" -"(let-values(((lifts523_0)" +"(let-values(((lifts524_0)" " #f)" -"((module-lifts524_0)" +"((module-lifts525_0)" " #f)" -"((to-module-lifts525_0)" +"((to-module-lifts526_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -72179,13 +72253,13 @@ static const char *startup_source = " the-struct_114)" "(expand-context/inner-declared-submodule-names" " the-struct_114)" -" lifts523_0" +" lifts524_0" "(expand-context/inner-lift-envs" " the-struct_114)" -" module-lifts524_0" +" module-lifts525_0" "(expand-context/inner-require-lifts" " the-struct_114)" -" to-module-lifts525_0" +" to-module-lifts526_0" "(expand-context/inner-requires+provides" " the-struct_114)" "(expand-context/inner-observer" @@ -72199,7 +72273,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_114)))))" "(expand-context/outer1.1" -" inner522_0" +" inner523_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_113)" "(root-expand-context/outer-use-site-scopes" @@ -72222,7 +72296,7 @@ static const char *startup_source = " the-struct_113)" "(expand-context/outer-only-immediate?" " the-struct_113)" -" need-eventually-defined521_0" +" need-eventually-defined522_0" "(expand-context/outer-current-introduction-scopes" " the-struct_113)" "(expand-context/outer-name" @@ -72231,21 +72305,21 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_113)))))" -"((temp520_0)" +"((temp521_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" -" temp520_0" +" temp521_0" " #t" -" temp517_0" -" ids518_0" -" temp519_0))))" +" temp518_0" +" ids519_0" +" temp520_0))))" "(let-values((()" "(begin" -"(let-values(((lst_418)" +"(let-values(((lst_419)" " syms_25)" -"((lst_419)" -" vals_10)" "((lst_420)" +" vals_10)" +"((lst_421)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72253,12 +72327,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_418)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_419)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -72266,38 +72334,44 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_420)))" -"((letrec-values(((for-loop_315)" -"(lambda(lst_421" -" lst_422" -" lst_423)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_421)))" +"((letrec-values(((for-loop_316)" +"(lambda(lst_422" +" lst_423" +" lst_424)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_421)" -"(if(pair?" " lst_422)" -"(pair?" +"(if(pair?" " lst_423)" +"(pair?" +" lst_424)" " #f)" " #f)" "(let-values(((sym_105)" "(unsafe-car" -" lst_421))" +" lst_422))" "((rest_249)" "(unsafe-cdr" -" lst_421))" +" lst_422))" "((val_86)" "(unsafe-car" -" lst_422))" +" lst_423))" "((rest_250)" "(unsafe-cdr" -" lst_422))" +" lst_423))" "((id_155)" "(unsafe-car" -" lst_423))" +" lst_424))" "((rest_251)" "(unsafe-cdr" -" lst_423)))" +" lst_424)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72308,44 +72382,44 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_86" " id_155" -" phase_45" +" phase_151" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_45" +" phase_151" " sym_105" " val_86)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_316" " rest_249" " rest_250" " rest_251)" "(values))))" "(values))))))" -" for-loop_315)" -" lst_418" +" for-loop_316)" " lst_419" -" lst_420)))" +" lst_420" +" lst_421)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_98)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_98" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_98" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes491_0" +" define-syntaxes492_0" " ids_41" " exp-rhs_6)))))" "(void)))" @@ -72362,18 +72436,18 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body526_0)" +"(let-values(((exp-body527_0)" " exp-body_7)" -"((temp527_0)" +"((temp528_0)" "(list" -" define-syntaxes491_0" +" define-syntaxes492_0" " ids_41" " exp-rhs_6)))" "(rebuild5.1" " #f" " #f" -" exp-body526_0" -" temp527_0))" +" exp-body527_0" +" temp528_0))" " parsed-body_0))" "(loop_128" " tail?_53" @@ -72384,19 +72458,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_145)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_143" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_145" +" obs_143" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_145" +" obs_143" " 'prim-require))))" "(void)))" "(values))))" @@ -72404,113 +72478,113 @@ static const char *startup_source = "(remove-use-site-scopes" " disarmed-exp-body_1" " partial-body-ctx_1)))" -"(let-values(((ok?_78" -" #%require528_0" -" req529_0)" -"(let-values(((s_766)" +"(let-values(((ok?_79" +" #%require529_0" +" req530_0)" +"(let-values(((s_786)" " ready-body_0))" "(let-values(((orig-s_86)" -" s_766))" -"(let-values(((#%require528_1" -" req529_1)" -"(let-values(((s_767)" +" s_786))" +"(let-values(((#%require529_1" +" req530_1)" +"(let-values(((s_787)" "(if(syntax?$1" -" s_766)" +" s_786)" "(syntax-e$1" -" s_766)" -" s_766)))" +" s_786)" +" s_786)))" "(if(pair?" -" s_767)" -"(let-values(((#%require530_0)" -"(let-values(((s_768)" +" s_787)" +"(let-values(((#%require531_0)" +"(let-values(((s_788)" "(car" -" s_767)))" -" s_768))" -"((req531_0)" -"(let-values(((s_769)" +" s_787)))" +" s_788))" +"((req532_0)" +"(let-values(((s_789)" "(cdr" -" s_767)))" -"(let-values(((s_770)" +" s_787)))" +"(let-values(((s_790)" "(if(syntax?$1" -" s_769)" +" s_789)" "(syntax-e$1" -" s_769)" -" s_769)))" -"(let-values(((flat-s_57)" +" s_789)" +" s_789)))" +"(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_770)))" +" s_790)))" "(if(not" -" flat-s_57)" +" flat-s_56)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86))" "(let-values()" -" flat-s_57)))))))" +" flat-s_56)))))))" "(values" -" #%require530_0" -" req531_0))" +" #%require531_0" +" req532_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86)))))" "(values" " #t" -" #%require528_1" -" req529_1))))))" +" #%require529_1" +" req530_1))))))" "(begin" -"(let-values(((temp532_0)" -" req529_0)" -"((exp-body533_0)" +"(let-values(((temp533_0)" +" req530_0)" +"((exp-body534_0)" " exp-body_7)" -"((self534_0)" -" self_31)" -"((m-ns535_0)" +"((self535_0)" +" self_32)" +"((m-ns536_0)" " m-ns_20)" -"((phase536_0)" -" phase_45)" "((phase537_0)" -" phase_45)" -"((requires+provides538_0)" +" phase_151)" +"((phase538_0)" +" phase_151)" +"((requires+provides539_0)" " requires+provides_7)" -"((declared-submodule-names539_0)" +"((declared-submodule-names540_0)" " declared-submodule-names_4)" -"((temp540_0)" +"((temp541_0)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names539_0" +" declared-submodule-names540_0" " #t" " #f" " #f" +" phase538_0" +" #t" +" #f" +" #f" +" self535_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp541_0" +" temp533_0" +" exp-body534_0" +" m-ns536_0" " phase537_0" -" #t" -" #f" -" #f" -" self534_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp540_0" -" temp532_0" -" exp-body533_0" -" m-ns535_0" -" phase536_0" -" requires+provides538_0))" -"(let-values(((obs_146)" +" requires+provides539_0))" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_144" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_146" +" obs_144" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -72537,32 +72611,32 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((temp544_0)" +"(let-values(((temp545_0)" " #f)" -"((declared-submodule-names545_0)" +"((declared-submodule-names546_0)" " declared-submodule-names_4)" -"((mpis-to-reset546_0)" +"((mpis-to-reset547_0)" " mpis-to-reset_1)" -"((compiled-submodules547_0)" +"((compiled-submodules548_0)" " compiled-submodules_2)" -"((modules-being-compiled548_0)" +"((modules-being-compiled549_0)" " modules-being-compiled_4))" "(expand-submodule197.1" -" compiled-submodules547_0" -" declared-submodule-names545_0" +" compiled-submodules548_0" +" declared-submodule-names546_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp544_0" +" temp545_0" " #f" " #f" -" modules-being-compiled548_0" -" mpis-to-reset546_0" +" modules-being-compiled549_0" +" mpis-to-reset547_0" " ready-body_1" -" self_31" +" self_32" " partial-body-ctx_1))))" "(cons" " submod_2" @@ -72574,22 +72648,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_145" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_147" +" obs_145" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_147" +" obs_145" " 'prim-submodule*)" "(call-expand-observe" -" obs_147" +" obs_145" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -72602,84 +72676,84 @@ static const char *startup_source = " tmp_65" " '#%declare)" "(let-values()" -"(let-values(((ok?_79" -" #%declare549_0" -" kw550_0)" -"(let-values(((s_561)" +"(let-values(((ok?_80" +" #%declare550_0" +" kw551_0)" +"(let-values(((s_791)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_561))" -"(let-values(((#%declare549_1" -" kw550_1)" -"(let-values(((s_563)" +" s_791))" +"(let-values(((#%declare550_1" +" kw551_1)" +"(let-values(((s_564)" "(if(syntax?$1" -" s_561)" +" s_791)" "(syntax-e$1" -" s_561)" -" s_561)))" +" s_791)" +" s_791)))" "(if(pair?" -" s_563)" -"(let-values(((#%declare551_0)" -"(let-values(((s_565)" -"(car" -" s_563)))" -" s_565))" -"((kw552_0)" +" s_564)" +"(let-values(((#%declare552_0)" "(let-values(((s_566)" -"(cdr" -" s_563)))" +"(car" +" s_564)))" +" s_566))" +"((kw553_0)" "(let-values(((s_567)" +"(cdr" +" s_564)))" +"(let-values(((s_568)" "(if(syntax?$1" -" s_566)" +" s_567)" "(syntax-e$1" -" s_566)" -" s_566)))" -"(let-values(((flat-s_58)" -"(to-syntax-list.1" +" s_567)" " s_567)))" +"(let-values(((flat-s_57)" +"(to-syntax-list.1" +" s_568)))" "(if(not" -" flat-s_58)" +" flat-s_57)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87))" "(let-values()" -" flat-s_58)))))))" +" flat-s_57)))))))" "(values" -" #%declare551_0" -" kw552_0))" +" #%declare552_0" +" kw553_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_87)))))" "(values" " #t" -" #%declare549_1" -" kw550_1))))))" +" #%declare550_1" +" kw551_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_424)" -" kw550_0))" +"(let-values(((lst_425)" +" kw551_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_424)))" -"((letrec-values(((for-loop_316)" -"(lambda(lst_425)" +" lst_425)))" +"((letrec-values(((for-loop_317)" +"(lambda(lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" +" lst_426)" "(let-values(((kw_1)" "(unsafe-car" -" lst_425))" +" lst_426))" "((rest_252)" "(unsafe-cdr" -" lst_425)))" +" lst_426)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72730,12 +72804,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_317" " rest_252)" "(values))))" "(values))))))" -" for-loop_316)" -" lst_424)))" +" for-loop_317)" +" lst_425)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -72780,66 +72854,66 @@ static const char *startup_source = " bodys_20))))))))))))))))))))))" "(define-values" "(make-wrap-as-definition)" -"(lambda(self_32 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" +"(lambda(self_33 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_42 rhs_23 phase_151)" +"(lambda(ids_42 rhs_23 phase_152)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_426) ids_42))" +"(let-values(((lst_427) ids_42))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_426)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_363 lst_427)" +"(let-values()(check-list lst_427)))" +"((letrec-values(((for-loop_318)" +"(lambda(fold-var_364 lst_428)" "(begin" " 'for-loop" -"(if(pair? lst_427)" -"(let-values(((id_156)(unsafe-car lst_427))" -"((rest_253)(unsafe-cdr lst_427)))" -"(let-values(((fold-var_364)" -"(let-values(((fold-var_365) fold-var_363))" -"(let-values(((fold-var_366)" +"(if(pair? lst_428)" +"(let-values(((id_156)(unsafe-car lst_428))" +"((rest_253)(unsafe-cdr lst_428)))" +"(let-values(((fold-var_365)" +"(let-values(((fold-var_366) fold-var_364))" +"(let-values(((fold-var_367)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_156" " inside-scope_2))" -" fold-var_365))))" -"(values fold-var_366)))))" -"(if(not #f)(for-loop_317 fold-var_364 rest_253) fold-var_364)))" -" fold-var_363)))))" -" for-loop_317)" +" fold-var_366))))" +"(values fold-var_367)))))" +"(if(not #f)(for-loop_318 fold-var_365 rest_253) fold-var_365)))" +" fold-var_364)))))" +" for-loop_318)" " null" -" lst_426))))))" +" lst_427))))))" "(let-values(((syms_26)" -"(let-values(((frame-id558_0) frame-id_18)((requires+provides559_0) requires+provides_8))" +"(let-values(((frame-id559_0) frame-id_18)((requires+provides560_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id558_0" +" frame-id559_0" " #f" " #f" -" requires+provides559_0" +" requires+provides560_0" " #t" " #f" " #f" " scoped-ids_0" " defined-syms_12" -" self_32" -" phase_151" +" self_33" +" phase_152" " all-scopes-stx_6))))" -"(let-values(((s_284)" +"(let-values(((s_792)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_151) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_152) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_284 syms_26 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_792 syms_26 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_111)" @@ -72847,28 +72921,28 @@ static const char *startup_source = "(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_111)))" "(if sc_34" "(reverse$1" -"(let-values(((lst_428) bodys_23))" +"(let-values(((lst_429) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_428)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_367 lst_429)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_429)))" +"((letrec-values(((for-loop_319)" +"(lambda(fold-var_368 lst_430)" "(begin" " 'for-loop" -"(if(pair? lst_429)" -"(let-values(((body_23)(unsafe-car lst_429))((rest_254)(unsafe-cdr lst_429)))" -"(let-values(((fold-var_368)" -"(let-values(((fold-var_369) fold-var_367))" -"(let-values(((fold-var_370)" +"(if(pair? lst_430)" +"(let-values(((body_23)(unsafe-car lst_430))((rest_254)(unsafe-cdr lst_430)))" +"(let-values(((fold-var_369)" +"(let-values(((fold-var_370) fold-var_368))" +"(let-values(((fold-var_371)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_34))" -" fold-var_369))))" -"(values fold-var_370)))))" -"(if(not #f)(for-loop_318 fold-var_368 rest_254) fold-var_368)))" -" fold-var_367)))))" -" for-loop_318)" +" fold-var_370))))" +"(values fold-var_371)))))" +"(if(not #f)(for-loop_319 fold-var_369 rest_254) fold-var_369)))" +" fold-var_368)))))" +" for-loop_319)" " null" -" lst_428))))" +" lst_429))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -72883,9 +72957,9 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_152) phase84_0))" +"(let-values(((phase_153) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" -"(let-values(((self_33) self86_0))" +"(let-values(((self_34) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" "(let-values(((compiled-submodules_3) compiled-submodules88_0))" "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" @@ -72897,15 +72971,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_152)) #f)" +"(if(if tail?_54(not(zero? phase_153)) #f)" "(let-values()" "(begin" -"(let-values(((obs_148)(expand-context-observer body-ctx_7)))" -"(if obs_148" +"(let-values(((obs_146)(expand-context-observer body-ctx_7)))" +"(if obs_146" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_148" +" obs_146" " 'module-lift-end-loop" " '())))" "(void)))" @@ -72921,13 +72995,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_147)" "(expand-context-observer body-ctx_7)))" -"(if obs_149" +"(if obs_147" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_147" " 'module-lift-end-loop" " '())))" "(void)))" @@ -72940,12 +73014,12 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_148)" "(expand-context-observer body-ctx_7)))" -"(if obs_150" +"(if obs_148" "(let-values()" "(let-values()" -"(call-expand-observe obs_150 'next)))" +"(call-expand-observe obs_148 'next)))" "(void)))" "(values))))" "(let-values(((body_24)(car bodys_24)))" @@ -72975,134 +73049,134 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_299)" +"(let-values(((s_300)" "(semi-parsed-define-values-s" " body_24)))" -"(let-values(((ok?_80" -" define-values560_0" -" _561_0" -" _562_0)" -"(let-values(((s_771)" +"(let-values(((ok?_81" +" define-values561_0" +" _562_0" +" _563_0)" +"(let-values(((s_793)" "(syntax-disarm$1" -" s_299)))" +" s_300)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_88)" -" s_771))" -"(let-values(((define-values560_1" -" _561_1" -" _562_1)" -"(let-values(((s_772)" +" s_793))" +"(let-values(((define-values561_1" +" _562_1" +" _563_1)" +"(let-values(((s_794)" "(if(syntax?$1" -" s_771)" +" s_793)" "(syntax-e$1" -" s_771)" -" s_771)))" +" s_793)" +" s_793)))" "(if(pair?" -" s_772)" -"(let-values(((define-values563_0)" -"(let-values(((s_603)" +" s_794)" +"(let-values(((define-values564_0)" +"(let-values(((s_795)" "(car" -" s_772)))" -" s_603))" -"((_564_0" -" _565_0)" -"(let-values(((s_773)" +" s_794)))" +" s_795))" +"((_565_0" +" _566_0)" +"(let-values(((s_796)" "(cdr" -" s_772)))" -"(let-values(((s_774)" +" s_794)))" +"(let-values(((s_797)" "(if(syntax?$1" -" s_773)" +" s_796)" "(syntax-e$1" -" s_773)" -" s_773)))" +" s_796)" +" s_796)))" "(if(pair?" -" s_774)" -"(let-values(((_566_0)" -"(let-values(((s_606)" +" s_797)" +"(let-values(((_567_0)" +"(let-values(((s_798)" "(car" -" s_774)))" -" s_606))" -"((_567_0)" -"(let-values(((s_775)" +" s_797)))" +" s_798))" +"((_568_0)" +"(let-values(((s_799)" "(cdr" -" s_774)))" -"(let-values(((s_607)" +" s_797)))" +"(let-values(((s_800)" "(if(syntax?$1" -" s_775)" +" s_799)" "(syntax-e$1" -" s_775)" -" s_775)))" +" s_799)" +" s_799)))" "(if(pair?" -" s_607)" -"(let-values(((_568_0)" -"(let-values(((s_609)" +" s_800)" +"(let-values(((_569_0)" +"(let-values(((s_801)" "(car" -" s_607)))" -" s_609))" +" s_800)))" +" s_801))" "(()" -"(let-values(((s_776)" +"(let-values(((s_802)" "(cdr" -" s_607)))" -"(let-values(((s_777)" +" s_800)))" +"(let-values(((s_803)" "(if(syntax?$1" -" s_776)" +" s_802)" "(syntax-e$1" -" s_776)" -" s_776)))" +" s_802)" +" s_802)))" "(if(null?" -" s_777)" +" s_803)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" _568_0))" +" _569_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" _566_0" -" _567_0))" +" _567_0" +" _568_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" define-values563_0" -" _564_0" -" _565_0))" +" define-values564_0" +" _565_0" +" _566_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88)))))" "(values" " #t" -" define-values560_1" -" _561_1" -" _562_1)))" +" define-values561_1" +" _562_1" +" _563_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((temp571_0)" +"(let-values(((temp572_0)" " #t))" "(keep-as-needed74.1" " #f" " #f" " #f" " #f" -" temp571_0" +" temp572_0" " #t" " rhs-ctx_2" -" s_299))))" +" s_300))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -73111,18 +73185,18 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp572_0)" +"(let-values(((temp573_0)" "(semi-parsed-define-values-rhs" " body_24))" -"((rhs-ctx573_0)" +"((rhs-ctx574_0)" " rhs-ctx_2))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp572_0" -" rhs-ctx573_0)))))" +" temp573_0" +" rhs-ctx574_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -73138,9 +73212,9 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs574_0)" +"(let-values(((exp-rhs575_0)" " exp-rhs_7)" -"((temp575_0)" +"((temp576_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand7.1" @@ -73148,24 +73222,24 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-rhs574_0" -" temp575_0))))))" +" exp-rhs575_0" +" temp576_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s576_0)" +"(let-values(((rebuild-s577_0)" " rebuild-s_15)" -"((temp577_0)" +"((temp578_0)" "(list" -" define-values560_0" +" define-values561_0" " ids_43" " exp-rhs_7)))" "(rebuild5.1" " #f" " #f" -" rebuild-s576_0" -" temp577_0))" +" rebuild-s577_0" +" temp578_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" @@ -73173,7 +73247,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_152)))" +" phase_153)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -73183,9 +73257,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body578_0)" +"(let-values(((body579_0)" " body_24)" -"((temp579_0)" +"((temp580_0)" "(as-expression-context" " body-ctx_7)))" "(expand7.1" @@ -73193,16 +73267,16 @@ static const char *startup_source = " #f" " #f" " #f" -" body578_0" -" temp579_0))))" +" body579_0" +" temp580_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body580_0)" +"(let-values(((exp-body581_0)" " exp-body_9)" -"((temp581_0)" +"((temp582_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand7.1" @@ -73210,8 +73284,8 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-body580_0" -" temp581_0)))))))))))))))" +" exp-body581_0" +" temp582_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -73232,14 +73306,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_151)" +"(let-values(((obs_103)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_151" +"(if obs_103" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_103" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -73251,22 +73325,22 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((mpis-to-reset586_0)" +"(let-values(((mpis-to-reset587_0)" " mpis-to-reset_2)" -"((declared-submodule-names587_0)" +"((declared-submodule-names588_0)" " declared-submodule-names_5)" -"((compiled-submodules588_0)" +"((compiled-submodules589_0)" " compiled-submodules_3)" -"((modules-being-compiled589_0)" +"((modules-being-compiled590_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules588_0" -" declared-submodule-names587_0" -" modules-being-compiled589_0" -" mpis-to-reset586_0" +" compiled-submodules589_0" +" declared-submodule-names588_0" +" modules-being-compiled590_0" +" mpis-to-reset587_0" " lifted-modules_0" -" phase_152" -" self_33" +" phase_153" +" self_34" " body-ctx_7))))" "(let-values(((exp-lifted-defns_0)" "(loop_129 #f lifted-defns_1)))" @@ -73274,14 +73348,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_152)" +"(let-values(((obs_149)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_152" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_149" " 'next)))" "(void)))))" "(append" @@ -73298,18 +73372,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_34 ctx_112)" +"(lambda(need-eventually-defined_3 self_35 ctx_112)" "(begin" "(begin" "(let-values(((ht_164) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_320)" "(lambda(i_193)" "(begin" " 'for-loop" "(if i_193" -"(let-values(((phase_153 l_85)(hash-iterate-key+value ht_164 i_193)))" +"(let-values(((phase_154 l_85)(hash-iterate-key+value ht_164 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73317,24 +73391,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_430) l_85))" +"(let-values(((lst_431) l_85))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_430)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_431)" +"(let-values()(check-list lst_431)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_432)" "(begin" " 'for-loop" "(if(pair?" -" lst_431)" +" lst_432)" "(let-values(((id_157)" "(unsafe-car" -" lst_431))" +" lst_432))" "((rest_255)" "(unsafe-cdr" -" lst_431)))" +" lst_432)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73342,10 +73416,10 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_93)" -"(let-values(((id590_0)" +"(let-values(((id591_0)" " id_157)" -"((phase591_0)" -" phase_153))" +"((phase592_0)" +" phase_154))" "(resolve+shift30.1" " #f" " #f" @@ -73357,8 +73431,8 @@ static const char *startup_source = " #f" " #f" " #f" -" id590_0" -" phase591_0))))" +" id591_0" +" phase592_0))))" "(if(if b_93" "(if(module-binding?" " b_93)" @@ -73370,7 +73444,7 @@ static const char *startup_source = "(eq?" "(module-binding-module" " b_93)" -" self_34)" +" self_35)" " #f)" " #f)" " #f)" @@ -73388,18 +73462,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_320" +"(for-loop_321" " rest_255)" "(values))))" "(values))))))" -" for-loop_320)" -" lst_430)))" +" for-loop_321)" +" lst_431)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319(hash-iterate-next ht_164 i_193))(values))))" +"(if(not #f)(for-loop_320(hash-iterate-next ht_164 i_193))(values))))" "(values))))))" -" for-loop_319)" +" for-loop_320)" "(hash-iterate-first ht_164))))" "(void)))))" "(define-values" @@ -73417,13 +73491,13 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_154) phase105_0))" -"(let-values(((self_35) self106_0))" +"(let-values(((phase_155) phase105_0))" +"(let-values(((self_36) self106_0))" "(let-values(((ctx_113) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_130)" -"(lambda(bodys_26 phase_155)" +"(lambda(bodys_26 phase_156)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -73431,128 +73505,128 @@ static const char *startup_source = "(if(let-values(((or-part_398)(parsed?(car bodys_26))))" "(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_155)))" +"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_156)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_130" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_155))))" +"(add1 phase_156))))" "(cons" "(let-values(((the-struct_115)(car bodys_26)))" "(if(semi-parsed-begin-for-syntax? the-struct_115)" -"(let-values(((body592_0) nested-bodys_2))" +"(let-values(((body593_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" "(semi-parsed-begin-for-syntax-s the-struct_115)" -" body592_0))" +" body593_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" " the-struct_115)))" -"(loop_130(cdr bodys_26) phase_155))))" +"(loop_130(cdr bodys_26) phase_156))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_67)" -"(core-form-sym disarmed-body_1 phase_155)))" +"(core-form-sym disarmed-body_1 phase_156)))" "(if(equal? tmp_67 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_150)" "(expand-context-observer" " ctx_113)))" -"(if obs_153" +"(if obs_150" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_153" +" obs_150" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_153" +" obs_150" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_81 #%provide593_0 spec594_0)" -"(let-values(((s_622) disarmed-body_1))" -"(let-values(((orig-s_89) s_622))" -"(let-values(((#%provide593_1" -" spec594_1)" -"(let-values(((s_625)" +"(let-values(((ok?_82 #%provide594_0 spec595_0)" +"(let-values(((s_804) disarmed-body_1))" +"(let-values(((orig-s_89) s_804))" +"(let-values(((#%provide594_1" +" spec595_1)" +"(let-values(((s_805)" "(if(syntax?$1" -" s_622)" +" s_804)" "(syntax-e$1" -" s_622)" -" s_622)))" -"(if(pair? s_625)" -"(let-values(((#%provide595_0)" -"(let-values(((s_778)" +" s_804)" +" s_804)))" +"(if(pair? s_805)" +"(let-values(((#%provide596_0)" +"(let-values(((s_806)" "(car" -" s_625)))" -" s_778))" -"((spec596_0)" -"(let-values(((s_779)" +" s_805)))" +" s_806))" +"((spec597_0)" +"(let-values(((s_807)" "(cdr" -" s_625)))" -"(let-values(((s_780)" +" s_805)))" +"(let-values(((s_808)" "(if(syntax?$1" -" s_779)" +" s_807)" "(syntax-e$1" -" s_779)" -" s_779)))" -"(let-values(((flat-s_59)" +" s_807)" +" s_807)))" +"(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_780)))" +" s_808)))" "(if(not" -" flat-s_59)" +" flat-s_58)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89))" "(let-values()" -" flat-s_59)))))))" +" flat-s_58)))))))" "(values" -" #%provide595_0" -" spec596_0))" +" #%provide596_0" +" spec597_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89)))))" "(values" " #t" -" #%provide593_1" -" spec594_1))))))" +" #%provide594_1" +" spec595_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec594_0" +" spec595_0" "(car bodys_26)" " requires+provides_9" -" self_35" -" phase_155" +" self_36" +" phase_156" "(let-values(((v_261) ctx_113))" "(let-values(((the-struct_116)" " v_261))" "(if(expand-context/outer?" " the-struct_116)" -"(let-values(((context597_0)" +"(let-values(((context598_0)" " 'top-level)" -"((inner598_0)" +"((inner599_0)" "(let-values(((the-struct_117)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" " the-struct_117)" -"(let-values(((phase599_0)" -" phase_155)" -"((namespace600_0)" +"(let-values(((phase600_0)" +" phase_156)" +"((namespace601_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_155))" -"((requires+provides601_0)" +" phase_156))" +"((requires+provides602_0)" " requires+provides_9)" -"((declared-submodule-names602_0)" +"((declared-submodule-names603_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -73569,8 +73643,8 @@ static const char *startup_source = " the-struct_117)" "(expand-context/inner-to-parsed?" " the-struct_117)" -" phase599_0" -" namespace600_0" +" phase600_0" +" namespace601_0" "(expand-context/inner-just-once?" " the-struct_117)" "(expand-context/inner-module-begin-k" @@ -73581,7 +73655,7 @@ static const char *startup_source = " the-struct_117)" "(expand-context/inner-stops" " the-struct_117)" -" declared-submodule-names602_0" +" declared-submodule-names603_0" "(expand-context/inner-lifts" " the-struct_117)" "(expand-context/inner-lift-envs" @@ -73592,7 +73666,7 @@ static const char *startup_source = " the-struct_117)" "(expand-context/inner-to-module-lifts" " the-struct_117)" -" requires+provides601_0" +" requires+provides602_0" "(expand-context/inner-observer" " the-struct_117)" "(expand-context/inner-for-serializable?" @@ -73604,14 +73678,14 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_117)))))" "(expand-context/outer1.1" -" inner598_0" +" inner599_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_116)" "(root-expand-context/outer-use-site-scopes" " the-struct_116)" "(root-expand-context/outer-frame-id" " the-struct_116)" -" context597_0" +" context598_0" "(expand-context/outer-env" " the-struct_116)" "(expand-context/outer-post-expansion-scope-action" @@ -73637,34 +73711,34 @@ static const char *startup_source = " \"expand-context/outer?\"" " the-struct_116)))))))" "(begin" -"(let-values(((obs_154)" +"(let-values(((obs_151)" "(expand-context-observer ctx_113)))" -"(if obs_154" +"(if obs_151" "(let-values()" "(let-values()" -"(call-expand-observe obs_154 'exit-prim)))" +"(call-expand-observe obs_151 'exit-prim)))" "(void)))" "(if(expand-context-to-parsed? ctx_113)" "(let-values()" -"(loop_130(cdr bodys_26) phase_155))" +"(loop_130(cdr bodys_26) phase_156))" "(let-values()" "(cons" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp603_0)(car bodys_26))" -"((temp604_0)" +"(let-values(((temp604_0)(car bodys_26))" +"((temp605_0)" "(list*" -" #%provide593_0" +" #%provide594_0" " specs_2)))" -"(rebuild5.1 #f #f temp603_0 temp604_0)))" -"(loop_130(cdr bodys_26) phase_155)))))))))" +"(rebuild5.1 #f #f temp604_0 temp605_0)))" +"(loop_130(cdr bodys_26) phase_156)))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_130(cdr bodys_26) phase_155))))))))))))))" +"(loop_130(cdr bodys_26) phase_156))))))))))))))" " loop_130)" " expression-expanded-bodys_1" -" phase_154)))))))))))))" +" phase_155)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -73685,7 +73759,7 @@ static const char *startup_source = "(let-values(((rebuild-s_16) rebuild-s119_0))" "(let-values(((requires+provides_10) requires-and-provides120_0))" "(let-values(((m-ns_22) namespace121_0))" -"(let-values(((self_36) self122_0))" +"(let-values(((self_37) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" "(let-values(((ctx_114) ctx125_0))" @@ -73693,62 +73767,62 @@ static const char *startup_source = "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" "(let-values(((requires_7 provides_14)" -"(extract-requires-and-provides requires+provides_10 self_36 self_36)))" +"(extract-requires-and-provides requires+provides_10 self_37 self_37)))" "(let-values(((parsed-mod_0)" "(parsed-module25.1" " rebuild-s_16" " #f" " module-name-id_0" -" self_36" +" self_37" " requires_7" " provides_14" "(requires+provides-all-bindings-simple? requires+provides_10)" -"(root-expand-context-encode-for-module root-ctx_7 self_36 self_36)" +"(root-expand-context-encode-for-module root-ctx_7 self_37 self_37)" "(parsed-only fully-expanded-bodys-except-post-submodules_1)" " #f" "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" "(let-values(((or-part_399) enclosing-self_3))" -"(if or-part_399 or-part_399 self_36)))))" +"(if or-part_399 or-part_399 self_37)))))" "(let-values(((compiled-module_0)" -"(let-values(((temp606_0)" -"(let-values(((m-ns610_0) m-ns_22)" -"((enclosing-self611_0) enclosing-self_3)" -"((temp612_0)" +"(let-values(((temp607_0)" +"(let-values(((m-ns611_0) m-ns_22)" +"((enclosing-self612_0) enclosing-self_3)" +"((temp613_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp612_0" +" temp613_0" " #t" " #f" " #f" -" enclosing-self611_0" +" enclosing-self612_0" " #t" -" m-ns610_0" +" m-ns611_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp607_0)(expand-context-for-serializable? ctx_114))" -"((modules-being-compiled608_0) modules-being-compiled_6)" -"((temp609_0) #f))" +"((temp608_0)(expand-context-for-serializable? ctx_114))" +"((modules-being-compiled609_0) modules-being-compiled_6)" +"((temp610_0) #f))" "(compile-module13.1" " #f" " #f" -" modules-being-compiled608_0" +" modules-being-compiled609_0" " #t" -" temp609_0" +" temp610_0" " #t" -" temp607_0" +" temp608_0" " #t" " #f" " #f" " parsed-mod_0" -" temp606_0))))" +" temp607_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -73764,27 +73838,27 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((temp614_0) #f))" +"(let-values(((temp615_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp614_0" +" temp615_0" " #t" " compiled-module_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_781 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_809 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_782)" -"(syntax-property$1 s_781 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_783)" +"(let-values(((s_810)" +"(syntax-property$1 s_809 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_811)" "(syntax-property$1" -" s_782" +" s_810" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_783)))))" +" s_811)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -73803,8 +73877,8 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_156) phase143_0))" -"(let-values(((self_37) self144_0))" +"(let-values(((phase_157) phase143_0))" +"(let-values(((self_38) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" "(let-values(((all-scopes-s_1) all-scopes-s147_0))" @@ -73815,7 +73889,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_131)" -"(lambda(bodys_27 phase_157)" +"(lambda(bodys_27 phase_158)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -73828,62 +73902,62 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_25)))" -"(let-values(((ok?_82 begin-for-syntax615_0 _616_0)" -"(let-values(((s_784)" +"(let-values(((ok?_83 begin-for-syntax616_0 _617_0)" +"(let-values(((s_812)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_90) s_784))" -"(let-values(((begin-for-syntax615_1" -" _616_1)" -"(let-values(((s_785)" +"(let-values(((orig-s_90) s_812))" +"(let-values(((begin-for-syntax616_1" +" _617_1)" +"(let-values(((s_813)" "(if(syntax?$1" -" s_784)" +" s_812)" "(syntax-e$1" -" s_784)" -" s_784)))" -"(if(pair? s_785)" -"(let-values(((begin-for-syntax617_0)" -"(let-values(((s_786)" +" s_812)" +" s_812)))" +"(if(pair? s_813)" +"(let-values(((begin-for-syntax618_0)" +"(let-values(((s_814)" "(car" -" s_785)))" -" s_786))" -"((_618_0)" -"(let-values(((s_787)" +" s_813)))" +" s_814))" +"((_619_0)" +"(let-values(((s_815)" "(cdr" -" s_785)))" -"(let-values(((s_788)" +" s_813)))" +"(let-values(((s_816)" "(if(syntax?$1" -" s_787)" +" s_815)" "(syntax-e$1" -" s_787)" -" s_787)))" -"(let-values(((flat-s_60)" +" s_815)" +" s_815)))" +"(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_788)))" +" s_816)))" "(if(not" -" flat-s_60)" +" flat-s_59)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90))" "(let-values()" -" flat-s_60)))))))" +" flat-s_59)))))))" "(values" -" begin-for-syntax617_0" -" _618_0))" +" begin-for-syntax618_0" +" _619_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90)))))" "(values" " #t" -" begin-for-syntax615_1" -" _616_1))))))" +" begin-for-syntax616_1" +" _617_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx619_0)" +"(let-values(((submod-ctx620_0)" " submod-ctx_1)" -"((body-s620_0)" +"((body-s621_0)" " body-s_0))" "(keep-as-needed74.1" " #f" @@ -73892,13 +73966,13 @@ static const char *startup_source = " #f" " #f" " #f" -" submod-ctx619_0" -" body-s620_0))))" +" submod-ctx620_0" +" body-s621_0))))" "(let-values(((nested-bodys_3)" "(loop_131" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_157))))" +"(add1 phase_158))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -73908,33 +73982,33 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s621_0)" +"(let-values(((rebuild-body-s622_0)" " rebuild-body-s_0)" -"((temp622_0)" +"((temp623_0)" "(list*" -" begin-for-syntax615_0" +" begin-for-syntax616_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #f" " #f" -" rebuild-body-s621_0" -" temp622_0))" +" rebuild-body-s622_0" +" temp623_0))" " parsed-bfs_0))" -"(loop_131 rest-bodys_3 phase_157))))))))" +"(loop_131 rest-bodys_3 phase_158))))))))" "(if(let-values(((or-part_400)(parsed? body_25)))" "(if or-part_400" " or-part_400" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_131 rest-bodys_3 phase_157)))" +"(cons body_25(loop_131 rest-bodys_3 phase_158)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_68)" "(core-form-sym" " disarmed-body_2" -" phase_157)))" +" phase_158)))" "(if(equal? tmp_68 'module*)" "(let-values()" "(let-values((()" @@ -73946,64 +74020,64 @@ static const char *startup_source = "(remove-use-site-scopes" " body_25" " submod-ctx_1)))" -"(let-values(((ok?_83" -" module*623_0" -" name624_0" -" _625_0)" -"(let-values(((s_789)" +"(let-values(((ok?_84" +" module*624_0" +" name625_0" +" _626_0)" +"(let-values(((s_817)" " disarmed-body_2))" -"(if(let-values(((s_790)" +"(if(let-values(((s_672)" "(if(syntax?$1" -" s_789)" +" s_817)" "(syntax-e$1" -" s_789)" -" s_789)))" -"(if(pair? s_790)" -"(if(let-values(((s_791)" +" s_817)" +" s_817)))" +"(if(pair? s_672)" +"(if(let-values(((s_818)" "(car" -" s_790)))" +" s_672)))" " #t)" -"(let-values(((s_792)" +"(let-values(((s_819)" "(cdr" -" s_790)))" -"(let-values(((s_793)" +" s_672)))" +"(let-values(((s_820)" "(if(syntax?$1" -" s_792)" +" s_819)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_819)" +" s_819)))" "(if(pair?" -" s_793)" -"(if(let-values(((s_794)" +" s_820)" +"(if(let-values(((s_821)" "(car" -" s_793)))" +" s_820)))" " #t)" -"(let-values(((s_653)" +"(let-values(((s_822)" "(cdr" -" s_793)))" -"(let-values(((s_654)" +" s_820)))" +"(let-values(((s_823)" "(if(syntax?$1" -" s_653)" +" s_822)" "(syntax-e$1" -" s_653)" -" s_653)))" +" s_822)" +" s_822)))" "(if(pair?" -" s_654)" -"(if(let-values(((s_655)" +" s_823)" +"(if(let-values(((s_824)" "(car" -" s_654)))" -"(let-values(((s_656)" +" s_823)))" +"(let-values(((s_673)" "(if(syntax?$1" -" s_655)" +" s_824)" "(syntax-e$1" -" s_655)" -" s_655)))" +" s_824)" +" s_824)))" "(eq?" " #f" -" s_656)))" -"(let-values(((s_657)" +" s_673)))" +"(let-values(((s_825)" "(cdr" -" s_654)))" +" s_823)))" " #t)" " #f)" " #f)))" @@ -74012,127 +74086,127 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*623_1" -" name624_1" -" _625_1)" -"(let-values(((s_795)" +"(let-values(((module*624_1" +" name625_1" +" _626_1)" +"(let-values(((s_826)" "(if(syntax?$1" -" s_789)" +" s_817)" "(syntax-e$1" -" s_789)" -" s_789)))" -"(let-values(((module*626_0)" -"(let-values(((s_796)" +" s_817)" +" s_817)))" +"(let-values(((module*627_0)" +"(let-values(((s_827)" "(car" -" s_795)))" -" s_796))" -"((name627_0" -" _628_0)" -"(let-values(((s_797)" +" s_826)))" +" s_827))" +"((name628_0" +" _629_0)" +"(let-values(((s_828)" "(cdr" -" s_795)))" -"(let-values(((s_662)" +" s_826)))" +"(let-values(((s_829)" "(if(syntax?$1" -" s_797)" +" s_828)" "(syntax-e$1" -" s_797)" -" s_797)))" -"(let-values(((name629_0)" -"(let-values(((s_798)" +" s_828)" +" s_828)))" +"(let-values(((name630_0)" +"(let-values(((s_830)" "(car" -" s_662)))" -" s_798))" -"((_630_0)" -"(let-values(((s_665)" -"(cdr" -" s_662)))" -"(let-values(((s_666)" -"(if(syntax?$1" -" s_665)" -"(syntax-e$1" -" s_665)" -" s_665)))" -"(let-values((()" -"(let-values(((s_668)" -"(car" -" s_666)))" -"(let-values(((s_669)" -"(if(syntax?$1" -" s_668)" -"(syntax-e$1" -" s_668)" -" s_668)))" -"(values))))" +" s_829)))" +" s_830))" "((_631_0)" -"(let-values(((s_670)" +"(let-values(((s_831)" "(cdr" -" s_666)))" -" s_670)))" +" s_829)))" +"(let-values(((s_832)" +"(if(syntax?$1" +" s_831)" +"(syntax-e$1" +" s_831)" +" s_831)))" +"(let-values((()" +"(let-values(((s_833)" +"(car" +" s_832)))" +"(let-values(((s_834)" +"(if(syntax?$1" +" s_833)" +"(syntax-e$1" +" s_833)" +" s_833)))" +"(values))))" +"((_632_0)" +"(let-values(((s_835)" +"(cdr" +" s_832)))" +" s_835)))" "(values" +" _632_0))))))" +"(values" +" name630_0" " _631_0))))))" "(values" -" name629_0" -" _630_0))))))" -"(values" -" module*626_0" -" name627_0" -" _628_0)))))" +" module*627_0" +" name628_0" +" _629_0)))))" "(values" " #t" -" module*623_1" -" name624_1" -" _625_1)))" +" module*624_1" +" name625_1" +" _626_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((submod_3)" -"(if ok?_83" +"(if ok?_84" "(let-values()" "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_157)))" +" phase_158)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((temp635_0)" +"(let-values(((temp636_0)" " #t)" -"((neg-phase636_0)" +"((neg-phase637_0)" " neg-phase_0)" -"((all-scopes-s637_0)" +"((all-scopes-s638_0)" " all-scopes-s_1)" -"((requires+provides638_0)" +"((requires+provides639_0)" " requires+provides_11)" -"((enclosing-is-cross-phase-persistent?639_0)" +"((enclosing-is-cross-phase-persistent?640_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset640_0)" +"((mpis-to-reset641_0)" " mpis-to-reset_3)" -"((declared-submodule-names641_0)" +"((declared-submodule-names642_0)" " declared-submodule-names_7)" -"((compiled-submodules642_0)" +"((compiled-submodules643_0)" " compiled-submodules_4)" -"((modules-being-compiled643_0)" +"((modules-being-compiled644_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules642_0" -" declared-submodule-names641_0" -" all-scopes-s637_0" +" compiled-submodules643_0" +" declared-submodule-names642_0" +" all-scopes-s638_0" " #t" -" enclosing-is-cross-phase-persistent?639_0" +" enclosing-is-cross-phase-persistent?640_0" " #t" -" requires+provides638_0" +" requires+provides639_0" " #t" -" temp635_0" -" neg-phase636_0" +" temp636_0" +" neg-phase637_0" " #t" -" modules-being-compiled643_0" -" mpis-to-reset640_0" +" modules-being-compiled644_0" +" mpis-to-reset641_0" " shifted-s_0" -" self_37" +" self_38" " submod-ctx_1))))" "(if(parsed?" " submod_4)" @@ -74145,13 +74219,13 @@ static const char *startup_source = " submod_4))" "(if(expanded+parsed?" " the-struct_118)" -"(let-values(((s644_0)" +"(let-values(((s645_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_157)))" +" phase_158)))" "(expanded+parsed1.1" -" s644_0" +" s645_0" "(expanded+parsed-parsed" " the-struct_118)))" "(raise-argument-error" @@ -74161,49 +74235,49 @@ static const char *startup_source = "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_157))))))))" +" phase_158))))))))" "(let-values()" -"(let-values(((temp648_0)" +"(let-values(((temp649_0)" " #t)" -"((mpis-to-reset649_0)" +"((mpis-to-reset650_0)" " mpis-to-reset_3)" -"((declared-submodule-names650_0)" +"((declared-submodule-names651_0)" " declared-submodule-names_7)" -"((compiled-submodules651_0)" +"((compiled-submodules652_0)" " compiled-submodules_4)" -"((modules-being-compiled652_0)" +"((modules-being-compiled653_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules651_0" -" declared-submodule-names650_0" +" compiled-submodules652_0" +" declared-submodule-names651_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp648_0" +" temp649_0" " #f" " #f" -" modules-being-compiled652_0" -" mpis-to-reset649_0" +" modules-being-compiled653_0" +" mpis-to-reset650_0" " ready-body_2" -" self_37" +" self_38" " submod-ctx_1))))))" "(cons" " submod_3" "(loop_131" " rest-bodys_3" -" phase_157)))))))" +" phase_158)))))))" "(let-values()" "(cons" " body_25" "(loop_131" " rest-bodys_3" -" phase_157)))))))))))))))))" +" phase_158)))))))))))))))))" " loop_131)" " fully-expanded-bodys-except-post-submodules_2" -" phase_156)))))))))))))))))" +" phase_157)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_115)" @@ -74218,66 +74292,66 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_44) ids170_0))" -"(let-values(((phase_158) phase171_1))" +"(let-values(((phase_159) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_799) in168_0))" +"(let-values(((s_836) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_432) ids_44))" +"(let-values(((lst_433) ids_44))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_432)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_433)" +"(let-values()(check-list lst_433)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_434)" "(begin" " 'for-loop" -"(if(pair? lst_433)" -"(let-values(((id_158)(unsafe-car lst_433))" -"((rest_256)(unsafe-cdr lst_433)))" +"(if(pair? lst_434)" +"(let-values(((id_158)(unsafe-car lst_434))" +"((rest_256)(unsafe-cdr lst_434)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((s656_0) s_799)" -"((temp657_0) 'module))" +"(let-values(((s657_0) s_836)" +"((temp658_0) 'module))" "(check-not-defined93.1" " #f" " #f" " #f" " #f" -" s656_0" +" s657_0" " #f" " #f" " #f" " #f" -" temp657_0" +" temp658_0" " requires+provides_12" " id_158" -" phase_158)))" +" phase_159)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_256)(values))))" +"(if(not #f)(for-loop_322 rest_256)(values))))" "(values))))))" -" for-loop_321)" -" lst_432)))" +" for-loop_322)" +" lst_433)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_159 m-ns_23 self_38 ctx_116)" +"(lambda(bodys_28 phase_160 m-ns_23 self_39 ctx_116)" "(begin" "(begin" -"(let-values(((lst_434) bodys_28))" +"(let-values(((lst_435) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_434)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_435)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_435)))" +"((letrec-values(((for-loop_323)" +"(lambda(lst_436)" "(begin" " 'for-loop" -"(if(pair? lst_435)" -"(let-values(((body_26)(unsafe-car lst_435))((rest_257)(unsafe-cdr lst_435)))" +"(if(pair? lst_436)" +"(let-values(((body_26)(unsafe-car lst_436))((rest_257)(unsafe-cdr lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74299,63 +74373,63 @@ static const char *startup_source = " ids_45" "(parsed-define-values-rhs" " p_84)" -" phase_159" +" phase_160" " m-ns_23" " ctx_116)))" "(begin" -"(let-values(((lst_436) ids_45)" -"((lst_437)" +"(let-values(((lst_437) ids_45)" +"((lst_438)" "(parsed-define-values-syms" " p_84))" -"((lst_438) vals_11))" +"((lst_439) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_436)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_437)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_438)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_439" -" lst_440" -" lst_441)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_439)))" +"((letrec-values(((for-loop_324)" +"(lambda(lst_440" +" lst_441" +" lst_442)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_439)" -"(if(pair?" " lst_440)" -"(pair?" +"(if(pair?" " lst_441)" +"(pair?" +" lst_442)" " #f)" " #f)" "(let-values(((id_159)" "(unsafe-car" -" lst_439))" +" lst_440))" "((rest_258)" "(unsafe-cdr" -" lst_439))" +" lst_440))" "((sym_106)" "(unsafe-car" -" lst_440))" +" lst_441))" "((rest_259)" "(unsafe-cdr" -" lst_440))" +" lst_441))" "((val_87)" "(unsafe-car" -" lst_441))" +" lst_442))" "((rest_260)" "(unsafe-cdr" -" lst_441)))" +" lst_442)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74364,23 +74438,23 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_159" +" phase_160" " sym_106" " val_87))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_323" +"(for-loop_324" " rest_258" " rest_259" " rest_260)" "(values))))" "(values))))))" -" for-loop_323)" -" lst_436" +" for-loop_324)" " lst_437" -" lst_438)))" +" lst_438" +" lst_439)))" "(void)))))" "(if(let-values(((or-part_401)" "(parsed-define-syntaxes?" @@ -74412,10 +74486,10 @@ static const char *startup_source = "(eval-single-top" "(compile-single" " p_84" -"(let-values(((m-ns658_0)" +"(let-values(((m-ns659_0)" " m-ns_23)" -"((phase659_0)" -" phase_159))" +"((phase660_0)" +" phase_160))" "(make-compile-context14.1" " #f" " #f" @@ -74423,19 +74497,19 @@ static const char *startup_source = " #f" " #f" " #f" -" m-ns658_0" +" m-ns659_0" " #t" -" phase659_0" +" phase660_0" " #t" " #f" " #f)))" " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_257)(values))))" +"(if(not #f)(for-loop_323 rest_257)(values))))" "(values))))))" -" for-loop_322)" -" lst_434)))" +" for-loop_323)" +" lst_435)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -74457,8 +74531,8 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_800) s194_0))" -"(let-values(((self_39) self195_0))" +"(let-values(((s_837) s194_0))" +"(let-values(((self_40) self195_0))" "(let-values(((ctx_117) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2)" @@ -74481,59 +74555,59 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_155)(expand-context-observer ctx_117)))" -"(if obs_155" +"(let-values(((obs_152)(expand-context-observer ctx_117)))" +"(if obs_152" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_155 'enter-prim s_800)" +"(call-expand-observe obs_152 'enter-prim s_837)" "(call-expand-observe" -" obs_155" +" obs_152" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_84 module660_0 name661_0 _662_0)" -"(let-values(((s_801) s_800))" -"(let-values(((orig-s_91) s_801))" -"(let-values(((module660_1 name661_1 _662_1)" -"(let-values(((s_802)" -"(if(syntax?$1 s_801)" -"(syntax-e$1 s_801)" -" s_801)))" -"(if(pair? s_802)" -"(let-values(((module663_0)" -"(let-values(((s_803)(car s_802)))" -" s_803))" -"((name664_0 _665_0)" -"(let-values(((s_804)(cdr s_802)))" -"(let-values(((s_805)" +"(let-values(((ok?_85 module661_0 name662_0 _663_0)" +"(let-values(((s_838) s_837))" +"(let-values(((orig-s_91) s_838))" +"(let-values(((module661_1 name662_1 _663_1)" +"(let-values(((s_839)" +"(if(syntax?$1 s_838)" +"(syntax-e$1 s_838)" +" s_838)))" +"(if(pair? s_839)" +"(let-values(((module664_0)" +"(let-values(((s_840)(car s_839)))" +" s_840))" +"((name665_0 _666_0)" +"(let-values(((s_841)(cdr s_839)))" +"(let-values(((s_842)" "(if(syntax?$1" -" s_804)" -"(syntax-e$1 s_804)" -" s_804)))" -"(if(pair? s_805)" -"(let-values(((name666_0)" -"(let-values(((s_806)" +" s_841)" +"(syntax-e$1 s_841)" +" s_841)))" +"(if(pair? s_842)" +"(let-values(((name667_0)" +"(let-values(((s_843)" "(car" -" s_805)))" -" s_806))" -"((_667_0)" -"(let-values(((s_807)" +" s_842)))" +" s_843))" +"((_668_0)" +"(let-values(((s_844)" "(cdr" -" s_805)))" -" s_807)))" -"(values name666_0 _667_0))" +" s_842)))" +" s_844)))" +"(values name667_0 _668_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" -"(values module663_0 name664_0 _665_0))" +"(values module664_0 name665_0 _666_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91)))))" -"(values #t module660_1 name661_1 _662_1))))))" -"(let-values(((name_81)(syntax-e$1 name661_0)))" +"(values #t module661_1 name662_1 _663_1))))))" +"(let-values(((name_81)(syntax-e$1 name662_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_81 #f)" @@ -74541,7 +74615,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_800" +" s_837" " name_81))" "(void))" "(values))))" @@ -74550,32 +74624,32 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_81" -"(syntax-e$1 module660_0))" +"(syntax-e$1 module661_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_156)(expand-context-observer ctx_117)))" -"(if obs_156" +"(let-values(((obs_153)(expand-context-observer ctx_117)))" +"(if obs_153" "(let-values()" "(let-values()" -"(call-expand-observe obs_156 'enter-prim s_800)))" +"(call-expand-observe obs_153 'enter-prim s_837)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((temp669_0)" +"(let-values(((temp670_0)" "(let-values(((v_262) ctx_117))" "(let-values(((the-struct_119) v_262))" "(if(expand-context/outer? the-struct_119)" -"(let-values(((context678_0) 'module)" -"((post-expansion-scope679_0)" +"(let-values(((context679_0) 'module)" +"((post-expansion-scope680_0)" " #f)" -"((inner680_0)" +"((inner681_0)" "(let-values(((the-struct_120)" "(root-expand-context/outer-inner" " v_262)))" "(if(expand-context/inner?" " the-struct_120)" -"(let-values(((stops681_0)" +"(let-values(((stops682_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" @@ -74604,7 +74678,7 @@ static const char *startup_source = " the-struct_120)" "(expand-context/inner-in-local-expand?" " the-struct_120)" -" stops681_0" +" stops682_0" "(expand-context/inner-declared-submodule-names" " the-struct_120)" "(expand-context/inner-lifts" @@ -74630,13 +74704,13 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_120)))))" "(expand-context/outer1.1" -" inner680_0" -" post-expansion-scope679_0" +" inner681_0" +" post-expansion-scope680_0" "(root-expand-context/outer-use-site-scopes" " the-struct_119)" "(root-expand-context/outer-frame-id" " the-struct_119)" -" context678_0" +" context679_0" "(expand-context/outer-env" " the-struct_119)" "(expand-context/outer-post-expansion-scope-action" @@ -74661,97 +74735,97 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_119)))))" -"((self670_0) self_39)" -"((temp671_0) #t)" -"((keep-enclosing-scope-at-phase672_0)" +"((self671_0) self_40)" +"((temp672_0) #t)" +"((keep-enclosing-scope-at-phase673_0)" " keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx673_0)" +"((enclosing-all-scopes-stx674_0)" " enclosing-all-scopes-stx_1)" -"((enclosing-r+p674_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?675_0)" +"((enclosing-r+p675_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?676_0)" " enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset676_0) mpis-to-reset_4)" -"((modules-being-compiled677_0)" +"((mpis-to-reset677_0) mpis-to-reset_4)" +"((modules-being-compiled678_0)" " modules-being-compiled_8))" "(expand-module18.1" -" temp671_0" +" temp672_0" " #t" -" enclosing-all-scopes-stx673_0" +" enclosing-all-scopes-stx674_0" " #t" -" enclosing-is-cross-phase-persistent?675_0" +" enclosing-is-cross-phase-persistent?676_0" " #t" -" enclosing-r+p674_0" +" enclosing-r+p675_0" " #t" -" keep-enclosing-scope-at-phase672_0" +" keep-enclosing-scope-at-phase673_0" " #t" -" modules-being-compiled677_0" +" modules-being-compiled678_0" " #t" -" mpis-to-reset676_0" +" mpis-to-reset677_0" " #t" -" s_800" -" temp669_0" -" self670_0))))" +" s_837" +" temp670_0" +" self671_0))))" "(let-values((()" "(begin" -"(let-values(((obs_157)" +"(let-values(((obs_154)" "(expand-context-observer ctx_117)))" -"(if obs_157" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_154" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" "(let-values(((ns_128)(expand-context-namespace ctx_117)))" -"(let-values(((module-name_3)(1/module-path-index-resolve self_39)))" +"(let-values(((module-name_3)(1/module-path-index-resolve self_40)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" "(let-values(((compiled-submodule_0)" -"(let-values(((temp682_0)" +"(let-values(((temp683_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp683_0)" -"(let-values(((ns688_0) ns_128)" -"((self689_0) self_39)" -"((temp690_0)" +"((temp684_0)" +"(let-values(((ns689_0) ns_128)" +"((self690_0) self_40)" +"((temp691_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp690_0" +" temp691_0" " #t" " #f" " #f" -" self689_0" +" self690_0" " #t" -" ns688_0" +" ns689_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp684_0) #t)" -"((temp685_0)" +"((temp685_0) #t)" +"((temp686_0)" "(expand-context-for-serializable?" " ctx_117))" -"((modules-being-compiled686_0)" +"((modules-being-compiled687_0)" " modules-being-compiled_8)" -"((temp687_0) #f))" +"((temp688_0) #f))" "(compile-module13.1" -" temp684_0" -" #t" -" modules-being-compiled686_0" -" #t" -" temp687_0" -" #t" " temp685_0" " #t" +" modules-being-compiled687_0" +" #t" +" temp688_0" +" #t" +" temp686_0" +" #t" " #f" " #f" -" temp682_0" -" temp683_0))))" +" temp683_0" +" temp684_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -74766,25 +74840,25 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((temp692_0) #f))" +"(let-values(((temp693_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp692_0" +" temp693_0" " #t" " compiled-submodule_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_158)" +"(let-values(((obs_155)" "(expand-context-observer ctx_117)))" -"(if obs_158" +"(if obs_155" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_158" +" obs_155" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -74794,15 +74868,15 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_121) submod_5))" "(if(expanded+parsed? the-struct_121)" -"(let-values(((parsed693_0)" +"(let-values(((parsed694_0)" "(let-values(((the-struct_122)" "(expanded+parsed-parsed" " submod_5)))" "(if(parsed-module? the-struct_122)" -"(let-values(((star?694_0) #t))" +"(let-values(((star?695_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_122)" -" star?694_0" +" star?695_0" "(parsed-module-name-id" " the-struct_122)" "(parsed-module-self" @@ -74827,7 +74901,7 @@ static const char *startup_source = " the-struct_122)))))" "(expanded+parsed1.1" "(expanded+parsed-s the-struct_121)" -" parsed693_0))" +" parsed694_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" @@ -74835,10 +74909,10 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_123) submod_5))" "(if(parsed-module? the-struct_123)" -"(let-values(((star?695_0) #t))" +"(let-values(((star?696_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_123)" -" star?695_0" +" star?696_0" "(parsed-module-name-id the-struct_123)" "(parsed-module-self the-struct_123)" "(parsed-module-requires the-struct_123)" @@ -74866,8 +74940,8 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_160) phase209_0))" -"(let-values(((self_40) self210_0))" +"(let-values(((phase_161) phase209_0))" +"(let-values(((self_41) self210_0))" "(let-values(((ctx_118) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" @@ -74875,21 +74949,21 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_442) bodys_29))" +"(let-values(((lst_443) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_324)" -"(lambda(fold-var_371 lst_443)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_325)" +"(lambda(fold-var_372 lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_443)" -"(let-values(((body_27)(unsafe-car lst_443))" -"((rest_261)(unsafe-cdr lst_443)))" -"(let-values(((fold-var_372)" -"(let-values(((fold-var_373) fold-var_371))" -"(let-values(((fold-var_374)" +"(if(pair? lst_444)" +"(let-values(((body_27)(unsafe-car lst_444))" +"((rest_261)(unsafe-cdr lst_444)))" +"(let-values(((fold-var_373)" +"(let-values(((fold-var_374) fold-var_372))" +"(let-values(((fold-var_375)" "(let-values()" "(cons" "(let-values()" @@ -74897,134 +74971,134 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_160)))" +" phase_161)))" "(if(equal? tmp_69 'module)" "(let-values()" -"(let-values(((temp699_0)" +"(let-values(((temp700_0)" " #f)" -"((mpis-to-reset700_0)" +"((mpis-to-reset701_0)" " mpis-to-reset_5)" -"((declared-submodule-names701_0)" +"((declared-submodule-names702_0)" " declared-submodule-names_9)" -"((compiled-submodules702_0)" +"((compiled-submodules703_0)" " compiled-submodules_6)" -"((modules-being-compiled703_0)" +"((modules-being-compiled704_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules702_0" -" declared-submodule-names701_0" +" compiled-submodules703_0" +" declared-submodule-names702_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp699_0" +" temp700_0" " #f" " #f" -" modules-being-compiled703_0" -" mpis-to-reset700_0" +" modules-being-compiled704_0" +" mpis-to-reset701_0" " body_27" -" self_40" +" self_41" " ctx_118)))" "(let-values() body_27))))" -" fold-var_373))))" -"(values fold-var_374)))))" +" fold-var_374))))" +"(values fold-var_375)))))" "(if(not #f)" -"(for-loop_324 fold-var_372 rest_261)" -" fold-var_372)))" -" fold-var_371)))))" -" for-loop_324)" +"(for-loop_325 fold-var_373 rest_261)" +" fold-var_373)))" +" fold-var_372)))))" +" for-loop_325)" " null" -" lst_442))))))))))))))))" +" lst_443))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" "(begin" " 'make-parse-lifted-require220" "(let-values(((m-ns_24) m-ns217_0))" -"(let-values(((self_41) self218_0))" +"(let-values(((self_42) self218_0))" "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_808 phase_161)" -"(let-values(((ok?_85 #%require704_0 req705_0)" -"(let-values(((s_809)(syntax-disarm$1 s_808)))" -"(let-values(((orig-s_92) s_809))" -"(let-values(((#%require704_1 req705_1)" -"(let-values(((s_810)" -"(if(syntax?$1 s_809)(syntax-e$1 s_809) s_809)))" -"(if(pair? s_810)" -"(let-values(((#%require706_0)" -"(let-values(((s_811)(car s_810))) s_811))" -"((req707_0)" -"(let-values(((s_812)(cdr s_810)))" -"(let-values(((s_813)" -"(if(syntax?$1 s_812)" -"(syntax-e$1 s_812)" -" s_812)))" -"(if(pair? s_813)" -"(let-values(((req708_0)" -"(let-values(((s_814)" -"(car s_813)))" -" s_814))" +"(lambda(s_845 phase_162)" +"(let-values(((ok?_86 #%require705_0 req706_0)" +"(let-values(((s_846)(syntax-disarm$1 s_845)))" +"(let-values(((orig-s_92) s_846))" +"(let-values(((#%require705_1 req706_1)" +"(let-values(((s_847)" +"(if(syntax?$1 s_846)(syntax-e$1 s_846) s_846)))" +"(if(pair? s_847)" +"(let-values(((#%require707_0)" +"(let-values(((s_848)(car s_847))) s_848))" +"((req708_0)" +"(let-values(((s_849)(cdr s_847)))" +"(let-values(((s_850)" +"(if(syntax?$1 s_849)" +"(syntax-e$1 s_849)" +" s_849)))" +"(if(pair? s_850)" +"(let-values(((req709_0)" +"(let-values(((s_851)" +"(car s_850)))" +" s_851))" "(()" -"(let-values(((s_815)" -"(cdr s_813)))" -"(let-values(((s_816)" +"(let-values(((s_852)" +"(cdr s_850)))" +"(let-values(((s_853)" "(if(syntax?$1" -" s_815)" +" s_852)" "(syntax-e$1" -" s_815)" -" s_815)))" -"(if(null? s_816)" +" s_852)" +" s_852)))" +"(if(null? s_853)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92))))))" -"(values req708_0))" +"(values req709_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92))))))" -"(values #%require706_0 req707_0))" +"(values #%require707_0 req708_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_92)))))" -"(values #t #%require704_1 req705_1))))))" -"(let-values(((temp709_0)(list req705_0))" -"((s710_0) s_808)" -"((self711_0) self_41)" -"((m-ns712_0) m-ns_24)" -"((phase713_0) phase_161)" -"((phase714_0) phase_161)" -"((requires+provides715_0) requires+provides_13)" -"((declared-submodule-names716_0) declared-submodule-names_10)" -"((temp717_0) 'require))" +"(values #t #%require705_1 req706_1))))))" +"(let-values(((temp710_0)(list req706_0))" +"((s711_0) s_845)" +"((self712_0) self_42)" +"((m-ns713_0) m-ns_24)" +"((phase714_0) phase_162)" +"((phase715_0) phase_162)" +"((requires+provides716_0) requires+provides_13)" +"((declared-submodule-names717_0) declared-submodule-names_10)" +"((temp718_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names716_0" +" declared-submodule-names717_0" " #t" " #f" " #f" +" phase715_0" +" #t" +" #f" +" #f" +" self712_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp718_0" +" temp710_0" +" s711_0" +" m-ns713_0" " phase714_0" -" #t" -" #f" -" #f" -" self711_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp717_0" -" temp709_0" -" s710_0" -" m-ns712_0" -" phase713_0" -" requires+provides715_0))))))))))))" +" requires+provides716_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -75038,243 +75112,243 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_444) lifted-defns_2))" +"(let-values(((lst_445) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_375 lst_445)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_326)" +"(lambda(fold-var_376 lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_445)" -"(let-values(((lifted-defn_0)(unsafe-car lst_445))" -"((rest_262)(unsafe-cdr lst_445)))" -"(let-values(((fold-var_376)" -"(let-values(((fold-var_377) fold-var_375))" -"(let-values(((fold-var_378)" +"(if(pair? lst_446)" +"(let-values(((lifted-defn_0)(unsafe-car lst_446))" +"((rest_262)(unsafe-cdr lst_446)))" +"(let-values(((fold-var_377)" +"(let-values(((fold-var_378) fold-var_376))" +"(let-values(((fold-var_379)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_377))))" -"(values fold-var_378)))))" -"(if(not #f)(for-loop_325 fold-var_376 rest_262) fold-var_376)))" -" fold-var_375)))))" -" for-loop_325)" +" fold-var_378))))" +"(values fold-var_379)))))" +"(if(not #f)(for-loop_326 fold-var_377 rest_262) fold-var_377)))" +" fold-var_376)))))" +" for-loop_326)" " null" -" lst_444)))))))" +" lst_445)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_159)(expand-context-observer partial-body-ctx_2)))" -"(if obs_159" +"(let-values(((obs_156)(expand-context-observer partial-body-ctx_2)))" +"(if obs_156" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_159 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_156 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_159 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_156 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_446) s-lifted-defns_0))" +"(let-values(((lst_447) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_447)" +"(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_447))" -"((rest_263)(unsafe-cdr lst_447)))" +"(if(pair? lst_448)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_448))" +"((rest_263)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ok?_86" -" define-values722_0" -" _723_0)" -"(let-values(((s_817)" +"(let-values(((ok?_87" +" define-values723_0" +" _724_0)" +"(let-values(((s_854)" " s-lifted-defn_0))" "(let-values(((orig-s_93)" -" s_817))" -"(let-values(((define-values722_1" -" _723_1)" -"(let-values(((s_818)" +" s_854))" +"(let-values(((define-values723_1" +" _724_1)" +"(let-values(((s_855)" "(if(syntax?$1" -" s_817)" +" s_854)" "(syntax-e$1" -" s_817)" -" s_817)))" +" s_854)" +" s_854)))" "(if(pair?" -" s_818)" -"(let-values(((define-values724_0)" -"(let-values(((s_819)" +" s_855)" +"(let-values(((define-values725_0)" +"(let-values(((s_856)" "(car" -" s_818)))" -" s_819))" -"((_725_0)" -"(let-values(((s_820)" +" s_855)))" +" s_856))" +"((_726_0)" +"(let-values(((s_857)" "(cdr" -" s_818)))" -"(let-values(((s_821)" +" s_855)))" +"(let-values(((s_858)" "(if(syntax?$1" -" s_820)" +" s_857)" "(syntax-e$1" -" s_820)" -" s_820)))" -"(let-values(((flat-s_61)" +" s_857)" +" s_857)))" +"(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_821)))" +" s_858)))" "(if(not" -" flat-s_61)" +" flat-s_60)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93))" "(let-values()" -" flat-s_61)))))))" +" flat-s_60)))))))" "(values" -" define-values724_0" -" _725_0))" +" define-values725_0" +" _726_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93)))))" "(values" " #t" -" define-values722_1" -" _723_1))))))" +" define-values723_1" +" _724_1))))))" "(begin" "(call-expand-observe" -" obs_159" +" obs_156" " 'next)" "(call-expand-observe" -" obs_159" +" obs_156" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'resolve" -" define-values722_0)" +" define-values723_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'prim-stop)" "(call-expand-observe" -" obs_159" +" obs_156" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_156" " 'prim-define-values)" "(call-expand-observe" -" obs_159" +" obs_156" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_263)(values))))" +"(if(not #f)(for-loop_327 rest_263)(values))))" "(values))))))" -" for-loop_326)" -" lst_446)))" +" for-loop_327)" +" lst_447)))" "(values))))" "(let-values()" -"(let-values(((ok?_87 form-id718_0 _719_0)" -"(let-values(((s_822) exp-body_10))" -"(let-values(((orig-s_94) s_822))" -"(let-values(((form-id718_1 _719_1)" -"(let-values(((s_823)" -"(if(syntax?$1 s_822)(syntax-e$1 s_822) s_822)))" -"(if(pair? s_823)" -"(let-values(((form-id720_0)" -"(let-values(((s_824)(car s_823))) s_824))" -"((_721_0)" -"(let-values(((s_825)(cdr s_823))) s_825)))" -"(values form-id720_0 _721_0))" +"(let-values(((ok?_88 form-id719_0 _720_0)" +"(let-values(((s_859) exp-body_10))" +"(let-values(((orig-s_94) s_859))" +"(let-values(((form-id719_1 _720_1)" +"(let-values(((s_860)" +"(if(syntax?$1 s_859)(syntax-e$1 s_859) s_859)))" +"(if(pair? s_860)" +"(let-values(((form-id721_0)" +"(let-values(((s_861)(car s_860))) s_861))" +"((_722_0)" +"(let-values(((s_862)(cdr s_860))) s_862)))" +"(values form-id721_0 _722_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" -"(values #t form-id718_1 _719_1))))))" +"(values #t form-id719_1 _720_1))))))" "(begin" -"(call-expand-observe obs_159 'next)" -"(call-expand-observe obs_159 'visit exp-body_10)" -"(call-expand-observe obs_159 'resolve form-id718_0)" -"(call-expand-observe obs_159 'enter-prim exp-body_10)" -"(call-expand-observe obs_159 'prim-stop)" -"(call-expand-observe obs_159 'exit-prim exp-body_10)" -"(call-expand-observe obs_159 'return exp-body_10)))))))))" +"(call-expand-observe obs_156 'next)" +"(call-expand-observe obs_156 'visit exp-body_10)" +"(call-expand-observe obs_156 'resolve form-id719_0)" +"(call-expand-observe obs_156 'enter-prim exp-body_10)" +"(call-expand-observe obs_156 'prim-stop)" +"(call-expand-observe obs_156 'exit-prim exp-body_10)" +"(call-expand-observe obs_156 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" "(lambda(ctx_119 defn_1)" "(begin" -"(let-values(((obs_160)(expand-context-observer ctx_119)))" -"(if obs_160" +"(let-values(((obs_157)(expand-context-observer ctx_119)))" +"(if obs_157" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_88 define-values726_0 _727_0)" -"(let-values(((s_826) s-defn_0))" -"(let-values(((orig-s_95) s_826))" -"(let-values(((define-values726_1 _727_1)" -"(let-values(((s_827)(if(syntax?$1 s_826)(syntax-e$1 s_826) s_826)))" -"(if(pair? s_827)" -"(let-values(((define-values728_0)" -"(let-values(((s_828)(car s_827))) s_828))" -"((_729_0)" -"(let-values(((s_829)(cdr s_827)))" -"(let-values(((s_830)" -"(if(syntax?$1 s_829)" -"(syntax-e$1 s_829)" -" s_829)))" -"(let-values(((flat-s_62)(to-syntax-list.1 s_830)))" -"(if(not flat-s_62)" +"(let-values(((ok?_89 define-values727_0 _728_0)" +"(let-values(((s_863) s-defn_0))" +"(let-values(((orig-s_95) s_863))" +"(let-values(((define-values727_1 _728_1)" +"(let-values(((s_864)(if(syntax?$1 s_863)(syntax-e$1 s_863) s_863)))" +"(if(pair? s_864)" +"(let-values(((define-values729_0)" +"(let-values(((s_865)(car s_864))) s_865))" +"((_730_0)" +"(let-values(((s_866)(cdr s_864)))" +"(let-values(((s_867)" +"(if(syntax?$1 s_866)" +"(syntax-e$1 s_866)" +" s_866)))" +"(let-values(((flat-s_61)(to-syntax-list.1 s_867)))" +"(if(not flat-s_61)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))" -"(let-values() flat-s_62)))))))" -"(values define-values728_0 _729_0))" +"(let-values() flat-s_61)))))))" +"(values define-values729_0 _730_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t define-values726_1 _727_1))))))" +"(values #t define-values727_1 _728_1))))))" "(begin" -"(call-expand-observe obs_160 'visit s-defn_0)" -"(call-expand-observe obs_160 'resolve define-values726_0)" -"(call-expand-observe obs_160 'enter-prim s-defn_0)" -"(call-expand-observe obs_160 'prim-define-values)))))" +"(call-expand-observe obs_157 'visit s-defn_0)" +"(call-expand-observe obs_157 'resolve define-values727_0)" +"(call-expand-observe obs_157 'enter-prim s-defn_0)" +"(call-expand-observe obs_157 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" "(lambda(ctx_120 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_161)(expand-context-observer ctx_120)))" -"(if obs_161" +"(let-values(((obs_158)(expand-context-observer ctx_120)))" +"(if obs_158" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_161 'exit-prim s-defn_1)(call-expand-observe obs_161 'return s-defn_1))))" +"(begin(call-expand-observe obs_158 'exit-prim s-defn_1)(call-expand-observe obs_158 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" @@ -75289,15 +75363,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_98)" -"(lambda(fold-var_379 lst_80)" +"(lambda(fold-var_380 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" "(let-values(((id_160)(unsafe-car lst_80))" "((rest_38)(unsafe-cdr lst_80)))" "(let-values(((fold-var_60)" -"(let-values(((fold-var_61) fold-var_379))" -"(let-values(((fold-var_380)" +"(let-values(((fold-var_61) fold-var_380))" +"(let-values(((fold-var_381)" "(let-values()" "(cons" "(let-values()" @@ -75305,9 +75379,9 @@ static const char *startup_source = " id_160" " ctx_121))" " fold-var_61))))" -"(values fold-var_380)))))" +"(values fold-var_381)))))" "(if(not #f)(for-loop_98 fold-var_60 rest_38) fold-var_60)))" -" fold-var_379)))))" +" fold-var_380)))))" " for-loop_98)" " null" " lst_6))))))" @@ -75323,14 +75397,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_94)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_328)" "(lambda(fold-var_217 lst_81)" "(begin" " 'for-loop" "(if(pair? lst_81)" "(let-values(((id_3)(unsafe-car lst_81))" "((rest_242)(unsafe-cdr lst_81)))" -"(let-values(((fold-var_381)" +"(let-values(((fold-var_382)" "(let-values(((fold-var_31) fold-var_217))" "(let-values(((fold-var_32)" "(let-values()" @@ -75342,10 +75416,10 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_327 fold-var_381 rest_242)" -" fold-var_381)))" +"(for-loop_328 fold-var_382 rest_242)" +" fold-var_382)))" " fold-var_217)))))" -" for-loop_327)" +" for-loop_328)" " null" " lst_94))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_121)))))))))" @@ -75355,9 +75429,9 @@ static const char *startup_source = "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_7)))" -"(if obs_162" -"(let-values()(let-values()(call-expand-observe obs_162 'prim-define-values)))" +"(let-values(((obs_159)(expand-context-observer ctx_7)))" +"(if obs_159" +"(let-values()(let-values()(call-expand-observe obs_159 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -75388,10 +75462,10 @@ static const char *startup_source = "(if(syntax?$1 s_160)" "(syntax-e$1 s_160)" " s_160)))" -"(let-values(((flat-s_63)" +"(let-values(((flat-s_62)" "(to-syntax-list.1" " s_5)))" -"(if(not flat-s_63)" +"(if(not flat-s_62)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -75400,7 +75474,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id_161)" "(let-values(((lst_24)" -" flat-s_63))" +" flat-s_62))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -75514,15 +75588,15 @@ static const char *startup_source = "(lambda(s_460 ctx_122)" "(let-values((()" "(begin" -"(let-values(((obs_163)(expand-context-observer ctx_122)))" -"(if obs_163" -"(let-values()(let-values()(call-expand-observe obs_163 'prim-define-syntaxes)))" +"(let-values(((obs_160)(expand-context-observer ctx_122)))" +"(if obs_160" +"(let-values()(let-values()(call-expand-observe obs_160 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_122)))" -"(if obs_164(let-values()(let-values()(call-expand-observe obs_164 'prepare-env)))(void)))" +"(let-values(((obs_161)(expand-context-observer ctx_122)))" +"(if obs_161(let-values()(let-values()(call-expand-observe obs_161 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" @@ -75531,11 +75605,11 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_460)))" "(values))))" "(let-values(((disarmed-s_26)(syntax-disarm$1 s_460)))" -"(let-values(((ok?_89 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_831) disarmed-s_26))" -"(let-values(((orig-s_97) s_831))" +"(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)" +"(let-values(((s_868) disarmed-s_26))" +"(let-values(((orig-s_97) s_868))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_831)(syntax-e$1 s_831) s_831)))" +"(let-values(((s_20)(if(syntax?$1 s_868)(syntax-e$1 s_868) s_868)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" @@ -75547,15 +75621,15 @@ static const char *startup_source = " s_431)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_705)(car s_24)))" +"(let-values(((s_726)(car s_24)))" "(let-values(((s_467)" -"(if(syntax?$1 s_705)" -"(syntax-e$1 s_705)" -" s_705)))" -"(let-values(((flat-s_64)" +"(if(syntax?$1 s_726)" +"(syntax-e$1 s_726)" +" s_726)))" +"(let-values(((flat-s_63)" "(to-syntax-list.1" " s_467)))" -"(if(not flat-s_64)" +"(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -75564,7 +75638,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id_93)" "(let-values(((lst_177)" -" flat-s_64))" +" flat-s_63))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -75574,17 +75648,17 @@ static const char *startup_source = " lst_177)))" "((letrec-values(((for-loop_263)" "(lambda(id_165" -" lst_448)" +" lst_449)" "(begin" " 'for-loop" "(if(pair?" -" lst_448)" +" lst_449)" "(let-values(((s_489)" "(unsafe-car" -" lst_448))" +" lst_449))" "((rest_264)" "(unsafe-cdr" -" lst_448)))" +" lst_449)))" "(let-values(((id_75)" "(let-values(((id_95)" " id_165))" @@ -75626,11 +75700,11 @@ static const char *startup_source = " lst_177)))))" "(reverse$1 id_93))))))))" "((rhs22_0)" -"(let-values(((s_832)(cdr s_24)))" +"(let-values(((s_869)(cdr s_24)))" "(let-values(((s_475)" -"(if(syntax?$1 s_832)" -"(syntax-e$1 s_832)" -" s_832)))" +"(if(syntax?$1 s_869)" +"(syntax-e$1 s_869)" +" s_869)))" "(if(pair? s_475)" "(let-values(((rhs23_2)" "(let-values(((s_490)" @@ -75695,24 +75769,24 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" -"(let-values(((ok?_90 #%require29_0 req30_0)" -"(let-values(((s_833) disarmed-s_27))" -"(let-values(((orig-s_98) s_833))" +"(let-values(((ok?_91 #%require29_0 req30_0)" +"(let-values(((s_870) disarmed-s_27))" +"(let-values(((orig-s_98) s_870))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_834)(if(syntax?$1 s_833)(syntax-e$1 s_833) s_833)))" -"(if(pair? s_834)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_834))) s_46))" +"(let-values(((s_871)(if(syntax?$1 s_870)(syntax-e$1 s_870) s_870)))" +"(if(pair? s_871)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_871))) s_46))" "((req32_0)" -"(let-values(((s_32)(cdr s_834)))" -"(let-values(((s_707)" +"(let-values(((s_32)(cdr s_871)))" +"(let-values(((s_728)" "(if(syntax?$1 s_32)" "(syntax-e$1 s_32)" " s_32)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_707)))" -"(if(not flat-s_65)" +"(let-values(((flat-s_64)(to-syntax-list.1 s_728)))" +"(if(not flat-s_64)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98))" -"(let-values() flat-s_65)))))))" +"(let-values() flat-s_64)))))))" "(values #%require31_0 req32_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t #%require29_1 req30_1))))))" @@ -75725,15 +75799,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_12)))" -"((letrec-values(((for-loop_328)" -"(lambda(fold-var_382 lst_449)" +"((letrec-values(((for-loop_329)" +"(lambda(fold-var_383 lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_449)" -"(let-values(((req_20)(unsafe-car lst_449))" -"((rest_265)(unsafe-cdr lst_449)))" -"(let-values(((fold-var_383)" -"(let-values(((fold-var_384) fold-var_382))" +"(if(pair? lst_450)" +"(let-values(((req_20)(unsafe-car lst_450))" +"((rest_265)(unsafe-cdr lst_450)))" +"(let-values(((fold-var_384)" +"(let-values(((fold-var_385) fold-var_383))" "(let-values(((fold-var_36)" "(let-values()" "(cons" @@ -75741,13 +75815,13 @@ static const char *startup_source = "(add-scope" " req_20" " sc_35))" -" fold-var_384))))" +" fold-var_385))))" "(values fold-var_36)))))" "(if(not #f)" -"(for-loop_328 fold-var_383 rest_265)" -" fold-var_383)))" -" fold-var_382)))))" -" for-loop_328)" +"(for-loop_329 fold-var_384 rest_265)" +" fold-var_384)))" +" fold-var_383)))))" +" for-loop_329)" " null" " lst_12)))))" "((s34_0) s_45)" @@ -75884,7 +75958,7 @@ static const char *startup_source = "(let-values(((lst_270) runtime-instances))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_270)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_330)" "(lambda(lst_54)" "(begin" " 'for-loop" @@ -75933,9 +76007,9 @@ static const char *startup_source = " name_84)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_329 rest_171)(values))))" +"(if(not #f)(for-loop_330 rest_171)(values))))" "(values))))))" -" for-loop_329)" +" for-loop_330)" " lst_270)))" "(void))" "(let-values(((temp33_5) '#%builtin)"