diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl
index 0b2dbaaadb..ad03e58865 100644
--- a/pkgs/racket-test-core/tests/racket/module.rktl
+++ b/pkgs/racket-test-core/tests/racket/module.rktl
@@ -2582,6 +2582,20 @@ case of module-leve bindings; it doesn't cover local bindings.
 
   (dynamic-require '(submod 'm-use main) #f))
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Make sure that a module can be attached without a recorded namespace syntax context
+
+(eval
+ (let ([o (open-output-bytes)])
+   (write (compile
+           '(module please-attach-me-successfully racket/kernel
+              (#%declare #:empty-namespace)))
+          o)
+   (parameterize ([read-accept-compiled #t])
+     (read (open-input-bytes (get-output-bytes o))))))
+
+(namespace-attach-module-declaration (current-namespace) ''please-attach-me-successfully (make-base-namespace))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)
diff --git a/racket/src/expander/eval/module.rkt b/racket/src/expander/eval/module.rkt
index 60ae8e2c75..c56f893938 100644
--- a/racket/src/expander/eval/module.rkt
+++ b/racket/src/expander/eval/module.rkt
@@ -247,9 +247,7 @@
                              syntax-literals-linklet data-instance syntax-literals-data-instance
                              phase-shift original-self self bulk-binding-registry insp
                              create-root-expand-context-from-module)
-  (when (and (not (load-on-demand-enabled))
-             (not (eq? syntax-literals-data-instance empty-syntax-literals-data-instance))
-             (not (eq? syntax-literals-data-instance empty-syntax-literals-instance/empty-namespace)))
+  (when (not (load-on-demand-enabled))
     (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry))
   
   (define inst
@@ -296,12 +294,14 @@
 ;; ----------------------------------------
 
 (define (force-syntax-deserialize syntax-literals-data-instance bulk-binding-registry)
+  (unless (or (eq? syntax-literals-data-instance empty-syntax-literals-data-instance)
+              (eq? syntax-literals-data-instance empty-syntax-literals-instance/empty-namespace))
     ;; Since on-demand loading is disabled, force deserialization
     (let ([deserialize-syntax (instance-variable-value syntax-literals-data-instance deserialize-syntax-id)])
       ;; We need to make sure there's something to deserialize; if it's already done
       ;; `deserialize-syntax` has been set to #f
       (when deserialize-syntax
-        (deserialize-syntax bulk-binding-registry))))
+        (deserialize-syntax bulk-binding-registry)))))
 
 ;; ----------------------------------------
 
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 53c2d5b319..b2db52b92d 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -34580,11 +34580,7 @@ static const char *startup_source =
 "(begin"
 "(let-values((()"
 "(begin"
-"(if(if(not(load-on-demand-enabled))"
-"(if(not(eq? syntax-literals-data-instance_1 empty-syntax-literals-data-instance))"
-"(not(eq? syntax-literals-data-instance_1 empty-syntax-literals-instance/empty-namespace))"
-" #f)"
-" #f)"
+"(if(not(load-on-demand-enabled))"
 "(let-values()"
 "(force-syntax-deserialize syntax-literals-data-instance_1 bulk-binding-registry_16))"
 "(void))"
@@ -34623,7 +34619,7 @@ static const char *startup_source =
 "(delay"
 "(lambda()"
 "(begin"
-" '...nder/eval/module.rkt:281:39"
+" '...nder/eval/module.rkt:279:39"
 "(shift-to-inside-root-context"
 "(let-values(((self61_0) self_23))"
 "(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_0))))))))"
@@ -34634,7 +34630,7 @@ static const char *startup_source =
 "(delay"
 "(lambda()"
 "(begin"
-" '...nder/eval/module.rkt:285:39"
+" '...nder/eval/module.rkt:283:39"
 "(shift-to-inside-root-context"
 "(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_23)))))))"
 "(let-values()"
@@ -34643,7 +34639,7 @@ static const char *startup_source =
 "(delay"
 "(lambda()"
 "(begin"
-" '...nder/eval/module.rkt:292:39"
+" '...nder/eval/module.rkt:290:39"
 "(shift-to-inside-root-context"
 "(create-root-expand-context-from-module_1"
 " ns_66"
@@ -34654,9 +34650,15 @@ static const char *startup_source =
 "(force-syntax-deserialize)"
 "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)"
 "(begin"
+"(if(let-values(((or-part_263)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))"
+"(if or-part_263"
+" or-part_263"
+"(eq? syntax-literals-data-instance_2 empty-syntax-literals-instance/empty-namespace)))"
+"(void)"
+"(let-values()"
 "(let-values(((deserialize-syntax_0)"
 "(1/instance-variable-value syntax-literals-data-instance_2 deserialize-syntax-id)))"
-"(if deserialize-syntax_0(let-values()(deserialize-syntax_0 bulk-binding-registry_17))(void))))))"
+"(if deserialize-syntax_0(let-values()(deserialize-syntax_0 bulk-binding-registry_17))(void))))))))"
 "(define-values"
 "(compiled-module->dh+h)"
 "(lambda(c_27)"
@@ -34754,9 +34756,9 @@ static const char *startup_source =
 " 'for-loop"
 "(if i_149"
 "(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_118 i_149)))"
-"(let-values(((table_33)"
-"(let-values(((table_184) table_183))"
-"(let-values(((table_185)"
+"(let-values(((table_184)"
+"(let-values(((table_185) table_183))"
+"(let-values(((table_141)"
 "(let-values()"
 "(let-values(((key_69 val_60)"
 "(let-values()"
@@ -34764,9 +34766,11 @@ static const char *startup_source =
 " phase_88"
 "(1/linklet-export-variables"
 " linklet_5)))))"
-"(hash-set table_184 key_69 val_60)))))"
-"(values table_185)))))"
-"(if(not #f)(for-loop_237 table_33(hash-iterate-next ht_118 i_149)) table_33)))"
+"(hash-set table_185 key_69 val_60)))))"
+"(values table_141)))))"
+"(if(not #f)"
+"(for-loop_237 table_184(hash-iterate-next ht_118 i_149))"
+" table_184)))"
 " table_183)))))"
 " for-loop_237)"
 " '#hash()"
@@ -36442,12 +36446,12 @@ static const char *startup_source =
 "(unsafe-cdr"
 " lst_270)))"
 "(let-values(((ht_126)"
-"(let-values(((ht_118)"
-" ht_125))"
 "(let-values(((ht_127)"
+" ht_125))"
+"(let-values(((ht_118)"
 "(let-values()"
 "(hash-set"
-" ht_118"
+" ht_127"
 "(car"
 " sm_0)"
 "((if to-source?_3"
@@ -36456,7 +36460,7 @@ static const char *startup_source =
 "(cdr"
 " sm_0))))))"
 "(values"
-" ht_127)))))"
+" ht_118)))))"
 "(if(not"
 " #f)"
 "(for-loop_241"
@@ -38619,9 +38623,9 @@ static const char *startup_source =
 "(let-values(((i_45)(unsafe-car lst_273))((rest_152)(unsafe-cdr lst_273)))"
 "(let-values(((fold-var_225)"
 "(let-values(((fold-var_226) fold-var_5))"
-"(if(let-values(((or-part_263)(parsed? i_45)))"
-"(if or-part_263"
-" or-part_263"
+"(if(let-values(((or-part_264)(parsed? i_45)))"
+"(if or-part_264"
+" or-part_264"
 "(let-values(((or-part_36)(expanded+parsed? i_45)))"
 "(if or-part_36"
 " or-part_36"
@@ -38811,7 +38815,7 @@ static const char *startup_source =
 "(expand-identifier)"
 "(lambda(s_414 ctx_15 alternate-id_1)"
 "(begin"
-"(let-values(((id_60)(let-values(((or-part_264) alternate-id_1))(if or-part_264 or-part_264 s_414))))"
+"(let-values(((id_60)(let-values(((or-part_265) alternate-id_1))(if or-part_265 or-part_265 s_414))))"
 "(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))"
 "(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)"
 " #f)"
@@ -39095,9 +39099,9 @@ static const char *startup_source =
 "(let-values(((ae_0)(syntax-e$1 s_59)))"
 "(let-values(((exp-s_0)(already-expanded-s ae_0)))"
 "(begin"
-"(if(let-values(((or-part_265)(syntax-any-macro-scopes? s_59)))"
-"(if or-part_265"
-" or-part_265"
+"(if(let-values(((or-part_266)(syntax-any-macro-scopes? s_59)))"
+"(if or-part_266"
+" or-part_266"
 "(let-values(((or-part_215)"
 "(not"
 "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))"
@@ -39332,9 +39336,9 @@ static const char *startup_source =
 " id_64)"
 " #f))"
 "((temp197_0)"
-"(let-values(((or-part_266)"
+"(let-values(((or-part_267)"
 "(expand-context-only-immediate? ctx_23)))"
-"(if or-part_266 or-part_266(1/rename-transformer? t_54))))"
+"(if or-part_267 or-part_267(1/rename-transformer? t_54))))"
 "((temp198_0)"
 "(if(1/rename-transformer? t_54) fail-non-transformer_4 #f)))"
 "(expand9.1"
@@ -39429,9 +39433,9 @@ static const char *startup_source =
 "(syntax-track-origin$1"
 " post-s_0"
 " cleaned-s_0"
-"(let-values(((or-part_267) origin-id_0))"
-"(if or-part_267"
-" or-part_267"
+"(let-values(((or-part_268) origin-id_0))"
+"(if or-part_268"
+" or-part_268"
 "(if(syntax-identifier? s_121)"
 " s_121"
 "(car(syntax-e$1 s_121))))))))"
@@ -39465,9 +39469,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((confine-def-ctx-scopes?_0)"
 "(not"
-"(let-values(((or-part_268)(expand-context-only-immediate? ctx_26)))"
-"(if or-part_268"
-" or-part_268"
+"(let-values(((or-part_269)(expand-context-only-immediate? ctx_26)))"
+"(if or-part_269"
+" or-part_269"
 "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))"
 "(let-values(((accum-ctx_0)"
 "(if(if confine-def-ctx-scopes?_0"
@@ -39552,8 +39556,8 @@ static const char *startup_source =
 "(lambda(current-frame-id_0 bind-frame-id_0)"
 "(begin"
 "(if current-frame-id_0"
-"(let-values(((or-part_269)(eq? current-frame-id_0 bind-frame-id_0)))"
-"(if or-part_269 or-part_269(eq? current-frame-id_0 'all)))"
+"(let-values(((or-part_270)(eq? current-frame-id_0 bind-frame-id_0)))"
+"(if or-part_270 or-part_270(eq? current-frame-id_0 'all)))"
 " #f))))"
 "(define-values"
 "(maybe-add-post-expansion-scope)"
@@ -39800,10 +39804,10 @@ static const char *startup_source =
 "(get-and-clear-lifts!"
 "(expand-context-lifts capture-ctx_0))))"
 "(let-values(((with-lifts-s_0)"
-"(if(let-values(((or-part_270)"
+"(if(let-values(((or-part_271)"
 "(pair? lifts_6)))"
-"(if or-part_270"
-" or-part_270"
+"(if or-part_271"
+" or-part_271"
 " always-wrap?_1))"
 "(let-values()"
 "(if(expand-context-to-parsed? ctx_32)"
@@ -39838,12 +39842,12 @@ static const char *startup_source =
 " exp-s_2"
 " phase_102)))))"
 "(let-values() exp-s_2))))"
-"(if(let-values(((or-part_271)(not expand-lifts?_0)))"
-"(if or-part_271"
-" or-part_271"
-"(let-values(((or-part_272)(null? lifts_6)))"
+"(if(let-values(((or-part_272)(not expand-lifts?_0)))"
 "(if or-part_272"
 " or-part_272"
+"(let-values(((or-part_273)(null? lifts_6)))"
+"(if or-part_273"
+" or-part_273"
 "(expand-context-to-parsed? ctx_32)))))"
 "(let-values() with-lifts-s_0)"
 "(let-values()"
@@ -40099,8 +40103,8 @@ static const char *startup_source =
 "(let-values() #f)))))"
 "(if(expand-context-to-parsed? ctx_38)"
 "(let-values()"
-"(if(let-values(((or-part_273) keep-for-parsed?_0))"
-"(if or-part_273 or-part_273 keep-for-error?_0))"
+"(if(let-values(((or-part_274) keep-for-parsed?_0))"
+"(if or-part_274 or-part_274 keep-for-error?_0))"
 "(datum->syntax$1 #f keep-e_0 s_421 s_421)"
 " #f))"
 "(let-values()"
@@ -40119,8 +40123,8 @@ static const char *startup_source =
 " 'disappeared-binding"
 "(append"
 "(apply append trans-idss_0)"
-"(let-values(((or-part_274)(syntax-property$1 s_422 'disappeared-binding)))"
-"(if or-part_274 or-part_274 null)))))))))"
+"(let-values(((or-part_275)(syntax-property$1 s_422 'disappeared-binding)))"
+"(if or-part_275 or-part_275 null)))))))))"
 "(define-values"
 "(increment-binding-layer)"
 "(lambda(ids_22 ctx_39 layer-val_0)"
@@ -40129,9 +40133,9 @@ static const char *startup_source =
 "(lambda(ids_23)"
 "(begin"
 " 'loop"
-"(let-values(((or-part_275)(identifier? ids_23)))"
-"(if or-part_275"
-" or-part_275"
+"(let-values(((or-part_276)(identifier? ids_23)))"
+"(if or-part_276"
+" or-part_276"
 "(if(pair? ids_23)"
 "(let-values(((or-part_198)(loop_93(car ids_23))))"
 "(if or-part_198 or-part_198(loop_93(cdr ids_23))))"
@@ -41095,12 +41099,12 @@ static const char *startup_source =
 "(intdefs?)"
 "(lambda(x_78)"
 "(begin"
-"(let-values(((or-part_276)(1/internal-definition-context? x_78)))"
-"(if or-part_276 or-part_276(if(list? x_78)(andmap2 1/internal-definition-context? x_78) #f))))))"
+"(let-values(((or-part_277)(1/internal-definition-context? x_78)))"
+"(if or-part_277 or-part_277(if(list? x_78)(andmap2 1/internal-definition-context? x_78) #f))))))"
 " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")"
 "(define-values"
 "(intdefs-or-false?)"
-"(lambda(x_79)(begin(let-values(((or-part_277)(not x_79)))(if or-part_277 or-part_277(intdefs? x_79))))))"
+"(lambda(x_79)(begin(let-values(((or-part_278)(not x_79)))(if or-part_278 or-part_278(intdefs? x_79))))))"
 "(define-values"
 "(intdefs-or-false?-string)"
 "  \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")"
@@ -41208,9 +41212,9 @@ static const char *startup_source =
 "(let-values(((intdef_11)(car a_50)))"
 "(let-values(((s_321)"
 "(let-values(((s_213) s_425))"
-"(if(let-values(((or-part_278) always?_0))"
-"(if or-part_278"
-" or-part_278"
+"(if(let-values(((or-part_279) always?_0))"
+"(if or-part_279"
+" or-part_279"
 "(internal-definition-context-add-scope?"
 " intdef_11)))"
 "(let-values(((s_426) s_213))"
@@ -41249,9 +41253,9 @@ static const char *startup_source =
 "(let-values(((keep-#%expression?_1) keep-#%expression?33_0))"
 "(let-values()"
 "(let-values(((same-kind?_0)"
-"(let-values(((or-part_279)(eq? context_9(expand-context-context ctx_45))))"
-"(if or-part_279"
-" or-part_279"
+"(let-values(((or-part_280)(eq? context_9(expand-context-context ctx_45))))"
+"(if or-part_280"
+" or-part_280"
 "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))"
 "(let-values(((all-stop-ids_0)"
 "(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_107) #f)))"
@@ -41265,14 +41269,14 @@ static const char *startup_source =
 "(let-values(((context69_0) context_9)"
 "((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))"
 "((use-site-scopes71_0)"
-"(if(let-values(((or-part_280)(eq? context_9 'module)))"
-"(if or-part_280"
-" or-part_280"
-"(let-values(((or-part_281)(eq? context_9 'module-begin)))"
-"(if or-part_281 or-part_281(list? context_9)))))"
-"(let-values(((or-part_282)"
+"(if(let-values(((or-part_281)(eq? context_9 'module)))"
+"(if or-part_281"
+" or-part_281"
+"(let-values(((or-part_282)(eq? context_9 'module-begin)))"
+"(if or-part_282 or-part_282(list? context_9)))))"
+"(let-values(((or-part_283)"
 "(root-expand-context-use-site-scopes ctx_45)))"
-"(if or-part_282 or-part_282(box null)))"
+"(if or-part_283 or-part_283(box null)))"
 " #f))"
 "((frame-id72_0)"
 "(let-values(((x_82)"
@@ -41309,10 +41313,10 @@ static const char *startup_source =
 "(let-values()"
 " 'all)"
 "(let-values()"
-"(let-values(((or-part_283)"
+"(let-values(((or-part_284)"
 " frame-id_11))"
-"(if or-part_283"
-" or-part_283"
+"(if or-part_284"
+" or-part_284"
 " i-frame-id_0))))))))"
 "(values"
 " frame-id_12)))))"
@@ -41368,8 +41372,8 @@ static const char *startup_source =
 "((stops86_0)"
 "(free-id-set"
 " phase_107"
-"(let-values(((or-part_284) all-stop-ids_0))"
-"(if or-part_284 or-part_284 null)))))"
+"(let-values(((or-part_285) all-stop-ids_0))"
+"(if or-part_285 or-part_285 null)))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi the-struct_67)"
 "(root-expand-context/inner-module-scopes the-struct_67)"
@@ -41590,8 +41594,8 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(if((lambda(x_19)"
-"(let-values(((or-part_285)(not x_19)))"
-"(if or-part_285 or-part_285(syntax?$1 x_19))))"
+"(let-values(((or-part_286)(not x_19)))"
+"(if or-part_286 or-part_286(syntax?$1 x_19))))"
 " base-s_0)"
 "(void)"
 "(let-values()"
@@ -41619,7 +41623,7 @@ static const char *startup_source =
 "(let-values(((use-base-scs_0)"
 "(if(subset? base-scs_0 ext-scs_0)"
 " base-scs_0"
-"(let-values(((or-part_286)"
+"(let-values(((or-part_287)"
 "(if(identifier? base-s_0)"
 "(let-values(((base-s73_0) base-s_0)"
 "((phase74_1) phase_5)"
@@ -41632,7 +41636,7 @@ static const char *startup_source =
 " base-s73_0"
 " phase74_1))"
 " #f)))"
-"(if or-part_286 or-part_286(seteq))))))"
+"(if or-part_287 or-part_287(seteq))))))"
 "(let-values(((delta-scs_0)"
 "(set->list(set-subtract ext-scs_0 use-base-scs_0))))"
 "(let-values(((maybe-taint_0)"
@@ -42116,13 +42120,13 @@ static const char *startup_source =
 "                                                           \"form to lift\""
 " s_432)))"
 "(values))))"
-"(let-values(((phase_110)(expand-context-phase ctx_57)))"
+"(let-values(((phase_88)(expand-context-phase ctx_57)))"
 "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))"
 "(let-values(((added-s_0)"
 "(if intro?_0(flip-introduction-scopes s_432 ctx_57) s_432)))"
-"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_110 lift-ctx_4)))"
+"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_88 lift-ctx_4)))"
 "(let-values(((shift-s_0)"
-"(let-values(((start_40) phase_110)"
+"(let-values(((start_40) phase_88)"
 "((end_30) wrt-phase_1)"
 "((inc_24) -1))"
 "(begin"
@@ -42136,7 +42140,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(> pos_107 end_30)"
-"(let-values(((phase_111)"
+"(let-values(((phase_110)"
 " pos_107))"
 "(let-values(((s_319)"
 "(let-values(((s_425)"
@@ -42146,7 +42150,7 @@ static const char *startup_source =
 "(shift-wrap_0"
 " s_425"
 "(sub1"
-" phase_111)"
+" phase_110)"
 " lift-ctx_4))))"
 "(values"
 " s_435)))))"
@@ -42187,11 +42191,11 @@ static const char *startup_source =
 "((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)"
 "((add-lifted-require!117_0) add-lifted-require!)"
 "((temp118_0)"
-"(lambda(s_109 phase_112 require-lift-ctx_0)"
+"(lambda(s_109 phase_111 require-lift-ctx_0)"
 "(require-spec-shift-for-syntax s_109)))"
 "((temp119_0)"
-"(lambda(s_436 phase_113 require-lift-ctx_1)"
-"(wrap-form '#%require(add-scope s_436 sc_34) phase_113))))"
+"(lambda(s_436 phase_112 require-lift-ctx_1)"
+"(wrap-form '#%require(add-scope s_436 sc_34) phase_112))))"
 "(do-local-lift-to-module48.1"
 " add-lifted-require!117_0"
 " expand-context-require-lifts115_0"
@@ -42233,10 +42237,10 @@ static const char *startup_source =
 "((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)"
 "((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)"
 "((temp127_2)"
-"(lambda(s_438 phase_114 to-module-lift-ctx_0)(wrap-form 'for-syntax s_438 #f)))"
+"(lambda(s_438 phase_113 to-module-lift-ctx_0)(wrap-form 'for-syntax s_438 #f)))"
 "((temp128_2)"
-"(lambda(s_115 phase_115 to-module-lift-ctx_1)"
-"(wrap-form '#%provide s_115 phase_115))))"
+"(lambda(s_115 phase_114 to-module-lift-ctx_1)"
+"(wrap-form '#%provide s_115 phase_114))))"
 "(do-local-lift-to-module48.1"
 " add-lifted-to-module-provide!126_0"
 " expand-context-to-module-lifts124_0"
@@ -42269,13 +42273,13 @@ static const char *startup_source =
 "((temp134_1)(lambda(lift-ctx_5) 0))"
 "((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)"
 "((temp136_0)"
-"(lambda(orig-s_32 phase_116 to-module-lift-ctx_2)"
+"(lambda(orig-s_32 phase_115 to-module-lift-ctx_2)"
 "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)"
-"(wrap-form '#%expression orig-s_32 phase_116)"
+"(wrap-form '#%expression orig-s_32 phase_115)"
 " orig-s_32)))"
 "((temp137_1)"
-"(lambda(s_439 phase_117 to-module-lift-ctx_3)"
-"(wrap-form 'begin-for-syntax s_439 phase_117))))"
+"(lambda(s_439 phase_116 to-module-lift-ctx_3)"
+"(wrap-form 'begin-for-syntax s_439 phase_116))))"
 "(do-local-lift-to-module48.1"
 " add-lifted-to-module-end!135_0"
 " expand-context-to-module-lifts133_0"
@@ -42294,11 +42298,11 @@ static const char *startup_source =
 "(void)))))))))"
 "(define-values"
 "(wrap-form)"
-"(lambda(sym_72 s_123 phase_118)"
+"(lambda(sym_72 s_123 phase_117)"
 "(begin"
 "(datum->syntax$1"
 " #f"
-"(list(datum->syntax$1(if phase_118(syntax-shift-phase-level$1 core-stx phase_118) #f) sym_72) s_123)))))"
+"(list(datum->syntax$1(if phase_117(syntax-shift-phase-level$1 core-stx phase_117) #f) sym_72) s_123)))))"
 "(define-values"
 "(1/syntax-local-module-defined-identifiers)"
 "(lambda()"
@@ -42328,8 +42332,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_287)(not mod-path_8)))"
-"(if or-part_287 or-part_287(1/module-path? mod-path_8)))"
+"(if(let-values(((or-part_288)(not mod-path_8)))"
+"(if or-part_288 or-part_288(1/module-path? mod-path_8)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -42339,8 +42343,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_288)(eq? phase-level_21 #t)))"
-"(if or-part_288 or-part_288(phase? phase-level_21)))"
+"(if(let-values(((or-part_289)(eq? phase-level_21 #t)))"
+"(if or-part_289 or-part_289(phase? phase-level_21)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -42379,7 +42383,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_166"
-"(let-values(((phase_119 ids_29)"
+"(let-values(((phase_118 ids_29)"
 "(hash-iterate-key+value ht_131 i_166)))"
 "(let-values(((fold-var_203)"
 "(let-values(((fold-var_255) fold-var_254))"
@@ -42387,7 +42391,7 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(cons phase_119 ids_29))"
+"(cons phase_118 ids_29))"
 " fold-var_255))))"
 "(values fold-var_256)))))"
 "(if(not #f)"
@@ -42437,9 +42441,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_289)(1/module-path? mod-path_9)))"
-"(if or-part_289"
-" or-part_289"
+"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))"
+"(if or-part_290"
+" or-part_290"
 "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))"
 "(void)"
 "(let-values()"
@@ -42478,7 +42482,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_167"
-"(let-values(((phase_120 syms_20)"
+"(let-values(((phase_119 syms_20)"
 "(hash-iterate-key+value ht_136 i_167)))"
 "(let-values(((fold-var_258)"
 "(let-values(((fold-var_259) fold-var_257))"
@@ -42487,7 +42491,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(cons"
-" phase_120"
+" phase_119"
 "(reverse$1"
 "(let-values(((ht_137)"
 " syms_20))"
@@ -42636,8 +42640,8 @@ static const char *startup_source =
 "(srcloc-vector?)"
 "(lambda(v_71)"
 "(begin"
-"(if(let-values(((or-part_290)(not(vector-ref v_71 1))))"
-"(if or-part_290 or-part_290(exact-positive-integer?(vector-ref v_71 1))))"
+"(if(let-values(((or-part_291)(not(vector-ref v_71 1))))"
+"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_71 1))))"
 "(if(let-values(((or-part_27)(not(vector-ref v_71 2))))"
 "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_71 2))))"
 "(if(let-values(((or-part_10)(not(vector-ref v_71 3))))"
@@ -42730,9 +42734,9 @@ static const char *startup_source =
 "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))"
 "(void)"
 "                                        (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))"
-"(if(let-values(((or-part_291)(not stx-l_2)))"
-"(if or-part_291"
-" or-part_291"
+"(if(let-values(((or-part_292)(not stx-l_2)))"
+"(if or-part_292"
+" or-part_292"
 "(let-values(((or-part_28)(syntax?$1 stx-l_2)))"
 "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))"
 "(void)"
@@ -42752,8 +42756,8 @@ static const char *startup_source =
 "                                            \"                 (or/c exact-positive-integer? #f)\\n\""
 "                                            \"                 (or/c exact-nonnegative-integer? #f)))\")"
 " stx-l_2)))"
-"(if(let-values(((or-part_292)(not stx-p_1)))"
-"(if or-part_292 or-part_292(syntax?$1 stx-p_1)))"
+"(if(let-values(((or-part_293)(not stx-p_1)))"
+"(if or-part_293 or-part_293(syntax?$1 stx-p_1)))"
 "(void)"
 "                                        (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))"
 "(datum->syntax$1 stx-c_4 s_440(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))"
@@ -42790,7 +42794,7 @@ static const char *startup_source =
 " 'bound-identifier=?11"
 "(let-values(((a_53) a9_0))"
 "(let-values(((b_82) b10_0))"
-"(let-values(((phase_121)"
+"(let-values(((phase_120)"
 "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))"
 "(let-values()"
 "(let-values()"
@@ -42802,10 +42806,10 @@ static const char *startup_source =
 "(if(identifier? b_82)"
 "(void)"
 "                                    (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_82)))"
-"(if(phase? phase_121)"
+"(if(phase? phase_120)"
 "(void)"
-"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_121)))"
-"(bound-identifier=?$1 a_53 b_82 phase_121))))))))))))"
+"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_120)))"
+"(bound-identifier=?$1 a_53 b_82 phase_120))))))))))))"
 "(case-lambda"
 "((a_54 b_83)(begin 'bound-identifier=?(bound-identifier=?11_0 a_54 b_83 unsafe-undefined)))"
 "((a_55 b_84 phase8_1)(bound-identifier=?11_0 a_55 b_84 phase8_1)))))"
@@ -42860,8 +42864,8 @@ static const char *startup_source =
 "(void)"
 "                              (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_88)))"
 "(values))))"
-"(let-values(((phase_122)(add1(1/syntax-local-phase-level))))"
-"(free-identifier=?$1 a_60 b_88 phase_122 phase_122)))))))))"
+"(let-values(((phase_121)(add1(1/syntax-local-phase-level))))"
+"(free-identifier=?$1 a_60 b_88 phase_121 phase_121)))))))))"
 "(define-values"
 "(1/free-template-identifier=?)"
 "(lambda(a_61 b_89)"
@@ -42881,8 +42885,8 @@ static const char *startup_source =
 "(void)"
 "                              (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_89)))"
 "(values))))"
-"(let-values(((phase_123)(sub1(1/syntax-local-phase-level))))"
-"(free-identifier=?$1 a_61 b_89 phase_123 phase_123)))))))))"
+"(let-values(((phase_122)(sub1(1/syntax-local-phase-level))))"
+"(free-identifier=?$1 a_61 b_89 phase_122 phase_122)))))))))"
 "(define-values"
 "(1/free-label-identifier=?)"
 "(lambda(a_62 b_90)"
@@ -42905,7 +42909,7 @@ static const char *startup_source =
 "(begin"
 " 'identifier-binding22"
 "(let-values(((id_89) id21_0))"
-"(let-values(((phase_124)"
+"(let-values(((phase_123)"
 "(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))"
 "(let-values(((top-level-symbol?_1) top-level-symbol?20_0))"
 "(let-values()"
@@ -42915,10 +42919,10 @@ static const char *startup_source =
 "(if(identifier? id_89)"
 "(void)"
 "                                    (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_89)))"
-"(if(phase? phase_124)"
+"(if(phase? phase_123)"
 "(void)"
-"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_124)))"
-"(identifier-binding$1 id_89 phase_124 top-level-symbol?_1))))))))))))"
+"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_123)))"
+"(identifier-binding$1 id_89 phase_123 top-level-symbol?_1))))))))))))"
 "(case-lambda"
 "((id_90)(begin 'identifier-binding(identifier-binding22_0 id_90 unsafe-undefined #f)))"
 "((id_15 phase_83 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_83 top-level-symbol?20_1))"
@@ -42930,7 +42934,7 @@ static const char *startup_source =
 "(begin"
 " 'identifier-transformer-binding26"
 "(let-values(((id_92) id25_3))"
-"(let-values(((phase_125)"
+"(let-values(((phase_124)"
 "(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))"
 "(let-values()"
 "(let-values()"
@@ -42940,7 +42944,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                    (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_92)))"
-"(identifier-binding$1 id_92(if phase_125(add1 phase_125) #f))))))))))))"
+"(identifier-binding$1 id_92(if phase_124(add1 phase_124) #f))))))))))))"
 "(case-lambda"
 "((id_93)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_93 unsafe-undefined)))"
 "((id_58 phase24_2)(identifier-transformer-binding26_0 id_58 phase24_2)))))"
@@ -43042,11 +43046,11 @@ static const char *startup_source =
 "(syntax-debug-info$1 s_412 phase_75 all-bindings?_1))))))))))))"
 "(case-lambda"
 "((s_85)(begin 'syntax-debug-info(syntax-debug-info39_0 s_85 unsafe-undefined #f)))"
-"((s_443 phase_126 all-bindings?37_1)(syntax-debug-info39_0 s_443 phase_126 all-bindings?37_1))"
+"((s_443 phase_125 all-bindings?37_1)(syntax-debug-info39_0 s_443 phase_125 all-bindings?37_1))"
 "((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))"
 "(define-values"
 "(1/syntax-shift-phase-level)"
-"(lambda(s_444 phase_127)"
+"(lambda(s_444 phase_126)"
 "(begin"
 " 'syntax-shift-phase-level"
 "(let-values()"
@@ -43055,10 +43059,10 @@ static const char *startup_source =
 "(if(syntax?$1 s_444)"
 "(void)"
 "              (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_444)))"
-"(if(phase? phase_127)"
+"(if(phase? phase_126)"
 "(void)"
-"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_127)))"
-"(syntax-shift-phase-level$1 s_444 phase_127)))))))"
+"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_126)))"
+"(syntax-shift-phase-level$1 s_444 phase_126)))))))"
 "(define-values"
 "(1/syntax-track-origin)"
 "(lambda(new-stx_8 old-stx_4 id_100)"
@@ -43190,17 +43194,17 @@ static const char *startup_source =
 "(void)"
 "                                        (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))"
 "(values))))"
-"(let-values(((phase_128)(namespace-phase src-namespace_6)))"
+"(let-values(((phase_127)(namespace-phase src-namespace_6)))"
 "(let-values((()"
 "(begin"
-"(if(eqv? phase_128(namespace-phase dest-namespace_2))"
+"(if(eqv? phase_127(namespace-phase dest-namespace_2))"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
 " who_22"
 "                                               \"source and destination namespace phases do not match\""
 "                                               \"source phase\""
-" phase_128"
+" phase_127"
 "                                               \"destination phase\""
 "(namespace-phase dest-namespace_2))))"
 "(values))))"
@@ -43210,7 +43214,7 @@ static const char *startup_source =
 "(begin"
 "((letrec-values(((loop_96)"
 "(lambda(mpi_46"
-" phase_129"
+" phase_128"
 " attach-instances?_1"
 " attach-phase_0)"
 "(begin"
@@ -43229,7 +43233,7 @@ static const char *startup_source =
 " mpi_46)))))"
 "(let-values(((attach-this-instance?_0)"
 "(if attach-instances?_1"
-"(eqv? phase_129 attach-phase_0)"
+"(eqv? phase_128 attach-phase_0)"
 " #f)))"
 "(let-values(((m-ns_12)"
 "(hash-ref"
@@ -43237,7 +43241,7 @@ static const char *startup_source =
 " todo_0"
 " mod-name_19"
 " '#hasheqv())"
-" phase_129"
+" phase_128"
 " missing_0)))"
 "(if(let-values(((or-part_164)"
 "(eq? missing_0 m-ns_12)))"
@@ -43263,9 +43267,9 @@ static const char *startup_source =
 "(if(if(module-cross-phase-persistent?"
 " m_20)"
 "(if(not"
-"(label-phase? phase_129))"
+"(label-phase? phase_128))"
 "(not"
-"(zero-phase? phase_129))"
+"(zero-phase? phase_128))"
 " #f)"
 " #f)"
 "(let-values()"
@@ -43297,10 +43301,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((m-ns_13"
 " already?_0)"
-"(if(let-values(((or-part_293)"
+"(if(let-values(((or-part_294)"
 " attach-this-instance?_0))"
-"(if or-part_293"
-" or-part_293"
+"(if or-part_294"
+" or-part_294"
 "(module-cross-phase-persistent?"
 " m_20)))"
 "(let-values()"
@@ -43310,7 +43314,7 @@ static const char *startup_source =
 "((mod-name31_0)"
 " mod-name_19)"
 "((phase32_1)"
-" phase_129))"
+" phase_128))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
@@ -43336,7 +43340,7 @@ static const char *startup_source =
 "((mod-name34_0)"
 " mod-name_19)"
 "((phase35_1)"
-" phase_129))"
+" phase_128))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
@@ -43372,14 +43376,14 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(if(if(label-phase?"
-" phase_129)"
+" phase_128)"
 "(not"
 "(let-values(((src-namespace36_0)"
 " src-namespace_6)"
 "((mod-name37_0)"
 " mod-name_19)"
 "((phase38_0)"
-" phase_129))"
+" phase_128))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
@@ -43403,7 +43407,7 @@ static const char *startup_source =
 "((mpi40_0)"
 " mpi_46)"
 "((phase41_1)"
-" phase_129))"
+" phase_128))"
 "(namespace-module-instantiate!96.1"
 " #t"
 " unsafe-undefined"
@@ -43425,7 +43429,7 @@ static const char *startup_source =
 "(lambda(ht_139)"
 "(hash-set"
 " ht_139"
-" phase_129"
+" phase_128"
 " m-ns_13))"
 " '#hasheqv())"
 "(if already?_0"
@@ -43490,7 +43494,7 @@ static const char *startup_source =
 " m_20)"
 " mpi_46)"
 "(phase+"
-" phase_129"
+" phase_128"
 "(car"
 " phase+reqs_1))"
 " attach-instances?_1"
@@ -43582,9 +43586,9 @@ static const char *startup_source =
 "(resolved-module-path->module-path mod-path_16)"
 " mod-path_16)"
 " #f)"
-" phase_128"
+" phase_127"
 " attach-instances?_0"
-" phase_128)"
+" phase_127)"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -43617,7 +43621,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_46"
-"(let-values(((phase_130"
+"(let-values(((phase_129"
 " m-ns_15)"
 "(hash-iterate-key+value"
 " ht_141"
@@ -43662,14 +43666,14 @@ static const char *startup_source =
 "(namespace-record-module-instance-attached!"
 " src-namespace_6"
 " mod-name_20"
-" phase_130)"
+" phase_129)"
 "(let-values(((or-part_25)"
 "(let-values(((dest-namespace45_0)"
 " dest-namespace_2)"
 "((mod-name46_0)"
 " mod-name_20)"
 "((phase47_2)"
-" phase_130))"
+" phase_129))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
@@ -43682,7 +43686,7 @@ static const char *startup_source =
 "(namespace-install-module-namespace!"
 " dest-namespace_2"
 " mod-name_20"
-" phase_130"
+" phase_129"
 " m_21"
 " m-ns_15)))))"
 "(void)))))"
@@ -44138,9 +44142,9 @@ static const char *startup_source =
 "(if(symbol? sym_74)"
 "(void)"
 "                                      (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))"
-"(if(let-values(((or-part_294)(not failure-thunk_5)))"
-"(if or-part_294"
-" or-part_294"
+"(if(let-values(((or-part_295)(not failure-thunk_5)))"
+"(if or-part_295"
+" or-part_295"
 "(if(procedure? failure-thunk_5)"
 "(procedure-arity-includes? failure-thunk_5 0)"
 " #f)))"
@@ -44239,9 +44243,9 @@ static const char *startup_source =
 " var-sym_6"
 "(lambda()"
 "(escape_0"
-"(let-values(((or-part_295) failure-thunk_5))"
-"(if or-part_295"
-" or-part_295"
+"(let-values(((or-part_296) failure-thunk_5))"
+"(if or-part_296"
+" or-part_296"
 "(raise"
 "(exn:fail:contract:variable"
 "(format"
@@ -44406,15 +44410,15 @@ static const char *startup_source =
 "(if(let-values(((or-part_28)(compiled-in-memory? s_447)))"
 "(if or-part_28"
 " or-part_28"
-"(let-values(((or-part_292)(1/linklet-directory? s_447)))"
-"(if or-part_292 or-part_292(1/linklet-bundle? s_447)))))"
+"(let-values(((or-part_293)(1/linklet-directory? s_447)))"
+"(if or-part_293 or-part_293(1/linklet-bundle? s_447)))))"
 "(let-values()(eval-compiled s_447 ns_87))"
 "(if(if(syntax?$1 s_447)"
-"(let-values(((or-part_296)(compiled-in-memory?(1/syntax-e s_447))))"
-"(if or-part_296"
-" or-part_296"
-"(let-values(((or-part_297)(1/linklet-directory?(1/syntax-e s_447))))"
-"(if or-part_297 or-part_297(1/linklet-bundle?(1/syntax-e s_447))))))"
+"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_447))))"
+"(if or-part_297"
+" or-part_297"
+"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_447))))"
+"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_447))))))"
 " #f)"
 "(let-values()(eval-compiled(1/syntax->datum s_447) ns_87))"
 "(let-values()"
@@ -44922,9 +44926,9 @@ static const char *startup_source =
 "(let-values(((ctx_68)"
 "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))"
 "(make-expand-context10.1 #f observer133_0 #f ns132_0))))"
-"(let-values(((phase_131)(namespace-phase ns_106)))"
+"(let-values(((phase_130)(namespace-phase ns_106)))"
 "((letrec-values(((loop_98)"
-"(lambda(s_461 phase_132 ns_107 as-tail?_7)"
+"(lambda(s_461 phase_131 ns_107 as-tail?_7)"
 "(begin"
 " 'loop"
 "(let-values(((tl-ctx_0)"
@@ -44938,7 +44942,7 @@ static const char *startup_source =
 "(if(expand-context/inner?"
 " the-struct_72)"
 "(let-values(((phase135_1)"
-" phase_132)"
+" phase_131)"
 "((namespace136_0)"
 " ns_107)"
 "((just-once?137_0)"
@@ -45059,7 +45063,7 @@ static const char *startup_source =
 "(if(expand-context/inner?"
 " the-struct_74)"
 "(let-values(((phase141_0)"
-" phase_132)"
+" phase_131)"
 "((namespace142_0)"
 " ns_107))"
 "(expand-context/inner2.1"
@@ -45152,9 +45156,9 @@ static const char *startup_source =
 " the-struct_73)))))))"
 "(let-values(((disarmed-exp-s_0)"
 "(syntax-disarm$1 exp-s_7)))"
-"(if(let-values(((or-part_298)"
+"(if(let-values(((or-part_299)"
 "(pair? require-lifts_5)))"
-"(if or-part_298 or-part_298(pair? lifts_12)))"
+"(if or-part_299 or-part_299(pair? lifts_12)))"
 "(let-values()"
 "(let-values(((new-s_3)"
 "(let-values(((temp143_1)"
@@ -45162,7 +45166,7 @@ static const char *startup_source =
 " require-lifts_5"
 " lifts_12))"
 "((exp-s144_0) exp-s_7)"
-"((phase145_0) phase_132))"
+"((phase145_0) phase_131))"
 "(wrap-lifts-as-begin16.1"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -45185,7 +45189,7 @@ static const char *startup_source =
 " new-s_3"
 "(loop_98"
 " new-s_3"
-" phase_132"
+" phase_131"
 " ns_107"
 " as-tail?_7)))))"
 "(if(not single_0)"
@@ -45209,7 +45213,7 @@ static const char *startup_source =
 "(let-values(((tmp_35)"
 "(core-form-sym"
 " disarmed-exp-s_0"
-" phase_132)))"
+" phase_131)))"
 "(if(equal? tmp_35 'begin)"
 "(let-values()"
 "(let-values((()"
@@ -45296,7 +45300,7 @@ static const char *startup_source =
 "(let-values()"
 "(loop_98"
 "(car es_2)"
-" phase_132"
+" phase_131"
 " ns_107"
 " as-tail?_7))"
 "(let-values()"
@@ -45318,14 +45322,14 @@ static const char *startup_source =
 "(loop_98"
 "(car"
 " es_2)"
-" phase_132"
+" phase_131"
 " ns_107"
 " #f)"
 "(begin"
 "(loop_98"
 "(car"
 " es_2)"
-" phase_132"
+" phase_131"
 " ns_107"
 " #f)"
 "(void)))))"
@@ -45432,7 +45436,7 @@ static const char *startup_source =
 " begin-for-syntax150_1"
 " e151_1))))))"
 "(let-values(((next-phase_0)"
-"(add1 phase_132)))"
+"(add1 phase_131)))"
 "(let-values(((next-ns_0)"
 "(namespace->namespace-at-phase"
 " ns_107"
@@ -45557,7 +45561,7 @@ static const char *startup_source =
 " as-tail?_7))))))))))))))))))"
 " loop_98)"
 " s_216"
-" phase_131"
+" phase_130"
 " ns_106"
 " #t)))))))))))))))))"
 "(define-values"
@@ -45671,7 +45675,7 @@ static const char *startup_source =
 "(make-parse-top-lifted-require)"
 "(lambda(ns_110)"
 "(begin"
-"(lambda(s_347 phase_133)"
+"(lambda(s_347 phase_132)"
 "(let-values(((ok?_31 #%require161_0 req162_0)"
 "(let-values(((s_469)(syntax-disarm$1 s_347)))"
 "(let-values(((orig-s_35) s_469))"
@@ -45709,8 +45713,8 @@ static const char *startup_source =
 "(let-values(((temp166_0)(list req162_0))"
 "((s167_0) s_347)"
 "((ns168_0) ns_110)"
-"((phase169_1) phase_133)"
-"((phase170_0) phase_133)"
+"((phase169_1) phase_132)"
+"((phase170_0) phase_132)"
 "((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))"
 "((temp172_0) 'require))"
 "(parse-and-perform-requires!30.1"
@@ -46362,12 +46366,12 @@ static const char *startup_source =
 "(if(list? l_75)"
 "(andmap2"
 "(lambda(p_54)"
-"(let-values(((or-part_296)(not p_54)))"
-"(if or-part_296"
-" or-part_296"
-"(let-values(((or-part_297)(complete-path-string? p_54)))"
+"(let-values(((or-part_297)(not p_54)))"
 "(if or-part_297"
 " or-part_297"
+"(let-values(((or-part_298)(complete-path-string? p_54)))"
+"(if or-part_298"
+" or-part_298"
 "(if(hash? p_54)"
 "(let-values(((ht_144) p_54))"
 "(begin"
@@ -46589,8 +46593,8 @@ static const char *startup_source =
 "(let-values(((sp_0)(find-system-path 'exec-file)))"
 "(let-values(((exe_0)(find-executable-path sp_0 #f)))"
 "(let-values(((start_42)"
-"(let-values(((or-part_297)(1/string->number start_41)))"
-"(if or-part_297 or-part_297 0))))"
+"(let-values(((or-part_298)(1/string->number start_41)))"
+"(if or-part_298 or-part_298 0))))"
 "(let-values(((end_32)"
 "(let-values(((or-part_91)(1/string->number end_31)))"
 "(if or-part_91 or-part_91 0))))"
@@ -46711,7 +46715,7 @@ static const char *startup_source =
 "(lambda(d_34)"
 "(begin"
 "      (let-values (((p_62) (if d_34 (build-path d_34 \"config.rktd\") #f)))"
-"(let-values(((or-part_292)"
+"(let-values(((or-part_293)"
 "(if p_62"
 "(if(file-exists? p_62)"
 "(let-values(((p7_1) p_62)"
@@ -46724,7 +46728,7 @@ static const char *startup_source =
 "(with-input-from-file45.1 'binary p7_1 temp8_1))"
 " #f)"
 " #f)))"
-"(if or-part_292 or-part_292 '#hash()))))))"
+"(if or-part_293 or-part_293 '#hash()))))))"
 "(define-values"
 "(get-installation-name)"
 "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))"
@@ -46923,17 +46927,17 @@ static const char *startup_source =
 "(if(list? p_65)"
 "(if(let-values(((or-part_226)(= 2(length p_65))))"
 "(if or-part_226 or-part_226(= 3(length p_65))))"
-"(if(let-values(((or-part_299)(string?(car p_65))))"
-"(if or-part_299"
-" or-part_299"
-"(let-values(((or-part_300)"
-"(eq? 'root(car p_65))))"
+"(if(let-values(((or-part_300)(string?(car p_65))))"
 "(if or-part_300"
 " or-part_300"
+"(let-values(((or-part_301)"
+"(eq? 'root(car p_65))))"
+"(if or-part_301"
+" or-part_301"
 "(eq? 'static-root(car p_65))))))"
 "(if(path-string?(cadr p_65))"
-"(let-values(((or-part_301)(null?(cddr p_65))))"
-"(if or-part_301 or-part_301(regexp?(caddr p_65))))"
+"(let-values(((or-part_302)(null?(cddr p_65))))"
+"(if or-part_302 or-part_302(regexp?(caddr p_65))))"
 " #f)"
 " #f)"
 " #f)"
@@ -46950,8 +46954,8 @@ static const char *startup_source =
 "(begin"
 "(for-each2"
 "(lambda(p_66)"
-"(if(let-values(((or-part_264)(null?(cddr p_66))))"
-"(if or-part_264 or-part_264(regexp-match?(caddr p_66)(version))))"
+"(if(let-values(((or-part_265)(null?(cddr p_66))))"
+"(if or-part_265 or-part_265(regexp-match?(caddr p_66)(version))))"
 "(let-values()"
 "(let-values(((dir_1)"
 "(simplify-path(path->complete-path(cadr p_66) dir_0))))"
@@ -47122,13 +47126,13 @@ static const char *startup_source =
 "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))"
 "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))"
 "(if file-name_1"
-"(if(let-values(((or-part_302)"
+"(if(let-values(((or-part_303)"
 "(file-exists?/maybe-compiled"
 " cpath_0"
 " file-name_1"
 " check-compiled?_1)))"
-"(if or-part_302"
-" or-part_302"
+"(if or-part_303"
+" or-part_303"
 "(let-values(((alt-file-name_0)"
 "(let-values(((file-name_2)"
 "(if(path? file-name_1)"
@@ -47495,9 +47499,9 @@ static const char *startup_source =
 " wrap_4"
 "(let-values(((or-part_52) read-compiled_1))"
 "                                 (if or-part_52 or-part_52 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))"
-"(let-values(((or-part_303) dynamic-require_1))"
-"(if or-part_303"
-" or-part_303"
+"(let-values(((or-part_304) dynamic-require_1))"
+"(if or-part_304"
+" or-part_304"
 "(lambda(mod-path_26 sym_96 failure-k_0)"
 "                                     (error 'read \"no `dynamic-require` provided\"))))"
 "(let-values(((or-part_178) module-declared?_1))"
@@ -47506,8 +47510,8 @@ static const char *startup_source =
 "                                   (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))"
 "(let-values(((or-part_221) coerce_1))"
 "(if or-part_221 or-part_221(lambda(for-syntax?_2 v_142 srcloc_9) v_142)))"
-"(let-values(((or-part_304) coerce-key_1))"
-"(if or-part_304 or-part_304(lambda(for-syntax?_3 v_100) v_100)))"
+"(let-values(((or-part_305) coerce-key_1))"
+"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_100) v_100)))"
 " #f"
 " #f"
 " #f"
@@ -47580,16 +47584,16 @@ static const char *startup_source =
 "(let-values(((given-end-pos_0) end-pos45_0))"
 "(let-values()"
 "(let-values(((end-pos_0)"
-"(let-values(((or-part_305) given-end-pos_0))"
-"(if or-part_305"
-" or-part_305"
+"(let-values(((or-part_306) given-end-pos_0))"
+"(if or-part_306"
+" or-part_306"
 "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))"
 " end-pos_1)))))"
 "(srcloc"
-"(let-values(((or-part_306)(read-config-source config_1)))"
-"(if or-part_306"
-" or-part_306"
-"                     (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))"
+"(let-values(((or-part_307)(read-config-source config_1)))"
+"(if or-part_307"
+" or-part_307"
+"                     (let-values (((or-part_308) (object-name in_1))) (if or-part_308 or-part_308 \"UNKNOWN\"))))"
 "(read-config-line config_1)"
 "(read-config-col config_1)"
 "(read-config-pos config_1)"
@@ -47926,10 +47930,10 @@ static const char *startup_source =
 " 'non-terminating-macro)))"
 "(if or-part_260"
 " or-part_260"
-"(let-values(((or-part_293)"
+"(let-values(((or-part_294)"
 "(eq? mode_17 'dispatch-macro)))"
-"(if or-part_293"
-" or-part_293"
+"(if or-part_294"
+" or-part_294"
 "(char? mode_17)))))))"
 "(void)"
 "(let-values()"
@@ -48000,10 +48004,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_285)"
+"(if(let-values(((or-part_286)"
 "(not target_0)))"
-"(if or-part_285"
-" or-part_285"
+"(if or-part_286"
+" or-part_286"
 "(1/readtable? target_0)))"
 "(void)"
 "(let-values()"
@@ -48089,7 +48093,7 @@ static const char *startup_source =
 "(lambda(c_58 config_11)"
 "(begin"
 "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))"
-"(if(let-values(((or-part_308)(not rt_2)))(if or-part_308 or-part_308(not(char? c_59))))"
+"(if(let-values(((or-part_309)(not rt_2)))(if or-part_309 or-part_309(not(char? c_59))))"
 "(let-values() c_59)"
 "(let-values()(*readtable-effective-char rt_2 c_59)))))))"
 "(define-values"
@@ -48371,10 +48375,10 @@ static const char *startup_source =
 " in_10"
 " special1.1"
 " source_5))))"
-"(if(let-values(((or-part_309)"
+"(if(let-values(((or-part_310)"
 "(eof-object? c_66)))"
-"(if or-part_309"
-" or-part_309"
+"(if or-part_310"
+" or-part_310"
 "(eqv?"
 " '#\\newline"
 "(effective-char c_66 config_15))))"
@@ -48428,8 +48432,8 @@ static const char *startup_source =
 "(if(eq? c_69 'special)"
 "(special1.1 'special)"
 " c_69)))))"
-"(let-values(((or-part_310)(eqv? '#\\space c3_2)))"
-"(if or-part_310 or-part_310(eqv? '#\\/ c3_2))))"
+"(let-values(((or-part_311)(eqv? '#\\space c3_2)))"
+"(if or-part_311 or-part_311(eqv? '#\\/ c3_2))))"
 " #f)"
 " #f)"
 "(let-values()"
@@ -48561,12 +48565,12 @@ static const char *startup_source =
 "(let-values(((or-part_26)(char-whitespace? dc_0)))"
 "(if or-part_26"
 " or-part_26"
-"(let-values(((or-part_311)(char=? dc_0 '#\\()))"
-"(if or-part_311"
-" or-part_311"
-"(let-values(((or-part_290)(char=? dc_0 '#\\))))"
-"(if or-part_290"
-" or-part_290"
+"(let-values(((or-part_312)(char=? dc_0 '#\\()))"
+"(if or-part_312"
+" or-part_312"
+"(let-values(((or-part_291)(char=? dc_0 '#\\))))"
+"(if or-part_291"
+" or-part_291"
 "(let-values(((or-part_27)(char=? dc_0 '#\\[)))"
 "(if or-part_27"
 " or-part_27"
@@ -48662,9 +48666,9 @@ static const char *startup_source =
 "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))"
 "(if(if s_10 c_72 #f)"
 "              (let-values () (format \"~a, ~a, or ~a\" p_62 s_10 c_72))"
-"(if(let-values(((or-part_297) s_10))(if or-part_297 or-part_297 c_72))"
+"(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_72))"
 "(let-values()"
-"                  (format \"~a or ~a\" p_62 (let-values (((or-part_309) s_10)) (if or-part_309 or-part_309 c_72))))"
+"                  (format \"~a or ~a\" p_62 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))"
 "(let-values() p_62)))))))))"
 "(define-values"
 "(struct:accum-string"
@@ -48846,7 +48850,7 @@ static const char *startup_source =
 "                 (let-values () (format \"unexpected `~a`\" c_73))"
 "(let-values()"
 "(let-values(((missing_2)"
-"(let-values(((or-part_300)"
+"(let-values(((or-part_301)"
 "(let-values(((lst_7)(cdr indts_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
@@ -48882,7 +48886,7 @@ static const char *startup_source =
 " for-loop_0)"
 " #f"
 " lst_7)))))"
-"                                   (if or-part_300 or-part_300 \"expected\"))))"
+"                                   (if or-part_301 or-part_301 \"expected\"))))"
 "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))"
 "(format"
 "                        \"~a ~a to close ~a, found instead `~a`\""
@@ -49167,11 +49171,11 @@ static const char *startup_source =
 " post-c_0"
 " seq-config_0)))"
 "(begin"
-"(if(let-values(((or-part_264)"
+"(if(let-values(((or-part_265)"
 "(eof-object?"
 " post-ec_0)))"
-"(if or-part_264"
-" or-part_264"
+"(if or-part_265"
+" or-part_265"
 "(eqv?"
 " post-ec_0"
 " closer_1)))"
@@ -49359,9 +49363,9 @@ static const char *startup_source =
 "(hex-digit?)"
 "(lambda(c_77)"
 "(begin"
-"(let-values(((or-part_264)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))"
-"(if or-part_264"
-" or-part_264"
+"(let-values(((or-part_265)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))"
+"(if or-part_265"
+" or-part_265"
 "(let-values(((or-part_23)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))"
 "(if or-part_23 or-part_23(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))"
 "(define-values"
@@ -49868,10 +49872,10 @@ static const char *startup_source =
 "(substring s_457 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if sign-pos_0"
-"(let-values(((or-part_312)"
+"(let-values(((or-part_313)"
 "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))"
-"(if or-part_312"
-" or-part_312"
+"(if or-part_313"
+" or-part_313"
 "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))"
 " #f)"
 "(let-values()"
@@ -49997,23 +50001,23 @@ static const char *startup_source =
 " slash-pos_0"
 " #f"
 "(if(> i_173 start_44)"
-"(let-values(((or-part_313)(not @-pos_0)))"
-"(if or-part_313"
-" or-part_313"
+"(let-values(((or-part_314)(not @-pos_0)))"
+"(if or-part_314"
+" or-part_314"
 "(> i_173(add1 @-pos_0))))"
 " #f)))))"
 "(if(char=? c_79 '#\\.)"
 "(let-values()"
-"(if(let-values(((or-part_314)"
+"(if(let-values(((or-part_315)"
 "(if exp-pos_0"
-"(let-values(((or-part_315)"
+"(let-values(((or-part_316)"
 "(not sign-pos_0)))"
-"(if or-part_315"
-" or-part_315"
+"(if or-part_316"
+" or-part_316"
 "(> exp-pos_0 sign-pos_0)))"
 " #f)))"
-"(if or-part_314"
-" or-part_314"
+"(if or-part_315"
+" or-part_315"
 "(if dot-pos_1"
 "(let-values(((or-part_208)(not sign-pos_0)))"
 "(if or-part_208"
@@ -50028,9 +50032,9 @@ static const char *startup_source =
 "(substring s_457 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if slash-pos_0"
-"(let-values(((or-part_278)(not sign-pos_0)))"
-"(if or-part_278"
-" or-part_278"
+"(let-values(((or-part_279)(not sign-pos_0)))"
+"(if or-part_279"
+" or-part_279"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)"
 "(let-values()"
@@ -50055,9 +50059,9 @@ static const char *startup_source =
 "(if(char=? c_79 '#\\/)"
 "(let-values()"
 "(if(if dot-pos_1"
-"(let-values(((or-part_316)(not sign-pos_0)))"
-"(if or-part_316"
-" or-part_316"
+"(let-values(((or-part_317)(not sign-pos_0)))"
+"(if or-part_317"
+" or-part_317"
 "(> dot-pos_1 sign-pos_0)))"
 " #f)"
 "(let-values()"
@@ -50067,21 +50071,21 @@ static const char *startup_source =
 "                                                                         \"decimal points and fractions annot be mixed `~.a`\""
 "(substring s_457 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_317)"
+"(if(let-values(((or-part_318)"
 "(if exp-pos_0"
-"(let-values(((or-part_318)"
-"(not sign-pos_0)))"
-"(if or-part_318"
-" or-part_318"
-"(> exp-pos_0 sign-pos_0)))"
-" #f)))"
-"(if or-part_317"
-" or-part_317"
-"(if slash-pos_0"
 "(let-values(((or-part_319)"
 "(not sign-pos_0)))"
 "(if or-part_319"
 " or-part_319"
+"(> exp-pos_0 sign-pos_0)))"
+" #f)))"
+"(if or-part_318"
+" or-part_318"
+"(if slash-pos_0"
+"(let-values(((or-part_320)"
+"(not sign-pos_0)))"
+"(if or-part_320"
+" or-part_320"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -50103,52 +50107,52 @@ static const char *startup_source =
 " i_173"
 " #f"
 " must-i?_0)))))"
-"(if(let-values(((or-part_320)(char=? c_79 '#\\e)))"
-"(if or-part_320"
-" or-part_320"
-"(let-values(((or-part_321)(char=? c_79 '#\\E)))"
+"(if(let-values(((or-part_321)(char=? c_79 '#\\e)))"
 "(if or-part_321"
 " or-part_321"
-"(let-values(((or-part_322)"
-"(char=? c_79 '#\\f)))"
+"(let-values(((or-part_322)(char=? c_79 '#\\E)))"
 "(if or-part_322"
 " or-part_322"
 "(let-values(((or-part_323)"
-"(char=? c_79 '#\\F)))"
+"(char=? c_79 '#\\f)))"
 "(if or-part_323"
 " or-part_323"
 "(let-values(((or-part_324)"
-"(char=? c_79 '#\\d)))"
+"(char=? c_79 '#\\F)))"
 "(if or-part_324"
 " or-part_324"
+"(let-values(((or-part_325)"
+"(char=? c_79 '#\\d)))"
+"(if or-part_325"
+" or-part_325"
 "(let-values(((or-part_181)"
 "(char=? c_79 '#\\D)))"
 "(if or-part_181"
 " or-part_181"
-"(let-values(((or-part_325)"
-"(char=?"
-" c_79"
-" '#\\s)))"
-"(if or-part_325"
-" or-part_325"
 "(let-values(((or-part_326)"
 "(char=?"
 " c_79"
-" '#\\S)))"
+" '#\\s)))"
 "(if or-part_326"
 " or-part_326"
+"(let-values(((or-part_327)"
+"(char=?"
+" c_79"
+" '#\\S)))"
+"(if or-part_327"
+" or-part_327"
 "(let-values(((or-part_209)"
 "(char=?"
 " c_79"
 " '#\\l)))"
 "(if or-part_209"
 " or-part_209"
-"(let-values(((or-part_327)"
+"(let-values(((or-part_328)"
 "(char=?"
 " c_79"
 " '#\\L)))"
-"(if or-part_327"
-" or-part_327"
+"(if or-part_328"
+" or-part_328"
 "(let-values(((or-part_173)"
 "(char=?"
 " c_79"
@@ -50181,8 +50185,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_328) exp-pos_0))"
-"(if or-part_328 or-part_328 i_173))"
+"(let-values(((or-part_329) exp-pos_0))"
+"(if or-part_329 or-part_329 i_173))"
 " must-i?_0))"
 "(let-values()"
 "(loop_109"
@@ -50194,8 +50198,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_329) exp-pos_0))"
-"(if or-part_329 or-part_329 i_173))"
+"(let-values(((or-part_330) exp-pos_0))"
+"(if or-part_330 or-part_330 i_173))"
 " must-i?_0)))))"
 "(if(char=? c_79 '#\\@)"
 "(let-values()"
@@ -50246,17 +50250,17 @@ static const char *startup_source =
 " #f"
 " #f"
 " must-i?_0)))))))"
-"(if(if(let-values(((or-part_330)"
+"(if(if(let-values(((or-part_331)"
 "(char=? c_79 '#\\i)))"
-"(if or-part_330"
-" or-part_330"
+"(if or-part_331"
+" or-part_331"
 "(char=? c_79 '#\\I)))"
 " sign-pos_0"
 " #f)"
 "(let-values()"
-"(if(let-values(((or-part_331) @-pos_0))"
-"(if or-part_331"
-" or-part_331"
+"(if(let-values(((or-part_332) @-pos_0))"
+"(if or-part_332"
+" or-part_332"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -50265,10 +50269,10 @@ static const char *startup_source =
 "                                                                               \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_457 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_332)"
+"(if(let-values(((or-part_333)"
 "(<(add1 i_173) end_34)))"
-"(if or-part_332"
-" or-part_332"
+"(if or-part_333"
+" or-part_333"
 "(eq? in-complex_1 'i)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -50387,11 +50391,11 @@ static const char *startup_source =
 " radix168_0"
 " exactness170_0"
 " convert-mode172_0))))))"
-"(if(let-values(((or-part_333)(not v1_0)))"
-"(if or-part_333 or-part_333(not v2_6)))"
+"(if(let-values(((or-part_334)(not v1_0)))"
+"(if or-part_334 or-part_334(not v2_6)))"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_334)(extflonum? v1_0)))"
-"(if or-part_334 or-part_334(extflonum? v2_6)))"
+"(if(if(let-values(((or-part_335)(extflonum? v1_0)))"
+"(if or-part_335 or-part_335(extflonum? v2_6)))"
 "(not(eq? convert-mode_4 'must-read))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_4 v1_0))"
@@ -50418,14 +50422,14 @@ static const char *startup_source =
 "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_333 exp-pos_1)) '#\\t)))))"
 "(let-values(((simple?_0)"
 "(if(not slash-pos_1)"
-"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))"
-"(if or-part_335"
-" or-part_335"
-"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))"
-"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))"
-"(if(let-values(((or-part_337)(not exp-pos_1)))"
-"(if or-part_337"
-" or-part_337"
+"(if(let-values(((or-part_336)(eq? exactness_3 'inexact)))"
+"(if or-part_336"
+" or-part_336"
+"(let-values(((or-part_337)(eq? exactness_3 'decimal-as-inexact)))"
+"(if or-part_337 or-part_337(if(not dot-pos_2)(not exp-pos_1) #f)))))"
+"(if(let-values(((or-part_338)(not exp-pos_1)))"
+"(if or-part_338"
+" or-part_338"
 "(let-values(((or-part_223)(not(eq? convert-mode_5 'number-or-false))))"
 "(if or-part_223 or-part_223(not(extfl-mark?_0))))))"
 "(not(if any-hashes?_1(hashes? s_333 start_45 end_35) #f))"
@@ -50453,9 +50457,9 @@ static const char *startup_source =
 "                          (format \"missing digits before exponent marker in `~.a`\" (substring s_333 start_45 end_35)))"
 "(let-values() #f)))"
 "(if(if exp-pos_1"
-"(let-values(((or-part_338)(= exp-pos_1(sub1 end_35))))"
-"(if or-part_338"
-" or-part_338"
+"(let-values(((or-part_339)(= exp-pos_1(sub1 end_35))))"
+"(if or-part_339"
+" or-part_339"
 "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))"
 " #f)"
 "(let-values()"
@@ -50468,9 +50472,9 @@ static const char *startup_source =
 "(string->number$1"
 "(maybe-substring s_333 start_45 end_35)"
 " radix_7"
-"(if(let-values(((or-part_339)(eq? convert-mode_5 'number-or-false)))"
-"(if or-part_339"
-" or-part_339"
+"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))"
+"(if or-part_340"
+" or-part_340"
 "(let-values(((or-part_147)(not exp-pos_1)))"
 "(if or-part_147 or-part_147(not(extfl-mark?_0))))))"
 " 'number-or-false"
@@ -50532,7 +50536,7 @@ static const char *startup_source =
 " 'read)))"
 "(let-values()(real->double-flonum r_46)))))))))"
 "(let-values(((get-extfl?_0)(extfl-mark?_0)))"
-"(if(let-values(((or-part_340)(not m-v_0)))(if or-part_340 or-part_340(not e-v_0)))"
+"(if(let-values(((or-part_341)(not m-v_0)))(if or-part_341 or-part_341(not e-v_0)))"
 "(let-values() #f)"
 "(if(string? m-v_0)"
 "(let-values() m-v_0)"
@@ -50540,8 +50544,8 @@ static const char *startup_source =
 "(let-values() e-v_0)"
 "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_341)(eq? exactness_3 'inexact)))"
-"(if or-part_341 or-part_341(eq? exactness_3 'decimal-as-inexact)))"
+"(if(if(let-values(((or-part_342)(eq? exactness_3 'inexact)))"
+"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-inexact)))"
 "(>(abs e-v_0)(if get-extfl?_0 6000 400))"
 " #f)"
 "(let-values()"
@@ -50563,8 +50567,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))"
 "(if(if(not get-extfl?_0)"
-"(let-values(((or-part_342)(eq? exactness_3 'exact)))"
-"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-exact)))"
+"(let-values(((or-part_343)(eq? exactness_3 'exact)))"
+"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-exact)))"
 " #f)"
 "(let-values() n_32)"
 "(if(if(eqv? n_32 0)(char=?(string-ref s_333 start_45) '#\\-) #f)"
@@ -50600,13 +50604,13 @@ static const char *startup_source =
 "(lambda(from-pos_0)"
 "(begin"
 " 'get-inexact?"
-"(let-values(((or-part_343)(eq? exactness_3 'inexact)))"
-"(if or-part_343"
-" or-part_343"
+"(let-values(((or-part_344)(eq? exactness_3 'inexact)))"
+"(if or-part_344"
+" or-part_344"
 "(if(not(eq? exactness_3 'exact))"
 "(hashes? s_333 from-pos_0 end_35)"
 " #f)))))))"
-"(if(let-values(((or-part_344)(not n-v_0)))(if or-part_344 or-part_344(not d-v_0)))"
+"(if(let-values(((or-part_345)(not n-v_0)))(if or-part_345 or-part_345(not d-v_0)))"
 "(let-values() #f)"
 "(if(string? n-v_0)"
 "(let-values() n-v_0)"
@@ -50682,8 +50686,8 @@ static const char *startup_source =
 "(sub1 i_174)"
 "(sub1 j_3)"
 "(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))"
-"(if(let-values(((or-part_345)(char=? c_80 '#\\-)))"
-"(if or-part_345 or-part_345(char=? c_80 '#\\+)))"
+"(if(let-values(((or-part_346)(char=? c_80 '#\\-)))"
+"(if or-part_346 or-part_346(char=? c_80 '#\\+)))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_80)"
@@ -50735,25 +50739,25 @@ static const char *startup_source =
 "(lambda(s_472 start_48 end_38 convert-mode_8)"
 "(begin"
 "(if(=(- end_38 start_48) 6)"
-"(if(let-values(((or-part_346)(char=?(string-ref s_472 start_48) '#\\+)))"
-"(if or-part_346 or-part_346(char=?(string-ref s_472 start_48) '#\\-)))"
-"(let-values(((or-part_347)"
+"(if(let-values(((or-part_347)(char=?(string-ref s_472 start_48) '#\\+)))"
+"(if or-part_347 or-part_347(char=?(string-ref s_472 start_48) '#\\-)))"
+"(let-values(((or-part_348)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\i)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\f)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)"
-"(let-values(((or-part_348)"
+"(let-values(((or-part_349)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0)"
 "(if(char=?(string-ref s_472 start_48) '#\\+) +inf.0 -inf.0)"
 " #f)))"
-"(if or-part_348"
-" or-part_348"
-"(let-values(((or-part_349)"
+"(if or-part_349"
+" or-part_349"
+"(let-values(((or-part_350)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f)"
 "(if(char=?(string-ref s_472 start_48) '#\\+) +inf.f -inf.f)"
 " #f)))"
-"(if or-part_349"
-" or-part_349"
+"(if or-part_350"
+" or-part_350"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false))"
 "(if(char=?(string-ref s_472 start_48) '#\\+) '+inf.t '-inf.t)"
@@ -50763,20 +50767,20 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " #f)))"
-"(if or-part_347"
-" or-part_347"
+"(if or-part_348"
+" or-part_348"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 1))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 2))) '#\\a)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 3))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 4))) '#\\.)"
-"(let-values(((or-part_350)"
-"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))"
-"(if or-part_350"
-" or-part_350"
 "(let-values(((or-part_351)"
-"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))"
+"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))"
 "(if or-part_351"
 " or-part_351"
+"(let-values(((or-part_352)"
+"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))"
+"(if or-part_352"
+" or-part_352"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)"
 " #f)))))"
@@ -50942,25 +50946,25 @@ static const char *startup_source =
 "(exactness-set?)"
 "(lambda(exactness_6)"
 "(begin"
-"(let-values(((or-part_352)(eq? exactness_6 'exact)))(if or-part_352 or-part_352(eq? exactness_6 'inexact))))))"
+"(let-values(((or-part_353)(eq? exactness_6 'exact)))(if or-part_353 or-part_353(eq? exactness_6 'inexact))))))"
 "(define-values"
 "(char-sign?)"
 "(lambda(c_83)"
-"(begin(let-values(((or-part_353)(char=? c_83 '#\\-)))(if or-part_353 or-part_353(char=? c_83 '#\\+))))))"
+"(begin(let-values(((or-part_354)(char=? c_83 '#\\-)))(if or-part_354 or-part_354(char=? c_83 '#\\+))))))"
 "(define-values"
 "(digit?)"
 "(lambda(c_84 radix_11)"
 "(begin"
 "(let-values(((v_243)(char->integer c_84)))"
-"(let-values(((or-part_354)"
-"(if(>= v_243(char->integer '#\\0))(<(- v_243(char->integer '#\\0)) radix_11) #f)))"
-"(if or-part_354"
-" or-part_354"
-"(if(> radix_11 10)"
 "(let-values(((or-part_355)"
-"(if(>= v_243(char->integer '#\\a))(<(- v_243(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if(>= v_243(char->integer '#\\0))(<(- v_243(char->integer '#\\0)) radix_11) #f)))"
 "(if or-part_355"
 " or-part_355"
+"(if(> radix_11 10)"
+"(let-values(((or-part_356)"
+"(if(>= v_243(char->integer '#\\a))(<(- v_243(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if or-part_356"
+" or-part_356"
 "(if(>= v_243(char->integer '#\\A))(<(- v_243(-(char->integer '#\\A) 10)) radix_11) #f)))"
 " #f)))))))"
 "(define-values"
@@ -51307,14 +51311,14 @@ static const char *startup_source =
 "(list temp30_4))))"
 "(void))"
 "(wrap"
-"(let-values(((or-part_356) num_0))"
-"(if or-part_356"
-" or-part_356"
-"(let-values(((or-part_357)"
+"(let-values(((or-part_357) num_0))"
+"(if or-part_357"
+" or-part_357"
+"(let-values(((or-part_358)"
 "(if(eq? mode_18 'keyword)"
 "(string->keyword str_29)"
 " #f)))"
-"(if or-part_357 or-part_357(string->symbol str_29)))))"
+"(if or-part_358 or-part_358(string->symbol str_29)))))"
 " in_26"
 " config_23"
 " str_29)))))))))))))))))))))))))"
@@ -52225,9 +52229,9 @@ static const char *startup_source =
 "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_308)(read-config-for-syntax? config_43)))"
-"(if or-part_308"
-" or-part_308"
+"(if(let-values(((or-part_309)(read-config-for-syntax? config_43)))"
+"(if or-part_309"
+" or-part_309"
 "(not(check-parameter 1/read-accept-graph config_43))))"
 "(let-values()"
 "(let-values(((in37_1) in_37)"
@@ -52387,9 +52391,9 @@ static const char *startup_source =
 "(lambda(config_44)"
 "(begin"
 "(let-values(((st_3)(read-config-st config_44)))"
-"(let-values(((or-part_358)(read-config-state-graph st_3)))"
-"(if or-part_358"
-" or-part_358"
+"(let-values(((or-part_359)(read-config-state-graph st_3)))"
+"(if or-part_359"
+" or-part_359"
 "(let-values(((ht_151)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_151) ht_151))))))))"
 "(define-values"
 "(coerce-key)"
@@ -54665,14 +54669,14 @@ static const char *startup_source =
 "(let-values(((or-part_90)(char-alphabetic? c_101)))"
 "(if or-part_90"
 " or-part_90"
-"(let-values(((or-part_304)(char-numeric? c_101)))"
-"(if or-part_304"
-" or-part_304"
-"(let-values(((or-part_359)(char=? '#\\- c_101)))"
-"(if or-part_359"
-" or-part_359"
-"(let-values(((or-part_360)(char=? '#\\+ c_101)))"
-"(if or-part_360 or-part_360(char=? '#\\_ c_101)))))))))"
+"(let-values(((or-part_305)(char-numeric? c_101)))"
+"(if or-part_305"
+" or-part_305"
+"(let-values(((or-part_360)(char=? '#\\- c_101)))"
+"(if or-part_360"
+" or-part_360"
+"(let-values(((or-part_361)(char=? '#\\+ c_101)))"
+"(if or-part_361 or-part_361(char=? '#\\_ c_101)))))))))"
 " #f))))"
 "(define-values"
 "(read-extension-prefix)"
@@ -54763,7 +54767,7 @@ static const char *startup_source =
 "(let-values((()(begin(force-parameters! config_52)(values))))"
 "(let-values(((guard_0)(1/current-reader-guard)))"
 "(let-values(((mod-path_28)"
-"(let-values(((or-part_361)"
+"(let-values(((or-part_362)"
 "(if try-first-mod-path_0"
 "(let-values(((mod-path_29)(guard_0 try-first-mod-path_0)))"
 "(if((read-config-module-declared? config_52)"
@@ -54771,7 +54775,7 @@ static const char *startup_source =
 " mod-path_29"
 " #f))"
 " #f)))"
-"(if or-part_361 or-part_361(guard_0 mod-path-datum_0)))))"
+"(if or-part_362 or-part_362(guard_0 mod-path-datum_0)))))"
 "(let-values(((for-syntax?_8)(read-config-for-syntax? config_52)))"
 "(let-values(((dynamic-require_2)(read-config-dynamic-require config_52)))"
 "(let-values(((no-value_0)(gensym)))"
@@ -55148,24 +55152,24 @@ static const char *startup_source =
 "(read-undotted)"
 "(lambda(init-c_18 in_68 config_57)"
 "(begin"
-"(let-values(((c_30)(read-char/skip-whitespace-and-comments init-c_18 read-one in_68 config_57)))"
-"(let-values(((line_12 col_11 pos_121)(port-next-location* in_68 c_30)))"
-"(if(eof-object? c_30)"
+"(let-values(((c_106)(read-char/skip-whitespace-and-comments init-c_18 read-one in_68 config_57)))"
+"(let-values(((line_12 col_11 pos_121)(port-next-location* in_68 c_106)))"
+"(if(eof-object? c_106)"
 "(let-values() eof)"
-"(if(not(char? c_30))"
+"(if(not(char? c_106))"
 "(let-values()"
-"(let-values(((v_251)(special-value c_30)))"
+"(let-values(((v_251)(special-value c_106)))"
 "(if(1/special-comment? v_251)"
 "(let-values()(if(read-config-keep-comment? config_57) v_251(read-undotted #f in_68 config_57)))"
 "(let-values()(coerce v_251 in_68(reading-at config_57 line_12 col_11 pos_121))))))"
-"(let-values(((c2_8)(readtable-handler config_57 c_30)))"
+"(let-values(((c2_8)(readtable-handler config_57 c_106)))"
 "(if c2_8"
 "((lambda(handler_3)"
-"(let-values(((v_252)(readtable-apply handler_3 c_30 in_68 config_57 line_12 col_11 pos_121)))"
+"(let-values(((v_252)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))"
 "(retry-special-comment v_252 in_68 config_57)))"
 " c2_8)"
 "(let-values()"
-"(let-values(((ec_10)(effective-char c_30 config_57)))"
+"(let-values(((ec_10)(effective-char c_106 config_57)))"
 "(let-values((()"
 "(begin"
 "(if(not(char-closer? ec_10 config_57))"
@@ -55232,13 +55236,13 @@ static const char *startup_source =
 "(if(unsafe-fx< index_4 1)"
 "(let-values()"
 "(let-values(((v_253)"
-"(let-values(((c79_1) c_30)"
+"(let-values(((c79_1) c_106)"
 "((in80_1) in_68)"
 "((r-config81_0) r-config_0)"
 "((temp82_1)"
-"(if(let-values(((or-part_315)(eq? c_30 ec_10)))"
-"(if or-part_315"
-" or-part_315"
+"(if(let-values(((or-part_316)(eq? c_106 ec_10)))"
+"(if or-part_316"
+" or-part_316"
 "(if(<(char->integer ec_10) 128)"
 "(char-numeric? ec_10)"
 " #f)))"
@@ -55251,9 +55255,9 @@ static const char *startup_source =
 " in80_1"
 " r-config81_0))))"
 "(retry-special-comment v_253 in_68 config_57)))"
-"(let-values()(read-dispatch c_30 in_68 r-config_0 config_57)))"
+"(let-values()(read-dispatch c_106 in_68 r-config_0 config_57)))"
 "(if(unsafe-fx< index_4 3)"
-"                                    (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_30 in_68 r-config_0))"
+"                                    (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_68 r-config_0))"
 "(if(unsafe-fx< index_4 4)"
 "(let-values()"
 "(if(check-parameter 1/read-accept-quasiquote config_57)"
@@ -55262,14 +55266,14 @@ static const char *startup_source =
 " read-one"
 " 'quasiquote"
 "                                             \"quasiquoting \\\"`\\\"\""
-" c_30"
+" c_106"
 " in_68"
 " r-config_0))"
 "(let-values()"
 "(let-values(((in83_0) in_68)"
 "((r-config84_0) r-config_0)"
 "                                                         ((temp85_3) \"illegal use of `~a`\")"
-"((c86_0) c_30))"
+"((c86_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55287,15 +55291,15 @@ static const char *startup_source =
 "(let-values(((in_69) in_68)"
 "((skip-count_17) 0)"
 "((source_42)(read-config-source config_57)))"
-"(let-values(((c_106)"
+"(let-values(((c_107)"
 "(peek-char-or-special"
 " in_69"
 " skip-count_17"
 " 'special"
 " source_42)))"
-"(if(eq? c_106 'special)"
+"(if(eq? c_107 'special)"
 "(special1.1 'special)"
-" c_106)))))"
+" c_107)))))"
 "(if(eqv? c2_9 '#\\@)"
 "(begin"
 "(consume-char in_68 c2_9)"
@@ -55303,21 +55307,21 @@ static const char *startup_source =
 " read-one"
 " 'unquote-splicing"
 "                                                     \"unquoting `,@`\""
-" c_30"
+" c_106"
 " in_68"
 " r-config_0))"
 "(read-quote"
 " read-one"
 " 'unquote"
 "                                                   \"unquoting `,`\""
-" c_30"
+" c_106"
 " in_68"
 " r-config_0))))"
 "(let-values()"
 "(let-values(((in87_0) in_68)"
 "((r-config88_0) r-config_0)"
 "                                                           ((temp89_4) \"illegal use of `~a`\")"
-"((c90_0) c_30))"
+"((c90_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55358,7 +55362,7 @@ static const char *startup_source =
 "((r-config99_0) r-config_0)"
 "                                                   ((temp100_1) \"~a\")"
 "((temp101_0)"
-"(indentation-unexpected-closer-message ec_10 c_30 r-config_0)))"
+"(indentation-unexpected-closer-message ec_10 c_106 r-config_0)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55403,7 +55407,7 @@ static const char *startup_source =
 "(let-values(((in109_0) in_68)"
 "((r-config110_0) r-config_0)"
 "                                                         ((temp111_2) \"illegal use of `~a`\")"
-"((c112_0) c_30))"
+"((c112_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55414,10 +55418,10 @@ static const char *startup_source =
 " temp111_2"
 "(list c112_0))))))"
 "(let-values()"
-"(if(let-values(((or-part_362)"
+"(if(let-values(((or-part_363)"
 "(check-parameter 1/read-square-bracket-as-paren config_57)))"
-"(if or-part_362"
-" or-part_362"
+"(if or-part_363"
+" or-part_363"
 "(check-parameter 1/read-square-bracket-with-tag config_57)))"
 "(let-values()"
 "(let-values(((in113_1) in_68)"
@@ -55426,7 +55430,7 @@ static const char *startup_source =
 "((temp116_2)"
 "(indentation-unexpected-closer-message"
 " ec_10"
-" c_30"
+" c_106"
 " r-config_0)))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -55441,7 +55445,7 @@ static const char *startup_source =
 "(let-values(((in117_0) in_68)"
 "((r-config118_0) r-config_0)"
 "                                                         ((temp119_2) \"illegal use of `~a`\")"
-"((c120_0) c_30))"
+"((c120_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55453,10 +55457,10 @@ static const char *startup_source =
 "(list c120_0))))))))"
 "(if(unsafe-fx< index_4 10)"
 "(let-values()"
-"(if(let-values(((or-part_363)"
+"(if(let-values(((or-part_364)"
 "(check-parameter 1/read-curly-brace-as-paren config_57)))"
-"(if or-part_363"
-" or-part_363"
+"(if or-part_364"
+" or-part_364"
 "(check-parameter 1/read-curly-brace-with-tag config_57)))"
 "(let-values()"
 "(wrap"
@@ -55486,7 +55490,7 @@ static const char *startup_source =
 "(let-values(((in128_0) in_68)"
 "((r-config129_0) r-config_0)"
 "                                                       ((temp130_1) \"illegal use of `~a`\")"
-"((c131_0) c_30))"
+"((c131_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55498,10 +55502,10 @@ static const char *startup_source =
 "(list c131_0))))))"
 "(if(unsafe-fx< index_4 11)"
 "(let-values()"
-"(if(let-values(((or-part_364)"
+"(if(let-values(((or-part_365)"
 "(check-parameter 1/read-curly-brace-as-paren config_57)))"
-"(if or-part_364"
-" or-part_364"
+"(if or-part_365"
+" or-part_365"
 "(check-parameter 1/read-curly-brace-with-tag config_57)))"
 "(let-values()"
 "(let-values(((in132_0) in_68)"
@@ -55510,7 +55514,7 @@ static const char *startup_source =
 "((temp135_0)"
 "(indentation-unexpected-closer-message"
 " ec_10"
-" c_30"
+" c_106"
 " r-config_0)))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -55525,7 +55529,7 @@ static const char *startup_source =
 "(let-values(((in136_0) in_68)"
 "((r-config137_0) r-config_0)"
 "                                                         ((temp138_1) \"illegal use of `~a`\")"
-"((c139_0) c_30))"
+"((c139_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55540,7 +55544,7 @@ static const char *startup_source =
 "(let-values(((in140_0) in_68)((r-config141_0) r-config_0))"
 "(read-string5.1 'string in140_0 r-config141_0)))"
 "(let-values()"
-"(let-values(((c142_0) c_30)"
+"(let-values(((c142_0) c_106)"
 "((in143_0) in_68)"
 "((r-config144_0) r-config_0)"
 "((temp145_1) 'symbol))"
@@ -55554,14 +55558,14 @@ static const char *startup_source =
 "(read-dispatch)"
 "(lambda(dispatch-c_5 in_70 config_58 orig-config_0)"
 "(begin"
-"(let-values(((c_107)"
+"(let-values(((c_108)"
 "(let-values(((in_71) in_70)((source_43)(read-config-source config_58)))"
 "(read-char-or-special in_71 special1.1 source_43))))"
-"(if(eof-object? c_107)"
+"(if(eof-object? c_108)"
 "(let-values()"
 "(let-values(((in146_0) in_70)"
 "((config147_0) config_58)"
-"((c148_0) c_107)"
+"((c148_0) c_108)"
 "                         ((temp149_1) \"bad syntax `~a`\")"
 "((dispatch-c150_0) dispatch-c_5))"
 "(reader-error12.1"
@@ -55573,11 +55577,11 @@ static const char *startup_source =
 " config147_0"
 " temp149_1"
 "(list dispatch-c150_0))))"
-"(if(not(char? c_107))"
+"(if(not(char? c_108))"
 "(let-values()"
 "(let-values(((in151_0) in_70)"
 "((config152_0) config_58)"
-"((c153_0) c_107)"
+"((c153_0) c_108)"
 "                           ((temp154_2) \"bad syntax `~a`\")"
 "((dispatch-c155_0) dispatch-c_5))"
 "(reader-error12.1"
@@ -55589,19 +55593,19 @@ static const char *startup_source =
 " config152_0"
 " temp154_2"
 "(list dispatch-c155_0))))"
-"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_107)))"
+"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_108)))"
 "(if c3_9"
 "((lambda(handler_4)"
 "(let-values(((line_13)(read-config-line config_58)))"
 "(let-values(((col_12)(read-config-col config_58)))"
 "(let-values(((pos_122)(read-config-pos config_58)))"
 "(let-values(((v_254)"
-"(readtable-apply handler_4 c_107 in_70 config_58 line_13 col_12 pos_122)))"
+"(readtable-apply handler_4 c_108 in_70 config_58 line_13 col_12 pos_122)))"
 "(retry-special-comment v_254 in_70 orig-config_0))))))"
 " c3_9)"
 "(let-values()"
 "(let-values()"
-"(let-values(((tmp_58) c_107))"
+"(let-values(((tmp_58) c_108))"
 "(let-values(((index_5)"
 "(if(char? tmp_58)"
 "(let-values(((codepoint_3)(char->integer tmp_58)))"
@@ -55713,7 +55717,7 @@ static const char *startup_source =
 "((config157_0) config_58)"
 "                                               ((temp158_0) \"bad syntax `~a~a`\")"
 "((dispatch-c159_0) dispatch-c_5)"
-"((c160_0) c_107))"
+"((c160_0) c_108))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55724,7 +55728,7 @@ static const char *startup_source =
 " temp158_0"
 "(list dispatch-c159_0 c160_0))))"
 "(if(unsafe-fx< index_5 2)"
-"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_107 in_70 config_58))"
+"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_108 in_70 config_58))"
 "(let-values()"
 "(let-values(((read-one161_0) read-one)"
 "((temp162_2) '#\\()"
@@ -55764,7 +55768,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((in173_0) in_70)"
 "((config174_0) config_58)"
-"                                                     ((temp175_1) (format \"~a~a\" dispatch-c_5 c_107)))"
+"                                                     ((temp175_1) (format \"~a~a\" dispatch-c_5 c_108)))"
 "(bad-syntax-error20.1 '#\\x in173_0 config174_0 temp175_1)))))"
 "(let-values()"
 "(if(check-parameter 1/read-curly-brace-as-paren config_58)"
@@ -55787,30 +55791,30 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((in182_0) in_70)"
 "((config183_0) config_58)"
-"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_107)))"
+"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_108)))"
 "(bad-syntax-error20.1 '#\\x in182_0 config183_0 temp184_0))))))"
 "(if(unsafe-fx< index_5 6)"
 "(let-values()(read-struct read-one dispatch-c_5 in_70 config_58))"
 "(if(unsafe-fx< index_5 7)"
 "(let-values()(read-box read-one dispatch-c_5 in_70 config_58))"
-"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_107 in_70 config_58))))))"
+"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_108 in_70 config_58))))))"
 "(if(unsafe-fx< index_5 12)"
 "(if(unsafe-fx< index_5 9)"
 "(let-values()"
-"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_107 in_70 config_58))"
+"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_108 in_70 config_58))"
 "(if(unsafe-fx< index_5 10)"
 "(let-values()"
 "(let-values(((c2_10)"
 "(let-values(((in_72) in_70)"
 "((skip-count_18) 0)"
 "((source_44)(read-config-source config_58)))"
-"(let-values(((c_108)"
+"(let-values(((c_109)"
 "(peek-char-or-special"
 " in_72"
 " skip-count_18"
 " 'special"
 " source_44)))"
-"(if(eq? c_108 'special)(special1.1 'special) c_108)))))"
+"(if(eq? c_109 'special)(special1.1 'special) c_109)))))"
 "(if(eqv? c2_10 '#\\@)"
 "(begin"
 "(consume-char in_70 c2_10)"
@@ -55818,10 +55822,10 @@ static const char *startup_source =
 " read-one"
 " 'unsyntax-splicing"
 "                                           \"unquoting #,@\""
-" c_107"
+" c_108"
 " in_70"
 " config_58))"
-"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_107 in_70 config_58))))"
+"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_108 in_70 config_58))))"
 "(if(unsafe-fx< index_5 11)"
 "(let-values()(read-character in_70 config_58))"
 "(let-values()"
@@ -55836,13 +55840,13 @@ static const char *startup_source =
 "(let-values(((in_73) in_70)"
 "((skip-count_19) 0)"
 "((source_45)(read-config-source config_58)))"
-"(let-values(((c_109)"
+"(let-values(((c_110)"
 "(peek-char-or-special"
 " in_73"
 " skip-count_19"
 " 'special"
 " source_45)))"
-"(if(eq? c_109 'special)(special1.1 'special) c_109)))))"
+"(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
 "(if(eqv? '#\\< c2_11)"
 "(let-values()"
 "(begin(consume-char in_70 '#\\<)(read-here-string in_70 config_58)))"
@@ -55862,7 +55866,7 @@ static const char *startup_source =
 " temp191_0"
 "(list dispatch-c192_0)))))))"
 "(let-values()"
-"(let-values(((c193_0) c_107)"
+"(let-values(((c193_0) c_108)"
 "((in194_0) in_70)"
 "((config195_0) config_58)"
 "((dispatch-c196_0) dispatch-c_5)"
@@ -55881,19 +55885,19 @@ static const char *startup_source =
 "(let-values(((in_74) in_70)"
 "((skip-count_20) 0)"
 "((source_46)(read-config-source config_58)))"
-"(let-values(((c_110)"
+"(let-values(((c_111)"
 "(peek-char-or-special"
 " in_74"
 " skip-count_20"
 " 'special"
 " source_46)))"
-"(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
+"(if(eq? c_111 'special)(special1.1 'special) c_111)))))"
 "(if(char-delimiter? c2_12 config_58)"
-"(let-values()(wrap #t in_70 config_58 c_107))"
+"(let-values()(wrap #t in_70 config_58 c_108))"
 "(let-values()"
 "(read-delimited-constant"
-" c_107"
-"(char=? c_107 '#\\t)"
+" c_108"
+"(char=? c_108 '#\\t)"
 " '(#\\r #\\u #\\e)"
 " #t"
 " in_70"
@@ -55903,29 +55907,29 @@ static const char *startup_source =
 "(let-values(((in_75) in_70)"
 "((skip-count_21) 0)"
 "((source_47)(read-config-source config_58)))"
-"(let-values(((c_111)"
+"(let-values(((c_112)"
 "(peek-char-or-special"
 " in_75"
 " skip-count_21"
 " 'special"
 " source_47)))"
-"(if(eq? c_111 'special)(special1.1 'special) c_111)))))"
+"(if(eq? c_112 'special)(special1.1 'special) c_112)))))"
 "(if(char-delimiter? c2_13 config_58)"
-"(let-values()(wrap #f in_70 config_58 c_107))"
-"(if(let-values(((or-part_365)(char=? c2_13 '#\\x)))"
-"(if or-part_365 or-part_365(char=? c2_13 '#\\l)))"
+"(let-values()(wrap #f in_70 config_58 c_108))"
+"(if(let-values(((or-part_366)(char=? c2_13 '#\\x)))"
+"(if or-part_366 or-part_366(char=? c2_13 '#\\l)))"
 "(let-values()"
 "(read-fixnum-or-flonum-vector"
 " read-one"
 " dispatch-c_5"
-" c_107"
+" c_108"
 " c2_13"
 " in_70"
 " config_58))"
 "(let-values()"
 "(read-delimited-constant"
-" c_107"
-"(char=? c_107 '#\\f)"
+" c_108"
+"(char=? c_108 '#\\f)"
 " '(#\\a #\\l #\\s #\\e)"
 " #f"
 " in_70"
@@ -56036,7 +56040,7 @@ static const char *startup_source =
 "((c2252_0) c2_14)"
 "                                                             ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")"
 "((dispatch-c254_0) dispatch-c_5)"
-"((c255_0) c_107))"
+"((c255_0) c_108))"
 "(reader-error12.1"
 " unsafe-undefined"
 " c2252_0"
@@ -56048,11 +56052,11 @@ static const char *startup_source =
 "(list dispatch-c254_0 c255_0))))))))))))"
 "(if(unsafe-fx< index_5 32)"
 "(if(unsafe-fx< index_5 31)"
-"(let-values()(read-hash read-one dispatch-c_5 c_107 in_70 config_58))"
+"(let-values()(read-hash read-one dispatch-c_5 c_108 in_70 config_58))"
 "(let-values()"
 "(let-values(((accum-str_12)(accum-string-init! config_58)))"
 "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_12 c_107)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_12 c_108)(values))))"
 "(let-values(((c2_15)"
 "(let-values(((in_77) in_70)"
 "((source_49)(read-config-source config_58)))"
@@ -56063,7 +56067,7 @@ static const char *startup_source =
 "(void))"
 "(let-values(((tmp_60) c2_15))"
 "(if(equal? tmp_60 '#\\x)"
-"(let-values()(read-regexp c_107 accum-str_12 in_70 config_58))"
+"(let-values()(read-regexp c_108 accum-str_12 in_70 config_58))"
 "(if(equal? tmp_60 '#\\e)"
 "(let-values()"
 "(read-extension-reader"
@@ -56092,7 +56096,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((accum-str_13)(accum-string-init! config_58)))"
 "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_13 c_107)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_13 c_108)(values))))"
 "(let-values(((c2_16)"
 "(let-values(((in_78) in_70)"
 "((source_50)(read-config-source config_58)))"
@@ -56103,7 +56107,7 @@ static const char *startup_source =
 "(void))"
 "(let-values(((tmp_61) c2_16))"
 "(if(equal? tmp_61 '#\\x)"
-"(let-values()(read-regexp c_107 accum-str_13 in_70 config_58))"
+"(let-values()(read-regexp c_108 accum-str_13 in_70 config_58))"
 "(let-values()"
 "(let-values(((in262_0) in_70)"
 "((config263_0) config_58)"
@@ -56147,7 +56151,7 @@ static const char *startup_source =
 "(let-values()"
 "(if(check-parameter 1/read-accept-compiled config_58)"
 "(let-values()"
-"(wrap((read-config-read-compiled config_58) in_70) in_70 config_58 c_107))"
+"(wrap((read-config-read-compiled config_58) in_70) in_70 config_58 c_108))"
 "(let-values()"
 "(let-values(((in276_0) in_70)"
 "((config277_0) config_58)"
@@ -56289,7 +56293,7 @@ static const char *startup_source =
 "(module->"
 "(lambda(m_28)"
 "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_97 #f)))"
-"(let-values(((or-part_285)(not b/p_3)))(if or-part_285 or-part_285(provided-as-protected? b/p_3)))))"
+"(let-values(((or-part_286)(not b/p_3)))(if or-part_286 or-part_286(provided-as-protected? b/p_3)))))"
 " 'module-provide-protected?"
 " mod_17))))"
 "(define-values"
@@ -56323,11 +56327,11 @@ static const char *startup_source =
 "(let-values(((name_41)"
 "(let-values(((mod44_0) mod_18)((temp45_2) #t))"
 "(reference->resolved-module-path27.1 temp45_2 mod44_0))))"
-"(let-values(((phase_134)(namespace-phase ns_48)))"
+"(let-values(((phase_133)(namespace-phase ns_48)))"
 "(let-values(((m-ns_17)"
 "(let-values(((ns46_0) ns_48)"
 "((name47_1) name_41)"
-"((phase48_1) phase_134))"
+"((phase48_1) phase_133))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
@@ -56370,7 +56374,7 @@ static const char *startup_source =
 " temp49_3)))))"
 "(let-values(((ns41_0) ns_48)"
 "((temp42_3)(namespace-mpi m-ns_17))"
-"((phase43_1) phase_134))"
+"((phase43_1) phase_133))"
 "(namespace-module-make-available!112.1"
 " unsafe-undefined"
 " ns41_0"
@@ -56772,8 +56776,8 @@ static const char *startup_source =
 "(let-values()"
 "                                          (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))"
 "(if((lambda(x_94)"
-"(let-values(((or-part_297)(not x_94)))"
-"(if or-part_297 or-part_297(char? x_94))))"
+"(let-values(((or-part_298)(not x_94)))"
+"(if or-part_298 or-part_298(char? x_94))))"
 " start_59)"
 "(void)"
 "(let-values()"
@@ -57400,9 +57404,9 @@ static const char *startup_source =
 "(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_366)(list? context_24)))"
-"(if or-part_366"
-" or-part_366"
+"(if(let-values(((or-part_367)(list? context_24)))"
+"(if or-part_367"
+" or-part_367"
 "(memq"
 " context_24"
 "(if as-transformer?_6"
@@ -57725,8 +57729,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_309)(not maybe-insp_2)))"
-"(if or-part_309 or-part_309(inspector? maybe-insp_2)))"
+"(if(let-values(((or-part_310)(not maybe-insp_2)))"
+"(if or-part_310 or-part_310(inspector? maybe-insp_2)))"
 "(void)"
 "                              (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))"
 "(values))))"
@@ -57774,9 +57778,9 @@ static const char *startup_source =
 "(inspector-for-taint)"
 "(lambda(maybe-insp_3)"
 "(begin"
-"(let-values(((or-part_367) maybe-insp_3))"
-"(if or-part_367"
-" or-part_367"
+"(let-values(((or-part_368) maybe-insp_3))"
+"(if or-part_368"
+" or-part_368"
 "(let-values(((or-part_163)(current-module-code-inspector)))"
 "(if or-part_163 or-part_163(current-code-inspector))))))))"
 "(define-values"
@@ -58622,8 +58626,8 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_156)))"
-"((letrec-values(((for-loop_237)"
-"(lambda(table_183 lst_54)"
+"((letrec-values(((for-loop_281)"
+"(lambda(table_214 lst_54)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_54)"
@@ -58644,7 +58648,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_214)"
+"(let-values(((table_215)"
 "(let-values(((ht_161)"
 "(hash-ref"
 "(shift-provides-module-path-index"
@@ -58661,7 +58665,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-in-hash"
 " ht_161)))"
-"((letrec-values(((for-loop_281)"
+"((letrec-values(((for-loop_282)"
 "(lambda(table_142"
 " i_181)"
 "(begin"
@@ -58691,25 +58695,25 @@ static const char *startup_source =
 " table_35)))))"
 "(if(not"
 " #f)"
-"(for-loop_281"
+"(for-loop_282"
 " table_31"
 "(hash-iterate-next"
 " ht_161"
 " i_181))"
 " table_31)))"
 " table_142)))))"
-" for-loop_281)"
+" for-loop_282)"
 " table_141"
 "(hash-iterate-first"
 " ht_161))))))"
-" table_214))))))"
+" table_215))))))"
 " for-loop_185)"
-" table_183)))))"
+" table_214)))))"
 "(if(not #f)"
-"(for-loop_237 table_33 rest_181)"
+"(for-loop_281 table_33 rest_181)"
 " table_33)))"
-" table_183)))))"
-" for-loop_237)"
+" table_214)))))"
+" for-loop_281)"
 " '#hash()"
 " lst_156))))"
 " '#hasheqv()))"
@@ -59176,8 +59180,8 @@ static const char *startup_source =
 "(check-module-form)"
 "(lambda(exp_0 filename_1)"
 "(begin"
-"(if(let-values(((or-part_311)(eof-object? exp_0)))"
-"(if or-part_311 or-part_311(eof-object?(1/syntax-e exp_0))))"
+"(if(let-values(((or-part_312)(eof-object? exp_0)))"
+"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))"
 "(let-values()"
 "(if filename_1"
 "(error"
@@ -59754,9 +59758,9 @@ static const char *startup_source =
 "(let-values(((so_0)(get-so_0 file_1 #t)))"
 "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))"
 "(let-values(((try-main?_0)"
-"(let-values(((or-part_356) main-path-d_0))"
-"(if or-part_356"
-" or-part_356"
+"(let-values(((or-part_357) main-path-d_0))"
+"(if or-part_357"
+" or-part_357"
 "(not alt-path-d_0)))))"
 "(let-values(((try-alt?_0)"
 "(if alt-file_0"
@@ -59885,12 +59889,12 @@ static const char *startup_source =
 "(car zo-d_1)"
 " expect-module_0)))))))"
 " c4_3)"
-"(if(let-values(((or-part_368)"
+"(if(let-values(((or-part_369)"
 "(not"
 "(pair?"
 " expect-module_0))))"
-"(if or-part_368"
-" or-part_368"
+"(if or-part_369"
+" or-part_369"
 "(car expect-module_0)))"
 "(let-values()"
 "(let-values(((p_76)"
@@ -59996,8 +60000,8 @@ static const char *startup_source =
 " 'loop"
 "(if(null?(cdr l_81))"
 "(values null(car l_81))"
-"(let-values(((c_112 f_42)(loop_101(cdr l_81))))"
-"(values(cons(car l_81) c_112) f_42)))))))"
+"(let-values(((c_113 f_42)(loop_101(cdr l_81))))"
+"(values(cons(car l_81) c_113) f_42)))))))"
 " loop_101)"
 " l_85))))))"
 "(define-values"
@@ -60102,8 +60106,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_358)(not relto_1)))"
-"(if or-part_358 or-part_358(1/resolved-module-path? relto_1)))"
+"(if(let-values(((or-part_359)(not relto_1)))"
+"(if or-part_359 or-part_359(1/resolved-module-path? relto_1)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -60176,9 +60180,9 @@ static const char *startup_source =
 "                                                     (if or-part_102 or-part_102 (equal? (cadr s_500) \"..\")))"
 "(if relto_1"
 "(let-values(((p_78)(1/resolved-module-path-name relto_1)))"
-"(let-values(((or-part_369)(symbol? p_78)))"
-"(if or-part_369"
-" or-part_369"
+"(let-values(((or-part_370)(symbol? p_78)))"
+"(if or-part_370"
+" or-part_370"
 "(if(pair? p_78)(symbol?(car p_78)) #f))))"
 " #f)"
 " #f)"
@@ -60243,10 +60247,10 @@ static const char *startup_source =
 " #f)))"
 "(if or-part_41"
 " or-part_41"
-"(let-values(((or-part_370)"
+"(let-values(((or-part_371)"
 "(current-load-relative-directory)))"
-"(if or-part_370"
-" or-part_370"
+"(if or-part_371"
+" or-part_371"
 "(current-directory))))))))"
 "((get-reg_0)"
 "(lambda()"
@@ -60259,15 +60263,15 @@ static const char *startup_source =
 " 'show-collection-err"
 "(let-values(((msg_2)"
 "(string-append"
-"(let-values(((or-part_366)"
+"(let-values(((or-part_367)"
 "(if stx_19"
 "(if(error-print-source-location)"
 "(format-source-location"
 " stx_19)"
 " #f)"
 " #f)))"
-"(if or-part_366"
-" or-part_366"
+"(if or-part_367"
+" or-part_367"
 "                                                                                    \"standard-module-name-resolver\"))"
 "                                                                                \": \""
 "(regexp-replace"
@@ -60321,8 +60325,8 @@ static const char *startup_source =
 "((s_502)"
 "(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)"
 "(let-values(((v_259)(cadr s_500)))"
-"                                                                 (if (let-values (((or-part_371) (equal? v_259 \".\")))"
-"                                                                       (if or-part_371 or-part_371 (equal? v_259 \"..\")))"
+"                                                                 (if (let-values (((or-part_372) (equal? v_259 \".\")))"
+"                                                                       (if or-part_372 or-part_372 (equal? v_259 \"..\")))"
 "(if relto_1"
 "(let-values(((p_6)"
 "(1/resolved-module-path-name"
@@ -60394,11 +60398,11 @@ static const char *startup_source =
 "(if(string? s_502)"
 "(let-values()"
 "(let-values(((dir_4)(get-dir_0)))"
-"(let-values(((or-part_372)"
+"(let-values(((or-part_373)"
 "(path-cache-get"
 "(cons s_502 dir_4))))"
-"(if or-part_372"
-" or-part_372"
+"(if or-part_373"
+" or-part_373"
 "(let-values(((cols_1 file_4)"
 "(split-relative-string"
 " s_502"
@@ -60528,11 +60532,11 @@ static const char *startup_source =
 "(vector-ref s-parsed_0 4)"
 "(1/make-resolved-module-path filename_2))))"
 "(let-values(((hts_3)"
-"(let-values(((or-part_373)"
+"(let-values(((or-part_374)"
 "(registry-table-ref"
 "(get-reg_0))))"
-"(if or-part_373"
-" or-part_373"
+"(if or-part_374"
+" or-part_374"
 "(let-values(((hts_4)"
 "(cons"
 "(make-hasheq)"
@@ -60674,14 +60678,14 @@ static const char *startup_source =
 "(void))"
 "(if(if(not(vector? s-parsed_0))"
 "(if load?_7"
-"(let-values(((or-part_374)"
-"(string? s_502)))"
-"(if or-part_374"
-" or-part_374"
 "(let-values(((or-part_375)"
-"(symbol? s_502)))"
+"(string? s_502)))"
 "(if or-part_375"
 " or-part_375"
+"(let-values(((or-part_376)"
+"(symbol? s_502)))"
+"(if or-part_376"
+" or-part_376"
 "(if(pair? s_502)"
 "(eq?(car s_502) 'lib)"
 " #f)))))"
@@ -60708,14 +60712,14 @@ static const char *startup_source =
 "(1/eval"
 " s_36"
 "(1/current-namespace)"
-"(let-values(((c_113)(1/current-compile)))"
+"(let-values(((c_114)(1/current-compile)))"
 "(lambda(e_88 ns_17)"
 "(if(eq? ns_17(1/current-namespace))"
-"(c_113 e_88 #t)"
+"(c_114 e_88 #t)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_17)"
-"(let-values()(c_113 e_88 #t))))))))))"
+"(let-values()(c_114 e_88 #t))))))))))"
 "(define-values"
 "(default-compile-handler)"
 "(lambda(s_503 immediate-eval?_0)(begin(1/compile s_503(1/current-namespace)(not immediate-eval?_0)))))"
@@ -60828,7 +60832,7 @@ static const char *startup_source =
 "(datum->syntax$1 #f bodys_7))))"
 "(void)))"
 "(values))))"
-"(let-values(((phase_135)(expand-context-phase ctx_75)))"
+"(let-values(((phase_134)(expand-context-phase ctx_75)))"
 "(let-values(((frame-id_7)(make-reference-record)))"
 "(let-values(((def-ctx-scopes_6)(box null)))"
 "(let-values(((body-ctx_0)"
@@ -61000,7 +61004,7 @@ static const char *startup_source =
 "(let-values(((tmp_63)"
 "(core-form-sym"
 " disarmed-exp-body_0"
-" phase_135)))"
+" phase_134)))"
 "(if(equal? tmp_63 'begin)"
 "(let-values()"
 "(let-values((()"
@@ -61326,7 +61330,7 @@ static const char *startup_source =
 "(let-values(((ids93_0)"
 " ids_31)"
 "((phase94_1)"
-" phase_135)"
+" phase_134)"
 "((exp-body95_0)"
 " exp-body_0)"
 "((dups96_0)"
@@ -61351,7 +61355,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_308)))"
-"((letrec-values(((for-loop_282)"
+"((letrec-values(((for-loop_283)"
 "(lambda(fold-var_185"
 " lst_309)"
 "(begin"
@@ -61374,7 +61378,7 @@ static const char *startup_source =
 "(let-values(((id97_0)"
 " id_105)"
 "((phase98_0)"
-" phase_135)"
+" phase_134)"
 "((counter99_0)"
 " counter_5)"
 "((frame-id100_0)"
@@ -61392,12 +61396,12 @@ static const char *startup_source =
 " fold-var_284)))))"
 "(if(not"
 " #f)"
-"(for-loop_282"
+"(for-loop_283"
 " fold-var_245"
 " rest_182)"
 " fold-var_245)))"
 " fold-var_185)))))"
-" for-loop_282)"
+" for-loop_283)"
 " null"
 " lst_308))))))"
 "(let-values(((extended-env_0)"
@@ -61529,7 +61533,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_311)))"
-"((letrec-values(((for-loop_283)"
+"((letrec-values(((for-loop_284)"
 "(lambda(fold-var_285"
 " lst_154)"
 "(begin"
@@ -61555,12 +61559,12 @@ static const char *startup_source =
 " fold-var_288)))))"
 "(if(not"
 " #f)"
-"(for-loop_283"
+"(for-loop_284"
 " fold-var_286"
 " rest_79)"
 " fold-var_286)))"
 " fold-var_285)))))"
-" for-loop_283)"
+" for-loop_284)"
 " null"
 " lst_311))))"
 " val-idss_0))"
@@ -61577,7 +61581,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_312)))"
-"((letrec-values(((for-loop_284)"
+"((letrec-values(((for-loop_285)"
 "(lambda(fold-var_289"
 " lst_32)"
 "(begin"
@@ -61603,12 +61607,12 @@ static const char *startup_source =
 " fold-var_136)))))"
 "(if(not"
 " #f)"
-"(for-loop_284"
+"(for-loop_285"
 " fold-var_290"
 " rest_184)"
 " fold-var_290)))"
 " fold-var_289)))))"
-" for-loop_284)"
+" for-loop_285)"
 " null"
 " lst_312))))"
 " val-keyss_0))"
@@ -61648,7 +61652,7 @@ static const char *startup_source =
 "(no-binds"
 " done-body_2"
 " s_491"
-" phase_135))"
+" phase_134))"
 " fold-var_294))))"
 "(values"
 " fold-var_39)))))"
@@ -61676,7 +61680,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_53)))"
-"((letrec-values(((for-loop_285)"
+"((letrec-values(((for-loop_286)"
 "(lambda(fold-var_295"
 " lst_314)"
 "(begin"
@@ -61702,12 +61706,12 @@ static const char *startup_source =
 " fold-var_297)))))"
 "(if(not"
 " #f)"
-"(for-loop_285"
+"(for-loop_286"
 " fold-var_140"
 " rest_186)"
 " fold-var_140)))"
 " fold-var_295)))))"
-" for-loop_285)"
+" for-loop_286)"
 " null"
 " lst_53))))"
 " track-stxs_0))"
@@ -61797,7 +61801,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_315)))"
-"((letrec-values(((for-loop_286)"
+"((letrec-values(((for-loop_287)"
 "(lambda(id_108"
 " lst_316)"
 "(begin"
@@ -61841,12 +61845,12 @@ static const char *startup_source =
 " id_110)))))"
 "(if(not"
 " #f)"
-"(for-loop_286"
+"(for-loop_287"
 " id_64"
 " rest_187)"
 " id_64)))"
 " id_108)))))"
-" for-loop_286)"
+" for-loop_287)"
 " null"
 " lst_315)))))"
 "(reverse$1"
@@ -61937,7 +61941,7 @@ static const char *startup_source =
 "(let-values(((ids115_0)"
 " ids_32)"
 "((phase116_0)"
-" phase_135)"
+" phase_134)"
 "((exp-body117_0)"
 " exp-body_0)"
 "((dups118_0)"
@@ -61962,7 +61966,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_317)))"
-"((letrec-values(((for-loop_287)"
+"((letrec-values(((for-loop_288)"
 "(lambda(fold-var_298"
 " lst_318)"
 "(begin"
@@ -61985,7 +61989,7 @@ static const char *startup_source =
 "(let-values(((id119_0)"
 " id_111)"
 "((phase120_0)"
-" phase_135)"
+" phase_134)"
 "((counter121_0)"
 " counter_6)"
 "((frame-id122_0)"
@@ -62003,12 +62007,12 @@ static const char *startup_source =
 " fold-var_301)))))"
 "(if(not"
 " #f)"
-"(for-loop_287"
+"(for-loop_288"
 " fold-var_299"
 " rest_188)"
 " fold-var_299)))"
 " fold-var_298)))))"
-" for-loop_287)"
+" for-loop_288)"
 " null"
 " lst_317))))))"
 "(let-values((()"
@@ -62074,7 +62078,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_321)))"
-"((letrec-values(((for-loop_288)"
+"((letrec-values(((for-loop_289)"
 "(lambda(env_21"
 " lst_36"
 " lst_322"
@@ -62116,7 +62120,7 @@ static const char *startup_source =
 "(maybe-install-free=id-in-context!"
 " val_41"
 " id_112"
-" phase_135"
+" phase_134"
 " body-ctx_2)"
 "(env-extend"
 " env_23"
@@ -62126,14 +62130,14 @@ static const char *startup_source =
 " env_24)))))"
 "(if(not"
 " #f)"
-"(for-loop_288"
+"(for-loop_289"
 " env_22"
 " rest_189"
 " rest_190"
 " rest_191)"
 " env_22)))"
 " env_21)))))"
-" for-loop_288)"
+" for-loop_289)"
 "(expand-context-env"
 " body-ctx_2)"
 " lst_319"
@@ -62241,7 +62245,7 @@ static const char *startup_source =
 "(cons"
 "(core-id"
 " '#%stratified-body"
-" phase_135)"
+" phase_134)"
 "(cons"
 " exp-body_0"
 " rest-bodys_0)))))"
@@ -62411,7 +62415,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-naturals start_64)))"
-"((letrec-values(((for-loop_289)"
+"((letrec-values(((for-loop_290)"
 "(lambda(fold-var_302"
 " lst_5"
 " pos_125)"
@@ -62511,7 +62515,7 @@ static const char *startup_source =
 " fold-var_305)))))"
 "(if(not"
 " #f)"
-"(for-loop_289"
+"(for-loop_290"
 " fold-var_303"
 " rest_192"
 "(+"
@@ -62519,7 +62523,7 @@ static const char *startup_source =
 " 1))"
 " fold-var_303)))"
 " fold-var_302)))))"
-" for-loop_289)"
+" for-loop_290)"
 " null"
 " lst_210"
 " start_64))))))"
@@ -62633,7 +62637,7 @@ static const char *startup_source =
 "(let-values(((get-body_0) get-body35_0))"
 "(let-values(((track?_1) track?36_0))"
 "(let-values()"
-"(let-values(((phase_136)(expand-context-phase ctx_76)))"
+"(let-values(((phase_135)(expand-context-phase ctx_76)))"
 "((letrec-values(((loop_27)"
 "(lambda(idss_2"
 " keyss_1"
@@ -62678,10 +62682,10 @@ static const char *startup_source =
 "(if(null? accum-idss_0)"
 "(core-id"
 " 'let-values"
-" phase_136)"
+" phase_135)"
 "(core-id"
 " 'letrec-values"
-" phase_136))"
+" phase_135))"
 "(build-clauses"
 " accum-idss_0"
 " accum-rhss_0"
@@ -62790,7 +62794,7 @@ static const char *startup_source =
 "(list*"
 "(core-id"
 " 'let-values"
-" phase_136)"
+" phase_135)"
 "(list"
 "(build-clause"
 " ids_33"
@@ -62823,9 +62827,9 @@ static const char *startup_source =
 "(list result-s_10)"
 " result-s_10))))))"
 "(if(if(not forward-references?_0)"
-"(let-values(((or-part_376) split?_0))"
-"(if or-part_376"
-" or-part_376"
+"(let-values(((or-part_377) split?_0))"
+"(if or-part_377"
+" or-part_377"
 "(null?(cdr idss_2))))"
 " #f)"
 "(let-values()"
@@ -62870,7 +62874,7 @@ static const char *startup_source =
 "(list*"
 "(core-id"
 " 'letrec-values"
-" phase_136)"
+" phase_135)"
 "(build-clauses"
 "(cons"
 " ids_33"
@@ -62944,12 +62948,12 @@ static const char *startup_source =
 "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))"
 "(define-values"
 "(no-binds)"
-"(lambda(expr_10 s_517 phase_137)"
+"(lambda(expr_10 s_517 phase_136)"
 "(begin"
-"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_137)))"
+"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_136)))"
 "(datum->syntax$1"
-"(core-id '#%app phase_137)"
-"(list(core-id 'begin phase_137) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))"
+"(core-id '#%app phase_136)"
+"(list(core-id 'begin phase_136) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))"
 " s_517)))))"
 "(define-values"
 "(log-tag?)"
@@ -62959,7 +62963,7 @@ static const char *startup_source =
 "(lambda(obs_85 ctx_78 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)"
 "(begin"
 " 'log-letrec-values"
-"(let-values(((phase_138)(expand-context-phase ctx_78)))"
+"(let-values(((phase_137)(expand-context-phase ctx_78)))"
 "(let-values(((clauses_0)"
 "(reverse$1"
 "(let-values(((lst_324) val-idss_2)((lst_325) val-rhss_2)((lst_326) track-stxs_4))"
@@ -62973,7 +62977,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_326)))"
-"((letrec-values(((for-loop_290)"
+"((letrec-values(((for-loop_291)"
 "(lambda(fold-var_306 lst_327 lst_328 lst_329)"
 "(begin"
 " 'for-loop"
@@ -62997,16 +63001,16 @@ static const char *startup_source =
 " fold-var_308))))"
 "(values fold-var_309)))))"
 "(if(not #f)"
-"(for-loop_290 fold-var_307 rest_193 rest_194 rest_195)"
+"(for-loop_291 fold-var_307 rest_193 rest_194 rest_195)"
 " fold-var_307)))"
 " fold-var_306)))))"
-" for-loop_290)"
+" for-loop_291)"
 " null"
 " lst_324"
 " lst_325"
 " lst_326))))))"
 "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))"
-"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_138)))"
+"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_137)))"
 "(let-values(((lv-s_0)"
 "(datum->syntax$1"
 " #f"
@@ -63392,7 +63396,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list lst_330)))"
-"((letrec-values(((for-loop_291)"
+"((letrec-values(((for-loop_292)"
 "(lambda(formals_4"
 " body_13"
 " lst_331)"
@@ -63479,7 +63483,7 @@ static const char *startup_source =
 " body_16)))))"
 "(if(not"
 " #f)"
-"(for-loop_291"
+"(for-loop_292"
 " formals_5"
 " body_14"
 " rest_198)"
@@ -63489,7 +63493,7 @@ static const char *startup_source =
 "(values"
 " formals_4"
 " body_13))))))"
-" for-loop_291)"
+" for-loop_292)"
 " null"
 " null"
 " lst_330)))))"
@@ -63758,7 +63762,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_335)))"
-"((letrec-values(((for-loop_292)"
+"((letrec-values(((for-loop_293)"
 "(lambda(id:trans_1"
 " trans-rhs_1"
 " lst_336)"
@@ -63823,7 +63827,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_337)))"
-"((letrec-values(((for-loop_293)"
+"((letrec-values(((for-loop_294)"
 "(lambda(id:trans_6"
 " lst_213)"
 "(begin"
@@ -63843,15 +63847,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:trans146_0)"
 "(let-values()"
-"(if(let-values(((or-part_340)"
+"(if(let-values(((or-part_341)"
 "(if(syntax?$1"
 " s_533)"
 "(symbol?"
 "(syntax-e$1"
 " s_533))"
 " #f)))"
-"(if or-part_340"
-" or-part_340"
+"(if or-part_341"
+" or-part_341"
 "(symbol?"
 " s_533)))"
 " s_533"
@@ -63867,12 +63871,12 @@ static const char *startup_source =
 " id:trans_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_293"
+"(for-loop_294"
 " id:trans_7"
 " rest_203)"
 " id:trans_7)))"
 " id:trans_6)))))"
-" for-loop_293)"
+" for-loop_294)"
 " null"
 " lst_337)))))"
 "(reverse$1"
@@ -63936,7 +63940,7 @@ static const char *startup_source =
 " trans-rhs_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_292"
+"(for-loop_293"
 " id:trans_2"
 " trans-rhs_2"
 " rest_202)"
@@ -63946,7 +63950,7 @@ static const char *startup_source =
 "(values"
 " id:trans_1"
 " trans-rhs_1))))))"
-" for-loop_292)"
+" for-loop_293)"
 " null"
 " null"
 " lst_335)))))"
@@ -64001,7 +64005,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_338)))"
-"((letrec-values(((for-loop_294)"
+"((letrec-values(((for-loop_295)"
 "(lambda(id:val_1"
 " val-rhs_2"
 " lst_339)"
@@ -64066,7 +64070,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_340)))"
-"((letrec-values(((for-loop_295)"
+"((letrec-values(((for-loop_296)"
 "(lambda(id:val_6"
 " lst_123)"
 "(begin"
@@ -64086,15 +64090,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val149_0)"
 "(let-values()"
-"(if(let-values(((or-part_377)"
+"(if(let-values(((or-part_378)"
 "(if(syntax?$1"
 " s_540)"
 "(symbol?"
 "(syntax-e$1"
 " s_540))"
 " #f)))"
-"(if or-part_377"
-" or-part_377"
+"(if or-part_378"
+" or-part_378"
 "(symbol?"
 " s_540)))"
 " s_540"
@@ -64110,12 +64114,12 @@ static const char *startup_source =
 " id:val_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_295"
+"(for-loop_296"
 " id:val_7"
 " rest_62)"
 " id:val_7)))"
 " id:val_6)))))"
-" for-loop_295)"
+" for-loop_296)"
 " null"
 " lst_340)))))"
 "(reverse$1"
@@ -64179,7 +64183,7 @@ static const char *startup_source =
 " val-rhs_5)))))"
 "(if(not"
 " #f)"
-"(for-loop_294"
+"(for-loop_295"
 " id:val_2"
 " val-rhs_3"
 " rest_204)"
@@ -64189,7 +64193,7 @@ static const char *startup_source =
 "(values"
 " id:val_1"
 " val-rhs_2))))))"
-" for-loop_294)"
+" for-loop_295)"
 " null"
 " null"
 " lst_338)))))"
@@ -64315,7 +64319,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_304)))"
-"((letrec-values(((for-loop_296)"
+"((letrec-values(((for-loop_297)"
 "(lambda(id:val_11"
 " val-rhs_7"
 " lst_341)"
@@ -64380,7 +64384,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_342)))"
-"((letrec-values(((for-loop_297)"
+"((letrec-values(((for-loop_298)"
 "(lambda(id:val_16"
 " lst_343)"
 "(begin"
@@ -64400,15 +64404,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val152_0)"
 "(let-values()"
-"(if(let-values(((or-part_378)"
+"(if(let-values(((or-part_379)"
 "(if(syntax?$1"
 " s_547)"
 "(symbol?"
 "(syntax-e$1"
 " s_547))"
 " #f)))"
-"(if or-part_378"
-" or-part_378"
+"(if or-part_379"
+" or-part_379"
 "(symbol?"
 " s_547)))"
 " s_547"
@@ -64424,12 +64428,12 @@ static const char *startup_source =
 " id:val_19)))))"
 "(if(not"
 " #f)"
-"(for-loop_297"
+"(for-loop_298"
 " id:val_17"
 " rest_206)"
 " id:val_17)))"
 " id:val_16)))))"
-" for-loop_297)"
+" for-loop_298)"
 " null"
 " lst_342)))))"
 "(reverse$1"
@@ -64493,7 +64497,7 @@ static const char *startup_source =
 " val-rhs_10)))))"
 "(if(not"
 " #f)"
-"(for-loop_296"
+"(for-loop_297"
 " id:val_12"
 " val-rhs_8"
 " rest_205)"
@@ -64503,7 +64507,7 @@ static const char *startup_source =
 "(values"
 " id:val_11"
 " val-rhs_7))))))"
-" for-loop_296)"
+" for-loop_297)"
 " null"
 " null"
 " lst_304)))))"
@@ -64567,7 +64571,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_344)))"
-"((letrec-values(((for-loop_298)"
+"((letrec-values(((for-loop_299)"
 "(lambda(fold-var_313 lst_345)"
 "(begin"
 " 'for-loop"
@@ -64593,7 +64597,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_346)))"
-"((letrec-values(((for-loop_299)"
+"((letrec-values(((for-loop_300)"
 "(lambda(fold-var_314"
 " lst_347)"
 "(begin"
@@ -64621,22 +64625,22 @@ static const char *startup_source =
 " fold-var_317)))))"
 "(if(not"
 " #f)"
-"(for-loop_299"
+"(for-loop_300"
 " fold-var_315"
 " rest_208)"
 " fold-var_315)))"
 " fold-var_314)))))"
-" for-loop_299)"
+" for-loop_300)"
 " null"
 " lst_346)))))"
 " fold-var_109))))"
 "(values"
 " fold-var_110)))))"
 "(if(not #f)"
-"(for-loop_298 fold-var_108 rest_207)"
+"(for-loop_299 fold-var_108 rest_207)"
 " fold-var_108)))"
 " fold-var_313)))))"
-" for-loop_298)"
+" for-loop_299)"
 " null"
 " lst_344))))))"
 "(let-values(((val-idss_3)"
@@ -64646,7 +64650,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_348)))"
-"((letrec-values(((for-loop_300)"
+"((letrec-values(((for-loop_301)"
 "(lambda(fold-var_318 lst_349)"
 "(begin"
 " 'for-loop"
@@ -64672,7 +64676,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_350)))"
-"((letrec-values(((for-loop_301)"
+"((letrec-values(((for-loop_302)"
 "(lambda(fold-var_322"
 " lst_351)"
 "(begin"
@@ -64700,24 +64704,24 @@ static const char *startup_source =
 " fold-var_325)))))"
 "(if(not"
 " #f)"
-"(for-loop_301"
+"(for-loop_302"
 " fold-var_323"
 " rest_210)"
 " fold-var_323)))"
 " fold-var_322)))))"
-" for-loop_301)"
+" for-loop_302)"
 " null"
 " lst_350)))))"
 " fold-var_320))))"
 "(values"
 " fold-var_321)))))"
 "(if(not #f)"
-"(for-loop_300"
+"(for-loop_301"
 " fold-var_319"
 " rest_209)"
 " fold-var_319)))"
 " fold-var_318)))))"
-" for-loop_300)"
+" for-loop_301)"
 " null"
 " lst_348))))))"
 "(let-values(((val-rhss_3)"
@@ -64729,7 +64733,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_352)))"
-"((letrec-values(((for-loop_302)"
+"((letrec-values(((for-loop_303)"
 "(lambda(fold-var_326 lst_353)"
 "(begin"
 " 'for-loop"
@@ -64752,12 +64756,12 @@ static const char *startup_source =
 "(values"
 " fold-var_329)))))"
 "(if(not #f)"
-"(for-loop_302"
+"(for-loop_303"
 " fold-var_327"
 " rest_211)"
 " fold-var_327)))"
 " fold-var_326)))))"
-" for-loop_302)"
+" for-loop_303)"
 " null"
 " lst_352))))"
 "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))"
@@ -64968,7 +64972,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_354)))"
-"((letrec-values(((for-loop_303)"
+"((letrec-values(((for-loop_304)"
 "(lambda(fold-var_330 lst_355)"
 "(begin"
 " 'for-loop"
@@ -64996,7 +65000,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_356)))"
-"((letrec-values(((for-loop_304)"
+"((letrec-values(((for-loop_305)"
 "(lambda(fold-var_334"
 " lst_357)"
 "(begin"
@@ -65037,24 +65041,24 @@ static const char *startup_source =
 " fold-var_337)))))"
 "(if(not"
 " #f)"
-"(for-loop_304"
+"(for-loop_305"
 " fold-var_335"
 " rest_213)"
 " fold-var_335)))"
 " fold-var_334)))))"
-" for-loop_304)"
+" for-loop_305)"
 " null"
 " lst_356)))))"
 " fold-var_332))))"
 "(values"
 " fold-var_333)))))"
 "(if(not #f)"
-"(for-loop_303"
+"(for-loop_304"
 " fold-var_331"
 " rest_212)"
 " fold-var_331)))"
 " fold-var_330)))))"
-" for-loop_303)"
+" for-loop_304)"
 " null"
 " lst_354))))))"
 "(let-values(((val-keyss_2)"
@@ -65065,7 +65069,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_358)))"
-"((letrec-values(((for-loop_305)"
+"((letrec-values(((for-loop_306)"
 "(lambda(fold-var_338 lst_359)"
 "(begin"
 " 'for-loop"
@@ -65093,7 +65097,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_131)))"
-"((letrec-values(((for-loop_306)"
+"((letrec-values(((for-loop_307)"
 "(lambda(fold-var_341"
 " lst_360)"
 "(begin"
@@ -65134,24 +65138,24 @@ static const char *startup_source =
 " fold-var_344)))))"
 "(if(not"
 " #f)"
-"(for-loop_306"
+"(for-loop_307"
 " fold-var_342"
 " rest_215)"
 " fold-var_342)))"
 " fold-var_341)))))"
-" for-loop_306)"
+" for-loop_307)"
 " null"
 " lst_131)))))"
 " fold-var_340))))"
 "(values"
 " fold-var_113)))))"
 "(if(not #f)"
-"(for-loop_305"
+"(for-loop_306"
 " fold-var_339"
 " rest_214)"
 " fold-var_339)))"
 " fold-var_338)))))"
-" for-loop_305)"
+" for-loop_306)"
 " null"
 " lst_358))))))"
 "(let-values(((bodys_10)"
@@ -65163,7 +65167,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_361)))"
-"((letrec-values(((for-loop_307)"
+"((letrec-values(((for-loop_308)"
 "(lambda(fold-var_345 lst_362)"
 "(begin"
 " 'for-loop"
@@ -65188,12 +65192,12 @@ static const char *startup_source =
 "(values"
 " fold-var_48)))))"
 "(if(not #f)"
-"(for-loop_307"
+"(for-loop_308"
 " fold-var_118"
 " rest_216)"
 " fold-var_118)))"
 " fold-var_345)))))"
-" for-loop_307)"
+" for-loop_308)"
 " null"
 " lst_361))))))"
 "(let-values((()"
@@ -65247,7 +65251,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_363)))"
-"((letrec-values(((for-loop_308)"
+"((letrec-values(((for-loop_309)"
 "(lambda(fold-var_347"
 " lst_364"
 " lst_365)"
@@ -65316,13 +65320,13 @@ static const char *startup_source =
 "(values"
 " fold-var_350)))))"
 "(if(not #f)"
-"(for-loop_308"
+"(for-loop_309"
 " fold-var_348"
 " rest_217"
 " rest_218)"
 " fold-var_348)))"
 " fold-var_347)))))"
-" for-loop_308)"
+" for-loop_309)"
 " null"
 " lst_63"
 " lst_363))))))"
@@ -65338,7 +65342,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_135)))"
-"((letrec-values(((for-loop_309)"
+"((letrec-values(((for-loop_310)"
 "(lambda(env_29"
 " lst_367"
 " lst_368)"
@@ -65380,7 +65384,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_370)))"
-"((letrec-values(((for-loop_310)"
+"((letrec-values(((for-loop_311)"
 "(lambda(env_32"
 " lst_371"
 " lst_372)"
@@ -65417,24 +65421,24 @@ static const char *startup_source =
 " env_35)))))"
 "(if(not"
 " #f)"
-"(for-loop_310"
+"(for-loop_311"
 " env_33"
 " rest_221"
 " rest_222)"
 " env_33)))"
 " env_32)))))"
-" for-loop_310)"
+" for-loop_311)"
 " env_31"
 " lst_369"
 " lst_370))))))"
 "(if(not #f)"
-"(for-loop_309"
+"(for-loop_310"
 " env_30"
 " rest_219"
 " rest_220)"
 " env_30)))"
 " env_29)))))"
-" for-loop_309)"
+" for-loop_310)"
 "(expand-context-env ctx_82)"
 " lst_366"
 " lst_135)))))"
@@ -65455,7 +65459,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_375)))"
-"((letrec-values(((for-loop_311)"
+"((letrec-values(((for-loop_312)"
 "(lambda(env_36"
 " lst_376"
 " lst_377"
@@ -65518,7 +65522,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_381)))"
-"((letrec-values(((for-loop_312)"
+"((letrec-values(((for-loop_313)"
 "(lambda(env_40"
 " lst_382"
 " lst_383"
@@ -65570,14 +65574,14 @@ static const char *startup_source =
 " env_43)))))"
 "(if(not"
 " #f)"
-"(for-loop_312"
+"(for-loop_313"
 " env_41"
 " rest_226"
 " rest_227"
 " rest_228)"
 " env_41)))"
 " env_40)))))"
-" for-loop_312)"
+" for-loop_313)"
 " env_38"
 " lst_379"
 " lst_380"
@@ -65585,14 +65589,14 @@ static const char *startup_source =
 "(values"
 " env_39)))))"
 "(if(not #f)"
-"(for-loop_311"
+"(for-loop_312"
 " env_37"
 " rest_223"
 " rest_224"
 " rest_225)"
 " env_37)))"
 " env_36)))))"
-" for-loop_311)"
+" for-loop_312)"
 " rec-val-env_0"
 " lst_373"
 " lst_374"
@@ -65720,7 +65724,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_385)))"
-"((letrec-values(((for-loop_313)"
+"((letrec-values(((for-loop_314)"
 "(lambda(fold-var_355"
 " lst_386)"
 "(begin"
@@ -65751,12 +65755,12 @@ static const char *startup_source =
 " fold-var_357)))))"
 "(if(not"
 " #f)"
-"(for-loop_313"
+"(for-loop_314"
 " fold-var_356"
 " rest_229)"
 " fold-var_356)))"
 " fold-var_355)))))"
-" for-loop_313)"
+" for-loop_314)"
 " null"
 " lst_385)))))"
 " fold-var_353))))"
@@ -65914,7 +65918,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_388)))"
-"((letrec-values(((for-loop_314)"
+"((letrec-values(((for-loop_315)"
 "(lambda(fold-var_358"
 " lst_389"
 " lst_390"
@@ -66011,7 +66015,7 @@ static const char *startup_source =
 " fold-var_360)))))"
 "(if(not"
 " #f)"
-"(for-loop_314"
+"(for-loop_315"
 " fold-var_51"
 " rest_230"
 " rest_231"
@@ -66019,7 +66023,7 @@ static const char *startup_source =
 " rest_233)"
 " fold-var_51)))"
 " fold-var_358)))))"
-" for-loop_314)"
+" for-loop_315)"
 " null"
 " lst_149"
 " lst_387"
@@ -66112,7 +66116,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_394)))"
-"((letrec-values(((for-loop_315)"
+"((letrec-values(((for-loop_316)"
 "(lambda(fold-var_361 lst_395 lst_396)"
 "(begin"
 " 'for-loop"
@@ -66133,10 +66137,10 @@ static const char *startup_source =
 " fold-var_363))))"
 "(values fold-var_364)))))"
 "(if(not #f)"
-"(for-loop_315 fold-var_362 rest_234 rest_235)"
+"(for-loop_316 fold-var_362 rest_234 rest_235)"
 " fold-var_362)))"
 " fold-var_361)))))"
-" for-loop_315)"
+" for-loop_316)"
 " null"
 " lst_393"
 " lst_394))))"
@@ -66156,7 +66160,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_398)))"
-"((letrec-values(((for-loop_316)"
+"((letrec-values(((for-loop_317)"
 "(lambda(fold-var_365 lst_399 lst_400)"
 "(begin"
 " 'for-loop"
@@ -66178,9 +66182,9 @@ static const char *startup_source =
 "(add-scope trans-rhs_5 sc_39))))"
 " fold-var_367))))"
 "(values fold-var_368)))))"
-"(if(not #f)(for-loop_316 fold-var_366 rest_236 rest_237) fold-var_366)))"
+"(if(not #f)(for-loop_317 fold-var_366 rest_236 rest_237) fold-var_366)))"
 " fold-var_365)))))"
-" for-loop_316)"
+" for-loop_317)"
 " null"
 " lst_397"
 " lst_398))))"
@@ -66298,10 +66302,10 @@ static const char *startup_source =
 "                                 (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))"
 "(void))"
 "(values))))"
-"(let-values(((phase_139)(expand-context-phase ctx_84)))"
+"(let-values(((phase_138)(expand-context-phase ctx_84)))"
 "(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)"
 "(parsed-quote14.1(keep-properties-only~ s_574)(syntax->datum$1 datum_2))"
-"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_139) datum_2)))"
+"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_138) datum_2)))"
 "(rebuild5.1 #t s239_0 temp240_0))))))))))))"
 "(void"
 "(add-core-form!*"
@@ -66337,10 +66341,10 @@ static const char *startup_source =
 "(let-values(((es_3) e242_0))"
 "(if(null? es_3)"
 "(let-values()"
-"(let-values(((phase_140)(expand-context-phase ctx_85)))"
+"(let-values(((phase_139)(expand-context-phase ctx_85)))"
 "(if(expand-context-to-parsed? ctx_85)"
 "(parsed-quote14.1(keep-properties-only~ s_579) null)"
-"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_140) null)))"
+"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_139) null)))"
 "(rebuild5.1 #t s245_0 temp246_1)))))"
 "(let-values()"
 "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))"
@@ -66383,7 +66387,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_401)))"
-"((letrec-values(((for-loop_317)"
+"((letrec-values(((for-loop_318)"
 "(lambda(fold-var_369 lst_402)"
 "(begin"
 " 'for-loop"
@@ -66423,17 +66427,17 @@ static const char *startup_source =
 "(values"
 " fold-var_372)))))"
 "(if(not #f)"
-"(for-loop_317 fold-var_370 rest_238)"
+"(for-loop_318 fold-var_370 rest_238)"
 " fold-var_370)))"
 " fold-var_369)))))"
-" for-loop_317)"
+" for-loop_318)"
 " null"
 " lst_401))))))"
 "(if(expand-context-to-parsed? ctx_85)"
 "(let-values()"
 "(parsed-app7.1"
-"(let-values(((or-part_379) rebuild-prefixless_0))"
-"(if or-part_379 or-part_379 rebuild-s_8))"
+"(let-values(((or-part_380) rebuild-prefixless_0))"
+"(if or-part_380 or-part_380 rebuild-s_8))"
 " exp-rator_0"
 " exp-es_0))"
 "(let-values()"
@@ -67171,8 +67175,8 @@ static const char *startup_source =
 "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))"
 "(lambda(s_683 ctx_91)"
 "(let-values(((context_25)(expand-context-context ctx_91)))"
-"(if(let-values(((or-part_380)(eq? context_25 'top-level)))"
-"(if or-part_380 or-part_380(eq? context_25 'module)))"
+"(if(let-values(((or-part_381)(eq? context_25 'top-level)))"
+"(if or-part_381 or-part_381(eq? context_25 'module)))"
 "(let-values()"
 "(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))"
 "(let-values(((ok?_56 begin366_0)"
@@ -67263,15 +67267,15 @@ static const char *startup_source =
 "(let-values(((s_697)"
 "(cdr"
 " s_695)))"
-"(if(let-values(((or-part_381)"
+"(if(let-values(((or-part_382)"
 "(if(syntax?$1"
 " s_697)"
 "(symbol?"
 "(syntax-e$1"
 " s_697))"
 " #f)))"
-"(if or-part_381"
-" or-part_381"
+"(if or-part_382"
+" or-part_382"
 "(symbol?"
 " s_697)))"
 " s_697"
@@ -67364,15 +67368,15 @@ static const char *startup_source =
 "(let-values(((s_701)"
 "(cdr"
 " s_699)))"
-"(if(let-values(((or-part_382)"
+"(if(let-values(((or-part_383)"
 "(if(syntax?$1"
 " s_701)"
 "(symbol?"
 "(syntax-e$1"
 " s_701))"
 " #f)))"
-"(if or-part_382"
-" or-part_382"
+"(if or-part_383"
+" or-part_383"
 "(symbol?"
 " s_701)))"
 " s_701"
@@ -67425,14 +67429,14 @@ static const char *startup_source =
 "(if(pair? s_709)"
 "(let-values(((id398_0)"
 "(let-values(((s_710)(car s_709)))"
-"(if(let-values(((or-part_383)"
+"(if(let-values(((or-part_384)"
 "(if(syntax?$1 s_710)"
 "(symbol?"
 "(syntax-e$1"
 " s_710))"
 " #f)))"
-"(if or-part_383"
-" or-part_383"
+"(if or-part_384"
+" or-part_384"
 "(symbol? s_710)))"
 " s_710"
 "(raise-syntax-error$1"
@@ -67515,14 +67519,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()(call-expand-observe obs_119 'resolve id_123)))"
 "(void)))"
-"(if(let-values(((or-part_384)(variable? t_62)))"
-"(if or-part_384"
-" or-part_384"
-"(if(not binding_28)"
-"(let-values(((or-part_385)"
-"(register-eventual-variable!? id_123 ctx_96)))"
+"(if(let-values(((or-part_385)(variable? t_62)))"
 "(if or-part_385"
 " or-part_385"
+"(if(not binding_28)"
+"(let-values(((or-part_386)"
+"(register-eventual-variable!? id_123 ctx_96)))"
+"(if or-part_386"
+" or-part_386"
 "(expand-context-allow-unbound? ctx_96)))"
 " #f)))"
 "(let-values()"
@@ -67685,8 +67689,8 @@ static const char *startup_source =
 "(let-values(((ctx_97) ctx30_0))"
 "(let-values(((t_63) t23_0))"
 "(let-values()"
-"(if(let-values(((or-part_386) t_63))"
-"(if or-part_386 or-part_386 from-rename?_1))"
+"(if(let-values(((or-part_387) t_63))"
+"(if or-part_387 or-part_387 from-rename?_1))"
 "(let-values()"
 "(let-values(((new-id_1)"
 "(if t_63"
@@ -67726,9 +67730,9 @@ static const char *startup_source =
 "(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))"
 "(if(pair? s_724)"
 "(if(let-values(((s_725)(car s_724)))"
-"(let-values(((or-part_387)"
+"(let-values(((or-part_388)"
 "(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))"
-"(if or-part_387 or-part_387(symbol? s_725))))"
+"(if or-part_388 or-part_388(symbol? s_725))))"
 "(let-values(((s_726)(cdr s_724)))"
 "(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))"
 "(null? s_727)))"
@@ -67775,11 +67779,11 @@ static const char *startup_source =
 "(if(pair? s_741)"
 "(if(let-values(((s_742)(car s_741))) #t)"
 "(let-values(((s_743)(cdr s_741)))"
-"(let-values(((or-part_388)"
+"(let-values(((or-part_389)"
 "(if(syntax?$1 s_743)"
 "(symbol?(syntax-e$1 s_743))"
 " #f)))"
-"(if or-part_388 or-part_388(symbol? s_743))))"
+"(if or-part_389 or-part_389(symbol? s_743))))"
 " #f)"
 " #f)))"
 "(let-values(((s_744)(cdr s_739)))"
@@ -67831,7 +67835,7 @@ static const char *startup_source =
 "(values #f #f #f #f)))))"
 "(let-values(((ok?_62 #%variable-reference445_0)"
 "(let-values(((s_756) disarmed-s_22))"
-"(if(if(not(let-values(((or-part_389) ok?_60))(if or-part_389 or-part_389 ok?_61)))"
+"(if(if(not(let-values(((or-part_390) ok?_60))(if or-part_390 or-part_390 ok?_61)))"
 " #t"
 " #f)"
 "(let-values(((orig-s_60) s_756))"
@@ -67856,7 +67860,7 @@ static const char *startup_source =
 "                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))"
 "(values #t #%variable-reference445_1)))"
 "(values #f #f)))))"
-"(if(let-values(((or-part_390) ok?_60))(if or-part_390 or-part_390 ok?_61))"
+"(if(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61))"
 "(let-values()"
 "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))"
 "(let-values(((binding_29)"
@@ -67872,8 +67876,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_391) binding_29))"
-"(if or-part_391 or-part_391(expand-context-allow-unbound? ctx_100)))"
+"(if(let-values(((or-part_392) binding_29))"
+"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_100)))"
 "(void)"
 "(let-values()"
 "(raise-unbound-syntax-error"
@@ -67968,11 +67972,11 @@ static const char *startup_source =
 "(expand9.1 #f #f #f temp463_0 temp464_0))))"
 "(if(expand-context-to-parsed? ctx_101)"
 " exp-e_0"
-"(if(let-values(((or-part_392)"
+"(if(let-values(((or-part_393)"
 "(if(expand-context-in-local-expand? ctx_101)"
 "(expand-context-keep-#%expression? ctx_101)"
 " #f)))"
-"(if or-part_392 or-part_392(eq? 'top-level(expand-context-context ctx_101))))"
+"(if or-part_393 or-part_393(eq? 'top-level(expand-context-context ctx_101))))"
 "(let-values()"
 "(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))"
 "(rebuild5.1 #t rebuild-s467_0 temp468_0)))"
@@ -68651,15 +68655,15 @@ static const char *startup_source =
 "(let-values(((s_202)"
 "(car"
 " s_61)))"
-"(if(let-values(((or-part_393)"
+"(if(let-values(((or-part_394)"
 "(if(syntax?$1"
 " s_202)"
 "(symbol?"
 "(syntax-e$1"
 " s_202))"
 " #f)))"
-"(if or-part_393"
-" or-part_393"
+"(if or-part_394"
+" or-part_394"
 "(symbol?"
 " s_202)))"
 " s_202"
@@ -68778,15 +68782,15 @@ static const char *startup_source =
 "(let-values(((s_779)"
 "(car"
 " s_317)))"
-"(if(let-values(((or-part_394)"
+"(if(let-values(((or-part_395)"
 "(if(syntax?$1"
 " s_779)"
 "(symbol?"
 "(syntax-e$1"
 " s_779))"
 " #f)))"
-"(if or-part_394"
-" or-part_394"
+"(if or-part_395"
+" or-part_395"
 "(symbol?"
 " s_779)))"
 " s_779"
@@ -68838,7 +68842,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_404)))"
-"((letrec-values(((for-loop_318)"
+"((letrec-values(((for-loop_319)"
 "(lambda(id:field_1"
 " lst_269)"
 "(begin"
@@ -68858,15 +68862,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:field49_0)"
 "(let-values()"
-"(if(let-values(((or-part_395)"
+"(if(let-values(((or-part_396)"
 "(if(syntax?$1"
 " s_782)"
 "(symbol?"
 "(syntax-e$1"
 " s_782))"
 " #f)))"
-"(if or-part_395"
-" or-part_395"
+"(if or-part_396"
+" or-part_396"
 "(symbol?"
 " s_782)))"
 " s_782"
@@ -68882,12 +68886,12 @@ static const char *startup_source =
 " id:field_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_318"
+"(for-loop_319"
 " id:field_2"
 " rest_240)"
 " id:field_2)))"
 " id:field_1)))))"
-" for-loop_318)"
+" for-loop_319)"
 " null"
 " lst_404)))))"
 "(reverse$1"
@@ -69124,7 +69128,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_405)))"
-"((letrec-values(((for-loop_319)"
+"((letrec-values(((for-loop_320)"
 "(lambda(id_129"
 " lst_406)"
 "(begin"
@@ -69144,15 +69148,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id63_0)"
 "(let-values()"
-"(if(let-values(((or-part_396)"
+"(if(let-values(((or-part_397)"
 "(if(syntax?$1"
 " s_786)"
 "(symbol?"
 "(syntax-e$1"
 " s_786))"
 " #f)))"
-"(if or-part_396"
-" or-part_396"
+"(if or-part_397"
+" or-part_397"
 "(symbol?"
 " s_786)))"
 " s_786"
@@ -69168,12 +69172,12 @@ static const char *startup_source =
 " id_132)))))"
 "(if(not"
 " #f)"
-"(for-loop_319"
+"(for-loop_320"
 " id_130"
 " rest_241)"
 " id_130)))"
 " id_129)))))"
-" for-loop_319)"
+" for-loop_320)"
 " null"
 " lst_405)))))"
 "(reverse$1"
@@ -69365,15 +69369,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id70_0)"
 "(let-values()"
-"(if(let-values(((or-part_287)"
+"(if(let-values(((or-part_288)"
 "(if(syntax?$1"
 " s_464)"
 "(symbol?"
 "(syntax-e$1"
 " s_464))"
 " #f)))"
-"(if or-part_287"
-" or-part_287"
+"(if or-part_288"
+" or-part_288"
 "(symbol?"
 " s_464)))"
 " s_464"
@@ -69472,15 +69476,15 @@ static const char *startup_source =
 "(let-values(((s_331)"
 "(car"
 " s_236)))"
-"(if(let-values(((or-part_289)"
+"(if(let-values(((or-part_290)"
 "(if(syntax?$1"
 " s_331)"
 "(symbol?"
 "(syntax-e$1"
 " s_331))"
 " #f)))"
-"(if or-part_289"
-" or-part_289"
+"(if or-part_290"
+" or-part_290"
 "(symbol?"
 " s_331)))"
 " s_331"
@@ -69589,15 +69593,15 @@ static const char *startup_source =
 "(let-values(((s_535)"
 "(car"
 " s_243)))"
-"(if(let-values(((or-part_343)"
+"(if(let-values(((or-part_344)"
 "(if(syntax?$1"
 " s_535)"
 "(symbol?"
 "(syntax-e$1"
 " s_535))"
 " #f)))"
-"(if or-part_343"
-" or-part_343"
+"(if or-part_344"
+" or-part_344"
 "(symbol?"
 " s_535)))"
 " s_535"
@@ -69637,7 +69641,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_408)))"
-"((letrec-values(((for-loop_320)"
+"((letrec-values(((for-loop_321)"
 "(lambda(id_36"
 " lst_409)"
 "(begin"
@@ -69657,15 +69661,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id84_3)"
 "(let-values()"
-"(if(let-values(((or-part_397)"
+"(if(let-values(((or-part_398)"
 "(if(syntax?$1"
 " s_795)"
 "(symbol?"
 "(syntax-e$1"
 " s_795))"
 " #f)))"
-"(if or-part_397"
-" or-part_397"
+"(if or-part_398"
+" or-part_398"
 "(symbol?"
 " s_795)))"
 " s_795"
@@ -69681,12 +69685,12 @@ static const char *startup_source =
 " id_140)))))"
 "(if(not"
 " #f)"
-"(for-loop_320"
+"(for-loop_321"
 " id_138"
 " rest_243)"
 " id_138)))"
 " id_36)))))"
-" for-loop_320)"
+" for-loop_321)"
 " null"
 " lst_408)))))"
 "(reverse$1"
@@ -69782,15 +69786,15 @@ static const char *startup_source =
 "(let-values(((s_373)"
 "(car"
 " s_371)))"
-"(if(let-values(((or-part_398)"
+"(if(let-values(((or-part_399)"
 "(if(syntax?$1"
 " s_373)"
 "(symbol?"
 "(syntax-e$1"
 " s_373))"
 " #f)))"
-"(if or-part_398"
-" or-part_398"
+"(if or-part_399"
+" or-part_399"
 "(symbol?"
 " s_373)))"
 " s_373"
@@ -70228,7 +70232,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_410)))"
-"((letrec-values(((for-loop_321)"
+"((letrec-values(((for-loop_322)"
 "(lambda(lst_411)"
 "(begin"
 " 'for-loop"
@@ -70251,9 +70255,9 @@ static const char *startup_source =
 " protected?_17)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_321 rest_244)(values))))"
+"(if(not #f)(for-loop_322 rest_244)(values))))"
 "(values))))))"
-" for-loop_321)"
+" for-loop_322)"
 " lst_410)))"
 "(void)"
 "(let-values(((lst_412) fields_0))"
@@ -70261,7 +70265,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_412)))"
-"((letrec-values(((for-loop_322)"
+"((letrec-values(((for-loop_323)"
 "(lambda(lst_413)"
 "(begin"
 " 'for-loop"
@@ -70298,9 +70302,9 @@ static const char *startup_source =
 " protected?_17)))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_322 rest_245)(values))))"
+"(if(not #f)(for-loop_323 rest_245)(values))))"
 "(values))))))"
-" for-loop_322)"
+" for-loop_323)"
 " lst_412)))"
 "(void)))))))"
 "(define-values"
@@ -70354,7 +70358,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_414)))"
-"((letrec-values(((for-loop_323)"
+"((letrec-values(((for-loop_324)"
 "(lambda(lst_415)"
 "(begin"
 " 'for-loop"
@@ -70369,14 +70373,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id_142)"
 "(required-id i_187)))"
-"(let-values(((phase_141)"
+"(let-values(((phase_140)"
 "(required-phase"
 " i_187)))"
-"(if(let-values(((or-part_399)"
+"(if(let-values(((or-part_400)"
 "(if matching-stx_0"
 "(not"
 "(if(eqv?"
-" phase_141"
+" phase_140"
 " at-phase_17)"
 "(free-identifier=?$1"
 " id_142"
@@ -70384,12 +70388,12 @@ static const char *startup_source =
 " matching-stx_0"
 "(syntax-e$1"
 " id_142))"
-" phase_141"
-" phase_141)"
+" phase_140"
+" phase_140)"
 " #f))"
 " #f)))"
-"(if or-part_399"
-" or-part_399"
+"(if or-part_400"
+" or-part_400"
 "(let-values(((lst_416)"
 " except-ids_1))"
 "(begin"
@@ -70399,7 +70403,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_416)))"
-"((letrec-values(((for-loop_324)"
+"((letrec-values(((for-loop_325)"
 "(lambda(result_129"
 " lst_417)"
 "(begin"
@@ -70420,8 +70424,8 @@ static const char *startup_source =
 "(if(free-identifier=?$1"
 " id_142"
 " except-id_0"
-" phase_141"
-" phase_141)"
+" phase_140"
+" phase_140)"
 "(hash-set!"
 " found_0"
 " except-id_0"
@@ -70436,12 +70440,12 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_324"
+"(for-loop_325"
 " result_130"
 " rest_247)"
 " result_130)))"
 " result_129)))))"
-" for-loop_324)"
+" for-loop_325)"
 " #f"
 " lst_416)))))"
 "(void)"
@@ -70449,13 +70453,13 @@ static const char *startup_source =
 "(let-values(((b_94)"
 "(resolve+shift/extra-inspector"
 " id_142"
-" phase_141"
+" phase_140"
 " ns_129)))"
 "(let-values(((immed-b_1)"
 "(let-values(((id130_0)"
 " id_142)"
 "((phase131_0)"
-" phase_141)"
+" phase_140)"
 "((temp132_2)"
 " #t))"
 "(resolve+shift28.1"
@@ -70473,7 +70477,7 @@ static const char *startup_source =
 "(syntax-e$1"
 " id_142)))"
 "((phase123_0)"
-" phase_141)"
+" phase_140)"
 "((b124_0)"
 " b_94)"
 "((immed-b125_0)"
@@ -70499,9 +70503,9 @@ static const char *startup_source =
 " orig-s127_0)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_323 rest_246)(values))))"
+"(if(not #f)(for-loop_324 rest_246)(values))))"
 "(values))))))"
-" for-loop_323)"
+" for-loop_324)"
 " lst_414)))"
 "(void)"
 "(if(=(hash-count found_0)(length except-ids_1))"
@@ -70513,7 +70517,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_418)))"
-"((letrec-values(((for-loop_325)"
+"((letrec-values(((for-loop_326)"
 "(lambda(lst_419)"
 "(begin"
 " 'for-loop"
@@ -70526,13 +70530,13 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(if(let-values(((or-part_400)"
+"(if(let-values(((or-part_401)"
 "(hash-ref"
 " found_0"
 " except-id_1"
 " #f)))"
-"(if or-part_400"
-" or-part_400"
+"(if or-part_401"
+" or-part_401"
 "(let-values(((lst_420)"
 " requireds_2))"
 "(begin"
@@ -70542,7 +70546,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_420)))"
-"((letrec-values(((for-loop_326)"
+"((letrec-values(((for-loop_327)"
 "(lambda(result_132"
 " lst_421)"
 "(begin"
@@ -70563,14 +70567,14 @@ static const char *startup_source =
 "(let-values(((id_143)"
 "(required-id"
 " i_188)))"
-"(let-values(((phase_142)"
+"(let-values(((phase_141)"
 "(required-phase"
 " i_188)))"
 "(free-identifier=?$1"
 " id_143"
 " except-id_1"
-" phase_142"
-" phase_142)))))))"
+" phase_141"
+" phase_141)))))))"
 "(values"
 " result_134)))))"
 "(if(if(not"
@@ -70580,12 +70584,12 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_326"
+"(for-loop_327"
 " result_133"
 " rest_249)"
 " result_133)))"
 " result_132)))))"
-" for-loop_326)"
+" for-loop_327)"
 " #f"
 " lst_420)))))"
 "(void)"
@@ -70601,9 +70605,9 @@ static const char *startup_source =
 " except-id_1))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_325 rest_248)(values))))"
+"(if(not #f)(for-loop_326 rest_248)(values))))"
 "(values))))))"
-" for-loop_325)"
+" for-loop_326)"
 " lst_418)))"
 "(void)))))))))))))"
 "(define-values"
@@ -70620,7 +70624,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_422)))"
-"((letrec-values(((for-loop_327)"
+"((letrec-values(((for-loop_328)"
 "(lambda(lst_85)"
 "(begin"
 " 'for-loop"
@@ -70668,9 +70672,9 @@ static const char *startup_source =
 " p_45))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_327 rest_40)(values))))"
+"(if(not #f)(for-loop_328 rest_40)(values))))"
 "(values))))))"
-" for-loop_327)"
+" for-loop_328)"
 " lst_422)))"
 "(void)))))"
 "((check-expr_0)"
@@ -70697,7 +70701,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_78)))"
-"((letrec-values(((for-loop_328)"
+"((letrec-values(((for-loop_329)"
 "(lambda(lst_86)"
 "(begin"
 " 'for-loop"
@@ -70717,10 +70721,10 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_328 rest_250)"
+"(for-loop_329 rest_250)"
 "(values))))"
 "(values))))))"
-" for-loop_328)"
+" for-loop_329)"
 " lst_78)))"
 "(void)"
 "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))"
@@ -70828,9 +70832,9 @@ static const char *startup_source =
 "(if(let-values(((or-part_84)(not normal-b_1)))"
 "(if or-part_84"
 " or-part_84"
-"(let-values(((or-part_310)(parsed-top-id? id_4)))"
-"(if or-part_310"
-" or-part_310"
+"(let-values(((or-part_311)(parsed-top-id? id_4)))"
+"(if or-part_311"
+" or-part_311"
 "(if(not(symbol? normal-b_1))"
 "(eq?(module-binding-module normal-b_1) self-mpi_6)"
 " #f)))))"
@@ -70883,8 +70887,8 @@ static const char *startup_source =
 " lst_23)))"
 "(void)"
 "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))"
-"(if(let-values(((or-part_401)(parsed-quote-syntax? e_92)))"
-"(if or-part_401 or-part_401(parsed-#%variable-reference? e_92)))"
+"(if(let-values(((or-part_402)(parsed-quote-syntax? e_92)))"
+"(if or-part_402 or-part_402(parsed-#%variable-reference? e_92)))"
 "(let-values()(disallow e_92))"
 "(let-values()(void)))))))))))))))"
 "((check-body-no-disallowed-expr_0)"
@@ -70897,7 +70901,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_81)))"
-"((letrec-values(((for-loop_329)"
+"((letrec-values(((for-loop_330)"
 "(lambda(lst_58)"
 "(begin"
 " 'for-loop"
@@ -70914,9 +70918,9 @@ static const char *startup_source =
 " e_82))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_329 rest_196)(values))))"
+"(if(not #f)(for-loop_330 rest_196)(values))))"
 "(values))))))"
-" for-loop_329)"
+" for-loop_330)"
 " lst_81)))"
 "(void))))))"
 "(check-body_0 bodys_13)))))"
@@ -71235,7 +71239,7 @@ static const char *startup_source =
 " s_804"
 " initial-require230_0)))"
 "(values))))"
-"(let-values(((phase_143) 0))"
+"(let-values(((phase_142) 0))"
 "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))"
 "(let-values(((outside-scope_1)(new-scope 'module)))"
 "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))"
@@ -71364,7 +71368,7 @@ static const char *startup_source =
 "((namespace270_0)"
 " m-ns_19)"
 "((phase271_0)"
-" phase_143)"
+" phase_142)"
 "((just-once?272_0)"
 " #f))"
 "(expand-context/inner2.1"
@@ -71961,7 +71965,7 @@ static const char *startup_source =
 "(let-values(((expression-expanded-bodys_0)"
 "((letrec-values(((pass-1-and-2-loop_0)"
 "(lambda(bodys_17"
-" phase_144)"
+" phase_143)"
 "(begin"
 " 'pass-1-and-2-loop"
 "(let-values(((def-ctx-scopes_8)"
@@ -71990,16 +71994,16 @@ static const char *startup_source =
 "(if(expand-context/inner?"
 " the-struct_105)"
 "(let-values(((phase332_0)"
-" phase_144)"
+" phase_143)"
 "((namespace333_0)"
 "(namespace->namespace-at-phase"
 " m-ns_19"
-" phase_144))"
+" phase_143))"
 "((stops334_0)"
 "(free-id-set"
-" phase_144"
+" phase_143"
 "(module-expand-stop-ids"
-" phase_144)))"
+" phase_143)))"
 "((declared-submodule-names335_0)"
 " declared-submodule-names_3)"
 "((lift-key336_0)"
@@ -72018,11 +72022,11 @@ static const char *startup_source =
 " temp341_0)))"
 "((module-lifts338_0)"
 "(make-module-lift-context"
-" phase_144"
+" phase_143"
 " #t))"
 "((require-lifts339_0)"
 "(make-require-lift-context"
-" phase_144"
+" phase_143"
 "(let-values(((m-ns342_0)"
 " m-ns_19)"
 "((self343_0)"
@@ -72038,7 +72042,7 @@ static const char *startup_source =
 " requires+provides344_0))))"
 "((to-module-lifts340_0)"
 "(let-values(((phase346_0)"
-" phase_144)"
+" phase_143)"
 "((module-ends347_0)"
 " module-ends_0)"
 "((temp348_0)"
@@ -72130,7 +72134,7 @@ static const char *startup_source =
 "(let-values(((bodys349_0)"
 " bodys_17)"
 "((phase350_0)"
-" phase_144)"
+" phase_143)"
 "((partial-body-ctx351_0)"
 " partial-body-ctx_0)"
 "((m-ns352_0)"
@@ -72212,7 +72216,7 @@ static const char *startup_source =
 " empty-free-id-set)"
 "((to-module-lifts369_0)"
 "(let-values(((phase370_0)"
-" phase_144)"
+" phase_143)"
 "((module-ends371_0)"
 " module-ends_0)"
 "((temp372_0)"
@@ -72311,7 +72315,7 @@ static const char *startup_source =
 "(let-values(((partially-expanded-bodys320_0)"
 " partially-expanded-bodys_0)"
 "((phase321_0)"
-" phase_144)"
+" phase_143)"
 "((body-ctx322_0)"
 " body-ctx_6)"
 "((self323_0)"
@@ -72335,7 +72339,7 @@ static const char *startup_source =
 " partially-expanded-bodys320_0))))))))))))"
 " pass-1-and-2-loop_0)"
 " bodys_16"
-" phase_143)))"
+" phase_142)))"
 "(let-values((()"
 "(begin"
 "(check-defined-by-now"
@@ -72367,7 +72371,7 @@ static const char *startup_source =
 "((m-ns376_0)"
 " m-ns_19)"
 "((phase377_0)"
-" phase_143)"
+" phase_142)"
 "((self378_0)"
 " self_32)"
 "((ctx379_0)"
@@ -72584,7 +72588,7 @@ static const char *startup_source =
 "((declare-enclosing-module398_0)"
 " declare-enclosing-module_0)"
 "((phase399_0)"
-" phase_143)"
+" phase_142)"
 "((self400_0)"
 " self_32)"
 "((requires+provides401_0)"
@@ -72781,7 +72785,7 @@ static const char *startup_source =
 "((mb-def-ctx-scopes424_0)"
 " mb-def-ctx-scopes_0)"
 "((phase425_0)"
-" phase_143)"
+" phase_142)"
 "((s426_0)"
 " s_804))"
 "(ensure-module-begin36.1"
@@ -72857,11 +72861,11 @@ static const char *startup_source =
 " self_32"
 " self_32)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_402)"
+"(if(let-values(((or-part_403)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_402"
-" or-part_402"
+"(if or-part_403"
+" or-part_403"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
@@ -72907,7 +72911,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_424)))"
-"((letrec-values(((for-loop_330)"
+"((letrec-values(((for-loop_331)"
 "(lambda(lst_425)"
 "(begin"
 " 'for-loop"
@@ -72931,11 +72935,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_330"
+"(for-loop_331"
 " rest_252)"
 "(values))))"
 "(values))))))"
-" for-loop_330)"
+" for-loop_331)"
 " lst_424)))"
 "(void)"
 "(let-values(((result-s_15)"
@@ -73015,7 +73019,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((ctx_113) ctx24_0))"
 "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))"
-"(let-values(((phase_145) phase26_3))"
+"(let-values(((phase_144) phase26_3))"
 "(let-values(((s_382) s27_2))"
 "(let-values()"
 "(let-values(((make-mb-ctx_0)"
@@ -73061,7 +73065,7 @@ static const char *startup_source =
 "(void)))"
 "(if(eq?"
 " '#%module-begin"
-"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_145))"
+"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_144))"
 "(let-values()(car bodys_18))"
 "(let-values()"
 "(let-values(((partly-expanded-body_0)"
@@ -73076,13 +73080,13 @@ static const char *startup_source =
 " '#%module-begin"
 "(core-form-sym"
 "(syntax-disarm$1 partly-expanded-body_0)"
-" phase_145))"
+" phase_144))"
 "(let-values() partly-expanded-body_0)"
 "(let-values()"
 "(let-values(((temp442_0)(list partly-expanded-body_0))"
 "((s443_0) s_382)"
 "((scopes-s444_0) scopes-s_0)"
-"((phase445_0) phase_145)"
+"((phase445_0) phase_144)"
 "((module-name-sym446_0) module-name-sym_1)"
 "((temp447_0)(make-mb-ctx_0))"
 "((temp448_1) #f))"
@@ -73098,7 +73102,7 @@ static const char *startup_source =
 "(let-values(((bodys449_0) bodys_18)"
 "((s450_0) s_382)"
 "((scopes-s451_0) scopes-s_0)"
-"((phase452_0) phase_145)"
+"((phase452_0) phase_144)"
 "((module-name-sym453_0) module-name-sym_1)"
 "((temp454_1)(make-mb-ctx_0)))"
 "(add-module-begin47.1"
@@ -73118,7 +73122,7 @@ static const char *startup_source =
 "(let-values(((bodys_19) bodys41_0))"
 "(let-values(((s_807) s42_0))"
 "(let-values(((scopes-s_1) scopes-s43_0))"
-"(let-values(((phase_146) phase44_0))"
+"(let-values(((phase_145) phase44_0))"
 "(let-values(((module-name-sym_2) module-name-sym45_0))"
 "(let-values(((mb-ctx_1) mb-ctx46_0))"
 "(let-values(((log-rename-one?_0) log-rename-one?39_0))"
@@ -73127,7 +73131,7 @@ 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-id455_0) mb-id_0)((phase456_0) phase_146))"
+"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_145))"
 "(resolve40.1 #f #f null #f mb-id455_0 phase456_0))"
 "(void)"
 "(let-values()"
@@ -73167,7 +73171,7 @@ static const char *startup_source =
 "(begin"
 "(if(eq?"
 " '#%module-begin"
-"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_146))"
+"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_145))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -73614,7 +73618,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_252)))"
-"((letrec-values(((for-loop_331)"
+"((letrec-values(((for-loop_332)"
 "(lambda(fold-var_373"
 " lst_426)"
 "(begin"
@@ -73641,12 +73645,12 @@ static const char *startup_source =
 " fold-var_355)))))"
 "(if(not"
 " #f)"
-"(for-loop_331"
+"(for-loop_332"
 " fold-var_374"
 " rest_253)"
 " fold-var_374)))"
 " fold-var_373)))))"
-" for-loop_331)"
+" for-loop_332)"
 " null"
 " lst_252))))))"
 "(datum->syntax$1"
@@ -73753,7 +73757,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_70)))"
-"((letrec-values(((for-loop_332)"
+"((letrec-values(((for-loop_333)"
 "(lambda(id_146"
 " lst_427)"
 "(begin"
@@ -73773,15 +73777,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id495_0)"
 "(let-values()"
-"(if(let-values(((or-part_403)"
+"(if(let-values(((or-part_404)"
 "(if(syntax?$1"
 " s_826)"
 "(symbol?"
 "(syntax-e$1"
 " s_826))"
 " #f)))"
-"(if or-part_403"
-" or-part_403"
+"(if or-part_404"
+" or-part_404"
 "(symbol?"
 " s_826)))"
 " s_826"
@@ -73797,12 +73801,12 @@ static const char *startup_source =
 " id_149)))))"
 "(if(not"
 " #f)"
-"(for-loop_332"
+"(for-loop_333"
 " id_147"
 " rest_254)"
 " id_147)))"
 " id_146)))))"
-" for-loop_332)"
+" for-loop_333)"
 " null"
 " lst_70)))))"
 "(reverse$1"
@@ -74079,7 +74083,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_428)))"
-"((letrec-values(((for-loop_333)"
+"((letrec-values(((for-loop_334)"
 "(lambda(id_151"
 " lst_429)"
 "(begin"
@@ -74099,15 +74103,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id524_0)"
 "(let-values()"
-"(if(let-values(((or-part_404)"
+"(if(let-values(((or-part_405)"
 "(if(syntax?$1"
 " s_839)"
 "(symbol?"
 "(syntax-e$1"
 " s_839))"
 " #f)))"
-"(if or-part_404"
-" or-part_404"
+"(if or-part_405"
+" or-part_405"
 "(symbol?"
 " s_839)))"
 " s_839"
@@ -74123,12 +74127,12 @@ static const char *startup_source =
 " id_154)))))"
 "(if(not"
 " #f)"
-"(for-loop_333"
+"(for-loop_334"
 " id_152"
 " rest_255)"
 " id_152)))"
 " id_151)))))"
-" for-loop_333)"
+" for-loop_334)"
 " null"
 " lst_428)))))"
 "(reverse$1"
@@ -74426,7 +74430,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_432)))"
-"((letrec-values(((for-loop_334)"
+"((letrec-values(((for-loop_335)"
 "(lambda(lst_433"
 " lst_434"
 " lst_435)"
@@ -74479,13 +74483,13 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_334"
+"(for-loop_335"
 " rest_256"
 " rest_257"
 " rest_258)"
 "(values))))"
 "(values))))))"
-" for-loop_334)"
+" for-loop_335)"
 " lst_430"
 " lst_431"
 " lst_432)))"
@@ -74820,7 +74824,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_436)))"
-"((letrec-values(((for-loop_335)"
+"((letrec-values(((for-loop_336)"
 "(lambda(lst_437)"
 "(begin"
 " 'for-loop"
@@ -74882,11 +74886,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_335"
+"(for-loop_336"
 " rest_259)"
 "(values))))"
 "(values))))))"
-" for-loop_335)"
+" for-loop_336)"
 " lst_436)))"
 "(values))))"
 "(let-values()"
@@ -74934,7 +74938,7 @@ static const char *startup_source =
 "(make-wrap-as-definition)"
 "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)"
 "(begin"
-"(lambda(ids_47 rhs_23 phase_147)"
+"(lambda(ids_47 rhs_23 phase_146)"
 "(let-values(((scoped-ids_0)"
 "(reverse$1"
 "(let-values(((lst_438) ids_47))"
@@ -74942,7 +74946,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_438)))"
-"((letrec-values(((for-loop_336)"
+"((letrec-values(((for-loop_337)"
 "(lambda(fold-var_376 lst_439)"
 "(begin"
 " 'for-loop"
@@ -74960,16 +74964,16 @@ static const char *startup_source =
 " inside-scope_2))"
 " fold-var_378))))"
 "(values fold-var_379)))))"
-"(if(not #f)(for-loop_336 fold-var_377 rest_260) fold-var_377)))"
+"(if(not #f)(for-loop_337 fold-var_377 rest_260) fold-var_377)))"
 " fold-var_376)))))"
-" for-loop_336)"
+" for-loop_337)"
 " null"
 " lst_438))))))"
 "(let-values(((syms_24)"
 "(let-values(((scoped-ids571_0) scoped-ids_0)"
 "((defined-syms572_0) defined-syms_13)"
 "((self573_0) self_35)"
-"((phase574_0) phase_147)"
+"((phase574_0) phase_146)"
 "((all-scopes-stx575_0) all-scopes-stx_6)"
 "((frame-id576_0) frame-id_18)"
 "((requires+provides577_0) requires+provides_8))"
@@ -74989,7 +74993,7 @@ static const char *startup_source =
 "(datum->syntax$1"
 " #f"
 "(list"
-"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_147) 'define-values)"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_146) 'define-values)"
 " scoped-ids_0"
 " rhs_23))"
 " inside-scope_2)))"
@@ -75004,7 +75008,7 @@ static const char *startup_source =
 "(let-values(((lst_440) bodys_23))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))"
-"((letrec-values(((for-loop_337)"
+"((letrec-values(((for-loop_338)"
 "(lambda(fold-var_380 lst_441)"
 "(begin"
 " 'for-loop"
@@ -75018,9 +75022,9 @@ static const char *startup_source =
 "(let-values()(add-scope body_21 sc_40))"
 " fold-var_382))))"
 "(values fold-var_383)))))"
-"(if(not #f)(for-loop_337 fold-var_381 rest_261) fold-var_381)))"
+"(if(not #f)(for-loop_338 fold-var_381 rest_261) fold-var_381)))"
 " fold-var_380)))))"
-" for-loop_337)"
+" for-loop_338)"
 " null"
 " lst_440))))"
 " bodys_23)))))"
@@ -75037,7 +75041,7 @@ static const char *startup_source =
 "(begin"
 " 'finish-expanding-body-expressons99"
 "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))"
-"(let-values(((phase_148) phase84_0))"
+"(let-values(((phase_147) phase84_0))"
 "(let-values(((body-ctx_7) ctx85_0))"
 "(let-values(((self_36) self86_0))"
 "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))"
@@ -75051,7 +75055,7 @@ static const char *startup_source =
 " 'loop"
 "(if(null? bodys_24)"
 "(let-values()"
-"(if(if tail?_54(not(zero? phase_148)) #f)"
+"(if(if tail?_54(not(zero? phase_147)) #f)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_154)(expand-context-observer body-ctx_7)))"
@@ -75105,14 +75109,14 @@ static const char *startup_source =
 "(let-values(((body_22)(car bodys_24)))"
 "(let-values(((rest-bodys_2)(cdr bodys_24)))"
 "(let-values(((exp-body_8)"
-"(if(let-values(((or-part_405)"
+"(if(let-values(((or-part_406)"
 "(parsed? body_22)))"
-"(if or-part_405"
-" or-part_405"
-"(let-values(((or-part_406)"
-"(expanded+parsed? body_22)))"
 "(if or-part_406"
 " or-part_406"
+"(let-values(((or-part_407)"
+"(expanded+parsed? body_22)))"
+"(if or-part_407"
+" or-part_407"
 "(semi-parsed-begin-for-syntax?"
 " body_22)))))"
 "(let-values() body_22)"
@@ -75325,7 +75329,7 @@ static const char *startup_source =
 "(let-values(((tmp_66)"
 "(core-form-sym"
 " disarmed-body_0"
-" phase_148)))"
+" phase_147)))"
 "(if(if(equal? tmp_66 '#%require)"
 " #t"
 "(if(equal? tmp_66 '#%provide)"
@@ -75403,7 +75407,7 @@ static const char *startup_source =
 "(let-values(((exp-lifted-modules_0)"
 "(let-values(((lifted-modules600_0)"
 " lifted-modules_0)"
-"((phase601_0) phase_148)"
+"((phase601_0) phase_147)"
 "((self602_0) self_36)"
 "((body-ctx603_0)"
 " body-ctx_7)"
@@ -75460,12 +75464,12 @@ static const char *startup_source =
 "(let-values(((ht_162) need-eventually-defined_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_162)))"
-"((letrec-values(((for-loop_338)"
+"((letrec-values(((for-loop_339)"
 "(lambda(i_189)"
 "(begin"
 " 'for-loop"
 "(if i_189"
-"(let-values(((phase_149 l_89)(hash-iterate-key+value ht_162 i_189)))"
+"(let-values(((phase_148 l_89)(hash-iterate-key+value ht_162 i_189)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -75479,7 +75483,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_442)))"
-"((letrec-values(((for-loop_339)"
+"((letrec-values(((for-loop_340)"
 "(lambda(lst_443)"
 "(begin"
 " 'for-loop"
@@ -75501,7 +75505,7 @@ static const char *startup_source =
 "(let-values(((id608_0)"
 " id_157)"
 "((phase609_0)"
-" phase_149))"
+" phase_148))"
 "(resolve+shift28.1"
 " #f"
 " #f"
@@ -75532,7 +75536,7 @@ static const char *startup_source =
 " requires+provides_9"
 "(module-binding-sym"
 " b_95)"
-" phase_149)"
+" phase_148)"
 " #f)))"
 "(if(eq?"
 " bound-kind_0"
@@ -75556,14 +75560,14 @@ static const char *startup_source =
 "(format"
 "                                                                                                                                                           \"\\n  at phase: ~a\""
 "(let-values(((tmp_67)"
-" phase_149))"
+" phase_148))"
 "(if(equal?"
 " tmp_67"
 " 1)"
 "(let-values()"
 "                                                                                                                                                                 \"1; the transformer environment\")"
 "(let-values()"
-" phase_149)))))"
+" phase_148)))))"
 " id_157"
 " #f"
 " null"
@@ -75573,18 +75577,18 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_339"
+"(for-loop_340"
 " rest_262)"
 "(values))))"
 "(values))))))"
-" for-loop_339)"
+" for-loop_340)"
 " lst_442)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_338(hash-iterate-next ht_162 i_189))(values))))"
+"(if(not #f)(for-loop_339(hash-iterate-next ht_162 i_189))(values))))"
 "(values))))))"
-" for-loop_338)"
+" for-loop_339)"
 "(hash-iterate-first ht_162))))"
 "(void)))))"
 "(define-values"
@@ -75602,27 +75606,27 @@ static const char *startup_source =
 "(let-values(((requires+provides_10) requires-and-provides102_0))"
 "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))"
 "(let-values(((m-ns_21) namespace104_0))"
-"(let-values(((phase_150) phase105_0))"
+"(let-values(((phase_149) phase105_0))"
 "(let-values(((self_38) self106_0))"
 "(let-values(((ctx_116) ctx107_1))"
 "(let-values()"
 "(let-values()"
 "((letrec-values(((loop_126)"
-"(lambda(bodys_26 phase_151)"
+"(lambda(bodys_26 phase_150)"
 "(begin"
 " 'loop"
 "(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_407)(parsed?(car bodys_26))))"
-"(if or-part_407 or-part_407(expanded+parsed?(car bodys_26))))"
+"(if(let-values(((or-part_408)(parsed?(car bodys_26))))"
+"(if or-part_408 or-part_408(expanded+parsed?(car bodys_26))))"
 "(let-values()"
-"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_151)))"
+"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_150)))"
 "(if(semi-parsed-begin-for-syntax?(car bodys_26))"
 "(let-values()"
 "(let-values(((nested-bodys_2)"
 "(loop_126"
 "(semi-parsed-begin-for-syntax-body(car bodys_26))"
-"(add1 phase_151))))"
+"(add1 phase_150))))"
 "(cons"
 "(let-values(((the-struct_114)(car bodys_26)))"
 "(if(semi-parsed-begin-for-syntax? the-struct_114)"
@@ -75634,11 +75638,11 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                              \"semi-parsed-begin-for-syntax?\""
 " the-struct_114)))"
-"(loop_126(cdr bodys_26) phase_151))))"
+"(loop_126(cdr bodys_26) phase_150))))"
 "(let-values()"
 "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))"
 "(let-values(((tmp_68)"
-"(core-form-sym disarmed-body_1 phase_151)))"
+"(core-form-sym disarmed-body_1 phase_150)))"
 "(if(equal? tmp_68 '#%provide)"
 "(let-values()"
 "(let-values((()"
@@ -75715,7 +75719,7 @@ static const char *startup_source =
 "(car bodys_26)"
 " requires+provides_10"
 " self_38"
-" phase_151"
+" phase_150"
 "(let-values(((v_276) ctx_116))"
 "(let-values(((the-struct_115)"
 " v_276))"
@@ -75730,11 +75734,11 @@ static const char *startup_source =
 "(if(expand-context/inner?"
 " the-struct_116)"
 "(let-values(((phase617_0)"
-" phase_151)"
+" phase_150)"
 "((namespace618_0)"
 "(namespace->namespace-at-phase"
 " m-ns_21"
-" phase_151))"
+" phase_150))"
 "((requires+provides619_0)"
 " requires+provides_10)"
 "((declared-submodule-names620_0)"
@@ -75827,7 +75831,7 @@ static const char *startup_source =
 " the-struct_115)))))))"
 "(if(expand-context-to-parsed? ctx_116)"
 "(let-values()"
-"(loop_126(cdr bodys_26) phase_151))"
+"(loop_126(cdr bodys_26) phase_150))"
 "(let-values()"
 "(let-values(((new-s_10)"
 "(syntax-track-origin*"
@@ -75858,14 +75862,14 @@ static const char *startup_source =
 " new-s_10"
 "(loop_126"
 "(cdr bodys_26)"
-" phase_151))))))))))"
+" phase_150))))))))))"
 "(let-values()"
 "(cons"
 "(car bodys_26)"
-"(loop_126(cdr bodys_26) phase_151))))))))))))))"
+"(loop_126(cdr bodys_26) phase_150))))))))))))))"
 " loop_126)"
 " expression-expanded-bodys_1"
-" phase_150)))))))))))))"
+" phase_149)))))))))))))"
 "(define-values"
 "(declare-module-for-expansion139.1)"
 "(lambda(ctx125_0"
@@ -75910,8 +75914,8 @@ static const char *startup_source =
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_408) enclosing-self_3))"
-"(if or-part_408 or-part_408 self_39)))))"
+"(let-values(((or-part_409) enclosing-self_3))"
+"(if or-part_409 or-part_409 self_39)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((parsed-mod623_0) parsed-mod_0)"
 "((temp624_0)"
@@ -75991,7 +75995,7 @@ 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_152) phase143_0))"
+"(let-values(((phase_151) phase143_0))"
 "(let-values(((self_40) self144_0))"
 "(let-values(((requires+provides_12) requires-and-provides145_0))"
 "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))"
@@ -76003,7 +76007,7 @@ static const char *startup_source =
 "(let-values(((submod-ctx_1) ctx152_0))"
 "(let-values()"
 "((letrec-values(((loop_127)"
-"(lambda(bodys_27 phase_153)"
+"(lambda(bodys_27 phase_152)"
 "(begin"
 " 'loop"
 "(if(null? bodys_27)"
@@ -76083,7 +76087,7 @@ static const char *startup_source =
 "(loop_127"
 "(semi-parsed-begin-for-syntax-body"
 " body_23)"
-"(add1 phase_153))))"
+"(add1 phase_152))))"
 "(let-values(((parsed-bfs_0)"
 "(parsed-begin-for-syntax21.1"
 " rebuild-body-s_0"
@@ -76105,20 +76109,20 @@ static const char *startup_source =
 " rebuild-body-s639_0"
 " temp640_0))"
 " parsed-bfs_0))"
-"(loop_127 rest-bodys_3 phase_153))))))))"
-"(if(let-values(((or-part_409)(parsed? body_23)))"
-"(if or-part_409"
-" or-part_409"
+"(loop_127 rest-bodys_3 phase_152))))))))"
+"(if(let-values(((or-part_410)(parsed? body_23)))"
+"(if or-part_410"
+" or-part_410"
 "(expanded+parsed? body_23)))"
 "(let-values()"
-"(cons body_23(loop_127 rest-bodys_3 phase_153)))"
+"(cons body_23(loop_127 rest-bodys_3 phase_152)))"
 "(let-values()"
 "(let-values(((disarmed-body_2)"
 "(syntax-disarm$1 body_23)))"
 "(let-values(((tmp_69)"
 "(core-form-sym"
 " disarmed-body_2"
-" phase_153)))"
+" phase_152)))"
 "(if(equal? tmp_69 'module*)"
 "(let-values()"
 "(let-values((()"
@@ -76277,7 +76281,7 @@ static const char *startup_source =
 "(let-values(((neg-phase_0)"
 "(phase-"
 " 0"
-" phase_153)))"
+" phase_152)))"
 "(let-values(((shifted-s_0)"
 "(syntax-shift-phase-level$1"
 " ready-body_2"
@@ -76335,7 +76339,7 @@ static const char *startup_source =
 "(syntax-shift-phase-level$1"
 "(expanded+parsed-s"
 " submod_4)"
-" phase_153)))"
+" phase_152)))"
 "(expanded+parsed1.1"
 " s662_0"
 "(expanded+parsed-parsed"
@@ -76347,7 +76351,7 @@ static const char *startup_source =
 "(let-values()"
 "(syntax-shift-phase-level$1"
 " submod_4"
-" phase_153))))))))"
+" phase_152))))))))"
 "(let-values()"
 "(let-values(((ready-body663_0)"
 " ready-body_2)"
@@ -76382,16 +76386,16 @@ static const char *startup_source =
 " submod_3"
 "(loop_127"
 " rest-bodys_3"
-" phase_153)))))))"
+" phase_152)))))))"
 "(let-values()"
 "(cons"
 " body_23"
 "(loop_127"
 " rest-bodys_3"
-" phase_153)))))))))))))))))"
+" phase_152)))))))))))))))))"
 " loop_127)"
 " fully-expanded-bodys-except-post-submodules_2"
-" phase_152)))))))))))))))))"
+" phase_151)))))))))))))))))"
 "(define-values"
 "(stop-at-module*?)"
 "(lambda(ctx_118)"
@@ -76406,7 +76410,7 @@ static const char *startup_source =
 "(begin"
 " 'check-ids-unbound173"
 "(let-values(((ids_49) ids170_0))"
-"(let-values(((phase_154) phase171_0))"
+"(let-values(((phase_153) phase171_0))"
 "(let-values(((requires+provides_13) requires+provides172_0))"
 "(let-values(((s_894) in168_0))"
 "(let-values()"
@@ -76416,7 +76420,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_444)))"
-"((letrec-values(((for-loop_340)"
+"((letrec-values(((for-loop_341)"
 "(lambda(lst_445)"
 "(begin"
 " 'for-loop"
@@ -76433,7 +76437,7 @@ static const char *startup_source =
 " requires+provides_13)"
 "((id672_0) id_126)"
 "((phase673_0)"
-" phase_154)"
+" phase_153)"
 "((s674_0) s_894)"
 "((temp675_0) 'module))"
 "(check-not-defined95.1"
@@ -76449,20 +76453,20 @@ static const char *startup_source =
 " phase673_0)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_340 rest_263)(values))))"
+"(if(not #f)(for-loop_341 rest_263)(values))))"
 "(values))))))"
-" for-loop_340)"
+" for-loop_341)"
 " lst_444)))"
 "(void))))))))))"
 "(define-values"
 "(eval-nested-bodys)"
-"(lambda(bodys_28 phase_155 m-ns_23 self_41 ctx_119)"
+"(lambda(bodys_28 phase_154 m-ns_23 self_41 ctx_119)"
 "(begin"
 "(begin"
 "(let-values(((lst_446) bodys_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))"
-"((letrec-values(((for-loop_341)"
+"((letrec-values(((for-loop_342)"
 "(lambda(lst_447)"
 "(begin"
 " 'for-loop"
@@ -76490,7 +76494,7 @@ static const char *startup_source =
 " ids_50"
 "(parsed-define-values-rhs"
 " p_87)"
-" phase_155"
+" phase_154"
 " m-ns_23"
 " ctx_119)))"
 "(begin"
@@ -76515,7 +76519,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list lst_450)))"
-"((letrec-values(((for-loop_342)"
+"((letrec-values(((for-loop_343)"
 "(lambda(lst_451"
 " lst_452"
 " lst_453)"
@@ -76555,37 +76559,37 @@ static const char *startup_source =
 "(let-values()"
 "(namespace-set-variable!"
 " m-ns_23"
-" phase_155"
+" phase_154"
 " sym_110"
 " val_88))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_342"
+"(for-loop_343"
 " rest_265"
 " rest_266"
 " rest_267)"
 "(values))))"
 "(values))))))"
-" for-loop_342)"
+" for-loop_343)"
 " lst_448"
 " lst_449"
 " lst_450)))"
 "(void)))))"
-"(if(let-values(((or-part_410)"
-"(parsed-define-syntaxes?"
-" p_87)))"
-"(if or-part_410"
-" or-part_410"
-"(semi-parsed-begin-for-syntax?"
-" p_87)))"
-"(let-values()(void))"
 "(if(let-values(((or-part_411)"
-"(parsed-#%declare?"
+"(parsed-define-syntaxes?"
 " p_87)))"
 "(if or-part_411"
 " or-part_411"
+"(semi-parsed-begin-for-syntax?"
+" p_87)))"
+"(let-values()(void))"
+"(if(let-values(((or-part_412)"
+"(parsed-#%declare?"
+" p_87)))"
+"(if or-part_412"
+" or-part_412"
 "(syntax?$1 p_87)))"
 "(let-values()(void))"
 "(let-values()"
@@ -76606,7 +76610,7 @@ static const char *startup_source =
 "(let-values(((m-ns676_0)"
 " m-ns_23)"
 "((phase677_0)"
-" phase_155))"
+" phase_154))"
 "(make-compile-context14.1"
 " #f"
 " unsafe-undefined"
@@ -76617,9 +76621,9 @@ static const char *startup_source =
 " m-ns_23)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_341 rest_264)(values))))"
+"(if(not #f)(for-loop_342 rest_264)(values))))"
 "(values))))))"
-" for-loop_341)"
+" for-loop_342)"
 " lst_446)))"
 "(void)))))"
 "(define-values"
@@ -77027,7 +77031,7 @@ static const char *startup_source =
 "(begin"
 " 'expand-non-module*-submodules212"
 "(let-values(((bodys_29) bodys208_0))"
-"(let-values(((phase_156) phase209_0))"
+"(let-values(((phase_155) phase209_0))"
 "(let-values(((self_43) self210_0))"
 "(let-values(((ctx_121) ctx211_0))"
 "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))"
@@ -77041,7 +77045,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_454)))"
-"((letrec-values(((for-loop_343)"
+"((letrec-values(((for-loop_344)"
 "(lambda(fold-var_384 lst_455)"
 "(begin"
 " 'for-loop"
@@ -77058,7 +77062,7 @@ static const char *startup_source =
 "(core-form-sym"
 "(syntax-disarm$1"
 " body_25)"
-" phase_156)))"
+" phase_155)))"
 "(if(equal? tmp_70 'module)"
 "(let-values()"
 "(let-values(((body714_0)"
@@ -77094,10 +77098,10 @@ static const char *startup_source =
 " fold-var_386))))"
 "(values fold-var_387)))))"
 "(if(not #f)"
-"(for-loop_343 fold-var_385 rest_268)"
+"(for-loop_344 fold-var_385 rest_268)"
 " fold-var_385)))"
 " fold-var_384)))))"
-" for-loop_343)"
+" for-loop_344)"
 " null"
 " lst_454))))))))))))))))"
 "(define-values"
@@ -77110,7 +77114,7 @@ static const char *startup_source =
 "(let-values(((requires+provides_14) requires+provides219_0))"
 "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))"
 "(let-values()"
-"(lambda(s_901 phase_157)"
+"(lambda(s_901 phase_156)"
 "(let-values(((ok?_92 #%require722_0 req723_0)"
 "(let-values(((s_902)(syntax-disarm$1 s_901)))"
 "(let-values(((orig-s_95) s_902))"
@@ -77158,8 +77162,8 @@ static const char *startup_source =
 "((s728_0) s_901)"
 "((self729_0) self_44)"
 "((m-ns730_0) m-ns_24)"
-"((phase731_0) phase_157)"
-"((phase732_0) phase_157)"
+"((phase731_0) phase_156)"
+"((phase732_0) phase_156)"
 "((requires+provides733_0) requires+provides_14)"
 "((declared-submodule-names734_0) declared-submodule-names_10)"
 "((temp735_0) 'require))"
@@ -77195,7 +77199,7 @@ static const char *startup_source =
 "(let-values(((lst_456) lifted-defns_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))"
-"((letrec-values(((for-loop_344)"
+"((letrec-values(((for-loop_345)"
 "(lambda(fold-var_388 lst_457)"
 "(begin"
 " 'for-loop"
@@ -77211,9 +77215,9 @@ static const char *startup_source =
 "(defn-extract-syntax lifted-defn_0))"
 " fold-var_390))))"
 "(values fold-var_391)))))"
-"(if(not #f)(for-loop_344 fold-var_389 rest_269) fold-var_389)))"
+"(if(not #f)(for-loop_345 fold-var_389 rest_269) fold-var_389)))"
 " fold-var_388)))))"
-" for-loop_344)"
+" for-loop_345)"
 " null"
 " lst_456)))))))"
 "(define-values"
@@ -77236,7 +77240,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_458)))"
-"((letrec-values(((for-loop_345)"
+"((letrec-values(((for-loop_346)"
 "(lambda(lst_459)"
 "(begin"
 " 'for-loop"
@@ -77348,9 +77352,9 @@ static const char *startup_source =
 " s-lifted-defn_0))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_345 rest_270)(values))))"
+"(if(not #f)(for-loop_346 rest_270)(values))))"
 "(values))))))"
-" for-loop_345)"
+" for-loop_346)"
 " lst_458)))"
 "(values))))"
 "(let-values()"
@@ -78205,13 +78209,13 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash-keys ht_163)))"
 "((letrec-values(((for-loop_20)"
-"(lambda(table_215 i_3)"
+"(lambda(table_216 i_3)"
 "(begin"
 " 'for-loop"
 "(if i_3"
 "(let-values(((name_83)(hash-iterate-key ht_163 i_3)))"
 "(let-values(((table_207)"
-"(let-values(((table_216) table_215))"
+"(let-values(((table_217) table_216))"
 "(let-values(((table_179)"
 "(let-values()"
 "(let-values(((key_93 val_89)"
@@ -78219,12 +78223,12 @@ static const char *startup_source =
 "(values"
 "(let-values() name_83)"
 " #t))))"
-"(hash-set table_216 key_93 val_89)))))"
+"(hash-set table_217 key_93 val_89)))))"
 "(values table_179)))))"
 "(if(not #f)"
 "(for-loop_20 table_207(hash-iterate-next ht_163 i_3))"
 " table_207)))"
-" table_215)))))"
+" table_216)))))"
 " for-loop_20)"
 " '#hash()"
 "(hash-iterate-first ht_163)))))"
@@ -78234,14 +78238,14 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash-keys ht_122)))"
-"((letrec-values(((for-loop_329)"
-"(lambda(table_217 i_185)"
+"((letrec-values(((for-loop_330)"
+"(lambda(table_218 i_185)"
 "(begin"
 " 'for-loop"
 "(if i_185"
 "(let-values(((name_84)(hash-iterate-key ht_122 i_185)))"
 "(let-values(((table_117)"
-"(let-values(((table_110) table_217))"
+"(let-values(((table_110) table_218))"
 "(let-values(((table_111)"
 "(let-values()"
 "(let-values(((key_94 val_90)"
@@ -78252,10 +78256,10 @@ static const char *startup_source =
 "(hash-set table_110 key_94 val_90)))))"
 "(values table_111)))))"
 "(if(not #f)"
-"(for-loop_329 table_117(hash-iterate-next ht_122 i_185))"
+"(for-loop_330 table_117(hash-iterate-next ht_122 i_185))"
 " table_117)))"
-" table_217)))))"
-" for-loop_329)"
+" table_218)))))"
+" for-loop_330)"
 " '#hash()"
 "(hash-iterate-first ht_122))))))"
 "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))"
@@ -78287,12 +78291,12 @@ static const char *startup_source =
 " '#%foreign)))"
 "(if or-part_166"
 " or-part_166"
-"(let-values(((or-part_285)"
+"(let-values(((or-part_286)"
 "(eq?"
 " name_85"
 " '#%futures)))"
-"(if or-part_285"
-" or-part_285"
+"(if or-part_286"
+" or-part_286"
 "(eq?"
 " name_85"
 " '#%unsafe)))))))"