diff --git a/pkgs/racket-test-core/tests/racket/macro.rktl b/pkgs/racket-test-core/tests/racket/macro.rktl
index bf85817e7e..4978d04d72 100644
--- a/pkgs/racket-test-core/tests/racket/macro.rktl
+++ b/pkgs/racket-test-core/tests/racket/macro.rktl
@@ -2173,6 +2173,38 @@
 
 (test 1 dynamic-require ''local-expand-result-depends-on-use-site-scope 'result)
 
+;; ----------------------------------------
+;; Make sure `local-expand` doesn't get confused about the
+;; post-expansion scope needed to make a binding phase-specific
+
+(module test-for-scope-specific-binding racket/base
+
+  (module l racket/base
+    (require (for-syntax racket/base racket/syntax)
+             syntax/parse/define)
+
+    (provide #%module-begin m
+             (all-from-out racket/base))
+
+    (define-syntax-parser #%module-begin
+      [(_ form ...)
+       (let ([intdef-ctx (syntax-local-make-definition-context #f #f)])
+         (local-expand #'(#%plain-module-begin form ...)
+                       'module-begin
+                       '()
+                       intdef-ctx))])
+
+    (define-syntax-parser m
+      [(_)
+       #:with x (generate-temporary)
+       #'(begin
+           (define x #f)
+           ;; The #' here triggers a `syntax-local-value` call:
+           (begin-for-syntax #'x))]))
+
+  (module c (submod ".." l)
+    (#%module-begin
+     (m))))
 
 ;; ----------------------------------------
 
diff --git a/racket/src/expander/expand/definition-context.rkt b/racket/src/expander/expand/definition-context.rkt
index ceec8d1cce..56c69858d6 100644
--- a/racket/src/expander/expand/definition-context.rkt
+++ b/racket/src/expander/expand/definition-context.rkt
@@ -232,6 +232,9 @@
   (define def-ctx-scopes (if (expand-context-def-ctx-scopes ctx)
                              (unbox (expand-context-def-ctx-scopes ctx))
                              null))
+  (define placeholder-sc (and intdefs
+                              (not (null? intdefs))
+                              (new-scope 'macro)))
   (struct*-copy expand-context ctx
                 [context context]
                 [env (add-intdef-bindings (expand-context-env ctx)
@@ -256,11 +259,12 @@
                              [else (or frame-id i-frame-id)]))]
                 [post-expansion-scope
                  #:parent root-expand-context
-                 (if (and intdefs (not (null? intdefs)))
-                     (new-scope 'macro) ; placeholder; action uses `indefs`
-                     (and same-kind?
+                 (or (and same-kind?
                           (memq context '(module module-begin top-level))
-                          (root-expand-context-post-expansion-scope ctx)))]
+                          (root-expand-context-post-expansion-scope ctx))
+                     ;; Placeholder to make sure `post-expansion-scope-action`
+                     ;; is used
+                     placeholder-sc)]
                 [post-expansion-shifts
                  #:parent root-expand-context
                  (if (and same-kind?
@@ -268,10 +272,14 @@
                      (root-expand-context-post-expansion-shifts ctx)
                      null)]
                 [post-expansion-scope-action
-                 (if (and intdefs (not (null? intdefs)))
-                     (lambda (s placeholder-sc)
-                       (add-intdef-scopes s intdefs))
-                     (expand-context-post-expansion-scope-action ctx))]
+                 (let ([act (expand-context-post-expansion-scope-action ctx)])
+                   (if (and intdefs (not (null? intdefs)))
+                       (lambda (s sc)
+                         (define s2 (if (eq? sc placeholder-sc)
+                                        s
+                                        (act s sc)))
+                         (add-intdef-scopes s2 intdefs))
+                       act))]
                 [scopes
                  (append def-ctx-scopes
                          (expand-context-scopes ctx))]
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index ca6b8552d0..5e8dc652c6 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -41583,9 +41583,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_282)(eq? context_9(expand-context-context ctx_45))))"
-"(if or-part_282"
-" or-part_282"
+"(let-values(((or-part_182)(eq? context_9(expand-context-context ctx_45))))"
+"(if or-part_182"
+" or-part_182"
 "(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_111) #f)))"
@@ -41593,20 +41593,23 @@ static const char *startup_source =
 "(if(expand-context-def-ctx-scopes ctx_45)"
 "(unbox(expand-context-def-ctx-scopes ctx_45))"
 " null)))"
+"(let-values(((placeholder-sc_0)"
+"(if intdefs_2(if(not(null? intdefs_2))(new-scope 'macro) #f) #f)))"
 "(let-values(((v_197) ctx_45))"
 "(let-values(((the-struct_67) v_197))"
 "(if(expand-context/outer? the-struct_67)"
 "(let-values(((context69_0) context_9)"
-"((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))"
+"((env70_0)"
+"(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))"
 "((use-site-scopes71_0)"
-"(if(let-values(((or-part_283)(eq? context_9 'module)))"
-"(if or-part_283"
-" or-part_283"
-"(let-values(((or-part_284)(eq? context_9 'module-begin)))"
-"(if or-part_284 or-part_284(list? context_9)))))"
-"(let-values(((or-part_285)"
+"(if(let-values(((or-part_282)(eq? context_9 'module)))"
+"(if or-part_282"
+" or-part_282"
+"(let-values(((or-part_283)(eq? context_9 'module-begin)))"
+"(if or-part_283 or-part_283(list? context_9)))))"
+"(let-values(((or-part_133)"
 "(root-expand-context-use-site-scopes ctx_45)))"
-"(if or-part_285 or-part_285(box null)))"
+"(if or-part_133 or-part_133(box null)))"
 " #f))"
 "((frame-id72_0)"
 "(let-values(((x_80)"
@@ -41618,7 +41621,7 @@ static const char *startup_source =
 "(let-values()(list a_52)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_40)"
+"((letrec-values(((for-loop_260)"
 "(lambda(frame-id_9 a_53)"
 "(begin"
 " 'for-loop"
@@ -41643,45 +41646,56 @@ static const char *startup_source =
 "(let-values()"
 " 'all)"
 "(let-values()"
-"(let-values(((or-part_286)"
+"(let-values(((or-part_284)"
 " frame-id_11))"
-"(if or-part_286"
-" or-part_286"
+"(if or-part_284"
+" or-part_284"
 " i-frame-id_0))))))))"
 "(values"
 " frame-id_12)))))"
 "(if(not #f)"
-"(for-loop_40 frame-id_10(cdr a_53))"
+"(for-loop_260"
+" frame-id_10"
+"(cdr a_53))"
 " frame-id_10)))"
 " frame-id_9)))))"
-" for-loop_40)"
+" for-loop_260)"
 "(root-expand-context-frame-id ctx_45)"
 " x_80))))"
 "((post-expansion-scope73_0)"
-"(if(if intdefs_2(not(null? intdefs_2)) #f)"
-"(new-scope 'macro)"
+"(let-values(((or-part_285)"
 "(if same-kind?_0"
-"(if(memq context_9 '(module module-begin top-level))"
+"(if(memq"
+" context_9"
+" '(module module-begin top-level))"
 "(root-expand-context-post-expansion-scope ctx_45)"
 " #f)"
 " #f)))"
+"(if or-part_285 or-part_285 placeholder-sc_0)))"
 "((post-expansion-shifts74_0)"
 "(if(if same-kind?_0(eq? context_9 'top-level) #f)"
 "(root-expand-context-post-expansion-shifts ctx_45)"
 " null))"
 "((post-expansion-scope-action75_0)"
+"(let-values(((act_0)"
+"(expand-context-post-expansion-scope-action ctx_45)))"
 "(if(if intdefs_2(not(null? intdefs_2)) #f)"
-"(lambda(s_116 placeholder-sc_0)"
+"(lambda(s_119 sc_34)"
 "(begin"
 " 'post-expansion-scope-action75"
-"(let-values(((s81_0) s_116)((intdefs82_0) intdefs_2))"
+"(let-values(((s2_8)"
+"(if(eq? sc_34 placeholder-sc_0)"
+" s_119"
+"(act_0 s_119 sc_34))))"
+"(let-values(((s281_1) s2_8)((intdefs82_0) intdefs_2))"
 "(add-intdef-scopes24.1"
 " unsafe-undefined"
 " #f"
-" s81_0"
-" intdefs82_0))))"
-"(expand-context-post-expansion-scope-action ctx_45)))"
-"((scopes76_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))"
+" s281_1"
+" intdefs82_0)))))"
+" act_0)))"
+"((scopes76_0)"
+"(append def-ctx-scopes_5(expand-context-scopes ctx_45)))"
 "((only-immediate?77_0)(not stop-ids_1))"
 "((current-introduction-scopes78_0) null)"
 "((need-eventually-defined79_0)"
@@ -41691,9 +41705,9 @@ static const char *startup_source =
 "(let-values() ht_134)"
 "(if ht_134(let-values()(make-hasheqv))(let-values() #f)))))"
 "((inner80_0)"
-"(let-values(((the-struct_45)"
+"(let-values(((the-struct_2)"
 "(root-expand-context/outer-inner v_197)))"
-"(if(expand-context/inner? the-struct_45)"
+"(if(expand-context/inner? the-struct_2)"
 "(let-values(((to-parsed?83_0)"
 "(if to-parsed-ok?_0"
 "(expand-context-to-parsed? ctx_45)"
@@ -41704,40 +41718,40 @@ static const char *startup_source =
 "((stops87_0)"
 "(free-id-set"
 " phase_111"
-"(let-values(((or-part_287) all-stop-ids_0))"
-"(if or-part_287 or-part_287 null)))))"
+"(let-values(((or-part_286) all-stop-ids_0))"
+"(if or-part_286 or-part_286 null)))))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi the-struct_45)"
-"(root-expand-context/inner-module-scopes the-struct_45)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_45)"
-"(root-expand-context/inner-all-scopes-stx the-struct_45)"
-"(root-expand-context/inner-defined-syms the-struct_45)"
-"(root-expand-context/inner-counter the-struct_45)"
-"(root-expand-context/inner-lift-key the-struct_45)"
+"(root-expand-context/inner-self-mpi the-struct_2)"
+"(root-expand-context/inner-module-scopes the-struct_2)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_2)"
+"(root-expand-context/inner-all-scopes-stx the-struct_2)"
+"(root-expand-context/inner-defined-syms the-struct_2)"
+"(root-expand-context/inner-counter the-struct_2)"
+"(root-expand-context/inner-lift-key the-struct_2)"
 " to-parsed?83_0"
-"(expand-context/inner-phase the-struct_45)"
-"(expand-context/inner-namespace the-struct_45)"
+"(expand-context/inner-phase the-struct_2)"
+"(expand-context/inner-namespace the-struct_2)"
 " just-once?84_0"
-"(expand-context/inner-module-begin-k the-struct_45)"
-"(expand-context/inner-allow-unbound? the-struct_45)"
+"(expand-context/inner-module-begin-k the-struct_2)"
+"(expand-context/inner-allow-unbound? the-struct_2)"
 " in-local-expand?85_0"
 " keep-#%expression?86_0"
 " stops87_0"
-"(expand-context/inner-declared-submodule-names the-struct_45)"
-"(expand-context/inner-lifts the-struct_45)"
-"(expand-context/inner-lift-envs the-struct_45)"
-"(expand-context/inner-module-lifts the-struct_45)"
-"(expand-context/inner-require-lifts the-struct_45)"
-"(expand-context/inner-to-module-lifts the-struct_45)"
-"(expand-context/inner-requires+provides the-struct_45)"
-"(expand-context/inner-observer the-struct_45)"
-"(expand-context/inner-for-serializable? the-struct_45)"
+"(expand-context/inner-declared-submodule-names the-struct_2)"
+"(expand-context/inner-lifts the-struct_2)"
+"(expand-context/inner-lift-envs the-struct_2)"
+"(expand-context/inner-module-lifts the-struct_2)"
+"(expand-context/inner-require-lifts the-struct_2)"
+"(expand-context/inner-to-module-lifts the-struct_2)"
+"(expand-context/inner-requires+provides the-struct_2)"
+"(expand-context/inner-observer the-struct_2)"
+"(expand-context/inner-for-serializable? the-struct_2)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_45)))"
+" the-struct_2)))"
 "(raise-argument-error"
 " 'struct-copy"
-"                                                       \"expand-context/inner?\""
-" the-struct_45)))))"
+"                                                         \"expand-context/inner?\""
+" the-struct_2)))))"
 "(expand-context/outer1.1"
 " inner80_0"
 " post-expansion-scope73_0"
@@ -41758,15 +41772,15 @@ static const char *startup_source =
 "(expand-context/outer-name the-struct_67)))"
 "(raise-argument-error"
 " 'struct-copy"
-"                                     \"expand-context/outer?\""
-" the-struct_67)))))))))))))))))))"
+"                                       \"expand-context/outer?\""
+" the-struct_67))))))))))))))))))))"
 "(define-values"
 "(flip-introduction-scopes)"
-"(lambda(s_129 ctx_46)(begin(flip-scopes s_129(expand-context-current-introduction-scopes ctx_46)))))"
+"(lambda(s_429 ctx_46)(begin(flip-scopes s_429(expand-context-current-introduction-scopes ctx_46)))))"
 "(define-values"
 "(flip-introduction-and-use-scopes)"
-"(lambda(s_429 ctx_47)"
-"(begin(flip-scopes(flip-introduction-scopes s_429 ctx_47)(expand-context-current-use-scopes ctx_47)))))"
+"(lambda(s_130 ctx_47)"
+"(begin(flip-scopes(flip-introduction-scopes s_130 ctx_47)(expand-context-current-use-scopes ctx_47)))))"
 "(define-values"
 "(1/syntax-transforming?)"
 "(lambda()"
@@ -41880,7 +41894,7 @@ static const char *startup_source =
 "(do-make-syntax-introducer(make-interned-scope sym-key_0))))))))"
 "(define-values"
 "(do-make-syntax-introducer)"
-"(lambda(sc_34)"
+"(lambda(sc_35)"
 "(begin"
 "(let-values(((core70_0)"
 "(lambda(s69_0 mode68_0)"
@@ -41895,11 +41909,11 @@ static const char *startup_source =
 "                                  (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_431)))"
 "(let-values(((tmp_33) mode_14))"
 "(if(equal? tmp_33 'add)"
-"(let-values()(add-scope s_431 sc_34))"
+"(let-values()(add-scope s_431 sc_35))"
 "(if(equal? tmp_33 'remove)"
-"(let-values()(remove-scope s_431 sc_34))"
+"(let-values()(remove-scope s_431 sc_35))"
 "(if(equal? tmp_33 'flip)"
-"(let-values()(flip-scope s_431 sc_34))"
+"(let-values()(flip-scope s_431 sc_35))"
 "(let-values()"
 "(raise-argument-error"
 " 'syntax-introducer"
@@ -41932,8 +41946,8 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(if((lambda(x_19)"
-"(let-values(((or-part_288)(not x_19)))"
-"(if or-part_288 or-part_288(syntax?$1 x_19))))"
+"(let-values(((or-part_287)(not x_19)))"
+"(if or-part_287 or-part_287(syntax?$1 x_19))))"
 " base-s_0)"
 "(void)"
 "(let-values()"
@@ -41961,7 +41975,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_289)"
+"(let-values(((or-part_288)"
 "(if(identifier? base-s_0)"
 "(let-values(((base-s73_0) base-s_0)"
 "((phase74_1) phase_5)"
@@ -41974,7 +41988,7 @@ static const char *startup_source =
 " base-s73_0"
 " phase74_1))"
 " #f)))"
-"(if or-part_289 or-part_289(seteq))))))"
+"(if or-part_288 or-part_288(seteq))))))"
 "(let-values(((delta-scs_0)"
 "(set->list(set-subtract ext-scs_0 use-base-scs_0))))"
 "(let-values(((maybe-taint_0)"
@@ -42515,7 +42529,7 @@ static const char *startup_source =
 " 'syntax-local-lift-require"
 "(let-values()"
 "(let-values()"
-"(let-values(((sc_35)(new-scope 'lifted-require)))"
+"(let-values(((sc_36)(new-scope 'lifted-require)))"
 "(let-values(((ctx_59 added-s_1)"
 "(let-values(((who110_0) 'syntax-local-lift-require)"
 "((temp111_0)(datum->syntax$1 #f s_218))"
@@ -42535,7 +42549,7 @@ static const char *startup_source =
 "(require-spec-shift-for-syntax s_110)))"
 "((temp119_0)"
 "(lambda(s_436 phase_116 require-lift-ctx_1)"
-"(wrap-form '#%require(add-scope s_436 sc_35) phase_116))))"
+"(wrap-form '#%require(add-scope s_436 sc_36) phase_116))))"
 "(do-local-lift-to-module48.1"
 " add-lifted-require!117_0"
 " expand-context-require-lifts115_0"
@@ -42554,7 +42568,7 @@ static const char *startup_source =
 "(expand-context-namespace ctx_59)"
 "(expand-context-phase ctx_59))"
 "(values))))"
-"(let-values(((result-s_6)(add-scope use-s_1 sc_35)))"
+"(let-values(((result-s_6)(add-scope use-s_1 sc_36)))"
 "(begin"
 "(let-values(((obs_41)(expand-context-observer ctx_59)))"
 "(if obs_41"
@@ -42672,8 +42686,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_290)(not mod-path_8)))"
-"(if or-part_290 or-part_290(1/module-path? mod-path_8)))"
+"(if(let-values(((or-part_289)(not mod-path_8)))"
+"(if or-part_289 or-part_289(1/module-path? mod-path_8)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -42683,8 +42697,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_291)(eq? phase-level_21 #t)))"
-"(if or-part_291 or-part_291(phase? phase-level_21)))"
+"(if(let-values(((or-part_290)(eq? phase-level_21 #t)))"
+"(if or-part_290 or-part_290(phase? phase-level_21)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -42718,7 +42732,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_135)))"
-"((letrec-values(((for-loop_260)"
+"((letrec-values(((for-loop_261)"
 "(lambda(fold-var_257 i_161)"
 "(begin"
 " 'for-loop"
@@ -42735,12 +42749,12 @@ static const char *startup_source =
 " fold-var_258))))"
 "(values fold-var_259)))))"
 "(if(not #f)"
-"(for-loop_260"
+"(for-loop_261"
 " fold-var_207"
 "(hash-iterate-next ht_135 i_161))"
 " fold-var_207)))"
 " fold-var_257)))))"
-" for-loop_260)"
+" for-loop_261)"
 " null"
 "(hash-iterate-first ht_135)))))"
 " #f)))))))))))))"
@@ -42781,9 +42795,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_292)(1/module-path? mod-path_9)))"
-"(if or-part_292"
-" or-part_292"
+"(if(let-values(((or-part_291)(1/module-path? mod-path_9)))"
+"(if or-part_291"
+" or-part_291"
 "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))"
 "(void)"
 "(let-values()"
@@ -42817,7 +42831,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_140)))"
-"((letrec-values(((for-loop_261)"
+"((letrec-values(((for-loop_262)"
 "(lambda(fold-var_260 i_162)"
 "(begin"
 " 'for-loop"
@@ -42842,7 +42856,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-in-hash-keys"
 " ht_141)))"
-"((letrec-values(((for-loop_262)"
+"((letrec-values(((for-loop_263)"
 "(lambda(fold-var_264"
 " i_12)"
 "(begin"
@@ -42865,24 +42879,24 @@ static const char *startup_source =
 " fold-var_267)))))"
 "(if(not"
 " #f)"
-"(for-loop_262"
+"(for-loop_263"
 " fold-var_265"
 "(hash-iterate-next"
 " ht_141"
 " i_12))"
 " fold-var_265)))"
 " fold-var_264)))))"
-" for-loop_262)"
+" for-loop_263)"
 " null"
 "(hash-iterate-first"
 " ht_141)))))))"
 " fold-var_262))))"
 "(values fold-var_263)))))"
 "(if(not #f)"
-"(for-loop_261 fold-var_261(hash-iterate-next ht_140 i_162))"
+"(for-loop_262 fold-var_261(hash-iterate-next ht_140 i_162))"
 " fold-var_261)))"
 " fold-var_260)))))"
-" for-loop_261)"
+" for-loop_262)"
 " null"
 "(hash-iterate-first ht_140))))))))))))))))"
 "(define-values"
@@ -42902,7 +42916,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_142)))"
-"((letrec-values(((for-loop_263)"
+"((letrec-values(((for-loop_264)"
 "(lambda(fold-var_268 i_163)"
 "(begin"
 " 'for-loop"
@@ -42920,10 +42934,10 @@ static const char *startup_source =
 "(values fold-var_272)))"
 " fold-var_270))))"
 "(if(not #f)"
-"(for-loop_263 fold-var_269(hash-iterate-next ht_142 i_163))"
+"(for-loop_264 fold-var_269(hash-iterate-next ht_142 i_163))"
 " fold-var_269)))"
 " fold-var_268)))))"
-" for-loop_263)"
+" for-loop_264)"
 " null"
 "(hash-iterate-first ht_142))))))))))))"
 "(define-values"
@@ -42980,8 +42994,8 @@ static const char *startup_source =
 "(srcloc-vector?)"
 "(lambda(v_73)"
 "(begin"
-"(if(let-values(((or-part_293)(not(vector-ref v_73 1))))"
-"(if or-part_293 or-part_293(exact-positive-integer?(vector-ref v_73 1))))"
+"(if(let-values(((or-part_292)(not(vector-ref v_73 1))))"
+"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_73 1))))"
 "(if(let-values(((or-part_27)(not(vector-ref v_73 2))))"
 "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_73 2))))"
 "(if(let-values(((or-part_10)(not(vector-ref v_73 3))))"
@@ -43074,9 +43088,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_294)(not stx-l_2)))"
-"(if or-part_294"
-" or-part_294"
+"(if(let-values(((or-part_293)(not stx-l_2)))"
+"(if or-part_293"
+" or-part_293"
 "(let-values(((or-part_28)(syntax?$1 stx-l_2)))"
 "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))"
 "(void)"
@@ -43096,8 +43110,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_295)(not stx-p_1)))"
-"(if or-part_295 or-part_295(syntax?$1 stx-p_1)))"
+"(if(let-values(((or-part_294)(not stx-p_1)))"
+"(if or-part_294 or-part_294(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_439(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))"
@@ -43641,10 +43655,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((m-ns_13"
 " already?_0)"
-"(if(let-values(((or-part_296)"
+"(if(let-values(((or-part_295)"
 " attach-this-instance?_0))"
-"(if or-part_296"
-" or-part_296"
+"(if or-part_295"
+" or-part_295"
 "(module-cross-phase-persistent?"
 " m_20)))"
 "(let-values()"
@@ -43786,7 +43800,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_299)))"
-"((letrec-values(((for-loop_264)"
+"((letrec-values(((for-loop_265)"
 "(lambda(lst_300)"
 "(begin"
 " 'for-loop"
@@ -43851,11 +43865,11 @@ static const char *startup_source =
 " lst_225)))))"
 "(if(not"
 " #f)"
-"(for-loop_264"
+"(for-loop_265"
 " rest_171)"
 "(values))))"
 "(values))))))"
-" for-loop_264)"
+" for-loop_265)"
 " lst_299)))"
 "(void)"
 "(let-values(((lst_276)"
@@ -43937,7 +43951,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_144)))"
-"((letrec-values(((for-loop_265)"
+"((letrec-values(((for-loop_266)"
 "(lambda(i_164)"
 "(begin"
 " 'for-loop"
@@ -44044,11 +44058,11 @@ static const char *startup_source =
 "(hash-iterate-first"
 " ht_145))))))"
 "(if(not #f)"
-"(for-loop_265"
+"(for-loop_266"
 "(hash-iterate-next ht_144 i_164))"
 "(values))))"
 "(values))))))"
-" for-loop_265)"
+" for-loop_266)"
 "(hash-iterate-first ht_144))))"
 "(values))))"
 "(let-values()"
@@ -44066,7 +44080,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash-keys ht_146)))"
-"((letrec-values(((for-loop_266)"
+"((letrec-values(((for-loop_267)"
 "(lambda(i_21)"
 "(begin"
 " 'for-loop"
@@ -44085,11 +44099,11 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_266"
+"(for-loop_267"
 "(hash-iterate-next ht_146 i_21))"
 "(values))))"
 "(values))))))"
-" for-loop_266)"
+" for-loop_267)"
 "(hash-iterate-first ht_146))))"
 "(void))))))))))))))))))))))))"
 "(define-values"
@@ -44107,10 +44121,10 @@ static const char *startup_source =
 "(define-values"
 "(1/namespace-syntax-introduce)"
 "(let-values(((namespace-syntax-introduce3_0)"
-"(lambda(s2_8 ns1_3)"
+"(lambda(s2_9 ns1_3)"
 "(begin"
 " 'namespace-syntax-introduce3"
-"(let-values(((s_2) s2_8))"
+"(let-values(((s_2) s2_9))"
 "(let-values(((ns_58)(if(eq? ns1_3 unsafe-undefined)(1/current-namespace) ns1_3)))"
 "(let-values()"
 "(let-values()"
@@ -44149,7 +44163,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_165"
-"(let-values(((sc_36)"
+"(let-values(((sc_37)"
 "(unsafe-immutable-hash-iterate-key"
 " ht_147"
 " i_165)))"
@@ -44157,7 +44171,7 @@ static const char *startup_source =
 "(let-values(((fold-var_221)"
 " fold-var_239))"
 "(if(equal?"
-" sc_36"
+" sc_37"
 " post-scope_1)"
 " fold-var_221"
 "(let-values(((fold-var_222)"
@@ -44166,7 +44180,7 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-" sc_36)"
+" sc_37)"
 " fold-var_222))))"
 "(values"
 " fold-var_223)))))))"
@@ -44583,9 +44597,9 @@ static const char *startup_source =
 " var-sym_6"
 "(lambda()"
 "(escape_0"
-"(let-values(((or-part_297) failure-thunk_5))"
-"(if or-part_297"
-" or-part_297"
+"(let-values(((or-part_296) failure-thunk_5))"
+"(if or-part_296"
+" or-part_296"
 "(raise"
 "(exn:fail:contract:variable"
 "(format"
@@ -44750,15 +44764,15 @@ static const char *startup_source =
 "(if(let-values(((or-part_28)(compiled-in-memory? s_446)))"
 "(if or-part_28"
 " or-part_28"
-"(let-values(((or-part_295)(1/linklet-directory? s_446)))"
-"(if or-part_295 or-part_295(1/linklet-bundle? s_446)))))"
+"(let-values(((or-part_294)(1/linklet-directory? s_446)))"
+"(if or-part_294 or-part_294(1/linklet-bundle? s_446)))))"
 "(let-values()(eval-compiled s_446 ns_87))"
 "(if(if(syntax?$1 s_446)"
-"(let-values(((or-part_298)(compiled-in-memory?(1/syntax-e s_446))))"
-"(if or-part_298"
-" or-part_298"
-"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_446))))"
-"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_446))))))"
+"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_446))))"
+"(if or-part_297"
+" or-part_297"
+"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_446))))"
+"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_446))))))"
 " #f)"
 "(let-values()(eval-compiled(1/syntax->datum s_446) ns_87))"
 "(let-values()"
@@ -45506,9 +45520,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_300)"
+"(if(let-values(((or-part_299)"
 "(pair? require-lifts_5)))"
-"(if or-part_300 or-part_300(pair? lifts_12)))"
+"(if or-part_299 or-part_299(pair? lifts_12)))"
 "(let-values()"
 "(let-values(((new-s_4)"
 "(let-values(((temp143_1)"
@@ -45828,7 +45842,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_208)))"
-"((letrec-values(((for-loop_267)"
+"((letrec-values(((for-loop_268)"
 "(lambda(fold-var_274"
 " lst_302)"
 "(begin"
@@ -45869,12 +45883,12 @@ static const char *startup_source =
 " fold-var_205)))))"
 "(if(not"
 " #f)"
-"(for-loop_267"
+"(for-loop_268"
 " fold-var_257"
 " rest_113)"
 " fold-var_257)))"
 " fold-var_274)))))"
-" for-loop_267)"
+" for-loop_268)"
 " null"
 " lst_208))))))"
 "(if wrap_2"
@@ -46104,7 +46118,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_303)))"
-"((letrec-values(((for-loop_268)"
+"((letrec-values(((for-loop_269)"
 "(lambda(fold-var_276 lst_304)"
 "(begin"
 " 'for-loop"
@@ -46120,9 +46134,9 @@ static const char *startup_source =
 "(parsed-require23.1 req_19))"
 " fold-var_278))))"
 "(values fold-var_279)))))"
-"(if(not #f)(for-loop_268 fold-var_277 rest_173) fold-var_277)))"
+"(if(not #f)(for-loop_269 fold-var_277 rest_173) fold-var_277)))"
 " fold-var_276)))))"
-" for-loop_268)"
+" for-loop_269)"
 " null"
 " lst_303))))"
 "(reverse$1"
@@ -46131,7 +46145,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_305)))"
-"((letrec-values(((for-loop_269)"
+"((letrec-values(((for-loop_270)"
 "(lambda(fold-var_280 lst_306)"
 "(begin"
 " 'for-loop"
@@ -46181,9 +46195,9 @@ static const char *startup_source =
 " dv_0)))))"
 " fold-var_282))))"
 "(values fold-var_283)))))"
-"(if(not #f)(for-loop_269 fold-var_281 rest_174) fold-var_281)))"
+"(if(not #f)(for-loop_270 fold-var_281 rest_174) fold-var_281)))"
 " fold-var_280)))))"
-" for-loop_269)"
+" for-loop_270)"
 " null"
 " lst_305)))))"
 " exp-s_9))))))))))"
@@ -46362,19 +46376,19 @@ static const char *startup_source =
 "(if(list? l_75)"
 "(andmap2"
 "(lambda(p_55)"
-"(let-values(((or-part_298)(not p_55)))"
+"(let-values(((or-part_297)(not p_55)))"
+"(if or-part_297"
+" or-part_297"
+"(let-values(((or-part_298)(complete-path-string? p_55)))"
 "(if or-part_298"
 " or-part_298"
-"(let-values(((or-part_299)(complete-path-string? p_55)))"
-"(if or-part_299"
-" or-part_299"
 "(if(hash? p_55)"
 "(let-values(((ht_148) p_55))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_148)))"
-"((letrec-values(((for-loop_270)"
+"((letrec-values(((for-loop_271)"
 "(lambda(result_115 i_166)"
 "(begin"
 " 'for-loop"
@@ -46406,12 +46420,12 @@ static const char *startup_source =
 "(if(if(not((lambda x_82(not result_116)) k_35 v_3))"
 "(not #f)"
 " #f)"
-"(for-loop_270"
+"(for-loop_271"
 " result_116"
 "(hash-iterate-next ht_148 i_166))"
 " result_116)))"
 " result_115)))))"
-" for-loop_270)"
+" for-loop_271)"
 " #t"
 "(hash-iterate-first ht_148))))"
 " #f))))))"
@@ -46442,7 +46456,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_149)))"
-"((letrec-values(((for-loop_271)"
+"((letrec-values(((for-loop_272)"
 "(lambda(table_205 i_167)"
 "(begin"
 " 'for-loop"
@@ -46463,10 +46477,10 @@ static const char *startup_source =
 " val_76)))))"
 "(values table_207)))))"
 "(if(not #f)"
-"(for-loop_271 table_206(hash-iterate-next ht_149 i_167))"
+"(for-loop_272 table_206(hash-iterate-next ht_149 i_167))"
 " table_206)))"
 " table_205)))))"
-" for-loop_271)"
+" for-loop_272)"
 " '#hash()"
 "(hash-iterate-first ht_149)))))))))"
 " l_8)))))))"
@@ -47037,8 +47051,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_299)(1/string->number start_41)))"
-"(if or-part_299 or-part_299 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_90)(1/string->number end_31)))"
 "(if or-part_90 or-part_90 0))))"
@@ -47159,7 +47173,7 @@ static const char *startup_source =
 "(lambda(d_34)"
 "(begin"
 "      (let-values (((p_63) (if d_34 (build-path d_34 \"config.rktd\") #f)))"
-"(let-values(((or-part_295)"
+"(let-values(((or-part_294)"
 "(if p_63"
 "(if(file-exists? p_63)"
 "(let-values(((p7_1) p_63)"
@@ -47172,7 +47186,7 @@ static const char *startup_source =
 "(with-input-from-file45.1 'binary p7_1 temp8_1))"
 " #f)"
 " #f)))"
-"(if or-part_295 or-part_295 '#hash()))))))"
+"(if or-part_294 or-part_294 '#hash()))))))"
 "(define-values"
 "(get-installation-name)"
 "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))"
@@ -47371,17 +47385,17 @@ static const char *startup_source =
 "(if(list? p_66)"
 "(if(let-values(((or-part_226)(= 2(length p_66))))"
 "(if or-part_226 or-part_226(= 3(length p_66))))"
-"(if(let-values(((or-part_301)(string?(car p_66))))"
+"(if(let-values(((or-part_300)(string?(car p_66))))"
+"(if or-part_300"
+" or-part_300"
+"(let-values(((or-part_301)"
+"(eq? 'root(car p_66))))"
 "(if or-part_301"
 " or-part_301"
-"(let-values(((or-part_302)"
-"(eq? 'root(car p_66))))"
-"(if or-part_302"
-" or-part_302"
 "(eq? 'static-root(car p_66))))))"
 "(if(path-string?(cadr p_66))"
-"(let-values(((or-part_303)(null?(cddr p_66))))"
-"(if or-part_303 or-part_303(regexp?(caddr p_66))))"
+"(let-values(((or-part_302)(null?(cddr p_66))))"
+"(if or-part_302 or-part_302(regexp?(caddr p_66))))"
 " #f)"
 " #f)"
 " #f)"
@@ -47570,13 +47584,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_304)"
+"(if(let-values(((or-part_303)"
 "(file-exists?/maybe-compiled"
 " cpath_0"
 " file-name_1"
 " check-compiled?_1)))"
-"(if or-part_304"
-" or-part_304"
+"(if or-part_303"
+" or-part_303"
 "(let-values(((alt-file-name_0)"
 "(let-values(((file-name_2)"
 "(if(path? file-name_1)"
@@ -47943,9 +47957,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_305) dynamic-require_1))"
-"(if or-part_305"
-" or-part_305"
+"(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))"
@@ -47954,8 +47968,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_145 srcloc_9) v_145)))"
-"(let-values(((or-part_306) coerce-key_1))"
-"(if or-part_306 or-part_306(lambda(for-syntax?_3 v_147) v_147)))"
+"(let-values(((or-part_305) coerce-key_1))"
+"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_147) v_147)))"
 " #f"
 " #f"
 " #f"
@@ -48028,16 +48042,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_285) given-end-pos_0))"
-"(if or-part_285"
-" or-part_285"
+"(let-values(((or-part_283) given-end-pos_0))"
+"(if or-part_283"
+" or-part_283"
 "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))"
 " end-pos_1)))))"
 "(srcloc"
-"(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\"))))"
+"(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\"))))"
 "(read-config-line config_1)"
 "(read-config-col config_1)"
 "(read-config-pos config_1)"
@@ -48374,10 +48388,10 @@ static const char *startup_source =
 " 'non-terminating-macro)))"
 "(if or-part_260"
 " or-part_260"
-"(let-values(((or-part_296)"
+"(let-values(((or-part_295)"
 "(eq? mode_17 'dispatch-macro)))"
-"(if or-part_296"
-" or-part_296"
+"(if or-part_295"
+" or-part_295"
 "(char? mode_17)))))))"
 "(void)"
 "(let-values()"
@@ -48448,10 +48462,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_288)"
+"(if(let-values(((or-part_287)"
 "(not target_0)))"
-"(if or-part_288"
-" or-part_288"
+"(if or-part_287"
+" or-part_287"
 "(1/readtable? target_0)))"
 "(void)"
 "(let-values()"
@@ -48537,7 +48551,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_309)(not rt_2)))(if or-part_309 or-part_309(not(char? c_59))))"
+"(if(let-values(((or-part_308)(not rt_2)))(if or-part_308 or-part_308(not(char? c_59))))"
 "(let-values() c_59)"
 "(let-values()(*readtable-effective-char rt_2 c_59)))))))"
 "(define-values"
@@ -48625,7 +48639,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_153)))"
-"((letrec-values(((for-loop_272)"
+"((letrec-values(((for-loop_273)"
 "(lambda(fold-var_85 i_168)"
 "(begin"
 " 'for-loop"
@@ -48641,10 +48655,10 @@ static const char *startup_source =
 "(values fold-var_13)))"
 " fold-var_88))))"
 "(if(not #f)"
-"(for-loop_272 fold-var_284(hash-iterate-next ht_153 i_168))"
+"(for-loop_273 fold-var_284(hash-iterate-next ht_153 i_168))"
 " fold-var_284)))"
 " fold-var_85)))))"
-" for-loop_272)"
+" for-loop_273)"
 " null"
 "(hash-iterate-first ht_153))))))))))"
 "(define-values"
@@ -48819,10 +48833,10 @@ static const char *startup_source =
 " in_10"
 " special1.1"
 " source_5))))"
-"(if(let-values(((or-part_310)"
+"(if(let-values(((or-part_309)"
 "(eof-object? c_66)))"
-"(if or-part_310"
-" or-part_310"
+"(if or-part_309"
+" or-part_309"
 "(eqv?"
 " '#\\newline"
 "(effective-char c_66 config_15))))"
@@ -48876,8 +48890,8 @@ static const char *startup_source =
 "(if(eq? c_69 'special)"
 "(special1.1 'special)"
 " c_69)))))"
-"(let-values(((or-part_311)(eqv? '#\\space c3_2)))"
-"(if or-part_311 or-part_311(eqv? '#\\/ c3_2))))"
+"(let-values(((or-part_310)(eqv? '#\\space c3_2)))"
+"(if or-part_310 or-part_310(eqv? '#\\/ c3_2))))"
 " #f)"
 " #f)"
 "(let-values()"
@@ -49009,12 +49023,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_312)(char=? dc_0 '#\\()))"
-"(if or-part_312"
-" or-part_312"
-"(let-values(((or-part_293)(char=? dc_0 '#\\))))"
-"(if or-part_293"
-" or-part_293"
+"(let-values(((or-part_311)(char=? dc_0 '#\\()))"
+"(if or-part_311"
+" or-part_311"
+"(let-values(((or-part_292)(char=? dc_0 '#\\))))"
+"(if or-part_292"
+" or-part_292"
 "(let-values(((or-part_27)(char=? dc_0 '#\\[)))"
 "(if or-part_27"
 " or-part_27"
@@ -49110,9 +49124,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_63 s_10 c_72))"
-"(if(let-values(((or-part_299) s_10))(if or-part_299 or-part_299 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_63 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))"
+"                  (format \"~a or ~a\" p_63 (let-values (((or-part_309) s_10)) (if or-part_309 or-part_309 c_72))))"
 "(let-values() p_63)))))))))"
 "(define-values"
 "(struct:accum-string"
@@ -49294,7 +49308,7 @@ static const char *startup_source =
 "                 (let-values () (format \"unexpected `~a`\" c_73))"
 "(let-values()"
 "(let-values(((missing_2)"
-"(let-values(((or-part_302)"
+"(let-values(((or-part_301)"
 "(let-values(((lst_7)(cdr indts_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
@@ -49330,7 +49344,7 @@ static const char *startup_source =
 " for-loop_0)"
 " #f"
 " lst_7)))))"
-"                                   (if or-part_302 or-part_302 \"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`\""
@@ -49810,8 +49824,8 @@ static const char *startup_source =
 "(let-values(((or-part_266)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))"
 "(if or-part_266"
 " or-part_266"
-"(let-values(((or-part_313)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))"
-"(if or-part_313 or-part_313(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))"
+"(let-values(((or-part_312)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))"
+"(if or-part_312 or-part_312(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))"
 "(define-values"
 "(digit->number)"
 "(lambda(c_78)"
@@ -50316,10 +50330,10 @@ static const char *startup_source =
 "(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if sign-pos_0"
-"(let-values(((or-part_314)"
+"(let-values(((or-part_313)"
 "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))"
-"(if or-part_314"
-" or-part_314"
+"(if or-part_313"
+" or-part_313"
 "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))"
 " #f)"
 "(let-values()"
@@ -50445,23 +50459,23 @@ static const char *startup_source =
 " slash-pos_0"
 " #f"
 "(if(> i_170 start_44)"
-"(let-values(((or-part_315)(not @-pos_0)))"
-"(if or-part_315"
-" or-part_315"
+"(let-values(((or-part_314)(not @-pos_0)))"
+"(if or-part_314"
+" or-part_314"
 "(> i_170(add1 @-pos_0))))"
 " #f)))))"
 "(if(char=? c_79 '#\\.)"
 "(let-values()"
-"(if(let-values(((or-part_316)"
+"(if(let-values(((or-part_315)"
 "(if exp-pos_0"
-"(let-values(((or-part_317)"
+"(let-values(((or-part_316)"
 "(not sign-pos_0)))"
-"(if or-part_317"
-" or-part_317"
-"(> exp-pos_0 sign-pos_0)))"
-" #f)))"
 "(if or-part_316"
 " or-part_316"
+"(> exp-pos_0 sign-pos_0)))"
+" #f)))"
+"(if or-part_315"
+" or-part_315"
 "(if dot-pos_1"
 "(let-values(((or-part_208)(not sign-pos_0)))"
 "(if or-part_208"
@@ -50503,9 +50517,9 @@ static const char *startup_source =
 "(if(char=? c_79 '#\\/)"
 "(let-values()"
 "(if(if dot-pos_1"
-"(let-values(((or-part_318)(not sign-pos_0)))"
-"(if or-part_318"
-" or-part_318"
+"(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()"
@@ -50515,21 +50529,21 @@ static const char *startup_source =
 "                                                                         \"decimal points and fractions annot be mixed `~.a`\""
 "(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_319)"
+"(if(let-values(((or-part_318)"
 "(if exp-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"
-"(> exp-pos_0 sign-pos_0)))"
-" #f)))"
-"(if or-part_319"
-" or-part_319"
-"(if slash-pos_0"
-"(let-values(((or-part_321)"
-"(not sign-pos_0)))"
-"(if or-part_321"
-" or-part_321"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -50551,52 +50565,52 @@ static const char *startup_source =
 " i_170"
 " #f"
 " must-i?_0)))))"
-"(if(let-values(((or-part_322)(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 '#\\E)))"
 "(if or-part_322"
 " or-part_322"
-"(let-values(((or-part_323)(char=? c_79 '#\\E)))"
+"(let-values(((or-part_323)"
+"(char=? c_79 '#\\f)))"
 "(if or-part_323"
 " or-part_323"
 "(let-values(((or-part_324)"
-"(char=? c_79 '#\\f)))"
+"(char=? c_79 '#\\F)))"
 "(if or-part_324"
 " or-part_324"
 "(let-values(((or-part_325)"
-"(char=? c_79 '#\\F)))"
+"(char=? c_79 '#\\d)))"
 "(if or-part_325"
 " or-part_325"
-"(let-values(((or-part_326)"
-"(char=? c_79 '#\\d)))"
-"(if or-part_326"
-" or-part_326"
 "(let-values(((or-part_181)"
 "(char=? c_79 '#\\D)))"
 "(if or-part_181"
 " or-part_181"
-"(let-values(((or-part_327)"
+"(let-values(((or-part_326)"
 "(char=?"
 " c_79"
 " '#\\s)))"
-"(if or-part_327"
-" or-part_327"
-"(let-values(((or-part_328)"
+"(if or-part_326"
+" or-part_326"
+"(let-values(((or-part_327)"
 "(char=?"
 " c_79"
 " '#\\S)))"
-"(if or-part_328"
-" or-part_328"
+"(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_329)"
+"(let-values(((or-part_328)"
 "(char=?"
 " c_79"
 " '#\\L)))"
-"(if or-part_329"
-" or-part_329"
+"(if or-part_328"
+" or-part_328"
 "(let-values(((or-part_173)"
 "(char=?"
 " c_79"
@@ -50629,8 +50643,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_330) exp-pos_0))"
-"(if or-part_330 or-part_330 i_170))"
+"(let-values(((or-part_329) exp-pos_0))"
+"(if or-part_329 or-part_329 i_170))"
 " must-i?_0))"
 "(let-values()"
 "(loop_111"
@@ -50642,8 +50656,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_331) exp-pos_0))"
-"(if or-part_331 or-part_331 i_170))"
+"(let-values(((or-part_330) exp-pos_0))"
+"(if or-part_330 or-part_330 i_170))"
 " must-i?_0)))))"
 "(if(char=? c_79 '#\\@)"
 "(let-values()"
@@ -50655,9 +50669,9 @@ static const char *startup_source =
 "                                                                             \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_332) @-pos_0))"
-"(if or-part_332"
-" or-part_332"
+"(if(let-values(((or-part_331) @-pos_0))"
+"(if or-part_331"
+" or-part_331"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -50694,17 +50708,17 @@ static const char *startup_source =
 " #f"
 " #f"
 " must-i?_0)))))))"
-"(if(if(let-values(((or-part_333)"
+"(if(if(let-values(((or-part_332)"
 "(char=? c_79 '#\\i)))"
-"(if or-part_333"
-" or-part_333"
+"(if or-part_332"
+" or-part_332"
 "(char=? c_79 '#\\I)))"
 " sign-pos_0"
 " #f)"
 "(let-values()"
-"(if(let-values(((or-part_334) @-pos_0))"
-"(if or-part_334"
-" or-part_334"
+"(if(let-values(((or-part_333) @-pos_0))"
+"(if or-part_333"
+" or-part_333"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -50713,10 +50727,10 @@ static const char *startup_source =
 "                                                                               \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_335)"
+"(if(let-values(((or-part_334)"
 "(<(add1 i_170) end_34)))"
-"(if or-part_335"
-" or-part_335"
+"(if or-part_334"
+" or-part_334"
 "(eq? in-complex_1 'i)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -50835,11 +50849,11 @@ static const char *startup_source =
 " radix168_0"
 " exactness170_0"
 " convert-mode172_0))))))"
-"(if(let-values(((or-part_336)(not v1_0)))"
-"(if or-part_336 or-part_336(not v2_6)))"
+"(if(let-values(((or-part_335)(not v1_0)))"
+"(if or-part_335 or-part_335(not v2_6)))"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_337)(extflonum? v1_0)))"
-"(if or-part_337 or-part_337(extflonum? v2_6)))"
+"(if(if(let-values(((or-part_336)(extflonum? v1_0)))"
+"(if or-part_336 or-part_336(extflonum? v2_6)))"
 "(not(eq? convert-mode_4 'must-read))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_4 v1_0))"
@@ -50866,14 +50880,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_338)(eq? exactness_3 'inexact)))"
-"(if or-part_338"
-" or-part_338"
-"(let-values(((or-part_339)(eq? exactness_3 'decimal-as-inexact)))"
-"(if or-part_339 or-part_339(if(not dot-pos_2)(not exp-pos_1) #f)))))"
-"(if(let-values(((or-part_340)(not exp-pos_1)))"
-"(if or-part_340"
-" or-part_340"
+"(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))"
+"(if or-part_337"
+" or-part_337"
+"(let-values(((or-part_338)(eq? exactness_3 'decimal-as-inexact)))"
+"(if or-part_338 or-part_338(if(not dot-pos_2)(not exp-pos_1) #f)))))"
+"(if(let-values(((or-part_339)(not exp-pos_1)))"
+"(if or-part_339"
+" or-part_339"
 "(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))"
@@ -50901,9 +50915,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_341)(= exp-pos_1(sub1 end_35))))"
-"(if or-part_341"
-" or-part_341"
+"(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))"
+"(if or-part_340"
+" or-part_340"
 "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))"
 " #f)"
 "(let-values()"
@@ -50916,9 +50930,9 @@ static const char *startup_source =
 "(string->number$1"
 "(maybe-substring s_333 start_45 end_35)"
 " radix_7"
-"(if(let-values(((or-part_342)(eq? convert-mode_5 'number-or-false)))"
-"(if or-part_342"
-" or-part_342"
+"(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))"
+"(if or-part_341"
+" or-part_341"
 "(let-values(((or-part_147)(not exp-pos_1)))"
 "(if or-part_147 or-part_147(not(extfl-mark?_0))))))"
 " 'number-or-false"
@@ -50980,7 +50994,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_343)(not m-v_0)))(if or-part_343 or-part_343(not e-v_0)))"
+"(if(let-values(((or-part_342)(not m-v_0)))(if or-part_342 or-part_342(not e-v_0)))"
 "(let-values() #f)"
 "(if(string? m-v_0)"
 "(let-values() m-v_0)"
@@ -50988,8 +51002,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_344)(eq? exactness_3 'inexact)))"
-"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-inexact)))"
+"(if(if(let-values(((or-part_343)(eq? exactness_3 'inexact)))"
+"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-inexact)))"
 "(>(abs e-v_0)(if get-extfl?_0 6000 400))"
 " #f)"
 "(let-values()"
@@ -51011,8 +51025,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_345)(eq? exactness_3 'exact)))"
-"(if or-part_345 or-part_345(eq? exactness_3 'decimal-as-exact)))"
+"(let-values(((or-part_344)(eq? exactness_3 'exact)))"
+"(if or-part_344 or-part_344(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)"
@@ -51048,13 +51062,13 @@ static const char *startup_source =
 "(lambda(from-pos_0)"
 "(begin"
 " 'get-inexact?"
-"(let-values(((or-part_346)(eq? exactness_3 'inexact)))"
-"(if or-part_346"
-" or-part_346"
+"(let-values(((or-part_345)(eq? exactness_3 'inexact)))"
+"(if or-part_345"
+" or-part_345"
 "(if(not(eq? exactness_3 'exact))"
 "(hashes? s_333 from-pos_0 end_35)"
 " #f)))))))"
-"(if(let-values(((or-part_347)(not n-v_0)))(if or-part_347 or-part_347(not d-v_0)))"
+"(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))"
 "(let-values() #f)"
 "(if(string? n-v_0)"
 "(let-values() n-v_0)"
@@ -51130,8 +51144,8 @@ static const char *startup_source =
 "(sub1 i_171)"
 "(sub1 j_3)"
 "(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))))"
-"(if(let-values(((or-part_348)(char=? c_80 '#\\-)))"
-"(if or-part_348 or-part_348(char=? c_80 '#\\+)))"
+"(if(let-values(((or-part_347)(char=? c_80 '#\\-)))"
+"(if or-part_347 or-part_347(char=? c_80 '#\\+)))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_80)"
@@ -51183,25 +51197,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_349)(char=?(string-ref s_472 start_48) '#\\+)))"
-"(if or-part_349 or-part_349(char=?(string-ref s_472 start_48) '#\\-)))"
-"(let-values(((or-part_350)"
+"(if(let-values(((or-part_348)(char=?(string-ref s_472 start_48) '#\\+)))"
+"(if or-part_348 or-part_348(char=?(string-ref s_472 start_48) '#\\-)))"
+"(let-values(((or-part_349)"
 "(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_351)"
+"(let-values(((or-part_350)"
 "(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_351"
-" or-part_351"
-"(let-values(((or-part_352)"
+"(if or-part_350"
+" or-part_350"
+"(let-values(((or-part_351)"
 "(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_352"
-" or-part_352"
+"(if or-part_351"
+" or-part_351"
 "(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)"
@@ -51211,20 +51225,20 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " #f)))"
-"(if or-part_350"
-" or-part_350"
+"(if or-part_349"
+" or-part_349"
 "(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_353)"
+"(let-values(((or-part_352)"
 "(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\0) +nan.0 #f)))"
+"(if or-part_352"
+" or-part_352"
+"(let-values(((or-part_353)"
+"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))"
 "(if or-part_353"
 " or-part_353"
-"(let-values(((or-part_354)"
-"(if(char=?(char-downcase(string-ref s_472(+ start_48 5))) '#\\f) +nan.f #f)))"
-"(if or-part_354"
-" or-part_354"
 "(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)))))"
@@ -51318,7 +51332,7 @@ static const char *startup_source =
 " 1)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_273)"
+"((letrec-values(((for-loop_274)"
 "(lambda(result_120 idx_5)"
 "(begin"
 " 'for-loop"
@@ -51330,10 +51344,10 @@ static const char *startup_source =
 "(let-values()(let-values()(char=? c_81 '#\\#)))))"
 "(values result_122)))))"
 "(if(if(not((lambda x_87 result_121) c_81))(not #f) #f)"
-"(for-loop_273 result_121(unsafe-fx+ idx_5 1))"
+"(for-loop_274 result_121(unsafe-fx+ idx_5 1))"
 " result_121)))"
 " result_120)))))"
-" for-loop_273)"
+" for-loop_274)"
 " #f"
 " start*_5))))))"
 "(define-values"
@@ -51358,7 +51372,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_52)))"
-"((letrec-values(((for-loop_274)"
+"((letrec-values(((for-loop_275)"
 "(lambda(idx_6 pos_115)"
 "(begin"
 " 'for-loop"
@@ -51375,9 +51389,9 @@ static const char *startup_source =
 "(string-set! new-s_10 i_121 c_82)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))"
+"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))"
 "(values))))))"
-" for-loop_274)"
+" for-loop_275)"
 " start*_6"
 " start_52)))"
 "(void)"
@@ -51390,25 +51404,25 @@ static const char *startup_source =
 "(exactness-set?)"
 "(lambda(exactness_6)"
 "(begin"
-"(let-values(((or-part_355)(eq? exactness_6 'exact)))(if or-part_355 or-part_355(eq? exactness_6 'inexact))))))"
+"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(eq? exactness_6 'inexact))))))"
 "(define-values"
 "(char-sign?)"
 "(lambda(c_83)"
-"(begin(let-values(((or-part_356)(char=? c_83 '#\\-)))(if or-part_356 or-part_356(char=? c_83 '#\\+))))))"
+"(begin(let-values(((or-part_355)(char=? c_83 '#\\-)))(if or-part_355 or-part_355(char=? c_83 '#\\+))))))"
 "(define-values"
 "(digit?)"
 "(lambda(c_84 radix_11)"
 "(begin"
 "(let-values(((v_244)(char->integer c_84)))"
-"(let-values(((or-part_357)"
+"(let-values(((or-part_356)"
 "(if(>= v_244(char->integer '#\\0))(<(- v_244(char->integer '#\\0)) radix_11) #f)))"
+"(if or-part_356"
+" or-part_356"
+"(if(> radix_11 10)"
+"(let-values(((or-part_357)"
+"(if(>= v_244(char->integer '#\\a))(<(- v_244(-(char->integer '#\\a) 10)) radix_11) #f)))"
 "(if or-part_357"
 " or-part_357"
-"(if(> radix_11 10)"
-"(let-values(((or-part_358)"
-"(if(>= v_244(char->integer '#\\a))(<(- v_244(-(char->integer '#\\a) 10)) radix_11) #f)))"
-"(if or-part_358"
-" or-part_358"
 "(if(>= v_244(char->integer '#\\A))(<(- v_244(-(char->integer '#\\A) 10)) radix_11) #f)))"
 " #f)))))))"
 "(define-values"
@@ -51755,14 +51769,14 @@ static const char *startup_source =
 "(list temp30_4))))"
 "(void))"
 "(wrap"
-"(let-values(((or-part_359) num_0))"
-"(if or-part_359"
-" or-part_359"
-"(let-values(((or-part_360)"
+"(let-values(((or-part_358) num_0))"
+"(if or-part_358"
+" or-part_358"
+"(let-values(((or-part_359)"
 "(if(eq? mode_18 'keyword)"
 "(string->keyword str_29)"
 " #f)))"
-"(if or-part_360 or-part_360(string->symbol str_29)))))"
+"(if or-part_359 or-part_359(string->symbol str_29)))))"
 " in_26"
 " config_23"
 " str_29)))))))))))))))))))))))))"
@@ -51906,7 +51920,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_264)))"
-"((letrec-values(((for-loop_275)"
+"((letrec-values(((for-loop_276)"
 "(lambda(i_3 lst_104)"
 "(begin"
 " 'for-loop"
@@ -51948,12 +51962,12 @@ static const char *startup_source =
 " e_78))"
 "(not #f)"
 " #f)"
-"(for-loop_275"
+"(for-loop_276"
 " i_172"
 " rest_145)"
 " i_172)))"
 " i_3)))))"
-" for-loop_275)"
+" for-loop_276)"
 " 0"
 " lst_264)))))"
 " v_35))))))"
@@ -52122,7 +52136,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_54)))"
-"((letrec-values(((for-loop_264)"
+"((letrec-values(((for-loop_265)"
 "(lambda(lst_300 pos_117)"
 "(begin"
 " 'for-loop"
@@ -52150,12 +52164,12 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_264"
+"(for-loop_265"
 " rest_175"
 "(+ pos_117 1))"
 "(values))))"
 "(values))))))"
-" for-loop_264)"
+" for-loop_265)"
 " lst_8"
 " start_54)))"
 "(void)))"
@@ -52224,7 +52238,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-naturals start_56)))"
-"((letrec-values(((for-loop_276)"
+"((letrec-values(((for-loop_277)"
 "(lambda(lst_98 pos_118)"
 "(begin"
 " 'for-loop"
@@ -52253,14 +52267,14 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_276"
+"(for-loop_277"
 " rest_176"
 "(+"
 " pos_118"
 " 1))"
 "(values))))"
 "(values))))))"
-" for-loop_276)"
+" for-loop_277)"
 " lst_307"
 " start_56)))"
 "(void)))"
@@ -52673,9 +52687,9 @@ static const char *startup_source =
 "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_309)(read-config-for-syntax? config_43)))"
-"(if or-part_309"
-" or-part_309"
+"(if(let-values(((or-part_308)(read-config-for-syntax? config_43)))"
+"(if or-part_308"
+" or-part_308"
 "(not(check-parameter 1/read-accept-graph config_43))))"
 "(let-values()"
 "(let-values(((in37_1) in_37)"
@@ -52835,9 +52849,9 @@ static const char *startup_source =
 "(lambda(config_44)"
 "(begin"
 "(let-values(((st_3)(read-config-st config_44)))"
-"(let-values(((or-part_361)(read-config-state-graph st_3)))"
-"(if or-part_361"
-" or-part_361"
+"(let-values(((or-part_360)(read-config-state-graph st_3)))"
+"(if or-part_360"
+" or-part_360"
 "(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))"
 "(define-values"
 "(coerce-key)"
@@ -54204,7 +54218,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_308)))"
-"((letrec-values(((for-loop_277)"
+"((letrec-values(((for-loop_278)"
 "(lambda(lst_28)"
 "(begin"
 " 'for-loop"
@@ -54227,11 +54241,11 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_277"
+"(for-loop_278"
 " rest_177)"
 "(values))))"
 "(values))))))"
-" for-loop_277)"
+" for-loop_278)"
 " lst_308)))"
 "(void))))"
 "(if(char=? c_93 '#\\newline)"
@@ -55113,14 +55127,14 @@ static const char *startup_source =
 "(let-values(((or-part_89)(char-alphabetic? c_101)))"
 "(if or-part_89"
 " or-part_89"
-"(let-values(((or-part_306)(char-numeric? c_101)))"
-"(if or-part_306"
-" or-part_306"
-"(let-values(((or-part_362)(char=? '#\\- c_101)))"
-"(if or-part_362"
-" or-part_362"
-"(let-values(((or-part_363)(char=? '#\\+ c_101)))"
-"(if or-part_363 or-part_363(char=? '#\\_ c_101)))))))))"
+"(let-values(((or-part_305)(char-numeric? c_101)))"
+"(if or-part_305"
+" or-part_305"
+"(let-values(((or-part_361)(char=? '#\\- c_101)))"
+"(if or-part_361"
+" or-part_361"
+"(let-values(((or-part_362)(char=? '#\\+ c_101)))"
+"(if or-part_362 or-part_362(char=? '#\\_ c_101)))))))))"
 " #f))))"
 "(define-values"
 "(read-extension-prefix)"
@@ -55211,7 +55225,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_364)"
+"(let-values(((or-part_363)"
 "(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)"
@@ -55219,7 +55233,7 @@ static const char *startup_source =
 " mod-path_29"
 " #f))"
 " #f)))"
-"(if or-part_364 or-part_364(guard_0 mod-path-datum_0)))))"
+"(if or-part_363 or-part_363(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)))"
@@ -55684,9 +55698,9 @@ static const char *startup_source =
 "((in80_1) in_68)"
 "((r-config81_0) r-config_0)"
 "((temp82_2)"
-"(if(let-values(((or-part_317)(eq? c_106 ec_10)))"
-"(if or-part_317"
-" or-part_317"
+"(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)))"
@@ -55862,10 +55876,10 @@ static const char *startup_source =
 " temp111_2"
 "(list c112_0))))))"
 "(let-values()"
-"(if(let-values(((or-part_365)"
+"(if(let-values(((or-part_364)"
 "(check-parameter 1/read-square-bracket-as-paren config_57)))"
-"(if or-part_365"
-" or-part_365"
+"(if or-part_364"
+" or-part_364"
 "(check-parameter 1/read-square-bracket-with-tag config_57)))"
 "(let-values()"
 "(let-values(((in113_1) in_68)"
@@ -55901,10 +55915,10 @@ static const char *startup_source =
 "(list c120_0))))))))"
 "(if(unsafe-fx< index_4 10)"
 "(let-values()"
-"(if(let-values(((or-part_366)"
+"(if(let-values(((or-part_365)"
 "(check-parameter 1/read-curly-brace-as-paren config_57)))"
-"(if or-part_366"
-" or-part_366"
+"(if or-part_365"
+" or-part_365"
 "(check-parameter 1/read-curly-brace-with-tag config_57)))"
 "(let-values()"
 "(wrap"
@@ -55946,10 +55960,10 @@ static const char *startup_source =
 "(list c131_0))))))"
 "(if(unsafe-fx< index_4 11)"
 "(let-values()"
-"(if(let-values(((or-part_367)"
+"(if(let-values(((or-part_366)"
 "(check-parameter 1/read-curly-brace-as-paren config_57)))"
-"(if or-part_367"
-" or-part_367"
+"(if or-part_366"
+" or-part_366"
 "(check-parameter 1/read-curly-brace-with-tag config_57)))"
 "(let-values()"
 "(let-values(((in132_0) in_68)"
@@ -56360,8 +56374,8 @@ static const char *startup_source =
 "(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_108))"
-"(if(let-values(((or-part_368)(char=? c2_13 '#\\x)))"
-"(if or-part_368 or-part_368(char=? c2_13 '#\\l)))"
+"(if(let-values(((or-part_367)(char=? c2_13 '#\\x)))"
+"(if or-part_367 or-part_367(char=? c2_13 '#\\l)))"
 "(let-values()"
 "(read-fixnum-or-flonum-vector"
 " read-one"
@@ -56737,7 +56751,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_288)(not b/p_3)))(if or-part_288 or-part_288(provided-as-protected? b/p_3)))))"
+"(let-values(((or-part_287)(not b/p_3)))(if or-part_287 or-part_287(provided-as-protected? b/p_3)))))"
 " 'module-provide-protected?"
 " mod_17))))"
 "(define-values"
@@ -57220,8 +57234,8 @@ static const char *startup_source =
 "(let-values()"
 "                                          (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))"
 "(if((lambda(x_92)"
-"(let-values(((or-part_299)(not x_92)))"
-"(if or-part_299 or-part_299(char? x_92))))"
+"(let-values(((or-part_298)(not x_92)))"
+"(if or-part_298 or-part_298(char? x_92))))"
 " start_59)"
 "(void)"
 "(let-values()"
@@ -57604,10 +57618,10 @@ static const char *startup_source =
 "(define-values"
 "(1/local-expand)"
 "(let-values(((local-expand5_0)"
-"(lambda(s2_9 context3_0 stop-ids4_0 intdefs1_0)"
+"(lambda(s2_10 context3_0 stop-ids4_0 intdefs1_0)"
 "(begin"
 " 'local-expand5"
-"(let-values(((s_8) s2_9))"
+"(let-values(((s_8) s2_10))"
 "(let-values(((context_10) context3_0))"
 "(let-values(((stop-ids_2) stop-ids4_0))"
 "(let-values(((intdefs_4) intdefs1_0))"
@@ -57848,9 +57862,9 @@ static const char *startup_source =
 "(let-values(((s_496)(datum->syntax$1 #f s-or-s-exp_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_369)(list? context_24)))"
-"(if or-part_369"
-" or-part_369"
+"(if(let-values(((or-part_368)(list? context_24)))"
+"(if or-part_368"
+" or-part_368"
 "(memq"
 " context_24"
 "(if as-transformer?_6"
@@ -58173,8 +58187,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_310)(not maybe-insp_2)))"
-"(if or-part_310 or-part_310(inspector? maybe-insp_2)))"
+"(if(let-values(((or-part_309)(not maybe-insp_2)))"
+"(if or-part_309 or-part_309(inspector? maybe-insp_2)))"
 "(void)"
 "                              (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))"
 "(values))))"
@@ -58222,9 +58236,9 @@ static const char *startup_source =
 "(inspector-for-taint)"
 "(lambda(maybe-insp_3)"
 "(begin"
-"(let-values(((or-part_370) maybe-insp_3))"
-"(if or-part_370"
-" or-part_370"
+"(let-values(((or-part_369) maybe-insp_3))"
+"(if or-part_369"
+" or-part_369"
 "(let-values(((or-part_163)(current-module-code-inspector)))"
 "(if or-part_163 or-part_163(current-code-inspector))))))))"
 "(define-values"
@@ -58863,7 +58877,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash-keys ht_162)))"
-"((letrec-values(((for-loop_278)"
+"((letrec-values(((for-loop_279)"
 "(lambda(table_212 i_176)"
 "(begin"
 " 'for-loop"
@@ -58929,14 +58943,14 @@ static const char *startup_source =
 "(values"
 " table_213)))))"
 "(if(not #f)"
-"(for-loop_278"
+"(for-loop_279"
 " table_6"
 "(hash-iterate-next"
 " ht_162"
 " i_176))"
 " table_6)))"
 " table_212)))))"
-" for-loop_278)"
+" for-loop_279)"
 " '#hash()"
 "(hash-iterate-first ht_162))))))"
 "((temp75_4)"
@@ -58956,7 +58970,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_163)))"
-"((letrec-values(((for-loop_279)"
+"((letrec-values(((for-loop_280)"
 "(lambda(i_177)"
 "(begin"
 " 'for-loop"
@@ -58979,13 +58993,13 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_279"
+"(for-loop_280"
 "(hash-iterate-next"
 " ht_163"
 " i_177))"
 "(values))))"
 "(values))))))"
-" for-loop_279)"
+" for-loop_280)"
 "(hash-iterate-first ht_163))))"
 "(void)))"
 "(void)))))"
@@ -59070,7 +59084,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_159)))"
-"((letrec-values(((for-loop_280)"
+"((letrec-values(((for-loop_281)"
 "(lambda(table_214 lst_310)"
 "(begin"
 " 'for-loop"
@@ -59109,7 +59123,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-in-hash"
 " ht_164)))"
-"((letrec-values(((for-loop_281)"
+"((letrec-values(((for-loop_282)"
 "(lambda(table_141"
 " i_178)"
 "(begin"
@@ -59139,14 +59153,14 @@ static const char *startup_source =
 " table_217)))))"
 "(if(not"
 " #f)"
-"(for-loop_281"
+"(for-loop_282"
 " table_31"
 "(hash-iterate-next"
 " ht_164"
 " i_178))"
 " table_31)))"
 " table_141)))))"
-" for-loop_281)"
+" for-loop_282)"
 " table_140"
 "(hash-iterate-first"
 " ht_164))))))"
@@ -59154,10 +59168,10 @@ static const char *startup_source =
 " for-loop_185)"
 " table_214)))))"
 "(if(not #f)"
-"(for-loop_280 table_215 rest_180)"
+"(for-loop_281 table_215 rest_180)"
 " table_215)))"
 " table_214)))))"
-" for-loop_280)"
+" for-loop_281)"
 " '#hash()"
 " lst_159))))"
 " '#hasheqv()))"
@@ -59532,8 +59546,8 @@ static const char *startup_source =
 "(check-module-form)"
 "(lambda(exp_0 filename_1)"
 "(begin"
-"(if(let-values(((or-part_312)(eof-object? exp_0)))"
-"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))"
+"(if(let-values(((or-part_311)(eof-object? exp_0)))"
+"(if or-part_311 or-part_311(eof-object?(1/syntax-e exp_0))))"
 "(let-values()"
 "(if filename_1"
 "(error"
@@ -59663,9 +59677,9 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((m-s_0)(check-module-form s_178 path_12)))"
-"(let-values(((s2_10)(1/read-syntax(object-name i_179) i_179)))"
+"(let-values(((s2_11)(1/read-syntax(object-name i_179) i_179)))"
 "(begin"
-"(if(eof-object? s2_10)"
+"(if(eof-object? s2_11)"
 "(void)"
 "(let-values()"
 "(error"
@@ -59676,7 +59690,7 @@ static const char *startup_source =
 "                                                     \"  in: ~e\\n\""
 "                                                     \"  found: ~.s\")"
 "(object-name i_179)"
-" s2_10)))"
+" s2_11)))"
 "(lambda()((1/current-eval) m-s_0))))))))))))))))))))"
 "(let-values()"
 "(let-values(((add-top-interaction_0)"
@@ -60110,9 +60124,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_359) main-path-d_0))"
-"(if or-part_359"
-" or-part_359"
+"(let-values(((or-part_358) main-path-d_0))"
+"(if or-part_358"
+" or-part_358"
 "(not alt-path-d_0)))))"
 "(let-values(((try-alt?_0)"
 "(if alt-file_0"
@@ -60241,12 +60255,12 @@ static const char *startup_source =
 "(car zo-d_1)"
 " expect-module_0)))))))"
 " c4_3)"
-"(if(let-values(((or-part_371)"
+"(if(let-values(((or-part_370)"
 "(not"
 "(pair?"
 " expect-module_0))))"
-"(if or-part_371"
-" or-part_371"
+"(if or-part_370"
+" or-part_370"
 "(car expect-module_0)))"
 "(let-values()"
 "(let-values(((p_77)"
@@ -60458,8 +60472,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_361)(not relto_1)))"
-"(if or-part_361 or-part_361(1/resolved-module-path? relto_1)))"
+"(if(let-values(((or-part_360)(not relto_1)))"
+"(if or-part_360 or-part_360(1/resolved-module-path? relto_1)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -60532,9 +60546,9 @@ static const char *startup_source =
 "                                                     (if or-part_101 or-part_101 (equal? (cadr s_500) \"..\")))"
 "(if relto_1"
 "(let-values(((p_79)(1/resolved-module-path-name relto_1)))"
-"(let-values(((or-part_372)(symbol? p_79)))"
-"(if or-part_372"
-" or-part_372"
+"(let-values(((or-part_371)(symbol? p_79)))"
+"(if or-part_371"
+" or-part_371"
 "(if(pair? p_79)(symbol?(car p_79)) #f))))"
 " #f)"
 " #f)"
@@ -60599,10 +60613,10 @@ static const char *startup_source =
 " #f)))"
 "(if or-part_41"
 " or-part_41"
-"(let-values(((or-part_373)"
+"(let-values(((or-part_372)"
 "(current-load-relative-directory)))"
-"(if or-part_373"
-" or-part_373"
+"(if or-part_372"
+" or-part_372"
 "(current-directory))))))))"
 "((get-reg_0)"
 "(lambda()"
@@ -60615,15 +60629,15 @@ static const char *startup_source =
 " 'show-collection-err"
 "(let-values(((msg_2)"
 "(string-append"
-"(let-values(((or-part_369)"
+"(let-values(((or-part_368)"
 "(if stx_20"
 "(if(error-print-source-location)"
 "(format-source-location"
 " stx_20)"
 " #f)"
 " #f)))"
-"(if or-part_369"
-" or-part_369"
+"(if or-part_368"
+" or-part_368"
 "                                                                                    \"standard-module-name-resolver\"))"
 "                                                                                \": \""
 "(regexp-replace"
@@ -60677,8 +60691,8 @@ static const char *startup_source =
 "((s_502)"
 "(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)"
 "(let-values(((v_258)(cadr s_500)))"
-"                                                                 (if (let-values (((or-part_374) (equal? v_258 \".\")))"
-"                                                                       (if or-part_374 or-part_374 (equal? v_258 \"..\")))"
+"                                                                 (if (let-values (((or-part_373) (equal? v_258 \".\")))"
+"                                                                       (if or-part_373 or-part_373 (equal? v_258 \"..\")))"
 "(if relto_1"
 "(let-values(((p_7)"
 "(1/resolved-module-path-name"
@@ -60750,11 +60764,11 @@ static const char *startup_source =
 "(if(string? s_502)"
 "(let-values()"
 "(let-values(((dir_4)(get-dir_0)))"
-"(let-values(((or-part_375)"
+"(let-values(((or-part_374)"
 "(path-cache-get"
 "(cons s_502 dir_4))))"
-"(if or-part_375"
-" or-part_375"
+"(if or-part_374"
+" or-part_374"
 "(let-values(((cols_1 file_4)"
 "(split-relative-string"
 " s_502"
@@ -60845,8 +60859,8 @@ static const char *startup_source =
 "(get-dir_0)))))"
 "(void))))))))"
 "(begin"
-"(if(let-values(((or-part_376)(path? s-parsed_0)))"
-"(if or-part_376 or-part_376(vector? s-parsed_0)))"
+"(if(let-values(((or-part_375)(path? s-parsed_0)))"
+"(if or-part_375 or-part_375(vector? s-parsed_0)))"
 "(void)"
 "(let-values()"
 "(if stx_20"
@@ -60884,11 +60898,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_377)"
+"(let-values(((or-part_376)"
 "(registry-table-ref"
 "(get-reg_0))))"
-"(if or-part_377"
-" or-part_377"
+"(if or-part_376"
+" or-part_376"
 "(let-values(((hts_4)"
 "(cons"
 "(make-hasheq)"
@@ -61030,14 +61044,14 @@ static const char *startup_source =
 "(void))"
 "(if(if(not(vector? s-parsed_0))"
 "(if load?_7"
-"(let-values(((or-part_378)"
+"(let-values(((or-part_377)"
 "(string? s_502)))"
+"(if or-part_377"
+" or-part_377"
+"(let-values(((or-part_378)"
+"(symbol? s_502)))"
 "(if or-part_378"
 " or-part_378"
-"(let-values(((or-part_379)"
-"(symbol? s_502)))"
-"(if or-part_379"
-" or-part_379"
 "(if(pair? s_502)"
 "(eq?(car s_502) 'lib)"
 " #f)))))"
@@ -61713,7 +61727,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_311)))"
-"((letrec-values(((for-loop_282)"
+"((letrec-values(((for-loop_283)"
 "(lambda(fold-var_189"
 " lst_312)"
 "(begin"
@@ -61754,12 +61768,12 @@ static const char *startup_source =
 " fold-var_286)))))"
 "(if(not"
 " #f)"
-"(for-loop_282"
+"(for-loop_283"
 " fold-var_248"
 " rest_181)"
 " fold-var_248)))"
 " fold-var_189)))))"
-" for-loop_282)"
+" for-loop_283)"
 " null"
 " lst_311))))))"
 "(let-values(((extended-env_0)"
@@ -61780,7 +61794,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_308)))"
-"((letrec-values(((for-loop_277)"
+"((letrec-values(((for-loop_278)"
 "(lambda(env_17"
 " lst_313"
 " lst_296)"
@@ -61817,13 +61831,13 @@ static const char *startup_source =
 " env_20)))))"
 "(if(not"
 " #f)"
-"(for-loop_277"
+"(for-loop_278"
 " env_18"
 " rest_169"
 " rest_182)"
 " env_18)))"
 " env_17)))))"
-" for-loop_277)"
+" for-loop_278)"
 "(expand-context-env"
 " body-ctx_2)"
 " lst_228"
@@ -61895,7 +61909,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_314)))"
-"((letrec-values(((for-loop_283)"
+"((letrec-values(((for-loop_284)"
 "(lambda(fold-var_287"
 " lst_155)"
 "(begin"
@@ -61921,12 +61935,12 @@ static const char *startup_source =
 " fold-var_290)))))"
 "(if(not"
 " #f)"
-"(for-loop_283"
+"(for-loop_284"
 " fold-var_288"
 " rest_79)"
 " fold-var_288)))"
 " fold-var_287)))))"
-" for-loop_283)"
+" for-loop_284)"
 " null"
 " lst_314))))"
 " val-idss_0))"
@@ -61943,7 +61957,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_315)))"
-"((letrec-values(((for-loop_284)"
+"((letrec-values(((for-loop_285)"
 "(lambda(fold-var_291"
 " lst_32)"
 "(begin"
@@ -61969,12 +61983,12 @@ static const char *startup_source =
 " fold-var_141)))))"
 "(if(not"
 " #f)"
-"(for-loop_284"
+"(for-loop_285"
 " fold-var_292"
 " rest_183)"
 " fold-var_292)))"
 " fold-var_291)))))"
-" for-loop_284)"
+" for-loop_285)"
 " null"
 " lst_315))))"
 " val-keyss_0))"
@@ -62042,7 +62056,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_157)))"
-"((letrec-values(((for-loop_285)"
+"((letrec-values(((for-loop_286)"
 "(lambda(fold-var_297"
 " lst_317)"
 "(begin"
@@ -62068,12 +62082,12 @@ static const char *startup_source =
 " fold-var_298)))))"
 "(if(not"
 " #f)"
-"(for-loop_285"
+"(for-loop_286"
 " fold-var_41"
 " rest_185)"
 " fold-var_41)))"
 " fold-var_297)))))"
-" for-loop_285)"
+" for-loop_286)"
 " null"
 " lst_157))))"
 " track-stxs_0))"
@@ -62163,7 +62177,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_318)))"
-"((letrec-values(((for-loop_286)"
+"((letrec-values(((for-loop_287)"
 "(lambda(id_108"
 " lst_319)"
 "(begin"
@@ -62207,12 +62221,12 @@ static const char *startup_source =
 " id_110)))))"
 "(if(not"
 " #f)"
-"(for-loop_286"
+"(for-loop_287"
 " id_65"
 " rest_186)"
 " id_65)))"
 " id_108)))))"
-" for-loop_286)"
+" for-loop_287)"
 " null"
 " lst_318)))))"
 "(reverse$1"
@@ -62328,7 +62342,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_320)))"
-"((letrec-values(((for-loop_287)"
+"((letrec-values(((for-loop_288)"
 "(lambda(fold-var_299"
 " lst_321)"
 "(begin"
@@ -62369,12 +62383,12 @@ static const char *startup_source =
 " fold-var_302)))))"
 "(if(not"
 " #f)"
-"(for-loop_287"
+"(for-loop_288"
 " fold-var_300"
 " rest_187)"
 " fold-var_300)))"
 " fold-var_299)))))"
-" for-loop_287)"
+" for-loop_288)"
 " null"
 " lst_320))))))"
 "(let-values((()"
@@ -62440,7 +62454,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_324)))"
-"((letrec-values(((for-loop_288)"
+"((letrec-values(((for-loop_289)"
 "(lambda(env_21"
 " lst_325"
 " lst_326"
@@ -62492,14 +62506,14 @@ static const char *startup_source =
 " env_24)))))"
 "(if(not"
 " #f)"
-"(for-loop_288"
+"(for-loop_289"
 " env_22"
 " rest_188"
 " rest_189"
 " rest_190)"
 " env_22)))"
 " env_21)))))"
-" for-loop_288)"
+" for-loop_289)"
 "(expand-context-env"
 " body-ctx_2)"
 " lst_322"
@@ -62784,7 +62798,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_303"
 " lst_5"
 " pos_125)"
@@ -62888,7 +62902,7 @@ static const char *startup_source =
 " fold-var_306)))))"
 "(if(not"
 " #f)"
-"(for-loop_289"
+"(for-loop_290"
 " fold-var_304"
 " rest_191"
 "(+"
@@ -62896,7 +62910,7 @@ static const char *startup_source =
 " 1))"
 " fold-var_304)))"
 " fold-var_303)))))"
-" for-loop_289)"
+" for-loop_290)"
 " null"
 " lst_213"
 " start_64))))))"
@@ -63200,9 +63214,9 @@ static const char *startup_source =
 "(list result-s_10)"
 " result-s_10))))))"
 "(if(if(not forward-references?_0)"
-"(let-values(((or-part_380) split?_0))"
-"(if or-part_380"
-" or-part_380"
+"(let-values(((or-part_379) split?_0))"
+"(if or-part_379"
+" or-part_379"
 "(null?(cdr idss_2))))"
 " #f)"
 "(let-values()"
@@ -63350,7 +63364,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_330)))"
-"((letrec-values(((for-loop_290)"
+"((letrec-values(((for-loop_291)"
 "(lambda(fold-var_307 lst_331 lst_332 lst_333)"
 "(begin"
 " 'for-loop"
@@ -63374,10 +63388,10 @@ static const char *startup_source =
 " fold-var_309))))"
 "(values fold-var_310)))))"
 "(if(not #f)"
-"(for-loop_290 fold-var_308 rest_192 rest_193 rest_194)"
+"(for-loop_291 fold-var_308 rest_192 rest_193 rest_194)"
 " fold-var_308)))"
 " fold-var_307)))))"
-" for-loop_290)"
+" for-loop_291)"
 " null"
 " lst_328"
 " lst_329"
@@ -63430,9 +63444,9 @@ static const char *startup_source =
 "(lambda-clause-expander)"
 "(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)"
 "(begin"
-"(let-values(((sc_37)(new-scope 'local)))"
+"(let-values(((sc_38)(new-scope 'local)))"
 "(let-values(((phase_85)(expand-context-phase ctx_80)))"
-"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_37 disarmed-s_5)))"
+"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_38 disarmed-s_5)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids33_0) ids_35)"
@@ -63521,7 +63535,7 @@ static const char *startup_source =
 "(expand-context-env ctx_80)"
 " lst_80"
 " lst_91)))))"
-"(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))"
+"(let-values(((sc-formals_0)(add-scope formals_1 sc_38)))"
 "(let-values(((sc-bodys_0)"
 "(reverse$1"
 "(let-values(((lst_17) bodys_9))"
@@ -63545,7 +63559,7 @@ static const char *startup_source =
 "(let-values()"
 "(add-scope"
 " body_10"
-" sc_37))"
+" sc_38))"
 " fold-var_75))))"
 "(values fold-var_65)))))"
 "(if(not #f)"
@@ -63573,9 +63587,9 @@ static const char *startup_source =
 "(let-values(((the-struct_95) v_265))"
 "(if(expand-context/outer? the-struct_95)"
 "(let-values(((env41_0) body-env_0)"
-"((scopes42_0)(cons sc_37(expand-context-scopes ctx_80)))"
+"((scopes42_0)(cons sc_38(expand-context-scopes ctx_80)))"
 "((binding-layer43_0)"
-"(increment-binding-layer ids_35 ctx_80 sc_37))"
+"(increment-binding-layer ids_35 ctx_80 sc_38))"
 "((frame-id44_0) #f)"
 "((inner45_1)(root-expand-context/outer-inner v_265)))"
 "(expand-context/outer1.1"
@@ -63771,7 +63785,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list lst_334)))"
-"((letrec-values(((for-loop_291)"
+"((letrec-values(((for-loop_292)"
 "(lambda(formals_4"
 " body_13"
 " lst_335)"
@@ -63858,7 +63872,7 @@ static const char *startup_source =
 " body_16)))))"
 "(if(not"
 " #f)"
-"(for-loop_291"
+"(for-loop_292"
 " formals_5"
 " body_14"
 " rest_197)"
@@ -63868,7 +63882,7 @@ static const char *startup_source =
 "(values"
 " formals_4"
 " body_13))))))"
-" for-loop_291)"
+" for-loop_292)"
 " null"
 " null"
 " lst_334)))))"
@@ -64000,14 +64014,14 @@ static const char *startup_source =
 "(rebuild5.1 #t rebuild-s99_0 temp100_3))))))))))))"
 "(define-values"
 "(parse-and-flatten-formals)"
-"(lambda(all-formals_0 sc_38 s_529)"
+"(lambda(all-formals_0 sc_39 s_529)"
 "(begin"
 "((letrec-values(((loop_122)"
 "(lambda(formals_9)"
 "(begin"
 " 'loop"
 "(if(identifier? formals_9)"
-"(let-values()(list(add-scope formals_9 sc_38)))"
+"(let-values()(list(add-scope formals_9 sc_39)))"
 "(if(syntax?$1 formals_9)"
 "(let-values()"
 "(let-values(((p_86)(syntax-e$1 formals_9)))"
@@ -64024,7 +64038,7 @@ static const char *startup_source =
 "(let-values()"
 "                                          (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))"
 "(cons"
-"(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))"
+"(if sc_39(add-scope(car formals_9) sc_39)(car formals_9))"
 "(loop_122(cdr formals_9)))))"
 "(if(null? formals_9)"
 "(let-values() null)"
@@ -64137,7 +64151,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_339)))"
-"((letrec-values(((for-loop_292)"
+"((letrec-values(((for-loop_293)"
 "(lambda(id:trans_1"
 " trans-rhs_1"
 " lst_340)"
@@ -64202,7 +64216,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_341)))"
-"((letrec-values(((for-loop_293)"
+"((letrec-values(((for-loop_294)"
 "(lambda(id:trans_6"
 " lst_216)"
 "(begin"
@@ -64222,15 +64236,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:trans146_0)"
 "(let-values()"
-"(if(let-values(((or-part_343)"
+"(if(let-values(((or-part_342)"
 "(if(syntax?$1"
 " s_533)"
 "(symbol?"
 "(syntax-e$1"
 " s_533))"
 " #f)))"
-"(if or-part_343"
-" or-part_343"
+"(if or-part_342"
+" or-part_342"
 "(symbol?"
 " s_533)))"
 " s_533"
@@ -64246,12 +64260,12 @@ static const char *startup_source =
 " id:trans_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_293"
+"(for-loop_294"
 " id:trans_7"
 " rest_202)"
 " id:trans_7)))"
 " id:trans_6)))))"
-" for-loop_293)"
+" for-loop_294)"
 " null"
 " lst_341)))))"
 "(reverse$1"
@@ -64315,7 +64329,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_201)"
@@ -64325,7 +64339,7 @@ static const char *startup_source =
 "(values"
 " id:trans_1"
 " trans-rhs_1))))))"
-" for-loop_292)"
+" for-loop_293)"
 " null"
 " null"
 " lst_339)))))"
@@ -64380,7 +64394,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_342)))"
-"((letrec-values(((for-loop_294)"
+"((letrec-values(((for-loop_295)"
 "(lambda(id:val_1"
 " val-rhs_2"
 " lst_343)"
@@ -64445,7 +64459,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_344)))"
-"((letrec-values(((for-loop_295)"
+"((letrec-values(((for-loop_296)"
 "(lambda(id:val_6"
 " lst_123)"
 "(begin"
@@ -64465,15 +64479,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val149_0)"
 "(let-values()"
-"(if(let-values(((or-part_381)"
+"(if(let-values(((or-part_380)"
 "(if(syntax?$1"
 " s_540)"
 "(symbol?"
 "(syntax-e$1"
 " s_540))"
 " #f)))"
-"(if or-part_381"
-" or-part_381"
+"(if or-part_380"
+" or-part_380"
 "(symbol?"
 " s_540)))"
 " s_540"
@@ -64489,12 +64503,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_344)))))"
 "(reverse$1"
@@ -64558,7 +64572,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_203)"
@@ -64568,7 +64582,7 @@ static const char *startup_source =
 "(values"
 " id:val_1"
 " val-rhs_2))))))"
-" for-loop_294)"
+" for-loop_295)"
 " null"
 " null"
 " lst_342)))))"
@@ -64694,7 +64708,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_306)))"
-"((letrec-values(((for-loop_296)"
+"((letrec-values(((for-loop_297)"
 "(lambda(id:val_11"
 " val-rhs_7"
 " lst_345)"
@@ -64759,7 +64773,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_346)))"
-"((letrec-values(((for-loop_297)"
+"((letrec-values(((for-loop_298)"
 "(lambda(id:val_16"
 " lst_347)"
 "(begin"
@@ -64779,15 +64793,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val152_0)"
 "(let-values()"
-"(if(let-values(((or-part_382)"
+"(if(let-values(((or-part_381)"
 "(if(syntax?$1"
 " s_547)"
 "(symbol?"
 "(syntax-e$1"
 " s_547))"
 " #f)))"
-"(if or-part_382"
-" or-part_382"
+"(if or-part_381"
+" or-part_381"
 "(symbol?"
 " s_547)))"
 " s_547"
@@ -64803,12 +64817,12 @@ static const char *startup_source =
 " id:val_19)))))"
 "(if(not"
 " #f)"
-"(for-loop_297"
+"(for-loop_298"
 " id:val_17"
 " rest_205)"
 " id:val_17)))"
 " id:val_16)))))"
-" for-loop_297)"
+" for-loop_298)"
 " null"
 " lst_346)))))"
 "(reverse$1"
@@ -64872,7 +64886,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_204)"
@@ -64882,7 +64896,7 @@ static const char *startup_source =
 "(values"
 " id:val_11"
 " val-rhs_7))))))"
-" for-loop_296)"
+" for-loop_297)"
 " null"
 " null"
 " lst_306)))))"
@@ -64936,7 +64950,7 @@ static const char *startup_source =
 "                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))"
 "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))"
 "(values #f #f #f #f #f)))))"
-"(let-values(((sc_39)(new-scope 'local)))"
+"(let-values(((sc_40)(new-scope 'local)))"
 "(let-values(((phase_84)(expand-context-phase ctx_83)))"
 "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))"
 "(let-values(((trans-idss_2)"
@@ -64946,7 +64960,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_348)))"
-"((letrec-values(((for-loop_298)"
+"((letrec-values(((for-loop_299)"
 "(lambda(fold-var_314 lst_349)"
 "(begin"
 " 'for-loop"
@@ -64972,7 +64986,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_350)))"
-"((letrec-values(((for-loop_299)"
+"((letrec-values(((for-loop_300)"
 "(lambda(fold-var_315"
 " lst_351)"
 "(begin"
@@ -64994,28 +65008,28 @@ static const char *startup_source =
 "(let-values()"
 "(add-scope"
 " id_115"
-" sc_39))"
+" sc_40))"
 " fold-var_317))))"
 "(values"
 " fold-var_318)))))"
 "(if(not"
 " #f)"
-"(for-loop_299"
+"(for-loop_300"
 " fold-var_316"
 " rest_207)"
 " fold-var_316)))"
 " fold-var_315)))))"
-" for-loop_299)"
+" for-loop_300)"
 " null"
 " lst_350)))))"
 " fold-var_114))))"
 "(values"
 " fold-var_115)))))"
 "(if(not #f)"
-"(for-loop_298 fold-var_113 rest_206)"
+"(for-loop_299 fold-var_113 rest_206)"
 " fold-var_113)))"
 " fold-var_314)))))"
-" for-loop_298)"
+" for-loop_299)"
 " null"
 " lst_348))))))"
 "(let-values(((val-idss_3)"
@@ -65025,7 +65039,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_352)))"
-"((letrec-values(((for-loop_300)"
+"((letrec-values(((for-loop_301)"
 "(lambda(fold-var_319 lst_353)"
 "(begin"
 " 'for-loop"
@@ -65051,7 +65065,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_354)))"
-"((letrec-values(((for-loop_301)"
+"((letrec-values(((for-loop_302)"
 "(lambda(fold-var_323"
 " lst_355)"
 "(begin"
@@ -65073,30 +65087,30 @@ static const char *startup_source =
 "(let-values()"
 "(add-scope"
 " id_116"
-" sc_39))"
+" sc_40))"
 " fold-var_325))))"
 "(values"
 " fold-var_326)))))"
 "(if(not"
 " #f)"
-"(for-loop_301"
+"(for-loop_302"
 " fold-var_324"
 " rest_209)"
 " fold-var_324)))"
 " fold-var_323)))))"
-" for-loop_301)"
+" for-loop_302)"
 " null"
 " lst_354)))))"
 " fold-var_321))))"
 "(values"
 " fold-var_322)))))"
 "(if(not #f)"
-"(for-loop_300"
+"(for-loop_301"
 " fold-var_320"
 " rest_208)"
 " fold-var_320)))"
 " fold-var_319)))))"
-" for-loop_300)"
+" for-loop_301)"
 " null"
 " lst_352))))))"
 "(let-values(((val-rhss_3)"
@@ -65108,7 +65122,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_356)))"
-"((letrec-values(((for-loop_302)"
+"((letrec-values(((for-loop_303)"
 "(lambda(fold-var_327 lst_357)"
 "(begin"
 " 'for-loop"
@@ -65126,17 +65140,17 @@ static const char *startup_source =
 "(let-values()"
 "(add-scope"
 " rhs_20"
-" sc_39))"
+" sc_40))"
 " fold-var_329))))"
 "(values"
 " fold-var_330)))))"
 "(if(not #f)"
-"(for-loop_302"
+"(for-loop_303"
 " fold-var_328"
 " rest_210)"
 " fold-var_328)))"
 " fold-var_327)))))"
-" for-loop_302)"
+" for-loop_303)"
 " null"
 " lst_356))))"
 "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))"
@@ -65347,7 +65361,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_358)))"
-"((letrec-values(((for-loop_303)"
+"((letrec-values(((for-loop_304)"
 "(lambda(fold-var_331 lst_359)"
 "(begin"
 " 'for-loop"
@@ -65375,7 +65389,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_360)))"
-"((letrec-values(((for-loop_304)"
+"((letrec-values(((for-loop_305)"
 "(lambda(fold-var_335"
 " lst_361)"
 "(begin"
@@ -65416,24 +65430,24 @@ static const char *startup_source =
 " fold-var_338)))))"
 "(if(not"
 " #f)"
-"(for-loop_304"
+"(for-loop_305"
 " fold-var_336"
 " rest_212)"
 " fold-var_336)))"
 " fold-var_335)))))"
-" for-loop_304)"
+" for-loop_305)"
 " null"
 " lst_360)))))"
 " fold-var_333))))"
 "(values"
 " fold-var_334)))))"
 "(if(not #f)"
-"(for-loop_303"
+"(for-loop_304"
 " fold-var_332"
 " rest_211)"
 " fold-var_332)))"
 " fold-var_331)))))"
-" for-loop_303)"
+" for-loop_304)"
 " null"
 " lst_358))))))"
 "(let-values(((val-keyss_2)"
@@ -65444,7 +65458,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_362)))"
-"((letrec-values(((for-loop_305)"
+"((letrec-values(((for-loop_306)"
 "(lambda(fold-var_339 lst_363)"
 "(begin"
 " 'for-loop"
@@ -65472,7 +65486,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_342"
 " lst_364)"
 "(begin"
@@ -65513,24 +65527,24 @@ static const char *startup_source =
 " fold-var_345)))))"
 "(if(not"
 " #f)"
-"(for-loop_306"
+"(for-loop_307"
 " fold-var_343"
 " rest_214)"
 " fold-var_343)))"
 " fold-var_342)))))"
-" for-loop_306)"
+" for-loop_307)"
 " null"
 " lst_131)))))"
 " fold-var_341))))"
 "(values"
 " fold-var_118)))))"
 "(if(not #f)"
-"(for-loop_305"
+"(for-loop_306"
 " fold-var_340"
 " rest_213)"
 " fold-var_340)))"
 " fold-var_339)))))"
-" for-loop_305)"
+" for-loop_306)"
 " null"
 " lst_362))))))"
 "(let-values(((bodys_10)"
@@ -65542,7 +65556,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_365)))"
-"((letrec-values(((for-loop_307)"
+"((letrec-values(((for-loop_308)"
 "(lambda(fold-var_346 lst_366)"
 "(begin"
 " 'for-loop"
@@ -65562,17 +65576,17 @@ static const char *startup_source =
 "(let-values()"
 "(add-scope"
 " body_18"
-" sc_39))"
+" sc_40))"
 " fold-var_347))))"
 "(values"
 " fold-var_48)))))"
 "(if(not #f)"
-"(for-loop_307"
+"(for-loop_308"
 " fold-var_123"
 " rest_215)"
 " fold-var_123)))"
 " fold-var_346)))))"
-" for-loop_307)"
+" for-loop_308)"
 " null"
 " lst_365))))))"
 "(let-values((()"
@@ -65589,7 +65603,7 @@ static const char *startup_source =
 " bodys_10"
 " trans-idss_2"
 "(if syntaxes?_0 trans-rhs103_0 #f)"
-" sc_39))"
+" sc_40))"
 "(void)))"
 "(values))))"
 "(let-values((()"
@@ -65626,7 +65640,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_367)))"
-"((letrec-values(((for-loop_308)"
+"((letrec-values(((for-loop_309)"
 "(lambda(fold-var_348"
 " lst_368"
 " lst_369)"
@@ -65676,7 +65690,7 @@ static const char *startup_source =
 " 'letrec-syntaxes+values"
 "(add-scope"
 " rhs_21"
-" sc_39)"
+" sc_40)"
 " ids_41"
 " ctx_83)))"
 "(begin"
@@ -65695,13 +65709,13 @@ static const char *startup_source =
 "(values"
 " fold-var_351)))))"
 "(if(not #f)"
-"(for-loop_308"
+"(for-loop_309"
 " fold-var_349"
 " rest_216"
 " rest_217)"
 " fold-var_349)))"
 " fold-var_348)))))"
-" for-loop_308)"
+" for-loop_309)"
 " null"
 " lst_63"
 " lst_367))))))"
@@ -65717,7 +65731,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_371"
 " lst_372)"
@@ -65759,7 +65773,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_374)))"
-"((letrec-values(((for-loop_310)"
+"((letrec-values(((for-loop_311)"
 "(lambda(env_32"
 " lst_375"
 " lst_376)"
@@ -65796,24 +65810,24 @@ static const char *startup_source =
 " env_35)))))"
 "(if(not"
 " #f)"
-"(for-loop_310"
+"(for-loop_311"
 " env_33"
 " rest_220"
 " rest_221)"
 " env_33)))"
 " env_32)))))"
-" for-loop_310)"
+" for-loop_311)"
 " env_31"
 " lst_373"
 " lst_374))))))"
 "(if(not #f)"
-"(for-loop_309"
+"(for-loop_310"
 " env_30"
 " rest_218"
 " rest_219)"
 " env_30)))"
 " env_29)))))"
-" for-loop_309)"
+" for-loop_310)"
 "(expand-context-env ctx_83)"
 " lst_370"
 " lst_135)))))"
@@ -65834,7 +65848,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_379)))"
-"((letrec-values(((for-loop_311)"
+"((letrec-values(((for-loop_312)"
 "(lambda(env_36"
 " lst_380"
 " lst_381"
@@ -65897,7 +65911,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_385)))"
-"((letrec-values(((for-loop_312)"
+"((letrec-values(((for-loop_313)"
 "(lambda(env_40"
 " lst_386"
 " lst_387"
@@ -65949,14 +65963,14 @@ static const char *startup_source =
 " env_43)))))"
 "(if(not"
 " #f)"
-"(for-loop_312"
+"(for-loop_313"
 " env_41"
 " rest_225"
 " rest_226"
 " rest_227)"
 " env_41)))"
 " env_40)))))"
-" for-loop_312)"
+" for-loop_313)"
 " env_38"
 " lst_383"
 " lst_384"
@@ -65964,14 +65978,14 @@ static const char *startup_source =
 "(values"
 " env_39)))))"
 "(if(not #f)"
-"(for-loop_311"
+"(for-loop_312"
 " env_37"
 " rest_222"
 " rest_223"
 " rest_224)"
 " env_37)))"
 " env_36)))))"
-" for-loop_311)"
+" for-loop_312)"
 " rec-val-env_0"
 " lst_377"
 " lst_378"
@@ -65990,7 +66004,7 @@ static const char *startup_source =
 " rec-env_0)"
 "((scopes185_0)"
 "(cons"
-" sc_39"
+" sc_40"
 "(expand-context-scopes"
 " ctx_83)))"
 "((reference-records186_0)"
@@ -66005,7 +66019,7 @@ static const char *startup_source =
 " trans-idss_2"
 " val-idss_3)"
 " ctx_83"
-" sc_39))"
+" sc_40))"
 "((inner188_0)"
 "(root-expand-context/outer-inner"
 " v_185)))"
@@ -66103,7 +66117,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_389)))"
-"((letrec-values(((for-loop_313)"
+"((letrec-values(((for-loop_314)"
 "(lambda(fold-var_356"
 " lst_390)"
 "(begin"
@@ -66134,12 +66148,12 @@ static const char *startup_source =
 " fold-var_358)))))"
 "(if(not"
 " #f)"
-"(for-loop_313"
+"(for-loop_314"
 " fold-var_357"
 " rest_228)"
 " fold-var_357)))"
 " fold-var_356)))))"
-" for-loop_313)"
+" for-loop_314)"
 " null"
 " lst_389)))))"
 " fold-var_354))))"
@@ -66301,7 +66315,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_392)))"
-"((letrec-values(((for-loop_314)"
+"((letrec-values(((for-loop_315)"
 "(lambda(fold-var_359"
 " lst_393"
 " lst_394"
@@ -66398,7 +66412,7 @@ static const char *startup_source =
 " fold-var_361)))))"
 "(if(not"
 " #f)"
-"(for-loop_314"
+"(for-loop_315"
 " fold-var_51"
 " rest_229"
 " rest_230"
@@ -66406,7 +66420,7 @@ static const char *startup_source =
 " rest_232)"
 " fold-var_51)))"
 " fold-var_359)))))"
-" for-loop_314)"
+" for-loop_315)"
 " null"
 " lst_150"
 " lst_391"
@@ -66486,7 +66500,7 @@ static const char *startup_source =
 " trans-idss_2))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(log-let-renames)"
-"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_40)"
+"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_41)"
 "(begin"
 "(let-values(((vals+body_0)"
 "(cons"
@@ -66499,7 +66513,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_398)))"
-"((letrec-values(((for-loop_315)"
+"((letrec-values(((for-loop_316)"
 "(lambda(fold-var_362 lst_399 lst_400)"
 "(begin"
 " 'for-loop"
@@ -66520,10 +66534,10 @@ static const char *startup_source =
 " fold-var_364))))"
 "(values fold-var_365)))))"
 "(if(not #f)"
-"(for-loop_315 fold-var_363 rest_233 rest_234)"
+"(for-loop_316 fold-var_363 rest_233 rest_234)"
 " fold-var_363)))"
 " fold-var_362)))))"
-" for-loop_315)"
+" for-loop_316)"
 " null"
 " lst_397"
 " lst_398))))"
@@ -66543,7 +66557,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_402)))"
-"((letrec-values(((for-loop_316)"
+"((letrec-values(((for-loop_317)"
 "(lambda(fold-var_366 lst_403 lst_404)"
 "(begin"
 " 'for-loop"
@@ -66562,12 +66576,12 @@ static const char *startup_source =
 " #f"
 "(list"
 " trans-ids_0"
-"(add-scope trans-rhs_5 sc_40))))"
+"(add-scope trans-rhs_5 sc_41))))"
 " fold-var_368))))"
 "(values fold-var_369)))))"
-"(if(not #f)(for-loop_316 fold-var_367 rest_235 rest_236) fold-var_367)))"
+"(if(not #f)(for-loop_317 fold-var_367 rest_235 rest_236) fold-var_367)))"
 " fold-var_366)))))"
-" for-loop_316)"
+" for-loop_317)"
 " null"
 " lst_401"
 " lst_402))))"
@@ -66770,7 +66784,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_405)))"
-"((letrec-values(((for-loop_317)"
+"((letrec-values(((for-loop_318)"
 "(lambda(fold-var_370 lst_406)"
 "(begin"
 " 'for-loop"
@@ -66810,17 +66824,17 @@ static const char *startup_source =
 "(values"
 " fold-var_373)))))"
 "(if(not #f)"
-"(for-loop_317 fold-var_371 rest_237)"
+"(for-loop_318 fold-var_371 rest_237)"
 " fold-var_371)))"
 " fold-var_370)))))"
-" for-loop_317)"
+" for-loop_318)"
 " null"
 " lst_405))))))"
 "(if(expand-context-to-parsed? ctx_86)"
 "(let-values()"
 "(parsed-app7.1"
-"(let-values(((or-part_383) rebuild-prefixless_0))"
-"(if or-part_383 or-part_383 rebuild-s_8))"
+"(let-values(((or-part_382) rebuild-prefixless_0))"
+"(if or-part_382 or-part_382 rebuild-s_8))"
 " exp-rator_0"
 " exp-es_0))"
 "(let-values()"
@@ -67558,8 +67572,8 @@ static const char *startup_source =
 "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))"
 "(lambda(s_683 ctx_92)"
 "(let-values(((context_25)(expand-context-context ctx_92)))"
-"(if(let-values(((or-part_384)(eq? context_25 'top-level)))"
-"(if or-part_384 or-part_384(eq? context_25 'module)))"
+"(if(let-values(((or-part_383)(eq? context_25 'top-level)))"
+"(if or-part_383 or-part_383(eq? context_25 'module)))"
 "(let-values()"
 "(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))"
 "(let-values(((ok?_56 begin366_0)"
@@ -67650,15 +67664,15 @@ static const char *startup_source =
 "(let-values(((s_697)"
 "(cdr"
 " s_695)))"
-"(if(let-values(((or-part_385)"
+"(if(let-values(((or-part_384)"
 "(if(syntax?$1"
 " s_697)"
 "(symbol?"
 "(syntax-e$1"
 " s_697))"
 " #f)))"
-"(if or-part_385"
-" or-part_385"
+"(if or-part_384"
+" or-part_384"
 "(symbol?"
 " s_697)))"
 " s_697"
@@ -67751,15 +67765,15 @@ static const char *startup_source =
 "(let-values(((s_701)"
 "(cdr"
 " s_699)))"
-"(if(let-values(((or-part_386)"
+"(if(let-values(((or-part_385)"
 "(if(syntax?$1"
 " s_701)"
 "(symbol?"
 "(syntax-e$1"
 " s_701))"
 " #f)))"
-"(if or-part_386"
-" or-part_386"
+"(if or-part_385"
+" or-part_385"
 "(symbol?"
 " s_701)))"
 " s_701"
@@ -67812,14 +67826,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_387)"
+"(if(let-values(((or-part_386)"
 "(if(syntax?$1 s_710)"
 "(symbol?"
 "(syntax-e$1"
 " s_710))"
 " #f)))"
-"(if or-part_387"
-" or-part_387"
+"(if or-part_386"
+" or-part_386"
 "(symbol? s_710)))"
 " s_710"
 "(raise-syntax-error$1"
@@ -67902,14 +67916,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()(call-expand-observe obs_119 'resolve id_123)))"
 "(void)))"
-"(if(let-values(((or-part_388)(variable? t_62)))"
+"(if(let-values(((or-part_387)(variable? t_62)))"
+"(if or-part_387"
+" or-part_387"
+"(if(not binding_29)"
+"(let-values(((or-part_388)"
+"(register-eventual-variable!? id_123 ctx_97)))"
 "(if or-part_388"
 " or-part_388"
-"(if(not binding_29)"
-"(let-values(((or-part_389)"
-"(register-eventual-variable!? id_123 ctx_97)))"
-"(if or-part_389"
-" or-part_389"
 "(expand-context-allow-unbound? ctx_97)))"
 " #f)))"
 "(let-values()"
@@ -68072,8 +68086,8 @@ static const char *startup_source =
 "(let-values(((ctx_98) ctx30_0))"
 "(let-values(((t_63) t23_0))"
 "(let-values()"
-"(if(let-values(((or-part_390) t_63))"
-"(if or-part_390 or-part_390 from-rename?_1))"
+"(if(let-values(((or-part_389) t_63))"
+"(if or-part_389 or-part_389 from-rename?_1))"
 "(let-values()"
 "(let-values(((new-id_1)"
 "(if t_63"
@@ -68113,9 +68127,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_391)"
+"(let-values(((or-part_390)"
 "(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))"
-"(if or-part_391 or-part_391(symbol? s_725))))"
+"(if or-part_390 or-part_390(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)))"
@@ -68162,11 +68176,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_392)"
+"(let-values(((or-part_391)"
 "(if(syntax?$1 s_743)"
 "(symbol?(syntax-e$1 s_743))"
 " #f)))"
-"(if or-part_392 or-part_392(symbol? s_743))))"
+"(if or-part_391 or-part_391(symbol? s_743))))"
 " #f)"
 " #f)))"
 "(let-values(((s_744)(cdr s_739)))"
@@ -68218,7 +68232,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_393) ok?_60))(if or-part_393 or-part_393 ok?_61)))"
+"(if(if(not(let-values(((or-part_392) ok?_60))(if or-part_392 or-part_392 ok?_61)))"
 " #t"
 " #f)"
 "(let-values(((orig-s_60) s_756))"
@@ -68243,7 +68257,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_394) ok?_60))(if or-part_394 or-part_394 ok?_61))"
+"(if(let-values(((or-part_393) ok?_60))(if or-part_393 or-part_393 ok?_61))"
 "(let-values()"
 "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))"
 "(let-values(((binding_30)"
@@ -68259,8 +68273,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_395) binding_30))"
-"(if or-part_395 or-part_395(expand-context-allow-unbound? ctx_101)))"
+"(if(let-values(((or-part_394) binding_30))"
+"(if or-part_394 or-part_394(expand-context-allow-unbound? ctx_101)))"
 "(void)"
 "(let-values()"
 "(raise-unbound-syntax-error"
@@ -68355,11 +68369,11 @@ static const char *startup_source =
 "(expand9.1 #f #f #f temp463_0 temp464_0))))"
 "(if(expand-context-to-parsed? ctx_102)"
 " exp-e_0"
-"(if(let-values(((or-part_396)"
+"(if(let-values(((or-part_395)"
 "(if(expand-context-in-local-expand? ctx_102)"
 "(expand-context-keep-#%expression? ctx_102)"
 " #f)))"
-"(if or-part_396 or-part_396(eq? 'top-level(expand-context-context ctx_102))))"
+"(if or-part_395 or-part_395(eq? 'top-level(expand-context-context ctx_102))))"
 "(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)))"
@@ -69038,15 +69052,15 @@ static const char *startup_source =
 "(let-values(((s_203)"
 "(car"
 " s_61)))"
-"(if(let-values(((or-part_397)"
+"(if(let-values(((or-part_396)"
 "(if(syntax?$1"
 " s_203)"
 "(symbol?"
 "(syntax-e$1"
 " s_203))"
 " #f)))"
-"(if or-part_397"
-" or-part_397"
+"(if or-part_396"
+" or-part_396"
 "(symbol?"
 " s_203)))"
 " s_203"
@@ -69165,15 +69179,15 @@ static const char *startup_source =
 "(let-values(((s_779)"
 "(car"
 " s_319)))"
-"(if(let-values(((or-part_398)"
+"(if(let-values(((or-part_397)"
 "(if(syntax?$1"
 " s_779)"
 "(symbol?"
 "(syntax-e$1"
 " s_779))"
 " #f)))"
-"(if or-part_398"
-" or-part_398"
+"(if or-part_397"
+" or-part_397"
 "(symbol?"
 " s_779)))"
 " s_779"
@@ -69225,7 +69239,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_53)))"
-"((letrec-values(((for-loop_318)"
+"((letrec-values(((for-loop_319)"
 "(lambda(id:field_1"
 " lst_272)"
 "(begin"
@@ -69245,15 +69259,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:field49_0)"
 "(let-values()"
-"(if(let-values(((or-part_399)"
+"(if(let-values(((or-part_398)"
 "(if(syntax?$1"
 " s_782)"
 "(symbol?"
 "(syntax-e$1"
 " s_782))"
 " #f)))"
-"(if or-part_399"
-" or-part_399"
+"(if or-part_398"
+" or-part_398"
 "(symbol?"
 " s_782)))"
 " s_782"
@@ -69269,12 +69283,12 @@ static const char *startup_source =
 " id:field_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_318"
+"(for-loop_319"
 " id:field_2"
 " rest_239)"
 " id:field_2)))"
 " id:field_1)))))"
-" for-loop_318)"
+" for-loop_319)"
 " null"
 " lst_53)))))"
 "(reverse$1"
@@ -69511,7 +69525,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_408)))"
-"((letrec-values(((for-loop_319)"
+"((letrec-values(((for-loop_320)"
 "(lambda(id_129"
 " lst_409)"
 "(begin"
@@ -69531,15 +69545,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id63_0)"
 "(let-values()"
-"(if(let-values(((or-part_400)"
+"(if(let-values(((or-part_399)"
 "(if(syntax?$1"
 " s_786)"
 "(symbol?"
 "(syntax-e$1"
 " s_786))"
 " #f)))"
-"(if or-part_400"
-" or-part_400"
+"(if or-part_399"
+" or-part_399"
 "(symbol?"
 " s_786)))"
 " s_786"
@@ -69555,12 +69569,12 @@ static const char *startup_source =
 " id_132)))))"
 "(if(not"
 " #f)"
-"(for-loop_319"
+"(for-loop_320"
 " id_130"
 " rest_240)"
 " id_130)))"
 " id_129)))))"
-" for-loop_319)"
+" for-loop_320)"
 " null"
 " lst_408)))))"
 "(reverse$1"
@@ -69752,15 +69766,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id70_0)"
 "(let-values()"
-"(if(let-values(((or-part_290)"
+"(if(let-values(((or-part_289)"
 "(if(syntax?$1"
 " s_464)"
 "(symbol?"
 "(syntax-e$1"
 " s_464))"
 " #f)))"
-"(if or-part_290"
-" or-part_290"
+"(if or-part_289"
+" or-part_289"
 "(symbol?"
 " s_464)))"
 " s_464"
@@ -69859,15 +69873,15 @@ static const char *startup_source =
 "(let-values(((s_331)"
 "(car"
 " s_236)))"
-"(if(let-values(((or-part_292)"
+"(if(let-values(((or-part_291)"
 "(if(syntax?$1"
 " s_331)"
 "(symbol?"
 "(syntax-e$1"
 " s_331))"
 " #f)))"
-"(if or-part_292"
-" or-part_292"
+"(if or-part_291"
+" or-part_291"
 "(symbol?"
 " s_331)))"
 " s_331"
@@ -69976,15 +69990,15 @@ static const char *startup_source =
 "(let-values(((s_535)"
 "(car"
 " s_243)))"
-"(if(let-values(((or-part_346)"
+"(if(let-values(((or-part_345)"
 "(if(syntax?$1"
 " s_535)"
 "(symbol?"
 "(syntax-e$1"
 " s_535))"
 " #f)))"
-"(if or-part_346"
-" or-part_346"
+"(if or-part_345"
+" or-part_345"
 "(symbol?"
 " s_535)))"
 " s_535"
@@ -70024,7 +70038,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_411)))"
-"((letrec-values(((for-loop_320)"
+"((letrec-values(((for-loop_321)"
 "(lambda(id_37"
 " lst_412)"
 "(begin"
@@ -70044,15 +70058,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id84_3)"
 "(let-values()"
-"(if(let-values(((or-part_401)"
+"(if(let-values(((or-part_400)"
 "(if(syntax?$1"
 " s_796)"
 "(symbol?"
 "(syntax-e$1"
 " s_796))"
 " #f)))"
-"(if or-part_401"
-" or-part_401"
+"(if or-part_400"
+" or-part_400"
 "(symbol?"
 " s_796)))"
 " s_796"
@@ -70068,12 +70082,12 @@ static const char *startup_source =
 " id_140)))))"
 "(if(not"
 " #f)"
-"(for-loop_320"
+"(for-loop_321"
 " id_138"
 " rest_242)"
 " id_138)))"
 " id_37)))))"
-" for-loop_320)"
+" for-loop_321)"
 " null"
 " lst_411)))))"
 "(reverse$1"
@@ -70169,15 +70183,15 @@ static const char *startup_source =
 "(let-values(((s_373)"
 "(car"
 " s_371)))"
-"(if(let-values(((or-part_402)"
+"(if(let-values(((or-part_401)"
 "(if(syntax?$1"
 " s_373)"
 "(symbol?"
 "(syntax-e$1"
 " s_373))"
 " #f)))"
-"(if or-part_402"
-" or-part_402"
+"(if or-part_401"
+" or-part_401"
 "(symbol?"
 " s_373)))"
 " s_373"
@@ -70619,7 +70633,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_413)))"
-"((letrec-values(((for-loop_321)"
+"((letrec-values(((for-loop_322)"
 "(lambda(lst_414)"
 "(begin"
 " 'for-loop"
@@ -70642,9 +70656,9 @@ static const char *startup_source =
 " protected?_17)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_321 rest_243)(values))))"
+"(if(not #f)(for-loop_322 rest_243)(values))))"
 "(values))))))"
-" for-loop_321)"
+" for-loop_322)"
 " lst_413)))"
 "(void)"
 "(let-values(((lst_415) fields_0))"
@@ -70652,7 +70666,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_415)))"
-"((letrec-values(((for-loop_322)"
+"((letrec-values(((for-loop_323)"
 "(lambda(lst_416)"
 "(begin"
 " 'for-loop"
@@ -70689,9 +70703,9 @@ static const char *startup_source =
 " protected?_17)))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_322 rest_244)(values))))"
+"(if(not #f)(for-loop_323 rest_244)(values))))"
 "(values))))))"
-" for-loop_322)"
+" for-loop_323)"
 " lst_415)))"
 "(void)))))))"
 "(define-values"
@@ -70745,7 +70759,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_417)))"
-"((letrec-values(((for-loop_323)"
+"((letrec-values(((for-loop_324)"
 "(lambda(lst_418)"
 "(begin"
 " 'for-loop"
@@ -70763,7 +70777,7 @@ static const char *startup_source =
 "(let-values(((phase_144)"
 "(required-phase"
 " i_184)))"
-"(if(let-values(((or-part_403)"
+"(if(let-values(((or-part_402)"
 "(if matching-stx_0"
 "(not"
 "(if(eqv?"
@@ -70779,8 +70793,8 @@ static const char *startup_source =
 " phase_144)"
 " #f))"
 " #f)))"
-"(if or-part_403"
-" or-part_403"
+"(if or-part_402"
+" or-part_402"
 "(let-values(((lst_419)"
 " except-ids_1))"
 "(begin"
@@ -70790,7 +70804,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_419)))"
-"((letrec-values(((for-loop_324)"
+"((letrec-values(((for-loop_325)"
 "(lambda(result_126"
 " lst_420)"
 "(begin"
@@ -70827,12 +70841,12 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_324"
+"(for-loop_325"
 " result_127"
 " rest_246)"
 " result_127)))"
 " result_126)))))"
-" for-loop_324)"
+" for-loop_325)"
 " #f"
 " lst_419)))))"
 "(void)"
@@ -70890,9 +70904,9 @@ static const char *startup_source =
 " orig-s127_0)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_323 rest_245)(values))))"
+"(if(not #f)(for-loop_324 rest_245)(values))))"
 "(values))))))"
-" for-loop_323)"
+" for-loop_324)"
 " lst_417)))"
 "(void)"
 "(if(=(hash-count found_0)(length except-ids_1))"
@@ -70904,7 +70918,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_421)))"
-"((letrec-values(((for-loop_325)"
+"((letrec-values(((for-loop_326)"
 "(lambda(lst_422)"
 "(begin"
 " 'for-loop"
@@ -70917,13 +70931,13 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(if(let-values(((or-part_404)"
+"(if(let-values(((or-part_403)"
 "(hash-ref"
 " found_0"
 " except-id_1"
 " #f)))"
-"(if or-part_404"
-" or-part_404"
+"(if or-part_403"
+" or-part_403"
 "(let-values(((lst_423)"
 " requireds_2))"
 "(begin"
@@ -70933,7 +70947,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_423)))"
-"((letrec-values(((for-loop_326)"
+"((letrec-values(((for-loop_327)"
 "(lambda(result_129"
 " lst_424)"
 "(begin"
@@ -70971,12 +70985,12 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_326"
+"(for-loop_327"
 " result_130"
 " rest_248)"
 " result_130)))"
 " result_129)))))"
-" for-loop_326)"
+" for-loop_327)"
 " #f"
 " lst_423)))))"
 "(void)"
@@ -70992,9 +71006,9 @@ static const char *startup_source =
 " except-id_1))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_325 rest_247)(values))))"
+"(if(not #f)(for-loop_326 rest_247)(values))))"
 "(values))))))"
-" for-loop_325)"
+" for-loop_326)"
 " lst_421)))"
 "(void)))))))))))))"
 "(define-values"
@@ -71011,7 +71025,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_425)))"
-"((letrec-values(((for-loop_327)"
+"((letrec-values(((for-loop_328)"
 "(lambda(lst_85)"
 "(begin"
 " 'for-loop"
@@ -71059,9 +71073,9 @@ static const char *startup_source =
 " p_46))))))"
 "(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_425)))"
 "(void)))))"
 "((check-expr_0)"
@@ -71088,7 +71102,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"
@@ -71108,10 +71122,10 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_328 rest_249)"
+"(for-loop_329 rest_249)"
 "(values))))"
 "(values))))))"
-" for-loop_328)"
+" for-loop_329)"
 " lst_78)))"
 "(void)"
 "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))"
@@ -71219,9 +71233,9 @@ static const char *startup_source =
 "(if(let-values(((or-part_83)(not normal-b_1)))"
 "(if or-part_83"
 " or-part_83"
-"(let-values(((or-part_311)(parsed-top-id? id_4)))"
-"(if or-part_311"
-" or-part_311"
+"(let-values(((or-part_310)(parsed-top-id? id_4)))"
+"(if or-part_310"
+" or-part_310"
 "(if(not(symbol? normal-b_1))"
 "(eq?(module-binding-module normal-b_1) self-mpi_6)"
 " #f)))))"
@@ -71274,8 +71288,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_405)(parsed-quote-syntax? e_92)))"
-"(if or-part_405 or-part_405(parsed-#%variable-reference? e_92)))"
+"(if(let-values(((or-part_404)(parsed-quote-syntax? e_92)))"
+"(if or-part_404 or-part_404(parsed-#%variable-reference? e_92)))"
 "(let-values()(disallow e_92))"
 "(let-values()(void)))))))))))))))"
 "((check-body-no-disallowed-expr_0)"
@@ -71288,7 +71302,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"
@@ -71305,9 +71319,9 @@ static const char *startup_source =
 " e_82))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_329 rest_195)(values))))"
+"(if(not #f)(for-loop_330 rest_195)(values))))"
 "(values))))))"
-" for-loop_329)"
+" for-loop_330)"
 " lst_81)))"
 "(void))))))"
 "(check-body_0 bodys_13)))))"
@@ -73278,11 +73292,11 @@ static const char *startup_source =
 " self_32"
 " self_32)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_406)"
+"(if(let-values(((or-part_405)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_406"
-" or-part_406"
+"(if or-part_405"
+" or-part_405"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
@@ -73328,7 +73342,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_427)))"
-"((letrec-values(((for-loop_330)"
+"((letrec-values(((for-loop_331)"
 "(lambda(lst_428)"
 "(begin"
 " 'for-loop"
@@ -73352,11 +73366,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_330"
+"(for-loop_331"
 " rest_251)"
 "(values))))"
 "(values))))))"
-" for-loop_330)"
+" for-loop_331)"
 " lst_427)))"
 "(void)"
 "(let-values(((result-s_15)"
@@ -74037,7 +74051,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_255)))"
-"((letrec-values(((for-loop_331)"
+"((letrec-values(((for-loop_332)"
 "(lambda(fold-var_374"
 " lst_429)"
 "(begin"
@@ -74064,12 +74078,12 @@ static const char *startup_source =
 " fold-var_356)))))"
 "(if(not"
 " #f)"
-"(for-loop_331"
+"(for-loop_332"
 " fold-var_375"
 " rest_252)"
 " fold-var_375)))"
 " fold-var_374)))))"
-" for-loop_331)"
+" for-loop_332)"
 " null"
 " lst_255))))))"
 "(datum->syntax$1"
@@ -74176,7 +74190,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_430)"
 "(begin"
@@ -74196,15 +74210,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id495_0)"
 "(let-values()"
-"(if(let-values(((or-part_407)"
+"(if(let-values(((or-part_406)"
 "(if(syntax?$1"
 " s_827)"
 "(symbol?"
 "(syntax-e$1"
 " s_827))"
 " #f)))"
-"(if or-part_407"
-" or-part_407"
+"(if or-part_406"
+" or-part_406"
 "(symbol?"
 " s_827)))"
 " s_827"
@@ -74220,12 +74234,12 @@ static const char *startup_source =
 " id_149)))))"
 "(if(not"
 " #f)"
-"(for-loop_332"
+"(for-loop_333"
 " id_147"
 " rest_253)"
 " id_147)))"
 " id_146)))))"
-" for-loop_332)"
+" for-loop_333)"
 " null"
 " lst_70)))))"
 "(reverse$1"
@@ -74363,7 +74377,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_431)))"
-"((letrec-values(((for-loop_333)"
+"((letrec-values(((for-loop_334)"
 "(lambda(lst_432)"
 "(begin"
 " 'for-loop"
@@ -74389,11 +74403,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_333"
+"(for-loop_334"
 " rest_254)"
 "(values))))"
 "(values))))))"
-" for-loop_333)"
+" for-loop_334)"
 " lst_431)))"
 "(void)"
 "(let-values(((requires+provides492_0)"
@@ -74544,7 +74558,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_433)))"
-"((letrec-values(((for-loop_334)"
+"((letrec-values(((for-loop_335)"
 "(lambda(id_151"
 " lst_434)"
 "(begin"
@@ -74564,15 +74578,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id524_0)"
 "(let-values()"
-"(if(let-values(((or-part_408)"
+"(if(let-values(((or-part_407)"
 "(if(syntax?$1"
 " s_568)"
 "(symbol?"
 "(syntax-e$1"
 " s_568))"
 " #f)))"
-"(if or-part_408"
-" or-part_408"
+"(if or-part_407"
+" or-part_407"
 "(symbol?"
 " s_568)))"
 " s_568"
@@ -74588,12 +74602,12 @@ static const char *startup_source =
 " id_154)))))"
 "(if(not"
 " #f)"
-"(for-loop_334"
+"(for-loop_335"
 " id_152"
 " rest_255)"
 " id_152)))"
 " id_151)))))"
-" for-loop_334)"
+" for-loop_335)"
 " null"
 " lst_433)))))"
 "(reverse$1"
@@ -74895,7 +74909,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_437)))"
-"((letrec-values(((for-loop_335)"
+"((letrec-values(((for-loop_336)"
 "(lambda(lst_438"
 " lst_439"
 " lst_440)"
@@ -74948,13 +74962,13 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_335"
+"(for-loop_336"
 " rest_256"
 " rest_257"
 " rest_258)"
 "(values))))"
 "(values))))))"
-" for-loop_335)"
+" for-loop_336)"
 " lst_435"
 " lst_436"
 " lst_437)))"
@@ -75289,7 +75303,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_441)))"
-"((letrec-values(((for-loop_336)"
+"((letrec-values(((for-loop_337)"
 "(lambda(lst_442)"
 "(begin"
 " 'for-loop"
@@ -75351,11 +75365,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_336"
+"(for-loop_337"
 " rest_259)"
 "(values))))"
 "(values))))))"
-" for-loop_336)"
+" for-loop_337)"
 " lst_441)))"
 "(values))))"
 "(let-values()"
@@ -75411,7 +75425,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_443)))"
-"((letrec-values(((for-loop_337)"
+"((letrec-values(((for-loop_338)"
 "(lambda(fold-var_377 lst_444)"
 "(begin"
 " 'for-loop"
@@ -75429,9 +75443,9 @@ static const char *startup_source =
 " inside-scope_2))"
 " fold-var_379))))"
 "(values fold-var_380)))))"
-"(if(not #f)(for-loop_337 fold-var_378 rest_260) fold-var_378)))"
+"(if(not #f)(for-loop_338 fold-var_378 rest_260) fold-var_378)))"
 " fold-var_377)))))"
-" for-loop_337)"
+" for-loop_338)"
 " null"
 " lst_443))))))"
 "(let-values(((syms_25)"
@@ -75467,13 +75481,13 @@ static const char *startup_source =
 "(add-post-expansion-scope)"
 "(lambda(bodys_23 ctx_114)"
 "(begin"
-"(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_114)))"
-"(if sc_41"
+"(let-values(((sc_42)(root-expand-context-post-expansion-scope ctx_114)))"
+"(if sc_42"
 "(reverse$1"
 "(let-values(((lst_445) bodys_23))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))"
-"((letrec-values(((for-loop_338)"
+"((letrec-values(((for-loop_339)"
 "(lambda(fold-var_381 lst_446)"
 "(begin"
 " 'for-loop"
@@ -75484,12 +75498,12 @@ static const char *startup_source =
 "(let-values(((fold-var_384)"
 "(let-values()"
 "(cons"
-"(let-values()(add-scope body_21 sc_41))"
+"(let-values()(add-scope body_21 sc_42))"
 " fold-var_383))))"
 "(values fold-var_384)))))"
-"(if(not #f)(for-loop_338 fold-var_382 rest_261) fold-var_382)))"
+"(if(not #f)(for-loop_339 fold-var_382 rest_261) fold-var_382)))"
 " fold-var_381)))))"
-" for-loop_338)"
+" for-loop_339)"
 " null"
 " lst_445))))"
 " bodys_23)))))"
@@ -75574,14 +75588,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_409)"
+"(if(let-values(((or-part_408)"
 "(parsed? body_22)))"
+"(if or-part_408"
+" or-part_408"
+"(let-values(((or-part_409)"
+"(expanded+parsed? body_22)))"
 "(if or-part_409"
 " or-part_409"
-"(let-values(((or-part_410)"
-"(expanded+parsed? body_22)))"
-"(if or-part_410"
-" or-part_410"
 "(semi-parsed-begin-for-syntax?"
 " body_22)))))"
 "(let-values() body_22)"
@@ -75929,7 +75943,7 @@ static const char *startup_source =
 "(let-values(((ht_165) need-eventually-defined_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))"
-"((letrec-values(((for-loop_339)"
+"((letrec-values(((for-loop_340)"
 "(lambda(i_186)"
 "(begin"
 " 'for-loop"
@@ -75948,7 +75962,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_447)))"
-"((letrec-values(((for-loop_340)"
+"((letrec-values(((for-loop_341)"
 "(lambda(lst_448)"
 "(begin"
 " 'for-loop"
@@ -76042,18 +76056,18 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_340"
+"(for-loop_341"
 " rest_262)"
 "(values))))"
 "(values))))))"
-" for-loop_340)"
+" for-loop_341)"
 " lst_447)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_339(hash-iterate-next ht_165 i_186))(values))))"
+"(if(not #f)(for-loop_340(hash-iterate-next ht_165 i_186))(values))))"
 "(values))))))"
-" for-loop_339)"
+" for-loop_340)"
 "(hash-iterate-first ht_165))))"
 "(void)))))"
 "(define-values"
@@ -76082,8 +76096,8 @@ static const char *startup_source =
 " 'loop"
 "(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_411)(parsed?(car bodys_26))))"
-"(if or-part_411 or-part_411(expanded+parsed?(car bodys_26))))"
+"(if(let-values(((or-part_410)(parsed?(car bodys_26))))"
+"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))"
 "(let-values()"
 "(cons(car bodys_26)(loop_127(cdr bodys_26) phase_154)))"
 "(if(semi-parsed-begin-for-syntax?(car bodys_26))"
@@ -76383,8 +76397,8 @@ static const char *startup_source =
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_412) enclosing-self_3))"
-"(if or-part_412 or-part_412 self_39)))))"
+"(let-values(((or-part_411) enclosing-self_3))"
+"(if or-part_411 or-part_411 self_39)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((parsed-mod623_0) parsed-mod_0)"
 "((temp624_0)"
@@ -76579,9 +76593,9 @@ static const char *startup_source =
 " temp640_0))"
 " parsed-bfs_0))"
 "(loop_128 rest-bodys_3 phase_156))))))))"
-"(if(let-values(((or-part_413)(parsed? body_23)))"
-"(if or-part_413"
-" or-part_413"
+"(if(let-values(((or-part_412)(parsed? body_23)))"
+"(if or-part_412"
+" or-part_412"
 "(expanded+parsed? body_23)))"
 "(let-values()"
 "(cons body_23(loop_128 rest-bodys_3 phase_156)))"
@@ -76889,7 +76903,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_449)))"
-"((letrec-values(((for-loop_341)"
+"((letrec-values(((for-loop_342)"
 "(lambda(lst_450)"
 "(begin"
 " 'for-loop"
@@ -76922,9 +76936,9 @@ static const char *startup_source =
 " phase673_0)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_341 rest_263)(values))))"
+"(if(not #f)(for-loop_342 rest_263)(values))))"
 "(values))))))"
-" for-loop_341)"
+" for-loop_342)"
 " lst_449)))"
 "(void))))))))))"
 "(define-values"
@@ -76935,7 +76949,7 @@ static const char *startup_source =
 "(let-values(((lst_451) bodys_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))"
-"((letrec-values(((for-loop_342)"
+"((letrec-values(((for-loop_343)"
 "(lambda(lst_452)"
 "(begin"
 " 'for-loop"
@@ -76988,7 +77002,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list lst_455)))"
-"((letrec-values(((for-loop_343)"
+"((letrec-values(((for-loop_344)"
 "(lambda(lst_456"
 " lst_457"
 " lst_458)"
@@ -77035,30 +77049,30 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_343"
+"(for-loop_344"
 " rest_265"
 " rest_266"
 " rest_267)"
 "(values))))"
 "(values))))))"
-" for-loop_343)"
+" for-loop_344)"
 " lst_453"
 " lst_454"
 " lst_455)))"
 "(void)))))"
-"(if(let-values(((or-part_414)"
+"(if(let-values(((or-part_413)"
 "(parsed-define-syntaxes?"
 " p_88)))"
-"(if or-part_414"
-" or-part_414"
+"(if or-part_413"
+" or-part_413"
 "(semi-parsed-begin-for-syntax?"
 " p_88)))"
 "(let-values()(void))"
-"(if(let-values(((or-part_415)"
+"(if(let-values(((or-part_414)"
 "(parsed-#%declare?"
 " p_88)))"
-"(if or-part_415"
-" or-part_415"
+"(if or-part_414"
+" or-part_414"
 "(syntax?$1 p_88)))"
 "(let-values()(void))"
 "(let-values()"
@@ -77090,9 +77104,9 @@ static const char *startup_source =
 " m-ns_23)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_342 rest_264)(values))))"
+"(if(not #f)(for-loop_343 rest_264)(values))))"
 "(values))))))"
-" for-loop_342)"
+" for-loop_343)"
 " lst_451)))"
 "(void)))))"
 "(define-values"
@@ -77518,7 +77532,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_459)))"
-"((letrec-values(((for-loop_344)"
+"((letrec-values(((for-loop_345)"
 "(lambda(fold-var_385 lst_460)"
 "(begin"
 " 'for-loop"
@@ -77571,10 +77585,10 @@ static const char *startup_source =
 " fold-var_387))))"
 "(values fold-var_388)))))"
 "(if(not #f)"
-"(for-loop_344 fold-var_386 rest_268)"
+"(for-loop_345 fold-var_386 rest_268)"
 " fold-var_386)))"
 " fold-var_385)))))"
-" for-loop_344)"
+" for-loop_345)"
 " null"
 " lst_459))))))))))))))))"
 "(define-values"
@@ -77672,7 +77686,7 @@ static const char *startup_source =
 "(let-values(((lst_461) lifted-defns_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))"
-"((letrec-values(((for-loop_345)"
+"((letrec-values(((for-loop_346)"
 "(lambda(fold-var_389 lst_462)"
 "(begin"
 " 'for-loop"
@@ -77688,9 +77702,9 @@ static const char *startup_source =
 "(defn-extract-syntax lifted-defn_0))"
 " fold-var_391))))"
 "(values fold-var_392)))))"
-"(if(not #f)(for-loop_345 fold-var_390 rest_269) fold-var_390)))"
+"(if(not #f)(for-loop_346 fold-var_390 rest_269) fold-var_390)))"
 " fold-var_389)))))"
-" for-loop_345)"
+" for-loop_346)"
 " null"
 " lst_461)))))))"
 "(define-values"
@@ -77713,7 +77727,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_463)))"
-"((letrec-values(((for-loop_346)"
+"((letrec-values(((for-loop_347)"
 "(lambda(lst_464)"
 "(begin"
 " 'for-loop"
@@ -77825,9 +77839,9 @@ static const char *startup_source =
 " s-lifted-defn_0))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_346 rest_270)(values))))"
+"(if(not #f)(for-loop_347 rest_270)(values))))"
 "(values))))))"
-" for-loop_346)"
+" for-loop_347)"
 " lst_463)))"
 "(values))))"
 "(let-values()"
@@ -78582,7 +78596,7 @@ static const char *startup_source =
 "(values #%require49_0 req50_0))"
 "                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_102)))))"
 "(values #t #%require47_1 req48_1))))))"
-"(let-values(((sc_42)(new-scope 'macro)))"
+"(let-values(((sc_43)(new-scope 'macro)))"
 "(begin"
 "(let-values(((temp51_3)"
 "(reverse$1"
@@ -78606,7 +78620,7 @@ static const char *startup_source =
 "(let-values()"
 "(add-scope"
 " req_20"
-" sc_42))"
+" sc_43))"
 " fold-var_398))))"
 "(values fold-var_294)))))"
 "(if(not #f)"
@@ -78713,7 +78727,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash-keys ht_127)))"
-"((letrec-values(((for-loop_329)"
+"((letrec-values(((for-loop_330)"
 "(lambda(table_220 i_182)"
 "(begin"
 " 'for-loop"
@@ -78731,10 +78745,10 @@ static const char *startup_source =
 "(hash-set table_112 key_93 val_89)))))"
 "(values table_113)))))"
 "(if(not #f)"
-"(for-loop_329 table_119(hash-iterate-next ht_127 i_182))"
+"(for-loop_330 table_119(hash-iterate-next ht_127 i_182))"
 " table_119)))"
 " table_220)))))"
-" for-loop_329)"
+" for-loop_330)"
 " '#hash()"
 "(hash-iterate-first ht_127))))))"
 "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))"
@@ -78766,12 +78780,12 @@ static const char *startup_source =
 " '#%foreign)))"
 "(if or-part_166"
 " or-part_166"
-"(let-values(((or-part_288)"
+"(let-values(((or-part_287)"
 "(eq?"
 " name_85"
 " '#%futures)))"
-"(if or-part_288"
-" or-part_288"
+"(if or-part_287"
+" or-part_287"
 "(eq?"
 " name_85"
 " '#%unsafe)))))))"