diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt
index 29949c2dba..e543419070 100644
--- a/pkgs/base/info.rkt
+++ b/pkgs/base/info.rkt
@@ -12,7 +12,7 @@
 
 (define collection 'multi)
 
-(define version "6.90.0.16")
+(define version "6.90.0.17")
 
 (define deps `("racket-lib"
                ["racket" #:version ,version]))
diff --git a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
index 436cbf0de0..e76a486723 100644
--- a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
+++ b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
@@ -886,7 +886,7 @@ This function is intended for the implementation of
 
 @defproc[(syntax-local-make-delta-introducer [id-stx identifier?]) procedure?]{
 
-For (limited) backward compatibility only; raises @racket[exn:fail:supported].
+For (limited) backward compatibility only; raises @racket[exn:fail:unsupported].
 
 @history[#:changed "6.3" @elem{changed to raise @racket[exn:fail:supported].}]}
 
diff --git a/racket/src/expander/boot/core-primitive.rkt b/racket/src/expander/boot/core-primitive.rkt
index 0ad8276f7c..26e6c92740 100644
--- a/racket/src/expander/boot/core-primitive.rkt
+++ b/racket/src/expander/boot/core-primitive.rkt
@@ -118,6 +118,7 @@
 
                       make-syntax-introducer
                       make-syntax-delta-introducer
+                      syntax-local-make-delta-introducer
                       
                       syntax-local-value
                       syntax-local-value/immediate
diff --git a/racket/src/expander/expand/syntax-local.rkt b/racket/src/expander/expand/syntax-local.rkt
index 9e8e1b5442..2e77932773 100644
--- a/racket/src/expander/expand/syntax-local.rkt
+++ b/racket/src/expander/expand/syntax-local.rkt
@@ -37,6 +37,7 @@
 
          make-syntax-introducer
          make-syntax-delta-introducer
+         syntax-local-make-delta-introducer
          
          syntax-local-value
          syntax-local-value/immediate
@@ -144,7 +145,13 @@
        [(remove) (remove-scopes s delta-scs)]
        [(flip) (flip-scopes s delta-scs)]
        [else (raise-argument-error 'syntax-introducer "(or/c 'add 'remove 'flip)" mode)]))))
-  
+
+(define (syntax-local-make-delta-introducer id-stx)
+  (check 'syntax-local-make-delta-introducer identifier? id-stx)
+  (raise
+   (exn:fail:unsupported "syntax-local-make-delta-introducer: not supported anymore"
+                         (current-continuation-marks))))
+
 ;; ----------------------------------------
 
 (define (do-syntax-local-value who id intdef failure-thunk
diff --git a/racket/src/racket/src/schvers.h b/racket/src/racket/src/schvers.h
index 9a9e88ff88..8d1fe0f97d 100644
--- a/racket/src/racket/src/schvers.h
+++ b/racket/src/racket/src/schvers.h
@@ -13,12 +13,12 @@
    consistently.)
 */
 
-#define MZSCHEME_VERSION "6.90.0.16"
+#define MZSCHEME_VERSION "6.90.0.17"
 
 #define MZSCHEME_VERSION_X 6
 #define MZSCHEME_VERSION_Y 90
 #define MZSCHEME_VERSION_Z 0
-#define MZSCHEME_VERSION_W 16
+#define MZSCHEME_VERSION_W 17
 
 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y)
 #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W)
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 5da98a74a7..bdaf94e400 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -40338,12 +40338,24 @@ static const char *startup_source =
 "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))"
 "((ext-s_2 base-s_2 phase5_1)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_1 #t)))))"
 "(define-values"
+"(syntax-local-make-delta-introducer)"
+"(lambda(id-stx_1)"
+"(begin"
+"(begin"
+"(if(identifier? id-stx_1)"
+"(void)"
+"          (let-values () (raise-argument-error 'syntax-local-make-delta-introducer \"identifier?\" id-stx_1)))"
+"(raise"
+"(exn:fail:unsupported"
+"          \"syntax-local-make-delta-introducer: not supported anymore\""
+"(current-continuation-marks)))))))"
+"(define-values"
 "(do-syntax-local-value17.1)"
-"(lambda(immediate?11_0 who13_0 id14_0 intdef15_0 failure-thunk16_0)"
+"(lambda(immediate?11_0 who13_0 id14_1 intdef15_0 failure-thunk16_0)"
 "(begin"
 " 'do-syntax-local-value17"
 "(let-values(((who_15) who13_0))"
-"(let-values(((id_74) id14_0))"
+"(let-values(((id_74) id14_1))"
 "(let-values(((intdef_11) intdef15_0))"
 "(let-values(((failure-thunk_0) failure-thunk16_0))"
 "(let-values(((immediate?_1) immediate?11_0))"
@@ -40356,9 +40368,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_73)(not failure-thunk_0)))"
-"(if or-part_73"
-" or-part_73"
+"(if(let-values(((or-part_74)(not failure-thunk_0)))"
+"(if or-part_74"
+" or-part_74"
 "(if(procedure? failure-thunk_0)"
 "(procedure-arity-includes? failure-thunk_0 0)"
 " #f)))"
@@ -40371,8 +40383,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_74)(not intdef_11)))"
-"(if or-part_74 or-part_74(1/internal-definition-context? intdef_11)))"
+"(if(let-values(((or-part_75)(not intdef_11)))"
+"(if or-part_75 or-part_75(1/internal-definition-context? intdef_11)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -40385,34 +40397,34 @@ static const char *startup_source =
 "(get-current-expand-context17.1 #f #f who84_0 #t))))"
 "(let-values(((ctx_51)"
 "(if intdef_11"
-"(let-values(((v_189) current-ctx_0))"
-"(let-values(((the-struct_8) v_189))"
-"(if(expand-context/outer? the-struct_8)"
+"(let-values(((v_47) current-ctx_0))"
+"(let-values(((the-struct_69) v_47))"
+"(if(expand-context/outer? the-struct_69)"
 "(let-values(((env85_0)"
 "(add-intdef-bindings"
 "(expand-context-env current-ctx_0)"
 " intdef_11))"
-"((inner86_0)(root-expand-context/outer-inner v_189)))"
+"((inner86_0)(root-expand-context/outer-inner v_47)))"
 "(expand-context/outer1.1"
 " inner86_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_8)"
-"(root-expand-context/outer-use-site-scopes the-struct_8)"
-"(root-expand-context/outer-frame-id the-struct_8)"
-"(expand-context/outer-context the-struct_8)"
+"(root-expand-context/outer-post-expansion-scope the-struct_69)"
+"(root-expand-context/outer-use-site-scopes the-struct_69)"
+"(root-expand-context/outer-frame-id the-struct_69)"
+"(expand-context/outer-context the-struct_69)"
 " env85_0"
-"(expand-context/outer-post-expansion-scope-action the-struct_8)"
-"(expand-context/outer-scopes the-struct_8)"
-"(expand-context/outer-def-ctx-scopes the-struct_8)"
-"(expand-context/outer-binding-layer the-struct_8)"
-"(expand-context/outer-reference-records the-struct_8)"
-"(expand-context/outer-only-immediate? the-struct_8)"
-"(expand-context/outer-need-eventually-defined the-struct_8)"
-"(expand-context/outer-current-introduction-scopes the-struct_8)"
-"(expand-context/outer-name the-struct_8)))"
+"(expand-context/outer-post-expansion-scope-action the-struct_69)"
+"(expand-context/outer-scopes the-struct_69)"
+"(expand-context/outer-def-ctx-scopes the-struct_69)"
+"(expand-context/outer-binding-layer the-struct_69)"
+"(expand-context/outer-reference-records the-struct_69)"
+"(expand-context/outer-only-immediate? the-struct_69)"
+"(expand-context/outer-need-eventually-defined the-struct_69)"
+"(expand-context/outer-current-introduction-scopes the-struct_69)"
+"(expand-context/outer-name the-struct_69)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"expand-context/outer?\""
-" the-struct_8))))"
+" the-struct_69))))"
 " current-ctx_0)))"
 "(let-values((()"
 "(begin"
@@ -40422,12 +40434,12 @@ static const char *startup_source =
 "(let-values()(call-expand-observe obs_34 'local-value id_74)))"
 "(void)))"
 "(values))))"
-"(let-values(((phase_82)(expand-context-phase ctx_51)))"
+"(let-values(((phase_113)(expand-context-phase ctx_51)))"
 "((letrec-values(((loop_96)"
 "(lambda(id_75)"
 "(begin"
 " 'loop"
-"(let-values(((b_20)"
+"(let-values(((b_54)"
 "(if immediate?_1"
 "(let-values(((temp89_2) #t))"
 "(resolve+shift30.1"
@@ -40442,10 +40454,10 @@ static const char *startup_source =
 " #f"
 " #f"
 " id_75"
-" phase_82))"
+" phase_113))"
 "(resolve+shift/extra-inspector"
 " id_75"
-" phase_82"
+" phase_113"
 "(expand-context-namespace ctx_51)))))"
 "(begin"
 "(let-values(((obs_35)(expand-context-observer ctx_51)))"
@@ -40454,7 +40466,38 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe obs_35 'resolve id_75)))"
 "(void)))"
-"(if(not b_20)"
+"(if(not b_54)"
+"(let-values()"
+"(begin"
+"(let-values(((obs_30)"
+"(expand-context-observer ctx_51)))"
+"(if obs_30"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_30"
+" 'local-value-result"
+" #f)))"
+"(void)))"
+"(if failure-thunk_0"
+"(failure-thunk_0)"
+"(error"
+" 'syntax-local-value"
+"                                                                   \"unbound identifier: ~v\""
+" id_75))))"
+"(let-values()"
+"(let-values(((v_51 primitive?_7 insp_17)"
+"(let-values(((temp93_3) #t))"
+"(lookup17.1"
+" #f"
+" #f"
+" temp93_3"
+" #t"
+" b_54"
+" ctx_51"
+" id_75))))"
+"(if(let-values(((or-part_282)(variable? v_51)))"
+"(if or-part_282 or-part_282(core-form? v_51)))"
 "(let-values()"
 "(begin"
 "(let-values(((obs_36)"
@@ -40471,67 +40514,36 @@ static const char *startup_source =
 "(failure-thunk_0)"
 "(error"
 " 'syntax-local-value"
-"                                                                   \"unbound identifier: ~v\""
+"                                                                         \"identifier is not bound to syntax: ~v\""
 " id_75))))"
 "(let-values()"
-"(let-values(((v_190 primitive?_7 insp_17)"
-"(let-values(((temp93_3) #t))"
-"(lookup17.1"
-" #f"
-" #f"
-" temp93_3"
-" #t"
-" b_20"
-" ctx_51"
-" id_75))))"
-"(if(let-values(((or-part_282)(variable? v_190)))"
-"(if or-part_282 or-part_282(core-form? v_190)))"
-"(let-values()"
 "(begin"
 "(let-values(((obs_37)"
 "(expand-context-observer ctx_51)))"
 "(if obs_37"
 "(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_37"
-" 'local-value-result"
-" #f)))"
-"(void)))"
-"(if failure-thunk_0"
-"(failure-thunk_0)"
-"(error"
-" 'syntax-local-value"
-"                                                                         \"identifier is not bound to syntax: ~v\""
-" id_75))))"
-"(let-values()"
-"(begin"
-"(let-values(((obs_38)"
-"(expand-context-observer ctx_51)))"
-"(if obs_38"
-"(let-values()"
 "(if(not"
-"(if(1/rename-transformer? v_190)"
+"(if(1/rename-transformer? v_51)"
 "(not immediate?_1)"
 " #f))"
 "(let-values()"
 "(call-expand-observe"
-" obs_38"
+" obs_37"
 " 'local-value-result"
 " #t))"
 "(void)))"
 "(void)))"
-"(if(1/rename-transformer? v_190)"
+"(if(1/rename-transformer? v_51)"
 "(let-values()"
 "(if immediate?_1"
 "(values"
-" v_190"
-"(1/rename-transformer-target v_190))"
+" v_51"
+"(1/rename-transformer-target v_51))"
 "(loop_96"
-"(1/rename-transformer-target v_190))))"
+"(1/rename-transformer-target v_51))))"
 "(if immediate?_1"
-"(let-values()(values v_190 #f))"
-"(let-values() v_190)))))))))))))))"
+"(let-values()(values v_51 #f))"
+"(let-values() v_51)))))))))))))))"
 " loop_96)"
 "(flip-introduction-scopes id_74 ctx_51))))))))))))))))))"
 "(define-values"
@@ -40552,21 +40564,21 @@ static const char *startup_source =
 "(do-syntax-local-value17.1 temp95_1 temp94_2 id96_0 intdef97_0 failure-thunk98_0))))))))))"
 "(case-lambda"
 "((id_77)(begin 'syntax-local-value(syntax-local-value25_0 id_77 #f #f #f #f)))"
-"((id_78 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_78 failure-thunk_2 intdef21_1 #t #t))"
-"((id_79 failure-thunk20_1)(syntax-local-value25_0 id_79 failure-thunk20_1 #f #t #f)))))"
+"((id_46 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_46 failure-thunk_2 intdef21_1 #t #t))"
+"((id_78 failure-thunk20_1)(syntax-local-value25_0 id_78 failure-thunk20_1 #f #t #f)))))"
 "(define-values"
 "(1/syntax-local-value/immediate)"
 "(let-values(((syntax-local-value/immediate32_0)"
 "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)"
 "(begin"
 " 'syntax-local-value/immediate32"
-"(let-values(((id_16) id31_1))"
+"(let-values(((id_68) id31_1))"
 "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))"
 "(let-values(((intdef_13)(if intdef30_0 intdef28_0 #f)))"
 "(let-values()"
 "(let-values(((temp99_1) 'syntax-local-value/immediate)"
 "((temp100_0) #t)"
-"((id101_1) id_16)"
+"((id101_1) id_68)"
 "((intdef102_0) intdef_13)"
 "((failure-thunk103_0) failure-thunk_3))"
 "(do-syntax-local-value17.1"
@@ -40576,16 +40588,16 @@ static const char *startup_source =
 " intdef102_0"
 " failure-thunk103_0))))))))))"
 "(case-lambda"
-"((id_80)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_80 #f #f #f #f)))"
-"((id_81 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_81 failure-thunk_4 intdef28_1 #t #t))"
-"((id_7 failure-thunk27_1)(syntax-local-value/immediate32_0 id_7 failure-thunk27_1 #f #t #f)))))"
+"((id_79)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_79 #f #f #f #f)))"
+"((id_80 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_80 failure-thunk_4 intdef28_1 #t #t))"
+"((id_47 failure-thunk27_1)(syntax-local-value/immediate32_0 id_47 failure-thunk27_1 #f #t #f)))))"
 "(define-values"
 "(do-lift-values-expression)"
-"(lambda(who_16 n_28 s_413)"
+"(lambda(who_16 n_28 s_316)"
 "(begin"
 "(let-values((()"
 "(begin"
-"                      (if (syntax?$1 s_413) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_413)))"
+"                      (if (syntax?$1 s_316) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_316)))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -40593,13 +40605,13 @@ static const char *startup_source =
 "(void)"
 "                          (let-values () (raise-argument-error who_16 \"exact-nonnegative-integer?\" n_28)))"
 "(values))))"
-"(let-values(((ctx_24)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))"
-"(let-values(((lifts_8)(expand-context-lifts ctx_24)))"
+"(let-values(((ctx_52)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))"
+"(let-values(((lifts_8)(expand-context-lifts ctx_52)))"
 "(let-values((()"
 "(begin"
 "                              (if lifts_8 (void) (let-values () (raise-arguments-error who_16 \"no lift target\")))"
 "(values))))"
-"(let-values(((counter_4)(root-expand-context-counter ctx_24)))"
+"(let-values(((counter_4)(root-expand-context-counter ctx_52)))"
 "(let-values(((ids_26)"
 "(reverse$1"
 "(let-values(((start_40) 0)((end_29) n_28)((inc_23) 1))"
@@ -40607,15 +40619,15 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_40 end_29 inc_23)))"
-"((letrec-values(((for-loop_246)"
-"(lambda(fold-var_180 pos_102)"
+"((letrec-values(((for-loop_240)"
+"(lambda(fold-var_181 pos_102)"
 "(begin"
 " 'for-loop"
 "(if(< pos_102 end_29)"
 "(let-values()"
 "(let-values(((fold-var_242)"
-"(let-values(((fold-var_243) fold-var_180))"
-"(let-values(((fold-var_229)"
+"(let-values(((fold-var_229) fold-var_181))"
+"(let-values(((fold-var_230)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -40639,31 +40651,31 @@ static const char *startup_source =
 " name_63)"
 "(new-scope"
 " 'macro)))))"
-" fold-var_243))))"
-"(values fold-var_229)))))"
+" fold-var_229))))"
+"(values fold-var_230)))))"
 "(if(not #f)"
-"(for-loop_246 fold-var_242(+ pos_102 inc_23))"
+"(for-loop_240 fold-var_242(+ pos_102 inc_23))"
 " fold-var_242)))"
-" fold-var_180)))))"
-" for-loop_246)"
+" fold-var_181)))))"
+" for-loop_240)"
 " null"
 " start_40))))))"
 "(begin"
-"(let-values(((obs_25)(expand-context-observer ctx_24)))"
-"(if obs_25"
-"(let-values()(let-values()(call-expand-observe obs_25 'local-lift ids_26 s_413)))"
+"(let-values(((obs_38)(expand-context-observer ctx_52)))"
+"(if obs_38"
+"(let-values()(let-values()(call-expand-observe obs_38 'local-lift ids_26 s_316)))"
 "(void)))"
 "(map2"
-"(lambda(id_82)(flip-introduction-scopes id_82 ctx_24))"
+"(lambda(id_81)(flip-introduction-scopes id_81 ctx_52))"
 "(add-lifted!"
 " lifts_8"
 " ids_26"
-"(flip-introduction-scopes s_413 ctx_24)"
-"(expand-context-phase ctx_24))))))))))))))"
+"(flip-introduction-scopes s_316 ctx_52)"
+"(expand-context-phase ctx_52))))))))))))))"
 "(define-values"
 "(1/syntax-local-lift-expression)"
-"(lambda(s_57)"
-"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_57)))))"
+"(lambda(s_413)"
+"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_413)))))"
 "(define-values"
 "(1/syntax-local-lift-values-expression)"
 "(lambda(n_29 s_414)"
@@ -40675,45 +40687,45 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'syntax-local-lift-context"
-"(let-values(((ctx_52)"
+"(let-values(((ctx_53)"
 "(let-values(((temp105_0) 'syntax-local-lift-context))"
 "(get-current-expand-context17.1 #f #f temp105_0 #t))))"
-"(root-expand-context-lift-key ctx_52)))))"
+"(root-expand-context-lift-key ctx_53)))))"
 "(define-values"
 "(1/syntax-local-lift-module)"
-"(lambda(s_404)"
+"(lambda(s_58)"
 "(begin"
 " 'syntax-local-lift-module"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_404)"
+"(if(syntax?$1 s_58)"
 "(void)"
-"                        (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_404)))"
+"                        (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_58)))"
 "(values))))"
-"(let-values(((ctx_53)"
+"(let-values(((ctx_54)"
 "(let-values(((temp106_1) 'syntax-local-lift-module))"
 "(get-current-expand-context17.1 #f #f temp106_1 #t))))"
-"(let-values(((phase_113)(expand-context-phase ctx_53)))"
+"(let-values(((phase_114)(expand-context-phase ctx_54)))"
 "(begin"
-"(let-values(((tmp_35)(core-form-sym s_404 phase_113)))"
+"(let-values(((tmp_35)(core-form-sym s_58 phase_114)))"
 "(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))"
 "(let-values()"
-"(let-values(((lifts_0)(expand-context-module-lifts ctx_53)))"
+"(let-values(((lifts_9)(expand-context-module-lifts ctx_54)))"
 "(begin"
-"(if lifts_0"
+"(if lifts_9"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
 " 'syntax-local-lift-module"
 "                             \"not currently transforming within a module declaration or top level\""
 "                             \"form to lift\""
-" s_404)))"
-"(add-lifted-module! lifts_0(flip-introduction-scopes s_404 ctx_53) phase_113))))"
+" s_58)))"
+"(add-lifted-module! lifts_9(flip-introduction-scopes s_58 ctx_54) phase_114))))"
 "(let-values()"
-"                    (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_404))))"
-"(let-values(((obs_26)(expand-context-observer ctx_53)))"
-"(if obs_26"
-"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_404)))"
+"                    (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_58))))"
+"(let-values(((obs_39)(expand-context-observer ctx_54)))"
+"(if obs_39"
+"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_58)))"
 "(void))))))))))"
 "(define-values"
 "(do-local-lift-to-module54.1)"
@@ -40736,7 +40748,7 @@ static const char *startup_source =
 "(begin"
 " 'do-local-lift-to-module54"
 "(let-values(((who_17) who52_0))"
-"(let-values(((s_64) s53_1))"
+"(let-values(((s_321) s53_1))"
 "(let-values(((no-target-msg_0) no-target-msg34_0))"
 "(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))"
 "(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))"
@@ -40746,27 +40758,27 @@ static const char *startup_source =
 "(let-values(((pre-wrap_0)"
 "(if pre-wrap49_0"
 " pre-wrap40_0"
-"(lambda(s_66 phase_114 lift-ctx_1)(begin 'pre-wrap s_66)))))"
+"(lambda(s_415 phase_115 lift-ctx_1)(begin 'pre-wrap s_415)))))"
 "(let-values(((shift-wrap_0)"
 "(if shift-wrap50_0"
 " shift-wrap41_0"
-"(lambda(s_415 phase_49 lift-ctx_2)(begin 'shift-wrap s_415)))))"
+"(lambda(s_201 phase_116 lift-ctx_2)(begin 'shift-wrap s_201)))))"
 "(let-values(((post-wrap_0)"
 "(if post-wrap51_0"
 " post-wrap42_0"
-"(lambda(s_406 phase_115 lift-ctx_3)(begin 'post-wrap s_406)))))"
+"(lambda(s_416 phase_117 lift-ctx_3)(begin 'post-wrap s_416)))))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_64)"
+"(if(syntax?$1 s_321)"
 "(void)"
-"                                                (let-values () (raise-argument-error who_17 \"syntax?\" s_64)))"
+"                                                (let-values () (raise-argument-error who_17 \"syntax?\" s_321)))"
 "(values))))"
 "(let-values((()(begin(more-checks_0)(values))))"
-"(let-values(((ctx_54)"
+"(let-values(((ctx_55)"
 "(let-values(((who107_0) who_17))"
 "(get-current-expand-context17.1 #f #f who107_0 #t))))"
-"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_54)))"
+"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_55)))"
 "(let-values((()"
 "(begin"
 "(if lift-ctx_4"
@@ -40776,15 +40788,15 @@ static const char *startup_source =
 " who_17"
 " no-target-msg_0"
 "                                                           \"form to lift\""
-" s_64)))"
+" s_321)))"
 "(values))))"
-"(let-values(((phase_116)(expand-context-phase ctx_54)))"
+"(let-values(((phase_118)(expand-context-phase ctx_55)))"
 "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))"
 "(let-values(((added-s_0)"
-"(if intro?_0(flip-introduction-scopes s_64 ctx_54) s_64)))"
-"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_116 lift-ctx_4)))"
+"(if intro?_0(flip-introduction-scopes s_321 ctx_55) s_321)))"
+"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))"
 "(let-values(((shift-s_0)"
-"(let-values(((start_41) phase_116)"
+"(let-values(((start_41) phase_118)"
 "((end_30) wrt-phase_1)"
 "((inc_24) -1))"
 "(begin"
@@ -40793,48 +40805,48 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-range start_41 end_30 inc_24)))"
-"((letrec-values(((for-loop_173)"
-"(lambda(s_416 pos_103)"
+"((letrec-values(((for-loop_246)"
+"(lambda(s_91 pos_103)"
 "(begin"
 " 'for-loop"
 "(if(> pos_103 end_30)"
-"(let-values(((phase_117)"
+"(let-values(((phase_119)"
 " pos_103))"
-"(let-values(((s_205)"
 "(let-values(((s_39)"
-" s_416))"
 "(let-values(((s_417)"
+" s_91))"
+"(let-values(((s_206)"
 "(let-values()"
 "(shift-wrap_0"
-" s_39"
+" s_417"
 "(sub1"
-" phase_117)"
+" phase_119)"
 " lift-ctx_4))))"
 "(values"
-" s_417)))))"
+" s_206)))))"
 "(if(not #f)"
-"(for-loop_173"
-" s_205"
+"(for-loop_246"
+" s_39"
 "(+ pos_103 inc_24))"
-" s_205)))"
-" s_416)))))"
-" for-loop_173)"
+" s_39)))"
+" s_91)))))"
+" for-loop_246)"
 " pre-s_0"
 " start_41)))))"
 "(let-values(((post-s_1)"
 "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))"
 "(begin"
 "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)"
-"(values ctx_54 post-s_1))))))))))))))))))))))))))))"
+"(values ctx_55 post-s_1))))))))))))))))))))))))))))"
 "(define-values"
 "(1/syntax-local-lift-require)"
-"(lambda(s_418 use-s_1)"
+"(lambda(s_324 use-s_1)"
 "(begin"
 " 'syntax-local-lift-require"
 "(let-values(((sc_29)(new-scope 'macro)))"
-"(let-values(((ctx_55 added-s_1)"
+"(let-values(((ctx_56 added-s_1)"
 "(let-values(((temp108_0) 'syntax-local-lift-require)"
-"((temp109_0)(datum->syntax$1 #f s_418))"
+"((temp109_0)(datum->syntax$1 #f s_324))"
 "                                   ((temp110_1) \"could not find target context\")"
 "((temp111_1) #f)"
 "((temp112_0)"
@@ -40847,10 +40859,10 @@ static const char *startup_source =
 "((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)"
 "((add-lifted-require!115_0) add-lifted-require!)"
 "((temp116_0)"
-"(lambda(s_109 phase_118 require-lift-ctx_0)(require-spec-shift-for-syntax s_109)))"
+"(lambda(s_211 phase_120 require-lift-ctx_0)(require-spec-shift-for-syntax s_211)))"
 "((temp117_1)"
-"(lambda(s_419 phase_119 require-lift-ctx_1)"
-"(wrap-form '#%require(add-scope s_419 sc_29) phase_119))))"
+"(lambda(s_418 phase_121 require-lift-ctx_1)"
+"(wrap-form '#%require(add-scope s_418 sc_29) phase_121))))"
 "(do-local-lift-to-module54.1"
 " add-lifted-require!115_0"
 " expand-context-require-lifts113_0"
@@ -40871,34 +40883,34 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(namespace-visit-available-modules!"
-"(expand-context-namespace ctx_55)"
-"(expand-context-phase ctx_55))"
+"(expand-context-namespace ctx_56)"
+"(expand-context-phase ctx_56))"
 "(values))))"
 "(let-values(((result-s_6)(add-scope use-s_1 sc_29)))"
 "(begin"
-"(let-values(((obs_39)(expand-context-observer ctx_55)))"
-"(if obs_39"
+"(let-values(((obs_28)(expand-context-observer ctx_56)))"
+"(if obs_28"
 "(let-values()"
-"(let-values()(call-expand-observe obs_39 'lift-require added-s_1 use-s_1 result-s_6)))"
+"(let-values()(call-expand-observe obs_28 'lift-require added-s_1 use-s_1 result-s_6)))"
 "(void)))"
 " result-s_6))))))))"
 "(define-values"
 "(1/syntax-local-lift-provide)"
-"(lambda(s_214)"
+"(lambda(s_419)"
 "(begin"
 " 'syntax-local-lift-provide"
-"(let-values(((ctx_56 result-s_7)"
+"(let-values(((ctx_57 result-s_7)"
 "(let-values(((temp118_1) 'syntax-local-lift-provide)"
-"((s119_0) s_214)"
+"((s119_0) s_419)"
 "                                 ((temp120_0) \"not expanding in a module run-time body\")"
 "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)"
 "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)"
 "((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)"
 "((temp124_1)"
-"(lambda(s_420 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_420 #f)))"
+"(lambda(s_420 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_420 #f)))"
 "((temp125_0)"
-"(lambda(s_113 phase_121 to-module-lift-ctx_1)"
-"(wrap-form '#%provide s_113 phase_121))))"
+"(lambda(s_114 phase_123 to-module-lift-ctx_1)"
+"(wrap-form '#%provide s_114 phase_123))))"
 "(do-local-lift-to-module54.1"
 " add-lifted-to-module-provide!123_0"
 " expand-context-to-module-lifts121_0"
@@ -40916,28 +40928,28 @@ static const char *startup_source =
 " #t"
 " temp118_1"
 " s119_0))))"
-"(let-values(((obs_40)(expand-context-observer ctx_56)))"
+"(let-values(((obs_40)(expand-context-observer ctx_57)))"
 "(if obs_40(let-values()(let-values()(call-expand-observe obs_40 'lift-provide result-s_7)))(void)))))))"
 "(define-values"
 "(1/syntax-local-lift-module-end-declaration)"
-"(lambda(s_421)"
+"(lambda(s_215)"
 "(begin"
 " 'syntax-local-lift-module-end-declaration"
-"(let-values(((ctx_57 also-s_0)"
+"(let-values(((ctx_58 also-s_0)"
 "(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)"
-"((s127_0) s_421)"
+"((s127_0) s_215)"
 "                                 ((temp128_1) \"not currently transforming an expression within a module declaration\")"
 "((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)"
 "((temp130_0)(lambda(lift-ctx_5) 0))"
 "((add-lifted-to-module-end!131_0) add-lifted-to-module-end!)"
 "((temp132_0)"
-"(lambda(orig-s_33 phase_122 to-module-lift-ctx_2)"
+"(lambda(orig-s_0 phase_124 to-module-lift-ctx_2)"
 "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)"
-"(wrap-form '#%expression orig-s_33 phase_122)"
-" orig-s_33)))"
+"(wrap-form '#%expression orig-s_0 phase_124)"
+" orig-s_0)))"
 "((temp133_0)"
-"(lambda(s_220 phase_123 to-module-lift-ctx_3)"
-"(wrap-form 'begin-for-syntax s_220 phase_123))))"
+"(lambda(s_221 phase_125 to-module-lift-ctx_3)"
+"(wrap-form 'begin-for-syntax s_221 phase_125))))"
 "(do-local-lift-to-module54.1"
 " add-lifted-to-module-end!131_0"
 " expand-context-to-module-lifts129_0"
@@ -40955,15 +40967,15 @@ static const char *startup_source =
 " #t"
 " temp126_1"
 " s127_0))))"
-"(let-values(((obs_41)(expand-context-observer ctx_57)))"
-"(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-statement s_421)))(void)))))))"
+"(let-values(((obs_41)(expand-context-observer ctx_58)))"
+"(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-statement s_215)))(void)))))))"
 "(define-values"
 "(wrap-form)"
-"(lambda(sym_65 s_119 phase_124)"
+"(lambda(sym_65 s_120 phase_126)"
 "(begin"
 "(datum->syntax$1"
 " #f"
-"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_65) s_119)))))"
+"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_65) s_120)))))"
 "(define-values"
 "(1/syntax-local-module-defined-identifiers)"
 "(lambda()"
@@ -40978,10 +40990,10 @@ static const char *startup_source =
 " 'syntax-local-module-defined-identifiers"
 "                           \"not currently transforming module provides\")))"
 "(values))))"
-"(let-values(((ctx_58)"
+"(let-values(((ctx_59)"
 "(let-values(((temp134_0) 'syntax-local-module-defined-identifiers))"
 "(get-current-expand-context17.1 #f #f temp134_0 #t))))"
-"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_58))))))))"
+"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_59))))))))"
 "(define-values"
 "(1/syntax-local-module-required-identifiers)"
 "(lambda(mod-path_8 phase-level_20)"
@@ -40989,8 +41001,8 @@ static const char *startup_source =
 " 'syntax-local-module-required-identifiers"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_184)(not mod-path_8)))"
-"(if or-part_184 or-part_184(1/module-path? mod-path_8)))"
+"(if(let-values(((or-part_177)(not mod-path_8)))"
+"(if or-part_177 or-part_177(1/module-path? mod-path_8)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -41000,8 +41012,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_177)(eq? phase-level_20 #t)))"
-"(if or-part_177 or-part_177(phase? phase-level_20)))"
+"(if(let-values(((or-part_283)(eq? phase-level_20 #t)))"
+"(if or-part_283 or-part_283(phase? phase-level_20)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -41018,11 +41030,11 @@ static const char *startup_source =
 " 'syntax-local-module-required-identifiers"
 "                               \"not currently transforming module provides\")))"
 "(values))))"
-"(let-values(((ctx_59)"
+"(let-values(((ctx_60)"
 "(let-values(((temp135_0) 'syntax-local-module-required-identifiers))"
 "(get-current-expand-context17.1 #f #f temp135_0 #t))))"
-"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_59)))"
-"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_59) #f)))"
+"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_60)))"
+"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_60) #f)))"
 "(let-values(((requireds_0)"
 "(extract-all-module-requires"
 " requires+provides_5"
@@ -41036,25 +41048,25 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_134)))"
 "((letrec-values(((for-loop_247)"
-"(lambda(fold-var_244 i_165)"
+"(lambda(fold-var_243 i_165)"
 "(begin"
 " 'for-loop"
 "(if i_165"
-"(let-values(((phase_125 ids_27)"
+"(let-values(((phase_127 ids_7)"
 "(hash-iterate-key+value ht_134 i_165)))"
-"(let-values(((fold-var_245)"
-"(let-values(((fold-var_246) fold-var_244))"
-"(let-values(((fold-var_247)"
+"(let-values(((fold-var_244)"
+"(let-values(((fold-var_245) fold-var_243))"
+"(let-values(((fold-var_246)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(cons phase_125 ids_27))"
-" fold-var_246))))"
-"(values fold-var_247)))))"
+"(cons phase_127 ids_7))"
+" fold-var_245))))"
+"(values fold-var_246)))))"
 "(if(not #f)"
-"(for-loop_247 fold-var_245(hash-iterate-next ht_134 i_165))"
-" fold-var_245)))"
-" fold-var_244)))))"
+"(for-loop_247 fold-var_244(hash-iterate-next ht_134 i_165))"
+" fold-var_244)))"
+" fold-var_243)))))"
 " for-loop_247)"
 " null"
 "(hash-iterate-first ht_134)))))"
@@ -41063,15 +41075,15 @@ static const char *startup_source =
 "(requireds->phase-ht)"
 "(lambda(requireds_1)"
 "(begin"
-"(let-values(((lst_291) requireds_1))"
+"(let-values(((lst_112) requireds_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_291)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_112)))"
 "((letrec-values(((for-loop_248)"
-"(lambda(ht_135 lst_292)"
+"(lambda(ht_135 lst_291)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_292)"
-"(let-values(((r_44)(unsafe-car lst_292))((rest_163)(unsafe-cdr lst_292)))"
+"(if(pair? lst_291)"
+"(let-values(((r_44)(unsafe-car lst_291))((rest_163)(unsafe-cdr lst_291)))"
 "(let-values(((ht_136)"
 "(let-values(((ht_137) ht_135))"
 "(let-values(((ht_138)"
@@ -41086,7 +41098,7 @@ static const char *startup_source =
 " ht_135)))))"
 " for-loop_248)"
 "(hasheqv)"
-" lst_291))))))"
+" lst_112))))))"
 "(define-values"
 "(1/syntax-local-module-exports)"
 "(lambda(mod-path_9)"
@@ -41094,9 +41106,9 @@ static const char *startup_source =
 " 'syntax-local-module-exports"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_283)(1/module-path? mod-path_9)))"
-"(if or-part_283"
-" or-part_283"
+"(if(let-values(((or-part_284)(1/module-path? mod-path_9)))"
+"(if or-part_284"
+" or-part_284"
 "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))"
 "(void)"
 "(let-values()"
@@ -41109,15 +41121,15 @@ static const char *startup_source =
 "                            \"               (module-path? (syntax->datum stx)))))\")"
 " mod-path_9)))"
 "(values))))"
-"(let-values(((ctx_60)"
+"(let-values(((ctx_61)"
 "(let-values(((temp136_0) 'syntax-local-module-exports))"
 "(get-current-expand-context17.1 #f #f temp136_0 #t))))"
-"(let-values(((ns_75)(expand-context-namespace ctx_60)))"
+"(let-values(((ns_75)(expand-context-namespace ctx_61)))"
 "(let-values(((mod-name_18)"
 "(1/module-path-index-resolve"
 "(module-path->mpi/context"
 "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)"
-" ctx_60)"
+" ctx_61)"
 " #t)))"
 "(let-values(((m_19)(namespace->module ns_75 mod-name_18)))"
 "(begin"
@@ -41128,20 +41140,20 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_139)))"
-"((letrec-values(((for-loop_130)"
-"(lambda(fold-var_248 i_8)"
+"((letrec-values(((for-loop_197)"
+"(lambda(fold-var_199 i_166)"
 "(begin"
 " 'for-loop"
-"(if i_8"
-"(let-values(((phase_126 syms_22)(hash-iterate-key+value ht_139 i_8)))"
+"(if i_166"
+"(let-values(((phase_128 syms_22)(hash-iterate-key+value ht_139 i_166)))"
+"(let-values(((fold-var_247)"
+"(let-values(((fold-var_248) fold-var_199))"
 "(let-values(((fold-var_249)"
-"(let-values(((fold-var_250) fold-var_248))"
-"(let-values(((fold-var_251)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(cons"
-" phase_126"
+" phase_128"
 "(reverse$1"
 "(let-values(((ht_140) syms_22))"
 "(begin"
@@ -41152,46 +41164,46 @@ static const char *startup_source =
 "(check-in-hash-keys"
 " ht_140)))"
 "((letrec-values(((for-loop_249)"
-"(lambda(fold-var_252"
-" i_166)"
+"(lambda(fold-var_250"
+" i_167)"
 "(begin"
 " 'for-loop"
-"(if i_166"
+"(if i_167"
 "(let-values(((sym_66)"
 "(hash-iterate-key"
 " ht_140"
-" i_166)))"
-"(let-values(((fold-var_201)"
+" i_167)))"
 "(let-values(((fold-var_202)"
-" fold-var_252))"
-"(let-values(((fold-var_253)"
+"(let-values(((fold-var_251)"
+" fold-var_250))"
+"(let-values(((fold-var_252)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " sym_66)"
-" fold-var_202))))"
+" fold-var_251))))"
 "(values"
-" fold-var_253)))))"
+" fold-var_252)))))"
 "(if(not"
 " #f)"
 "(for-loop_249"
-" fold-var_201"
+" fold-var_202"
 "(hash-iterate-next"
 " ht_140"
-" i_166))"
-" fold-var_201)))"
-" fold-var_252)))))"
+" i_167))"
+" fold-var_202)))"
+" fold-var_250)))))"
 " for-loop_249)"
 " null"
 "(hash-iterate-first"
 " ht_140)))))))"
-" fold-var_250))))"
-"(values fold-var_251)))))"
+" fold-var_248))))"
+"(values fold-var_249)))))"
 "(if(not #f)"
-"(for-loop_130 fold-var_249(hash-iterate-next ht_139 i_8))"
-" fold-var_249)))"
-" fold-var_248)))))"
-" for-loop_130)"
+"(for-loop_197 fold-var_247(hash-iterate-next ht_139 i_166))"
+" fold-var_247)))"
+" fold-var_199)))))"
+" for-loop_197)"
 " null"
 "(hash-iterate-first ht_139))))))))))))))"
 "(define-values"
@@ -41199,10 +41211,10 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'syntax-local-submodules"
-"(let-values(((ctx_61)"
+"(let-values(((ctx_62)"
 "(let-values(((temp137_1) 'syntax-local-submodules))"
 "(get-current-expand-context17.1 #f #f temp137_1 #t))))"
-"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_61)))"
+"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_62)))"
 "(reverse$1"
 "(let-values(((ht_141) submods_3))"
 "(begin"
@@ -41210,26 +41222,26 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_141)))"
 "((letrec-values(((for-loop_250)"
-"(lambda(fold-var_254 i_167)"
+"(lambda(fold-var_253 i_168)"
 "(begin"
 " 'for-loop"
-"(if i_167"
-"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_141 i_167)))"
-"(let-values(((fold-var_255)"
-"(let-values(((fold-var_256) fold-var_254))"
+"(if i_168"
+"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_141 i_168)))"
+"(let-values(((fold-var_254)"
+"(let-values(((fold-var_255) fold-var_253))"
 "(if(eq? kind_8 'module)"
-"(let-values(((fold-var_257) fold-var_256))"
-"(let-values(((fold-var_204)"
+"(let-values(((fold-var_204) fold-var_255))"
+"(let-values(((fold-var_205)"
 "(let-values()"
 "(cons"
 "(let-values() name_64)"
-" fold-var_257))))"
-"(values fold-var_204)))"
-" fold-var_256))))"
+" fold-var_204))))"
+"(values fold-var_205)))"
+" fold-var_255))))"
 "(if(not #f)"
-"(for-loop_250 fold-var_255(hash-iterate-next ht_141 i_167))"
-" fold-var_255)))"
-" fold-var_254)))))"
+"(for-loop_250 fold-var_254(hash-iterate-next ht_141 i_168))"
+" fold-var_254)))"
+" fold-var_253)))))"
 " for-loop_250)"
 " null"
 "(hash-iterate-first ht_141))))))))))"
@@ -41239,24 +41251,24 @@ static const char *startup_source =
 "(lambda(id59_0 only-generated?57_0 only-generated?58_0)"
 "(begin"
 " 'syntax-local-get-shadower60"
-"(let-values(((id_83) id59_0))"
+"(let-values(((id_82) id59_0))"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(identifier? id_83)"
+"(if(identifier? id_82)"
 "(void)"
 "(let-values()"
-"                                              (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_83)))"
+"                                              (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_82)))"
 "(values))))"
-"(let-values(((ctx_62)"
+"(let-values(((ctx_63)"
 "(let-values(((temp138_1) 'syntax-local-get-shadower))"
 "(get-current-expand-context17.1 #f #f temp138_1 #t))))"
-"(let-values(((new-id_0)(add-scopes id_83(expand-context-scopes ctx_62))))"
-"(if(syntax-clean? id_83) new-id_0(syntax-taint$1 new-id_0))))))))))))"
+"(let-values(((new-id_0)(add-scopes id_82(expand-context-scopes ctx_63))))"
+"(if(syntax-clean? id_82) new-id_0(syntax-taint$1 new-id_0))))))))))))"
 "(case-lambda"
-"((id_84)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_84 #f #f)))"
-"((id_85 only-generated?57_1)(syntax-local-get-shadower60_0 id_85 only-generated?57_1 #t)))))"
+"((id_83)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_83 #f #f)))"
+"((id_84 only-generated?57_1)(syntax-local-get-shadower60_0 id_84 only-generated?57_1 #t)))))"
 "(define-values"
 "(syntax-source-accessor)"
 "(lambda(who_0 srcloc-accessor_0)"
@@ -41282,8 +41294,8 @@ static const char *startup_source =
 "(srcloc-vector?)"
 "(lambda(v_68)"
 "(begin"
-"(if(let-values(((or-part_284)(not(vector-ref v_68 1))))"
-"(if or-part_284 or-part_284(exact-positive-integer?(vector-ref v_68 1))))"
+"(if(let-values(((or-part_285)(not(vector-ref v_68 1))))"
+"(if or-part_285 or-part_285(exact-positive-integer?(vector-ref v_68 1))))"
 "(if(let-values(((or-part_27)(not(vector-ref v_68 2))))"
 "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_68 2))))"
 "(if(let-values(((or-part_10)(not(vector-ref v_68 3))))"
@@ -41295,36 +41307,36 @@ static const char *startup_source =
 " #f))))"
 "(define-values"
 "(to-srcloc-stx)"
-"(lambda(v_191)"
+"(lambda(v_189)"
 "(begin"
-"(if(srcloc? v_191)"
+"(if(srcloc? v_189)"
 "(let-values()"
-"(let-values(((the-struct_69) empty-syntax))"
-"(if(syntax?$1 the-struct_69)"
-"(let-values(((srcloc1_2) v_191))"
+"(let-values(((the-struct_70) empty-syntax))"
+"(if(syntax?$1 the-struct_70)"
+"(let-values(((srcloc1_2) v_189))"
 "(syntax1.1"
-"(syntax-content the-struct_69)"
-"(syntax-scopes the-struct_69)"
-"(syntax-shifted-multi-scopes the-struct_69)"
-"(syntax-scope-propagations+tamper the-struct_69)"
-"(syntax-mpi-shifts the-struct_69)"
+"(syntax-content the-struct_70)"
+"(syntax-scopes the-struct_70)"
+"(syntax-shifted-multi-scopes the-struct_70)"
+"(syntax-scope-propagations+tamper the-struct_70)"
+"(syntax-mpi-shifts the-struct_70)"
 " srcloc1_2"
-"(syntax-props the-struct_69)"
-"(syntax-inspector the-struct_69)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_69))))"
-"(if(pair? v_191)"
-"(let-values()(to-srcloc-stx(list->vector v_191)))"
-"(if(vector? v_191)"
+"(syntax-props the-struct_70)"
+"(syntax-inspector the-struct_70)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_70))))"
+"(if(pair? v_189)"
+"(let-values()(to-srcloc-stx(list->vector v_189)))"
+"(if(vector? v_189)"
 "(let-values()"
 "(let-values(((the-struct_29) empty-syntax))"
 "(if(syntax?$1 the-struct_29)"
 "(let-values(((srcloc2_1)"
 "(srcloc"
-"(vector-ref v_191 0)"
-"(vector-ref v_191 1)"
-"(vector-ref v_191 2)"
-"(vector-ref v_191 3)"
-"(vector-ref v_191 4))))"
+"(vector-ref v_189 0)"
+"(vector-ref v_189 1)"
+"(vector-ref v_189 2)"
+"(vector-ref v_189 3)"
+"(vector-ref v_189 4))))"
 "(syntax1.1"
 "(syntax-content the-struct_29)"
 "(syntax-scopes the-struct_29)"
@@ -41335,7 +41347,7 @@ static const char *startup_source =
 "(syntax-props the-struct_29)"
 "(syntax-inspector the-struct_29)))"
 "                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))"
-"(let-values() v_191)))))))"
+"(let-values() v_189)))))))"
 "(define-values"
 "(1/syntax-e)"
 "(lambda(s_0)"
@@ -41360,7 +41372,7 @@ static const char *startup_source =
 "(begin"
 " 'datum->syntax9"
 "(let-values(((stx-c_4) stx-c7_0))"
-"(let-values(((s_422) s8_0))"
+"(let-values(((s_421) s8_0))"
 "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))"
 "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))"
 "(let-values()"
@@ -41370,9 +41382,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_285)(not stx-l_2)))"
-"(if or-part_285"
-" or-part_285"
+"(if(let-values(((or-part_286)(not stx-l_2)))"
+"(if or-part_286"
+" or-part_286"
 "(let-values(((or-part_28)(syntax?$1 stx-l_2)))"
 "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))"
 "(void)"
@@ -41392,11 +41404,11 @@ 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_286)(not stx-p_1)))"
-"(if or-part_286 or-part_286(syntax?$1 stx-p_1)))"
+"(if(let-values(((or-part_287)(not stx-p_1)))"
+"(if or-part_287 or-part_287(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_422(to-srcloc-stx stx-l_2) stx-p_1))))))))))))"
+"(datum->syntax$1 stx-c_4 s_421(to-srcloc-stx stx-l_2) stx-p_1))))))))))))"
 "(case-lambda"
 "((stx-c_5 s_71)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_71 #f #f #f #f #f #f)))"
 "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))"
@@ -41404,20 +41416,20 @@ static const char *startup_source =
 "((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))"
 "(define-values"
 "(1/syntax->list)"
-"(lambda(s_423)"
+"(lambda(s_422)"
 "(begin"
 " 'syntax->list"
 "(begin"
-"        (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_423)))"
-"(syntax->list$1 s_423)))))"
+"        (if (syntax?$1 s_422) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_422)))"
+"(syntax->list$1 s_422)))))"
 "(define-values"
 "(1/syntax-original?)"
-"(lambda(s_424)"
+"(lambda(s_423)"
 "(begin"
 " 'syntax-original?"
 "(begin"
-"        (if (syntax?$1 s_424) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_424)))"
-"(if(syntax-property$1 s_424 original-property-sym)(not(syntax-any-macro-scopes? s_424)) #f)))))"
+"        (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_423)))"
+"(if(syntax-property$1 s_423 original-property-sym)(not(syntax-any-macro-scopes? s_423)) #f)))))"
 "(define-values"
 "(1/bound-identifier=?)"
 "(let-values(((bound-identifier=?15_0)"
@@ -41426,7 +41438,7 @@ static const char *startup_source =
 " 'bound-identifier=?15"
 "(let-values(((a_53) a13_0))"
 "(let-values(((b_48) b14_1))"
-"(let-values(((phase_127)(if phase12_0 phase11_1(1/syntax-local-phase-level))))"
+"(let-values(((phase_129)(if phase12_0 phase11_1(1/syntax-local-phase-level))))"
 "(let-values()"
 "(begin"
 "(if(identifier? a_53)"
@@ -41435,10 +41447,10 @@ static const char *startup_source =
 "(if(identifier? b_48)"
 "(void)"
 "                                (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_48)))"
-"(if(phase? phase_127)"
+"(if(phase? phase_129)"
 "(void)"
-"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_127)))"
-"(bound-identifier=?$1 a_53 b_48 phase_127))))))))))"
+"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))"
+"(bound-identifier=?$1 a_53 b_48 phase_129))))))))))"
 "(case-lambda"
 "((a_54 b_81)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_81 #f #f)))"
 "((a_55 b_82 phase11_2)(bound-identifier=?15_0 a_55 b_82 phase11_2 #t)))))"
@@ -41488,8 +41500,8 @@ static const char *startup_source =
 "(void)"
 "                          (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_86)))"
 "(values))))"
-"(let-values(((phase_128)(add1(1/syntax-local-phase-level))))"
-"(free-identifier=?$1 a_60 b_86 phase_128 phase_128)))))))"
+"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))"
+"(free-identifier=?$1 a_60 b_86 phase_130 phase_130)))))))"
 "(define-values"
 "(1/free-template-identifier=?)"
 "(lambda(a_61 b_87)"
@@ -41507,8 +41519,8 @@ static const char *startup_source =
 "(void)"
 "                          (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_87)))"
 "(values))))"
-"(let-values(((phase_129)(sub1(1/syntax-local-phase-level))))"
-"(free-identifier=?$1 a_61 b_87 phase_129 phase_129)))))))"
+"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))"
+"(free-identifier=?$1 a_61 b_87 phase_131 phase_131)))))))"
 "(define-values"
 "(1/free-label-identifier=?)"
 "(lambda(a_62 b_88)"
@@ -41528,22 +41540,22 @@ static const char *startup_source =
 "(lambda(id29_0 phase25_1 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)"
 "(begin"
 " 'identifier-binding30"
-"(let-values(((id_86) id29_0))"
+"(let-values(((id_85) id29_0))"
 "(let-values(((phase_86)(if phase27_0 phase25_1(1/syntax-local-phase-level))))"
 "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))"
 "(let-values()"
 "(begin"
-"(if(identifier? id_86)"
+"(if(identifier? id_85)"
 "(void)"
-"                                (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_86)))"
+"                                (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_85)))"
 "(if(phase? phase_86)"
 "(void)"
 "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_86)))"
-"(identifier-binding$1 id_86 phase_86 top-level-symbol?_1))))))))))"
+"(identifier-binding$1 id_85 phase_86 top-level-symbol?_1))))))))))"
 "(case-lambda"
-"((id_87)(begin 'identifier-binding(identifier-binding30_0 id_87 #f #f #f #f)))"
-"((id_88 phase_130 top-level-symbol?26_1)(identifier-binding30_0 id_88 phase_130 top-level-symbol?26_1 #t #t))"
-"((id_89 phase25_2)(identifier-binding30_0 id_89 phase25_2 #f #t #f)))))"
+"((id_86)(begin 'identifier-binding(identifier-binding30_0 id_86 #f #f #f #f)))"
+"((id_87 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_87 phase_132 top-level-symbol?26_1 #t #t))"
+"((id_88 phase25_2)(identifier-binding30_0 id_88 phase25_2 #f #t #f)))))"
 "(define-values"
 "(1/identifier-transformer-binding)"
 "(let-values(((identifier-transformer-binding35_0)"
@@ -41560,67 +41572,67 @@ static const char *startup_source =
 "                                (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_53)))"
 "(identifier-binding$1 id_53(if phase_96(add1 phase_96) #f))))))))))"
 "(case-lambda"
-"((id_90)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_90 #f #f)))"
-"((id_91 phase32_3)(identifier-transformer-binding35_0 id_91 phase32_3 #t)))))"
+"((id_89)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_89 #f #f)))"
+"((id_90 phase32_3)(identifier-transformer-binding35_0 id_90 phase32_3 #t)))))"
 "(define-values"
 "(1/identifier-template-binding)"
-"(lambda(id_92)"
+"(lambda(id_91)"
 "(begin"
 " 'identifier-template-binding"
 "(begin"
-"(if(identifier? id_92)"
+"(if(identifier? id_91)"
 "(void)"
-"          (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_92)))"
-"(identifier-binding$1 id_92(sub1(1/syntax-local-phase-level)))))))"
+"          (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_91)))"
+"(identifier-binding$1 id_91(sub1(1/syntax-local-phase-level)))))))"
 "(define-values"
 "(1/identifier-label-binding)"
-"(lambda(id_93)"
+"(lambda(id_92)"
 "(begin"
 " 'identifier-label-binding"
 "(begin"
-"(if(identifier? id_93)"
+"(if(identifier? id_92)"
 "(void)"
-"          (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_93)))"
-"(identifier-binding$1 id_93 #f)))))"
+"          (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_92)))"
+"(identifier-binding$1 id_92 #f)))))"
 "(define-values"
 "(1/identifier-binding-symbol)"
 "(let-values(((identifier-binding-symbol40_0)"
 "(lambda(id39_0 phase37_2 phase38_0)"
 "(begin"
 " 'identifier-binding-symbol40"
-"(let-values(((id_94) id39_0))"
-"(let-values(((phase_131)(if phase38_0 phase37_2(1/syntax-local-phase-level))))"
+"(let-values(((id_93) id39_0))"
+"(let-values(((phase_133)(if phase38_0 phase37_2(1/syntax-local-phase-level))))"
 "(let-values()"
 "(begin"
-"(if(identifier? id_94)"
+"(if(identifier? id_93)"
 "(void)"
-"                              (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_94)))"
-"(if(phase? phase_131)"
+"                              (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_93)))"
+"(if(phase? phase_133)"
 "(void)"
-"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_131)))"
-"(identifier-binding-symbol$1 id_94 phase_131)))))))))"
+"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_133)))"
+"(identifier-binding-symbol$1 id_93 phase_133)))))))))"
 "(case-lambda"
-"((id_75)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_75 #f #f)))"
-"((id_95 phase37_3)(identifier-binding-symbol40_0 id_95 phase37_3 #t)))))"
+"((id_94)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_94 #f #f)))"
+"((id_75 phase37_3)(identifier-binding-symbol40_0 id_75 phase37_3 #t)))))"
 "(define-values"
 "(1/identifier-prune-lexical-context)"
 "(let-values(((identifier-prune-lexical-context45_0)"
 "(lambda(id44_0 syms42_0 syms43_0)"
 "(begin"
 " 'identifier-prune-lexical-context45"
-"(let-values(((id_96) id44_0))"
+"(let-values(((id_95) id44_0))"
 "(let-values(((syms_23)(if syms43_0 syms42_0 null)))"
 "(let-values()"
 "(begin"
-"(if(identifier? id_96)"
+"(if(identifier? id_95)"
 "(void)"
 "(let-values()"
-"                                (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_96)))"
+"                                (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_95)))"
 "(if(if(list? syms_23)(andmap2 symbol? syms_23) #f)"
 "(void)"
 "(let-values()"
 "                                (raise-argument-error 'identifier-prune-lexical-context \"(listof symbol?)\" syms_23)))"
-" id_96))))))))"
+" id_95))))))))"
 "(case-lambda"
 "((id_55)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_55 #f #f)))"
 "((id_67 syms42_1)(identifier-prune-lexical-context45_0 id_67 syms42_1 #t)))))"
@@ -41644,7 +41656,7 @@ static const char *startup_source =
 "(syntax-debug-info$1 s_397 phase_12 all-bindings?_1))))))))))"
 "(case-lambda"
 "((s_309)(begin 'syntax-debug-info(syntax-debug-info52_0 s_309 #f #f #f #f)))"
-"((s_27 phase_132 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_132 all-bindings?48_1 #t #t))"
+"((s_27 phase_134 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_134 all-bindings?48_1 #t #t))"
 "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))"
 "(define-values"
 "(1/syntax-shift-phase-level)"
@@ -41659,7 +41671,7 @@ static const char *startup_source =
 "(syntax-shift-phase-level$1 s_150 phase_20)))))"
 "(define-values"
 "(1/syntax-track-origin)"
-"(lambda(new-stx_8 old-stx_4 id_97)"
+"(lambda(new-stx_8 old-stx_4 id_96)"
 "(begin"
 " 'syntax-track-origin"
 "(let-values((()"
@@ -41676,21 +41688,21 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(identifier? id_97)"
+"(if(identifier? id_96)"
 "(void)"
-"                            (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_97)))"
+"                            (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_96)))"
 "(values))))"
-"(let-values(((s_425)(syntax-track-origin$1 new-stx_8 old-stx_4 id_97)))"
-"(let-values(((ctx_63)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))"
+"(let-values(((s_424)(syntax-track-origin$1 new-stx_8 old-stx_4 id_96)))"
+"(let-values(((ctx_64)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))"
 "(begin"
-"(if ctx_63"
+"(if ctx_64"
 "(let-values()"
-"(let-values(((obs_16)(expand-context-observer ctx_63)))"
+"(let-values(((obs_16)(expand-context-observer ctx_64)))"
 "(if obs_16"
-"(let-values()(let-values()(call-expand-observe obs_16 'track-origin new-stx_8 s_425)))"
+"(let-values()(let-values()(call-expand-observe obs_16 'track-origin new-stx_8 s_424)))"
 "(void))))"
 "(void))"
-" s_425)))))))))"
+" s_424)))))))))"
 "(define-values"
 "(1/namespace-attach-module)"
 "(let-values(((namespace-attach-module5_0)"
@@ -41783,17 +41795,17 @@ static const char *startup_source =
 "(void)"
 "                                        (let-values () (raise-argument-error who_18 \"namespace?\" dest-namespace_2)))"
 "(values))))"
-"(let-values(((phase_133)(namespace-phase src-namespace_6)))"
+"(let-values(((phase_135)(namespace-phase src-namespace_6)))"
 "(let-values((()"
 "(begin"
-"(if(eqv? phase_133(namespace-phase dest-namespace_2))"
+"(if(eqv? phase_135(namespace-phase dest-namespace_2))"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
 " who_18"
 "                                               \"source and destination namespace phases do not match\""
 "                                               \"source phase\""
-" phase_133"
+" phase_135"
 "                                               \"destination phase\""
 "(namespace-phase dest-namespace_2))))"
 "(values))))"
@@ -41889,10 +41901,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((m-ns_13"
 " already?_0)"
-"(if(let-values(((or-part_287)"
+"(if(let-values(((or-part_288)"
 " attach-this-instance?_0))"
-"(if or-part_287"
-" or-part_287"
+"(if or-part_288"
+" or-part_288"
 "(module-cross-phase-persistent?"
 " m_20)))"
 "(let-values()"
@@ -42130,17 +42142,17 @@ static const char *startup_source =
 "(check-list"
 " lst_175)))"
 "((letrec-values(((for-loop_251)"
-"(lambda(lst_293)"
+"(lambda(lst_292)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_293)"
+" lst_292)"
 "(let-values(((submod-name_0)"
 "(unsafe-car"
-" lst_293))"
+" lst_292))"
 "((rest_165)"
 "(unsafe-cdr"
-" lst_293)))"
+" lst_292)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -42187,9 +42199,9 @@ static const char *startup_source =
 "(resolved-module-path->module-path mod-path_16)"
 " mod-path_16)"
 " #f)"
-" phase_133"
+" phase_135"
 " attach-instances?_0"
-" phase_133)"
+" phase_135)"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -42199,14 +42211,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_143)))"
 "((letrec-values(((for-loop_252)"
-"(lambda(i_168)"
+"(lambda(i_169)"
 "(begin"
 " 'for-loop"
-"(if i_168"
+"(if i_169"
 "(let-values(((mod-name_20 phases_0)"
 "(hash-iterate-key+value"
 " ht_143"
-" i_168)))"
+" i_169)))"
 "(let-values((()"
 "(let-values(((ht_24)"
 " phases_0))"
@@ -42222,7 +42234,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_98"
-"(let-values(((phase_134"
+"(let-values(((phase_136"
 " m-ns_15)"
 "(hash-iterate-key+value"
 " ht_24"
@@ -42268,14 +42280,14 @@ static const char *startup_source =
 "(namespace-record-module-instance-attached!"
 " src-namespace_6"
 " mod-name_20"
-" phase_134)"
+" phase_136)"
 "(let-values(((or-part_210)"
 "(let-values(((dest-namespace47_0)"
 " dest-namespace_2)"
 "((mod-name48_0)"
 " mod-name_20)"
 "((phase49_2)"
-" phase_134))"
+" phase_136))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
@@ -42291,7 +42303,7 @@ static const char *startup_source =
 "(namespace-install-module-namespace!"
 " dest-namespace_2"
 " mod-name_20"
-" phase_134"
+" phase_136"
 " m_21"
 " m-ns_15)))))"
 "(void)))))"
@@ -42310,7 +42322,7 @@ static const char *startup_source =
 " ht_24))))))"
 "(if(not #f)"
 "(for-loop_252"
-"(hash-iterate-next ht_143 i_168))"
+"(hash-iterate-next ht_143 i_169))"
 "(values))))"
 "(values))))))"
 " for-loop_252)"
@@ -42332,12 +42344,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash-keys ht_47)))"
 "((letrec-values(((for-loop_49)"
-"(lambda(i_169)"
+"(lambda(i_170)"
 "(begin"
 " 'for-loop"
-"(if i_169"
+"(if i_170"
 "(let-values(((mod-name_21)"
-"(hash-iterate-key ht_47 i_169)))"
+"(hash-iterate-key ht_47 i_170)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -42351,7 +42363,7 @@ static const char *startup_source =
 "(values)))))"
 "(if(not #f)"
 "(for-loop_49"
-"(hash-iterate-next ht_47 i_169))"
+"(hash-iterate-next ht_47 i_170))"
 "(values))))"
 "(values))))))"
 " for-loop_49)"
@@ -42405,14 +42417,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-immutable-hash-keys ht_79)))"
 "((letrec-values(((for-loop_237)"
-"(lambda(fold-var_220 i_170)"
+"(lambda(fold-var_220 i_171)"
 "(begin"
 " 'for-loop"
-"(if i_170"
+"(if i_171"
 "(let-values(((sc_30)"
 "(unsafe-immutable-hash-iterate-key"
 " ht_79"
-" i_170)))"
+" i_171)))"
 "(let-values(((fold-var_216)"
 "(let-values(((fold-var_217)"
 " fold-var_220))"
@@ -42435,7 +42447,7 @@ static const char *startup_source =
 " fold-var_216"
 "(unsafe-immutable-hash-iterate-next"
 " ht_79"
-" i_170))"
+" i_171))"
 " fold-var_216)))"
 " fold-var_220)))))"
 " for-loop_237)"
@@ -42487,7 +42499,7 @@ static const char *startup_source =
 "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))"
 "(case-lambda"
 "((s_72)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_72 #f #f)))"
-"((s_426 ns1_3)(namespace-syntax-introduce4_0 s_426 ns1_3 #t)))))"
+"((s_425 ns1_3)(namespace-syntax-introduce4_0 s_425 ns1_3 #t)))))"
 "(define-values"
 "(1/namespace-module-identifier)"
 "(let-values(((namespace-module-identifier8_0)"
@@ -42791,10 +42803,10 @@ static const char *startup_source =
 "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)"
 "(if use-mapping?_0"
 "(let-values()"
-"(let-values(((id_98)(1/datum->syntax #f sym_51)))"
+"(let-values(((id_97)(1/datum->syntax #f sym_51)))"
 "(let-values(((b_89)"
 "(resolve+shift/extra-inspector"
-"(1/namespace-syntax-introduce id_98 ns_79)"
+"(1/namespace-syntax-introduce id_97 ns_79)"
 "(namespace-phase ns_79)"
 " ns_79)))"
 "(let-values((()"
@@ -42805,7 +42817,7 @@ static const char *startup_source =
 " ns_79))"
 "(void))"
 "(values))))"
-"(let-values(((v_192 primitive?_8 extra-inspector_8)"
+"(let-values(((v_190 primitive?_8 extra-inspector_8)"
 "(if b_89"
 "(let-values(((b123_0) b_89)"
 "((empty-env124_0) empty-env)"
@@ -42813,7 +42825,7 @@ static const char *startup_source =
 "((ns126_0) ns_79)"
 "((temp127_1)"
 "(namespace-phase ns_79))"
-"((id128_0) id_98))"
+"((id128_0) id_97))"
 "(binding-lookup48.1"
 " #f"
 " #f"
@@ -42827,13 +42839,13 @@ static const char *startup_source =
 " id128_0))"
 "(values variable #f #f))))"
 "(begin"
-"(if(variable? v_192)"
+"(if(variable? v_190)"
 "(void)"
 "(let-values()"
 "(escape_0"
-"(let-values(((or-part_288) failure-thunk_5))"
-"(if or-part_288"
-" or-part_288"
+"(let-values(((or-part_289) failure-thunk_5))"
+"(if or-part_289"
+" or-part_289"
 "(lambda()"
 "(raise"
 "(make-exn:fail:syntax$1"
@@ -42854,7 +42866,7 @@ static const char *startup_source =
 " b_89"
 " ns_79"
 "(namespace-phase ns_79)"
-" id_98)))"
+" id_97)))"
 "(module-binding-phase b_89)"
 "(module-binding-sym b_89))"
 "(values ns_79(namespace-phase ns_79) sym_51))))))))"
@@ -42866,9 +42878,9 @@ static const char *startup_source =
 " var-sym_6"
 "(lambda()"
 "(escape_0"
-"(let-values(((or-part_289) failure-thunk_5))"
-"(if or-part_289"
-" or-part_289"
+"(let-values(((or-part_290) failure-thunk_5))"
+"(if or-part_290"
+" or-part_290"
 "(raise"
 "(exn:fail:contract:variable"
 "(format"
@@ -42915,8 +42927,8 @@ static const char *startup_source =
 "(namespace-phase ns_80)"
 " sym_72)"
 "(values))))"
-"(let-values(((id_99)(1/datum->syntax #f sym_72)))"
-"(let-values(((temp129_1)(1/namespace-syntax-introduce id_99 ns_80))"
+"(let-values(((id_98)(1/datum->syntax #f sym_72)))"
+"(let-values(((temp129_1)(1/namespace-syntax-introduce id_98 ns_80))"
 "((temp130_1)"
 "(let-values(((temp132_1)(namespace-mpi ns_80))"
 "((temp133_1)(namespace-phase ns_80))"
@@ -43023,18 +43035,18 @@ static const char *startup_source =
 " compile2_0"
 "(lambda(s_411 ns_67)(begin 'compile(1/compile s_411 ns_67 #f))))))"
 "(let-values()"
-"(if(let-values(((or-part_290)(compiled-in-memory? s_146)))"
-"(if or-part_290"
-" or-part_290"
-"(let-values(((or-part_291)(1/linklet-directory? s_146)))"
-"(if or-part_291 or-part_291(1/linklet-bundle? s_146)))))"
+"(if(let-values(((or-part_291)(compiled-in-memory? s_146)))"
+"(if or-part_291"
+" or-part_291"
+"(let-values(((or-part_292)(1/linklet-directory? s_146)))"
+"(if or-part_292 or-part_292(1/linklet-bundle? s_146)))))"
 "(let-values()(eval-compiled s_146 ns_42))"
 "(if(if(syntax?$1 s_146)"
-"(let-values(((or-part_292)(compiled-in-memory?(1/syntax-e s_146))))"
-"(if or-part_292"
-" or-part_292"
-"(let-values(((or-part_293)(1/linklet-directory?(1/syntax-e s_146))))"
-"(if or-part_293 or-part_293(1/linklet-bundle?(1/syntax-e s_146))))))"
+"(let-values(((or-part_293)(compiled-in-memory?(1/syntax-e s_146))))"
+"(if or-part_293"
+" or-part_293"
+"(let-values(((or-part_294)(1/linklet-directory?(1/syntax-e s_146))))"
+"(if or-part_294 or-part_294(1/linklet-bundle?(1/syntax-e s_146))))))"
 " #f)"
 "(let-values()(eval-compiled(1/syntax->datum s_146) ns_42))"
 "(let-values()"
@@ -43058,8 +43070,8 @@ static const char *startup_source =
 " s_146"
 " ns_42)))))))))))))"
 "(case-lambda"
-"((s_426)(begin 'eval(eval6_0 s_426 #f #f #f #f)))"
-"((s_427 ns_44 compile2_1)(eval6_0 s_427 ns_44 compile2_1 #t #t))"
+"((s_425)(begin 'eval(eval6_0 s_425 #f #f #f #f)))"
+"((s_426 ns_44 compile2_1)(eval6_0 s_426 ns_44 compile2_1 #t #t))"
 "((s_173 ns1_5)(eval6_0 s_173 ns1_5 #f #t #f)))))"
 "(define-values"
 "(eval-compiled)"
@@ -43107,10 +43119,10 @@ static const char *startup_source =
 "(let-values()(list(1/syntax-e s_161)))"
 "(let-values()"
 "(let-values(((temp88_2)"
-"(lambda(s_428 ns_45 as-tail?_4)"
+"(lambda(s_427 ns_45 as-tail?_4)"
 "(list"
 "(compile-single$1"
-" s_428"
+" s_427"
 " ns_45"
 " expand_0"
 " serializable?_4"
@@ -43146,9 +43158,9 @@ static const char *startup_source =
 " #t"
 " cs_0))))))))))))))"
 "(case-lambda"
-"((s_429)(begin 'compile(compile23_0 s_429 #f #f #f #f #f #f #f #f)))"
-"((s_430 ns_47 serializable?_5 expand_1 to-source?17_1)"
-"(compile23_0 s_430 ns_47 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))"
+"((s_428)(begin 'compile(compile23_0 s_428 #f #f #f #f #f #f #f #f)))"
+"((s_429 ns_47 serializable?_5 expand_1 to-source?17_1)"
+"(compile23_0 s_429 ns_47 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))"
 "((s_149 ns_90 serializable?_6 expand16_1)(compile23_0 s_149 ns_90 serializable?_6 expand16_1 #f #t #t #t #f))"
 "((s_185 ns_91 serializable?15_1)(compile23_0 s_185 ns_91 serializable?15_1 #f #f #t #t #f #f))"
 "((s_17 ns14_3)(compile23_0 s_17 ns14_3 #f #f #f #t #f #f #f)))))"
@@ -43162,7 +43174,7 @@ static const char *startup_source =
 "(let-values(((ns_62)(if ns26_2 ns25_0(1/current-namespace))))"
 "(let-values()(1/compile s_22 ns_62 #t expand$1 #t))))))))"
 "(case-lambda"
-"((s_431)(begin(compile-to-linklets28_0 s_431 #f #f)))"
+"((s_430)(begin(compile-to-linklets28_0 s_430 #f #f)))"
 "((s_24 ns25_1)(compile-to-linklets28_0 s_24 ns25_1 #t)))))"
 "(define-values"
 "(struct:lifted-parsed-begin"
@@ -43193,10 +43205,10 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_73 1 'last))))"
 "(define-values"
 "(compile-single$1)"
-"(lambda(s_432 ns_92 expand_2 serializable?_7 to-source?_6)"
+"(lambda(s_431 ns_92 expand_2 serializable?_7 to-source?_6)"
 "(begin"
 " 'compile-single"
-"(let-values(((exp-s_4)(expand_2 s_432 ns_92 #f #t serializable?_7)))"
+"(let-values(((exp-s_4)(expand_2 s_431 ns_92 #f #t serializable?_7)))"
 "((letrec-values(((loop_97)"
 "(lambda(exp-s_5)"
 "(begin"
@@ -43234,7 +43246,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_163)))"
 "((letrec-values(((for-loop_183)"
-"(lambda(fold-var_258 lst_180)"
+"(lambda(fold-var_256 lst_180)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_180)"
@@ -43244,8 +43256,8 @@ static const char *startup_source =
 "(unsafe-cdr lst_180)))"
 "(let-values(((fold-var_160)"
 "(let-values(((fold-var_161)"
-" fold-var_258))"
-"(let-values(((fold-var_259)"
+" fold-var_256))"
+"(let-values(((fold-var_257)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -43253,11 +43265,11 @@ static const char *startup_source =
 " e_72))"
 " fold-var_161))))"
 "(values"
-" fold-var_259)))))"
+" fold-var_257)))))"
 "(if(not #f)"
 "(for-loop_183 fold-var_160 rest_95)"
 " fold-var_160)))"
-" fold-var_258)))))"
+" fold-var_256)))))"
 " for-loop_183)"
 " null"
 " lst_163)))))"
@@ -43341,9 +43353,9 @@ static const char *startup_source =
 " s_50"
 " ns_93)))))))))))))"
 "(case-lambda"
-"((s_433)(begin 'expand(expand40_0 s_433 #f #f #f #f #f #f #f #f)))"
-"((s_434 ns_95 observable?_2 to-parsed?_3 serializable?34_1)"
-"(expand40_0 s_434 ns_95 observable?_2 to-parsed?_3 serializable?34_1 #t #t #t #t))"
+"((s_432)(begin 'expand(expand40_0 s_432 #f #f #f #f #f #f #f #f)))"
+"((s_433 ns_95 observable?_2 to-parsed?_3 serializable?34_1)"
+"(expand40_0 s_433 ns_95 observable?_2 to-parsed?_3 serializable?34_1 #t #t #t #t))"
 "((s_54 ns_96 observable?_3 to-parsed?33_1)(expand40_0 s_54 ns_96 observable?_3 to-parsed?33_1 #f #t #t #t #f))"
 "((s_55 ns_97 observable?32_1)(expand40_0 s_55 ns_97 observable?32_1 #f #f #t #t #f #f))"
 "((s_318 ns31_3)(expand40_0 s_318 ns31_3 #f #f #f #t #f #f #f)))))"
@@ -43352,31 +43364,31 @@ static const char *startup_source =
 "(lambda(s_388 ns_98 observable?_4 to-parsed?_4 serializable?_9)"
 "(begin"
 "(let-values(((rebuild-s_2)(keep-properties-only s_388)))"
-"(let-values(((ctx_64)"
+"(let-values(((ctx_65)"
 "(let-values(((to-parsed?115_0) to-parsed?_4)"
 "((serializable?116_0) serializable?_9)"
 "((observable?117_0) observable?_4))"
 "(make-expand-context10.1 serializable?116_0 #t observable?117_0 #t to-parsed?115_0 #t ns_98))))"
-"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_388 ctx_64)))"
-"(if(if(null? require-lifts_3)(null? lifts_9) #f)"
+"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_388 ctx_65)))"
+"(if(if(null? require-lifts_3)(null? lifts_10) #f)"
 "(let-values() exp-s_6)"
 "(if to-parsed?_4"
 "(let-values()"
 "(let-values(((temp122_2)"
 "(lambda(form_0)"
 "(expand-single form_0 ns_98 observable?_4 to-parsed?_4 serializable?_9))))"
-"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_9 exp-s_6 rebuild-s_2)))"
+"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_10 exp-s_6 rebuild-s_2)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(log-top-lift-begin-before ctx_64 require-lifts_3 lifts_9 exp-s_6 ns_98)"
+"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_10 exp-s_6 ns_98)"
 "(values))))"
 "(let-values(((new-s_1)"
-"(let-values(((temp123_2)(append require-lifts_3 lifts_9))"
+"(let-values(((temp123_2)(append require-lifts_3 lifts_10))"
 "((temp124_2)"
 "(lambda(form_1)"
 "(begin"
-"(let-values(((obs_26)(expand-context-observer ctx_64)))"
+"(let-values(((obs_26)(expand-context-observer ctx_65)))"
 "(if obs_26"
 "(let-values()"
 "(let-values()(call-expand-observe obs_26 'next)))"
@@ -43393,7 +43405,7 @@ static const char *startup_source =
 "(let-values() form_2)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_42)(expand-context-observer ctx_64)))"
+"(let-values(((obs_42)(expand-context-observer ctx_65)))"
 "(if obs_42"
 "(let-values()"
 "(let-values()(call-expand-observe obs_42 'next)))"
@@ -43414,7 +43426,7 @@ static const char *startup_source =
 " temp123_2"
 " exp-s126_0"
 " temp127_2))))"
-"(begin(log-top-begin-after ctx_64 new-s_1) new-s_1))))))))))))"
+"(begin(log-top-begin-after ctx_65 new-s_1) new-s_1))))))))))))"
 "(define-values"
 "(expand-once$1)"
 "(let-values(((expand-once45_0)"
@@ -43447,73 +43459,73 @@ static const char *startup_source =
 " ns_99)))))))))"
 "(case-lambda"
 "((s_319)(begin 'expand-once(expand-once45_0 s_319 #f #f)))"
-"((s_435 ns42_2)(expand-once45_0 s_435 ns42_2 #t)))))"
+"((s_434 ns42_2)(expand-once45_0 s_434 ns42_2 #t)))))"
 "(define-values"
 "(expand-single-once)"
 "(lambda(s_63 ns_101)"
 "(begin"
-"(let-values(((require-lifts_4 lifts_10 exp-s_7)"
+"(let-values(((require-lifts_4 lifts_11 exp-s_7)"
 "(expand-capturing-lifts"
 " s_63"
 "(let-values(((v_111)"
 "(let-values(((temp136_1) #t))"
 "(make-expand-context10.1 #f #f temp136_1 #t #f #f ns_101))))"
-"(let-values(((the-struct_70) v_111))"
-"(if(expand-context/outer? the-struct_70)"
+"(let-values(((the-struct_71) v_111))"
+"(if(expand-context/outer? the-struct_71)"
 "(let-values(((inner137_0)"
-"(let-values(((the-struct_71)(root-expand-context/outer-inner v_111)))"
-"(if(expand-context/inner? the-struct_71)"
+"(let-values(((the-struct_72)(root-expand-context/outer-inner v_111)))"
+"(if(expand-context/inner? the-struct_72)"
 "(let-values(((just-once?138_0) #t))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-module-scopes the-struct_71)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_71)"
-"(root-expand-context/inner-all-scopes-stx the-struct_71)"
-"(root-expand-context/inner-defined-syms the-struct_71)"
-"(root-expand-context/inner-counter the-struct_71)"
-"(root-expand-context/inner-lift-key the-struct_71)"
-"(expand-context/inner-to-parsed? the-struct_71)"
-"(expand-context/inner-phase the-struct_71)"
-"(expand-context/inner-namespace the-struct_71)"
+"(root-expand-context/inner-module-scopes the-struct_72)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_72)"
+"(root-expand-context/inner-all-scopes-stx the-struct_72)"
+"(root-expand-context/inner-defined-syms the-struct_72)"
+"(root-expand-context/inner-counter the-struct_72)"
+"(root-expand-context/inner-lift-key the-struct_72)"
+"(expand-context/inner-to-parsed? the-struct_72)"
+"(expand-context/inner-phase the-struct_72)"
+"(expand-context/inner-namespace the-struct_72)"
 " just-once?138_0"
-"(expand-context/inner-module-begin-k the-struct_71)"
-"(expand-context/inner-allow-unbound? the-struct_71)"
-"(expand-context/inner-in-local-expand? the-struct_71)"
-"(expand-context/inner-stops the-struct_71)"
-"(expand-context/inner-declared-submodule-names the-struct_71)"
-"(expand-context/inner-lifts the-struct_71)"
-"(expand-context/inner-lift-envs the-struct_71)"
-"(expand-context/inner-module-lifts the-struct_71)"
-"(expand-context/inner-require-lifts the-struct_71)"
-"(expand-context/inner-to-module-lifts the-struct_71)"
-"(expand-context/inner-requires+provides the-struct_71)"
-"(expand-context/inner-observer the-struct_71)"
-"(expand-context/inner-for-serializable? the-struct_71)"
-"(expand-context/inner-should-not-encounter-macros? the-struct_71)))"
+"(expand-context/inner-module-begin-k the-struct_72)"
+"(expand-context/inner-allow-unbound? the-struct_72)"
+"(expand-context/inner-in-local-expand? the-struct_72)"
+"(expand-context/inner-stops the-struct_72)"
+"(expand-context/inner-declared-submodule-names the-struct_72)"
+"(expand-context/inner-lifts the-struct_72)"
+"(expand-context/inner-lift-envs the-struct_72)"
+"(expand-context/inner-module-lifts the-struct_72)"
+"(expand-context/inner-require-lifts the-struct_72)"
+"(expand-context/inner-to-module-lifts the-struct_72)"
+"(expand-context/inner-requires+provides the-struct_72)"
+"(expand-context/inner-observer the-struct_72)"
+"(expand-context/inner-for-serializable? the-struct_72)"
+"(expand-context/inner-should-not-encounter-macros? the-struct_72)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                              \"expand-context/inner?\""
-" the-struct_71)))))"
+" the-struct_72)))))"
 "(expand-context/outer1.1"
 " inner137_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_70)"
-"(root-expand-context/outer-use-site-scopes the-struct_70)"
-"(root-expand-context/outer-frame-id the-struct_70)"
-"(expand-context/outer-context the-struct_70)"
-"(expand-context/outer-env the-struct_70)"
-"(expand-context/outer-post-expansion-scope-action the-struct_70)"
-"(expand-context/outer-scopes the-struct_70)"
-"(expand-context/outer-def-ctx-scopes the-struct_70)"
-"(expand-context/outer-binding-layer the-struct_70)"
-"(expand-context/outer-reference-records the-struct_70)"
-"(expand-context/outer-only-immediate? the-struct_70)"
-"(expand-context/outer-need-eventually-defined the-struct_70)"
-"(expand-context/outer-current-introduction-scopes the-struct_70)"
-"(expand-context/outer-name the-struct_70)))"
-"                           (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_70)))))))"
-"(if(if(null? require-lifts_4)(null? lifts_10) #f)"
+"(root-expand-context/outer-post-expansion-scope the-struct_71)"
+"(root-expand-context/outer-use-site-scopes the-struct_71)"
+"(root-expand-context/outer-frame-id the-struct_71)"
+"(expand-context/outer-context the-struct_71)"
+"(expand-context/outer-env the-struct_71)"
+"(expand-context/outer-post-expansion-scope-action the-struct_71)"
+"(expand-context/outer-scopes the-struct_71)"
+"(expand-context/outer-def-ctx-scopes the-struct_71)"
+"(expand-context/outer-binding-layer the-struct_71)"
+"(expand-context/outer-reference-records the-struct_71)"
+"(expand-context/outer-only-immediate? the-struct_71)"
+"(expand-context/outer-need-eventually-defined the-struct_71)"
+"(expand-context/outer-current-introduction-scopes the-struct_71)"
+"(expand-context/outer-name the-struct_71)))"
+"                           (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_71)))))))"
+"(if(if(null? require-lifts_4)(null? lifts_11) #f)"
 "(let-values() exp-s_7)"
 "(let-values()"
-"(let-values(((temp139_0)(append require-lifts_4 lifts_10))"
+"(let-values(((temp139_0)(append require-lifts_4 lifts_11))"
 "((exp-s140_0) exp-s_7)"
 "((temp141_1)(namespace-phase ns_101)))"
 "(wrap-lifts-as-begin16.1 #f #f #f #f temp139_0 exp-s140_0 temp141_1))))))))"
@@ -43545,8 +43557,8 @@ static const char *startup_source =
 " s_202"
 " ns_102))))))))))"
 "(case-lambda"
-"((s_436)(begin 'expand-to-top-form(expand-to-top-form50_0 s_436 #f #f)))"
-"((s_437 ns47_1)(expand-to-top-form50_0 s_437 ns47_1 #t)))))"
+"((s_435)(begin 'expand-to-top-form(expand-to-top-form50_0 s_435 #f #f)))"
+"((s_436 ns47_1)(expand-to-top-form50_0 s_436 ns47_1 #t)))))"
 "(define-values"
 "(per-top-level68.1)"
 "(lambda(combine53_0"
@@ -43575,25 +43587,25 @@ static const char *startup_source =
 "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))"
 "(let-values(((observable?_5) observable?58_0))"
 "(let-values()"
-"(let-values(((s_438)(maybe-intro given-s_0 ns_103)))"
+"(let-values(((s_437)(maybe-intro given-s_0 ns_103)))"
 "(let-values(((ctx_1)"
 "(let-values(((observable?148_0) observable?_5))"
 "(make-expand-context10.1 #f #f observable?148_0 #t #f #f ns_103))))"
-"(let-values(((phase_135)(namespace-phase ns_103)))"
+"(let-values(((phase_137)(namespace-phase ns_103)))"
 "((letrec-values(((loop_98)"
 "(lambda(s_208 phase_50 ns_104 as-tail?_7)"
 "(begin"
 " 'loop"
 "(let-values(((tl-ctx_0)"
-"(let-values(((v_193) ctx_1))"
-"(let-values(((the-struct_72) v_193))"
-"(if(expand-context/outer? the-struct_72)"
+"(let-values(((v_191) ctx_1))"
+"(let-values(((the-struct_73) v_191))"
+"(if(expand-context/outer? the-struct_73)"
 "(let-values(((inner149_0)"
-"(let-values(((the-struct_73)"
+"(let-values(((the-struct_74)"
 "(root-expand-context/outer-inner"
-" v_193)))"
+" v_191)))"
 "(if(expand-context/inner?"
-" the-struct_73)"
+" the-struct_74)"
 "(let-values(((phase150_0)"
 " phase_50)"
 "((namespace151_0)"
@@ -43604,201 +43616,201 @@ static const char *startup_source =
 " serializable?_10))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_73)"
+" the-struct_74)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_73)"
+" the-struct_74)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_73)"
+" the-struct_74)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_73)"
+" the-struct_74)"
 "(root-expand-context/inner-counter"
-" the-struct_73)"
+" the-struct_74)"
 "(root-expand-context/inner-lift-key"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-to-parsed?"
-" the-struct_73)"
+" the-struct_74)"
 " phase150_0"
 " namespace151_0"
 " just-once?152_0"
 "(expand-context/inner-module-begin-k"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-stops"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-lifts"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-lift-envs"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-module-lifts"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-require-lifts"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-requires+provides"
-" the-struct_73)"
+" the-struct_74)"
 "(expand-context/inner-observer"
-" the-struct_73)"
+" the-struct_74)"
 " for-serializable?153_0"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_73)))"
+" the-struct_74)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                             \"expand-context/inner?\""
-" the-struct_73)))))"
+" the-struct_74)))))"
 "(expand-context/outer1.1"
 " inner149_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_72)"
+" the-struct_73)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_72)"
+" the-struct_73)"
 "(root-expand-context/outer-frame-id"
-" the-struct_72)"
+" the-struct_73)"
 "(expand-context/outer-context"
-" the-struct_72)"
-"(expand-context/outer-env the-struct_72)"
+" the-struct_73)"
+"(expand-context/outer-env the-struct_73)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_72)"
-"(expand-context/outer-scopes the-struct_72)"
+" the-struct_73)"
+"(expand-context/outer-scopes the-struct_73)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_72)"
+" the-struct_73)"
 "(expand-context/outer-binding-layer"
-" the-struct_72)"
+" the-struct_73)"
 "(expand-context/outer-reference-records"
-" the-struct_72)"
+" the-struct_73)"
 "(expand-context/outer-only-immediate?"
-" the-struct_72)"
+" the-struct_73)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_72)"
+" the-struct_73)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_72)"
-"(expand-context/outer-name the-struct_72)))"
+" the-struct_73)"
+"(expand-context/outer-name the-struct_73)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                           \"expand-context/outer?\""
-" the-struct_72))))))"
+" the-struct_73))))))"
 "(let-values(((wb-s_0)(if just-once?_1 s_208 #f)))"
-"(let-values(((require-lifts_5 lifts_11 exp-s_8)"
+"(let-values(((require-lifts_5 lifts_12 exp-s_8)"
 "(if(if quick-immediate?_0"
 "(core-form-sym s_208 phase_50)"
 " #f)"
 "(values null null s_208)"
 "(expand-capturing-lifts"
 " s_208"
-"(let-values(((v_194) tl-ctx_0))"
-"(let-values(((the-struct_74) v_194))"
-"(if(expand-context/outer? the-struct_74)"
+"(let-values(((v_192) tl-ctx_0))"
+"(let-values(((the-struct_75) v_192))"
+"(if(expand-context/outer? the-struct_75)"
 "(let-values(((only-immediate?154_0)"
 " #t)"
 "((def-ctx-scopes155_0)"
 "(box null))"
 "((inner156_0)"
-"(let-values(((the-struct_75)"
+"(let-values(((the-struct_76)"
 "(root-expand-context/outer-inner"
-" v_194)))"
+" v_192)))"
 "(if(expand-context/inner?"
-" the-struct_75)"
+" the-struct_76)"
 "(let-values(((phase157_0)"
 " phase_50)"
 "((namespace158_0)"
 " ns_104))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_75)"
+" the-struct_76)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_75)"
+" the-struct_76)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_75)"
+" the-struct_76)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_75)"
+" the-struct_76)"
 "(root-expand-context/inner-counter"
-" the-struct_75)"
+" the-struct_76)"
 "(root-expand-context/inner-lift-key"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-to-parsed?"
-" the-struct_75)"
+" the-struct_76)"
 " phase157_0"
 " namespace158_0"
 "(expand-context/inner-just-once?"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-module-begin-k"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-stops"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-lifts"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-lift-envs"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-module-lifts"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-require-lifts"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-requires+provides"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-observer"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-for-serializable?"
-" the-struct_75)"
+" the-struct_76)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_75)))"
+" the-struct_76)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                    \"expand-context/inner?\""
-" the-struct_75)))))"
+" the-struct_76)))))"
 "(expand-context/outer1.1"
 " inner156_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_74)"
+" the-struct_75)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_74)"
+" the-struct_75)"
 "(root-expand-context/outer-frame-id"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-context"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-env"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-scopes"
-" the-struct_74)"
+" the-struct_75)"
 " def-ctx-scopes155_0"
 "(expand-context/outer-binding-layer"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-reference-records"
-" the-struct_74)"
+" the-struct_75)"
 " only-immediate?154_0"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_74)"
+" the-struct_75)"
 "(expand-context/outer-name"
-" the-struct_74)))"
+" the-struct_75)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                  \"expand-context/outer?\""
-" the-struct_74))))))))"
+" the-struct_75))))))))"
 "(let-values(((disarmed-exp-s_0)(syntax-disarm$1 exp-s_8)))"
-"(if(let-values(((or-part_294)(pair? require-lifts_5)))"
-"(if or-part_294 or-part_294(pair? lifts_11)))"
+"(if(let-values(((or-part_295)(pair? require-lifts_5)))"
+"(if or-part_295 or-part_295(pair? lifts_12)))"
 "(let-values()"
 "(let-values(((new-s_2)"
 "(let-values(((temp159_1)"
 "(append"
 " require-lifts_5"
-" lifts_11))"
+" lifts_12))"
 "((exp-s160_0) exp-s_8)"
 "((phase161_0) phase_50))"
 "(wrap-lifts-as-begin16.1"
@@ -43843,7 +43855,7 @@ static const char *startup_source =
 "(let-values(((ok?_28 begin162_0 e163_0)"
 "(let-values(((s_395)"
 " disarmed-exp-s_0))"
-"(let-values(((orig-s_34)"
+"(let-values(((orig-s_33)"
 " s_395))"
 "(let-values(((begin162_1"
 " e163_1)"
@@ -43856,15 +43868,15 @@ static const char *startup_source =
 "(if(pair?"
 " s_111)"
 "(let-values(((begin164_0)"
-"(let-values(((s_439)"
+"(let-values(((s_438)"
 "(car"
 " s_111)))"
-" s_439))"
+" s_438))"
 "((e165_0)"
 "(let-values(((s_112)"
 "(cdr"
 " s_111)))"
-"(let-values(((s_420)"
+"(let-values(((s_439)"
 "(if(syntax?$1"
 " s_112)"
 "(syntax-e$1"
@@ -43872,14 +43884,14 @@ static const char *startup_source =
 " s_112)))"
 "(let-values(((flat-s_20)"
 "(to-syntax-list.1"
-" s_420)))"
+" s_439)))"
 "(if(not"
 " flat-s_20)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
-" orig-s_34))"
+" orig-s_33))"
 "(let-values()"
 " flat-s_20)))))))"
 "(values"
@@ -43888,7 +43900,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                   \"bad syntax\""
-" orig-s_34)))))"
+" orig-s_33)))))"
 "(values"
 " #t"
 " begin162_1"
@@ -43975,7 +43987,7 @@ static const char *startup_source =
 " e167_0)"
 "(let-values(((s_220)"
 " disarmed-exp-s_0))"
-"(let-values(((orig-s_35)"
+"(let-values(((orig-s_34)"
 " s_220))"
 "(let-values(((begin-for-syntax166_1"
 " e167_1)"
@@ -44011,7 +44023,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
-" orig-s_35))"
+" orig-s_34))"
 "(let-values()"
 " flat-s_21)))))))"
 "(values"
@@ -44020,7 +44032,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                   \"bad syntax\""
-" orig-s_35)))))"
+" orig-s_34)))))"
 "(values"
 " #t"
 " begin-for-syntax166_1"
@@ -44046,7 +44058,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((l_72)"
 "(reverse$1"
-"(let-values(((lst_294)"
+"(let-values(((lst_293)"
 " e167_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -44054,24 +44066,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_294)))"
+" lst_293)))"
 "((letrec-values(((for-loop_253)"
-"(lambda(fold-var_260"
-" lst_295)"
+"(lambda(fold-var_258"
+" lst_294)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_295)"
+" lst_294)"
 "(let-values(((s_443)"
 "(unsafe-car"
-" lst_295))"
+" lst_294))"
 "((rest_166)"
 "(unsafe-cdr"
-" lst_295)))"
+" lst_294)))"
+"(let-values(((fold-var_259)"
+"(let-values(((fold-var_260)"
+" fold-var_258))"
 "(let-values(((fold-var_261)"
-"(let-values(((fold-var_262)"
-" fold-var_260))"
-"(let-values(((fold-var_263)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -44080,19 +44092,19 @@ static const char *startup_source =
 " next-phase_0"
 " next-ns_0"
 " #f))"
-" fold-var_262))))"
+" fold-var_260))))"
 "(values"
-" fold-var_263)))))"
+" fold-var_261)))))"
 "(if(not"
 " #f)"
 "(for-loop_253"
-" fold-var_261"
+" fold-var_259"
 " rest_166)"
-" fold-var_261)))"
-" fold-var_260)))))"
+" fold-var_259)))"
+" fold-var_258)))))"
 " for-loop_253)"
 " null"
-" lst_294))))))"
+" lst_293))))))"
 "(if wrap_2"
 "(let-values()"
 "(wrap_2"
@@ -44109,8 +44121,8 @@ static const char *startup_source =
 " ns_104"
 " as-tail?_7)))))))))))))))))"
 " loop_98)"
-" s_438"
-" phase_135"
+" s_437"
+" phase_137"
 " ns_103"
 " #t)))))))))))))))))"
 "(define-values"
@@ -44123,13 +44135,13 @@ static const char *startup_source =
 "(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_444)(cons form-id_0 r_45) s_444 s_444) s_444))))"
 "(define-values"
 "(expand-capturing-lifts)"
-"(lambda(s_339 ctx_65)"
+"(lambda(s_339 ctx_66)"
 "(begin"
 "(let-values()"
-"(let-values(((ns_106)(expand-context-namespace ctx_65)))"
+"(let-values(((ns_106)(expand-context-namespace ctx_66)))"
 "(let-values((()(begin(namespace-visit-available-modules! ns_106)(values))))"
 "(let-values(((lift-ctx_6)"
-"(let-values(((temp170_1)(make-top-level-lift ctx_65)))"
+"(let-values(((temp170_1)(make-top-level-lift ctx_66)))"
 "(make-lift-context6.1 #f #f temp170_1))))"
 "(let-values(((require-lift-ctx_2)"
 "(make-require-lift-context"
@@ -44138,79 +44150,79 @@ static const char *startup_source =
 "(let-values(((exp-s_9)"
 "(let-values(((s171_0) s_339)"
 "((temp172_0)"
-"(let-values(((v_195) ctx_65))"
-"(let-values(((the-struct_76) v_195))"
-"(if(expand-context/outer? the-struct_76)"
+"(let-values(((v_193) ctx_66))"
+"(let-values(((the-struct_77) v_193))"
+"(if(expand-context/outer? the-struct_77)"
 "(let-values(((inner173_0)"
-"(let-values(((the-struct_77)"
-"(root-expand-context/outer-inner v_195)))"
-"(if(expand-context/inner? the-struct_77)"
+"(let-values(((the-struct_78)"
+"(root-expand-context/outer-inner v_193)))"
+"(if(expand-context/inner? the-struct_78)"
 "(let-values(((lifts174_0) lift-ctx_6)"
 "((module-lifts175_0) lift-ctx_6)"
 "((require-lifts176_0)"
 " require-lift-ctx_2))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_77)"
+" the-struct_78)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_77)"
+" the-struct_78)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_77)"
+" the-struct_78)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_77)"
-"(root-expand-context/inner-counter the-struct_77)"
+" the-struct_78)"
+"(root-expand-context/inner-counter the-struct_78)"
 "(root-expand-context/inner-lift-key"
-" the-struct_77)"
-"(expand-context/inner-to-parsed? the-struct_77)"
-"(expand-context/inner-phase the-struct_77)"
-"(expand-context/inner-namespace the-struct_77)"
-"(expand-context/inner-just-once? the-struct_77)"
+" the-struct_78)"
+"(expand-context/inner-to-parsed? the-struct_78)"
+"(expand-context/inner-phase the-struct_78)"
+"(expand-context/inner-namespace the-struct_78)"
+"(expand-context/inner-just-once? the-struct_78)"
 "(expand-context/inner-module-begin-k"
-" the-struct_77)"
+" the-struct_78)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_77)"
+" the-struct_78)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_77)"
-"(expand-context/inner-stops the-struct_77)"
+" the-struct_78)"
+"(expand-context/inner-stops the-struct_78)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_77)"
+" the-struct_78)"
 " lifts174_0"
-"(expand-context/inner-lift-envs the-struct_77)"
+"(expand-context/inner-lift-envs the-struct_78)"
 " module-lifts175_0"
 " require-lifts176_0"
 "(expand-context/inner-to-module-lifts"
-" the-struct_77)"
+" the-struct_78)"
 "(expand-context/inner-requires+provides"
-" the-struct_77)"
-"(expand-context/inner-observer the-struct_77)"
+" the-struct_78)"
+"(expand-context/inner-observer the-struct_78)"
 "(expand-context/inner-for-serializable?"
-" the-struct_77)"
+" the-struct_78)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_77)))"
+" the-struct_78)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                     \"expand-context/inner?\""
-" the-struct_77)))))"
+" the-struct_78)))))"
 "(expand-context/outer1.1"
 " inner173_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_76)"
-"(root-expand-context/outer-use-site-scopes the-struct_76)"
-"(root-expand-context/outer-frame-id the-struct_76)"
-"(expand-context/outer-context the-struct_76)"
-"(expand-context/outer-env the-struct_76)"
-"(expand-context/outer-post-expansion-scope-action the-struct_76)"
-"(expand-context/outer-scopes the-struct_76)"
-"(expand-context/outer-def-ctx-scopes the-struct_76)"
-"(expand-context/outer-binding-layer the-struct_76)"
-"(expand-context/outer-reference-records the-struct_76)"
-"(expand-context/outer-only-immediate? the-struct_76)"
-"(expand-context/outer-need-eventually-defined the-struct_76)"
-"(expand-context/outer-current-introduction-scopes the-struct_76)"
-"(expand-context/outer-name the-struct_76)))"
+"(root-expand-context/outer-post-expansion-scope the-struct_77)"
+"(root-expand-context/outer-use-site-scopes the-struct_77)"
+"(root-expand-context/outer-frame-id the-struct_77)"
+"(expand-context/outer-context the-struct_77)"
+"(expand-context/outer-env the-struct_77)"
+"(expand-context/outer-post-expansion-scope-action the-struct_77)"
+"(expand-context/outer-scopes the-struct_77)"
+"(expand-context/outer-def-ctx-scopes the-struct_77)"
+"(expand-context/outer-binding-layer the-struct_77)"
+"(expand-context/outer-reference-records the-struct_77)"
+"(expand-context/outer-only-immediate? the-struct_77)"
+"(expand-context/outer-need-eventually-defined the-struct_77)"
+"(expand-context/outer-current-introduction-scopes the-struct_77)"
+"(expand-context/outer-name the-struct_77)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                   \"expand-context/outer?\""
-" the-struct_76))))))"
+" the-struct_77))))))"
 "(expand7.1 #f #f #f #f s171_0 temp172_0))))"
 "(values"
 "(get-and-clear-require-lifts! require-lift-ctx_2)"
@@ -44220,10 +44232,10 @@ static const char *startup_source =
 "(make-parse-top-lifted-require)"
 "(lambda(ns_107)"
 "(begin"
-"(lambda(s_445 phase_136)"
+"(lambda(s_445 phase_138)"
 "(let-values(((ok?_30 #%require177_0 req178_0)"
 "(let-values(((s_350)(syntax-disarm$1 s_445)))"
-"(let-values(((orig-s_36) s_350))"
+"(let-values(((orig-s_35) s_350))"
 "(let-values(((#%require177_1 req178_1)"
 "(let-values(((s_243)(if(syntax?$1 s_350)(syntax-e$1 s_350) s_350)))"
 "(if(pair? s_243)"
@@ -44249,17 +44261,17 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
-" orig-s_36))))))"
+" orig-s_35))))))"
 "(values req181_0))"
-"                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_36))))))"
+"                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))"
 "(values #%require179_0 req180_0))"
-"                                            (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))"
+"                                            (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))"
 "(values #t #%require177_1 req178_1))))))"
 "(let-values(((temp182_0)(list req178_0))"
 "((s183_0) s_445)"
 "((ns184_0) ns_107)"
-"((phase185_0) phase_136)"
-"((phase186_0) phase_136)"
+"((phase185_0) phase_138)"
+"((phase186_0) phase_138)"
 "((temp187_0)(let-values(((temp189_0) #f))(make-requires+provides8.1 #f #f temp189_0)))"
 "((temp188_0) 'require))"
 "(parse-and-perform-requires!30.1"
@@ -44293,7 +44305,7 @@ static const char *startup_source =
 "(begin"
 " 'wrap-lifts-as-lifted-parsed-begin77"
 "(let-values(((require-lifts_6) require-lifts73_0))"
-"(let-values(((lifts_12) lifts74_0))"
+"(let-values(((lifts_13) lifts74_0))"
 "(let-values(((exp-s_10) exp-s75_0))"
 "(let-values(((rebuild-s_3) rebuild-s76_0))"
 "(let-values(((adjust-form_1) adjust-form71_0))"
@@ -44301,48 +44313,48 @@ static const char *startup_source =
 "(lifted-parsed-begin30.1"
 "(append"
 "(reverse$1"
-"(let-values(((lst_296) require-lifts_6))"
+"(let-values(((lst_295) require-lifts_6))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_296)))"
+"(let-values()(check-list lst_295)))"
 "((letrec-values(((for-loop_254)"
-"(lambda(fold-var_264 lst_297)"
+"(lambda(fold-var_262 lst_296)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_297)"
-"(let-values(((req_19)(unsafe-car lst_297))"
-"((rest_167)(unsafe-cdr lst_297)))"
+"(if(pair? lst_296)"
+"(let-values(((req_19)(unsafe-car lst_296))"
+"((rest_167)(unsafe-cdr lst_296)))"
+"(let-values(((fold-var_263)"
+"(let-values(((fold-var_264) fold-var_262))"
 "(let-values(((fold-var_265)"
-"(let-values(((fold-var_266) fold-var_264))"
-"(let-values(((fold-var_267)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(parsed-require23.1 req_19))"
-" fold-var_266))))"
-"(values fold-var_267)))))"
-"(if(not #f)(for-loop_254 fold-var_265 rest_167) fold-var_265)))"
-" fold-var_264)))))"
+" fold-var_264))))"
+"(values fold-var_265)))))"
+"(if(not #f)(for-loop_254 fold-var_263 rest_167) fold-var_263)))"
+" fold-var_262)))))"
 " for-loop_254)"
 " null"
-" lst_296))))"
+" lst_295))))"
 "(reverse$1"
-"(let-values(((lst_298)(get-lifts-as-lists lifts_12)))"
+"(let-values(((lst_297)(get-lifts-as-lists lifts_13)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_298)))"
+"(let-values()(check-list lst_297)))"
 "((letrec-values(((for-loop_255)"
-"(lambda(fold-var_268 lst_299)"
+"(lambda(fold-var_266 lst_298)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_299)"
-"(let-values(((ids+syms+rhs_0)(unsafe-car lst_299))"
-"((rest_168)(unsafe-cdr lst_299)))"
+"(if(pair? lst_298)"
+"(let-values(((ids+syms+rhs_0)(unsafe-car lst_298))"
+"((rest_168)(unsafe-cdr lst_298)))"
+"(let-values(((fold-var_267)"
+"(let-values(((fold-var_268) fold-var_266))"
 "(let-values(((fold-var_269)"
-"(let-values(((fold-var_270) fold-var_268))"
-"(let-values(((fold-var_271)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -44366,53 +44378,53 @@ static const char *startup_source =
 " just-rhs_0)))"
 "(if(lifted-parsed-begin?"
 " exp-rhs_3)"
-"(let-values(((the-struct_78)"
+"(let-values(((the-struct_79)"
 " exp-rhs_3))"
 "(if(lifted-parsed-begin?"
-" the-struct_78)"
+" the-struct_79)"
 "(let-values(((last190_0)"
 " dv_0))"
 "(lifted-parsed-begin30.1"
 "(lifted-parsed-begin-seq"
-" the-struct_78)"
+" the-struct_79)"
 " last190_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                   \"lifted-parsed-begin?\""
-" the-struct_78)))"
+" the-struct_79)))"
 " dv_0)))))"
-" fold-var_270))))"
-"(values fold-var_271)))))"
-"(if(not #f)(for-loop_255 fold-var_269 rest_168) fold-var_269)))"
-" fold-var_268)))))"
+" fold-var_268))))"
+"(values fold-var_269)))))"
+"(if(not #f)(for-loop_255 fold-var_267 rest_168) fold-var_267)))"
+" fold-var_266)))))"
 " for-loop_255)"
 " null"
-" lst_298)))))"
+" lst_297)))))"
 " exp-s_10))))))))))"
 "(define-values"
 "(log-top-lift-begin-before)"
-"(lambda(ctx_66 require-lifts_7 lifts_13 exp-s_11 ns_108)"
+"(lambda(ctx_67 require-lifts_7 lifts_14 exp-s_11 ns_108)"
 "(begin"
-"(let-values(((obs_45)(expand-context-observer ctx_66)))"
+"(let-values(((obs_45)(expand-context-observer ctx_67)))"
 "(if obs_45"
 "(let-values()"
 "(let-values(((new-s_4)"
-"(let-values(((temp191_0)(append require-lifts_7 lifts_13))"
+"(let-values(((temp191_0)(append require-lifts_7 lifts_14))"
 "((exp-s192_0) exp-s_11)"
 "((temp193_0)(namespace-phase ns_108)))"
 "(wrap-lifts-as-begin16.1 #f #f #f #f temp191_0 exp-s192_0 temp193_0))))"
-"(begin(call-expand-observe obs_45 'lift-loop new-s_4)(log-top-begin-before ctx_66 new-s_4))))"
+"(begin(call-expand-observe obs_45 'lift-loop new-s_4)(log-top-begin-before ctx_67 new-s_4))))"
 "(void))))))"
 "(define-values"
 "(log-top-begin-before)"
-"(lambda(ctx_67 new-s_5)"
+"(lambda(ctx_68 new-s_5)"
 "(begin"
-"(let-values(((obs_46)(expand-context-observer ctx_67)))"
+"(let-values(((obs_46)(expand-context-observer ctx_68)))"
 "(if obs_46"
 "(let-values()"
 "(let-values(((ok?_31 begin194_0 e195_0)"
 "(let-values(((s_261) new-s_5))"
-"(let-values(((orig-s_37) s_261))"
+"(let-values(((orig-s_36) s_261))"
 "(let-values(((begin194_1 e195_1)"
 "(let-values(((s_451)(if(syntax?$1 s_261)(syntax-e$1 s_261) s_261)))"
 "(if(pair? s_451)"
@@ -44429,10 +44441,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                         \"bad syntax\""
-" orig-s_37))"
+" orig-s_36))"
 "(let-values() flat-s_22)))))))"
 "(values begin196_0 e197_0))"
-"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))"
+"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))"
 "(values #t begin194_1 e195_1))))))"
 "(begin"
 "(call-expand-observe obs_46 'visit new-s_5)"
@@ -44443,14 +44455,14 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(log-top-begin-after)"
-"(lambda(ctx_68 new-s_6)"
+"(lambda(ctx_69 new-s_6)"
 "(begin"
-"(let-values(((obs_47)(expand-context-observer ctx_68)))"
+"(let-values(((obs_47)(expand-context-observer ctx_69)))"
 "(if obs_47"
 "(let-values()"
 "(let-values(((ok?_32 begin198_0 e199_0)"
 "(let-values(((s_453) new-s_6))"
-"(let-values(((orig-s_38) s_453))"
+"(let-values(((orig-s_37) s_453))"
 "(let-values(((begin198_1 e199_1)"
 "(let-values(((s_454)(if(syntax?$1 s_453)(syntax-e$1 s_453) s_453)))"
 "(if(pair? s_454)"
@@ -44467,12 +44479,12 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                         \"bad syntax\""
-" orig-s_38))"
+" orig-s_37))"
 "(let-values() flat-s_23)))))))"
 "(values begin200_0 e201_0))"
-"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_38)))))"
+"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))"
 "(values #t begin198_1 e199_1))))))"
-"(let-values(((obs_48)(expand-context-observer ctx_68)))"
+"(let-values(((obs_48)(expand-context-observer ctx_69)))"
 "(if obs_48"
 "(let-values()"
 "(let-values()"
@@ -44515,8 +44527,8 @@ static const char *startup_source =
 "(let-values(((or-part_6)(not sym_80)))"
 "(if or-part_6"
 " or-part_6"
-"(let-values(((or-part_285)(equal? sym_80 0)))"
-"(if or-part_285 or-part_285(void? sym_80)))))))"
+"(let-values(((or-part_286)(equal? sym_80 0)))"
+"(if or-part_286 or-part_286(void? sym_80)))))))"
 "(void)"
 "(let-values()"
 "                                                    (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_80)))"
@@ -44540,10 +44552,10 @@ static const char *startup_source =
 "(resolved-module-path->module-path mod-path_5)"
 " #f))))))"
 "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))"
-"(let-values(((phase_137)(namespace-phase ns_57)))"
+"(let-values(((phase_139)(namespace-phase ns_57)))"
 "(if(not sym_80)"
 "(let-values()"
-"(let-values(((phase23_0) phase_137)((temp24_5) #f))"
+"(let-values(((phase23_0) phase_139)((temp24_5) #f))"
 "(namespace-module-instantiate!96.1"
 " temp24_5"
 " #t"
@@ -44555,10 +44567,10 @@ static const char *startup_source =
 " #f"
 " ns_57"
 " mpi_46"
-" phase_137)))"
+" phase_139)))"
 "(if(equal? sym_80 0)"
 "(let-values()"
-"(let-values(((phase28_1) phase_137))"
+"(let-values(((phase28_1) phase_139))"
 "(namespace-module-instantiate!96.1"
 " #f"
 " #f"
@@ -44570,16 +44582,16 @@ static const char *startup_source =
 " #f"
 " ns_57"
 " mpi_46"
-" phase_137)))"
+" phase_139)))"
 "(if(void? sym_80)"
 "(let-values()"
-"(let-values(((phase32_4) phase_137))"
+"(let-values(((phase32_4) phase_139))"
 "(namespace-module-visit!104.1"
 " phase32_4"
 " #t"
 " ns_57"
 " mpi_46"
-" phase_137)))"
+" phase_139)))"
 "(let-values()"
 "(let-values(((m_22)(namespace->module ns_57 mod-name_22)))"
 "(let-values((()"
@@ -44617,7 +44629,7 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((phase36_0)"
-" phase_137))"
+" phase_139))"
 "(namespace-module-instantiate!96.1"
 " #f"
 " #f"
@@ -44629,7 +44641,7 @@ static const char *startup_source =
 " #f"
 " ns_57"
 " mpi_46"
-" phase_137))"
+" phase_139))"
 "(values))))"
 "(let-values(((ex-mod-name_0)"
 "(1/module-path-index-resolve"
@@ -44640,7 +44652,7 @@ static const char *startup_source =
 "(let-values(((m-ns_16)"
 "(let-values(((temp39_4)"
 "(phase-"
-" phase_137"
+" phase_139"
 " ex-phase_0))"
 "((temp40_2) #t))"
 "(namespace->module-namespace82.1"
@@ -44733,13 +44745,13 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((phase44_0)"
-" phase_137))"
+" phase_139))"
 "(namespace-module-visit!104.1"
 " phase44_0"
 " #t"
 " ns_57"
 " mpi_46"
-" phase_137))"
+" phase_139))"
 "(values))))"
 "(let-values(((t_54)"
 "(namespace-get-transformer"
@@ -44896,12 +44908,12 @@ static const char *startup_source =
 "(if(list? l_8)"
 "(andmap2"
 "(lambda(p_51)"
-"(let-values(((or-part_290)(not p_51)))"
-"(if or-part_290"
-" or-part_290"
-"(let-values(((or-part_291)(complete-path-string? p_51)))"
+"(let-values(((or-part_291)(not p_51)))"
 "(if or-part_291"
 " or-part_291"
+"(let-values(((or-part_292)(complete-path-string? p_51)))"
+"(if or-part_292"
+" or-part_292"
 "(if(hash? p_51)"
 "(let-values(((ht_144) p_51))"
 "(begin"
@@ -44981,7 +44993,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_86"
-"(let-values(((k_35 v_196)(hash-iterate-key+value ht_145 i_86)))"
+"(let-values(((k_35 v_194)(hash-iterate-key+value ht_145 i_86)))"
 "(let-values(((table_202)"
 "(let-values(((table_103) table_201))"
 "(let-values(((table_203)"
@@ -44990,7 +45002,7 @@ static const char *startup_source =
 "(let-values()"
 "(values"
 " k_35"
-"(to-path v_196)))))"
+"(to-path v_194)))))"
 "(hash-set"
 " table_103"
 " key_82"
@@ -45053,7 +45065,7 @@ static const char *startup_source =
 "             (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_181)))"
 " v_181))))))"
 "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))"
-"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_197)(if v_197 #t #f))))"
+"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_195)(if v_195 #t #f))))"
 "(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))"
 "(define-values"
 "(relative-path-string?$1)"
@@ -45116,8 +45128,8 @@ static const char *startup_source =
 "(let-values(((or-part_28)(1/string->number start_42)))"
 "(if or-part_28 or-part_28 0))))"
 "(let-values(((end_32)"
-"(let-values(((or-part_290)(1/string->number end_31)))"
-"(if or-part_290 or-part_290 0))))"
+"(let-values(((or-part_291)(1/string->number end_31)))"
+"(if or-part_291 or-part_291 0))))"
 "(let-values(((exe4_0) exe_0)"
 "((temp5_6)"
 "(lambda()"
@@ -45234,7 +45246,7 @@ static const char *startup_source =
 "(lambda(d_34)"
 "(begin"
 "      (let-values (((p_57) (if d_34 (build-path d_34 \"config.rktd\") #f)))"
-"(let-values(((or-part_286)"
+"(let-values(((or-part_287)"
 "(if p_57"
 "(if(file-exists? p_57)"
 "(let-values(((p9_0) p_57)"
@@ -45247,7 +45259,7 @@ static const char *startup_source =
 "(with-input-from-file45.1 #f #f p9_0 temp10_3))"
 " #f)"
 " #f)))"
-"(if or-part_286 or-part_286 '#hash()))))))"
+"(if or-part_287 or-part_287 '#hash()))))))"
 "(define-values"
 "(get-installation-name)"
 "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))"
@@ -45446,9 +45458,9 @@ static const char *startup_source =
 "(if(list? p_61)"
 "(if(let-values(((or-part_64)(= 2(length p_61))))"
 "(if or-part_64 or-part_64(= 3(length p_61))))"
-"(if(let-values(((or-part_295)(string?(car p_61))))"
-"(if or-part_295"
-" or-part_295"
+"(if(let-values(((or-part_296)(string?(car p_61))))"
+"(if or-part_296"
+" or-part_296"
 "(let-values(((or-part_262)"
 "(eq? 'root(car p_61))))"
 "(if or-part_262"
@@ -45499,8 +45511,8 @@ static const char *startup_source =
 "(let-values()(hash-set! ht_148 #f null)))"
 "(hash-for-each"
 " ht_148"
-"(lambda(k_37 v_198)"
-"(hash-set! ht_148 k_37(cons dir_1 v_198))))))"
+"(lambda(k_37 v_196)"
+"(hash-set! ht_148 k_37(cons dir_1 v_196))))))"
 "(let-values()"
 "(let-values(((s_16)(string->symbol(car p_62))))"
 "(hash-set!"
@@ -45511,7 +45523,7 @@ static const char *startup_source =
 " v_131)"
 "(hash-for-each"
 " ht_148"
-"(lambda(k_38 v_199)(hash-set! ht_148 k_38(reverse$1 v_199))))"
+"(lambda(k_38 v_197)(hash-set! ht_148 k_38(reverse$1 v_197))))"
 "(hash-set! links-cache links-path_0(cons ts_1 ht_148))"
 " ht_148))))))))))))))))))))))"
 "(define-values"
@@ -45544,7 +45556,7 @@ static const char *startup_source =
 "(let-values(((sym_88)"
 "(string->symbol"
 "(if(path? collection_3)(path->string collection_3) collection_3))))"
-"((letrec-values(((loop_96)"
+"((letrec-values(((loop_101)"
 "(lambda(l_79)"
 "(begin"
 " 'loop"
@@ -45552,20 +45564,20 @@ static const char *startup_source =
 "(let-values() null)"
 "(if(not(car l_79))"
 "(let-values()"
-"(append(1/current-library-collection-paths)(loop_96(cdr l_79))))"
+"(append(1/current-library-collection-paths)(loop_101(cdr l_79))))"
 "(if(hash?(car l_79))"
 "(let-values()"
 "(append"
 "(map2 box(hash-ref(car l_79) sym_88 null))"
 "(hash-ref(car l_79) #f null)"
-"(loop_96(cdr l_79))))"
+"(loop_101(cdr l_79))))"
 "(let-values()"
 "(let-values(((ht_149)(get-linked-collections(car l_79))))"
 "(append"
 "(hash-ref ht_149 sym_88 null)"
 "(hash-ref ht_149 #f null)"
-"(loop_96(cdr l_79))))))))))))"
-" loop_96)"
+"(loop_101(cdr l_79))))))))))))"
+" loop_101)"
 "(1/current-library-collection-links)))))"
 "(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))"
 "(let-values(((*build-path-rep_0)"
@@ -45753,13 +45765,13 @@ static const char *startup_source =
 "(if(null? l_80)"
 " null"
 "(let-values(((collects-path_1)(car l_80)))"
-"(let-values(((v_200)"
+"(let-values(((v_198)"
 "(exe-relative-path->complete-path"
 " collects-path_1)))"
-"(if v_200"
+"(if v_198"
 "(cons"
 "(simplify-path"
-"(path->complete-path v_200(current-directory)))"
+"(path->complete-path v_198(current-directory)))"
 "(loop_83(cdr l_80)))"
 "(loop_83(cdr l_80))))))))))"
 " loop_83)"
@@ -45909,43 +45921,43 @@ static const char *startup_source =
 " indentations_0"
 " keep-comment?_0))))"
 "(define-values(read-config-wrap)(lambda(v_183)(begin(read-config/outer-wrap v_183))))"
-"(define-values(read-config-line)(lambda(v_201)(begin(read-config/outer-line v_201))))"
-"(define-values(read-config-col)(lambda(v_202)(begin(read-config/outer-col v_202))))"
-"(define-values(read-config-pos)(lambda(v_203)(begin(read-config/outer-pos v_203))))"
-"(define-values(read-config-indentations)(lambda(v_204)(begin(read-config/outer-indentations v_204))))"
-"(define-values(read-config-keep-comment?)(lambda(v_205)(begin(read-config/outer-keep-comment? v_205))))"
+"(define-values(read-config-line)(lambda(v_199)(begin(read-config/outer-line v_199))))"
+"(define-values(read-config-col)(lambda(v_200)(begin(read-config/outer-col v_200))))"
+"(define-values(read-config-pos)(lambda(v_201)(begin(read-config/outer-pos v_201))))"
+"(define-values(read-config-indentations)(lambda(v_202)(begin(read-config/outer-indentations v_202))))"
+"(define-values(read-config-keep-comment?)(lambda(v_203)(begin(read-config/outer-keep-comment? v_203))))"
 "(define-values"
 "(read-config-readtable)"
-"(lambda(v_206)(begin(read-config/inner-readtable(read-config/outer-inner v_206)))))"
+"(lambda(v_204)(begin(read-config/inner-readtable(read-config/outer-inner v_204)))))"
 "(define-values"
 "(read-config-next-readtable)"
 "(lambda(v_92)(begin(read-config/inner-next-readtable(read-config/outer-inner v_92)))))"
 "(define-values"
 "(read-config-for-syntax?)"
-"(lambda(v_207)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_207)))))"
+"(lambda(v_205)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_205)))))"
 "(define-values(read-config-source)(lambda(v_71)(begin(read-config/inner-source(read-config/outer-inner v_71)))))"
 "(define-values"
 "(read-config-read-compiled)"
-"(lambda(v_208)(begin(read-config/inner-read-compiled(read-config/outer-inner v_208)))))"
+"(lambda(v_206)(begin(read-config/inner-read-compiled(read-config/outer-inner v_206)))))"
 "(define-values"
 "(read-config-dynamic-require)"
-"(lambda(v_209)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_209)))))"
+"(lambda(v_207)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_207)))))"
 "(define-values"
 "(read-config-module-declared?)"
 "(lambda(v_38)(begin(read-config/inner-module-declared?(read-config/outer-inner v_38)))))"
 "(define-values"
 "(read-config-coerce)"
-"(lambda(v_210)(begin(read-config/inner-coerce(read-config/outer-inner v_210)))))"
+"(lambda(v_208)(begin(read-config/inner-coerce(read-config/outer-inner v_208)))))"
 "(define-values"
 "(read-config-coerce-key)"
-"(lambda(v_211)(begin(read-config/inner-coerce-key(read-config/outer-inner v_211)))))"
+"(lambda(v_209)(begin(read-config/inner-coerce-key(read-config/outer-inner v_209)))))"
 "(define-values"
 "(read-config-parameter-override)"
-"(lambda(v_200)(begin(read-config/inner-parameter-override(read-config/outer-inner v_200)))))"
+"(lambda(v_198)(begin(read-config/inner-parameter-override(read-config/outer-inner v_198)))))"
 "(define-values"
 "(read-config-parameter-cache)"
-"(lambda(v_212)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_212)))))"
-"(define-values(read-config-st)(lambda(v_213)(begin(read-config/inner-st(read-config/outer-inner v_213)))))"
+"(lambda(v_210)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_210)))))"
+"(define-values(read-config-st)(lambda(v_211)(begin(read-config/inner-st(read-config/outer-inner v_211)))))"
 "(define-values"
 "(struct:read-config-state"
 " read-config-state3.1"
@@ -46033,10 +46045,10 @@ static const char *startup_source =
 "(if or-part_221"
 " or-part_221"
 "                                   (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))"
-"(let-values(((or-part_296) coerce_1))"
-"(if or-part_296 or-part_296(lambda(for-syntax?_2 v_111 srcloc_8) v_111)))"
-"(let-values(((or-part_297) coerce-key_1))"
-"(if or-part_297 or-part_297(lambda(for-syntax?_3 v_115) v_115)))"
+"(let-values(((or-part_297) coerce_1))"
+"(if or-part_297 or-part_297(lambda(for-syntax?_2 v_111 srcloc_8) v_111)))"
+"(let-values(((or-part_298) coerce-key_1))"
+"(if or-part_298 or-part_298(lambda(for-syntax?_3 v_115) v_115)))"
 " #f"
 " #f"
 " #f"
@@ -46066,14 +46078,14 @@ static const char *startup_source =
 "(let-values(((local-graph?_0) reset-graph?33_0))"
 "(let-values(((keep-comment?_2) keep-comment?34_0))"
 "(let-values()"
-"(let-values(((v_214) config_0))"
-"(let-values(((the-struct_79) v_214))"
-"(if(read-config/outer? the-struct_79)"
+"(let-values(((v_212) config_0))"
+"(let-values(((the-struct_80) v_212))"
+"(if(read-config/outer? the-struct_80)"
 "(let-values(((wrap48_0) wrap_5)"
 "((keep-comment?49_0) keep-comment?_2)"
 "((inner50_0)"
-"(let-values(((the-struct_80)(read-config/outer-inner v_214)))"
-"(if(read-config/inner? the-struct_80)"
+"(let-values(((the-struct_81)(read-config/outer-inner v_212)))"
+"(if(read-config/inner? the-struct_81)"
 "(let-values(((for-syntax?51_0) for-syntax?_4)"
 "((readtable52_0) readtable_2)"
 "((next-readtable53_0) next-readtable_2)"
@@ -46085,25 +46097,25 @@ static const char *startup_source =
 " readtable52_0"
 " next-readtable53_0"
 " for-syntax?51_0"
-"(read-config/inner-source the-struct_80)"
-"(read-config/inner-read-compiled the-struct_80)"
-"(read-config/inner-dynamic-require the-struct_80)"
-"(read-config/inner-module-declared? the-struct_80)"
-"(read-config/inner-coerce the-struct_80)"
-"(read-config/inner-coerce-key the-struct_80)"
-"(read-config/inner-parameter-override the-struct_80)"
-"(read-config/inner-parameter-cache the-struct_80)"
+"(read-config/inner-source the-struct_81)"
+"(read-config/inner-read-compiled the-struct_81)"
+"(read-config/inner-dynamic-require the-struct_81)"
+"(read-config/inner-module-declared? the-struct_81)"
+"(read-config/inner-coerce the-struct_81)"
+"(read-config/inner-coerce-key the-struct_81)"
+"(read-config/inner-parameter-override the-struct_81)"
+"(read-config/inner-parameter-cache the-struct_81)"
 " st54_0))"
-"                                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))"
+"                                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))"
 "(read-config/outer1.1"
 " inner50_0"
 " wrap48_0"
-"(read-config/outer-line the-struct_79)"
-"(read-config/outer-col the-struct_79)"
-"(read-config/outer-pos the-struct_79)"
-"(read-config/outer-indentations the-struct_79)"
+"(read-config/outer-line the-struct_80)"
+"(read-config/outer-col the-struct_80)"
+"(read-config/outer-pos the-struct_80)"
+"(read-config/outer-indentations the-struct_80)"
 " keep-comment?49_0))"
-"                            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))))))))"
+"                            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))))))))"
 "(define-values"
 "(port+config->srcloc)"
 "(lambda(in_1 config_1)"
@@ -46119,56 +46131,56 @@ static const char *startup_source =
 "(reading-at)"
 "(lambda(config_2 line_2 col_1 pos_105)"
 "(begin"
-"(let-values(((v_215) config_2))"
-"(let-values(((the-struct_81) v_215))"
-"(if(read-config/outer? the-struct_81)"
+"(let-values(((v_213) config_2))"
+"(let-values(((the-struct_82) v_213))"
+"(if(read-config/outer? the-struct_82)"
 "(let-values(((line55_0) line_2)"
 "((col56_0) col_1)"
 "((pos57_0) pos_105)"
-"((inner58_1)(read-config/outer-inner v_215)))"
+"((inner58_1)(read-config/outer-inner v_213)))"
 "(read-config/outer1.1"
 " inner58_1"
-"(read-config/outer-wrap the-struct_81)"
+"(read-config/outer-wrap the-struct_82)"
 " line55_0"
 " col56_0"
 " pos57_0"
-"(read-config/outer-indentations the-struct_81)"
-"(read-config/outer-keep-comment? the-struct_81)))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))"
+"(read-config/outer-indentations the-struct_82)"
+"(read-config/outer-keep-comment? the-struct_82)))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))"
 "(define-values"
 "(disable-wrapping)"
 "(lambda(config_3)"
 "(begin"
-"(let-values(((v_216) config_3))"
-"(let-values(((the-struct_82) v_216))"
-"(if(read-config/outer? the-struct_82)"
-"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_216)))"
+"(let-values(((v_214) config_3))"
+"(let-values(((the-struct_83) v_214))"
+"(if(read-config/outer? the-struct_83)"
+"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_214)))"
 "(read-config/outer1.1"
 " inner60_0"
 " wrap59_0"
-"(read-config/outer-line the-struct_82)"
-"(read-config/outer-col the-struct_82)"
-"(read-config/outer-pos the-struct_82)"
-"(read-config/outer-indentations the-struct_82)"
-"(read-config/outer-keep-comment? the-struct_82)))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))"
+"(read-config/outer-line the-struct_83)"
+"(read-config/outer-col the-struct_83)"
+"(read-config/outer-pos the-struct_83)"
+"(read-config/outer-indentations the-struct_83)"
+"(read-config/outer-keep-comment? the-struct_83)))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))"
 "(define-values"
 "(keep-comment)"
 "(lambda(config_4)"
 "(begin"
 "(let-values(((v_144) config_4))"
-"(let-values(((the-struct_83) v_144))"
-"(if(read-config/outer? the-struct_83)"
+"(let-values(((the-struct_84) v_144))"
+"(if(read-config/outer? the-struct_84)"
 "(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_144)))"
 "(read-config/outer1.1"
 " inner62_0"
-"(read-config/outer-wrap the-struct_83)"
-"(read-config/outer-line the-struct_83)"
-"(read-config/outer-col the-struct_83)"
-"(read-config/outer-pos the-struct_83)"
-"(read-config/outer-indentations the-struct_83)"
+"(read-config/outer-wrap the-struct_84)"
+"(read-config/outer-line the-struct_84)"
+"(read-config/outer-col the-struct_84)"
+"(read-config/outer-pos the-struct_84)"
+"(read-config/outer-indentations the-struct_84)"
 " keep-comment?61_0))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))"
 "(define-values"
 "(discard-comment)"
 "(lambda(config_5)"
@@ -46176,19 +46188,19 @@ static const char *startup_source =
 "(if(not(read-config-keep-comment? config_5))"
 "(let-values() config_5)"
 "(let-values()"
-"(let-values(((v_217) config_5))"
-"(let-values(((the-struct_84) v_217))"
-"(if(read-config/outer? the-struct_84)"
-"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_217)))"
+"(let-values(((v_215) config_5))"
+"(let-values(((the-struct_85) v_215))"
+"(if(read-config/outer? the-struct_85)"
+"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_215)))"
 "(read-config/outer1.1"
 " inner64_0"
-"(read-config/outer-wrap the-struct_84)"
-"(read-config/outer-line the-struct_84)"
-"(read-config/outer-col the-struct_84)"
-"(read-config/outer-pos the-struct_84)"
-"(read-config/outer-indentations the-struct_84)"
+"(read-config/outer-wrap the-struct_85)"
+"(read-config/outer-line the-struct_85)"
+"(read-config/outer-col the-struct_85)"
+"(read-config/outer-pos the-struct_85)"
+"(read-config/outer-indentations the-struct_85)"
 " keep-comment?63_0))"
-"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))"
+"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))"
 "(define-values"
 "(next-readtable)"
 "(lambda(config_6)"
@@ -46196,36 +46208,36 @@ static const char *startup_source =
 "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))"
 "(let-values() config_6)"
 "(let-values()"
-"(let-values(((v_218) config_6))"
-"(let-values(((the-struct_85) v_218))"
-"(if(read-config/outer? the-struct_85)"
+"(let-values(((v_216) config_6))"
+"(let-values(((the-struct_86) v_216))"
+"(if(read-config/outer? the-struct_86)"
 "(let-values(((inner65_0)"
-"(let-values(((the-struct_86)(read-config/outer-inner v_218)))"
-"(if(read-config/inner? the-struct_86)"
+"(let-values(((the-struct_87)(read-config/outer-inner v_216)))"
+"(if(read-config/inner? the-struct_87)"
 "(let-values(((readtable66_0)(read-config-next-readtable config_6)))"
 "(read-config/inner2.1"
 " readtable66_0"
-"(read-config/inner-next-readtable the-struct_86)"
-"(read-config/inner-for-syntax? the-struct_86)"
-"(read-config/inner-source the-struct_86)"
-"(read-config/inner-read-compiled the-struct_86)"
-"(read-config/inner-dynamic-require the-struct_86)"
-"(read-config/inner-module-declared? the-struct_86)"
-"(read-config/inner-coerce the-struct_86)"
-"(read-config/inner-coerce-key the-struct_86)"
-"(read-config/inner-parameter-override the-struct_86)"
-"(read-config/inner-parameter-cache the-struct_86)"
-"(read-config/inner-st the-struct_86)))"
-"                                  (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))"
+"(read-config/inner-next-readtable the-struct_87)"
+"(read-config/inner-for-syntax? the-struct_87)"
+"(read-config/inner-source the-struct_87)"
+"(read-config/inner-read-compiled the-struct_87)"
+"(read-config/inner-dynamic-require the-struct_87)"
+"(read-config/inner-module-declared? the-struct_87)"
+"(read-config/inner-coerce the-struct_87)"
+"(read-config/inner-coerce-key the-struct_87)"
+"(read-config/inner-parameter-override the-struct_87)"
+"(read-config/inner-parameter-cache the-struct_87)"
+"(read-config/inner-st the-struct_87)))"
+"                                  (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))"
 "(read-config/outer1.1"
 " inner65_0"
-"(read-config/outer-wrap the-struct_85)"
-"(read-config/outer-line the-struct_85)"
-"(read-config/outer-col the-struct_85)"
-"(read-config/outer-pos the-struct_85)"
-"(read-config/outer-indentations the-struct_85)"
-"(read-config/outer-keep-comment? the-struct_85)))"
-"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))"
+"(read-config/outer-wrap the-struct_86)"
+"(read-config/outer-line the-struct_86)"
+"(read-config/outer-col the-struct_86)"
+"(read-config/outer-pos the-struct_86)"
+"(read-config/outer-indentations the-struct_86)"
+"(read-config/outer-keep-comment? the-struct_86)))"
+"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))))"
 "(define-values"
 "(coerce)"
 "(lambda(val_74 in_2 config_7)"
@@ -46235,20 +46247,20 @@ static const char *startup_source =
 " for-syntax?_5"
 " val_74"
 "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))"
-"(define-values(default-reader-guard$1)(lambda(v_219)(begin 'default-reader-guard v_219)))"
+"(define-values(default-reader-guard$1)(lambda(v_217)(begin 'default-reader-guard v_217)))"
 "(define-values"
 "(1/current-reader-guard)"
 "(make-parameter"
 " default-reader-guard$1"
-"(lambda(v_220)"
+"(lambda(v_218)"
 "(begin"
-"(if(if(procedure? v_220)(procedure-arity-includes? v_220 1) #f)"
+"(if(if(procedure? v_218)(procedure-arity-includes? v_218 1) #f)"
 "(void)"
-"         (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_220)))"
-" v_220))))"
+"         (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_218)))"
+" v_218))))"
 "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))"
-"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_221)(if v_221 #t #f))))"
-"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_222)(if v_222 #t #f))))"
+"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_219)(if v_219 #t #f))))"
+"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_220)(if v_220 #t #f))))"
 "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_62)(if v_62 #t #f))))"
 "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))"
 "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_63)(if v_63 #t #f))))"
@@ -46276,36 +46288,36 @@ static const char *startup_source =
 "(lambda(param_1 config_9 v_28)"
 "(begin"
 "(let-values(((v_93) config_9))"
-"(let-values(((the-struct_87) v_93))"
-"(if(read-config/outer? the-struct_87)"
+"(let-values(((the-struct_88) v_93))"
+"(if(read-config/outer? the-struct_88)"
 "(let-values(((inner1_0)"
-"(let-values(((the-struct_88)(read-config/outer-inner v_93)))"
-"(if(read-config/inner? the-struct_88)"
+"(let-values(((the-struct_89)(read-config/outer-inner v_93)))"
+"(if(read-config/inner? the-struct_89)"
 "(let-values(((parameter-override2_0)"
 "(hash-set(read-config-parameter-override config_9) param_1 v_28)))"
 "(read-config/inner2.1"
-"(read-config/inner-readtable the-struct_88)"
-"(read-config/inner-next-readtable the-struct_88)"
-"(read-config/inner-for-syntax? the-struct_88)"
-"(read-config/inner-source the-struct_88)"
-"(read-config/inner-read-compiled the-struct_88)"
-"(read-config/inner-dynamic-require the-struct_88)"
-"(read-config/inner-module-declared? the-struct_88)"
-"(read-config/inner-coerce the-struct_88)"
-"(read-config/inner-coerce-key the-struct_88)"
+"(read-config/inner-readtable the-struct_89)"
+"(read-config/inner-next-readtable the-struct_89)"
+"(read-config/inner-for-syntax? the-struct_89)"
+"(read-config/inner-source the-struct_89)"
+"(read-config/inner-read-compiled the-struct_89)"
+"(read-config/inner-dynamic-require the-struct_89)"
+"(read-config/inner-module-declared? the-struct_89)"
+"(read-config/inner-coerce the-struct_89)"
+"(read-config/inner-coerce-key the-struct_89)"
 " parameter-override2_0"
-"(read-config/inner-parameter-cache the-struct_88)"
-"(read-config/inner-st the-struct_88)))"
-"                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_88)))))"
+"(read-config/inner-parameter-cache the-struct_89)"
+"(read-config/inner-st the-struct_89)))"
+"                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_89)))))"
 "(read-config/outer1.1"
 " inner1_0"
-"(read-config/outer-wrap the-struct_87)"
-"(read-config/outer-line the-struct_87)"
-"(read-config/outer-col the-struct_87)"
-"(read-config/outer-pos the-struct_87)"
-"(read-config/outer-indentations the-struct_87)"
-"(read-config/outer-keep-comment? the-struct_87)))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_87)))))))"
+"(read-config/outer-wrap the-struct_88)"
+"(read-config/outer-line the-struct_88)"
+"(read-config/outer-col the-struct_88)"
+"(read-config/outer-pos the-struct_88)"
+"(read-config/outer-indentations the-struct_88)"
+"(read-config/outer-keep-comment? the-struct_88)))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_88)))))))"
 "(define-values"
 "(force-parameters!)"
 "(lambda(config_10)"
@@ -46390,7 +46402,7 @@ static const char *startup_source =
 "(if(let-values(((or-part_55)(not rt_0)))(if or-part_55 or-part_55(1/readtable? rt_0)))"
 "(void)"
 "          (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))"
-"((letrec-values(((loop_101)"
+"((letrec-values(((loop_102)"
 "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)"
 "(begin"
 " 'loop"
@@ -46443,10 +46455,10 @@ static const char *startup_source =
 " 'non-terminating-macro)))"
 "(if or-part_33"
 " or-part_33"
-"(let-values(((or-part_298)"
+"(let-values(((or-part_299)"
 "(eq? mode_16 'dispatch-macro)))"
-"(if or-part_298"
-" or-part_298"
+"(if or-part_299"
+" or-part_299"
 "(char? mode_16)))))))"
 "(void)"
 "(let-values()"
@@ -46489,7 +46501,7 @@ static const char *startup_source =
 " 'make-readtable"
 "                                                             \"(procedure-arity-includes/c 6)\""
 " target_0)))"
-"(loop_101"
+"(loop_102"
 " rest-args_0"
 " target_0"
 " char-ht_0"
@@ -46507,7 +46519,7 @@ static const char *startup_source =
 " 'make-readtable"
 "                                                               \"(procedure-arity-includes/c 6)\""
 " target_0)))"
-"(loop_101"
+"(loop_102"
 " rest-args_0"
 " symbol-parser_0"
 " char-ht_0"
@@ -46555,7 +46567,7 @@ static const char *startup_source =
 " mode_16"
 " mode_16)"
 " mode_16))))"
-"(loop_101"
+"(loop_102"
 " rest-args_0"
 " symbol-parser_0"
 " new-char-ht_0"
@@ -46583,13 +46595,13 @@ static const char *startup_source =
 "(if(eq? mode_16 'terminating-macro)"
 " 'delimit"
 " 'no-delimit))))"
-"(loop_101"
+"(loop_102"
 " rest-args_0"
 " symbol-parser_0"
 " new-char-ht_1"
 " dispatch-ht_0"
 " new-delimiter-ht_1))))))))))))))))))))))"
-" loop_101)"
+" loop_102)"
 " args_7"
 "(if rt_0(readtable-symbol-parser rt_0) #f)"
 "(if rt_0(readtable-char-ht rt_0) '#hasheqv())"
@@ -46695,14 +46707,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_151)))"
 "((letrec-values(((for-loop_257)"
-"(lambda(fold-var_79 i_171)"
+"(lambda(fold-var_79 i_172)"
 "(begin"
 " 'for-loop"
-"(if i_171"
-"(let-values(((k_39 v_223)(hash-iterate-key+value ht_151 i_171)))"
-"(let-values(((fold-var_272)"
+"(if i_172"
+"(let-values(((k_39 v_221)(hash-iterate-key+value ht_151 i_172)))"
+"(let-values(((fold-var_270)"
 "(let-values(((fold-var_82) fold-var_79))"
-"(if(eqv? v_223 c_61)"
+"(if(eqv? v_221 c_61)"
 "(let-values(((fold-var_232) fold-var_82))"
 "(let-values(((fold-var_13)"
 "(let-values()"
@@ -46710,8 +46722,8 @@ static const char *startup_source =
 "(values fold-var_13)))"
 " fold-var_82))))"
 "(if(not #f)"
-"(for-loop_257 fold-var_272(hash-iterate-next ht_151 i_171))"
-" fold-var_272)))"
+"(for-loop_257 fold-var_270(hash-iterate-next ht_151 i_172))"
+" fold-var_270)))"
 " fold-var_79)))))"
 " for-loop_257)"
 " null"
@@ -46860,10 +46872,10 @@ static const char *startup_source =
 " in_10"
 " special1.1"
 " source_5))))"
-"(if(let-values(((or-part_292)"
+"(if(let-values(((or-part_293)"
 "(eof-object? c_48)))"
-"(if or-part_292"
-" or-part_292"
+"(if or-part_293"
+" or-part_293"
 "(eqv?"
 " '#\\newline"
 "(effective-char c_48 config_15))))"
@@ -46978,7 +46990,7 @@ static const char *startup_source =
 "(let-values(((line_5 col_4 pos_108)(port-next-location in_15)))"
 "(begin"
 "(consume-char in_15 '#\\|)"
-"((letrec-values(((loop_102)"
+"((letrec-values(((loop_103)"
 "(lambda(prev-c_0 depth_10)"
 "(begin"
 " 'loop"
@@ -46992,23 +47004,23 @@ static const char *startup_source =
 "                                                     ((temp9_2) \"end of file in `#|` comment\"))"
 "(reader-error10.1 #f #f c8_0 #t #f #f in_15 temp7_2 temp9_2(list))))"
 "(if(not(char? c_65))"
-"(let-values()(loop_102 #f depth_10))"
+"(let-values()(loop_103 #f depth_10))"
 "(if(if(char=? '#\\| c_65)(eqv? prev-c_0 '#\\#) #f)"
-"(let-values()(loop_102 #f(add1 depth_10)))"
+"(let-values()(loop_103 #f(add1 depth_10)))"
 "(if(if(char=? '#\\# c_65)(eqv? prev-c_0 '#\\|) #f)"
 "(let-values()"
 "(if(positive? depth_10)"
-"(let-values()(loop_102 #f(sub1 depth_10)))"
+"(let-values()(loop_103 #f(sub1 depth_10)))"
 "(void)))"
-"(let-values()(loop_102 c_65 depth_10)))))))))))"
-" loop_102)"
+"(let-values()(loop_103 c_65 depth_10)))))))))))"
+" loop_103)"
 " #f"
 " 0)))))))"
 "(define-values"
 "(skip-unix-line-comment!)"
 "(lambda(in_17 config_20)"
 "(begin"
-"((letrec-values(((loop_103)"
+"((letrec-values(((loop_104)"
 "(lambda(backslash?_0)"
 "(begin"
 " 'loop"
@@ -47018,13 +47030,13 @@ static const char *startup_source =
 "(if(eof-object? c_44)"
 "(let-values()(void))"
 "(if(not(char? c_44))"
-"(let-values()(loop_103 #f))"
+"(let-values()(loop_104 #f))"
 "(if(char=? c_44 '#\\newline)"
-"(let-values()(if backslash?_0(let-values()(loop_103 #f))(void)))"
+"(let-values()(if backslash?_0(let-values()(loop_104 #f))(void)))"
 "(if(char=? c_44 '#\\\\)"
-"(let-values()(loop_103 #t))"
-"(let-values()(loop_103 #f)))))))))))"
-" loop_103)"
+"(let-values()(loop_104 #t))"
+"(let-values()(loop_104 #f)))))))))))"
+" loop_104)"
 " #f))))"
 "(define-values"
 "(readtable-char-delimiter?)"
@@ -47041,12 +47053,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_299)(char=? dc_0 '#\\()))"
-"(if or-part_299"
-" or-part_299"
-"(let-values(((or-part_284)(char=? dc_0 '#\\))))"
-"(if or-part_284"
-" or-part_284"
+"(let-values(((or-part_300)(char=? dc_0 '#\\()))"
+"(if or-part_300"
+" or-part_300"
+"(let-values(((or-part_285)(char=? dc_0 '#\\))))"
+"(if or-part_285"
+" or-part_285"
 "(let-values(((or-part_27)(char=? dc_0 '#\\[)))"
 "(if or-part_27"
 " or-part_27"
@@ -47110,15 +47122,15 @@ static const char *startup_source =
 "(let-values()"
 "(apply"
 " string-append"
-"((letrec-values(((loop_104)"
+"((letrec-values(((loop_105)"
 "(lambda(cs_2)"
 "(begin"
 " 'loop"
 "(if(null?(cdr cs_2))"
 "                                               (let-values () (list (format \"or `~a`\" (car cs_2))))"
 "(let-values()"
-"                                                 (cons (format \"`~a`, \" (car cs_2)) (loop_104 (cdr cs_2)))))))))"
-" loop_104)"
+"                                                 (cons (format \"`~a`, \" (car cs_2)) (loop_105 (cdr cs_2)))))))))"
+" loop_105)"
 " cs_1)))))))))))))"
 "(define-values"
 "(closer->opener)"
@@ -47142,9 +47154,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_49 #f)"
 "              (let-values () (format \"~a, ~a, or ~a\" p_57 s_10 c_49))"
-"(if(let-values(((or-part_291) s_10))(if or-part_291 or-part_291 c_49))"
+"(if(let-values(((or-part_292) s_10))(if or-part_292 or-part_292 c_49))"
 "(let-values()"
-"                  (format \"~a or ~a\" p_57 (let-values (((or-part_292) s_10)) (if or-part_292 or-part_292 c_49))))"
+"                  (format \"~a or ~a\" p_57 (let-values (((or-part_293) s_10)) (if or-part_293 or-part_293 c_49))))"
 "(let-values() p_57)))))))))"
 "(define-values"
 "(struct:accum-string"
@@ -47327,19 +47339,19 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((missing_2)"
 "(let-values(((or-part_262)"
-"(let-values(((lst_300)(cdr indts_1)))"
+"(let-values(((lst_299)(cdr indts_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_300)))"
+"(let-values()(check-list lst_299)))"
 "((letrec-values(((for-loop_258)"
-"(lambda(result_37 lst_301)"
+"(lambda(result_37 lst_300)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_301)"
-"(let-values(((indt_3)(unsafe-car lst_301))"
+"(if(pair? lst_300)"
+"(let-values(((indt_3)(unsafe-car lst_300))"
 "((rest_169)"
-"(unsafe-cdr lst_301)))"
+"(unsafe-cdr lst_300)))"
 "(let-values(((result_112)"
 "(let-values()"
 "(let-values(((result_76)"
@@ -47362,7 +47374,7 @@ static const char *startup_source =
 " result_37)))))"
 " for-loop_258)"
 " #f"
-" lst_300)))))"
+" lst_299)))))"
 "                                   (if or-part_262 or-part_262 \"expected\"))))"
 "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))"
 "(format"
@@ -47461,7 +47473,7 @@ static const char *startup_source =
 "(void))"
 " e_69))))))"
 "(let-values(((seq_0)"
-"((letrec-values(((loop_105)"
+"((letrec-values(((loop_106)"
 "(lambda(depth_11"
 " accum_0"
 " init-c_3"
@@ -47554,7 +47566,7 @@ static const char *startup_source =
 " temp31_5"
 "(list)))))"
 "(values))))"
-"(let-values(((v_224)"
+"(let-values(((v_222)"
 "(read-one/not-eof_0"
 " #f"
 " first-read-one_1"
@@ -47575,11 +47587,11 @@ static const char *startup_source =
 "(let-values()"
 "(if(null?"
 " accum_0)"
-" v_224"
+" v_222"
 "(append"
 "(reverse$1"
 " accum_0)"
-" v_224)))"
+" v_222)))"
 "(if(if(eqv?"
 " rest-ec_0"
 " '#\\.)"
@@ -47618,7 +47630,7 @@ static const char *startup_source =
 "(begin"
 "(set! head_0"
 "(box"
-" v_224))"
+" v_222))"
 "(values))))"
 "(let-values(((dot2-line_0"
 " dot2-col_0"
@@ -47674,7 +47686,7 @@ static const char *startup_source =
 " temp35_1"
 "(list))))"
 "(void))"
-"(loop_105"
+"(loop_106"
 " depth_11"
 " accum_0"
 " post-c_0"
@@ -47703,14 +47715,14 @@ static const char *startup_source =
 " temp39_5"
 "(list)))))))))))))"
 "(let-values()"
-"(let-values(((v_198)"
+"(let-values(((v_196)"
 "(read-one/not-eof_0"
 " c_67"
 " first-read-one_1"
 " config/keep-comment_0)))"
-"(if(1/special-comment? v_198)"
+"(if(1/special-comment? v_196)"
 "(let-values()"
-"(loop_105"
+"(loop_106"
 " depth_11"
 " accum_0"
 " #f"
@@ -47718,22 +47730,22 @@ static const char *startup_source =
 " read-one_1))"
 "(if(> depth_11 1024)"
 "(let-values()"
-"(loop_105"
+"(loop_106"
 " depth_11"
-"(cons v_198 accum_0)"
+"(cons v_196 accum_0)"
 " #f"
 " #f"
 " read-one_1))"
 "(let-values()"
 "(cons"
-" v_198"
-"(loop_105"
+" v_196"
+"(loop_106"
 "(add1 depth_11)"
 " null"
 " #f"
 " #f"
 " read-one_1)))))))))))))))"
-" loop_105)"
+" loop_106)"
 " 0"
 " null"
 " #f"
@@ -47755,10 +47767,10 @@ static const char *startup_source =
 "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))"
 "(let-values() #f))))))"
 "(if tag_0(cons(wrap tag_0 in_22 config_35 #f) seq_1) seq_1)))))"
-" (define-values (not-an-fX.1) (lambda (who_26 v_225) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_225))))"
+" (define-values (not-an-fX.1) (lambda (who_26 v_223) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_223))))"
 "(define-values"
 "(not-an-fX.1$1)"
-"  (lambda (who_26 v_225) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_225))))"
+"  (lambda (who_26 v_223) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_223))))"
 "(define-values"
 "(read-digits13.1)"
 "(lambda(base1_0"
@@ -47794,11 +47806,11 @@ static const char *startup_source =
 "(consume-char in_12 c_69)"
 "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_69))(void))"
 "((letrec-values(((loop_62)"
-"(lambda(v_226 max-count_1)"
+"(lambda(v_224 max-count_1)"
 "(begin"
 " 'loop"
 "(if(zero? max-count_1)"
-"(let-values() v_226)"
+"(let-values() v_224)"
 "(let-values()"
 "(let-values(((c_39)"
 "(let-values(((in_24) in_12)"
@@ -47822,9 +47834,9 @@ static const char *startup_source =
 "(let-values()(accum-string-add! accum-str_0 c_39))"
 "(void))"
 "(loop_62"
-"(+(digit->number c_39)(* v_226 base_22))"
+"(+(digit->number c_39)(* v_224 base_22))"
 "(sub1 max-count_1))))"
-"(let-values() v_226)))))))))"
+"(let-values() v_224)))))))))"
 " loop_62)"
 "(+(digit->number c_69)(* init-v_0 base_22))"
 "(sub1 max-count_0))))"
@@ -47847,9 +47859,9 @@ static const char *startup_source =
 "(hex-digit?)"
 "(lambda(c_74)"
 "(begin"
-"(let-values(((or-part_300)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))"
-"(if or-part_300"
-" or-part_300"
+"(let-values(((or-part_301)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))"
+"(if or-part_301"
+" or-part_301"
 "(let-values(((or-part_102)(if(char>=? c_74 '#\\A)(char<=? c_74 '#\\F) #f)))"
 "(if or-part_102 or-part_102(if(char>=? c_74 '#\\a)(char<=? c_74 '#\\f) #f))))))))"
 "(define-values"
@@ -47927,7 +47939,7 @@ static const char *startup_source =
 "((s_460 radix_1 convert-mode_1 decimal-mode3_1)"
 "(string->number8_0 s_460 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))"
 "((s_78 radix_2 convert-mode2_1)(string->number8_0 s_78 radix_2 convert-mode2_1 #f #t #t #f))"
-"((s_428 radix1_1)(string->number8_0 s_428 radix1_1 #f #f #t #f #f)))))"
+"((s_427 radix1_1)(string->number8_0 s_427 radix1_1 #f #f #t #f #f)))))"
 "(define-values"
 "(do-string->number20.1)"
 "(lambda(in-complex11_0"
@@ -48061,10 +48073,10 @@ static const char *startup_source =
 "((radix79_0) radix_3)"
 "((radix-set?80_0) radix-set?_0)"
 "((temp81_1)"
-"(if(let-values(((or-part_301)"
+"(if(let-values(((or-part_302)"
 "(char=? i_35 '#\\e)))"
-"(if or-part_301"
-" or-part_301"
+"(if or-part_302"
+" or-part_302"
 "(char=? i_35 '#\\E)))"
 " 'exact"
 " 'inexact))"
@@ -48132,13 +48144,13 @@ static const char *startup_source =
 "(read-special-number s_22 start_44 end_33 convert-mode_2)"
 " #f)))"
 "(if c1_27"
-"((lambda(v_227)"
+"((lambda(v_225)"
 "(if(eq? exactness_0 'exact)"
 "(let-values()"
 "(if(eq? convert-mode_2 'must-read)"
-"                                             (let-values () (format \"no exact representation for `~a`\" v_227))"
+"                                             (let-values () (format \"no exact representation for `~a`\" v_225))"
 "(let-values() #f)))"
-"(let-values() v_227)))"
+"(let-values() v_225)))"
 " c1_27)"
 "(let-values(((c2_3)"
 "(if(char-sign? c_75)"
@@ -48157,17 +48169,17 @@ static const char *startup_source =
 " #f)"
 " #f)))"
 "(if c2_3"
-"((lambda(v_228)"
+"((lambda(v_226)"
 "(let-values(((temp91_0)(+ start_44 6))"
 "((temp92_1)(sub1 end_33))"
 "((radix93_0) radix_3)"
 "((exactness94_0) exactness_0)"
 "((convert-mode95_0) convert-mode_2)"
 "((temp96_3) 'i)"
-"((v97_0) v_228)"
+"((v97_0) v_226)"
 "((temp98_3)"
-"(lambda(v_229 v2_0)"
-"(begin 'temp98(make-rectangular v_229 v2_0)))))"
+"(lambda(v_227 v2_0)"
+"(begin 'temp98(make-rectangular v_227 v2_0)))))"
 "(read-for-special-compound65.1"
 " temp96_3"
 " #f"
@@ -48208,8 +48220,8 @@ static const char *startup_source =
 "((temp106_2) #t)"
 "((v2107_0) v2_1)"
 "((temp108_2)"
-"(lambda(v2_2 v_202)"
-"(begin 'temp108(make-rectangular v_202 v2_2)))))"
+"(lambda(v2_2 v_200)"
+"(begin 'temp108(make-rectangular v_200 v2_2)))))"
 "(read-for-special-compound65.1"
 " temp105_2"
 " temp106_2"
@@ -48238,17 +48250,17 @@ static const char *startup_source =
 " #f)"
 " #f)))"
 "(if c4_0"
-"((lambda(v_204)"
+"((lambda(v_202)"
 "(let-values(((temp110_4)(+ start_44 7))"
 "((end111_0) end_33)"
 "((radix112_0) radix_3)"
 "((exactness113_0) exactness_0)"
 "((convert-mode114_0) convert-mode_2)"
 "((temp115_0) '@)"
-"((v116_0) v_204)"
+"((v116_0) v_202)"
 "((temp117_3)"
-"(lambda(v_210 v2_3)"
-"(begin 'temp117(make-polar v_210 v2_3)))))"
+"(lambda(v_208 v2_3)"
+"(begin 'temp117(make-polar v_208 v2_3)))))"
 "(read-for-special-compound65.1"
 " temp115_0"
 " #f"
@@ -48284,8 +48296,8 @@ static const char *startup_source =
 "((temp125_2) #t)"
 "((v2126_0) v2_4)"
 "((temp127_3)"
-"(lambda(v2_5 v_230)"
-"(begin 'temp127(make-polar v_230 v2_5)))))"
+"(lambda(v2_5 v_228)"
+"(begin 'temp127(make-polar v_228 v2_5)))))"
 "(read-for-special-compound65.1"
 " temp124_3"
 " temp125_2"
@@ -48336,8 +48348,8 @@ static const char *startup_source =
 "(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))"
 "(let-values(((convert-mode_3) convert-mode32_0))"
 "(let-values()"
-"((letrec-values(((loop_106)"
-"(lambda(i_172"
+"((letrec-values(((loop_107)"
+"(lambda(i_173"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
@@ -48349,7 +48361,7 @@ static const char *startup_source =
 " must-i?_0)"
 "(begin"
 " 'loop"
-"(if(= i_172 end_34)"
+"(if(= i_173 end_34)"
 "(let-values()"
 "(if(if(not any-digits?_0)(not i-pos_3) #f)"
 "(let-values()"
@@ -48368,10 +48380,10 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(if(if sign-pos_0"
-"(let-values(((or-part_302)"
+"(let-values(((or-part_303)"
 "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))"
-"(if or-part_302"
-" or-part_302"
+"(if or-part_303"
+" or-part_303"
 "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))"
 " #f)"
 "(let-values()"
@@ -48441,11 +48453,11 @@ static const char *startup_source =
 " exactness_1"
 " convert-mode_3))))))))"
 "(let-values()"
-"(let-values(((c_76)(string-ref s_86 i_172)))"
+"(let-values(((c_76)(string-ref s_86 i_173)))"
 "(if(digit? c_76 radix_5)"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " #t"
 " any-hashes?_0"
 " i-pos_3"
@@ -48457,8 +48469,8 @@ static const char *startup_source =
 " must-i?_0))"
 "(if(char=? c_76 '#\\#)"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " #t"
 " #t"
 " i-pos_3"
@@ -48479,38 +48491,38 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
 " @-pos_0"
-" i_172"
+" i_173"
 " dot-pos_1"
 " slash-pos_0"
 " #f"
-"(if(> i_172 start_45)"
-"(let-values(((or-part_303)(not @-pos_0)))"
-"(if or-part_303"
-" or-part_303"
-"(> i_172(add1 @-pos_0))))"
+"(if(> i_173 start_45)"
+"(let-values(((or-part_304)(not @-pos_0)))"
+"(if or-part_304"
+" or-part_304"
+"(> i_173(add1 @-pos_0))))"
 " #f)))))"
 "(if(char=? c_76 '#\\.)"
 "(let-values()"
-"(if(let-values(((or-part_304)"
+"(if(let-values(((or-part_305)"
 "(if exp-pos_0"
-"(let-values(((or-part_305)"
+"(let-values(((or-part_306)"
 "(not sign-pos_0)))"
-"(if or-part_305"
-" or-part_305"
-"(> exp-pos_0 sign-pos_0)))"
-" #f)))"
-"(if or-part_304"
-" or-part_304"
-"(if dot-pos_1"
-"(let-values(((or-part_306)(not sign-pos_0)))"
 "(if or-part_306"
 " or-part_306"
+"(> exp-pos_0 sign-pos_0)))"
+" #f)))"
+"(if or-part_305"
+" or-part_305"
+"(if dot-pos_1"
+"(let-values(((or-part_307)(not sign-pos_0)))"
+"(if or-part_307"
+" or-part_307"
 "(> dot-pos_1 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -48534,14 +48546,14 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
 " @-pos_0"
 " sign-pos_0"
-" i_172"
+" i_173"
 " #f"
 " #f"
 " must-i?_0)))))"
@@ -48585,69 +48597,69 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
 " @-pos_0"
 " sign-pos_0"
 " #f"
-" i_172"
+" i_173"
 " #f"
 " must-i?_0)))))"
-"(if(let-values(((or-part_307)(char=? c_76 '#\\e)))"
-"(if or-part_307"
-" or-part_307"
-"(let-values(((or-part_308)(char=? c_76 '#\\E)))"
+"(if(let-values(((or-part_308)(char=? c_76 '#\\e)))"
 "(if or-part_308"
 " or-part_308"
-"(let-values(((or-part_309)"
-"(char=? c_76 '#\\f)))"
+"(let-values(((or-part_309)(char=? c_76 '#\\E)))"
 "(if or-part_309"
 " or-part_309"
+"(let-values(((or-part_310)"
+"(char=? c_76 '#\\f)))"
+"(if or-part_310"
+" or-part_310"
 "(let-values(((or-part_181)"
 "(char=? c_76 '#\\F)))"
 "(if or-part_181"
 " or-part_181"
-"(let-values(((or-part_310)"
-"(char=? c_76 '#\\d)))"
-"(if or-part_310"
-" or-part_310"
 "(let-values(((or-part_311)"
-"(char=? c_76 '#\\D)))"
+"(char=? c_76 '#\\d)))"
 "(if or-part_311"
 " or-part_311"
 "(let-values(((or-part_312)"
-"(char=?"
-" c_76"
-" '#\\s)))"
+"(char=? c_76 '#\\D)))"
 "(if or-part_312"
 " or-part_312"
 "(let-values(((or-part_313)"
 "(char=?"
 " c_76"
-" '#\\S)))"
+" '#\\s)))"
 "(if or-part_313"
 " or-part_313"
 "(let-values(((or-part_314)"
 "(char=?"
 " c_76"
-" '#\\l)))"
+" '#\\S)))"
 "(if or-part_314"
 " or-part_314"
 "(let-values(((or-part_315)"
 "(char=?"
 " c_76"
-" '#\\L)))"
+" '#\\l)))"
 "(if or-part_315"
 " or-part_315"
 "(let-values(((or-part_316)"
 "(char=?"
 " c_76"
-" '#\\t)))"
+" '#\\L)))"
 "(if or-part_316"
 " or-part_316"
+"(let-values(((or-part_317)"
+"(char=?"
+" c_76"
+" '#\\t)))"
+"(if or-part_317"
+" or-part_317"
 "(char=?"
 " c_76"
 " '#\\T)))))))))))))))))))))))"
@@ -48661,25 +48673,12 @@ static const char *startup_source =
 " c_76"
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
-"(if(if(<(add1 i_172) end_34)"
-"(char-sign?(string-ref s_86(add1 i_172)))"
+"(if(if(<(add1 i_173) end_34)"
+"(char-sign?(string-ref s_86(add1 i_173)))"
 " #f)"
 "(let-values()"
-"(loop_106"
-"(+ i_172 2)"
-" any-digits?_0"
-" any-hashes?_0"
-" i-pos_3"
-" @-pos_0"
-" sign-pos_0"
-" dot-pos_1"
-" slash-pos_0"
-"(let-values(((or-part_317) exp-pos_0))"
-"(if or-part_317 or-part_317 i_172))"
-" must-i?_0))"
-"(let-values()"
-"(loop_106"
-"(+ i_172 1)"
+"(loop_107"
+"(+ i_173 2)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
@@ -48688,7 +48687,20 @@ static const char *startup_source =
 " dot-pos_1"
 " slash-pos_0"
 "(let-values(((or-part_318) exp-pos_0))"
-"(if or-part_318 or-part_318 i_172))"
+"(if or-part_318 or-part_318 i_173))"
+" must-i?_0))"
+"(let-values()"
+"(loop_107"
+"(+ i_173 1)"
+" any-digits?_0"
+" any-hashes?_0"
+" i-pos_3"
+" @-pos_0"
+" sign-pos_0"
+" dot-pos_1"
+" slash-pos_0"
+"(let-values(((or-part_319) exp-pos_0))"
+"(if or-part_319 or-part_319 i_173))"
 " must-i?_0)))))"
 "(if(char=? c_76 '#\\@)"
 "(let-values()"
@@ -48700,9 +48712,9 @@ static const char *startup_source =
 "                                                                             \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_319) @-pos_0))"
-"(if or-part_319"
-" or-part_319"
+"(if(let-values(((or-part_320) @-pos_0))"
+"(if or-part_320"
+" or-part_320"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -48711,7 +48723,7 @@ static const char *startup_source =
 "                                                                               \"too many `@`s in `~.a`\""
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
-"(if(= i_172 start_45)"
+"(if(= i_173 start_45)"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
@@ -48728,28 +48740,28 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
-" i_172"
+" i_173"
 " #f"
 " #f"
 " #f"
 " #f"
 " must-i?_0)))))))"
-"(if(if(let-values(((or-part_320)"
+"(if(if(let-values(((or-part_321)"
 "(char=? c_76 '#\\i)))"
-"(if or-part_320"
-" or-part_320"
+"(if or-part_321"
+" or-part_321"
 "(char=? c_76 '#\\I)))"
 " sign-pos_0"
 " #f)"
 "(let-values()"
-"(if(let-values(((or-part_321) @-pos_0))"
-"(if or-part_321"
-" or-part_321"
+"(if(let-values(((or-part_322) @-pos_0))"
+"(if or-part_322"
+" or-part_322"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -48758,10 +48770,10 @@ static const char *startup_source =
 "                                                                               \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_322)"
-"(<(add1 i_172) end_34)))"
-"(if or-part_322"
-" or-part_322"
+"(if(let-values(((or-part_323)"
+"(<(add1 i_173) end_34)))"
+"(if or-part_323"
+" or-part_323"
 "(eq? in-complex_1 'i)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -48771,11 +48783,11 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_106"
-"(add1 i_172)"
+"(loop_107"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
-" i_172"
+" i_173"
 " @-pos_0"
 " sign-pos_0"
 " #f"
@@ -48794,7 +48806,7 @@ static const char *startup_source =
 "(let-values()"
 "                                                                              (format \"bad digit `~a`\" c_76))"
 "(let-values() #f))))))))))))))))))))"
-" loop_106)"
+" loop_107)"
 " start_45"
 " #f"
 " #f"
@@ -48821,7 +48833,7 @@ static const char *startup_source =
 " convert-mode49_0)"
 "(begin"
 " 'string->complex-number50"
-"(let-values(((s_461) s40_0))"
+"(let-values(((s_420) s40_0))"
 "(let-values(((start1_0) start141_0))"
 "(let-values(((end1_0) end142_0))"
 "(let-values(((start2_0) start243_0))"
@@ -48846,7 +48858,7 @@ static const char *startup_source =
 " in-complex166_0"
 " #t"
 " radix-set?164_0"
-" s_461"
+" s_420"
 " start1_0"
 " end1_0"
 " radix_6"
@@ -48855,7 +48867,7 @@ static const char *startup_source =
 "(let-values(((v2_6)"
 "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)"
 "(let-values()"
-"(let-values(((neg?_0)(char=?(string-ref s_461 start2_0) '#\\-)))"
+"(let-values(((neg?_0)(char=?(string-ref s_420 start2_0) '#\\-)))"
 "(if(eq? exactness_2 'inexact)"
 "(let-values()(if neg?_0 -1.0 1.0))"
 "(let-values()(if neg?_0 -1 1)))))"
@@ -48868,17 +48880,17 @@ static const char *startup_source =
 " in-complex174_0"
 " #t"
 " radix-set?172_0"
-" s_461"
+" s_420"
 " start2_0"
 " end2_0"
 " radix_6"
 " exactness173_0"
 " convert-mode175_0))))))"
-"(if(let-values(((or-part_323)(not v1_0)))"
-"(if or-part_323 or-part_323(not v2_6)))"
+"(if(let-values(((or-part_324)(not v1_0)))"
+"(if or-part_324 or-part_324(not v2_6)))"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_324)(extflonum? v1_0)))"
-"(if or-part_324 or-part_324(extflonum? v2_6)))"
+"(if(if(let-values(((or-part_325)(extflonum? v1_0)))"
+"(if or-part_325 or-part_325(extflonum? v2_6)))"
 "(not(eq? convert-mode_4 'must-read))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_4 v1_0))"
@@ -48899,33 +48911,33 @@ static const char *startup_source =
 " p_69))))))))))))))))))))))))))))"
 "(define-values"
 "(string->real-number)"
-"(lambda(s_462 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)"
+"(lambda(s_461 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)"
 "(begin"
 "(let-values(((extfl-mark?_0)"
-"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_462 exp-pos_1)) '#\\t)))))"
+"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_461 exp-pos_1)) '#\\t)))))"
 "(let-values(((simple?_0)"
 "(if(not slash-pos_1)"
-"(if(let-values(((or-part_325)(eq? exactness_3 'inexact)))"
-"(if or-part_325"
-" or-part_325"
-"(let-values(((or-part_326)(eq? exactness_3 'decimal-as-inexact)))"
-"(if or-part_326 or-part_326(if(not dot-pos_2)(not exp-pos_1) #f)))))"
-"(if(let-values(((or-part_327)(not exp-pos_1)))"
-"(if or-part_327"
-" or-part_327"
+"(if(let-values(((or-part_326)(eq? exactness_3 'inexact)))"
+"(if or-part_326"
+" or-part_326"
+"(let-values(((or-part_327)(eq? exactness_3 'decimal-as-inexact)))"
+"(if or-part_327 or-part_327(if(not dot-pos_2)(not exp-pos_1) #f)))))"
+"(if(let-values(((or-part_328)(not exp-pos_1)))"
+"(if or-part_328"
+" or-part_328"
 "(let-values(((or-part_229)(not(eq? convert-mode_5 'number-or-false))))"
 "(if or-part_229 or-part_229(not(extfl-mark?_0))))))"
-"(not(if any-hashes?_1(hashes? s_462 start_46 end_35) #f))"
+"(not(if any-hashes?_1(hashes? s_461 start_46 end_35) #f))"
 " #f)"
 " #f)"
 " #f)))"
-"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_462 start_46)) #f)))"
+"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_461 start_46)) #f)))"
 "(if(=(- end_35 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))"
 "(let-values()"
 "(if(= end_35 start_46)"
 "                  (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))"
 "(if(eq? convert-mode_5 'must-read)"
-"                    (let-values () (format \"missing digits in `~.a`\" (substring s_462 start_46 end_35)))"
+"                    (let-values () (format \"missing digits in `~.a`\" (substring s_461 start_46 end_35)))"
 "(let-values() #f))))"
 "(if simple?_0"
 "(let-values()"
@@ -48937,37 +48949,37 @@ static const char *startup_source =
 "(let-values()"
 "(if(eq? convert-mode_5 'must-read)"
 "(let-values()"
-"                          (format \"missing digits before exponent marker in `~.a`\" (substring s_462 start_46 end_35)))"
+"                          (format \"missing digits before exponent marker in `~.a`\" (substring s_461 start_46 end_35)))"
 "(let-values() #f)))"
 "(if(if exp-pos_1"
-"(let-values(((or-part_328)(= exp-pos_1(sub1 end_35))))"
-"(if or-part_328"
-" or-part_328"
-"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_462(sub1 end_35))) #f)))"
+"(let-values(((or-part_329)(= exp-pos_1(sub1 end_35))))"
+"(if or-part_329"
+" or-part_329"
+"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_461(sub1 end_35))) #f)))"
 " #f)"
 "(let-values()"
 "(if(eq? convert-mode_5 'must-read)"
 "(let-values()"
-"                            (format \"missing digits after exponent marker in `~.a`\" (substring s_462 start_46 end_35)))"
+"                            (format \"missing digits after exponent marker in `~.a`\" (substring s_461 start_46 end_35)))"
 "(let-values() #f)))"
 "(let-values()"
 "(let-values(((n_30)"
 "(string->number$1"
-"(maybe-substring s_462 start_46 end_35)"
+"(maybe-substring s_461 start_46 end_35)"
 " radix_7"
-"(if(let-values(((or-part_329)(eq? convert-mode_5 'number-or-false)))"
-"(if or-part_329"
-" or-part_329"
+"(if(let-values(((or-part_330)(eq? convert-mode_5 'number-or-false)))"
+"(if or-part_330"
+" or-part_330"
 "(let-values(((or-part_230)(not exp-pos_1)))"
 "(if or-part_230 or-part_230(not(extfl-mark?_0))))))"
 " 'number-or-false"
 " 'read))))"
-"(if(let-values(((or-part_330)(not n_30)))(if or-part_330 or-part_330(string? n_30)))"
+"(if(let-values(((or-part_331)(not n_30)))(if or-part_331 or-part_331(string? n_30)))"
 "(let-values()"
 "(error"
 " 'string->number"
 "                               \"host `string->number` failed on ~s\""
-"(substring s_462 start_46 end_35)))"
+"(substring s_461 start_46 end_35)))"
 "(if(eq? exactness_3 'inexact)"
 "(let-values()"
 "(if(extflonum? n_30)"
@@ -48976,9 +48988,9 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                         \"cannot convert extflonum `~.a` to inexact\""
-"(substring s_462 start_46 end_35)))"
+"(substring s_461 start_46 end_35)))"
 "(let-values() #f)))"
-"(if(if(eqv? n_30 0)(char=?(string-ref s_462 start_46) '#\\-) #f)"
+"(if(if(eqv? n_30 0)(char=?(string-ref s_461 start_46) '#\\-) #f)"
 "(let-values() -0.0)"
 "(let-values()(exact->inexact n_30)))))"
 "(let-values() n_30))))))))"
@@ -48986,7 +48998,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((m-v_0)"
 "(string->real-number"
-" s_462"
+" s_461"
 " start_46"
 " exp-pos_1"
 " dot-pos_2"
@@ -48997,12 +49009,12 @@ static const char *startup_source =
 " 'exact"
 " convert-mode_5)))"
 "(let-values(((e-v_0)"
-"(string->exact-integer-number s_462(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))"
+"(string->exact-integer-number s_461(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))"
 "(let-values(((real->precision-inexact_0)"
 "(lambda(r_47)"
 "(begin"
 " 'real->precision-inexact"
-"(let-values(((tmp_41)(string-ref s_462 exp-pos_1)))"
+"(let-values(((tmp_41)(string-ref s_461 exp-pos_1)))"
 "(if(if(equal? tmp_41 '#\\s)"
 " #t"
 "(if(equal? tmp_41 '#\\S)"
@@ -49014,12 +49026,12 @@ static const char *startup_source =
 "(if(extflonum-available?)"
 "(real->extfl r_47)"
 "(string->number$1"
-"(replace-hashes s_462 start_46 end_35)"
+"(replace-hashes s_461 start_46 end_35)"
 " radix_7"
 " 'read)))"
 "(let-values()(real->double-flonum r_47)))))))))"
 "(let-values(((get-extfl?_0)(extfl-mark?_0)))"
-"(if(let-values(((or-part_331)(not m-v_0)))(if or-part_331 or-part_331(not e-v_0)))"
+"(if(let-values(((or-part_332)(not m-v_0)))(if or-part_332 or-part_332(not e-v_0)))"
 "(let-values() #f)"
 "(if(string? m-v_0)"
 "(let-values() m-v_0)"
@@ -49027,14 +49039,14 @@ 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_332)(eq? exactness_3 'inexact)))"
-"(if or-part_332 or-part_332(eq? exactness_3 'decimal-as-inexact)))"
+"(if(if(let-values(((or-part_333)(eq? exactness_3 'inexact)))"
+"(if or-part_333 or-part_333(eq? exactness_3 'decimal-as-inexact)))"
 "(>(abs e-v_0)(if get-extfl?_0 6000 400))"
 " #f)"
 "(let-values()"
 "(real->precision-inexact_0"
 "(if(eqv? m-v_0 0)"
-"(let-values()(if(char=?(string-ref s_462 start_46) '#\\-) -0.0 0.0))"
+"(let-values()(if(char=?(string-ref s_461 start_46) '#\\-) -0.0 0.0))"
 "(if(positive? m-v_0)"
 "(let-values()(if(positive? e-v_0) +inf.0 0.0))"
 "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))"
@@ -49044,24 +49056,24 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                               \"cannot convert extflonum `~.a` to ~a\""
-"(substring s_462 start_46 end_35)"
+"(substring s_461 start_46 end_35)"
 " exactness_3))"
 "(let-values() #f)))"
 "(let-values()"
 "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))"
 "(if(if(not get-extfl?_0)"
-"(let-values(((or-part_333)(eq? exactness_3 'exact)))"
-"(if or-part_333 or-part_333(eq? exactness_3 'decimal-as-exact)))"
+"(let-values(((or-part_334)(eq? exactness_3 'exact)))"
+"(if or-part_334 or-part_334(eq? exactness_3 'decimal-as-exact)))"
 " #f)"
 "(let-values() n_31)"
-"(if(if(eqv? n_31 0)(char=?(string-ref s_462 start_46) '#\\-) #f)"
+"(if(if(eqv? n_31 0)(char=?(string-ref s_461 start_46) '#\\-) #f)"
 "(let-values()(real->precision-inexact_0 -0.0))"
 "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))"
 "(if slash-pos_1"
 "(let-values()"
 "(let-values(((n-v_0)"
 "(string->real-number"
-" s_462"
+" s_461"
 " start_46"
 " slash-pos_1"
 " #f"
@@ -49073,7 +49085,7 @@ static const char *startup_source =
 " convert-mode_5)))"
 "(let-values(((d-v_0)"
 "(string->real-number"
-" s_462"
+" s_461"
 "(add1 slash-pos_1)"
 " end_35"
 " #f"
@@ -49087,13 +49099,13 @@ static const char *startup_source =
 "(lambda(from-pos_0)"
 "(begin"
 " 'get-inexact?"
-"(let-values(((or-part_334)(eq? exactness_3 'inexact)))"
-"(if or-part_334"
-" or-part_334"
+"(let-values(((or-part_335)(eq? exactness_3 'inexact)))"
+"(if or-part_335"
+" or-part_335"
 "(if(not(eq? exactness_3 'exact))"
-"(hashes? s_462 from-pos_0 end_35)"
+"(hashes? s_461 from-pos_0 end_35)"
 " #f)))))))"
-"(if(let-values(((or-part_335)(not n-v_0)))(if or-part_335 or-part_335(not d-v_0)))"
+"(if(let-values(((or-part_336)(not n-v_0)))(if or-part_336 or-part_336(not d-v_0)))"
 "(let-values() #f)"
 "(if(string? n-v_0)"
 "(let-values() n-v_0)"
@@ -49106,14 +49118,14 @@ static const char *startup_source =
 "(let-values()"
 "(if(eq?(read-complains convert-mode_5) 'must-read)"
 "(let-values()"
-"                                              (format \"division by zero in `~.a`\" (substring s_462 start_46 end_35)))"
+"                                              (format \"division by zero in `~.a`\" (substring s_461 start_46 end_35)))"
 "(let-values() #f)))))"
 "(let-values()"
 "(let-values(((n_32)(/ n-v_0 d-v_0)))"
 "(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))"
 "(let-values()"
 "(string->decimal-number"
-" s_462"
+" s_461"
 " start_46"
 " end_35"
 " dot-pos_2"
@@ -49125,14 +49137,14 @@ static const char *startup_source =
 "(lambda(s_445 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)"
 "(begin"
 "(let-values(((get-exact?_0)"
-"(let-values(((or-part_336)(eq? exactness_4 'exact)))"
-"(if or-part_336 or-part_336(eq? exactness_4 'decimal-as-exact)))))"
+"(let-values(((or-part_337)(eq? exactness_4 'exact)))"
+"(if or-part_337 or-part_337(eq? exactness_4 'decimal-as-exact)))))"
 "(let-values(((new-str_0)(make-string(- end_36 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))"
-"((letrec-values(((loop_107)"
-"(lambda(i_173 j_3 hashes-pos_0)"
+"((letrec-values(((loop_108)"
+"(lambda(i_174 j_3 hashes-pos_0)"
 "(begin"
 " 'loop"
-"(if(< i_173 start_47)"
+"(if(< i_174 start_47)"
 "(let-values()"
 "(if(= hashes-pos_0 start_47)"
 "(let-values()"
@@ -49153,38 +49165,38 @@ static const char *startup_source =
 "(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))"
 "(let-values() n_33))))))))"
 "(let-values()"
-"(let-values(((c_77)(string-ref s_445 i_173)))"
+"(let-values(((c_77)(string-ref s_445 i_174)))"
 "(if(char=? c_77 '#\\.)"
 "(let-values()"
 "(if get-exact?_0"
 "(let-values()"
-"(loop_107"
-"(sub1 i_173)"
+"(loop_108"
+"(sub1 i_174)"
 " j_3"
-"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0)))"
+"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_77)"
-"(loop_107"
-"(sub1 i_173)"
+"(loop_108"
+"(sub1 i_174)"
 "(sub1 j_3)"
-"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))"
-"(if(let-values(((or-part_337)(char=? c_77 '#\\-)))"
-"(if or-part_337 or-part_337(char=? c_77 '#\\+)))"
+"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))"
+"(if(let-values(((or-part_338)(char=? c_77 '#\\-)))"
+"(if or-part_338 or-part_338(char=? c_77 '#\\+)))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_77)"
-"(loop_107"
-"(sub1 i_173)"
+"(loop_108"
+"(sub1 i_174)"
 "(sub1 j_3)"
-"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))"
+"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))"
 "(if(char=? c_77 '#\\#)"
 "(let-values()"
-"(if(= hashes-pos_0(add1 i_173))"
+"(if(= hashes-pos_0(add1 i_174))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 '#\\0)"
-"(loop_107(sub1 i_173)(sub1 j_3) i_173)))"
+"(loop_108(sub1 i_174)(sub1 j_3) i_174)))"
 "(let-values()"
 "(if(eq? convert-mode_6 'must-read)"
 "(let-values()"
@@ -49195,8 +49207,8 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_77)"
-"(loop_107(sub1 i_173)(sub1 j_3) hashes-pos_0)))))))))))))"
-" loop_107)"
+"(loop_108(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))"
+" loop_108)"
 "(sub1 end_36)"
 "(sub1(string-length new-str_0))"
 " end_36))))))"
@@ -49222,25 +49234,25 @@ static const char *startup_source =
 "(lambda(s_447 start_49 end_38 convert-mode_8)"
 "(begin"
 "(if(=(- end_38 start_49) 6)"
-"(if(let-values(((or-part_338)(char=?(string-ref s_447 start_49) '#\\+)))"
-"(if or-part_338 or-part_338(char=?(string-ref s_447 start_49) '#\\-)))"
+"(if(let-values(((or-part_339)(char=?(string-ref s_447 start_49) '#\\+)))"
+"(if or-part_339 or-part_339(char=?(string-ref s_447 start_49) '#\\-)))"
 "(let-values(((or-part_224)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 1))) '#\\i)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 2))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 3))) '#\\f)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 4))) '#\\.)"
-"(let-values(((or-part_339)"
+"(let-values(((or-part_340)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0)"
 "(if(char=?(string-ref s_447 start_49) '#\\+) +inf.0 -inf.0)"
 " #f)))"
-"(if or-part_339"
-" or-part_339"
-"(let-values(((or-part_340)"
+"(if or-part_340"
+" or-part_340"
+"(let-values(((or-part_341)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\f)"
 "(if(char=?(string-ref s_447 start_49) '#\\+) +inf.f -inf.f)"
 " #f)))"
-"(if or-part_340"
-" or-part_340"
+"(if or-part_341"
+" or-part_341"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false))"
 "(if(char=?(string-ref s_447 start_49) '#\\+) '+inf.t '-inf.t)"
@@ -49256,14 +49268,14 @@ static const char *startup_source =
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 2))) '#\\a)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 3))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 4))) '#\\.)"
-"(let-values(((or-part_341)"
-"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0) +nan.0 #f)))"
-"(if or-part_341"
-" or-part_341"
 "(let-values(((or-part_342)"
-"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\f) +nan.f #f)))"
+"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0) +nan.0 #f)))"
 "(if or-part_342"
 " or-part_342"
+"(let-values(((or-part_343)"
+"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\f) +nan.f #f)))"
+"(if or-part_343"
+" or-part_343"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)"
 " #f)))))"
@@ -49275,10 +49287,10 @@ static const char *startup_source =
 " #f))))"
 "(define-values"
 "(fail-extflonum)"
-"(lambda(convert-mode_9 v_231)"
+"(lambda(convert-mode_9 v_229)"
 "(begin"
 "(if(eq? convert-mode_9 'must-read)"
-"        (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_231))"
+"        (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_229))"
 "(let-values() #f)))))"
 "(define-values"
 "(read-for-special-compound65.1)"
@@ -49295,7 +49307,7 @@ static const char *startup_source =
 " combine64_0)"
 "(begin"
 " 'read-for-special-compound65"
-"(let-values(((s_463) s57_0))"
+"(let-values(((s_462) s57_0))"
 "(let-values(((start_50) start58_0))"
 "(let-values(((end_39) end59_0))"
 "(let-values(((radix_10) radix60_0))"
@@ -49303,19 +49315,19 @@ static const char *startup_source =
 "(let-values(((convert-mode_10) convert-mode62_0))"
 "(let-values(((in-complex_3) in-complex53_0))"
 "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))"
-"(let-values(((v_232) v63_0))"
+"(let-values(((v_230) v63_0))"
 "(let-values(((combine_1) combine64_0))"
 "(let-values()"
 "(if(eq? exactness_5 'exact)"
 "(let-values()"
 "(if(eq? convert-mode_10 'must-read)"
-"                                  (let-values () (format \"no exact representation for `~a`\" v_232))"
+"                                  (let-values () (format \"no exact representation for `~a`\" v_230))"
 "(let-values() #f)))"
-"(if(if(extflonum? v_232)"
-"(let-values(((or-part_343)(not reading-first?_0)))"
-"(if or-part_343 or-part_343(not(eq? convert-mode_10 'must-read))))"
+"(if(if(extflonum? v_230)"
+"(let-values(((or-part_344)(not reading-first?_0)))"
+"(if or-part_344 or-part_344(not(eq? convert-mode_10 'must-read))))"
 " #f)"
-"(let-values()(fail-extflonum convert-mode_10 v_232))"
+"(let-values()(fail-extflonum convert-mode_10 v_230))"
 "(let-values()"
 "(let-values(((v2_7)"
 "(let-values(((temp180_0) #t)"
@@ -49326,7 +49338,7 @@ static const char *startup_source =
 " in-complex182_0"
 " #t"
 " temp180_0"
-" s_463"
+" s_462"
 " start_50"
 " end_39"
 " radix_10"
@@ -49336,12 +49348,12 @@ static const char *startup_source =
 "(let-values() v2_7)"
 "(if(not v2_7)"
 "(let-values() v2_7)"
-"(if(extflonum? v_232)"
-"(let-values()(fail-extflonum convert-mode_10 v_232))"
-"(let-values()(combine_1 v_232 v2_7)))))))))))))))))))))))"
+"(if(extflonum? v_230)"
+"(let-values()(fail-extflonum convert-mode_10 v_230))"
+"(let-values()(combine_1 v_230 v2_7)))))))))))))))))))))))"
 "(define-values"
 "(hashes?)"
-"(lambda(s_464 start_51 end_40)"
+"(lambda(s_463 start_51 end_40)"
 "(begin"
 "(let-values(((v*_6 start*_5 stop*_6 step*_5)"
 "(normalise-inputs"
@@ -49349,7 +49361,7 @@ static const char *startup_source =
 "                     \"string\""
 "(lambda(x_81)(string? x_81))"
 "(lambda(x_82)(unsafe-string-length x_82))"
-" s_464"
+" s_463"
 " start_51"
 " end_40"
 " 1)))"
@@ -49400,7 +49412,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)"
-"(let-values(((c_79)(string-ref v*_7 idx_6))((i_174) pos_111))"
+"(let-values(((c_79)(string-ref v*_7 idx_6))((i_175) pos_111))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -49408,8 +49420,8 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(if(char=? c_79 '#\\#)"
-"(string-set! new-s_7 i_174 '#\\0)"
-"(string-set! new-s_7 i_174 c_79)))"
+"(string-set! new-s_7 i_175 '#\\0)"
+"(string-set! new-s_7 i_175 c_79)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)(for-loop_260(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))"
@@ -49421,32 +49433,32 @@ static const char *startup_source =
 " new-s_7)))))"
 "(define-values"
 "(maybe-substring)"
-"(lambda(s_465 start_54 end_42)"
-"(begin(if(if(= 0 start_54)(= end_42(string-length s_465)) #f) s_465(substring s_465 start_54 end_42)))))"
+"(lambda(s_464 start_54 end_42)"
+"(begin(if(if(= 0 start_54)(= end_42(string-length s_464)) #f) s_464(substring s_464 start_54 end_42)))))"
 "(define-values"
 "(exactness-set?)"
 "(lambda(exactness_6)"
 "(begin"
-"(let-values(((or-part_344)(eq? exactness_6 'exact)))(if or-part_344 or-part_344(eq? exactness_6 'inexact))))))"
+"(let-values(((or-part_345)(eq? exactness_6 'exact)))(if or-part_345 or-part_345(eq? exactness_6 'inexact))))))"
 "(define-values"
 "(char-sign?)"
 "(lambda(c_80)"
-"(begin(let-values(((or-part_345)(char=? c_80 '#\\-)))(if or-part_345 or-part_345(char=? c_80 '#\\+))))))"
+"(begin(let-values(((or-part_346)(char=? c_80 '#\\-)))(if or-part_346 or-part_346(char=? c_80 '#\\+))))))"
 "(define-values"
 "(digit?)"
 "(lambda(c_81 radix_11)"
 "(begin"
-"(let-values(((v_233)(char->integer c_81)))"
-"(let-values(((or-part_346)"
-"(if(>= v_233(char->integer '#\\0))(<(- v_233(char->integer '#\\0)) radix_11) #f)))"
-"(if or-part_346"
-" or-part_346"
-"(if(> radix_11 10)"
+"(let-values(((v_231)(char->integer c_81)))"
 "(let-values(((or-part_347)"
-"(if(>= v_233(char->integer '#\\a))(<(- v_233(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if(>= v_231(char->integer '#\\0))(<(- v_231(char->integer '#\\0)) radix_11) #f)))"
 "(if or-part_347"
 " or-part_347"
-"(if(>= v_233(char->integer '#\\A))(<(- v_233(-(char->integer '#\\A) 10)) radix_11) #f)))"
+"(if(> radix_11 10)"
+"(let-values(((or-part_348)"
+"(if(>= v_231(char->integer '#\\a))(<(- v_231(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if or-part_348"
+" or-part_348"
+"(if(>= v_231(char->integer '#\\A))(<(- v_231(-(char->integer '#\\A) 10)) radix_11) #f)))"
 " #f)))))))"
 "(define-values"
 "(fail-bad-number)"
@@ -49529,7 +49541,7 @@ static const char *startup_source =
 "(list temp15_5 after-c16_0 temp17_2)))))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_108)"
+"((letrec-values(((loop_109)"
 "(lambda(init-c_5"
 " pipe-quote-c_0"
 " foldcase-from_0)"
@@ -49561,11 +49573,11 @@ static const char *startup_source =
 "(let-values(((ec_4)"
 "(let-values(((rt_12) rt_11)"
 "((c_46) c_83))"
-"(if(let-values(((or-part_348)"
+"(if(let-values(((or-part_349)"
 "(not"
 " rt_12)))"
-"(if or-part_348"
-" or-part_348"
+"(if or-part_349"
+" or-part_349"
 "(not"
 "(char? c_46))))"
 "(let-values() c_46)"
@@ -49613,7 +49625,7 @@ static const char *startup_source =
 "(consume-char"
 " in_25"
 " c_83)))"
-"(loop_108"
+"(loop_109"
 " #f"
 " #f"
 "(accum-string-count"
@@ -49639,7 +49651,7 @@ static const char *startup_source =
 " accum-str_1"
 " string-foldcase"
 " foldcase-from_0)))"
-"(loop_108"
+"(loop_109"
 " #f"
 " c_83"
 "(accum-string-count"
@@ -49689,7 +49701,7 @@ static const char *startup_source =
 " next-c_0)"
 "(set! quoted-ever?_0"
 " #t)"
-"(loop_108"
+"(loop_109"
 " #f"
 " #f"
 "(accum-string-count"
@@ -49705,11 +49717,11 @@ static const char *startup_source =
 "(accum-string-add!"
 " accum-str_1"
 " c_83)"
-"(loop_108"
+"(loop_109"
 " #f"
 " pipe-quote-c_0"
 " foldcase-from_0))))))))))))))"
-" loop_108)"
+" loop_109)"
 " init-c_2"
 " #f"
 " 0)"
@@ -49745,9 +49757,9 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((num_0)"
-"(if(let-values(((or-part_349)"
+"(if(let-values(((or-part_350)"
 "(eq? mode_17 'symbol-or-number)))"
-"(if or-part_349 or-part_349(string? mode_17)))"
+"(if or-part_350 or-part_350(string? mode_17)))"
 "(if(not quoted-ever?_0)"
 "(1/string->number"
 "(if(string? mode_17)"
@@ -49798,14 +49810,14 @@ static const char *startup_source =
 "(list temp30_4))))"
 "(void))"
 "(wrap"
-"(let-values(((or-part_298) num_0))"
-"(if or-part_298"
-" or-part_298"
-"(let-values(((or-part_287)"
+"(let-values(((or-part_299) num_0))"
+"(if or-part_299"
+" or-part_299"
+"(let-values(((or-part_288)"
 "(if(eq? mode_17 'keyword)"
 "(string->keyword str_29)"
 " #f)))"
-"(if or-part_287 or-part_287(string->symbol str_29)))))"
+"(if or-part_288 or-part_288(string->symbol str_29)))))"
 " in_25"
 " config_24"
 " str_29)))))))))))))))))))))))))"
@@ -49931,17 +49943,17 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_263)))"
 "((letrec-values(((for-loop_97)"
-"(lambda(i_1 lst_302)"
+"(lambda(i_1 lst_301)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_302)"
+"(if(pair? lst_301)"
 "(let-values(((e_75)"
 "(unsafe-car"
-" lst_302))"
+" lst_301))"
 "((rest_170)"
 "(unsafe-cdr"
-" lst_302)))"
-"(let-values(((i_175)"
+" lst_301)))"
+"(let-values(((i_176)"
 "(let-values(((i_3)"
 " i_1))"
 "(let-values(((i_36)"
@@ -49967,15 +49979,15 @@ static const char *startup_source =
 "(if(if(not"
 "((lambda x_86"
 "(unsafe-fx="
-" i_175"
+" i_176"
 " len_37))"
 " e_75))"
 "(not #f)"
 " #f)"
 "(for-loop_97"
-" i_175"
+" i_176"
 " rest_170)"
-" i_175)))"
+" i_176)))"
 " i_1)))))"
 " for-loop_97)"
 " 0"
@@ -49993,7 +50005,7 @@ static const char *startup_source =
 "                                                                 \"exact-nonnegative-integer?\""
 " len_38)))"
 "(let-values(((fill_1) 0.0))"
-"(let-values(((v_234)(make-flvector len_38 fill_1)))"
+"(let-values(((v_232)(make-flvector len_38 fill_1)))"
 "(begin"
 "(if(zero? len_38)"
 "(void)"
@@ -50015,8 +50027,8 @@ static const char *startup_source =
 "((rest_171)"
 "(unsafe-cdr"
 " lst_54)))"
-"(let-values(((i_176)"
 "(let-values(((i_177)"
+"(let-values(((i_178)"
 " i_56))"
 "(let-values(((i_89)"
 "(let-values()"
@@ -50027,34 +50039,34 @@ static const char *startup_source =
 "(if(flonum?"
 " elem_1)"
 "(unsafe-flvector-set!"
-" v_234"
-" i_177"
+" v_232"
+" i_178"
 " elem_1)"
 "(not-an-fX.1$1"
 " 'for*/vector"
 " elem_1)))"
 "(unsafe-fx+"
 " 1"
-" i_177)))))"
+" i_178)))))"
 "(values"
 " i_89)))))"
 "(if(if(not"
 "((lambda x_24"
 "(unsafe-fx="
-" i_176"
+" i_177"
 " len_38))"
 " e_76))"
 "(not #f)"
 " #f)"
 "(for-loop_261"
-" i_176"
+" i_177"
 " rest_171)"
-" i_176)))"
+" i_177)))"
 " i_56)))))"
 " for-loop_261)"
 " 0"
 " lst_78)))))"
-" v_234))))))"
+" v_232))))))"
 "(let-values()(void)))))))"
 "(let-values()"
 "(let-values(((len_39)(length seq_2)))"
@@ -50090,20 +50102,20 @@ static const char *startup_source =
 "(list temp25_7 expected-len26_0 len27_0))))"
 "(let-values()"
 "(let-values(((last-or_0)"
-"(lambda(v_235)"
+"(lambda(v_233)"
 "(begin"
 " 'last-or"
 "(if(null? seq_2)"
-"(wrap v_235 in_28 config_39 #f)"
-"((letrec-values(((loop_109)"
+"(wrap v_233 in_28 config_39 #f)"
+"((letrec-values(((loop_110)"
 "(lambda(seq_3)"
 "(begin"
 " 'loop"
 "(if(null?(cdr seq_3))"
 "(car seq_3)"
-"(loop_109"
+"(loop_110"
 "(cdr seq_3)))))))"
-" loop_109)"
+" loop_110)"
 " seq_2))))))"
 "(let-values((()"
 "(begin"
@@ -50149,18 +50161,18 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-naturals start_17)))"
 "((letrec-values(((for-loop_16)"
-"(lambda(lst_303 pos_113)"
+"(lambda(lst_302 pos_113)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_303)"
+"(if(if(pair? lst_302)"
 " #t"
 " #f)"
 "(let-values(((e_77)"
 "(unsafe-car"
-" lst_303))"
+" lst_302))"
 "((rest_172)"
 "(unsafe-cdr"
-" lst_303))"
+" lst_302))"
 "((i_92)"
 " pos_113))"
 "(let-values((()"
@@ -50212,7 +50224,7 @@ static const char *startup_source =
 "((rest_7)"
 "(unsafe-cdr"
 " lst_158))"
-"((i_178)"
+"((i_179)"
 " pos_114))"
 "(let-values((()"
 "(let-values()"
@@ -50222,7 +50234,7 @@ static const char *startup_source =
 "(let-values()"
 "(fxvector-set!"
 " vec_65"
-" i_178"
+" i_179"
 " e_40))"
 "(values)))))"
 "(values)))))"
@@ -50253,20 +50265,20 @@ static const char *startup_source =
 "(let-values()"
 "(check-naturals start_57)))"
 "((letrec-values(((for-loop_251)"
-"(lambda(lst_293"
+"(lambda(lst_292"
 " pos_115)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_293)"
+" lst_292)"
 " #t"
 " #f)"
 "(let-values(((e_78)"
 "(unsafe-car"
-" lst_293))"
+" lst_292))"
 "((rest_92)"
 "(unsafe-cdr"
-" lst_293))"
+" lst_292))"
 "((i_95)"
 " pos_115))"
 "(let-values((()"
@@ -50419,7 +50431,7 @@ static const char *startup_source =
 "(let-values(((accum-str_2)(accum-string-init! config_43)))"
 "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))"
 "(let-values(((init-v_1)(digit->number init-c_9)))"
-"(let-values(((v_236)"
+"(let-values(((v_234)"
 "(let-values(((temp72_0) 10)"
 "((temp73_1) +inf.0)"
 "((init-v74_0) init-v_1)"
@@ -50436,7 +50448,7 @@ static const char *startup_source =
 " accum-str_2"
 " #t))))"
 "(values"
-" v_236"
+" v_234"
 "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))"
 "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))"
 "(let-values(((in_34) in_33)((source_20)(read-config-source config_43)))"
@@ -50695,9 +50707,9 @@ static const char *startup_source =
 "(if(if(equal? tmp_6 '#\\=) #t(equal? tmp_6 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_287)(read-config-for-syntax? config_45)))"
-"(if or-part_287"
-" or-part_287"
+"(if(let-values(((or-part_288)(read-config-for-syntax? config_45)))"
+"(if or-part_288"
+" or-part_288"
 "(not(check-parameter 1/read-accept-graph config_45))))"
 "(let-values()"
 "(let-values(((in37_0) in_36)"
@@ -50922,7 +50934,7 @@ static const char *startup_source =
 "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))"
 "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))"
 "(let-values(((content_10 opener_4 mode_19)"
-"((letrec-values(((loop_110)"
+"((letrec-values(((loop_111)"
 "(lambda(mode_3)"
 "(begin"
 " 'loop"
@@ -51083,7 +51095,7 @@ static const char *startup_source =
 "(begin"
 "(accum-string-add! accum-str_3 c_84)"
 "(get-next!_0 '#\\q '#\\Q)"
-"(loop_110 'eq)))"
+"(loop_111 'eq)))"
 "(if(if(equal? tmp_50 '#\\v)"
 " #t"
 "(equal? tmp_50 '#\\V))"
@@ -51091,7 +51103,7 @@ static const char *startup_source =
 "(begin"
 "(accum-string-add! accum-str_3 c_84)"
 "(if(eq? mode_3 'eq)"
-"(loop_110 'eqv)"
+"(loop_111 'eqv)"
 "(let-values(((in41_0) in_36)"
 "((config42_0) config_45)"
 "((temp43_3)"
@@ -51146,7 +51158,7 @@ static const char *startup_source =
 " config_45"
 " temp50_3"
 "(list temp51_2)))))))))))))))))"
-" loop_110)"
+" loop_111)"
 " 'equal)))"
 "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_45)) #t #f)))"
 "(wrap"
@@ -51277,7 +51289,7 @@ static const char *startup_source =
 " temp71_1"
 "(list temp72_1)))))"
 "(values))))"
-"(let-values(((v_237)(read-one_8 #f in_38 elem-config_1)))"
+"(let-values(((v_235)(read-one_8 #f in_38 elem-config_1)))"
 "(let-values(((closer-c_0)"
 "(read-char/skip-whitespace-and-comments #f read-one_8 in_38 config_47)))"
 "(let-values(((closer-line_0 closer-col_0 closer-pos_0)"
@@ -51307,7 +51319,7 @@ static const char *startup_source =
 " temp74_0"
 " temp76_0"
 "(list temp77_1)))))"
-"(cons(coerce-key k_40 elem-config_1) v_237))))))))))))))))))))))"
+"(cons(coerce-key k_40 elem-config_1) v_235))))))))))))))))))))))"
 "(define-values"
 "(read-string5.1)"
 "(lambda(mode1_1 mode2_0 in3_0 config4_0)"
@@ -51344,7 +51356,7 @@ static const char *startup_source =
 "(list mode16_0)))))))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_111)"
+"((letrec-values(((loop_112)"
 "(lambda()"
 "(begin"
 " 'loop"
@@ -51698,7 +51710,7 @@ static const char *startup_source =
 "(let-values(((pos_117)"
 "(accum-string-count"
 " accum-str_4)))"
-"(let-values(((v_197)"
+"(let-values(((v_195)"
 "(let-values(((temp42_3)"
 " 16)"
 "((temp43_4)"
@@ -51715,13 +51727,13 @@ static const char *startup_source =
 " accum-str_4"
 " #t))))"
 "(begin"
-"(if(integer? v_197)"
+"(if(integer? v_195)"
 "(void)"
 "(let-values()"
 "(no-hex-digits"
 " in_40"
 " config_22"
-" v_197"
+" v_195"
 " escaping-c_0"
 " escaped-c_0)))"
 "(set-accum-string-count!"
@@ -51730,7 +51742,7 @@ static const char *startup_source =
 "(accum-string-add!"
 " accum-str_4"
 "(integer->char"
-" v_197))))))"
+" v_195))))))"
 "(if(unsafe-fx< index_3 15)"
 "(let-values()"
 "(let-values((()"
@@ -51745,7 +51757,7 @@ static const char *startup_source =
 "(let-values(((pos_99)"
 "(accum-string-count"
 " accum-str_4)))"
-"(let-values(((v_224)"
+"(let-values(((v_222)"
 "(let-values(((temp47_1)"
 " 16)"
 "((temp48_1)"
@@ -51762,23 +51774,23 @@ static const char *startup_source =
 " accum-str_4"
 " #t))))"
 "(begin"
-"(if(integer? v_224)"
+"(if(integer? v_222)"
 "(void)"
 "(let-values()"
 "(no-hex-digits"
 " in_40"
 " config_22"
-" v_224"
+" v_222"
 " escaping-c_0"
 " escaped-c_0)))"
 "(if(let-values(((or-part_22)"
 "(<"
-" v_224"
+" v_222"
 " 55296)))"
 "(if or-part_22"
 " or-part_22"
 "(>"
-" v_224"
+" v_222"
 " 57343)))"
 "(let-values()"
 "(begin"
@@ -51788,7 +51800,7 @@ static const char *startup_source =
 "(accum-string-add!"
 " accum-str_4"
 "(integer->char"
-" v_224))))"
+" v_222))))"
 "(let-values()"
 "(let-values(((next!_0)"
 "(lambda()"
@@ -51866,7 +51878,7 @@ static const char *startup_source =
 "(+"
 "(arithmetic-shift"
 "(-"
-" v_224"
+" v_222"
 " 55296)"
 " 10)"
 "(-"
@@ -52034,7 +52046,7 @@ static const char *startup_source =
 "(list"
 " escaping-c79_0"
 " temp80_4)))))))))))))))))"
-"(loop_111)))))))"
+"(loop_112)))))))"
 "                                                                (if (char=? '#\\\" c_91)"
 "(let-values() null)"
 "(let-values()"
@@ -52062,8 +52074,8 @@ static const char *startup_source =
 "(list c87_0))))))"
 "(void))"
 "(accum-string-add! accum-str_4 c_91)"
-"(loop_111)))))))))))"
-" loop_111))"
+"(loop_112)))))))))))"
+" loop_112))"
 "(values))))"
 "(let-values(((str_30)"
 "(if(eq? mode_0 '|byte string|)"
@@ -52081,7 +52093,7 @@ static const char *startup_source =
 "(let-values(((full-terminator_0)"
 "(cons"
 " '#\\newline"
-"((letrec-values(((loop_112)"
+"((letrec-values(((loop_113)"
 "(lambda()"
 "(begin"
 " 'loop"
@@ -52122,11 +52134,11 @@ static const char *startup_source =
 "(list))))"
 "(if(char=? c_92 '#\\newline)"
 "(let-values() null)"
-"(let-values()(cons c_92(loop_112)))))))))))"
-" loop_112)))))"
+"(let-values()(cons c_92(loop_113)))))))))))"
+" loop_113)))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_113)"
+"((letrec-values(((loop_114)"
 "(lambda(terminator_0 terminator-accum_0)"
 "(begin"
 " 'loop"
@@ -52174,7 +52186,7 @@ static const char *startup_source =
 "(char=? c_93(car terminator_0))"
 " #f)"
 "(let-values()"
-"(loop_113"
+"(loop_114"
 "(cdr terminator_0)"
 "(cons(car terminator_0) terminator-accum_0)))"
 "(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)"
@@ -52224,14 +52236,14 @@ static const char *startup_source =
 "(void))))"
 "(if(char=? c_93 '#\\newline)"
 "(let-values()"
-"(loop_113"
+"(loop_114"
 "(cdr full-terminator_0)"
 "(list '#\\newline)))"
 "(let-values()"
 "(begin"
 "(accum-string-add! accum-str_5 c_93)"
-"(loop_113 full-terminator_0 null)))))))))))))))"
-" loop_113)"
+"(loop_114 full-terminator_0 null)))))))))))))))"
+" loop_114)"
 "(cdr full-terminator_0)"
 " null)"
 "(values))))"
@@ -52284,7 +52296,7 @@ static const char *startup_source =
 "(let-values(((in_41) in_4)"
 "((source_27)(read-config-source config_8)))"
 "(read-char-or-special in_41 special1.1 source_27))))"
-"(let-values(((v_221)"
+"(let-values(((v_219)"
 "(if(if(char? c3_5)(octal-digit? c3_5) #f)"
 "(let-values()"
 "(+"
@@ -52293,7 +52305,7 @@ static const char *startup_source =
 "(digit->number c3_5)))"
 "(let-values() #f))))"
 "(begin"
-"(if(if v_221(<= v_221 255) #f)"
+"(if(if v_219(<= v_219 255) #f)"
 "(void)"
 "(let-values()"
 "(let-values(((c311_0) c3_5)"
@@ -52312,7 +52324,7 @@ static const char *startup_source =
 " config_8"
 " temp12_1"
 "(list c13_2 c214_0 temp15_7)))))"
-"(integer->char v_221))))))"
+"(integer->char v_219))))))"
 "(let-values() c_96))))"
 "(if(let-values(((or-part_160)(char=? c_96 '#\\u)))"
 "(if or-part_160 or-part_160(char=? c_96 '#\\U)))"
@@ -52380,7 +52392,7 @@ static const char *startup_source =
 "(let-values((()(begin(consume-char in_4 next-c_4)(values))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_105)"
+"((letrec-values(((loop_106)"
 "(lambda()"
 "(begin"
 " 'loop"
@@ -52416,9 +52428,9 @@ static const char *startup_source =
 "(consume-char"
 " in_4"
 " next-c_5)"
-"(loop_105)))"
+"(loop_106)))"
 "(void)))))))"
-" loop_105))"
+" loop_106))"
 "(values))))"
 "(let-values(((name_68)"
 "(string-foldcase"
@@ -52492,7 +52504,7 @@ static const char *startup_source =
 "(let-values(((accum-str_8)(accum-string-init! config_22)))"
 "(begin"
 "(accum-string-add! accum-str_8 init-c_1)"
-"((letrec-values(((loop_114)"
+"((letrec-values(((loop_115)"
 "(lambda(chars_1)"
 "(begin"
 " 'loop"
@@ -52556,7 +52568,7 @@ static const char *startup_source =
 "(begin"
 "(consume-char in_40 c_97)"
 "(accum-string-add! accum-str_8 c_97)"
-"(loop_114(cdr chars_1))))"
+"(loop_115(cdr chars_1))))"
 "(let-values()"
 "(begin"
 "(consume-char/special in_40 config_22 c_97)"
@@ -52579,7 +52591,7 @@ static const char *startup_source =
 " config15_2"
 " temp16_7"
 "(list temp17_2)))))))))))))"
-" loop_114)"
+" loop_115)"
 " chars_0)"
 "(wrap"
 " val_75"
@@ -52863,7 +52875,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_115)"
+"((letrec-values(((loop_116)"
 "(lambda()"
 "(begin"
 " 'loop"
@@ -52906,16 +52918,16 @@ static const char *startup_source =
 "(list extend-str96_0)))))"
 "(if(char-whitespace? c_98)"
 "(let-values()(void))"
-"(if(let-values(((or-part_350)"
+"(if(let-values(((or-part_351)"
 "(char-lang-nonsep? c_98)))"
-"(if or-part_350"
-" or-part_350"
+"(if or-part_351"
+" or-part_351"
 "(char=? '#\\/ c_98)))"
 "(let-values()"
 "(begin"
 "(consume-char in_55 c_98)"
 "(accum-string-add! accum-str_10 c_98)"
-"(loop_115)))"
+"(loop_116)))"
 "(let-values()"
 "(begin"
 "(consume-char in_55 c_98)"
@@ -52941,7 +52953,7 @@ static const char *startup_source =
 "(list"
 " extend-str100_0"
 " c101_0))))))))))))))"
-" loop_115))"
+" loop_116))"
 "(values))))"
 "(let-values(((lang-str_0)"
 "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))"
@@ -53043,17 +53055,17 @@ static const char *startup_source =
 "(lambda(c_99)"
 "(begin"
 "(if(<(char->integer c_99) 128)"
-"(let-values(((or-part_288)(char-alphabetic? c_99)))"
-"(if or-part_288"
-" or-part_288"
-"(let-values(((or-part_289)(char-numeric? c_99)))"
+"(let-values(((or-part_289)(char-alphabetic? c_99)))"
 "(if or-part_289"
 " or-part_289"
-"(let-values(((or-part_351)(char=? '#\\- c_99)))"
-"(if or-part_351"
-" or-part_351"
-"(let-values(((or-part_352)(char=? '#\\+ c_99)))"
-"(if or-part_352 or-part_352(char=? '#\\_ c_99)))))))))"
+"(let-values(((or-part_290)(char-numeric? c_99)))"
+"(if or-part_290"
+" or-part_290"
+"(let-values(((or-part_352)(char=? '#\\- c_99)))"
+"(if or-part_352"
+" or-part_352"
+"(let-values(((or-part_353)(char=? '#\\+ c_99)))"
+"(if or-part_353 or-part_353(char=? '#\\_ c_99)))))))))"
 " #f))))"
 "(define-values"
 "(read-extension-prefix)"
@@ -53065,11 +53077,11 @@ static const char *startup_source =
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_30)))"
 "((letrec-values(((for-loop_24)"
-"(lambda(lst_304)"
+"(lambda(lst_303)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_304)"
-"(let-values(((c_100)(unsafe-car lst_304))((rest_173)(unsafe-cdr lst_304)))"
+"(if(pair? lst_303)"
+"(let-values(((c_100)(unsafe-car lst_303))((rest_173)(unsafe-cdr lst_303)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -53084,7 +53096,7 @@ static const char *startup_source =
 " for-loop_24)"
 " lst_30)))"
 "(void)"
-"((letrec-values(((loop_116)"
+"((letrec-values(((loop_117)"
 "(lambda(wanted_1)"
 "(begin"
 " 'loop"
@@ -53106,8 +53118,8 @@ static const char *startup_source =
 "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))"
 "((c121_0) c_101))"
 "(bad-syntax-error18.1 c121_0 #t in_57 config_52 temp120_2))))"
-"(loop_116(cdr wanted_1))))))))))"
-" loop_116)"
+"(loop_117(cdr wanted_1))))))))))"
+" loop_117)"
 " wanted_0)"
 "(let-values(((accum-str116_0) accum-str_11)((config117_0) config_52))"
 "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))"
@@ -53142,7 +53154,7 @@ static const char *startup_source =
 "(let-values((()(begin(force-parameters! config_53)(values))))"
 "(let-values(((guard_0)(1/current-reader-guard)))"
 "(let-values(((mod-path_27)"
-"(let-values(((or-part_303)"
+"(let-values(((or-part_304)"
 "(if try-first-mod-path_0"
 "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))"
 "(if((read-config-module-declared? config_53)"
@@ -53150,7 +53162,7 @@ static const char *startup_source =
 " mod-path_28"
 " #f))"
 " #f)))"
-"(if or-part_303 or-part_303(guard_0 mod-path-datum_0)))))"
+"(if or-part_304 or-part_304(guard_0 mod-path-datum_0)))))"
 "(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))"
 "(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))"
 "(let-values(((no-value_0)(gensym)))"
@@ -53409,8 +53421,8 @@ static const char *startup_source =
 " wrap63_0"
 " #t)))))))"
 "(let-values(((v_133)(read-one init-c_5 in_12 config_54)))"
-"(if(if(let-values(((or-part_287)(not recursive?_0)))"
-"(if or-part_287 or-part_287 local-graph?_1))"
+"(if(if(let-values(((or-part_288)(not recursive?_0)))"
+"(if or-part_288 or-part_288 local-graph?_1))"
 "(read-config-state-graph(read-config-st config_54))"
 " #f)"
 "(let-values()"
@@ -53502,12 +53514,12 @@ static const char *startup_source =
 "(if(check-parameter 1/read-cdot config_57)"
 "(let-values()"
 "(let-values(((line_10 col_9 pos_98)(port-next-location in_61)))"
-"(let-values(((v_238)(read-undotted init-c_14 in_61 config_57)))"
-"(if(1/special-comment? v_238)"
-"(let-values() v_238)"
+"(let-values(((v_236)(read-undotted init-c_14 in_61 config_57)))"
+"(if(1/special-comment? v_236)"
+"(let-values() v_236)"
 "(let-values()"
-"((letrec-values(((loop_117)"
-"(lambda(v_239)"
+"((letrec-values(((loop_118)"
+"(lambda(v_237)"
 "(begin"
 " 'loop"
 "(let-values(((c_102)"
@@ -53523,9 +53535,9 @@ static const char *startup_source =
 "(if(eq? c_103 'special)(special1.1 'special) c_103)))))"
 "(let-values(((ec_9)(effective-char c_102 config_57)))"
 "(if(not(char? ec_9))"
-"(let-values() v_239)"
+"(let-values() v_237)"
 "(if(char-whitespace? ec_9)"
-"(let-values()(begin(consume-char in_61 c_102)(loop_117 v_239)))"
+"(let-values()(begin(consume-char in_61 c_102)(loop_118 v_237)))"
 "(if(char=? ec_9 '#\\.)"
 "(let-values()"
 "(let-values(((dot-line_2 dot-col_2 dot-pos_5)"
@@ -53543,15 +53555,15 @@ static const char *startup_source =
 " '#\\.)))"
 "(let-values(((post-v_0)"
 "(read-undotted #f in_61 config_57)))"
-"(loop_117"
+"(loop_118"
 "(wrap"
-"(list cdot_0 v_239 post-v_0)"
+"(list cdot_0 v_237 post-v_0)"
 " in_61"
 "(reading-at config_57 line_10 col_9 pos_98)"
 " '#\\.)))))))"
-"(let-values() v_239))))))))))"
-" loop_117)"
-" v_238))))))"
+"(let-values() v_237))))))))))"
+" loop_118)"
+" v_236))))))"
 "(void))))))"
 "(define-values"
 "(read-undotted)"
@@ -53563,15 +53575,15 @@ static const char *startup_source =
 "(let-values() eof)"
 "(if(not(char? c_104))"
 "(let-values()"
-"(let-values(((v_240)(special-value c_104)))"
-"(if(1/special-comment? v_240)"
-"(let-values()(if(read-config-keep-comment? config_58) v_240(read-undotted #f in_63 config_58)))"
-"(let-values()(coerce v_240 in_63(reading-at config_58 line_11 col_10 pos_118))))))"
+"(let-values(((v_238)(special-value c_104)))"
+"(if(1/special-comment? v_238)"
+"(let-values()(if(read-config-keep-comment? config_58) v_238(read-undotted #f in_63 config_58)))"
+"(let-values()(coerce v_238 in_63(reading-at config_58 line_11 col_10 pos_118))))))"
 "(let-values(((c2_7)(readtable-handler config_58 c_104)))"
 "(if c2_7"
 "((lambda(handler_3)"
-"(let-values(((v_241)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))"
-"(retry-special-comment v_241 in_63 config_58)))"
+"(let-values(((v_239)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))"
+"(retry-special-comment v_239 in_63 config_58)))"
 " c2_7)"
 "(let-values()"
 "(let-values(((ec_10)(effective-char c_104 config_58)))"
@@ -53640,11 +53652,11 @@ static const char *startup_source =
 "(if(unsafe-fx< index_4 2)"
 "(if(unsafe-fx< index_4 1)"
 "(let-values()"
-"(let-values(((v_242)"
+"(let-values(((v_240)"
 "(let-values(((temp82_4)"
-"(if(let-values(((or-part_353)(eq? c_104 ec_10)))"
-"(if or-part_353"
-" or-part_353"
+"(if(let-values(((or-part_354)(eq? c_104 ec_10)))"
+"(if or-part_354"
+" or-part_354"
 "(if(<(char->integer ec_10) 128)"
 "(char-numeric? ec_10)"
 " #f)))"
@@ -53658,7 +53670,7 @@ static const char *startup_source =
 " c_104"
 " in_63"
 " r-config_0))))"
-"(retry-special-comment v_242 in_63 config_58)))"
+"(retry-special-comment v_240 in_63 config_58)))"
 "(let-values()(read-dispatch c_104 in_63 r-config_0 config_58)))"
 "(if(unsafe-fx< index_4 3)"
 "                                    (let-values () (read-quote read-one 'quote \"quoting '\" c_104 in_63 r-config_0))"
@@ -53824,10 +53836,10 @@ static const char *startup_source =
 " temp111_2"
 "(list c112_0))))))"
 "(let-values()"
-"(if(let-values(((or-part_354)"
+"(if(let-values(((or-part_355)"
 "(check-parameter 1/read-square-bracket-as-paren config_58)))"
-"(if or-part_354"
-" or-part_354"
+"(if or-part_355"
+" or-part_355"
 "(check-parameter 1/read-square-bracket-with-tag config_58)))"
 "(let-values()"
 "(let-values(((in113_0) in_63)"
@@ -53867,10 +53879,10 @@ static const char *startup_source =
 "(list c120_0))))))))"
 "(if(unsafe-fx< index_4 10)"
 "(let-values()"
-"(if(let-values(((or-part_355)"
+"(if(let-values(((or-part_356)"
 "(check-parameter 1/read-curly-brace-as-paren config_58)))"
-"(if or-part_355"
-" or-part_355"
+"(if or-part_356"
+" or-part_356"
 "(check-parameter 1/read-curly-brace-with-tag config_58)))"
 "(let-values()"
 "(wrap"
@@ -53917,10 +53929,10 @@ static const char *startup_source =
 "(list c131_0))))))"
 "(if(unsafe-fx< index_4 11)"
 "(let-values()"
-"(if(let-values(((or-part_356)"
+"(if(let-values(((or-part_357)"
 "(check-parameter 1/read-curly-brace-as-paren config_58)))"
-"(if or-part_356"
-" or-part_356"
+"(if or-part_357"
+" or-part_357"
 "(check-parameter 1/read-curly-brace-with-tag config_58)))"
 "(let-values()"
 "(let-values(((in132_0) in_63)"
@@ -53993,9 +54005,9 @@ static const char *startup_source =
 "(let-values(((line_12)(read-config-line config_59)))"
 "(let-values(((col_11)(read-config-col config_59)))"
 "(let-values(((pos_119)(read-config-pos config_59)))"
-"(let-values(((v_243)"
+"(let-values(((v_241)"
 "(readtable-apply handler_4 c_106 in_65 config_59 line_12 col_11 pos_119)))"
-"(retry-special-comment v_243 in_65 orig-config_0))))))"
+"(retry-special-comment v_241 in_65 orig-config_0))))))"
 " c3_8)"
 "(let-values()"
 "(let-values()"
@@ -54319,8 +54331,8 @@ static const char *startup_source =
 "(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
 "(if(char-delimiter? c2_11 config_59)"
 "(let-values()(wrap #f in_65 config_59 c_106))"
-"(if(let-values(((or-part_340)(char=? c2_11 '#\\x)))"
-"(if or-part_340 or-part_340(char=? c2_11 '#\\l)))"
+"(if(let-values(((or-part_341)(char=? c2_11 '#\\x)))"
+"(if or-part_341 or-part_341(char=? c2_11 '#\\l)))"
 "(let-values()"
 "(read-fixnum-or-flonum-vector"
 " read-one"
@@ -54582,11 +54594,11 @@ static const char *startup_source =
 "(list dispatch-c279_0)))))))))))))))))))))))))"
 "(define-values"
 "(retry-special-comment)"
-"(lambda(v_244 in_74 config_60)"
+"(lambda(v_242 in_74 config_60)"
 "(begin"
-"(if(1/special-comment? v_244)"
-"(let-values()(if(read-config-keep-comment? config_60) v_244(read-undotted #f in_74 config_60)))"
-"(let-values() v_244)))))"
+"(if(1/special-comment? v_242)"
+"(let-values()(if(read-config-keep-comment? config_60) v_242(read-undotted #f in_74 config_60)))"
+"(let-values() v_242)))))"
 "(define-values"
 "(1/module-declared?)"
 "(let-values(((module-declared?4_0)"
@@ -54861,9 +54873,9 @@ static const char *startup_source =
 "(module-reference?)"
 "(lambda(mod_24)"
 "(begin"
-"(let-values(((or-part_357)(1/module-path? mod_24)))"
-"(if or-part_357"
-" or-part_357"
+"(let-values(((or-part_358)(1/module-path? mod_24)))"
+"(if or-part_358"
+" or-part_358"
 "(let-values(((or-part_255)(1/module-path-index? mod_24)))"
 "(if or-part_255 or-part_255(1/resolved-module-path? mod_24))))))))"
 " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")"
@@ -55026,8 +55038,8 @@ static const char *startup_source =
 "(read-to-syntax)"
 "(lambda(s-exp_4 srcloc_10 rep_1)"
 "(begin"
-"(let-values(((the-struct_89) empty-syntax))"
-"(if(syntax?$1 the-struct_89)"
+"(let-values(((the-struct_90) empty-syntax))"
+"(if(syntax?$1 the-struct_90)"
 "(let-values(((content63_0)(datum-intern-literal s-exp_4))"
 "((srcloc64_0) srcloc_10)"
 "((props65_0)"
@@ -55039,14 +55051,14 @@ static const char *startup_source =
 "(let-values() original-props))))))"
 "(syntax1.1"
 " content63_0"
-"(syntax-scopes the-struct_89)"
-"(syntax-shifted-multi-scopes the-struct_89)"
-"(syntax-scope-propagations+tamper the-struct_89)"
-"(syntax-mpi-shifts the-struct_89)"
+"(syntax-scopes the-struct_90)"
+"(syntax-shifted-multi-scopes the-struct_90)"
+"(syntax-scope-propagations+tamper the-struct_90)"
+"(syntax-mpi-shifts the-struct_90)"
 " srcloc64_0"
 " props65_0"
-"(syntax-inspector the-struct_89)))"
-"          (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))"
+"(syntax-inspector the-struct_90)))"
+"          (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))"
 "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))"
 "(define-values"
 "(original-square-props)"
@@ -55057,11 +55069,11 @@ static const char *startup_source =
 "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))"
 "(define-values"
 "(read-coerce)"
-"(lambda(for-syntax?_12 v_245 srcloc_11)"
+"(lambda(for-syntax?_12 v_243 srcloc_11)"
 "(begin"
 "(if(not for-syntax?_12)"
-"(let-values()(if(syntax?$1 v_245)(let-values()(syntax->datum$1 v_245))(let-values() v_245)))"
-"(let-values()(datum->syntax$1 #f v_245(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))"
+"(let-values()(if(syntax?$1 v_243)(let-values()(syntax->datum$1 v_243))(let-values() v_243)))"
+"(let-values()(datum->syntax$1 #f v_243(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))"
 "(define-values"
 "(read-coerce-key)"
 "(lambda(for-syntax?_13 k_41)"
@@ -55298,15 +55310,15 @@ static const char *startup_source =
 "(expand-once$1 s_9)))))"
 "(define-values"
 "(1/expand-to-top-form)"
-"(lambda(s_466)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_466)))))"
+"(lambda(s_465)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_465)))))"
 "(define-values"
 "(1/expand-syntax-to-top-form)"
-"(lambda(s_422)"
+"(lambda(s_421)"
 "(begin"
 " 'expand-syntax-to-top-form"
 "(begin"
-"        (if (syntax?$1 s_422) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_422)))"
-"(expand-to-top-form$1 s_422)))))"
+"        (if (syntax?$1 s_421) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_421)))"
+"(expand-to-top-form$1 s_421)))))"
 "(define-values"
 "(intro)"
 "(let-values(((intro4_0)"
@@ -55415,11 +55427,11 @@ static const char *startup_source =
 "(if(= 0 phase-level_21)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_302)(1/instance-variable-names inst_7)))"
+"(let-values(((lst_301)(1/instance-variable-names inst_7)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_302)))"
+"(let-values()(check-list lst_301)))"
 "((letrec-values(((for-loop_220)"
 "(lambda(lst_264)"
 "(begin"
@@ -55449,7 +55461,7 @@ static const char *startup_source =
 "(values))))"
 "(values))))))"
 " for-loop_220)"
-" lst_302)))"
+" lst_301)))"
 "(void)))"
 "(void)))))"
 "(make-module39.1"
@@ -55653,14 +55665,14 @@ static const char *startup_source =
 "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)"
 "(begin"
 " 'local-expand/capture-lifts15"
-"(let-values(((s_426) s12_2))"
+"(let-values(((s_425) s12_2))"
 "(let-values(((context_12) context13_0))"
 "(let-values(((stop-ids_5) stop-ids14_0))"
 "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))"
 "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))"
 "(let-values()"
 "(let-values(((temp64_2) 'local-expand)"
-"((s65_0) s_426)"
+"((s65_0) s_425)"
 "((context66_0) context_12)"
 "((stop-ids67_0) stop-ids_5)"
 "((intdefs68_0) intdefs_4)"
@@ -55777,10 +55789,10 @@ static const char *startup_source =
 "(begin"
 " 'local-transformer-expand/capture-lifts"
 "(local-transformer-expand/capture-lifts31_0 s_304 context_20 stop-ids_13 #f #f #f #f)))"
-"((s_467 context_21 stop-ids_14 intdefs_8 lift-key25_1)"
-"(local-transformer-expand/capture-lifts31_0 s_467 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))"
-"((s_468 context_22 stop-ids_15 intdefs24_1)"
-"(local-transformer-expand/capture-lifts31_0 s_468 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))"
+"((s_466 context_21 stop-ids_14 intdefs_8 lift-key25_1)"
+"(local-transformer-expand/capture-lifts31_0 s_466 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))"
+"((s_467 context_22 stop-ids_15 intdefs24_1)"
+"(local-transformer-expand/capture-lifts31_0 s_467 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))"
 "(define-values"
 "(1/syntax-local-expand-expression)"
 "(let-values(((syntax-local-expand-expression36_0)"
@@ -55818,7 +55830,7 @@ static const char *startup_source =
 " null88_0"
 " temp89_6"
 " #t))))"
-"(let-values(((ctx_69)(let-values()(get-current-expand-context17.1 #f #f #f #f))))"
+"(let-values(((ctx_70)(let-values()(get-current-expand-context17.1 #f #f #f #f))))"
 "(let-values(((ae_1)"
 "(flip-introduction-scopes"
 "(datum->syntax$1"
@@ -55826,15 +55838,15 @@ static const char *startup_source =
 "(already-expanded1.1"
 "(if(parsed? exp-s_12)"
 " exp-s_12"
-"(flip-introduction-scopes exp-s_12 ctx_69))"
-"(expand-context-binding-layer ctx_69)))"
-" ctx_69)))"
+"(flip-introduction-scopes exp-s_12 ctx_70))"
+"(expand-context-binding-layer ctx_70)))"
+" ctx_70)))"
 "(begin"
-"(let-values(((obs_31)(expand-context-observer ctx_69)))"
+"(let-values(((obs_31)(expand-context-observer ctx_70)))"
 "(if obs_31"
 "(let-values()(let-values()(call-expand-observe obs_31 'opaque-expr ae_1)))"
 "(void)))"
-"(let-values(((obs_49)(expand-context-observer ctx_69)))"
+"(let-values(((obs_49)(expand-context-observer ctx_70)))"
 "(if obs_49"
 "(let-values()(let-values()(call-expand-observe obs_49 'exit-local exp-s_12)))"
 "(void)))"
@@ -55887,9 +55899,9 @@ static const char *startup_source =
 "(let-values(((s_310)(datum->syntax$1 #f s-or-s-exp_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_358)(list? context_23)))"
-"(if or-part_358"
-" or-part_358"
+"(if(let-values(((or-part_359)(list? context_23)))"
+"(if or-part_359"
+" or-part_359"
 "(memq"
 " context_23"
 "(if as-transformer?_5"
@@ -55906,9 +55918,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_359)(not stop-ids_16)))"
-"(if or-part_359"
-" or-part_359"
+"(if(let-values(((or-part_360)(not stop-ids_16)))"
+"(if or-part_360"
+" or-part_360"
 "(if(list? stop-ids_16)"
 "(andmap2 identifier? stop-ids_16)"
 " #f)))"
@@ -55921,13 +55933,13 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_360)(not intdefs_9)))"
-"(if or-part_360"
-" or-part_360"
-"(let-values(((or-part_361)"
-"(1/internal-definition-context? intdefs_9)))"
+"(if(let-values(((or-part_361)(not intdefs_9)))"
 "(if or-part_361"
 " or-part_361"
+"(let-values(((or-part_362)"
+"(1/internal-definition-context? intdefs_9)))"
+"(if or-part_362"
+" or-part_362"
 "(if(list? intdefs_9)"
 "(andmap2 1/internal-definition-context? intdefs_9)"
 " #f)))))"
@@ -55938,13 +55950,13 @@ static const char *startup_source =
 "                                                           \"(or/c #f internal-definitionc-context? (listof internal-definitionc-context?))\""
 " intdefs_9)))"
 "(values))))"
-"(let-values(((ctx_70)"
+"(let-values(((ctx_71)"
 "(let-values(((who93_0) who_33))"
 "(get-current-expand-context17.1 #f #f who93_0 #t))))"
 "(let-values(((phase_25)"
 "(if as-transformer?_5"
-"(add1(expand-context-phase ctx_70))"
-"(expand-context-phase ctx_70))))"
+"(add1(expand-context-phase ctx_71))"
+"(expand-context-phase ctx_71))))"
 "(let-values(((local-ctx_0)"
 "(let-values(((context95_0) context_23)"
 "((phase96_0) phase_25)"
@@ -55964,11 +55976,11 @@ static const char *startup_source =
 " #t"
 " track-to-be-defined?100_0"
 " #t"
-" ctx_70))))"
+" ctx_71))))"
 "(let-values((()"
 "(begin"
 "(namespace-visit-available-modules!"
-"(expand-context-namespace ctx_70)"
+"(expand-context-namespace ctx_71)"
 " phase_25)"
 "(values))))"
 "(let-values((()"
@@ -55986,7 +55998,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((input-s_1)"
 "(let-values(((temp101_4)"
-"(flip-introduction-scopes s_310 ctx_70))"
+"(flip-introduction-scopes s_310 ctx_71))"
 "((intdefs102_0) intdefs_9))"
 "(add-intdef-scopes21.1"
 " #f"
@@ -56133,7 +56145,7 @@ static const char *startup_source =
 " output-s_0"
 "(flip-introduction-scopes"
 " output-s_0"
-" ctx_70))))"
+" ctx_71))))"
 "(begin"
 "(if skip-log-exit?_0"
 "(void)"
@@ -56190,13 +56202,13 @@ static const char *startup_source =
 "(let-values()"
 "(taint-dispatch"
 " s_3"
-"(lambda(s_466)(syntax-arm$1 s_466 insp_21))"
+"(lambda(s_465)(syntax-arm$1 s_465 insp_21))"
 "(1/syntax-local-phase-level)))"
 "(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))"
 "(case-lambda"
-"((s_422)(begin 'syntax-arm(syntax-arm6_0 s_422 #f #f #f #f)))"
-"((s_469 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_469 maybe-insp_1 use-mode?2_1 #t #t))"
-"((s_470 maybe-insp1_1)(syntax-arm6_0 s_470 maybe-insp1_1 #f #t #f)))))"
+"((s_421)(begin 'syntax-arm(syntax-arm6_0 s_421 #f #f #f #f)))"
+"((s_468 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_468 maybe-insp_1 use-mode?2_1 #t #t))"
+"((s_469 maybe-insp1_1)(syntax-arm6_0 s_469 maybe-insp1_1 #f #t #f)))))"
 "(define-values"
 "(1/syntax-disarm)"
 "(lambda(s_411 maybe-insp_2)"
@@ -56210,8 +56222,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_291)(not maybe-insp_2)))"
-"(if or-part_291 or-part_291(inspector? maybe-insp_2)))"
+"(if(let-values(((or-part_292)(not maybe-insp_2)))"
+"(if or-part_292 or-part_292(inspector? maybe-insp_2)))"
 "(void)"
 "                          (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))"
 "(values))))"
@@ -56237,7 +56249,7 @@ static const char *startup_source =
 "(let-values()"
 "(taint-dispatch"
 " s_40"
-"(lambda(s_427)(syntax-rearm$1 s_427 from-s_2))"
+"(lambda(s_426)(syntax-rearm$1 s_426 from-s_2))"
 "(1/syntax-local-phase-level)))"
 "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))"
 "(case-lambda"
@@ -56447,6 +56459,7 @@ static const char *startup_source =
 " 'syntax-local-name"
 " 'make-syntax-introducer"
 " 'make-syntax-delta-introducer"
+" 'syntax-local-make-delta-introducer"
 " 'syntax-local-value"
 " 'syntax-local-value/immediate"
 " 'syntax-local-lift-expression"
@@ -56581,6 +56594,7 @@ static const char *startup_source =
 "(add-core-primitive! 'syntax-local-name 1/syntax-local-name)"
 "(add-core-primitive! 'make-syntax-introducer 1/make-syntax-introducer)"
 "(add-core-primitive! 'make-syntax-delta-introducer 1/make-syntax-delta-introducer)"
+"(add-core-primitive! 'syntax-local-make-delta-introducer syntax-local-make-delta-introducer)"
 "(add-core-primitive! 'syntax-local-value 1/syntax-local-value)"
 "(add-core-primitive! 'syntax-local-value/immediate 1/syntax-local-value/immediate)"
 "(add-core-primitive! 'syntax-local-lift-expression 1/syntax-local-lift-expression)"
@@ -56709,12 +56723,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash-keys ht_154)))"
 "((letrec-values(((for-loop_242)"
-"(lambda(i_178)"
+"(lambda(i_179)"
 "(begin"
 " 'for-loop"
-"(if i_178"
+"(if i_179"
 "(let-values(((sym_95)"
-"(hash-iterate-key ht_154 i_178)))"
+"(hash-iterate-key ht_154 i_179)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -56727,7 +56741,7 @@ static const char *startup_source =
 "(values)))))"
 "(if(not #f)"
 "(for-loop_242"
-"(hash-iterate-next ht_154 i_178))"
+"(hash-iterate-next ht_154 i_179))"
 "(values))))"
 "(values))))))"
 " for-loop_242)"
@@ -56741,14 +56755,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_156)))"
 "((letrec-values(((for-loop_251)"
-"(lambda(table_206 i_179)"
+"(lambda(table_206 i_180)"
 "(begin"
 " 'for-loop"
-"(if i_179"
+"(if i_180"
 "(let-values(((sym_96 val_78)"
 "(hash-iterate-key+value"
 " ht_156"
-" i_179)))"
+" i_180)))"
 "(let-values(((table_13)"
 "(let-values(((table_14)"
 " table_206))"
@@ -56781,7 +56795,7 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_251"
 " table_13"
-"(hash-iterate-next ht_156 i_179))"
+"(hash-iterate-next ht_156 i_180))"
 " table_13)))"
 " table_206)))))"
 " for-loop_251)"
@@ -56794,14 +56808,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_157)))"
 "((letrec-values(((for-loop_262)"
-"(lambda(ht_158 i_180)"
+"(lambda(ht_158 i_181)"
 "(begin"
 " 'for-loop"
-"(if i_180"
+"(if i_181"
 "(let-values(((k_42 v_40)"
 "(hash-iterate-key+value"
 " ht_157"
-" i_180)))"
+" i_181)))"
 "(let-values(((ht_159)"
 "(let-values(((ht_149)"
 " ht_158))"
@@ -56815,7 +56829,7 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_262"
 " ht_159"
-"(hash-iterate-next ht_157 i_180))"
+"(hash-iterate-next ht_157 i_181))"
 " ht_159)))"
 " ht_158)))))"
 " for-loop_262)"
@@ -56876,14 +56890,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash-keys ht_162)))"
 "((letrec-values(((for-loop_189)"
-"(lambda(table_209 i_181)"
+"(lambda(table_209 i_182)"
 "(begin"
 " 'for-loop"
-"(if i_181"
+"(if i_182"
 "(let-values(((sym_97)"
 "(hash-iterate-key"
 " ht_162"
-" i_181)))"
+" i_182)))"
 "(let-values(((table_36)"
 "(let-values(((table_37)"
 " table_209))"
@@ -56931,10 +56945,10 @@ static const char *startup_source =
 " sym78_0))))"
 "(values"
 " sym_97"
-"(if(let-values(((or-part_362)"
+"(if(let-values(((or-part_363)"
 " protected?_3))"
-"(if or-part_362"
-" or-part_362"
+"(if or-part_363"
+" or-part_363"
 "(member"
 " sym_97"
 " protected-syms_0)))"
@@ -56954,7 +56968,7 @@ static const char *startup_source =
 " table_36"
 "(hash-iterate-next"
 " ht_162"
-" i_181))"
+" i_182))"
 " table_36)))"
 " table_209)))))"
 " for-loop_189)"
@@ -56978,14 +56992,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_125)))"
 "((letrec-values(((for-loop_263)"
-"(lambda(i_182)"
+"(lambda(i_183)"
 "(begin"
 " 'for-loop"
-"(if i_182"
+"(if i_183"
 "(let-values(((sym_98 val_81)"
 "(hash-iterate-key+value"
 " ht_125"
-" i_182)))"
+" i_183)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -57003,7 +57017,7 @@ static const char *startup_source =
 "(for-loop_263"
 "(hash-iterate-next"
 " ht_125"
-" i_182))"
+" i_183))"
 "(values))))"
 "(values))))))"
 " for-loop_263)"
@@ -57065,15 +57079,15 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_150)))"
 "((letrec-values(((for-loop_244)"
-"(lambda(fold-var_273 lst_305)"
+"(lambda(fold-var_271 lst_304)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_305)"
-"(let-values(((require-name_0)(unsafe-car lst_305))"
-"((rest_175)(unsafe-cdr lst_305)))"
+"(if(pair? lst_304)"
+"(let-values(((require-name_0)(unsafe-car lst_304))"
+"((rest_175)(unsafe-cdr lst_304)))"
 "(let-values(((fold-var_138)"
-"(let-values(((fold-var_274) fold-var_273))"
-"(let-values(((fold-var_275)"
+"(let-values(((fold-var_272) fold-var_271))"
+"(let-values(((fold-var_273)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -57082,12 +57096,12 @@ static const char *startup_source =
 " 'quote"
 " require-name_0)"
 " #f))"
-" fold-var_274))))"
-"(values fold-var_275)))))"
+" fold-var_272))))"
+"(values fold-var_273)))))"
 "(if(not #f)"
 "(for-loop_244 fold-var_138 rest_175)"
 " fold-var_138)))"
-" fold-var_273)))))"
+" fold-var_271)))))"
 " for-loop_244)"
 " null"
 " lst_150))))))"
@@ -57101,20 +57115,20 @@ static const char *startup_source =
 "(if reexport?_0"
 "(hasheqv"
 " 0"
-"(let-values(((lst_306) require-mpis_0))"
+"(let-values(((lst_305) require-mpis_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_306)))"
+"(let-values()(check-list lst_305)))"
 "((letrec-values(((for-loop_120)"
-"(lambda(table_211 lst_307)"
+"(lambda(table_211 lst_306)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_307)"
+"(if(pair? lst_306)"
 "(let-values(((require-mpi_0)"
-"(unsafe-car lst_307))"
+"(unsafe-car lst_306))"
 "((rest_176)"
-"(unsafe-cdr lst_307)))"
+"(unsafe-cdr lst_306)))"
 "(let-values(((table_212)"
 "(let-values(((m_29)"
 "(namespace->module"
@@ -57147,15 +57161,15 @@ static const char *startup_source =
 " ht_163)))"
 "((letrec-values(((for-loop_121)"
 "(lambda(table_107"
-" i_183)"
+" i_184)"
 "(begin"
 " 'for-loop"
-"(if i_183"
+"(if i_184"
 "(let-values(((sym_99"
 " binding_29)"
 "(hash-iterate-key+value"
 " ht_163"
-" i_183)))"
+" i_184)))"
 "(let-values(((table_32)"
 "(let-values(((table_215)"
 " table_107))"
@@ -57179,7 +57193,7 @@ static const char *startup_source =
 " table_32"
 "(hash-iterate-next"
 " ht_163"
-" i_183))"
+" i_184))"
 " table_32)))"
 " table_107)))))"
 " for-loop_121)"
@@ -57195,7 +57209,7 @@ static const char *startup_source =
 " table_211)))))"
 " for-loop_120)"
 " '#hash()"
-" lst_306))))"
+" lst_305))))"
 " '#hasheqv()))"
 "((void87_0) void))"
 "(make-module39.1"
@@ -57583,8 +57597,8 @@ static const char *startup_source =
 "(check-module-form)"
 "(lambda(exp_0 filename_1)"
 "(begin"
-"(if(let-values(((or-part_299)(eof-object? exp_0)))"
-"(if or-part_299 or-part_299(eof-object?(1/syntax-e exp_0))))"
+"(if(let-values(((or-part_300)(eof-object? exp_0)))"
+"(if or-part_300 or-part_300(eof-object?(1/syntax-e exp_0))))"
 "(let-values()"
 "(if filename_1"
 "(error"
@@ -57656,25 +57670,25 @@ static const char *startup_source =
 "(let-values()"
 "((call-with-input-module-file"
 " path_12"
-"(lambda(i_184)"
+"(lambda(i_185)"
 "(begin"
-"(maybe-count-lines!_0 i_184)"
+"(maybe-count-lines!_0 i_185)"
 "(with-module-reading-parameterization+delay-source"
 " path_12"
 "(lambda()"
-"(let-values(((c1_30)(linklet-directory-start i_184)))"
+"(let-values(((c1_30)(linklet-directory-start i_185)))"
 "(if c1_30"
 "((lambda(pos_120)"
 "(let-values(((b-pos_0)"
-"(search-directory i_184 pos_120(encode-symbols expected-mod_0))))"
+"(search-directory i_185 pos_120(encode-symbols expected-mod_0))))"
 "(if b-pos_0"
 "(let-values()"
 "(begin"
-"(file-position i_184 b-pos_0)"
-"(let-values(((or-part_12)(cached-bundle i_184)))"
+"(file-position i_185 b-pos_0)"
+"(let-values(((or-part_12)(cached-bundle i_185)))"
 "(if or-part_12"
 " or-part_12"
-"(let-values(((v_0)(1/read i_184)))"
+"(let-values(((v_0)(1/read i_185)))"
 "(if(1/compiled-module-expression? v_0)"
 "(lambda()((1/current-eval) v_0))"
 "(error"
@@ -57683,7 +57697,7 @@ static const char *startup_source =
 "                                                  \"expected a compiled module\\n\""
 "                                                  \"  in: ~e\\n\""
 "                                                  \"  found: ~e\")"
-"(object-name i_184)"
+"(object-name i_185)"
 " v_0)))))))"
 "(if(pair? expected-mod_0)"
 "(let-values() void)"
@@ -57691,15 +57705,15 @@ static const char *startup_source =
 "(error"
 " 'default-load-handler"
 "                                         (string-append \"could not find main module\\n\" \"  in: ~e\")"
-"(object-name i_184)))))))"
+"(object-name i_185)))))))"
 " c1_30)"
 "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)"
 "(let-values() void)"
-"(let-values(((c2_15)(cached-bundle i_184)))"
+"(let-values(((c2_15)(cached-bundle i_185)))"
 "(if c2_15"
 "((lambda(thunk_6) thunk_6) c2_15)"
 "(let-values()"
-"(let-values(((s_170)(1/read-syntax(object-name i_184) i_184)))"
+"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))"
 "(let-values((()"
 "(begin"
 "(if(eof-object? s_170)"
@@ -57710,11 +57724,11 @@ static const char *startup_source =
 "                                                             \"expected a `module' declaration;\\n\""
 "                                                             \" found end-of-file\\n\""
 "                                                             \"  in: ~e\")"
-"(object-name i_184)))"
+"(object-name i_185)))"
 "(void))"
 "(values))))"
 "(let-values(((m-s_0)(check-module-form s_170 path_12)))"
-"(let-values(((s2_7)(1/read-syntax(object-name i_184) i_184)))"
+"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))"
 "(begin"
 "(if(eof-object? s2_7)"
 "(void)"
@@ -57726,7 +57740,7 @@ static const char *startup_source =
 "                                                     \" found an extra form\\n\""
 "                                                     \"  in: ~e\\n\""
 "                                                     \"  found: ~.s\")"
-"(object-name i_184)"
+"(object-name i_185)"
 " s2_7)))"
 "(lambda()((1/current-eval) m-s_0))))))))))))))))))))"
 "(let-values()"
@@ -57743,7 +57757,7 @@ static const char *startup_source =
 " 'temp2"
 "(begin"
 "(maybe-count-lines!_0 i_74)"
-"((letrec-values(((loop_118)"
+"((letrec-values(((loop_119)"
 "(lambda(vals_7)"
 "(begin"
 " 'loop"
@@ -57779,7 +57793,7 @@ static const char *startup_source =
 " i_74))))))"
 "(if(eof-object? s_302)"
 "(apply values vals_7)"
-"(loop_118"
+"(loop_119"
 "(call-with-continuation-prompt"
 "(lambda()"
 "(call-with-values"
@@ -57792,7 +57806,7 @@ static const char *startup_source =
 " abort-current-continuation"
 "(default-continuation-prompt-tag)"
 " args_10))))))))))"
-" loop_118)"
+" loop_119)"
 "(list(void))))))))"
 "(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))"
 "(define-values"
@@ -57811,8 +57825,8 @@ static const char *startup_source =
 " #f)))))"
 "(define-values"
 "(linklet-directory-start)"
-"(lambda(i_185)"
-"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_185 '#\\D)))(if pos_93(+ pos_93 4) #f)))))"
+"(lambda(i_186)"
+"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_186 '#\\D)))(if pos_93(+ pos_93 4) #f)))))"
 "(define-values"
 "(linklet-bundle-hash-code)"
 "(lambda(i_80)"
@@ -57851,9 +57865,9 @@ static const char *startup_source =
 " #f))))))"
 "(define-values"
 "(cached-bundle)"
-"(lambda(i_186)"
+"(lambda(i_187)"
 "(begin"
-"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_186)))))"
+"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_187)))))"
 "(if c3_9"
 "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_9)"
 "(let-values() #f))))))"
@@ -57862,10 +57876,10 @@ static const char *startup_source =
 "(lambda(i_41)"
 "(begin"
 "(let-values(((read-byte/not-eof_0)"
-"(lambda(i_187)"
+"(lambda(i_188)"
 "(begin"
 " 'read-byte/not-eof"
-"(let-values(((v_246)(read-byte i_187)))(if(eof-object? v_246) 0 v_246))))))"
+"(let-values(((v_244)(read-byte i_188)))(if(eof-object? v_244) 0 v_244))))))"
 "(bitwise-ior"
 "(read-byte/not-eof_0 i_41)"
 "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)"
@@ -57873,16 +57887,16 @@ static const char *startup_source =
 "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))"
 "(define-values"
 "(search-directory)"
-"(lambda(i_188 pos_122 bstr_5)"
+"(lambda(i_189 pos_122 bstr_5)"
 "(begin"
 "(if(zero? pos_122)"
 "(let-values() #f)"
 "(let-values()"
-"(let-values((()(begin(file-position i_188 pos_122)(values))))"
-"(let-values(((name-len_0)(read-number i_188)))"
-"(let-values(((v_247)(read-bytes name-len_0 i_188)))"
+"(let-values((()(begin(file-position i_189 pos_122)(values))))"
+"(let-values(((name-len_0)(read-number i_189)))"
+"(let-values(((v_245)(read-bytes name-len_0 i_189)))"
 "(begin"
-"(if(if(bytes? v_247)(=(bytes-length v_247) name-len_0) #f)"
+"(if(if(bytes? v_245)(=(bytes-length v_245) name-len_0) #f)"
 "(void)"
 "(let-values()"
 "(error"
@@ -57893,24 +57907,24 @@ static const char *startup_source =
 "                        \"  at position: ~a\\n\""
 "                        \"  expected bytes: ~a\\n\""
 "                        \"  read bytes: ~e\")"
-"(object-name i_188)"
+"(object-name i_189)"
 " pos_122"
 " name-len_0"
-" v_247)))"
-"(if(bytes=? bstr_5 v_247)"
-"(let-values()(read-number i_188))"
-"(if(bytes<? bstr_5 v_247)"
+" v_245)))"
+"(if(bytes=? bstr_5 v_245)"
+"(let-values()(read-number i_189))"
+"(if(bytes<? bstr_5 v_245)"
 "(let-values()"
 "(begin"
-"(read-number i_188)"
-"(read-number i_188)"
-"(search-directory i_188(read-number i_188) bstr_5)))"
+"(read-number i_189)"
+"(read-number i_189)"
+"(search-directory i_189(read-number i_189) bstr_5)))"
 "(let-values()"
 "(begin"
-"(read-number i_188)"
-"(read-number i_188)"
-"(read-number i_188)"
-"(search-directory i_188(read-number i_188) bstr_5))))))))))))))"
+"(read-number i_189)"
+"(read-number i_189)"
+"(read-number i_189)"
+"(search-directory i_189(read-number i_189) bstr_5))))))))))))))"
 "(define-values"
 "(encode-symbols)"
 "(lambda(expected-mod_1)"
@@ -57921,17 +57935,17 @@ static const char *startup_source =
 "(apply"
 " bytes-append"
 "(reverse$1"
-"(let-values(((lst_308)(cdr expected-mod_1)))"
+"(let-values(((lst_307)(cdr expected-mod_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_308)))"
+"(let-values()(check-list lst_307)))"
 "((letrec-values(((for-loop_102)"
 "(lambda(fold-var_67 lst_87)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_87)"
-"(let-values(((s_471)(unsafe-car lst_87))((rest_42)(unsafe-cdr lst_87)))"
+"(let-values(((s_470)(unsafe-car lst_87))((rest_42)(unsafe-cdr lst_87)))"
 "(let-values(((fold-var_20)"
 "(let-values(((fold-var_68) fold-var_67))"
 "(let-values(((fold-var_69)"
@@ -57940,7 +57954,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((bstr_6)"
 "(string->bytes/utf-8"
-"(symbol->string s_471))))"
+"(symbol->string s_470))))"
 "(let-values(((len_41)"
 "(bytes-length bstr_6)))"
 "(if(< len_41 255)"
@@ -57963,7 +57977,7 @@ static const char *startup_source =
 " fold-var_67)))))"
 " for-loop_102)"
 " null"
-" lst_308))))))))))"
+" lst_307))))))))))"
 "(define-values"
 "(with-module-reading-parameterization+delay-source)"
 "(lambda(path_13 thunk_7)"
@@ -57981,11 +57995,11 @@ static const char *startup_source =
 "(call-with-input-module-file)"
 "(lambda(path_14 proc_9)"
 "(begin"
-"(let-values(((i_189) #f))"
+"(let-values(((i_190) #f))"
 "(dynamic-wind"
-"(lambda()(set! i_189(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))"
-"(lambda()(proc_9 i_189))"
-"(lambda()(close-input-port i_189)))))))"
+"(lambda()(set! i_190(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))"
+"(lambda()(proc_9 i_190))"
+"(lambda()(close-input-port i_190)))))))"
 "(define-values(dll-suffix)(system-type 'so-suffix))"
 "(define-values"
 "(default-load/use-compiled)"
@@ -58160,16 +58174,16 @@ 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_287) main-path-d_0))"
-"(if or-part_287"
-" or-part_287"
+"(let-values(((or-part_288) main-path-d_0))"
+"(if or-part_288"
+" or-part_288"
 "(not alt-path-d_0)))))"
 "(let-values(((try-alt?_0)"
 "(if alt-file_0"
-"(let-values(((or-part_363)"
+"(let-values(((or-part_364)"
 " alt-path-d_0))"
-"(if or-part_363"
-" or-part_363"
+"(if or-part_364"
+" or-part_364"
 "(not main-path-d_0)))"
 " #f)))"
 "(let-values(((with-dir_0)"
@@ -58291,12 +58305,12 @@ static const char *startup_source =
 "(car zo-d_1)"
 " expect-module_0)))))))"
 " c4_3)"
-"(if(let-values(((or-part_364)"
+"(if(let-values(((or-part_365)"
 "(not"
 "(pair?"
 " expect-module_0))))"
-"(if or-part_364"
-" or-part_364"
+"(if or-part_365"
+" or-part_365"
 "(car expect-module_0)))"
 "(let-values()"
 "(let-values(((p_71)"
@@ -58341,7 +58355,7 @@ static const char *startup_source =
 "(begin(let-values(((e_40)(hash-ref -module-hash-table-table reg_0 #f)))(if e_40(ephemeron-value e_40) #f)))))"
 "(define-values"
 "(registry-table-set!)"
-"(lambda(reg_1 v_199)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_199)))))"
+"(lambda(reg_1 v_197)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_197)))))"
 "(define-values(CACHE-N) 512)"
 "(define-values(-path-cache)(make-vector CACHE-N #f))"
 "(define-values"
@@ -58370,41 +58384,41 @@ static const char *startup_source =
 "(define-values(-prev-relto-dir) #f)"
 "(define-values"
 "(split-relative-string)"
-"(lambda(s_467 coll-mode?_0)"
+"(lambda(s_466 coll-mode?_0)"
 "(begin"
 "(let-values(((l_19)"
-"((letrec-values(((loop_119)"
-"(lambda(s_472)"
+"((letrec-values(((loop_120)"
+"(lambda(s_471)"
 "(begin"
 " 'loop"
-"(let-values(((len_42)(string-length s_472)))"
+"(let-values(((len_42)(string-length s_471)))"
 "((letrec-values(((iloop_2)"
-"(lambda(i_190)"
+"(lambda(i_191)"
 "(begin"
 " 'iloop"
-"(if(= i_190 len_42)"
-"(let-values()(list s_472))"
-"(if(char=? '#\\/(string-ref s_472 i_190))"
+"(if(= i_191 len_42)"
+"(let-values()(list s_471))"
+"(if(char=? '#\\/(string-ref s_471 i_191))"
 "(let-values()"
 "(cons"
-"(substring s_472 0 i_190)"
-"(loop_119(substring s_472(add1 i_190)))))"
-"(let-values()(iloop_2(add1 i_190)))))))))"
+"(substring s_471 0 i_191)"
+"(loop_120(substring s_471(add1 i_191)))))"
+"(let-values()(iloop_2(add1 i_191)))))))))"
 " iloop_2)"
 " 0))))))"
-" loop_119)"
-" s_467)))"
+" loop_120)"
+" s_466)))"
 "(if coll-mode?_0"
 " l_19"
-"((letrec-values(((loop_96)"
+"((letrec-values(((loop_101)"
 "(lambda(l_79)"
 "(begin"
 " 'loop"
 "(if(null?(cdr l_79))"
 "(values null(car l_79))"
-"(let-values(((c_111 f_39)(loop_96(cdr l_79))))"
+"(let-values(((c_111 f_39)(loop_101(cdr l_79))))"
 "(values(cons(car l_79) c_111) f_39)))))))"
-" loop_96)"
+" loop_101)"
 " l_19))))))"
 "(define-values"
 "(format-source-location)"
@@ -58444,8 +58458,8 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                   (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_165)))"
-"(if(let-values(((or-part_282)(not from-namespace_1)))"
-"(if or-part_282 or-part_282(1/namespace? from-namespace_1)))"
+"(if(let-values(((or-part_366)(not from-namespace_1)))"
+"(if or-part_366 or-part_366(1/namespace? from-namespace_1)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -58485,14 +58499,14 @@ static const char *startup_source =
 "(void))))"
 "(void))))"
 "(void)))))))"
-"((s_473 relto_0 stx_17)"
+"((s_472 relto_0 stx_17)"
 "(begin"
 "(log-message"
 "(current-logger)"
 " 'error"
 "                              \"default module name resolver called with three arguments (deprecated)\""
 " #f)"
-"(standard-module-name-resolver_0 s_473 relto_0 stx_17 #t)))"
+"(standard-module-name-resolver_0 s_472 relto_0 stx_17 #t)))"
 "((s_26 relto_1 stx_18 load?_7)"
 "(let-values((()"
 "(begin"
@@ -58532,7 +58546,7 @@ static const char *startup_source =
 "(lambda(base_27 orig-l_10)"
 "(begin"
 " 'flatten-sub-path"
-"((letrec-values(((loop_120)"
+"((letrec-values(((loop_121)"
 "(lambda(a_73 l_33)"
 "(begin"
 " 'loop"
@@ -58559,12 +58573,12 @@ static const char *startup_source =
 " 'file)"
 " base_27)))"
 " orig-l_10))"
-"(loop_120(cdr a_73)(cdr l_33))))"
+"(loop_121(cdr a_73)(cdr l_33))))"
 "(let-values()"
-"(loop_120"
+"(loop_121"
 "(cons(car l_33) a_73)"
 "(cdr l_33)))))))))"
-" loop_120)"
+" loop_121)"
 " null"
 " orig-l_10)))))"
 "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)"
@@ -58694,27 +58708,27 @@ static const char *startup_source =
 "(current-continuation-marks)"
 " s_26)))))))"
 "((ss->rkt_0)"
-"(lambda(s_474)"
+"(lambda(s_473)"
 "(begin"
 " 'ss->rkt"
-"(let-values(((len_43)(string-length s_474)))"
+"(let-values(((len_43)(string-length s_473)))"
 "(if(if(>= len_43 3)"
 "(if(equal?"
 " '#\\."
-"(string-ref s_474(- len_43 3)))"
+"(string-ref s_473(- len_43 3)))"
 "(if(equal?"
 " '#\\s"
-"(string-ref s_474(- len_43 2)))"
+"(string-ref s_473(- len_43 2)))"
 "(equal?"
 " '#\\s"
-"(string-ref s_474(- len_43 1)))"
+"(string-ref s_473(- len_43 1)))"
 " #f)"
 " #f)"
 " #f)"
 "(string-append"
-"(substring s_474 0(- len_43 3))"
+"(substring s_473 0(- len_43 3))"
 "                                                                      \".rkt\")"
-" s_474)))))"
+" s_473)))))"
 "((path-ss->rkt_0)"
 "(lambda(p_77)"
 "(begin"
@@ -58726,9 +58740,9 @@ static const char *startup_source =
 " p_77)))))"
 "((s_31)"
 "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)"
-"(let-values(((v_248)(cadr s_26)))"
-"                                                                 (if (let-values (((or-part_359) (equal? v_248 \".\")))"
-"                                                                       (if or-part_359 or-part_359 (equal? v_248 \"..\")))"
+"(let-values(((v_246)(cadr s_26)))"
+"                                                                 (if (let-values (((or-part_360) (equal? v_246 \".\")))"
+"                                                                       (if or-part_360 or-part_360 (equal? v_246 \"..\")))"
 "(if relto_1"
 "(let-values(((p_78)"
 "(1/resolved-module-path-name"
@@ -58738,7 +58752,7 @@ static const char *startup_source =
 " 'standard-module-name-resolver"
 "                                                                      \"no base path for relative submodule path: ~.s\""
 " s_26))"
-" v_248))"
+" v_246))"
 " s_26))"
 "((subm-path_0)"
 "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)"
@@ -58800,11 +58814,11 @@ static const char *startup_source =
 "(if(string? s_31)"
 "(let-values()"
 "(let-values(((dir_4)(get-dir_0)))"
-"(let-values(((or-part_365)"
+"(let-values(((or-part_367)"
 "(path-cache-get"
 "(cons s_31 dir_4))))"
-"(if or-part_365"
-" or-part_365"
+"(if or-part_367"
+" or-part_367"
 "(let-values(((cols_1 file_4)"
 "(split-relative-string"
 " s_31"
@@ -58895,8 +58909,8 @@ static const char *startup_source =
 "(get-dir_0)))))"
 "(void))))))))"
 "(begin"
-"(if(let-values(((or-part_366)(path? s-parsed_0)))"
-"(if or-part_366 or-part_366(vector? s-parsed_0)))"
+"(if(let-values(((or-part_368)(path? s-parsed_0)))"
+"(if or-part_368 or-part_368(vector? s-parsed_0)))"
 "(void)"
 "(let-values()"
 "(if stx_18"
@@ -58918,7 +58932,7 @@ static const char *startup_source =
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 1)"
 "(normal-case-path filename_2))))"
-"(let-values(((base_30 name_79 dir?_9)"
+"(let-values(((base_30 name_63 dir?_9)"
 "(if(vector? s-parsed_0)"
 "(values"
 " 'ignored"
@@ -58928,17 +58942,17 @@ static const char *startup_source =
 "(let-values(((no-sfx_0)"
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 3)"
-"                                                                           (path-replace-extension name_79 #\"\"))))"
+"                                                                           (path-replace-extension name_63 #\"\"))))"
 "(let-values(((root-modname_0)"
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 4)"
 "(1/make-resolved-module-path filename_2))))"
 "(let-values(((hts_3)"
-"(let-values(((or-part_367)"
+"(let-values(((or-part_369)"
 "(registry-table-ref"
 "(get-reg_0))))"
-"(if or-part_367"
-" or-part_367"
+"(if or-part_369"
+" or-part_369"
 "(let-values(((hts_4)"
 "(cons"
 "(make-hasheq)"
@@ -58994,7 +59008,7 @@ static const char *startup_source =
 " filename_2"
 "(apply"
 " string-append"
-"((letrec-values(((loop_121)"
+"((letrec-values(((loop_122)"
 "(lambda(l_82)"
 "(begin"
 " 'loop"
@@ -59006,10 +59020,10 @@ static const char *startup_source =
 "(path->string"
 "(cdar"
 " l_82))"
-"(loop_121"
+"(loop_122"
 "(cdr"
 " l_82))))))))"
-" loop_121)"
+" loop_122)"
 "(reverse$1 loading_0)))))"
 "(void)))"
 " loading_0)"
@@ -59084,10 +59098,10 @@ static const char *startup_source =
 "(string? s_31)))"
 "(if or-part_266"
 " or-part_266"
-"(let-values(((or-part_368)"
+"(let-values(((or-part_370)"
 "(symbol? s_31)))"
-"(if or-part_368"
-" or-part_368"
+"(if or-part_370"
+" or-part_370"
 "(if(pair? s_31)"
 "(eq?(car s_31) 'lib)"
 " #f)))))"
@@ -59101,7 +59115,7 @@ static const char *startup_source =
 "(vector"
 " filename_2"
 " normal-filename_0"
-" name_79"
+" name_63"
 " no-sfx_0"
 " root-modname_0)))"
 "(void))"
@@ -59161,10 +59175,10 @@ static const char *startup_source =
 "(define-values(boot-primitives)(hash 'boot boot 'seal seal 'orig-paramz orig-paramz))"
 "(define-values"
 "(prepare-next-phase-namespace)"
-"(lambda(ctx_71)"
+"(lambda(ctx_72)"
 "(begin"
-"(let-values(((phase_40)(add1(expand-context-phase ctx_71))))"
-"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_71) phase_40)))"
+"(let-values(((phase_40)(add1(expand-context-phase ctx_72))))"
+"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_72) phase_40)))"
 "(namespace-visit-available-modules! ns_58 phase_40))))))"
 "(define-values"
 "(expand-body7.1)"
@@ -59231,13 +59245,13 @@ static const char *startup_source =
 "(datum->syntax$1 #f bodys_7))))"
 "(void)))"
 "(values))))"
-"(let-values(((phase_138)(expand-context-phase ctx_14)))"
+"(let-values(((phase_140)(expand-context-phase ctx_14)))"
 "(let-values(((frame-id_2)(make-reference-record)))"
 "(let-values(((def-ctx-scopes_6)(box null)))"
 "(let-values(((body-ctx_0)"
-"(let-values(((v_249) ctx_14))"
-"(let-values(((the-struct_90) v_249))"
-"(if(expand-context/outer? the-struct_90)"
+"(let-values(((v_247) ctx_14))"
+"(let-values(((the-struct_91) v_247))"
+"(if(expand-context/outer? the-struct_91)"
 "(let-values(((context51_0)(list(make-liberal-define-context)))"
 "((name52_1) #f)"
 "((only-immediate?53_0) #t)"
@@ -59252,38 +59266,38 @@ static const char *startup_source =
 "(cons"
 " frame-id_2"
 "(expand-context-reference-records ctx_14)))"
-"((inner61_0)(root-expand-context/outer-inner v_249)))"
+"((inner61_0)(root-expand-context/outer-inner v_247)))"
 "(expand-context/outer1.1"
 " inner61_0"
 " post-expansion-scope55_0"
 " use-site-scopes58_0"
 " frame-id59_0"
 " context51_0"
-"(expand-context/outer-env the-struct_90)"
+"(expand-context/outer-env the-struct_91)"
 " post-expansion-scope-action56_0"
 " scopes57_1"
 " def-ctx-scopes54_0"
-"(expand-context/outer-binding-layer the-struct_90)"
+"(expand-context/outer-binding-layer the-struct_91)"
 " reference-records60_0"
 " only-immediate?53_0"
-"(expand-context/outer-need-eventually-defined the-struct_90)"
-"(expand-context/outer-current-introduction-scopes the-struct_90)"
+"(expand-context/outer-need-eventually-defined the-struct_91)"
+"(expand-context/outer-current-introduction-scopes the-struct_91)"
 " name52_1))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                   \"expand-context/outer?\""
-" the-struct_90))))))"
+" the-struct_91))))))"
 "(let-values(((maybe-increment-binding-layer_0)"
-"(lambda(ids_28 body-ctx_1)"
+"(lambda(ids_27 body-ctx_1)"
 "(begin"
 " 'maybe-increment-binding-layer"
 "(if(eq?"
 "(expand-context-binding-layer body-ctx_1)"
 "(expand-context-binding-layer ctx_14))"
-"(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)"
+"(increment-binding-layer ids_27 body-ctx_1 inside-sc_0)"
 "(expand-context-binding-layer body-ctx_1))))))"
-"(let-values(((name_80)(expand-context-name ctx_14)))"
-"((letrec-values(((loop_122)"
+"(let-values(((name_79)(expand-context-name ctx_14)))"
+"((letrec-values(((loop_123)"
 "(lambda(body-ctx_2"
 " bodys_8"
 " done-bodys_0"
@@ -59306,7 +59320,7 @@ static const char *startup_source =
 "((temp70_3)(reverse$1 done-bodys_0))"
 "((s71_0) s_40)"
 "((stratified?72_0) stratified?_0)"
-"((name73_0) name_80)"
+"((name73_0) name_79)"
 "((temp74_3)(reverse$1 trans-idss_1)))"
 "(finish-expanding-body27.1"
 " temp74_3"
@@ -59340,54 +59354,54 @@ static const char *startup_source =
 "(let-values(((exp-body_0)"
 "(let-values(((temp75_3)(car bodys_8))"
 "((temp76_3)"
-"(if(if name_80"
+"(if(if name_79"
 "(null?"
 "(cdr bodys_8))"
 " #f)"
 "(let-values(((v_85)"
 " body-ctx_2))"
-"(let-values(((the-struct_91)"
+"(let-values(((the-struct_92)"
 " v_85))"
 "(if(expand-context/outer?"
-" the-struct_91)"
+" the-struct_92)"
 "(let-values(((name77_0)"
-" name_80)"
+" name_79)"
 "((inner78_0)"
 "(root-expand-context/outer-inner"
 " v_85)))"
 "(expand-context/outer1.1"
 " inner78_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_91)"
+" the-struct_92)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_91)"
+" the-struct_92)"
 "(root-expand-context/outer-frame-id"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-context"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-env"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-scopes"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-binding-layer"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-reference-records"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-only-immediate?"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_91)"
+" the-struct_92)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_91)"
+" the-struct_92)"
 " name77_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                       \"expand-context/outer?\""
-" the-struct_91))))"
+" the-struct_92))))"
 " body-ctx_2)))"
 "(expand7.1"
 " #f"
@@ -59401,7 +59415,7 @@ static const char *startup_source =
 "(let-values(((tmp_60)"
 "(core-form-sym"
 " disarmed-exp-body_0"
-" phase_138)))"
+" phase_140)))"
 "(if(equal? tmp_60 'begin)"
 "(let-values()"
 "(let-values((()"
@@ -59420,27 +59434,27 @@ static const char *startup_source =
 "(let-values(((ok?_0 begin79_0 e80_0)"
 "(let-values(((s_396)"
 " disarmed-exp-body_0))"
-"(let-values(((orig-s_39)"
+"(let-values(((orig-s_38)"
 " s_396))"
 "(let-values(((begin79_1"
 " e80_1)"
-"(let-values(((s_475)"
+"(let-values(((s_474)"
 "(if(syntax?$1"
 " s_396)"
 "(syntax-e$1"
 " s_396)"
 " s_396)))"
 "(if(pair?"
-" s_475)"
+" s_474)"
 "(let-values(((begin81_0)"
 "(let-values(((s_44)"
 "(car"
-" s_475)))"
+" s_474)))"
 " s_44))"
 "((e82_0)"
 "(let-values(((s_166)"
 "(cdr"
-" s_475)))"
+" s_474)))"
 "(let-values(((s_167)"
 "(if(syntax?$1"
 " s_166)"
@@ -59456,7 +59470,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
-" orig-s_39))"
+" orig-s_38))"
 "(let-values()"
 " flat-s_24)))))))"
 "(values"
@@ -59465,7 +59479,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                   \"bad syntax\""
-" orig-s_39)))))"
+" orig-s_38)))))"
 "(values"
 " #t"
 " begin79_1"
@@ -59493,7 +59507,7 @@ static const char *startup_source =
 " 'splice"
 " splice-bodys_0)))"
 "(void)))"
-"(loop_122"
+"(loop_123"
 " body-ctx_2"
 " splice-bodys_0"
 " done-bodys_0"
@@ -59525,7 +59539,7 @@ static const char *startup_source =
 " rhs85_0)"
 "(let-values(((s_85)"
 " disarmed-exp-body_0))"
-"(let-values(((orig-s_40)"
+"(let-values(((orig-s_39)"
 " s_85))"
 "(let-values(((define-values83_1"
 " id84_1"
@@ -59575,10 +59589,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                 \"bad syntax\""
-" orig-s_40))"
+" orig-s_39))"
 "(let-values()"
 "(let-values(((id_16)"
-"(let-values(((lst_309)"
+"(let-values(((lst_308)"
 " flat-s_25))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -59586,24 +59600,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_309)))"
+" lst_308)))"
 "((letrec-values(((for-loop_266)"
-"(lambda(id_100"
-" lst_310)"
+"(lambda(id_99"
+" lst_309)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_310)"
+" lst_309)"
 "(let-values(((s_314)"
 "(unsafe-car"
-" lst_310))"
+" lst_309))"
 "((rest_177)"
 "(unsafe-cdr"
-" lst_310)))"
+" lst_309)))"
+"(let-values(((id_100)"
 "(let-values(((id_101)"
-"(let-values(((id_80)"
-" id_100))"
-"(let-values(((id_81)"
+" id_99))"
+"(let-values(((id_79)"
 "(let-values()"
 "(let-values(((id92_0)"
 "(let-values()"
@@ -59622,72 +59636,72 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_40"
+" orig-s_39"
 " s_314)))))"
 "(cons"
 " id92_0"
-" id_80)))))"
+" id_101)))))"
 "(values"
-" id_81)))))"
+" id_79)))))"
 "(if(not"
 " #f)"
 "(for-loop_266"
-" id_101"
+" id_100"
 " rest_177)"
-" id_101)))"
-" id_100)))))"
+" id_100)))"
+" id_99)))))"
 " for-loop_266)"
 " null"
-" lst_309)))))"
+" lst_308)))))"
 "(reverse$1"
 " id_16))))))))"
 "((rhs90_0)"
-"(let-values(((s_476)"
+"(let-values(((s_475)"
 "(cdr"
 " s_69)))"
-"(let-values(((s_477)"
+"(let-values(((s_476)"
 "(if(syntax?$1"
-" s_476)"
+" s_475)"
 "(syntax-e$1"
-" s_476)"
-" s_476)))"
+" s_475)"
+" s_475)))"
 "(if(pair?"
-" s_477)"
+" s_476)"
 "(let-values(((rhs91_0)"
 "(let-values(((s_54)"
 "(car"
-" s_477)))"
+" s_476)))"
 " s_54))"
 "(()"
-"(let-values(((s_413)"
+"(let-values(((s_477)"
 "(cdr"
-" s_477)))"
+" s_476)))"
 "(let-values(((s_316)"
 "(if(syntax?$1"
-" s_413)"
+" s_477)"
 "(syntax-e$1"
-" s_413)"
-" s_413)))"
+" s_477)"
+" s_477)))"
 "(if(null?"
 " s_316)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                 \"bad syntax\""
-" orig-s_40))))))"
+" orig-s_39))))))"
 "(values"
 " rhs91_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                             \"bad syntax\""
-" orig-s_40))))))"
+" orig-s_39))))))"
 "(values"
 " id89_0"
 " rhs90_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                         \"bad syntax\""
-" orig-s_40))))))"
+" orig-s_39))))))"
 "(values"
 " define-values86_0"
 " id87_0"
@@ -59695,7 +59709,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                     \"bad syntax\""
-" orig-s_40)))))"
+" orig-s_39)))))"
 "(values"
 " #t"
 " define-values83_1"
@@ -59727,7 +59741,7 @@ static const char *startup_source =
 "(let-values(((ids93_0)"
 " ids_4)"
 "((phase94_0)"
-" phase_138)"
+" phase_140)"
 "((exp-body95_0)"
 " exp-body_0)"
 "((dups96_0)"
@@ -59755,21 +59769,21 @@ static const char *startup_source =
 "(check-list"
 " lst_191)))"
 "((letrec-values(((for-loop_12)"
-"(lambda(fold-var_276"
-" lst_311)"
+"(lambda(fold-var_274"
+" lst_310)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_311)"
+" lst_310)"
 "(let-values(((id_102)"
 "(unsafe-car"
-" lst_311))"
+" lst_310))"
 "((rest_178)"
 "(unsafe-cdr"
-" lst_311)))"
+" lst_310)))"
+"(let-values(((fold-var_275)"
 "(let-values(((fold-var_242)"
-"(let-values(((fold-var_243)"
-" fold-var_276))"
+" fold-var_274))"
 "(let-values(((fold-var_229)"
 "(let-values()"
 "(cons"
@@ -59784,23 +59798,23 @@ static const char *startup_source =
 " exp-body101_0"
 " #t"
 " id_102"
-" phase_138"
+" phase_140"
 " counter_5)))"
-" fold-var_243))))"
+" fold-var_242))))"
 "(values"
 " fold-var_229)))))"
 "(if(not"
 " #f)"
 "(for-loop_12"
-" fold-var_242"
+" fold-var_275"
 " rest_178)"
-" fold-var_242)))"
-" fold-var_276)))))"
+" fold-var_275)))"
+" fold-var_274)))))"
 " for-loop_12)"
 " null"
 " lst_191))))))"
 "(let-values(((extended-env_0)"
-"(let-values(((lst_312)"
+"(let-values(((lst_311)"
 " keys_5)"
 "((lst_221)"
 " ids_4))"
@@ -59810,7 +59824,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_312)))"
+" lst_311)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
@@ -59863,13 +59877,13 @@ static const char *startup_source =
 " for-loop_229)"
 "(expand-context-env"
 " body-ctx_2)"
-" lst_312"
+" lst_311"
 " lst_221)))))"
-"(loop_122"
-"(let-values(((v_250)"
+"(loop_123"
+"(let-values(((v_248)"
 " body-ctx_2))"
 "(let-values(((the-struct_52)"
-" v_250))"
+" v_248))"
 "(if(expand-context/outer?"
 " the-struct_52)"
 "(let-values(((env102_0)"
@@ -59880,7 +59894,7 @@ static const char *startup_source =
 " body-ctx_2))"
 "((inner104_0)"
 "(root-expand-context/outer-inner"
-" v_250)))"
+" v_248)))"
 "(expand-context/outer1.1"
 " inner104_0"
 "(root-expand-context/outer-post-expansion-scope"
@@ -59941,23 +59955,23 @@ static const char *startup_source =
 "((rest_180)"
 "(unsafe-cdr"
 " lst_196)))"
+"(let-values(((fold-var_276)"
 "(let-values(((fold-var_277)"
-"(let-values(((fold-var_278)"
 " fold-var_187))"
-"(let-values(((fold-var_279)"
+"(let-values(((fold-var_278)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " null)"
-" fold-var_278))))"
+" fold-var_277))))"
 "(values"
-" fold-var_279)))))"
+" fold-var_278)))))"
 "(if(not"
 " #f)"
 "(for-loop_41"
-" fold-var_277"
+" fold-var_276"
 " rest_180)"
-" fold-var_277)))"
+" fold-var_276)))"
 " fold-var_187)))))"
 " for-loop_41)"
 " null"
@@ -59967,7 +59981,7 @@ static const char *startup_source =
 " keys_5"
 "(append"
 "(reverse$1"
-"(let-values(((lst_313)"
+"(let-values(((lst_312)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -59975,41 +59989,41 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_313)))"
+" lst_312)))"
 "((letrec-values(((for-loop_267)"
 "(lambda(fold-var_190"
-" lst_314)"
+" lst_313)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_314)"
+" lst_313)"
 "(let-values(((done-body_1)"
 "(unsafe-car"
-" lst_314))"
+" lst_313))"
 "((rest_181)"
 "(unsafe-cdr"
-" lst_314)))"
+" lst_313)))"
+"(let-values(((fold-var_279)"
 "(let-values(((fold-var_280)"
-"(let-values(((fold-var_281)"
 " fold-var_190))"
-"(let-values(((fold-var_282)"
+"(let-values(((fold-var_281)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " null)"
-" fold-var_281))))"
+" fold-var_280))))"
 "(values"
-" fold-var_282)))))"
+" fold-var_281)))))"
 "(if(not"
 " #f)"
 "(for-loop_267"
-" fold-var_280"
+" fold-var_279"
 " rest_181)"
-" fold-var_280)))"
+" fold-var_279)))"
 " fold-var_190)))))"
 " for-loop_267)"
 " null"
-" lst_313))))"
+" lst_312))))"
 " val-keyss_0))"
 "(cons"
 " rhs85_0"
@@ -60025,21 +60039,21 @@ static const char *startup_source =
 "(check-list"
 " lst_148)))"
 "((letrec-values(((for-loop_115)"
-"(lambda(fold-var_283"
-" lst_315)"
+"(lambda(fold-var_282"
+" lst_314)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_315)"
+" lst_314)"
 "(let-values(((done-body_2)"
 "(unsafe-car"
-" lst_315))"
+" lst_314))"
 "((rest_182)"
 "(unsafe-cdr"
-" lst_315)))"
+" lst_314)))"
 "(let-values(((fold-var_41)"
-"(let-values(((fold-var_284)"
-" fold-var_283))"
+"(let-values(((fold-var_283)"
+" fold-var_282))"
 "(let-values(((fold-var_22)"
 "(let-values()"
 "(cons"
@@ -60047,8 +60061,8 @@ static const char *startup_source =
 "(no-binds"
 " done-body_2"
 " s_40"
-" phase_138))"
-" fold-var_284))))"
+" phase_140))"
+" fold-var_283))))"
 "(values"
 " fold-var_22)))))"
 "(if(not"
@@ -60057,7 +60071,7 @@ static const char *startup_source =
 " fold-var_41"
 " rest_182)"
 " fold-var_41)))"
-" fold-var_283)))))"
+" fold-var_282)))))"
 " for-loop_115)"
 " null"
 " lst_148))))"
@@ -60134,7 +60148,7 @@ static const char *startup_source =
 " rhs107_0)"
 "(let-values(((s_93)"
 " disarmed-exp-body_0))"
-"(let-values(((orig-s_41)"
+"(let-values(((orig-s_40)"
 " s_93))"
 "(let-values(((define-syntaxes105_1"
 " id106_1"
@@ -60154,15 +60168,15 @@ static const char *startup_source =
 " s_478))"
 "((id109_0"
 " rhs110_0)"
-"(let-values(((s_438)"
+"(let-values(((s_437)"
 "(cdr"
 " s_95)))"
 "(let-values(((s_479)"
 "(if(syntax?$1"
-" s_438)"
+" s_437)"
 "(syntax-e$1"
-" s_438)"
-" s_438)))"
+" s_437)"
+" s_437)))"
 "(if(pair?"
 " s_479)"
 "(let-values(((id111_0)"
@@ -60184,7 +60198,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                   \"bad syntax\""
-" orig-s_41))"
+" orig-s_40))"
 "(let-values()"
 "(let-values(((id_104)"
 "(let-values(((lst_40)"
@@ -60216,22 +60230,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id114_0)"
 "(let-values()"
-"(if(let-values(((or-part_369)"
+"(if(let-values(((or-part_371)"
 "(if(syntax?$1"
 " s_67)"
 "(symbol?"
 "(syntax-e$1"
 " s_67))"
 " #f)))"
-"(if or-part_369"
-" or-part_369"
+"(if or-part_371"
+" or-part_371"
 "(symbol?"
 " s_67)))"
 " s_67"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                 \"not an identifier\""
-" orig-s_41"
+" orig-s_40"
 " s_67)))))"
 "(cons"
 " id114_0"
@@ -60283,20 +60297,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                   \"bad syntax\""
-" orig-s_41))))))"
+" orig-s_40))))))"
 "(values"
 " rhs113_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                               \"bad syntax\""
-" orig-s_41))))))"
+" orig-s_40))))))"
 "(values"
 " id111_0"
 " rhs112_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
-" orig-s_41))))))"
+" orig-s_40))))))"
 "(values"
 " define-syntaxes108_0"
 " id109_0"
@@ -60304,13 +60318,13 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                       \"bad syntax\""
-" orig-s_41)))))"
+" orig-s_40)))))"
 "(values"
 " #t"
 " define-syntaxes105_1"
 " id106_1"
 " rhs107_1))))))"
-"(let-values(((ids_29)"
+"(let-values(((ids_28)"
 "(remove-use-site-scopes"
 " id106_0"
 " body-ctx_2)))"
@@ -60328,15 +60342,15 @@ static const char *startup_source =
 "(datum->syntax$1"
 " #f"
 "(list"
-" ids_29"
+" ids_28"
 " rhs107_0)))))"
 "(void)))"
 "(values))))"
 "(let-values(((new-dups_1)"
 "(let-values(((ids115_0)"
-" ids_29)"
+" ids_28)"
 "((phase116_0)"
-" phase_138)"
+" phase_140)"
 "((exp-body117_0)"
 " exp-body_0)"
 "((dups118_0)"
@@ -60354,32 +60368,32 @@ static const char *startup_source =
 " ctx_14)))"
 "(let-values(((keys_6)"
 "(reverse$1"
-"(let-values(((lst_316)"
-" ids_29))"
+"(let-values(((lst_315)"
+" ids_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_316)))"
+" lst_315)))"
 "((letrec-values(((for-loop_268)"
-"(lambda(fold-var_285"
-" lst_317)"
+"(lambda(fold-var_284"
+" lst_316)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_317)"
+" lst_316)"
 "(let-values(((id_109)"
 "(unsafe-car"
-" lst_317))"
+" lst_316))"
 "((rest_183)"
 "(unsafe-cdr"
-" lst_317)))"
+" lst_316)))"
+"(let-values(((fold-var_285)"
 "(let-values(((fold-var_286)"
+" fold-var_284))"
 "(let-values(((fold-var_287)"
-" fold-var_285))"
-"(let-values(((fold-var_288)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -60393,21 +60407,21 @@ static const char *startup_source =
 " exp-body123_0"
 " #t"
 " id_109"
-" phase_138"
+" phase_140"
 " counter_6)))"
-" fold-var_287))))"
+" fold-var_286))))"
 "(values"
-" fold-var_288)))))"
+" fold-var_287)))))"
 "(if(not"
 " #f)"
 "(for-loop_268"
-" fold-var_286"
+" fold-var_285"
 " rest_183)"
-" fold-var_286)))"
-" fold-var_285)))))"
+" fold-var_285)))"
+" fold-var_284)))))"
 " for-loop_268)"
 " null"
-" lst_316))))))"
+" lst_315))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_65)"
@@ -60442,21 +60456,27 @@ static const char *startup_source =
 "(let-values(((vals_8)"
 "(eval-for-syntaxes-binding"
 " rhs107_0"
-" ids_29"
+" ids_28"
 " body-ctx_2)))"
 "(let-values(((extended-env_1)"
-"(let-values(((lst_318)"
+"(let-values(((lst_317)"
 " keys_6)"
-"((lst_319)"
+"((lst_318)"
 " vals_8)"
-"((lst_320)"
-" ids_29))"
+"((lst_319)"
+" ids_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_317)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_318)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -60464,45 +60484,39 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_319)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_320)))"
 "((letrec-values(((for-loop_269)"
 "(lambda(env_21"
+" lst_320"
 " lst_321"
-" lst_322"
-" lst_323)"
+" lst_322)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_321)"
+" lst_320)"
 "(if(pair?"
-" lst_322)"
+" lst_321)"
 "(pair?"
-" lst_323)"
+" lst_322)"
 " #f)"
 " #f)"
 "(let-values(((key_91)"
 "(unsafe-car"
-" lst_321))"
+" lst_320))"
 "((rest_184)"
 "(unsafe-cdr"
-" lst_321))"
+" lst_320))"
 "((val_83)"
 "(unsafe-car"
-" lst_322))"
+" lst_321))"
 "((rest_185)"
 "(unsafe-cdr"
-" lst_322))"
+" lst_321))"
 "((id_110)"
 "(unsafe-car"
-" lst_323))"
+" lst_322))"
 "((rest_186)"
 "(unsafe-cdr"
-" lst_323)))"
+" lst_322)))"
 "(let-values(((env_22)"
 "(let-values(((env_23)"
 " env_21))"
@@ -60512,7 +60526,7 @@ static const char *startup_source =
 "(maybe-install-free=id-in-context!"
 " val_83"
 " id_110"
-" phase_138"
+" phase_140"
 " body-ctx_2)"
 "(env-extend"
 " env_23"
@@ -60532,9 +60546,9 @@ static const char *startup_source =
 " for-loop_269)"
 "(expand-context-env"
 " body-ctx_2)"
+" lst_317"
 " lst_318"
-" lst_319"
-" lst_320)))))"
+" lst_319)))))"
 "(begin"
 "(let-values(((obs_67)"
 "(expand-context-observer"
@@ -60546,54 +60560,54 @@ static const char *startup_source =
 " obs_67"
 " 'exit-bind)))"
 "(void)))"
-"(loop_122"
-"(let-values(((v_251)"
+"(loop_123"
+"(let-values(((v_249)"
 " body-ctx_2))"
-"(let-values(((the-struct_92)"
-" v_251))"
+"(let-values(((the-struct_93)"
+" v_249))"
 "(if(expand-context/outer?"
-" the-struct_92)"
+" the-struct_93)"
 "(let-values(((env124_0)"
 " extended-env_1)"
 "((binding-layer125_0)"
 "(maybe-increment-binding-layer_0"
-" ids_29"
+" ids_28"
 " body-ctx_2))"
 "((inner126_0)"
 "(root-expand-context/outer-inner"
-" v_251)))"
+" v_249)))"
 "(expand-context/outer1.1"
 " inner126_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_92)"
+" the-struct_93)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_92)"
+" the-struct_93)"
 "(root-expand-context/outer-frame-id"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-context"
-" the-struct_92)"
+" the-struct_93)"
 " env124_0"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-scopes"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_92)"
+" the-struct_93)"
 " binding-layer125_0"
 "(expand-context/outer-reference-records"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-only-immediate?"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_92)"
+" the-struct_93)"
 "(expand-context/outer-name"
-" the-struct_92)))"
+" the-struct_93)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                  \"expand-context/outer?\""
-" the-struct_92))))"
+" the-struct_93))))"
 " rest-bodys_0"
 " done-bodys_0"
 " val-idss_0"
@@ -60601,13 +60615,13 @@ static const char *startup_source =
 " val-rhss_0"
 " track-stxs_0"
 "(cons"
-" ids_29"
+" ids_28"
 " trans-idss_1)"
 "(cons"
 "(datum->syntax$1"
 " #f"
 "(list"
-" ids_29"
+" ids_28"
 " rhs107_0)"
 " rhs107_0)"
 " stx-clauses_0)"
@@ -60621,7 +60635,7 @@ static const char *startup_source =
 "(let-values()"
 "(error"
 "                                                                                           \"internal error: accumulated expressions not empty\")))"
-"(loop_122"
+"(loop_123"
 " body-ctx_2"
 " null"
 "(if(if(null? val-idss_0)"
@@ -60637,7 +60651,7 @@ static const char *startup_source =
 "(cons"
 "(core-id"
 " '#%stratified-body"
-" phase_138)"
+" phase_140)"
 "(cons"
 " exp-body_0"
 " rest-bodys_0)))))"
@@ -60649,7 +60663,7 @@ static const char *startup_source =
 " stx-clauses_0"
 " dups_0)))"
 "(let-values()"
-"(loop_122"
+"(loop_123"
 " body-ctx_2"
 " rest-bodys_0"
 "(cons exp-body_0 done-bodys_0)"
@@ -60660,7 +60674,7 @@ static const char *startup_source =
 " trans-idss_1"
 " stx-clauses_0"
 " dups_0))))))))))))))))))"
-" loop_122)"
+" loop_123)"
 " body-ctx_0"
 " init-bodys_0"
 " null"
@@ -60699,7 +60713,7 @@ static const char *startup_source =
 "(let-values(((done-bodys_1) done-bodys26_0))"
 "(let-values(((s_484) source10_0))"
 "(let-values(((stratified?_1) stratified?11_0))"
-"(let-values(((name_81) name12_0))"
+"(let-values(((name_80) name12_0))"
 "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))"
 "(let-values()"
 "(let-values((()"
@@ -60713,12 +60727,12 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((finish-ctx_0)"
-"(let-values(((v_252)"
+"(let-values(((v_250)"
 "(accumulate-def-ctx-scopes"
 " body-ctx_3"
 " def-ctx-scopes_7)))"
-"(let-values(((the-struct_93) v_252))"
-"(if(expand-context/outer? the-struct_93)"
+"(let-values(((the-struct_94) v_250))"
+"(if(expand-context/outer? the-struct_94)"
 "(let-values(((context127_0) 'expression)"
 "((use-site-scopes128_0)(box null))"
 "((scopes129_0)"
@@ -60731,29 +60745,29 @@ static const char *startup_source =
 "((def-ctx-scopes131_0) #f)"
 "((post-expansion-scope132_0) #f)"
 "((inner133_0)"
-"(root-expand-context/outer-inner v_252)))"
+"(root-expand-context/outer-inner v_250)))"
 "(expand-context/outer1.1"
 " inner133_0"
 " post-expansion-scope132_0"
 " use-site-scopes128_0"
-"(root-expand-context/outer-frame-id the-struct_93)"
+"(root-expand-context/outer-frame-id the-struct_94)"
 " context127_0"
-"(expand-context/outer-env the-struct_93)"
+"(expand-context/outer-env the-struct_94)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_93)"
+" the-struct_94)"
 " scopes129_0"
 " def-ctx-scopes131_0"
-"(expand-context/outer-binding-layer the-struct_93)"
-"(expand-context/outer-reference-records the-struct_93)"
+"(expand-context/outer-binding-layer the-struct_94)"
+"(expand-context/outer-reference-records the-struct_94)"
 " only-immediate?130_0"
-"(expand-context/outer-need-eventually-defined the-struct_93)"
+"(expand-context/outer-need-eventually-defined the-struct_94)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_93)"
-"(expand-context/outer-name the-struct_93)))"
+" the-struct_94)"
+"(expand-context/outer-name the-struct_94)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                         \"expand-context/outer?\""
-" the-struct_93))))))"
+" the-struct_94))))))"
 "(let-values(((finish-bodys_0)"
 "(lambda()"
 "(begin"
@@ -60794,41 +60808,41 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((exp-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_324) done-bodys_1)"
+"(let-values(((lst_323) done-bodys_1)"
 "((start_64) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_324)))"
+"(check-list lst_323)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-naturals start_64)))"
 "((letrec-values(((for-loop_132)"
-"(lambda(fold-var_289"
-" lst_325"
+"(lambda(fold-var_288"
+" lst_324"
 " pos_123)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_325)"
+" lst_324)"
 " #t"
 " #f)"
 "(let-values(((done-body_4)"
 "(unsafe-car"
-" lst_325))"
+" lst_324))"
 "((rest_187)"
 "(unsafe-cdr"
-" lst_325))"
-"((i_167)"
+" lst_324))"
+"((i_192)"
 " pos_123))"
-"(let-values(((fold-var_290)"
+"(let-values(((fold-var_289)"
 "(let-values(((fold-var_203)"
-" fold-var_289))"
-"(let-values(((fold-var_255)"
+" fold-var_288))"
+"(let-values(((fold-var_290)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -60846,55 +60860,55 @@ static const char *startup_source =
 "(let-values(((done-body134_0)"
 " done-body_4)"
 "((temp135_2)"
-"(if(if name_81"
+"(if(if name_80"
 "(="
-" i_167"
+" i_192"
 " last-i_1)"
 " #f)"
-"(let-values(((v_253)"
+"(let-values(((v_251)"
 " finish-ctx_0))"
-"(let-values(((the-struct_94)"
-" v_253))"
+"(let-values(((the-struct_95)"
+" v_251))"
 "(if(expand-context/outer?"
-" the-struct_94)"
+" the-struct_95)"
 "(let-values(((name136_0)"
-" name_81)"
+" name_80)"
 "((inner137_1)"
 "(root-expand-context/outer-inner"
-" v_253)))"
+" v_251)))"
 "(expand-context/outer1.1"
 " inner137_1"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_94)"
+" the-struct_95)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_94)"
+" the-struct_95)"
 "(root-expand-context/outer-frame-id"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-context"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-env"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-scopes"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-binding-layer"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-reference-records"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-only-immediate?"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_94)"
+" the-struct_95)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_94)"
+" the-struct_95)"
 " name136_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                         \"expand-context/outer?\""
-" the-struct_94))))"
+" the-struct_95))))"
 " finish-ctx_0)))"
 "(expand7.1"
 " #f"
@@ -60905,20 +60919,20 @@ static const char *startup_source =
 " temp135_2))))"
 " fold-var_203))))"
 "(values"
-" fold-var_255)))))"
+" fold-var_290)))))"
 "(if(not"
 " #f)"
 "(for-loop_132"
-" fold-var_290"
+" fold-var_289"
 " rest_187"
 "(+"
 " pos_123"
 " 1))"
-" fold-var_290)))"
-" fold-var_289)))))"
+" fold-var_289)))"
+" fold-var_288)))))"
 " for-loop_132)"
 " null"
-" lst_324"
+" lst_323"
 " start_64))))))"
 "(begin"
 "(let-values(((obs_71)"
@@ -61020,14 +61034,14 @@ static const char *startup_source =
 "(let-values(((track-stxs_2) track-stxs47_0))"
 "(let-values(((split?_0) split?30_0))"
 "(let-values(((frame-id_14) frame-id31_0))"
-"(let-values(((ctx_72) ctx32_0))"
+"(let-values(((ctx_73) ctx32_0))"
 "(let-values(((s_370) source33_0))"
 "(let-values(((had-stxes?_0) had-stxes?34_0))"
 "(let-values(((get-body_0) get-body35_0))"
 "(let-values(((track?_1) track?36_0))"
 "(let-values()"
-"(let-values(((phase_139)(expand-context-phase ctx_72)))"
-"((letrec-values(((loop_123)"
+"(let-values(((phase_141)(expand-context-phase ctx_73)))"
+"((letrec-values(((loop_124)"
 "(lambda(idss_2"
 " keyss_1"
 " rhss_2"
@@ -61048,7 +61062,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((exp-body_1)(get-body_0)))"
 "(let-values(((result-s_9)"
-"(if(expand-context-to-parsed? ctx_72)"
+"(if(expand-context-to-parsed? ctx_73)"
 "(if(null? accum-idss_0)"
 "(parsed-let-values17.1"
 "(keep-properties-only s_370)"
@@ -61071,10 +61085,10 @@ static const char *startup_source =
 "(if(null? accum-idss_0)"
 "(core-id"
 " 'let-values"
-" phase_139)"
+" phase_141)"
 "(core-id"
 " 'letrec-values"
-" phase_139))"
+" phase_141))"
 "(build-clauses"
 " accum-idss_0"
 " accum-rhss_0"
@@ -61087,11 +61101,11 @@ static const char *startup_source =
 " temp151_2)))))"
 "(begin"
 "(let-values(((obs_75)"
-"(expand-context-observer ctx_72)))"
+"(expand-context-observer ctx_73)))"
 "(if obs_75"
 "(let-values()"
 "(if(if can-log?_0"
-"(log-tag? had-stxes?_0 ctx_72)"
+"(log-tag? had-stxes?_0 ctx_73)"
 " #f)"
 "(let-values()"
 "(call-expand-observe"
@@ -61106,20 +61120,20 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_76)"
 "(expand-context-observer"
-" ctx_72)))"
+" ctx_73)))"
 "(if obs_76"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe obs_76 'next)))"
 "(void)))"
 "(values))))"
-"(let-values(((ids_30)(car idss_2)))"
+"(let-values(((ids_29)(car idss_2)))"
 "(let-values(((expanded-rhs_0)"
 "(let-values(((temp152_1)(car rhss_2))"
 "((temp153_0)"
 "(as-named-context"
-" ctx_72"
-" ids_30)))"
+" ctx_73"
+" ids_29)))"
 "(expand7.1"
 " #f"
 " #f"
@@ -61153,7 +61167,7 @@ static const char *startup_source =
 "                                                                                                 \"internal error: accumulated ids not empty\")))"
 "(values))))"
 "(let-values(((exp-rest_0)"
-"(loop_123"
+"(loop_124"
 "(cdr idss_2)"
 "(cdr keyss_1)"
 "(cdr rhss_2)"
@@ -61167,11 +61181,11 @@ static const char *startup_source =
 " #f)))"
 "(let-values(((result-s_10)"
 "(if(expand-context-to-parsed?"
-" ctx_72)"
+" ctx_73)"
 "(parsed-let-values17.1"
 "(keep-properties-only"
 " s_370)"
-"(list ids_30)"
+"(list ids_29)"
 "(list"
 "(list"
 "(car keyss_1)"
@@ -61185,10 +61199,10 @@ static const char *startup_source =
 "(list*"
 "(core-id"
 " 'let-values"
-" phase_139)"
+" phase_141)"
 "(list"
 "(build-clause"
-" ids_30"
+" ids_29"
 " expanded-rhs_0"
 " track-stx_0))"
 " exp-rest_0)))"
@@ -61200,13 +61214,13 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_77)"
 "(expand-context-observer"
-" ctx_72)))"
+" ctx_73)))"
 "(if obs_77"
 "(let-values()"
 "(if(if can-log?_0"
 "(log-tag?"
 " had-stxes?_0"
-" ctx_72)"
+" ctx_73)"
 " #f)"
 "(let-values()"
 "(call-expand-observe"
@@ -61219,14 +61233,14 @@ static const char *startup_source =
 "(list result-s_10)"
 " result-s_10))))))"
 "(if(if(not forward-references?_0)"
-"(let-values(((or-part_370) split?_0))"
-"(if or-part_370"
-" or-part_370"
+"(let-values(((or-part_372) split?_0))"
+"(if or-part_372"
+" or-part_372"
 "(null?(cdr idss_2))))"
 " #f)"
 "(let-values()"
 "(let-values(((exp-rest_1)"
-"(loop_123"
+"(loop_124"
 "(cdr idss_2)"
 "(cdr keyss_1)"
 "(cdr rhss_2)"
@@ -61240,13 +61254,13 @@ static const char *startup_source =
 " #f)))"
 "(let-values(((result-s_11)"
 "(if(expand-context-to-parsed?"
-" ctx_72)"
+" ctx_73)"
 "(parsed-letrec-values18.1"
 "(keep-properties-only"
 " s_370)"
 "(reverse$1"
 "(cons"
-" ids_30"
+" ids_29"
 " accum-idss_0))"
 "(reverse$1"
 "(cons"
@@ -61266,10 +61280,10 @@ static const char *startup_source =
 "(list*"
 "(core-id"
 " 'letrec-values"
-" phase_139)"
+" phase_141)"
 "(build-clauses"
 "(cons"
-" ids_30"
+" ids_29"
 " accum-idss_0)"
 "(cons"
 " expanded-rhs_0"
@@ -61286,13 +61300,13 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_78)"
 "(expand-context-observer"
-" ctx_72)))"
+" ctx_73)))"
 "(if obs_78"
 "(let-values()"
 "(if(if can-log?_0"
 "(log-tag?"
 " had-stxes?_0"
-" ctx_72)"
+" ctx_73)"
 " #f)"
 "(let-values()"
 "(call-expand-observe"
@@ -61305,19 +61319,19 @@ static const char *startup_source =
 "(list result-s_11)"
 " result-s_11)))))"
 "(let-values()"
-"(loop_123"
+"(loop_124"
 "(cdr idss_2)"
 "(cdr keyss_1)"
 "(cdr rhss_2)"
 "(cdr track-stxs_3)"
-"(cons ids_30 accum-idss_0)"
+"(cons ids_29 accum-idss_0)"
 "(cons(car keyss_1) accum-keyss_0)"
 "(cons expanded-rhs_0 accum-rhss_0)"
 "(cons track-stx_0 accum-track-stxs_0)"
 " track?_2"
 " get-list?_0"
 " can-log?_0)))))))))))))))))"
-" loop_123)"
+" loop_124)"
 " idss_1"
 " keyss_0"
 " rhss_1"
@@ -61335,52 +61349,52 @@ static const char *startup_source =
 "(begin(map2 build-clause(reverse$1 accum-idss_1)(reverse$1 accum-rhss_1)(reverse$1 accum-track-stxs_1)))))"
 "(define-values"
 "(build-clause)"
-"(lambda(ids_31 rhs_19 track-stx_1)"
+"(lambda(ids_30 rhs_19 track-stx_1)"
 "(begin"
-"(let-values(((clause_2)(datum->syntax$1 #f(list ids_31 rhs_19))))"
+"(let-values(((clause_2)(datum->syntax$1 #f(list ids_30 rhs_19))))"
 "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))"
 "(define-values"
 "(no-binds)"
-"(lambda(expr_10 s_485 phase_140)"
+"(lambda(expr_10 s_485 phase_142)"
 "(begin"
-"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_140)))"
+"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_142)))"
 "(datum->syntax$1"
-"(core-id '#%app phase_140)"
-"(list(core-id 'begin phase_140) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))"
+"(core-id '#%app phase_142)"
+"(list(core-id 'begin phase_142) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))"
 " s_485)))))"
 "(define-values"
 "(log-tag?)"
-"(lambda(had-stxes?_1 ctx_73)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_73)) #f))))"
+"(lambda(had-stxes?_1 ctx_74)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_74)) #f))))"
 "(define-values"
 "(log-letrec-values$1)"
-"(lambda(obs_79 ctx_74 s_486 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)"
+"(lambda(obs_79 ctx_75 s_486 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)"
 "(begin"
 " 'log-letrec-values"
-"(let-values(((phase_141)(expand-context-phase ctx_74)))"
+"(let-values(((phase_143)(expand-context-phase ctx_75)))"
 "(let-values(((clauses_0)"
 "(reverse$1"
-"(let-values(((lst_326) val-idss_2)((lst_327) val-rhss_2)((lst_328) track-stxs_4))"
+"(let-values(((lst_325) val-idss_2)((lst_326) val-rhss_2)((lst_327) track-stxs_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
+"(let-values()(check-list lst_325)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
 "(let-values()(check-list lst_326)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_327)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_328)))"
 "((letrec-values(((for-loop_270)"
-"(lambda(fold-var_291 lst_238 lst_329 lst_330)"
+"(lambda(fold-var_291 lst_238 lst_328 lst_329)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_238)(if(pair? lst_329)(pair? lst_330) #f) #f)"
+"(if(if(pair? lst_238)(if(pair? lst_328)(pair? lst_329) #f) #f)"
 "(let-values(((val-ids_0)(unsafe-car lst_238))"
 "((rest_188)(unsafe-cdr lst_238))"
-"((val-rhs_0)(unsafe-car lst_329))"
-"((rest_189)(unsafe-cdr lst_329))"
-"((track-stx_2)(unsafe-car lst_330))"
-"((rest_190)(unsafe-cdr lst_330)))"
+"((val-rhs_0)(unsafe-car lst_328))"
+"((rest_189)(unsafe-cdr lst_328))"
+"((track-stx_2)(unsafe-car lst_329))"
+"((rest_190)(unsafe-cdr lst_329)))"
 "(let-values(((fold-var_292)"
 "(let-values(((fold-var_293) fold-var_291))"
 "(let-values(((fold-var_294)"
@@ -61399,11 +61413,11 @@ static const char *startup_source =
 " fold-var_291)))))"
 " for-loop_270)"
 " null"
+" lst_325"
 " lst_326"
-" lst_327"
-" lst_328))))))"
+" lst_327))))))"
 "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))"
-"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_141)))"
+"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_143)))"
 "(let-values(((lv-s_0)"
 "(datum->syntax$1"
 " #f"
@@ -61448,20 +61462,20 @@ static const char *startup_source =
 "(datum->syntax$1 #f done-bodys_2 s_486))))))))))))))"
 "(define-values"
 "(lambda-clause-expander)"
-"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_75 log-renames-tag_0)"
+"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_76 log-renames-tag_0)"
 "(begin"
 "(let-values(((sc_31)(new-scope 'local)))"
-"(let-values(((phase_78)(expand-context-phase ctx_75)))"
-"(let-values(((ids_32)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))"
+"(let-values(((phase_78)(expand-context-phase ctx_76)))"
+"(let-values(((ids_31)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))"
 "(let-values((()"
 "(begin"
 "                            (let-values (((temp37_4) \"argument name\"))"
-"(check-no-duplicate-ids8.1 temp37_4 #t ids_32 phase_78 s_70 #f #f))"
+"(check-no-duplicate-ids8.1 temp37_4 #t ids_31 phase_78 s_70 #f #f))"
 "(values))))"
-"(let-values(((counter_7)(root-expand-context-counter ctx_75)))"
+"(let-values(((counter_7)(root-expand-context-counter ctx_76)))"
 "(let-values(((keys_7)"
 "(reverse$1"
-"(let-values(((lst_269) ids_32))"
+"(let-values(((lst_269) ids_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
@@ -61499,11 +61513,11 @@ static const char *startup_source =
 " null"
 " lst_269))))))"
 "(let-values(((body-env_0)"
-"(let-values(((lst_302) keys_7)((lst_23) ids_32))"
+"(let-values(((lst_301) keys_7)((lst_23) ids_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_302)))"
+"(let-values()(check-list lst_301)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_23)))"
@@ -61531,8 +61545,8 @@ static const char *startup_source =
 " env_26)))"
 " env_25)))))"
 " for-loop_20)"
-"(expand-context-env ctx_75)"
-" lst_302"
+"(expand-context-env ctx_76)"
+" lst_301"
 " lst_23)))))"
 "(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))"
 "(let-values(((sc-bodys_0)"
@@ -61570,7 +61584,7 @@ static const char *startup_source =
 " lst_17))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_80)(expand-context-observer ctx_75)))"
+"(let-values(((obs_80)(expand-context-observer ctx_76)))"
 "(if obs_80"
 "(let-values()"
 "(let-values()"
@@ -61582,42 +61596,42 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_4)"
-"(let-values(((v_254) ctx_75))"
-"(let-values(((the-struct_95) v_254))"
-"(if(expand-context/outer? the-struct_95)"
+"(let-values(((v_252) ctx_76))"
+"(let-values(((the-struct_96) v_252))"
+"(if(expand-context/outer? the-struct_96)"
 "(let-values(((env42_0) body-env_0)"
-"((scopes43_0)(cons sc_31(expand-context-scopes ctx_75)))"
+"((scopes43_0)(cons sc_31(expand-context-scopes ctx_76)))"
 "((binding-layer44_0)"
-"(increment-binding-layer ids_32 ctx_75 sc_31))"
+"(increment-binding-layer ids_31 ctx_76 sc_31))"
 "((frame-id45_0) #f)"
-"((inner46_1)(root-expand-context/outer-inner v_254)))"
+"((inner46_1)(root-expand-context/outer-inner v_252)))"
 "(expand-context/outer1.1"
 " inner46_1"
-"(root-expand-context/outer-post-expansion-scope the-struct_95)"
-"(root-expand-context/outer-use-site-scopes the-struct_95)"
+"(root-expand-context/outer-post-expansion-scope the-struct_96)"
+"(root-expand-context/outer-use-site-scopes the-struct_96)"
 " frame-id45_0"
-"(expand-context/outer-context the-struct_95)"
+"(expand-context/outer-context the-struct_96)"
 " env42_0"
-"(expand-context/outer-post-expansion-scope-action the-struct_95)"
+"(expand-context/outer-post-expansion-scope-action the-struct_96)"
 " scopes43_0"
-"(expand-context/outer-def-ctx-scopes the-struct_95)"
+"(expand-context/outer-def-ctx-scopes the-struct_96)"
 " binding-layer44_0"
-"(expand-context/outer-reference-records the-struct_95)"
-"(expand-context/outer-only-immediate? the-struct_95)"
-"(expand-context/outer-need-eventually-defined the-struct_95)"
-"(expand-context/outer-current-introduction-scopes the-struct_95)"
-"(expand-context/outer-name the-struct_95)))"
+"(expand-context/outer-reference-records the-struct_96)"
+"(expand-context/outer-only-immediate? the-struct_96)"
+"(expand-context/outer-need-eventually-defined the-struct_96)"
+"(expand-context/outer-current-introduction-scopes the-struct_96)"
+"(expand-context/outer-name the-struct_96)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                               \"expand-context/outer?\""
-" the-struct_95))))))"
+" the-struct_96))))))"
 "(let-values(((exp-body_2)"
 "(let-values(((temp49_2)"
 "(let-values(((temp52_6) #t))"
-"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx_75 s_70))))"
+"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx_76 s_70))))"
 "(expand-body7.1 temp49_2 #f #f sc-bodys_0 body-ctx_4))))"
 "(values"
-"(if(expand-context-to-parsed? ctx_75)"
+"(if(expand-context-to-parsed? ctx_76)"
 "(unflatten-like-formals keys_7 formals_1)"
 " sc-formals_0)"
 " exp-body_2))))))))))))))))"
@@ -61625,16 +61639,16 @@ static const char *startup_source =
 "(make-expand-lambda)"
 "(lambda(get-lambda_0)"
 "(begin"
-"(lambda(s_180 ctx_76)"
+"(lambda(s_180 ctx_77)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_81)(expand-context-observer ctx_76)))"
+"(let-values(((obs_81)(expand-context-observer ctx_77)))"
 "(if obs_81(let-values()(let-values()(call-expand-observe obs_81 'prim-lambda)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_6)(syntax-disarm$1 s_180)))"
 "(let-values(((ok?_34 lambda53_0 formals54_0 body55_0)"
 "(let-values(((s_76) disarmed-s_6))"
-"(let-values(((orig-s_42) s_76))"
+"(let-values(((orig-s_41) s_76))"
 "(let-values(((lambda53_1 formals54_1 body55_1)"
 "(let-values(((s_304)(if(syntax?$1 s_76)(syntax-e$1 s_76) s_76)))"
 "(if(pair? s_304)"
@@ -61663,50 +61677,50 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                             \"bad syntax\""
-" orig-s_42))"
+" orig-s_41))"
 "(if(null? flat-s_27)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                               \"bad syntax\""
-" orig-s_42))"
+" orig-s_41))"
 "(let-values()"
 " flat-s_27))))))))"
 "(values formals59_0 body60_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                     \"bad syntax\""
-" orig-s_42))))))"
+" orig-s_41))))))"
 "(values lambda56_0 formals57_0 body58_0))"
-"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))"
+"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))"
 "(values #t lambda53_1 formals54_1 body55_1))))))"
 "(let-values(((rebuild-s_4)"
-"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_76 s_180))))"
+"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_77 s_180))))"
 "(let-values(((formals_2 body_13)"
-"(lambda-clause-expander s_180 disarmed-s_6 formals54_0 body55_0 ctx_76 'lambda-renames)))"
-"(if(expand-context-to-parsed? ctx_76)"
+"(lambda-clause-expander s_180 disarmed-s_6 formals54_0 body55_0 ctx_77 'lambda-renames)))"
+"(if(expand-context-to-parsed? ctx_77)"
 "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)"
 "(let-values(((rebuild-s64_0) rebuild-s_4)"
-"((temp65_7)(list*(get-lambda_0 ctx_76 lambda53_0) formals_2 body_13)))"
+"((temp65_7)(list*(get-lambda_0 ctx_77 lambda53_0) formals_2 body_13)))"
 "(rebuild5.1 #f #f rebuild-s64_0 temp65_7))))))))))))"
-"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_77 lam-id_0) lam-id_0))))"
+"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_78 lam-id_0) lam-id_0))))"
 "(void"
 "(add-core-form!*"
 " 'λ"
 "(make-expand-lambda"
-"(lambda(ctx_78 lam-id_1)"
+"(lambda(ctx_79 lam-id_1)"
 "(datum->syntax$1"
-"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_78))"
+"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_79))"
 " 'lambda"
 " lam-id_1"
 " lam-id_1)))))"
 "(void"
 "(add-core-form!*"
 " 'case-lambda"
-"(lambda(s_490 ctx_79)"
+"(lambda(s_490 ctx_80)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_32)(expand-context-observer ctx_79)))"
+"(let-values(((obs_32)(expand-context-observer ctx_80)))"
 "(if obs_32"
 "(let-values()(let-values()(call-expand-observe obs_32 'prim-case-lambda)))"
 "(void)))"
@@ -61714,30 +61728,30 @@ static const char *startup_source =
 "(let-values(((disarmed-s_7)(syntax-disarm$1 s_490)))"
 "(let-values(((ok?_35 case-lambda66_0 formals67_0 body68_0)"
 "(let-values(((s_32) disarmed-s_7))"
-"(let-values(((orig-s_43) s_32))"
+"(let-values(((orig-s_42) s_32))"
 "(let-values(((case-lambda66_1 formals67_1 body68_1)"
 "(let-values(((s_69)(if(syntax?$1 s_32)(syntax-e$1 s_32) s_32)))"
 "(if(pair? s_69)"
 "(let-values(((case-lambda69_0)(let-values(((s_310)(car s_69))) s_310))"
 "((formals70_0 body71_0)"
-"(let-values(((s_474)(cdr s_69)))"
+"(let-values(((s_473)(cdr s_69)))"
 "(let-values(((s_491)"
-"(if(syntax?$1 s_474)"
-"(syntax-e$1 s_474)"
-" s_474)))"
+"(if(syntax?$1 s_473)"
+"(syntax-e$1 s_473)"
+" s_473)))"
 "(let-values(((flat-s_28)(to-syntax-list.1 s_491)))"
 "(if(not flat-s_28)"
 "(let-values()"
-"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))"
+"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))"
 "(let-values()"
 "(let-values(((formals_3 body_14)"
-"(let-values(((lst_310) flat-s_28))"
+"(let-values(((lst_309) flat-s_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_310)))"
+"(check-list lst_309)))"
 "((letrec-values(((for-loop_272)"
 "(lambda(formals_4"
 " body_15"
@@ -61746,7 +61760,7 @@ static const char *startup_source =
 " 'for-loop"
 "(if(pair?"
 " lst_98)"
-"(let-values(((s_433)"
+"(let-values(((s_432)"
 "(unsafe-car"
 " lst_98))"
 "((rest_192)"
@@ -61766,10 +61780,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((s_55)"
 "(if(syntax?$1"
-" s_433)"
+" s_432)"
 "(syntax-e$1"
-" s_433)"
-" s_433)))"
+" s_432)"
+" s_432)))"
 "(if(pair?"
 " s_55)"
 "(let-values(((formals72_0)"
@@ -61796,14 +61810,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                              \"bad syntax\""
-" orig-s_43))"
+" orig-s_42))"
 "(if(null?"
 " flat-s_29)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                \"bad syntax\""
-" orig-s_43))"
+" orig-s_42))"
 "(let-values()"
 " flat-s_29))))))))"
 "(values"
@@ -61812,7 +61826,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                      \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_42))))))"
 "(values"
 "(cons"
 " formals78_0"
@@ -61838,16 +61852,16 @@ static const char *startup_source =
 " for-loop_272)"
 " null"
 " null"
-" lst_310)))))"
+" lst_309)))))"
 "(values"
 "(reverse$1 formals_3)"
 "(reverse$1 body_14))))))))))"
 "(values case-lambda69_0 formals70_0 body71_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))"
 "(values #t case-lambda66_1 formals67_1 body68_1))))))"
 "(let-values(((ok?_36 case-lambda74_0 clause75_0)"
 "(let-values(((s_56) disarmed-s_7))"
-"(let-values(((orig-s_44) s_56))"
+"(let-values(((orig-s_43) s_56))"
 "(let-values(((case-lambda74_1 clause75_1)"
 "(let-values(((s_303)(if(syntax?$1 s_56)(syntax-e$1 s_56) s_56)))"
 "(if(pair? s_303)"
@@ -61862,13 +61876,13 @@ static const char *startup_source =
 "(let-values(((flat-s_30)(to-syntax-list.1 s_57)))"
 "(if(not flat-s_30)"
 "(let-values()"
-"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))"
+"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))"
 "(let-values() flat-s_30)))))))"
 "(values case-lambda76_0 clause77_0))"
-"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))"
+"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))"
 "(values #t case-lambda74_1 clause75_1))))))"
 "(let-values(((rebuild-s_5)"
-"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_79 s_490))))"
+"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_80 s_490))))"
 "(let-values(((clauses_1)"
 "(reverse$1"
 "(let-values(((lst_192) formals67_0)((lst_223) body68_0)((lst_224) clause75_0))"
@@ -61883,18 +61897,18 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_224)))"
 "((letrec-values(((for-loop_273)"
-"(lambda(fold-var_298 lst_331 lst_332 lst_333)"
+"(lambda(fold-var_298 lst_330 lst_331 lst_332)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_331)"
-"(if(pair? lst_332)(pair? lst_333) #f)"
+"(if(if(pair? lst_330)"
+"(if(pair? lst_331)(pair? lst_332) #f)"
 " #f)"
-"(let-values(((formals_8)(unsafe-car lst_331))"
-"((rest_193)(unsafe-cdr lst_331))"
-"((body_19)(unsafe-car lst_332))"
-"((rest_194)(unsafe-cdr lst_332))"
-"((clause_3)(unsafe-car lst_333))"
-"((rest_195)(unsafe-cdr lst_333)))"
+"(let-values(((formals_8)(unsafe-car lst_330))"
+"((rest_193)(unsafe-cdr lst_330))"
+"((body_19)(unsafe-car lst_331))"
+"((rest_194)(unsafe-cdr lst_331))"
+"((clause_3)(unsafe-car lst_332))"
+"((rest_195)(unsafe-cdr lst_332)))"
 "(let-values(((fold-var_299)"
 "(let-values(((fold-var_300) fold-var_298))"
 "(let-values(((fold-var_187)"
@@ -61905,7 +61919,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_82)"
 "(expand-context-observer"
-" ctx_79)))"
+" ctx_80)))"
 "(if obs_82"
 "(let-values()"
 "(let-values()"
@@ -61916,7 +61930,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((rebuild-clause_0)"
 "(let-values(((ctx83_0)"
-" ctx_79)"
+" ctx_80)"
 "((clause84_0)"
 " clause_3))"
 "(keep-as-needed74.1"
@@ -61935,10 +61949,10 @@ static const char *startup_source =
 " disarmed-s_7"
 " formals_8"
 " body_19"
-" ctx_79"
+" ctx_80"
 " 'case-lambda-renames)))"
 "(if(expand-context-to-parsed?"
-" ctx_79)"
+" ctx_80)"
 "(list"
 " exp-formals_0"
 " exp-body_3)"
@@ -61964,7 +61978,7 @@ static const char *startup_source =
 " lst_192"
 " lst_223"
 " lst_224))))))"
-"(if(expand-context-to-parsed? ctx_79)"
+"(if(expand-context-to-parsed? ctx_80)"
 "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)"
 "(let-values(((rebuild-s87_0) rebuild-s_5)((temp88_3)(list* case-lambda66_0 clauses_1)))"
 "(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))"
@@ -61972,7 +61986,7 @@ static const char *startup_source =
 "(parse-and-flatten-formals)"
 "(lambda(all-formals_0 sc_32 s_320)"
 "(begin"
-"((letrec-values(((loop_124)"
+"((letrec-values(((loop_125)"
 "(lambda(formals_9)"
 "(begin"
 " 'loop"
@@ -61982,7 +61996,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((p_83)(syntax-e$1 formals_9)))"
 "(if(pair? p_83)"
-"(let-values()(loop_124 p_83))"
+"(let-values()(loop_125 p_83))"
 "(if(null? p_83)"
 "(let-values() null)"
 "                                        (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_320 p_83))))))"
@@ -61993,29 +62007,29 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                          (raise-syntax-error$1 #f \"not an identifier\" s_320 (car formals_9))))"
-"(cons(add-scope(car formals_9) sc_32)(loop_124(cdr formals_9)))))"
+"(cons(add-scope(car formals_9) sc_32)(loop_125(cdr formals_9)))))"
 "(if(null? formals_9)"
 "(let-values() null)"
 "(let-values()"
 "                                      (raise-syntax-error$1 \"bad argument sequence\" s_320 all-formals_0))))))))))"
-" loop_124)"
+" loop_125)"
 " all-formals_0))))"
 "(define-values"
 "(unflatten-like-formals)"
 "(lambda(keys_8 formals_10)"
 "(begin"
-"((letrec-values(((loop_125)"
+"((letrec-values(((loop_126)"
 "(lambda(keys_9 formals_11)"
 "(begin"
 " 'loop"
 "(if(null? formals_11)"
 "(let-values() null)"
 "(if(pair? formals_11)"
-"(let-values()(cons(car keys_9)(loop_125(cdr keys_9)(cdr formals_11))))"
+"(let-values()(cons(car keys_9)(loop_126(cdr keys_9)(cdr formals_11))))"
 "(if(syntax?$1 formals_11)"
-"(let-values()(loop_125 keys_9(syntax-e$1 formals_11)))"
+"(let-values()(loop_126 keys_9(syntax-e$1 formals_11)))"
 "(let-values()(car keys_9)))))))))"
-" loop_125)"
+" loop_126)"
 " keys_8"
 " formals_10))))"
 "(define-values"
@@ -62037,10 +62051,10 @@ static const char *startup_source =
 "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))"
 "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))"
 "(let-values()"
-"(lambda(s_89 ctx_80)"
+"(lambda(s_89 ctx_81)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_83)(expand-context-observer ctx_80)))"
+"(let-values(((obs_83)(expand-context-observer ctx_81)))"
 "(if obs_83"
 "(let-values()(let-values()(call-expand-observe obs_83 log-tag_0)))"
 "(void)))"
@@ -62055,7 +62069,7 @@ static const char *startup_source =
 " body94_0)"
 "(let-values(((s_107) disarmed-s_8))"
 "(if(if syntaxes?_0 #t #f)"
-"(let-values(((orig-s_45) s_107))"
+"(let-values(((orig-s_44) s_107))"
 "(let-values(((letrec-syntaxes+values89_1"
 " id:trans90_1"
 " trans-rhs91_1"
@@ -62100,11 +62114,11 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                           \"bad syntax\""
-" orig-s_45))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:trans_0"
 " trans-rhs_0)"
-"(let-values(((lst_334)"
+"(let-values(((lst_333)"
 " flat-s_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62112,21 +62126,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_334)))"
+" lst_333)))"
 "((letrec-values(((for-loop_274)"
 "(lambda(id:trans_1"
 " trans-rhs_1"
-" lst_335)"
+" lst_334)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_335)"
+" lst_334)"
 "(let-values(((s_497)"
 "(unsafe-car"
-" lst_335))"
+" lst_334))"
 "((rest_196)"
 "(unsafe-cdr"
-" lst_335)))"
+" lst_334)))"
 "(let-values(((id:trans_2"
 " trans-rhs_2)"
 "(let-values(((id:trans_3)"
@@ -62166,10 +62180,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_45))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:trans_5)"
-"(let-values(((lst_336)"
+"(let-values(((lst_335)"
 " flat-s_32))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62177,20 +62191,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_336)))"
+" lst_335)))"
 "((letrec-values(((for-loop_275)"
 "(lambda(id:trans_6"
-" lst_337)"
+" lst_336)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_337)"
+" lst_336)"
 "(let-values(((s_499)"
 "(unsafe-car"
-" lst_337))"
+" lst_336))"
 "((rest_197)"
 "(unsafe-cdr"
-" lst_337)))"
+" lst_336)))"
 "(let-values(((id:trans_7)"
 "(let-values(((id:trans_8)"
 " id:trans_6))"
@@ -62198,22 +62212,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:trans134_0)"
 "(let-values()"
-"(if(let-values(((or-part_371)"
+"(if(let-values(((or-part_283)"
 "(if(syntax?$1"
 " s_499)"
 "(symbol?"
 "(syntax-e$1"
 " s_499))"
 " #f)))"
-"(if or-part_371"
-" or-part_371"
+"(if or-part_283"
+" or-part_283"
 "(symbol?"
 " s_499)))"
 " s_499"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                 \"not an identifier\""
-" orig-s_45"
+" orig-s_44"
 " s_499)))))"
 "(cons"
 " id:trans134_0"
@@ -62229,7 +62243,7 @@ static const char *startup_source =
 " id:trans_6)))))"
 " for-loop_275)"
 " null"
-" lst_336)))))"
+" lst_335)))))"
 "(reverse$1"
 " id:trans_5))))))))"
 "((trans-rhs107_0)"
@@ -62265,20 +62279,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 " trans-rhs108_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 " id:trans106_0"
 " trans-rhs107_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 "(cons"
 " id:trans132_0"
@@ -62304,7 +62318,7 @@ static const char *startup_source =
 " for-loop_274)"
 " null"
 " null"
-" lst_334)))))"
+" lst_333)))))"
 "(values"
 "(reverse$1"
 " id:trans_0)"
@@ -62343,7 +62357,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                               \"bad syntax\""
-" orig-s_45))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:val_0"
 " val-rhs_1)"
@@ -62409,10 +62423,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_45))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:val_5)"
-"(let-values(((lst_338)"
+"(let-values(((lst_337)"
 " flat-s_34))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62420,20 +62434,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_338)))"
+" lst_337)))"
 "((letrec-values(((for-loop_277)"
 "(lambda(id:val_6"
-" lst_339)"
+" lst_338)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_339)"
+" lst_338)"
 "(let-values(((s_340)"
 "(unsafe-car"
-" lst_339))"
+" lst_338))"
 "((rest_199)"
 "(unsafe-cdr"
-" lst_339)))"
+" lst_338)))"
 "(let-values(((id:val_7)"
 "(let-values(((id:val_8)"
 " id:val_6))"
@@ -62441,22 +62455,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val137_0)"
 "(let-values()"
-"(if(let-values(((or-part_332)"
+"(if(let-values(((or-part_333)"
 "(if(syntax?$1"
 " s_340)"
 "(symbol?"
 "(syntax-e$1"
 " s_340))"
 " #f)))"
-"(if or-part_332"
-" or-part_332"
+"(if or-part_333"
+" or-part_333"
 "(symbol?"
 " s_340)))"
 " s_340"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                     \"not an identifier\""
-" orig-s_45"
+" orig-s_44"
 " s_340)))))"
 "(cons"
 " id:val137_0"
@@ -62472,7 +62486,7 @@ static const char *startup_source =
 " id:val_6)))))"
 " for-loop_277)"
 " null"
-" lst_338)))))"
+" lst_337)))))"
 "(reverse$1"
 " id:val_5))))))))"
 "((val-rhs113_0)"
@@ -62508,20 +62522,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 " val-rhs114_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 " id:val112_0"
 " val-rhs113_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 "(cons"
 " id:val135_0"
@@ -62572,14 +62586,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                               \"bad syntax\""
-" orig-s_45))"
+" orig-s_44))"
 "(if(null?"
 " flat-s_35)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
-" orig-s_45))"
+" orig-s_44))"
 "(let-values()"
 " flat-s_35))))))))"
 "(values"
@@ -62589,7 +62603,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                       \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 " id:trans101_0"
 " trans-rhs102_0"
@@ -62599,7 +62613,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                   \"bad syntax\""
-" orig-s_45))))))"
+" orig-s_44))))))"
 "(values"
 " letrec-syntaxes+values95_0"
 " id:trans96_0"
@@ -62607,7 +62621,7 @@ static const char *startup_source =
 " id:val98_0"
 " val-rhs99_0"
 " body100_0))"
-"                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))"
+"                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))"
 "(values"
 " #t"
 " letrec-syntaxes+values89_1"
@@ -62620,7 +62634,7 @@ static const char *startup_source =
 "(let-values(((ok?_38 let-values115_0 id:val116_0 val-rhs117_0 body118_0)"
 "(let-values(((s_445) disarmed-s_8))"
 "(if(if(not syntaxes?_0) #t #f)"
-"(let-values(((orig-s_46) s_445))"
+"(let-values(((orig-s_45) s_445))"
 "(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)"
 "(let-values(((s_238)"
 "(if(syntax?$1 s_445)"
@@ -62657,11 +62671,11 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
-" orig-s_46))"
+" orig-s_45))"
 "(let-values()"
 "(let-values(((id:val_10"
 " val-rhs_6)"
-"(let-values(((lst_340)"
+"(let-values(((lst_339)"
 " flat-s_36))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62669,7 +62683,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_340)))"
+" lst_339)))"
 "((letrec-values(((for-loop_278)"
 "(lambda(id:val_11"
 " val-rhs_7"
@@ -62723,10 +62737,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_46))"
+" orig-s_45))"
 "(let-values()"
 "(let-values(((id:val_15)"
-"(let-values(((lst_341)"
+"(let-values(((lst_340)"
 " flat-s_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62734,20 +62748,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_341)))"
+" lst_340)))"
 "((letrec-values(((for-loop_279)"
 "(lambda(id:val_16"
-" lst_342)"
+" lst_341)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_342)"
+" lst_341)"
 "(let-values(((s_517)"
 "(unsafe-car"
-" lst_342))"
+" lst_341))"
 "((rest_201)"
 "(unsafe-cdr"
-" lst_342)))"
+" lst_341)))"
 "(let-values(((id:val_17)"
 "(let-values(((id:val_18)"
 " id:val_16))"
@@ -62755,22 +62769,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val140_0)"
 "(let-values()"
-"(if(let-values(((or-part_372)"
+"(if(let-values(((or-part_373)"
 "(if(syntax?$1"
 " s_517)"
 "(symbol?"
 "(syntax-e$1"
 " s_517))"
 " #f)))"
-"(if or-part_372"
-" or-part_372"
+"(if or-part_373"
+" or-part_373"
 "(symbol?"
 " s_517)))"
 " s_517"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                   \"not an identifier\""
-" orig-s_46"
+" orig-s_45"
 " s_517)))))"
 "(cons"
 " id:val140_0"
@@ -62786,7 +62800,7 @@ static const char *startup_source =
 " id:val_16)))))"
 " for-loop_279)"
 " null"
-" lst_341)))))"
+" lst_340)))))"
 "(reverse$1"
 " id:val_15))))))))"
 "((val-rhs127_0)"
@@ -62822,20 +62836,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_46))))))"
+" orig-s_45))))))"
 "(values"
 " val-rhs128_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_46))))))"
+" orig-s_45))))))"
 "(values"
 " id:val126_0"
 " val-rhs127_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_46))))))"
+" orig-s_45))))))"
 "(values"
 "(cons"
 " id:val138_0"
@@ -62861,7 +62875,7 @@ static const char *startup_source =
 " for-loop_278)"
 " null"
 " null"
-" lst_340)))))"
+" lst_339)))))"
 "(values"
 "(reverse$1"
 " id:val_10)"
@@ -62886,14 +62900,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
-" orig-s_46))"
+" orig-s_45))"
 "(if(null?"
 " flat-s_38)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                               \"bad syntax\""
-" orig-s_46))"
+" orig-s_45))"
 "(let-values()"
 " flat-s_38))))))))"
 "(values"
@@ -62903,64 +62917,64 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
-" orig-s_46))))))"
+" orig-s_45))))))"
 "(values"
 " let-values119_0"
 " id:val120_0"
 " val-rhs121_0"
 " body122_0))"
-"                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))"
+"                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))"
 "(values #t let-values115_1 id:val116_1 val-rhs117_1 body118_1)))"
 "(values #f #f #f #f #f)))))"
 "(let-values(((sc_7)(new-scope 'local)))"
-"(let-values(((phase_142)(expand-context-phase ctx_80)))"
+"(let-values(((phase_144)(expand-context-phase ctx_81)))"
 "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))"
 "(let-values(((trans-idss_2)"
 "(reverse$1"
-"(let-values(((lst_343)(if syntaxes?_0 id:trans90_0 null)))"
+"(let-values(((lst_342)(if syntaxes?_0 id:trans90_0 null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_343)))"
+"(let-values()(check-list lst_342)))"
 "((letrec-values(((for-loop_280)"
-"(lambda(fold-var_301 lst_344)"
+"(lambda(fold-var_301 lst_343)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_344)"
-"(let-values(((ids_33)"
-"(unsafe-car lst_344))"
+"(if(pair? lst_343)"
+"(let-values(((ids_32)"
+"(unsafe-car lst_343))"
 "((rest_202)"
-"(unsafe-cdr lst_344)))"
+"(unsafe-cdr lst_343)))"
 "(let-values(((fold-var_302)"
 "(let-values(((fold-var_303)"
 " fold-var_301))"
-"(let-values(((fold-var_269)"
+"(let-values(((fold-var_267)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_345)"
-" ids_33))"
+"(let-values(((lst_344)"
+" ids_32))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_345)))"
+" lst_344)))"
 "((letrec-values(((for-loop_281)"
 "(lambda(fold-var_304"
-" lst_346)"
+" lst_345)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_346)"
+" lst_345)"
 "(let-values(((id_113)"
 "(unsafe-car"
-" lst_346))"
+" lst_345))"
 "((rest_203)"
 "(unsafe-cdr"
-" lst_346)))"
+" lst_345)))"
 "(let-values(((fold-var_305)"
 "(let-values(((fold-var_306)"
 " fold-var_304))"
@@ -62983,33 +62997,33 @@ static const char *startup_source =
 " fold-var_304)))))"
 " for-loop_281)"
 " null"
-" lst_345)))))"
+" lst_344)))))"
 " fold-var_303))))"
 "(values"
-" fold-var_269)))))"
+" fold-var_267)))))"
 "(if(not #f)"
 "(for-loop_280 fold-var_302 rest_202)"
 " fold-var_302)))"
 " fold-var_301)))))"
 " for-loop_280)"
 " null"
-" lst_343))))))"
+" lst_342))))))"
 "(let-values(((val-idss_3)"
 "(reverse$1"
-"(let-values(((lst_347)(if syntaxes?_0 id:val92_0 id:val116_0)))"
+"(let-values(((lst_346)(if syntaxes?_0 id:val92_0 id:val116_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_347)))"
+"(let-values()(check-list lst_346)))"
 "((letrec-values(((for-loop_282)"
-"(lambda(fold-var_308 lst_348)"
+"(lambda(fold-var_308 lst_347)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_348)"
+"(if(pair? lst_347)"
 "(let-values(((ids_20)"
-"(unsafe-car lst_348))"
+"(unsafe-car lst_347))"
 "((rest_204)"
-"(unsafe-cdr lst_348)))"
+"(unsafe-cdr lst_347)))"
 "(let-values(((fold-var_309)"
 "(let-values(((fold-var_310)"
 " fold-var_308))"
@@ -63018,7 +63032,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_349)"
+"(let-values(((lst_348)"
 " ids_20))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63026,20 +63040,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_349)))"
+" lst_348)))"
 "((letrec-values(((for-loop_283)"
 "(lambda(fold-var_312"
-" lst_350)"
+" lst_349)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_350)"
+" lst_349)"
 "(let-values(((id_114)"
 "(unsafe-car"
-" lst_350))"
+" lst_349))"
 "((rest_205)"
 "(unsafe-cdr"
-" lst_350)))"
+" lst_349)))"
 "(let-values(((fold-var_313)"
 "(let-values(((fold-var_314)"
 " fold-var_312))"
@@ -63062,7 +63076,7 @@ static const char *startup_source =
 " fold-var_312)))))"
 " for-loop_283)"
 " null"
-" lst_349)))))"
+" lst_348)))))"
 " fold-var_310))))"
 "(values"
 " fold-var_311)))))"
@@ -63074,25 +63088,25 @@ static const char *startup_source =
 " fold-var_308)))))"
 " for-loop_282)"
 " null"
-" lst_347))))))"
+" lst_346))))))"
 "(let-values(((val-rhss_3)"
 "(if rec?_1"
 "(reverse$1"
-"(let-values(((lst_351)"
+"(let-values(((lst_350)"
 "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_351)))"
+"(let-values()(check-list lst_350)))"
 "((letrec-values(((for-loop_284)"
-"(lambda(fold-var_316 lst_352)"
+"(lambda(fold-var_316 lst_351)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_352)"
+"(if(pair? lst_351)"
 "(let-values(((rhs_20)"
-"(unsafe-car lst_352))"
+"(unsafe-car lst_351))"
 "((rest_206)"
-"(unsafe-cdr lst_352)))"
+"(unsafe-cdr lst_351)))"
 "(let-values(((fold-var_317)"
 "(let-values(((fold-var_318)"
 " fold-var_316))"
@@ -63114,12 +63128,12 @@ static const char *startup_source =
 " fold-var_316)))))"
 " for-loop_284)"
 " null"
-" lst_351))))"
+" lst_350))))"
 "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((temp129_2)(list trans-idss_2 val-idss_3))"
-"((phase130_0) phase_142)"
+"((phase130_0) phase_144)"
 "((s131_0) s_89))"
 "(check-no-duplicate-ids8.1"
 " #f"
@@ -63130,26 +63144,26 @@ static const char *startup_source =
 " #f"
 " #f))"
 "(values))))"
-"(let-values(((counter_8)(root-expand-context-counter ctx_80)))"
+"(let-values(((counter_8)(root-expand-context-counter ctx_81)))"
 "(let-values(((trans-keyss_0)"
 "(reverse$1"
-"(let-values(((lst_353) trans-idss_2))"
+"(let-values(((lst_352) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_353)))"
+"(let-values()(check-list lst_352)))"
 "((letrec-values(((for-loop_285)"
-"(lambda(fold-var_320 lst_354)"
+"(lambda(fold-var_320 lst_353)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_354)"
-"(let-values(((ids_34)"
+"(if(pair? lst_353)"
+"(let-values(((ids_33)"
 "(unsafe-car"
-" lst_354))"
+" lst_353))"
 "((rest_207)"
 "(unsafe-cdr"
-" lst_354)))"
+" lst_353)))"
 "(let-values(((fold-var_321)"
 "(let-values(((fold-var_322)"
 " fold-var_320))"
@@ -63158,28 +63172,28 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_355)"
-" ids_34))"
+"(let-values(((lst_354)"
+" ids_33))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_355)))"
+" lst_354)))"
 "((letrec-values(((for-loop_286)"
 "(lambda(fold-var_324"
-" lst_356)"
+" lst_355)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_356)"
+" lst_355)"
 "(let-values(((id_115)"
 "(unsafe-car"
-" lst_356))"
+" lst_355))"
 "((rest_208)"
 "(unsafe-cdr"
-" lst_356)))"
+" lst_355)))"
 "(let-values(((fold-var_325)"
 "(let-values(((fold-var_98)"
 " fold-var_324))"
@@ -63197,7 +63211,7 @@ static const char *startup_source =
 " s145_1"
 " #t"
 " id_115"
-" phase_142"
+" phase_144"
 " counter_8)))"
 " fold-var_98))))"
 "(values"
@@ -63211,7 +63225,7 @@ static const char *startup_source =
 " fold-var_324)))))"
 " for-loop_286)"
 " null"
-" lst_355)))))"
+" lst_354)))))"
 " fold-var_322))))"
 "(values"
 " fold-var_323)))))"
@@ -63223,26 +63237,26 @@ static const char *startup_source =
 " fold-var_320)))))"
 " for-loop_285)"
 " null"
-" lst_353))))))"
+" lst_352))))))"
 "(let-values(((val-keyss_2)"
 "(reverse$1"
-"(let-values(((lst_357) val-idss_3))"
+"(let-values(((lst_356) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_357)))"
+"(let-values()(check-list lst_356)))"
 "((letrec-values(((for-loop_287)"
-"(lambda(fold-var_326 lst_358)"
+"(lambda(fold-var_326 lst_357)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_358)"
-"(let-values(((ids_35)"
+"(if(pair? lst_357)"
+"(let-values(((ids_34)"
 "(unsafe-car"
-" lst_358))"
+" lst_357))"
 "((rest_209)"
 "(unsafe-cdr"
-" lst_358)))"
+" lst_357)))"
 "(let-values(((fold-var_327)"
 "(let-values(((fold-var_328)"
 " fold-var_326))"
@@ -63251,28 +63265,28 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_359)"
-" ids_35))"
+"(let-values(((lst_358)"
+" ids_34))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_359)))"
+" lst_358)))"
 "((letrec-values(((for-loop_288)"
 "(lambda(fold-var_330"
-" lst_360)"
+" lst_359)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_360)"
+" lst_359)"
 "(let-values(((id_116)"
 "(unsafe-car"
-" lst_360))"
+" lst_359))"
 "((rest_210)"
 "(unsafe-cdr"
-" lst_360)))"
+" lst_359)))"
 "(let-values(((fold-var_331)"
 "(let-values(((fold-var_332)"
 " fold-var_330))"
@@ -63290,7 +63304,7 @@ static const char *startup_source =
 " s150_1"
 " #t"
 " id_116"
-" phase_142"
+" phase_144"
 " counter_8)))"
 " fold-var_332))))"
 "(values"
@@ -63304,7 +63318,7 @@ static const char *startup_source =
 " fold-var_330)))))"
 " for-loop_288)"
 " null"
-" lst_359)))))"
+" lst_358)))))"
 " fold-var_328))))"
 "(values"
 " fold-var_329)))))"
@@ -63316,27 +63330,27 @@ static const char *startup_source =
 " fold-var_326)))))"
 " for-loop_287)"
 " null"
-" lst_357))))))"
+" lst_356))))))"
 "(let-values(((bodys_10)"
 "(reverse$1"
-"(let-values(((lst_361)"
+"(let-values(((lst_360)"
 "(if syntaxes?_0 body94_0 body118_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_361)))"
+"(let-values()(check-list lst_360)))"
 "((letrec-values(((for-loop_289)"
-"(lambda(fold-var_334 lst_362)"
+"(lambda(fold-var_334 lst_361)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_362)"
+"(if(pair? lst_361)"
 "(let-values(((body_20)"
 "(unsafe-car"
-" lst_362))"
+" lst_361))"
 "((rest_211)"
 "(unsafe-cdr"
-" lst_362)))"
+" lst_361)))"
 "(let-values(((fold-var_335)"
 "(let-values(((fold-var_336)"
 " fold-var_334))"
@@ -63358,11 +63372,11 @@ static const char *startup_source =
 " fold-var_334)))))"
 " for-loop_289)"
 " null"
-" lst_361))))))"
+" lst_360))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_84)"
-"(expand-context-observer ctx_80)))"
+"(expand-context-observer ctx_81)))"
 "(if obs_84"
 "(let-values()"
 "(log-let-renames"
@@ -63383,7 +63397,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_85)"
 "(expand-context-observer"
-" ctx_80)))"
+" ctx_81)))"
 "(if obs_85"
 "(let-values()"
 "(let-values()"
@@ -63391,31 +63405,31 @@ static const char *startup_source =
 " obs_85"
 " 'prepare-env)))"
 "(void)))"
-"(prepare-next-phase-namespace ctx_80)))"
+"(prepare-next-phase-namespace ctx_81)))"
 "(void))"
 "(values))))"
 "(let-values(((trans-valss_0)"
 "(reverse$1"
-"(let-values(((lst_363)"
+"(let-values(((lst_362)"
 "(if syntaxes?_0 trans-rhs91_0 '()))"
-"((lst_364) trans-idss_2))"
+"((lst_363) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
+"(let-values()(check-list lst_362)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
 "(let-values()(check-list lst_363)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_364)))"
 "((letrec-values(((for-loop_290)"
 "(lambda(fold-var_338"
 " lst_231"
-" lst_365)"
+" lst_364)"
 "(begin"
 " 'for-loop"
 "(if(if(pair? lst_231)"
-"(pair? lst_365)"
+"(pair? lst_364)"
 " #f)"
 "(let-values(((rhs_19)"
 "(unsafe-car"
@@ -63423,12 +63437,12 @@ static const char *startup_source =
 "((rest_212)"
 "(unsafe-cdr"
 " lst_231))"
-"((ids_36)"
+"((ids_35)"
 "(unsafe-car"
-" lst_365))"
+" lst_364))"
 "((rest_213)"
 "(unsafe-cdr"
-" lst_365)))"
+" lst_364)))"
 "(let-values(((fold-var_339)"
 "(let-values(((fold-var_340)"
 " fold-var_338))"
@@ -63440,7 +63454,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_86)"
 "(expand-context-observer"
-" ctx_80)))"
+" ctx_81)))"
 "(if obs_86"
 "(let-values()"
 "(let-values()"
@@ -63458,12 +63472,12 @@ static const char *startup_source =
 "(add-scope"
 " rhs_19"
 " sc_7)"
-" ids_36"
-" ctx_80)))"
+" ids_35"
+" ctx_81)))"
 "(begin"
 "(let-values(((obs_79)"
 "(expand-context-observer"
-" ctx_80)))"
+" ctx_81)))"
 "(if obs_79"
 "(let-values()"
 "(let-values()"
@@ -63484,16 +63498,16 @@ static const char *startup_source =
 " fold-var_338)))))"
 " for-loop_290)"
 " null"
-" lst_363"
-" lst_364))))))"
+" lst_362"
+" lst_363))))))"
 "(let-values(((rec-val-env_0)"
-"(let-values(((lst_366) val-keyss_2)"
+"(let-values(((lst_365) val-keyss_2)"
 "((lst_120) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_366)))"
+"(let-values()(check-list lst_365)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
@@ -63513,7 +63527,7 @@ static const char *startup_source =
 "((rest_156)"
 "(unsafe-cdr"
 " lst_234))"
-"((ids_37)"
+"((ids_36)"
 "(unsafe-car"
 " lst_235))"
 "((rest_214)"
@@ -63522,40 +63536,40 @@ static const char *startup_source =
 "(let-values(((env_6)"
 "(let-values(((env_30)"
 " env_29))"
-"(let-values(((lst_326)"
+"(let-values(((lst_325)"
 " keys_10)"
-"((lst_327)"
-" ids_37))"
+"((lst_326)"
+" ids_36))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_325)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_326)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_327)))"
 "((letrec-values(((for-loop_292)"
 "(lambda(env_31"
-" lst_367"
+" lst_366"
 " lst_238)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_367)"
+" lst_366)"
 "(pair?"
 " lst_238)"
 " #f)"
 "(let-values(((key_93)"
 "(unsafe-car"
-" lst_367))"
+" lst_366))"
 "((rest_215)"
 "(unsafe-cdr"
-" lst_367))"
+" lst_366))"
 "((id_117)"
 "(unsafe-car"
 " lst_238))"
@@ -63584,8 +63598,8 @@ static const char *startup_source =
 " env_31)))))"
 " for-loop_292)"
 " env_30"
-" lst_326"
-" lst_327))))))"
+" lst_325"
+" lst_326))))))"
 "(if(not #f)"
 "(for-loop_291"
 " env_6"
@@ -63594,39 +63608,39 @@ static const char *startup_source =
 " env_6)))"
 " env_29)))))"
 " for-loop_291)"
-"(expand-context-env ctx_80)"
-" lst_366"
+"(expand-context-env ctx_81)"
+" lst_365"
 " lst_120)))))"
 "(let-values(((rec-env_0)"
-"(let-values(((lst_368) trans-keyss_0)"
-"((lst_369) trans-valss_0)"
-"((lst_370) trans-idss_2))"
+"(let-values(((lst_367) trans-keyss_0)"
+"((lst_368) trans-valss_0)"
+"((lst_369) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
+"(let-values()(check-list lst_367)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
 "(let-values()(check-list lst_368)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_369)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_370)))"
 "((letrec-values(((for-loop_293)"
 "(lambda(env_35"
 " lst_241"
-" lst_371"
-" lst_372)"
+" lst_370"
+" lst_371)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
 " lst_241)"
 "(if(pair?"
-" lst_371)"
+" lst_370)"
 "(pair?"
-" lst_372)"
+" lst_371)"
 " #f)"
 " #f)"
 "(let-values(((keys_11)"
@@ -63637,16 +63651,16 @@ static const char *startup_source =
 " lst_241))"
 "((vals_9)"
 "(unsafe-car"
-" lst_371))"
+" lst_370))"
 "((rest_217)"
 "(unsafe-cdr"
-" lst_371))"
-"((ids_38)"
+" lst_370))"
+"((ids_37)"
 "(unsafe-car"
-" lst_372))"
+" lst_371))"
 "((rest_218)"
 "(unsafe-cdr"
-" lst_372)))"
+" lst_371)))"
 "(let-values(((env_36)"
 "(let-values(((env_37)"
 " env_35))"
@@ -63654,10 +63668,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((lst_121)"
 " keys_11)"
-"((lst_373)"
+"((lst_372)"
 " vals_9)"
-"((lst_374)"
-" ids_38))"
+"((lst_373)"
+" ids_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -63670,46 +63684,46 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_373)))"
+" lst_372)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_374)))"
+" lst_373)))"
 "((letrec-values(((for-loop_294)"
 "(lambda(env_39"
+" lst_374"
 " lst_375"
-" lst_376"
-" lst_377)"
+" lst_376)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_375)"
+" lst_374)"
 "(if(pair?"
-" lst_376)"
+" lst_375)"
 "(pair?"
-" lst_377)"
+" lst_376)"
 " #f)"
 " #f)"
 "(let-values(((key_94)"
 "(unsafe-car"
-" lst_375))"
+" lst_374))"
 "((rest_219)"
 "(unsafe-cdr"
-" lst_375))"
+" lst_374))"
 "((val_84)"
 "(unsafe-car"
-" lst_376))"
+" lst_375))"
 "((rest_220)"
 "(unsafe-cdr"
-" lst_376))"
+" lst_375))"
 "((id_118)"
 "(unsafe-car"
-" lst_377))"
+" lst_376))"
 "((rest_221)"
 "(unsafe-cdr"
-" lst_377)))"
+" lst_376)))"
 "(let-values(((env_40)"
 "(let-values(((env_41)"
 " env_39))"
@@ -63719,8 +63733,8 @@ static const char *startup_source =
 "(maybe-install-free=id-in-context!"
 " val_84"
 " id_118"
-" phase_142"
-" ctx_80)"
+" phase_144"
+" ctx_81)"
 "(env-extend"
 " env_41"
 " key_94"
@@ -63739,8 +63753,8 @@ static const char *startup_source =
 " for-loop_294)"
 " env_37"
 " lst_121"
-" lst_373"
-" lst_374))))))"
+" lst_372"
+" lst_373))))))"
 "(values"
 " env_38)))))"
 "(if(not #f)"
@@ -63753,24 +63767,24 @@ static const char *startup_source =
 " env_35)))))"
 " for-loop_293)"
 " rec-val-env_0"
+" lst_367"
 " lst_368"
-" lst_369"
-" lst_370)))))"
-"(let-values(((expr-ctx_0)(as-expression-context ctx_80)))"
+" lst_369)))))"
+"(let-values(((expr-ctx_0)(as-expression-context ctx_81)))"
 "(let-values(((orig-rrs_0)"
 "(expand-context-reference-records"
 " expr-ctx_0)))"
 "(let-values(((rec-ctx_0)"
-"(let-values(((v_255) expr-ctx_0))"
-"(let-values(((the-struct_96) v_255))"
+"(let-values(((v_253) expr-ctx_0))"
+"(let-values(((the-struct_97) v_253))"
 "(if(expand-context/outer?"
-" the-struct_96)"
+" the-struct_97)"
 "(let-values(((env151_1) rec-env_0)"
 "((scopes152_0)"
 "(cons"
 " sc_7"
 "(expand-context-scopes"
-" ctx_80)))"
+" ctx_81)))"
 "((reference-records153_0)"
 "(if split-by-reference?_0"
 "(cons"
@@ -63782,46 +63796,46 @@ static const char *startup_source =
 "(cons"
 " trans-idss_2"
 " val-idss_3)"
-" ctx_80"
+" ctx_81"
 " sc_7))"
 "((inner155_1)"
 "(root-expand-context/outer-inner"
-" v_255)))"
+" v_253)))"
 "(expand-context/outer1.1"
 " inner155_1"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_96)"
+" the-struct_97)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_96)"
+" the-struct_97)"
 "(root-expand-context/outer-frame-id"
-" the-struct_96)"
+" the-struct_97)"
 "(expand-context/outer-context"
-" the-struct_96)"
+" the-struct_97)"
 " env151_1"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_96)"
+" the-struct_97)"
 " scopes152_0"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_96)"
+" the-struct_97)"
 " binding-layer154_0"
 " reference-records153_0"
 "(expand-context/outer-only-immediate?"
-" the-struct_96)"
+" the-struct_97)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_96)"
+" the-struct_97)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_96)"
+" the-struct_97)"
 "(expand-context/outer-name"
-" the-struct_96)))"
+" the-struct_97)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                     \"expand-context/outer?\""
-" the-struct_96))))))"
+" the-struct_97))))))"
 "(let-values(((letrec-values-id_0)"
 "(if(not"
-"(expand-context-to-parsed? ctx_80))"
+"(expand-context-to-parsed? ctx_81))"
 "(if syntaxes?_0"
-"(core-id 'letrec-values phase_142)"
+"(core-id 'letrec-values phase_144)"
 " let-values115_0)"
 " #f)))"
 "(let-values(((rebuild-s_6)"
@@ -63833,33 +63847,33 @@ static const char *startup_source =
 " #t"
 " #f"
 " #f"
-" ctx_80"
+" ctx_81"
 " s_89))))"
 "(let-values(((val-name-idss_0)"
 "(if(expand-context-to-parsed?"
-" ctx_80)"
+" ctx_81)"
 "(reverse$1"
-"(let-values(((lst_378)"
+"(let-values(((lst_377)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_378)))"
+"(check-list lst_377)))"
 "((letrec-values(((for-loop_295)"
 "(lambda(fold-var_106"
-" lst_379)"
+" lst_378)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_379)"
+" lst_378)"
 "(let-values(((val-ids_1)"
 "(unsafe-car"
-" lst_379))"
+" lst_378))"
 "((rest_222)"
 "(unsafe-cdr"
-" lst_379)))"
+" lst_378)))"
 "(let-values(((fold-var_342)"
 "(let-values(((fold-var_343)"
 " fold-var_106))"
@@ -63868,7 +63882,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_380)"
+"(let-values(((lst_379)"
 " val-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63876,20 +63890,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_380)))"
+" lst_379)))"
 "((letrec-values(((for-loop_296)"
 "(lambda(fold-var_345"
-" lst_381)"
+" lst_380)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_381)"
+" lst_380)"
 "(let-values(((val-id_0)"
 "(unsafe-car"
-" lst_381))"
+" lst_380))"
 "((rest_223)"
 "(unsafe-cdr"
-" lst_381)))"
+" lst_380)))"
 "(let-values(((fold-var_109)"
 "(let-values(((fold-var_346)"
 " fold-var_345))"
@@ -63915,7 +63929,7 @@ static const char *startup_source =
 " fold-var_345)))))"
 " for-loop_296)"
 " null"
-" lst_380)))))"
+" lst_379)))))"
 " fold-var_343))))"
 "(values"
 " fold-var_344)))))"
@@ -63928,7 +63942,7 @@ static const char *startup_source =
 " fold-var_106)))))"
 " for-loop_295)"
 " null"
-" lst_378))))"
+" lst_377))))"
 " val-idss_3)))"
 "(let-values((()"
 "(begin"
@@ -63936,7 +63950,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((obs_87)"
 "(expand-context-observer"
-" ctx_80)))"
+" ctx_81)))"
 "(if obs_87"
 "(let-values()"
 "(log-letrec-values"
@@ -63955,7 +63969,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_88)"
 "(expand-context-observer"
-" ctx_80)))"
+" ctx_81)))"
 "(if obs_88"
 "(let-values()"
 "(if(not"
@@ -63971,53 +63985,53 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_5)"
-"(let-values(((v_256)"
+"(let-values(((v_254)"
 " rec-ctx_0))"
-"(let-values(((the-struct_97)"
-" v_256))"
+"(let-values(((the-struct_98)"
+" v_254))"
 "(if(expand-context/outer?"
-" the-struct_97)"
+" the-struct_98)"
 "(let-values(((reference-records162_0)"
 " orig-rrs_0)"
 "((inner163_0)"
 "(root-expand-context/outer-inner"
-" v_256)))"
+" v_254)))"
 "(expand-context/outer1.1"
 " inner163_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_97)"
+" the-struct_98)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_97)"
+" the-struct_98)"
 "(root-expand-context/outer-frame-id"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-context"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-env"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-scopes"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-binding-layer"
-" the-struct_97)"
+" the-struct_98)"
 " reference-records162_0"
 "(expand-context/outer-only-immediate?"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_97)"
+" the-struct_98)"
 "(expand-context/outer-name"
-" the-struct_97)))"
+" the-struct_98)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                   \"expand-context/outer?\""
-" the-struct_97))))))"
+" the-struct_98))))))"
 "(let-values(((temp160_2)"
 "(let-values(((ctx165_0)"
-" ctx_80))"
+" ctx_81))"
 "(as-tail-context23.1"
 " ctx165_0"
 " body-ctx_5)))"
@@ -64035,11 +64049,11 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((clauses_2)"
 "(reverse$1"
-"(let-values(((lst_382)"
+"(let-values(((lst_381)"
 " val-name-idss_0)"
-"((lst_383)"
+"((lst_382)"
 " val-keyss_2)"
-"((lst_384)"
+"((lst_383)"
 " val-rhss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -64047,6 +64061,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_381)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_382)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -64054,45 +64074,39 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_383)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_384)))"
 "((letrec-values(((for-loop_158)"
 "(lambda(fold-var_116"
+" lst_384"
 " lst_385"
-" lst_386"
-" lst_387)"
+" lst_386)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_385)"
+" lst_384)"
 "(if(pair?"
-" lst_386)"
+" lst_385)"
 "(pair?"
-" lst_387)"
+" lst_386)"
 " #f)"
 " #f)"
-"(let-values(((ids_39)"
+"(let-values(((ids_38)"
 "(unsafe-car"
-" lst_385))"
+" lst_384))"
 "((rest_224)"
 "(unsafe-cdr"
-" lst_385))"
+" lst_384))"
 "((keys_12)"
 "(unsafe-car"
-" lst_386))"
+" lst_385))"
 "((rest_225)"
 "(unsafe-cdr"
-" lst_386))"
+" lst_385))"
 "((rhs_21)"
 "(unsafe-car"
-" lst_387))"
+" lst_386))"
 "((rest_226)"
 "(unsafe-cdr"
-" lst_387)))"
+" lst_386)))"
 "(let-values(((fold-var_348)"
 "(let-values(((fold-var_119)"
 " fold-var_116))"
@@ -64104,7 +64118,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_89)"
 "(expand-context-observer"
-" ctx_80)))"
+" ctx_81)))"
 "(if obs_89"
 "(let-values()"
 "(let-values()"
@@ -64120,10 +64134,10 @@ static const char *startup_source =
 "(if rec?_1"
 "(as-named-context"
 " rec-ctx_0"
-" ids_39)"
+" ids_38)"
 "(as-named-context"
 " expr-ctx_0"
-" ids_39))))"
+" ids_38))))"
 "(expand7.1"
 " #f"
 " #f"
@@ -64132,12 +64146,12 @@ static const char *startup_source =
 " rhs166_0"
 " temp167_1))))"
 "(if(expand-context-to-parsed?"
-" ctx_80)"
+" ctx_81)"
 "(list"
 " keys_12"
 " exp-rhs_4)"
 "(list"
-" ids_39"
+" ids_38"
 " exp-rhs_4)))))"
 " fold-var_119))))"
 "(values"
@@ -64153,9 +64167,9 @@ static const char *startup_source =
 " fold-var_116)))))"
 " for-loop_158)"
 " null"
+" lst_381"
 " lst_382"
-" lst_383"
-" lst_384))))))"
+" lst_383))))))"
 "(let-values(((exp-body_4)"
 "(get-body_1)))"
 "(begin"
@@ -64165,7 +64179,7 @@ static const char *startup_source =
 " frame-id_15))"
 "(void))"
 "(if(expand-context-to-parsed?"
-" ctx_80)"
+" ctx_81)"
 "(if rec?_1"
 "(parsed-letrec-values18.1"
 " rebuild-s_6"
@@ -64192,7 +64206,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((temp173_0)"
 "(reverse$1"
-"(let-values(((lst_388)"
+"(let-values(((lst_387)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -64200,20 +64214,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_388)))"
+" lst_387)))"
 "((letrec-values(((for-loop_297)"
 "(lambda(fold-var_349"
-" lst_389)"
+" lst_388)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_389)"
+" lst_388)"
 "(let-values(((rhs_22)"
 "(unsafe-car"
-" lst_389))"
+" lst_388))"
 "((rest_227)"
 "(unsafe-cdr"
-" lst_389)))"
+" lst_388)))"
 "(let-values(((fold-var_350)"
 "(let-values(((fold-var_351)"
 " fold-var_349))"
@@ -64234,7 +64248,7 @@ static const char *startup_source =
 " fold-var_349)))))"
 " for-loop_297)"
 " null"
-" lst_388)))))"
+" lst_387)))))"
 "((temp174_0)"
 " #t)"
 "((frame-id175_0)"
@@ -64261,7 +64275,7 @@ static const char *startup_source =
 " val-keyss_2"
 " val-rhss_3"
 " temp173_0))))))"
-"(if(expand-context-to-parsed? ctx_80)"
+"(if(expand-context-to-parsed? ctx_81)"
 " result-s_12"
 "(attach-disappeared-transformer-bindings"
 " result-s_12"
@@ -64273,23 +64287,23 @@ static const char *startup_source =
 "(let-values(((vals+body_0)"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_390) val-idss_4)((lst_59) val-rhss_4))"
+"(let-values(((lst_389) val-idss_4)((lst_59) val-rhss_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_390)))"
+"(let-values()(check-list lst_389)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_59)))"
 "((letrec-values(((for-loop_298)"
-"(lambda(fold-var_353 lst_391 lst_392)"
+"(lambda(fold-var_353 lst_390 lst_391)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_391)(pair? lst_392) #f)"
-"(let-values(((val-ids_2)(unsafe-car lst_391))"
-"((rest_228)(unsafe-cdr lst_391))"
-"((val-rhs_11)(unsafe-car lst_392))"
-"((rest_229)(unsafe-cdr lst_392)))"
+"(if(if(pair? lst_390)(pair? lst_391) #f)"
+"(let-values(((val-ids_2)(unsafe-car lst_390))"
+"((rest_228)(unsafe-cdr lst_390))"
+"((val-rhs_11)(unsafe-car lst_391))"
+"((rest_229)(unsafe-cdr lst_391)))"
 "(let-values(((fold-var_354)"
 "(let-values(((fold-var_355) fold-var_353))"
 "(let-values(((fold-var_356)"
@@ -64307,7 +64321,7 @@ static const char *startup_source =
 " fold-var_353)))))"
 " for-loop_298)"
 " null"
-" lst_390"
+" lst_389"
 " lst_59))))"
 "(datum->syntax$1 #f bodys_11))))"
 "(call-expand-observe"
@@ -64317,23 +64331,23 @@ static const char *startup_source =
 " vals+body_0"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_62) trans-idss_3)((lst_393) trans-rhss_0))"
+"(let-values(((lst_62) trans-idss_3)((lst_392) trans-rhss_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_62)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_393)))"
+"(let-values()(check-list lst_392)))"
 "((letrec-values(((for-loop_299)"
-"(lambda(fold-var_357 lst_394 lst_395)"
+"(lambda(fold-var_357 lst_393 lst_394)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_394)(pair? lst_395) #f)"
-"(let-values(((trans-ids_0)(unsafe-car lst_394))"
-"((rest_230)(unsafe-cdr lst_394))"
-"((trans-rhs_5)(unsafe-car lst_395))"
-"((rest_231)(unsafe-cdr lst_395)))"
+"(if(if(pair? lst_393)(pair? lst_394) #f)"
+"(let-values(((trans-ids_0)(unsafe-car lst_393))"
+"((rest_230)(unsafe-cdr lst_393))"
+"((trans-rhs_5)(unsafe-car lst_394))"
+"((rest_231)(unsafe-cdr lst_394)))"
 "(let-values(((fold-var_122)"
 "(let-values(((fold-var_358) fold-var_357))"
 "(let-values(((fold-var_359)"
@@ -64352,7 +64366,7 @@ static const char *startup_source =
 " for-loop_299)"
 " null"
 " lst_62"
-" lst_393))))"
+" lst_392))))"
 " vals+body_0)))))))"
 "(define-values"
 "(log-letrec-values)"
@@ -64387,10 +64401,10 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " '#%stratified-body"
-"(lambda(s_523 ctx_81)"
+"(lambda(s_523 ctx_82)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_92)(expand-context-observer ctx_81)))"
+"(let-values(((obs_92)(expand-context-observer ctx_82)))"
 "(if obs_92"
 "(let-values()(let-values()(call-expand-observe obs_92 'prim-#%stratified)))"
 "(void)))"
@@ -64398,7 +64412,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_9)(syntax-disarm$1 s_523)))"
 "(let-values(((ok?_39 #%stratified-body189_0 body190_0)"
 "(let-values(((s_524) disarmed-s_9))"
-"(let-values(((orig-s_47) s_524))"
+"(let-values(((orig-s_46) s_524))"
 "(let-values(((#%stratified-body189_1 body190_1)"
 "(let-values(((s_525)(if(syntax?$1 s_524)(syntax-e$1 s_524) s_524)))"
 "(if(pair? s_525)"
@@ -64413,50 +64427,50 @@ static const char *startup_source =
 "(let-values(((flat-s_39)(to-syntax-list.1 s_528)))"
 "(if(not flat-s_39)"
 "(let-values()"
-"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))"
+"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))"
 "(if(null? flat-s_39)"
 "(let-values()"
-"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))"
+"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))"
 "(let-values() flat-s_39))))))))"
 "(values #%stratified-body191_0 body192_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))"
 "(values #t #%stratified-body189_1 body190_1))))))"
 "(let-values(((rebuild-s_7)"
-"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_81 s_523))))"
+"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_82 s_523))))"
 "(let-values(((exp-body_5)"
 "(let-values(((temp196_0) body190_0)"
-"((ctx197_0) ctx_81)"
+"((ctx197_0) ctx_82)"
 "((temp198_1) #t)"
 "((rebuild-s199_0) rebuild-s_7))"
 "(expand-body7.1 rebuild-s199_0 temp198_1 #t temp196_0 ctx197_0))))"
-"(if(expand-context-to-parsed? ctx_81)"
+"(if(expand-context-to-parsed? ctx_82)"
 "(parsed-begin12.1 rebuild-s_7 exp-body_5)"
 "(let-values(((rebuild-s200_0) rebuild-s_7)"
 "((temp201_1)"
 "(if(null?(cdr exp-body_5))"
 "(car exp-body_5)"
-"(list*(core-id 'begin(expand-context-phase ctx_81)) exp-body_5))))"
+"(list*(core-id 'begin(expand-context-phase ctx_82)) exp-body_5))))"
 "(rebuild5.1 #f #f rebuild-s200_0 temp201_1)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%datum"
-"(lambda(s_529 ctx_82)"
+"(lambda(s_529 ctx_83)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_93)(expand-context-observer ctx_82)))"
+"(let-values(((obs_93)(expand-context-observer ctx_83)))"
 "(if obs_93(let-values()(let-values()(call-expand-observe obs_93 'prim-#%datum)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_10)(syntax-disarm$1 s_529)))"
 "(let-values(((ok?_40 #%datum202_0 datum203_0)"
 "(let-values(((s_192) disarmed-s_10))"
-"(let-values(((orig-s_48) s_192))"
+"(let-values(((orig-s_47) s_192))"
 "(let-values(((#%datum202_1 datum203_1)"
 "(let-values(((s_530)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))"
 "(if(pair? s_530)"
 "(let-values(((#%datum204_0)(let-values(((s_531)(car s_530))) s_531))"
 "((datum205_0)(let-values(((s_532)(cdr s_530))) s_532)))"
 "(values #%datum204_0 datum205_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))"
 "(values #t #%datum202_1 datum203_1))))))"
 "(let-values(((datum_2) datum203_0))"
 "(let-values((()"
@@ -64466,24 +64480,24 @@ static const char *startup_source =
 "                                 (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))"
 "(void))"
 "(values))))"
-"(let-values(((phase_143)(expand-context-phase ctx_82)))"
-"(if(if(expand-context-to-parsed? ctx_82)(free-id-set-empty?(expand-context-stops ctx_82)) #f)"
+"(let-values(((phase_145)(expand-context-phase ctx_83)))"
+"(if(if(expand-context-to-parsed? ctx_83)(free-id-set-empty?(expand-context-stops ctx_83)) #f)"
 "(parsed-quote14.1(keep-properties-only~ s_529)(syntax->datum$1 datum_2))"
-"(let-values(((s206_0) s_529)((temp207_0)(list(core-id 'quote phase_143) datum_2)))"
+"(let-values(((s206_0) s_529)((temp207_0)(list(core-id 'quote phase_145) datum_2)))"
 "(rebuild5.1 #f #f s206_0 temp207_0))))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%app"
-"(lambda(s_533 ctx_83)"
+"(lambda(s_533 ctx_84)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_94)(expand-context-observer ctx_83)))"
+"(let-values(((obs_94)(expand-context-observer ctx_84)))"
 "(if obs_94(let-values()(let-values()(call-expand-observe obs_94 'prim-#%app)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_11)(syntax-disarm$1 s_533)))"
 "(let-values(((ok?_41 #%app208_0 e209_0)"
 "(let-values(((s_534) disarmed-s_11))"
-"(let-values(((orig-s_49) s_534))"
+"(let-values(((orig-s_48) s_534))"
 "(let-values(((#%app208_1 e209_1)"
 "(let-values(((s_535)(if(syntax?$1 s_534)(syntax-e$1 s_534) s_534)))"
 "(if(pair? s_535)"
@@ -64497,31 +64511,31 @@ static const char *startup_source =
 "(let-values(((flat-s_40)(to-syntax-list.1 s_538)))"
 "(if(not flat-s_40)"
 "(let-values()"
-"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))"
+"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))"
 "(let-values() flat-s_40)))))))"
 "(values #%app210_0 e211_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))"
 "(values #t #%app208_1 e209_1))))))"
 "(let-values(((es_3) e209_0))"
 "(if(null? es_3)"
 "(let-values()"
-"(let-values(((phase_144)(expand-context-phase ctx_83)))"
-"(if(expand-context-to-parsed? ctx_83)"
+"(let-values(((phase_146)(expand-context-phase ctx_84)))"
+"(if(expand-context-to-parsed? ctx_84)"
 "(parsed-quote14.1(keep-properties-only~ s_533) null)"
-"(let-values(((s212_0) s_533)((temp213_1)(list(core-id 'quote phase_144) null)))"
+"(let-values(((s212_0) s_533)((temp213_1)(list(core-id 'quote phase_146) null)))"
 "(rebuild5.1 #f #f s212_0 temp213_1)))))"
 "(let-values()"
 "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))"
 "(let-values(((rebuild-s_8)"
 "(let-values(((keep-for-parsed?216_0) keep-for-parsed?_1))"
-"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_83 s_533))))"
+"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_84 s_533))))"
 "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))"
 "(let-values(((rebuild-prefixless_0)"
 "(if(syntax?$1 prefixless_0)"
 "(let-values(((keep-for-parsed?219_0) keep-for-parsed?_1))"
-"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_83 prefixless_0))"
+"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_84 prefixless_0))"
 " #f)))"
-"(let-values(((expr-ctx_1)(as-expression-context ctx_83)))"
+"(let-values(((expr-ctx_1)(as-expression-context ctx_84)))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_95)(expand-context-observer expr-ctx_1)))"
@@ -64542,19 +64556,19 @@ static const char *startup_source =
 "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))"
 "(let-values(((exp-es_0)"
 "(reverse$1"
-"(let-values(((lst_396) rest-es_0))"
+"(let-values(((lst_395) rest-es_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_396)))"
+"(let-values()(check-list lst_395)))"
 "((letrec-values(((for-loop_300)"
-"(lambda(fold-var_56 lst_397)"
+"(lambda(fold-var_56 lst_396)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_397)"
-"(let-values(((e_85)(unsafe-car lst_397))"
+"(if(pair? lst_396)"
+"(let-values(((e_85)(unsafe-car lst_396))"
 "((rest_232)"
-"(unsafe-cdr lst_397)))"
+"(unsafe-cdr lst_396)))"
 "(let-values(((fold-var_360)"
 "(let-values(((fold-var_361)"
 " fold-var_56))"
@@ -64593,12 +64607,12 @@ static const char *startup_source =
 " fold-var_56)))))"
 " for-loop_300)"
 " null"
-" lst_396))))))"
-"(if(expand-context-to-parsed? ctx_83)"
+" lst_395))))))"
+"(if(expand-context-to-parsed? ctx_84)"
 "(let-values()"
 "(parsed-app7.1"
-"(let-values(((or-part_373) rebuild-prefixless_0))"
-"(if or-part_373 or-part_373 rebuild-s_8))"
+"(let-values(((or-part_374) rebuild-prefixless_0))"
+"(if or-part_374 or-part_374 rebuild-s_8))"
 " exp-rator_0"
 " exp-es_0))"
 "(let-values()"
@@ -64625,15 +64639,15 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " 'quote"
-"(lambda(s_539 ctx_84)"
+"(lambda(s_539 ctx_85)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_98)(expand-context-observer ctx_84)))"
+"(let-values(((obs_98)(expand-context-observer ctx_85)))"
 "(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-quote)))(void)))"
 "(values))))"
 "(let-values(((ok?_42 quote228_0 datum229_0)"
 "(let-values(((s_540)(syntax-disarm$1 s_539)))"
-"(let-values(((orig-s_50) s_540))"
+"(let-values(((orig-s_49) s_540))"
 "(let-values(((quote228_1 datum229_1)"
 "(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))"
 "(if(pair? s_541)"
@@ -64658,22 +64672,22 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"bad syntax\""
-" orig-s_50))))))"
+" orig-s_49))))))"
 "(values datum232_0))"
-"                                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))))))"
+"                                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))))))"
 "(values quote230_0 datum231_0))"
-"                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))"
+"                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))"
 "(values #t quote228_1 datum229_1))))))"
-"(if(expand-context-to-parsed? ctx_84)"
+"(if(expand-context-to-parsed? ctx_85)"
 "(parsed-quote14.1(keep-properties-only~ s_539)(syntax->datum$1 datum229_0))"
 " s_539))))))"
 "(void"
 "(add-core-form!*"
 " 'quote-syntax"
-"(lambda(s_548 ctx_85)"
+"(lambda(s_548 ctx_86)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_99)(expand-context-observer ctx_85)))"
+"(let-values(((obs_99)(expand-context-observer ctx_86)))"
 "(if obs_99"
 "(let-values()(let-values()(call-expand-observe obs_99 'prim-quote-syntax)))"
 "(void)))"
@@ -64754,7 +64768,7 @@ static const char *startup_source =
 "(let-values(((ok?_44 quote-syntax238_0 datum239_0)"
 "(let-values(((s_572) disarmed-s_12))"
 "(if(if(not ok?_43) #t #f)"
-"(let-values(((orig-s_51) s_572))"
+"(let-values(((orig-s_50) s_572))"
 "(let-values(((quote-syntax238_1 datum239_1)"
 "(let-values(((s_573)(if(syntax?$1 s_572)(syntax-e$1 s_572) s_572)))"
 "(if(pair? s_573)"
@@ -64781,25 +64795,25 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
-" orig-s_51))))))"
+" orig-s_50))))))"
 "(values datum242_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
-" orig-s_51))))))"
+" orig-s_50))))))"
 "(values quote-syntax240_0 datum241_0))"
-"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))"
+"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))"
 "(values #t quote-syntax238_1 datum239_1)))"
 "(values #f #f #f)))))"
 "(if ok?_43"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(reference-records-all-used!(expand-context-reference-records ctx_85))"
+"(reference-records-all-used!(expand-context-reference-records ctx_86))"
 "(values))))"
 "(let-values(((ok?_45 _243_0 _244_0 kw245_0)"
 "(let-values(((s_272) disarmed-s_12))"
-"(let-values(((orig-s_52) s_272))"
+"(let-values(((orig-s_51) s_272))"
 "(let-values(((_243_1 _244_1 kw245_1)"
 "(let-values(((s_274)"
 "(if(syntax?$1 s_272)(syntax-e$1 s_272) s_272)))"
@@ -64848,37 +64862,37 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                    \"bad syntax\""
-" orig-s_52))))))"
+" orig-s_51))))))"
 "(values kw251_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                \"bad syntax\""
-" orig-s_52))))))"
+" orig-s_51))))))"
 "(values _249_0 kw250_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                            \"bad syntax\""
-" orig-s_52))))))"
+" orig-s_51))))))"
 "(values _246_0 _247_0 kw248_0))"
-"                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))"
+"                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))"
 "(values #t _243_1 _244_1 kw245_1))))))"
-"(if(expand-context-to-parsed? ctx_85)"
+"(if(expand-context-to-parsed? ctx_86)"
 "(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum234_0)"
 "(let-values(((s252_0) s_548)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))"
 "(rebuild5.1 #f #f s252_0 temp253_1))))))"
 "(let-values()"
-"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_85))))"
-"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)"
+"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_86))))"
+"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)"
 "(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum-s_0)"
 "(let-values(((s254_0) s_548)((temp255_0)(list quote-syntax238_0 datum-s_0)))"
 "(rebuild5.1 #f #f s254_0 temp255_0)))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'if"
-"(lambda(s_279 ctx_86)"
+"(lambda(s_279 ctx_87)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_100)(expand-context-observer ctx_86)))"
+"(let-values(((obs_100)(expand-context-observer ctx_87)))"
 "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-if)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_13)(syntax-disarm$1 s_279)))"
@@ -64952,7 +64966,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ok?_47 if265_0 tst266_0 thn267_0 els268_0)"
 "(let-values(((s_603) disarmed-s_13))"
-"(let-values(((orig-s_53) s_603))"
+"(let-values(((orig-s_52) s_603))"
 "(let-values(((if265_1 tst266_1 thn267_1 els268_1)"
 "(let-values(((s_604)(if(syntax?$1 s_603)(syntax-e$1 s_603) s_603)))"
 "(if(pair? s_604)"
@@ -65012,38 +65026,38 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                  \"bad syntax\""
-" orig-s_53))))))"
+" orig-s_52))))))"
 "(values"
 " els278_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                              \"bad syntax\""
-" orig-s_53))))))"
+" orig-s_52))))))"
 "(values thn276_0 els277_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
-" orig-s_53))))))"
+" orig-s_52))))))"
 "(values tst273_0 thn274_0 els275_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
-" orig-s_53))))))"
+" orig-s_52))))))"
 "(values if269_0 tst270_0 thn271_0 els272_0))"
-"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))"
+"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))"
 "(values #t if265_1 tst266_1 thn267_1 els268_1))))))"
-"(let-values(((expr-ctx_2)(as-expression-context ctx_86)))"
+"(let-values(((expr-ctx_2)(as-expression-context ctx_87)))"
 "(let-values(((tail-ctx_0)"
-"(let-values(((ctx280_0) ctx_86))(as-tail-context23.1 ctx280_0 expr-ctx_2))))"
+"(let-values(((ctx280_0) ctx_87))(as-tail-context23.1 ctx280_0 expr-ctx_2))))"
 "(let-values(((rebuild-s_9)"
-"(let-values(((ctx281_0) ctx_86)((s282_0) s_279))"
+"(let-values(((ctx281_0) ctx_87)((s282_0) s_279))"
 "(keep-as-needed74.1 #f #f #f #f #f #f ctx281_0 s282_0))))"
 "(let-values(((exp-tst_0)"
 "(let-values(((temp283_0) tst266_0)((expr-ctx284_0) expr-ctx_2))"
 "(expand7.1 #f #f #f #f temp283_0 expr-ctx284_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_101)(expand-context-observer ctx_86)))"
+"(let-values(((obs_101)(expand-context-observer ctx_87)))"
 "(if obs_101"
 "(let-values()(let-values()(call-expand-observe obs_101 'next)))"
 "(void)))"
@@ -65053,7 +65067,7 @@ static const char *startup_source =
 "(expand7.1 #f #f #f #f temp285_0 tail-ctx286_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_102)(expand-context-observer ctx_86)))"
+"(let-values(((obs_102)(expand-context-observer ctx_87)))"
 "(if obs_102"
 "(let-values()(let-values()(call-expand-observe obs_102 'next)))"
 "(void)))"
@@ -65061,7 +65075,7 @@ static const char *startup_source =
 "(let-values(((exp-els_0)"
 "(let-values(((temp287_0) els268_0)((tail-ctx288_0) tail-ctx_0))"
 "(expand7.1 #f #f #f #f temp287_0 tail-ctx288_0))))"
-"(if(expand-context-to-parsed? ctx_86)"
+"(if(expand-context-to-parsed? ctx_87)"
 "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)"
 "(let-values(((rebuild-s289_0) rebuild-s_9)"
 "((temp290_0)(list if265_0 exp-tst_0 exp-thn_0 exp-els_0)))"
@@ -65069,10 +65083,10 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " 'with-continuation-mark"
-"(lambda(s_616 ctx_87)"
+"(lambda(s_616 ctx_88)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_103)(expand-context-observer ctx_87)))"
+"(let-values(((obs_103)(expand-context-observer ctx_88)))"
 "(if obs_103"
 "(let-values()(let-values()(call-expand-observe obs_103 'prim-with-continuation-mark)))"
 "(void)))"
@@ -65080,7 +65094,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_14)(syntax-disarm$1 s_616)))"
 "(let-values(((ok?_48 with-continuation-mark291_0 key292_0 val293_0 body294_0)"
 "(let-values(((s_617) disarmed-s_14))"
-"(let-values(((orig-s_54) s_617))"
+"(let-values(((orig-s_53) s_617))"
 "(let-values(((with-continuation-mark291_1 key292_1 val293_1 body294_1)"
 "(let-values(((s_618)(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))"
 "(if(pair? s_618)"
@@ -65140,33 +65154,33 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                              \"bad syntax\""
-" orig-s_54))))))"
+" orig-s_53))))))"
 "(values"
 " body304_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
-" orig-s_54))))))"
+" orig-s_53))))))"
 "(values val302_0 body303_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
-" orig-s_54))))))"
+" orig-s_53))))))"
 "(values key299_0 val300_0 body301_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_54))))))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_53))))))"
 "(values with-continuation-mark295_0 key296_0 val297_0 body298_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))"
 "(values #t with-continuation-mark291_1 key292_1 val293_1 body294_1))))))"
-"(let-values(((expr-ctx_3)(as-expression-context ctx_87)))"
+"(let-values(((expr-ctx_3)(as-expression-context ctx_88)))"
 "(let-values(((rebuild-s_10)"
-"(let-values(((ctx305_0) ctx_87)((s306_0) s_616))"
+"(let-values(((ctx305_0) ctx_88)((s306_0) s_616))"
 "(keep-as-needed74.1 #f #f #f #f #f #f ctx305_0 s306_0))))"
 "(let-values(((exp-key_0)"
 "(let-values(((temp307_0) key292_0)((expr-ctx308_0) expr-ctx_3))"
 "(expand7.1 #f #f #f #f temp307_0 expr-ctx308_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_104)(expand-context-observer ctx_87)))"
+"(let-values(((obs_104)(expand-context-observer ctx_88)))"
 "(if obs_104"
 "(let-values()(let-values()(call-expand-observe obs_104 'next)))"
 "(void)))"
@@ -65176,7 +65190,7 @@ static const char *startup_source =
 "(expand7.1 #f #f #f #f temp309_0 expr-ctx310_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_105)(expand-context-observer ctx_87)))"
+"(let-values(((obs_105)(expand-context-observer ctx_88)))"
 "(if obs_105"
 "(let-values()(let-values()(call-expand-observe obs_105 'next)))"
 "(void)))"
@@ -65184,10 +65198,10 @@ static const char *startup_source =
 "(let-values(((exp-body_6)"
 "(let-values(((temp311_0) body294_0)"
 "((temp312_0)"
-"(let-values(((ctx314_0) ctx_87))"
+"(let-values(((ctx314_0) ctx_88))"
 "(as-tail-context23.1 ctx314_0 expr-ctx_3))))"
 "(expand7.1 #f #f #f #f temp311_0 temp312_0))))"
-"(if(expand-context-to-parsed? ctx_87)"
+"(if(expand-context-to-parsed? ctx_88)"
 "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)"
 "(let-values(((rebuild-s315_0) rebuild-s_10)"
 "((temp316_0)(list with-continuation-mark291_0 exp-key_0 exp-val_0 exp-body_6)))"
@@ -65202,10 +65216,10 @@ static const char *startup_source =
 "(let-values(((list-start-index_0) list-start-index14_0))"
 "(let-values(((last-is-tail?_0) last-is-tail?15_0))"
 "(let-values()"
-"(lambda(s_631 ctx_88)"
+"(lambda(s_631 ctx_89)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_106)(expand-context-observer ctx_88)))"
+"(let-values(((obs_106)(expand-context-observer ctx_89)))"
 "(if obs_106"
 "(let-values()(let-values()(call-expand-observe obs_106 log-tag_1)))"
 "(void)))"
@@ -65213,7 +65227,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_15)(syntax-disarm$1 s_631)))"
 "(let-values(((ok?_49 begin317_0 e318_0)"
 "(let-values(((s_632) disarmed-s_15))"
-"(let-values(((orig-s_55) s_632))"
+"(let-values(((orig-s_54) s_632))"
 "(let-values(((begin317_1 e318_1)"
 "(let-values(((s_633)"
 "(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))"
@@ -65233,26 +65247,26 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                   \"bad syntax\""
-" orig-s_55))"
+" orig-s_54))"
 "(if(null? flat-s_41)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
-" orig-s_55))"
+" orig-s_54))"
 "(let-values() flat-s_41))))))))"
 "(values begin319_0 e320_0))"
-"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))"
+"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))"
 "(values #t begin317_1 e318_1))))))"
 "(let-values(((expr-ctx_4)"
 "(if last-is-tail?_0"
-"(as-begin-expression-context ctx_88)"
-"(as-expression-context ctx_88))))"
+"(as-begin-expression-context ctx_89)"
+"(as-expression-context ctx_89))))"
 "(let-values(((rebuild-s_11)"
-"(let-values(((ctx321_0) ctx_88)((s322_0) s_631))"
+"(let-values(((ctx321_0) ctx_89)((s322_0) s_631))"
 "(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))"
 "(let-values(((exp-es_2)"
-"((letrec-values(((loop_126)"
+"((letrec-values(((loop_127)"
 "(lambda(es_5 index_6)"
 "(begin"
 " 'loop"
@@ -65260,7 +65274,7 @@ static const char *startup_source =
 "(if(zero? index_6)"
 "(let-values()"
 "(let-values(((obs_107)"
-"(expand-context-observer ctx_88)))"
+"(expand-context-observer ctx_89)))"
 "(if obs_107"
 "(let-values()"
 "(begin"
@@ -65281,7 +65295,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_108)"
 "(expand-context-observer"
-" ctx_88)))"
+" ctx_89)))"
 "(if obs_108"
 "(let-values()"
 "(let-values()"
@@ -65294,7 +65308,7 @@ static const char *startup_source =
 "(null? rest-es_1)"
 " #f)"
 "(let-values(((ctx326_0)"
-" ctx_88))"
+" ctx_89))"
 "(as-tail-context23.1"
 " ctx326_0"
 " expr-ctx_4))"
@@ -65306,12 +65320,12 @@ static const char *startup_source =
 " #f"
 " temp323_0"
 " temp324_0))"
-"(loop_126 rest-es_1(sub1 index_6))))))))))))"
-" loop_126)"
+"(loop_127 rest-es_1(sub1 index_6))))))))))))"
+" loop_127)"
 " e318_0"
 " list-start-index_0)))"
 "(begin"
-"(let-values(((obs_109)(expand-context-observer ctx_88)))"
+"(let-values(((obs_109)(expand-context-observer ctx_89)))"
 "(if obs_109"
 "(let-values()"
 "(let-values()"
@@ -65320,7 +65334,7 @@ static const char *startup_source =
 " 'exit-list"
 "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))"
 "(void)))"
-"(if(expand-context-to-parsed? ctx_88)"
+"(if(expand-context-to-parsed? ctx_89)"
 "(parsed-begin_0 rebuild-s_11 exp-es_2)"
 "(let-values(((rebuild-s327_0) rebuild-s_11)((temp328_0)(cons begin317_0 exp-es_2)))"
 "(rebuild5.1 #f #f rebuild-s327_0 temp328_0)))))))))))))))))))"
@@ -65333,10 +65347,10 @@ static const char *startup_source =
 "((temp331_0) 0)"
 "((temp332_1) #t))"
 "(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))"
-"(lambda(s_637 ctx_89)"
-"(let-values(((context_24)(expand-context-context ctx_89)))"
-"(if(let-values(((or-part_374)(eq? context_24 'top-level)))"
-"(if or-part_374 or-part_374(eq? context_24 'module)))"
+"(lambda(s_637 ctx_90)"
+"(let-values(((context_24)(expand-context-context ctx_90)))"
+"(if(let-values(((or-part_375)(eq? context_24 'top-level)))"
+"(if or-part_375 or-part_375(eq? context_24 'module)))"
 "(let-values()"
 "(let-values(((disarmed-s_16)(syntax-disarm$1 s_637)))"
 "(let-values(((ok?_50 begin333_0)"
@@ -65364,8 +65378,8 @@ static const char *startup_source =
 "(values begin334_0)))))"
 "(values #t begin333_1)))"
 "(values #f #f)))))"
-"(if ok?_50 s_637(nonempty-begin_0 s_637 ctx_89)))))"
-"(let-values()(nonempty-begin_0 s_637 ctx_89))))))))"
+"(if ok?_50 s_637(nonempty-begin_0 s_637 ctx_90)))))"
+"(let-values()(nonempty-begin_0 s_637 ctx_90))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin0"
@@ -65373,14 +65387,14 @@ static const char *startup_source =
 "(make-begin20.1 temp338_0 temp337_0 temp335_0 parsed-begin0336_0))))"
 "(define-values"
 "(register-eventual-variable!?)"
-"(lambda(id_119 ctx_90)"
+"(lambda(id_119 ctx_91)"
 "(begin"
-"(if(if(expand-context-need-eventually-defined ctx_90)(>=(expand-context-phase ctx_90) 1) #f)"
+"(if(if(expand-context-need-eventually-defined ctx_91)(>=(expand-context-phase ctx_91) 1) #f)"
 "(let-values()"
 "(begin"
 "(hash-update!"
-"(expand-context-need-eventually-defined ctx_90)"
-"(expand-context-phase ctx_90)"
+"(expand-context-need-eventually-defined ctx_91)"
+"(expand-context-phase ctx_91)"
 "(lambda(l_83)(cons id_119 l_83))"
 " null)"
 " #t))"
@@ -65393,12 +65407,12 @@ static const char *startup_source =
 "(begin"
 " 'core343"
 "(let-values(((s_647) s341_0))"
-"(let-values(((ctx_91) ctx342_0))"
+"(let-values(((ctx_92) ctx342_0))"
 "(let-values(((implicit-omitted?_0)(if implicit-omitted?340_0 implicit-omitted?339_0 #f)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_110)(expand-context-observer ctx_91)))"
+"(let-values(((obs_110)(expand-context-observer ctx_92)))"
 "(if obs_110"
 "(let-values()"
 "(let-values()(call-expand-observe obs_110 'prim-#%top)))"
@@ -65411,7 +65425,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((ok?_51 #%top345_0 id346_0)"
 "(let-values(((s_648) disarmed-s_17))"
-"(let-values(((orig-s_56) s_648))"
+"(let-values(((orig-s_55) s_648))"
 "(let-values(((#%top345_1 id346_1)"
 "(let-values(((s_649)"
 "(if(syntax?$1 s_648)"
@@ -65427,32 +65441,32 @@ static const char *startup_source =
 "(let-values(((s_651)"
 "(cdr"
 " s_649)))"
-"(if(let-values(((or-part_375)"
+"(if(let-values(((or-part_376)"
 "(if(syntax?$1"
 " s_651)"
 "(symbol?"
 "(syntax-e$1"
 " s_651))"
 " #f)))"
-"(if or-part_375"
-" or-part_375"
+"(if or-part_376"
+" or-part_376"
 "(symbol?"
 " s_651)))"
 " s_651"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"not an identifier\""
-" orig-s_56"
+" orig-s_55"
 " s_651)))))"
 "(values #%top347_0 id348_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                        \"bad syntax\""
-" orig-s_56)))))"
+" orig-s_55)))))"
 "(values #t #%top345_1 id346_1))))))"
 " id346_0)))))"
 "(let-values(((b_90)"
-"(let-values(((temp350_0)(expand-context-phase ctx_91))"
+"(let-values(((temp350_0)(expand-context-phase ctx_92))"
 "((temp351_0) 'ambiguous))"
 "(resolve+shift30.1"
 " temp351_0"
@@ -65468,27 +65482,27 @@ static const char *startup_source =
 " id_120"
 " temp350_0))))"
 "(if(eq? b_90 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_120 ctx_91))"
+"(let-values()(raise-ambiguous-error id_120 ctx_92))"
 "(if(if b_90"
 "(if(module-binding? b_90)"
 "(eq?"
 "(module-binding-module b_90)"
-"(namespace-mpi(expand-context-namespace ctx_91)))"
+"(namespace-mpi(expand-context-namespace ctx_92)))"
 " #f)"
 " #f)"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_91)"
+"(if(expand-context-to-parsed? ctx_92)"
 "(parsed-id2.1 id_120 b_90 #f)"
 "(if(top-level-module-path-index?(module-binding-module b_90))"
 "(let-values() s_647)"
 "(let-values() id_120))))"
-"(if(register-eventual-variable!? id_120 ctx_91)"
+"(if(register-eventual-variable!? id_120 ctx_92)"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_91)"
+"(if(expand-context-to-parsed? ctx_92)"
 "(parsed-id2.1 id_120 b_90 #f)"
 " id_120))"
 "(let-values()"
-"(if(not(expand-context-allow-unbound? ctx_91))"
+"(if(not(expand-context-allow-unbound? ctx_92))"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
@@ -65496,16 +65510,16 @@ static const char *startup_source =
 " id_120"
 " #f"
 " null"
-"(syntax-debug-info-string id_120 ctx_91)))"
+"(syntax-debug-info-string id_120 ctx_92)))"
 "(let-values()"
 "(let-values(((tl-id_1)"
 "(add-scope"
 " id_120"
-"(root-expand-context-top-level-bind-scope ctx_91))))"
+"(root-expand-context-top-level-bind-scope ctx_92))))"
 "(let-values(((tl-b_1)"
 "(let-values(((tl-id352_0) tl-id_1)"
 "((temp353_0)"
-"(expand-context-phase ctx_91)))"
+"(expand-context-phase ctx_92)))"
 "(resolve33.1"
 " #f"
 " #f"
@@ -65519,14 +65533,14 @@ static const char *startup_source =
 " temp353_0))))"
 "(if tl-b_1"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_91)"
+"(if(expand-context-to-parsed? ctx_92)"
 "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)"
 "(if implicit-omitted?_0"
 "(let-values() id_120)"
 "(let-values()"
 "(let-values(((ok?_52 #%top354_0 id355_0)"
 "(let-values(((s_652) disarmed-s_17))"
-"(let-values(((orig-s_57) s_652))"
+"(let-values(((orig-s_56) s_652))"
 "(let-values(((#%top354_1 id355_1)"
 "(let-values(((s_653)"
 "(if(syntax?$1"
@@ -65544,22 +65558,22 @@ static const char *startup_source =
 "(let-values(((s_655)"
 "(cdr"
 " s_653)))"
-"(if(let-values(((or-part_376)"
+"(if(let-values(((or-part_377)"
 "(if(syntax?$1"
 " s_655)"
 "(symbol?"
 "(syntax-e$1"
 " s_655))"
 " #f)))"
-"(if or-part_376"
-" or-part_376"
+"(if or-part_377"
+" or-part_377"
 "(symbol?"
 " s_655)))"
 " s_655"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                      \"not an identifier\""
-" orig-s_57"
+" orig-s_56"
 " s_655)))))"
 "(values"
 " #%top356_0"
@@ -65567,31 +65581,31 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                    \"bad syntax\""
-" orig-s_57)))))"
+" orig-s_56)))))"
 "(values #t #%top354_1 id355_1))))))"
 "(let-values(((s358_0) s_647)"
 "((temp359_0)(cons #%top354_0 id_120)))"
 "(rebuild5.1 #f #f s358_0 temp359_0)))))))"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_91)"
+"(if(expand-context-to-parsed? ctx_92)"
 "(parsed-top-id4.1 id_120 b_90 #f)"
 " s_647)))))))))))))))))))))))"
 "(case-lambda"
-"((s_656 ctx_92)(core343_0 s_656 ctx_92 #f #f))"
-"((s_657 ctx_93 implicit-omitted?339_1)(core343_0 s_657 ctx_93 implicit-omitted?339_1 #t))))))"
+"((s_656 ctx_93)(core343_0 s_656 ctx_93 #f #f))"
+"((s_657 ctx_94 implicit-omitted?339_1)(core343_0 s_657 ctx_94 implicit-omitted?339_1 #t))))))"
 "(void"
 "(add-core-form!*"
 " 'set!"
-"(lambda(s_658 ctx_94)"
+"(lambda(s_658 ctx_95)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_111)(expand-context-observer ctx_94)))"
+"(let-values(((obs_111)(expand-context-observer ctx_95)))"
 "(if obs_111(let-values()(let-values()(call-expand-observe obs_111 'prim-set!)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_18)(syntax-disarm$1 s_658)))"
 "(let-values(((ok?_53 set!360_0 id361_0 rhs362_0)"
 "(let-values(((s_659) disarmed-s_18))"
-"(let-values(((orig-s_58) s_659))"
+"(let-values(((orig-s_57) s_659))"
 "(let-values(((set!360_1 id361_1 rhs362_1)"
 "(let-values(((s_660)(if(syntax?$1 s_659)(syntax-e$1 s_659) s_659)))"
 "(if(pair? s_660)"
@@ -65605,20 +65619,20 @@ static const char *startup_source =
 "(if(pair? s_663)"
 "(let-values(((id366_0)"
 "(let-values(((s_664)(car s_663)))"
-"(if(let-values(((or-part_377)"
+"(if(let-values(((or-part_378)"
 "(if(syntax?$1 s_664)"
 "(symbol?"
 "(syntax-e$1"
 " s_664))"
 " #f)))"
-"(if or-part_377"
-" or-part_377"
+"(if or-part_378"
+" or-part_378"
 "(symbol? s_664)))"
 " s_664"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"not an identifier\""
-" orig-s_58"
+" orig-s_57"
 " s_664))))"
 "((rhs367_0)"
 "(let-values(((s_665)(cdr s_663)))"
@@ -65647,16 +65661,16 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
-" orig-s_58))))))"
+" orig-s_57))))))"
 "(values rhs368_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
-" orig-s_58))))))"
+" orig-s_57))))))"
 "(values id366_0 rhs367_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_57))))))"
 "(values set!363_0 id364_0 rhs365_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_57)))))"
 "(values #t set!360_1 id361_1 rhs362_1))))))"
 "(let-values(((id_121) id361_0))"
 "((letrec-values(((rename-loop_0)"
@@ -65664,7 +65678,7 @@ static const char *startup_source =
 "(begin"
 " 'rename-loop"
 "(let-values(((binding_30)"
-"(let-values(((temp370_0)(expand-context-phase ctx_94))"
+"(let-values(((temp370_0)(expand-context-phase ctx_95))"
 "((temp371_0) 'ambiguous)"
 "((temp372_0) #t))"
 "(resolve+shift30.1"
@@ -65683,31 +65697,31 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(if(eq? binding_30 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_122 ctx_94))"
+"(let-values()(raise-ambiguous-error id_122 ctx_95))"
 "(void))"
 "(values))))"
 "(let-values(((t_57 primitive?_10 insp_24)"
 "(if binding_30"
 "(let-values(((binding373_0) binding_30)"
-"((ctx374_0) ctx_94)"
+"((ctx374_0) ctx_95)"
 "((s375_0) s_658))"
 "(lookup17.1 #f #f #f #f binding373_0 ctx374_0 s375_0))"
 "(values #f #f #f))))"
 "(begin"
-"(let-values(((obs_112)(expand-context-observer ctx_94)))"
+"(let-values(((obs_112)(expand-context-observer ctx_95)))"
 "(if obs_112"
 "(let-values()"
 "(let-values()(call-expand-observe obs_112 'resolve id_122)))"
 "(void)))"
-"(if(let-values(((or-part_378)(variable? t_57)))"
-"(if or-part_378"
-" or-part_378"
-"(if(not binding_30)"
-"(let-values(((or-part_379)"
-"(register-eventual-variable!? id_122 ctx_94)))"
+"(if(let-values(((or-part_379)(variable? t_57)))"
 "(if or-part_379"
 " or-part_379"
-"(expand-context-allow-unbound? ctx_94)))"
+"(if(not binding_30)"
+"(let-values(((or-part_380)"
+"(register-eventual-variable!? id_122 ctx_95)))"
+"(if or-part_380"
+" or-part_380"
+"(expand-context-allow-unbound? ctx_95)))"
 " #f)))"
 "(let-values()"
 "(let-values((()"
@@ -65717,7 +65731,7 @@ static const char *startup_source =
 "(eq?"
 "(module-binding-module binding_30)"
 "(namespace-mpi"
-"(expand-context-namespace ctx_94))))"
+"(expand-context-namespace ctx_95))))"
 " #f)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -65730,7 +65744,7 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((obs_113)"
-"(expand-context-observer ctx_94)))"
+"(expand-context-observer ctx_95)))"
 "(if obs_113"
 "(let-values()"
 "(let-values()"
@@ -65742,7 +65756,7 @@ static const char *startup_source =
 "(register-variable-referenced-if-local! binding_30)"
 "(values))))"
 "(let-values(((rebuild-s_12)"
-"(let-values(((ctx376_0) ctx_94)((s377_0) s_658))"
+"(let-values(((ctx376_0) ctx_95)((s377_0) s_658))"
 "(keep-as-needed74.1"
 " #f"
 " #f"
@@ -65755,9 +65769,9 @@ static const char *startup_source =
 "(let-values(((exp-rhs_5)"
 "(let-values(((temp378_0) rhs362_0)"
 "((temp379_0)"
-"(as-expression-context ctx_94)))"
+"(as-expression-context ctx_95)))"
 "(expand7.1 #f #f #f #f temp378_0 temp379_0))))"
-"(if(expand-context-to-parsed? ctx_94)"
+"(if(expand-context-to-parsed? ctx_95)"
 "(parsed-set!9.1"
 " rebuild-s_12"
 "(parsed-id2.1 id_122 binding_30 #f)"
@@ -65769,7 +65783,7 @@ static const char *startup_source =
 "(let-values(((temp384_0)"
 "(free-id-set-empty-or-just-module*?"
 "(expand-context-stops"
-" ctx_94))))"
+" ctx_95))))"
 "(substitute-variable6.1"
 " temp384_0"
 " id_122"
@@ -65784,10 +65798,10 @@ static const char *startup_source =
 " s_658"
 " id_122"
 " null"
-"(syntax-debug-info-string id_122 ctx_94)))"
+"(syntax-debug-info-string id_122 ctx_95)))"
 "(if(1/set!-transformer? t_57)"
 "(let-values()"
-"(if(not-in-this-expand-context? t_57 ctx_94)"
+"(if(not-in-this-expand-context? t_57 ctx_95)"
 "(let-values()"
 "(let-values(((temp385_0)"
 "(avoid-current-expand-context"
@@ -65798,10 +65812,10 @@ static const char *startup_source =
 " rhs362_0"
 " id_122"
 " from-rename?_0"
-" ctx_94)"
+" ctx_95)"
 " t_57"
-" ctx_94))"
-"((ctx386_0) ctx_94))"
+" ctx_95))"
+"((ctx386_0) ctx_95))"
 "(expand7.1 #f #f #f #f temp385_0 ctx386_0)))"
 "(let-values()"
 "(let-values(((exp-s_14 re-ctx_1)"
@@ -65810,9 +65824,9 @@ static const char *startup_source =
 " insp_24"
 " s_658"
 " id_122"
-" ctx_94"
+" ctx_95"
 " binding_30)))"
-"(if(expand-context-just-once? ctx_94)"
+"(if(expand-context-just-once? ctx_95)"
 "(let-values() exp-s_14)"
 "(let-values()"
 "(let-values(((exp-s387_0) exp-s_14)"
@@ -65820,7 +65834,7 @@ static const char *startup_source =
 "(expand7.1 #f #f #f #f exp-s387_0 re-ctx388_0))))))))"
 "(if(1/rename-transformer? t_57)"
 "(let-values()"
-"(if(not-in-this-expand-context? t_57 ctx_94)"
+"(if(not-in-this-expand-context? t_57 ctx_95)"
 "(let-values()"
 "(let-values(((temp389_0)"
 "(avoid-current-expand-context"
@@ -65831,15 +65845,15 @@ static const char *startup_source =
 " rhs362_0"
 " id_122"
 " from-rename?_0"
-" ctx_94"
+" ctx_95"
 " t_57)"
 " t_57"
-" ctx_94))"
-"((ctx390_0) ctx_94))"
+" ctx_95))"
+"((ctx390_0) ctx_95))"
 "(expand7.1 #f #f #f #f temp389_0 ctx390_0)))"
 "(let-values()"
 "(rename-loop_0"
-"(rename-transformer-target-in-context t_57 ctx_94)"
+"(rename-transformer-target-in-context t_57 ctx_95)"
 " #t))))"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -65862,15 +65876,15 @@ static const char *startup_source =
 "(let-values(((id_123) id28_0))"
 "(let-values(((rhs-s_0) rhs-s29_0))"
 "(let-values(((from-rename?_1) from-rename?30_0))"
-"(let-values(((ctx_95) ctx31_0))"
+"(let-values(((ctx_96) ctx31_0))"
 "(let-values(((t_58)(if t24_0 t23_0 #f)))"
 "(let-values()"
-"(if(let-values(((or-part_380) t_58))"
-"(if or-part_380 or-part_380 from-rename?_1))"
+"(if(let-values(((or-part_381) t_58))"
+"(if or-part_381 or-part_381 from-rename?_1))"
 "(let-values()"
 "(let-values(((new-id_1)"
 "(if t_58"
-"(rename-transformer-target-in-context t_58 ctx_95)"
+"(rename-transformer-target-in-context t_58 ctx_96)"
 " id_123)))"
 "(syntax-rearm$1"
 "(datum->syntax$1"
@@ -65881,17 +65895,17 @@ static const char *startup_source =
 " s_670)))"
 "(let-values() s_670)))))))))))))))"
 "(case-lambda"
-"((s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_96)"
-"(begin(substitute-set!-rename32_0 s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_96 #f #f)))"
-"((s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_97 t23_1)"
-"(substitute-set!-rename32_0 s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_97 t23_1 #t)))))"
+"((s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97)"
+"(begin(substitute-set!-rename32_0 s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97 #f #f)))"
+"((s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1)"
+"(substitute-set!-rename32_0 s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1 #t)))))"
 "(void"
 "(add-core-form!*"
 " '#%variable-reference"
-"(lambda(s_673 ctx_98)"
+"(lambda(s_673 ctx_99)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_114)(expand-context-observer ctx_98)))"
+"(let-values(((obs_114)(expand-context-observer ctx_99)))"
 "(if obs_114"
 "(let-values()(let-values()(call-expand-observe obs_114 'prim-#%variable-reference)))"
 "(void)))"
@@ -65906,9 +65920,9 @@ static const char *startup_source =
 "(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))"
 "(if(pair? s_678)"
 "(if(let-values(((s_679)(car s_678)))"
-"(let-values(((or-part_381)"
+"(let-values(((or-part_382)"
 "(if(syntax?$1 s_679)(symbol?(syntax-e$1 s_679)) #f)))"
-"(if or-part_381 or-part_381(symbol? s_679))))"
+"(if or-part_382 or-part_382(symbol? s_679))))"
 "(let-values(((s_680)(cdr s_678)))"
 "(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))"
 "(null? s_681)))"
@@ -65955,11 +65969,11 @@ static const char *startup_source =
 "(if(pair? s_695)"
 "(if(let-values(((s_696)(car s_695))) #t)"
 "(let-values(((s_697)(cdr s_695)))"
-"(let-values(((or-part_382)"
+"(let-values(((or-part_383)"
 "(if(syntax?$1 s_697)"
 "(symbol?(syntax-e$1 s_697))"
 " #f)))"
-"(if or-part_382 or-part_382(symbol? s_697))))"
+"(if or-part_383 or-part_383(symbol? s_697))))"
 " #f)"
 " #f)))"
 "(let-values(((s_698)(cdr s_693)))"
@@ -66011,10 +66025,10 @@ static const char *startup_source =
 "(values #f #f #f #f)))))"
 "(let-values(((ok?_56 #%variable-reference406_0)"
 "(let-values(((s_710) disarmed-s_22))"
-"(if(if(not(let-values(((or-part_383) ok?_54))(if or-part_383 or-part_383 ok?_55)))"
+"(if(if(not(let-values(((or-part_384) ok?_54))(if or-part_384 or-part_384 ok?_55)))"
 " #t"
 " #f)"
-"(let-values(((orig-s_59) s_710))"
+"(let-values(((orig-s_58) s_710))"
 "(let-values(((#%variable-reference406_1)"
 "(let-values(((s_711)(if(syntax?$1 s_710)(syntax-e$1 s_710) s_710)))"
 "(if(pair? s_711)"
@@ -66031,27 +66045,27 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                        \"bad syntax\""
-" orig-s_59))))))"
+" orig-s_58))))))"
 "(values #%variable-reference407_0))"
-"                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))"
+"                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))"
 "(values #t #%variable-reference406_1)))"
 "(values #f #f)))))"
-"(if(let-values(((or-part_384) ok?_54))(if or-part_384 or-part_384 ok?_55))"
+"(if(let-values(((or-part_385) ok?_54))(if or-part_385 or-part_385 ok?_55))"
 "(let-values()"
 "(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))"
 "(let-values(((binding_31)"
-"(let-values(((temp409_0)(expand-context-phase ctx_98))((temp410_0) 'ambiguous))"
+"(let-values(((temp409_0)(expand-context-phase ctx_99))((temp410_0) 'ambiguous))"
 "(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id_0 temp409_0))))"
 "(let-values((()"
 "(begin"
 "(if(eq? binding_31 'ambiguous)"
-"(let-values()(raise-ambiguous-error var-id_0 ctx_98))"
+"(let-values()(raise-ambiguous-error var-id_0 ctx_99))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_385) binding_31))"
-"(if or-part_385 or-part_385(expand-context-allow-unbound? ctx_98)))"
+"(if(let-values(((or-part_386) binding_31))"
+"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_99)))"
 "(void)"
 "(let-values()"
 "(raise-unbound-syntax-error"
@@ -66060,20 +66074,20 @@ static const char *startup_source =
 " s_673"
 " var-id_0"
 " null"
-"(syntax-debug-info-string var-id_0 ctx_98))))"
+"(syntax-debug-info-string var-id_0 ctx_99))))"
 "(values))))"
 "(let-values(((t_59 primitive?_11 insp-of-t_7)"
 "(if binding_31"
 "(let-values(((s414_0) s_673)"
-"((temp415_0)(expand-context-in-local-expand? ctx_98)))"
-"(lookup17.1 s414_0 #t temp415_0 #t binding_31 ctx_98 var-id_0))"
+"((temp415_0)(expand-context-in-local-expand? ctx_99)))"
+"(lookup17.1 s414_0 #t temp415_0 #t binding_31 ctx_99 var-id_0))"
 "(values #f #f #f))))"
 "(begin"
 "(if(if t_59(not(variable? t_59)) #f)"
 "(let-values()"
 "                                   (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_673))"
 "(void))"
-"(if(expand-context-to-parsed? ctx_98)"
+"(if(expand-context-to-parsed? ctx_99)"
 "(parsed-#%variable-reference11.1"
 "(keep-properties-only~ s_673)"
 "(if ok?_55"
@@ -66081,16 +66095,16 @@ static const char *startup_source =
 "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))"
 " s_673))))))))"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_98)"
+"(if(expand-context-to-parsed? ctx_99)"
 "(parsed-#%variable-reference11.1(keep-properties-only~ s_673) #f)"
 " s_673)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%expression"
-"(lambda(s_715 ctx_99)"
+"(lambda(s_715 ctx_100)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_115)(expand-context-observer ctx_99)))"
+"(let-values(((obs_115)(expand-context-observer ctx_100)))"
 "(if obs_115"
 "(let-values()(let-values()(call-expand-observe obs_115 'prim-#%expression)))"
 "(void)))"
@@ -66098,7 +66112,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_23)(syntax-disarm$1 s_715)))"
 "(let-values(((ok?_57 #%expression416_0 e417_0)"
 "(let-values(((s_716) disarmed-s_23))"
-"(let-values(((orig-s_60) s_716))"
+"(let-values(((orig-s_59) s_716))"
 "(let-values(((#%expression416_1 e417_1)"
 "(let-values(((s_717)(if(syntax?$1 s_716)(syntax-e$1 s_716) s_716)))"
 "(if(pair? s_717)"
@@ -66125,29 +66139,32 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
-" orig-s_60))))))"
+" orig-s_59))))))"
 "(values e420_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_60))))))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_59))))))"
 "(values #%expression418_0 e419_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))"
 "(values #t #%expression416_1 e417_1))))))"
 "(let-values(((rebuild-s_13)"
-"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_99 s_715))))"
+"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_100 s_715))))"
 "(let-values(((exp-e_0)"
 "(let-values(((temp424_0) e417_0)"
 "((temp425_0)"
-"(let-values(((temp426_0)(as-expression-context ctx_99))((ctx427_0) ctx_99))"
+"(let-values(((temp426_0)(as-expression-context ctx_100))"
+"((ctx427_0) ctx_100))"
 "(as-tail-context23.1 ctx427_0 temp426_0))))"
 "(expand7.1 #f #f #f #f temp424_0 temp425_0))))"
-"(if(expand-context-to-parsed? ctx_99)"
+"(if(expand-context-to-parsed? ctx_100)"
 " exp-e_0"
 "(let-values(((tmp_61)"
-"(if(not(expand-context-in-local-expand? ctx_99))(expand-context-context ctx_99) #f)))"
+"(if(not(expand-context-in-local-expand? ctx_100))"
+"(expand-context-context ctx_100)"
+" #f)))"
 "(if(equal? tmp_61 'expression)"
 "(let-values()"
 "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))"
 "(begin"
-"(let-values(((obs_116)(expand-context-observer ctx_99)))"
+"(let-values(((obs_116)(expand-context-observer ctx_100)))"
 "(if obs_116"
 "(let-values()(let-values()(call-expand-observe obs_116 'tag result-s_13)))"
 "(void)))"
@@ -66155,8 +66172,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((rebuild-s428_0) rebuild-s_13)((temp429_0)(list #%expression416_0 exp-e_0)))"
 "(rebuild5.1 #f #f rebuild-s428_0 temp429_0))))))))))))))"
-" (void (add-core-form!* 'unquote (lambda (s_724 ctx_100) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))"
-" (void (add-core-form!* 'unquote-splicing (lambda (s_725 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_725))))"
+" (void (add-core-form!* 'unquote (lambda (s_724 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))"
+" (void (add-core-form!* 'unquote-splicing (lambda (s_725 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_725))))"
 "(define-values"
 "(binding-for-transformer?)"
 "(lambda(b_41 id_126 at-phase_12 ns_123)"
@@ -66185,10 +66202,10 @@ static const char *startup_source =
 "(define-values(provide-form-name) 'provide)"
 "(define-values"
 "(parse-and-expand-provides!)"
-"(lambda(specs_0 orig-s_61 rp_1 self_28 phase_41 ctx_102)"
+"(lambda(specs_0 orig-s_60 rp_1 self_28 phase_41 ctx_103)"
 "(begin"
-"(let-values(((ns_124)(expand-context-namespace ctx_102)))"
-"((letrec-values(((loop_114)"
+"(let-values(((ns_124)(expand-context-namespace ctx_103)))"
+"((letrec-values(((loop_115)"
 "(lambda(specs_1 at-phase_13 protected?_4 layer_6)"
 "(begin"
 " 'loop"
@@ -66203,16 +66220,16 @@ static const char *startup_source =
 "((letrec-values(((for-loop_91)"
 "(lambda(track-stxes_1"
 " exp-specs_1"
-" lst_398)"
+" lst_397)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_398)"
+"(if(pair? lst_397)"
 "(let-values(((spec_0)"
 "(unsafe-car"
-" lst_398))"
+" lst_397))"
 "((rest_233)"
 "(unsafe-cdr"
-" lst_398)))"
+" lst_397)))"
 "(let-values(((track-stxes_2"
 " exp-specs_2)"
 "(let-values(((track-stxes_3)"
@@ -66258,7 +66275,7 @@ static const char *startup_source =
 "(format"
 "                                                                                                                                                                    \"nested `~a' not allowed\""
 " fm_2)"
-" orig-s_61"
+" orig-s_60"
 " spec_0)))))))"
 "(let-values(((tmp_62)"
 " fm_2))"
@@ -66324,7 +66341,7 @@ static const char *startup_source =
 "(begin"
 "(parse-identifier!"
 " spec_0"
-" orig-s_61"
+" orig-s_60"
 "(syntax-e$1"
 " spec_0)"
 " at-phase_13"
@@ -66339,7 +66356,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                               \"bad syntax\""
-" orig-s_61"
+" orig-s_60"
 " spec_0))))"
 "(let-values()"
 "(let-values((()"
@@ -66353,7 +66370,7 @@ static const char *startup_source =
 " spec5_0)"
 "(let-values(((s_306)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_62)"
+"(let-values(((orig-s_61)"
 " s_306))"
 "(let-values(((for-meta3_1"
 " phase-level4_1"
@@ -66408,7 +66425,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_62))"
+" orig-s_61))"
 "(let-values()"
 " flat-s_42)))))))"
 "(values"
@@ -66417,7 +66434,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_62))))))"
+" orig-s_61))))))"
 "(values"
 " for-meta6_0"
 " phase-level7_0"
@@ -66425,7 +66442,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_62)))))"
+" orig-s_61)))))"
 "(values"
 " #t"
 " for-meta3_1"
@@ -66443,12 +66460,12 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                                                     \"bad `for-meta' phase\""
-" orig-s_61"
+" orig-s_60"
 " spec_0)))"
 "(values))))"
 "(let-values(((track-stxes_5"
 " exp-specs_5)"
-"(loop_114"
+"(loop_115"
 " spec5_0"
 "(phase+"
 " p_68"
@@ -66486,7 +66503,7 @@ static const char *startup_source =
 " spec14_0)"
 "(let-values(((s_20)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_63)"
+"(let-values(((orig-s_62)"
 " s_20))"
 "(let-values(((for-syntax13_1"
 " spec14_1)"
@@ -66522,7 +66539,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_63))"
+" orig-s_62))"
 "(let-values()"
 " flat-s_43)))))))"
 "(values"
@@ -66531,14 +66548,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_63)))))"
+" orig-s_62)))))"
 "(values"
 " #t"
 " for-syntax13_1"
 " spec14_1))))))"
 "(let-values(((track-stxes_6"
 " exp-specs_6)"
-"(loop_114"
+"(loop_115"
 " spec14_0"
 "(phase+"
 " 1"
@@ -66588,10 +66605,10 @@ static const char *startup_source =
 "(if(pair?"
 " s_727)"
 "(let-values(((for-label21_0)"
-"(let-values(((s_473)"
+"(let-values(((s_472)"
 "(car"
 " s_727)))"
-" s_473))"
+" s_472))"
 "((spec22_0)"
 "(let-values(((s_45)"
 "(cdr"
@@ -66627,7 +66644,7 @@ static const char *startup_source =
 " spec20_1))))))"
 "(let-values(((track-stxes_7"
 " exp-specs_7)"
-"(loop_114"
+"(loop_115"
 " spec20_0"
 " #f"
 " protected?_4"
@@ -66664,7 +66681,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                                                     \"nested `protect' not allowed\""
-" orig-s_61"
+" orig-s_60"
 " spec_0))"
 "(void))"
 "(values))))"
@@ -66673,7 +66690,7 @@ static const char *startup_source =
 " p-spec26_0)"
 "(let-values(((s_85)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_40)"
+"(let-values(((orig-s_39)"
 " s_85))"
 "(let-values(((protect25_1"
 " p-spec26_1)"
@@ -66709,7 +66726,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_40))"
+" orig-s_39))"
 "(let-values()"
 " flat-s_45)))))))"
 "(values"
@@ -66718,14 +66735,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_40)))))"
+" orig-s_39)))))"
 "(values"
 " #t"
 " protect25_1"
 " p-spec26_1))))))"
 "(let-values(((track-stxes_8"
 " exp-specs_8)"
-"(loop_114"
+"(loop_115"
 " p-spec26_0"
 " at-phase_13"
 " #t"
@@ -66756,19 +66773,19 @@ static const char *startup_source =
 " rename31_0"
 " id:from32_0"
 " id:to33_0)"
-"(let-values(((s_476)"
+"(let-values(((s_475)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_64)"
-" s_476))"
+"(let-values(((orig-s_63)"
+" s_475))"
 "(let-values(((rename31_1"
 " id:from32_1"
 " id:to33_1)"
 "(let-values(((s_316)"
 "(if(syntax?$1"
-" s_476)"
+" s_475)"
 "(syntax-e$1"
-" s_476)"
-" s_476)))"
+" s_475)"
+" s_475)))"
 "(if(pair?"
 " s_316)"
 "(let-values(((rename34_0)"
@@ -66808,7 +66825,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"not an identifier\""
-" orig-s_64"
+" orig-s_63"
 " s_56))))"
 "((id:to38_0)"
 "(let-values(((s_389)"
@@ -66841,7 +66858,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_64"
+" orig-s_63"
 " s_390))))"
 "(()"
 "(let-values(((s_391)"
@@ -66859,20 +66876,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_64))))))"
+" orig-s_63))))))"
 "(values"
 " id:to39_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_64))))))"
+" orig-s_63))))))"
 "(values"
 " id:from37_0"
 " id:to38_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_64))))))"
+" orig-s_63))))))"
 "(values"
 " rename34_0"
 " id:from35_0"
@@ -66880,7 +66897,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_64)))))"
+" orig-s_63)))))"
 "(values"
 " #t"
 " rename31_1"
@@ -66889,7 +66906,7 @@ static const char *startup_source =
 "(begin"
 "(parse-identifier!"
 " id:from32_0"
-" orig-s_61"
+" orig-s_60"
 "(syntax-e$1"
 " id:to33_0)"
 " at-phase_13"
@@ -66918,7 +66935,7 @@ static const char *startup_source =
 " id:field42_0)"
 "(let-values(((s_36)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_65)"
+"(let-values(((orig-s_64)"
 " s_36))"
 "(let-values(((struct40_1"
 " id:struct41_1"
@@ -66968,7 +66985,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                       \"not an identifier\""
-" orig-s_65"
+" orig-s_64"
 " s_732))))"
 "((id:field47_0)"
 "(let-values(((s_320)"
@@ -67001,7 +67018,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_65))"
+" orig-s_64))"
 "(let-values()"
 "(let-values(((id:field_0)"
 "(let-values(((lst_100)"
@@ -67015,17 +67032,17 @@ static const char *startup_source =
 " lst_100)))"
 "((letrec-values(((for-loop_116)"
 "(lambda(id:field_1"
-" lst_399)"
+" lst_398)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_399)"
+" lst_398)"
 "(let-values(((s_66)"
 "(unsafe-car"
-" lst_399))"
+" lst_398))"
 "((rest_234)"
 "(unsafe-cdr"
-" lst_399)))"
+" lst_398)))"
 "(let-values(((id:field_2)"
 "(let-values(((id:field_3)"
 " id:field_1))"
@@ -67033,22 +67050,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:field49_0)"
 "(let-values()"
-"(if(let-values(((or-part_386)"
+"(if(let-values(((or-part_387)"
 "(if(syntax?$1"
 " s_66)"
 "(symbol?"
 "(syntax-e$1"
 " s_66))"
 " #f)))"
-"(if or-part_386"
-" or-part_386"
+"(if or-part_387"
+" or-part_387"
 "(symbol?"
 " s_66)))"
 " s_66"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_65"
+" orig-s_64"
 " s_66)))))"
 "(cons"
 " id:field49_0"
@@ -67083,20 +67100,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_65))))))"
+" orig-s_64))))))"
 "(values"
 " id:field48_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_65))))))"
+" orig-s_64))))))"
 "(values"
 " id:struct46_0"
 " id:field47_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_65))))))"
+" orig-s_64))))))"
 "(values"
 " struct43_0"
 " id:struct44_0"
@@ -67104,7 +67121,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_65)))))"
+" orig-s_64)))))"
 "(values"
 " #t"
 " struct40_1"
@@ -67113,7 +67130,7 @@ static const char *startup_source =
 "(begin"
 "(parse-struct!"
 " id:struct41_0"
-" orig-s_61"
+" orig-s_60"
 " id:field42_0"
 " at-phase_13"
 " ns_124"
@@ -67137,7 +67154,7 @@ static const char *startup_source =
 " mod-path51_0)"
 "(let-values(((s_409)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_66)"
+"(let-values(((orig-s_65)"
 " s_409))"
 "(let-values(((all-from50_1"
 " mod-path51_1)"
@@ -67187,20 +67204,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_66))))))"
+" orig-s_65))))))"
 "(values"
 " mod-path54_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_66))))))"
+" orig-s_65))))))"
 "(values"
 " all-from52_0"
 " mod-path53_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_66)))))"
+" orig-s_65)))))"
 "(values"
 " #t"
 " all-from50_1"
@@ -67208,14 +67225,14 @@ static const char *startup_source =
 "(begin"
 "(parse-all-from"
 " mod-path51_0"
-" orig-s_61"
+" orig-s_60"
 " self_28"
 " null"
 " at-phase_13"
 " ns_124"
 " rp_1"
 " protected?_4"
-" ctx_102)"
+" ctx_103)"
 "(values"
 " null"
 "(list"
@@ -67232,7 +67249,7 @@ static const char *startup_source =
 " id57_0)"
 "(let-values(((s_209)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_67)"
+"(let-values(((orig-s_66)"
 " s_209))"
 "(let-values(((all-from-except55_1"
 " mod-path56_1"
@@ -67287,10 +67304,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_67))"
+" orig-s_66))"
 "(let-values()"
 "(let-values(((id_127)"
-"(let-values(((lst_400)"
+"(let-values(((lst_399)"
 " flat-s_47))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67298,20 +67315,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_400)))"
+" lst_399)))"
 "((letrec-values(((for-loop_301)"
 "(lambda(id_128"
-" lst_401)"
+" lst_400)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_401)"
+" lst_400)"
 "(let-values(((s_325)"
 "(unsafe-car"
-" lst_401))"
+" lst_400))"
 "((rest_235)"
 "(unsafe-cdr"
-" lst_401)))"
+" lst_400)))"
 "(let-values(((id_109)"
 "(let-values(((id_129)"
 " id_128))"
@@ -67319,22 +67336,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id63_0)"
 "(let-values()"
-"(if(let-values(((or-part_387)"
+"(if(let-values(((or-part_388)"
 "(if(syntax?$1"
 " s_325)"
 "(symbol?"
 "(syntax-e$1"
 " s_325))"
 " #f)))"
-"(if or-part_387"
-" or-part_387"
+"(if or-part_388"
+" or-part_388"
 "(symbol?"
 " s_325)))"
 " s_325"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                             \"not an identifier\""
-" orig-s_67"
+" orig-s_66"
 " s_325)))))"
 "(cons"
 " id63_0"
@@ -67350,7 +67367,7 @@ static const char *startup_source =
 " id_128)))))"
 " for-loop_301)"
 " null"
-" lst_400)))))"
+" lst_399)))))"
 "(reverse$1"
 " id_127)))))))))"
 "(values"
@@ -67359,7 +67376,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_67))))))"
+" orig-s_66))))))"
 "(values"
 " all-from-except58_0"
 " mod-path59_0"
@@ -67367,7 +67384,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_67)))))"
+" orig-s_66)))))"
 "(values"
 " #t"
 " all-from-except55_1"
@@ -67376,14 +67393,14 @@ static const char *startup_source =
 "(begin"
 "(parse-all-from"
 " mod-path56_0"
-" orig-s_61"
+" orig-s_60"
 " self_28"
 " id57_0"
 " at-phase_13"
 " ns_124"
 " rp_1"
 " protected?_4"
-" ctx_102)"
+" ctx_103)"
 "(values"
 " null"
 "(list"
@@ -67404,7 +67421,7 @@ static const char *startup_source =
 " all-defined64_0)"
 "(let-values(((s_213)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_68)"
+"(let-values(((orig-s_67)"
 " s_213))"
 "(let-values(((all-defined64_1)"
 "(let-values(((s_395)"
@@ -67436,13 +67453,13 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_68))))))"
+" orig-s_67))))))"
 "(values"
 " all-defined65_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_68)))))"
+" orig-s_67)))))"
 "(values"
 " #t"
 " all-defined64_1))))))"
@@ -67450,7 +67467,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_28"
 " spec_0"
-" orig-s_61"
+" orig-s_60"
 " null"
 " #f"
 " at-phase_13"
@@ -67472,7 +67489,7 @@ static const char *startup_source =
 " id67_0)"
 "(let-values(((s_738)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_69)"
+"(let-values(((orig-s_68)"
 " s_738))"
 "(let-values(((all-defined-except66_1"
 " id67_1)"
@@ -67508,10 +67525,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_69))"
+" orig-s_68))"
 "(let-values()"
 "(let-values(((id_131)"
-"(let-values(((lst_402)"
+"(let-values(((lst_401)"
 " flat-s_48))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67519,20 +67536,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_402)))"
+" lst_401)))"
 "((letrec-values(((for-loop_302)"
 "(lambda(id_132"
-" lst_403)"
+" lst_402)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_403)"
+" lst_402)"
 "(let-values(((s_498)"
 "(unsafe-car"
-" lst_403))"
+" lst_402))"
 "((rest_236)"
 "(unsafe-cdr"
-" lst_403)))"
+" lst_402)))"
 "(let-values(((id_133)"
 "(let-values(((id_134)"
 " id_132))"
@@ -67540,22 +67557,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id70_0)"
 "(let-values()"
-"(if(let-values(((or-part_388)"
+"(if(let-values(((or-part_389)"
 "(if(syntax?$1"
 " s_498)"
 "(symbol?"
 "(syntax-e$1"
 " s_498))"
 " #f)))"
-"(if or-part_388"
-" or-part_388"
+"(if or-part_389"
+" or-part_389"
 "(symbol?"
 " s_498)))"
 " s_498"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                         \"not an identifier\""
-" orig-s_69"
+" orig-s_68"
 " s_498)))))"
 "(cons"
 " id70_0"
@@ -67571,7 +67588,7 @@ static const char *startup_source =
 " id_132)))))"
 " for-loop_302)"
 " null"
-" lst_402)))))"
+" lst_401)))))"
 "(reverse$1"
 " id_131)))))))))"
 "(values"
@@ -67580,7 +67597,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_69)))))"
+" orig-s_68)))))"
 "(values"
 " #t"
 " all-defined-except66_1"
@@ -67589,7 +67606,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_28"
 " spec_0"
-" orig-s_61"
+" orig-s_60"
 " id67_0"
 " #f"
 " at-phase_13"
@@ -67614,7 +67631,7 @@ static const char *startup_source =
 " id:prefix72_0)"
 "(let-values(((s_504)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_70)"
+"(let-values(((orig-s_69)"
 " s_504))"
 "(let-values(((prefix-all-defined71_1"
 " id:prefix72_1)"
@@ -67647,53 +67664,53 @@ static const char *startup_source =
 "(let-values(((s_742)"
 "(car"
 " s_741)))"
-"(if(let-values(((or-part_389)"
+"(if(let-values(((or-part_390)"
 "(if(syntax?$1"
 " s_742)"
 "(symbol?"
 "(syntax-e$1"
 " s_742))"
 " #f)))"
-"(if or-part_389"
-" or-part_389"
+"(if or-part_390"
+" or-part_390"
 "(symbol?"
 " s_742)))"
 " s_742"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                         \"not an identifier\""
-" orig-s_70"
+" orig-s_69"
 " s_742))))"
 "(()"
 "(let-values(((s_743)"
 "(cdr"
 " s_741)))"
-"(let-values(((s_462)"
+"(let-values(((s_461)"
 "(if(syntax?$1"
 " s_743)"
 "(syntax-e$1"
 " s_743)"
 " s_743)))"
 "(if(null?"
-" s_462)"
+" s_461)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_70))))))"
+" orig-s_69))))))"
 "(values"
 " id:prefix75_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_70))))))"
+" orig-s_69))))))"
 "(values"
 " prefix-all-defined73_0"
 " id:prefix74_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_70)))))"
+" orig-s_69)))))"
 "(values"
 " #t"
 " prefix-all-defined71_1"
@@ -67702,7 +67719,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_28"
 " spec_0"
-" orig-s_61"
+" orig-s_60"
 " null"
 "(syntax-e$1"
 " id:prefix72_0)"
@@ -67729,7 +67746,7 @@ static const char *startup_source =
 " id78_0)"
 "(let-values(((s_234)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_71)"
+"(let-values(((orig-s_70)"
 " s_234))"
 "(let-values(((prefix-all-defined-except76_1"
 " id:prefix77_1"
@@ -67764,22 +67781,22 @@ static const char *startup_source =
 "(let-values(((s_509)"
 "(car"
 " s_345)))"
-"(if(let-values(((or-part_390)"
+"(if(let-values(((or-part_391)"
 "(if(syntax?$1"
 " s_509)"
 "(symbol?"
 "(syntax-e$1"
 " s_509))"
 " #f)))"
-"(if or-part_390"
-" or-part_390"
+"(if or-part_391"
+" or-part_391"
 "(symbol?"
 " s_509)))"
 " s_509"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"not an identifier\""
-" orig-s_71"
+" orig-s_70"
 " s_509))))"
 "((id83_0)"
 "(let-values(((s_510)"
@@ -67800,7 +67817,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_71))"
+" orig-s_70))"
 "(let-values()"
 "(let-values(((id_135)"
 "(let-values(((lst_4)"
@@ -67814,52 +67831,52 @@ static const char *startup_source =
 " lst_4)))"
 "((letrec-values(((for-loop_303)"
 "(lambda(id_136"
-" lst_404)"
+" lst_403)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_404)"
+" lst_403)"
 "(let-values(((s_744)"
 "(unsafe-car"
-" lst_404))"
+" lst_403))"
 "((rest_237)"
 "(unsafe-cdr"
-" lst_404)))"
+" lst_403)))"
+"(let-values(((id_82)"
 "(let-values(((id_137)"
-"(let-values(((id_138)"
 " id_136))"
-"(let-values(((id_139)"
+"(let-values(((id_138)"
 "(let-values()"
 "(let-values(((id84_2)"
 "(let-values()"
-"(if(let-values(((or-part_391)"
+"(if(let-values(((or-part_392)"
 "(if(syntax?$1"
 " s_744)"
 "(symbol?"
 "(syntax-e$1"
 " s_744))"
 " #f)))"
-"(if or-part_391"
-" or-part_391"
+"(if or-part_392"
+" or-part_392"
 "(symbol?"
 " s_744)))"
 " s_744"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_71"
+" orig-s_70"
 " s_744)))))"
 "(cons"
 " id84_2"
-" id_138)))))"
+" id_137)))))"
 "(values"
-" id_139)))))"
+" id_138)))))"
 "(if(not"
 " #f)"
 "(for-loop_303"
-" id_137"
+" id_82"
 " rest_237)"
-" id_137)))"
+" id_82)))"
 " id_136)))))"
 " for-loop_303)"
 " null"
@@ -67872,7 +67889,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_71))))))"
+" orig-s_70))))))"
 "(values"
 " prefix-all-defined-except79_0"
 " id:prefix80_0"
@@ -67880,7 +67897,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_71)))))"
+" orig-s_70)))))"
 "(values"
 " #t"
 " prefix-all-defined-except76_1"
@@ -67890,7 +67907,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_28"
 " spec_0"
-" orig-s_61"
+" orig-s_60"
 " id78_0"
 "(syntax-e$1"
 " id:prefix77_0)"
@@ -67909,7 +67926,7 @@ static const char *startup_source =
 " datum87_0)"
 "(let-values(((s_745)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_72)"
+"(let-values(((orig-s_71)"
 " s_745))"
 "(let-values(((expand85_1"
 " id86_1"
@@ -67929,15 +67946,15 @@ static const char *startup_source =
 " s_249))"
 "((id89_1"
 " datum90_0)"
-"(let-values(((s_463)"
+"(let-values(((s_462)"
 "(cdr"
 " s_248)))"
 "(let-values(((s_250)"
 "(if(syntax?$1"
-" s_463)"
+" s_462)"
 "(syntax-e$1"
-" s_463)"
-" s_463)))"
+" s_462)"
+" s_462)))"
 "(if(pair?"
 " s_250)"
 "(let-values(((id91_1"
@@ -67957,22 +67974,22 @@ static const char *startup_source =
 "(let-values(((s_747)"
 "(car"
 " s_252)))"
-"(if(let-values(((or-part_392)"
+"(if(let-values(((or-part_393)"
 "(if(syntax?$1"
 " s_747)"
 "(symbol?"
 "(syntax-e$1"
 " s_747))"
 " #f)))"
-"(if or-part_392"
-" or-part_392"
+"(if or-part_393"
+" or-part_393"
 "(symbol?"
 " s_747)))"
 " s_747"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                             \"not an identifier\""
-" orig-s_72"
+" orig-s_71"
 " s_747))))"
 "((datum94_0)"
 "(let-values(((s_364)"
@@ -67985,7 +68002,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_72)))))"
+" orig-s_71)))))"
 "(()"
 "(let-values(((s_365)"
 "(cdr"
@@ -68002,14 +68019,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_72))))))"
+" orig-s_71))))))"
 "(values"
 " id91_1"
 " datum92_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_72))))))"
+" orig-s_71))))))"
 "(values"
 " expand88_0"
 " id89_1"
@@ -68017,7 +68034,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_72)))))"
+" orig-s_71)))))"
 "(values"
 " #t"
 " expand85_1"
@@ -68028,7 +68045,7 @@ static const char *startup_source =
 " form96_0)"
 "(let-values(((s_367)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_73)"
+"(let-values(((orig-s_72)"
 " s_367))"
 "(let-values(((expand95_1"
 " form96_1)"
@@ -68078,20 +68095,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_73))))))"
+" orig-s_72))))))"
 "(values"
 " form99_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_73))))))"
+" orig-s_72))))))"
 "(values"
 " expand97_0"
 " form98_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_73)))))"
+" orig-s_72)))))"
 "(values"
 " #t"
 " expand95_1"
@@ -68100,21 +68117,21 @@ static const char *startup_source =
 "(let-values(((temp104_4)"
 " form96_0)"
 "((temp105_4)"
-"(let-values(((v_257)"
-" ctx_102))"
-"(let-values(((the-struct_98)"
-" v_257))"
+"(let-values(((v_255)"
+" ctx_103))"
+"(let-values(((the-struct_99)"
+" v_255))"
 "(if(expand-context/outer?"
-" the-struct_98)"
+" the-struct_99)"
 "(let-values(((def-ctx-scopes106_0)"
 "(box"
 " null))"
 "((inner107_0)"
-"(let-values(((the-struct_99)"
+"(let-values(((the-struct_100)"
 "(root-expand-context/outer-inner"
-" v_257)))"
+" v_255)))"
 "(if(expand-context/inner?"
-" the-struct_99)"
+" the-struct_100)"
 "(let-values(((stops108_0)"
 "(free-id-set"
 " at-phase_13"
@@ -68124,89 +68141,89 @@ static const char *startup_source =
 " at-phase_13)))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_99)"
+" the-struct_100)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_99)"
+" the-struct_100)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_99)"
+" the-struct_100)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_99)"
+" the-struct_100)"
 "(root-expand-context/inner-counter"
-" the-struct_99)"
+" the-struct_100)"
 "(root-expand-context/inner-lift-key"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-to-parsed?"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-phase"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-namespace"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-just-once?"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-module-begin-k"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_99)"
+" the-struct_100)"
 " stops108_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-lifts"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-lift-envs"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-module-lifts"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-require-lifts"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-requires+provides"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-observer"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-for-serializable?"
-" the-struct_99)"
+" the-struct_100)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_99)))"
+" the-struct_100)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                       \"expand-context/inner?\""
-" the-struct_99)))))"
+" the-struct_100)))))"
 "(expand-context/outer1.1"
 " inner107_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_98)"
+" the-struct_99)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_98)"
+" the-struct_99)"
 "(root-expand-context/outer-frame-id"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-context"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-env"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-scopes"
-" the-struct_98)"
+" the-struct_99)"
 " def-ctx-scopes106_0"
 "(expand-context/outer-binding-layer"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-reference-records"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-only-immediate?"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_98)"
+" the-struct_99)"
 "(expand-context/outer-name"
-" the-struct_98)))"
+" the-struct_99)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                     \"expand-context/outer?\""
-" the-struct_98))))))"
+" the-struct_99))))))"
 "(expand7.1"
 " #f"
 " #f"
@@ -68235,7 +68252,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                                                         \"expansion was not a `begin' sequence\""
-" orig-s_61"
+" orig-s_60"
 " spec_0)))"
 "(values))))"
 "(let-values(((ok?_72"
@@ -68243,7 +68260,7 @@ static const char *startup_source =
 " spec101_0)"
 "(let-values(((s_379)"
 " exp-spec_0))"
-"(let-values(((orig-s_74)"
+"(let-values(((orig-s_73)"
 " s_379))"
 "(let-values(((begin100_1"
 " spec101_1)"
@@ -68261,15 +68278,15 @@ static const char *startup_source =
 " s_380)))"
 " s_751))"
 "((spec103_0)"
-"(let-values(((s_464)"
+"(let-values(((s_463)"
 "(cdr"
 " s_380)))"
 "(let-values(((s_382)"
 "(if(syntax?$1"
-" s_464)"
+" s_463)"
 "(syntax-e$1"
-" s_464)"
-" s_464)))"
+" s_463)"
+" s_463)))"
 "(let-values(((flat-s_50)"
 "(to-syntax-list.1"
 " s_382)))"
@@ -68279,7 +68296,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_74))"
+" orig-s_73))"
 "(let-values()"
 " flat-s_50)))))))"
 "(values"
@@ -68288,14 +68305,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_74)))))"
+" orig-s_73)))))"
 "(values"
 " #t"
 " begin100_1"
 " spec101_1))))))"
 "(let-values(((track-stxes_9"
 " exp-specs_9)"
-"(loop_114"
+"(loop_115"
 " spec101_0"
 " at-phase_13"
 " protected?_4"
@@ -68333,14 +68350,14 @@ static const char *startup_source =
 " lst_73)))))"
 "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))"
 "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))"
-" loop_114)"
+" loop_115)"
 " specs_0"
 " phase_41"
 " #f"
 " 'raw)))))"
 "(define-values"
 "(parse-identifier!)"
-"(lambda(spec_1 orig-s_75 sym_101 at-phase_14 ns_125 rp_2 protected?_5)"
+"(lambda(spec_1 orig-s_74 sym_101 at-phase_14 ns_125 rp_2 protected?_5)"
 "(begin"
 "(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_125)))"
 "(let-values((()"
@@ -68351,7 +68368,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                             \"provided identifier is not defined or required\""
-" orig-s_75"
+" orig-s_74"
 " spec_1)))"
 "(values))))"
 "(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_125)))"
@@ -68368,10 +68385,10 @@ static const char *startup_source =
 " b_91"
 " immed-b_0"
 " spec_1"
-" orig-s_75)))))))))"
+" orig-s_74)))))))))"
 "(define-values"
 "(parse-struct!)"
-"(lambda(id:struct_0 orig-s_76 fields_0 at-phase_15 ns_126 rp_3 protected?_6)"
+"(lambda(id:struct_0 orig-s_75 fields_0 at-phase_15 ns_126 rp_3 protected?_6)"
 "(begin"
 "(let-values(((mk_0)"
 "(lambda(fmt_1)"
@@ -68388,28 +68405,28 @@ static const char *startup_source =
 "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))"
 "(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))"
 "(begin"
-"            (let-values (((lst_405) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
+"            (let-values (((lst_404) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_405)))"
+"(let-values()(check-list lst_404)))"
 "((letrec-values(((for-loop_304)"
-"(lambda(lst_406)"
+"(lambda(lst_405)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_406)"
-"(let-values(((fmt_3)(unsafe-car lst_406))((rest_238)(unsafe-cdr lst_406)))"
+"(if(pair? lst_405)"
+"(let-values(((fmt_3)(unsafe-car lst_405))((rest_238)(unsafe-cdr lst_405)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_140)(mk_0 fmt_3)))"
+"(let-values(((id_139)(mk_0 fmt_3)))"
 "(parse-identifier!"
-" id_140"
-" orig-s_76"
-"(syntax-e$1 id_140)"
+" id_139"
+" orig-s_75"
+"(syntax-e$1 id_139)"
 " at-phase_15"
 " ns_126"
 " rp_3"
@@ -68419,19 +68436,19 @@ static const char *startup_source =
 "(if(not #f)(for-loop_304 rest_238)(values))))"
 "(values))))))"
 " for-loop_304)"
-" lst_405)))"
+" lst_404)))"
 "(void)"
-"(let-values(((lst_407) fields_0))"
+"(let-values(((lst_406) fields_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_407)))"
+"(let-values()(check-list lst_406)))"
 "((letrec-values(((for-loop_305)"
-"(lambda(lst_408)"
+"(lambda(lst_407)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_408)"
-"(let-values(((field_0)(unsafe-car lst_408))((rest_239)(unsafe-cdr lst_408)))"
+"(if(pair? lst_407)"
+"(let-values(((field_0)(unsafe-car lst_407))((rest_239)(unsafe-cdr lst_407)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -68447,7 +68464,7 @@ static const char *startup_source =
 "(begin"
 "(parse-identifier!"
 " get-id_0"
-" orig-s_76"
+" orig-s_75"
 "(syntax-e$1 get-id_0)"
 " at-phase_15"
 " ns_126"
@@ -68455,7 +68472,7 @@ static const char *startup_source =
 " protected?_6)"
 "(parse-identifier!"
 " set-id_0"
-" orig-s_76"
+" orig-s_75"
 "(syntax-e$1 set-id_0)"
 " at-phase_15"
 " ns_126"
@@ -68466,11 +68483,11 @@ static const char *startup_source =
 "(if(not #f)(for-loop_305 rest_239)(values))))"
 "(values))))))"
 " for-loop_305)"
-" lst_407)))"
+" lst_406)))"
 "(void)))))))"
 "(define-values"
 "(parse-all-from)"
-"(lambda(mod-path-stx_0 orig-s_77 self_29 except-ids_0 at-phase_16 ns_127 rp_4 protected?_7 ctx_103)"
+"(lambda(mod-path-stx_0 orig-s_76 self_29 except-ids_0 at-phase_16 ns_127 rp_4 protected?_7 ctx_104)"
 "(begin"
 "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))"
 "(let-values((()"
@@ -68478,13 +68495,13 @@ static const char *startup_source =
 "(if(1/module-path? mod-path_33)"
 "(void)"
 "(let-values()"
-"                            (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_77 mod-path-stx_0)))"
+"                            (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_76 mod-path-stx_0)))"
 "(values))))"
-"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_103)))"
-"(parse-all-from-module mpi_52 #f orig-s_77 except-ids_0 #f at-phase_16 ns_127 rp_4 protected?_7)))))))"
+"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_104)))"
+"(parse-all-from-module mpi_52 #f orig-s_76 except-ids_0 #f at-phase_16 ns_127 rp_4 protected?_7)))))))"
 "(define-values"
 "(parse-all-from-module)"
-"(lambda(mpi_53 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)"
+"(lambda(mpi_53 matching-stx_0 orig-s_77 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)"
 "(begin"
 "(let-values(((requireds_2)(extract-module-requires rp_5 mpi_53 at-phase_17)))"
 "(let-values(((phase-desc_0)"
@@ -68504,7 +68521,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                               (format \"cannot provide from a module without a matching require~a\" (phase-desc_0))"
-" orig-s_78"
+" orig-s_77"
 " matching-stx_0)))"
 "(values))))"
 "(let-values(((add-prefix_1)"
@@ -68514,17 +68531,17 @@ static const char *startup_source =
 "                              (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))"
 "(let-values(((found_0)(make-hasheq)))"
 "(begin"
-"(let-values(((lst_409) requireds_2))"
+"(let-values(((lst_408) requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_409)))"
+"(let-values()(check-list lst_408)))"
 "((letrec-values(((for-loop_306)"
 "(lambda(lst_283)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_283)"
-"(let-values(((i_191)(unsafe-car lst_283))"
+"(let-values(((i_193)(unsafe-car lst_283))"
 "((rest_240)(unsafe-cdr lst_283)))"
 "(let-values((()"
 "(let-values()"
@@ -68532,29 +68549,29 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_141)"
-"(required-id i_191)))"
-"(let-values(((phase_145)"
+"(let-values(((id_140)"
+"(required-id i_193)))"
+"(let-values(((phase_147)"
 "(required-phase"
-" i_191)))"
-"(if(let-values(((or-part_393)"
+" i_193)))"
+"(if(let-values(((or-part_394)"
 "(if matching-stx_0"
 "(not"
 "(if(eqv?"
-" phase_145"
+" phase_147"
 " at-phase_17)"
 "(free-identifier=?$1"
-" id_141"
+" id_140"
 "(datum->syntax$1"
 " matching-stx_0"
 "(syntax-e$1"
-" id_141))"
-" phase_145"
-" phase_145)"
+" id_140))"
+" phase_147"
+" phase_147)"
 " #f))"
 " #f)))"
-"(if or-part_393"
-" or-part_393"
+"(if or-part_394"
+" or-part_394"
 "(let-values(((lst_234)"
 " except-ids_1))"
 "(begin"
@@ -68566,27 +68583,27 @@ static const char *startup_source =
 " lst_234)))"
 "((letrec-values(((for-loop_307)"
 "(lambda(result_119"
-" lst_410)"
+" lst_409)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_410)"
+" lst_409)"
 "(let-values(((except-id_0)"
 "(unsafe-car"
-" lst_410))"
+" lst_409))"
 "((rest_214)"
 "(unsafe-cdr"
-" lst_410)))"
+" lst_409)))"
 "(let-values(((result_120)"
 "(let-values()"
 "(let-values(((result_121)"
 "(let-values()"
 "(let-values()"
 "(if(free-identifier=?$1"
-" id_141"
+" id_140"
 " except-id_0"
-" phase_145"
-" phase_145)"
+" phase_147"
+" phase_147)"
 "(hash-set!"
 " found_0"
 " except-id_0"
@@ -68613,8 +68630,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((b_92)"
 "(resolve+shift/extra-inspector"
-" id_141"
-" phase_145"
+" id_140"
+" phase_147"
 " ns_26)))"
 "(let-values(((immed-b_1)"
 "(let-values(((temp132_2)"
@@ -68630,27 +68647,27 @@ static const char *startup_source =
 " #t"
 " #f"
 " #f"
-" id_141"
-" phase_145))))"
+" id_140"
+" phase_147))))"
 "(let-values(((temp122_4)"
 "(add-prefix_1"
 "(syntax-e$1"
-" id_141)))"
+" id_140)))"
 "((phase123_0)"
-" phase_145)"
+" phase_147)"
 "((b124_0)"
 " b_92)"
 "((immed-b125_0)"
 " immed-b_1)"
 "((id126_0)"
-" id_141)"
+" id_140)"
 "((orig-s127_0)"
-" orig-s_78)"
+" orig-s_77)"
 "((protected?128_0)"
 " protected?_8)"
 "((temp129_3)"
 "(required-as-transformer?"
-" i_191)))"
+" i_193)))"
 "(add-provide!107.1"
 " protected?128_0"
 " temp129_3"
@@ -68666,24 +68683,24 @@ static const char *startup_source =
 "(if(not #f)(for-loop_306 rest_240)(values))))"
 "(values))))))"
 " for-loop_306)"
-" lst_409)))"
+" lst_408)))"
 "(void)"
 "(if(=(hash-count found_0)(length except-ids_1))"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_368) except-ids_1))"
+"(let-values(((lst_367) except-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_368)))"
+"(let-values()(check-list lst_367)))"
 "((letrec-values(((for-loop_308)"
-"(lambda(lst_370)"
+"(lambda(lst_369)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_370)"
-"(let-values(((except-id_1)(unsafe-car lst_370))"
-"((rest_241)(unsafe-cdr lst_370)))"
+"(if(pair? lst_369)"
+"(let-values(((except-id_1)(unsafe-car lst_369))"
+"((rest_241)(unsafe-cdr lst_369)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -68697,7 +68714,7 @@ static const char *startup_source =
 " #f)))"
 "(if or-part_156"
 " or-part_156"
-"(let-values(((lst_371)"
+"(let-values(((lst_370)"
 " requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -68705,7 +68722,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_371)))"
+" lst_370)))"
 "((letrec-values(((for-loop_309)"
 "(lambda(result_122"
 " lst_141)"
@@ -68713,7 +68730,7 @@ static const char *startup_source =
 " 'for-loop"
 "(if(pair?"
 " lst_141)"
-"(let-values(((i_192)"
+"(let-values(((i_194)"
 "(unsafe-car"
 " lst_141))"
 "((rest_217)"
@@ -68724,23 +68741,23 @@ static const char *startup_source =
 "(let-values(((result_124)"
 "(let-values()"
 "(let-values()"
-"(let-values(((id_142)"
+"(let-values(((id_141)"
 "(required-id"
-" i_192)))"
-"(let-values(((phase_146)"
+" i_194)))"
+"(let-values(((phase_148)"
 "(required-phase"
-" i_192)))"
+" i_194)))"
 "(free-identifier=?$1"
-" id_142"
+" id_141"
 " except-id_1"
-" phase_146"
-" phase_146)))))))"
+" phase_148"
+" phase_148)))))))"
 "(values"
 " result_124)))))"
 "(if(if(not"
 "((lambda x_92"
 " result_123)"
-" i_192))"
+" i_194))"
 "(not"
 " #f)"
 " #f)"
@@ -68751,7 +68768,7 @@ static const char *startup_source =
 " result_122)))))"
 " for-loop_309)"
 " #f"
-" lst_371)))))"
+" lst_370)))))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -68761,14 +68778,14 @@ static const char *startup_source =
 "                                                                                                  \"excluded identifier was not defined or required in the module~a\""
 "                                                                                                  \"excluded identifier was not required from the specified module~a\")"
 "(phase-desc_0))"
-" orig-s_78"
+" orig-s_77"
 " except-id_1))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)(for-loop_308 rest_241)(values))))"
 "(values))))))"
 " for-loop_308)"
-" lst_368)))"
+" lst_367)))"
 "(void)))))))))))))"
 "(define-values"
 "(check-cross-phase-persistent-form)"
@@ -68779,11 +68796,11 @@ static const char *startup_source =
 "(begin"
 " 'check-body"
 "(begin"
-"(let-values(((lst_411) bodys_14))"
+"(let-values(((lst_410) bodys_14))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_411)))"
+"(let-values()(check-list lst_410)))"
 "((letrec-values(((for-loop_310)"
 "(lambda(lst_80)"
 "(begin"
@@ -68835,7 +68852,7 @@ static const char *startup_source =
 "(if(not #f)(for-loop_310 rest_38)(values))))"
 "(values))))))"
 " for-loop_310)"
-" lst_411)))"
+" lst_410)))"
 "(void)))))"
 "((check-expr_0)"
 "(lambda(e_86 num-results_0 enclosing_15)"
@@ -68894,9 +68911,9 @@ static const char *startup_source =
 "(let-values()(check-count 3 num-results_0 enclosing_15))"
 "(if(equal? tmp_63 'gensym)"
 "(let-values()"
-"(if(let-values(((or-part_394)(= 0(length rands_1))))"
-"(if or-part_394"
-" or-part_394"
+"(if(let-values(((or-part_395)(= 0(length rands_1))))"
+"(if or-part_395"
+" or-part_395"
 "(if(= 1(length rands_1))"
 "(quoted-string?(car rands_1))"
 " #f)))"
@@ -68984,13 +69001,13 @@ static const char *startup_source =
 "(check-no-disallowed-expr_0(parsed-if-els e_73))))"
 "(if(parsed-set!? e_73)"
 "(let-values()"
-"(let-values(((id_143)(parsed-set!-id e_73)))"
-"(let-values(((normal-b_1)(parsed-id-binding id_143)))"
+"(let-values(((id_142)(parsed-set!-id e_73)))"
+"(let-values(((normal-b_1)(parsed-id-binding id_142)))"
 "(begin"
 "(if(let-values(((or-part_83)(not normal-b_1)))"
 "(if or-part_83"
 " or-part_83"
-"(let-values(((or-part_84)(parsed-top-id? id_143)))"
+"(let-values(((or-part_84)(parsed-top-id? id_142)))"
 "(if or-part_84"
 " or-part_84"
 "(eq?(module-binding-module normal-b_1) self-mpi_0)))))"
@@ -69108,11 +69125,11 @@ static const char *startup_source =
 "(lambda(e_90)(begin(if(parsed-quote? e_90)(string?(parsed-quote-datum e_90)) #f))))"
 "(define-values"
 "(cross-phase-primitive-name)"
-"(lambda(id_144)"
+"(lambda(id_143)"
 "(begin"
-"(if(parsed-id? id_144)"
+"(if(parsed-id? id_143)"
 "(let-values()"
-"(let-values(((b_61)(parsed-id-binding id_144)))"
+"(let-values(((b_61)(parsed-id-binding id_143)))"
 "(if(module-binding? b_61)"
 "(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_61)))"
 "(module-binding-sym b_61)"
@@ -69130,97 +69147,97 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " 'module"
-"(lambda(s_183 ctx_104)"
+"(lambda(s_183 ctx_105)"
 "(begin"
-"(if(eq?(expand-context-context ctx_104) 'top-level)"
+"(if(eq?(expand-context-context ctx_105) 'top-level)"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_117)(expand-context-observer ctx_104)))"
+"(let-values(((obs_117)(expand-context-observer ctx_105)))"
 "(if obs_117(let-values()(let-values()(call-expand-observe obs_117 'prim-module)))(void)))"
 "             (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))"
 "(let-values()"
-"(let-values(((s223_0) s_183)((ctx224_0) ctx_104)((temp225_3) #f))"
+"(let-values(((s223_0) s_183)((ctx224_0) ctx_105)((temp225_3) #f))"
 "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_3)))))))"
 "(void"
 "(add-core-form!*"
 " 'module*"
-"(lambda(s_306 ctx_105)"
+"(lambda(s_306 ctx_106)"
 "(begin"
-"(let-values(((obs_118)(expand-context-observer ctx_105)))"
+"(let-values(((obs_118)(expand-context-observer ctx_106)))"
 "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-module)))(void)))"
 "       (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))"
 "(void"
 "(add-core-form!*"
 " '#%module-begin"
-"(lambda(s_83 ctx_106)"
+"(lambda(s_83 ctx_107)"
 "(begin"
-"(let-values(((obs_119)(expand-context-observer ctx_106)))"
+"(let-values(((obs_119)(expand-context-observer ctx_107)))"
 "(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-module-begin)))(void)))"
-"(if(eq?(expand-context-context ctx_106) 'module-begin)"
+"(if(eq?(expand-context-context ctx_107) 'module-begin)"
 "(void)"
 "         (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_83)))"
-"(if(expand-context-module-begin-k ctx_106)"
+"(if(expand-context-module-begin-k ctx_107)"
 "(void)"
 "         (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_83)))"
-"((expand-context-module-begin-k ctx_106)"
+"((expand-context-module-begin-k ctx_107)"
 " s_83"
-"(let-values(((v_35) ctx_106))"
-"(let-values(((the-struct_100) v_35))"
-"(if(expand-context/outer? the-struct_100)"
+"(let-values(((v_35) ctx_107))"
+"(let-values(((the-struct_101) v_35))"
+"(if(expand-context/outer? the-struct_101)"
 "(let-values(((inner226_0)"
-"(let-values(((the-struct_101)(root-expand-context/outer-inner v_35)))"
-"(if(expand-context/inner? the-struct_101)"
+"(let-values(((the-struct_102)(root-expand-context/outer-inner v_35)))"
+"(if(expand-context/inner? the-struct_102)"
 "(let-values(((module-begin-k227_0) #f))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-module-scopes the-struct_101)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_101)"
-"(root-expand-context/inner-all-scopes-stx the-struct_101)"
-"(root-expand-context/inner-defined-syms the-struct_101)"
-"(root-expand-context/inner-counter the-struct_101)"
-"(root-expand-context/inner-lift-key the-struct_101)"
-"(expand-context/inner-to-parsed? the-struct_101)"
-"(expand-context/inner-phase the-struct_101)"
-"(expand-context/inner-namespace the-struct_101)"
-"(expand-context/inner-just-once? the-struct_101)"
+"(root-expand-context/inner-module-scopes the-struct_102)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_102)"
+"(root-expand-context/inner-all-scopes-stx the-struct_102)"
+"(root-expand-context/inner-defined-syms the-struct_102)"
+"(root-expand-context/inner-counter the-struct_102)"
+"(root-expand-context/inner-lift-key the-struct_102)"
+"(expand-context/inner-to-parsed? the-struct_102)"
+"(expand-context/inner-phase the-struct_102)"
+"(expand-context/inner-namespace the-struct_102)"
+"(expand-context/inner-just-once? the-struct_102)"
 " module-begin-k227_0"
-"(expand-context/inner-allow-unbound? the-struct_101)"
-"(expand-context/inner-in-local-expand? the-struct_101)"
-"(expand-context/inner-stops the-struct_101)"
-"(expand-context/inner-declared-submodule-names the-struct_101)"
-"(expand-context/inner-lifts the-struct_101)"
-"(expand-context/inner-lift-envs the-struct_101)"
-"(expand-context/inner-module-lifts the-struct_101)"
-"(expand-context/inner-require-lifts the-struct_101)"
-"(expand-context/inner-to-module-lifts the-struct_101)"
-"(expand-context/inner-requires+provides the-struct_101)"
-"(expand-context/inner-observer the-struct_101)"
-"(expand-context/inner-for-serializable? the-struct_101)"
-"(expand-context/inner-should-not-encounter-macros? the-struct_101)))"
-"                                (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))"
+"(expand-context/inner-allow-unbound? the-struct_102)"
+"(expand-context/inner-in-local-expand? the-struct_102)"
+"(expand-context/inner-stops the-struct_102)"
+"(expand-context/inner-declared-submodule-names the-struct_102)"
+"(expand-context/inner-lifts the-struct_102)"
+"(expand-context/inner-lift-envs the-struct_102)"
+"(expand-context/inner-module-lifts the-struct_102)"
+"(expand-context/inner-require-lifts the-struct_102)"
+"(expand-context/inner-to-module-lifts the-struct_102)"
+"(expand-context/inner-requires+provides the-struct_102)"
+"(expand-context/inner-observer the-struct_102)"
+"(expand-context/inner-for-serializable? the-struct_102)"
+"(expand-context/inner-should-not-encounter-macros? the-struct_102)))"
+"                                (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))"
 "(expand-context/outer1.1"
 " inner226_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_100)"
-"(root-expand-context/outer-use-site-scopes the-struct_100)"
-"(root-expand-context/outer-frame-id the-struct_100)"
-"(expand-context/outer-context the-struct_100)"
-"(expand-context/outer-env the-struct_100)"
-"(expand-context/outer-post-expansion-scope-action the-struct_100)"
-"(expand-context/outer-scopes the-struct_100)"
-"(expand-context/outer-def-ctx-scopes the-struct_100)"
-"(expand-context/outer-binding-layer the-struct_100)"
-"(expand-context/outer-reference-records the-struct_100)"
-"(expand-context/outer-only-immediate? the-struct_100)"
-"(expand-context/outer-need-eventually-defined the-struct_100)"
-"(expand-context/outer-current-introduction-scopes the-struct_100)"
-"(expand-context/outer-name the-struct_100)))"
-"              (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))"
+"(root-expand-context/outer-post-expansion-scope the-struct_101)"
+"(root-expand-context/outer-use-site-scopes the-struct_101)"
+"(root-expand-context/outer-frame-id the-struct_101)"
+"(expand-context/outer-context the-struct_101)"
+"(expand-context/outer-env the-struct_101)"
+"(expand-context/outer-post-expansion-scope-action the-struct_101)"
+"(expand-context/outer-scopes the-struct_101)"
+"(expand-context/outer-def-ctx-scopes the-struct_101)"
+"(expand-context/outer-binding-layer the-struct_101)"
+"(expand-context/outer-reference-records the-struct_101)"
+"(expand-context/outer-only-immediate? the-struct_101)"
+"(expand-context/outer-need-eventually-defined the-struct_101)"
+"(expand-context/outer-current-introduction-scopes the-struct_101)"
+"(expand-context/outer-name the-struct_101)))"
+"              (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))"
 "(void"
 "(add-core-form!*"
 " '#%declare"
-"(lambda(s_412 ctx_107)"
+"(lambda(s_412 ctx_108)"
 "(begin"
-"(let-values(((obs_120)(expand-context-observer ctx_107)))"
+"(let-values(((obs_120)(expand-context-observer ctx_108)))"
 "(if obs_120(let-values()(let-values()(call-expand-observe obs_120 'prim-declare)))(void)))"
 "       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_412)))))"
 "(define-values"
@@ -69274,7 +69291,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))"
 "(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)"
 "(let-values(((s_491) disarmed-s_24))"
-"(let-values(((orig-s_79) s_491))"
+"(let-values(((orig-s_78) s_491))"
 "(let-values(((module228_1"
 " id:module-name229_1"
 " initial-require230_1"
@@ -69290,38 +69307,38 @@ static const char *startup_source =
 "((id:module-name233_0"
 " initial-require234_0"
 " body235_0)"
-"(let-values(((s_476)(cdr s_315)))"
-"(let-values(((s_477)"
-"(if(syntax?$1 s_476)"
-"(syntax-e$1 s_476)"
-" s_476)))"
-"(if(pair? s_477)"
+"(let-values(((s_475)(cdr s_315)))"
+"(let-values(((s_476)"
+"(if(syntax?$1 s_475)"
+"(syntax-e$1 s_475)"
+" s_475)))"
+"(if(pair? s_476)"
 "(let-values(((id:module-name236_0)"
 "(let-values(((s_316)"
 "(car"
-" s_477)))"
-"(if(let-values(((or-part_365)"
+" s_476)))"
+"(if(let-values(((or-part_367)"
 "(if(syntax?$1"
 " s_316)"
 "(symbol?"
 "(syntax-e$1"
 " s_316))"
 " #f)))"
-"(if or-part_365"
-" or-part_365"
+"(if or-part_367"
+" or-part_367"
 "(symbol?"
 " s_316)))"
 " s_316"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                           \"not an identifier\""
-" orig-s_79"
+" orig-s_78"
 " s_316))))"
 "((initial-require237_0"
 " body238_0)"
 "(let-values(((s_55)"
 "(cdr"
-" s_477)))"
+" s_476)))"
 "(let-values(((s_317)"
 "(if(syntax?$1"
 " s_55)"
@@ -69354,7 +69371,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                     \"bad syntax\""
-" orig-s_79))"
+" orig-s_78))"
 "(let-values()"
 " flat-s_51)))))))"
 "(values"
@@ -69363,7 +69380,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
-" orig-s_79))))))"
+" orig-s_78))))))"
 "(values"
 " id:module-name236_0"
 " initial-require237_0"
@@ -69371,13 +69388,13 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                         \"bad syntax\""
-" orig-s_79))))))"
+" orig-s_78))))))"
 "(values"
 " module232_0"
 " id:module-name233_0"
 " initial-require234_0"
 " body235_0))"
-"                                                                    (raise-syntax-error$1 #f \"bad syntax\" orig-s_79)))))"
+"                                                                    (raise-syntax-error$1 #f \"bad syntax\" orig-s_78)))))"
 "(values"
 " #t"
 " module228_1"
@@ -69398,9 +69415,9 @@ static const char *startup_source =
 "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_366) keep-enclosing-scope-at-phase_0))"
-"(if or-part_366"
-" or-part_366"
+"(if(let-values(((or-part_368) keep-enclosing-scope-at-phase_0))"
+"(if or-part_368"
+" or-part_368"
 "(1/module-path? initial-require_0)))"
 "(void)"
 "(let-values()"
@@ -69410,7 +69427,7 @@ static const char *startup_source =
 " s_16"
 " initial-require230_0)))"
 "(values))))"
-"(let-values(((phase_147) 0))"
+"(let-values(((phase_149) 0))"
 "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))"
 "(let-values(((outside-scope_1)(new-scope 'module)))"
 "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))"
@@ -69518,113 +69535,113 @@ static const char *startup_source =
 " #f"
 " #f"
 " temp265_1))))"
-"(let-values(((ctx_108)"
+"(let-values(((ctx_109)"
 "(let-values(((v_97)"
 "(copy-root-expand-context"
 " init-ctx_0"
 " root-ctx_6)))"
-"(let-values(((the-struct_102)"
+"(let-values(((the-struct_103)"
 " v_97))"
 "(if(expand-context/outer?"
-" the-struct_102)"
+" the-struct_103)"
 "(let-values(((post-expansion-scope-action266_0)"
 " add-scope)"
 "((inner267_0)"
-"(let-values(((the-struct_103)"
+"(let-values(((the-struct_104)"
 "(root-expand-context/outer-inner"
 " v_97)))"
 "(if(expand-context/inner?"
-" the-struct_103)"
+" the-struct_104)"
 "(let-values(((allow-unbound?268_0)"
 " #f)"
 "((namespace269_0)"
 " m-ns_19)"
 "((phase270_0)"
-" phase_147)"
+" phase_149)"
 "((just-once?271_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_103)"
+" the-struct_104)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_103)"
+" the-struct_104)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_103)"
+" the-struct_104)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_103)"
+" the-struct_104)"
 "(root-expand-context/inner-counter"
-" the-struct_103)"
+" the-struct_104)"
 "(root-expand-context/inner-lift-key"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-to-parsed?"
-" the-struct_103)"
+" the-struct_104)"
 " phase270_0"
 " namespace269_0"
 " just-once?271_0"
 "(expand-context/inner-module-begin-k"
-" the-struct_103)"
+" the-struct_104)"
 " allow-unbound?268_0"
 "(expand-context/inner-in-local-expand?"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-stops"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-lifts"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-lift-envs"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-module-lifts"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-require-lifts"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-requires+provides"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-observer"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-for-serializable?"
-" the-struct_103)"
+" the-struct_104)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_103)))"
+" the-struct_104)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                 \"expand-context/inner?\""
-" the-struct_103)))))"
+" the-struct_104)))))"
 "(expand-context/outer1.1"
 " inner267_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_102)"
+" the-struct_103)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_102)"
+" the-struct_103)"
 "(root-expand-context/outer-frame-id"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-context"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-env"
-" the-struct_102)"
+" the-struct_103)"
 " post-expansion-scope-action266_0"
 "(expand-context/outer-scopes"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-binding-layer"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-reference-records"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-only-immediate?"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_102)"
+" the-struct_103)"
 "(expand-context/outer-name"
-" the-struct_102)))"
+" the-struct_103)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                               \"expand-context/outer?\""
-" the-struct_102))))))"
+" the-struct_103))))))"
 "(let-values(((bodys_15)"
 "(let-values(((scoped-s_0)"
 "(apply-module-scopes_0"
@@ -69636,7 +69653,7 @@ static const char *startup_source =
 " body275_0)"
 "(let-values(((s_406)"
 " scoped-s_0))"
-"(let-values(((orig-s_80)"
+"(let-values(((orig-s_79)"
 " s_406))"
 "(let-values(((_272_1"
 " _273_1"
@@ -69711,7 +69728,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_80))"
+" orig-s_79))"
 "(let-values()"
 " flat-s_2)))))))"
 "(values"
@@ -69720,7 +69737,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                         \"bad syntax\""
-" orig-s_80))))))"
+" orig-s_79))))))"
 "(values"
 " _280_0"
 " _281_0"
@@ -69728,7 +69745,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                     \"bad syntax\""
-" orig-s_80))))))"
+" orig-s_79))))))"
 "(values"
 " _276_0"
 " _277_0"
@@ -69737,7 +69754,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
-" orig-s_80)))))"
+" orig-s_79)))))"
 "(values"
 " #t"
 " _272_1"
@@ -69865,7 +69882,7 @@ static const char *startup_source =
 "(set! again?_0"
 " #t)"
 "(values))))"
-"(let-values(((ctx_109)"
+"(let-values(((ctx_110)"
 "(let-values(((v_126)"
 " mb-init-ctx_0))"
 "(let-values(((the-struct_43)"
@@ -69873,11 +69890,11 @@ static const char *startup_source =
 "(if(expand-context/outer?"
 " the-struct_43)"
 "(let-values(((inner305_0)"
-"(let-values(((the-struct_104)"
+"(let-values(((the-struct_105)"
 "(root-expand-context/outer-inner"
 " v_126)))"
 "(if(expand-context/inner?"
-" the-struct_104)"
+" the-struct_105)"
 "(let-values(((module-begin-k306_0)"
 "(lambda(s_213"
 " ctx_3)"
@@ -69926,56 +69943,56 @@ static const char *startup_source =
 " compiled-module-box309_0))))))))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_104)"
+" the-struct_105)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_104)"
+" the-struct_105)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_104)"
+" the-struct_105)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_104)"
+" the-struct_105)"
 "(root-expand-context/inner-counter"
-" the-struct_104)"
+" the-struct_105)"
 "(root-expand-context/inner-lift-key"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-to-parsed?"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-phase"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-namespace"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-just-once?"
-" the-struct_104)"
+" the-struct_105)"
 " module-begin-k306_0"
 "(expand-context/inner-allow-unbound?"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-stops"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-lifts"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-lift-envs"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-module-lifts"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-require-lifts"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-requires+provides"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-observer"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-for-serializable?"
-" the-struct_104)"
+" the-struct_105)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_104)))"
+" the-struct_105)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                    \"expand-context/inner?\""
-" the-struct_104)))))"
+" the-struct_105)))))"
 "(expand-context/outer1.1"
 " inner305_0"
 "(root-expand-context/outer-post-expansion-scope"
@@ -70018,7 +70035,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_123)"
 "(expand-context-observer"
-" ctx_109)))"
+" ctx_110)))"
 "(if obs_123"
 "(let-values()"
 "(let-values()"
@@ -70036,7 +70053,7 @@ static const char *startup_source =
 " body301_1)"
 "(let-values(((s_112)"
 " disarmed-mb-s_0))"
-"(let-values(((orig-s_81)"
+"(let-values(((orig-s_80)"
 " s_112))"
 "(let-values(((#%module-begin300_1"
 " body301_2)"
@@ -70054,15 +70071,15 @@ static const char *startup_source =
 " s_113)))"
 " s_116))"
 "((body303_1)"
-"(let-values(((s_421)"
+"(let-values(((s_754)"
 "(cdr"
 " s_113)))"
 "(let-values(((s_215)"
 "(if(syntax?$1"
-" s_421)"
+" s_754)"
 "(syntax-e$1"
-" s_421)"
-" s_421)))"
+" s_754)"
+" s_754)))"
 "(let-values(((flat-s_52)"
 "(to-syntax-list.1"
 " s_215)))"
@@ -70072,7 +70089,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                  \"bad syntax\""
-" orig-s_81))"
+" orig-s_80))"
 "(let-values()"
 " flat-s_52)))))))"
 "(values"
@@ -70081,7 +70098,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                          \"bad syntax\""
-" orig-s_81)))))"
+" orig-s_80)))))"
 "(values"
 " #t"
 " #%module-begin300_1"
@@ -70090,7 +70107,7 @@ static const char *startup_source =
 " body301_1))"
 "(let-values(((rebuild-mb-s_0)"
 "(let-values(((ctx315_0)"
-" ctx_109)"
+" ctx_110)"
 "((mb-s316_0)"
 " mb-s_0))"
 "(keep-as-needed74.1"
@@ -70113,7 +70130,7 @@ static const char *startup_source =
 "(let-values(((expression-expanded-bodys_0)"
 "((letrec-values(((pass-1-and-2-loop_0)"
 "(lambda(bodys_17"
-" phase_148)"
+" phase_150)"
 "(begin"
 " 'pass-1-and-2-loop"
 "(let-values(((def-ctx-scopes_8)"
@@ -70121,14 +70138,14 @@ static const char *startup_source =
 " null)))"
 "(let-values(((to-parsed?_5)"
 "(expand-context-to-parsed?"
-" ctx_109)))"
+" ctx_110)))"
 "(let-values(((partial-body-ctx_0)"
-"(let-values(((v_258)"
-" ctx_109))"
-"(let-values(((the-struct_105)"
-" v_258))"
+"(let-values(((v_256)"
+" ctx_110))"
+"(let-values(((the-struct_106)"
+" v_256))"
 "(if(expand-context/outer?"
-" the-struct_105)"
+" the-struct_106)"
 "(let-values(((context325_0)"
 " 'module)"
 "((def-ctx-scopes326_0)"
@@ -70138,20 +70155,20 @@ static const char *startup_source =
 "((inner328_0)"
 "(let-values(((the-struct_48)"
 "(root-expand-context/outer-inner"
-" v_258)))"
+" v_256)))"
 "(if(expand-context/inner?"
 " the-struct_48)"
 "(let-values(((phase329_0)"
-" phase_148)"
+" phase_150)"
 "((namespace330_0)"
 "(namespace->namespace-at-phase"
 " m-ns_19"
-" phase_148))"
+" phase_150))"
 "((stops331_0)"
 "(free-id-set"
-" phase_148"
+" phase_150"
 "(module-expand-stop-ids"
-" phase_148)))"
+" phase_150)))"
 "((declared-submodule-names332_0)"
 " declared-submodule-names_3)"
 "((lift-key333_0)"
@@ -70171,11 +70188,11 @@ static const char *startup_source =
 " temp338_1)))"
 "((module-lifts335_0)"
 "(make-module-lift-context"
-" phase_148"
+" phase_150"
 " #t))"
 "((require-lifts336_0)"
 "(make-require-lift-context"
-" phase_148"
+" phase_150"
 "(let-values(((declared-submodule-names342_0)"
 " declared-submodule-names_3))"
 "(make-parse-lifted-require220.1"
@@ -70191,7 +70208,7 @@ static const char *startup_source =
 "(make-to-module-lift-context27.1"
 " temp345_0"
 " module-ends344_0"
-" phase_148))))"
+" phase_150))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
 " the-struct_48)"
@@ -70239,37 +70256,37 @@ static const char *startup_source =
 "(expand-context/outer1.1"
 " inner328_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_105)"
+" the-struct_106)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_105)"
+" the-struct_106)"
 "(root-expand-context/outer-frame-id"
-" the-struct_105)"
+" the-struct_106)"
 " context325_0"
 "(expand-context/outer-env"
-" the-struct_105)"
+" the-struct_106)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_105)"
+" the-struct_106)"
 "(expand-context/outer-scopes"
-" the-struct_105)"
+" the-struct_106)"
 " def-ctx-scopes326_0"
 "(expand-context/outer-binding-layer"
-" the-struct_105)"
+" the-struct_106)"
 "(expand-context/outer-reference-records"
-" the-struct_105)"
+" the-struct_106)"
 "(expand-context/outer-only-immediate?"
-" the-struct_105)"
+" the-struct_106)"
 " need-eventually-defined327_0"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_105)"
+" the-struct_106)"
 "(expand-context/outer-name"
-" the-struct_105)))"
+" the-struct_106)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                \"expand-context/outer?\""
-" the-struct_105))))))"
+" the-struct_106))))))"
 "(let-values(((partially-expanded-bodys_0)"
 "(let-values(((phase347_0)"
-" phase_148)"
+" phase_150)"
 "((partial-body-ctx348_0)"
 " partial-body-ctx_0)"
 "((m-ns349_0)"
@@ -70329,24 +70346,24 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_6)"
-"(let-values(((v_259)"
+"(let-values(((v_257)"
 "(accumulate-def-ctx-scopes"
 " partial-body-ctx_0"
 " def-ctx-scopes_8)))"
-"(let-values(((the-struct_106)"
-" v_259))"
+"(let-values(((the-struct_107)"
+" v_257))"
 "(if(expand-context/outer?"
-" the-struct_106)"
+" the-struct_107)"
 "(let-values(((def-ctx-scopes362_0)"
 " #f)"
 "((post-expansion-scope363_0)"
 " #f)"
 "((inner364_0)"
-"(let-values(((the-struct_107)"
+"(let-values(((the-struct_108)"
 "(root-expand-context/outer-inner"
-" v_259)))"
+" v_257)))"
 "(if(expand-context/inner?"
-" the-struct_107)"
+" the-struct_108)"
 "(let-values(((stops365_0)"
 " empty-free-id-set)"
 "((to-module-lifts366_0)"
@@ -70357,92 +70374,92 @@ static const char *startup_source =
 "(make-to-module-lift-context27.1"
 " temp369_0"
 " module-ends368_0"
-" phase_148))))"
+" phase_150))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_107)"
+" the-struct_108)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_107)"
+" the-struct_108)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_107)"
+" the-struct_108)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_107)"
+" the-struct_108)"
 "(root-expand-context/inner-counter"
-" the-struct_107)"
+" the-struct_108)"
 "(root-expand-context/inner-lift-key"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-to-parsed?"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-phase"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-namespace"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-just-once?"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-module-begin-k"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_107)"
+" the-struct_108)"
 " stops365_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-lifts"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-lift-envs"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-module-lifts"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-require-lifts"
-" the-struct_107)"
+" the-struct_108)"
 " to-module-lifts366_0"
 "(expand-context/inner-requires+provides"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-observer"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-for-serializable?"
-" the-struct_107)"
+" the-struct_108)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_107)))"
+" the-struct_108)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                                        \"expand-context/inner?\""
-" the-struct_107)))))"
+" the-struct_108)))))"
 "(expand-context/outer1.1"
 " inner364_0"
 " post-expansion-scope363_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_106)"
+" the-struct_107)"
 "(root-expand-context/outer-frame-id"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-context"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-env"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-scopes"
-" the-struct_106)"
+" the-struct_107)"
 " def-ctx-scopes362_0"
 "(expand-context/outer-binding-layer"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-reference-records"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-only-immediate?"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_106)"
+" the-struct_107)"
 "(expand-context/outer-name"
-" the-struct_106)))"
+" the-struct_107)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                      \"expand-context/outer?\""
-" the-struct_106))))))"
+" the-struct_107))))))"
 "(let-values(((phase318_0)"
-" phase_148)"
+" phase_150)"
 "((body-ctx319_0)"
 " body-ctx_6)"
 "((self320_0)"
@@ -70466,19 +70483,19 @@ static const char *startup_source =
 " partially-expanded-bodys_0))))))))))))"
 " pass-1-and-2-loop_0)"
 " bodys_16"
-" phase_147)))"
+" phase_149)))"
 "(let-values((()"
 "(begin"
 "(check-defined-by-now"
 " need-eventually-defined_1"
 " self_30"
-" ctx_109)"
+" ctx_110)"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_125)"
 "(expand-context-observer"
-" ctx_109)))"
+" ctx_110)))"
 "(if obs_125"
 "(let-values()"
 "(let-values()"
@@ -70495,11 +70512,11 @@ static const char *startup_source =
 "((m-ns373_0)"
 " m-ns_19)"
 "((phase374_0)"
-" phase_147)"
+" phase_149)"
 "((self375_0)"
 " self_30)"
 "((ctx376_1)"
-" ctx_109))"
+" ctx_110))"
 "(resolve-provides115.1"
 " ctx376_1"
 " declared-submodule-names372_0"
@@ -70538,7 +70555,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_68)"
 "(expand-context-observer"
-" ctx_109)))"
+" ctx_110)))"
 "(if obs_68"
 "(let-values()"
 "(let-values()"
@@ -70555,108 +70572,108 @@ static const char *startup_source =
 " #t"
 " m-ns_19))))"
 "(let-values(((submod-ctx_0)"
-"(let-values(((v_260)"
-" ctx_109))"
-"(let-values(((the-struct_108)"
-" v_260))"
+"(let-values(((v_258)"
+" ctx_110))"
+"(let-values(((the-struct_109)"
+" v_258))"
 "(if(expand-context/outer?"
-" the-struct_108)"
+" the-struct_109)"
 "(let-values(((frame-id379_0)"
 " #f)"
 "((post-expansion-scope380_0)"
 " #f)"
 "((inner381_0)"
-"(let-values(((the-struct_109)"
+"(let-values(((the-struct_110)"
 "(root-expand-context/outer-inner"
-" v_260)))"
+" v_258)))"
 "(if(expand-context/inner?"
-" the-struct_109)"
+" the-struct_110)"
 "(let-values(((namespace382_0)"
 " submod-m-ns_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_109)"
+" the-struct_110)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_109)"
+" the-struct_110)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_109)"
+" the-struct_110)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_109)"
+" the-struct_110)"
 "(root-expand-context/inner-counter"
-" the-struct_109)"
+" the-struct_110)"
 "(root-expand-context/inner-lift-key"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-to-parsed?"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-phase"
-" the-struct_109)"
+" the-struct_110)"
 " namespace382_0"
 "(expand-context/inner-just-once?"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-module-begin-k"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-stops"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-lifts"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-lift-envs"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-module-lifts"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-require-lifts"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-requires+provides"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-observer"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-for-serializable?"
-" the-struct_109)"
+" the-struct_110)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_109)))"
+" the-struct_110)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                          \"expand-context/inner?\""
-" the-struct_109)))))"
+" the-struct_110)))))"
 "(expand-context/outer1.1"
 " inner381_0"
 " post-expansion-scope380_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_108)"
+" the-struct_109)"
 " frame-id379_0"
 "(expand-context/outer-context"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-env"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-scopes"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-binding-layer"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-reference-records"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-only-immediate?"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_108)"
+" the-struct_109)"
 "(expand-context/outer-name"
-" the-struct_108)))"
+" the-struct_109)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                        \"expand-context/outer?\""
-" the-struct_108))))))"
+" the-struct_109))))))"
 "(let-values(((declare-enclosing-module_0)"
 "(delay"
 "(lambda()"
@@ -70703,7 +70720,7 @@ static const char *startup_source =
 "(let-values(((declare-enclosing-module395_0)"
 " declare-enclosing-module_0)"
 "((phase396_0)"
-" phase_147)"
+" phase_149)"
 "((self397_0)"
 " self_30)"
 "((requires+provides398_0)"
@@ -70769,108 +70786,108 @@ static const char *startup_source =
 "(let-values()"
 " mb-result-s_0)))))))))))))))))))))))))))))))))"
 "(let-values(((mb-ctx_0)"
-"(let-values(((v_261)"
-" ctx_108))"
-"(let-values(((the-struct_110)"
-" v_261))"
+"(let-values(((v_259)"
+" ctx_109))"
+"(let-values(((the-struct_111)"
+" v_259))"
 "(if(expand-context/outer?"
-" the-struct_110)"
+" the-struct_111)"
 "(let-values(((context408_0)"
 " 'module-begin)"
 "((inner409_0)"
-"(let-values(((the-struct_111)"
+"(let-values(((the-struct_112)"
 "(root-expand-context/outer-inner"
-" v_261)))"
+" v_259)))"
 "(if(expand-context/inner?"
-" the-struct_111)"
+" the-struct_112)"
 "(let-values(((module-begin-k410_0)"
 " module-begin-k_1)"
 "((in-local-expand?411_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_111)"
+" the-struct_112)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_111)"
+" the-struct_112)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_111)"
+" the-struct_112)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_111)"
+" the-struct_112)"
 "(root-expand-context/inner-counter"
-" the-struct_111)"
+" the-struct_112)"
 "(root-expand-context/inner-lift-key"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-to-parsed?"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-phase"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-namespace"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-just-once?"
-" the-struct_111)"
+" the-struct_112)"
 " module-begin-k410_0"
 "(expand-context/inner-allow-unbound?"
-" the-struct_111)"
+" the-struct_112)"
 " in-local-expand?411_0"
 "(expand-context/inner-stops"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-lifts"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-lift-envs"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-module-lifts"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-require-lifts"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-requires+provides"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-observer"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-for-serializable?"
-" the-struct_111)"
+" the-struct_112)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_111)))"
+" the-struct_112)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                             \"expand-context/inner?\""
-" the-struct_111)))))"
+" the-struct_112)))))"
 "(expand-context/outer1.1"
 " inner409_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_110)"
+" the-struct_111)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_110)"
+" the-struct_111)"
 "(root-expand-context/outer-frame-id"
-" the-struct_110)"
+" the-struct_111)"
 " context408_0"
 "(expand-context/outer-env"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-scopes"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-binding-layer"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-reference-records"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-only-immediate?"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_110)"
+" the-struct_111)"
 "(expand-context/outer-name"
-" the-struct_110)))"
+" the-struct_111)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                           \"expand-context/outer?\""
-" the-struct_110))))))"
+" the-struct_111))))))"
 "(let-values(((mb-scopes-s_0)"
 "(if keep-enclosing-scope-at-phase_0"
 " disarmed-s_24"
@@ -70890,7 +70907,7 @@ static const char *startup_source =
 "((mb-def-ctx-scopes417_0)"
 " mb-def-ctx-scopes_0)"
 "((phase418_0)"
-" phase_147)"
+" phase_149)"
 "((s419_0)"
 " s_16))"
 "(ensure-module-begin36.1"
@@ -70924,11 +70941,11 @@ static const char *startup_source =
 " self_30"
 " self_30)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_341)"
+"(if(let-values(((or-part_342)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_341"
-" or-part_341"
+"(if or-part_342"
+" or-part_342"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
@@ -70975,17 +70992,17 @@ static const char *startup_source =
 "(check-list"
 " lst_216)))"
 "((letrec-values(((for-loop_311)"
-"(lambda(lst_412)"
+"(lambda(lst_411)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_412)"
+" lst_411)"
 "(let-values(((mpi_54)"
 "(unsafe-car"
-" lst_412))"
+" lst_411))"
 "((rest_114)"
 "(unsafe-cdr"
-" lst_412)))"
+" lst_411)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -71083,47 +71100,47 @@ static const char *startup_source =
 "(let-values(((module-name-sym_1) module-name-sym21_0))"
 "(let-values(((scopes-s_0) scopes-s22_0))"
 "(let-values()"
-"(let-values(((ctx_110) ctx24_0))"
+"(let-values(((ctx_111) ctx24_0))"
 "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))"
-"(let-values(((phase_149) phase26_2))"
-"(let-values(((s_754) s27_2))"
+"(let-values(((phase_151) phase26_2))"
+"(let-values(((s_755) s27_2))"
 "(let-values()"
 "(let-values(((make-mb-ctx_0)"
 "(lambda()"
 "(begin"
 " 'make-mb-ctx"
-"(let-values(((v_262) ctx_110))"
-"(let-values(((the-struct_112) v_262))"
-"(if(expand-context/outer? the-struct_112)"
+"(let-values(((v_260) ctx_111))"
+"(let-values(((the-struct_113) v_260))"
+"(if(expand-context/outer? the-struct_113)"
 "(let-values(((context427_0) 'module-begin)"
 "((only-immediate?428_0) #t)"
 "((def-ctx-scopes429_0) def-ctx-scopes_9)"
-"((inner430_0)(root-expand-context/outer-inner v_262)))"
+"((inner430_0)(root-expand-context/outer-inner v_260)))"
 "(expand-context/outer1.1"
 " inner430_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_112)"
-"(root-expand-context/outer-use-site-scopes the-struct_112)"
-"(root-expand-context/outer-frame-id the-struct_112)"
+"(root-expand-context/outer-post-expansion-scope the-struct_113)"
+"(root-expand-context/outer-use-site-scopes the-struct_113)"
+"(root-expand-context/outer-frame-id the-struct_113)"
 " context427_0"
-"(expand-context/outer-env the-struct_112)"
-"(expand-context/outer-post-expansion-scope-action the-struct_112)"
-"(expand-context/outer-scopes the-struct_112)"
+"(expand-context/outer-env the-struct_113)"
+"(expand-context/outer-post-expansion-scope-action the-struct_113)"
+"(expand-context/outer-scopes the-struct_113)"
 " def-ctx-scopes429_0"
-"(expand-context/outer-binding-layer the-struct_112)"
-"(expand-context/outer-reference-records the-struct_112)"
+"(expand-context/outer-binding-layer the-struct_113)"
+"(expand-context/outer-reference-records the-struct_113)"
 " only-immediate?428_0"
-"(expand-context/outer-need-eventually-defined the-struct_112)"
-"(expand-context/outer-current-introduction-scopes the-struct_112)"
-"(expand-context/outer-name the-struct_112)))"
+"(expand-context/outer-need-eventually-defined the-struct_113)"
+"(expand-context/outer-current-introduction-scopes the-struct_113)"
+"(expand-context/outer-name the-struct_113)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"expand-context/outer?\""
-" the-struct_112))))))))"
+" the-struct_113))))))))"
 "(let-values(((mb_1)"
 "(if(= 1(length bodys_18))"
 "(let-values()"
 "(begin"
-"(let-values(((obs_127)(expand-context-observer ctx_110)))"
+"(let-values(((obs_127)(expand-context-observer ctx_111)))"
 "(if obs_127"
 "(let-values()"
 "(let-values()"
@@ -71131,7 +71148,7 @@ static const char *startup_source =
 "(void)))"
 "(if(eq?"
 " '#%module-begin"
-"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_149))"
+"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_151))"
 "(let-values()(car bodys_18))"
 "(let-values()"
 "(let-values(((partly-expanded-body_0)"
@@ -71146,13 +71163,13 @@ static const char *startup_source =
 " '#%module-begin"
 "(core-form-sym"
 "(syntax-disarm$1 partly-expanded-body_0)"
-" phase_149))"
+" phase_151))"
 "(let-values() partly-expanded-body_0)"
 "(let-values()"
 "(let-values(((temp433_0)(list partly-expanded-body_0))"
-"((s434_0) s_754)"
+"((s434_0) s_755)"
 "((scopes-s435_0) scopes-s_0)"
-"((phase436_0) phase_149)"
+"((phase436_0) phase_151)"
 "((module-name-sym437_0) module-name-sym_1)"
 "((temp438_0)(make-mb-ctx_0))"
 "((temp439_0) #f))"
@@ -71167,9 +71184,9 @@ static const char *startup_source =
 " temp438_0)))))))))"
 "(let-values()"
 "(let-values(((bodys440_0) bodys_18)"
-"((s441_0) s_754)"
+"((s441_0) s_755)"
 "((scopes-s442_0) scopes-s_0)"
-"((phase443_0) phase_149)"
+"((phase443_0) phase_151)"
 "((module-name-sym444_0) module-name-sym_1)"
 "((temp445_0)(make-mb-ctx_0)))"
 "(add-module-begin47.1"
@@ -71195,9 +71212,9 @@ static const char *startup_source =
 "(begin"
 " 'add-module-begin47"
 "(let-values(((bodys_19) bodys41_0))"
-"(let-values(((s_755) s42_0))"
+"(let-values(((s_756) s42_0))"
 "(let-values(((scopes-s_1) scopes-s43_0))"
-"(let-values(((phase_150) phase44_1))"
+"(let-values(((phase_152) phase44_1))"
 "(let-values(((module-name-sym_2) module-name-sym45_0))"
 "(let-values(((mb-ctx_1) mb-ctx46_0))"
 "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))"
@@ -71206,16 +71223,16 @@ static const char *startup_source =
 "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((mb-id446_0) mb-id_0)((phase447_0) phase_150))"
+"(if(let-values(((mb-id446_0) mb-id_0)((phase447_0) phase_152))"
 "(resolve33.1 #f #f #f #f #f #f #f #f mb-id446_0 phase447_0))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                               \"no #%module-begin binding in the module's language\""
-" s_755)))"
+" s_756)))"
 "(values))))"
-"(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_755)))"
+"(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_756)))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_128)(expand-context-observer mb-ctx_1)))"
@@ -71245,13 +71262,13 @@ static const char *startup_source =
 "(begin"
 "(if(eq?"
 " '#%module-begin"
-"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_150))"
+"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_152))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                           \"expansion of #%module-begin is not a #%plain-module-begin form\""
-" s_755"
+" s_756"
 " partly-expanded-mb_0)))"
 " partly-expanded-mb_0)))))))))))))))))))"
 "(define-values"
@@ -71267,13 +71284,13 @@ static const char *startup_source =
 " enclosing-self_2"
 " enclosing-mod_2)"
 "(begin"
-"(lambda(s_756)"
+"(lambda(s_757)"
 "(let-values()"
 "(let-values(((s-without-enclosing_0)"
 "(if keep-enclosing-scope-at-phase_1"
-" s_756"
+" s_757"
 "(remove-use-site-scopes"
-"(remove-scopes s_756(root-expand-context-module-scopes init-ctx_1))"
+"(remove-scopes s_757(root-expand-context-module-scopes init-ctx_1))"
 " init-ctx_1))))"
 "(let-values(((s-with-edges_0)"
 "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))"
@@ -71325,7 +71342,7 @@ static const char *startup_source =
 "(begin"
 " 'partially-expand-bodys81"
 "(let-values(((bodys_20) bodys80_0))"
-"(let-values(((phase_151) phase50_0))"
+"(let-values(((phase_153) phase50_0))"
 "(let-values(((partial-body-ctx_1) ctx51_0))"
 "(let-values(((m-ns_20) namespace52_0))"
 "(let-values(((self_32) self53_0))"
@@ -71342,14 +71359,14 @@ static const char *startup_source =
 "(let-values(((pass-1-and-2-loop_1) loop64_0))"
 "(let-values()"
 "(begin"
-"(namespace-visit-available-modules! m-ns_20 phase_151)"
-"((letrec-values(((loop_127)"
+"(namespace-visit-available-modules! m-ns_20 phase_153)"
+"((letrec-values(((loop_128)"
 "(lambda(tail?_53 bodys_21)"
 "(begin"
 " 'loop"
 "(if(null? bodys_21)"
 "(let-values()"
-"(if(if tail?_53(not(zero? phase_151)) #f)"
+"(if(if tail?_53(not(zero? phase_153)) #f)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_130)"
@@ -71389,7 +71406,7 @@ static const char *startup_source =
 "(if(null? bodys_22)"
 "(let-values() null)"
 "(let-values()"
-"(loop_127"
+"(loop_128"
 " #t"
 "(add-post-expansion-scope"
 " bodys_22"
@@ -71456,7 +71473,7 @@ static const char *startup_source =
 "(let-values(((tmp_64)"
 "(core-form-sym"
 " disarmed-exp-body_1"
-" phase_151)))"
+" phase_153)))"
 "(if(equal?"
 " tmp_64"
 " 'begin)"
@@ -71464,45 +71481,45 @@ static const char *startup_source =
 "(let-values(((ok?_75"
 " begin459_0"
 " e460_0)"
-"(let-values(((s_757)"
+"(let-values(((s_758)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_82)"
-" s_757))"
+"(let-values(((orig-s_81)"
+" s_758))"
 "(let-values(((begin459_1"
 " e460_1)"
-"(let-values(((s_758)"
-"(if(syntax?$1"
-" s_757)"
-"(syntax-e$1"
-" s_757)"
-" s_757)))"
-"(if(pair?"
-" s_758)"
-"(let-values(((begin461_0)"
 "(let-values(((s_759)"
-"(car"
-" s_758)))"
-" s_759))"
-"((e462_0)"
-"(let-values(((s_760)"
-"(cdr"
-" s_758)))"
-"(let-values(((s_761)"
 "(if(syntax?$1"
-" s_760)"
+" s_758)"
 "(syntax-e$1"
-" s_760)"
-" s_760)))"
+" s_758)"
+" s_758)))"
+"(if(pair?"
+" s_759)"
+"(let-values(((begin461_0)"
+"(let-values(((s_760)"
+"(car"
+" s_759)))"
+" s_760))"
+"((e462_0)"
+"(let-values(((s_761)"
+"(cdr"
+" s_759)))"
+"(let-values(((s_762)"
+"(if(syntax?$1"
+" s_761)"
+"(syntax-e$1"
+" s_761)"
+" s_761)))"
 "(let-values(((flat-s_53)"
 "(to-syntax-list.1"
-" s_761)))"
+" s_762)))"
 "(if(not"
 " flat-s_53)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                     \"bad syntax\""
-" orig-s_82))"
+" orig-s_81))"
 "(let-values()"
 " flat-s_53)))))))"
 "(values"
@@ -71511,7 +71528,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                             \"bad syntax\""
-" orig-s_82)))))"
+" orig-s_81)))))"
 "(values"
 " #t"
 " begin459_1"
@@ -71541,7 +71558,7 @@ static const char *startup_source =
 " 'splice"
 " spliced-bodys_0)))"
 "(void)))"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " spliced-bodys_0))))))"
 "(if(equal?"
@@ -71573,7 +71590,7 @@ static const char *startup_source =
 "(namespace->namespace-at-phase"
 " m-ns_20"
 "(add1"
-" phase_151))))"
+" phase_153))))"
 "(let-values((()"
 "(begin"
 "(prepare-next-phase-namespace"
@@ -71595,45 +71612,45 @@ static const char *startup_source =
 "(let-values(((ok?_76"
 " begin-for-syntax463_0"
 " e464_0)"
-"(let-values(((s_762)"
+"(let-values(((s_763)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_83)"
-" s_762))"
+"(let-values(((orig-s_82)"
+" s_763))"
 "(let-values(((begin-for-syntax463_1"
 " e464_1)"
-"(let-values(((s_763)"
-"(if(syntax?$1"
-" s_762)"
-"(syntax-e$1"
-" s_762)"
-" s_762)))"
-"(if(pair?"
-" s_763)"
-"(let-values(((begin-for-syntax465_0)"
 "(let-values(((s_764)"
-"(car"
-" s_763)))"
-" s_764))"
-"((e466_0)"
-"(let-values(((s_765)"
-"(cdr"
-" s_763)))"
-"(let-values(((s_766)"
 "(if(syntax?$1"
-" s_765)"
+" s_763)"
 "(syntax-e$1"
-" s_765)"
-" s_765)))"
+" s_763)"
+" s_763)))"
+"(if(pair?"
+" s_764)"
+"(let-values(((begin-for-syntax465_0)"
+"(let-values(((s_765)"
+"(car"
+" s_764)))"
+" s_765))"
+"((e466_0)"
+"(let-values(((s_766)"
+"(cdr"
+" s_764)))"
+"(let-values(((s_767)"
+"(if(syntax?$1"
+" s_766)"
+"(syntax-e$1"
+" s_766)"
+" s_766)))"
 "(let-values(((flat-s_54)"
 "(to-syntax-list.1"
-" s_766)))"
+" s_767)))"
 "(if(not"
 " flat-s_54)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                               \"bad syntax\""
-" orig-s_83))"
+" orig-s_82))"
 "(let-values()"
 " flat-s_54)))))))"
 "(values"
@@ -71642,7 +71659,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                       \"bad syntax\""
-" orig-s_83)))))"
+" orig-s_82)))))"
 "(values"
 " #t"
 " begin-for-syntax463_1"
@@ -71651,7 +71668,7 @@ static const char *startup_source =
 "(pass-1-and-2-loop_1"
 " e464_0"
 "(add1"
-" phase_151))))"
+" phase_153))))"
 "(begin"
 "(let-values(((obs_137)"
 "(expand-context-observer"
@@ -71666,17 +71683,17 @@ static const char *startup_source =
 "(namespace-run-available-modules!"
 " m-ns_20"
 "(add1"
-" phase_151))"
+" phase_153))"
 "(eval-nested-bodys"
 " nested-bodys_1"
 "(add1"
-" phase_151)"
+" phase_153)"
 " ct-m-ns_0"
 " self_32"
 " partial-body-ctx_1)"
 "(namespace-visit-available-modules!"
 " m-ns_20"
-" phase_151)"
+" phase_153)"
 "(let-values(((obs_138)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
@@ -71699,17 +71716,17 @@ static const char *startup_source =
 " lst_47)))"
 "((letrec-values(((for-loop_312)"
 "(lambda(fold-var_358"
-" lst_413)"
+" lst_412)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_413)"
+" lst_412)"
 "(let-values(((nested-body_0)"
 "(unsafe-car"
-" lst_413))"
+" lst_412))"
 "((rest_246)"
 "(unsafe-cdr"
-" lst_413)))"
+" lst_412)))"
 "(let-values(((fold-var_124)"
 "(let-values(((fold-var_125)"
 " fold-var_358))"
@@ -71743,7 +71760,7 @@ static const char *startup_source =
 "(semi-parsed-begin-for-syntax3.1"
 " exp-body_7"
 " nested-bodys_1)"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1))))))))))"
 "(if(equal?"
@@ -71772,37 +71789,37 @@ static const char *startup_source =
 " define-values467_0"
 " id468_0"
 " rhs469_0)"
-"(let-values(((s_767)"
+"(let-values(((s_768)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_84)"
-" s_767))"
+"(let-values(((orig-s_83)"
+" s_768))"
 "(let-values(((define-values467_1"
 " id468_1"
 " rhs469_1)"
-"(let-values(((s_768)"
-"(if(syntax?$1"
-" s_767)"
-"(syntax-e$1"
-" s_767)"
-" s_767)))"
-"(if(pair?"
-" s_768)"
-"(let-values(((define-values470_0)"
 "(let-values(((s_769)"
-"(car"
+"(if(syntax?$1"
+" s_768)"
+"(syntax-e$1"
+" s_768)"
 " s_768)))"
-" s_769))"
+"(if(pair?"
+" s_769)"
+"(let-values(((define-values470_0)"
+"(let-values(((s_770)"
+"(car"
+" s_769)))"
+" s_770))"
 "((id471_0"
 " rhs472_0)"
-"(let-values(((s_770)"
+"(let-values(((s_771)"
 "(cdr"
-" s_768)))"
+" s_769)))"
 "(let-values(((s_525)"
 "(if(syntax?$1"
-" s_770)"
+" s_771)"
 "(syntax-e$1"
-" s_770)"
-" s_770)))"
+" s_771)"
+" s_771)))"
 "(if(pair?"
 " s_525)"
 "(let-values(((id473_0)"
@@ -71824,10 +71841,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                               \"bad syntax\""
-" orig-s_84))"
+" orig-s_83))"
 "(let-values()"
-"(let-values(((id_145)"
-"(let-values(((lst_414)"
+"(let-values(((id_144)"
+"(let-values(((lst_413)"
 " flat-s_55))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -71835,108 +71852,108 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_414)))"
+" lst_413)))"
 "((letrec-values(((for-loop_313)"
-"(lambda(id_146"
-" lst_415)"
+"(lambda(id_145"
+" lst_414)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_415)"
-"(let-values(((s_771)"
+" lst_414)"
+"(let-values(((s_772)"
 "(unsafe-car"
-" lst_415))"
+" lst_414))"
 "((rest_247)"
 "(unsafe-cdr"
-" lst_415)))"
+" lst_414)))"
+"(let-values(((id_146)"
 "(let-values(((id_147)"
+" id_145))"
 "(let-values(((id_148)"
-" id_146))"
-"(let-values(((id_149)"
 "(let-values()"
 "(let-values(((id483_0)"
 "(let-values()"
-"(if(let-values(((or-part_395)"
+"(if(let-values(((or-part_396)"
 "(if(syntax?$1"
-" s_771)"
+" s_772)"
 "(symbol?"
 "(syntax-e$1"
-" s_771))"
+" s_772))"
 " #f)))"
-"(if or-part_395"
-" or-part_395"
+"(if or-part_396"
+" or-part_396"
 "(symbol?"
-" s_771)))"
-" s_771"
+" s_772)))"
+" s_772"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                             \"not an identifier\""
-" orig-s_84"
-" s_771)))))"
+" orig-s_83"
+" s_772)))))"
 "(cons"
 " id483_0"
-" id_148)))))"
+" id_147)))))"
 "(values"
-" id_149)))))"
+" id_148)))))"
 "(if(not"
 " #f)"
 "(for-loop_313"
-" id_147"
+" id_146"
 " rest_247)"
-" id_147)))"
-" id_146)))))"
+" id_146)))"
+" id_145)))))"
 " for-loop_313)"
 " null"
-" lst_414)))))"
+" lst_413)))))"
 "(reverse$1"
-" id_145))))))))"
+" id_144))))))))"
 "((rhs474_0)"
-"(let-values(((s_772)"
+"(let-values(((s_773)"
 "(cdr"
 " s_525)))"
-"(let-values(((s_773)"
-"(if(syntax?$1"
-" s_772)"
-"(syntax-e$1"
-" s_772)"
-" s_772)))"
-"(if(pair?"
-" s_773)"
-"(let-values(((rhs475_0)"
 "(let-values(((s_774)"
-"(car"
+"(if(syntax?$1"
+" s_773)"
+"(syntax-e$1"
+" s_773)"
 " s_773)))"
-" s_774))"
+"(if(pair?"
+" s_774)"
+"(let-values(((rhs475_0)"
+"(let-values(((s_775)"
+"(car"
+" s_774)))"
+" s_775))"
 "(()"
 "(let-values(((s_190)"
 "(cdr"
-" s_773)))"
-"(let-values(((s_775)"
+" s_774)))"
+"(let-values(((s_776)"
 "(if(syntax?$1"
 " s_190)"
 "(syntax-e$1"
 " s_190)"
 " s_190)))"
 "(if(null?"
-" s_775)"
+" s_776)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_84))))))"
+" orig-s_83))))))"
 "(values"
 " rhs475_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                           \"bad syntax\""
-" orig-s_84))))))"
+" orig-s_83))))))"
 "(values"
 " id473_0"
 " rhs474_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                       \"bad syntax\""
-" orig-s_84))))))"
+" orig-s_83))))))"
 "(values"
 " define-values470_0"
 " id471_0"
@@ -71944,22 +71961,22 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                   \"bad syntax\""
-" orig-s_84)))))"
+" orig-s_83)))))"
 "(values"
 " #t"
 " define-values467_1"
 " id468_1"
 " rhs469_1))))))"
-"(let-values(((ids_40)"
+"(let-values(((ids_39)"
 "(remove-use-site-scopes"
 " id468_0"
 " partial-body-ctx_1)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids476_0)"
-" ids_40)"
+" ids_39)"
 "((phase477_0)"
-" phase_151)"
+" phase_153)"
 "((exp-body478_0)"
 " exp-body_7))"
 "(check-no-duplicate-ids8.1"
@@ -71977,8 +71994,8 @@ static const char *startup_source =
 " exp-body_7))"
 "(check-ids-unbound173.1"
 " exp-body482_0"
-" ids_40"
-" phase_151"
+" ids_39"
+" phase_153"
 " requires+provides_7))"
 "(values))))"
 "(let-values(((syms_24)"
@@ -71998,16 +72015,16 @@ static const char *startup_source =
 " #t"
 " #f"
 " #f"
-" ids_40"
+" ids_39"
 " defined-syms_11"
 " self_32"
-" phase_151"
+" phase_153"
 " all-scopes-stx_5))))"
 "(begin"
 "(add-defined-syms!"
 " requires+provides_7"
 " syms_24"
-" phase_151)"
+" phase_153)"
 "(let-values(((obs_140)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
@@ -72021,7 +72038,7 @@ static const char *startup_source =
 " #f"
 "(list"
 " define-values467_0"
-" ids_40"
+" ids_39"
 " rhs469_0)"
 " exp-body_7))))"
 "(void)))"
@@ -72029,9 +72046,9 @@ static const char *startup_source =
 "(semi-parsed-define-values2.1"
 " exp-body_7"
 " syms_24"
-" ids_40"
+" ids_39"
 " rhs469_0)"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1))))))))))"
 "(if(equal?"
@@ -72081,43 +72098,43 @@ static const char *startup_source =
 " define-syntaxes492_0"
 " id493_0"
 " rhs494_0)"
-"(let-values(((s_776)"
+"(let-values(((s_777)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_85)"
-" s_776))"
+"(let-values(((orig-s_84)"
+" s_777))"
 "(let-values(((define-syntaxes492_1"
 " id493_1"
 " rhs494_1)"
-"(let-values(((s_777)"
-"(if(syntax?$1"
-" s_776)"
-"(syntax-e$1"
-" s_776)"
-" s_776)))"
-"(if(pair?"
-" s_777)"
-"(let-values(((define-syntaxes495_0)"
 "(let-values(((s_778)"
-"(car"
+"(if(syntax?$1"
+" s_777)"
+"(syntax-e$1"
+" s_777)"
 " s_777)))"
-" s_778))"
+"(if(pair?"
+" s_778)"
+"(let-values(((define-syntaxes495_0)"
+"(let-values(((s_779)"
+"(car"
+" s_778)))"
+" s_779))"
 "((id496_0"
 " rhs497_0)"
 "(let-values(((s_535)"
 "(cdr"
-" s_777)))"
-"(let-values(((s_779)"
+" s_778)))"
+"(let-values(((s_780)"
 "(if(syntax?$1"
 " s_535)"
 "(syntax-e$1"
 " s_535)"
 " s_535)))"
 "(if(pair?"
-" s_779)"
+" s_780)"
 "(let-values(((id498_0)"
 "(let-values(((s_537)"
 "(car"
-" s_779)))"
+" s_780)))"
 "(let-values(((s_538)"
 "(if(syntax?$1"
 " s_537)"
@@ -72133,10 +72150,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_85))"
+" orig-s_84))"
 "(let-values()"
-"(let-values(((id_150)"
-"(let-values(((lst_416)"
+"(let-values(((id_149)"
+"(let-values(((lst_415)"
 " flat-s_40))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72144,108 +72161,108 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_416)))"
+" lst_415)))"
 "((letrec-values(((for-loop_314)"
-"(lambda(id_151"
-" lst_417)"
+"(lambda(id_150"
+" lst_416)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_417)"
-"(let-values(((s_780)"
+" lst_416)"
+"(let-values(((s_781)"
 "(unsafe-car"
-" lst_417))"
+" lst_416))"
 "((rest_248)"
 "(unsafe-cdr"
-" lst_417)))"
+" lst_416)))"
+"(let-values(((id_151)"
 "(let-values(((id_152)"
+" id_150))"
 "(let-values(((id_153)"
-" id_151))"
-"(let-values(((id_154)"
 "(let-values()"
 "(let-values(((id508_0)"
 "(let-values()"
-"(if(let-values(((or-part_396)"
+"(if(let-values(((or-part_397)"
 "(if(syntax?$1"
-" s_780)"
+" s_781)"
 "(symbol?"
 "(syntax-e$1"
-" s_780))"
+" s_781))"
 " #f)))"
-"(if or-part_396"
-" or-part_396"
+"(if or-part_397"
+" or-part_397"
 "(symbol?"
-" s_780)))"
-" s_780"
+" s_781)))"
+" s_781"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                   \"not an identifier\""
-" orig-s_85"
-" s_780)))))"
+" orig-s_84"
+" s_781)))))"
 "(cons"
 " id508_0"
-" id_153)))))"
+" id_152)))))"
 "(values"
-" id_154)))))"
+" id_153)))))"
 "(if(not"
 " #f)"
 "(for-loop_314"
-" id_152"
+" id_151"
 " rest_248)"
-" id_152)))"
-" id_151)))))"
+" id_151)))"
+" id_150)))))"
 " for-loop_314)"
 " null"
-" lst_416)))))"
+" lst_415)))))"
 "(reverse$1"
-" id_150))))))))"
+" id_149))))))))"
 "((rhs499_0)"
-"(let-values(((s_781)"
-"(cdr"
-" s_779)))"
 "(let-values(((s_782)"
-"(if(syntax?$1"
-" s_781)"
-"(syntax-e$1"
-" s_781)"
-" s_781)))"
-"(if(pair?"
-" s_782)"
-"(let-values(((rhs500_0)"
-"(let-values(((s_783)"
-"(car"
-" s_782)))"
-" s_783))"
-"(()"
-"(let-values(((s_784)"
 "(cdr"
-" s_782)))"
-"(let-values(((s_785)"
+" s_780)))"
+"(let-values(((s_783)"
 "(if(syntax?$1"
-" s_784)"
+" s_782)"
 "(syntax-e$1"
-" s_784)"
-" s_784)))"
-"(if(null?"
+" s_782)"
+" s_782)))"
+"(if(pair?"
+" s_783)"
+"(let-values(((rhs500_0)"
+"(let-values(((s_784)"
+"(car"
+" s_783)))"
+" s_784))"
+"(()"
+"(let-values(((s_785)"
+"(cdr"
+" s_783)))"
+"(let-values(((s_786)"
+"(if(syntax?$1"
 " s_785)"
+"(syntax-e$1"
+" s_785)"
+" s_785)))"
+"(if(null?"
+" s_786)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_85))))))"
+" orig-s_84))))))"
 "(values"
 " rhs500_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_85))))))"
+" orig-s_84))))))"
 "(values"
 " id498_0"
 " rhs499_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                             \"bad syntax\""
-" orig-s_85))))))"
+" orig-s_84))))))"
 "(values"
 " define-syntaxes495_0"
 " id496_0"
@@ -72253,22 +72270,22 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                         \"bad syntax\""
-" orig-s_85)))))"
+" orig-s_84)))))"
 "(values"
 " #t"
 " define-syntaxes492_1"
 " id493_1"
 " rhs494_1))))))"
-"(let-values(((ids_41)"
+"(let-values(((ids_40)"
 "(remove-use-site-scopes"
 " id493_0"
 " partial-body-ctx_1)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids501_0)"
-" ids_41)"
+" ids_40)"
 "((phase502_0)"
-" phase_151)"
+" phase_153)"
 "((exp-body503_0)"
 " exp-body_7))"
 "(check-no-duplicate-ids8.1"
@@ -72286,8 +72303,8 @@ static const char *startup_source =
 " exp-body_7))"
 "(check-ids-unbound173.1"
 " exp-body507_0"
-" ids_41"
-" phase_151"
+" ids_40"
+" phase_153"
 " requires+provides_7))"
 "(values))))"
 "(let-values(((syms_25)"
@@ -72309,17 +72326,17 @@ static const char *startup_source =
 " #t"
 " #f"
 " #f"
-" ids_41"
+" ids_40"
 " defined-syms_11"
 " self_32"
-" phase_151"
+" phase_153"
 " all-scopes-stx_5))))"
 "(let-values((()"
 "(begin"
 "(add-defined-syms!"
 " requires+provides_7"
 " syms_25"
-" phase_151)"
+" phase_153)"
 "(values))))"
 "(let-values(((exp-rhs_6"
 " parsed-rhs_2"
@@ -72327,22 +72344,22 @@ static const char *startup_source =
 "(let-values(((temp518_0)"
 " rhs494_0)"
 "((ids519_0)"
-" ids_41)"
+" ids_40)"
 "((temp520_0)"
-"(let-values(((v_263)"
+"(let-values(((v_261)"
 " partial-body-ctx_1))"
-"(let-values(((the-struct_113)"
-" v_263))"
+"(let-values(((the-struct_114)"
+" v_261))"
 "(if(expand-context/outer?"
-" the-struct_113)"
+" the-struct_114)"
 "(let-values(((need-eventually-defined522_0)"
 " need-eventually-defined_2)"
 "((inner523_0)"
-"(let-values(((the-struct_114)"
+"(let-values(((the-struct_115)"
 "(root-expand-context/outer-inner"
-" v_263)))"
+" v_261)))"
 "(if(expand-context/inner?"
-" the-struct_114)"
+" the-struct_115)"
 "(let-values(((lifts524_0)"
 " #f)"
 "((module-lifts525_0)"
@@ -72351,87 +72368,87 @@ static const char *startup_source =
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_114)"
+" the-struct_115)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_114)"
+" the-struct_115)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_114)"
+" the-struct_115)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_114)"
+" the-struct_115)"
 "(root-expand-context/inner-counter"
-" the-struct_114)"
+" the-struct_115)"
 "(root-expand-context/inner-lift-key"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-to-parsed?"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-phase"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-namespace"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-just-once?"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-module-begin-k"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-stops"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_114)"
+" the-struct_115)"
 " lifts524_0"
 "(expand-context/inner-lift-envs"
-" the-struct_114)"
+" the-struct_115)"
 " module-lifts525_0"
 "(expand-context/inner-require-lifts"
-" the-struct_114)"
+" the-struct_115)"
 " to-module-lifts526_0"
 "(expand-context/inner-requires+provides"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-observer"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-for-serializable?"
-" the-struct_114)"
+" the-struct_115)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_114)))"
+" the-struct_115)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                     \"expand-context/inner?\""
-" the-struct_114)))))"
+" the-struct_115)))))"
 "(expand-context/outer1.1"
 " inner523_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_113)"
+" the-struct_114)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_113)"
+" the-struct_114)"
 "(root-expand-context/outer-frame-id"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-context"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-env"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-scopes"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-binding-layer"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-reference-records"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-only-immediate?"
-" the-struct_113)"
+" the-struct_114)"
 " need-eventually-defined522_0"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_113)"
+" the-struct_114)"
 "(expand-context/outer-name"
-" the-struct_113)))"
+" the-struct_114)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                   \"expand-context/outer?\""
-" the-struct_113)))))"
+" the-struct_114)))))"
 "((temp521_0)"
 " #f))"
 "(expand+eval-for-syntaxes-binding63.1"
@@ -72442,18 +72459,24 @@ static const char *startup_source =
 " temp520_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_418)"
+"(let-values(((lst_417)"
 " syms_25)"
-"((lst_419)"
+"((lst_418)"
 " vals_10)"
-"((lst_420)"
-" ids_41))"
+"((lst_419)"
+" ids_40))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_417)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_418)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -72461,44 +72484,38 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_419)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_420)))"
 "((letrec-values(((for-loop_315)"
-"(lambda(lst_421"
-" lst_422"
-" lst_423)"
+"(lambda(lst_420"
+" lst_421"
+" lst_422)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_421)"
+" lst_420)"
 "(if(pair?"
-" lst_422)"
+" lst_421)"
 "(pair?"
-" lst_423)"
+" lst_422)"
 " #f)"
 " #f)"
 "(let-values(((sym_105)"
 "(unsafe-car"
-" lst_421))"
+" lst_420))"
 "((rest_249)"
 "(unsafe-cdr"
-" lst_421))"
+" lst_420))"
 "((val_86)"
 "(unsafe-car"
-" lst_422))"
+" lst_421))"
 "((rest_250)"
 "(unsafe-cdr"
-" lst_422))"
-"((id_155)"
+" lst_421))"
+"((id_154)"
 "(unsafe-car"
-" lst_423))"
+" lst_422))"
 "((rest_251)"
 "(unsafe-cdr"
-" lst_423)))"
+" lst_422)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72508,12 +72525,12 @@ static const char *startup_source =
 "(begin"
 "(maybe-install-free=id-in-context!"
 " val_86"
-" id_155"
-" phase_151"
+" id_154"
+" phase_153"
 " partial-body-ctx_1)"
 "(namespace-set-transformer!"
 " m-ns_20"
-" phase_151"
+" phase_153"
 " sym_105"
 " val_86)))"
 "(values)))))"
@@ -72527,9 +72544,9 @@ static const char *startup_source =
 "(values))))"
 "(values))))))"
 " for-loop_315)"
+" lst_417"
 " lst_418"
-" lst_419"
-" lst_420)))"
+" lst_419)))"
 "(values))))"
 "(let-values()"
 "(let-values((()"
@@ -72547,7 +72564,7 @@ static const char *startup_source =
 " #f"
 "(list"
 " define-syntaxes492_0"
-" ids_41"
+" ids_40"
 " exp-rhs_6)))))"
 "(void)))"
 "(values))))"
@@ -72555,7 +72572,7 @@ static const char *startup_source =
 "(parsed-define-syntaxes20.1"
 "(keep-properties-only"
 " exp-body_7)"
-" ids_41"
+" ids_40"
 " syms_25"
 " parsed-rhs_2)))"
 "(cons"
@@ -72568,7 +72585,7 @@ static const char *startup_source =
 "((temp528_0)"
 "(list"
 " define-syntaxes492_0"
-" ids_41"
+" ids_40"
 " exp-rhs_6)))"
 "(rebuild5.1"
 " #f"
@@ -72576,7 +72593,7 @@ static const char *startup_source =
 " exp-body527_0"
 " temp528_0))"
 " parsed-body_0))"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1)))))))))))))))))"
 "(if(equal?"
@@ -72608,45 +72625,45 @@ static const char *startup_source =
 "(let-values(((ok?_79"
 " #%require529_0"
 " req530_0)"
-"(let-values(((s_786)"
+"(let-values(((s_787)"
 " ready-body_0))"
-"(let-values(((orig-s_86)"
-" s_786))"
+"(let-values(((orig-s_85)"
+" s_787))"
 "(let-values(((#%require529_1"
 " req530_1)"
-"(let-values(((s_787)"
-"(if(syntax?$1"
-" s_786)"
-"(syntax-e$1"
-" s_786)"
-" s_786)))"
-"(if(pair?"
-" s_787)"
-"(let-values(((#%require531_0)"
 "(let-values(((s_788)"
-"(car"
-" s_787)))"
-" s_788))"
-"((req532_0)"
-"(let-values(((s_789)"
-"(cdr"
-" s_787)))"
-"(let-values(((s_790)"
 "(if(syntax?$1"
-" s_789)"
+" s_787)"
 "(syntax-e$1"
-" s_789)"
-" s_789)))"
+" s_787)"
+" s_787)))"
+"(if(pair?"
+" s_788)"
+"(let-values(((#%require531_0)"
+"(let-values(((s_789)"
+"(car"
+" s_788)))"
+" s_789))"
+"((req532_0)"
+"(let-values(((s_790)"
+"(cdr"
+" s_788)))"
+"(let-values(((s_791)"
+"(if(syntax?$1"
+" s_790)"
+"(syntax-e$1"
+" s_790)"
+" s_790)))"
 "(let-values(((flat-s_56)"
 "(to-syntax-list.1"
-" s_790)))"
+" s_791)))"
 "(if(not"
 " flat-s_56)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                 \"bad syntax\""
-" orig-s_86))"
+" orig-s_85))"
 "(let-values()"
 " flat-s_56)))))))"
 "(values"
@@ -72655,7 +72672,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                         \"bad syntax\""
-" orig-s_86)))))"
+" orig-s_85)))))"
 "(values"
 " #t"
 " #%require529_1"
@@ -72670,9 +72687,9 @@ static const char *startup_source =
 "((m-ns536_0)"
 " m-ns_20)"
 "((phase537_0)"
-" phase_151)"
+" phase_153)"
 "((phase538_0)"
-" phase_151)"
+" phase_153)"
 "((requires+provides539_0)"
 " requires+provides_7)"
 "((declared-submodule-names540_0)"
@@ -72717,7 +72734,7 @@ static const char *startup_source =
 "(void)))"
 "(cons"
 " exp-body_7"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1)))))))"
 "(if(equal?"
@@ -72726,7 +72743,7 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 " exp-body_7"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1)))"
 "(if(equal?"
@@ -72767,7 +72784,7 @@ static const char *startup_source =
 " partial-body-ctx_1))))"
 "(cons"
 " submod_2"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1)))))"
 "(if(equal?"
@@ -72796,7 +72813,7 @@ static const char *startup_source =
 "(void)))"
 "(cons"
 " exp-body_7"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1))))"
 "(if(equal?"
@@ -72806,18 +72823,18 @@ static const char *startup_source =
 "(let-values(((ok?_80"
 " #%declare550_0"
 " kw551_0)"
-"(let-values(((s_791)"
+"(let-values(((s_792)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_87)"
-" s_791))"
+"(let-values(((orig-s_86)"
+" s_792))"
 "(let-values(((#%declare550_1"
 " kw551_1)"
 "(let-values(((s_564)"
 "(if(syntax?$1"
-" s_791)"
+" s_792)"
 "(syntax-e$1"
-" s_791)"
-" s_791)))"
+" s_792)"
+" s_792)))"
 "(if(pair?"
 " s_564)"
 "(let-values(((#%declare552_0)"
@@ -72844,7 +72861,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                     \"bad syntax\""
-" orig-s_87))"
+" orig-s_86))"
 "(let-values()"
 " flat-s_57)))))))"
 "(values"
@@ -72853,14 +72870,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                             \"bad syntax\""
-" orig-s_87)))))"
+" orig-s_86)))))"
 "(values"
 " #t"
 " #%declare550_1"
 " kw551_1))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_424)"
+"(let-values(((lst_423)"
 " kw551_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72868,19 +72885,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_424)))"
+" lst_423)))"
 "((letrec-values(((for-loop_316)"
-"(lambda(lst_425)"
+"(lambda(lst_424)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_425)"
+" lst_424)"
 "(let-values(((kw_1)"
 "(unsafe-car"
-" lst_425))"
+" lst_424))"
 "((rest_252)"
 "(unsafe-cdr"
-" lst_425)))"
+" lst_424)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72936,7 +72953,7 @@ static const char *startup_source =
 "(values))))"
 "(values))))))"
 " for-loop_316)"
-" lst_424)))"
+" lst_423)))"
 "(values))))"
 "(let-values()"
 "(let-values(((parsed-body_1)"
@@ -72949,13 +72966,13 @@ static const char *startup_source =
 "(expanded+parsed1.1"
 " exp-body_7"
 " parsed-body_1))"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1)))))))"
 "(let-values()"
 "(cons"
 " exp-body_7"
-"(loop_127"
+"(loop_128"
 " tail?_53"
 " rest-bodys_1)))))))))))))))))"
 "(let-values(((l_84)"
@@ -72964,7 +72981,7 @@ static const char *startup_source =
 "(expand-context-require-lifts"
 " partial-body-ctx_1))"
 " lifted-defns_0"
-"(loop_127"
+"(loop_128"
 " #f"
 "(add-post-expansion-scope"
 "(get-and-clear-module-lifts!"
@@ -72976,28 +72993,28 @@ static const char *startup_source =
 "(append"
 " l_84"
 "(finish_2)))))))))))))))))"
-" loop_127)"
+" loop_128)"
 " #t"
 " bodys_20))))))))))))))))))))))"
 "(define-values"
 "(make-wrap-as-definition)"
 "(lambda(self_33 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)"
 "(begin"
-"(lambda(ids_42 rhs_23 phase_152)"
+"(lambda(ids_41 rhs_23 phase_154)"
 "(let-values(((scoped-ids_0)"
 "(reverse$1"
-"(let-values(((lst_426) ids_42))"
+"(let-values(((lst_425) ids_41))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_426)))"
+"(let-values()(check-list lst_425)))"
 "((letrec-values(((for-loop_317)"
-"(lambda(fold-var_364 lst_427)"
+"(lambda(fold-var_364 lst_426)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_427)"
-"(let-values(((id_156)(unsafe-car lst_427))"
-"((rest_253)(unsafe-cdr lst_427)))"
+"(if(pair? lst_426)"
+"(let-values(((id_155)(unsafe-car lst_426))"
+"((rest_253)(unsafe-cdr lst_426)))"
 "(let-values(((fold-var_365)"
 "(let-values(((fold-var_366) fold-var_364))"
 "(let-values(((fold-var_367)"
@@ -73005,7 +73022,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_156"
+" id_155"
 " inside-scope_2))"
 " fold-var_366))))"
 "(values fold-var_367)))))"
@@ -73013,7 +73030,7 @@ static const char *startup_source =
 " fold-var_364)))))"
 " for-loop_317)"
 " null"
-" lst_426))))))"
+" lst_425))))))"
 "(let-values(((syms_26)"
 "(let-values(((frame-id559_0) frame-id_18)((requires+provides560_0) requires+provides_8))"
 "(select-defined-syms-and-bind!16.1"
@@ -73029,34 +73046,34 @@ static const char *startup_source =
 " scoped-ids_0"
 " defined-syms_12"
 " self_33"
-" phase_152"
+" phase_154"
 " all-scopes-stx_6))))"
-"(let-values(((s_792)"
+"(let-values(((s_793)"
 "(add-scope"
 "(datum->syntax$1"
 " #f"
 "(list"
-"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_152) 'define-values)"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_154) 'define-values)"
 " scoped-ids_0"
 " rhs_23))"
 " inside-scope_2)))"
-"(values scoped-ids_0(semi-parsed-define-values2.1 s_792 syms_26 scoped-ids_0 rhs_23)))))))))"
+"(values scoped-ids_0(semi-parsed-define-values2.1 s_793 syms_26 scoped-ids_0 rhs_23)))))))))"
 "(define-values"
 "(add-post-expansion-scope)"
-"(lambda(bodys_23 ctx_111)"
+"(lambda(bodys_23 ctx_112)"
 "(begin"
-"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_111)))"
+"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_112)))"
 "(if sc_34"
 "(reverse$1"
-"(let-values(((lst_428) bodys_23))"
+"(let-values(((lst_427) bodys_23))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_428)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_427)))"
 "((letrec-values(((for-loop_318)"
-"(lambda(fold-var_368 lst_429)"
+"(lambda(fold-var_368 lst_428)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_429)"
-"(let-values(((body_23)(unsafe-car lst_429))((rest_254)(unsafe-cdr lst_429)))"
+"(if(pair? lst_428)"
+"(let-values(((body_23)(unsafe-car lst_428))((rest_254)(unsafe-cdr lst_428)))"
 "(let-values(((fold-var_369)"
 "(let-values(((fold-var_370) fold-var_368))"
 "(let-values(((fold-var_371)"
@@ -73069,7 +73086,7 @@ static const char *startup_source =
 " fold-var_368)))))"
 " for-loop_318)"
 " null"
-" lst_428))))"
+" lst_427))))"
 " bodys_23)))))"
 "(define-values"
 "(finish-expanding-body-expressons99.1)"
@@ -73084,7 +73101,7 @@ static const char *startup_source =
 "(begin"
 " 'finish-expanding-body-expressons99"
 "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))"
-"(let-values(((phase_153) phase84_0))"
+"(let-values(((phase_155) phase84_0))"
 "(let-values(((body-ctx_7) ctx85_0))"
 "(let-values(((self_34) self86_0))"
 "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))"
@@ -73092,13 +73109,13 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))"
 "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))"
 "(let-values()"
-"((letrec-values(((loop_128)"
+"((letrec-values(((loop_129)"
 "(lambda(tail?_54 bodys_24)"
 "(begin"
 " 'loop"
 "(if(null? bodys_24)"
 "(let-values()"
-"(if(if tail?_54(not(zero? phase_153)) #f)"
+"(if(if tail?_54(not(zero? phase_155)) #f)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_146)(expand-context-observer body-ctx_7)))"
@@ -73134,7 +73151,7 @@ static const char *startup_source =
 "(void)))"
 " null))"
 "(let-values()"
-"(loop_128"
+"(loop_129"
 " #t"
 "(add-post-expansion-scope bodys_25 body-ctx_7))))))"
 "(let-values() null))))"
@@ -73152,27 +73169,27 @@ static const char *startup_source =
 "(let-values(((body_24)(car bodys_24)))"
 "(let-values(((rest-bodys_2)(cdr bodys_24)))"
 "(let-values(((exp-body_8)"
-"(if(let-values(((or-part_397)"
+"(if(let-values(((or-part_398)"
 "(parsed? body_24)))"
-"(if or-part_397"
-" or-part_397"
-"(let-values(((or-part_398)"
-"(expanded+parsed? body_24)))"
 "(if or-part_398"
 " or-part_398"
+"(let-values(((or-part_399)"
+"(expanded+parsed? body_24)))"
+"(if or-part_399"
+" or-part_399"
 "(semi-parsed-begin-for-syntax?"
 " body_24)))))"
 "(let-values() body_24)"
 "(if(semi-parsed-define-values? body_24)"
 "(let-values()"
-"(let-values(((ids_43)"
+"(let-values(((ids_42)"
 "(semi-parsed-define-values-ids"
 " body_24)))"
 "(let-values(((rhs-ctx_2)"
 "(as-named-context"
 "(as-expression-context"
 " body-ctx_7)"
-" ids_43)))"
+" ids_42)))"
 "(let-values(((syms_27)"
 "(semi-parsed-define-values-syms"
 " body_24)))"
@@ -73183,7 +73200,7 @@ static const char *startup_source =
 " define-values561_0"
 " _562_0"
 " _563_0)"
-"(let-values(((s_793)"
+"(let-values(((s_794)"
 "(syntax-disarm$1"
 " s_300)))"
 "(if(if(not"
@@ -73191,89 +73208,89 @@ static const char *startup_source =
 " rhs-ctx_2))"
 " #t"
 " #f)"
-"(let-values(((orig-s_88)"
-" s_793))"
+"(let-values(((orig-s_87)"
+" s_794))"
 "(let-values(((define-values561_1"
 " _562_1"
 " _563_1)"
-"(let-values(((s_794)"
-"(if(syntax?$1"
-" s_793)"
-"(syntax-e$1"
-" s_793)"
-" s_793)))"
-"(if(pair?"
-" s_794)"
-"(let-values(((define-values564_0)"
 "(let-values(((s_795)"
-"(car"
+"(if(syntax?$1"
+" s_794)"
+"(syntax-e$1"
+" s_794)"
 " s_794)))"
-" s_795))"
+"(if(pair?"
+" s_795)"
+"(let-values(((define-values564_0)"
+"(let-values(((s_796)"
+"(car"
+" s_795)))"
+" s_796))"
 "((_565_0"
 " _566_0)"
-"(let-values(((s_796)"
-"(cdr"
-" s_794)))"
 "(let-values(((s_797)"
-"(if(syntax?$1"
-" s_796)"
-"(syntax-e$1"
-" s_796)"
-" s_796)))"
-"(if(pair?"
-" s_797)"
-"(let-values(((_567_0)"
+"(cdr"
+" s_795)))"
 "(let-values(((s_798)"
-"(car"
-" s_797)))"
-" s_798))"
-"((_568_0)"
-"(let-values(((s_799)"
-"(cdr"
-" s_797)))"
-"(let-values(((s_800)"
 "(if(syntax?$1"
-" s_799)"
+" s_797)"
 "(syntax-e$1"
-" s_799)"
-" s_799)))"
+" s_797)"
+" s_797)))"
 "(if(pair?"
-" s_800)"
-"(let-values(((_569_0)"
-"(let-values(((s_801)"
+" s_798)"
+"(let-values(((_567_0)"
+"(let-values(((s_799)"
 "(car"
-" s_800)))"
-" s_801))"
-"(()"
-"(let-values(((s_802)"
+" s_798)))"
+" s_799))"
+"((_568_0)"
+"(let-values(((s_800)"
 "(cdr"
-" s_800)))"
-"(let-values(((s_803)"
+" s_798)))"
+"(let-values(((s_801)"
 "(if(syntax?$1"
-" s_802)"
+" s_800)"
 "(syntax-e$1"
-" s_802)"
-" s_802)))"
-"(if(null?"
+" s_800)"
+" s_800)))"
+"(if(pair?"
+" s_801)"
+"(let-values(((_569_0)"
+"(let-values(((s_802)"
+"(car"
+" s_801)))"
+" s_802))"
+"(()"
+"(let-values(((s_803)"
+"(cdr"
+" s_801)))"
+"(let-values(((s_804)"
+"(if(syntax?$1"
 " s_803)"
+"(syntax-e$1"
+" s_803)"
+" s_803)))"
+"(if(null?"
+" s_804)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                       \"bad syntax\""
-" orig-s_88))))))"
+" orig-s_87))))))"
 "(values"
 " _569_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                   \"bad syntax\""
-" orig-s_88))))))"
+" orig-s_87))))))"
 "(values"
 " _567_0"
 " _568_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                               \"bad syntax\""
-" orig-s_88))))))"
+" orig-s_87))))))"
 "(values"
 " define-values564_0"
 " _565_0"
@@ -73281,7 +73298,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                           \"bad syntax\""
-" orig-s_88)))))"
+" orig-s_87)))))"
 "(values"
 " #t"
 " define-values561_1"
@@ -73334,7 +73351,7 @@ static const char *startup_source =
 "(let-values(((comp-form_0)"
 "(parsed-define-values19.1"
 " rebuild-s_15"
-" ids_43"
+" ids_42"
 " syms_27"
 "(if(expand-context-to-parsed?"
 " rhs-ctx_2)"
@@ -73360,7 +73377,7 @@ static const char *startup_source =
 "((temp578_0)"
 "(list"
 " define-values561_0"
-" ids_43"
+" ids_42"
 " exp-rhs_7)))"
 "(rebuild5.1"
 " #f"
@@ -73374,7 +73391,7 @@ static const char *startup_source =
 "(let-values(((tmp_65)"
 "(core-form-sym"
 " disarmed-body_0"
-" phase_153)))"
+" phase_155)))"
 "(if(if(equal? tmp_65 '#%require)"
 " #t"
 "(if(equal? tmp_65 '#%provide)"
@@ -73466,11 +73483,11 @@ static const char *startup_source =
 " modules-being-compiled590_0"
 " mpis-to-reset587_0"
 " lifted-modules_0"
-" phase_153"
+" phase_155"
 " self_34"
 " body-ctx_7))))"
 "(let-values(((exp-lifted-defns_0)"
-"(loop_128 #f lifted-defns_1)))"
+"(loop_129 #f lifted-defns_1)))"
 "(begin"
 "(if no-lifts?_0"
 "(void)"
@@ -73491,26 +73508,26 @@ static const char *startup_source =
 " exp-lifted-modules_0"
 "(cons"
 " exp-body_8"
-"(loop_128"
+"(loop_129"
 " tail?_54"
 " rest-bodys_2)))))))))))))))))))))"
-" loop_128)"
+" loop_129)"
 " #t"
 " partially-expanded-bodys_1)))))))))))))"
 "(define-values"
 "(check-defined-by-now)"
-"(lambda(need-eventually-defined_3 self_35 ctx_112)"
+"(lambda(need-eventually-defined_3 self_35 ctx_113)"
 "(begin"
 "(begin"
 "(let-values(((ht_164) need-eventually-defined_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_164)))"
 "((letrec-values(((for-loop_319)"
-"(lambda(i_193)"
+"(lambda(i_195)"
 "(begin"
 " 'for-loop"
-"(if i_193"
-"(let-values(((phase_154 l_85)(hash-iterate-key+value ht_164 i_193)))"
+"(if i_195"
+"(let-values(((phase_156 l_85)(hash-iterate-key+value ht_164 i_195)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -73518,24 +73535,24 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(let-values(((lst_430) l_85))"
+"(let-values(((lst_429) l_85))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_430)))"
+"(let-values()(check-list lst_429)))"
 "((letrec-values(((for-loop_320)"
-"(lambda(lst_431)"
+"(lambda(lst_430)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_431)"
-"(let-values(((id_157)"
+" lst_430)"
+"(let-values(((id_156)"
 "(unsafe-car"
-" lst_431))"
+" lst_430))"
 "((rest_255)"
 "(unsafe-cdr"
-" lst_431)))"
+" lst_430)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -73544,9 +73561,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((b_93)"
 "(let-values(((id591_0)"
-" id_157)"
+" id_156)"
 "((phase592_0)"
-" phase_154))"
+" phase_156))"
 "(resolve+shift30.1"
 " #f"
 " #f"
@@ -73567,7 +73584,7 @@ static const char *startup_source =
 "(module-binding-sym"
 " b_93)"
 "(syntax-e$1"
-" id_157))"
+" id_156))"
 "(eq?"
 "(module-binding-module"
 " b_93)"
@@ -73580,12 +73597,12 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                     \"reference to an unbound identifier\""
-" id_157"
+" id_156"
 " #f"
 " null"
 "(syntax-debug-info-string"
-" id_157"
-" ctx_112))))))"
+" id_156"
+" ctx_113))))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -73594,11 +73611,11 @@ static const char *startup_source =
 "(values))))"
 "(values))))))"
 " for-loop_320)"
-" lst_430)))"
+" lst_429)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_319(hash-iterate-next ht_164 i_193))(values))))"
+"(if(not #f)(for-loop_319(hash-iterate-next ht_164 i_195))(values))))"
 "(values))))))"
 " for-loop_319)"
 "(hash-iterate-first ht_164))))"
@@ -73618,50 +73635,50 @@ static const char *startup_source =
 "(let-values(((requires+provides_9) requires-and-provides102_0))"
 "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))"
 "(let-values(((m-ns_21) namespace104_0))"
-"(let-values(((phase_155) phase105_0))"
+"(let-values(((phase_157) phase105_0))"
 "(let-values(((self_36) self106_0))"
-"(let-values(((ctx_113) ctx107_1))"
+"(let-values(((ctx_114) ctx107_1))"
 "(let-values()"
 "(let-values()"
-"((letrec-values(((loop_129)"
-"(lambda(bodys_26 phase_156)"
+"((letrec-values(((loop_130)"
+"(lambda(bodys_26 phase_158)"
 "(begin"
 " 'loop"
 "(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_399)(parsed?(car bodys_26))))"
-"(if or-part_399 or-part_399(expanded+parsed?(car bodys_26))))"
+"(if(let-values(((or-part_400)(parsed?(car bodys_26))))"
+"(if or-part_400 or-part_400(expanded+parsed?(car bodys_26))))"
 "(let-values()"
-"(cons(car bodys_26)(loop_129(cdr bodys_26) phase_156)))"
+"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_158)))"
 "(if(semi-parsed-begin-for-syntax?(car bodys_26))"
 "(let-values()"
 "(let-values(((nested-bodys_2)"
-"(loop_129"
+"(loop_130"
 "(semi-parsed-begin-for-syntax-body(car bodys_26))"
-"(add1 phase_156))))"
+"(add1 phase_158))))"
 "(cons"
-"(let-values(((the-struct_115)(car bodys_26)))"
-"(if(semi-parsed-begin-for-syntax? the-struct_115)"
+"(let-values(((the-struct_116)(car bodys_26)))"
+"(if(semi-parsed-begin-for-syntax? the-struct_116)"
 "(let-values(((body593_0) nested-bodys_2))"
 "(semi-parsed-begin-for-syntax3.1"
-"(semi-parsed-begin-for-syntax-s the-struct_115)"
+"(semi-parsed-begin-for-syntax-s the-struct_116)"
 " body593_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                              \"semi-parsed-begin-for-syntax?\""
-" the-struct_115)))"
-"(loop_129(cdr bodys_26) phase_156))))"
+" the-struct_116)))"
+"(loop_130(cdr bodys_26) phase_158))))"
 "(let-values()"
 "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))"
 "(let-values(((tmp_66)"
-"(core-form-sym disarmed-body_1 phase_156)))"
+"(core-form-sym disarmed-body_1 phase_158)))"
 "(if(equal? tmp_66 '#%provide)"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_150)"
 "(expand-context-observer"
-" ctx_113)))"
+" ctx_114)))"
 "(if obs_150"
 "(let-values()"
 "(let-values()"
@@ -73676,42 +73693,42 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_82 #%provide594_0 spec595_0)"
-"(let-values(((s_804) disarmed-body_1))"
-"(let-values(((orig-s_89) s_804))"
+"(let-values(((s_805) disarmed-body_1))"
+"(let-values(((orig-s_88) s_805))"
 "(let-values(((#%provide594_1"
 " spec595_1)"
-"(let-values(((s_805)"
-"(if(syntax?$1"
-" s_804)"
-"(syntax-e$1"
-" s_804)"
-" s_804)))"
-"(if(pair? s_805)"
-"(let-values(((#%provide596_0)"
 "(let-values(((s_806)"
-"(car"
-" s_805)))"
-" s_806))"
-"((spec597_0)"
-"(let-values(((s_807)"
-"(cdr"
-" s_805)))"
-"(let-values(((s_808)"
 "(if(syntax?$1"
-" s_807)"
+" s_805)"
 "(syntax-e$1"
-" s_807)"
-" s_807)))"
+" s_805)"
+" s_805)))"
+"(if(pair? s_806)"
+"(let-values(((#%provide596_0)"
+"(let-values(((s_807)"
+"(car"
+" s_806)))"
+" s_807))"
+"((spec597_0)"
+"(let-values(((s_808)"
+"(cdr"
+" s_806)))"
+"(let-values(((s_809)"
+"(if(syntax?$1"
+" s_808)"
+"(syntax-e$1"
+" s_808)"
+" s_808)))"
 "(let-values(((flat-s_58)"
 "(to-syntax-list.1"
-" s_808)))"
+" s_809)))"
 "(if(not"
 " flat-s_58)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                             \"bad syntax\""
-" orig-s_89))"
+" orig-s_88))"
 "(let-values()"
 " flat-s_58)))))))"
 "(values"
@@ -73720,7 +73737,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                     \"bad syntax\""
-" orig-s_89)))))"
+" orig-s_88)))))"
 "(values"
 " #t"
 " #%provide594_1"
@@ -73731,123 +73748,123 @@ static const char *startup_source =
 "(car bodys_26)"
 " requires+provides_9"
 " self_36"
-" phase_156"
-"(let-values(((v_264) ctx_113))"
-"(let-values(((the-struct_116)"
-" v_264))"
+" phase_158"
+"(let-values(((v_262) ctx_114))"
+"(let-values(((the-struct_117)"
+" v_262))"
 "(if(expand-context/outer?"
-" the-struct_116)"
+" the-struct_117)"
 "(let-values(((context598_0)"
 " 'top-level)"
 "((inner599_0)"
-"(let-values(((the-struct_117)"
+"(let-values(((the-struct_118)"
 "(root-expand-context/outer-inner"
-" v_264)))"
+" v_262)))"
 "(if(expand-context/inner?"
-" the-struct_117)"
+" the-struct_118)"
 "(let-values(((phase600_0)"
-" phase_156)"
+" phase_158)"
 "((namespace601_0)"
 "(namespace->namespace-at-phase"
 " m-ns_21"
-" phase_156))"
+" phase_158))"
 "((requires+provides602_0)"
 " requires+provides_9)"
 "((declared-submodule-names603_0)"
 " declared-submodule-names_6))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_117)"
+" the-struct_118)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_117)"
+" the-struct_118)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_117)"
+" the-struct_118)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_117)"
+" the-struct_118)"
 "(root-expand-context/inner-counter"
-" the-struct_117)"
+" the-struct_118)"
 "(root-expand-context/inner-lift-key"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-to-parsed?"
-" the-struct_117)"
+" the-struct_118)"
 " phase600_0"
 " namespace601_0"
 "(expand-context/inner-just-once?"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-module-begin-k"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-stops"
-" the-struct_117)"
+" the-struct_118)"
 " declared-submodule-names603_0"
 "(expand-context/inner-lifts"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-lift-envs"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-module-lifts"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-require-lifts"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_117)"
+" the-struct_118)"
 " requires+provides602_0"
 "(expand-context/inner-observer"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-for-serializable?"
-" the-struct_117)"
+" the-struct_118)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_117)))"
+" the-struct_118)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                          \"expand-context/inner?\""
-" the-struct_117)))))"
+" the-struct_118)))))"
 "(expand-context/outer1.1"
 " inner599_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_116)"
+" the-struct_117)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_116)"
+" the-struct_117)"
 "(root-expand-context/outer-frame-id"
-" the-struct_116)"
+" the-struct_117)"
 " context598_0"
 "(expand-context/outer-env"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-scopes"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-binding-layer"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-reference-records"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-only-immediate?"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_116)"
+" the-struct_117)"
 "(expand-context/outer-name"
-" the-struct_116)))"
+" the-struct_117)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                        \"expand-context/outer?\""
-" the-struct_116)))))))"
+" the-struct_117)))))))"
 "(begin"
 "(let-values(((obs_151)"
-"(expand-context-observer ctx_113)))"
+"(expand-context-observer ctx_114)))"
 "(if obs_151"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe obs_151 'exit-prim)))"
 "(void)))"
-"(if(expand-context-to-parsed? ctx_113)"
+"(if(expand-context-to-parsed? ctx_114)"
 "(let-values()"
-"(loop_129(cdr bodys_26) phase_156))"
+"(loop_130(cdr bodys_26) phase_158))"
 "(let-values()"
 "(cons"
 "(syntax-track-origin*"
@@ -73858,14 +73875,14 @@ static const char *startup_source =
 " #%provide594_0"
 " specs_2)))"
 "(rebuild5.1 #f #f temp604_0 temp605_0)))"
-"(loop_129(cdr bodys_26) phase_156)))))))))"
+"(loop_130(cdr bodys_26) phase_158)))))))))"
 "(let-values()"
 "(cons"
 "(car bodys_26)"
-"(loop_129(cdr bodys_26) phase_156))))))))))))))"
-" loop_129)"
+"(loop_130(cdr bodys_26) phase_158))))))))))))))"
+" loop_130)"
 " expression-expanded-bodys_1"
-" phase_155)))))))))))))"
+" phase_157)))))))))))))"
 "(define-values"
 "(declare-module-for-expansion139.1)"
 "(lambda(ctx125_0"
@@ -73889,7 +73906,7 @@ static const char *startup_source =
 "(let-values(((self_37) self122_0))"
 "(let-values(((enclosing-self_3) enclosing123_0))"
 "(let-values(((root-ctx_7) root-ctx124_0))"
-"(let-values(((ctx_114) ctx125_0))"
+"(let-values(((ctx_115) ctx125_0))"
 "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))"
 "(let-values(((compiled-module-box_1) fill127_0))"
 "(let-values()"
@@ -73910,8 +73927,8 @@ static const char *startup_source =
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_400) enclosing-self_3))"
-"(if or-part_400 or-part_400 self_37)))))"
+"(let-values(((or-part_401) enclosing-self_3))"
+"(if or-part_401 or-part_401 self_37)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((temp607_0)"
 "(let-values(((m-ns611_0) m-ns_22)"
@@ -73934,7 +73951,7 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f)))"
-"((temp608_0)(expand-context-for-serializable? ctx_114))"
+"((temp608_0)(expand-context-for-serializable? ctx_115))"
 "((modules-being-compiled609_0) modules-being-compiled_6)"
 "((temp610_0) #f))"
 "(compile-module13.1"
@@ -73976,16 +73993,16 @@ static const char *startup_source =
 " compiled-module_0)))))))))))))))))))))))))"
 "(define-values"
 "(attach-root-expand-context-properties)"
-"(lambda(s_809 root-ctx_8 orig-self_1 new-self_2)"
+"(lambda(s_810 root-ctx_8 orig-self_1 new-self_2)"
 "(begin"
-"(let-values(((s_810)"
-"(syntax-property$1 s_809 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))"
 "(let-values(((s_811)"
+"(syntax-property$1 s_810 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))"
+"(let-values(((s_812)"
 "(syntax-property$1"
-" s_810"
+" s_811"
 " 'module-body-inside-context"
 "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))"
-" s_811)))))"
+" s_812)))))"
 "(define-values"
 "(expand-post-submodules165.1)"
 "(lambda(all-scopes-s147_0"
@@ -74004,7 +74021,7 @@ static const char *startup_source =
 " 'expand-post-submodules165"
 "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))"
 "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))"
-"(let-values(((phase_157) phase143_0))"
+"(let-values(((phase_159) phase143_0))"
 "(let-values(((self_38) self144_0))"
 "(let-values(((requires+provides_11) requires-and-provides145_0))"
 "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))"
@@ -74015,8 +74032,8 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))"
 "(let-values(((submod-ctx_1) ctx152_0))"
 "(let-values()"
-"((letrec-values(((loop_130)"
-"(lambda(bodys_27 phase_158)"
+"((letrec-values(((loop_131)"
+"(lambda(bodys_27 phase_160)"
 "(begin"
 " 'loop"
 "(if(null? bodys_27)"
@@ -74030,44 +74047,44 @@ static const char *startup_source =
 "(semi-parsed-begin-for-syntax-s"
 " body_25)))"
 "(let-values(((ok?_83 begin-for-syntax616_0 _617_0)"
-"(let-values(((s_812)"
+"(let-values(((s_813)"
 "(syntax-disarm$1"
 " body-s_0)))"
-"(let-values(((orig-s_90) s_812))"
+"(let-values(((orig-s_89) s_813))"
 "(let-values(((begin-for-syntax616_1"
 " _617_1)"
-"(let-values(((s_813)"
-"(if(syntax?$1"
-" s_812)"
-"(syntax-e$1"
-" s_812)"
-" s_812)))"
-"(if(pair? s_813)"
-"(let-values(((begin-for-syntax618_0)"
 "(let-values(((s_814)"
-"(car"
-" s_813)))"
-" s_814))"
-"((_619_0)"
-"(let-values(((s_815)"
-"(cdr"
-" s_813)))"
-"(let-values(((s_816)"
 "(if(syntax?$1"
-" s_815)"
+" s_813)"
 "(syntax-e$1"
-" s_815)"
-" s_815)))"
+" s_813)"
+" s_813)))"
+"(if(pair? s_814)"
+"(let-values(((begin-for-syntax618_0)"
+"(let-values(((s_815)"
+"(car"
+" s_814)))"
+" s_815))"
+"((_619_0)"
+"(let-values(((s_816)"
+"(cdr"
+" s_814)))"
+"(let-values(((s_817)"
+"(if(syntax?$1"
+" s_816)"
+"(syntax-e$1"
+" s_816)"
+" s_816)))"
 "(let-values(((flat-s_59)"
 "(to-syntax-list.1"
-" s_816)))"
+" s_817)))"
 "(if(not"
 " flat-s_59)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
-" orig-s_90))"
+" orig-s_89))"
 "(let-values()"
 " flat-s_59)))))))"
 "(values"
@@ -74076,7 +74093,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                         \"bad syntax\""
-" orig-s_90)))))"
+" orig-s_89)))))"
 "(values"
 " #t"
 " begin-for-syntax616_1"
@@ -74096,10 +74113,10 @@ static const char *startup_source =
 " submod-ctx620_0"
 " body-s621_0))))"
 "(let-values(((nested-bodys_3)"
-"(loop_130"
+"(loop_131"
 "(semi-parsed-begin-for-syntax-body"
 " body_25)"
-"(add1 phase_158))))"
+"(add1 phase_160))))"
 "(let-values(((parsed-bfs_0)"
 "(parsed-begin-for-syntax21.1"
 " rebuild-body-s_0"
@@ -74122,20 +74139,20 @@ static const char *startup_source =
 " rebuild-body-s622_0"
 " temp623_0))"
 " parsed-bfs_0))"
-"(loop_130 rest-bodys_3 phase_158))))))))"
-"(if(let-values(((or-part_401)(parsed? body_25)))"
-"(if or-part_401"
-" or-part_401"
+"(loop_131 rest-bodys_3 phase_160))))))))"
+"(if(let-values(((or-part_402)(parsed? body_25)))"
+"(if or-part_402"
+" or-part_402"
 "(expanded+parsed? body_25)))"
 "(let-values()"
-"(cons body_25(loop_130 rest-bodys_3 phase_158)))"
+"(cons body_25(loop_131 rest-bodys_3 phase_160)))"
 "(let-values()"
 "(let-values(((disarmed-body_2)"
 "(syntax-disarm$1 body_25)))"
 "(let-values(((tmp_67)"
 "(core-form-sym"
 " disarmed-body_2"
-" phase_158)))"
+" phase_160)))"
 "(if(equal? tmp_67 'module*)"
 "(let-values()"
 "(let-values((()"
@@ -74151,60 +74168,60 @@ static const char *startup_source =
 " module*624_0"
 " name625_0"
 " _626_0)"
-"(let-values(((s_817)"
+"(let-values(((s_818)"
 " disarmed-body_2))"
 "(if(let-values(((s_672)"
 "(if(syntax?$1"
-" s_817)"
+" s_818)"
 "(syntax-e$1"
-" s_817)"
-" s_817)))"
+" s_818)"
+" s_818)))"
 "(if(pair? s_672)"
-"(if(let-values(((s_818)"
+"(if(let-values(((s_819)"
 "(car"
 " s_672)))"
 " #t)"
-"(let-values(((s_819)"
-"(cdr"
-" s_672)))"
 "(let-values(((s_820)"
-"(if(syntax?$1"
-" s_819)"
-"(syntax-e$1"
-" s_819)"
-" s_819)))"
-"(if(pair?"
-" s_820)"
-"(if(let-values(((s_821)"
-"(car"
-" s_820)))"
-" #t)"
-"(let-values(((s_822)"
 "(cdr"
-" s_820)))"
-"(let-values(((s_823)"
+" s_672)))"
+"(let-values(((s_821)"
 "(if(syntax?$1"
-" s_822)"
+" s_820)"
 "(syntax-e$1"
-" s_822)"
-" s_822)))"
+" s_820)"
+" s_820)))"
 "(if(pair?"
-" s_823)"
-"(if(let-values(((s_824)"
+" s_821)"
+"(if(let-values(((s_822)"
 "(car"
+" s_821)))"
+" #t)"
+"(let-values(((s_823)"
+"(cdr"
+" s_821)))"
+"(let-values(((s_824)"
+"(if(syntax?$1"
+" s_823)"
+"(syntax-e$1"
+" s_823)"
 " s_823)))"
+"(if(pair?"
+" s_824)"
+"(if(let-values(((s_825)"
+"(car"
+" s_824)))"
 "(let-values(((s_673)"
 "(if(syntax?$1"
-" s_824)"
+" s_825)"
 "(syntax-e$1"
-" s_824)"
-" s_824)))"
+" s_825)"
+" s_825)))"
 "(eq?"
 " #f"
 " s_673)))"
-"(let-values(((s_825)"
+"(let-values(((s_826)"
 "(cdr"
-" s_823)))"
+" s_824)))"
 " #t)"
 " #f)"
 " #f)))"
@@ -74216,59 +74233,59 @@ static const char *startup_source =
 "(let-values(((module*624_1"
 " name625_1"
 " _626_1)"
-"(let-values(((s_826)"
-"(if(syntax?$1"
-" s_817)"
-"(syntax-e$1"
-" s_817)"
-" s_817)))"
-"(let-values(((module*627_0)"
 "(let-values(((s_827)"
+"(if(syntax?$1"
+" s_818)"
+"(syntax-e$1"
+" s_818)"
+" s_818)))"
+"(let-values(((module*627_0)"
+"(let-values(((s_828)"
 "(car"
-" s_826)))"
-" s_827))"
+" s_827)))"
+" s_828))"
 "((name628_0"
 " _629_0)"
-"(let-values(((s_828)"
-"(cdr"
-" s_826)))"
 "(let-values(((s_829)"
-"(if(syntax?$1"
-" s_828)"
-"(syntax-e$1"
-" s_828)"
-" s_828)))"
-"(let-values(((name630_0)"
-"(let-values(((s_830)"
-"(car"
-" s_829)))"
-" s_830))"
-"((_631_0)"
-"(let-values(((s_831)"
 "(cdr"
+" s_827)))"
+"(let-values(((s_830)"
+"(if(syntax?$1"
+" s_829)"
+"(syntax-e$1"
+" s_829)"
 " s_829)))"
-"(let-values(((s_832)"
-"(if(syntax?$1"
-" s_831)"
-"(syntax-e$1"
-" s_831)"
-" s_831)))"
-"(let-values((()"
-"(let-values(((s_833)"
+"(let-values(((name630_0)"
+"(let-values(((s_831)"
 "(car"
-" s_832)))"
-"(let-values(((s_834)"
+" s_830)))"
+" s_831))"
+"((_631_0)"
+"(let-values(((s_832)"
+"(cdr"
+" s_830)))"
+"(let-values(((s_833)"
 "(if(syntax?$1"
-" s_833)"
+" s_832)"
 "(syntax-e$1"
-" s_833)"
+" s_832)"
+" s_832)))"
+"(let-values((()"
+"(let-values(((s_834)"
+"(car"
 " s_833)))"
+"(let-values(((s_835)"
+"(if(syntax?$1"
+" s_834)"
+"(syntax-e$1"
+" s_834)"
+" s_834)))"
 "(values))))"
 "((_632_0)"
-"(let-values(((s_835)"
+"(let-values(((s_836)"
 "(cdr"
-" s_832)))"
-" s_835)))"
+" s_833)))"
+" s_836)))"
 "(values"
 " _632_0))))))"
 "(values"
@@ -74294,7 +74311,7 @@ static const char *startup_source =
 "(let-values(((neg-phase_0)"
 "(phase-"
 " 0"
-" phase_158)))"
+" phase_160)))"
 "(let-values(((shifted-s_0)"
 "(syntax-shift-phase-level$1"
 " ready-body_2"
@@ -74342,27 +74359,27 @@ static const char *startup_source =
 "(if(expanded+parsed?"
 " submod_4)"
 "(let-values()"
-"(let-values(((the-struct_118)"
+"(let-values(((the-struct_119)"
 " submod_4))"
 "(if(expanded+parsed?"
-" the-struct_118)"
+" the-struct_119)"
 "(let-values(((s645_0)"
 "(syntax-shift-phase-level$1"
 "(expanded+parsed-s"
 " submod_4)"
-" phase_158)))"
+" phase_160)))"
 "(expanded+parsed1.1"
 " s645_0"
 "(expanded+parsed-parsed"
-" the-struct_118)))"
+" the-struct_119)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                     \"expanded+parsed?\""
-" the-struct_118))))"
+" the-struct_119))))"
 "(let-values()"
 "(syntax-shift-phase-level$1"
 " submod_4"
-" phase_158))))))))"
+" phase_160))))))))"
 "(let-values()"
 "(let-values(((temp649_0)"
 " #t)"
@@ -74393,56 +74410,56 @@ static const char *startup_source =
 " submod-ctx_1))))))"
 "(cons"
 " submod_3"
-"(loop_130"
+"(loop_131"
 " rest-bodys_3"
-" phase_158)))))))"
+" phase_160)))))))"
 "(let-values()"
 "(cons"
 " body_25"
-"(loop_130"
+"(loop_131"
 " rest-bodys_3"
-" phase_158)))))))))))))))))"
-" loop_130)"
+" phase_160)))))))))))))))))"
+" loop_131)"
 " fully-expanded-bodys-except-post-submodules_2"
-" phase_157)))))))))))))))))"
+" phase_159)))))))))))))))))"
 "(define-values"
 "(stop-at-module*?)"
-"(lambda(ctx_115)"
+"(lambda(ctx_116)"
 "(begin"
 "(free-id-set-member?"
-"(expand-context-stops ctx_115)"
-"(expand-context-phase ctx_115)"
-"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_115))))))"
+"(expand-context-stops ctx_116)"
+"(expand-context-phase ctx_116)"
+"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_116))))))"
 "(define-values"
 "(check-ids-unbound173.1)"
 "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)"
 "(begin"
 " 'check-ids-unbound173"
-"(let-values(((ids_44) ids170_0))"
-"(let-values(((phase_159) phase171_1))"
+"(let-values(((ids_43) ids170_0))"
+"(let-values(((phase_161) phase171_1))"
 "(let-values(((requires+provides_12) requires+provides172_0))"
-"(let-values(((s_836) in168_0))"
+"(let-values(((s_837) in168_0))"
 "(let-values()"
 "(begin"
-"(let-values(((lst_432) ids_44))"
+"(let-values(((lst_431) ids_43))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_432)))"
+"(let-values()(check-list lst_431)))"
 "((letrec-values(((for-loop_321)"
-"(lambda(lst_433)"
+"(lambda(lst_432)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_433)"
-"(let-values(((id_158)(unsafe-car lst_433))"
-"((rest_256)(unsafe-cdr lst_433)))"
+"(if(pair? lst_432)"
+"(let-values(((id_157)(unsafe-car lst_432))"
+"((rest_256)(unsafe-cdr lst_432)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((s657_0) s_836)"
+"(let-values(((s657_0) s_837)"
 "((temp658_0) 'module))"
 "(check-not-defined93.1"
 " #f"
@@ -74456,29 +74473,29 @@ static const char *startup_source =
 " #f"
 " temp658_0"
 " requires+provides_12"
-" id_158"
-" phase_159)))"
+" id_157"
+" phase_161)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)(for-loop_321 rest_256)(values))))"
 "(values))))))"
 " for-loop_321)"
-" lst_432)))"
+" lst_431)))"
 "(void))))))))))"
 "(define-values"
 "(eval-nested-bodys)"
-"(lambda(bodys_28 phase_160 m-ns_23 self_39 ctx_116)"
+"(lambda(bodys_28 phase_162 m-ns_23 self_39 ctx_117)"
 "(begin"
 "(begin"
-"(let-values(((lst_434) bodys_28))"
+"(let-values(((lst_433) bodys_28))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_434)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_433)))"
 "((letrec-values(((for-loop_322)"
-"(lambda(lst_435)"
+"(lambda(lst_434)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_435)"
-"(let-values(((body_26)(unsafe-car lst_435))((rest_257)(unsafe-cdr lst_435)))"
+"(if(pair? lst_434)"
+"(let-values(((body_26)(unsafe-car lst_434))((rest_257)(unsafe-cdr lst_434)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74492,71 +74509,71 @@ static const char *startup_source =
 " body_26)))"
 "(if(parsed-define-values? p_84)"
 "(let-values()"
-"(let-values(((ids_45)"
+"(let-values(((ids_44)"
 "(parsed-define-values-ids"
 " p_84)))"
 "(let-values(((vals_11)"
 "(eval-for-bindings"
-" ids_45"
+" ids_44"
 "(parsed-define-values-rhs"
 " p_84)"
-" phase_160"
+" phase_162"
 " m-ns_23"
-" ctx_116)))"
+" ctx_117)))"
 "(begin"
-"(let-values(((lst_436) ids_45)"
-"((lst_437)"
+"(let-values(((lst_435) ids_44)"
+"((lst_436)"
 "(parsed-define-values-syms"
 " p_84))"
-"((lst_438) vals_11))"
+"((lst_437) vals_11))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
+"(check-list lst_435)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
 "(check-list lst_436)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list lst_437)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list lst_438)))"
 "((letrec-values(((for-loop_323)"
-"(lambda(lst_439"
-" lst_440"
-" lst_441)"
+"(lambda(lst_438"
+" lst_439"
+" lst_440)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_439)"
+" lst_438)"
 "(if(pair?"
-" lst_440)"
+" lst_439)"
 "(pair?"
-" lst_441)"
+" lst_440)"
 " #f)"
 " #f)"
-"(let-values(((id_159)"
+"(let-values(((id_158)"
 "(unsafe-car"
-" lst_439))"
+" lst_438))"
 "((rest_258)"
 "(unsafe-cdr"
-" lst_439))"
+" lst_438))"
 "((sym_106)"
 "(unsafe-car"
-" lst_440))"
+" lst_439))"
 "((rest_259)"
 "(unsafe-cdr"
-" lst_440))"
+" lst_439))"
 "((val_87)"
 "(unsafe-car"
-" lst_441))"
+" lst_440))"
 "((rest_260)"
 "(unsafe-cdr"
-" lst_441)))"
+" lst_440)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74565,7 +74582,7 @@ static const char *startup_source =
 "(let-values()"
 "(namespace-set-variable!"
 " m-ns_23"
-" phase_160"
+" phase_162"
 " sym_106"
 " val_87))"
 "(values)))))"
@@ -74579,23 +74596,23 @@ static const char *startup_source =
 "(values))))"
 "(values))))))"
 " for-loop_323)"
+" lst_435"
 " lst_436"
-" lst_437"
-" lst_438)))"
+" lst_437)))"
 "(void)))))"
-"(if(let-values(((or-part_402)"
-"(parsed-define-syntaxes?"
-" p_84)))"
-"(if or-part_402"
-" or-part_402"
-"(semi-parsed-begin-for-syntax?"
-" p_84)))"
-"(let-values()(void))"
 "(if(let-values(((or-part_403)"
-"(parsed-#%declare?"
+"(parsed-define-syntaxes?"
 " p_84)))"
 "(if or-part_403"
 " or-part_403"
+"(semi-parsed-begin-for-syntax?"
+" p_84)))"
+"(let-values()(void))"
+"(if(let-values(((or-part_404)"
+"(parsed-#%declare?"
+" p_84)))"
+"(if or-part_404"
+" or-part_404"
 "(syntax?$1 p_84)))"
 "(let-values()(void))"
 "(let-values()"
@@ -74606,7 +74623,7 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-expand-context"
-" ctx_116"
+" ctx_117"
 " 1/current-namespace"
 " m-ns_23)"
 "(let-values()"
@@ -74616,7 +74633,7 @@ static const char *startup_source =
 "(let-values(((m-ns659_0)"
 " m-ns_23)"
 "((phase660_0)"
-" phase_160))"
+" phase_162))"
 "(make-compile-context14.1"
 " #f"
 " #f"
@@ -74636,7 +74653,7 @@ static const char *startup_source =
 "(if(not #f)(for-loop_322 rest_257)(values))))"
 "(values))))))"
 " for-loop_322)"
-" lst_434)))"
+" lst_433)))"
 "(void)))))"
 "(define-values"
 "(expand-submodule197.1)"
@@ -74658,9 +74675,9 @@ static const char *startup_source =
 " ctx196_0)"
 "(begin"
 " 'expand-submodule197"
-"(let-values(((s_837) s194_0))"
+"(let-values(((s_838) s194_0))"
 "(let-values(((self_40) self195_0))"
-"(let-values(((ctx_117) ctx196_0))"
+"(let-values(((ctx_118) ctx196_0))"
 "(let-values(((is-star?_0) is-star?176_0))"
 "(let-values(((keep-enclosing-scope-at-phase_2)"
 "(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))"
@@ -74682,186 +74699,186 @@ static const char *startup_source =
 "(if is-star?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_152)(expand-context-observer ctx_117)))"
+"(let-values(((obs_152)(expand-context-observer ctx_118)))"
 "(if obs_152"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_152 'enter-prim s_837)"
+"(call-expand-observe obs_152 'enter-prim s_838)"
 "(call-expand-observe"
 " obs_152"
 "(if is-star?_0 'prim-submodule* 'prim-submodule)))))"
 "(void)))))"
 "(values))))"
 "(let-values(((ok?_85 module661_0 name662_0 _663_0)"
-"(let-values(((s_838) s_837))"
-"(let-values(((orig-s_91) s_838))"
+"(let-values(((s_839) s_838))"
+"(let-values(((orig-s_90) s_839))"
 "(let-values(((module661_1 name662_1 _663_1)"
-"(let-values(((s_839)"
-"(if(syntax?$1 s_838)"
-"(syntax-e$1 s_838)"
-" s_838)))"
-"(if(pair? s_839)"
+"(let-values(((s_840)"
+"(if(syntax?$1 s_839)"
+"(syntax-e$1 s_839)"
+" s_839)))"
+"(if(pair? s_840)"
 "(let-values(((module664_0)"
-"(let-values(((s_840)(car s_839)))"
-" s_840))"
+"(let-values(((s_841)(car s_840)))"
+" s_841))"
 "((name665_0 _666_0)"
-"(let-values(((s_841)(cdr s_839)))"
-"(let-values(((s_842)"
-"(if(syntax?$1"
-" s_841)"
-"(syntax-e$1 s_841)"
-" s_841)))"
-"(if(pair? s_842)"
-"(let-values(((name667_0)"
+"(let-values(((s_842)(cdr s_840)))"
 "(let-values(((s_843)"
-"(car"
+"(if(syntax?$1"
+" s_842)"
+"(syntax-e$1 s_842)"
 " s_842)))"
-" s_843))"
-"((_668_0)"
+"(if(pair? s_843)"
+"(let-values(((name667_0)"
 "(let-values(((s_844)"
+"(car"
+" s_843)))"
+" s_844))"
+"((_668_0)"
+"(let-values(((s_845)"
 "(cdr"
-" s_842)))"
-" s_844)))"
+" s_843)))"
+" s_845)))"
 "(values name667_0 _668_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                           \"bad syntax\""
-" orig-s_91))))))"
+" orig-s_90))))))"
 "(values module664_0 name665_0 _666_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                       \"bad syntax\""
-" orig-s_91)))))"
+" orig-s_90)))))"
 "(values #t module661_1 name662_1 _663_1))))))"
-"(let-values(((name_82)(syntax-e$1 name662_0)))"
+"(let-values(((name_81)(syntax-e$1 name662_0)))"
 "(let-values((()"
 "(begin"
-"(if(hash-ref declared-submodule-names_8 name_82 #f)"
+"(if(hash-ref declared-submodule-names_8 name_81 #f)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                           \"submodule already declared with the same name\""
-" s_837"
-" name_82))"
+" s_838"
+" name_81))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(hash-set!"
 " declared-submodule-names_8"
-" name_82"
+" name_81"
 "(syntax-e$1 module661_0))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_153)(expand-context-observer ctx_117)))"
+"(let-values(((obs_153)(expand-context-observer ctx_118)))"
 "(if obs_153"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_153 'enter-prim s_837)))"
+"(call-expand-observe obs_153 'enter-prim s_838)))"
 "(void)))"
 "(values))))"
 "(let-values(((submod_5)"
 "(let-values(((temp670_0)"
-"(let-values(((v_265) ctx_117))"
-"(let-values(((the-struct_119) v_265))"
-"(if(expand-context/outer? the-struct_119)"
+"(let-values(((v_263) ctx_118))"
+"(let-values(((the-struct_120) v_263))"
+"(if(expand-context/outer? the-struct_120)"
 "(let-values(((context679_0) 'module)"
 "((post-expansion-scope680_0)"
 " #f)"
 "((inner681_0)"
-"(let-values(((the-struct_120)"
+"(let-values(((the-struct_121)"
 "(root-expand-context/outer-inner"
-" v_265)))"
+" v_263)))"
 "(if(expand-context/inner?"
-" the-struct_120)"
+" the-struct_121)"
 "(let-values(((stops682_0)"
 " empty-free-id-set))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-module-scopes"
-" the-struct_120)"
+" the-struct_121)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_120)"
+" the-struct_121)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_120)"
+" the-struct_121)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_120)"
+" the-struct_121)"
 "(root-expand-context/inner-counter"
-" the-struct_120)"
+" the-struct_121)"
 "(root-expand-context/inner-lift-key"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-to-parsed?"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-phase"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-namespace"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-just-once?"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-module-begin-k"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_120)"
+" the-struct_121)"
 " stops682_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-lifts"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-lift-envs"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-module-lifts"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-require-lifts"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-requires+provides"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-observer"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-for-serializable?"
-" the-struct_120)"
+" the-struct_121)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_120)))"
+" the-struct_121)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                 \"expand-context/inner?\""
-" the-struct_120)))))"
+" the-struct_121)))))"
 "(expand-context/outer1.1"
 " inner681_0"
 " post-expansion-scope680_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_119)"
+" the-struct_120)"
 "(root-expand-context/outer-frame-id"
-" the-struct_119)"
+" the-struct_120)"
 " context679_0"
 "(expand-context/outer-env"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-scopes"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-binding-layer"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-reference-records"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-only-immediate?"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_119)"
+" the-struct_120)"
 "(expand-context/outer-name"
-" the-struct_119)))"
+" the-struct_120)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                               \"expand-context/outer?\""
-" the-struct_119)))))"
+" the-struct_120)))))"
 "((self671_0) self_40)"
 "((temp672_0) #t)"
 "((keep-enclosing-scope-at-phase673_0)"
@@ -74889,13 +74906,13 @@ static const char *startup_source =
 " #t"
 " mpis-to-reset677_0"
 " #t"
-" s_837"
+" s_838"
 " temp670_0"
 " self671_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_154)"
-"(expand-context-observer ctx_117)))"
+"(expand-context-observer ctx_118)))"
 "(if obs_154"
 "(let-values()"
 "(let-values()"
@@ -74905,7 +74922,7 @@ static const char *startup_source =
 "(extract-syntax submod_5))))"
 "(void)))"
 "(values))))"
-"(let-values(((ns_128)(expand-context-namespace ctx_117)))"
+"(let-values(((ns_128)(expand-context-namespace ctx_118)))"
 "(let-values(((module-name_3)(1/module-path-index-resolve self_40)))"
 "(let-values(((root-module-name_1)"
 "(resolved-module-path-root-name module-name_3)))"
@@ -74936,7 +74953,7 @@ static const char *startup_source =
 "((temp685_0) #t)"
 "((temp686_0)"
 "(expand-context-for-serializable?"
-" ctx_117))"
+" ctx_118))"
 "((modules-being-compiled687_0)"
 " modules-being-compiled_8)"
 "((temp688_0) #f))"
@@ -74956,7 +74973,7 @@ static const char *startup_source =
 "(begin"
 "(hash-set!"
 " compiled-submodules_5"
-" name_82"
+" name_81"
 "(cons is-star?_0 compiled-submodule_0))"
 "(with-continuation-mark"
 " parameterization-key"
@@ -74980,7 +74997,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((obs_155)"
-"(expand-context-observer ctx_117)))"
+"(expand-context-observer ctx_118)))"
 "(if obs_155"
 "(let-values()"
 "(let-values()"
@@ -74993,67 +75010,67 @@ static const char *startup_source =
 "(let-values() submod_5)"
 "(if(expanded+parsed? submod_5)"
 "(let-values()"
-"(let-values(((the-struct_121) submod_5))"
-"(if(expanded+parsed? the-struct_121)"
+"(let-values(((the-struct_122) submod_5))"
+"(if(expanded+parsed? the-struct_122)"
 "(let-values(((parsed694_0)"
-"(let-values(((the-struct_122)"
+"(let-values(((the-struct_123)"
 "(expanded+parsed-parsed"
 " submod_5)))"
-"(if(parsed-module? the-struct_122)"
+"(if(parsed-module? the-struct_123)"
 "(let-values(((star?695_0) #t))"
 "(parsed-module25.1"
-"(parsed-s the-struct_122)"
+"(parsed-s the-struct_123)"
 " star?695_0"
 "(parsed-module-name-id"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-self"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-requires"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-provides"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-root-ctx-simple?"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-encoded-root-ctx"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-body"
-" the-struct_122)"
+" the-struct_123)"
 "(parsed-module-compiled-module"
-" the-struct_122)"
-"(parsed-module-compiled-submodules"
-" the-struct_122)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                       \"parsed-module?\""
-" the-struct_122)))))"
-"(expanded+parsed1.1"
-"(expanded+parsed-s the-struct_121)"
-" parsed694_0))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                     \"expanded+parsed?\""
-" the-struct_121))))"
-"(let-values()"
-"(let-values(((the-struct_123) submod_5))"
-"(if(parsed-module? the-struct_123)"
-"(let-values(((star?696_0) #t))"
-"(parsed-module25.1"
-"(parsed-s the-struct_123)"
-" star?696_0"
-"(parsed-module-name-id the-struct_123)"
-"(parsed-module-self the-struct_123)"
-"(parsed-module-requires the-struct_123)"
-"(parsed-module-provides the-struct_123)"
-"(parsed-module-root-ctx-simple? the-struct_123)"
-"(parsed-module-encoded-root-ctx the-struct_123)"
-"(parsed-module-body the-struct_123)"
-"(parsed-module-compiled-module the-struct_123)"
+" the-struct_123)"
 "(parsed-module-compiled-submodules"
 " the-struct_123)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                       \"parsed-module?\""
+" the-struct_123)))))"
+"(expanded+parsed1.1"
+"(expanded+parsed-s the-struct_122)"
+" parsed694_0))"
+"(raise-argument-error"
+" 'struct-copy"
+"                                                                     \"expanded+parsed?\""
+" the-struct_122))))"
+"(let-values()"
+"(let-values(((the-struct_124) submod_5))"
+"(if(parsed-module? the-struct_124)"
+"(let-values(((star?696_0) #t))"
+"(parsed-module25.1"
+"(parsed-s the-struct_124)"
+" star?696_0"
+"(parsed-module-name-id the-struct_124)"
+"(parsed-module-self the-struct_124)"
+"(parsed-module-requires the-struct_124)"
+"(parsed-module-provides the-struct_124)"
+"(parsed-module-root-ctx-simple? the-struct_124)"
+"(parsed-module-encoded-root-ctx the-struct_124)"
+"(parsed-module-body the-struct_124)"
+"(parsed-module-compiled-module the-struct_124)"
+"(parsed-module-compiled-submodules"
+" the-struct_124)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                     \"parsed-module?\""
-" the-struct_123)))))))))))))))))))))))))))))))))))"
+" the-struct_124)))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(expand-non-module*-submodules212.1)"
 "(lambda(compiled-submodules202_0"
@@ -75067,27 +75084,27 @@ static const char *startup_source =
 "(begin"
 " 'expand-non-module*-submodules212"
 "(let-values(((bodys_29) bodys208_0))"
-"(let-values(((phase_161) phase209_0))"
+"(let-values(((phase_163) phase209_0))"
 "(let-values(((self_41) self210_0))"
-"(let-values(((ctx_118) ctx211_0))"
+"(let-values(((ctx_119) ctx211_0))"
 "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))"
 "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))"
 "(let-values(((compiled-submodules_6) compiled-submodules202_0))"
 "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_442) bodys_29))"
+"(let-values(((lst_441) bodys_29))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_442)))"
+"(let-values()(check-list lst_441)))"
 "((letrec-values(((for-loop_324)"
-"(lambda(fold-var_372 lst_443)"
+"(lambda(fold-var_372 lst_442)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_443)"
-"(let-values(((body_27)(unsafe-car lst_443))"
-"((rest_261)(unsafe-cdr lst_443)))"
+"(if(pair? lst_442)"
+"(let-values(((body_27)(unsafe-car lst_442))"
+"((rest_261)(unsafe-cdr lst_442)))"
 "(let-values(((fold-var_373)"
 "(let-values(((fold-var_374) fold-var_372))"
 "(let-values(((fold-var_375)"
@@ -75098,7 +75115,7 @@ static const char *startup_source =
 "(core-form-sym"
 "(syntax-disarm$1"
 " body_27)"
-" phase_161)))"
+" phase_163)))"
 "(if(equal? tmp_68 'module)"
 "(let-values()"
 "(let-values(((temp700_0)"
@@ -75127,7 +75144,7 @@ static const char *startup_source =
 " mpis-to-reset701_0"
 " body_27"
 " self_41"
-" ctx_118)))"
+" ctx_119)))"
 "(let-values() body_27))))"
 " fold-var_374))))"
 "(values fold-var_375)))))"
@@ -75137,7 +75154,7 @@ static const char *startup_source =
 " fold-var_372)))))"
 " for-loop_324)"
 " null"
-" lst_442))))))))))))))))"
+" lst_441))))))))))))))))"
 "(define-values"
 "(make-parse-lifted-require220.1)"
 "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)"
@@ -75148,56 +75165,56 @@ static const char *startup_source =
 "(let-values(((requires+provides_13) requires+provides219_0))"
 "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))"
 "(let-values()"
-"(lambda(s_845 phase_162)"
+"(lambda(s_846 phase_164)"
 "(let-values(((ok?_86 #%require705_0 req706_0)"
-"(let-values(((s_846)(syntax-disarm$1 s_845)))"
-"(let-values(((orig-s_92) s_846))"
+"(let-values(((s_847)(syntax-disarm$1 s_846)))"
+"(let-values(((orig-s_91) s_847))"
 "(let-values(((#%require705_1 req706_1)"
-"(let-values(((s_847)"
-"(if(syntax?$1 s_846)(syntax-e$1 s_846) s_846)))"
-"(if(pair? s_847)"
+"(let-values(((s_848)"
+"(if(syntax?$1 s_847)(syntax-e$1 s_847) s_847)))"
+"(if(pair? s_848)"
 "(let-values(((#%require707_0)"
-"(let-values(((s_848)(car s_847))) s_848))"
+"(let-values(((s_849)(car s_848))) s_849))"
 "((req708_0)"
-"(let-values(((s_849)(cdr s_847)))"
-"(let-values(((s_850)"
-"(if(syntax?$1 s_849)"
-"(syntax-e$1 s_849)"
-" s_849)))"
-"(if(pair? s_850)"
-"(let-values(((req709_0)"
+"(let-values(((s_850)(cdr s_848)))"
 "(let-values(((s_851)"
-"(car s_850)))"
-" s_851))"
-"(()"
+"(if(syntax?$1 s_850)"
+"(syntax-e$1 s_850)"
+" s_850)))"
+"(if(pair? s_851)"
+"(let-values(((req709_0)"
 "(let-values(((s_852)"
-"(cdr s_850)))"
+"(car s_851)))"
+" s_852))"
+"(()"
 "(let-values(((s_853)"
+"(cdr s_851)))"
+"(let-values(((s_854)"
 "(if(syntax?$1"
-" s_852)"
+" s_853)"
 "(syntax-e$1"
-" s_852)"
-" s_852)))"
-"(if(null? s_853)"
+" s_853)"
+" s_853)))"
+"(if(null? s_854)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                               \"bad syntax\""
-" orig-s_92))))))"
+" orig-s_91))))))"
 "(values req709_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                           \"bad syntax\""
-" orig-s_92))))))"
+" orig-s_91))))))"
 "(values #%require707_0 req708_0))"
-"                                                      (raise-syntax-error$1 #f \"bad syntax\" orig-s_92)))))"
+"                                                      (raise-syntax-error$1 #f \"bad syntax\" orig-s_91)))))"
 "(values #t #%require705_1 req706_1))))))"
 "(let-values(((temp710_0)(list req706_0))"
-"((s711_0) s_845)"
+"((s711_0) s_846)"
 "((self712_0) self_42)"
 "((m-ns713_0) m-ns_24)"
-"((phase714_0) phase_162)"
-"((phase715_0) phase_162)"
+"((phase714_0) phase_164)"
+"((phase715_0) phase_164)"
 "((requires+provides716_0) requires+provides_13)"
 "((declared-submodule-names717_0) declared-submodule-names_10)"
 "((temp718_0) 'require))"
@@ -75239,16 +75256,16 @@ static const char *startup_source =
 "(lambda(lifted-defns_2)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_444) lifted-defns_2))"
+"(let-values(((lst_443) lifted-defns_2))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))"
 "((letrec-values(((for-loop_325)"
-"(lambda(fold-var_376 lst_445)"
+"(lambda(fold-var_376 lst_444)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_445)"
-"(let-values(((lifted-defn_0)(unsafe-car lst_445))"
-"((rest_262)(unsafe-cdr lst_445)))"
+"(if(pair? lst_444)"
+"(let-values(((lifted-defn_0)(unsafe-car lst_444))"
+"((rest_262)(unsafe-cdr lst_444)))"
 "(let-values(((fold-var_377)"
 "(let-values(((fold-var_378) fold-var_376))"
 "(let-values(((fold-var_379)"
@@ -75262,7 +75279,7 @@ static const char *startup_source =
 " fold-var_376)))))"
 " for-loop_325)"
 " null"
-" lst_444)))))))"
+" lst_443)))))))"
 "(define-values"
 "(log-lifted-defns)"
 "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)"
@@ -75278,18 +75295,18 @@ static const char *startup_source =
 "(let-values((()(begin(call-expand-observe obs_156 'module-lift-loop s-lifted-defns_0)(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_446) s-lifted-defns_0))"
+"(let-values(((lst_445) s-lifted-defns_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_446)))"
+"(let-values()(check-list lst_445)))"
 "((letrec-values(((for-loop_326)"
-"(lambda(lst_447)"
+"(lambda(lst_446)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_447)"
-"(let-values(((s-lifted-defn_0)(unsafe-car lst_447))"
-"((rest_263)(unsafe-cdr lst_447)))"
+"(if(pair? lst_446)"
+"(let-values(((s-lifted-defn_0)(unsafe-car lst_446))"
+"((rest_263)(unsafe-cdr lst_446)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -75299,45 +75316,45 @@ static const char *startup_source =
 "(let-values(((ok?_87"
 " define-values723_0"
 " _724_0)"
-"(let-values(((s_854)"
+"(let-values(((s_855)"
 " s-lifted-defn_0))"
-"(let-values(((orig-s_93)"
-" s_854))"
+"(let-values(((orig-s_92)"
+" s_855))"
 "(let-values(((define-values723_1"
 " _724_1)"
-"(let-values(((s_855)"
-"(if(syntax?$1"
-" s_854)"
-"(syntax-e$1"
-" s_854)"
-" s_854)))"
-"(if(pair?"
-" s_855)"
-"(let-values(((define-values725_0)"
 "(let-values(((s_856)"
-"(car"
-" s_855)))"
-" s_856))"
-"((_726_0)"
-"(let-values(((s_857)"
-"(cdr"
-" s_855)))"
-"(let-values(((s_858)"
 "(if(syntax?$1"
-" s_857)"
+" s_855)"
 "(syntax-e$1"
-" s_857)"
-" s_857)))"
+" s_855)"
+" s_855)))"
+"(if(pair?"
+" s_856)"
+"(let-values(((define-values725_0)"
+"(let-values(((s_857)"
+"(car"
+" s_856)))"
+" s_857))"
+"((_726_0)"
+"(let-values(((s_858)"
+"(cdr"
+" s_856)))"
+"(let-values(((s_859)"
+"(if(syntax?$1"
+" s_858)"
+"(syntax-e$1"
+" s_858)"
+" s_858)))"
 "(let-values(((flat-s_60)"
 "(to-syntax-list.1"
-" s_858)))"
+" s_859)))"
 "(if(not"
 " flat-s_60)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                 \"bad syntax\""
-" orig-s_93))"
+" orig-s_92))"
 "(let-values()"
 " flat-s_60)))))))"
 "(values"
@@ -75346,7 +75363,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                         \"bad syntax\""
-" orig-s_93)))))"
+" orig-s_92)))))"
 "(values"
 " #t"
 " define-values723_1"
@@ -75398,22 +75415,22 @@ static const char *startup_source =
 "(if(not #f)(for-loop_326 rest_263)(values))))"
 "(values))))))"
 " for-loop_326)"
-" lst_446)))"
+" lst_445)))"
 "(values))))"
 "(let-values()"
 "(let-values(((ok?_88 form-id719_0 _720_0)"
-"(let-values(((s_859) exp-body_10))"
-"(let-values(((orig-s_94) s_859))"
+"(let-values(((s_860) exp-body_10))"
+"(let-values(((orig-s_93) s_860))"
 "(let-values(((form-id719_1 _720_1)"
-"(let-values(((s_860)"
-"(if(syntax?$1 s_859)(syntax-e$1 s_859) s_859)))"
-"(if(pair? s_860)"
+"(let-values(((s_861)"
+"(if(syntax?$1 s_860)(syntax-e$1 s_860) s_860)))"
+"(if(pair? s_861)"
 "(let-values(((form-id721_0)"
-"(let-values(((s_861)(car s_860))) s_861))"
+"(let-values(((s_862)(car s_861))) s_862))"
 "((_722_0)"
-"(let-values(((s_862)(cdr s_860))) s_862)))"
+"(let-values(((s_863)(cdr s_861))) s_863)))"
 "(values form-id721_0 _722_0))"
-"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))"
+"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))"
 "(values #t form-id719_1 _720_1))))))"
 "(begin"
 "(call-expand-observe obs_156 'next)"
@@ -75426,36 +75443,36 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(log-defn-enter)"
-"(lambda(ctx_119 defn_1)"
+"(lambda(ctx_120 defn_1)"
 "(begin"
-"(let-values(((obs_157)(expand-context-observer ctx_119)))"
+"(let-values(((obs_157)(expand-context-observer ctx_120)))"
 "(if obs_157"
 "(let-values()"
 "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))"
 "(let-values(((ok?_89 define-values727_0 _728_0)"
-"(let-values(((s_863) s-defn_0))"
-"(let-values(((orig-s_95) s_863))"
+"(let-values(((s_864) s-defn_0))"
+"(let-values(((orig-s_94) s_864))"
 "(let-values(((define-values727_1 _728_1)"
-"(let-values(((s_864)(if(syntax?$1 s_863)(syntax-e$1 s_863) s_863)))"
-"(if(pair? s_864)"
+"(let-values(((s_865)(if(syntax?$1 s_864)(syntax-e$1 s_864) s_864)))"
+"(if(pair? s_865)"
 "(let-values(((define-values729_0)"
-"(let-values(((s_865)(car s_864))) s_865))"
+"(let-values(((s_866)(car s_865))) s_866))"
 "((_730_0)"
-"(let-values(((s_866)(cdr s_864)))"
-"(let-values(((s_867)"
-"(if(syntax?$1 s_866)"
-"(syntax-e$1 s_866)"
-" s_866)))"
-"(let-values(((flat-s_61)(to-syntax-list.1 s_867)))"
+"(let-values(((s_867)(cdr s_865)))"
+"(let-values(((s_868)"
+"(if(syntax?$1 s_867)"
+"(syntax-e$1 s_867)"
+" s_867)))"
+"(let-values(((flat-s_61)(to-syntax-list.1 s_868)))"
 "(if(not flat-s_61)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                           \"bad syntax\""
-" orig-s_95))"
+" orig-s_94))"
 "(let-values() flat-s_61)))))))"
 "(values define-values729_0 _730_0))"
-"                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))"
+"                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))"
 "(values #t define-values727_1 _728_1))))))"
 "(begin"
 "(call-expand-observe obs_157 'visit s-defn_0)"
@@ -75465,9 +75482,9 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(log-defn-exit)"
-"(lambda(ctx_120 defn_2 exp-rhs_8)"
+"(lambda(ctx_121 defn_2 exp-rhs_8)"
 "(begin"
-"(let-values(((obs_158)(expand-context-observer ctx_120)))"
+"(let-values(((obs_158)(expand-context-observer ctx_121)))"
 "(if obs_158"
 "(let-values()"
 "(let-values(((s-defn_1)"
@@ -75479,12 +75496,12 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(as-expand-time-top-level-bindings)"
-"(lambda(ids_46 s_156 ctx_121)"
+"(lambda(ids_45 s_156 ctx_122)"
 "(begin"
-"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_121)))"
+"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_122)))"
 "(let-values(((tl-ids_2)"
 "(reverse$1"
-"(let-values(((lst_6) ids_46))"
+"(let-values(((lst_6) ids_45))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
@@ -75494,7 +75511,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_80)"
-"(let-values(((id_160)(unsafe-car lst_80))"
+"(let-values(((id_159)(unsafe-car lst_80))"
 "((rest_38)(unsafe-cdr lst_80)))"
 "(let-values(((fold-var_60)"
 "(let-values(((fold-var_61) fold-var_380))"
@@ -75503,8 +75520,8 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(remove-use-site-scopes"
-" id_160"
-" ctx_121))"
+" id_159"
+" ctx_122))"
 " fold-var_61))))"
 "(values fold-var_381)))))"
 "(if(not #f)(for-loop_98 fold-var_60 rest_38) fold-var_60)))"
@@ -75514,7 +75531,7 @@ static const char *startup_source =
 " lst_6))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_121))((s3_3) s_156))"
+"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_122))((s3_3) s_156))"
 "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_3 #f #f))"
 "(values))))"
 "(let-values(((tmp-bind-ids_0)"
@@ -75549,7 +75566,7 @@ static const char *startup_source =
 " for-loop_327)"
 " null"
 " lst_94))))))"
-"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_121)))))))))"
+"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_122)))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-values"
@@ -75570,7 +75587,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))"
 "(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)"
 "(let-values(((s_171) s_0))"
-"(let-values(((orig-s_96) s_171))"
+"(let-values(((orig-s_95) s_171))"
 "(let-values(((define-values1_1 id2_2 rhs3_1)"
 "(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))"
 "(if(pair? s_40)"
@@ -75597,9 +75614,9 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                            \"bad syntax\""
-" orig-s_96))"
+" orig-s_95))"
 "(let-values()"
-"(let-values(((id_161)"
+"(let-values(((id_160)"
 "(let-values(((lst_24)"
 " flat-s_62))"
 "(begin"
@@ -75610,7 +75627,7 @@ static const char *startup_source =
 "(check-list"
 " lst_24)))"
 "((letrec-values(((for-loop_241)"
-"(lambda(id_162"
+"(lambda(id_161"
 " lst_76)"
 "(begin"
 " 'for-loop"
@@ -75622,10 +75639,10 @@ static const char *startup_source =
 "((rest_141)"
 "(unsafe-cdr"
 " lst_76)))"
-"(let-values(((id_163)"
+"(let-values(((id_162)"
 "(let-values(((id_52)"
-" id_162))"
-"(let-values(((id_164)"
+" id_161))"
+"(let-values(((id_163)"
 "(let-values()"
 "(let-values(((id10_0)"
 "(let-values()"
@@ -75644,24 +75661,24 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                          \"not an identifier\""
-" orig-s_96"
+" orig-s_95"
 " s_182)))))"
 "(cons"
 " id10_0"
 " id_52)))))"
 "(values"
-" id_164)))))"
+" id_163)))))"
 "(if(not"
 " #f)"
 "(for-loop_241"
-" id_163"
+" id_162"
 " rest_141)"
-" id_163)))"
-" id_162)))))"
+" id_162)))"
+" id_161)))))"
 " for-loop_241)"
 " null"
 " lst_24)))))"
-"(reverse$1 id_161))))))))"
+"(reverse$1 id_160))))))))"
 "((rhs8_0)"
 "(let-values(((s_82)(cdr s_173)))"
 "(let-values(((s_305)"
@@ -75690,80 +75707,80 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                            \"bad syntax\""
-" orig-s_96))))))"
+" orig-s_95))))))"
 "(values rhs9_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                        \"bad syntax\""
-" orig-s_96))))))"
+" orig-s_95))))))"
 "(values id7_0 rhs8_0))"
-"                                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_96))))))"
+"                                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_95))))))"
 "(values define-values4_0 id5_0 rhs6_0))"
-"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))"
+"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))"
 "(values #t define-values1_1 id2_2 rhs3_1))))))"
-"(let-values(((ids_47 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))"
+"(let-values(((ids_46 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))"
 "(let-values(((exp-rhs_9)"
-"(let-values(((temp11_7) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_47)))"
+"(let-values(((temp11_7) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_46)))"
 "(expand7.1 #f #f #f #f temp11_7 temp12_7))))"
 "(if(expand-context-to-parsed? ctx_7)"
-"(parsed-define-values19.1 s_0 ids_47 syms_28 exp-rhs_9)"
-"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_47 exp-rhs_9)))"
+"(parsed-define-values19.1 s_0 ids_46 syms_28 exp-rhs_9)"
+"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_46 exp-rhs_9)))"
 "(rebuild5.1 #f #f s13_0 temp14_7))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-syntaxes"
-"(lambda(s_460 ctx_122)"
+"(lambda(s_460 ctx_123)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_160)(expand-context-observer ctx_122)))"
+"(let-values(((obs_160)(expand-context-observer ctx_123)))"
 "(if obs_160"
 "(let-values()(let-values()(call-expand-observe obs_160 'prim-define-syntaxes)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_161)(expand-context-observer ctx_122)))"
+"(let-values(((obs_161)(expand-context-observer ctx_123)))"
 "(if obs_161(let-values()(let-values()(call-expand-observe obs_161 'prepare-env)))(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(eq?(expand-context-context ctx_122) 'top-level)"
+"(if(eq?(expand-context-context ctx_123) 'top-level)"
 "(void)"
 "                           (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_460)))"
 "(values))))"
 "(let-values(((disarmed-s_26)(syntax-disarm$1 s_460)))"
 "(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)"
-"(let-values(((s_868) disarmed-s_26))"
-"(let-values(((orig-s_97) s_868))"
+"(let-values(((s_869) disarmed-s_26))"
+"(let-values(((orig-s_96) s_869))"
 "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)"
-"(let-values(((s_20)(if(syntax?$1 s_868)(syntax-e$1 s_868) s_868)))"
+"(let-values(((s_20)(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))"
 "(if(pair? s_20)"
 "(let-values(((define-syntaxes18_0)"
 "(let-values(((s_23)(car s_20))) s_23))"
 "((id19_0 rhs20_0)"
-"(let-values(((s_431)(cdr s_20)))"
+"(let-values(((s_430)(cdr s_20)))"
 "(let-values(((s_24)"
-"(if(syntax?$1 s_431)"
-"(syntax-e$1 s_431)"
-" s_431)))"
+"(if(syntax?$1 s_430)"
+"(syntax-e$1 s_430)"
+" s_430)))"
 "(if(pair? s_24)"
 "(let-values(((id21_0)"
 "(let-values(((s_726)(car s_24)))"
-"(let-values(((s_467)"
+"(let-values(((s_466)"
 "(if(syntax?$1 s_726)"
 "(syntax-e$1 s_726)"
 " s_726)))"
 "(let-values(((flat-s_63)"
 "(to-syntax-list.1"
-" s_467)))"
+" s_466)))"
 "(if(not flat-s_63)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                              \"bad syntax\""
-" orig-s_97))"
+" orig-s_96))"
 "(let-values()"
-"(let-values(((id_93)"
+"(let-values(((id_92)"
 "(let-values(((lst_177)"
 " flat-s_63))"
 "(begin"
@@ -75774,22 +75791,22 @@ static const char *startup_source =
 "(check-list"
 " lst_177)))"
 "((letrec-values(((for-loop_262)"
-"(lambda(id_165"
-" lst_448)"
+"(lambda(id_164"
+" lst_447)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_448)"
+" lst_447)"
 "(let-values(((s_489)"
 "(unsafe-car"
-" lst_448))"
+" lst_447))"
 "((rest_264)"
 "(unsafe-cdr"
-" lst_448)))"
+" lst_447)))"
+"(let-values(((id_94)"
 "(let-values(((id_75)"
-"(let-values(((id_95)"
-" id_165))"
-"(let-values(((id_166)"
+" id_164))"
+"(let-values(((id_165)"
 "(let-values()"
 "(let-values(((id24_1)"
 "(let-values()"
@@ -75808,40 +75825,40 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                            \"not an identifier\""
-" orig-s_97"
+" orig-s_96"
 " s_489)))))"
 "(cons"
 " id24_1"
-" id_95)))))"
+" id_75)))))"
 "(values"
-" id_166)))))"
+" id_165)))))"
 "(if(not"
 " #f)"
 "(for-loop_262"
-" id_75"
+" id_94"
 " rest_264)"
-" id_75)))"
-" id_165)))))"
+" id_94)))"
+" id_164)))))"
 " for-loop_262)"
 " null"
 " lst_177)))))"
-"(reverse$1 id_93))))))))"
+"(reverse$1 id_92))))))))"
 "((rhs22_0)"
-"(let-values(((s_869)(cdr s_24)))"
-"(let-values(((s_475)"
-"(if(syntax?$1 s_869)"
-"(syntax-e$1 s_869)"
-" s_869)))"
-"(if(pair? s_475)"
+"(let-values(((s_870)(cdr s_24)))"
+"(let-values(((s_474)"
+"(if(syntax?$1 s_870)"
+"(syntax-e$1 s_870)"
+" s_870)))"
+"(if(pair? s_474)"
 "(let-values(((rhs23_2)"
 "(let-values(((s_490)"
 "(car"
-" s_475)))"
+" s_474)))"
 " s_490))"
 "(()"
 "(let-values(((s_44)"
 "(cdr"
-" s_475)))"
+" s_474)))"
 "(let-values(((s_166)"
 "(if(syntax?$1"
 " s_44)"
@@ -75854,57 +75871,57 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                              \"bad syntax\""
-" orig-s_97))))))"
+" orig-s_96))))))"
 "(values rhs23_2))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
-" orig-s_97))))))"
+" orig-s_96))))))"
 "(values id21_0 rhs22_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
-" orig-s_97))))))"
+" orig-s_96))))))"
 "(values define-syntaxes18_0 id19_0 rhs20_0))"
-"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))"
+"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))"
 "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))"
-"(let-values(((ids_48 syms_29)(as-expand-time-top-level-bindings id16_2 s_460 ctx_122)))"
+"(let-values(((ids_47 syms_29)(as-expand-time-top-level-bindings id16_2 s_460 ctx_123)))"
 "(let-values(((exp-rhs_10)"
-"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_122 ids_48)))"
+"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_123 ids_47)))"
 "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))"
-"(if(expand-context-to-parsed? ctx_122)"
-"(parsed-define-syntaxes20.1 s_460 ids_48 syms_29 exp-rhs_10)"
-"(let-values(((s27_3) s_460)((temp28_5)(list define-syntaxes15_0 ids_48 exp-rhs_10)))"
+"(if(expand-context-to-parsed? ctx_123)"
+"(parsed-define-syntaxes20.1 s_460 ids_47 syms_29 exp-rhs_10)"
+"(let-values(((s27_3) s_460)((temp28_5)(list define-syntaxes15_0 ids_47 exp-rhs_10)))"
 "(rebuild5.1 #f #f s27_3 temp28_5)))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin-for-syntax"
-"   (lambda (s_307 ctx_123) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))"
+"   (lambda (s_307 ctx_124) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))"
 "(void"
 "(add-core-form!*"
 " '#%require"
-"(lambda(s_45 ctx_124)"
+"(lambda(s_45 ctx_125)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_15)(expand-context-observer ctx_124)))"
+"(let-values(((obs_15)(expand-context-observer ctx_125)))"
 "(if obs_15(let-values()(let-values()(call-expand-observe obs_15 'prim-require)))(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(eq?(expand-context-context ctx_124) 'top-level)"
+"(if(eq?(expand-context-context ctx_125) 'top-level)"
 "(void)"
 "                         (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))"
 "(values))))"
 "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))"
 "(let-values(((ok?_91 #%require29_0 req30_0)"
-"(let-values(((s_870) disarmed-s_27))"
-"(let-values(((orig-s_98) s_870))"
+"(let-values(((s_871) disarmed-s_27))"
+"(let-values(((orig-s_97) s_871))"
 "(let-values(((#%require29_1 req30_1)"
-"(let-values(((s_871)(if(syntax?$1 s_870)(syntax-e$1 s_870) s_870)))"
-"(if(pair? s_871)"
-"(let-values(((#%require31_0)(let-values(((s_46)(car s_871))) s_46))"
+"(let-values(((s_872)(if(syntax?$1 s_871)(syntax-e$1 s_871) s_871)))"
+"(if(pair? s_872)"
+"(let-values(((#%require31_0)(let-values(((s_46)(car s_872))) s_46))"
 "((req32_0)"
-"(let-values(((s_32)(cdr s_871)))"
+"(let-values(((s_32)(cdr s_872)))"
 "(let-values(((s_728)"
 "(if(syntax?$1 s_32)"
 "(syntax-e$1 s_32)"
@@ -75912,10 +75929,10 @@ static const char *startup_source =
 "(let-values(((flat-s_64)(to-syntax-list.1 s_728)))"
 "(if(not flat-s_64)"
 "(let-values()"
-"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_98))"
+"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))"
 "(let-values() flat-s_64)))))))"
 "(values #%require31_0 req32_0))"
-"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))"
+"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))"
 "(values #t #%require29_1 req30_1))))))"
 "(let-values(((sc_35)(new-scope 'macro)))"
 "(begin"
@@ -75927,12 +75944,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_12)))"
 "((letrec-values(((for-loop_328)"
-"(lambda(fold-var_383 lst_449)"
+"(lambda(fold-var_383 lst_448)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_449)"
-"(let-values(((req_20)(unsafe-car lst_449))"
-"((rest_265)(unsafe-cdr lst_449)))"
+"(if(pair? lst_448)"
+"(let-values(((req_20)(unsafe-car lst_448))"
+"((rest_265)(unsafe-cdr lst_448)))"
 "(let-values(((fold-var_384)"
 "(let-values(((fold-var_385) fold-var_383))"
 "(let-values(((fold-var_36)"
@@ -75953,8 +75970,8 @@ static const char *startup_source =
 " lst_12)))))"
 "((s34_0) s_45)"
 "((temp35_3) #f)"
-"((temp36_7)(expand-context-namespace ctx_124))"
-"((temp37_5)(expand-context-phase ctx_124))"
+"((temp36_7)(expand-context-namespace ctx_125))"
+"((temp37_5)(expand-context-phase ctx_125))"
 "((temp38_3)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))"
 "((temp39_8) 'require)"
 "((temp40_4) #t))"
@@ -75983,15 +76000,15 @@ static const char *startup_source =
 " temp36_7"
 " temp37_5"
 " temp38_3))"
-"(if(expand-context-to-parsed? ctx_124)(parsed-require23.1 s_45) s_45))))))))))"
+"(if(expand-context-to-parsed? ctx_125)(parsed-require23.1 s_45) s_45))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%provide"
-"(lambda(s_434 ctx_125)"
+"(lambda(s_433 ctx_126)"
 "(begin"
-"(let-values(((obs_23)(expand-context-observer ctx_125)))"
+"(let-values(((obs_23)(expand-context-observer ctx_126)))"
 "(if obs_23(let-values()(let-values()(call-expand-observe obs_23 'prim-provide)))(void)))"
-"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_434)))))"
+"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_433)))))"
 "(define-values(ns)(make-namespace))"
 "(void"
 "(begin"
@@ -76031,7 +76048,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_80"
-"(let-values(((name_83)(hash-iterate-key ht_66 i_80)))"
+"(let-values(((name_82)(hash-iterate-key ht_66 i_80)))"
 "(let-values(((table_102)"
 "(let-values(((table_217) table_216))"
 "(let-values(((table_218)"
@@ -76039,7 +76056,7 @@ static const char *startup_source =
 "(let-values(((key_67 val_88)"
 "(let-values()"
 "(values"
-"(let-values() name_83)"
+"(let-values() name_82)"
 " #t))))"
 "(hash-set table_217 key_67 val_88)))))"
 "(values table_218)))))"
@@ -76061,7 +76078,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if i_36"
-"(let-values(((name_84)(hash-iterate-key ht_165 i_36)))"
+"(let-values(((name_83)(hash-iterate-key ht_165 i_36)))"
 "(let-values(((table_219)"
 "(let-values(((table_175) table_202))"
 "(let-values(((table_95)"
@@ -76069,7 +76086,7 @@ static const char *startup_source =
 "(let-values(((key_95 val_89)"
 "(let-values()"
 "(values"
-"(let-values() name_84)"
+"(let-values() name_83)"
 " #t))))"
 "(hash-set table_175 key_95 val_89)))))"
 "(values table_95)))))"
@@ -76090,10 +76107,10 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_54)"
-"(let-values(((name_85)(unsafe-car lst_54))((rest_171)(unsafe-cdr lst_54)))"
+"(let-values(((name_84)(unsafe-car lst_54))((rest_171)(unsafe-cdr lst_54)))"
 "(let-values((()"
 "(let-values()"
-"(if(eq? name_85 '#%kernel)"
+"(if(eq? name_84 '#%kernel)"
 "(values)"
 "(let-values()"
 "(let-values((()"
@@ -76104,18 +76121,18 @@ static const char *startup_source =
 "((temp32_1)"
 "(let-values(((or-part_53)"
 "(eq?"
-" name_85"
+" name_84"
 " '#%foreign)))"
 "(if or-part_53"
 " or-part_53"
 "(let-values(((or-part_21)"
 "(eq?"
-" name_85"
+" name_84"
 " '#%futures)))"
 "(if or-part_21"
 " or-part_21"
 "(eq?"
-" name_85"
+" name_84"
 " '#%unsafe)))))))"
 "(copy-runtime-module!26.1"
 " #f"
@@ -76131,7 +76148,7 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" name_85)))"
+" name_84)))"
 "(values)))))"
 "(values)))))))"
 "(if(not #f)(for-loop_329 rest_171)(values))))"