diff --git a/racket/collects/racket/private/kw.rkt b/racket/collects/racket/private/kw.rkt
index ad230649c8..622b71945d 100644
--- a/racket/collects/racket/private/kw.rkt
+++ b/racket/collects/racket/private/kw.rkt
@@ -670,7 +670,9 @@
                                           (cond
                                            [(null? kws) null]
                                            [else
-                                            (cons (cadar kws) (loop (cdr kws)))])))])
+                                            (cons (cadar kws) (loop (cdr kws)))])))]
+                    [local-name (or local-name
+                                    (syntax-local-infer-name stx))])
                (with-syntax ([(kw-arg ...) kw-args]
                              [kws-sorted sorted-kws]
                              [(opt-arg ...) opt-args]
@@ -698,10 +700,8 @@
                              [with-kw-max-arg (if (null? (syntax-e #'rest))
                                                   (+ 2 (length plain-ids) (length opts))
                                                   #f)]
-                             [core (car (generate-temporaries (if (identifier? local-name)
-                                                                  (list local-name)
-                                                                  '(core))))]
-                             [unpack (car (generate-temporaries '(unpack)))])
+                             [core (generate-proc-id 'core local-name)]
+                             [unpack (generate-proc-id 'unpack local-name)])
                  (let ([mk-core
                         (lambda (kw-core?)
                           ;; body of procedure, where all optional
@@ -804,8 +804,7 @@
                       (mk-unpack)
                       (with-syntax ([kws (map car sorted-kws)]
                                     [no-kws (let ([p (mk-no-kws #t)]
-                                                  [n (or local-name
-                                                         (syntax-local-infer-name stx))])
+                                                  [n local-name])
                                               (if n
                                                   #`(let ([#,n #,p]) #,n)
                                                   p))]
@@ -833,7 +832,6 @@
 
                                     [with-kws (mk-with-kws)]
                                     [(_ mk-id . _) (with-syntax ([n (or local-name
-                                                                        (syntax-local-infer-name stx)
                                                                         'unknown)]
                                                                  [call-fail (mk-kw-arity-stub)])
                                                      (syntax-local-lift-values-expression
@@ -875,6 +873,17 @@
      null
      args))
 
+  (define-for-syntax (generate-proc-id default local-name)
+    (cond
+      [(not local-name)
+       ((make-syntax-introducer) (datum->syntax #f default))]
+      [(symbol? local-name)
+       (generate-proc-id local-name #f)]
+      [(identifier? local-name)
+       (generate-proc-id (syntax-e local-name) #f)]
+      [else
+       (generate-proc-id default #f)]))
+
   ;; ----------------------------------------
 
   ;; Helper macro:
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index b1d3bd0f4a..58001e2d90 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -2388,10 +2388,10 @@ static const char *startup_source =
 " loop_0)"
 "(hash-iterate-first h_0)))))"
 "(define-values"
-"(sort7.1)"
+"(sort.1)"
 "(lambda(cache-keys?2_0 key1_0 lst5_0 less?6_0)"
 "(begin"
-" 'sort7"
+" 'sort"
 "(let-values(((lst_0) lst5_0))"
 "(let-values(((less?_0) less?6_0))"
 "(let-values(((getkey_0) key1_0))"
@@ -2428,10 +2428,10 @@ static const char *startup_source =
 "(define-values(no-empty-edge-table)(make-hash))"
 " (define-values (binary-or-text-desc) \"(or/c 'binary 'text)\")"
 "(define-values"
-"(open-input-file6.1)"
+"(open-input-file.1)"
 "(lambda(for-module?2_0 mode1_0 path5_0)"
 "(begin"
-" 'open-input-file6"
+" 'open-input-file"
 "(let-values(((path_0) path5_0))"
 "(let-values(((mode_0) mode1_0))"
 "(let-values(((for-module?_0) for-module?2_0))"
@@ -2445,13 +2445,13 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'open-input-file binary-or-text-desc mode_0)))"
 "(open-input-file path_0 mode_0(if for-module?_0 'module 'none))))))))))"
 "(define-values"
-"(with-input-from-file45.1)"
-"(lambda(mode41_0 path43_0 proc44_0)"
+"(with-input-from-file.1)"
+"(lambda(mode31_0 path33_0 proc34_0)"
 "(begin"
-" 'with-input-from-file45"
-"(let-values(((path_0) path43_0))"
-"(let-values(((proc_0) proc44_0))"
-"(let-values(((mode_0) mode41_0))"
+" 'with-input-from-file"
+"(let-values(((path_0) path33_0))"
+"(let-values(((proc_0) proc34_0))"
+"(let-values(((mode_0) mode31_0))"
 "(let-values()"
 "(begin"
 "(if(path-string? path_0)"
@@ -2465,13 +2465,13 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'with-input-from-file binary-or-text-desc mode_0)))"
 "(with-input-from-file path_0 proc_0 mode_0)))))))))"
 "(define-values"
-"(call-with-input-file*61.1)"
-"(lambda(mode57_0 path59_0 proc60_0)"
+"(call-with-input-file*.1)"
+"(lambda(mode43_0 path45_0 proc46_0)"
 "(begin"
-" 'call-with-input-file*61"
-"(let-values(((path_0) path59_0))"
-"(let-values(((proc_0) proc60_0))"
-"(let-values(((mode_0) mode57_0))"
+" 'call-with-input-file*"
+"(let-values(((path_0) path45_0))"
+"(let-values(((proc_0) proc46_0))"
+"(let-values(((mode_0) mode43_0))"
 "(let-values()"
 "(begin"
 "(if(path-string? path_0)"
@@ -3334,7 +3334,7 @@ static const char *startup_source =
 "(hash-ref"
 "(hash-ref accums_0 key_0)"
 " stat-key)))))"
-"(sort7.1 #f temp7_0 temp5_0 >6_0))))"
+"(sort.1 #f temp7_0 temp5_0 >6_0))))"
 "(begin"
 "(let-values(((lst_0) keys_0)((start_0) 0))"
 "(begin"
@@ -3483,12 +3483,11 @@ static const char *startup_source =
 "(string-module-path?)"
 "(lambda(v_0)"
 "(begin"
-"(let-values(((v13_0) v_0)((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))"
-"(module-path-string?10.1 temp14_0 temp16_0 #f temp15_0 v13_0)))))"
+"(let-values(((v11_0) v_0)((temp12_0) #t)((temp13_0) #t)((temp14_0) #t))"
+"(module-path-string?.1 temp12_0 temp14_0 #f temp13_0 v11_0)))))"
 "(define-values"
 "(symbol-module-path?)"
-"(lambda(v_0)"
-"(begin(let-values(((temp17_0)(symbol->string v_0)))(module-path-string?10.1 #f #f #f #f temp17_0)))))"
+"(lambda(v_0)(begin(let-values(((temp15_0)(symbol->string v_0)))(module-path-string?.1 #f #f #f #f temp15_0)))))"
 "(define-values"
 "(lib-module-path?)"
 "(lambda(v_0)"
@@ -3503,10 +3502,10 @@ static const char *startup_source =
 "(if or-part_0"
 " or-part_0"
 "(if(string?(car v_1))"
-"(if(let-values(((temp18_0)(car v_1))"
-"((first?19_0) first?_0)"
-"((first?20_0) first?_0))"
-"(module-path-string?10.1 #f first?20_0 #f first?19_0 temp18_0))"
+"(if(let-values(((temp16_0)(car v_1))"
+"((first?17_0) first?_0)"
+"((first?18_0) first?_0))"
+"(module-path-string?.1 #f first?18_0 #f first?17_0 temp16_0))"
 "(loop_0(cdr v_1) #f)"
 " #f)"
 " #f)))))))"
@@ -3528,20 +3527,20 @@ static const char *startup_source =
 "(let-values(((e_0)(cadr v_0)))"
 "(if(string? e_0)"
 "(let-values()"
-"(let-values(((e21_0) e_0)((temp22_0) #t)((temp23_0) #t))"
-"(module-path-string?10.1 #f temp23_0 temp22_0 #f e21_0)))"
+"(let-values(((e19_0) e_0)((temp20_0) #t)((temp21_0) #t))"
+"(module-path-string?.1 #f temp21_0 temp20_0 #f e19_0)))"
 "(if(symbol? e_0)"
 "(let-values()"
-"(let-values(((temp24_0)(symbol->string e_0))((temp25_0) #t))"
-"(module-path-string?10.1 #f #f temp25_0 #f temp24_0)))"
+"(let-values(((temp22_0)(symbol->string e_0))((temp23_0) #t))"
+"(module-path-string?.1 #f #f temp23_0 #f temp22_0)))"
 "(let-values() #f)))))"
 "(let-values()"
 "(let-values(((file_0)(cadr v_0)))"
 "(let-values(((pkg_0)(caddr v_0)))"
 "(let-values(((subs_0)(cdddr v_0)))"
 "(if file_0"
-"(if(let-values(((file26_0) file_0)((temp27_0) #t)((temp28_0) #t))"
-"(module-path-string?10.1 #f temp28_0 #f temp27_0 file26_0))"
+"(if(let-values(((file24_0) file_0)((temp25_0) #t)((temp26_0) #t))"
+"(module-path-string?.1 #f temp26_0 #f temp25_0 file24_0))"
 "(if(if(list? pkg_0)"
 "(if(<= 2(length pkg_0) 4)"
 "(if(planet-user/pkg-string?(car pkg_0))"
@@ -3577,14 +3576,14 @@ static const char *startup_source =
 "(let-values(((result_1)"
 "(let-values()"
 "(let-values()"
-"(let-values(((sub29_0)"
+"(let-values(((sub27_0)"
 " sub_0))"
-"(module-path-string?10.1"
+"(module-path-string?.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" sub29_0))))))"
+" sub27_0))))))"
 "(values result_1)))))"
 "(if(if(not((lambda x_0(not result_1)) sub_0))"
 "(not #f)"
@@ -3618,10 +3617,10 @@ static const char *startup_source =
 " #f)"
 " #f))))))"
 "(define-values"
-"(module-path-string?10.1)"
+"(module-path-string?.1)"
 "(lambda(dots-dir-ok?2_0 file-end-ok?4_0 for-planet?1_0 just-file-ok?3_0 v9_0)"
 "(begin"
-" 'module-path-string?10"
+" 'module-path-string?"
 "(let-values(((v_0) v9_0))"
 "(let-values(((for-planet?_0) for-planet?1_0))"
 "(let-values(((dots-dir-ok?_0) dots-dir-ok?2_0))"
@@ -4595,10 +4594,10 @@ static const char *startup_source =
 "(() top-level-module-path-index)))"
 "(define-values"
 "(1/module-path-index-resolve)"
-"(let-values(((module-path-index-resolve5_0)"
+"(let-values(((module-path-index-resolve_0)"
 "(lambda(mpi4_0 load?3_0)"
 "(begin"
-" 'module-path-index-resolve5"
+" 'module-path-index-resolve"
 "(let-values(((mpi_0) mpi4_0))"
 "(let-values(((load?_0) load?3_0))"
 "(let-values()"
@@ -4641,8 +4640,8 @@ static const char *startup_source =
 "(set-module-path-index-resolved! mpi_0 mod-name_0)"
 " mod-name_0))))))))))))))"
 "(case-lambda"
-"((mpi_0)(begin 'module-path-index-resolve(module-path-index-resolve5_0 mpi_0 #f)))"
-"((mpi_0 load?3_0)(module-path-index-resolve5_0 mpi_0 load?3_0)))))"
+"((mpi_0)(begin 'module-path-index-resolve(module-path-index-resolve_0 mpi_0 #f)))"
+"((mpi_0 load?3_0)(module-path-index-resolve_0 mpi_0 load?3_0)))))"
 "(define-values"
 "(module-path-index-unresolve)"
 "(lambda(mpi_0)"
@@ -4653,13 +4652,13 @@ static const char *startup_source =
 "(let-values() mpi_0)))))"
 "(define-values"
 "(1/module-path-index-join)"
-"(let-values(((module-path-index-join10_0)"
-"(lambda(mod-path8_0 base9_0 submod7_0)"
+"(let-values(((module-path-index-join_0)"
+"(lambda(mod-path6_0 base7_0 submod5_0)"
 "(begin"
-" 'module-path-index-join10"
-"(let-values(((mod-path_0) mod-path8_0))"
-"(let-values(((base_0) base9_0))"
-"(let-values(((submod_0) submod7_0))"
+" 'module-path-index-join"
+"(let-values(((mod-path_0) mod-path6_0))"
+"(let-values(((base_0) base7_0))"
+"(let-values(((submod_0) submod5_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -4741,8 +4740,8 @@ static const char *startup_source =
 " mod-path_0)))"
 "(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))))"
 "(case-lambda"
-"((mod-path_0 base_0)(begin 'module-path-index-join(module-path-index-join10_0 mod-path_0 base_0 #f)))"
-"((mod-path_0 base_0 submod7_0)(module-path-index-join10_0 mod-path_0 base_0 submod7_0)))))"
+"((mod-path_0 base_0)(begin 'module-path-index-join(module-path-index-join_0 mod-path_0 base_0 #f)))"
+"((mod-path_0 base_0 submod5_0)(module-path-index-join_0 mod-path_0 base_0 submod5_0)))))"
 "(define-values"
 "(module-path-index-resolve/maybe)"
 "(lambda(base_0 load?_0)"
@@ -4780,8 +4779,8 @@ static const char *startup_source =
 "((name_0)(begin(module-path-index2.1 #f #f name_0 #f)))"
 "((name_0 enclosing_0)"
 "(make-self-module-path-index"
-"(let-values(((name25_0) name_0)((temp26_0)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))"
-"(build-module-name16.1 unsafe-undefined name25_0 temp26_0))))))"
+"(let-values(((name19_0) name_0)((temp20_0)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))"
+"(build-module-name.1 unsafe-undefined name19_0 temp20_0))))))"
 "(define-values(cell.1$8)(unsafe-make-place-local(make-weak-hash)))"
 "(define-values(generic-module-name) '|expanded module|)"
 "(define-values(module-path-place-init!)(lambda()(begin(unsafe-place-local-set! cell.1$8(make-weak-hash)))))"
@@ -4907,13 +4906,13 @@ static const char *startup_source =
 "(let-values(((enclosing_2) enclosing_1))"
 "(let-values(((enclosing_3)"
 "(let-values()"
-"(let-values(((s27_0) s_0)"
-"((enclosing28_0) enclosing_2)"
-"((p29_0) p_0))"
-"(build-module-name16.1"
-" p29_0"
-" s27_0"
-" enclosing28_0)))))"
+"(let-values(((s21_0) s_0)"
+"((enclosing22_0) enclosing_2)"
+"((p23_0) p_0))"
+"(build-module-name.1"
+" p23_0"
+" s21_0"
+" enclosing22_0)))))"
 "(values enclosing_3)))))"
 "(if(not #f)(for-loop_0 enclosing_2 rest_0) enclosing_2)))"
 " enclosing_1)))))"
@@ -4937,13 +4936,13 @@ static const char *startup_source =
 "(let-values(((enclosing_2) enclosing_1))"
 "(let-values(((enclosing_3)"
 "(let-values()"
-"(let-values(((s30_0) s_0)"
-"((enclosing31_0) enclosing_2)"
-"((p32_0) p_0))"
-"(build-module-name16.1"
-" p32_0"
-" s30_0"
-" enclosing31_0)))))"
+"(let-values(((s24_0) s_0)"
+"((enclosing25_0) enclosing_2)"
+"((p26_0) p_0))"
+"(build-module-name.1"
+" p26_0"
+" s24_0"
+" enclosing25_0)))))"
 "(values enclosing_3)))))"
 "(if(not #f)(for-loop_0 enclosing_2 rest_0) enclosing_2)))"
 " enclosing_1)))))"
@@ -4968,14 +4967,14 @@ static const char *startup_source =
 "(let-values(((enclosing_2) enclosing_1))"
 "(let-values(((enclosing_3)"
 "(let-values()"
-"(let-values(((s33_0) s_0)"
-"((enclosing34_0)"
+"(let-values(((s27_0) s_0)"
+"((enclosing28_0)"
 " enclosing_2)"
-"((p35_0) p_0))"
-"(build-module-name16.1"
-" p35_0"
-" s33_0"
-" enclosing34_0)))))"
+"((p29_0) p_0))"
+"(build-module-name.1"
+" p29_0"
+" s27_0"
+" enclosing28_0)))))"
 "(values enclosing_3)))))"
 "(if(not #f)(for-loop_0 enclosing_2 rest_0) enclosing_2)))"
 " enclosing_1)))))"
@@ -4984,13 +4983,13 @@ static const char *startup_source =
 " lst_0)))))"
 "              (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_0))))))))))"
 "(define-values"
-"(build-module-name16.1)"
-"(lambda(original12_0 name14_0 enclosing15_0)"
+"(build-module-name.1)"
+"(lambda(original8_0 name10_0 enclosing11_0)"
 "(begin"
-" 'build-module-name16"
-"(let-values(((name_0) name14_0))"
-"(let-values(((enclosing_0) enclosing15_0))"
-"(let-values(((orig-name_0)(if(eq? original12_0 unsafe-undefined) name_0 original12_0)))"
+" 'build-module-name"
+"(let-values(((name_0) name10_0))"
+"(let-values(((enclosing_0) enclosing11_0))"
+"(let-values(((orig-name_0)(if(eq? original8_0 unsafe-undefined) name_0 original8_0)))"
 "(let-values()"
 "(let-values(((enclosing-module-name_0)(if enclosing_0(1/resolved-module-path-name enclosing_0) #f)))"
 "(1/make-resolved-module-path"
@@ -5966,7 +5965,7 @@ static const char *startup_source =
 "(let-values((()(begin(ser-push!_0 'tag '#:syntax)(values))))"
 "(let-values(((this-state_0)"
 "(if(no-pair-syntax-in-cdr? content_0)"
-"(syntax-state18.1"
+"(syntax-state16.1"
 " #t"
 " context-triple_0"
 "(syntax-srcloc s_0))"
@@ -6151,10 +6150,10 @@ static const char *startup_source =
 "(define-values(cell.1$7)(unsafe-make-place-local(make-weak-hasheq)))"
 "(define-values"
 "(datum->syntax$1)"
-"(let-values(((datum->syntax6_0)"
+"(let-values(((datum->syntax_0)"
 "(lambda(stx-c4_0 s5_0 stx-l2_0 stx-p3_0)"
 "(begin"
-" 'datum->syntax6"
+" 'datum->syntax"
 "(let-values(((stx-c_0) stx-c4_0))"
 "(let-values(((s_0) s5_0))"
 "(let-values(((stx-l_0) stx-l2_0))"
@@ -6305,7 +6304,7 @@ static const char *startup_source =
 "(if(if stx-p_0(not(eq?(syntax-props stx-p_0) empty-props)) #f)"
 "(let-values(((the-struct_0) result-s_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((props20_0)(syntax-props stx-p_0)))"
+"(let-values(((props18_0)(syntax-props stx-p_0)))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
@@ -6313,14 +6312,14 @@ static const char *startup_source =
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
-" props20_0"
+" props18_0"
 "(syntax-inspector the-struct_0)))"
 "                                              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
 " result-s_0)))))))))))))))"
 "(case-lambda"
-"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax6_0 stx-c_0 s_0 #f #f)))"
-"((stx-c_0 s_0 stx-l_0 stx-p3_0)(datum->syntax6_0 stx-c_0 s_0 stx-l_0 stx-p3_0))"
-"((stx-c_0 s_0 stx-l2_0)(datum->syntax6_0 stx-c_0 s_0 stx-l2_0 #f)))))"
+"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax_0 stx-c_0 s_0 #f #f)))"
+"((stx-c_0 s_0 stx-l_0 stx-p3_0)(datum->syntax_0 stx-c_0 s_0 stx-l_0 stx-p3_0))"
+"((stx-c_0 s_0 stx-l2_0)(datum->syntax_0 stx-c_0 s_0 stx-l2_0 #f)))))"
 "(define-values"
 "(disallow-cycles)"
 "(hasheq"
@@ -6329,7 +6328,7 @@ static const char *startup_source =
 "(define-values(syntax-place-init!)(lambda()(begin(unsafe-place-local-set! cell.1$7(make-weak-hasheq)))))"
 "(define-values"
 "(struct:syntax-state"
-" syntax-state18.1"
+" syntax-state16.1"
 " syntax-state?"
 " syntax-state-all-sharing?"
 " syntax-state-context-triple"
@@ -6454,7 +6453,7 @@ static const char *startup_source =
 "(define-values(binding-frame-id)(lambda(b_0)(begin(if(full-binding? b_0)(full-binding-frame-id b_0) #f))))"
 "(define-values(binding-free=id)(lambda(b_0)(begin(if(full-binding? b_0)(full-binding-free=id b_0) #f))))"
 "(define-values"
-"(make-module-binding20.1)"
+"(make-module-binding.1)"
 "(lambda(extra-inspector7_0"
 " extra-nominal-bindings8_0"
 " frame-id5_0"
@@ -6467,7 +6466,7 @@ static const char *startup_source =
 " phase18_0"
 " sym19_0)"
 "(begin"
-" 'make-module-binding20"
+" 'make-module-binding"
 "(let-values(((module_0) module17_0))"
 "(let-values(((phase_0) phase18_0))"
 "(let-values(((sym_0) sym19_0))"
@@ -6498,7 +6497,7 @@ static const char *startup_source =
 " #f)"
 " #f))))))))"
 "(let-values()"
-"(full-module-binding49.1"
+"(full-module-binding45.1"
 " frame-id_0"
 " free=id_0"
 " module_0"
@@ -6511,79 +6510,79 @@ static const char *startup_source =
 " extra-inspector_0"
 " extra-nominal-bindings_0))"
 "(let-values()"
-"(simple-module-binding50.1 module_0 phase_0 sym_0 nominal-module_0))))))))))))))))))"
+"(simple-module-binding46.1 module_0 phase_0 sym_0 nominal-module_0))))))))))))))))))"
 "(define-values"
-"(module-binding-update46.1)"
-"(lambda(extra-inspector32_0"
-" extra-nominal-bindings33_0"
-" frame-id30_0"
-" free=id31_0"
-" module23_0"
-" nominal-module26_0"
-" nominal-phase27_0"
-" nominal-require-phase29_0"
-" nominal-sym28_0"
-" phase24_0"
-" sym25_0"
-" b45_0)"
+"(module-binding-update.1)"
+"(lambda(extra-inspector30_0"
+" extra-nominal-bindings31_0"
+" frame-id28_0"
+" free=id29_0"
+" module21_0"
+" nominal-module24_0"
+" nominal-phase25_0"
+" nominal-require-phase27_0"
+" nominal-sym26_0"
+" phase22_0"
+" sym23_0"
+" b43_0)"
 "(begin"
-" 'module-binding-update46"
-"(let-values(((b_0) b45_0))"
-"(let-values(((module_0)(if(eq? module23_0 unsafe-undefined)(module-binding-module b_0) module23_0)))"
-"(let-values(((phase_0)(if(eq? phase24_0 unsafe-undefined)(module-binding-phase b_0) phase24_0)))"
-"(let-values(((sym_0)(if(eq? sym25_0 unsafe-undefined)(module-binding-sym b_0) sym25_0)))"
+" 'module-binding-update"
+"(let-values(((b_0) b43_0))"
+"(let-values(((module_0)(if(eq? module21_0 unsafe-undefined)(module-binding-module b_0) module21_0)))"
+"(let-values(((phase_0)(if(eq? phase22_0 unsafe-undefined)(module-binding-phase b_0) phase22_0)))"
+"(let-values(((sym_0)(if(eq? sym23_0 unsafe-undefined)(module-binding-sym b_0) sym23_0)))"
 "(let-values(((nominal-module_0)"
-"(if(eq? nominal-module26_0 unsafe-undefined)"
+"(if(eq? nominal-module24_0 unsafe-undefined)"
 "(module-binding-nominal-module b_0)"
-" nominal-module26_0)))"
+" nominal-module24_0)))"
 "(let-values(((nominal-phase_0)"
-"(if(eq? nominal-phase27_0 unsafe-undefined)"
+"(if(eq? nominal-phase25_0 unsafe-undefined)"
 "(module-binding-nominal-phase b_0)"
-" nominal-phase27_0)))"
+" nominal-phase25_0)))"
 "(let-values(((nominal-sym_0)"
-"(if(eq? nominal-sym28_0 unsafe-undefined)"
+"(if(eq? nominal-sym26_0 unsafe-undefined)"
 "(module-binding-nominal-sym b_0)"
-" nominal-sym28_0)))"
+" nominal-sym26_0)))"
 "(let-values(((nominal-require-phase_0)"
-"(if(eq? nominal-require-phase29_0 unsafe-undefined)"
+"(if(eq? nominal-require-phase27_0 unsafe-undefined)"
 "(module-binding-nominal-require-phase b_0)"
-" nominal-require-phase29_0)))"
+" nominal-require-phase27_0)))"
 "(let-values(((frame-id_0)"
-"(if(eq? frame-id30_0 unsafe-undefined)(binding-frame-id b_0) frame-id30_0)))"
+"(if(eq? frame-id28_0 unsafe-undefined)(binding-frame-id b_0) frame-id28_0)))"
 "(let-values(((free=id_0)"
-"(if(eq? free=id31_0 unsafe-undefined)(binding-free=id b_0) free=id31_0)))"
+"(if(eq? free=id29_0 unsafe-undefined)(binding-free=id b_0) free=id29_0)))"
 "(let-values(((extra-inspector_0)"
-"(if(eq? extra-inspector32_0 unsafe-undefined)"
+"(if(eq? extra-inspector30_0 unsafe-undefined)"
 "(module-binding-extra-inspector b_0)"
-" extra-inspector32_0)))"
+" extra-inspector30_0)))"
 "(let-values(((extra-nominal-bindings_0)"
-"(if(eq? extra-nominal-bindings33_0 unsafe-undefined)"
+"(if(eq? extra-nominal-bindings31_0 unsafe-undefined)"
 "(module-binding-extra-nominal-bindings b_0)"
-" extra-nominal-bindings33_0)))"
+" extra-nominal-bindings31_0)))"
 "(let-values()"
-"(let-values(((module51_0) module_0)"
-"((phase52_0) phase_0)"
-"((sym53_0) sym_0)"
-"((nominal-module54_0) nominal-module_0)"
-"((nominal-phase55_0) nominal-phase_0)"
-"((nominal-sym56_0) nominal-sym_0)"
-"((nominal-require-phase57_0) nominal-require-phase_0)"
-"((frame-id58_0) frame-id_0)"
-"((free=id59_0) free=id_0)"
-"((extra-inspector60_0) extra-inspector_0)"
-"((extra-nominal-bindings61_0) extra-nominal-bindings_0))"
-"(make-module-binding20.1"
-" extra-inspector60_0"
-" extra-nominal-bindings61_0"
-" frame-id58_0"
-" free=id59_0"
-" nominal-module54_0"
-" nominal-phase55_0"
-" nominal-require-phase57_0"
-" nominal-sym56_0"
-" module51_0"
-" phase52_0"
-" sym53_0))))))))))))))))))"
+"(let-values(((module47_0) module_0)"
+"((phase48_0) phase_0)"
+"((sym49_0) sym_0)"
+"((nominal-module50_0) nominal-module_0)"
+"((nominal-phase51_0) nominal-phase_0)"
+"((nominal-sym52_0) nominal-sym_0)"
+"((nominal-require-phase53_0) nominal-require-phase_0)"
+"((frame-id54_0) frame-id_0)"
+"((free=id55_0) free=id_0)"
+"((extra-inspector56_0) extra-inspector_0)"
+"((extra-nominal-bindings57_0) extra-nominal-bindings_0))"
+"(make-module-binding.1"
+" extra-inspector56_0"
+" extra-nominal-bindings57_0"
+" frame-id54_0"
+" free=id55_0"
+" nominal-module50_0"
+" nominal-phase51_0"
+" nominal-require-phase53_0"
+" nominal-sym52_0"
+" module47_0"
+" phase48_0"
+" sym49_0))))))))))))))))))"
 "(define-values"
 "(module-binding?)"
 "(lambda(b_0)"
@@ -6591,7 +6590,7 @@ static const char *startup_source =
 "(let-values(((or-part_0)(simple-module-binding? b_0)))(if or-part_0 or-part_0(full-module-binding? b_0))))))"
 "(define-values"
 "(struct:full-module-binding"
-" full-module-binding49.1"
+" full-module-binding45.1"
 " full-module-binding?"
 " full-module-binding-module"
 " full-module-binding-phase"
@@ -6618,11 +6617,11 @@ static const char *startup_source =
 "(lambda(b_0 ser-push!_0 state_0)"
 "(let-values(((simplified-b_0)"
 "(if(full-binding-frame-id b_0)"
-"(let-values(((b63_0) b_0)((temp64_0) #f))"
-"(module-binding-update46.1"
+"(let-values(((b59_0) b_0)((temp60_0) #f))"
+"(module-binding-update.1"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp64_0"
+" temp60_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -6631,7 +6630,7 @@ static const char *startup_source =
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" b63_0))"
+" b59_0))"
 " b_0)))"
 "(if(full-module-binding? simplified-b_0)"
 "(let-values()"
@@ -6670,7 +6669,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 8 'extra-nominal-bindings))))"
 "(define-values"
 "(struct:simple-module-binding"
-" simple-module-binding50.1"
+" simple-module-binding46.1"
 " simple-module-binding?"
 " simple-module-binding-module"
 " simple-module-binding-phase"
@@ -6722,32 +6721,32 @@ static const char *startup_source =
 " extra-inspector_0"
 " extra-nominal-bindings_0)"
 "(begin"
-"(let-values(((module66_0) module_0)"
-"((phase67_0) phase_0)"
-"((sym68_0) sym_0)"
-"((nominal-module69_0) nominal-module_0)"
-"((nominal-phase70_0) nominal-phase_0)"
-"((nominal-sym71_0) nominal-sym_0)"
-"((nominal-require-phase72_0) nominal-require-phase_0)"
-"((free=id73_0) free=id_0)"
-"((extra-inspector74_0) extra-inspector_0)"
-"((extra-nominal-bindings75_0) extra-nominal-bindings_0))"
-"(make-module-binding20.1"
-" extra-inspector74_0"
-" extra-nominal-bindings75_0"
+"(let-values(((module62_0) module_0)"
+"((phase63_0) phase_0)"
+"((sym64_0) sym_0)"
+"((nominal-module65_0) nominal-module_0)"
+"((nominal-phase66_0) nominal-phase_0)"
+"((nominal-sym67_0) nominal-sym_0)"
+"((nominal-require-phase68_0) nominal-require-phase_0)"
+"((free=id69_0) free=id_0)"
+"((extra-inspector70_0) extra-inspector_0)"
+"((extra-nominal-bindings71_0) extra-nominal-bindings_0))"
+"(make-module-binding.1"
+" extra-inspector70_0"
+" extra-nominal-bindings71_0"
 " #f"
-" free=id73_0"
-" nominal-module69_0"
-" nominal-phase70_0"
-" nominal-require-phase72_0"
-" nominal-sym71_0"
-" module66_0"
-" phase67_0"
-" sym68_0)))))"
+" free=id69_0"
+" nominal-module65_0"
+" nominal-phase66_0"
+" nominal-require-phase68_0"
+" nominal-sym67_0"
+" module62_0"
+" phase63_0"
+" sym64_0)))))"
 "(define-values"
 "(deserialize-simple-module-binding)"
 "(lambda(module_0 sym_0 phase_0 nominal-module_0)"
-"(begin(simple-module-binding50.1 module_0 phase_0 sym_0 nominal-module_0))))"
+"(begin(simple-module-binding46.1 module_0 phase_0 sym_0 nominal-module_0))))"
 "(define-values"
 "(module-binding-module)"
 "(lambda(b_0)"
@@ -6926,20 +6925,20 @@ static const char *startup_source =
 " #f))))))"
 "(let-values(((the-struct_0) bt_0))"
 "(if(table-with-bulk-bindings? the-struct_0)"
-"(let-values(((syms32_0) new-syms_0)((syms/serialize33_0) new-syms/serialize_0))"
+"(let-values(((syms26_0) new-syms_0)((syms/serialize27_0) new-syms/serialize_0))"
 "(table-with-bulk-bindings1.1"
-" syms32_0"
-" syms/serialize33_0"
+" syms26_0"
+" syms/serialize27_0"
 "(table-with-bulk-bindings-bulk-bindings the-struct_0)))"
 "                  (raise-argument-error 'struct-copy \"table-with-bulk-bindings?\" the-struct_0))))))))))"
 "(define-values"
 "(prop:implicitly-reachable implicitly-reachable? implicitly-reachable-ref)"
 "(make-struct-type-property 'implicitly-reachable))"
 "(define-values"
-"(binding-table-add-bulk9.1)"
+"(binding-table-add-bulk.1)"
 "(lambda(shadow-except4_0 bt6_0 scopes7_0 bulk8_0)"
 "(begin"
-" 'binding-table-add-bulk9"
+" 'binding-table-add-bulk"
 "(let-values(((bt_0) bt6_0))"
 "(let-values(((scopes_0) scopes7_0))"
 "(let-values(((bulk_0) bulk8_0))"
@@ -6948,43 +6947,39 @@ static const char *startup_source =
 "(if(table-with-bulk-bindings? bt_0)"
 "(let-values()"
 "(let-values(((new-syms_0)"
-"(let-values(((temp34_0)(table-with-bulk-bindings-syms bt_0))"
-"((scopes35_0) scopes_0)"
-"((bulk36_0) bulk_0)"
-"((shadow-except37_0) shadow-except_0))"
-"(remove-matching-bindings17.1 shadow-except37_0 temp34_0 scopes35_0 bulk36_0))))"
+"(let-values(((temp28_0)(table-with-bulk-bindings-syms bt_0))"
+"((scopes29_0) scopes_0)"
+"((bulk30_0) bulk_0)"
+"((shadow-except31_0) shadow-except_0))"
+"(remove-matching-bindings.1 shadow-except31_0 temp28_0 scopes29_0 bulk30_0))))"
 "(let-values(((new-syms/serialize_0)"
 "(if(eq?"
 "(table-with-bulk-bindings-syms bt_0)"
 "(table-with-bulk-bindings-syms/serialize bt_0))"
 " new-syms_0"
-"(let-values(((temp38_0)(table-with-bulk-bindings-syms/serialize bt_0))"
-"((scopes39_0) scopes_0)"
-"((bulk40_0) bulk_0)"
-"((shadow-except41_0) shadow-except_0))"
-"(remove-matching-bindings17.1"
-" shadow-except41_0"
-" temp38_0"
-" scopes39_0"
-" bulk40_0)))))"
+"(let-values(((temp32_0)(table-with-bulk-bindings-syms/serialize bt_0))"
+"((scopes33_0) scopes_0)"
+"((bulk34_0) bulk_0)"
+"((shadow-except35_0) shadow-except_0))"
+"(remove-matching-bindings.1 shadow-except35_0 temp32_0 scopes33_0 bulk34_0)))))"
 "(table-with-bulk-bindings1.1"
 " new-syms_0"
 " new-syms/serialize_0"
 "(cons(bulk-binding-at2.1 scopes_0 bulk_0)(table-with-bulk-bindings-bulk-bindings bt_0))))))"
 "(let-values()"
-"(let-values(((temp42_0)(table-with-bulk-bindings1.1 bt_0 bt_0 null))"
-"((scopes43_0) scopes_0)"
-"((bulk44_0) bulk_0))"
-"(binding-table-add-bulk9.1 #f temp42_0 scopes43_0 bulk44_0))))))))))))"
+"(let-values(((temp36_0)(table-with-bulk-bindings1.1 bt_0 bt_0 null))"
+"((scopes37_0) scopes_0)"
+"((bulk38_0) bulk_0))"
+"(binding-table-add-bulk.1 #f temp36_0 scopes37_0 bulk38_0))))))))))))"
 "(define-values"
-"(remove-matching-bindings17.1)"
-"(lambda(except12_0 syms14_0 scopes15_0 bulk16_0)"
+"(remove-matching-bindings.1)"
+"(lambda(except10_0 syms12_0 scopes13_0 bulk14_0)"
 "(begin"
-" 'remove-matching-bindings17"
-"(let-values(((syms_0) syms14_0))"
-"(let-values(((scopes_0) scopes15_0))"
-"(let-values(((bulk_0) bulk16_0))"
-"(let-values(((except_0) except12_0))"
+" 'remove-matching-bindings"
+"(let-values(((syms_0) syms12_0))"
+"(let-values(((scopes_0) scopes13_0))"
+"(let-values(((bulk_0) bulk14_0))"
+"(let-values(((except_0) except10_0))"
 "(let-values()"
 "(let-values(((bulk-symbols_0)(bulk-binding-symbols bulk_0 #f null)))"
 "(if(<(hash-count syms_0)(hash-count bulk-symbols_0))"
@@ -7009,20 +7004,20 @@ static const char *startup_source =
 " bulk-symbols_0"
 " sym_0"
 " #f)"
-"(let-values(((syms45_0) syms_2)"
-"((sym46_0) sym_0)"
-"((sym-bindings47_0)"
+"(let-values(((syms39_0) syms_2)"
+"((sym40_0) sym_0)"
+"((sym-bindings41_0)"
 " sym-bindings_0)"
-"((scopes48_0)"
+"((scopes42_0)"
 " scopes_0)"
-"((except49_0)"
+"((except43_0)"
 " except_0))"
-"(remove-matching-binding26.1"
-" except49_0"
-" syms45_0"
-" sym46_0"
-" sym-bindings47_0"
-" scopes48_0))"
+"(remove-matching-binding.1"
+" except43_0"
+" syms39_0"
+" sym40_0"
+" sym-bindings41_0"
+" scopes42_0))"
 " syms_2))))"
 "(values syms_3)))))"
 "(if(not #f)"
@@ -7056,20 +7051,20 @@ static const char *startup_source =
 " sym_0"
 " #f)))"
 "(if sym-bindings_0"
-"(let-values(((syms50_0) syms_2)"
-"((sym51_0) sym_0)"
-"((sym-bindings52_0)"
+"(let-values(((syms44_0) syms_2)"
+"((sym45_0) sym_0)"
+"((sym-bindings46_0)"
 " sym-bindings_0)"
-"((scopes53_0)"
+"((scopes47_0)"
 " scopes_0)"
-"((except54_0)"
+"((except48_0)"
 " except_0))"
-"(remove-matching-binding26.1"
-" except54_0"
-" syms50_0"
-" sym51_0"
-" sym-bindings52_0"
-" scopes53_0))"
+"(remove-matching-binding.1"
+" except48_0"
+" syms44_0"
+" sym45_0"
+" sym-bindings46_0"
+" scopes47_0))"
 " syms_2)))))"
 "(values syms_3)))))"
 "(if(not #f)"
@@ -7082,15 +7077,15 @@ static const char *startup_source =
 " syms_0"
 "(unsafe-immutable-hash-iterate-first ht_0)))))))))))))))"
 "(define-values"
-"(remove-matching-binding26.1)"
-"(lambda(except20_0 syms22_0 sym23_0 sym-bindings24_0 scopes25_0)"
+"(remove-matching-binding.1)"
+"(lambda(except16_0 syms18_0 sym19_0 sym-bindings20_0 scopes21_0)"
 "(begin"
-" 'remove-matching-binding26"
-"(let-values(((syms_0) syms22_0))"
-"(let-values(((sym_0) sym23_0))"
-"(let-values(((sym-bindings_0) sym-bindings24_0))"
-"(let-values(((scopes_0) scopes25_0))"
-"(let-values(((except_0) except20_0))"
+" 'remove-matching-binding"
+"(let-values(((syms_0) syms18_0))"
+"(let-values(((sym_0) sym19_0))"
+"(let-values(((sym-bindings_0) sym-bindings20_0))"
+"(let-values(((scopes_0) scopes21_0))"
+"(let-values(((except_0) except16_0))"
 "(let-values()"
 "(if(if except_0"
 "(let-values(((b_0)(hash-ref sym-bindings_0 scopes_0 #f)))"
@@ -7407,13 +7402,13 @@ static const char *startup_source =
 " bba_0))"
 "(if(bulk-binding-at?"
 " the-struct_0)"
-"(let-values(((scopes55_0)"
+"(let-values(((scopes49_0)"
 "(intern-scopes"
 "(bulk-binding-at-scopes"
 " bba_0)"
 " state_0)))"
 "(bulk-binding-at2.1"
-" scopes55_0"
+" scopes49_0"
 "(bulk-binding-at-bulk"
 " the-struct_0)))"
 "(raise-argument-error"
@@ -7836,7 +7831,7 @@ static const char *startup_source =
 "(let-values(((stx_0) sub-s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper5_0)"
+"(let-values(((scope-propagations+tamper3_0)"
 "(let-values(((t_0)"
 "(tamper-tainted-for-content(syntax-content sub-s_0)))"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
@@ -7845,7 +7840,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper5_0"
+" scope-propagations+tamper3_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -7956,7 +7951,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper6_0)"
+"(let-values(((scope-propagations+tamper4_0)"
 "(let-values(((t_1)(set-add(if t_0(remove-inferior t_0 insp_0)(seteq)) insp_0))"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_0) t_1((propagation-set-tamper-ref p_0) p_0 t_1)))))"
@@ -7964,7 +7959,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper6_0"
+" scope-propagations+tamper4_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -8008,10 +8003,10 @@ static const char *startup_source =
 "(unsafe-immutable-hash-iterate-first ht_0)))))))"
 "(define-values"
 "(syntax-disarm$1)"
-"(let-values(((syntax-disarm3_0)"
+"(let-values(((syntax-disarm_0)"
 "(lambda(s2_0 insp1_0)"
 "(begin"
-" 'syntax-disarm3"
+" 'syntax-disarm"
 "(let-values(((s_0) s2_0))"
 "(let-values(((insp_0) insp1_0))"
 "(let-values()"
@@ -8023,7 +8018,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper7_0)"
+"(let-values(((scope-propagations+tamper5_0)"
 "(let-values(((t_1) #f)"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_0)"
@@ -8033,7 +8028,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper7_0"
+" scope-propagations+tamper5_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -8044,7 +8039,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper8_0)"
+"(let-values(((scope-propagations+tamper6_0)"
 "(let-values(((t_1)(if(not(set-empty? new-t_0)) new-t_0 #f))"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_0)"
@@ -8054,15 +8049,15 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper8_0"
+" scope-propagations+tamper6_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
 "(syntax-inspector the-struct_0)))"
 "                                          (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'syntax-disarm(syntax-disarm3_0 s_0 #f)))"
-"((s_0 insp1_0)(syntax-disarm3_0 s_0 insp1_0)))))"
+"((s_0)(begin 'syntax-disarm(syntax-disarm_0 s_0 #f)))"
+"((s_0 insp1_0)(syntax-disarm_0 s_0 insp1_0)))))"
 "(define-values"
 "(syntax-rearm$1)"
 "(lambda(s_0 from-s_0)"
@@ -8080,7 +8075,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper9_0)"
+"(let-values(((scope-propagations+tamper7_0)"
 "(let-values(((t_1)(tamper-tainted-for-content(syntax-content s_0)))"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_0) t_1((propagation-set-tamper-ref p_0) p_0 t_1)))))"
@@ -8088,7 +8083,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper9_0"
+" scope-propagations+tamper7_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -8099,7 +8094,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper10_0)"
+"(let-values(((scope-propagations+tamper8_0)"
 "(let-values(((t_1) from-t_0)"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_0) t_1((propagation-set-tamper-ref p_0) p_0 t_1)))))"
@@ -8107,7 +8102,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper10_0"
+" scope-propagations+tamper8_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -8117,7 +8112,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper11_0)"
+"(let-values(((scope-propagations+tamper9_0)"
 "(let-values(((t_1)"
 "(let-values(((ht_0) from-t_0))"
 "(begin"
@@ -8172,7 +8167,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper11_0"
+" scope-propagations+tamper9_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -8188,7 +8183,7 @@ static const char *startup_source =
 "(let-values(((stx_0) s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper12_0)"
+"(let-values(((scope-propagations+tamper10_0)"
 "(let-values(((t_0)(tamper-tainted-for-content(syntax-content s_0)))"
 "((p_0)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_0) t_0((propagation-set-tamper-ref p_0) p_0 t_0)))))"
@@ -8196,7 +8191,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper12_0"
+" scope-propagations+tamper10_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -9002,16 +8997,16 @@ static const char *startup_source =
 "(begin(hash-set!(unsafe-place-local-ref cell.2$2) sym_0 new_0)(ephemeron-value new_0)))))))))))"
 "(define-values"
 "(new-multi-scope)"
-"(let-values(((new-multi-scope8_0)"
+"(let-values(((new-multi-scope_0)"
 "(lambda(name7_0)"
 "(begin"
-" 'new-multi-scope8"
+" 'new-multi-scope"
 "(let-values(((name_0) name7_0))"
 "(let-values()"
 "(intern-shifted-multi-scope"
 " 0"
 "(multi-scope3.1(new-scope-id!) name_0(box(hasheqv))(box(hasheqv))(box(hash))))))))))"
-"(case-lambda(()(begin(new-multi-scope8_0 #f)))((name7_0)(new-multi-scope8_0 name7_0)))))"
+"(case-lambda(()(begin(new-multi-scope_0 #f)))((name7_0)(new-multi-scope_0 name7_0)))))"
 "(define-values"
 "(multi-scope-to-scope-at-phase)"
 "(lambda(ms_0 phase_0)"
@@ -9065,23 +9060,23 @@ static const char *startup_source =
 "(if(propagation? prop_0)"
 "(let-values(((the-struct_0) sub-s_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scopes49_0)"
+"(let-values(((scopes41_0)"
 "(propagation-apply prop_0(syntax-scopes sub-s_0) s_0))"
-"((shifted-multi-scopes50_0)"
+"((shifted-multi-scopes42_0)"
 "(propagation-apply-shifted"
 " prop_0"
 "(syntax-shifted-multi-scopes sub-s_0)"
 " s_0))"
-"((mpi-shifts51_0)"
+"((mpi-shifts43_0)"
 "(propagation-apply-mpi-shifts"
 " prop_0"
 "(syntax-mpi-shifts sub-s_0)"
 " s_0))"
-"((inspector52_0)"
+"((inspector44_0)"
 "(propagation-apply-inspector"
 " prop_0"
 "(syntax-inspector sub-s_0)))"
-"((scope-propagations+tamper53_0)"
+"((scope-propagations+tamper45_0)"
 "(propagation-merge"
 "(syntax-content sub-s_0)"
 " prop_0"
@@ -9091,18 +9086,18 @@ static const char *startup_source =
 "(syntax-mpi-shifts sub-s_0))))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
-" scopes49_0"
-" shifted-multi-scopes50_0"
-" scope-propagations+tamper53_0"
-" mpi-shifts51_0"
+" scopes41_0"
+" shifted-multi-scopes42_0"
+" scope-propagations+tamper45_0"
+" mpi-shifts43_0"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
-" inspector52_0))"
+" inspector44_0))"
 "                                                (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
 "(let-values(((stx_0) sub-s_0))"
 "(let-values(((the-struct_0) stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((scope-propagations+tamper54_0)"
+"(let-values(((scope-propagations+tamper46_0)"
 "(let-values(((t_0)"
 "(tamper-tainted-for-content"
 "(syntax-content sub-s_0)))"
@@ -9115,7 +9110,7 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper54_0"
+" scope-propagations+tamper46_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
@@ -9220,6 +9215,157 @@ static const char *startup_source =
 "(if(shifted-multi-scope? sc_1)"
 "(let-values(((the-struct_0) s_1))"
 "(if(syntax?$1 the-struct_0)"
+"(let-values(((shifted-multi-scopes47_0)"
+"(fallback-update-first"
+"(syntax-shifted-multi-scopes s_1)"
+"(lambda(smss_0)(op_0(fallback-first smss_0) sc_1))))"
+"((scope-propagations+tamper48_0)"
+"(if(datum-has-elements?(syntax-content s_1))"
+"(prop-op_0"
+"(syntax-scope-propagations+tamper s_1)"
+" sc_1"
+"(syntax-scopes s_1)"
+"(syntax-shifted-multi-scopes s_1)"
+"(syntax-mpi-shifts s_1))"
+"(syntax-scope-propagations+tamper s_1))))"
+"(syntax1.1"
+"(syntax-content the-struct_0)"
+"(syntax-scopes the-struct_0)"
+" shifted-multi-scopes47_0"
+" scope-propagations+tamper48_0"
+"(syntax-mpi-shifts the-struct_0)"
+"(syntax-srcloc the-struct_0)"
+"(syntax-props the-struct_0)"
+"(syntax-inspector the-struct_0)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
+"(let-values(((the-struct_0) s_1))"
+"(if(syntax?$1 the-struct_0)"
+"(let-values(((scopes49_0)(op_0(syntax-scopes s_1) sc_1))"
+"((scope-propagations+tamper50_0)"
+"(if(datum-has-elements?(syntax-content s_1))"
+"(prop-op_0"
+"(syntax-scope-propagations+tamper s_1)"
+" sc_1"
+"(syntax-scopes s_1)"
+"(syntax-shifted-multi-scopes s_1)"
+"(syntax-mpi-shifts s_1))"
+"(syntax-scope-propagations+tamper s_1))))"
+"(syntax1.1"
+"(syntax-content the-struct_0)"
+" scopes49_0"
+"(syntax-shifted-multi-scopes the-struct_0)"
+" scope-propagations+tamper50_0"
+"(syntax-mpi-shifts the-struct_0)"
+"(syntax-srcloc the-struct_0)"
+"(syntax-props the-struct_0)"
+"(syntax-inspector the-struct_0)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))))"
+"(define-values"
+"(add-scopes)"
+"(lambda(s_0 scs_0)"
+"(begin"
+"(let-values(((lst_0) scs_0))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
+"((letrec-values(((for-loop_0)"
+"(lambda(s_1 lst_1)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_1)"
+"(let-values(((sc_0)(unsafe-car lst_1))((rest_0)(unsafe-cdr lst_1)))"
+"(let-values(((s_2)"
+"(let-values(((s_2) s_1))"
+"(let-values(((s_3)(let-values()(add-scope s_2 sc_0))))"
+"(values s_3)))))"
+"(if(not #f)(for-loop_0 s_2 rest_0) s_2)))"
+" s_1)))))"
+" for-loop_0)"
+" s_0"
+" lst_0))))))"
+"(define-values"
+"(remove-scope)"
+"(lambda(s_0 sc_0)"
+"(begin"
+"(let-values(((s_1) s_0)((sc_1)(generalize-scope sc_0))((op_0) set-remove)((prop-op_0) propagation-remove))"
+"(if(shifted-multi-scope? sc_1)"
+"(let-values(((the-struct_0) s_1))"
+"(if(syntax?$1 the-struct_0)"
+"(let-values(((shifted-multi-scopes51_0)"
+"(fallback-update-first"
+"(syntax-shifted-multi-scopes s_1)"
+"(lambda(smss_0)(op_0(fallback-first smss_0) sc_1))))"
+"((scope-propagations+tamper52_0)"
+"(if(datum-has-elements?(syntax-content s_1))"
+"(prop-op_0"
+"(syntax-scope-propagations+tamper s_1)"
+" sc_1"
+"(syntax-scopes s_1)"
+"(syntax-shifted-multi-scopes s_1)"
+"(syntax-mpi-shifts s_1))"
+"(syntax-scope-propagations+tamper s_1))))"
+"(syntax1.1"
+"(syntax-content the-struct_0)"
+"(syntax-scopes the-struct_0)"
+" shifted-multi-scopes51_0"
+" scope-propagations+tamper52_0"
+"(syntax-mpi-shifts the-struct_0)"
+"(syntax-srcloc the-struct_0)"
+"(syntax-props the-struct_0)"
+"(syntax-inspector the-struct_0)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
+"(let-values(((the-struct_0) s_1))"
+"(if(syntax?$1 the-struct_0)"
+"(let-values(((scopes53_0)(op_0(syntax-scopes s_1) sc_1))"
+"((scope-propagations+tamper54_0)"
+"(if(datum-has-elements?(syntax-content s_1))"
+"(prop-op_0"
+"(syntax-scope-propagations+tamper s_1)"
+" sc_1"
+"(syntax-scopes s_1)"
+"(syntax-shifted-multi-scopes s_1)"
+"(syntax-mpi-shifts s_1))"
+"(syntax-scope-propagations+tamper s_1))))"
+"(syntax1.1"
+"(syntax-content the-struct_0)"
+" scopes53_0"
+"(syntax-shifted-multi-scopes the-struct_0)"
+" scope-propagations+tamper54_0"
+"(syntax-mpi-shifts the-struct_0)"
+"(syntax-srcloc the-struct_0)"
+"(syntax-props the-struct_0)"
+"(syntax-inspector the-struct_0)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))))"
+"(define-values"
+"(remove-scopes)"
+"(lambda(s_0 scs_0)"
+"(begin"
+"(let-values(((lst_0) scs_0))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
+"((letrec-values(((for-loop_0)"
+"(lambda(s_1 lst_1)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_1)"
+"(let-values(((sc_0)(unsafe-car lst_1))((rest_0)(unsafe-cdr lst_1)))"
+"(let-values(((s_2)"
+"(let-values(((s_2) s_1))"
+"(let-values(((s_3)(let-values()(remove-scope s_2 sc_0))))"
+"(values s_3)))))"
+"(if(not #f)(for-loop_0 s_2 rest_0) s_2)))"
+" s_1)))))"
+" for-loop_0)"
+" s_0"
+" lst_0))))))"
+"(define-values(set-flip)(lambda(s_0 e_0)(begin(if(set-member? s_0 e_0)(set-remove s_0 e_0)(set-add s_0 e_0)))))"
+"(define-values"
+"(flip-scope)"
+"(lambda(s_0 sc_0)"
+"(begin"
+"(let-values(((s_1) s_0)((sc_1)(generalize-scope sc_0))((op_0) set-flip)((prop-op_0) propagation-flip))"
+"(if(shifted-multi-scope? sc_1)"
+"(let-values(((the-struct_0) s_1))"
+"(if(syntax?$1 the-struct_0)"
 "(let-values(((shifted-multi-scopes55_0)"
 "(fallback-update-first"
 "(syntax-shifted-multi-scopes s_1)"
@@ -9266,157 +9412,6 @@ static const char *startup_source =
 "(syntax-inspector the-struct_0)))"
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))))"
 "(define-values"
-"(add-scopes)"
-"(lambda(s_0 scs_0)"
-"(begin"
-"(let-values(((lst_0) scs_0))"
-"(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
-"((letrec-values(((for-loop_0)"
-"(lambda(s_1 lst_1)"
-"(begin"
-" 'for-loop"
-"(if(pair? lst_1)"
-"(let-values(((sc_0)(unsafe-car lst_1))((rest_0)(unsafe-cdr lst_1)))"
-"(let-values(((s_2)"
-"(let-values(((s_2) s_1))"
-"(let-values(((s_3)(let-values()(add-scope s_2 sc_0))))"
-"(values s_3)))))"
-"(if(not #f)(for-loop_0 s_2 rest_0) s_2)))"
-" s_1)))))"
-" for-loop_0)"
-" s_0"
-" lst_0))))))"
-"(define-values"
-"(remove-scope)"
-"(lambda(s_0 sc_0)"
-"(begin"
-"(let-values(((s_1) s_0)((sc_1)(generalize-scope sc_0))((op_0) set-remove)((prop-op_0) propagation-remove))"
-"(if(shifted-multi-scope? sc_1)"
-"(let-values(((the-struct_0) s_1))"
-"(if(syntax?$1 the-struct_0)"
-"(let-values(((shifted-multi-scopes59_0)"
-"(fallback-update-first"
-"(syntax-shifted-multi-scopes s_1)"
-"(lambda(smss_0)(op_0(fallback-first smss_0) sc_1))))"
-"((scope-propagations+tamper60_0)"
-"(if(datum-has-elements?(syntax-content s_1))"
-"(prop-op_0"
-"(syntax-scope-propagations+tamper s_1)"
-" sc_1"
-"(syntax-scopes s_1)"
-"(syntax-shifted-multi-scopes s_1)"
-"(syntax-mpi-shifts s_1))"
-"(syntax-scope-propagations+tamper s_1))))"
-"(syntax1.1"
-"(syntax-content the-struct_0)"
-"(syntax-scopes the-struct_0)"
-" shifted-multi-scopes59_0"
-" scope-propagations+tamper60_0"
-"(syntax-mpi-shifts the-struct_0)"
-"(syntax-srcloc the-struct_0)"
-"(syntax-props the-struct_0)"
-"(syntax-inspector the-struct_0)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
-"(let-values(((the-struct_0) s_1))"
-"(if(syntax?$1 the-struct_0)"
-"(let-values(((scopes61_0)(op_0(syntax-scopes s_1) sc_1))"
-"((scope-propagations+tamper62_0)"
-"(if(datum-has-elements?(syntax-content s_1))"
-"(prop-op_0"
-"(syntax-scope-propagations+tamper s_1)"
-" sc_1"
-"(syntax-scopes s_1)"
-"(syntax-shifted-multi-scopes s_1)"
-"(syntax-mpi-shifts s_1))"
-"(syntax-scope-propagations+tamper s_1))))"
-"(syntax1.1"
-"(syntax-content the-struct_0)"
-" scopes61_0"
-"(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper62_0"
-"(syntax-mpi-shifts the-struct_0)"
-"(syntax-srcloc the-struct_0)"
-"(syntax-props the-struct_0)"
-"(syntax-inspector the-struct_0)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))))"
-"(define-values"
-"(remove-scopes)"
-"(lambda(s_0 scs_0)"
-"(begin"
-"(let-values(((lst_0) scs_0))"
-"(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
-"((letrec-values(((for-loop_0)"
-"(lambda(s_1 lst_1)"
-"(begin"
-" 'for-loop"
-"(if(pair? lst_1)"
-"(let-values(((sc_0)(unsafe-car lst_1))((rest_0)(unsafe-cdr lst_1)))"
-"(let-values(((s_2)"
-"(let-values(((s_2) s_1))"
-"(let-values(((s_3)(let-values()(remove-scope s_2 sc_0))))"
-"(values s_3)))))"
-"(if(not #f)(for-loop_0 s_2 rest_0) s_2)))"
-" s_1)))))"
-" for-loop_0)"
-" s_0"
-" lst_0))))))"
-"(define-values(set-flip)(lambda(s_0 e_0)(begin(if(set-member? s_0 e_0)(set-remove s_0 e_0)(set-add s_0 e_0)))))"
-"(define-values"
-"(flip-scope)"
-"(lambda(s_0 sc_0)"
-"(begin"
-"(let-values(((s_1) s_0)((sc_1)(generalize-scope sc_0))((op_0) set-flip)((prop-op_0) propagation-flip))"
-"(if(shifted-multi-scope? sc_1)"
-"(let-values(((the-struct_0) s_1))"
-"(if(syntax?$1 the-struct_0)"
-"(let-values(((shifted-multi-scopes63_0)"
-"(fallback-update-first"
-"(syntax-shifted-multi-scopes s_1)"
-"(lambda(smss_0)(op_0(fallback-first smss_0) sc_1))))"
-"((scope-propagations+tamper64_0)"
-"(if(datum-has-elements?(syntax-content s_1))"
-"(prop-op_0"
-"(syntax-scope-propagations+tamper s_1)"
-" sc_1"
-"(syntax-scopes s_1)"
-"(syntax-shifted-multi-scopes s_1)"
-"(syntax-mpi-shifts s_1))"
-"(syntax-scope-propagations+tamper s_1))))"
-"(syntax1.1"
-"(syntax-content the-struct_0)"
-"(syntax-scopes the-struct_0)"
-" shifted-multi-scopes63_0"
-" scope-propagations+tamper64_0"
-"(syntax-mpi-shifts the-struct_0)"
-"(syntax-srcloc the-struct_0)"
-"(syntax-props the-struct_0)"
-"(syntax-inspector the-struct_0)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
-"(let-values(((the-struct_0) s_1))"
-"(if(syntax?$1 the-struct_0)"
-"(let-values(((scopes65_0)(op_0(syntax-scopes s_1) sc_1))"
-"((scope-propagations+tamper66_0)"
-"(if(datum-has-elements?(syntax-content s_1))"
-"(prop-op_0"
-"(syntax-scope-propagations+tamper s_1)"
-" sc_1"
-"(syntax-scopes s_1)"
-"(syntax-shifted-multi-scopes s_1)"
-"(syntax-mpi-shifts s_1))"
-"(syntax-scope-propagations+tamper s_1))))"
-"(syntax1.1"
-"(syntax-content the-struct_0)"
-" scopes65_0"
-"(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper66_0"
-"(syntax-mpi-shifts the-struct_0)"
-"(syntax-srcloc the-struct_0)"
-"(syntax-props the-struct_0)"
-"(syntax-inspector the-struct_0)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))))"
-"(define-values"
 "(flip-scopes)"
 "(lambda(s_0 scs_0)"
 "(begin"
@@ -9442,13 +9437,13 @@ static const char *startup_source =
 "(push-scope)"
 "(lambda(s_0 sms_0)"
 "(begin"
-"(let-values(((smss/maybe-fallbacks67_0) #f))"
+"(let-values(((smss/maybe-fallbacks59_0) #f))"
 "(let-values(((prev-result_0) #f))"
 "(let-values(((push_0)"
 "(lambda(smss/maybe-fallbacks_0)"
 "(begin"
 " 'push"
-"(if(eq? smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)"
+"(if(eq? smss/maybe-fallbacks59_0 smss/maybe-fallbacks_0)"
 "(let-values() prev-result_0)"
 "(let-values()"
 "(let-values(((r_0)"
@@ -9463,7 +9458,7 @@ static const char *startup_source =
 "(set-add smss_0 sms_0)"
 " smss/maybe-fallbacks_0))))))))"
 "(begin"
-"(set! smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)"
+"(set! smss/maybe-fallbacks59_0 smss/maybe-fallbacks_0)"
 "(set! prev-result_0 r_0)"
 " r_0))))))))"
 "(let-values(((s_1) s_0)"
@@ -9474,12 +9469,12 @@ static const char *startup_source =
 " 'd->s"
 "(let-values(((the-struct_0) s_1))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((content68_0) d_0)"
-"((shifted-multi-scopes69_0)(push_0(syntax-shifted-multi-scopes s_1))))"
+"(let-values(((content60_0) d_0)"
+"((shifted-multi-scopes61_0)(push_0(syntax-shifted-multi-scopes s_1))))"
 "(syntax1.1"
-" content68_0"
+" content60_0"
 "(syntax-scopes the-struct_0)"
-" shifted-multi-scopes69_0"
+" shifted-multi-scopes61_0"
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
@@ -9559,7 +9554,7 @@ static const char *startup_source =
 " s_1))))))))"
 "(define-values"
 "(struct:propagation"
-" propagation14.1"
+" propagation12.1"
 " propagation?"
 " propagation-prev-scs"
 " propagation-prev-smss"
@@ -9605,17 +9600,17 @@ static const char *startup_source =
 "(if(propagation? prop_0)"
 "(let-values(((the-struct_0) prop_0))"
 "(if(propagation? the-struct_0)"
-"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_0) sc_0 'add)))"
-"(propagation14.1"
+"(let-values(((scope-ops63_0)(hash-set(propagation-scope-ops prop_0) sc_0 'add)))"
+"(propagation12.1"
 "(propagation-prev-scs the-struct_0)"
 "(propagation-prev-smss the-struct_0)"
-" scope-ops71_0"
+" scope-ops63_0"
 "(propagation-prev-mss the-struct_0)"
 "(propagation-add-mpi-shifts the-struct_0)"
 "(propagation-inspector the-struct_0)"
 "(propagation-tamper the-struct_0)))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_0)))"
-"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_0 'add) prev-mss_0 #f #f prop_0)))))"
+"(propagation12.1 prev-scs_0 prev-smss_0(hasheq sc_0 'add) prev-mss_0 #f #f prop_0)))))"
 "(define-values"
 "(propagation-remove)"
 "(lambda(prop_0 sc_0 prev-scs_0 prev-smss_0 prev-mss_0)"
@@ -9623,17 +9618,17 @@ static const char *startup_source =
 "(if(propagation? prop_0)"
 "(let-values(((the-struct_0) prop_0))"
 "(if(propagation? the-struct_0)"
-"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_0) sc_0 'remove)))"
-"(propagation14.1"
+"(let-values(((scope-ops64_0)(hash-set(propagation-scope-ops prop_0) sc_0 'remove)))"
+"(propagation12.1"
 "(propagation-prev-scs the-struct_0)"
 "(propagation-prev-smss the-struct_0)"
-" scope-ops72_0"
+" scope-ops64_0"
 "(propagation-prev-mss the-struct_0)"
 "(propagation-add-mpi-shifts the-struct_0)"
 "(propagation-inspector the-struct_0)"
 "(propagation-tamper the-struct_0)))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_0)))"
-"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_0 'remove) prev-mss_0 #f #f prop_0)))))"
+"(propagation12.1 prev-scs_0 prev-smss_0(hasheq sc_0 'remove) prev-mss_0 #f #f prop_0)))))"
 "(define-values"
 "(propagation-flip)"
 "(lambda(prop_0 sc_0 prev-scs_0 prev-smss_0 prev-mss_0)"
@@ -9650,7 +9645,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((the-struct_0) prop_0))"
 "(if(propagation? the-struct_0)"
-"(let-values(((scope-ops73_0)"
+"(let-values(((scope-ops65_0)"
 "(if(eq? current-op_0 'flip)"
 "(hash-remove ops_0 sc_0)"
 "(hash-set"
@@ -9660,16 +9655,16 @@ static const char *startup_source =
 "(if(equal? tmp_0 'add)"
 "(let-values() 'remove)"
 "(if(equal? tmp_0 'remove)(let-values() 'add)(let-values() 'flip))))))))"
-"(propagation14.1"
+"(propagation12.1"
 "(propagation-prev-scs the-struct_0)"
 "(propagation-prev-smss the-struct_0)"
-" scope-ops73_0"
+" scope-ops65_0"
 "(propagation-prev-mss the-struct_0)"
 "(propagation-add-mpi-shifts the-struct_0)"
 "(propagation-inspector the-struct_0)"
 "(propagation-tamper the-struct_0)))"
 "                    (raise-argument-error 'struct-copy \"propagation?\" the-struct_0)))))))"
-"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_0 'flip) prev-mss_0 #f #f prop_0)))))"
+"(propagation12.1 prev-scs_0 prev-smss_0(hasheq sc_0 'flip) prev-mss_0 #f #f prop_0)))))"
 "(define-values"
 "(propagation-mpi-shift)"
 "(lambda(prop_0 add_0 inspector_0 prev-scs_0 prev-smss_0 prev-mss_0)"
@@ -9677,24 +9672,24 @@ static const char *startup_source =
 "(if(propagation? prop_0)"
 "(let-values(((the-struct_0) prop_0))"
 "(if(propagation? the-struct_0)"
-"(let-values(((add-mpi-shifts74_0)"
+"(let-values(((add-mpi-shifts66_0)"
 "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_0)))"
 "(if(if add_0 base-add_0 #f)"
-"(lambda(mss_0)(begin 'add-mpi-shifts74(add_0(base-add_0 mss_0))))"
+"(lambda(mss_0)(begin 'add-mpi-shifts66(add_0(base-add_0 mss_0))))"
 "(let-values(((or-part_0) add_0))(if or-part_0 or-part_0 base-add_0)))))"
-"((inspector75_0)"
+"((inspector67_0)"
 "(let-values(((or-part_0)(propagation-inspector prop_0)))"
 "(if or-part_0 or-part_0 inspector_0))))"
-"(propagation14.1"
+"(propagation12.1"
 "(propagation-prev-scs the-struct_0)"
 "(propagation-prev-smss the-struct_0)"
 "(propagation-scope-ops the-struct_0)"
 "(propagation-prev-mss the-struct_0)"
-" add-mpi-shifts74_0"
-" inspector75_0"
+" add-mpi-shifts66_0"
+" inspector67_0"
 "(propagation-tamper the-struct_0)))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_0)))"
-"(propagation14.1 prev-scs_0 prev-smss_0 '#hasheq() prev-mss_0 add_0 inspector_0 prop_0)))))"
+"(propagation12.1 prev-scs_0 prev-smss_0 '#hasheq() prev-mss_0 add_0 inspector_0 prop_0)))))"
 "(define-values"
 "(propagation-apply)"
 "(lambda(prop_0 scs_0 parent-s_0)"
@@ -9828,15 +9823,15 @@ static const char *startup_source =
 "(if(propagation? prop_0)"
 "(let-values(((the-struct_0) prop_0))"
 "(if(propagation? the-struct_0)"
-"(let-values(((tamper76_0) t_0))"
-"(propagation14.1"
+"(let-values(((tamper68_0) t_0))"
+"(propagation12.1"
 "(propagation-prev-scs the-struct_0)"
 "(propagation-prev-smss the-struct_0)"
 "(propagation-scope-ops the-struct_0)"
 "(propagation-prev-mss the-struct_0)"
 "(propagation-add-mpi-shifts the-struct_0)"
 "(propagation-inspector the-struct_0)"
-" tamper76_0))"
+" tamper68_0))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_0)))"
 " t_0))))"
 "(define-values"
@@ -9854,7 +9849,7 @@ static const char *startup_source =
 " #f)"
 "(let-values() prop_0)"
 "(let-values()"
-"(propagation14.1"
+"(propagation12.1"
 " prev-scs_0"
 " prev-smss_0"
 "(propagation-scope-ops prop_0)"
@@ -9956,23 +9951,23 @@ static const char *startup_source =
 " new-tamper_0"
 "(let-values(((the-struct_0) base-prop_0))"
 "(if(propagation? the-struct_0)"
-"(let-values(((scope-ops77_0) new-ops_0)"
-"((add-mpi-shifts78_0)"
+"(let-values(((scope-ops69_0) new-ops_0)"
+"((add-mpi-shifts70_0)"
 "(if(if add_0 base-add_0 #f)"
-"(lambda(mss_0)(begin 'add-mpi-shifts78(add_0(base-add_0 mss_0))))"
+"(lambda(mss_0)(begin 'add-mpi-shifts70(add_0(base-add_0 mss_0))))"
 "(let-values(((or-part_0) add_0))(if or-part_0 or-part_0 base-add_0))))"
-"((inspector79_0)"
+"((inspector71_0)"
 "(let-values(((or-part_0)(propagation-inspector base-prop_0)))"
 "(if or-part_0 or-part_0(propagation-inspector prop_0))))"
-"((tamper80_0) new-tamper_0))"
-"(propagation14.1"
+"((tamper72_0) new-tamper_0))"
+"(propagation12.1"
 "(propagation-prev-scs the-struct_0)"
 "(propagation-prev-smss the-struct_0)"
-" scope-ops77_0"
+" scope-ops69_0"
 "(propagation-prev-mss the-struct_0)"
-" add-mpi-shifts78_0"
-" inspector79_0"
-" tamper80_0))"
+" add-mpi-shifts70_0"
+" inspector71_0"
+" tamper72_0))"
 "                          (raise-argument-error 'struct-copy \"propagation?\" the-struct_0))))))))))))))"
 "(define-values"
 "(shift-multi-scope)"
@@ -10002,13 +9997,13 @@ static const char *startup_source =
 "(if(eqv? phase_0 0)"
 " s_0"
 "(let-values()"
-"(let-values(((smss81_0) #f))"
+"(let-values(((smss73_0) #f))"
 "(let-values(((prev-result_0) #f))"
 "(let-values(((shift-all_0)"
 "(lambda(smss_0)"
 "(begin"
 " 'shift-all"
-"(if(eq? smss81_0 smss_0)"
+"(if(eq? smss73_0 smss_0)"
 "(let-values() prev-result_0)"
 "(let-values()"
 "(let-values(((r_0)"
@@ -10078,7 +10073,7 @@ static const char *startup_source =
 " for-loop_0)"
 " '#hasheq()"
 "(unsafe-immutable-hash-iterate-first ht_0)))))))))"
-"(begin(set! smss81_0 smss_0)(set! prev-result_0 r_0) r_0))))))))"
+"(begin(set! smss73_0 smss_0)(set! prev-result_0 r_0) r_0))))))))"
 "(let-values(((s_1) s_0)"
 "((f_0)(lambda(tail?_0 d_0)(begin 'f d_0)))"
 "((d->s_0)"
@@ -10087,13 +10082,13 @@ static const char *startup_source =
 " 'd->s"
 "(let-values(((the-struct_0) s_1))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((content82_0) d_0)"
-"((shifted-multi-scopes83_0)"
+"(let-values(((content74_0) d_0)"
+"((shifted-multi-scopes75_0)"
 "(shift-all_0(syntax-shifted-multi-scopes s_1))))"
 "(syntax1.1"
-" content82_0"
+" content74_0"
 "(syntax-scopes the-struct_0)"
-" shifted-multi-scopes83_0"
+" shifted-multi-scopes75_0"
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
@@ -10263,13 +10258,13 @@ static const char *startup_source =
 " shifted-multi-scope?"
 "(seteq)"
 "(seteq))))"
-"(let-values(((scs84_0) #f))"
+"(let-values(((scs76_0) #f))"
 "(let-values(((prev-result_0) #f))"
 "(let-values(((swap-scs_0)"
 "(lambda(scs_0)"
 "(begin"
 " 'swap-scs"
-"(if(eq? scs84_0 scs_0)"
+"(if(eq? scs76_0 scs_0)"
 "(let-values() prev-result_0)"
 "(let-values()"
 "(let-values(((r_0)"
@@ -10277,14 +10272,14 @@ static const char *startup_source =
 "(if(subset? src-scs_0 scs_0)"
 "(set-union(set-subtract scs_0 src-scs_0) dest-scs_0)"
 " scs_0))))"
-"(begin(set! scs84_0 scs_0)(set! prev-result_0 r_0) r_0))))))))"
-"(let-values(((smss85_0) #f))"
+"(begin(set! scs76_0 scs_0)(set! prev-result_0 r_0) r_0))))))))"
+"(let-values(((smss77_0) #f))"
 "(let-values(((prev-result_1) #f))"
 "(let-values(((swap-smss_0)"
 "(lambda(smss_0)"
 "(begin"
 " 'swap-smss"
-"(if(eq? smss85_0 smss_0)"
+"(if(eq? smss77_0 smss_0)"
 "(let-values() prev-result_1)"
 "(let-values()"
 "(let-values(((r_0)"
@@ -10295,7 +10290,7 @@ static const char *startup_source =
 "(if(subset? src-smss_0 smss_1)"
 "(set-union(set-subtract smss_1 src-smss_0) dest-smss_0)"
 " smss_1))))))"
-"(begin(set! smss85_0 smss_0)(set! prev-result_1 r_0) r_0))))))))"
+"(begin(set! smss77_0 smss_0)(set! prev-result_1 r_0) r_0))))))))"
 "(let-values(((s_1) s_0)"
 "((f_0)(lambda(tail?_0 d_0)(begin 'f d_0)))"
 "((d->s_0)"
@@ -10304,14 +10299,14 @@ static const char *startup_source =
 " 'd->s"
 "(let-values(((the-struct_0) s_1))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((content86_0) d_0)"
-"((scopes87_0)(swap-scs_0(syntax-scopes s_1)))"
-"((shifted-multi-scopes88_0)"
+"(let-values(((content78_0) d_0)"
+"((scopes79_0)(swap-scs_0(syntax-scopes s_1)))"
+"((shifted-multi-scopes80_0)"
 "(swap-smss_0(syntax-shifted-multi-scopes s_1))))"
 "(syntax1.1"
-" content86_0"
-" scopes87_0"
-" shifted-multi-scopes88_0"
+" content78_0"
+" scopes79_0"
+" shifted-multi-scopes80_0"
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
@@ -10472,14 +10467,14 @@ static const char *startup_source =
 "(set-first scopes_0)"
 "(unsafe-immutable-hash-iterate-first ht_0))))))))"
 "(define-values"
-"(add-binding-in-scopes!20.1)"
-"(lambda(just-for-nominal?15_0 scopes17_0 sym18_0 binding19_0)"
+"(add-binding-in-scopes!.1)"
+"(lambda(just-for-nominal?13_0 scopes15_0 sym16_0 binding17_0)"
 "(begin"
-" 'add-binding-in-scopes!20"
-"(let-values(((scopes_0) scopes17_0))"
-"(let-values(((sym_0) sym18_0))"
-"(let-values(((binding_0) binding19_0))"
-"(let-values(((just-for-nominal?_0) just-for-nominal?15_0))"
+" 'add-binding-in-scopes!"
+"(let-values(((scopes_0) scopes15_0))"
+"(let-values(((sym_0) sym16_0))"
+"(let-values(((binding_0) binding17_0))"
+"(let-values(((just-for-nominal?_0) just-for-nominal?13_0))"
 "(let-values()"
 "(let-values(((max-sc_0)(find-max-scope scopes_0)))"
 "(let-values(((bt_0)"
@@ -10491,21 +10486,21 @@ static const char *startup_source =
 " just-for-nominal?_0)))"
 "(begin(set-scope-binding-table! max-sc_0 bt_0)(clear-resolve-cache! sym_0))))))))))))"
 "(define-values"
-"(add-bulk-binding-in-scopes!27.1)"
-"(lambda(shadow-except23_0 scopes25_0 bulk-binding26_0)"
+"(add-bulk-binding-in-scopes!.1)"
+"(lambda(shadow-except19_0 scopes21_0 bulk-binding22_0)"
 "(begin"
-" 'add-bulk-binding-in-scopes!27"
-"(let-values(((scopes_0) scopes25_0))"
-"(let-values(((bulk-binding_0) bulk-binding26_0))"
-"(let-values(((shadow-except_0) shadow-except23_0))"
+" 'add-bulk-binding-in-scopes!"
+"(let-values(((scopes_0) scopes21_0))"
+"(let-values(((bulk-binding_0) bulk-binding22_0))"
+"(let-values(((shadow-except_0) shadow-except19_0))"
 "(let-values()"
 "(let-values(((max-sc_0)(find-max-scope scopes_0)))"
 "(let-values(((bt_0)"
-"(let-values(((temp89_0)(scope-binding-table max-sc_0))"
-"((scopes90_0) scopes_0)"
-"((bulk-binding91_0) bulk-binding_0)"
-"((shadow-except92_0) shadow-except_0))"
-"(binding-table-add-bulk9.1 shadow-except92_0 temp89_0 scopes90_0 bulk-binding91_0))))"
+"(let-values(((temp81_0)(scope-binding-table max-sc_0))"
+"((scopes82_0) scopes_0)"
+"((bulk-binding83_0) bulk-binding_0)"
+"((shadow-except84_0) shadow-except_0))"
+"(binding-table-add-bulk.1 shadow-except84_0 temp81_0 scopes82_0 bulk-binding83_0))))"
 "(begin(set-scope-binding-table! max-sc_0 bt_0)(clear-resolve-cache!)))))))))))"
 "(define-values"
 "(syntax-any-macro-scopes?)"
@@ -10536,16 +10531,16 @@ static const char *startup_source =
 " #f"
 "(unsafe-immutable-hash-iterate-first ht_0)))))))"
 "(define-values"
-"(resolve40.1)"
-"(lambda(ambiguous-value30_0 exactly?31_0 extra-shifts33_0 get-scopes?32_0 s38_0 phase39_0)"
+"(resolve.1)"
+"(lambda(ambiguous-value24_0 exactly?25_0 extra-shifts27_0 get-scopes?26_0 s32_0 phase33_0)"
 "(begin"
-" 'resolve40"
-"(let-values(((s_0) s38_0))"
-"(let-values(((phase_0) phase39_0))"
-"(let-values(((ambiguous-value_0) ambiguous-value30_0))"
-"(let-values(((exactly?_0) exactly?31_0))"
-"(let-values(((get-scopes?_0) get-scopes?32_0))"
-"(let-values(((extra-shifts_0) extra-shifts33_0))"
+" 'resolve"
+"(let-values(((s_0) s32_0))"
+"(let-values(((phase_0) phase33_0))"
+"(let-values(((ambiguous-value_0) ambiguous-value24_0))"
+"(let-values(((exactly?_0) exactly?25_0))"
+"(let-values(((get-scopes?_0) get-scopes?26_0))"
+"(let-values(((extra-shifts_0) extra-shifts27_0))"
 "(let-values()"
 "(let-values(((sym_0)(syntax-content s_0)))"
 "((letrec-values(((fallback-loop_0)"
@@ -10914,10 +10909,10 @@ static const char *startup_source =
 "(deserialize-full-local-binding)"
 "(lambda(key_0 free=id_0)(begin(full-local-binding1.1 #f free=id_0 key_0))))"
 "(define-values"
-"(make-local-binding7.1)"
+"(make-local-binding.1)"
 "(lambda(frame-id2_0 free=id3_0 key6_0)"
 "(begin"
-" 'make-local-binding7"
+" 'make-local-binding"
 "(let-values(((key_0) key6_0))"
 "(let-values(((frame-id_0) frame-id2_0))"
 "(let-values(((free=id_0) free=id3_0))"
@@ -10926,17 +10921,17 @@ static const char *startup_source =
 "(let-values() key_0)"
 "(let-values()(full-local-binding1.1 frame-id_0 free=id_0 key_0))))))))))"
 "(define-values"
-"(local-binding-update17.1)"
-"(lambda(frame-id11_0 free=id12_0 key10_0 b16_0)"
+"(local-binding-update.1)"
+"(lambda(frame-id9_0 free=id10_0 key8_0 b14_0)"
 "(begin"
-" 'local-binding-update17"
-"(let-values(((b_0) b16_0))"
-"(let-values(((key_0)(if(eq? key10_0 unsafe-undefined)(local-binding-key b_0) key10_0)))"
-"(let-values(((frame-id_0)(if(eq? frame-id11_0 unsafe-undefined)(binding-frame-id b_0) frame-id11_0)))"
-"(let-values(((free=id_0)(if(eq? free=id12_0 unsafe-undefined)(binding-free=id b_0) free=id12_0)))"
+" 'local-binding-update"
+"(let-values(((b_0) b14_0))"
+"(let-values(((key_0)(if(eq? key8_0 unsafe-undefined)(local-binding-key b_0) key8_0)))"
+"(let-values(((frame-id_0)(if(eq? frame-id9_0 unsafe-undefined)(binding-frame-id b_0) frame-id9_0)))"
+"(let-values(((free=id_0)(if(eq? free=id10_0 unsafe-undefined)(binding-free=id b_0) free=id10_0)))"
 "(let-values()"
-"(let-values(((key21_0) key_0)((frame-id22_0) frame-id_0)((free=id23_0) free=id_0))"
-"(make-local-binding7.1 frame-id22_0 free=id23_0 key21_0))))))))))"
+"(let-values(((key17_0) key_0)((frame-id18_0) frame-id_0)((free=id19_0) free=id_0))"
+"(make-local-binding.1 frame-id18_0 free=id19_0 key17_0))))))))))"
 "(define-values"
 "(local-binding-key)"
 "(lambda(b_0)(begin(if(full-local-binding? b_0)(full-local-binding-key b_0) b_0))))"
@@ -11045,12 +11040,12 @@ static const char *startup_source =
 " 'free-identifier=?"
 "(let-values(((ab_0)"
 "(toplevel-as-symbol"
-"(let-values(((a51_0) a_0)((a-phase52_0) a-phase_0)((temp53_0) #t))"
-"(resolve+shift28.1 #f #f null unsafe-undefined temp53_0 a51_0 a-phase52_0)))))"
+"(let-values(((a39_0) a_0)((a-phase40_0) a-phase_0)((temp41_0) #t))"
+"(resolve+shift.1 #f #f null unsafe-undefined temp41_0 a39_0 a-phase40_0)))))"
 "(let-values(((bb_0)"
 "(toplevel-as-symbol"
-"(let-values(((b54_0) b_0)((b-phase55_0) b-phase_0)((temp56_0) #t))"
-"(resolve+shift28.1 #f #f null unsafe-undefined temp56_0 b54_0 b-phase55_0)))))"
+"(let-values(((b42_0) b_0)((b-phase43_0) b-phase_0)((temp44_0) #t))"
+"(resolve+shift.1 #f #f null unsafe-undefined temp44_0 b42_0 b-phase43_0)))))"
 "(if(let-values(((or-part_0)(symbol? ab_0)))(if or-part_0 or-part_0(symbol? bb_0)))"
 "(let-values()(eq? ab_0 bb_0))"
 "(let-values()(same-binding? ab_0 bb_0))))))))"
@@ -11096,8 +11091,8 @@ static const char *startup_source =
 "(begin"
 " 'identifier-binding-symbol"
 "(let-values(((b_0)"
-"(let-values(((id57_0) id_0)((phase58_0) phase_0)((temp59_0) #t))"
-"(resolve+shift28.1 #f #f null unsafe-undefined temp59_0 id57_0 phase58_0))))"
+"(let-values(((id45_0) id_0)((phase46_0) phase_0)((temp47_0) #t))"
+"(resolve+shift.1 #f #f null unsafe-undefined temp47_0 id45_0 phase46_0))))"
 "(if(symbol? b_0)"
 "(let-values() b_0)"
 "(if(module-binding? b_0)"
@@ -11105,17 +11100,17 @@ static const char *startup_source =
 "(if(local-binding? b_0)(let-values()(local-binding-key b_0))(let-values()(syntax-e$1 id_0)))))))))"
 "(define-values"
 "(identifier-binding$1)"
-"(let-values(((identifier-binding4_0)"
+"(let-values(((identifier-binding_0)"
 "(lambda(id2_0 phase3_0 top-level-symbol?1_0)"
 "(begin"
-" 'identifier-binding4"
+" 'identifier-binding"
 "(let-values(((id_0) id2_0))"
 "(let-values(((phase_0) phase3_0))"
 "(let-values(((top-level-symbol?_0) top-level-symbol?1_0))"
 "(let-values()"
 "(let-values(((b_0)"
-"(let-values(((id60_0) id_0)((phase61_0) phase_0))"
-"(resolve+shift28.1 #f #f null unsafe-undefined #f id60_0 phase61_0))))"
+"(let-values(((id48_0) id_0)((phase49_0) phase_0))"
+"(resolve+shift.1 #f #f null unsafe-undefined #f id48_0 phase49_0))))"
 "(if(module-binding? b_0)"
 "(let-values()"
 "(if(top-level-module-path-index?(module-binding-module b_0))"
@@ -11130,8 +11125,8 @@ static const char *startup_source =
 "(module-binding-nominal-phase b_0))))"
 "(if(local-binding? b_0)(let-values() 'lexical)(let-values() #f))))))))))))"
 "(case-lambda"
-"((id_0 phase_0)(begin 'identifier-binding(identifier-binding4_0 id_0 phase_0 #f)))"
-"((id_0 phase_0 top-level-symbol?1_0)(identifier-binding4_0 id_0 phase_0 top-level-symbol?1_0)))))"
+"((id_0 phase_0)(begin 'identifier-binding(identifier-binding_0 id_0 phase_0 #f)))"
+"((id_0 phase_0 top-level-symbol?1_0)(identifier-binding_0 id_0 phase_0 top-level-symbol?1_0)))))"
 "(define-values"
 "(maybe-install-free=id!)"
 "(lambda(val_0 id_0 phase_0)"
@@ -11143,12 +11138,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((b_0)"
-"(let-values(((id65_0) id_0)((phase66_0) phase_0)((temp67_0) #t)((temp68_0) #t))"
-"(resolve+shift28.1 #f temp67_0 null temp68_0 #f id65_0 phase66_0))))"
-"(let-values(((temp62_0)(syntax-scope-set id_0 phase_0))"
-"((temp63_0)(syntax-e$1 id_0))"
-"((temp64_0)(binding-set-free=id b_0 free=id_0)))"
-"(add-binding-in-scopes!20.1 #f temp62_0 temp63_0 temp64_0)))))))"
+"(let-values(((id53_0) id_0)((phase54_0) phase_0)((temp55_0) #t)((temp56_0) #t))"
+"(resolve+shift.1 #f temp55_0 null temp56_0 #f id53_0 phase54_0))))"
+"(let-values(((temp50_0)(syntax-scope-set id_0 phase_0))"
+"((temp51_0)(syntax-e$1 id_0))"
+"((temp52_0)(binding-set-free=id b_0 free=id_0)))"
+"(add-binding-in-scopes!.1 #f temp50_0 temp51_0 temp52_0)))))))"
 "(void)))))"
 "(define-values"
 "(binding-set-free=id)"
@@ -11156,12 +11151,12 @@ static const char *startup_source =
 "(begin"
 "(if(module-binding? b_0)"
 "(let-values()"
-"(let-values(((b69_0) b_0)((free=id70_0) free=id_0))"
-"(module-binding-update46.1"
+"(let-values(((b57_0) b_0)((free=id58_0) free=id_0))"
+"(module-binding-update.1"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" free=id70_0"
+" free=id58_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -11169,14 +11164,14 @@ static const char *startup_source =
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" b69_0)))"
+" b57_0)))"
 "(if(local-binding? b_0)"
 "(let-values()"
-"(let-values(((b71_0) b_0)((free=id72_0) free=id_0))"
-"(local-binding-update17.1 unsafe-undefined free=id72_0 unsafe-undefined b71_0)))"
+"(let-values(((b59_0) b_0)((free=id60_0) free=id_0))"
+"(local-binding-update.1 unsafe-undefined free=id60_0 unsafe-undefined b59_0)))"
 "          (let-values () (error \"bad binding for free=id:\" b_0)))))))"
 "(define-values"
-"(struct:non-source-shift non-source-shift6.1 non-source-shift? non-source-shift-from non-source-shift-to)"
+"(struct:non-source-shift non-source-shift4.1 non-source-shift? non-source-shift-from non-source-shift-to)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -11190,30 +11185,30 @@ static const char *startup_source =
 "(define-values(shift-from)(lambda(s_0)(begin(if(pair? s_0)(car s_0)(non-source-shift-from s_0)))))"
 "(define-values(shift-to)(lambda(s_0)(begin(if(pair? s_0)(cdr s_0)(non-source-shift-to s_0)))))"
 "(define-values"
-"(syntax-module-path-index-shift13.1)"
-"(lambda(non-source?7_0 s10_0 from-mpi11_0 to-mpi12_0 inspector9_0)"
+"(syntax-module-path-index-shift.1)"
+"(lambda(non-source?5_0 s8_0 from-mpi9_0 to-mpi10_0 inspector7_0)"
 "(begin"
-" 'syntax-module-path-index-shift13"
-"(let-values(((s_0) s10_0))"
-"(let-values(((from-mpi_0) from-mpi11_0))"
-"(let-values(((to-mpi_0) to-mpi12_0))"
-"(let-values(((inspector_0) inspector9_0))"
-"(let-values(((non-source?_0) non-source?7_0))"
+" 'syntax-module-path-index-shift"
+"(let-values(((s_0) s8_0))"
+"(let-values(((from-mpi_0) from-mpi9_0))"
+"(let-values(((to-mpi_0) to-mpi10_0))"
+"(let-values(((inspector_0) inspector7_0))"
+"(let-values(((non-source?_0) non-source?5_0))"
 "(let-values()"
 "(if(eq? from-mpi_0 to-mpi_0)"
 "(let-values()(if inspector_0(syntax-set-inspector s_0 inspector_0) s_0))"
 "(let-values()"
 "(let-values(((shift_0)"
 "(if non-source?_0"
-"(non-source-shift6.1 from-mpi_0 to-mpi_0)"
+"(non-source-shift4.1 from-mpi_0 to-mpi_0)"
 "(cons from-mpi_0 to-mpi_0))))"
 "(let-values(((the-struct_0) s_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((mpi-shifts74_0)(shift-cons shift_0(syntax-mpi-shifts s_0)))"
-"((inspector75_0)"
+"(let-values(((mpi-shifts62_0)(shift-cons shift_0(syntax-mpi-shifts s_0)))"
+"((inspector63_0)"
 "(let-values(((or-part_0)(syntax-inspector s_0)))"
 "(if or-part_0 or-part_0 inspector_0)))"
-"((scope-propagations+tamper76_0)"
+"((scope-propagations+tamper64_0)"
 "(if(datum-has-elements?(syntax-content s_0))"
 "(propagation-mpi-shift"
 "(syntax-scope-propagations+tamper s_0)"
@@ -11227,11 +11222,11 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper76_0"
-" mpi-shifts74_0"
+" scope-propagations+tamper64_0"
+" mpi-shifts62_0"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
-" inspector75_0))"
+" inspector63_0))"
 "                            (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))))))))))))))"
 "(define-values"
 "(shift-cons)"
@@ -11241,17 +11236,17 @@ static const char *startup_source =
 "(let-values() shifts_0)"
 "(let-values()(cons shift_0 shifts_0))))))"
 "(define-values"
-"(resolve+shift28.1)"
-"(lambda(ambiguous-value16_0 exactly?17_0 extra-shifts20_0 immediate?18_0 unbound-sym?19_0 s26_0 phase27_0)"
+"(resolve+shift.1)"
+"(lambda(ambiguous-value12_0 exactly?13_0 extra-shifts16_0 immediate?14_0 unbound-sym?15_0 s22_0 phase23_0)"
 "(begin"
-" 'resolve+shift28"
-"(let-values(((s_0) s26_0))"
-"(let-values(((phase_0) phase27_0))"
-"(let-values(((ambiguous-value_0) ambiguous-value16_0))"
-"(let-values(((exactly?_0) exactly?17_0))"
-"(let-values(((immediate?_0)(if(eq? immediate?18_0 unsafe-undefined) exactly?_0 immediate?18_0)))"
-"(let-values(((unbound-sym?_0) unbound-sym?19_0))"
-"(let-values(((extra-shifts_0) extra-shifts20_0))"
+" 'resolve+shift"
+"(let-values(((s_0) s22_0))"
+"(let-values(((phase_0) phase23_0))"
+"(let-values(((ambiguous-value_0) ambiguous-value12_0))"
+"(let-values(((exactly?_0) exactly?13_0))"
+"(let-values(((immediate?_0)(if(eq? immediate?14_0 unsafe-undefined) exactly?_0 immediate?14_0)))"
+"(let-values(((unbound-sym?_0) unbound-sym?15_0))"
+"(let-values(((extra-shifts_0) extra-shifts16_0))"
 "(let-values()"
 "(let-values(((can-cache?_0)"
 "(if(not exactly?_0)(if(not immediate?_0)(null? extra-shifts_0) #f) #f)))"
@@ -11260,37 +11255,37 @@ static const char *startup_source =
 "((lambda(b_0)(if(eq? b_0 '#:none)(if unbound-sym?_0(syntax-content s_0) #f) b_0)) c1_0)"
 "(let-values()"
 "(let-values(((immediate-b_0)"
-"(let-values(((s77_0) s_0)"
-"((phase78_0) phase_0)"
-"((ambiguous-value79_0) ambiguous-value_0)"
-"((exactly?80_0) exactly?_0)"
-"((extra-shifts81_0) extra-shifts_0))"
-"(resolve40.1"
-" ambiguous-value79_0"
-" exactly?80_0"
-" extra-shifts81_0"
+"(let-values(((s65_0) s_0)"
+"((phase66_0) phase_0)"
+"((ambiguous-value67_0) ambiguous-value_0)"
+"((exactly?68_0) exactly?_0)"
+"((extra-shifts69_0) extra-shifts_0))"
+"(resolve.1"
+" ambiguous-value67_0"
+" exactly?68_0"
+" extra-shifts69_0"
 " #f"
-" s77_0"
-" phase78_0))))"
+" s65_0"
+" phase66_0))))"
 "(let-values(((b_0)"
 "(if(if immediate-b_0"
 "(if(not immediate?_0)(binding-free=id immediate-b_0) #f)"
 " #f)"
-"(let-values(((temp82_0)(binding-free=id immediate-b_0))"
-"((phase83_0) phase_0)"
-"((temp84_0)"
+"(let-values(((temp70_0)(binding-free=id immediate-b_0))"
+"((phase71_0) phase_0)"
+"((temp72_0)"
 "(append extra-shifts_0(syntax-mpi-shifts s_0)))"
-"((ambiguous-value85_0) ambiguous-value_0)"
-"((exactly?86_0) exactly?_0)"
-"((unbound-sym?87_0) unbound-sym?_0))"
-"(resolve+shift28.1"
-" ambiguous-value85_0"
-" exactly?86_0"
-" temp84_0"
+"((ambiguous-value73_0) ambiguous-value_0)"
+"((exactly?74_0) exactly?_0)"
+"((unbound-sym?75_0) unbound-sym?_0))"
+"(resolve+shift.1"
+" ambiguous-value73_0"
+" exactly?74_0"
+" temp72_0"
 " unsafe-undefined"
-" unbound-sym?87_0"
-" temp82_0"
-" phase83_0))"
+" unbound-sym?75_0"
+" temp70_0"
+" phase71_0))"
 " immediate-b_0)))"
 "(if(module-binding? b_0)"
 "(let-values()"
@@ -11316,22 +11311,22 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " b_0"
-"(let-values(((b88_0) b_0)"
-"((shifted-mod89_0) shifted-mod_0)"
-"((shifted-nominal-mod90_0)"
+"(let-values(((b76_0) b_0)"
+"((shifted-mod77_0) shifted-mod_0)"
+"((shifted-nominal-mod78_0)"
 " shifted-nominal-mod_0)"
-"((temp91_0)"
+"((temp79_0)"
 "(if(binding-free=id b_0)"
-"(let-values(((temp93_0)"
+"(let-values(((temp81_0)"
 "(binding-free=id b_0))"
-"((s94_0) s_0))"
-"(syntax-transfer-shifts36.1"
+"((s82_0) s_0))"
+"(syntax-transfer-shifts.1"
 " #f"
-" temp93_0"
-" s94_0"
+" temp81_0"
+" s82_0"
 " #f))"
 " #f))"
-"((temp92_0)"
+"((temp80_0)"
 "(reverse$1"
 "(let-values(((lst_0)"
 "(module-binding-extra-nominal-bindings"
@@ -11378,19 +11373,19 @@ static const char *startup_source =
 " for-loop_0)"
 " null"
 " lst_0))))))"
-"(module-binding-update46.1"
+"(module-binding-update.1"
 " unsafe-undefined"
-" temp92_0"
+" temp80_0"
 " unsafe-undefined"
-" temp91_0"
-" shifted-mod89_0"
-" shifted-nominal-mod90_0"
+" temp79_0"
+" shifted-mod77_0"
+" shifted-nominal-mod78_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" b88_0)))))"
+" b76_0)))))"
 "(begin"
 "(if can-cache?_0"
 "(let-values()"
@@ -11436,10 +11431,10 @@ static const char *startup_source =
 "(begin"
 "(if(module-binding? b_0)"
 "(let-values()"
-"(let-values(((b95_0) b_0)"
-"((temp96_0)(module-path-index-shift(module-binding-module b_0) from-mpi_0 to-mpi_0))"
-"((temp97_0)(module-path-index-shift(module-binding-nominal-module b_0) from-mpi_0 to-mpi_0))"
-"((temp98_0)"
+"(let-values(((b83_0) b_0)"
+"((temp84_0)(module-path-index-shift(module-binding-module b_0) from-mpi_0 to-mpi_0))"
+"((temp85_0)(module-path-index-shift(module-binding-nominal-module b_0) from-mpi_0 to-mpi_0))"
+"((temp86_0)"
 "(reverse$1"
 "(let-values(((lst_0)(module-binding-extra-nominal-bindings b_0)))"
 "(begin"
@@ -11470,45 +11465,45 @@ static const char *startup_source =
 " for-loop_0)"
 " null"
 " lst_0))))))"
-"(module-binding-update46.1"
+"(module-binding-update.1"
 " unsafe-undefined"
-" temp98_0"
+" temp86_0"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp96_0"
-" temp97_0"
+" temp84_0"
+" temp85_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" b95_0)))"
+" b83_0)))"
 "(let-values() b_0)))))"
 "(define-values"
-"(syntax-transfer-shifts36.1)"
-"(lambda(non-source?31_0 to-s34_0 from-s35_0 inspector33_0)"
+"(syntax-transfer-shifts.1)"
+"(lambda(non-source?25_0 to-s28_0 from-s29_0 inspector27_0)"
 "(begin"
-" 'syntax-transfer-shifts36"
+" 'syntax-transfer-shifts"
+"(let-values(((to-s_0) to-s28_0))"
+"(let-values(((from-s_0) from-s29_0))"
+"(let-values(((inspector_0) inspector27_0))"
+"(let-values(((non-source?_0) non-source?25_0))"
+"(let-values()"
+"(let-values(((to-s87_0) to-s_0)"
+"((temp88_0)(syntax-mpi-shifts from-s_0))"
+"((inspector89_0) inspector_0)"
+"((non-source?90_0) non-source?_0))"
+"(syntax-add-shifts.1 non-source?90_0 to-s87_0 temp88_0 inspector89_0))))))))))"
+"(define-values"
+"(syntax-add-shifts.1)"
+"(lambda(non-source?31_0 to-s34_0 shifts35_0 inspector33_0)"
+"(begin"
+" 'syntax-add-shifts"
 "(let-values(((to-s_0) to-s34_0))"
-"(let-values(((from-s_0) from-s35_0))"
+"(let-values(((shifts_0) shifts35_0))"
 "(let-values(((inspector_0) inspector33_0))"
 "(let-values(((non-source?_0) non-source?31_0))"
 "(let-values()"
-"(let-values(((to-s99_0) to-s_0)"
-"((temp100_0)(syntax-mpi-shifts from-s_0))"
-"((inspector101_0) inspector_0)"
-"((non-source?102_0) non-source?_0))"
-"(syntax-add-shifts44.1 non-source?102_0 to-s99_0 temp100_0 inspector101_0))))))))))"
-"(define-values"
-"(syntax-add-shifts44.1)"
-"(lambda(non-source?39_0 to-s42_0 shifts43_0 inspector41_0)"
-"(begin"
-" 'syntax-add-shifts44"
-"(let-values(((to-s_0) to-s42_0))"
-"(let-values(((shifts_0) shifts43_0))"
-"(let-values(((inspector_0) inspector41_0))"
-"(let-values(((non-source?_0) non-source?39_0))"
-"(let-values()"
 "(if(if(null? shifts_0) inspector_0 #f)"
 "(let-values()(syntax-set-inspector to-s_0 inspector_0))"
 "(let-values()"
@@ -11532,23 +11527,23 @@ static const char *startup_source =
 "(let-values(((s_1) s_0))"
 "(let-values(((s_2)"
 "(let-values()"
-"(let-values(((s103_0) s_1)"
-"((temp104_0)"
+"(let-values(((s91_0) s_1)"
+"((temp92_0)"
 "(shift-from shift_0))"
-"((temp105_0)"
+"((temp93_0)"
 "(shift-to shift_0))"
-"((temp106_0)"
+"((temp94_0)"
 "(if(zero? i_0)"
 " inspector_0"
 " #f))"
-"((non-source?107_0)"
+"((non-source?95_0)"
 " non-source?_0))"
-"(syntax-module-path-index-shift13.1"
-" non-source?107_0"
-" s103_0"
-" temp104_0"
-" temp105_0"
-" temp106_0)))))"
+"(syntax-module-path-index-shift.1"
+" non-source?95_0"
+" s91_0"
+" temp92_0"
+" temp93_0"
+" temp94_0)))))"
 "(values s_2)))))"
 "(if(not #f)(for-loop_0 s_1 rest_0(+ pos_0 1)) s_1)))"
 " s_0)))))"
@@ -11562,9 +11557,9 @@ static const char *startup_source =
 "(begin"
 "(let-values(((the-struct_0) s_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((inspector108_0)"
+"(let-values(((inspector96_0)"
 "(let-values(((or-part_0)(syntax-inspector s_0)))(if or-part_0 or-part_0 insp_0)))"
-"((scope-propagations+tamper109_0)"
+"((scope-propagations+tamper97_0)"
 "(if(datum-has-elements?(syntax-content s_0))"
 "(propagation-mpi-shift"
 "(syntax-scope-propagations+tamper s_0)"
@@ -11578,20 +11573,20 @@ static const char *startup_source =
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
-" scope-propagations+tamper109_0"
+" scope-propagations+tamper97_0"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
-" inspector108_0))"
+" inspector96_0))"
 "          (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))"
 "(define-values"
 "(1/syntax-source-module)"
-"(let-values(((syntax-source-module49_0)"
-"(lambda(s48_0 source?47_0)"
+"(let-values(((syntax-source-module_0)"
+"(lambda(s38_0 source?37_0)"
 "(begin"
-" 'syntax-source-module49"
-"(let-values(((s_0) s48_0))"
-"(let-values(((source?_0) source?47_0))"
+" 'syntax-source-module"
+"(let-values(((s_0) s38_0))"
+"(let-values(((source?_0) source?37_0))"
 "(let-values()"
 "(begin"
 "(if(syntax?$1 s_0)"
@@ -11649,8 +11644,8 @@ static const char *startup_source =
 " #f"
 " lst_0)))))))))))"
 "(case-lambda"
-"((s_0)(begin 'syntax-source-module(syntax-source-module49_0 s_0 #f)))"
-"((s_0 source?47_0)(syntax-source-module49_0 s_0 source?47_0)))))"
+"((s_0)(begin 'syntax-source-module(syntax-source-module_0 s_0 #f)))"
+"((s_0 source?37_0)(syntax-source-module_0 s_0 source?37_0)))))"
 "(define-values"
 "(1/identifier-prune-to-source-module)"
 "(lambda(id_0)"
@@ -11662,13 +11657,13 @@ static const char *startup_source =
 "          (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_0)))"
 "(let-values(((the-struct_0)(datum->syntax$1 #f(syntax-e$1 id_0) id_0 id_0)))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((mpi-shifts110_0)(syntax-mpi-shifts id_0)))"
+"(let-values(((mpi-shifts98_0)(syntax-mpi-shifts id_0)))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
 "(syntax-scope-propagations+tamper the-struct_0)"
-" mpi-shifts110_0"
+" mpi-shifts98_0"
 "(syntax-srcloc the-struct_0)"
 "(syntax-props the-struct_0)"
 "(syntax-inspector the-struct_0)))"
@@ -11713,10 +11708,10 @@ static const char *startup_source =
 "(deserialize-provided)"
 "(lambda(binding_0 protected?_0 syntax?_0)(begin(provided1.1 binding_0 protected?_0 syntax?_0))))"
 "(define-values"
-"(provide-binding-to-require-binding11.1)"
+"(provide-binding-to-require-binding.1)"
 "(lambda(mpi2_0 phase-shift4_0 provide-phase-level3_0 self1_0 binding/p9_0 sym10_0)"
 "(begin"
-" 'provide-binding-to-require-binding11"
+" 'provide-binding-to-require-binding"
 "(let-values(((binding/p_0) binding/p9_0))"
 "(let-values(((sym_0) sym10_0))"
 "(let-values(((self_0) self1_0))"
@@ -11726,34 +11721,34 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((binding_0)(provided-as-binding binding/p_0)))"
 "(let-values(((from-mod_0)(module-binding-module binding_0)))"
-"(let-values(((binding17_0) binding_0)"
-"((temp18_0)(module-path-index-shift from-mod_0 self_0 mpi_0))"
-"((mpi19_0) mpi_0)"
-"((provide-phase-level20_0) provide-phase-level_0)"
-"((sym21_0) sym_0)"
-"((phase-shift22_0) phase-shift_0)"
-"((temp23_0) #f)"
-"((temp24_0)"
+"(let-values(((binding15_0) binding_0)"
+"((temp16_0)(module-path-index-shift from-mod_0 self_0 mpi_0))"
+"((mpi17_0) mpi_0)"
+"((provide-phase-level18_0) provide-phase-level_0)"
+"((sym19_0) sym_0)"
+"((phase-shift20_0) phase-shift_0)"
+"((temp21_0) #f)"
+"((temp22_0)"
 "(if(not(provided-as-protected? binding/p_0))"
 "(module-binding-extra-inspector binding_0)"
 " #f))"
-"((null25_0) null))"
-"(module-binding-update46.1"
-" temp24_0"
-" null25_0"
-" temp23_0"
+"((null23_0) null))"
+"(module-binding-update.1"
+" temp22_0"
+" null23_0"
+" temp21_0"
 " unsafe-undefined"
-" temp18_0"
-" mpi19_0"
-" provide-phase-level20_0"
-" phase-shift22_0"
-" sym21_0"
+" temp16_0"
+" mpi17_0"
+" provide-phase-level18_0"
+" phase-shift20_0"
+" sym19_0"
 " unsafe-undefined"
 " unsafe-undefined"
-" binding17_0))))))))))))))"
+" binding15_0))))))))))))))"
 "(define-values"
 "(struct:bulk-binding"
-" bulk-binding14.1"
+" bulk-binding12.1"
 " bulk-binding?"
 " bulk-binding-provides"
 " bulk-binding-prefix"
@@ -11843,25 +11838,25 @@ static const char *startup_source =
 "(set-bulk-binding-provides! b_0 adjusted-provides_0)"
 " adjusted-provides_0))))))))))))))"
 "(lambda(b_0 binding_0 sym_0)"
-"(let-values(((binding27_0) binding_0)"
-"((temp28_0)"
+"(let-values(((binding25_0) binding_0)"
+"((temp26_0)"
 "(if(bulk-binding-prefix b_0)"
 "(string->symbol"
 "(substring"
 "(symbol->string sym_0)"
 "(string-length(symbol->string(bulk-binding-prefix b_0)))))"
 " sym_0))"
-"((temp29_0)(bulk-binding-self b_0))"
-"((temp30_0)(bulk-binding-mpi b_0))"
-"((temp31_0)(bulk-binding-provide-phase-level b_0))"
-"((temp32_0)(bulk-binding-phase-shift b_0)))"
-"(provide-binding-to-require-binding11.1"
+"((temp27_0)(bulk-binding-self b_0))"
+"((temp28_0)(bulk-binding-mpi b_0))"
+"((temp29_0)(bulk-binding-provide-phase-level b_0))"
+"((temp30_0)(bulk-binding-phase-shift b_0)))"
+"(provide-binding-to-require-binding.1"
+" temp28_0"
 " temp30_0"
-" temp32_0"
-" temp31_0"
 " temp29_0"
-" binding27_0"
-" temp28_0))))))"
+" temp27_0"
+" binding25_0"
+" temp26_0))))))"
 "(current-inspector)"
 " #f"
 " '(1 2 4 5 6 7)"
@@ -11885,7 +11880,7 @@ static const char *startup_source =
 "(deserialize-bulk-binding)"
 "(lambda(prefix_0 excepts_0 mpi_0 provide-phase-level_0 phase-shift_0 bulk-binding-registry_0)"
 "(begin"
-"(bulk-binding14.1 #f prefix_0 excepts_0 #f mpi_0 provide-phase-level_0 phase-shift_0 bulk-binding-registry_0))))"
+"(bulk-binding12.1 #f prefix_0 excepts_0 #f mpi_0 provide-phase-level_0 phase-shift_0 bulk-binding-registry_0))))"
 "(define-values"
 "(bulk-provides-add-prefix-remove-exceptions)"
 "(lambda(provides_0 prefix_0 excepts_0)"
@@ -11928,7 +11923,7 @@ static const char *startup_source =
 " '#hash()"
 "(hash-iterate-first ht_0)))))))"
 "(define-values"
-"(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)"
+"(struct:bulk-provide bulk-provide13.1 bulk-provide? bulk-provide-self bulk-provide-provides)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -11940,7 +11935,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 0 'self)"
 "(make-struct-field-accessor -ref_0 1 'provides))))"
 "(define-values"
-"(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)"
+"(struct:bulk-binding-registry bulk-binding-registry14.1 bulk-binding-registry? bulk-binding-registry-table)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -11957,7 +11952,7 @@ static const char *startup_source =
 " #f"
 " 'bulk-binding-registry)))))"
 "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'table))))"
-"(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))"
+"(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry14.1(make-hasheq)))))"
 "(define-values"
 "(register-bulk-provide!)"
 "(lambda(bulk-binding-registry_0 mod-name_0 self_0 provides_0)"
@@ -11965,7 +11960,7 @@ static const char *startup_source =
 "(hash-set!"
 "(bulk-binding-registry-table bulk-binding-registry_0)"
 " mod-name_0"
-"(bulk-provide15.1 self_0 provides_0)))))"
+"(bulk-provide13.1 self_0 provides_0)))))"
 "(define-values"
 "(registered-bulk-provide?)"
 "(lambda(bulk-binding-registry_0 mod-name_0)"
@@ -12093,10 +12088,10 @@ static const char *startup_source =
 "(root-expand-context-lift-key)"
 "(lambda(v_0)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_0)))))"
 "(define-values"
-"(make-root-expand-context13.1)"
+"(make-root-expand-context.1)"
 "(lambda(all-scopes-stx7_0 initial-scopes4_0 outside-scope5_0 post-expansion-scope6_0 self-mpi3_0)"
 "(begin"
-" 'make-root-expand-context13"
+" 'make-root-expand-context"
 "(let-values(((self-mpi_0) self-mpi3_0))"
 "(let-values(((initial-scopes_0) initial-scopes4_0))"
 "(let-values(((outside-scope_0)"
@@ -12130,8 +12125,8 @@ static const char *startup_source =
 "(let-values()(push-scope s_0 pe_0))"
 "(if(pair? pe_0)"
 "(let-values()"
-"(let-values(((temp18_0)(push-scope s_0(car pe_0)))((temp19_0)(cdr pe_0)))"
-"(syntax-add-shifts44.1 #f temp18_0 temp19_0 #f)))"
+"(let-values(((temp16_0)(push-scope s_0(car pe_0)))((temp17_0)(cdr pe_0)))"
+"(syntax-add-shifts.1 #f temp16_0 temp17_0 #f)))"
 "(let-values()(pe_0 s_0))))))))"
 "(define-values"
 "(post-expansion-scope)"
@@ -12151,10 +12146,10 @@ static const char *startup_source =
 "(vector"
 "(add-scopes empty-syntax(root-expand-context-module-scopes ctx_0))"
 "(apply-post-expansion(root-expand-context-post-expansion ctx_0) empty-syntax)"
-"(let-values(((temp20_0)(root-expand-context-all-scopes-stx ctx_0))"
-"((orig-self21_0) orig-self_0)"
-"((new-self22_0) new-self_0))"
-"(syntax-module-path-index-shift13.1 #f temp20_0 orig-self21_0 new-self22_0 #f))"
+"(let-values(((temp18_0)(root-expand-context-all-scopes-stx ctx_0))"
+"((orig-self19_0) orig-self_0)"
+"((new-self20_0) new-self_0))"
+"(syntax-module-path-index-shift.1 #f temp18_0 orig-self19_0 new-self20_0 #f))"
 "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))"
 "(let-values(((ht_0)(root-expand-context-defined-syms ctx_0)))"
 "(begin"
@@ -12565,22 +12560,22 @@ static const char *startup_source =
 " ?_0"
 "(make-struct-field-accessor -ref_0 0 'variables)"
 "(make-struct-field-accessor -ref_0 1 'transformers))))"
-"(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace8.1 #t unsafe-undefined #f)))))"
+"(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace.1 #t unsafe-undefined #f)))))"
 "(define-values"
-"(new-namespace8.1)"
+"(new-namespace.1)"
 "(lambda(register?4_0 root-expand-ctx3_0 share-from-ns7_0)"
 "(begin"
-" 'new-namespace8"
+" 'new-namespace"
 "(let-values(((share-from-ns_0) share-from-ns7_0))"
 "(let-values(((root-expand-ctx_0)"
 "(if(eq? root-expand-ctx3_0 unsafe-undefined)"
-"(let-values(((top-level-module-path-index20_0) top-level-module-path-index))"
-"(make-root-expand-context13.1"
+"(let-values(((top-level-module-path-index16_0) top-level-module-path-index))"
+"(make-root-expand-context.1"
 " #f"
 " null"
 " unsafe-undefined"
 " unsafe-undefined"
-" top-level-module-path-index20_0))"
+" top-level-module-path-index16_0))"
 " root-expand-ctx3_0)))"
 "(let-values(((register?_0) register?4_0))"
 "(let-values()"
@@ -12656,22 +12651,22 @@ static const char *startup_source =
 "(let-values(((p-ns_0)"
 "(let-values(((the-struct_0) ns_0))"
 "(if(1/namespace? the-struct_0)"
-"(let-values(((phase21_0) phase_0)"
-"((root-namespace22_0)"
+"(let-values(((phase17_0) phase_0)"
+"((root-namespace18_0)"
 "(let-values(((or-part_1)(namespace-root-namespace ns_0)))"
 "(if or-part_1 or-part_1 ns_0))))"
 "(namespace1.1"
 "(namespace-mpi the-struct_0)"
 "(namespace-source-name the-struct_0)"
 "(namespace-root-expand-ctx the-struct_0)"
-" phase21_0"
+" phase17_0"
 "(namespace-0-phase the-struct_0)"
 "(namespace-phase-to-namespace the-struct_0)"
 "(namespace-phase-level-to-definitions the-struct_0)"
 "(namespace-module-registry$1 the-struct_0)"
 "(namespace-bulk-binding-registry the-struct_0)"
 "(namespace-submodule-declarations the-struct_0)"
-" root-namespace22_0"
+" root-namespace18_0"
 "(namespace-declaration-inspector the-struct_0)"
 "(namespace-inspector the-struct_0)"
 "(namespace-available-module-instances the-struct_0)"
@@ -12706,15 +12701,15 @@ static const char *startup_source =
 "(begin(small-hash-set!(namespace-phase-level-to-definitions ns_0) phase-level_0 d_1) d_1))))))))))"
 "(define-values"
 "(namespace-set-variable!)"
-"(let-values(((namespace-set-variable!16_0)"
-"(lambda(ns12_0 phase-level13_0 name14_0 val15_0 as-constant?11_0)"
+"(let-values(((namespace-set-variable!_0)"
+"(lambda(ns10_0 phase-level11_0 name12_0 val13_0 as-constant?9_0)"
 "(begin"
-" 'namespace-set-variable!16"
-"(let-values(((ns_0) ns12_0))"
-"(let-values(((phase-level_0) phase-level13_0))"
-"(let-values(((name_0) name14_0))"
-"(let-values(((val_0) val15_0))"
-"(let-values(((as-constant?_0) as-constant?11_0))"
+" 'namespace-set-variable!"
+"(let-values(((ns_0) ns10_0))"
+"(let-values(((phase-level_0) phase-level11_0))"
+"(let-values(((name_0) name12_0))"
+"(let-values(((val_0) val13_0))"
+"(let-values(((as-constant?_0) as-constant?9_0))"
 "(let-values()"
 "(let-values(((d_0)(namespace->definitions ns_0 phase-level_0)))"
 "(1/instance-set-variable-value!"
@@ -12723,9 +12718,9 @@ static const char *startup_source =
 " val_0"
 "(if as-constant?_0 'constant #f)))))))))))))"
 "(case-lambda"
-"((ns_0 phase-level_0 name_0 val_0)(begin(namespace-set-variable!16_0 ns_0 phase-level_0 name_0 val_0 #f)))"
-"((ns_0 phase-level_0 name_0 val_0 as-constant?11_0)"
-"(namespace-set-variable!16_0 ns_0 phase-level_0 name_0 val_0 as-constant?11_0)))))"
+"((ns_0 phase-level_0 name_0 val_0)(begin(namespace-set-variable!_0 ns_0 phase-level_0 name_0 val_0 #f)))"
+"((ns_0 phase-level_0 name_0 val_0 as-constant?9_0)"
+"(namespace-set-variable!_0 ns_0 phase-level_0 name_0 val_0 as-constant?9_0)))))"
 "(define-values"
 "(namespace-set-consistent!)"
 "(lambda(ns_0 phase-level_0 name_0 val_0)"
@@ -12794,10 +12789,10 @@ static const char *startup_source =
 "(define-values(missing$1)(gensym))"
 "(define-values"
 "(syntax-track-origin$1)"
-"(let-values(((syntax-track-origin4_0)"
+"(let-values(((syntax-track-origin_0)"
 "(lambda(new-stx2_0 old-stx3_0 id1_0)"
 "(begin"
-" 'syntax-track-origin4"
+" 'syntax-track-origin"
 "(let-values(((new-stx_0) new-stx2_0))"
 "(let-values(((old-stx_0) old-stx3_0))"
 "(let-values(((id_0)"
@@ -12832,7 +12827,7 @@ static const char *startup_source =
 "(cons id_0 old-origin_0))))"
 "(let-values(((the-struct_0) new-stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((props6_0)(hash-set old-props_0 'origin origin_0)))"
+"(let-values(((props4_0)(hash-set old-props_0 'origin origin_0)))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
@@ -12840,13 +12835,13 @@ static const char *startup_source =
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
-" props6_0"
+" props4_0"
 "(syntax-inspector the-struct_0)))"
 "                                                    (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))"
 "(let-values()"
 "(let-values(((the-struct_0) new-stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((props7_0) old-props_0))"
+"(let-values(((props5_0) old-props_0))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
@@ -12854,7 +12849,7 @@ static const char *startup_source =
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
-" props7_0"
+" props5_0"
 "(syntax-inspector the-struct_0)))"
 "                                                (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))"
 "(let-values()"
@@ -12969,7 +12964,7 @@ static const char *startup_source =
 "(unsafe-immutable-hash-iterate-first ht_0))))))))"
 "(let-values(((the-struct_0) new-stx_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((props8_0) updated-props_0))"
+"(let-values(((props6_0) updated-props_0))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
@@ -12977,15 +12972,15 @@ static const char *startup_source =
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
-" props8_0"
+" props6_0"
 "(syntax-inspector the-struct_0)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"syntax?\""
 " the-struct_0)))))))))))))))))))"
 "(case-lambda"
-"((new-stx_0 old-stx_0)(begin 'syntax-track-origin(syntax-track-origin4_0 new-stx_0 old-stx_0 unsafe-undefined)))"
-"((new-stx_0 old-stx_0 id1_0)(syntax-track-origin4_0 new-stx_0 old-stx_0 id1_0)))))"
+"((new-stx_0 old-stx_0)(begin 'syntax-track-origin(syntax-track-origin_0 new-stx_0 old-stx_0 unsafe-undefined)))"
+"((new-stx_0 old-stx_0 id1_0)(syntax-track-origin_0 new-stx_0 old-stx_0 id1_0)))))"
 "(define-values"
 "(cons/preserve)"
 "(lambda(a_0 b_0)"
@@ -13078,7 +13073,7 @@ static const char *startup_source =
 "((nominal-phase11_0) nominal-phase_0)"
 "((nominal-sym12_0) nominal-sym_0)"
 "((nominal-require-phase13_0) nominal-require-phase_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " inspector9_0"
 " null"
 " #f"
@@ -13122,7 +13117,7 @@ static const char *startup_source =
 "((temp15_0)(bind-sym bind_0))"
 "((temp16_0)"
 "(bind-binding bind_0)))"
-"(add-binding-in-scopes!20.1"
+"(add-binding-in-scopes!.1"
 " #f"
 " temp14_0"
 " temp15_0"
@@ -13181,10 +13176,10 @@ static const char *startup_source =
 "(values struct:_0 make-_0 ?_0)))"
 "(define-values"
 "(raise-syntax-error$1)"
-"(let-values(((raise-syntax-error7_0)"
+"(let-values(((raise-syntax-error_0)"
 "(lambda(given-name5_0 message6_0 expr1_0 sub-expr2_0 extra-sources3_0 message-suffix4_0)"
 "(begin"
-" 'raise-syntax-error7"
+" 'raise-syntax-error"
 "(let-values(((given-name_0) given-name5_0))"
 "(let-values(((message_0) message6_0))"
 "(let-values(((expr_0) expr1_0))"
@@ -13204,26 +13199,26 @@ static const char *startup_source =
 " extra-sources_0"
 " message-suffix_0))))))))))))))"
 "(case-lambda"
-"     ((given-name_0 message_0) (begin 'raise-syntax-error (raise-syntax-error7_0 given-name_0 message_0 #f #f null \"\")))"
+"     ((given-name_0 message_0) (begin 'raise-syntax-error (raise-syntax-error_0 given-name_0 message_0 #f #f null \"\")))"
 "((given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix4_0)"
-"(raise-syntax-error7_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix4_0))"
+"(raise-syntax-error_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix4_0))"
 "((given-name_0 message_0 expr_0 sub-expr_0 extra-sources3_0)"
-"      (raise-syntax-error7_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources3_0 \"\"))"
+"      (raise-syntax-error_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources3_0 \"\"))"
 "((given-name_0 message_0 expr_0 sub-expr2_0)"
-"      (raise-syntax-error7_0 given-name_0 message_0 expr_0 sub-expr2_0 null \"\"))"
-"     ((given-name_0 message_0 expr1_0) (raise-syntax-error7_0 given-name_0 message_0 expr1_0 #f null \"\")))))"
+"      (raise-syntax-error_0 given-name_0 message_0 expr_0 sub-expr2_0 null \"\"))"
+"     ((given-name_0 message_0 expr1_0) (raise-syntax-error_0 given-name_0 message_0 expr1_0 #f null \"\")))))"
 "(define-values"
 "(raise-unbound-syntax-error)"
-"(let-values(((raise-unbound-syntax-error15_0)"
-"(lambda(given-name13_0 message14_0 expr9_0 sub-expr10_0 extra-sources11_0 message-suffix12_0)"
+"(let-values(((raise-unbound-syntax-error_0)"
+"(lambda(given-name11_0 message12_0 expr7_0 sub-expr8_0 extra-sources9_0 message-suffix10_0)"
 "(begin"
-" 'raise-unbound-syntax-error15"
-"(let-values(((given-name_0) given-name13_0))"
-"(let-values(((message_0) message14_0))"
-"(let-values(((expr_0) expr9_0))"
-"(let-values(((sub-expr_0) sub-expr10_0))"
-"(let-values(((extra-sources_0) extra-sources11_0))"
-"(let-values(((message-suffix_0) message-suffix12_0))"
+" 'raise-unbound-syntax-error"
+"(let-values(((given-name_0) given-name11_0))"
+"(let-values(((message_0) message12_0))"
+"(let-values(((expr_0) expr7_0))"
+"(let-values(((sub-expr_0) sub-expr8_0))"
+"(let-values(((extra-sources_0) extra-sources9_0))"
+"(let-values(((message-suffix_0) message-suffix10_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -13237,14 +13232,14 @@ static const char *startup_source =
 " extra-sources_0"
 " message-suffix_0))))))))))))))"
 "(case-lambda"
-"     ((given-name_0 message_0) (begin (raise-unbound-syntax-error15_0 given-name_0 message_0 #f #f null \"\")))"
-"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix12_0)"
-"(raise-unbound-syntax-error15_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix12_0))"
-"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources11_0)"
-"      (raise-unbound-syntax-error15_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources11_0 \"\"))"
-"((given-name_0 message_0 expr_0 sub-expr10_0)"
-"      (raise-unbound-syntax-error15_0 given-name_0 message_0 expr_0 sub-expr10_0 null \"\"))"
-"     ((given-name_0 message_0 expr9_0) (raise-unbound-syntax-error15_0 given-name_0 message_0 expr9_0 #f null \"\")))))"
+"     ((given-name_0 message_0) (begin (raise-unbound-syntax-error_0 given-name_0 message_0 #f #f null \"\")))"
+"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix10_0)"
+"(raise-unbound-syntax-error_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix10_0))"
+"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources9_0)"
+"      (raise-unbound-syntax-error_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources9_0 \"\"))"
+"((given-name_0 message_0 expr_0 sub-expr8_0)"
+"      (raise-unbound-syntax-error_0 given-name_0 message_0 expr_0 sub-expr8_0 null \"\"))"
+"     ((given-name_0 message_0 expr7_0) (raise-unbound-syntax-error_0 given-name_0 message_0 expr7_0 #f null \"\")))))"
 "(define-values"
 "(do-raise-syntax-error)"
 "(lambda(who_0 exn:fail:syntax_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix_0)"
@@ -13545,7 +13540,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 4 'extra-inspector)"
 "(make-struct-field-accessor -ref_0 5 'extra-inspectorsss))))"
 "(define-values"
-"(make-module39.1)"
+"(make-module.1)"
 "(lambda(cross-phase-persistent?16_0"
 " force-bulk-binding-callback10_0"
 " get-all-variables20_0"
@@ -13565,7 +13560,7 @@ static const char *startup_source =
 " submodule-names18_0"
 " supermodule-name19_0)"
 "(begin"
-" 'make-module39"
+" 'make-module"
 "(let-values(((source-name_0) source-name3_0))"
 "(let-values(((self_0) self4_0))"
 "(let-values(((requires_0) requires5_0))"
@@ -13624,7 +13619,7 @@ static const char *startup_source =
 " get-all-variables_0)))))))))))))))))))))))"
 "(define-values"
 "(struct:module-instance"
-" module-instance42.1"
+" module-instance40.1"
 " module-instance?"
 " module-instance-namespace"
 " module-instance-module"
@@ -13667,53 +13662,53 @@ static const char *startup_source =
 "(make-struct-field-mutator -set!_0 5 'attached?))))"
 "(define-values"
 "(make-module-instance)"
-"(lambda(m-ns_0 m_0)(begin(module-instance42.1 m-ns_0 m_0 #f(make-small-hasheqv) #f #f(box #f)))))"
+"(lambda(m-ns_0 m_0)(begin(module-instance40.1 m-ns_0 m_0 #f(make-small-hasheqv) #f #f(box #f)))))"
 "(define-values"
-"(make-module-namespace50.1)"
-"(lambda(for-submodule?45_0 mpi43_0 root-expand-context44_0 ns49_0)"
+"(make-module-namespace.1)"
+"(lambda(for-submodule?43_0 mpi41_0 root-expand-context42_0 ns47_0)"
 "(begin"
-" 'make-module-namespace50"
-"(let-values(((ns_0) ns49_0))"
-"(let-values(((name-mpi_0) mpi43_0))"
-"(let-values(((root-expand-ctx_0) root-expand-context44_0))"
-"(let-values(((for-submodule?_0) for-submodule?45_0))"
+" 'make-module-namespace"
+"(let-values(((ns_0) ns47_0))"
+"(let-values(((name-mpi_0) mpi41_0))"
+"(let-values(((root-expand-ctx_0) root-expand-context42_0))"
+"(let-values(((for-submodule?_0) for-submodule?43_0))"
 "(let-values()"
 "(let-values(((phase_0) 0))"
 "(let-values(((name_0)(1/module-path-index-resolve name-mpi_0)))"
 "(let-values(((m-ns_0)"
 "(let-values(((the-struct_0)"
-"(let-values(((ns158_0) ns_0)"
-"((root-expand-ctx159_0) root-expand-ctx_0)"
-"((temp160_0) #f))"
-"(new-namespace8.1 temp160_0 root-expand-ctx159_0 ns158_0))))"
+"(let-values(((ns134_0) ns_0)"
+"((root-expand-ctx135_0) root-expand-ctx_0)"
+"((temp136_0) #f))"
+"(new-namespace.1 temp136_0 root-expand-ctx135_0 ns134_0))))"
 "(if(1/namespace? the-struct_0)"
-"(let-values(((mpi150_0) name-mpi_0)"
-"((source-name151_0)(resolved-module-path-root-name name_0))"
-"((phase152_0) phase_0)"
-"((0-phase153_0) phase_0)"
-"((submodule-declarations154_0)"
+"(let-values(((mpi126_0) name-mpi_0)"
+"((source-name127_0)(resolved-module-path-root-name name_0))"
+"((phase128_0) phase_0)"
+"((0-phase129_0) phase_0)"
+"((submodule-declarations130_0)"
 "(if for-submodule?_0"
 "(namespace-submodule-declarations ns_0)"
 "(make-small-hasheq)))"
-"((available-module-instances155_0)(make-hasheqv))"
-"((module-instances156_0)(make-hasheqv))"
-"((declaration-inspector157_0)(current-code-inspector)))"
+"((available-module-instances131_0)(make-hasheqv))"
+"((module-instances132_0)(make-hasheqv))"
+"((declaration-inspector133_0)(current-code-inspector)))"
 "(namespace1.1"
-" mpi150_0"
-" source-name151_0"
+" mpi126_0"
+" source-name127_0"
 "(namespace-root-expand-ctx the-struct_0)"
-" phase152_0"
-" 0-phase153_0"
+" phase128_0"
+" 0-phase129_0"
 "(namespace-phase-to-namespace the-struct_0)"
 "(namespace-phase-level-to-definitions the-struct_0)"
 "(namespace-module-registry$1 the-struct_0)"
 "(namespace-bulk-binding-registry the-struct_0)"
-" submodule-declarations154_0"
+" submodule-declarations130_0"
 "(namespace-root-namespace the-struct_0)"
-" declaration-inspector157_0"
+" declaration-inspector133_0"
 "(namespace-inspector the-struct_0)"
-" available-module-instances155_0"
-" module-instances156_0))"
+" available-module-instances131_0"
+" module-instances132_0))"
 "                                      (raise-argument-error 'struct-copy \"namespace?\" the-struct_0)))))"
 "(let-values((()"
 "(begin"
@@ -13725,14 +13720,14 @@ static const char *startup_source =
 "(hash-set! at-phase_0 name_0(make-module-instance m-ns_0 #f))"
 " m-ns_0))))))))))))))"
 "(define-values"
-"(declare-module!58.1)"
-"(lambda(with-submodules?53_0 ns55_0 m56_0 mod-name57_0)"
+"(declare-module!.1)"
+"(lambda(with-submodules?49_0 ns51_0 m52_0 mod-name53_0)"
 "(begin"
-" 'declare-module!58"
-"(let-values(((ns_0) ns55_0))"
-"(let-values(((m_0) m56_0))"
-"(let-values(((mod-name_0) mod-name57_0))"
-"(let-values(((with-submodules?_0) with-submodules?53_0))"
+" 'declare-module!"
+"(let-values(((ns_0) ns51_0))"
+"(let-values(((m_0) m52_0))"
+"(let-values(((mod-name_0) mod-name53_0))"
+"(let-values(((with-submodules?_0) with-submodules?49_0))"
 "(let-values()"
 "(let-values(((prior-m_0)"
 "(if with-submodules?_0"
@@ -13744,16 +13739,16 @@ static const char *startup_source =
 "(let-values(((prior-mi_0)"
 "(if prior-m_0"
 "(if(not(eq? m_0 prior-m_0))"
-"(let-values(((ns161_0) ns_0)"
-"((mod-name162_0) mod-name_0)"
-"((temp163_0)(namespace-phase ns_0)))"
-"(namespace->module-instance70.1"
+"(let-values(((ns137_0) ns_0)"
+"((mod-name138_0) mod-name_0)"
+"((temp139_0)(namespace-phase ns_0)))"
+"(namespace->module-instance.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" ns161_0"
-" mod-name162_0"
-" temp163_0))"
+" ns137_0"
+" mod-name138_0"
+" temp139_0))"
 " #f)"
 " #f)))"
 "(begin"
@@ -13785,28 +13780,28 @@ static const char *startup_source =
 "(hash-set! at-phase_0 mod-name_0(make-module-instance m-ns_0 m_0))"
 "(if visit?_0"
 "(let-values()"
-"(let-values(((ns164_0) ns_0)"
-"((temp165_0)(namespace-mpi m-ns_0))"
-"((phase166_0) phase_0))"
-"(namespace-module-visit!104.1"
+"(let-values(((ns140_0) ns_0)"
+"((temp141_0)(namespace-mpi m-ns_0))"
+"((phase142_0) phase_0))"
+"(namespace-module-visit!.1"
 " unsafe-undefined"
-" ns164_0"
-" temp165_0"
-" phase166_0)))"
+" ns140_0"
+" temp141_0"
+" phase142_0)))"
 "(void))"
 "(if run?_0"
 "(let-values()"
-"(let-values(((ns167_0) ns_0)"
-"((temp168_0)(namespace-mpi m-ns_0))"
-"((phase169_0) phase_0))"
-"(namespace-module-instantiate!96.1"
+"(let-values(((ns143_0) ns_0)"
+"((temp144_0)(namespace-mpi m-ns_0))"
+"((phase145_0) phase_0))"
+"(namespace-module-instantiate!.1"
 " #t"
 " unsafe-undefined"
 " unsafe-undefined"
 " #f"
-" ns167_0"
-" temp168_0"
-" phase169_0)))"
+" ns143_0"
+" temp144_0"
+" phase145_0)))"
 "(void))))))))))"
 "(void)))))))))))))"
 "(define-values"
@@ -13840,22 +13835,22 @@ static const char *startup_source =
 "(let-values(((m_0)(namespace->module ns_0 name_0)))"
 "(if m_0((module-phase-level-linklet-info-callback m_0) phase-level_0 ns_0(module-inspector m_0)) #f)))))"
 "(define-values"
-"(namespace->module-instance70.1)"
-"(lambda(check-available-at-phase-level62_0"
-" complain-on-failure?61_0"
-" unavailable-callback63_0"
-" ns67_0"
-" name68_0"
-" 0-phase69_0)"
+"(namespace->module-instance.1)"
+"(lambda(check-available-at-phase-level56_0"
+" complain-on-failure?55_0"
+" unavailable-callback57_0"
+" ns61_0"
+" name62_0"
+" 0-phase63_0)"
 "(begin"
-" 'namespace->module-instance70"
-"(let-values(((ns_0) ns67_0))"
-"(let-values(((name_0) name68_0))"
-"(let-values(((0-phase_0) 0-phase69_0))"
-"(let-values(((complain-on-failure?_0) complain-on-failure?61_0))"
-"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level62_0))"
+" 'namespace->module-instance"
+"(let-values(((ns_0) ns61_0))"
+"(let-values(((name_0) name62_0))"
+"(let-values(((0-phase_0) 0-phase63_0))"
+"(let-values(((complain-on-failure?_0) complain-on-failure?55_0))"
+"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level56_0))"
 "(let-values(((unavailable-callback_0)"
-"(if(eq? unavailable-callback63_0 unsafe-undefined) void unavailable-callback63_0)))"
+"(if(eq? unavailable-callback57_0 unsafe-undefined) void unavailable-callback57_0)))"
 "(let-values()"
 "(let-values(((mi_0)"
 "(let-values(((or-part_0)"
@@ -13886,32 +13881,32 @@ static const char *startup_source =
 "(let-values(((m-ns_0)"
 "(let-values(((the-struct_0) ns_0))"
 "(if(1/namespace? the-struct_0)"
-"(let-values(((mpi170_0)(namespace-mpi existing-m-ns_0))"
-"((source-name171_0)(namespace-source-name existing-m-ns_0))"
-"((root-expand-ctx172_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))"
-"((phase173_0)(namespace-phase existing-m-ns_0))"
-"((0-phase174_0)(namespace-0-phase existing-m-ns_0))"
-"((phase-to-namespace175_0)(make-small-hasheqv))"
-"((phase-level-to-definitions176_0)"
+"(let-values(((mpi146_0)(namespace-mpi existing-m-ns_0))"
+"((source-name147_0)(namespace-source-name existing-m-ns_0))"
+"((root-expand-ctx148_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))"
+"((phase149_0)(namespace-phase existing-m-ns_0))"
+"((0-phase150_0)(namespace-0-phase existing-m-ns_0))"
+"((phase-to-namespace151_0)(make-small-hasheqv))"
+"((phase-level-to-definitions152_0)"
 "(if(module-cross-phase-persistent? m_0)"
 "(namespace-phase-level-to-definitions existing-m-ns_0)"
 "(make-small-hasheqv)))"
-"((declaration-inspector177_0)(module-inspector m_0))"
-"((inspector178_0)(namespace-inspector existing-m-ns_0)))"
+"((declaration-inspector153_0)(module-inspector m_0))"
+"((inspector154_0)(namespace-inspector existing-m-ns_0)))"
 "(namespace1.1"
-" mpi170_0"
-" source-name171_0"
-" root-expand-ctx172_0"
-" phase173_0"
-" 0-phase174_0"
-" phase-to-namespace175_0"
-" phase-level-to-definitions176_0"
+" mpi146_0"
+" source-name147_0"
+" root-expand-ctx148_0"
+" phase149_0"
+" 0-phase150_0"
+" phase-to-namespace151_0"
+" phase-level-to-definitions152_0"
 "(namespace-module-registry$1 the-struct_0)"
 "(namespace-bulk-binding-registry the-struct_0)"
 "(namespace-submodule-declarations the-struct_0)"
 "(namespace-root-namespace the-struct_0)"
-" declaration-inspector177_0"
-" inspector178_0"
+" declaration-inspector153_0"
+" inspector154_0"
 "(namespace-available-module-instances the-struct_0)"
 "(namespace-module-instances the-struct_0)))"
 "                        (raise-argument-error 'struct-copy \"namespace?\" the-struct_0)))))"
@@ -13965,33 +13960,33 @@ static const char *startup_source =
 "(let-values(((m-ns_0)"
 "(let-values(((the-struct_0) ns_0))"
 "(if(1/namespace? the-struct_0)"
-"(let-values(((mpi179_0) mpi_0)"
-"((source-name180_0)"
+"(let-values(((mpi155_0) mpi_0)"
+"((source-name156_0)"
 "(let-values(((or-part_0)(module-source-name m_0)))"
 "(if or-part_0"
 " or-part_0"
 "(resolved-module-path-root-name(1/module-path-index-resolve mpi_0)))))"
-"((root-expand-ctx181_0)(box #f))"
-"((phase182_0) 0-phase_0)"
-"((0-phase183_0) 0-phase_0)"
-"((phase-to-namespace184_0)(make-small-hasheqv))"
-"((phase-level-to-definitions185_0)(make-small-hasheqv))"
-"((declaration-inspector186_0)(module-inspector m_0))"
-"((inspector187_0)(make-inspector(module-inspector m_0))))"
+"((root-expand-ctx157_0)(box #f))"
+"((phase158_0) 0-phase_0)"
+"((0-phase159_0) 0-phase_0)"
+"((phase-to-namespace160_0)(make-small-hasheqv))"
+"((phase-level-to-definitions161_0)(make-small-hasheqv))"
+"((declaration-inspector162_0)(module-inspector m_0))"
+"((inspector163_0)(make-inspector(module-inspector m_0))))"
 "(namespace1.1"
-" mpi179_0"
-" source-name180_0"
-" root-expand-ctx181_0"
-" phase182_0"
-" 0-phase183_0"
-" phase-to-namespace184_0"
-" phase-level-to-definitions185_0"
+" mpi155_0"
+" source-name156_0"
+" root-expand-ctx157_0"
+" phase158_0"
+" 0-phase159_0"
+" phase-to-namespace160_0"
+" phase-level-to-definitions161_0"
 "(namespace-module-registry$1 the-struct_0)"
 "(namespace-bulk-binding-registry the-struct_0)"
 "(namespace-submodule-declarations the-struct_0)"
 "(namespace-root-namespace the-struct_0)"
-" declaration-inspector186_0"
-" inspector187_0"
+" declaration-inspector162_0"
+" inspector163_0"
 "(namespace-available-module-instances the-struct_0)"
 "(namespace-module-instances the-struct_0)))"
 "                        (raise-argument-error 'struct-copy \"namespace?\" the-struct_0)))))"
@@ -14027,61 +14022,61 @@ static const char *startup_source =
 "(unavailable-callback_0 mi_0)"
 " mi_0)))))"
 "(define-values"
-"(namespace->module-namespace82.1)"
-"(lambda(check-available-at-phase-level74_0"
-" complain-on-failure?73_0"
-" unavailable-callback75_0"
-" ns79_0"
-" name80_0"
-" 0-phase81_0)"
+"(namespace->module-namespace.1)"
+"(lambda(check-available-at-phase-level66_0"
+" complain-on-failure?65_0"
+" unavailable-callback67_0"
+" ns71_0"
+" name72_0"
+" 0-phase73_0)"
 "(begin"
-" 'namespace->module-namespace82"
-"(let-values(((ns_0) ns79_0))"
-"(let-values(((name_0) name80_0))"
-"(let-values(((0-phase_0) 0-phase81_0))"
-"(let-values(((complain-on-failure?_0) complain-on-failure?73_0))"
-"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level74_0))"
+" 'namespace->module-namespace"
+"(let-values(((ns_0) ns71_0))"
+"(let-values(((name_0) name72_0))"
+"(let-values(((0-phase_0) 0-phase73_0))"
+"(let-values(((complain-on-failure?_0) complain-on-failure?65_0))"
+"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level66_0))"
 "(let-values(((unavailable-callback_0)"
-"(if(eq? unavailable-callback75_0 unsafe-undefined) void unavailable-callback75_0)))"
+"(if(eq? unavailable-callback67_0 unsafe-undefined) void unavailable-callback67_0)))"
 "(let-values()"
 "(let-values(((mi_0)"
-"(let-values(((ns188_0) ns_0)"
-"((name189_0) name_0)"
-"((0-phase190_0) 0-phase_0)"
-"((complain-on-failure?191_0) complain-on-failure?_0)"
-"((check-available-at-phase-level192_0) check-available-at-phase-level_0)"
-"((unavailable-callback193_0) unavailable-callback_0))"
-"(namespace->module-instance70.1"
-" check-available-at-phase-level192_0"
-" complain-on-failure?191_0"
-" unavailable-callback193_0"
-" ns188_0"
-" name189_0"
-" 0-phase190_0))))"
+"(let-values(((ns164_0) ns_0)"
+"((name165_0) name_0)"
+"((0-phase166_0) 0-phase_0)"
+"((complain-on-failure?167_0) complain-on-failure?_0)"
+"((check-available-at-phase-level168_0) check-available-at-phase-level_0)"
+"((unavailable-callback169_0) unavailable-callback_0))"
+"(namespace->module-instance.1"
+" check-available-at-phase-level168_0"
+" complain-on-failure?167_0"
+" unavailable-callback169_0"
+" ns164_0"
+" name165_0"
+" 0-phase166_0))))"
 "(if mi_0(module-instance-namespace mi_0) #f))))))))))))"
 "(define-values"
 "(namespace-record-module-instance-attached!)"
 "(lambda(ns_0 mod-name_0 phase_0)"
 "(begin"
 "(let-values(((mi_0)"
-"(let-values(((ns194_0) ns_0)((mod-name195_0) mod-name_0)((phase196_0) phase_0))"
-"(namespace->module-instance70.1 #f #f unsafe-undefined ns194_0 mod-name195_0 phase196_0))))"
+"(let-values(((ns170_0) ns_0)((mod-name171_0) mod-name_0)((phase172_0) phase_0))"
+"(namespace->module-instance.1 #f #f unsafe-undefined ns170_0 mod-name171_0 phase172_0))))"
 "(set-module-instance-attached?! mi_0 #t)))))"
 "(define-values"
 "(module-force-bulk-binding!)"
 "(lambda(m_0 ns_0)(begin((module-force-bulk-binding m_0)(namespace-bulk-binding-registry ns_0)))))"
 "(define-values"
-"(namespace-module-instantiate!96.1)"
-"(lambda(otherwise-available?87_0 run-phase85_0 seen88_0 skip-run?86_0 ns93_0 mpi94_0 instance-phase95_0)"
+"(namespace-module-instantiate!.1)"
+"(lambda(otherwise-available?77_0 run-phase75_0 seen78_0 skip-run?76_0 ns83_0 mpi84_0 instance-phase85_0)"
 "(begin"
-" 'namespace-module-instantiate!96"
-"(let-values(((ns_0) ns93_0))"
-"(let-values(((mpi_0) mpi94_0))"
-"(let-values(((instance-phase_0) instance-phase95_0))"
-"(let-values(((run-phase_0)(if(eq? run-phase85_0 unsafe-undefined)(namespace-phase ns_0) run-phase85_0)))"
-"(let-values(((skip-run?_0) skip-run?86_0))"
-"(let-values(((otherwise-available?_0) otherwise-available?87_0))"
-"(let-values(((seen_0)(if(eq? seen88_0 unsafe-undefined) '#hasheq() seen88_0)))"
+" 'namespace-module-instantiate!"
+"(let-values(((ns_0) ns83_0))"
+"(let-values(((mpi_0) mpi84_0))"
+"(let-values(((instance-phase_0) instance-phase85_0))"
+"(let-values(((run-phase_0)(if(eq? run-phase75_0 unsafe-undefined)(namespace-phase ns_0) run-phase75_0)))"
+"(let-values(((skip-run?_0) skip-run?76_0))"
+"(let-values(((otherwise-available?_0) otherwise-available?77_0))"
+"(let-values(((seen_0)(if(eq? seen78_0 unsafe-undefined) '#hasheq() seen78_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -14103,17 +14098,17 @@ static const char *startup_source =
 " 'instantiate!"
 "(let-values(((mi_0)"
 "(let-values(((or-part_0)"
-"(let-values(((ns203_0) ns_1)"
-"((name204_0) name_0)"
-"((instance-phase205_0)"
+"(let-values(((ns179_0) ns_1)"
+"((name180_0) name_0)"
+"((instance-phase181_0)"
 " instance-phase_1))"
-"(namespace->module-instance70.1"
+"(namespace->module-instance.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" ns203_0"
-" name204_0"
-" instance-phase205_0))))"
+" ns179_0"
+" name180_0"
+" instance-phase181_0))))"
 "(if or-part_0"
 " or-part_0"
 "(namespace-create-module-instance!"
@@ -14122,19 +14117,19 @@ static const char *startup_source =
 " instance-phase_1"
 " m_0"
 " mpi_0)))))"
-"(let-values(((mi197_0) mi_0)"
-"((ns198_0) ns_1)"
-"((run-phase199_0) run-phase_1)"
-"((skip-run?200_0) skip-run?_0)"
-"((otherwise-available?201_0) otherwise-available?_0)"
-"((seen202_0) seen_0))"
-"(run-module-instance!125.1"
-" otherwise-available?201_0"
-" run-phase199_0"
-" seen202_0"
-" skip-run?200_0"
-" mi197_0"
-" ns198_0)))))))"
+"(let-values(((mi173_0) mi_0)"
+"((ns174_0) ns_1)"
+"((run-phase175_0) run-phase_1)"
+"((skip-run?176_0) skip-run?_0)"
+"((otherwise-available?177_0) otherwise-available?_0)"
+"((seen178_0) seen_0))"
+"(run-module-instance!.1"
+" otherwise-available?177_0"
+" run-phase175_0"
+" seen178_0"
+" skip-run?176_0"
+" mi173_0"
+" ns174_0)))))))"
 "(if(module-cross-phase-persistent? m_0)"
 "(let-values()"
 "(instantiate!_0"
@@ -14144,63 +14139,63 @@ static const char *startup_source =
 "(if or-part_0 or-part_0 ns_0))))"
 "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_0)))))))))))))))))))"
 "(define-values"
-"(namespace-module-visit!104.1)"
-"(lambda(visit-phase99_0 ns101_0 mpi102_0 instance-phase103_0)"
+"(namespace-module-visit!.1)"
+"(lambda(visit-phase87_0 ns89_0 mpi90_0 instance-phase91_0)"
 "(begin"
-" 'namespace-module-visit!104"
-"(let-values(((ns_0) ns101_0))"
-"(let-values(((mpi_0) mpi102_0))"
-"(let-values(((instance-phase_0) instance-phase103_0))"
+" 'namespace-module-visit!"
+"(let-values(((ns_0) ns89_0))"
+"(let-values(((mpi_0) mpi90_0))"
+"(let-values(((instance-phase_0) instance-phase91_0))"
 "(let-values(((visit-phase_0)"
-"(if(eq? visit-phase99_0 unsafe-undefined)(namespace-phase ns_0) visit-phase99_0)))"
+"(if(eq? visit-phase87_0 unsafe-undefined)(namespace-phase ns_0) visit-phase87_0)))"
 "(let-values()"
-"(let-values(((ns206_0) ns_0)"
-"((mpi207_0) mpi_0)"
-"((instance-phase208_0) instance-phase_0)"
-"((temp209_0)(add1 visit-phase_0)))"
-"(namespace-module-instantiate!96.1"
+"(let-values(((ns182_0) ns_0)"
+"((mpi183_0) mpi_0)"
+"((instance-phase184_0) instance-phase_0)"
+"((temp185_0)(add1 visit-phase_0)))"
+"(namespace-module-instantiate!.1"
 " #t"
-" temp209_0"
+" temp185_0"
 " unsafe-undefined"
 " #f"
-" ns206_0"
-" mpi207_0"
-" instance-phase208_0))))))))))"
+" ns182_0"
+" mpi183_0"
+" instance-phase184_0))))))))))"
 "(define-values"
-"(namespace-module-make-available!112.1)"
-"(lambda(visit-phase107_0 ns109_0 mpi110_0 instance-phase111_0)"
+"(namespace-module-make-available!.1)"
+"(lambda(visit-phase93_0 ns95_0 mpi96_0 instance-phase97_0)"
 "(begin"
-" 'namespace-module-make-available!112"
-"(let-values(((ns_0) ns109_0))"
-"(let-values(((mpi_0) mpi110_0))"
-"(let-values(((instance-phase_0) instance-phase111_0))"
+" 'namespace-module-make-available!"
+"(let-values(((ns_0) ns95_0))"
+"(let-values(((mpi_0) mpi96_0))"
+"(let-values(((instance-phase_0) instance-phase97_0))"
 "(let-values(((visit-phase_0)"
-"(if(eq? visit-phase107_0 unsafe-undefined)(namespace-phase ns_0) visit-phase107_0)))"
+"(if(eq? visit-phase93_0 unsafe-undefined)(namespace-phase ns_0) visit-phase93_0)))"
 "(let-values()"
-"(let-values(((ns210_0) ns_0)"
-"((mpi211_0) mpi_0)"
-"((instance-phase212_0) instance-phase_0)"
-"((temp213_0)(add1 visit-phase_0))"
-"((temp214_0) #t))"
-"(namespace-module-instantiate!96.1"
+"(let-values(((ns186_0) ns_0)"
+"((mpi187_0) mpi_0)"
+"((instance-phase188_0) instance-phase_0)"
+"((temp189_0)(add1 visit-phase_0))"
+"((temp190_0) #t))"
+"(namespace-module-instantiate!.1"
 " #t"
-" temp213_0"
+" temp189_0"
 " unsafe-undefined"
-" temp214_0"
-" ns210_0"
-" mpi211_0"
-" instance-phase212_0))))))))))"
+" temp190_0"
+" ns186_0"
+" mpi187_0"
+" instance-phase188_0))))))))))"
 "(define-values"
-"(run-module-instance!125.1)"
-"(lambda(otherwise-available?117_0 run-phase115_0 seen118_0 skip-run?116_0 mi123_0 ns124_0)"
+"(run-module-instance!.1)"
+"(lambda(otherwise-available?101_0 run-phase99_0 seen102_0 skip-run?100_0 mi107_0 ns108_0)"
 "(begin"
-" 'run-module-instance!125"
-"(let-values(((mi_0) mi123_0))"
-"(let-values(((ns_0) ns124_0))"
-"(let-values(((run-phase_0) run-phase115_0))"
-"(let-values(((skip-run?_0) skip-run?116_0))"
-"(let-values(((otherwise-available?_0) otherwise-available?117_0))"
-"(let-values(((seen_0)(if(eq? seen118_0 unsafe-undefined) '#hasheq() seen118_0)))"
+" 'run-module-instance!"
+"(let-values(((mi_0) mi107_0))"
+"(let-values(((ns_0) ns108_0))"
+"(let-values(((run-phase_0) run-phase99_0))"
+"(let-values(((skip-run?_0) skip-run?100_0))"
+"(let-values(((otherwise-available?_0) otherwise-available?101_0))"
+"(let-values(((seen_0)(if(eq? seen102_0 unsafe-undefined) '#hasheq() seen102_0)))"
 "(let-values()"
 "(begin"
 "(if log-performance?(let-values()(start-performance-region 'eval 'requires))(void))"
@@ -14400,33 +14395,33 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((ns215_0)"
+"(let-values(((ns191_0)"
 " ns_0)"
-"((req-mpi216_0)"
+"((req-mpi192_0)"
 " req-mpi_0)"
-"((temp217_0)"
+"((temp193_0)"
 "(phase+"
 " instance-phase_0"
 " req-phase_0))"
-"((run-phase218_0)"
+"((run-phase194_0)"
 " run-phase_0)"
-"((skip-run?219_0)"
+"((skip-run?195_0)"
 " skip-run?_0)"
-"((otherwise-available?220_0)"
+"((otherwise-available?196_0)"
 " otherwise-available?_0)"
-"((temp221_0)"
+"((temp197_0)"
 "(hash-set"
 " seen_0"
 " mi_0"
 " #t)))"
-"(namespace-module-instantiate!96.1"
-" otherwise-available?220_0"
-" run-phase218_0"
-" temp221_0"
-" skip-run?219_0"
-" ns215_0"
-" req-mpi216_0"
-" temp217_0)))"
+"(namespace-module-instantiate!.1"
+" otherwise-available?196_0"
+" run-phase194_0"
+" temp197_0"
+" skip-run?195_0"
+" ns191_0"
+" req-mpi192_0"
+" temp193_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
@@ -14588,26 +14583,26 @@ static const char *startup_source =
 "(if log-performance?(let-values()(end-performance-region))(void))))))))))))))"
 "(define-values"
 "(namespace-visit-available-modules!)"
-"(let-values(((namespace-visit-available-modules!130_0)"
-"(lambda(ns129_0 run-phase128_0)"
+"(let-values(((namespace-visit-available-modules!_0)"
+"(lambda(ns111_0 run-phase110_0)"
 "(begin"
-" 'namespace-visit-available-modules!130"
-"(let-values(((ns_0) ns129_0))"
+" 'namespace-visit-available-modules!"
+"(let-values(((ns_0) ns111_0))"
 "(let-values(((run-phase_0)"
-"(if(eq? run-phase128_0 unsafe-undefined)(namespace-phase ns_0) run-phase128_0)))"
+"(if(eq? run-phase110_0 unsafe-undefined)(namespace-phase ns_0) run-phase110_0)))"
 "(let-values()(namespace-run-available-modules! ns_0(add1 run-phase_0)))))))))"
 "(case-lambda"
-"((ns_0)(begin(namespace-visit-available-modules!130_0 ns_0 unsafe-undefined)))"
-"((ns_0 run-phase128_0)(namespace-visit-available-modules!130_0 ns_0 run-phase128_0)))))"
+"((ns_0)(begin(namespace-visit-available-modules!_0 ns_0 unsafe-undefined)))"
+"((ns_0 run-phase110_0)(namespace-visit-available-modules!_0 ns_0 run-phase110_0)))))"
 "(define-values"
 "(namespace-run-available-modules!)"
-"(let-values(((namespace-run-available-modules!134_0)"
-"(lambda(ns133_0 run-phase132_0)"
+"(let-values(((namespace-run-available-modules!_0)"
+"(lambda(ns113_0 run-phase112_0)"
 "(begin"
-" 'namespace-run-available-modules!134"
-"(let-values(((ns_0) ns133_0))"
+" 'namespace-run-available-modules!"
+"(let-values(((ns_0) ns113_0))"
 "(let-values(((run-phase_0)"
-"(if(eq? run-phase132_0 unsafe-undefined)(namespace-phase ns_0) run-phase132_0)))"
+"(if(eq? run-phase112_0 unsafe-undefined)(namespace-phase ns_0) run-phase112_0)))"
 "(let-values()"
 "(registry-call-with-lock"
 "(namespace-module-registry$1 ns_0)"
@@ -14651,23 +14646,23 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((mi222_0)"
+"(let-values(((mi198_0)"
 " mi_0)"
-"((ns223_0)"
+"((ns199_0)"
 " ns_0)"
-"((run-phase224_0)"
+"((run-phase200_0)"
 " run-phase_0)"
-"((temp225_0)"
+"((temp201_0)"
 " #f)"
-"((temp226_0)"
+"((temp202_0)"
 " #f))"
-"(run-module-instance!125.1"
-" temp226_0"
-" run-phase224_0"
+"(run-module-instance!.1"
+" temp202_0"
+" run-phase200_0"
 " unsafe-undefined"
-" temp225_0"
-" mi222_0"
-" ns223_0)))"
+" temp201_0"
+" mi198_0"
+" ns199_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -14680,43 +14675,43 @@ static const char *startup_source =
 "(loop_0)))))))))"
 " loop_0)))))))))))"
 "(case-lambda"
-"((ns_0)(begin(namespace-run-available-modules!134_0 ns_0 unsafe-undefined)))"
-"((ns_0 run-phase132_0)(namespace-run-available-modules!134_0 ns_0 run-phase132_0)))))"
+"((ns_0)(begin(namespace-run-available-modules!_0 ns_0 unsafe-undefined)))"
+"((ns_0 run-phase112_0)(namespace-run-available-modules!_0 ns_0 run-phase112_0)))))"
 "(define-values"
 "(namespace-primitive-module-visit!)"
 "(lambda(ns_0 name_0)"
 "(begin"
 "(let-values(((mi_0)(hash-ref(namespace-module-instances ns_0)(1/make-resolved-module-path name_0))))"
-"(let-values(((mi227_0) mi_0)((ns228_0) ns_0)((temp229_0) 1)((temp230_0) #f)((temp231_0) #t))"
-"(run-module-instance!125.1 temp231_0 temp229_0 unsafe-undefined temp230_0 mi227_0 ns228_0))))))"
+"(let-values(((mi203_0) mi_0)((ns204_0) ns_0)((temp205_0) 1)((temp206_0) #f)((temp207_0) #t))"
+"(run-module-instance!.1 temp207_0 temp205_0 unsafe-undefined temp206_0 mi203_0 ns204_0))))))"
 "(define-values"
-"(namespace-module-use->module+linklet-instances144.1)"
-"(lambda(phase-shift138_0 shift-from136_0 shift-to137_0 ns142_0 mu143_0)"
+"(namespace-module-use->module+linklet-instances.1)"
+"(lambda(phase-shift116_0 shift-from114_0 shift-to115_0 ns120_0 mu121_0)"
 "(begin"
-" 'namespace-module-use->module+linklet-instances144"
-"(let-values(((ns_0) ns142_0))"
-"(let-values(((mu_0) mu143_0))"
-"(let-values(((shift-from_0) shift-from136_0))"
-"(let-values(((shift-to_0) shift-to137_0))"
-"(let-values(((phase-shift_0) phase-shift138_0))"
+" 'namespace-module-use->module+linklet-instances"
+"(let-values(((ns_0) ns120_0))"
+"(let-values(((mu_0) mu121_0))"
+"(let-values(((shift-from_0) shift-from114_0))"
+"(let-values(((shift-to_0) shift-to115_0))"
+"(let-values(((phase-shift_0) phase-shift116_0))"
 "(let-values()"
 "(let-values(((mod_0)(module-use-module mu_0)))"
 "(let-values(((mi_0)"
-"(let-values(((ns232_0) ns_0)"
-"((temp233_0)"
+"(let-values(((ns208_0) ns_0)"
+"((temp209_0)"
 "(1/module-path-index-resolve"
 "(if shift-from_0"
 "(module-path-index-shift mod_0 shift-from_0 shift-to_0)"
 " mod_0)))"
-"((phase-shift234_0) phase-shift_0)"
-"((temp235_0) #t))"
-"(namespace->module-instance70.1"
+"((phase-shift210_0) phase-shift_0)"
+"((temp211_0) #t))"
+"(namespace->module-instance.1"
 " #f"
-" temp235_0"
+" temp211_0"
 " unsafe-undefined"
-" ns232_0"
-" temp233_0"
-" phase-shift234_0))))"
+" ns208_0"
+" temp209_0"
+" phase-shift210_0))))"
 "(let-values(((m-ns_0)(module-instance-namespace mi_0)))"
 "(let-values(((d_0)"
 "(small-hash-ref"
@@ -14904,7 +14899,7 @@ static const char *startup_source =
 "((at-phase3_0) at-phase_0)"
 "((temp4_0)(module-binding-phase b_0))"
 "((temp5_0)(lambda(mi_0) 'unavailable)))"
-"(namespace->module-instance70.1 temp4_0 #f temp5_0 ns1_0 temp2_0 at-phase3_0))))"
+"(namespace->module-instance.1 temp4_0 #f temp5_0 ns1_0 temp2_0 at-phase3_0))))"
 "(begin"
 "(if(eq? mi_0 'unavailable)"
 "(let-values()"
@@ -15004,7 +14999,7 @@ static const char *startup_source =
 " 'loop"
 "(let-values(((b_0)"
 "(let-values(((id1_0) id_1)((phase2_0) phase_0)((temp3_0) #t))"
-"(resolve+shift28.1 #f #f null temp3_0 #f id1_0 phase2_0))))"
+"(resolve+shift.1 #f #f null temp3_0 #f id1_0 phase2_0))))"
 "(let-values(((c1_0)(binding-free=id b_0)))"
 "(if c1_0"
 "((lambda(next-id_0)"
@@ -15038,7 +15033,7 @@ static const char *startup_source =
 " #f)"
 "(let-values()"
 "(let-values(((next-b4_0) next-b_0)((temp5_0)(syntax-inspector id_1)))"
-"(module-binding-update46.1"
+"(module-binding-update.1"
 " temp5_0"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -15175,10 +15170,10 @@ static const char *startup_source =
 " 'local-variable)))))"
 "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'id))))"
 "(define-values"
-"(substitute-variable6.1)"
+"(substitute-variable.1)"
 "(lambda(no-stops?2_0 id4_0 t5_0)"
 "(begin"
-" 'substitute-variable6"
+" 'substitute-variable"
 "(let-values(((id_0) id4_0))"
 "(let-values(((t_0) t5_0))"
 "(let-values(((no-stops?_0) no-stops?2_0))"
@@ -15211,7 +15206,7 @@ static const char *startup_source =
 "(let-values()(1/set!-transformer-procedure t_0))"
 "(if(1/rename-transformer? t_0)(let-values()(lambda(s_0) s_0))(let-values() t_0))))))"
 "(define-values"
-"(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)"
+"(struct:core-form core-form7.1 core-form? core-form-expander core-form-name)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -15234,53 +15229,53 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 0 'expander)"
 "(make-struct-field-accessor -ref_0 1 'name))))"
 "(define-values"
-"(add-binding!17.1)"
-"(lambda(in10_0 just-for-nominal?11_0 id14_0 binding15_0 phase16_0)"
+"(add-binding!.1)"
+"(lambda(in8_0 just-for-nominal?9_0 id12_0 binding13_0 phase14_0)"
 "(begin"
-" 'add-binding!17"
-"(let-values(((id_0) id14_0))"
-"(let-values(((binding_0) binding15_0))"
-"(let-values(((phase_0) phase16_0))"
-"(let-values(((in-s_0) in10_0))"
-"(let-values(((just-for-nominal?_0) just-for-nominal?11_0))"
+" 'add-binding!"
+"(let-values(((id_0) id12_0))"
+"(let-values(((binding_0) binding13_0))"
+"(let-values(((phase_0) phase14_0))"
+"(let-values(((in-s_0) in8_0))"
+"(let-values(((just-for-nominal?_0) just-for-nominal?9_0))"
 "(let-values()"
 "(begin"
 "(check-id-taint id_0 in-s_0)"
-"(let-values(((temp57_0)(syntax-scope-set id_0 phase_0))"
-"((temp58_0)(syntax-e$1 id_0))"
-"((binding59_0) binding_0)"
-"((just-for-nominal?60_0) just-for-nominal?_0))"
-"(add-binding-in-scopes!20.1 just-for-nominal?60_0 temp57_0 temp58_0 binding59_0))))))))))))"
+"(let-values(((temp47_0)(syntax-scope-set id_0 phase_0))"
+"((temp48_0)(syntax-e$1 id_0))"
+"((binding49_0) binding_0)"
+"((just-for-nominal?50_0) just-for-nominal?_0))"
+"(add-binding-in-scopes!.1 just-for-nominal?50_0 temp47_0 temp48_0 binding49_0))))))))))))"
 "(define-values"
-"(add-bulk-binding!27.1)"
-"(lambda(in20_0 shadow-except21_0 s24_0 binding25_0 phase26_0)"
+"(add-bulk-binding!.1)"
+"(lambda(in16_0 shadow-except17_0 s20_0 binding21_0 phase22_0)"
 "(begin"
-" 'add-bulk-binding!27"
-"(let-values(((s_0) s24_0))"
-"(let-values(((binding_0) binding25_0))"
-"(let-values(((phase_0) phase26_0))"
-"(let-values(((in-s_0) in20_0))"
-"(let-values(((shadow-except_0) shadow-except21_0))"
+" 'add-bulk-binding!"
+"(let-values(((s_0) s20_0))"
+"(let-values(((binding_0) binding21_0))"
+"(let-values(((phase_0) phase22_0))"
+"(let-values(((in-s_0) in16_0))"
+"(let-values(((shadow-except_0) shadow-except17_0))"
 "(let-values()"
 "(begin"
 "(if(syntax-tainted?$1 s_0)"
 "                      (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_0 s_0))"
 "(void))"
-"(let-values(((temp61_0)(syntax-scope-set s_0 phase_0))"
-"((binding62_0) binding_0)"
-"((shadow-except63_0) shadow-except_0))"
-"(add-bulk-binding-in-scopes!27.1 shadow-except63_0 temp61_0 binding62_0))))))))))))"
+"(let-values(((temp51_0)(syntax-scope-set s_0 phase_0))"
+"((binding52_0) binding_0)"
+"((shadow-except53_0) shadow-except_0))"
+"(add-bulk-binding-in-scopes!.1 shadow-except53_0 temp51_0 binding52_0))))))))))))"
 "(define-values"
-"(add-local-binding!39.1)"
-"(lambda(frame-id31_0 in32_0 local-sym30_0 id36_0 phase37_0 counter38_0)"
+"(add-local-binding!.1)"
+"(lambda(frame-id25_0 in26_0 local-sym24_0 id30_0 phase31_0 counter32_0)"
 "(begin"
-" 'add-local-binding!39"
-"(let-values(((id_0) id36_0))"
-"(let-values(((phase_0) phase37_0))"
-"(let-values(((counter_0) counter38_0))"
-"(let-values(((local-sym_0) local-sym30_0))"
-"(let-values(((frame-id_0) frame-id31_0))"
-"(let-values(((in-s_0) in32_0))"
+" 'add-local-binding!"
+"(let-values(((id_0) id30_0))"
+"(let-values(((phase_0) phase31_0))"
+"(let-values(((counter_0) counter32_0))"
+"(let-values(((local-sym_0) local-sym24_0))"
+"(let-values(((frame-id_0) frame-id25_0))"
+"(let-values(((in-s_0) in26_0))"
 "(let-values()"
 "(let-values((()(begin(check-id-taint id_0 in-s_0)(values))))"
 "(let-values(((c_0)(add1(unbox counter_0))))"
@@ -15294,12 +15289,12 @@ static const char *startup_source =
 "                                            \"_\""
 "(number->string c_0)))))"
 "(begin"
-"(let-values(((temp64_0)(syntax-scope-set id_0 phase_0))"
-"((sym65_0) sym_0)"
-"((temp66_0)"
-"(let-values(((key67_0) key_0)((frame-id68_0) frame-id_0))"
-"(make-local-binding7.1 frame-id68_0 #f key67_0))))"
-"(add-binding-in-scopes!20.1 #f temp64_0 sym65_0 temp66_0))"
+"(let-values(((temp54_0)(syntax-scope-set id_0 phase_0))"
+"((sym55_0) sym_0)"
+"((temp56_0)"
+"(let-values(((key57_0) key_0)((frame-id58_0) frame-id_0))"
+"(make-local-binding.1 frame-id58_0 #f key57_0))))"
+"(add-binding-in-scopes!.1 #f temp54_0 sym55_0 temp56_0))"
 " key_0))))))))))))))))"
 "(define-values"
 "(check-id-taint)"
@@ -15309,18 +15304,18 @@ static const char *startup_source =
 "        (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_0 id_0))"
 "(void)))))"
 "(define-values"
-"(binding-lookup52.1)"
-"(lambda(in42_0 out-of-context-as-variable?43_0 b46_0 env47_0 lift-envs48_0 ns49_0 phase50_0 id51_0)"
+"(binding-lookup.1)"
+"(lambda(in34_0 out-of-context-as-variable?35_0 b38_0 env39_0 lift-envs40_0 ns41_0 phase42_0 id43_0)"
 "(begin"
-" 'binding-lookup52"
-"(let-values(((b_0) b46_0))"
-"(let-values(((env_0) env47_0))"
-"(let-values(((lift-envs_0) lift-envs48_0))"
-"(let-values(((ns_0) ns49_0))"
-"(let-values(((phase_0) phase50_0))"
-"(let-values(((id_0) id51_0))"
-"(let-values(((in-s_0) in42_0))"
-"(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?43_0))"
+" 'binding-lookup"
+"(let-values(((b_0) b38_0))"
+"(let-values(((env_0) env39_0))"
+"(let-values(((lift-envs_0) lift-envs40_0))"
+"(let-values(((ns_0) ns41_0))"
+"(let-values(((phase_0) phase42_0))"
+"(let-values(((id_0) id43_0))"
+"(let-values(((in-s_0) in34_0))"
+"(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?35_0))"
 "(let-values()"
 "(if(module-binding? b_0)"
 "(let-values()"
@@ -15768,10 +15763,10 @@ static const char *startup_source =
 "(expand-context-should-not-encounter-macros?)"
 "(lambda(v_0)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_0)))))"
 "(define-values"
-"(make-expand-context12.1)"
+"(make-expand-context.1)"
 "(lambda(for-serializable?4_0 observer6_0 to-correlated-linklet?5_0 to-parsed?3_0 ns11_0)"
 "(begin"
-" 'make-expand-context12"
+" 'make-expand-context"
 "(let-values(((ns_0) ns11_0))"
 "(let-values(((to-parsed?_0) to-parsed?3_0))"
 "(let-values(((for-serializable?_0) for-serializable?4_0))"
@@ -15829,29 +15824,29 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((post-expansion29_0)(root-expand-context-post-expansion root-ctx_0))"
-"((use-site-scopes30_0)(root-expand-context-use-site-scopes root-ctx_0))"
-"((frame-id31_0)(root-expand-context-frame-id root-ctx_0))"
-"((binding-layer32_0)(root-expand-context-frame-id root-ctx_0))"
-"((inner33_0)"
+"(let-values(((post-expansion23_0)(root-expand-context-post-expansion root-ctx_0))"
+"((use-site-scopes24_0)(root-expand-context-use-site-scopes root-ctx_0))"
+"((frame-id25_0)(root-expand-context-frame-id root-ctx_0))"
+"((binding-layer26_0)(root-expand-context-frame-id root-ctx_0))"
+"((inner27_0)"
 "(let-values(((the-struct_1)(root-expand-context/outer-inner v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((self-mpi34_0)(root-expand-context-self-mpi root-ctx_0))"
-"((module-scopes35_0)(root-expand-context-module-scopes root-ctx_0))"
-"((top-level-bind-scope36_0)"
+"(let-values(((self-mpi28_0)(root-expand-context-self-mpi root-ctx_0))"
+"((module-scopes29_0)(root-expand-context-module-scopes root-ctx_0))"
+"((top-level-bind-scope30_0)"
 "(root-expand-context-top-level-bind-scope root-ctx_0))"
-"((all-scopes-stx37_0)(root-expand-context-all-scopes-stx root-ctx_0))"
-"((defined-syms38_0)(root-expand-context-defined-syms root-ctx_0))"
-"((counter39_0)(root-expand-context-counter root-ctx_0))"
-"((lift-key40_0)(root-expand-context-lift-key root-ctx_0)))"
+"((all-scopes-stx31_0)(root-expand-context-all-scopes-stx root-ctx_0))"
+"((defined-syms32_0)(root-expand-context-defined-syms root-ctx_0))"
+"((counter33_0)(root-expand-context-counter root-ctx_0))"
+"((lift-key34_0)(root-expand-context-lift-key root-ctx_0)))"
 "(expand-context/inner2.1"
-" self-mpi34_0"
-" module-scopes35_0"
-" top-level-bind-scope36_0"
-" all-scopes-stx37_0"
-" defined-syms38_0"
-" counter39_0"
-" lift-key40_0"
+" self-mpi28_0"
+" module-scopes29_0"
+" top-level-bind-scope30_0"
+" all-scopes-stx31_0"
+" defined-syms32_0"
+" counter33_0"
+" lift-key34_0"
 "(expand-context/inner-to-parsed? the-struct_1)"
 "(expand-context/inner-phase the-struct_1)"
 "(expand-context/inner-namespace the-struct_1)"
@@ -15875,15 +15870,15 @@ static const char *startup_source =
 "(expand-context/inner-should-not-encounter-macros? the-struct_1)))"
 "                              (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner33_0"
-" post-expansion29_0"
-" use-site-scopes30_0"
-" frame-id31_0"
+" inner27_0"
+" post-expansion23_0"
+" use-site-scopes24_0"
+" frame-id25_0"
 "(expand-context/outer-context the-struct_0)"
 "(expand-context/outer-env the-struct_0)"
 "(expand-context/outer-scopes the-struct_0)"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
-" binding-layer32_0"
+" binding-layer26_0"
 "(expand-context/outer-reference-records the-struct_0)"
 "(expand-context/outer-only-immediate? the-struct_0)"
 "(expand-context/outer-need-eventually-defined the-struct_0)"
@@ -15896,12 +15891,12 @@ static const char *startup_source =
 "(current-expand-context)"
 "(lambda()(begin(continuation-mark-set-first #f current-expand-context default-val.1$1 root-tag))))"
 "(define-values"
-"(get-current-expand-context18.1)"
-"(lambda(fail-ok?15_0 who17_0)"
+"(get-current-expand-context.1)"
+"(lambda(fail-ok?13_0 who15_0)"
 "(begin"
-" 'get-current-expand-context18"
-"(let-values(((who_0) who17_0))"
-"(let-values(((fail-ok?_0) fail-ok?15_0))"
+" 'get-current-expand-context"
+"(let-values(((who_0) who15_0))"
+"(let-values(((fail-ok?_0) fail-ok?13_0))"
 "(let-values()"
 "(let-values(((or-part_0)(force(current-expand-context))))"
 "              (if or-part_0 or-part_0 (if fail-ok?_0 #f (raise-arguments-error who_0 \"not currently expanding\"))))))))))"
@@ -15927,16 +15922,16 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context41_0) 'expression)"
-"((name42_0) #f)"
-"((post-expansion43_0) #f)"
-"((inner44_0)(root-expand-context/outer-inner v_0)))"
+"(let-values(((context35_0) 'expression)"
+"((name36_0) #f)"
+"((post-expansion37_0) #f)"
+"((inner38_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner44_0"
-" post-expansion43_0"
+" inner38_0"
+" post-expansion37_0"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
-" context41_0"
+" context35_0"
 "(expand-context/outer-env the-struct_0)"
 "(expand-context/outer-scopes the-struct_0)"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
@@ -15946,7 +15941,7 @@ static const char *startup_source =
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
-" name42_0))"
+" name36_0))"
 "                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_0)))))))))"
 "(define-values"
 "(as-begin-expression-context)"
@@ -15958,9 +15953,9 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((name45_0) #f)((inner46_0)(root-expand-context/outer-inner v_0)))"
+"(let-values(((name39_0) #f)((inner40_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner46_0"
+" inner40_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -15974,25 +15969,25 @@ static const char *startup_source =
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
-" name45_0))"
+" name39_0))"
 "                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_0)))))))))"
 "(define-values"
-"(as-tail-context24.1)"
-"(lambda(wrt21_0 ctx23_0)"
+"(as-tail-context.1)"
+"(lambda(wrt17_0 ctx19_0)"
 "(begin"
-" 'as-tail-context24"
-"(let-values(((ctx_0) ctx23_0))"
-"(let-values(((wrt-ctx_0) wrt21_0))"
+" 'as-tail-context"
+"(let-values(((ctx_0) ctx19_0))"
+"(let-values(((wrt-ctx_0) wrt17_0))"
 "(let-values()"
 "(if(expand-context-name wrt-ctx_0)"
 "(let-values()"
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((name47_0)(expand-context-name wrt-ctx_0))"
-"((inner48_0)(root-expand-context/outer-inner v_0)))"
+"(let-values(((name41_0)(expand-context-name wrt-ctx_0))"
+"((inner42_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner48_0"
+" inner42_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -16006,7 +16001,7 @@ static const char *startup_source =
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
-" name47_0))"
+" name41_0))"
 "                      (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_0)))))"
 "(let-values() ctx_0))))))))"
 "(define-values"
@@ -16018,9 +16013,9 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((name49_0)(car ids_0))((inner50_0)(root-expand-context/outer-inner v_0)))"
+"(let-values(((name43_0)(car ids_0))((inner44_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner50_0"
+" inner44_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -16034,7 +16029,7 @@ static const char *startup_source =
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
-" name49_0))"
+" name43_0))"
 "                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_0)))))"
 "(let-values() ctx_0)))))"
 "(define-values"
@@ -16044,12 +16039,12 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((inner51_0)"
+"(let-values(((inner45_0)"
 "(let-values(((the-struct_1)(root-expand-context/outer-inner v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((to-parsed?52_0) #t)"
-"((observer53_0) #f)"
-"((should-not-encounter-macros?54_0) #t))"
+"(let-values(((to-parsed?46_0) #t)"
+"((observer47_0) #f)"
+"((should-not-encounter-macros?48_0) #t))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi the-struct_1)"
 "(root-expand-context/inner-module-scopes the-struct_1)"
@@ -16058,7 +16053,7 @@ static const char *startup_source =
 "(root-expand-context/inner-defined-syms the-struct_1)"
 "(root-expand-context/inner-counter the-struct_1)"
 "(root-expand-context/inner-lift-key the-struct_1)"
-" to-parsed?52_0"
+" to-parsed?46_0"
 "(expand-context/inner-phase the-struct_1)"
 "(expand-context/inner-namespace the-struct_1)"
 "(expand-context/inner-just-once? the-struct_1)"
@@ -16074,14 +16069,14 @@ static const char *startup_source =
 "(expand-context/inner-require-lifts the-struct_1)"
 "(expand-context/inner-to-module-lifts the-struct_1)"
 "(expand-context/inner-requires+provides the-struct_1)"
-" observer53_0"
+" observer47_0"
 "(expand-context/inner-for-serializable? the-struct_1)"
 "(expand-context/inner-to-correlated-linklet? the-struct_1)"
 "(expand-context/inner-normalize-locals? the-struct_1)"
-" should-not-encounter-macros?54_0))"
+" should-not-encounter-macros?48_0))"
 "                              (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner51_0"
+" inner45_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -16161,7 +16156,7 @@ static const char *startup_source =
 "(let-values(((temp1_0)(datum->syntax$1 core-stx sym_0))"
 "((temp2_0)"
 "(let-values(((core-mpi4_0) core-mpi)((temp5_0) 0)((sym6_0) sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -16174,7 +16169,7 @@ static const char *startup_source =
 " temp5_0"
 " sym6_0)))"
 "((temp3_0) 0))"
-"(add-binding!17.1 #f #f temp1_0 temp2_0 temp3_0)))))"
+"(add-binding!.1 #f #f temp1_0 temp2_0 temp3_0)))))"
 "(define-values"
 "(declare-core-module!)"
 "(lambda(ns_0)"
@@ -16239,7 +16234,7 @@ static const char *startup_source =
 " 0)"
 "((sym19_0)"
 " sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -16292,7 +16287,7 @@ static const char *startup_source =
 "(let-values(((ns20_0) ns_1)"
 "((core-module-name21_0) core-module-name)"
 "((temp22_0) 0))"
-"(namespace->module-namespace82.1"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
@@ -16370,7 +16365,7 @@ static const char *startup_source =
 "(if(procedure-arity-includes?"
 " proc_0"
 " 2)"
-"(core-form9.1"
+"(core-form7.1"
 " proc_0"
 " sym_0)"
 " proc_0)))"
@@ -16384,7 +16379,7 @@ static const char *startup_source =
 "(hash-iterate-first ht_0))))"
 "(void)))"
 "(let-values()(void)))))))"
-"(make-module39.1"
+"(make-module.1"
 " temp10_0"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -16404,7 +16399,7 @@ static const char *startup_source =
 " null"
 " #f)))"
 "((core-module-name9_0) core-module-name))"
-"(declare-module!58.1 #t ns7_0 temp8_0 core-module-name9_0)))))"
+"(declare-module!.1 #t ns7_0 temp8_0 core-module-name9_0)))))"
 "(define-values"
 "(core-form-sym)"
 "(lambda(s_0 phase_0)"
@@ -16430,7 +16425,7 @@ static const char *startup_source =
 "(if ok?_0"
 "(let-values(((b_0)"
 "(let-values(((temp27_0) id23_0)((phase28_0) phase_0))"
-"(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_0 phase28_0))))"
+"(resolve+shift.1 #f #f null unsafe-undefined #f temp27_0 phase28_0))))"
 "(if(module-binding? b_0)"
 "(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_0)))"
 "(module-binding-sym b_0)"
@@ -17196,7 +17191,7 @@ static const char *startup_source =
 "(unsafe-immutable-hash-iterate-first ht_0))))))"
 "((<2_0) <)"
 "((temp3_0)(lambda(v_0)(vector-ref v_0 0))))"
-"(sort7.1 #f temp3_0 temp1_0 <2_0)))))"
+"(sort.1 #f temp3_0 temp1_0 <2_0)))))"
 "(define-values"
 "(raise-ambiguous-error)"
 "(lambda(id_0 ctx_0)"
@@ -17389,7 +17384,7 @@ static const char *startup_source =
 "(if(hash-ref a_0 'match? #f)"
 "(not(hash-ref b_0 'match? #f))"
 " #f)))))"
-"(sort7.1 #f #f temp1_0 temp2_0))))"
+"(sort.1 #f #f temp1_0 temp2_0))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
@@ -17631,7 +17626,7 @@ static const char *startup_source =
 "(if trigger-id_0"
 "(not"
 "(let-values(((trigger-id1_0) trigger-id_0)((phase2_0) phase_0))"
-"(resolve40.1 #f #f null #f trigger-id1_0 phase2_0)))"
+"(resolve.1 #f #f null #f trigger-id1_0 phase2_0)))"
 " #f)))"
 "(let-values(((unbound-form_0)"
 "(if unbound?_0(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)))"
@@ -17654,10 +17649,10 @@ static const char *startup_source =
 "               (if unbound?_0 (syntax-debug-info-string trigger-id_0 ctx_0) \"\")))))))))"
 "(define-values(make-check-no-duplicate-table)(lambda()(begin '#hasheq())))"
 "(define-values"
-"(check-no-duplicate-ids7.1)"
+"(check-no-duplicate-ids.1)"
 "(lambda(what1_0 ids4_0 phase5_0 s6_0 ht3_0)"
 "(begin"
-" 'check-no-duplicate-ids7"
+" 'check-no-duplicate-ids"
 "(let-values(((ids_0) ids4_0))"
 "(let-values(((phase_0) phase5_0))"
 "(let-values(((s_0) s6_0))"
@@ -17790,10 +17785,10 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 5 'lazy-syntax-literals?)"
 "(make-struct-field-accessor -ref_0 6 'header))))"
 "(define-values"
-"(make-compile-context14.1)"
+"(make-compile-context.1)"
 "(lambda(full-module-name6_0 lazy-syntax-literals?7_0 module-self5_0 namespace2_0 phase3_0 self4_0)"
 "(begin"
-" 'make-compile-context14"
+" 'make-compile-context"
 "(let-values(((namespace_0)(if(eq? namespace2_0 unsafe-undefined)(1/current-namespace) namespace2_0)))"
 "(let-values(((phase_0)(if(eq? phase3_0 unsafe-undefined)(namespace-phase namespace_0) phase3_0)))"
 "(let-values(((self_0)(if(eq? self4_0 unsafe-undefined)(namespace-self-mpi namespace_0) self4_0)))"
@@ -17831,18 +17826,18 @@ static const char *startup_source =
 "(define-values(correlated?$1)(lambda(e_0)(begin 'correlated?(syntax?$3 e_0))))"
 "(define-values"
 "(datum->correlated$1)"
-"(let-values(((datum->correlated4_0)"
+"(let-values(((datum->correlated_0)"
 "(lambda(d3_0 srcloc1_0 props2_0)"
 "(begin"
-" 'datum->correlated4"
+" 'datum->correlated"
 "(let-values(((d_0) d3_0))"
 "(let-values(((srcloc_0) srcloc1_0))"
 "(let-values(((props_0) props2_0))"
 "(let-values()(datum->syntax$4 #f d_0 srcloc_0 props_0)))))))))"
 "(case-lambda"
-"((d_0)(begin 'datum->correlated(datum->correlated4_0 d_0 #f #f)))"
-"((d_0 srcloc_0 props2_0)(datum->correlated4_0 d_0 srcloc_0 props2_0))"
-"((d_0 srcloc1_0)(datum->correlated4_0 d_0 srcloc1_0 #f)))))"
+"((d_0)(begin 'datum->correlated(datum->correlated_0 d_0 #f #f)))"
+"((d_0 srcloc_0 props2_0)(datum->correlated_0 d_0 srcloc_0 props2_0))"
+"((d_0 srcloc1_0)(datum->correlated_0 d_0 srcloc1_0 #f)))))"
 "(define-values(correlated-e$1)(lambda(e_0)(begin 'correlated-e(syntax-e$4 e_0))))"
 "(define-values"
 "(correlated-property$1)"
@@ -17889,10 +17884,10 @@ static const char *startup_source =
 "(let-values()(path->string p_0))"
 "(let-values()(bytes->string/utf-8(path->bytes p_0) '#\\�))))))"
 "(define-values"
-"(make-path->relative-path-elements4.1)"
+"(make-path->relative-path-elements.1)"
 "(lambda(who1_0 wr-dir3_0)"
 "(begin"
-" 'make-path->relative-path-elements4"
+" 'make-path->relative-path-elements"
 "(let-values(((wr-dir_0)(if(eq? wr-dir3_0 unsafe-undefined)(current-write-relative-directory) wr-dir3_0)))"
 "(let-values(((who_0) who1_0))"
 "(let-values()"
@@ -18210,10 +18205,10 @@ static const char *startup_source =
 "(define-values(1/write-byte)(lambda(byte_0 out_0)(begin 'write-byte(write-byte byte_0 out_0))))"
 "(define-values"
 "(1/write-bytes)"
-"(let-values(((write-bytes5_0)"
+"(let-values(((write-bytes_0)"
 "(lambda(bstr3_0 out4_0 start-pos1_0 end-pos2_0)"
 "(begin"
-" 'write-bytes5"
+" 'write-bytes"
 "(let-values(((bstr_0) bstr3_0))"
 "(let-values(((out_0) out4_0))"
 "(let-values(((start-pos_0) start-pos1_0))"
@@ -18221,9 +18216,9 @@ static const char *startup_source =
 "(if(eq? end-pos2_0 unsafe-undefined)(bytes-length bstr_0) end-pos2_0)))"
 "(let-values()(write-bytes bstr_0 out_0 start-pos_0 end-pos_0))))))))))"
 "(case-lambda"
-"((bstr_0 out_0)(begin 'write-bytes(write-bytes5_0 bstr_0 out_0 0 unsafe-undefined)))"
-"((bstr_0 out_0 start-pos_0 end-pos2_0)(write-bytes5_0 bstr_0 out_0 start-pos_0 end-pos2_0))"
-"((bstr_0 out_0 start-pos1_0)(write-bytes5_0 bstr_0 out_0 start-pos1_0 unsafe-undefined)))))"
+"((bstr_0 out_0)(begin 'write-bytes(write-bytes_0 bstr_0 out_0 0 unsafe-undefined)))"
+"((bstr_0 out_0 start-pos_0 end-pos2_0)(write-bytes_0 bstr_0 out_0 start-pos_0 end-pos2_0))"
+"((bstr_0 out_0 start-pos1_0)(write-bytes_0 bstr_0 out_0 start-pos1_0 unsafe-undefined)))))"
 "(define-values(fasl-graph-def-type) 1)"
 "(define-values(fasl-graph-ref-type) 2)"
 "(define-values(fasl-false-type) 3)"
@@ -18274,14 +18269,14 @@ static const char *startup_source =
 "(define-values(fasl-hash-equal-variant) 1)"
 "(define-values(fasl-hash-eqv-variant) 2)"
 "(define-values"
-"(s-exp->fasl13.1)"
-"(lambda(handle-fail8_0 keep-mutable?7_0 v12_0 orig-o11_0)"
+"(s-exp->fasl.1)"
+"(lambda(handle-fail6_0 keep-mutable?5_0 v10_0 orig-o9_0)"
 "(begin"
-" 's-exp->fasl13"
-"(let-values(((v_0) v12_0))"
-"(let-values(((orig-o_0) orig-o11_0))"
-"(let-values(((keep-mutable?_0) keep-mutable?7_0))"
-"(let-values(((handle-fail_0) handle-fail8_0))"
+" 's-exp->fasl"
+"(let-values(((v_0) v10_0))"
+"(let-values(((orig-o_0) orig-o9_0))"
+"(let-values(((keep-mutable?_0) keep-mutable?5_0))"
+"(let-values(((handle-fail_0) handle-fail6_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -18506,7 +18501,7 @@ static const char *startup_source =
 "(let-values(((or-part_0)(not keep-mutable?_0)))"
 "(if or-part_0 or-part_0(immutable? v_1)))))))"
 "(let-values(((path->relative-path-elements_0)"
-"(let-values()(make-path->relative-path-elements4.1 #f unsafe-undefined))))"
+"(let-values()(make-path->relative-path-elements.1 #f unsafe-undefined))))"
 "(let-values((()(begin(1/write-bytes fasl-prefix o_0)(values))))"
 "(let-values(((bstr_0)"
 "(let-values(((o_1)(open-output-bytes)))"
@@ -19222,12 +19217,12 @@ static const char *startup_source =
 "(1/write-bytes bstr_0 o_0)"
 "(if orig-o_0(void)(get-output-bytes o_0)))))))))))))))))))))"
 "(define-values"
-"(fasl->s-exp19.1)"
-"(lambda(datum-intern?16_0 orig-i18_0)"
+"(fasl->s-exp.1)"
+"(lambda(datum-intern?12_0 orig-i14_0)"
 "(begin"
-" 'fasl->s-exp19"
-"(let-values(((orig-i_0) orig-i18_0))"
-"(let-values(((intern?_0) datum-intern?16_0))"
+" 'fasl->s-exp"
+"(let-values(((orig-i_0) orig-i14_0))"
+"(let-values(((intern?_0) datum-intern?12_0))"
 "(let-values()"
 "(let-values(((init-i_0)"
 "(if(bytes? orig-i_0)"
@@ -19913,17 +19908,17 @@ static const char *startup_source =
 "                    (let-values () (read-error \"internal error on integer mode\"))))))))))))"
 "(define-values"
 "(read-fasl-string)"
-"(let-values(((read-fasl-string24_0)"
-"(lambda(i23_0 len22_0)"
+"(let-values(((read-fasl-string_0)"
+"(lambda(i17_0 len16_0)"
 "(begin"
-" 'read-fasl-string24"
-"(let-values(((i_0) i23_0))"
-"(let-values(((len_0)(if(eq? len22_0 unsafe-undefined)(read-fasl-integer i_0) len22_0)))"
+" 'read-fasl-string"
+"(let-values(((i_0) i17_0))"
+"(let-values(((len_0)(if(eq? len16_0 unsafe-undefined)(read-fasl-integer i_0) len16_0)))"
 "(let-values()"
 "(let-values(((bstr_0)(read-bytes/exactly len_0 i_0)))(bytes->string/utf-8 bstr_0)))))))))"
 "(case-lambda"
-"((i_0)(begin(read-fasl-string24_0 i_0 unsafe-undefined)))"
-"((i_0 len22_0)(read-fasl-string24_0 i_0 len22_0)))))"
+"((i_0)(begin(read-fasl-string_0 i_0 unsafe-undefined)))"
+"((i_0 len16_0)(read-fasl-string_0 i_0 len16_0)))))"
 "(define-values"
 "(read-fasl-bytes)"
 "(lambda(i_0)(begin(let-values(((len_0)(read-fasl-integer i_0)))(read-bytes/exactly len_0 i_0)))))"
@@ -20609,13 +20604,13 @@ static const char *startup_source =
 "(list"
 " 'define-values"
 " '(requires)"
-"(let-values(((requires10_0) requires_0)((mpis11_0) mpis_0)((temp12_0) #f))"
-"(generate-deserialize6.1 temp12_0 requires10_0 mpis11_0)))"
+"(let-values(((requires8_0) requires_0)((mpis9_0) mpis_0)((temp10_0) #f))"
+"(generate-deserialize.1 temp10_0 requires8_0 mpis9_0)))"
 "(list"
 " 'define-values"
 " '(provides)"
-"(let-values(((provides13_0) provides_0)((mpis14_0) mpis_0)((temp15_0) #f))"
-"(generate-deserialize6.1 temp15_0 provides13_0 mpis14_0)))"
+"(let-values(((provides11_0) provides_0)((mpis12_0) mpis_0)((temp13_0) #f))"
+"(generate-deserialize.1 temp13_0 provides11_0 mpis12_0)))"
 "(list 'define-values '(phase-to-link-modules) phase-to-link-module-uses-expr_0)))))"
 "(define-values"
 "(serialize-module-uses)"
@@ -20673,8 +20668,8 @@ static const char *startup_source =
 "(lambda(phase-to-link-module-uses_0 mpis_0)"
 "(begin"
 "(let-values(((phases-in-order_0)"
-"(let-values(((temp16_0)(hash-keys phase-to-link-module-uses_0))((<17_0) <))"
-"(sort7.1 #f #f temp16_0 <17_0))))"
+"(let-values(((temp14_0)(hash-keys phase-to-link-module-uses_0))((<15_0) <))"
+"(sort.1 #f #f temp14_0 <15_0))))"
 "(list*"
 " 'hasheqv"
 "(apply"
@@ -20712,10 +20707,10 @@ static const char *startup_source =
 " null"
 " lst_0))))))))))"
 "(define-values"
-"(generate-deserialize6.1)"
+"(generate-deserialize.1)"
 "(lambda(syntax-support?2_0 v4_0 mpis5_0)"
 "(begin"
-" 'generate-deserialize6"
+" 'generate-deserialize"
 "(let-values(((v_0) v4_0))"
 "(let-values(((mpis_0) mpis5_0))"
 "(let-values(((syntax-support?_0) syntax-support?2_0))"
@@ -21254,9 +21249,9 @@ static const char *startup_source =
 " null"
 "(hash-iterate-first ht_0)))))))"
 "(let-values(((lst_0)"
-"(let-values(((share-steps18_0) share-steps_0)"
-"((<19_0) <))"
-"(sort7.1 #f #f share-steps18_0 <19_0)))"
+"(let-values(((share-steps16_0) share-steps_0)"
+"((<17_0) <))"
+"(sort.1 #f #f share-steps16_0 <17_0)))"
 "((start_0) num-mutables_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
@@ -22369,16 +22364,15 @@ static const char *startup_source =
 "(let-values() ks_0)"
 "(if(andmap2 symbol? ks_0)"
 "(let-values()"
-"(let-values(((ks20_0) ks_0)((symbol<?21_0) symbol<?))(sort7.1 #f #f ks20_0 symbol<?21_0)))"
+"(let-values(((ks18_0) ks_0)((symbol<?19_0) symbol<?))(sort.1 #f #f ks18_0 symbol<?19_0)))"
 "(if(andmap2 scope? ks_0)"
-"(let-values()"
-"(let-values(((ks22_0) ks_0)((scope<?23_0) scope<?))(sort7.1 #f #f ks22_0 scope<?23_0)))"
+"(let-values()(let-values(((ks20_0) ks_0)((scope<?21_0) scope<?))(sort.1 #f #f ks20_0 scope<?21_0)))"
 "(if(andmap2 shifted-multi-scope? ks_0)"
 "(let-values()"
-"(let-values(((ks24_0) ks_0)((shifted-multi-scope<?25_0) shifted-multi-scope<?))"
-"(sort7.1 #f #f ks24_0 shifted-multi-scope<?25_0)))"
+"(let-values(((ks22_0) ks_0)((shifted-multi-scope<?23_0) shifted-multi-scope<?))"
+"(sort.1 #f #f ks22_0 shifted-multi-scope<?23_0)))"
 "(if(andmap2 real? ks_0)"
-"(let-values()(let-values(((ks26_0) ks_0)((<27_0) <))(sort7.1 #f #f ks26_0 <27_0)))"
+"(let-values()(let-values(((ks24_0) ks_0)((<25_0) <))(sort.1 #f #f ks24_0 <25_0)))"
 "(let-values() ks_0)))))))))))"
 "(define-values"
 "(deserialize)"
@@ -23535,29 +23529,32 @@ static const char *startup_source =
 "(define-values"
 "(syntax-module-path-index-shift/no-keywords)"
 "(let-values(((syntax-module-path-index-shift_0)"
-"(let-values(((core32_0)"
-"(lambda(s29_0 from-mpi30_0 to-mpi31_0 inspector28_0)"
+"(let-values(((syntax-module-path-index-shift_0)"
+"(lambda(s27_0 from-mpi28_0 to-mpi29_0 inspector26_0)"
 "(begin"
-" 'core32"
-"(let-values(((s_0) s29_0))"
-"(let-values(((from-mpi_0) from-mpi30_0))"
-"(let-values(((to-mpi_0) to-mpi31_0))"
-"(let-values(((inspector_0) inspector28_0))"
+" 'syntax-module-path-index-shift"
+"(let-values(((s_0) s27_0))"
+"(let-values(((from-mpi_0) from-mpi28_0))"
+"(let-values(((to-mpi_0) to-mpi29_0))"
+"(let-values(((inspector_0) inspector26_0))"
 "(let-values()"
-"(let-values(((s34_0) s_0)"
-"((from-mpi35_0) from-mpi_0)"
-"((to-mpi36_0) to-mpi_0)"
-"((inspector37_0) inspector_0))"
-"(syntax-module-path-index-shift13.1"
+"(let-values(((s30_0) s_0)"
+"((from-mpi31_0) from-mpi_0)"
+"((to-mpi32_0) to-mpi_0)"
+"((inspector33_0) inspector_0))"
+"(syntax-module-path-index-shift.1"
 " #f"
-" s34_0"
-" from-mpi35_0"
-" to-mpi36_0"
-" inspector37_0)))))))))))"
+" s30_0"
+" from-mpi31_0"
+" to-mpi32_0"
+" inspector33_0)))))))))))"
 "(case-lambda"
 "((s_0 from-mpi_0 to-mpi_0)"
-"(begin 'syntax-module-path-index-shift(core32_0 s_0 from-mpi_0 to-mpi_0 #f)))"
-"((s_0 from-mpi_0 to-mpi_0 inspector28_0)(core32_0 s_0 from-mpi_0 to-mpi_0 inspector28_0))))))"
+"(begin"
+" 'syntax-module-path-index-shift"
+"(syntax-module-path-index-shift_0 s_0 from-mpi_0 to-mpi_0 #f)))"
+"((s_0 from-mpi_0 to-mpi_0 inspector26_0)"
+"(syntax-module-path-index-shift_0 s_0 from-mpi_0 to-mpi_0 inspector26_0))))))"
 " syntax-module-path-index-shift_0))"
 "(define-values"
 "(deserialize-instance)"
@@ -24113,10 +24110,10 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 8 'compiled-module)"
 "(make-struct-field-accessor -ref_0 9 'compiled-submodules))))"
 "(define-values"
-"(module-path->mpi5.1)"
+"(module-path->mpi.1)"
 "(lambda(declared-submodule-names1_0 mod-path3_0 self4_0)"
 "(begin"
-" 'module-path->mpi5"
+" 'module-path->mpi"
 "(let-values(((mod-path_0) mod-path3_0))"
 "(let-values(((self_0) self4_0))"
 "(let-values(((declared-submodule-names_0)"
@@ -24151,10 +24148,10 @@ static const char *startup_source =
 "(module-path->mpi/context)"
 "(lambda(mod-path_0 ctx_0)"
 "(begin"
-"(let-values(((mod-path8_0) mod-path_0)"
-"((temp9_0)(namespace-mpi(expand-context-namespace ctx_0)))"
-"((temp10_0)(expand-context-declared-submodule-names ctx_0)))"
-"(module-path->mpi5.1 temp10_0 mod-path8_0 temp9_0)))))"
+"(let-values(((mod-path6_0) mod-path_0)"
+"((temp7_0)(namespace-mpi(expand-context-namespace ctx_0)))"
+"((temp8_0)(expand-context-declared-submodule-names ctx_0)))"
+"(module-path->mpi.1 temp8_0 mod-path6_0 temp7_0)))))"
 "(define-values"
 "(syntax-mapped-names)"
 "(lambda(s_0 phase_0)"
@@ -24319,10 +24316,10 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 3 'provide-phase-level)"
 "(make-struct-field-accessor -ref_0 4 'can-be-shadowed?))))"
 "(define-values"
-"(make-requires+provides8.1)"
+"(make-requires+provides.1)"
 "(lambda(copy-requires5_0 self7_0)"
 "(begin"
-" 'make-requires+provides8"
+" 'make-requires+provides"
 "(let-values(((self_0) self7_0))"
 "(let-values(((copy-r+p_0) copy-requires5_0))"
 "(let-values()"
@@ -24372,16 +24369,16 @@ static const char *startup_source =
 "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_0 #f)))"
 " mpi_0)))))"
 "(define-values"
-"(add-defined-or-required-id!19.1)"
-"(lambda(as-transformer?12_0 can-be-shadowed?11_0 r+p15_0 id16_0 phase17_0 binding18_0)"
+"(add-defined-or-required-id!.1)"
+"(lambda(as-transformer?10_0 can-be-shadowed?9_0 r+p13_0 id14_0 phase15_0 binding16_0)"
 "(begin"
-" 'add-defined-or-required-id!19"
-"(let-values(((r+p_0) r+p15_0))"
-"(let-values(((id_0) id16_0))"
-"(let-values(((phase_0) phase17_0))"
-"(let-values(((binding_0) binding18_0))"
-"(let-values(((can-be-shadowed?_0) can-be-shadowed?11_0))"
-"(let-values(((as-transformer?_0) as-transformer?12_0))"
+" 'add-defined-or-required-id!"
+"(let-values(((r+p_0) r+p13_0))"
+"(let-values(((id_0) id14_0))"
+"(let-values(((phase_0) phase15_0))"
+"(let-values(((binding_0) binding16_0))"
+"(let-values(((can-be-shadowed?_0) can-be-shadowed?9_0))"
+"(let-values(((as-transformer?_0) as-transformer?10_0))"
 "(let-values()"
 "(begin"
 "(if(equal?"
@@ -24391,39 +24388,39 @@ static const char *startup_source =
 "(module-binding-nominal-require-phase binding_0)))"
 "(void)"
 "                        (let-values () (error \"internal error: binding phase does not match nominal info\")))"
-"(let-values(((r+p124_0) r+p_0)"
-"((id125_0) id_0)"
-"((phase126_0) phase_0)"
-"((temp127_0)(module-binding-nominal-module binding_0))"
-"((temp128_0)(module-binding-nominal-require-phase binding_0))"
-"((can-be-shadowed?129_0) can-be-shadowed?_0)"
-"((as-transformer?130_0) as-transformer?_0))"
-"(add-defined-or-required-id-at-nominal!33.1"
-" as-transformer?130_0"
-" can-be-shadowed?129_0"
-" temp127_0"
-" temp128_0"
-" r+p124_0"
-" id125_0"
-" phase126_0)))))))))))))"
+"(let-values(((r+p106_0) r+p_0)"
+"((id107_0) id_0)"
+"((phase108_0) phase_0)"
+"((temp109_0)(module-binding-nominal-module binding_0))"
+"((temp110_0)(module-binding-nominal-require-phase binding_0))"
+"((can-be-shadowed?111_0) can-be-shadowed?_0)"
+"((as-transformer?112_0) as-transformer?_0))"
+"(add-defined-or-required-id-at-nominal!.1"
+" as-transformer?112_0"
+" can-be-shadowed?111_0"
+" temp109_0"
+" temp110_0"
+" r+p106_0"
+" id107_0"
+" phase108_0)))))))))))))"
 "(define-values"
-"(add-defined-or-required-id-at-nominal!33.1)"
-"(lambda(as-transformer?25_0"
-" can-be-shadowed?24_0"
-" nominal-module22_0"
-" nominal-require-phase23_0"
-" r+p30_0"
-" id31_0"
-" phase32_0)"
+"(add-defined-or-required-id-at-nominal!.1)"
+"(lambda(as-transformer?21_0"
+" can-be-shadowed?20_0"
+" nominal-module18_0"
+" nominal-require-phase19_0"
+" r+p26_0"
+" id27_0"
+" phase28_0)"
 "(begin"
-" 'add-defined-or-required-id-at-nominal!33"
-"(let-values(((r+p_0) r+p30_0))"
-"(let-values(((id_0) id31_0))"
-"(let-values(((phase_0) phase32_0))"
-"(let-values(((nominal-module_0) nominal-module22_0))"
-"(let-values(((nominal-require-phase_0) nominal-require-phase23_0))"
-"(let-values(((can-be-shadowed?_0) can-be-shadowed?24_0))"
-"(let-values(((as-transformer?_0) as-transformer?25_0))"
+" 'add-defined-or-required-id-at-nominal!"
+"(let-values(((r+p_0) r+p26_0))"
+"(let-values(((id_0) id27_0))"
+"(let-values(((phase_0) phase28_0))"
+"(let-values(((nominal-module_0) nominal-module18_0))"
+"(let-values(((nominal-require-phase_0) nominal-require-phase19_0))"
+"(let-values(((can-be-shadowed?_0) can-be-shadowed?20_0))"
+"(let-values(((as-transformer?_0) as-transformer?21_0))"
 "(let-values()"
 "(let-values(((at-mod_0)"
 "(hash-ref!"
@@ -24439,39 +24436,39 @@ static const char *startup_source =
 "(required2.1 id_0 phase_0 can-be-shadowed?_0 as-transformer?_0)"
 "(hash-ref sym-to-reqds_0 sym_0 null)))))))))))))))))"
 "(define-values"
-"(add-bulk-required-ids!59.1)"
-"(lambda(accum-update-nominals42_0"
-" can-be-shadowed?40_0"
-" check-and-remove?41_0"
-" excepts37_0"
-" in39_0"
-" prefix36_0"
-" symbols-accum38_0"
-" who43_0"
-" r+p52_0"
-" s53_0"
-" self54_0"
-" nominal-module55_0"
-" phase-shift56_0"
-" provides57_0"
-" provide-phase-level58_0)"
+"(add-bulk-required-ids!.1)"
+"(lambda(accum-update-nominals36_0"
+" can-be-shadowed?34_0"
+" check-and-remove?35_0"
+" excepts31_0"
+" in33_0"
+" prefix30_0"
+" symbols-accum32_0"
+" who37_0"
+" r+p46_0"
+" s47_0"
+" self48_0"
+" nominal-module49_0"
+" phase-shift50_0"
+" provides51_0"
+" provide-phase-level52_0)"
 "(begin"
-" 'add-bulk-required-ids!59"
-"(let-values(((r+p_0) r+p52_0))"
-"(let-values(((s_0) s53_0))"
-"(let-values(((self_0) self54_0))"
-"(let-values(((nominal-module_0) nominal-module55_0))"
-"(let-values(((phase-shift_0) phase-shift56_0))"
-"(let-values(((provides_0) provides57_0))"
-"(let-values(((provide-phase-level_0) provide-phase-level58_0))"
-"(let-values(((bulk-prefix_0) prefix36_0))"
-"(let-values(((bulk-excepts_0) excepts37_0))"
-"(let-values(((symbols-accum_0) symbols-accum38_0))"
-"(let-values(((orig-s_0) in39_0))"
-"(let-values(((can-be-shadowed?_0) can-be-shadowed?40_0))"
-"(let-values(((check-and-remove?_0) check-and-remove?41_0))"
-"(let-values(((accum-update-nominals_0) accum-update-nominals42_0))"
-"(let-values(((who_0) who43_0))"
+" 'add-bulk-required-ids!"
+"(let-values(((r+p_0) r+p46_0))"
+"(let-values(((s_0) s47_0))"
+"(let-values(((self_0) self48_0))"
+"(let-values(((nominal-module_0) nominal-module49_0))"
+"(let-values(((phase-shift_0) phase-shift50_0))"
+"(let-values(((provides_0) provides51_0))"
+"(let-values(((provide-phase-level_0) provide-phase-level52_0))"
+"(let-values(((bulk-prefix_0) prefix30_0))"
+"(let-values(((bulk-excepts_0) excepts31_0))"
+"(let-values(((symbols-accum_0) symbols-accum32_0))"
+"(let-values(((orig-s_0) in33_0))"
+"(let-values(((can-be-shadowed?_0) can-be-shadowed?34_0))"
+"(let-values(((check-and-remove?_0) check-and-remove?35_0))"
+"(let-values(((accum-update-nominals_0) accum-update-nominals36_0))"
+"(let-values(((who_0) who37_0))"
 "(let-values()"
 "(let-values(((phase_0)(phase+ provide-phase-level_0 phase-shift_0)))"
 "(let-values(((shortcut-table_0)"
@@ -24564,59 +24561,59 @@ static const char *startup_source =
 " #f)))"
 " #f)"
 "(let-values()"
-"(let-values(((temp131_0)"
+"(let-values(((temp113_0)"
 " #t)"
-"((temp132_0)"
+"((temp114_0)"
 " #t)"
-"((r+p133_0)"
+"((r+p115_0)"
 " r+p_0)"
-"((temp134_0)"
+"((temp116_0)"
 "(datum->syntax$1"
 " s_0"
 " sym_0"
 " s_0))"
-"((phase135_0)"
+"((phase117_0)"
 " phase_0)"
-"((orig-s136_0)"
+"((orig-s118_0)"
 " orig-s_0)"
-"((temp137_0)"
+"((temp119_0)"
 "(lambda()"
-"(let-values(((binding/p141_0)"
+"(let-values(((binding/p123_0)"
 " binding/p_0)"
-"((sym142_0)"
+"((sym124_0)"
 " sym_0)"
-"((self143_0)"
+"((self125_0)"
 " self_0)"
-"((mpi144_0)"
+"((mpi126_0)"
 " mpi_0)"
-"((provide-phase-level145_0)"
+"((provide-phase-level127_0)"
 " provide-phase-level_0)"
-"((phase-shift146_0)"
+"((phase-shift128_0)"
 " phase-shift_0))"
-"(provide-binding-to-require-binding11.1"
-" mpi144_0"
-" phase-shift146_0"
-" provide-phase-level145_0"
-" self143_0"
-" binding/p141_0"
-" sym142_0))))"
-"((temp138_0)"
+"(provide-binding-to-require-binding.1"
+" mpi126_0"
+" phase-shift128_0"
+" provide-phase-level127_0"
+" self125_0"
+" binding/p123_0"
+" sym124_0))))"
+"((temp120_0)"
 " #t)"
-"((accum-update-nominals139_0)"
+"((accum-update-nominals121_0)"
 " accum-update-nominals_0)"
-"((who140_0)"
+"((who122_0)"
 " who_0))"
-"(check-not-defined95.1"
-" accum-update-nominals139_0"
-" temp132_0"
-" temp131_0"
-" orig-s136_0"
-" temp138_0"
-" temp137_0"
-" who140_0"
-" r+p133_0"
-" temp134_0"
-" phase135_0)))"
+"(check-not-defined.1"
+" accum-update-nominals121_0"
+" temp114_0"
+" temp113_0"
+" orig-s118_0"
+" temp120_0"
+" temp119_0"
+" who122_0"
+" r+p115_0"
+" temp116_0"
+" phase117_0)))"
 "(let-values()"
 " #f))))"
 "(begin"
@@ -24666,14 +24663,14 @@ static const char *startup_source =
 "(lambda(r_0 mod-name_0 phase_0 sym_0)"
 "(begin(if(bulk-required? r_0)(bulk-required->required r_0 mod-name_0 phase_0 sym_0) r_0))))"
 "(define-values"
-"(add-enclosing-module-defined-and-required!67.1)"
-"(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)"
+"(add-enclosing-module-defined-and-required!.1)"
+"(lambda(enclosing-requires+provides54_0 r+p56_0 enclosing-mod57_0 phase-shift58_0)"
 "(begin"
-" 'add-enclosing-module-defined-and-required!67"
-"(let-values(((r+p_0) r+p64_0))"
-"(let-values(((enclosing-r+p_0) enclosing-requires+provides62_0))"
-"(let-values(((enclosing-mod_0) enclosing-mod65_0))"
-"(let-values(((phase-shift_0) phase-shift66_0))"
+" 'add-enclosing-module-defined-and-required!"
+"(let-values(((r+p_0) r+p56_0))"
+"(let-values(((enclosing-r+p_0) enclosing-requires+provides54_0))"
+"(let-values(((enclosing-mod_0) enclosing-mod57_0))"
+"(let-values(((phase-shift_0) phase-shift58_0))"
 "(let-values()"
 "(begin"
 "(set-requires+provides-all-bindings-simple?! r+p_0 #f)"
@@ -24768,47 +24765,47 @@ static const char *startup_source =
 " mod-name_0"
 " phase_0"
 " sym_0)))"
-"(let-values(((r+p147_0)"
+"(let-values(((r+p129_0)"
 " r+p_0)"
-"((temp148_0)"
+"((temp130_0)"
 "(syntax-shift-phase-level$1"
-"(let-values(((temp154_0)"
+"(let-values(((temp136_0)"
 "(required-id"
 " reqd_0))"
-"((temp155_0)"
+"((temp137_0)"
 "(requires+provides-self"
 " enclosing-r+p_0))"
-"((enclosing-mod156_0)"
+"((enclosing-mod138_0)"
 " enclosing-mod_0))"
-"(syntax-module-path-index-shift13.1"
+"(syntax-module-path-index-shift.1"
 " #f"
-" temp154_0"
-" temp155_0"
-" enclosing-mod156_0"
+" temp136_0"
+" temp137_0"
+" enclosing-mod138_0"
 " #f))"
 " phase-shift_0))"
-"((temp149_0)"
+"((temp131_0)"
 "(phase+"
 "(required-phase"
 " reqd_0)"
 " phase-shift_0))"
-"((enclosing-mod150_0)"
+"((enclosing-mod132_0)"
 " enclosing-mod_0)"
-"((phase-shift151_0)"
+"((phase-shift133_0)"
 " phase-shift_0)"
-"((temp152_0)"
+"((temp134_0)"
 " #t)"
-"((temp153_0)"
+"((temp135_0)"
 "(required-as-transformer?"
 " reqd_0)))"
-"(add-defined-or-required-id-at-nominal!33.1"
-" temp153_0"
-" temp152_0"
-" enclosing-mod150_0"
-" phase-shift151_0"
-" r+p147_0"
-" temp148_0"
-" temp149_0))))"
+"(add-defined-or-required-id-at-nominal!.1"
+" temp135_0"
+" temp134_0"
+" enclosing-mod132_0"
+" phase-shift133_0"
+" r+p129_0"
+" temp130_0"
+" temp131_0))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
@@ -24849,18 +24846,18 @@ static const char *startup_source =
 "(hash-iterate-first ht_0))))"
 "(void))))))))))"
 "(define-values"
-"(remove-required-id!75.1)"
-"(lambda(unless-matches70_0 r+p72_0 id73_0 phase74_0)"
+"(remove-required-id!.1)"
+"(lambda(unless-matches60_0 r+p62_0 id63_0 phase64_0)"
 "(begin"
-" 'remove-required-id!75"
-"(let-values(((r+p_0) r+p72_0))"
-"(let-values(((id_0) id73_0))"
-"(let-values(((phase_0) phase74_0))"
-"(let-values(((binding_0) unless-matches70_0))"
+" 'remove-required-id!"
+"(let-values(((r+p_0) r+p62_0))"
+"(let-values(((id_0) id63_0))"
+"(let-values(((phase_0) phase64_0))"
+"(let-values(((binding_0) unless-matches60_0))"
 "(let-values()"
 "(let-values(((b_0)"
-"(let-values(((id157_0) id_0)((phase158_0) phase_0)((temp159_0) #t))"
-"(resolve+shift28.1 #f temp159_0 null unsafe-undefined #f id157_0 phase158_0))))"
+"(let-values(((id139_0) id_0)((phase140_0) phase_0)((temp141_0) #t))"
+"(resolve+shift.1 #f temp141_0 null unsafe-undefined #f id139_0 phase140_0))))"
 "(if b_0"
 "(let-values()"
 "(let-values(((mpi_0)(intern-mpi r+p_0(module-binding-nominal-module b_0))))"
@@ -24950,40 +24947,40 @@ static const char *startup_source =
 " null"
 " lst_0)))))))"
 "(define-values"
-"(check-not-defined95.1)"
-"(lambda(accum-update-nominals83_0"
-" allow-defined?79_0"
-" check-not-required?78_0"
-" in80_0"
-" remove-shadowed!?82_0"
-" unless-matches81_0"
-" who84_0"
-" r+p92_0"
-" id93_0"
-" phase94_0)"
+"(check-not-defined.1)"
+"(lambda(accum-update-nominals71_0"
+" allow-defined?67_0"
+" check-not-required?66_0"
+" in68_0"
+" remove-shadowed!?70_0"
+" unless-matches69_0"
+" who72_0"
+" r+p80_0"
+" id81_0"
+" phase82_0)"
 "(begin"
-" 'check-not-defined95"
-"(let-values(((check-not-required?_0) check-not-required?78_0))"
-"(let-values(((allow-defined?_0) allow-defined?79_0))"
-"(let-values(((r+p_0) r+p92_0))"
-"(let-values(((id_0) id93_0))"
-"(let-values(((phase_0) phase94_0))"
-"(let-values(((orig-s_0) in80_0))"
-"(let-values(((ok-binding/delayed_0) unless-matches81_0))"
-"(let-values(((remove-shadowed!?_0) remove-shadowed!?82_0))"
-"(let-values(((accum-update-nominals_0) accum-update-nominals83_0))"
-"(let-values(((who_0) who84_0))"
+" 'check-not-defined"
+"(let-values(((check-not-required?_0) check-not-required?66_0))"
+"(let-values(((allow-defined?_0) allow-defined?67_0))"
+"(let-values(((r+p_0) r+p80_0))"
+"(let-values(((id_0) id81_0))"
+"(let-values(((phase_0) phase82_0))"
+"(let-values(((orig-s_0) in68_0))"
+"(let-values(((ok-binding/delayed_0) unless-matches69_0))"
+"(let-values(((remove-shadowed!?_0) remove-shadowed!?70_0))"
+"(let-values(((accum-update-nominals_0) accum-update-nominals71_0))"
+"(let-values(((who_0) who72_0))"
 "(let-values()"
 "(let-values(((b_0)"
-"(let-values(((id160_0) id_0)((phase161_0) phase_0)((temp162_0) #t))"
-"(resolve+shift28.1"
+"(let-values(((id142_0) id_0)((phase143_0) phase_0)((temp144_0) #t))"
+"(resolve+shift.1"
 " #f"
-" temp162_0"
+" temp144_0"
 " null"
 " unsafe-undefined"
 " #f"
-" id160_0"
-" phase161_0))))"
+" id142_0"
+" phase143_0))))"
 "(if(not b_0)"
 "(let-values() #f)"
 "(if(not(module-binding? b_0))"
@@ -25055,19 +25052,19 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'update!"
-"(let-values(((temp163_0) #t)"
-"((id164_0) id_0)"
-"((temp165_0)"
-"(let-values(((ok-binding167_0)"
+"(let-values(((temp145_0) #t)"
+"((id146_0) id_0)"
+"((temp147_0)"
+"(let-values(((ok-binding149_0)"
 " ok-binding_0)"
-"((temp168_0)"
+"((temp150_0)"
 "(cons"
 " b_0"
 "(module-binding-extra-nominal-bindings"
 " b_0))))"
-"(module-binding-update46.1"
+"(module-binding-update.1"
 " unsafe-undefined"
-" temp168_0"
+" temp150_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -25077,14 +25074,14 @@ static const char *startup_source =
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" ok-binding167_0)))"
-"((phase166_0) phase_0))"
-"(add-binding!17.1"
+" ok-binding149_0)))"
+"((phase148_0) phase_0))"
+"(add-binding!.1"
 " #f"
-" temp163_0"
-" id164_0"
-" temp165_0"
-" phase166_0))))))"
+" temp145_0"
+" id146_0"
+" temp147_0"
+" phase148_0))))))"
 "(if accum-update-nominals_0"
 "(let-values()"
 "(set-box!"
@@ -25220,14 +25217,14 @@ static const char *startup_source =
 "(void))))"
 " #f)))))))))))))))))))))))))))))))))))"
 "(define-values"
-"(add-defined-syms!103.1)"
-"(lambda(as-transformer?98_0 r+p100_0 syms101_0 phase102_0)"
+"(add-defined-syms!.1)"
+"(lambda(as-transformer?84_0 r+p86_0 syms87_0 phase88_0)"
 "(begin"
-" 'add-defined-syms!103"
-"(let-values(((r+p_0) r+p100_0))"
-"(let-values(((syms_0) syms101_0))"
-"(let-values(((phase_0) phase102_0))"
-"(let-values(((as-transformer?_0) as-transformer?98_0))"
+" 'add-defined-syms!"
+"(let-values(((r+p_0) r+p86_0))"
+"(let-values(((syms_0) syms87_0))"
+"(let-values(((phase_0) phase88_0))"
+"(let-values(((as-transformer?_0) as-transformer?84_0))"
 "(let-values()"
 "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_0)))"
 "(let-values(((defined-syms_0)(hash-ref phase-to-defined-syms_0 phase_0 '#hasheq())))"
@@ -25518,27 +25515,27 @@ static const char *startup_source =
 " null"
 " lst_0)))))))))))"
 "(define-values"
-"(add-provide!117.1)"
-"(lambda(as-protected?106_0"
-" as-transformer?107_0"
-" r+p110_0"
-" sym111_0"
-" phase112_0"
-" binding113_0"
-" immed-binding114_0"
-" id115_0"
-" orig-s116_0)"
+"(add-provide!.1)"
+"(lambda(as-protected?90_0"
+" as-transformer?91_0"
+" r+p94_0"
+" sym95_0"
+" phase96_0"
+" binding97_0"
+" immed-binding98_0"
+" id99_0"
+" orig-s100_0)"
 "(begin"
-" 'add-provide!117"
-"(let-values(((r+p_0) r+p110_0))"
-"(let-values(((sym_0) sym111_0))"
-"(let-values(((phase_0) phase112_0))"
-"(let-values(((binding_0) binding113_0))"
-"(let-values(((immed-binding_0) immed-binding114_0))"
-"(let-values(((id_0) id115_0))"
-"(let-values(((orig-s_0) orig-s116_0))"
-"(let-values(((as-protected?_0) as-protected?106_0))"
-"(let-values(((as-transformer?_0) as-transformer?107_0))"
+" 'add-provide!"
+"(let-values(((r+p_0) r+p94_0))"
+"(let-values(((sym_0) sym95_0))"
+"(let-values(((phase_0) phase96_0))"
+"(let-values(((binding_0) binding97_0))"
+"(let-values(((immed-binding_0) immed-binding98_0))"
+"(let-values(((id_0) id99_0))"
+"(let-values(((orig-s_0) orig-s100_0))"
+"(let-values(((as-protected?_0) as-protected?90_0))"
+"(let-values(((as-transformer?_0) as-transformer?91_0))"
 "(let-values()"
 "(begin"
 "(if(if as-protected?_0"
@@ -25557,12 +25554,12 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((plain-binding_0)"
 "(if(binding-free=id binding_0)"
-"(let-values(((binding169_0) binding_0)((temp170_0) #f))"
-"(module-binding-update46.1"
+"(let-values(((binding151_0) binding_0)((temp152_0) #f))"
+"(module-binding-update.1"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp170_0"
+" temp152_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -25570,7 +25567,7 @@ static const char *startup_source =
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
-" binding169_0))"
+" binding151_0))"
 " binding_0)))"
 "(hash-set"
 " at-phase_0"
@@ -25598,9 +25595,9 @@ static const char *startup_source =
 " 'extract-requires"
 "(let-values(((phase-to-mpis-in-order_0)(requires+provides-require-mpis-in-order r+p_0)))"
 "(let-values(((phases-in-order_0)"
-"(let-values(((temp171_0)(hash-keys phase-to-mpis-in-order_0))"
-"((phase<?172_0) phase<?))"
-"(sort7.1 #f #f temp171_0 phase<?172_0))))"
+"(let-values(((temp153_0)(hash-keys phase-to-mpis-in-order_0))"
+"((phase<?154_0) phase<?))"
+"(sort.1 #f #f temp153_0 phase<?154_0))))"
 "(reverse$1"
 "(let-values(((lst_0) phases-in-order_0))"
 "(begin"
@@ -25848,7 +25845,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 1 'from-sym))))"
 "(define-values(layers$1) '(raw phaseless path))"
 "(define-values"
-"(parse-and-perform-requires!30.1)"
+"(parse-and-perform-requires!.1)"
 "(lambda(copy-variable-as-constant?11_0"
 " copy-variable-phase-level10_0"
 " declared-submodule-names9_0"
@@ -25865,7 +25862,7 @@ static const char *startup_source =
 " phase-shift28_0"
 " requires+provides29_0)"
 "(begin"
-" 'parse-and-perform-requires!30"
+" 'parse-and-perform-requires!"
 "(let-values(((reqs_0) reqs25_0))"
 "(let-values(((orig-s_0) orig-s26_0))"
 "(let-values(((m-ns_0) m-ns27_0))"
@@ -25920,15 +25917,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((check-nested_0)"
-"(let-values(((check-nested116_0)"
-"(lambda(want-layer115_0"
-" ok?114_0)"
+"(let-values(((check-nested_0)"
+"(lambda(want-layer107_0"
+" ok?106_0)"
 "(begin"
-" 'check-nested116"
+" 'check-nested"
 "(let-values(((want-layer_0)"
-" want-layer115_0))"
+" want-layer107_0))"
 "(let-values(((ok?_0)"
-" ok?114_0))"
+" ok?106_0))"
 "(let-values()"
 "(if(if ok?_0"
 "(member"
@@ -25948,14 +25945,14 @@ static const char *startup_source =
 "((want-layer_0)"
 "(begin"
 " 'check-nested"
-"(check-nested116_0"
+"(check-nested_0"
 " want-layer_0"
 " #t)))"
 "((want-layer_0"
-" ok?114_0)"
-"(check-nested116_0"
+" ok?106_0)"
+"(check-nested_0"
 " want-layer_0"
-" ok?114_0))))))"
+" ok?106_0))))))"
 "(let-values(((fm_0)"
 "(if(pair?"
 "(syntax-e$1"
@@ -25983,16 +25980,16 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_0"
-" for-meta118_0"
-" phase-level119_0"
-" spec120_0)"
+" for-meta108_0"
+" phase-level109_0"
+" spec110_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((for-meta118_0"
-" phase-level119_0"
-" spec120_0)"
+"(let-values(((for-meta108_0"
+" phase-level109_0"
+" spec110_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26001,13 +25998,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((for-meta121_0)"
+"(let-values(((for-meta111_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((phase-level122_0"
-" spec123_0)"
+"((phase-level112_0"
+" spec113_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26019,12 +26016,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((phase-level124_0)"
+"(let-values(((phase-level114_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((spec125_0)"
+"((spec115_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -26047,28 +26044,28 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" phase-level124_0"
-" spec125_0))"
+" phase-level114_0"
+" spec115_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" for-meta121_0"
-" phase-level122_0"
-" spec123_0))"
+" for-meta111_0"
+" phase-level112_0"
+" spec113_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                             \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" for-meta118_0"
-" phase-level119_0"
-" spec120_0))))))"
+" for-meta108_0"
+" phase-level109_0"
+" spec110_0))))))"
 "(let-values(((p_0)"
 "(syntax-e$1"
-" phase-level119_0)))"
+" phase-level109_0)))"
 "(begin"
 "(if(phase?"
 " p_0)"
@@ -26080,7 +26077,7 @@ static const char *startup_source =
 " orig-s_0"
 " req_0)))"
 "(loop_0"
-" spec120_0"
+" spec110_0"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26105,14 +26102,14 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_0"
-" for-syntax126_0"
-" spec127_0)"
+" for-syntax116_0"
+" spec117_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((for-syntax126_0"
-" spec127_0)"
+"(let-values(((for-syntax116_0"
+" spec117_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26121,12 +26118,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((for-syntax128_0)"
+"(let-values(((for-syntax118_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec129_0)"
+"((spec119_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26149,18 +26146,18 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" for-syntax128_0"
-" spec129_0))"
+" for-syntax118_0"
+" spec119_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                               \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" for-syntax126_0"
-" spec127_0))))))"
+" for-syntax116_0"
+" spec117_0))))))"
 "(loop_0"
-" spec127_0"
+" spec117_0"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26185,14 +26182,14 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_0"
-" for-template130_0"
-" spec131_0)"
+" for-template120_0"
+" spec121_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((for-template130_0"
-" spec131_0)"
+"(let-values(((for-template120_0"
+" spec121_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26201,12 +26198,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((for-template132_0)"
+"(let-values(((for-template122_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec133_0)"
+"((spec123_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26229,18 +26226,18 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" for-template132_0"
-" spec133_0))"
+" for-template122_0"
+" spec123_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                 \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" for-template130_0"
-" spec131_0))))))"
+" for-template120_0"
+" spec121_0))))))"
 "(loop_0"
-" spec131_0"
+" spec121_0"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26265,14 +26262,14 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_0"
-" for-label134_0"
-" spec135_0)"
+" for-label124_0"
+" spec125_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((for-label134_0"
-" spec135_0)"
+"(let-values(((for-label124_0"
+" spec125_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26281,12 +26278,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((for-label136_0)"
+"(let-values(((for-label126_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec137_0)"
+"((spec127_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26309,18 +26306,18 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" for-label136_0"
-" spec137_0))"
+" for-label126_0"
+" spec127_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                   \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" for-label134_0"
-" spec135_0))))))"
+" for-label124_0"
+" spec125_0))))))"
 "(loop_0"
-" spec135_0"
+" spec125_0"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26345,16 +26342,16 @@ static const char *startup_source =
 " just-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_0"
-" just-meta138_0"
-" phase-level139_0"
-" spec140_0)"
+" just-meta128_0"
+" phase-level129_0"
+" spec130_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((just-meta138_0"
-" phase-level139_0"
-" spec140_0)"
+"(let-values(((just-meta128_0"
+" phase-level129_0"
+" spec130_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26363,13 +26360,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((just-meta141_0)"
+"(let-values(((just-meta131_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((phase-level142_0"
-" spec143_0)"
+"((phase-level132_0"
+" spec133_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26381,12 +26378,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((phase-level144_0)"
+"(let-values(((phase-level134_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((spec145_0)"
+"((spec135_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -26409,28 +26406,28 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" phase-level144_0"
-" spec145_0))"
+" phase-level134_0"
+" spec135_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                         \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" just-meta141_0"
-" phase-level142_0"
-" spec143_0))"
+" just-meta131_0"
+" phase-level132_0"
+" spec133_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                     \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" just-meta138_0"
-" phase-level139_0"
-" spec140_0))))))"
+" just-meta128_0"
+" phase-level129_0"
+" spec130_0))))))"
 "(let-values(((p_0)"
 "(syntax-e$1"
-" phase-level139_0)))"
+" phase-level129_0)))"
 "(begin"
 "(if(phase?"
 " p_0)"
@@ -26442,7 +26439,7 @@ static const char *startup_source =
 " orig-s_0"
 " req_0)))"
 "(loop_0"
-" spec140_0"
+" spec130_0"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26464,16 +26461,16 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_0"
-" only146_0"
-" spec147_0"
-" id148_0)"
+" only136_0"
+" spec137_0"
+" id138_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((only146_0"
-" spec147_0"
-" id148_0)"
+"(let-values(((only136_0"
+" spec137_0"
+" id138_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26482,13 +26479,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((only149_0)"
+"(let-values(((only139_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec150_0"
-" id151_0)"
+"((spec140_0"
+" id141_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26500,12 +26497,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((spec152_0)"
+"(let-values(((spec142_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((id153_0)"
+"((id143_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -26554,7 +26551,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id154_0)"
+"(let-values(((id144_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -26574,7 +26571,7 @@ static const char *startup_source =
 " orig-s_1"
 " s_6)))))"
 "(cons"
-" id154_0"
+" id144_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -26591,28 +26588,28 @@ static const char *startup_source =
 "(reverse$1"
 " id_0)))))))))"
 "(values"
-" spec152_0"
-" id153_0))"
+" spec142_0"
+" id143_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" only149_0"
-" spec150_0"
-" id151_0))"
+" only139_0"
+" spec140_0"
+" id141_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                       \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" only146_0"
-" spec147_0"
-" id148_0))))))"
+" only136_0"
+" spec137_0"
+" id138_0))))))"
 "(loop_0"
 "(list"
-" spec147_0)"
+" spec137_0)"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26622,7 +26619,7 @@ static const char *startup_source =
 " just-meta_0"
 "(adjust-only1.1"
 "(ids->sym-set"
-" id148_0))"
+" id138_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -26636,16 +26633,16 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_0"
-" prefix155_0"
-" id:prefix156_0"
-" spec157_0)"
+" prefix145_0"
+" id:prefix146_0"
+" spec147_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((prefix155_0"
-" id:prefix156_0"
-" spec157_0)"
+"(let-values(((prefix145_0"
+" id:prefix146_0"
+" spec147_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26654,13 +26651,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((prefix158_0)"
+"(let-values(((prefix148_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((id:prefix159_0"
-" spec160_0)"
+"((id:prefix149_0"
+" spec150_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26672,7 +26669,7 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((id:prefix161_0)"
+"(let-values(((id:prefix151_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -26693,7 +26690,7 @@ static const char *startup_source =
 "                                                                                                                                                                                                                               \"not an identifier\""
 " orig-s_1"
 " s_4))))"
-"((spec162_0)"
+"((spec152_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -26705,7 +26702,7 @@ static const char *startup_source =
 " s_4)))"
 "(if(pair?"
 " s_5)"
-"(let-values(((spec163_0)"
+"(let-values(((spec153_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
@@ -26728,34 +26725,34 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" spec163_0))"
+" spec153_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" id:prefix161_0"
-" spec162_0))"
+" id:prefix151_0"
+" spec152_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" prefix158_0"
-" id:prefix159_0"
-" spec160_0))"
+" prefix148_0"
+" id:prefix149_0"
+" spec150_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                         \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" prefix155_0"
-" id:prefix156_0"
-" spec157_0))))))"
+" prefix145_0"
+" id:prefix146_0"
+" spec147_0))))))"
 "(loop_0"
 "(list"
-" spec157_0)"
+" spec147_0)"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26765,7 +26762,7 @@ static const char *startup_source =
 " just-meta_0"
 "(adjust-prefix2.1"
 "(syntax-e$1"
-" id:prefix156_0))"
+" id:prefix146_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -26779,16 +26776,16 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_0"
-" all-except164_0"
-" spec165_0"
-" id166_0)"
+" all-except154_0"
+" spec155_0"
+" id156_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((all-except164_0"
-" spec165_0"
-" id166_0)"
+"(let-values(((all-except154_0"
+" spec155_0"
+" id156_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26797,13 +26794,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((all-except167_0)"
+"(let-values(((all-except157_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec168_0"
-" id169_0)"
+"((spec158_0"
+" id159_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26815,12 +26812,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((spec170_0)"
+"(let-values(((spec160_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((id171_0)"
+"((id161_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -26869,7 +26866,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id172_0)"
+"(let-values(((id162_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -26889,7 +26886,7 @@ static const char *startup_source =
 " orig-s_1"
 " s_6)))))"
 "(cons"
-" id172_0"
+" id162_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -26906,28 +26903,28 @@ static const char *startup_source =
 "(reverse$1"
 " id_0)))))))))"
 "(values"
-" spec170_0"
-" id171_0))"
+" spec160_0"
+" id161_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" all-except167_0"
-" spec168_0"
-" id169_0))"
+" all-except157_0"
+" spec158_0"
+" id159_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                           \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" all-except164_0"
-" spec165_0"
-" id166_0))))))"
+" all-except154_0"
+" spec155_0"
+" id156_0))))))"
 "(loop_0"
 "(list"
-" spec165_0)"
+" spec155_0)"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -26938,7 +26935,7 @@ static const char *startup_source =
 "(adjust-all-except3.1"
 " '||"
 "(ids->sym-set"
-" id166_0))"
+" id156_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -26952,18 +26949,18 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_0"
-" prefix-all-except173_0"
-" id:prefix174_0"
-" spec175_0"
-" id176_0)"
+" prefix-all-except163_0"
+" id:prefix164_0"
+" spec165_0"
+" id166_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((prefix-all-except173_0"
-" id:prefix174_0"
-" spec175_0"
-" id176_0)"
+"(let-values(((prefix-all-except163_0"
+" id:prefix164_0"
+" spec165_0"
+" id166_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -26972,14 +26969,14 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((prefix-all-except177_0)"
+"(let-values(((prefix-all-except167_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((id:prefix178_0"
-" spec179_0"
-" id180_0)"
+"((id:prefix168_0"
+" spec169_0"
+" id170_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -26991,7 +26988,7 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((id:prefix181_0)"
+"(let-values(((id:prefix171_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -27012,8 +27009,8 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                   \"not an identifier\""
 " orig-s_1"
 " s_4))))"
-"((spec182_0"
-" id183_0)"
+"((spec172_0"
+" id173_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -27025,12 +27022,12 @@ static const char *startup_source =
 " s_4)))"
 "(if(pair?"
 " s_5)"
-"(let-values(((spec184_0)"
+"(let-values(((spec174_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
 " s_6))"
-"((id185_0)"
+"((id175_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
@@ -27079,7 +27076,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id186_0)"
+"(let-values(((id176_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -27099,7 +27096,7 @@ static const char *startup_source =
 " orig-s_1"
 " s_8)))))"
 "(cons"
-" id186_0"
+" id176_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -27116,38 +27113,38 @@ static const char *startup_source =
 "(reverse$1"
 " id_0)))))))))"
 "(values"
-" spec184_0"
-" id185_0))"
+" spec174_0"
+" id175_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" id:prefix181_0"
-" spec182_0"
-" id183_0))"
+" id:prefix171_0"
+" spec172_0"
+" id173_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" prefix-all-except177_0"
-" id:prefix178_0"
-" spec179_0"
-" id180_0))"
+" prefix-all-except167_0"
+" id:prefix168_0"
+" spec169_0"
+" id170_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                             \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" prefix-all-except173_0"
-" id:prefix174_0"
-" spec175_0"
-" id176_0))))))"
+" prefix-all-except163_0"
+" id:prefix164_0"
+" spec165_0"
+" id166_0))))))"
 "(loop_0"
 "(list"
-" spec175_0)"
+" spec165_0)"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -27157,9 +27154,9 @@ static const char *startup_source =
 " just-meta_0"
 "(adjust-all-except3.1"
 "(syntax-e$1"
-" id:prefix174_0)"
+" id:prefix164_0)"
 "(ids->sym-set"
-" id176_0))"
+" id166_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -27173,18 +27170,18 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_0"
-" rename187_0"
-" spec188_0"
-" id:to189_0"
-" id:from190_0)"
+" rename177_0"
+" spec178_0"
+" id:to179_0"
+" id:from180_0)"
 "(let-values(((s_0)"
 " req_0))"
 "(let-values(((orig-s_1)"
 " s_0))"
-"(let-values(((rename187_0"
-" spec188_0"
-" id:to189_0"
-" id:from190_0)"
+"(let-values(((rename177_0"
+" spec178_0"
+" id:to179_0"
+" id:from180_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -27193,14 +27190,14 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((rename191_0)"
+"(let-values(((rename181_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec192_0"
-" id:to193_0"
-" id:from194_0)"
+"((spec182_0"
+" id:to183_0"
+" id:from184_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -27212,13 +27209,13 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((spec195_0)"
+"(let-values(((spec185_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((id:to196_0"
-" id:from197_0)"
+"((id:to186_0"
+" id:from187_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -27230,7 +27227,7 @@ static const char *startup_source =
 " s_4)))"
 "(if(pair?"
 " s_5)"
-"(let-values(((id:to198_0)"
+"(let-values(((id:to188_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
@@ -27251,7 +27248,7 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                         \"not an identifier\""
 " orig-s_1"
 " s_6))))"
-"((id:from199_0)"
+"((id:from189_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
@@ -27263,7 +27260,7 @@ static const char *startup_source =
 " s_6)))"
 "(if(pair?"
 " s_7)"
-"(let-values(((id:from200_0)"
+"(let-values(((id:from190_0)"
 "(let-values(((s_8)"
 "(car"
 " s_7)))"
@@ -27302,44 +27299,44 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" id:from200_0))"
+" id:from190_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" id:to198_0"
-" id:from199_0))"
+" id:to188_0"
+" id:from189_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                       \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" spec195_0"
-" id:to196_0"
-" id:from197_0))"
+" spec185_0"
+" id:to186_0"
+" id:from187_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_1))))))"
 "(values"
-" rename191_0"
-" spec192_0"
-" id:to193_0"
-" id:from194_0))"
+" rename181_0"
+" spec182_0"
+" id:to183_0"
+" id:from184_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                               \"bad syntax\""
 " orig-s_1)))))"
 "(values"
 " #t"
-" rename187_0"
-" spec188_0"
-" id:to189_0"
-" id:from190_0))))))"
+" rename177_0"
+" spec178_0"
+" id:to179_0"
+" id:from180_0))))))"
 "(loop_0"
 "(list"
-" spec188_0)"
+" spec178_0)"
 "(let-values(((or-part_0)"
 " top-req_0))"
 "(if or-part_0"
@@ -27348,9 +27345,9 @@ static const char *startup_source =
 " phase-shift_1"
 " just-meta_0"
 "(adjust-rename4.1"
-" id:to189_0"
+" id:to179_0"
 "(syntax-e$1"
-" id:from190_0))"
+" id:from180_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -27398,75 +27395,75 @@ static const char *startup_source =
 " maybe-mp_0)"
 " maybe-mp_0)))"
 "(let-values(((mpi_0)"
-"(let-values(((mp218_0)"
+"(let-values(((mp208_0)"
 " mp_0)"
-"((self219_0)"
+"((self209_0)"
 " self_0)"
-"((declared-submodule-names220_0)"
+"((declared-submodule-names210_0)"
 " declared-submodule-names_0))"
-"(module-path->mpi5.1"
-" declared-submodule-names220_0"
-" mp218_0"
-" self219_0))))"
+"(module-path->mpi.1"
+" declared-submodule-names210_0"
+" mp208_0"
+" self209_0))))"
 "(begin"
-"(let-values(((mpi201_0)"
+"(let-values(((mpi191_0)"
 " mpi_0)"
-"((req202_0)"
+"((req192_0)"
 " req_0)"
-"((self203_0)"
+"((self193_0)"
 " self_0)"
-"((temp204_0)"
+"((temp194_0)"
 "(let-values(((or-part_0)"
 " req_0))"
 "(if or-part_0"
 " or-part_0"
 " top-req_0)))"
-"((m-ns205_0)"
+"((m-ns195_0)"
 " m-ns_0)"
-"((phase-shift206_0)"
+"((phase-shift196_0)"
 " phase-shift_1)"
-"((run-phase207_0)"
+"((run-phase197_0)"
 " run-phase_0)"
-"((just-meta208_0)"
+"((just-meta198_0)"
 " just-meta_0)"
-"((adjust209_0)"
+"((adjust199_0)"
 " adjust_0)"
-"((requires+provides210_0)"
+"((requires+provides200_0)"
 " requires+provides_0)"
-"((run?211_0)"
+"((run?201_0)"
 " run?_0)"
-"((visit?212_0)"
+"((visit?202_0)"
 " visit?_0)"
-"((copy-variable-phase-level213_0)"
+"((copy-variable-phase-level203_0)"
 " copy-variable-phase-level_0)"
-"((copy-variable-as-constant?214_0)"
+"((copy-variable-as-constant?204_0)"
 " copy-variable-as-constant?_0)"
-"((skip-variable-phase-level215_0)"
+"((skip-variable-phase-level205_0)"
 " skip-variable-phase-level_0)"
-"((initial-require?216_0)"
+"((initial-require?206_0)"
 " initial-require?_0)"
-"((who217_0)"
+"((who207_0)"
 " who_0))"
-"(perform-require!78.1"
-" adjust209_0"
+"(perform-require!.1"
+" adjust199_0"
 " #t"
 " #f"
-" copy-variable-as-constant?214_0"
-" copy-variable-phase-level213_0"
-" initial-require?216_0"
-" just-meta208_0"
-" phase-shift206_0"
-" requires+provides210_0"
-" run-phase207_0"
-" run?211_0"
-" skip-variable-phase-level215_0"
-" visit?212_0"
-" who217_0"
-" mpi201_0"
-" req202_0"
-" self203_0"
-" temp204_0"
-" m-ns205_0))"
+" copy-variable-as-constant?204_0"
+" copy-variable-phase-level203_0"
+" initial-require?206_0"
+" just-meta198_0"
+" phase-shift196_0"
+" requires+provides200_0"
+" run-phase197_0"
+" run?201_0"
+" skip-variable-phase-level205_0"
+" visit?202_0"
+" who207_0"
+" mpi191_0"
+" req192_0"
+" self193_0"
+" temp194_0"
+" m-ns195_0))"
 "(set! initial-require?_0"
 " #f)))))))))))))))))))))))))"
 "(values"
@@ -27524,94 +27521,94 @@ static const char *startup_source =
 " '#hash()"
 " lst_0))))))"
 "(define-values"
-"(perform-initial-require!42.1)"
-"(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)"
+"(perform-initial-require!.1)"
+"(lambda(bind?31_0 who32_0 mod-path35_0 self36_0 in-stx37_0 m-ns38_0 requires+provides39_0)"
 "(begin"
-" 'perform-initial-require!42"
-"(let-values(((mod-path_0) mod-path37_0))"
-"(let-values(((self_0) self38_0))"
-"(let-values(((in-stx_0) in-stx39_0))"
-"(let-values(((m-ns_0) m-ns40_0))"
-"(let-values(((requires+provides_0) requires+provides41_0))"
-"(let-values(((bind?_0) bind?33_0))"
-"(let-values(((who_0) who34_0))"
+" 'perform-initial-require!"
+"(let-values(((mod-path_0) mod-path35_0))"
+"(let-values(((self_0) self36_0))"
+"(let-values(((in-stx_0) in-stx37_0))"
+"(let-values(((m-ns_0) m-ns38_0))"
+"(let-values(((requires+provides_0) requires+provides39_0))"
+"(let-values(((bind?_0) bind?31_0))"
+"(let-values(((who_0) who32_0))"
 "(let-values()"
-"(let-values(((temp221_0)"
-"(let-values(((mod-path233_0) mod-path_0)((self234_0) self_0))"
-"(module-path->mpi5.1 unsafe-undefined mod-path233_0 self234_0)))"
-"((temp222_0) #f)"
-"((self223_0) self_0)"
-"((in-stx224_0) in-stx_0)"
-"((m-ns225_0) m-ns_0)"
-"((temp226_0) 0)"
-"((temp227_0) 0)"
-"((requires+provides228_0) requires+provides_0)"
-"((temp229_0) #t)"
-"((temp230_0) #t)"
-"((bind?231_0) bind?_0)"
-"((who232_0) who_0))"
-"(perform-require!78.1"
+"(let-values(((temp211_0)"
+"(let-values(((mod-path223_0) mod-path_0)((self224_0) self_0))"
+"(module-path->mpi.1 unsafe-undefined mod-path223_0 self224_0)))"
+"((temp212_0) #f)"
+"((self213_0) self_0)"
+"((in-stx214_0) in-stx_0)"
+"((m-ns215_0) m-ns_0)"
+"((temp216_0) 0)"
+"((temp217_0) 0)"
+"((requires+provides218_0) requires+provides_0)"
+"((temp219_0) #t)"
+"((temp220_0) #t)"
+"((bind?221_0) bind?_0)"
+"((who222_0) who_0))"
+"(perform-require!.1"
 " #f"
-" bind?231_0"
-" temp229_0"
+" bind?221_0"
+" temp219_0"
 " #f"
 " #f"
-" temp230_0"
+" temp220_0"
 " 'all"
-" temp226_0"
-" requires+provides228_0"
-" temp227_0"
+" temp216_0"
+" requires+provides218_0"
+" temp217_0"
 " #f"
 " #f"
 " #t"
-" who232_0"
-" temp221_0"
-" temp222_0"
-" self223_0"
-" in-stx224_0"
-" m-ns225_0)))))))))))))"
+" who222_0"
+" temp211_0"
+" temp212_0"
+" self213_0"
+" in-stx214_0"
+" m-ns215_0)))))))))))))"
 "(define-values"
-"(perform-require!78.1)"
-"(lambda(adjust48_0"
-" bind?57_0"
-" can-be-shadowed?52_0"
-" copy-variable-as-constant?55_0"
-" copy-variable-phase-level54_0"
-" initial-require?53_0"
-" just-meta47_0"
-" phase-shift45_0"
-" requires+provides49_0"
-" run-phase46_0"
-" run?51_0"
-" skip-variable-phase-level56_0"
-" visit?50_0"
-" who58_0"
-" mpi73_0"
-" orig-s74_0"
-" self75_0"
-" in-stx76_0"
-" m-ns77_0)"
+"(perform-require!.1)"
+"(lambda(adjust44_0"
+" bind?53_0"
+" can-be-shadowed?48_0"
+" copy-variable-as-constant?51_0"
+" copy-variable-phase-level50_0"
+" initial-require?49_0"
+" just-meta43_0"
+" phase-shift41_0"
+" requires+provides45_0"
+" run-phase42_0"
+" run?47_0"
+" skip-variable-phase-level52_0"
+" visit?46_0"
+" who54_0"
+" mpi69_0"
+" orig-s70_0"
+" self71_0"
+" in-stx72_0"
+" m-ns73_0)"
 "(begin"
-" 'perform-require!78"
-"(let-values(((mpi_0) mpi73_0))"
-"(let-values(((orig-s_0) orig-s74_0))"
+" 'perform-require!"
+"(let-values(((mpi_0) mpi69_0))"
+"(let-values(((orig-s_0) orig-s70_0))"
 "(let-values()"
-"(let-values(((in-stx_0) in-stx76_0))"
-"(let-values(((m-ns_0) m-ns77_0))"
-"(let-values(((phase-shift_0) phase-shift45_0))"
-"(let-values(((run-phase_0) run-phase46_0))"
-"(let-values(((just-meta_0) just-meta47_0))"
-"(let-values(((adjust_0) adjust48_0))"
-"(let-values(((requires+provides_0) requires+provides49_0))"
-"(let-values(((visit?_0) visit?50_0))"
-"(let-values(((run?_0) run?51_0))"
-"(let-values(((can-be-shadowed?_0) can-be-shadowed?52_0))"
-"(let-values(((initial-require?_0) initial-require?53_0))"
-"(let-values(((copy-variable-phase-level_0) copy-variable-phase-level54_0))"
-"(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?55_0))"
-"(let-values(((skip-variable-phase-level_0) skip-variable-phase-level56_0))"
-"(let-values(((bind?_0) bind?57_0))"
-"(let-values(((who_0) who58_0))"
+"(let-values(((in-stx_0) in-stx72_0))"
+"(let-values(((m-ns_0) m-ns73_0))"
+"(let-values(((phase-shift_0) phase-shift41_0))"
+"(let-values(((run-phase_0) run-phase42_0))"
+"(let-values(((just-meta_0) just-meta43_0))"
+"(let-values(((adjust_0) adjust44_0))"
+"(let-values(((requires+provides_0) requires+provides45_0))"
+"(let-values(((visit?_0) visit?46_0))"
+"(let-values(((run?_0) run?47_0))"
+"(let-values(((can-be-shadowed?_0) can-be-shadowed?48_0))"
+"(let-values(((initial-require?_0) initial-require?49_0))"
+"(let-values(((copy-variable-phase-level_0) copy-variable-phase-level50_0))"
+"(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?51_0))"
+"(let-values(((skip-variable-phase-level_0) skip-variable-phase-level52_0))"
+"(let-values(((bind?_0) bind?53_0))"
+"(let-values(((who_0) who54_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?"
@@ -27648,39 +27645,39 @@ static const char *startup_source =
 "(begin"
 "(if visit?_0"
 "(let-values()"
-"(let-values(((m-ns251_0) m-ns_0)"
-"((interned-mpi252_0)"
+"(let-values(((m-ns241_0) m-ns_0)"
+"((interned-mpi242_0)"
 " interned-mpi_0)"
-"((phase-shift253_0)"
+"((phase-shift243_0)"
 " phase-shift_0)"
-"((run-phase254_0)"
+"((run-phase244_0)"
 " run-phase_0))"
-"(namespace-module-visit!104.1"
-" run-phase254_0"
-" m-ns251_0"
-" interned-mpi252_0"
-" phase-shift253_0)))"
+"(namespace-module-visit!.1"
+" run-phase244_0"
+" m-ns241_0"
+" interned-mpi242_0"
+" phase-shift243_0)))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if run?_0"
 "(let-values()"
-"(let-values(((m-ns255_0) m-ns_0)"
-"((interned-mpi256_0)"
+"(let-values(((m-ns245_0) m-ns_0)"
+"((interned-mpi246_0)"
 " interned-mpi_0)"
-"((phase-shift257_0)"
+"((phase-shift247_0)"
 " phase-shift_0)"
-"((run-phase258_0)"
+"((run-phase248_0)"
 " run-phase_0))"
-"(namespace-module-instantiate!96.1"
+"(namespace-module-instantiate!.1"
 " #t"
-" run-phase258_0"
+" run-phase248_0"
 " unsafe-undefined"
 " #f"
-" m-ns255_0"
-" interned-mpi256_0"
-" phase-shift257_0)))"
+" m-ns245_0"
+" interned-mpi246_0"
+" phase-shift247_0)))"
 "(void))"
 "(values))))"
 "(let-values((()"
@@ -27692,19 +27689,19 @@ static const char *startup_source =
 " or-part_0"
 " run?_0)))"
 "(let-values()"
-"(let-values(((m-ns259_0)"
+"(let-values(((m-ns249_0)"
 " m-ns_0)"
-"((interned-mpi260_0)"
+"((interned-mpi250_0)"
 " interned-mpi_0)"
-"((phase-shift261_0)"
+"((phase-shift251_0)"
 " phase-shift_0)"
-"((run-phase262_0)"
+"((run-phase252_0)"
 " run-phase_0))"
-"(namespace-module-make-available!112.1"
-" run-phase262_0"
-" m-ns259_0"
-" interned-mpi260_0"
-" phase-shift261_0)))"
+"(namespace-module-make-available!.1"
+" run-phase252_0"
+" m-ns249_0"
+" interned-mpi250_0"
+" phase-shift251_0)))"
 "(void))"
 "(values))))"
 "(let-values(((can-bulk-bind?_0)"
@@ -27744,26 +27741,26 @@ static const char *startup_source =
 " #f)))"
 "(let-values((()"
 "(begin"
-"(let-values(((m235_0)"
+"(let-values(((m225_0)"
 " m_0)"
-"((bind-in-stx236_0)"
+"((bind-in-stx226_0)"
 " bind-in-stx_0)"
-"((phase-shift237_0)"
+"((phase-shift227_0)"
 " phase-shift_0)"
-"((m-ns238_0)"
+"((m-ns228_0)"
 " m-ns_0)"
-"((interned-mpi239_0)"
+"((interned-mpi229_0)"
 " interned-mpi_0)"
-"((module-name240_0)"
+"((module-name230_0)"
 " module-name_0)"
-"((orig-s241_0)"
+"((orig-s231_0)"
 " orig-s_0)"
-"((temp242_0)"
+"((temp232_0)"
 "(if requires+provides_0"
 "(requires+provides-self"
 " requires+provides_0)"
 " #f))"
-"((temp243_0)"
+"((temp233_0)"
 "(if(adjust-only?"
 " adjust_0)"
 "(let-values()"
@@ -27778,78 +27775,78 @@ static const char *startup_source =
 " adjust_0)))"
 "(let-values()"
 " #f))))"
-"((just-meta244_0)"
+"((just-meta234_0)"
 " just-meta_0)"
-"((bind?245_0)"
+"((bind?235_0)"
 " bind?_0)"
-"((can-bulk-bind?246_0)"
+"((can-bulk-bind?236_0)"
 " can-bulk-bind?_0)"
-"((bulk-prefix247_0)"
+"((bulk-prefix237_0)"
 " bulk-prefix_0)"
-"((bulk-excepts248_0)"
+"((bulk-excepts238_0)"
 " bulk-excepts_0)"
-"((temp249_0)"
+"((temp239_0)"
 "(if requires+provides_0"
 "(if can-bulk-bind?_0"
 "(lambda(provides_0"
 " provide-phase-level_0)"
 "(begin"
-" 'temp249"
-"(let-values(((requires+provides263_0)"
+" 'temp239"
+"(let-values(((requires+provides253_0)"
 " requires+provides_0)"
-"((bind-in-stx264_0)"
+"((bind-in-stx254_0)"
 " bind-in-stx_0)"
-"((temp265_0)"
+"((temp255_0)"
 "(module-self"
 " m_0))"
-"((mpi266_0)"
+"((mpi256_0)"
 " mpi_0)"
-"((phase-shift267_0)"
+"((phase-shift257_0)"
 " phase-shift_0)"
-"((provides268_0)"
+"((provides258_0)"
 " provides_0)"
-"((provide-phase-level269_0)"
+"((provide-phase-level259_0)"
 " provide-phase-level_0)"
-"((bulk-prefix270_0)"
+"((bulk-prefix260_0)"
 " bulk-prefix_0)"
-"((bulk-excepts271_0)"
+"((bulk-excepts261_0)"
 " bulk-excepts_0)"
-"((temp272_0)"
+"((temp262_0)"
 "(if(positive?"
 "(hash-count"
 " bulk-excepts_0))"
 " done-syms_0"
 " #f))"
-"((can-be-shadowed?273_0)"
+"((can-be-shadowed?263_0)"
 " can-be-shadowed?_0)"
-"((temp274_0)"
+"((temp264_0)"
 "(not"
 " initial-require?_0))"
-"((orig-s275_0)"
+"((orig-s265_0)"
 " orig-s_0)"
-"((update-nominals-box276_0)"
+"((update-nominals-box266_0)"
 " update-nominals-box_0)"
-"((who277_0)"
+"((who267_0)"
 " who_0))"
-"(add-bulk-required-ids!59.1"
-" update-nominals-box276_0"
-" can-be-shadowed?273_0"
-" temp274_0"
-" bulk-excepts271_0"
-" orig-s275_0"
-" bulk-prefix270_0"
-" temp272_0"
-" who277_0"
-" requires+provides263_0"
-" bind-in-stx264_0"
-" temp265_0"
-" mpi266_0"
-" phase-shift267_0"
-" provides268_0"
-" provide-phase-level269_0))))"
+"(add-bulk-required-ids!.1"
+" update-nominals-box266_0"
+" can-be-shadowed?263_0"
+" temp264_0"
+" bulk-excepts261_0"
+" orig-s265_0"
+" bulk-prefix260_0"
+" temp262_0"
+" who267_0"
+" requires+provides253_0"
+" bind-in-stx254_0"
+" temp255_0"
+" mpi256_0"
+" phase-shift257_0"
+" provides258_0"
+" provide-phase-level259_0))))"
 " #f)"
 " #f))"
-"((temp250_0)"
+"((temp240_0)"
 "(if(let-values(((or-part_0)"
 "(not"
 " can-bulk-bind?_0)))"
@@ -27859,7 +27856,7 @@ static const char *startup_source =
 "(lambda(binding_0"
 " as-transformer?_0)"
 "(begin"
-" 'temp250"
+" 'temp240"
 "(let-values(((sym_0)"
 "(module-binding-nominal-sym"
 " binding_0)))"
@@ -27965,58 +27962,58 @@ static const char *startup_source =
 "(let-values()"
 " #f)"
 "(let-values()"
-"(let-values(((temp278_0)"
+"(let-values(((temp268_0)"
 " #t)"
-"((temp279_0)"
+"((temp269_0)"
 " #t)"
-"((requires+provides280_0)"
+"((requires+provides270_0)"
 " requires+provides_0)"
-"((s281_0)"
+"((s271_0)"
 " s_0)"
-"((bind-phase282_0)"
+"((bind-phase272_0)"
 " bind-phase_0)"
-"((binding283_0)"
+"((binding273_0)"
 " binding_0)"
-"((orig-s284_0)"
+"((orig-s274_0)"
 " orig-s_0)"
-"((temp285_0)"
+"((temp275_0)"
 " #t)"
-"((who286_0)"
+"((who276_0)"
 " who_0))"
-"(check-not-defined95.1"
+"(check-not-defined.1"
 " #f"
-" temp279_0"
-" temp278_0"
-" orig-s284_0"
-" temp285_0"
-" binding283_0"
-" who286_0"
-" requires+provides280_0"
-" s281_0"
-" bind-phase282_0))))))"
+" temp269_0"
+" temp268_0"
+" orig-s274_0"
+" temp275_0"
+" binding273_0"
+" who276_0"
+" requires+provides270_0"
+" s271_0"
+" bind-phase272_0))))))"
 "(begin"
 "(if skip-bind?_0"
 "(void)"
 "(let-values()"
-"(let-values(((requires+provides287_0)"
+"(let-values(((requires+provides277_0)"
 " requires+provides_0)"
-"((s288_0)"
+"((s278_0)"
 " s_0)"
-"((bind-phase289_0)"
+"((bind-phase279_0)"
 " bind-phase_0)"
-"((binding290_0)"
+"((binding280_0)"
 " binding_0)"
-"((can-be-shadowed?291_0)"
+"((can-be-shadowed?281_0)"
 " can-be-shadowed?_0)"
-"((as-transformer?292_0)"
+"((as-transformer?282_0)"
 " as-transformer?_0))"
-"(add-defined-or-required-id!19.1"
-" as-transformer?292_0"
-" can-be-shadowed?291_0"
-" requires+provides287_0"
-" s288_0"
-" bind-phase289_0"
-" binding290_0))))"
+"(add-defined-or-required-id!.1"
+" as-transformer?282_0"
+" can-be-shadowed?281_0"
+" requires+provides277_0"
+" s278_0"
+" bind-phase279_0"
+" binding280_0))))"
 " skip-bind?_0)))))"
 "(let-values()"
 " #f))))"
@@ -28043,23 +28040,23 @@ static const char *startup_source =
 " adjusted-sym_0"
 " #f))))))))"
 " #f)))"
-"(bind-all-provides!107.1"
-" bind?245_0"
-" temp249_0"
-" bulk-excepts248_0"
-" bulk-prefix247_0"
-" can-bulk-bind?246_0"
-" temp242_0"
-" temp250_0"
-" orig-s241_0"
-" just-meta244_0"
-" temp243_0"
-" m235_0"
-" bind-in-stx236_0"
-" phase-shift237_0"
-" m-ns238_0"
-" interned-mpi239_0"
-" module-name240_0))"
+"(bind-all-provides!.1"
+" bind?235_0"
+" temp239_0"
+" bulk-excepts238_0"
+" bulk-prefix237_0"
+" can-bulk-bind?236_0"
+" temp232_0"
+" temp240_0"
+" orig-s231_0"
+" just-meta234_0"
+" temp233_0"
+" m225_0"
+" bind-in-stx226_0"
+" phase-shift227_0"
+" m-ns228_0"
+" interned-mpi229_0"
+" module-name230_0))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -28189,41 +28186,41 @@ static const char *startup_source =
 "(let-values()(end-performance-region))"
 "(void)))))))))))))))))))))))))))"
 "(define-values"
-"(bind-all-provides!107.1)"
-"(lambda(bind?85_0"
-" bulk-callback90_0"
-" bulk-excepts88_0"
-" bulk-prefix87_0"
-" can-bulk?86_0"
-" defines-mpi82_0"
-" filter89_0"
-" in81_0"
-" just-meta84_0"
-" only83_0"
-" m101_0"
-" in-stx102_0"
-" phase-shift103_0"
-" ns104_0"
-" mpi105_0"
-" module-name106_0)"
+"(bind-all-provides!.1)"
+"(lambda(bind?79_0"
+" bulk-callback84_0"
+" bulk-excepts82_0"
+" bulk-prefix81_0"
+" can-bulk?80_0"
+" defines-mpi76_0"
+" filter83_0"
+" in75_0"
+" just-meta78_0"
+" only77_0"
+" m95_0"
+" in-stx96_0"
+" phase-shift97_0"
+" ns98_0"
+" mpi99_0"
+" module-name100_0)"
 "(begin"
-" 'bind-all-provides!107"
-"(let-values(((m_0) m101_0))"
-"(let-values(((in-stx_0) in-stx102_0))"
-"(let-values(((phase-shift_0) phase-shift103_0))"
-"(let-values(((ns_0) ns104_0))"
-"(let-values(((mpi_0) mpi105_0))"
-"(let-values(((module-name_0) module-name106_0))"
-"(let-values(((orig-s_0) in81_0))"
-"(let-values(((defines-mpi_0) defines-mpi82_0))"
-"(let-values(((only-syms_0) only83_0))"
-"(let-values(((just-meta_0) just-meta84_0))"
-"(let-values(((bind?_0) bind?85_0))"
-"(let-values(((can-bulk?_0) can-bulk?86_0))"
-"(let-values(((bulk-prefix_0) bulk-prefix87_0))"
-"(let-values(((bulk-excepts_0) bulk-excepts88_0))"
-"(let-values(((filter_0) filter89_0))"
-"(let-values(((bulk-callback_0) bulk-callback90_0))"
+" 'bind-all-provides!"
+"(let-values(((m_0) m95_0))"
+"(let-values(((in-stx_0) in-stx96_0))"
+"(let-values(((phase-shift_0) phase-shift97_0))"
+"(let-values(((ns_0) ns98_0))"
+"(let-values(((mpi_0) mpi99_0))"
+"(let-values(((module-name_0) module-name100_0))"
+"(let-values(((orig-s_0) in75_0))"
+"(let-values(((defines-mpi_0) defines-mpi76_0))"
+"(let-values(((only-syms_0) only77_0))"
+"(let-values(((just-meta_0) just-meta78_0))"
+"(let-values(((bind?_0) bind?79_0))"
+"(let-values(((can-bulk?_0) can-bulk?80_0))"
+"(let-values(((bulk-prefix_0) bulk-prefix81_0))"
+"(let-values(((bulk-excepts_0) bulk-excepts82_0))"
+"(let-values(((filter_0) filter83_0))"
+"(let-values(((bulk-callback_0) bulk-callback84_0))"
 "(let-values()"
 "(let-values(((self_0)(module-self m_0)))"
 "(begin"
@@ -28313,25 +28310,25 @@ static const char *startup_source =
 "(if binding/p_0"
 "(let-values()"
 "(let-values(((b_0)"
-"(let-values(((binding/p293_0)"
+"(let-values(((binding/p283_0)"
 " binding/p_0)"
-"((sym294_0)"
+"((sym284_0)"
 " sym_0)"
-"((self295_0)"
+"((self285_0)"
 " self_0)"
-"((mpi296_0)"
+"((mpi286_0)"
 " mpi_0)"
-"((provide-phase-level297_0)"
+"((provide-phase-level287_0)"
 " provide-phase-level_0)"
-"((phase-shift298_0)"
+"((phase-shift288_0)"
 " phase-shift_0))"
-"(provide-binding-to-require-binding11.1"
-" mpi296_0"
-" phase-shift298_0"
-" provide-phase-level297_0"
-" self295_0"
-" binding/p293_0"
-" sym294_0))))"
+"(provide-binding-to-require-binding.1"
+" mpi286_0"
+" phase-shift288_0"
+" provide-phase-level287_0"
+" self285_0"
+" binding/p283_0"
+" sym284_0))))"
 "(let-values(((sym_1)"
 "(filter_0"
 " b_0"
@@ -28342,20 +28339,20 @@ static const char *startup_source =
 " can-bulk?_0)"
 " #f)"
 "(let-values()"
-"(let-values(((temp299_0)"
+"(let-values(((temp289_0)"
 "(datum->syntax$1"
 " in-stx_0"
 " sym_1))"
-"((b300_0)"
+"((b290_0)"
 " b_0)"
-"((phase301_0)"
+"((phase291_0)"
 " phase_0))"
-"(add-binding!17.1"
+"(add-binding!.1"
 " #f"
 " #f"
-" temp299_0"
-" b300_0"
-" phase301_0)))"
+" temp289_0"
+" b290_0"
+" phase291_0)))"
 "(void)))))"
 "(void))))"
 "(values)))))"
@@ -28375,10 +28372,10 @@ static const char *startup_source =
 "(let-values(((bulk-binding-registry_0)"
 "(namespace-bulk-binding-registry"
 " ns_0)))"
-"(let-values(((in-stx302_0)"
+"(let-values(((in-stx292_0)"
 " in-stx_0)"
-"((temp303_0)"
-"(bulk-binding14.1"
+"((temp293_0)"
+"(bulk-binding12.1"
 "(let-values(((or-part_0)"
 "(if(not"
 " bulk-prefix_0)"
@@ -28406,20 +28403,20 @@ static const char *startup_source =
 " provide-phase-level_0"
 " phase-shift_0"
 " bulk-binding-registry_0))"
-"((phase304_0)"
+"((phase294_0)"
 " phase_0)"
-"((orig-s305_0)"
+"((orig-s295_0)"
 " orig-s_0)"
-"((temp306_0)"
+"((temp296_0)"
 "(if need-except?_0"
 " defines-mpi_0"
 " #f)))"
-"(add-bulk-binding!27.1"
-" orig-s305_0"
-" temp306_0"
-" in-stx302_0"
-" temp303_0"
-" phase304_0))))"
+"(add-bulk-binding!.1"
+" orig-s295_0"
+" temp296_0"
+" in-stx292_0"
+" temp293_0"
+" phase294_0))))"
 "(void))))"
 "(void)))))"
 "(values)))))"
@@ -28452,19 +28449,19 @@ static const char *startup_source =
 "(let-values(((tmp_0) fm_0))"
 "(if(equal? tmp_0 'for-meta)"
 "(let-values()"
-"(let-values(((ok?_0 for-meta307_0 phase-level308_0 spec309_0)"
+"(let-values(((ok?_0 for-meta297_0 phase-level298_0 spec299_0)"
 "(let-values(((s_0) req_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((for-meta307_0 phase-level308_0 spec309_0)"
+"(let-values(((for-meta297_0 phase-level298_0 spec299_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1 s_0)"
 "(syntax-e$1 s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((for-meta310_0)"
+"(let-values(((for-meta300_0)"
 "(let-values(((s_2)(car s_1)))"
 " s_2))"
-"((phase-level311_0 spec312_0)"
+"((phase-level301_0 spec302_0)"
 "(let-values(((s_2)(cdr s_1)))"
 "(let-values(((s_3)"
 "(if(syntax?$1"
@@ -28473,12 +28470,12 @@ static const char *startup_source =
 " s_2)"
 " s_2)))"
 "(if(pair? s_3)"
-"(let-values(((phase-level313_0)"
+"(let-values(((phase-level303_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((spec314_0)"
+"((spec304_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -28501,45 +28498,45 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" phase-level313_0"
-" spec314_0))"
+" phase-level303_0"
+" spec304_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" for-meta310_0"
-" phase-level311_0"
-" spec312_0))"
+" for-meta300_0"
+" phase-level301_0"
+" spec302_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                            \"bad syntax\""
 " orig-s_0)))))"
-"(values #t for-meta307_0 phase-level308_0 spec309_0))))))"
-"(let-values(((p_0)(syntax-e$1 phase-level308_0)))"
+"(values #t for-meta297_0 phase-level298_0 spec299_0))))))"
+"(let-values(((p_0)(syntax-e$1 phase-level298_0)))"
 "(begin"
 "(if(phase? p_0)"
 "(void)"
 "                                               (let-values () (raise-syntax-error$1 #f \"bad phase\" req_1)))"
 "(rebuild-req_0"
 " req_1"
-"(list* for-meta307_0(phase+ p_0 1)(map2(loop_0 #t) spec309_0)))))))"
+"(list* for-meta297_0(phase+ p_0 1)(map2(loop_0 #t) spec299_0)))))))"
 "(if(equal? tmp_0 'for-syntax)"
 "(let-values()"
-"(let-values(((ok?_0 for-syntax315_0 spec316_0)"
+"(let-values(((ok?_0 for-syntax305_0 spec306_0)"
 "(let-values(((s_0) req_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((for-syntax315_0 spec316_0)"
+"(let-values(((for-syntax305_0 spec306_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1 s_0)"
 "(syntax-e$1 s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((for-syntax317_0)"
+"(let-values(((for-syntax307_0)"
 "(let-values(((s_2)"
 "(car s_1)))"
 " s_2))"
-"((spec318_0)"
+"((spec308_0)"
 "(let-values(((s_2)"
 "(cdr s_1)))"
 "(let-values(((s_3)"
@@ -28559,29 +28556,29 @@ static const char *startup_source =
 " orig-s_0))"
 "(let-values()"
 " flat-s_0)))))))"
-"(values for-syntax317_0 spec318_0))"
+"(values for-syntax307_0 spec308_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                              \"bad syntax\""
 " orig-s_0)))))"
-"(values #t for-syntax315_0 spec316_0))))))"
-"(rebuild-req_0 req_1(list* 'for-meta 2(map2(loop_0 #t) spec316_0)))))"
+"(values #t for-syntax305_0 spec306_0))))))"
+"(rebuild-req_0 req_1(list* 'for-meta 2(map2(loop_0 #t) spec306_0)))))"
 "(if(equal? tmp_0 'for-template)"
 "(let-values()"
-"(let-values(((ok?_0 for-template319_0 spec320_0)"
+"(let-values(((ok?_0 for-template309_0 spec310_0)"
 "(let-values(((s_0) req_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((for-template319_0 spec320_0)"
+"(let-values(((for-template309_0 spec310_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1 s_0)"
 "(syntax-e$1 s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((for-template321_0)"
+"(let-values(((for-template311_0)"
 "(let-values(((s_2)"
 "(car s_1)))"
 " s_2))"
-"((spec322_0)"
+"((spec312_0)"
 "(let-values(((s_2)"
 "(cdr s_1)))"
 "(let-values(((s_3)"
@@ -28601,29 +28598,29 @@ static const char *startup_source =
 " orig-s_0))"
 "(let-values()"
 " flat-s_0)))))))"
-"(values for-template321_0 spec322_0))"
+"(values for-template311_0 spec312_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                \"bad syntax\""
 " orig-s_0)))))"
-"(values #t for-template319_0 spec320_0))))))"
-"(rebuild-req_0 req_1(list* 'for-meta 0(map2(loop_0 #t) spec320_0)))))"
+"(values #t for-template309_0 spec310_0))))))"
+"(rebuild-req_0 req_1(list* 'for-meta 0(map2(loop_0 #t) spec310_0)))))"
 "(if(equal? tmp_0 'for-label)"
 "(let-values()"
-"(let-values(((ok?_0 for-label323_0 spec324_0)"
+"(let-values(((ok?_0 for-label313_0 spec314_0)"
 "(let-values(((s_0) req_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((for-label323_0 spec324_0)"
+"(let-values(((for-label313_0 spec314_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1 s_0)"
 "(syntax-e$1 s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((for-label325_0)"
+"(let-values(((for-label315_0)"
 "(let-values(((s_2)"
 "(car s_1)))"
 " s_2))"
-"((spec326_0)"
+"((spec316_0)"
 "(let-values(((s_2)"
 "(cdr s_1)))"
 "(let-values(((s_3)"
@@ -28643,35 +28640,35 @@ static const char *startup_source =
 " orig-s_0))"
 "(let-values()"
 " flat-s_0)))))))"
-"(values for-label325_0 spec326_0))"
+"(values for-label315_0 spec316_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                  \"bad syntax\""
 " orig-s_0)))))"
-"(values #t for-label323_0 spec324_0))))))"
+"(values #t for-label313_0 spec314_0))))))"
 "(rebuild-req_0"
 " req_1"
-"(list* for-label323_0(map2(loop_0 #t) spec324_0)))))"
+"(list* for-label313_0(map2(loop_0 #t) spec314_0)))))"
 "(if(equal? tmp_0 'just-meta)"
 "(let-values()"
-"(let-values(((ok?_0 just-meta327_0 phase-level328_0 spec329_0)"
+"(let-values(((ok?_0 just-meta317_0 phase-level318_0 spec319_0)"
 "(let-values(((s_0) req_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((just-meta327_0"
-" phase-level328_0"
-" spec329_0)"
+"(let-values(((just-meta317_0"
+" phase-level318_0"
+" spec319_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1 s_0)"
 "(syntax-e$1 s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((just-meta330_0)"
+"(let-values(((just-meta320_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((phase-level331_0"
-" spec332_0)"
+"((phase-level321_0"
+" spec322_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -28682,12 +28679,12 @@ static const char *startup_source =
 " s_2)"
 " s_2)))"
 "(if(pair? s_3)"
-"(let-values(((phase-level333_0)"
+"(let-values(((phase-level323_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((spec334_0)"
+"((spec324_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -28710,31 +28707,31 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" phase-level333_0"
-" spec334_0))"
+" phase-level323_0"
+" spec324_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                        \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" just-meta330_0"
-" phase-level331_0"
-" spec332_0))"
+" just-meta320_0"
+" phase-level321_0"
+" spec322_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" just-meta327_0"
-" phase-level328_0"
-" spec329_0))))))"
+" just-meta317_0"
+" phase-level318_0"
+" spec319_0))))))"
 "(rebuild-req_0"
 " req_1"
 "(list*"
-" just-meta327_0"
-" phase-level328_0"
-"(map2(loop_0 #f) spec329_0)))))"
+" just-meta317_0"
+" phase-level318_0"
+"(map2(loop_0 #f) spec319_0)))))"
 "(let-values()"
 "(if shifted?_0"
 " req_1"
@@ -28745,14 +28742,14 @@ static const char *startup_source =
 "(lambda(m-ns_0 adjusted-sym_0 binding_0 phase-level_0 phase-shift_0 as-constant?_0)"
 "(begin"
 "(let-values(((i-ns_0)"
-"(let-values(((m-ns335_0) m-ns_0)"
-"((temp336_0)(1/module-path-index-resolve(module-binding-module binding_0)))"
-"((temp337_0)"
+"(let-values(((m-ns325_0) m-ns_0)"
+"((temp326_0)(1/module-path-index-resolve(module-binding-module binding_0)))"
+"((temp327_0)"
 "(phase+"
 "(phase-(module-binding-phase binding_0) phase-level_0)"
 "(namespace-phase m-ns_0)))"
-"((temp338_0) #t))"
-"(namespace->module-namespace82.1 #f temp338_0 unsafe-undefined m-ns335_0 temp336_0 temp337_0))))"
+"((temp328_0) #t))"
+"(namespace->module-namespace.1 #f temp328_0 unsafe-undefined m-ns325_0 temp326_0 temp327_0))))"
 "(let-values(((val_0)"
 "(namespace-get-variable"
 " i-ns_0"
@@ -28786,7 +28783,7 @@ static const char *startup_source =
 "((phase5_0) phase_0)"
 "((sym6_0) sym_0)"
 "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_0))))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " temp7_0"
@@ -28799,7 +28796,7 @@ static const char *startup_source =
 " phase5_0"
 " sym6_0))))"
 "(begin"
-"(let-values(((id1_0) id_0)((b2_0) b_0)((phase3_0) phase_0))(add-binding!17.1 #f #f id1_0 b2_0 phase3_0))"
+"(let-values(((id1_0) id_0)((b2_0) b_0)((phase3_0) phase_0))(add-binding!.1 #f #f id1_0 b2_0 phase3_0))"
 "(if trans?_0"
 "(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_0 phase_0))(void)))"
 "(let-values()(namespace-unset-transformer! ns_0 phase_0 sym_0)))))))"
@@ -28813,10 +28810,10 @@ static const char *startup_source =
 "((ns12_0) ns_0)"
 "((temp13_0)(namespace-self-mpi/no-top-level ns_0))"
 "((temp14_0)(namespace-phase ns_0))"
-"((temp15_0)(let-values(((temp18_0) #f))(make-requires+provides8.1 #f temp18_0)))"
+"((temp15_0)(let-values(((temp18_0) #f))(make-requires+provides.1 #f temp18_0)))"
 "((temp16_0) 'require)"
 "((temp17_0) #t))"
-"(parse-and-perform-requires!30.1"
+"(parse-and-perform-requires!.1"
 " #f"
 " #f"
 " unsafe-undefined"
@@ -28898,13 +28895,13 @@ static const char *startup_source =
 "(define-values(correlated?)(lambda(e_0)(begin(1/syntax? e_0))))"
 "(define-values"
 "(datum->correlated)"
-"(let-values(((datum->correlated3_0)"
+"(let-values(((datum->correlated_0)"
 "(lambda(d2_0 srcloc1_0)"
 "(begin"
-" 'datum->correlated3"
+" 'datum->correlated"
 "(let-values(((d_0) d2_0))"
 "(let-values(((srcloc_0) srcloc1_0))(let-values()(datum->syntax$3 #f d_0 srcloc_0))))))))"
-"(case-lambda((d_0)(begin(datum->correlated3_0 d_0 #f)))((d_0 srcloc1_0)(datum->correlated3_0 d_0 srcloc1_0)))))"
+"(case-lambda((d_0)(begin(datum->correlated_0 d_0 #f)))((d_0 srcloc1_0)(datum->correlated_0 d_0 srcloc1_0)))))"
 "(define-values(correlated-e)(lambda(e_0)(begin(if(1/syntax? e_0)(syntax-e$2 e_0) e_0))))"
 "(define-values(correlated-cadr)(lambda(e_0)(begin(car(correlated-e(cdr(correlated-e e_0)))))))"
 "(define-values"
@@ -29067,7 +29064,7 @@ static const char *startup_source =
 "(define-values"
 "(write-correlated-linklet-bundle-hash)"
 "(lambda(ht_0 o_0)"
-"(begin(let-values(((temp7_0)(->faslable ht_0))((o8_0) o_0))(s-exp->fasl13.1 #f #f temp7_0 o8_0)))))"
+"(begin(let-values(((temp7_0)(->faslable ht_0))((o8_0) o_0))(s-exp->fasl.1 #f #f temp7_0 o8_0)))))"
 "(define-values"
 "(->faslable)"
 "(lambda(v_0)"
@@ -29220,7 +29217,7 @@ static const char *startup_source =
 "(let-values() v_0))))))))"
 "(define-values"
 "(read-correlated-linklet-bundle-hash)"
-"(lambda(in_0)(begin(faslable->(let-values(((in9_0) in_0)((temp10_0) #t))(fasl->s-exp19.1 temp10_0 in9_0))))))"
+"(lambda(in_0)(begin(faslable->(let-values(((in9_0) in_0)((temp10_0) #t))(fasl->s-exp.1 temp10_0 in9_0))))))"
 "(define-values"
 "(faslable->)"
 "(lambda(v_0)"
@@ -29480,7 +29477,7 @@ static const char *startup_source =
 "(let-values(((temp1_0)(flatten-linklet-directory_0 ld_0 '() '()))"
 "((temp2_0)"
 "(lambda(a_0 b_0)(begin 'temp2(bytes<?(car a_0)(car b_0))))))"
-"(sort7.1 #f #f temp1_0 temp2_0)))))"
+"(sort.1 #f #f temp1_0 temp2_0)))))"
 "(let-values(((len_0)(vector-length bundles_0)))"
 "(let-values(((initial-offset_0)"
 "(+ 2 1(bytes-length version-bytes$1) 1(bytes-length vm-bytes_0) 1 4)))"
@@ -30103,10 +30100,10 @@ static const char *startup_source =
 "(cons pos_0(vector-length vec_0)))))))"
 "(define-values(syntax-literals-empty?)(lambda(sl_0)(begin(null?(syntax-literals-stxes sl_0)))))"
 "(define-values"
-"(generate-lazy-syntax-literals!9.1)"
+"(generate-lazy-syntax-literals!.1)"
 "(lambda(skip-deserialize?4_0 sl6_0 mpis7_0 self8_0)"
 "(begin"
-" 'generate-lazy-syntax-literals!9"
+" 'generate-lazy-syntax-literals!"
 "(let-values(((sl_0) sl6_0))"
 "(let-values(((mpis_0) mpis7_0))"
 "(let-values(((self_0) self8_0))"
@@ -30180,10 +30177,10 @@ static const char *startup_source =
 "(list"
 " 'let-values"
 "(list(list*(list inspector-id) '(#f)))"
-"(let-values(((temp25_0)"
+"(let-values(((temp21_0)"
 "(vector->immutable-vector(list->vector(reverse$1(syntax-literals-stxes sl_0)))))"
-"((mpis26_0) mpis_0))"
-"(generate-deserialize6.1 #t temp25_0 mpis26_0))))"
+"((mpis22_0) mpis_0))"
+"(generate-deserialize.1 #t temp21_0 mpis22_0))))"
 "(list* 'set! deserialize-syntax-id '(#f)))))))))))"
 "(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_0)(begin(list get-syntax-literal!-id pos_0))))"
 "(define-values"
@@ -30198,9 +30195,9 @@ static const char *startup_source =
 "(list"
 "(list"
 " '(ns+stxss)"
-"(let-values(((temp27_0)(cons(encode-namespace-scopes ns_0)(reverse$1(syntax-literals-stxes sl_0))))"
-"((mpis28_0) mpis_0))"
-"(generate-deserialize6.1 #t temp27_0 mpis28_0))))"
+"(let-values(((temp23_0)(cons(encode-namespace-scopes ns_0)(reverse$1(syntax-literals-stxes sl_0))))"
+"((mpis24_0) mpis_0))"
+"(generate-deserialize.1 #t temp23_0 mpis24_0))))"
 "(list"
 " 'let-values"
 " '(((ns-scope-s)(car ns+stxss)))"
@@ -30250,16 +30247,16 @@ static const char *startup_source =
 "(let-values(((or-part_0)(built-in-symbol? sym_0)))"
 "(if or-part_0 or-part_0(hash-ref(header-define-and-import-syms header_0) sym_0 #f))))))"
 "(define-values"
-"(register-required-variable-use!19.1)"
-"(lambda(defined?12_0 header14_0 mpi15_0 phase16_0 sym17_0 extra-inspector18_0)"
+"(register-required-variable-use!.1)"
+"(lambda(defined?10_0 header12_0 mpi13_0 phase14_0 sym15_0 extra-inspector16_0)"
 "(begin"
-" 'register-required-variable-use!19"
-"(let-values(((header_0) header14_0))"
-"(let-values(((mpi_0) mpi15_0))"
-"(let-values(((phase_0) phase16_0))"
-"(let-values(((sym_0) sym17_0))"
-"(let-values(((extra-inspector_0) extra-inspector18_0))"
-"(let-values(((defined?_0) defined?12_0))"
+" 'register-required-variable-use!"
+"(let-values(((header_0) header12_0))"
+"(let-values(((mpi_0) mpi13_0))"
+"(let-values(((phase_0) phase14_0))"
+"(let-values(((sym_0) sym15_0))"
+"(let-values(((extra-inspector_0) extra-inspector16_0))"
+"(let-values(((defined?_0) defined?10_0))"
 "(let-values()"
 "(let-values(((key_0)(variable-use3.1(module-use1.1 mpi_0 phase_0) sym_0)))"
 "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_0)))"
@@ -30610,10 +30607,10 @@ static const char *startup_source =
 "(instance-imports)"
 "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))"
 "(define-values"
-"(make-instance-instance13.1)"
+"(make-instance-instance.1)"
 "(lambda(bulk-binding-registry5_0 inspector4_0 namespace1_0 phase-shift2_0 self3_0 set-transformer!6_0)"
 "(begin"
-" 'make-instance-instance13"
+" 'make-instance-instance"
 "(let-values(((ns_0) namespace1_0))"
 "(let-values(((phase-shift_0) phase-shift2_0))"
 "(let-values(((self_0) self3_0))"
@@ -30638,11 +30635,11 @@ static const char *startup_source =
 " set-transformer!-id"
 " set-transformer!_0)))))))))))"
 "(define-values"
-"(make-module-body-instance-instance18.1)"
-"(lambda(set-transformer!16_0)"
+"(make-module-body-instance-instance.1)"
+"(lambda(set-transformer!14_0)"
 "(begin"
-" 'make-module-body-instance-instance18"
-"(let-values(((set-transformer!_0) set-transformer!16_0))"
+" 'make-module-body-instance-instance"
+"(let-values(((set-transformer!_0) set-transformer!14_0))"
 "(let-values()(1/make-instance 'body-instance #f 'constant set-transformer!-id set-transformer!_0))))))"
 "(define-values"
 "(empty-syntax-literals-instance)"
@@ -30650,7 +30647,7 @@ static const char *startup_source =
 "(void(1/instance-describe-variable! empty-syntax-literals-instance get-syntax-literal!-id '(procedure/succeeds 2)))"
 "(define-values"
 "(empty-module-body-instance)"
-"(let-values(((temp21_0)(lambda(name_0 val_0)(void))))(make-module-body-instance-instance18.1 temp21_0)))"
+"(let-values(((temp17_0)(lambda(name_0 val_0)(void))))(make-module-body-instance-instance.1 temp17_0)))"
 "(void(1/instance-describe-variable! empty-module-body-instance set-transformer!-id '(procedure/succeeds 4)))"
 "(define-values"
 "(empty-top-syntax-literal-instance)"
@@ -30660,16 +30657,16 @@ static const char *startup_source =
 "(1/make-instance 'empty-stx-data #f 'constant deserialized-syntax-vector-id(vector) deserialize-syntax-id void))"
 "(define-values"
 "(empty-instance-instance)"
-"(let-values(((temp22_0) #f)((temp23_0) #f)((temp24_0) #f)((temp25_0) #f)((temp26_0) #f)((temp27_0) #f))"
-"(make-instance-instance13.1 temp26_0 temp25_0 temp22_0 temp23_0 temp24_0 temp27_0)))"
+"(let-values(((temp18_0) #f)((temp19_0) #f)((temp20_0) #f)((temp21_0) #f)((temp22_0) #f)((temp23_0) #f))"
+"(make-instance-instance.1 temp22_0 temp21_0 temp18_0 temp19_0 temp20_0 temp23_0)))"
 "(define-values"
 "(eager-instance-imports)"
 "(list* ns-id dest-phase-id self-id bulk-binding-registry-id inspector-id '(swap-top-level-scopes)))"
 "(define-values"
-"(make-eager-instance-instance11.1)"
+"(make-eager-instance-instance.1)"
 "(lambda(bulk-binding-registry4_0 dest-phase2_0 inspector5_0 namespace1_0 self3_0)"
 "(begin"
-" 'make-eager-instance-instance11"
+" 'make-eager-instance-instance"
 "(let-values(((ns_0) namespace1_0))"
 "(let-values(((dest-phase_0) dest-phase2_0))"
 "(let-values(((self_0) self3_0))"
@@ -30694,8 +30691,8 @@ static const char *startup_source =
 " swap-top-level-scopes))))))))))"
 "(define-values"
 "(empty-eager-instance-instance)"
-"(let-values(((temp14_0) #f)((temp15_0) #f)((temp16_0) #f)((temp17_0) #f)((temp18_0) #f))"
-"(make-eager-instance-instance11.1 temp17_0 temp15_0 temp18_0 temp14_0 temp16_0)))"
+"(let-values(((temp12_0) #f)((temp13_0) #f)((temp14_0) #f)((temp15_0) #f)((temp16_0) #f))"
+"(make-eager-instance-instance.1 temp15_0 temp13_0 temp16_0 temp12_0 temp14_0)))"
 "(define-values"
 "(self-quoting-in-linklet?)"
 "(lambda(datum_0)"
@@ -30731,10 +30728,10 @@ static const char *startup_source =
 "(define-values(compile-keep-source-locations!)(lambda(on?_0)(begin(set! keep-source-locations? on?_0))))"
 "(define-values"
 "(compile$2)"
-"(let-values(((compile5_0)"
+"(let-values(((compile_0)"
 "(lambda(p3_0 cctx4_0 name1_0 result-used?2_0)"
 "(begin"
-" 'compile5"
+" 'compile"
 "(let-values(((p_0) p3_0))"
 "(let-values(((cctx_0) cctx4_0))"
 "(let-values(((name_0) name1_0))"
@@ -30746,8 +30743,8 @@ static const char *startup_source =
 "(let-values(((s_0)(parsed-s p_0)))"
 "(if(parsed-id? p_0)"
 "(let-values()"
-"(let-values(((p25_0) p_0)((cctx26_0) cctx_0))"
-"(compile-identifier22.1 #f #f p25_0 cctx26_0)))"
+"(let-values(((p19_0) p_0)((cctx20_0) cctx_0))"
+"(compile-identifier.1 #f #f p19_0 cctx20_0)))"
 "(if(parsed-lambda? p_0)"
 "(let-values()"
 "(if result-used?_0"
@@ -30937,41 +30934,41 @@ static const char *startup_source =
 "(let-values()"
 "(correlate~"
 " s_0"
-"(let-values(((temp27_0)(parsed-set!-id p_0))"
-"((cctx28_0) cctx_0)"
-"((temp29_0) #t)"
-"((temp30_0)"
+"(let-values(((temp21_0)(parsed-set!-id p_0))"
+"((cctx22_0) cctx_0)"
+"((temp23_0) #t)"
+"((temp24_0)"
 "(compile_0"
 "(parsed-set!-rhs p_0)"
 "(parsed-s(parsed-set!-id p_0))"
 " #t)))"
-"(compile-identifier22.1 temp30_0 temp29_0 temp27_0 cctx28_0))))"
+"(compile-identifier.1 temp24_0 temp23_0 temp21_0 cctx22_0))))"
 "(if(parsed-let-values? p_0)"
 "(let-values()"
-"(let-values(((p31_0) p_0)"
-"((cctx32_0) cctx_0)"
-"((name33_0) name_0)"
-"((temp34_0) #f)"
-"((result-used?35_0) result-used?_0))"
-"(compile-let13.1"
-" temp34_0"
-" p31_0"
-" cctx32_0"
-" name33_0"
-" result-used?35_0)))"
+"(let-values(((p25_0) p_0)"
+"((cctx26_0) cctx_0)"
+"((name27_0) name_0)"
+"((temp28_0) #f)"
+"((result-used?29_0) result-used?_0))"
+"(compile-let.1"
+" temp28_0"
+" p25_0"
+" cctx26_0"
+" name27_0"
+" result-used?29_0)))"
 "(if(parsed-letrec-values? p_0)"
 "(let-values()"
-"(let-values(((p36_0) p_0)"
-"((cctx37_0) cctx_0)"
-"((name38_0) name_0)"
-"((temp39_0) #t)"
-"((result-used?40_0) result-used?_0))"
-"(compile-let13.1"
-" temp39_0"
-" p36_0"
-" cctx37_0"
-" name38_0"
-" result-used?40_0)))"
+"(let-values(((p30_0) p_0)"
+"((cctx31_0) cctx_0)"
+"((name32_0) name_0)"
+"((temp33_0) #t)"
+"((result-used?34_0) result-used?_0))"
+"(compile-let.1"
+" temp33_0"
+" p30_0"
+" cctx31_0"
+" name32_0"
+" result-used?34_0)))"
 "(if(parsed-quote? p_0)"
 "(let-values()"
 "(let-values(((datum_0)(parsed-quote-datum p_0)))"
@@ -30995,17 +30992,17 @@ static const char *startup_source =
 "(if id_0"
 "(list"
 " '#%variable-reference"
-"(let-values(((id41_0) id_0)((cctx42_0) cctx_0))"
-"(compile-identifier22.1 #f #f id41_0 cctx42_0)))"
+"(let-values(((id35_0) id_0)((cctx36_0) cctx_0))"
+"(compile-identifier.1 #f #f id35_0 cctx36_0)))"
 " '(#%variable-reference)))))"
 "(let-values()"
 "(error"
 "                                                                 \"unrecognized parsed form:\""
 " p_0)))))))))))))))))))))))))))"
 "(case-lambda"
-"((p_0 cctx_0)(begin 'compile(compile5_0 p_0 cctx_0 #f #t)))"
-"((p_0 cctx_0 name_0 result-used?2_0)(compile5_0 p_0 cctx_0 name_0 result-used?2_0))"
-"((p_0 cctx_0 name1_0)(compile5_0 p_0 cctx_0 name1_0 #t)))))"
+"((p_0 cctx_0)(begin 'compile(compile_0 p_0 cctx_0 #f #t)))"
+"((p_0 cctx_0 name_0 result-used?2_0)(compile_0 p_0 cctx_0 name_0 result-used?2_0))"
+"((p_0 cctx_0 name1_0)(compile_0 p_0 cctx_0 name1_0 #t)))))"
 "(define-values"
 "(compile-lambda)"
 "(lambda(formals_0 bodys_0 cctx_0)(begin(list formals_0(compile-sequence bodys_0 cctx_0 #f #t)))))"
@@ -31094,15 +31091,15 @@ static const char *startup_source =
 "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)"
 " named-s_0))))))))"
 "(define-values"
-"(compile-let13.1)"
-"(lambda(rec?7_0 p9_0 cctx10_0 name11_0 result-used?12_0)"
+"(compile-let.1)"
+"(lambda(rec?5_0 p7_0 cctx8_0 name9_0 result-used?10_0)"
 "(begin"
-" 'compile-let13"
-"(let-values(((p_0) p9_0))"
-"(let-values(((cctx_0) cctx10_0))"
-"(let-values(((name_0) name11_0))"
-"(let-values(((rec?_0) rec?7_0))"
-"(let-values(((result-used?_0) result-used?12_0))"
+" 'compile-let"
+"(let-values(((p_0) p7_0))"
+"(let-values(((cctx_0) cctx8_0))"
+"(let-values(((name_0) name9_0))"
+"(let-values(((rec?_0) rec?5_0))"
+"(let-values(((result-used?_0) result-used?10_0))"
 "(let-values()"
 "(let-values(((body_0)(parsed-let_-values-body p_0)))"
 "(correlate~"
@@ -31227,24 +31224,24 @@ static const char *startup_source =
 "(let-values(((or-part_0)(syntax-property$1 orig-id_0 'undefined-error-name)))"
 "(if or-part_0 or-part_0(syntax-e$1 orig-id_0))))))))"
 "(define-values"
-"(compile-identifier22.1)"
-"(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)"
+"(compile-identifier.1)"
+"(lambda(set-to13_0 set-to?12_0 p16_0 cctx17_0)"
 "(begin"
-" 'compile-identifier22"
-"(let-values(((p_0) p20_0))"
-"(let-values(((cctx_0) cctx21_0))"
-"(let-values(((set-to?_0) set-to?16_0))"
-"(let-values(((rhs_0) set-to17_0))"
+" 'compile-identifier"
+"(let-values(((p_0) p16_0))"
+"(let-values(((cctx_0) cctx17_0))"
+"(let-values(((set-to?_0) set-to?12_0))"
+"(let-values(((rhs_0) set-to13_0))"
 "(let-values()"
 "(let-values(((normal-b_0)(parsed-id-binding p_0)))"
 "(let-values(((b_0)"
 "(let-values(((or-part_0) normal-b_0))"
 "(if or-part_0"
 " or-part_0"
-"(let-values(((temp43_0)(compile-context-self cctx_0))"
-"((temp44_0)(compile-context-phase cctx_0))"
-"((temp45_0)(syntax-e$1(parsed-s p_0))))"
-"(make-module-binding20.1"
+"(let-values(((temp37_0)(compile-context-self cctx_0))"
+"((temp38_0)(compile-context-phase cctx_0))"
+"((temp39_0)(syntax-e$1(parsed-s p_0))))"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -31253,9 +31250,9 @@ static const char *startup_source =
 " unsafe-undefined"
 " 0"
 " unsafe-undefined"
-" temp43_0"
-" temp44_0"
-" temp45_0))))))"
+" temp37_0"
+" temp38_0"
+" temp39_0))))))"
 "(let-values(((sym_0)"
 "(if(local-binding? b_0)"
 "(let-values()(local-binding-key b_0))"
@@ -31290,16 +31287,16 @@ static const char *startup_source =
 "(if c1_0"
 "((lambda(sym_0) sym_0) c1_0)"
 "(let-values()"
-"(let-values(((temp46_0)(compile-context-header cctx_0))"
-"((temp47_0)"
+"(let-values(((temp40_0)(compile-context-header cctx_0))"
+"((temp41_0)"
 "(if(inside-module-context?"
 " mpi_0"
 "(compile-context-self cctx_0))"
 "(compile-context-self cctx_0)"
 " mpi_0))"
-"((temp48_0)(module-binding-phase b_0))"
-"((temp49_0)(module-binding-sym b_0))"
-"((temp50_0)"
+"((temp42_0)(module-binding-phase b_0))"
+"((temp43_0)(module-binding-sym b_0))"
+"((temp44_0)"
 "(let-values(((or-part_0)"
 "(module-binding-extra-inspector b_0)))"
 "(if or-part_0"
@@ -31311,13 +31308,13 @@ static const char *startup_source =
 "(if(parsed-s p_0)"
 "(syntax-inspector(parsed-s p_0))"
 " #f)))))))"
-"(register-required-variable-use!19.1"
+"(register-required-variable-use!.1"
 " #f"
-" temp46_0"
-" temp47_0"
-" temp48_0"
-" temp49_0"
-" temp50_0))))))))"
+" temp40_0"
+" temp41_0"
+" temp42_0"
+" temp43_0"
+" temp44_0))))))))"
 "(let-values()"
 "                                        (error \"not a reference to a module or local binding:\" b_0 (parsed-s p_0)))))))"
 "(correlate~(parsed-s p_0)(if set-to?_0(list 'set! sym_0 rhs_0) sym_0)))))))))))))"
@@ -31803,7 +31800,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 2 'extra-inspectorsss)"
 "(make-struct-field-accessor -ref_0 3 'def-decls))))"
 "(define-values"
-"(compile-forms33.1)"
+"(compile-forms.1)"
 "(lambda(body-import-instances3_0"
 " body-imports2_0"
 " body-suffix-forms4_0"
@@ -31822,7 +31819,7 @@ static const char *startup_source =
 " cctx31_0"
 " mpis32_0)"
 "(begin"
-" 'compile-forms33"
+" 'compile-forms"
 "(let-values(((bodys_0) bodys30_0))"
 "(let-values(((cctx_0) cctx31_0))"
 "(let-values(((mpis_0) mpis32_0))"
@@ -32230,26 +32227,26 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((header61_0)"
+"(let-values(((header57_0)"
 " header_0)"
-"((temp62_0)"
+"((temp58_0)"
 "(compile-context-self"
 " cctx_0))"
-"((phase63_0)"
+"((phase59_0)"
 " phase_1)"
-"((binding-sym64_0)"
+"((binding-sym60_0)"
 " binding-sym_0)"
-"((temp65_0)"
+"((temp61_0)"
 " #f)"
-"((temp66_0)"
+"((temp62_0)"
 " #t))"
-"(register-required-variable-use!19.1"
-" temp66_0"
-" header61_0"
+"(register-required-variable-use!.1"
 " temp62_0"
-" phase63_0"
-" binding-sym64_0"
-" temp65_0)))"
+" header57_0"
+" temp58_0"
+" phase59_0"
+" binding-sym60_0"
+" temp61_0)))"
 " fold-var_1))))"
 "(values"
 " fold-var_2)))))"
@@ -32271,14 +32268,14 @@ static const char *startup_source =
 " cctx_0))"
 "(if(compile-context?"
 " the-struct_0)"
-"(let-values(((phase67_0)"
+"(let-values(((phase63_0)"
 " phase_1)"
-"((header68_0)"
+"((header64_0)"
 " header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
 " the-struct_0)"
-" phase67_0"
+" phase63_0"
 "(compile-context-self"
 " the-struct_0)"
 "(compile-context-module-self"
@@ -32287,7 +32284,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(compile-context-lazy-syntax-literals?"
 " the-struct_0)"
-" header68_0))"
+" header64_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                            \"compile-context?\""
@@ -32394,14 +32391,14 @@ static const char *startup_source =
 " cctx_0))"
 "(if(compile-context?"
 " the-struct_0)"
-"(let-values(((phase69_0)"
+"(let-values(((phase65_0)"
 " phase_1)"
-"((header70_0)"
+"((header66_0)"
 " header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
 " the-struct_0)"
-" phase69_0"
+" phase65_0"
 "(compile-context-self"
 " the-struct_0)"
 "(compile-context-module-self"
@@ -32410,7 +32407,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(compile-context-lazy-syntax-literals?"
 " the-struct_0)"
-" header70_0))"
+" header66_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                         \"compile-context?\""
@@ -32490,15 +32487,15 @@ static const char *startup_source =
 " cctx_0))"
 "(if(compile-context?"
 " the-struct_0)"
-"(let-values(((phase71_0)"
+"(let-values(((phase67_0)"
 "(add1"
 " phase_1))"
-"((header72_0)"
+"((header68_0)"
 " next-header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
 " the-struct_0)"
-" phase71_0"
+" phase67_0"
 "(compile-context-self"
 " the-struct_0)"
 "(compile-context-module-self"
@@ -32507,7 +32504,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(compile-context-lazy-syntax-literals?"
 " the-struct_0)"
-" header72_0))"
+" header68_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                \"compile-context?\""
@@ -32630,14 +32627,14 @@ static const char *startup_source =
 " cctx_0))"
 "(if(compile-context?"
 " the-struct_0)"
-"(let-values(((phase73_0)"
+"(let-values(((phase69_0)"
 " phase_1)"
-"((header74_0)"
+"((header70_0)"
 " header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
 " the-struct_0)"
-" phase73_0"
+" phase69_0"
 "(compile-context-self"
 " the-struct_0)"
 "(compile-context-module-self"
@@ -32646,7 +32643,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(compile-context-lazy-syntax-literals?"
 " the-struct_0)"
-" header74_0))"
+" header70_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                  \"compile-context?\""
@@ -32685,14 +32682,14 @@ static const char *startup_source =
 " cctx_0))"
 "(if(compile-context?"
 " the-struct_0)"
-"(let-values(((phase75_0)"
+"(let-values(((phase71_0)"
 " phase_1)"
-"((header76_0)"
+"((header72_0)"
 " header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
 " the-struct_0)"
-" phase75_0"
+" phase71_0"
 "(compile-context-self"
 " the-struct_0)"
 "(compile-context-module-self"
@@ -32701,7 +32698,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(compile-context-lazy-syntax-literals?"
 " the-struct_0)"
-" header76_0))"
+" header72_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                            \"compile-context?\""
@@ -32727,14 +32724,14 @@ static const char *startup_source =
 " cctx_0))"
 "(if(compile-context?"
 " the-struct_0)"
-"(let-values(((phase77_0)"
+"(let-values(((phase73_0)"
 " phase_1)"
-"((header78_0)"
+"((header74_0)"
 " header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
 " the-struct_0)"
-" phase77_0"
+" phase73_0"
 "(compile-context-self"
 " the-struct_0)"
 "(compile-context-module-self"
@@ -32743,7 +32740,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(compile-context-lazy-syntax-literals?"
 " the-struct_0)"
-" header78_0))"
+" header74_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                            \"compile-context?\""
@@ -32802,15 +32799,11 @@ static const char *startup_source =
 " #f)"
 " #f)))"
 "(let-values(((phases-in-order_0)"
-"(let-values(((temp79_0)"
+"(let-values(((temp75_0)"
 "(hash-keys"
 " phase-to-body_0))"
-"((<80_0) <))"
-"(sort7.1"
-" #f"
-" #f"
-" temp79_0"
-" <80_0))))"
+"((<76_0) <))"
+"(sort.1 #f #f temp75_0 <76_0))))"
 "(let-values(((min-phase_0)"
 "(if(pair? phases-in-order_0)"
 "(car phases-in-order_0)"
@@ -33019,39 +33012,39 @@ static const char *startup_source =
 " 'module)"
 " module-use*s_0))"
 "(let-values()"
-"(let-values(((body-linklet81_0)"
+"(let-values(((body-linklet77_0)"
 " body-linklet_0)"
-"((body-imports82_0)"
+"((body-imports78_0)"
 " body-imports_0)"
-"((body-import-instances83_0)"
+"((body-import-instances79_0)"
 " body-import-instances_0)"
-"((get-module-linklet-info84_0)"
+"((get-module-linklet-info80_0)"
 " get-module-linklet-info_0)"
-"((serializable?85_0)"
+"((serializable?81_0)"
 " serializable?_0)"
-"((module-prompt?86_0)"
+"((module-prompt?82_0)"
 " module-prompt?_0)"
-"((module-use*s87_0)"
+"((module-use*s83_0)"
 " module-use*s_0)"
-"((cross-linklet-inlining?88_0)"
+"((cross-linklet-inlining?84_0)"
 " cross-linklet-inlining?_0)"
-"((temp89_0)"
+"((temp85_0)"
 " #f)"
-"((temp90_0)"
+"((temp86_0)"
 "(compile-context-namespace"
 " cctx_0)))"
-"(compile-module-linklet57.1"
-" body-import-instances83_0"
-" body-imports82_0"
+"(compile-module-linklet.1"
+" body-import-instances79_0"
+" body-imports78_0"
 " unsafe-undefined"
-" cross-linklet-inlining?88_0"
-" get-module-linklet-info84_0"
-" temp89_0"
-" module-prompt?86_0"
-" module-use*s87_0"
-" temp90_0"
-" serializable?85_0"
-" body-linklet81_0))))))"
+" cross-linklet-inlining?84_0"
+" get-module-linklet-info80_0"
+" temp85_0"
+" module-prompt?82_0"
+" module-use*s83_0"
+" temp86_0"
+" serializable?81_0"
+" body-linklet77_0))))))"
 "(values"
 " phase_1"
 "(cons"
@@ -33425,32 +33418,32 @@ static const char *startup_source =
 "(let-values(((v_0)(syntax-property$1 orig-s_0 'compiler-hint:cross-module-inline)))"
 "(if v_0(correlated-property e_0 'compiler-hint:cross-module-inline v_0) e_0)))))"
 "(define-values"
-"(compile-module-linklet57.1)"
-"(lambda(body-import-instances38_0"
-" body-imports37_0"
-" compile-linklet36_0"
-" cross-linklet-inlining?43_0"
-" get-module-linklet-info39_0"
-" load-modules?44_0"
-" module-prompt?41_0"
-" module-use*s42_0"
-" namespace45_0"
-" serializable?40_0"
-" body-linklet56_0)"
+"(compile-module-linklet.1)"
+"(lambda(body-import-instances36_0"
+" body-imports35_0"
+" compile-linklet34_0"
+" cross-linklet-inlining?41_0"
+" get-module-linklet-info37_0"
+" load-modules?42_0"
+" module-prompt?39_0"
+" module-use*s40_0"
+" namespace43_0"
+" serializable?38_0"
+" body-linklet54_0)"
 "(begin"
-" 'compile-module-linklet57"
-"(let-values(((body-linklet_0) body-linklet56_0))"
+" 'compile-module-linklet"
+"(let-values(((body-linklet_0) body-linklet54_0))"
 "(let-values(((compile-linklet_0)"
-"(if(eq? compile-linklet36_0 unsafe-undefined) 1/compile-linklet compile-linklet36_0)))"
-"(let-values(((body-imports_0) body-imports37_0))"
-"(let-values(((body-import-instances_0) body-import-instances38_0))"
-"(let-values(((get-module-linklet-info_0) get-module-linklet-info39_0))"
-"(let-values(((serializable?_0) serializable?40_0))"
-"(let-values(((module-prompt?_0) module-prompt?41_0))"
-"(let-values(((module-use*s_0) module-use*s42_0))"
-"(let-values(((cross-linklet-inlining?_0) cross-linklet-inlining?43_0))"
-"(let-values(((load-modules?_0) load-modules?44_0))"
-"(let-values(((namespace_0) namespace45_0))"
+"(if(eq? compile-linklet34_0 unsafe-undefined) 1/compile-linklet compile-linklet34_0)))"
+"(let-values(((body-imports_0) body-imports35_0))"
+"(let-values(((body-import-instances_0) body-import-instances36_0))"
+"(let-values(((get-module-linklet-info_0) get-module-linklet-info37_0))"
+"(let-values(((serializable?_0) serializable?38_0))"
+"(let-values(((module-prompt?_0) module-prompt?39_0))"
+"(let-values(((module-use*s_0) module-use*s40_0))"
+"(let-values(((cross-linklet-inlining?_0) cross-linklet-inlining?41_0))"
+"(let-values(((load-modules?_0) load-modules?42_0))"
+"(let-values(((namespace_0) namespace43_0))"
 "(let-values()"
 "(let-values(((linklet_0 new-module-use*s_0)"
 "(begin"
@@ -33632,10 +33625,10 @@ static const char *startup_source =
 "(values #f #f)))))))"
 "(let-values()(values #f #f))))))))))))"
 "(define-values"
-"(build-shared-data-linklet5.1)"
+"(build-shared-data-linklet.1)"
 "(lambda(to-correlated-linklet?1_0 cims3_0 ns4_0)"
 "(begin"
-" 'build-shared-data-linklet5"
+" 'build-shared-data-linklet"
 "(let-values(((cims_0) cims3_0))"
 "(let-values(((ns_0) ns4_0))"
 "(let-values(((to-correlated-linklet?_0) to-correlated-linklet?1_0))"
@@ -33838,10 +33831,10 @@ static const char *startup_source =
 " loop_0)"
 " cims_0))))"
 "(define-values"
-"(compiled-tops->compiled-top8.1)"
+"(compiled-tops->compiled-top.1)"
 "(lambda(merge-serialization?2_0 namespace3_0 to-correlated-linklet?1_0 all-cims7_0)"
 "(begin"
-" 'compiled-tops->compiled-top8"
+" 'compiled-tops->compiled-top"
 "(let-values(((all-cims_0) all-cims7_0))"
 "(let-values(((to-correlated-linklet?_0) to-correlated-linklet?1_0))"
 "(let-values(((merge-serialization?_0) merge-serialization?2_0))"
@@ -33905,13 +33898,13 @@ static const char *startup_source =
 "(hash->linklet-bundle"
 "(hasheq"
 " 0"
-"(let-values(((cims11_0) cims_0)"
-"((ns12_0) ns_0)"
-"((to-correlated-linklet?13_0) to-correlated-linklet?_0))"
-"(build-shared-data-linklet5.1"
-" to-correlated-linklet?13_0"
-" cims11_0"
-" ns12_0)))))))"
+"(let-values(((cims9_0) cims_0)"
+"((ns10_0) ns_0)"
+"((to-correlated-linklet?11_0) to-correlated-linklet?_0))"
+"(build-shared-data-linklet.1"
+" to-correlated-linklet?11_0"
+" cims9_0"
+" ns10_0)))))))"
 " sequence-ht_0)))"
 "(compiled-in-memory1.1"
 "(hash->linklet-directory ht_0)"
@@ -34101,10 +34094,10 @@ static const char *startup_source =
 "(let-values()(begin((known-defined/delay-thunk d_0))(lookup-defn defns_0 sym_0)))"
 "(let-values() d_0))))))"
 "(define-values"
-"(any-side-effects?9.1)"
+"(any-side-effects?.1)"
 "(lambda(known-defns2_0 known-locals1_0 ready-variable?3_0 e7_0 expected-results8_0)"
 "(begin"
-" 'any-side-effects?9"
+" 'any-side-effects?"
 "(let-values(((e_0) e7_0))"
 "(let-values(((expected-results_0) expected-results8_0))"
 "(let-values(((locals_0)(if(eq? known-locals1_0 unsafe-undefined) '#hasheq() known-locals1_0)))"
@@ -34118,17 +34111,17 @@ static const char *startup_source =
 "(lambda(e_1 expected-results_1 locals_1)"
 "(begin"
 " 'effects?"
-"(let-values(((e12_0) e_1)"
-"((expected-results13_0) expected-results_1)"
-"((locals14_0) locals_1)"
-"((defns15_0) defns_0)"
-"((ready-variable?16_0) ready-variable?_0))"
-"(any-side-effects?9.1"
-" defns15_0"
-" locals14_0"
-" ready-variable?16_0"
-" e12_0"
-" expected-results13_0))))))"
+"(let-values(((e10_0) e_1)"
+"((expected-results11_0) expected-results_1)"
+"((locals12_0) locals_1)"
+"((defns13_0) defns_0)"
+"((ready-variable?14_0) ready-variable?_0))"
+"(any-side-effects?.1"
+" defns13_0"
+" locals12_0"
+" ready-variable?14_0"
+" e10_0"
+" expected-results11_0))))))"
 "(let-values(((actual-results_0)"
 "((letrec-values(((loop_0)"
 "(lambda(e_1 locals_1)"
@@ -34195,12 +34188,12 @@ static const char *startup_source =
 " #f)))"
 "(if c1_0"
 "((lambda(d_0)"
-"(let-values(((ok?_0 _17_0 e18_0)"
+"(let-values(((ok?_0 _15_0 e16_0)"
 "(let-values(((s_0) e_1))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((_17_0"
-" e18_0)"
+"(let-values(((_15_0"
+" e16_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
@@ -34209,12 +34202,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((_19_0)"
+"(let-values(((_17_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e20_0)"
+"((e18_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -34241,8 +34234,8 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" _19_0"
-" e20_0))"
+" _17_0"
+" e18_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34253,10 +34246,10 @@ static const char *startup_source =
 " orig-s_0)))))"
 "(values"
 " #t"
-" _17_0"
-" e18_0))))))"
+" _15_0"
+" e16_0))))))"
 "(let-values(((n-args_0)"
-"(length e18_0)))"
+"(length e16_0)))"
 "(if(let-values(((or-part_0)"
 "(if(let-values(((or-part_0)"
 "(if(known-struct-op?"
@@ -34284,7 +34277,7 @@ static const char *startup_source =
 " #f)"
 " #f)))"
 "(let-values(((lst_0)"
-" e18_0))"
+" e16_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -34344,7 +34337,7 @@ static const char *startup_source =
 "(known-function-of-satisfying-arg-predicate-keys"
 " d_0)))"
 "(let-values(((lst_0)"
-" e18_0)"
+" e16_0)"
 "((lst_1)"
 "(known-function-of-satisfying-arg-predicate-keys"
 " d_0)))"
@@ -34464,13 +34457,13 @@ static const char *startup_source =
 "(let-values() 1))"
 "(if(unsafe-fx< index_0 3)"
 "(let-values()"
-"(let-values(((ok?_0 _21_0 ids22_0 rhs23_0 body24_0)"
+"(let-values(((ok?_0 _19_0 ids20_0 rhs21_0 body22_0)"
 "(let-values(((s_0) e_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((_21_0"
-" ids22_0"
-" rhs23_0"
-" body24_0)"
+"(let-values(((_19_0"
+" ids20_0"
+" rhs21_0"
+" body22_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
@@ -34478,14 +34471,14 @@ static const char *startup_source =
 " s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((_25_0)"
+"(let-values(((_23_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((ids26_0"
-" rhs27_0"
-" body28_0)"
+"((ids24_0"
+" rhs25_0"
+" body26_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -34497,8 +34490,8 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((ids29_0"
-" rhs30_0)"
+"(let-values(((ids27_0"
+" rhs28_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -34557,8 +34550,8 @@ static const char *startup_source =
 "(let-values(((ids_2"
 " rhs_2)"
 "(let-values()"
-"(let-values(((ids36_0"
-" rhs37_0)"
+"(let-values(((ids34_0"
+" rhs35_0)"
 "(let-values()"
 "(let-values(((s_7)"
 "(if(1/syntax?"
@@ -34568,12 +34561,12 @@ static const char *startup_source =
 " s_6)))"
 "(if(pair?"
 " s_7)"
-"(let-values(((ids32_0)"
+"(let-values(((ids30_0)"
 "(let-values(((s_8)"
 "(car"
 " s_7)))"
 " s_8))"
-"((rhs33_0)"
+"((rhs31_0)"
 "(let-values(((s_8)"
 "(cdr"
 " s_7)))"
@@ -34585,7 +34578,7 @@ static const char *startup_source =
 " s_8)))"
 "(if(pair?"
 " s_9)"
-"(let-values(((rhs34_0)"
+"(let-values(((rhs32_0)"
 "(let-values(((s_10)"
 "(car"
 " s_9)))"
@@ -34612,7 +34605,7 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" rhs34_0))"
+" rhs32_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34622,8 +34615,8 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                                         \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" ids32_0"
-" rhs33_0))"
+" ids30_0"
+" rhs31_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34634,10 +34627,10 @@ static const char *startup_source =
 " orig-s_0))))))"
 "(values"
 "(cons"
-" ids36_0"
+" ids34_0"
 " ids_1)"
 "(cons"
-" rhs37_0"
+" rhs35_0"
 " rhs_1))))))"
 "(values"
 " ids_2"
@@ -34663,7 +34656,7 @@ static const char *startup_source =
 " ids_0)"
 "(reverse$1"
 " rhs_0)))))))))"
-"((body31_0)"
+"((body29_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -34675,7 +34668,7 @@ static const char *startup_source =
 " s_4)))"
 "(if(pair?"
 " s_5)"
-"(let-values(((body35_0)"
+"(let-values(((body33_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
@@ -34702,7 +34695,7 @@ static const char *startup_source =
 "                                                                                                                                                                     \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" body35_0))"
+" body33_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34712,9 +34705,9 @@ static const char *startup_source =
 "                                                                                                                                                 \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" ids29_0"
-" rhs30_0"
-" body31_0))"
+" ids27_0"
+" rhs28_0"
+" body29_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34724,10 +34717,10 @@ static const char *startup_source =
 "                                                                                                                             \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _25_0"
-" ids26_0"
-" rhs27_0"
-" body28_0))"
+" _23_0"
+" ids24_0"
+" rhs25_0"
+" body26_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34738,13 +34731,13 @@ static const char *startup_source =
 " orig-s_0)))))"
 "(values"
 " #t"
-" _21_0"
-" ids22_0"
-" rhs23_0"
-" body24_0))))))"
+" _19_0"
+" ids20_0"
+" rhs21_0"
+" body22_0))))))"
 "(if(not"
-"(let-values(((lst_0) ids22_0)"
-"((lst_1) rhs23_0))"
+"(let-values(((lst_0) ids20_0)"
+"((lst_1) rhs21_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -34811,15 +34804,15 @@ static const char *startup_source =
 " lst_0"
 " lst_1))))"
 "(loop_0"
-" body24_0"
-"(add-binding-info locals_1 ids22_0 rhs23_0))"
+" body22_0"
+"(add-binding-info locals_1 ids20_0 rhs21_0))"
 " #f)))"
 "(if(unsafe-fx< index_0 4)"
 "(let-values()"
-"(let-values(((ok?_0 _38_0 e39_0)"
+"(let-values(((ok?_0 _36_0 e37_0)"
 "(let-values(((s_0) e_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((_38_0 e39_0)"
+"(let-values(((_36_0 e37_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
@@ -34827,12 +34820,12 @@ static const char *startup_source =
 " s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((_40_0)"
+"(let-values(((_38_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e41_0)"
+"((e39_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -34859,8 +34852,8 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" _40_0"
-" e41_0))"
+" _38_0"
+" e39_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34869,8 +34862,8 @@ static const char *startup_source =
 " #f"
 "                                                                                                           \"bad syntax\""
 " orig-s_0)))))"
-"(values #t _38_0 e39_0))))))"
-"(if(let-values(((lst_0) e39_0))"
+"(values #t _36_0 e37_0))))))"
+"(if(let-values(((lst_0) e37_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -34916,14 +34909,14 @@ static const char *startup_source =
 " for-loop_0)"
 " #t"
 " lst_0)))"
-"(length e39_0)"
+"(length e37_0)"
 " #f)))"
 "(if(unsafe-fx< index_0 5)"
 "(let-values()"
-"(let-values(((ok?_0 _42_0 e43_0)"
+"(let-values(((ok?_0 _40_0 e41_0)"
 "(let-values(((s_0) e_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((_42_0 e43_0)"
+"(let-values(((_40_0 e41_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
@@ -34932,12 +34925,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((_44_0)"
+"(let-values(((_42_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e45_0)"
+"((e43_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -34964,8 +34957,8 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" _44_0"
-" e45_0))"
+" _42_0"
+" e43_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -34974,8 +34967,8 @@ static const char *startup_source =
 " #f"
 "                                                                                                             \"bad syntax\""
 " orig-s_0)))))"
-"(values #t _42_0 e43_0))))))"
-"(if(let-values(((lst_0) e43_0))"
+"(values #t _40_0 e41_0))))))"
+"(if(let-values(((lst_0) e41_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -35025,10 +35018,10 @@ static const char *startup_source =
 " 1"
 " #f)))"
 "(let-values()"
-"(let-values(((ok?_0 _46_0 e47_0)"
+"(let-values(((ok?_0 _44_0 e45_0)"
 "(let-values(((s_0) e_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((_46_0 e47_0)"
+"(let-values(((_44_0 e45_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
@@ -35037,12 +35030,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((_48_0)"
+"(let-values(((_46_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e49_0)"
+"((e47_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -35069,8 +35062,8 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" _48_0"
-" e49_0))"
+" _46_0"
+" e47_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -35079,7 +35072,7 @@ static const char *startup_source =
 " #f"
 "                                                                                                             \"bad syntax\""
 " orig-s_0)))))"
-"(values #t _46_0 e47_0))))))"
+"(values #t _44_0 e45_0))))))"
 "((letrec-values(((bloop_0)"
 "(lambda(es_0)"
 "(begin"
@@ -35101,14 +35094,14 @@ static const char *startup_source =
 "(cdr es_0))"
 " #f))))))))"
 " bloop_0)"
-" e47_0)))))))"
+" e45_0)))))))"
 "(if(unsafe-fx< index_0 9)"
 "(if(unsafe-fx< index_0 7)"
 "(let-values()"
-"(let-values(((ok?_0 _50_0 e051_0 e52_0)"
+"(let-values(((ok?_0 _48_0 e049_0 e50_0)"
 "(let-values(((s_0) e_1))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((_50_0 e051_0 e52_0)"
+"(let-values(((_48_0 e049_0 e50_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
@@ -35116,13 +35109,13 @@ static const char *startup_source =
 " s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((_53_0)"
+"(let-values(((_51_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e054_0"
-" e55_0)"
+"((e052_0"
+" e53_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -35134,12 +35127,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((e056_0)"
+"(let-values(((e054_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((e57_0)"
+"((e55_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -35166,8 +35159,8 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" e056_0"
-" e57_0))"
+" e054_0"
+" e55_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -35177,9 +35170,9 @@ static const char *startup_source =
 "                                                                                                                             \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _53_0"
-" e054_0"
-" e55_0))"
+" _51_0"
+" e052_0"
+" e53_0))"
 "((lambda(false_0"
 " str_0"
 " e_2)"
@@ -35190,10 +35183,10 @@ static const char *startup_source =
 " orig-s_0)))))"
 "(values"
 " #t"
-" _50_0"
-" e051_0"
-" e52_0))))))"
-"(if(let-values(((lst_0) e52_0))"
+" _48_0"
+" e049_0"
+" e50_0))))))"
+"(if(let-values(((lst_0) e50_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -35237,7 +35230,7 @@ static const char *startup_source =
 " for-loop_0)"
 " #t"
 " lst_0)))"
-"(loop_0 e051_0 locals_1)"
+"(loop_0 e049_0 locals_1)"
 " #f)))"
 "(if(unsafe-fx< index_0 8)"
 "(let-values()"
@@ -35271,7 +35264,7 @@ static const char *startup_source =
 " #f))"
 "(if(unsafe-fx< index_0 12)"
 "(let-values()"
-"(let-values(((ok?_0 gs58_0 quot59_0 datum60_0)"
+"(let-values(((ok?_0 gs56_0 quot57_0 datum58_0)"
 "(let-values(((s_0) e_1))"
 "(if(let-values(((s_1)"
 "(if(1/syntax?"
@@ -35355,22 +35348,22 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((gs58_0"
-" quot59_0"
-" datum60_0)"
+"(let-values(((gs56_0"
+" quot57_0"
+" datum58_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
 "(syntax-e$2"
 " s_0)"
 " s_0)))"
-"(let-values(((gs61_0)"
+"(let-values(((gs59_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((quot62_0"
-" datum63_0)"
+"((quot60_0"
+" datum61_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -35380,8 +35373,8 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_2)"
 " s_2)))"
-"(let-values(((quot64_0"
-" datum65_0)"
+"(let-values(((quot62_0"
+" datum63_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -35391,12 +35384,12 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_4)"
 " s_4)))"
-"(let-values(((quot66_0)"
+"(let-values(((quot64_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
 " s_6))"
-"((datum67_0)"
+"((datum65_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
@@ -35406,7 +35399,7 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_6)"
 " s_6)))"
-"(let-values(((datum68_0)"
+"(let-values(((datum66_0)"
 "(let-values(((s_8)"
 "(car"
 " s_7)))"
@@ -35423,10 +35416,10 @@ static const char *startup_source =
 " s_8)))"
 "(values)))))"
 "(values"
-" datum68_0))))))"
+" datum66_0))))))"
 "(values"
-" quot66_0"
-" datum67_0)))))"
+" quot64_0"
+" datum65_0)))))"
 "(()"
 "(let-values(((s_4)"
 "(cdr"
@@ -35439,28 +35432,28 @@ static const char *startup_source =
 " s_4)))"
 "(values)))))"
 "(values"
-" quot64_0"
-" datum65_0))))))"
-"(values"
-" gs61_0"
 " quot62_0"
-" datum63_0)))))"
+" datum63_0))))))"
+"(values"
+" gs59_0"
+" quot60_0"
+" datum61_0)))))"
 "(values"
 " #t"
-" gs58_0"
-" quot59_0"
-" datum60_0)))"
+" gs56_0"
+" quot57_0"
+" datum58_0)))"
 "(values #f #f #f #f)))))"
 "(if(let-values(((or-part_0)"
 "(if ok?_0"
-"(if(eq? 'quote quot59_0)"
+"(if(eq? 'quote quot57_0)"
 "(let-values(((or-part_0)"
 "(symbol?"
-" datum60_0)))"
+" datum58_0)))"
 "(if or-part_0"
 " or-part_0"
 "(string?"
-" datum60_0)))"
+" datum58_0)))"
 " #f)"
 " #f)))"
 "(if or-part_0"
@@ -35470,11 +35463,11 @@ static const char *startup_source =
 " #f)))"
 "(let-values()"
 "(let-values(((ok?_0"
-" _69_0"
-" id:rator70_0"
-" id:arg71_0"
-" thn72_0"
-" els73_0)"
+" _67_0"
+" id:rator68_0"
+" id:arg69_0"
+" thn70_0"
+" els71_0)"
 "(let-values(((s_0) e_1))"
 "(if(let-values(((s_1)"
 "(if(1/syntax?"
@@ -35612,26 +35605,26 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((_69_0"
-" id:rator70_0"
-" id:arg71_0"
-" thn72_0"
-" els73_0)"
+"(let-values(((_67_0"
+" id:rator68_0"
+" id:arg69_0"
+" thn70_0"
+" els71_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
 "(syntax-e$2"
 " s_0)"
 " s_0)))"
-"(let-values(((_74_0)"
+"(let-values(((_72_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((id:rator75_0"
-" id:arg76_0"
-" thn77_0"
-" els78_0)"
+"((id:rator73_0"
+" id:arg74_0"
+" thn75_0"
+" els76_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -35641,8 +35634,8 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_2)"
 " s_2)))"
-"(let-values(((id:rator79_0"
-" id:arg80_0)"
+"(let-values(((id:rator77_0"
+" id:arg78_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -35652,12 +35645,12 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_4)"
 " s_4)))"
-"(let-values(((id:rator83_0)"
+"(let-values(((id:rator81_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
 " s_6))"
-"((id:arg84_0)"
+"((id:arg82_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
@@ -35667,7 +35660,7 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_6)"
 " s_6)))"
-"(let-values(((id:arg85_0)"
+"(let-values(((id:arg83_0)"
 "(let-values(((s_8)"
 "(car"
 " s_7)))"
@@ -35684,12 +35677,12 @@ static const char *startup_source =
 " s_8)))"
 "(values)))))"
 "(values"
-" id:arg85_0))))))"
+" id:arg83_0))))))"
 "(values"
-" id:rator83_0"
-" id:arg84_0)))))"
-"((thn81_0"
-" els82_0)"
+" id:rator81_0"
+" id:arg82_0)))))"
+"((thn79_0"
+" els80_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -35699,12 +35692,12 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_4)"
 " s_4)))"
-"(let-values(((thn86_0)"
+"(let-values(((thn84_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
 " s_6))"
-"((els87_0)"
+"((els85_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
@@ -35714,7 +35707,7 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_6)"
 " s_6)))"
-"(let-values(((els88_0)"
+"(let-values(((els86_0)"
 "(let-values(((s_8)"
 "(car"
 " s_7)))"
@@ -35731,28 +35724,28 @@ static const char *startup_source =
 " s_8)))"
 "(values)))))"
 "(values"
-" els88_0))))))"
+" els86_0))))))"
 "(values"
-" thn86_0"
-" els87_0))))))"
+" thn84_0"
+" els85_0))))))"
 "(values"
-" id:rator79_0"
-" id:arg80_0"
-" thn81_0"
-" els82_0))))))"
+" id:rator77_0"
+" id:arg78_0"
+" thn79_0"
+" els80_0))))))"
 "(values"
-" _74_0"
-" id:rator75_0"
-" id:arg76_0"
-" thn77_0"
-" els78_0)))))"
+" _72_0"
+" id:rator73_0"
+" id:arg74_0"
+" thn75_0"
+" els76_0)))))"
 "(values"
 " #t"
-" _69_0"
-" id:rator70_0"
-" id:arg71_0"
-" thn72_0"
-" els73_0)))"
+" _67_0"
+" id:rator68_0"
+" id:arg69_0"
+" thn70_0"
+" els71_0)))"
 "(values #f #f #f #f #f #f)))))"
 "(if ok?_0"
 "(let-values()"
@@ -35760,37 +35753,37 @@ static const char *startup_source =
 "(let-values(((or-part_0)"
 "(hash-ref"
 " locals_1"
-" id:rator70_0"
+" id:rator68_0"
 " #f)))"
 "(if or-part_0"
 " or-part_0"
 "(lookup-defn"
 " defns_0"
-" id:rator70_0)))))"
+" id:rator68_0)))))"
 "(if c2_0"
 "((lambda(d_0)"
 "(if(known-predicate? d_0)"
 "(if(not"
 "(effects?_0"
-" thn72_0"
+" thn70_0"
 " expected-results_0"
 "(hash-set"
 " locals_1"
-" id:arg71_0"
+" id:arg69_0"
 "(known-satisfies8.1"
 "(known-predicate-key"
 " d_0)))))"
-"(loop_0 els73_0 locals_1)"
+"(loop_0 els71_0 locals_1)"
 " #f)"
 " #f))"
 " c2_0)"
 "(let-values() #f))))"
 "(let-values()"
 "(let-values(((ok?_1"
-" _89_0"
-" tst90_0"
-" thn91_0"
-" els92_0)"
+" _87_0"
+" tst88_0"
+" thn89_0"
+" els90_0)"
 "(let-values(((s_0) e_1))"
 "(if(let-values(((s_1)"
 "(if(1/syntax?"
@@ -35868,24 +35861,24 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((_89_0"
-" tst90_0"
-" thn91_0"
-" els92_0)"
+"(let-values(((_87_0"
+" tst88_0"
+" thn89_0"
+" els90_0)"
 "(let-values(((s_1)"
 "(if(1/syntax?"
 " s_0)"
 "(syntax-e$2"
 " s_0)"
 " s_0)))"
-"(let-values(((_93_0)"
+"(let-values(((_91_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((tst94_0"
-" thn95_0"
-" els96_0)"
+"((tst92_0"
+" thn93_0"
+" els94_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -35895,13 +35888,13 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_2)"
 " s_2)))"
-"(let-values(((tst97_0)"
+"(let-values(((tst95_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((thn98_0"
-" els99_0)"
+"((thn96_0"
+" els97_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -35911,12 +35904,12 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_4)"
 " s_4)))"
-"(let-values(((thn100_0)"
+"(let-values(((thn98_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
 " s_6))"
-"((els101_0)"
+"((els99_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
@@ -35926,7 +35919,7 @@ static const char *startup_source =
 "(syntax-e$2"
 " s_6)"
 " s_6)))"
-"(let-values(((els102_0)"
+"(let-values(((els100_0)"
 "(let-values(((s_8)"
 "(car"
 " s_7)))"
@@ -35943,25 +35936,25 @@ static const char *startup_source =
 " s_8)))"
 "(values)))))"
 "(values"
-" els102_0))))))"
+" els100_0))))))"
 "(values"
-" thn100_0"
-" els101_0))))))"
-"(values"
-" tst97_0"
 " thn98_0"
 " els99_0))))))"
 "(values"
-" _93_0"
-" tst94_0"
-" thn95_0"
-" els96_0)))))"
+" tst95_0"
+" thn96_0"
+" els97_0))))))"
+"(values"
+" _91_0"
+" tst92_0"
+" thn93_0"
+" els94_0)))))"
 "(values"
 " #t"
-" _89_0"
-" tst90_0"
-" thn91_0"
-" els92_0)))"
+" _87_0"
+" tst88_0"
+" thn89_0"
+" els90_0)))"
 "(values"
 " #f"
 " #f"
@@ -35970,13 +35963,13 @@ static const char *startup_source =
 " #f)))))"
 "(if ok?_1"
 "(if(not"
-"(effects?_0 tst90_0 1 locals_1))"
+"(effects?_0 tst88_0 1 locals_1))"
 "(if(not"
 "(effects?_0"
-" thn91_0"
+" thn89_0"
 " expected-results_0"
 " locals_1))"
-"(loop_0 els92_0 locals_1)"
+"(loop_0 els90_0 locals_1)"
 " #f)"
 " #f)"
 " #f)))))))))))))))))"
@@ -36213,8 +36206,8 @@ static const char *startup_source =
 "(lambda(v_0)(ok-make-struct-type-property-super? v_0 defns_0))"
 "(lambda(v_0)"
 "(not"
-"(let-values(((v103_0) v_0)((temp104_0) 1)((defns105_0) defns_0))"
-"(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_0)))))))"
+"(let-values(((v101_0) v_0)((temp102_0) 1)((defns103_0) defns_0))"
+"(any-side-effects?.1 defns103_0 unsafe-undefined unsafe-undefined v101_0 temp102_0)))))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_1)))"
@@ -36308,20 +36301,20 @@ static const char *startup_source =
 "(known-property-of-function?"
 " o_0))))))"
 "(not"
-"(let-values(((temp106_0)"
+"(let-values(((temp104_0)"
 "(list-ref"
 " prop+val_1"
 " 2))"
-"((temp107_0)"
+"((temp105_0)"
 " 1)"
-"((defns108_0)"
+"((defns106_0)"
 " defns_0))"
-"(any-side-effects?9.1"
-" defns108_0"
+"(any-side-effects?.1"
+" defns106_0"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp106_0"
-" temp107_0)))"
+" temp104_0"
+" temp105_0)))"
 " #f)"
 " #f))"
 " #f)))))"
@@ -36400,16 +36393,16 @@ static const char *startup_source =
 "(lambda(v_0)(field-count-expr-to-field-count v_0))"
 "(lambda(v_0)"
 "(not"
-"(let-values(((v109_0) v_0)"
-"((temp110_0) 1)"
-"((ready-variable?111_0) ready-variable?_0)"
-"((defns112_0) defns_0))"
-"(any-side-effects?9.1"
-" defns112_0"
+"(let-values(((v107_0) v_0)"
+"((temp108_0) 1)"
+"((ready-variable?109_0) ready-variable?_0)"
+"((defns110_0) defns_0))"
+"(any-side-effects?.1"
+" defns110_0"
 " unsafe-undefined"
-" ready-variable?111_0"
-" v109_0"
-" temp110_0))))"
+" ready-variable?109_0"
+" v107_0"
+" temp108_0))))"
 "(lambda(v_0)"
 "(known-good-struct-properties? v_0 immutables-expr_0 super-expr_0 defns_0))"
 "(lambda(v_0)(inspector-or-false? v_0))"
@@ -36621,13 +36614,13 @@ static const char *startup_source =
 "(if(known-property? o_0)"
 "(let-values()"
 "(not"
-"(let-values(((val-expr113_0) val-expr_0)((temp114_0) 1)((defns115_0) defns_0))"
-"(any-side-effects?9.1"
-" defns115_0"
+"(let-values(((val-expr111_0) val-expr_0)((temp112_0) 1)((defns113_0) defns_0))"
+"(any-side-effects?.1"
+" defns113_0"
 " unsafe-undefined"
 " unsafe-undefined"
-" val-expr113_0"
-" temp114_0))))"
+" val-expr111_0"
+" temp112_0))))"
 "(if(known-property-of-function? o_0)"
 "(let-values()(is-lambda? val-expr_0(known-property-of-function-arity o_0) defns_0))"
 "(let-values() #f))))))))))))))"
@@ -36792,13 +36785,13 @@ static const char *startup_source =
 "(compile-single)"
 "(lambda(p_0 cctx_0)"
 "(begin"
-"(let-values(((p12_0) p_0)((cctx13_0) cctx_0)((temp14_0) #f)((temp15_0) #t))"
-"(compile-top9.1 temp14_0 temp15_0 #f p12_0 cctx13_0)))))"
+"(let-values(((p10_0) p_0)((cctx11_0) cctx_0)((temp12_0) #f)((temp13_0) #t))"
+"(compile-top.1 temp12_0 temp13_0 #f p10_0 cctx11_0)))))"
 "(define-values"
-"(compile-top9.1)"
+"(compile-top.1)"
 "(lambda(serializable?1_0 single-expression?2_0 to-correlated-linklet?3_0 p7_0 cctx8_0)"
 "(begin"
-" 'compile-top9"
+" 'compile-top"
 "(let-values(((p_0) p7_0))"
 "(let-values(((cctx_0) cctx8_0))"
 "(let-values(((serializable?_0) serializable?1_0))"
@@ -36822,65 +36815,65 @@ static const char *startup_source =
 " phase-to-link-extra-inspectorss_0"
 " syntax-literals_0"
 " no-root-context-pos_0)"
-"(let-values(((temp16_0)(list p_0))"
-"((cctx17_0) cctx_0)"
-"((mpis18_0) mpis_0)"
-"((temp19_0)"
+"(let-values(((temp14_0)(list p_0))"
+"((cctx15_0) cctx_0)"
+"((mpis16_0) mpis_0)"
+"((temp17_0)"
 "(if single-expression?_0"
 "(list* '()(list syntax-literals-id) '(()))"
 "(list"
 "(list top-level-bind!-id top-level-require!-id)"
 "(list mpi-vector-id syntax-literals-id)"
 " instance-imports)))"
-"((temp20_0)"
+"((temp18_0)"
 "(list"
 " top-level-instance"
 " empty-top-syntax-literal-instance"
 " empty-instance-instance))"
-"((serializable?21_0) serializable?_0)"
-"((to-correlated-linklet?22_0) to-correlated-linklet?_0)"
-"((temp23_0)(lambda()(set! purely-functional?_0 #f)))"
-"((temp24_0)"
+"((serializable?19_0) serializable?_0)"
+"((to-correlated-linklet?20_0) to-correlated-linklet?_0)"
+"((temp21_0)(lambda()(set! purely-functional?_0 #f)))"
+"((temp22_0)"
 "(lambda(e_0 expected-results_0 phase_1 required-reference?_0)"
 "(if(if purely-functional?_0"
-"(let-values(((e27_0) e_0)"
-"((expected-results28_0)"
+"(let-values(((e25_0) e_0)"
+"((expected-results26_0)"
 " expected-results_0)"
-"((required-reference?29_0)"
+"((required-reference?27_0)"
 " required-reference?_0))"
-"(any-side-effects?9.1"
+"(any-side-effects?.1"
 " unsafe-undefined"
 " unsafe-undefined"
-" required-reference?29_0"
-" e27_0"
-" expected-results28_0))"
+" required-reference?27_0"
+" e25_0"
+" expected-results26_0))"
 " #f)"
 "(let-values()(set! purely-functional?_0 #f))"
 "(void))))"
-"((temp25_0)"
+"((temp23_0)"
 "(lambda(s_0 cctx_1)"
 "(begin"
 "(set! purely-functional?_0 #f)"
 "(compile-top-level-require s_0 cctx_1))))"
-"((temp26_0)(not single-expression?_0)))"
-"(compile-forms33.1"
-" temp20_0"
-" temp19_0"
+"((temp24_0)(not single-expression?_0)))"
+"(compile-forms.1"
+" temp18_0"
+" temp17_0"
 " null"
+" temp22_0"
 " temp24_0"
-" temp26_0"
-" temp23_0"
+" temp21_0"
 " #f"
 " null"
 " unsafe-undefined"
 " #f"
-" temp25_0"
+" temp23_0"
 " #f"
-" serializable?21_0"
-" to-correlated-linklet?22_0"
-" temp16_0"
-" cctx17_0"
-" mpis18_0))))"
+" serializable?19_0"
+" to-correlated-linklet?20_0"
+" temp14_0"
+" cctx15_0"
+" mpis16_0))))"
 "(let-values(((add-metadata_0)"
 "(lambda(ht_0)"
 "(begin"
@@ -36996,7 +36989,7 @@ static const char *startup_source =
 "(list top-level-require!-id form-stx_0 ns-id)))"
 "(let-values() #f))))))"
 "(define-values"
-"(select-defined-syms-and-bind!16.1)"
+"(select-defined-syms-and-bind!.1)"
 "(lambda(as-transformer?5_0"
 " frame-id1_0"
 " in4_0"
@@ -37008,7 +37001,7 @@ static const char *startup_source =
 " phase14_0"
 " all-scopes-stx15_0)"
 "(begin"
-" 'select-defined-syms-and-bind!16"
+" 'select-defined-syms-and-bind!"
 "(let-values(((ids_0) ids11_0))"
 "(let-values(((defined-syms_0) defined-syms12_0))"
 "(let-values(((self_0) self13_0))"
@@ -37102,78 +37095,78 @@ static const char *startup_source =
 " id_0)"
 "(values))))"
 "(let-values(((b_0)"
-"(let-values(((self23_0)"
+"(let-values(((self21_0)"
 " self_0)"
-"((phase24_0)"
+"((phase22_0)"
 " phase_0)"
-"((defined-sym25_0)"
+"((defined-sym23_0)"
 " defined-sym_0)"
-"((frame-id26_0)"
+"((frame-id24_0)"
 " frame-id_0)"
-"((sym27_0)"
+"((sym25_0)"
 " sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
-" frame-id26_0"
+" frame-id24_0"
 " #f"
 " unsafe-undefined"
 " unsafe-undefined"
 " 0"
-" sym27_0"
-" self23_0"
-" phase24_0"
-" defined-sym25_0))))"
+" sym25_0"
+" self21_0"
+" phase22_0"
+" defined-sym23_0))))"
 "(begin"
 "(if requires+provides_0"
 "(let-values()"
-"(let-values(((requires+provides28_0)"
+"(let-values(((requires+provides26_0)"
 " requires+provides_0)"
-"((id29_0)"
+"((id27_0)"
 " id_0)"
-"((phase30_0)"
+"((phase28_0)"
 " phase_0)"
-"((b31_0)"
+"((b29_0)"
 " b_0))"
-"(remove-required-id!75.1"
-" b31_0"
-" requires+provides28_0"
-" id29_0"
-" phase30_0)))"
+"(remove-required-id!.1"
+" b29_0"
+" requires+provides26_0"
+" id27_0"
+" phase28_0)))"
 "(void))"
-"(let-values(((id19_0)"
+"(let-values(((id17_0)"
 " id_0)"
-"((b20_0)"
+"((b18_0)"
 " b_0)"
-"((phase21_0)"
+"((phase19_0)"
 " phase_0)"
-"((orig-s22_0)"
+"((orig-s20_0)"
 " orig-s_0))"
-"(add-binding!17.1"
-" orig-s22_0"
+"(add-binding!.1"
+" orig-s20_0"
 " #f"
-" id19_0"
-" b20_0"
-" phase21_0))"
+" id17_0"
+" b18_0"
+" phase19_0))"
 "(if requires+provides_0"
 "(let-values()"
-"(let-values(((requires+provides32_0)"
+"(let-values(((requires+provides30_0)"
 " requires+provides_0)"
-"((id33_0)"
+"((id31_0)"
 " id_0)"
-"((phase34_0)"
+"((phase32_0)"
 " phase_0)"
-"((b35_0)"
+"((b33_0)"
 " b_0)"
-"((as-transformer?36_0)"
+"((as-transformer?34_0)"
 " as-transformer?_0))"
-"(add-defined-or-required-id!19.1"
-" as-transformer?36_0"
+"(add-defined-or-required-id!.1"
+" as-transformer?34_0"
 " #f"
-" requires+provides32_0"
-" id33_0"
-" phase34_0"
-" b35_0)))"
+" requires+provides30_0"
+" id31_0"
+" phase32_0"
+" b33_0)))"
 "(void))"
 " defined-sym_0))))))"
 " fold-var_1))))"
@@ -37214,24 +37207,14 @@ static const char *startup_source =
 "(select-defined-syms-and-bind!/ctx)"
 "(lambda(tl-ids_0 ctx_0)"
 "(begin"
-"(let-values(((tl-ids37_0) tl-ids_0)"
-"((temp38_0)(root-expand-context-defined-syms ctx_0))"
-"((temp39_0)(root-expand-context-self-mpi ctx_0))"
-"((temp40_0)(expand-context-phase ctx_0))"
-"((temp41_0)(root-expand-context-all-scopes-stx ctx_0))"
-"((temp42_0)(root-expand-context-frame-id ctx_0))"
-"((temp43_0)(root-expand-context-top-level-bind-scope ctx_0)))"
-"(select-defined-syms-and-bind!16.1"
-" #f"
-" temp42_0"
-" #f"
-" #f"
-" temp43_0"
-" tl-ids37_0"
-" temp38_0"
-" temp39_0"
-" temp40_0"
-" temp41_0)))))"
+"(let-values(((tl-ids35_0) tl-ids_0)"
+"((temp36_0)(root-expand-context-defined-syms ctx_0))"
+"((temp37_0)(root-expand-context-self-mpi ctx_0))"
+"((temp38_0)(expand-context-phase ctx_0))"
+"((temp39_0)(root-expand-context-all-scopes-stx ctx_0))"
+"((temp40_0)(root-expand-context-frame-id ctx_0))"
+"((temp41_0)(root-expand-context-top-level-bind-scope ctx_0)))"
+"(select-defined-syms-and-bind!.1 #f temp40_0 #f #f temp41_0 tl-ids35_0 temp36_0 temp37_0 temp38_0 temp39_0)))))"
 "(define-values"
 "(add-defined-sym!)"
 "(lambda(defined-syms_0 phase_0 sym_0 id_0)"
@@ -37249,7 +37232,7 @@ static const char *startup_source =
 "(lambda(ns_0 phase-shift_0 original-self_0 self_0)"
 "(let-values(((root-ctx_0)"
 "(let-values(((temp1_0)(namespace-mpi ns_0)))"
-"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined temp1_0))))"
+"(make-root-expand-context.1 #f null unsafe-undefined unsafe-undefined temp1_0))))"
 "(let-values(((s_0)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_0))))"
 "(let-values((()"
 "(begin"
@@ -37326,7 +37309,7 @@ static const char *startup_source =
 " phase-shift_0)"
 "((temp9_0)"
 " 'module))"
-"(perform-require!78.1"
+"(perform-require!.1"
 " #f"
 " #t"
 " #f"
@@ -37426,7 +37409,7 @@ static const char *startup_source =
 " phase_0)"
 "((sym15_0)"
 " sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -37440,7 +37423,7 @@ static const char *startup_source =
 " sym15_0)))"
 "((phase12_0)"
 " phase_0))"
-"(add-binding!17.1"
+"(add-binding!.1"
 " #f"
 " #f"
 " id10_0"
@@ -37488,7 +37471,7 @@ static const char *startup_source =
 "(root-expand-context-all-scopes-stx root-context_0))"
 "((outside-mpi20_0) outside-mpi_0)"
 "((inside-mpi21_0) inside-mpi_0))"
-"(syntax-module-path-index-shift13.1"
+"(syntax-module-path-index-shift.1"
 " #f"
 " temp19_0"
 " outside-mpi20_0"
@@ -37510,7 +37493,7 @@ static const char *startup_source =
 "(root-expand-context/outer-frame-id the-struct_0)))"
 "                (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_0)))))))))"
 "(define-values"
-"(check-require-access9.1)"
+"(check-require-access.1)"
 "(lambda(skip-imports1_0"
 " linklet3_0"
 " import-module-uses4_0"
@@ -37519,7 +37502,7 @@ static const char *startup_source =
 " extra-inspector7_0"
 " extra-inspectorsss8_0)"
 "(begin"
-" 'check-require-access9"
+" 'check-require-access"
 "(let-values(((linklet_0) linklet3_0))"
 "(let-values(((skip-num-imports_0) skip-imports1_0))"
 "(let-values(((import-module-uses_0) import-module-uses4_0))"
@@ -37731,10 +37714,10 @@ static const char *startup_source =
 "(let-values(((e_0)(hash-ref(unsafe-place-local-ref cell.1$3) key_0 #f)))(if e_0(ephemeron-value e_0) #f)))))"
 "(define-values(current-module-declare-as-predefined)(make-parameter #f #f 'current-module-declare-as-predefined))"
 "(define-values"
-"(eval-module8.1)"
+"(eval-module.1)"
 "(lambda(namespace1_0 supermodule-name3_0 with-submodules?2_0 c7_0)"
 "(begin"
-" 'eval-module8"
+" 'eval-module"
 "(let-values(((c_0) c7_0))"
 "(let-values(((ns_0)(if(eq? namespace1_0 unsafe-undefined)(1/current-namespace) namespace1_0)))"
 "(let-values(((with-submodules?_0) with-submodules?2_0))"
@@ -37898,17 +37881,17 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((c12_0)"
+"(let-values(((c10_0)"
 " c_1)"
-"((ns13_0)"
+"((ns11_0)"
 " ns_1)"
-"((declare-name14_0)"
+"((declare-name12_0)"
 " declare-name_0))"
-"(eval-module8.1"
-" ns13_0"
-" declare-name14_0"
+"(eval-module.1"
+" ns11_0"
+" declare-name12_0"
 " #t"
-" c12_0)))"
+" c10_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
@@ -37958,17 +37941,17 @@ static const char *startup_source =
 "(error"
 "                                                                                                                                                                 \"missing submodule declaration:\""
 " name_0)))"
-"(let-values(((sm-cd15_0)"
+"(let-values(((sm-cd13_0)"
 " sm-cd_0)"
-"((ns16_0)"
+"((ns14_0)"
 " ns_1)"
-"((declare-name17_0)"
+"((declare-name15_0)"
 " declare-name_0))"
-"(eval-module8.1"
-" ns16_0"
-" declare-name17_0"
+"(eval-module.1"
+" ns14_0"
+" declare-name15_0"
 " #t"
-" sm-cd15_0)))))"
+" sm-cd13_0)))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
@@ -37986,35 +37969,35 @@ static const char *startup_source =
 "(begin"
 " 'declare-this-module"
 "(let-values(((m_0)"
-"(let-values(((temp22_0)"
+"(let-values(((temp20_0)"
 "(1/current-module-declare-source))"
-"((original-self23_0)"
+"((original-self21_0)"
 " original-self_0)"
-"((requires24_0)"
+"((requires22_0)"
 " requires_0)"
-"((provides25_0)"
+"((provides23_0)"
 " provides_0)"
-"((language-info26_0)"
+"((language-info24_0)"
 " language-info_0)"
-"((min-phase27_0)"
+"((min-phase25_0)"
 " min-phase_0)"
-"((max-phase28_0)"
+"((max-phase26_0)"
 " max-phase_0)"
-"((cross-phase-persistent?29_0)"
+"((cross-phase-persistent?27_0)"
 " cross-phase-persistent?_0)"
-"((temp30_0)"
+"((temp28_0)"
 "(current-module-declare-as-predefined))"
-"((temp31_0)"
+"((temp29_0)"
 "(append"
 " pre-submodule-names_0"
 " post-submodule-names_0))"
-"((supermodule-name32_0)"
+"((supermodule-name30_0)"
 " supermodule-name_0)"
-"((temp33_0)"
+"((temp31_0)"
 "(lambda()"
 "(get-all-variables"
 " phases-h_0)))"
-"((temp34_0)"
+"((temp32_0)"
 "(lambda(phase-level_0"
 " ns_2"
 " insp_0)"
@@ -38034,12 +38017,12 @@ static const char *startup_source =
 " phase-to-link-extra-inspectorsss_0"
 " phase-level_0"
 " #f))))"
-"((temp35_0)"
+"((temp33_0)"
 "(lambda(bulk-binding-registry_0)"
 "(force-syntax-deserialize"
 " syntax-literals-data-instance_0"
 " bulk-binding-registry_0)))"
-"((temp36_0)"
+"((temp34_0)"
 "(lambda(data-box_0"
 " ns_2"
 " phase-shift_0"
@@ -38063,7 +38046,7 @@ static const char *startup_source =
 " bulk-binding-registry_0"
 " insp_0"
 " create-root-expand-context-from-module_0)))))"
-"((temp37_0)"
+"((temp35_0)"
 "(lambda(data-box_0"
 " ns_2"
 " phase-shift_0"
@@ -38131,36 +38114,36 @@ static const char *startup_source =
 "(let-values(((mis_2"
 " is_2)"
 "(let-values()"
-"(let-values(((mis45_0"
-" is46_0)"
+"(let-values(((mis43_0"
+" is44_0)"
 "(let-values()"
-"(let-values(((ns47_0)"
+"(let-values(((ns45_0)"
 " ns_2)"
-"((mu48_0)"
+"((mu46_0)"
 " mu_0)"
-"((original-self49_0)"
+"((original-self47_0)"
 " original-self_0)"
-"((self50_0)"
+"((self48_0)"
 " self_0)"
-"((temp51_0)"
+"((temp49_0)"
 "(phase+"
 "(phase-"
 " phase-level_0"
 "(module-use-phase"
 " mu_0))"
 " phase-shift_0)))"
-"(namespace-module-use->module+linklet-instances144.1"
-" temp51_0"
-" original-self49_0"
-" self50_0"
-" ns47_0"
-" mu48_0)))))"
+"(namespace-module-use->module+linklet-instances.1"
+" temp49_0"
+" original-self47_0"
+" self48_0"
+" ns45_0"
+" mu46_0)))))"
 "(values"
 "(cons"
-" mis45_0"
+" mis43_0"
 " mis_1)"
 "(cons"
-" is46_0"
+" is44_0"
 " is_1))))))"
 "(values"
 " mis_2"
@@ -38188,41 +38171,41 @@ static const char *startup_source =
 " is_0)))))"
 "(let-values((()"
 "(begin"
-"(let-values(((phase-linklet38_0)"
+"(let-values(((phase-linklet36_0)"
 " phase-linklet_0)"
-"((temp39_0)"
+"((temp37_0)"
 " 2)"
-"((module-uses40_0)"
+"((module-uses38_0)"
 " module-uses_0)"
-"((import-module-instances41_0)"
+"((import-module-instances39_0)"
 " import-module-instances_0)"
-"((insp42_0)"
+"((insp40_0)"
 " insp_0)"
-"((extra-inspector43_0)"
+"((extra-inspector41_0)"
 " extra-inspector_0)"
-"((temp44_0)"
+"((temp42_0)"
 "(hash-ref"
 " phase-to-link-extra-inspectorsss_0"
 " phase-level_0"
 " #f)))"
-"(check-require-access9.1"
-" temp39_0"
-" phase-linklet38_0"
-" module-uses40_0"
-" import-module-instances41_0"
-" insp42_0"
-" extra-inspector43_0"
-" temp44_0))"
+"(check-require-access.1"
+" temp37_0"
+" phase-linklet36_0"
+" module-uses38_0"
+" import-module-instances39_0"
+" insp40_0"
+" extra-inspector41_0"
+" temp42_0))"
 "(values))))"
 "(let-values(((module-body-instance-instance_0)"
-"(let-values(((temp52_0)"
+"(let-values(((temp50_0)"
 "(if(zero-phase?"
 " phase-level_0)"
 "(let-values()"
 "(lambda(name_0"
 " val_0)"
 "(begin"
-" 'temp52"
+" 'temp50"
 "(error"
 " 'define-syntax"
 "                                                                                                                                                                         \"should not happen at phase level 0\"))))"
@@ -38230,15 +38213,15 @@ static const char *startup_source =
 "(lambda(name_0"
 " val_0)"
 "(begin"
-" 'temp52"
+" 'temp50"
 "(namespace-set-transformer!"
 " ns_2"
 "(sub1"
 " phase-level_0)"
 " name_0"
 " val_0)))))))"
-"(make-module-body-instance-instance18.1"
-" temp52_0))))"
+"(make-module-body-instance-instance.1"
+" temp50_0))))"
 "(let-values(((instantiate-body_0)"
 "(lambda()"
 "(begin"
@@ -38291,14 +38274,14 @@ static const char *startup_source =
 " current-expand-context"
 "(promise1.1"
 "(lambda()"
-"(let-values(((ns-153_0)"
+"(let-values(((ns-151_0)"
 " ns-1_0))"
-"(make-expand-context12.1"
+"(make-expand-context.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" ns-153_0)))"
+" ns-151_0)))"
 " #f)"
 "(with-continuation-mark"
 " current-module-code-inspector"
@@ -38310,25 +38293,25 @@ static const char *startup_source =
 "(let-values()"
 "(end-performance-region))"
 "(void)))))))"
-"(make-module39.1"
-" cross-phase-persistent?29_0"
-" temp35_0"
+"(make-module.1"
+" cross-phase-persistent?27_0"
 " temp33_0"
-" temp37_0"
-" language-info26_0"
-" max-phase28_0"
-" min-phase27_0"
-" #f"
-" temp34_0"
-" temp30_0"
-" temp36_0"
-" #f"
-" provides25_0"
-" requires24_0"
-" original-self23_0"
-" temp22_0"
 " temp31_0"
-" supermodule-name32_0))))"
+" temp35_0"
+" language-info24_0"
+" max-phase26_0"
+" min-phase25_0"
+" #f"
+" temp32_0"
+" temp28_0"
+" temp34_0"
+" #f"
+" provides23_0"
+" requires22_0"
+" original-self21_0"
+" temp20_0"
+" temp29_0"
+" supermodule-name30_0))))"
 "(let-values(((declare-name_0)"
 "(substitute-module-declare-name"
 " default-name_0)))"
@@ -38341,17 +38324,17 @@ static const char *startup_source =
 " declare-name_0"
 " #t))"
 "(void))"
-"(let-values(((ns18_0) ns_1)"
-"((m19_0) m_0)"
-"((declare-name20_0)"
+"(let-values(((ns16_0) ns_1)"
+"((m17_0) m_0)"
+"((declare-name18_0)"
 " declare-name_0)"
-"((with-submodules?21_0)"
+"((with-submodules?19_0)"
 " with-submodules?_0))"
-"(declare-module!58.1"
-" with-submodules?21_0"
-" ns18_0"
-" m19_0"
-" declare-name20_0))"
+"(declare-module!.1"
+" with-submodules?19_0"
+" ns16_0"
+" m17_0"
+" declare-name18_0))"
 "(if with-submodules?_0"
 "(let-values()"
 "(declare-submodules_0"
@@ -38370,7 +38353,7 @@ static const char *startup_source =
 "(declare-this-module_0 ns_0)))))))))))))))))))))))))"
 "(if log-performance?(let-values()(end-performance-region))(void))))))))))))"
 "(define-values"
-"(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)"
+"(struct:instance-data instance-data9.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -38404,20 +38387,20 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((inst_0)"
-"(let-values(((ns55_0) ns_0)"
-"((phase-shift56_0) phase-shift_0)"
-"((self57_0) self_0)"
-"((insp58_0) insp_0)"
-"((bulk-binding-registry59_0) bulk-binding-registry_0)"
-"((temp60_0)"
+"(let-values(((ns53_0) ns_0)"
+"((phase-shift54_0) phase-shift_0)"
+"((self55_0) self_0)"
+"((insp56_0) insp_0)"
+"((bulk-binding-registry57_0) bulk-binding-registry_0)"
+"((temp58_0)"
 "                                    (lambda (name_0 val_0) (error \"shouldn't get here for the root-ctx linklet\"))))"
-"(make-instance-instance13.1"
-" bulk-binding-registry59_0"
-" insp58_0"
-" ns55_0"
-" phase-shift56_0"
-" self57_0"
-" temp60_0))))"
+"(make-instance-instance.1"
+" bulk-binding-registry57_0"
+" insp56_0"
+" ns53_0"
+" phase-shift54_0"
+" self55_0"
+" temp58_0))))"
 "(let-values(((syntax-literals-instance_0)"
 "(if syntax-literals-linklet_0"
 "(1/instantiate-linklet"
@@ -38426,7 +38409,7 @@ static const char *startup_source =
 " empty-syntax-literals-instance)))"
 "(let-values((()"
 "(begin"
-"(set-box! data-box_0(instance-data11.1 syntax-literals-instance_0 cache-key_0))"
+"(set-box! data-box_0(instance-data9.1 syntax-literals-instance_0 cache-key_0))"
 "(values))))"
 "(let-values(((get-encoded-root-expand-ctx_0)"
 "(1/instance-variable-value syntax-literals-instance_0 'get-encoded-root-expand-ctx)))"
@@ -38437,8 +38420,8 @@ static const char *startup_source =
 "(promise1.1"
 "(lambda()"
 "(shift-to-inside-root-context"
-"(let-values(((self61_0) self_0))"
-"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_0))))"
+"(let-values(((self59_0) self_0))"
+"(make-root-expand-context.1 #f null unsafe-undefined unsafe-undefined self59_0))))"
 " #f)))"
 "(if(procedure? get-encoded-root-expand-ctx_0)"
 "(let-values()"
@@ -38776,7 +38759,7 @@ static const char *startup_source =
 " symbol<?)"
 "((car6_0)"
 " car))"
-"(sort7.1"
+"(sort.1"
 " #f"
 " car6_0"
 " l4_0"
@@ -38797,7 +38780,7 @@ static const char *startup_source =
 " null"
 "(hash-iterate-first ht_0)))))))"
 "(let-values(((result-l1_0) result-l_0)((phase<?2_0) phase<?)((car3_0) car))"
-"(sort7.1 #f car3_0 result-l1_0 phase<?2_0)))))))"
+"(sort.1 #f car3_0 result-l1_0 phase<?2_0)))))))"
 "(values"
 "(extract_0(lambda(b/p_0)(not(provided-as-transformer? b/p_0))))"
 "(extract_0 provided-as-transformer?)))))))"
@@ -38900,7 +38883,7 @@ static const char *startup_source =
 " l_0)"
 "((symbol<?11_0)"
 " symbol<?))"
-"(sort7.1"
+"(sort.1"
 " #f"
 " #f"
 " l10_0"
@@ -38919,7 +38902,7 @@ static const char *startup_source =
 " null"
 "(hash-iterate-first ht_0)))))))"
 "(let-values(((result-l7_0) result-l_0)((phase<?8_0) phase<?)((car9_0) car))"
-"(sort7.1 #f car9_0 result-l7_0 phase<?8_0))))))"
+"(sort.1 #f car9_0 result-l7_0 phase<?8_0))))))"
 "(define-values"
 "(1/compiled-expression?)"
 "(lambda(c_0)"
@@ -39052,10 +39035,10 @@ static const char *startup_source =
 "(map2 change-submodule-name_0(compiled-in-memory-post-compiled-in-memorys c_0))))"
 "(let-values(((the-struct_0) c_0))"
 "(if(compiled-in-memory? the-struct_0)"
-"(let-values(((pre-compiled-in-memorys9_0) pre-compiled-in-memorys_0)"
-"((post-compiled-in-memorys10_0) post-compiled-in-memorys_0)"
-"((linklet-directory11_0)"
-"(let-values(((temp12_0)"
+"(let-values(((pre-compiled-in-memorys7_0) pre-compiled-in-memorys_0)"
+"((post-compiled-in-memorys8_0) post-compiled-in-memorys_0)"
+"((linklet-directory9_0)"
+"(let-values(((temp10_0)"
 "(update-one-name"
 "(let-values(((ld_0)"
 "(compiled->linklet-directory-or-bundle c_0)))"
@@ -39063,12 +39046,12 @@ static const char *startup_source =
 " ld_0"
 "(hash-ref(linklet-directory->hash$1 ld_0) #f)))"
 " full-name_0))"
-"((temp13_0)(symbol? full-name_0))"
-"((temp14_0)"
+"((temp11_0)(symbol? full-name_0))"
+"((temp12_0)"
 "(append pre-compiled-in-memorys_0 post-compiled-in-memorys_0)))"
-"(rebuild-linklet-directory5.1 temp13_0 temp12_0 temp14_0))))"
+"(rebuild-linklet-directory.1 temp11_0 temp10_0 temp12_0))))"
 "(compiled-in-memory1.1"
-" linklet-directory11_0"
+" linklet-directory9_0"
 "(compiled-in-memory-original-self the-struct_0)"
 "(compiled-in-memory-requires the-struct_0)"
 "(compiled-in-memory-provides the-struct_0)"
@@ -39077,8 +39060,8 @@ static const char *startup_source =
 "(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_0)"
 "(compiled-in-memory-mpis the-struct_0)"
 "(compiled-in-memory-syntax-literals the-struct_0)"
-" pre-compiled-in-memorys9_0"
-" post-compiled-in-memorys10_0"
+" pre-compiled-in-memorys7_0"
+" post-compiled-in-memorys8_0"
 "(compiled-in-memory-namespace-scopes the-struct_0)"
 "(compiled-in-memory-purely-functional? the-struct_0)))"
 "                          (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_0)))))))"
@@ -39125,10 +39108,10 @@ static const char *startup_source =
 "(update-one-name)"
 "(lambda(lb_0 name_0)(begin(hash->linklet-bundle(hash-set(linklet-bundle->hash lb_0) 'name name_0)))))"
 "(define-values"
-"(rebuild-linklet-directory5.1)"
+"(rebuild-linklet-directory.1)"
 "(lambda(bundle-ok?1_0 main3_0 submods4_0)"
 "(begin"
-" 'rebuild-linklet-directory5"
+" 'rebuild-linklet-directory"
 "(let-values(((main_0) main3_0))"
 "(let-values(((submods_0) submods4_0))"
 "(let-values(((bundle-ok?_0) bundle-ok?1_0))"
@@ -39274,7 +39257,7 @@ static const char *startup_source =
 "((temp6_0)(symbol?(module-compiled-current-name c_0)))"
 "((temp7_0)"
 "(append pre-compiled-in-memorys_0 post-compiled-in-memorys_0)))"
-"(rebuild-linklet-directory5.1 temp6_0 temp5_0 temp7_0))))"
+"(rebuild-linklet-directory.1 temp6_0 temp5_0 temp7_0))))"
 "(compiled-in-memory1.1"
 " linklet-directory4_0"
 "(compiled-in-memory-original-self the-struct_0)"
@@ -39306,7 +39289,7 @@ static const char *startup_source =
 "(append"
 "(if non-star?_0 submods_0(1/module-compiled-submodules c_0 #t))"
 "(if non-star?_0(1/module-compiled-submodules c_0 #f) submods_0)))))"
-"(rebuild-linklet-directory5.1 #f temp8_0 temp9_0)))))))))))))"
+"(rebuild-linklet-directory.1 #f temp8_0 temp9_0)))))))))))))"
 "(define-values"
 "(fixup-submodule-names)"
 "(lambda(c_0)(begin(1/module-compiled-name c_0(1/module-compiled-name c_0)))))"
@@ -39319,7 +39302,7 @@ static const char *startup_source =
 "(linklet-bundle->hash b_0)"
 "(if pre?_0 'pre 'post)"
 "(let-values(((temp10_0)(map2 module-compiled-immediate-name submods_0))((symbol<?11_0) symbol<?))"
-"(sort7.1 #f #f temp10_0 symbol<?11_0)))))))"
+"(sort.1 #f #f temp10_0 symbol<?11_0)))))))"
 "(define-values"
 "(1/module-compiled-language-info)"
 "(lambda(c_0)"
@@ -39353,10 +39336,10 @@ static const char *startup_source =
 "(1/instance-variable-value inst_0 'requires))))))))"
 "(define-values"
 "(1/module-compiled-exports)"
-"(let-values(((module-compiled-exports3_0)"
+"(let-values(((module-compiled-exports_0)"
 "(lambda(c2_0 verbosity1_0)"
 "(begin"
-" 'module-compiled-exports3"
+" 'module-compiled-exports"
 "(let-values(((c_0) c2_0))"
 "(let-values(((verbosity_0) verbosity1_0))"
 "(let-values()"
@@ -39382,8 +39365,8 @@ static const char *startup_source =
 "(1/instance-variable-value inst_0 'self-mpi)"
 " verbosity_0)))))))))))))"
 "(case-lambda"
-"((c_0)(begin 'module-compiled-exports(module-compiled-exports3_0 c_0 #f)))"
-"((c_0 verbosity1_0)(module-compiled-exports3_0 c_0 verbosity1_0)))))"
+"((c_0)(begin 'module-compiled-exports(module-compiled-exports_0 c_0 #f)))"
+"((c_0 verbosity1_0)(module-compiled-exports_0 c_0 verbosity1_0)))))"
 "(define-values"
 "(1/module-compiled-indirect-exports)"
 "(lambda(c_0)"
@@ -39460,7 +39443,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((h_0)(compiled-module->h c_0)))(hash-ref h_0 'cross-phase-persistent? #f))))))))"
 "(define-values"
-"(compile-module13.1)"
+"(compile-module.1)"
 "(lambda(force-linklet-directory?1_0"
 " modules-being-compiled4_0"
 " need-compiled-submodule-rename?5_0"
@@ -39469,7 +39452,7 @@ static const char *startup_source =
 " p11_0"
 " cctx12_0)"
 "(begin"
-" 'compile-module13"
+" 'compile-module"
 "(let-values(((p_0) p11_0))"
 "(let-values(((cctx_0) cctx12_0))"
 "(let-values(((force-linklet-directory?_0) force-linklet-directory?1_0))"
@@ -39548,15 +39531,15 @@ static const char *startup_source =
 " null"
 "(hash-iterate-first ht_0)))))))))"
 "(let-values(((pre-submodules_0)"
-"(let-values(((temp37_0)(get-submodules_0 #f))"
-"((symbol<?38_0) symbol<?)"
-"((car39_0) car))"
-"(sort7.1 #f car39_0 temp37_0 symbol<?38_0))))"
+"(let-values(((temp33_0)(get-submodules_0 #f))"
+"((symbol<?34_0) symbol<?)"
+"((car35_0) car))"
+"(sort.1 #f car35_0 temp33_0 symbol<?34_0))))"
 "(let-values(((post-submodules_0)"
-"(let-values(((temp40_0)(get-submodules_0 #t))"
-"((symbol<?41_0) symbol<?)"
-"((car42_0) car))"
-"(sort7.1 #f car42_0 temp40_0 symbol<?41_0))))"
+"(let-values(((temp36_0)(get-submodules_0 #t))"
+"((symbol<?37_0) symbol<?)"
+"((car38_0) car))"
+"(sort.1 #f car38_0 temp36_0 symbol<?37_0))))"
 "(let-values(((c1_0)(parsed-module-compiled-module p_0)))"
 "(if c1_0"
 "((lambda(c_0)"
@@ -39572,52 +39555,52 @@ static const char *startup_source =
 "(map2 cdr post-submodules_0)))))"
 " c1_0)"
 "(let-values()"
-"(let-values(((p43_0) p_0)"
-"((cctx44_0) cctx_0)"
-"((full-module-name45_0) full-module-name_0)"
-"((force-linklet-directory?46_0) force-linklet-directory?_0)"
-"((serializable?47_0) serializable?_0)"
-"((to-correlated-linklet?48_0) to-correlated-linklet?_0)"
-"((modules-being-compiled49_0) modules-being-compiled_0)"
-"((pre-submodules50_0) pre-submodules_0)"
-"((post-submodules51_0) post-submodules_0)"
-"((need-compiled-submodule-rename?52_0)"
+"(let-values(((p39_0) p_0)"
+"((cctx40_0) cctx_0)"
+"((full-module-name41_0) full-module-name_0)"
+"((force-linklet-directory?42_0) force-linklet-directory?_0)"
+"((serializable?43_0) serializable?_0)"
+"((to-correlated-linklet?44_0) to-correlated-linklet?_0)"
+"((modules-being-compiled45_0) modules-being-compiled_0)"
+"((pre-submodules46_0) pre-submodules_0)"
+"((post-submodules47_0) post-submodules_0)"
+"((need-compiled-submodule-rename?48_0)"
 " need-compiled-submodule-rename?_0))"
-"(compile-module-from-parsed34.1"
-" force-linklet-directory?46_0"
-" full-module-name45_0"
-" modules-being-compiled49_0"
-" need-compiled-submodule-rename?52_0"
-" post-submodules51_0"
-" pre-submodules50_0"
-" serializable?47_0"
-" to-correlated-linklet?48_0"
-" p43_0"
-" cctx44_0)))))))))))))))))))))"
+"(compile-module-from-parsed.1"
+" force-linklet-directory?42_0"
+" full-module-name41_0"
+" modules-being-compiled45_0"
+" need-compiled-submodule-rename?48_0"
+" post-submodules47_0"
+" pre-submodules46_0"
+" serializable?43_0"
+" to-correlated-linklet?44_0"
+" p39_0"
+" cctx40_0)))))))))))))))))))))"
 "(define-values"
-"(compile-module-from-parsed34.1)"
-"(lambda(force-linklet-directory?17_0"
-" full-module-name16_0"
-" modules-being-compiled20_0"
-" need-compiled-submodule-rename?23_0"
-" post-submodules22_0"
-" pre-submodules21_0"
-" serializable?18_0"
-" to-correlated-linklet?19_0"
-" p32_0"
-" cctx33_0)"
+"(compile-module-from-parsed.1)"
+"(lambda(force-linklet-directory?15_0"
+" full-module-name14_0"
+" modules-being-compiled18_0"
+" need-compiled-submodule-rename?21_0"
+" post-submodules20_0"
+" pre-submodules19_0"
+" serializable?16_0"
+" to-correlated-linklet?17_0"
+" p30_0"
+" cctx31_0)"
 "(begin"
-" 'compile-module-from-parsed34"
-"(let-values(((p_0) p32_0))"
-"(let-values(((cctx_0) cctx33_0))"
-"(let-values(((full-module-name_0) full-module-name16_0))"
-"(let-values(((force-linklet-directory?_0) force-linklet-directory?17_0))"
-"(let-values(((serializable?_0) serializable?18_0))"
-"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?19_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled20_0))"
-"(let-values(((pre-submodules_0) pre-submodules21_0))"
-"(let-values(((post-submodules_0) post-submodules22_0))"
-"(let-values(((need-compiled-submodule-rename?_0) need-compiled-submodule-rename?23_0))"
+" 'compile-module-from-parsed"
+"(let-values(((p_0) p30_0))"
+"(let-values(((cctx_0) cctx31_0))"
+"(let-values(((full-module-name_0) full-module-name14_0))"
+"(let-values(((force-linklet-directory?_0) force-linklet-directory?15_0))"
+"(let-values(((serializable?_0) serializable?16_0))"
+"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?17_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled18_0))"
+"(let-values(((pre-submodules_0) pre-submodules19_0))"
+"(let-values(((post-submodules_0) post-submodules20_0))"
+"(let-values(((need-compiled-submodule-rename?_0) need-compiled-submodule-rename?21_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?(let-values()(start-performance-region 'compile 'module))(void))"
@@ -39640,19 +39623,19 @@ static const char *startup_source =
 "(let-values(((body-cctx_0)"
 "(let-values(((the-struct_0) cctx_0))"
 "(if(compile-context? the-struct_0)"
-"(let-values(((phase53_0) 0)"
-"((self54_0) self_0)"
-"((module-self55_0) self_0)"
-"((full-module-name56_0)"
+"(let-values(((phase49_0) 0)"
+"((self50_0) self_0)"
+"((module-self51_0) self_0)"
+"((full-module-name52_0)"
 " full-module-name_0)"
-"((lazy-syntax-literals?57_0) #t))"
+"((lazy-syntax-literals?53_0) #t))"
 "(compile-context1.1"
 "(compile-context-namespace the-struct_0)"
-" phase53_0"
-" self54_0"
-" module-self55_0"
-" full-module-name56_0"
-" lazy-syntax-literals?57_0"
+" phase49_0"
+" self50_0"
+" module-self51_0"
+" full-module-name52_0"
+" lazy-syntax-literals?53_0"
 "(compile-context-header the-struct_0)))"
 "(raise-argument-error"
 " 'struct-copy"
@@ -39670,17 +39653,17 @@ static const char *startup_source =
 "(if(hash-ref side-effects_0 phase_0 #f)"
 "(void)"
 "(let-values()"
-"(if(let-values(((e58_0) e_0)"
-"((expected-results59_0)"
+"(if(let-values(((e54_0) e_0)"
+"((expected-results55_0)"
 " expected-results_0)"
-"((required-reference?60_0)"
+"((required-reference?56_0)"
 " required-reference?_0))"
-"(any-side-effects?9.1"
+"(any-side-effects?.1"
 " unsafe-undefined"
 " unsafe-undefined"
-" required-reference?60_0"
-" e58_0"
-" expected-results59_0))"
+" required-reference?56_0"
+" e54_0"
+" expected-results55_0))"
 "(let-values()"
 "(hash-set!"
 " side-effects_0"
@@ -39713,42 +39696,42 @@ static const char *startup_source =
 " phase-to-link-extra-inspectorsss_0"
 " syntax-literals_0"
 " root-ctx-pos_0)"
-"(let-values(((bodys61_0) bodys_0)"
-"((body-cctx62_0) body-cctx_0)"
-"((mpis63_0) mpis_0)"
-"((temp64_0)"
+"(let-values(((bodys57_0) bodys_0)"
+"((body-cctx58_0) body-cctx_0)"
+"((mpis59_0) mpis_0)"
+"((temp60_0)"
 "(list"
 "(list"
 " get-syntax-literal!-id)"
 "(list"
 " set-transformer!-id)))"
-"((temp65_0)"
+"((temp61_0)"
 "(list"
 " empty-syntax-literals-instance"
 " empty-module-body-instance))"
-"((temp66_0) '((void)))"
-"((temp67_0) '(0))"
-"((encoded-root-expand-ctx-box68_0)"
+"((temp62_0) '((void)))"
+"((temp63_0) '(0))"
+"((encoded-root-expand-ctx-box64_0)"
 " encoded-root-expand-ctx-box_0)"
-"((body-context-simple?69_0)"
+"((body-context-simple?65_0)"
 " body-context-simple?_0)"
-"((check-side-effects!70_0)"
+"((check-side-effects!66_0)"
 " check-side-effects!_0)"
-"((temp71_0)"
+"((temp67_0)"
 "(lambda(body_0 cctx_1)"
 "(if(parsed-#%declare?"
 " body_0)"
 "(let-values()"
 "(let-values(((ok?_0"
-" _76_0"
-" kw77_0)"
+" _72_0"
+" kw73_0)"
 "(let-values(((s_0)"
 "(parsed-s"
 " body_0)))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((_76_0"
-" kw77_0)"
+"(let-values(((_72_0"
+" kw73_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -39757,12 +39740,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((_78_0)"
+"(let-values(((_74_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((kw79_0)"
+"((kw75_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -39785,19 +39768,19 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" _78_0"
-" kw79_0))"
+" _74_0"
+" kw75_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                       \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" _76_0"
-" kw77_0))))))"
+" _72_0"
+" kw73_0))))))"
 "(begin"
 "(let-values(((lst_0)"
-" kw77_0))"
+" kw73_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -39857,7 +39840,7 @@ static const char *startup_source =
 "(void)"
 " #f)))"
 "(let-values() #f))))"
-"((temp72_0)"
+"((temp68_0)"
 "(lambda(mod-name_0 phase_0)"
 "(let-values(((ht_0)"
 "(if modules-being-compiled_0"
@@ -39872,29 +39855,29 @@ static const char *startup_source =
 " phase_0"
 " #f)"
 " #f))))"
-"((serializable?73_0)"
+"((serializable?69_0)"
 " serializable?_0)"
-"((temp74_0) #t)"
-"((to-correlated-linklet?75_0)"
+"((temp70_0) #t)"
+"((to-correlated-linklet?71_0)"
 " to-correlated-linklet?_0))"
-"(compile-forms33.1"
-" temp65_0"
-" temp64_0"
-" temp66_0"
-" check-side-effects!70_0"
+"(compile-forms.1"
+" temp61_0"
+" temp60_0"
+" temp62_0"
+" check-side-effects!66_0"
 " #t"
 " unsafe-undefined"
-" encoded-root-expand-ctx-box68_0"
+" encoded-root-expand-ctx-box64_0"
+" temp63_0"
+" temp68_0"
+" temp70_0"
 " temp67_0"
-" temp72_0"
-" temp74_0"
-" temp71_0"
-" body-context-simple?69_0"
-" serializable?73_0"
-" to-correlated-linklet?75_0"
-" bodys61_0"
-" body-cctx62_0"
-" mpis63_0))))"
+" body-context-simple?65_0"
+" serializable?69_0"
+" to-correlated-linklet?71_0"
+" bodys57_0"
+" body-cctx58_0"
+" mpis59_0))))"
 "(let-values((()"
 "(begin"
 "(if modules-being-compiled_0"
@@ -40055,20 +40038,20 @@ static const char *startup_source =
 " get-syntax-literal!-id"
 " '(get-encoded-root-expand-ctx))"
 "(qq-append"
-"(let-values(((syntax-literals80_0)"
+"(let-values(((syntax-literals76_0)"
 " syntax-literals_0)"
-"((mpis81_0)"
+"((mpis77_0)"
 " mpis_0)"
-"((self82_0)"
+"((self78_0)"
 " self_0)"
-"((temp83_0)"
+"((temp79_0)"
 "(not"
 " serializable?_0)))"
-"(generate-lazy-syntax-literals!9.1"
-" temp83_0"
-" syntax-literals80_0"
-" mpis81_0"
-" self82_0))"
+"(generate-lazy-syntax-literals!.1"
+" temp79_0"
+" syntax-literals76_0"
+" mpis77_0"
+" self78_0))"
 "(list"
 "(list"
 " 'define-values"
@@ -40270,16 +40253,16 @@ static const char *startup_source =
 "(hash-set"
 " bundle_10"
 " 'side-effects"
-"(let-values(((temp84_0)"
+"(let-values(((temp80_0)"
 "(hash-keys"
 " side-effects_0))"
-"((<85_0)"
+"((<81_0)"
 " <))"
-"(sort7.1"
+"(sort.1"
 " #f"
 " #f"
-" temp84_0"
-" <85_0)))"
+" temp80_0"
+" <81_0)))"
 " bundle_10)))"
 "(let-values(((bundle_12)"
 "(if empty-result-for-module->namespace?_0"
@@ -40937,7 +40920,7 @@ static const char *startup_source =
 " #t)"
 "((ns13_0)"
 " ns_0))"
-"(compile-module-linklet57.1"
+"(compile-module-linklet.1"
 " temp6_0"
 " temp5_0"
 " temp4_0"
@@ -41088,7 +41071,7 @@ static const char *startup_source =
 "((temp3_0)(namespace-mpi ns_0))"
 "((temp4_0)(namespace-bulk-binding-registry ns_0))"
 "((temp5_0)(current-code-inspector)))"
-"(make-eager-instance-instance11.1 temp4_0 temp2_0 temp5_0 ns1_0 temp3_0))))))"
+"(make-eager-instance-instance.1 temp4_0 temp2_0 temp5_0 ns1_0 temp3_0))))))"
 "(let-values(((data_0)(lambda(key_0)(begin 'data(1/instance-variable-value data-instance_0 key_0)))))"
 "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))"
 "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))"
@@ -41449,7 +41432,7 @@ static const char *startup_source =
 "(define-values"
 "(eval-single-top)"
 "(lambda(c_0 ns_0)"
-"(begin(let-values(((c15_0) c_0)((ns16_0) ns_0)((temp17_0) #t))(eval-one-top12.1 temp17_0 c15_0 ns16_0 #t)))))"
+"(begin(let-values(((c11_0) c_0)((ns12_0) ns_0)((temp13_0) #t))(eval-one-top.1 temp13_0 c11_0 ns12_0 #t)))))"
 "(define-values"
 "(compiled-multiple-top?)"
 "(lambda(c_0)"
@@ -41458,10 +41441,10 @@ static const char *startup_source =
 "(if(linklet-directory?$1 ld_0)(not(hash-ref(linklet-directory->hash$1 ld_0) #f #f)) #f)))))"
 "(define-values"
 "(eval-top)"
-"(let-values(((eval-top5_0)"
+"(let-values(((eval-top_0)"
 "(lambda(c3_0 ns4_0 eval-compiled1_0 as-tail?2_0)"
 "(begin"
-" 'eval-top5"
+" 'eval-top"
 "(let-values(((c_0) c3_0))"
 "(let-values(((ns_0) ns4_0))"
 "(let-values(((eval-compiled_0)"
@@ -41470,12 +41453,12 @@ static const char *startup_source =
 "(let-values()"
 "(if(compiled-multiple-top? c_0)"
 "(eval-multiple-tops c_0 ns_0 eval-compiled_0 as-tail?_0)"
-"(let-values(((c18_0) c_0)((ns19_0) ns_0)((as-tail?20_0) as-tail?_0))"
-"(eval-one-top12.1 #f c18_0 ns19_0 as-tail?20_0))))))))))))"
+"(let-values(((c14_0) c_0)((ns15_0) ns_0)((as-tail?16_0) as-tail?_0))"
+"(eval-one-top.1 #f c14_0 ns15_0 as-tail?16_0))))))))))))"
 "(case-lambda"
-"((c_0 ns_0)(begin(eval-top5_0 c_0 ns_0 unsafe-undefined #t)))"
-"((c_0 ns_0 eval-compiled_0 as-tail?2_0)(eval-top5_0 c_0 ns_0 eval-compiled_0 as-tail?2_0))"
-"((c_0 ns_0 eval-compiled1_0)(eval-top5_0 c_0 ns_0 eval-compiled1_0 #t)))))"
+"((c_0 ns_0)(begin(eval-top_0 c_0 ns_0 unsafe-undefined #t)))"
+"((c_0 ns_0 eval-compiled_0 as-tail?2_0)(eval-top_0 c_0 ns_0 eval-compiled_0 as-tail?2_0))"
+"((c_0 ns_0 eval-compiled1_0)(eval-top_0 c_0 ns_0 eval-compiled1_0 #t)))))"
 "(define-values"
 "(eval-multiple-tops)"
 "(lambda(c_0 ns_0 eval-compiled_0 as-tail?_0)"
@@ -41511,14 +41494,14 @@ static const char *startup_source =
 " c1_0)"
 "(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_0))))))))))"
 "(define-values"
-"(eval-one-top12.1)"
-"(lambda(single-expression?7_0 c10_0 ns11_0 as-tail?9_0)"
+"(eval-one-top.1)"
+"(lambda(single-expression?5_0 c8_0 ns9_0 as-tail?7_0)"
 "(begin"
-" 'eval-one-top12"
-"(let-values(((c_0) c10_0))"
-"(let-values(((ns_0) ns11_0))"
-"(let-values(((as-tail?_0) as-tail?9_0))"
-"(let-values(((single-expression?_0) single-expression?7_0))"
+" 'eval-one-top"
+"(let-values(((c_0) c8_0))"
+"(let-values(((ns_0) ns9_0))"
+"(let-values(((as-tail?_0) as-tail?7_0))"
+"(let-values(((single-expression?_0) single-expression?5_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?"
@@ -41538,17 +41521,17 @@ static const char *startup_source =
 "(force-compile-linklet(hash-ref h_0 'link))"
 "(list"
 " deserialize-instance"
-"(let-values(((ns21_0) ns_0)"
-"((temp22_0)(namespace-phase ns_0))"
-"((temp23_0)(namespace-mpi ns_0))"
-"((temp24_0)(namespace-bulk-binding-registry ns_0))"
-"((temp25_0)(current-code-inspector)))"
-"(make-eager-instance-instance11.1"
-" temp24_0"
-" temp22_0"
-" temp25_0"
-" ns21_0"
-" temp23_0)))))))"
+"(let-values(((ns17_0) ns_0)"
+"((temp18_0)(namespace-phase ns_0))"
+"((temp19_0)(namespace-mpi ns_0))"
+"((temp20_0)(namespace-bulk-binding-registry ns_0))"
+"((temp21_0)(current-code-inspector)))"
+"(make-eager-instance-instance.1"
+" temp20_0"
+" temp18_0"
+" temp21_0"
+" ns17_0"
+" temp19_0)))))))"
 "(let-values(((orig-phase_0)(hash-ref h_0 'original-phase)))"
 "(let-values(((max-phase_0)(hash-ref h_0 'max-phase)))"
 "(let-values(((phase-shift_0)(phase-(namespace-phase ns_0) orig-phase_0)))"
@@ -41631,32 +41614,32 @@ static const char *startup_source =
 "(let-values(((mis_2"
 " is_2)"
 "(let-values()"
-"(let-values(((mis26_0"
-" is27_0)"
+"(let-values(((mis22_0"
+" is23_0)"
 "(let-values()"
-"(let-values(((ns28_0)"
+"(let-values(((ns24_0)"
 " ns_0)"
-"((mu29_0)"
+"((mu25_0)"
 " mu_0)"
-"((temp30_0)"
+"((temp26_0)"
 "(phase-"
 "(phase+"
 " phase_0"
 " phase-shift_0)"
 "(module-use-phase"
 " mu_0))))"
-"(namespace-module-use->module+linklet-instances144.1"
-" temp30_0"
+"(namespace-module-use->module+linklet-instances.1"
+" temp26_0"
 " #f"
 " #f"
-" ns28_0"
-" mu29_0)))))"
+" ns24_0"
+" mu25_0)))))"
 "(values"
 "(cons"
-" mis26_0"
+" mis22_0"
 " mis_1)"
 "(cons"
-" is27_0"
+" is23_0"
 " is_1))))))"
 "(values"
 " mis_2"
@@ -41691,20 +41674,20 @@ static const char *startup_source =
 "(let-values(((inst_0)"
 "(if single-expression?_0"
 " link-instance_0"
-"(let-values(((phase-ns31_0)"
+"(let-values(((phase-ns27_0)"
 " phase-ns_0)"
-"((phase-shift32_0)"
+"((phase-shift28_0)"
 " phase-shift_0)"
-"((temp33_0)"
+"((temp29_0)"
 "(namespace-mpi"
 " ns_0))"
-"((temp34_0)"
+"((temp30_0)"
 "(namespace-inspector"
 " ns_0))"
-"((temp35_0)"
+"((temp31_0)"
 "(namespace-bulk-binding-registry"
 " ns_0))"
-"((temp36_0)"
+"((temp32_0)"
 "(lambda(name_0"
 " val_0)"
 "(namespace-set-transformer!"
@@ -41715,13 +41698,13 @@ static const char *startup_source =
 " phase-shift_0)"
 " name_0"
 " val_0))))"
-"(make-instance-instance13.1"
-" temp35_0"
-" temp34_0"
-" phase-ns31_0"
-" phase-shift32_0"
-" temp33_0"
-" temp36_0)))))"
+"(make-instance-instance.1"
+" temp31_0"
+" temp30_0"
+" phase-ns27_0"
+" phase-shift28_0"
+" temp29_0"
+" temp32_0)))))"
 "(let-values(((linklet_0)"
 "(force-compile-linklet"
 "(hash-ref"
@@ -41732,31 +41715,31 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((linklet37_0)"
+"(let-values(((linklet33_0)"
 " linklet_0)"
-"((temp38_0)"
+"((temp34_0)"
 " 3)"
-"((module-uses39_0)"
+"((module-uses35_0)"
 " module-uses_0)"
-"((import-module-instances40_0)"
+"((import-module-instances36_0)"
 " import-module-instances_0)"
-"((temp41_0)"
+"((temp37_0)"
 "(current-code-inspector))"
-"((extra-inspector42_0)"
+"((extra-inspector38_0)"
 " extra-inspector_0)"
-"((temp43_0)"
+"((temp39_0)"
 "(hash-ref"
 " phase-to-link-extra-inspectorsss_0"
 " phase_0"
 " #f)))"
-"(check-require-access9.1"
-" temp38_0"
-" linklet37_0"
-" module-uses39_0"
-" import-module-instances40_0"
-" temp41_0"
-" extra-inspector42_0"
-" temp43_0))"
+"(check-require-access.1"
+" temp34_0"
+" linklet33_0"
+" module-uses35_0"
+" import-module-instances36_0"
+" temp37_0"
+" extra-inspector38_0"
+" temp39_0))"
 "(values))))"
 "(let-values(((instantiate_0)"
 "(lambda(tail?_0)"
@@ -41819,14 +41802,14 @@ static const char *startup_source =
 "(let-values()"
 "(with-continuation-mark"
 " current-expand-context"
-"(let-values(((ns-144_0)"
+"(let-values(((ns-140_0)"
 " ns-1_0))"
-"(make-expand-context12.1"
+"(make-expand-context.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" ns-144_0))"
+" ns-140_0))"
 "(let-values()"
 "(instantiate_0"
 " tail?_0))))))))))))))"
@@ -42018,7 +42001,7 @@ static const char *startup_source =
 "(let-values(((ns1_0) ns_0)"
 "((temp2_0)(1/module-path-index-resolve(module-binding-module b_0)))"
 "((temp3_0)(phase-(namespace-phase ns_0)(module-binding-phase b_0))))"
-"(namespace->module-instance70.1 #f #f unsafe-undefined ns1_0 temp2_0 temp3_0))))"
+"(namespace->module-instance.1 #f #f unsafe-undefined ns1_0 temp2_0 temp3_0))))"
 "(if(not mi_0)"
 "(let-values() not-available)"
 "(if(check-single-require-access"
@@ -42045,7 +42028,7 @@ static const char *startup_source =
 "((sym2_0) sym_0)"
 "((temp3_0)"
 "(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_0) 0)((sym6_0) sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -42057,7 +42040,7 @@ static const char *startup_source =
 " runtime-mpi4_0"
 " temp5_0"
 " sym6_0))))"
-"(add-binding-in-scopes!20.1 #f temp1_0 sym2_0 temp3_0)))))"
+"(add-binding-in-scopes!.1 #f temp1_0 sym2_0 temp3_0)))))"
 "(void"
 "(begin"
 "(add-runtime-primitive! 'values)"
@@ -42121,10 +42104,10 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 1 'keys)"
 "(make-struct-field-accessor -ref_0 2 'rhs))))"
 "(define-values"
-"(make-lift-context6.1)"
+"(make-lift-context.1)"
 "(lambda(module*-ok?3_0 convert5_0)"
 "(begin"
-" 'make-lift-context6"
+" 'make-lift-context"
 "(let-values(((convert_0) convert5_0))"
 "(let-values(((module*-ok?_0) module*-ok?3_0))"
 "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))"
@@ -42161,21 +42144,21 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(let-values(((key_0)"
-"(let-values(((id32_0)"
+"(let-values(((id26_0)"
 " id_0)"
-"((phase33_0)"
+"((phase27_0)"
 " phase_0)"
-"((counter34_0)"
+"((counter28_0)"
 " counter_0)"
-"((local-sym35_0)"
+"((local-sym29_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
+"(add-local-binding!.1"
 " #f"
 " #f"
-" local-sym35_0"
-" id32_0"
-" phase33_0"
-" counter34_0))))"
+" local-sym29_0"
+" id26_0"
+" phase27_0"
+" counter28_0))))"
 "(begin"
 "(set-box!"
 " lift-env_0"
@@ -42271,15 +42254,15 @@ static const char *startup_source =
 " body_0"
 " lst_0)))))))"
 "(define-values"
-"(wrap-lifts-as-begin16.1)"
-"(lambda(adjust-body10_0 adjust-form9_0 lifts13_0 body14_0 phase15_0)"
+"(wrap-lifts-as-begin.1)"
+"(lambda(adjust-body8_0 adjust-form7_0 lifts11_0 body12_0 phase13_0)"
 "(begin"
-" 'wrap-lifts-as-begin16"
-"(let-values(((lifts_0) lifts13_0))"
-"(let-values(((body_0) body14_0))"
-"(let-values(((phase_0) phase15_0))"
-"(let-values(((adjust-form_0)(if(eq? adjust-form9_0 unsafe-undefined) values adjust-form9_0)))"
-"(let-values(((adjust-body_0)(if(eq? adjust-body10_0 unsafe-undefined) values adjust-body10_0)))"
+" 'wrap-lifts-as-begin"
+"(let-values(((lifts_0) lifts11_0))"
+"(let-values(((body_0) body12_0))"
+"(let-values(((phase_0) phase13_0))"
+"(let-values(((adjust-form_0)(if(eq? adjust-form7_0 unsafe-undefined) values adjust-form7_0)))"
+"(let-values(((adjust-body_0)(if(eq? adjust-body8_0 unsafe-undefined) values adjust-body8_0)))"
 "(let-values()"
 "(datum->syntax$1"
 " #f"
@@ -42361,7 +42344,7 @@ static const char *startup_source =
 " lst_0)))))))"
 "(define-values"
 "(struct:module-lift-context"
-" module-lift-context19.1"
+" module-lift-context15.1"
 " module-lift-context?"
 " module-lift-context-wrt-phase"
 " module-lift-context-lifts"
@@ -42390,7 +42373,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 2 'module*-ok?))))"
 "(define-values"
 "(make-module-lift-context)"
-"(lambda(phase_0 module*-ok?_0)(begin(module-lift-context19.1 phase_0(box null) module*-ok?_0))))"
+"(lambda(phase_0 module*-ok?_0)(begin(module-lift-context15.1 phase_0(box null) module*-ok?_0))))"
 "(define-values"
 "(get-and-clear-module-lifts!)"
 "(lambda(module-lifts_0)(begin(box-clear!(module-lift-context-lifts module-lifts_0)))))"
@@ -42425,7 +42408,7 @@ static const char *startup_source =
 "            (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))"
 "(define-values"
 "(struct:require-lift-context"
-" require-lift-context20.1"
+" require-lift-context16.1"
 " require-lift-context?"
 " require-lift-context-do-require"
 " require-lift-context-wrt-phase"
@@ -42454,7 +42437,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 2 'requires))))"
 "(define-values"
 "(make-require-lift-context)"
-"(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context20.1 do-require_0 wrt-phase_0(box null)))))"
+"(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context16.1 do-require_0 wrt-phase_0(box null)))))"
 "(define-values"
 "(get-and-clear-require-lifts!)"
 "(lambda(require-lifts_0)(begin(box-clear!(require-lift-context-requires require-lifts_0)))))"
@@ -42467,7 +42450,7 @@ static const char *startup_source =
 "(box-cons!(require-lift-context-requires require-lifts_0) s_0)))))"
 "(define-values"
 "(struct:to-module-lift-context"
-" to-module-lift-context21.1"
+" to-module-lift-context17.1"
 " to-module-lift-context?"
 " to-module-lift-context-wrt-phase"
 " to-module-lift-context-provides"
@@ -42497,14 +42480,14 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 2 'end-as-expressions?)"
 "(make-struct-field-accessor -ref_0 3 'ends))))"
 "(define-values"
-"(make-to-module-lift-context27.1)"
-"(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_0)"
+"(make-to-module-lift-context.1)"
+"(lambda(end-as-expressions?19_0 shared-module-ends18_0 phase22_0)"
 "(begin"
-" 'make-to-module-lift-context27"
-"(let-values(((phase_0) phase26_0))"
-"(let-values(((ends_0) shared-module-ends22_0))"
-"(let-values(((end-as-expressions?_0) end-as-expressions?23_0))"
-"(let-values()(to-module-lift-context21.1 phase_0(box null) end-as-expressions?_0 ends_0))))))))"
+" 'make-to-module-lift-context"
+"(let-values(((phase_0) phase22_0))"
+"(let-values(((ends_0) shared-module-ends18_0))"
+"(let-values(((end-as-expressions?_0) end-as-expressions?19_0))"
+"(let-values()(to-module-lift-context17.1 phase_0(box null) end-as-expressions?_0 ends_0))))))))"
 "(define-values(make-shared-module-ends)(lambda()(begin(box null))))"
 "(define-values"
 "(get-and-clear-end-lifts!)"
@@ -42875,10 +42858,10 @@ static const char *startup_source =
 "(variable . 2)"
 "(visit . 1)))"
 "(define-values"
-"(rebuild5.1)"
+"(rebuild.1)"
 "(lambda(track?1_0 orig-s3_0 new4_0)"
 "(begin"
-" 'rebuild5"
+" 'rebuild"
 "(let-values(((orig-s_0) orig-s3_0))"
 "(let-values(((new_0) new4_0))"
 "(let-values(((track?_0) track?1_0))"
@@ -43117,7 +43100,7 @@ static const char *startup_source =
 " begin-for-syntax7_0"
 "(syntax-only"
 " nested-bodys_0))))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
 " s11_0"
 " temp12_0)))))))"
@@ -43131,10 +43114,10 @@ static const char *startup_source =
 " null"
 " lst_0)))))))"
 "(define-values"
-"(expand9.1)"
+"(expand.1)"
 "(lambda(alternate-id1_0 fail-non-transformer3_0 skip-log?2_0 s7_0 ctx8_0)"
 "(begin"
-" 'expand9"
+" 'expand"
 "(let-values(((s_0) s7_0))"
 "(let-values(((ctx_0) ctx8_0))"
 "(let-values(((alternate-id_0) alternate-id1_0))"
@@ -43157,15 +43140,11 @@ static const char *startup_source =
 "(let-values()(expand-identifier s_0 ctx_0 alternate-id_0))"
 "(if(if(pair?(syntax-content s_0))(syntax-identifier?(car(syntax-content s_0))) #f)"
 "(let-values()"
-"(let-values(((s122_0) s_0)"
-"((ctx123_0) ctx_0)"
-"((alternate-id124_0) alternate-id_0)"
-"((fail-non-transformer125_0) fail-non-transformer_0))"
-"(expand-id-application-form17.1"
-" fail-non-transformer125_0"
-" s122_0"
-" ctx123_0"
-" alternate-id124_0)))"
+"(let-values(((s100_0) s_0)"
+"((ctx101_0) ctx_0)"
+"((alternate-id102_0) alternate-id_0)"
+"((fail-non-transformer103_0) fail-non-transformer_0))"
+"(expand-id-application-form.1 fail-non-transformer103_0 s100_0 ctx101_0 alternate-id102_0)))"
 "(if(let-values(((or-part_0)(pair?(syntax-content s_0))))"
 "(if or-part_0 or-part_0(null?(syntax-content s_0))))"
 "(let-values()(expand-implicit '#%app s_0 ctx_0 #f))"
@@ -43198,11 +43177,11 @@ static const char *startup_source =
 " s_0))"
 "(let-values()"
 "(let-values(((binding_0)"
-"(let-values(((id126_0) id_0)"
-"((temp127_0)(expand-context-phase ctx_0))"
-"((temp128_0) 'ambiguous)"
-"((temp129_0) #t))"
-"(resolve+shift28.1 temp128_0 #f null temp129_0 #f id126_0 temp127_0))))"
+"(let-values(((id104_0) id_0)"
+"((temp105_0)(expand-context-phase ctx_0))"
+"((temp106_0) 'ambiguous)"
+"((temp107_0) #t))"
+"(resolve+shift.1 temp106_0 #f null temp107_0 #f id104_0 temp105_0))))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0"
@@ -43217,39 +43196,39 @@ static const char *startup_source =
 "(let-values()(expand-implicit '#%top(substitute-alternate-id s_0 alternate-id_0) ctx_0 s_0))"
 "(let-values()"
 "(let-values(((t_0 primitive?_0 insp-of-t_0 protected?_0)"
-"(let-values(((binding138_0) binding_0)"
-"((ctx139_0) ctx_0)"
-"((id140_0) id_0)"
-"((temp141_0)(if alternate-id_0 s_0 #f))"
-"((temp142_0)(expand-context-in-local-expand? ctx_0)))"
-"(lookup62.1 temp141_0 temp142_0 binding138_0 ctx139_0 id140_0))))"
-"(let-values(((t130_0) t_0)"
-"((insp-of-t131_0) insp-of-t_0)"
-"((s132_0) s_0)"
-"((id133_0) id_0)"
-"((ctx134_0) ctx_0)"
-"((binding135_0) binding_0)"
-"((primitive?136_0) primitive?_0)"
-"((protected?137_0) protected?_0))"
-"(dispatch30.1"
+"(let-values(((binding116_0) binding_0)"
+"((ctx117_0) ctx_0)"
+"((id118_0) id_0)"
+"((temp119_0)(if alternate-id_0 s_0 #f))"
+"((temp120_0)(expand-context-in-local-expand? ctx_0)))"
+"(lookup.1 temp119_0 temp120_0 binding116_0 ctx117_0 id118_0))))"
+"(let-values(((t108_0) t_0)"
+"((insp-of-t109_0) insp-of-t_0)"
+"((s110_0) s_0)"
+"((id111_0) id_0)"
+"((ctx112_0) ctx_0)"
+"((binding113_0) binding_0)"
+"((primitive?114_0) primitive?_0)"
+"((protected?115_0) protected?_0))"
+"(dispatch.1"
 " #f"
-" t130_0"
-" insp-of-t131_0"
-" s132_0"
-" id133_0"
-" ctx134_0"
-" binding135_0"
-" primitive?136_0"
-" protected?137_0))))))))))))))"
+" t108_0"
+" insp-of-t109_0"
+" s110_0"
+" id111_0"
+" ctx112_0"
+" binding113_0"
+" primitive?114_0"
+" protected?115_0))))))))))))))"
 "(define-values"
-"(expand-id-application-form17.1)"
-"(lambda(fail-non-transformer12_0 s14_0 ctx15_0 alternate-id16_0)"
+"(expand-id-application-form.1)"
+"(lambda(fail-non-transformer10_0 s12_0 ctx13_0 alternate-id14_0)"
 "(begin"
-" 'expand-id-application-form17"
-"(let-values(((s_0) s14_0))"
-"(let-values(((ctx_0) ctx15_0))"
-"(let-values(((alternate-id_0) alternate-id16_0))"
-"(let-values(((fail-non-transformer_0) fail-non-transformer12_0))"
+" 'expand-id-application-form"
+"(let-values(((s_0) s12_0))"
+"(let-values(((ctx_0) ctx13_0))"
+"(let-values(((alternate-id_0) alternate-id14_0))"
+"(let-values(((fail-non-transformer_0) fail-non-transformer10_0))"
 "(let-values()"
 "(let-values(((id_0)"
 "(let-values(((or-part_0) alternate-id_0))"
@@ -43275,11 +43254,11 @@ static const char *startup_source =
 " s_0))"
 "(let-values()"
 "(let-values(((binding_0)"
-"(let-values(((id143_0) id_0)"
-"((temp144_0)(expand-context-phase ctx_0))"
-"((temp145_0) 'ambiguous)"
-"((temp146_0) #t))"
-"(resolve+shift28.1 temp145_0 #f null temp146_0 #f id143_0 temp144_0))))"
+"(let-values(((id121_0) id_0)"
+"((temp122_0)(expand-context-phase ctx_0))"
+"((temp123_0) 'ambiguous)"
+"((temp124_0) #t))"
+"(resolve+shift.1 temp123_0 #f null temp124_0 #f id121_0 temp122_0))))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0"
@@ -43300,13 +43279,13 @@ static const char *startup_source =
 "(expand-implicit '#%app(substitute-alternate-id s_0 alternate-id_0) ctx_0 id_0)))"
 "(let-values()"
 "(let-values(((t_0 primitive?_0 insp-of-t_0 protected?_0)"
-"(let-values(((binding147_0) binding_0)"
-"((ctx148_0) ctx_0)"
-"((id149_0) id_0)"
-"((temp150_0)"
+"(let-values(((binding125_0) binding_0)"
+"((ctx126_0) ctx_0)"
+"((id127_0) id_0)"
+"((temp128_0)"
 "(if alternate-id_0(car(syntax-e/no-taint s_0)) #f))"
-"((temp151_0)(expand-context-in-local-expand? ctx_0)))"
-"(lookup62.1 temp150_0 temp151_0 binding147_0 ctx148_0 id149_0))))"
+"((temp129_0)(expand-context-in-local-expand? ctx_0)))"
+"(lookup.1 temp128_0 temp129_0 binding125_0 ctx126_0 id127_0))))"
 "(if(variable? t_0)"
 "(let-values()"
 "(begin"
@@ -43317,25 +43296,25 @@ static const char *startup_source =
 " ctx_0"
 " id_0)))"
 "(let-values()"
-"(let-values(((t152_0) t_0)"
-"((insp-of-t153_0) insp-of-t_0)"
-"((s154_0) s_0)"
-"((id155_0) id_0)"
-"((ctx156_0) ctx_0)"
-"((binding157_0) binding_0)"
-"((primitive?158_0) primitive?_0)"
-"((protected?159_0) protected?_0)"
-"((fail-non-transformer160_0) fail-non-transformer_0))"
-"(dispatch30.1"
-" fail-non-transformer160_0"
-" t152_0"
-" insp-of-t153_0"
-" s154_0"
-" id155_0"
-" ctx156_0"
-" binding157_0"
-" primitive?158_0"
-" protected?159_0)))))))))))))))))))))"
+"(let-values(((t130_0) t_0)"
+"((insp-of-t131_0) insp-of-t_0)"
+"((s132_0) s_0)"
+"((id133_0) id_0)"
+"((ctx134_0) ctx_0)"
+"((binding135_0) binding_0)"
+"((primitive?136_0) primitive?_0)"
+"((protected?137_0) protected?_0)"
+"((fail-non-transformer138_0) fail-non-transformer_0))"
+"(dispatch.1"
+" fail-non-transformer138_0"
+" t130_0"
+" insp-of-t131_0"
+" s132_0"
+" id133_0"
+" ctx134_0"
+" binding135_0"
+" primitive?136_0"
+" protected?137_0)))))))))))))))))))))"
 "(define-values"
 "(expand-implicit)"
 "(lambda(sym_0 s_0 ctx_0 trigger-id_0)"
@@ -43377,18 +43356,18 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((b_0)"
-"(let-values(((id161_0) id_0)"
-"((temp162_0)(expand-context-phase ctx_0))"
-"((temp163_0) 'ambiguous)"
-"((temp164_0) #t))"
-"(resolve+shift28.1 temp163_0 #f null temp164_0 #f id161_0 temp162_0))))"
+"(let-values(((id139_0) id_0)"
+"((temp140_0)(expand-context-phase ctx_0))"
+"((temp141_0) 'ambiguous)"
+"((temp142_0) #t))"
+"(resolve+shift.1 temp141_0 #f null temp142_0 #f id139_0 temp140_0))))"
 "(if(eq? b_0 'ambiguous)"
 "(let-values()(raise-ambiguous-error id_0 ctx_0))"
 "(let-values()"
 "(let-values(((t_0 primitive?_0 insp-of-t_0 protected?_0)"
 "(if b_0"
-"(let-values(((b165_0) b_0)((ctx166_0) ctx_0)((id167_0) id_0))"
-"(lookup62.1 #f #f b165_0 ctx166_0 id167_0))"
+"(let-values(((b143_0) b_0)((ctx144_0) ctx_0)((id145_0) id_0))"
+"(lookup.1 #f #f b143_0 ctx144_0 id145_0))"
 "(values #f #f #f #f))))"
 "(if(transformer? t_0)"
 "(let-values()"
@@ -43399,21 +43378,21 @@ static const char *startup_source =
 " 'fail-non-transformer"
 "(raise-syntax-implicit-error s_0 sym_0 trigger-id_0 ctx_0)))"
 " #f)))"
-"(let-values(((t168_0) t_0)"
-"((insp-of-t169_0) insp-of-t_0)"
-"((temp170_0)(make-explicit ctx_0 sym_0 s_0 disarmed-s_0))"
-"((id171_0) id_0)"
-"((ctx172_0) ctx_0)"
-"((b173_0) b_0)"
-"((fail-non-transformer174_0) fail-non-transformer_0))"
-"(dispatch-transformer41.1"
-" fail-non-transformer174_0"
-" t168_0"
-" insp-of-t169_0"
-" temp170_0"
-" id171_0"
-" ctx172_0"
-" b173_0))))"
+"(let-values(((t146_0) t_0)"
+"((insp-of-t147_0) insp-of-t_0)"
+"((temp148_0)(make-explicit ctx_0 sym_0 s_0 disarmed-s_0))"
+"((id149_0) id_0)"
+"((ctx150_0) ctx_0)"
+"((b151_0) b_0)"
+"((fail-non-transformer152_0) fail-non-transformer_0))"
+"(dispatch-transformer.1"
+" fail-non-transformer152_0"
+" t146_0"
+" insp-of-t147_0"
+" temp148_0"
+" id149_0"
+" ctx150_0"
+" b151_0))))"
 "(if(core-form? t_0)"
 "(let-values()"
 "(if(if(eq? sym_0 '#%top)"
@@ -43433,9 +43412,9 @@ static const char *startup_source =
 " #f)))"
 "(let-values(((tl-b_0)"
 "(if tl-id_0"
-"(let-values(((tl-id175_0) tl-id_0)"
-"((temp176_0)(expand-context-phase ctx_0)))"
-"(resolve40.1 #f #f null #f tl-id175_0 temp176_0))"
+"(let-values(((tl-id153_0) tl-id_0)"
+"((temp154_0)(expand-context-phase ctx_0)))"
+"(resolve.1 #f #f null #f tl-id153_0 temp154_0))"
 " #f)))"
 "(if tl-b_0"
 "(let-values()"
@@ -43489,8 +43468,8 @@ static const char *startup_source =
 "(let-values()(let-values()(call-expand-observe obs_0 'opaque-expr result-s_0)))"
 "(void)))"
 "(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)"
-"(let-values(((result-s177_0) result-s_0)((ctx178_0) ctx_0))"
-"(expand9.1 #f #f #f result-s177_0 ctx178_0))"
+"(let-values(((result-s155_0) result-s_0)((ctx156_0) ctx_0))"
+"(expand.1 #f #f #f result-s155_0 ctx156_0))"
 " result-s_0))))))))))))"
 "(define-values"
 "(make-explicit)"
@@ -43502,39 +43481,39 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'tag new-s_0)))(void)))"
 " new-s_0)))))"
 "(define-values"
-"(dispatch30.1)"
-"(lambda(fail-non-transformer20_0 t22_0 insp-of-t23_0 s24_0 id25_0 ctx26_0 binding27_0 primitive?28_0 protected?29_0)"
+"(dispatch.1)"
+"(lambda(fail-non-transformer16_0 t18_0 insp-of-t19_0 s20_0 id21_0 ctx22_0 binding23_0 primitive?24_0 protected?25_0)"
 "(begin"
-" 'dispatch30"
-"(let-values(((t_0) t22_0))"
-"(let-values(((insp-of-t_0) insp-of-t23_0))"
-"(let-values(((s_0) s24_0))"
-"(let-values(((id_0) id25_0))"
-"(let-values(((ctx_0) ctx26_0))"
-"(let-values(((binding_0) binding27_0))"
-"(let-values(((primitive?_0) primitive?28_0))"
-"(let-values(((protected?_0) protected?29_0))"
-"(let-values(((fail-non-transformer_0) fail-non-transformer20_0))"
+" 'dispatch"
+"(let-values(((t_0) t18_0))"
+"(let-values(((insp-of-t_0) insp-of-t19_0))"
+"(let-values(((s_0) s20_0))"
+"(let-values(((id_0) id21_0))"
+"(let-values(((ctx_0) ctx22_0))"
+"(let-values(((binding_0) binding23_0))"
+"(let-values(((primitive?_0) primitive?24_0))"
+"(let-values(((protected?_0) protected?25_0))"
+"(let-values(((fail-non-transformer_0) fail-non-transformer16_0))"
 "(let-values()"
 "(if(core-form? t_0)"
 "(let-values()(dispatch-core-form t_0 s_0 ctx_0))"
 "(if(transformer? t_0)"
 "(let-values()"
-"(let-values(((t179_0) t_0)"
-"((insp-of-t180_0) insp-of-t_0)"
-"((s181_0) s_0)"
-"((id182_0) id_0)"
-"((ctx183_0) ctx_0)"
-"((binding184_0) binding_0)"
-"((fail-non-transformer185_0) fail-non-transformer_0))"
-"(dispatch-transformer41.1"
-" fail-non-transformer185_0"
-" t179_0"
-" insp-of-t180_0"
-" s181_0"
-" id182_0"
-" ctx183_0"
-" binding184_0)))"
+"(let-values(((t157_0) t_0)"
+"((insp-of-t158_0) insp-of-t_0)"
+"((s159_0) s_0)"
+"((id160_0) id_0)"
+"((ctx161_0) ctx_0)"
+"((binding162_0) binding_0)"
+"((fail-non-transformer163_0) fail-non-transformer_0))"
+"(dispatch-transformer.1"
+" fail-non-transformer163_0"
+" t157_0"
+" insp-of-t158_0"
+" s159_0"
+" id160_0"
+" ctx161_0"
+" binding162_0)))"
 "(if(variable? t_0)"
 "(let-values()"
 "(dispatch-variable t_0 s_0 id_0 ctx_0 binding_0 primitive?_0 protected?_0))"
@@ -43601,17 +43580,17 @@ static const char *startup_source =
 "(void)))"
 " result-s_0))))))"
 "(define-values"
-"(dispatch-transformer41.1)"
-"(lambda(fail-non-transformer33_0 t35_0 insp-of-t36_0 s37_0 id38_0 ctx39_0 binding40_0)"
+"(dispatch-transformer.1)"
+"(lambda(fail-non-transformer27_0 t29_0 insp-of-t30_0 s31_0 id32_0 ctx33_0 binding34_0)"
 "(begin"
-" 'dispatch-transformer41"
-"(let-values(((t_0) t35_0))"
-"(let-values(((insp-of-t_0) insp-of-t36_0))"
-"(let-values(((s_0) s37_0))"
-"(let-values(((id_0) id38_0))"
-"(let-values(((ctx_0) ctx39_0))"
-"(let-values(((binding_0) binding40_0))"
-"(let-values(((fail-non-transformer_0) fail-non-transformer33_0))"
+" 'dispatch-transformer"
+"(let-values(((t_0) t29_0))"
+"(let-values(((insp-of-t_0) insp-of-t30_0))"
+"(let-values(((s_0) s31_0))"
+"(let-values(((id_0) id32_0))"
+"(let-values(((ctx_0) ctx33_0))"
+"(let-values(((binding_0) binding34_0))"
+"(let-values(((fail-non-transformer_0) fail-non-transformer27_0))"
 "(let-values()"
 "(if(not-in-this-expand-context? t_0 ctx_0)"
 "(let-values()"
@@ -43630,8 +43609,8 @@ static const char *startup_source =
 "(if obs_0"
 "(let-values()(let-values()(call-expand-observe obs_0 'exit-macro s_0)))"
 "(void)))"
-"(let-values(((adj-s186_0) adj-s_0)((ctx187_0) ctx_0))"
-"(expand9.1 #f #f #f adj-s186_0 ctx187_0))))))"
+"(let-values(((adj-s164_0) adj-s_0)((ctx165_0) ctx_0))"
+"(expand.1 #f #f #f adj-s164_0 ctx165_0))))))"
 "(if(if(expand-context-should-not-encounter-macros? ctx_0)"
 "(not(1/rename-transformer? t_0))"
 " #f)"
@@ -43659,20 +43638,20 @@ static const char *startup_source =
 "(let-values(((exp-s_0 re-ctx_0)"
 "(if(1/rename-transformer? t_0)"
 "(values s_0 ctx_0)"
-"(let-values(((t188_0) t_0)"
-"((insp-of-t189_0) insp-of-t_0)"
-"((s190_0) s_0)"
-"((id191_0) id_0)"
-"((ctx192_0) ctx_0)"
-"((binding193_0) binding_0))"
-"(apply-transformer52.1"
+"(let-values(((t166_0) t_0)"
+"((insp-of-t167_0) insp-of-t_0)"
+"((s168_0) s_0)"
+"((id169_0) id_0)"
+"((ctx170_0) ctx_0)"
+"((binding171_0) binding_0))"
+"(apply-transformer.1"
 " #f"
-" t188_0"
-" insp-of-t189_0"
-" s190_0"
-" id191_0"
-" ctx192_0"
-" binding193_0)))))"
+" t166_0"
+" insp-of-t167_0"
+" s168_0"
+" id169_0"
+" ctx170_0"
+" binding171_0)))))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0"
@@ -43686,23 +43665,23 @@ static const char *startup_source =
 "(if(expand-context-just-once? ctx_0)"
 "(let-values() exp-s_0)"
 "(let-values()"
-"(let-values(((exp-s194_0) exp-s_0)"
-"((re-ctx195_0) re-ctx_0)"
-"((temp196_0)"
+"(let-values(((exp-s172_0) exp-s_0)"
+"((re-ctx173_0) re-ctx_0)"
+"((temp174_0)"
 "(if(1/rename-transformer? t_0)"
 "(apply-rename-transformer t_0 id_0 ctx_0)"
 " #f))"
-"((temp197_0)"
+"((temp175_0)"
 "(let-values(((or-part_0)(expand-context-only-immediate? ctx_0)))"
 "(if or-part_0 or-part_0(1/rename-transformer? t_0))))"
-"((temp198_0)"
+"((temp176_0)"
 "(if(1/rename-transformer? t_0) fail-non-transformer_0 #f)))"
-"(expand9.1"
-" temp196_0"
-" temp198_0"
-" temp197_0"
-" exp-s194_0"
-" re-ctx195_0)))))))))))))))))))))"
+"(expand.1"
+" temp174_0"
+" temp176_0"
+" temp175_0"
+" exp-s172_0"
+" re-ctx173_0)))))))))))))))))))))"
 "(define-values"
 "(dispatch-variable)"
 "(lambda(t_0 s_0 id_0 ctx_0 binding_0 primitive?_0 protected?_0)"
@@ -43723,11 +43702,11 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()(begin(register-variable-referenced-if-local! binding_0)(values))))"
 "(let-values(((result-s_0)"
-"(let-values(((id199_0) id_0)"
-"((t200_0) t_0)"
-"((temp201_0)"
+"(let-values(((id177_0) id_0)"
+"((t178_0) t_0)"
+"((temp179_0)"
 "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_0))))"
-"(substitute-variable6.1 temp201_0 id199_0 t200_0))))"
+"(substitute-variable.1 temp179_0 id177_0 t178_0))))"
 "(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)"
 "(let-values()"
 "(let-values(((prop-s_0)(keep-properties-only~ result-s_0)))"
@@ -43745,17 +43724,17 @@ static const char *startup_source =
 "(void)))"
 " protected-result-s_0))))))))))))"
 "(define-values"
-"(apply-transformer52.1)"
-"(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_0 id49_0 ctx50_0 binding51_0)"
+"(apply-transformer.1)"
+"(lambda(origin-id36_0 t38_0 insp-of-t39_0 s40_0 id41_0 ctx42_0 binding43_0)"
 "(begin"
-" 'apply-transformer52"
-"(let-values(((t_0) t46_0))"
-"(let-values(((insp-of-t_0) insp-of-t47_0))"
-"(let-values(((s_0) s48_0))"
-"(let-values(((id_0) id49_0))"
-"(let-values(((ctx_0) ctx50_0))"
-"(let-values(((binding_0) binding51_0))"
-"(let-values(((origin-id_0) origin-id44_0))"
+" 'apply-transformer"
+"(let-values(((t_0) t38_0))"
+"(let-values(((insp-of-t_0) insp-of-t39_0))"
+"(let-values(((s_0) s40_0))"
+"(let-values(((id_0) id41_0))"
+"(let-values(((ctx_0) ctx42_0))"
+"(let-values(((binding_0) binding43_0))"
+"(let-values(((origin-id_0) origin-id36_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?(let-values()(start-performance-region 'expand '_ 'macro))(void))"
@@ -43843,28 +43822,28 @@ static const char *startup_source =
 "(let-values(((v_0) accum-ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((current-introduction-scopes202_0)(list intro-scope_0))"
-"((current-use-scopes203_0) use-scopes_0)"
-"((def-ctx-scopes204_0)"
+"(let-values(((current-introduction-scopes180_0)(list intro-scope_0))"
+"((current-use-scopes181_0) use-scopes_0)"
+"((def-ctx-scopes182_0)"
 "(if confine-def-ctx-scopes?_0"
 " def-ctx-scopes_0"
 "(expand-context-def-ctx-scopes ctx_0)))"
-"((inner205_0)(root-expand-context/outer-inner v_0)))"
+"((inner183_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner205_0"
+" inner183_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
 "(expand-context/outer-context the-struct_0)"
 "(expand-context/outer-env the-struct_0)"
 "(expand-context/outer-scopes the-struct_0)"
-" def-ctx-scopes204_0"
+" def-ctx-scopes182_0"
 "(expand-context/outer-binding-layer the-struct_0)"
 "(expand-context/outer-reference-records the-struct_0)"
 "(expand-context/outer-only-immediate? the-struct_0)"
 "(expand-context/outer-need-eventually-defined the-struct_0)"
-" current-introduction-scopes202_0"
-" current-use-scopes203_0"
+" current-introduction-scopes180_0"
+" current-use-scopes181_0"
 "(expand-context/outer-name the-struct_0)))"
 "                                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_0))))))"
 "(let-values(((transformed-s_0)"
@@ -43933,16 +43912,16 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((scopes206_0)(append(unbox def-ctx-scopes_0)(expand-context-scopes ctx_0)))"
-"((inner207_0)(root-expand-context/outer-inner v_0)))"
+"(let-values(((scopes184_0)(append(unbox def-ctx-scopes_0)(expand-context-scopes ctx_0)))"
+"((inner185_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner207_0"
+" inner185_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
 "(expand-context/outer-context the-struct_0)"
 "(expand-context/outer-env the-struct_0)"
-" scopes206_0"
+" scopes184_0"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
 "(expand-context/outer-binding-layer the-struct_0)"
 "(expand-context/outer-reference-records the-struct_0)"
@@ -43961,33 +43940,33 @@ static const char *startup_source =
 "(let-values(((intro-id_0)(add-scope target-id_0 intro-scope_0)))"
 "(syntax-track-origin$1(transfer-srcloc intro-id_0 id_0) id_0 id_0)))))))"
 "(define-values"
-"(lookup62.1)"
-"(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)"
+"(lookup.1)"
+"(lambda(in45_0 out-of-context-as-variable?46_0 b49_0 ctx50_0 id51_0)"
 "(begin"
-" 'lookup62"
-"(let-values(((b_0) b59_0))"
-"(let-values(((ctx_0) ctx60_0))"
-"(let-values(((id_0) id61_0))"
-"(let-values(((in-s_0) in55_0))"
-"(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?56_0))"
+" 'lookup"
+"(let-values(((b_0) b49_0))"
+"(let-values(((ctx_0) ctx50_0))"
+"(let-values(((id_0) id51_0))"
+"(let-values(((in-s_0) in45_0))"
+"(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?46_0))"
 "(let-values()"
-"(let-values(((b208_0) b_0)"
-"((temp209_0)(expand-context-env ctx_0))"
-"((temp210_0)(expand-context-lift-envs ctx_0))"
-"((temp211_0)(expand-context-namespace ctx_0))"
-"((temp212_0)(expand-context-phase ctx_0))"
-"((id213_0) id_0)"
-"((in-s214_0) in-s_0)"
-"((out-of-context-as-variable?215_0) out-of-context-as-variable?_0))"
-"(binding-lookup52.1"
-" in-s214_0"
-" out-of-context-as-variable?215_0"
-" b208_0"
-" temp209_0"
-" temp210_0"
-" temp211_0"
-" temp212_0"
-" id213_0)))))))))))"
+"(let-values(((b186_0) b_0)"
+"((temp187_0)(expand-context-env ctx_0))"
+"((temp188_0)(expand-context-lift-envs ctx_0))"
+"((temp189_0)(expand-context-namespace ctx_0))"
+"((temp190_0)(expand-context-phase ctx_0))"
+"((id191_0) id_0)"
+"((in-s192_0) in-s_0)"
+"((out-of-context-as-variable?193_0) out-of-context-as-variable?_0))"
+"(binding-lookup.1"
+" in-s192_0"
+" out-of-context-as-variable?193_0"
+" b186_0"
+" temp187_0"
+" temp188_0"
+" temp189_0"
+" temp190_0"
+" id191_0)))))))))))"
 "(define-values"
 "(substitute-alternate-id)"
 "(lambda(s_0 alternate-id_0)"
@@ -44011,16 +43990,16 @@ static const char *startup_source =
 "(let-values()(reference-record-used!(binding-frame-id binding_0)(local-binding-key binding_0)))"
 "(void)))))"
 "(define-values"
-"(expand/capture-lifts75.1)"
-"(lambda(always-wrap?68_0 begin-form?66_0 expand-lifts?65_0 lift-key67_0 s73_0 ctx74_0)"
+"(expand/capture-lifts.1)"
+"(lambda(always-wrap?56_0 begin-form?54_0 expand-lifts?53_0 lift-key55_0 s61_0 ctx62_0)"
 "(begin"
-" 'expand/capture-lifts75"
-"(let-values(((s_0) s73_0))"
-"(let-values(((ctx_0) ctx74_0))"
-"(let-values(((expand-lifts?_0) expand-lifts?65_0))"
-"(let-values(((begin-form?_0) begin-form?66_0))"
-"(let-values(((lift-key_0)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))"
-"(let-values(((always-wrap?_0) always-wrap?68_0))"
+" 'expand/capture-lifts"
+"(let-values(((s_0) s61_0))"
+"(let-values(((ctx_0) ctx62_0))"
+"(let-values(((expand-lifts?_0) expand-lifts?53_0))"
+"(let-values(((begin-form?_0) begin-form?54_0))"
+"(let-values(((lift-key_0)(if(eq? lift-key55_0 unsafe-undefined)(generate-lift-key) lift-key55_0)))"
+"(let-values(((always-wrap?_0) always-wrap?56_0))"
 "(let-values()"
 "(let-values(((context_0)(expand-context-context ctx_0)))"
 "(let-values(((phase_0)(expand-context-phase ctx_0)))"
@@ -44031,7 +44010,7 @@ static const char *startup_source =
 " 'loop"
 "(let-values(((lift-env_0)(if local?_0(box empty-env) #f)))"
 "(let-values(((lift-ctx_0)"
-"(let-values(((temp216_0)"
+"(let-values(((temp194_0)"
 "(if local?_0"
 "(make-local-lift"
 " lift-env_0"
@@ -44041,26 +44020,26 @@ static const char *startup_source =
 " 'lift"
 " #f))"
 "(make-top-level-lift ctx_1)))"
-"((temp217_0)"
+"((temp195_0)"
 "(if(not local?_0)"
 "(eq? context_0 'module)"
 " #f)))"
-"(make-lift-context6.1 temp217_0 temp216_0))))"
+"(make-lift-context.1 temp195_0 temp194_0))))"
 "(let-values(((capture-ctx_0)"
 "(let-values(((v_0) ctx_1))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((inner218_0)"
+"(let-values(((inner196_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((lift-key219_0)"
+"(let-values(((lift-key197_0)"
 " lift-key_0)"
-"((lifts220_0)"
+"((lifts198_0)"
 " lift-ctx_0)"
-"((lift-envs221_0)"
+"((lift-envs199_0)"
 "(if local?_0"
 "(cons"
 " lift-env_0"
@@ -44068,7 +44047,7 @@ static const char *startup_source =
 " ctx_1))"
 "(expand-context-lift-envs"
 " ctx_1)))"
-"((module-lifts222_0)"
+"((module-lifts200_0)"
 "(if(let-values(((or-part_0)"
 " local?_0))"
 "(if or-part_0"
@@ -44094,7 +44073,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(root-expand-context/inner-counter"
 " the-struct_1)"
-" lift-key219_0"
+" lift-key197_0"
 "(expand-context/inner-to-parsed?"
 " the-struct_1)"
 "(expand-context/inner-phase"
@@ -44115,9 +44094,9 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_1)"
-" lifts220_0"
-" lift-envs221_0"
-" module-lifts222_0"
+" lifts198_0"
+" lift-envs199_0"
+" module-lifts200_0"
 "(expand-context/inner-require-lifts"
 " the-struct_1)"
 "(expand-context/inner-to-module-lifts"
@@ -44139,7 +44118,7 @@ static const char *startup_source =
 "                                                                                           \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner218_0"
+" inner196_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -44170,9 +44149,9 @@ static const char *startup_source =
 " the-struct_0))))))"
 "(let-values(((rebuild-s_0)(keep-properties-only s_1)))"
 "(let-values(((exp-s_0)"
-"(let-values(((s223_0) s_1)"
-"((capture-ctx224_0) capture-ctx_0))"
-"(expand9.1 #f #f #f s223_0 capture-ctx224_0))))"
+"(let-values(((s201_0) s_1)"
+"((capture-ctx202_0) capture-ctx_0))"
+"(expand.1 #f #f #f s201_0 capture-ctx202_0))))"
 "(let-values(((lifts_0)"
 "(get-and-clear-lifts!"
 "(expand-context-lifts capture-ctx_0))))"
@@ -44198,15 +44177,15 @@ static const char *startup_source =
 "(loop_0 rhs_0 #f rhs-ctx_0)))))"
 "(let-values()"
 "(if begin-form?_0"
-"(let-values(((lifts225_0) lifts_0)"
-"((exp-s226_0) exp-s_0)"
-"((phase227_0) phase_0))"
-"(wrap-lifts-as-begin16.1"
+"(let-values(((lifts203_0) lifts_0)"
+"((exp-s204_0) exp-s_0)"
+"((phase205_0) phase_0))"
+"(wrap-lifts-as-begin.1"
 " unsafe-undefined"
 " unsafe-undefined"
-" lifts225_0"
-" exp-s226_0"
-" phase227_0))"
+" lifts203_0"
+" exp-s204_0"
+" phase205_0))"
 "(wrap-lifts-as-let"
 " lifts_0"
 " exp-s_0"
@@ -44238,53 +44217,50 @@ static const char *startup_source =
 " always-wrap?_0"
 " ctx_0))))))))))))))"
 "(define-values"
-"(expand-transformer92.1)"
-"(lambda(always-wrap?82_0 begin-form?79_0 context78_0 expand-lifts?80_0 keep-stops?83_0 lift-key81_0 s90_0 ctx91_0)"
+"(expand-transformer.1)"
+"(lambda(always-wrap?68_0 begin-form?65_0 context64_0 expand-lifts?66_0 keep-stops?69_0 lift-key67_0 s76_0 ctx77_0)"
 "(begin"
-" 'expand-transformer92"
-"(let-values(((s_0) s90_0))"
-"(let-values(((ctx_0) ctx91_0))"
-"(let-values(((context_0) context78_0))"
-"(let-values(((begin-form?_0) begin-form?79_0))"
-"(let-values(((expand-lifts?_0) expand-lifts?80_0))"
-"(let-values(((lift-key_0)(if(eq? lift-key81_0 unsafe-undefined)(generate-lift-key) lift-key81_0)))"
-"(let-values(((always-wrap?_0) always-wrap?82_0))"
-"(let-values(((keep-stops?_0) keep-stops?83_0))"
+" 'expand-transformer"
+"(let-values(((s_0) s76_0))"
+"(let-values(((ctx_0) ctx77_0))"
+"(let-values(((context_0) context64_0))"
+"(let-values(((begin-form?_0) begin-form?65_0))"
+"(let-values(((expand-lifts?_0) expand-lifts?66_0))"
+"(let-values(((lift-key_0)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))"
+"(let-values(((always-wrap?_0) always-wrap?68_0))"
+"(let-values(((keep-stops?_0) keep-stops?69_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?(let-values()(start-performance-region 'expand 'transformer))(void))"
 "(begin0"
 "(let-values()"
 "(let-values(((trans-ctx_0)"
-"(let-values(((ctx234_0) ctx_0)"
-"((context235_0) context_0)"
-"((keep-stops?236_0) keep-stops?_0))"
-"(context->transformer-context99.1"
-" keep-stops?236_0"
-" ctx234_0"
-" context235_0))))"
-"(let-values(((s228_0) s_0)"
-"((trans-ctx229_0) trans-ctx_0)"
-"((expand-lifts?230_0) expand-lifts?_0)"
-"((begin-form?231_0) begin-form?_0)"
-"((lift-key232_0) lift-key_0)"
-"((always-wrap?233_0) always-wrap?_0))"
-"(expand/capture-lifts75.1"
-" always-wrap?233_0"
-" begin-form?231_0"
-" expand-lifts?230_0"
-" lift-key232_0"
-" s228_0"
-" trans-ctx229_0))))"
+"(let-values(((ctx212_0) ctx_0)"
+"((context213_0) context_0)"
+"((keep-stops?214_0) keep-stops?_0))"
+"(context->transformer-context.1 keep-stops?214_0 ctx212_0 context213_0))))"
+"(let-values(((s206_0) s_0)"
+"((trans-ctx207_0) trans-ctx_0)"
+"((expand-lifts?208_0) expand-lifts?_0)"
+"((begin-form?209_0) begin-form?_0)"
+"((lift-key210_0) lift-key_0)"
+"((always-wrap?211_0) always-wrap?_0))"
+"(expand/capture-lifts.1"
+" always-wrap?211_0"
+" begin-form?209_0"
+" expand-lifts?208_0"
+" lift-key210_0"
+" s206_0"
+" trans-ctx207_0))))"
 "(if log-performance?(let-values()(end-performance-region))(void))))))))))))))))"
 "(define-values"
-"(context->transformer-context99.1)"
-"(lambda(keep-stops?95_0 ctx98_0 context97_0)"
+"(context->transformer-context.1)"
+"(lambda(keep-stops?79_0 ctx82_0 context81_0)"
 "(begin"
-" 'context->transformer-context99"
-"(let-values(((ctx_0) ctx98_0))"
-"(let-values(((context_0) context97_0))"
-"(let-values(((keep-stops?_0) keep-stops?95_0))"
+" 'context->transformer-context"
+"(let-values(((ctx_0) ctx82_0))"
+"(let-values(((context_0) context81_0))"
+"(let-values(((keep-stops?_0) keep-stops?79_0))"
 "(let-values()"
 "(let-values(((phase_0)(add1(expand-context-phase ctx_0))))"
 "(let-values(((ns_0)(namespace->namespace-at-phase(expand-context-namespace ctx_0) phase_0)))"
@@ -44293,19 +44269,19 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context237_0) context_0)"
-"((scopes238_0) null)"
-"((env239_0) empty-env)"
-"((only-immediate?240_0)"
+"(let-values(((context215_0) context_0)"
+"((scopes216_0) null)"
+"((env217_0) empty-env)"
+"((only-immediate?218_0)"
 "(if keep-stops?_0(expand-context-only-immediate? ctx_0) #f))"
-"((def-ctx-scopes241_0) #f)"
-"((post-expansion242_0) #f)"
-"((inner243_0)"
+"((def-ctx-scopes219_0) #f)"
+"((post-expansion220_0) #f)"
+"((inner221_0)"
 "(let-values(((the-struct_1)(root-expand-context/outer-inner v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((phase244_0) phase_0)"
-"((namespace245_0) ns_0)"
-"((stops246_0)"
+"(let-values(((phase222_0) phase_0)"
+"((namespace223_0) ns_0)"
+"((stops224_0)"
 "(if keep-stops?_0"
 "(expand-context-stops ctx_0)"
 " empty-free-id-set)))"
@@ -44318,14 +44294,14 @@ static const char *startup_source =
 "(root-expand-context/inner-counter the-struct_1)"
 "(root-expand-context/inner-lift-key the-struct_1)"
 "(expand-context/inner-to-parsed? the-struct_1)"
-" phase244_0"
-" namespace245_0"
+" phase222_0"
+" namespace223_0"
 "(expand-context/inner-just-once? the-struct_1)"
 "(expand-context/inner-module-begin-k the-struct_1)"
 "(expand-context/inner-allow-unbound? the-struct_1)"
 "(expand-context/inner-in-local-expand? the-struct_1)"
 "(expand-context/inner-keep-#%expression? the-struct_1)"
-" stops246_0"
+" stops224_0"
 "(expand-context/inner-declared-submodule-names the-struct_1)"
 "(expand-context/inner-lifts the-struct_1)"
 "(expand-context/inner-lift-envs the-struct_1)"
@@ -44340,53 +44316,45 @@ static const char *startup_source =
 "(expand-context/inner-should-not-encounter-macros? the-struct_1)))"
 "                                            (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner243_0"
-" post-expansion242_0"
+" inner221_0"
+" post-expansion220_0"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
-" context237_0"
-" env239_0"
-" scopes238_0"
-" def-ctx-scopes241_0"
+" context215_0"
+" env217_0"
+" scopes216_0"
+" def-ctx-scopes219_0"
 "(expand-context/outer-binding-layer the-struct_0)"
 "(expand-context/outer-reference-records the-struct_0)"
-" only-immediate?240_0"
+" only-immediate?218_0"
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
 "(expand-context/outer-name the-struct_0)))"
 "                          (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_0))))))))))))))"
 "(define-values"
-"(expand+eval-for-syntaxes-binding108.1)"
-"(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)"
+"(expand+eval-for-syntaxes-binding.1)"
+"(lambda(log-next?84_0 who86_0 rhs87_0 ids88_0 ctx89_0)"
 "(begin"
-" 'expand+eval-for-syntaxes-binding108"
-"(let-values(((who_0) who104_0))"
-"(let-values(((rhs_0) rhs105_0))"
-"(let-values(((ids_0) ids106_0))"
-"(let-values(((ctx_0) ctx107_0))"
-"(let-values(((log-next?_0) log-next?102_0))"
+" 'expand+eval-for-syntaxes-binding"
+"(let-values(((who_0) who86_0))"
+"(let-values(((rhs_0) rhs87_0))"
+"(let-values(((ids_0) ids88_0))"
+"(let-values(((ctx_0) ctx89_0))"
+"(let-values(((log-next?_0) log-next?84_0))"
 "(let-values()"
 "(let-values(((exp-rhs_0)"
-"(let-values(((rhs247_0) rhs_0)((temp248_0)(as-named-context ctx_0 ids_0)))"
-"(expand-transformer92.1"
-" #f"
-" #f"
-" 'expression"
-" #t"
-" #f"
-" unsafe-undefined"
-" rhs247_0"
-" temp248_0))))"
+"(let-values(((rhs225_0) rhs_0)((temp226_0)(as-named-context ctx_0 ids_0)))"
+"(expand-transformer.1 #f #f 'expression #t #f unsafe-undefined rhs225_0 temp226_0))))"
 "(let-values(((phase_0)(add1(expand-context-phase ctx_0))))"
 "(let-values(((parsed-rhs_0)"
 "(if(expand-context-to-parsed? ctx_0)"
 " exp-rhs_0"
-"(let-values(((exp-rhs249_0) exp-rhs_0)"
-"((temp250_0)"
-"(let-values(((temp251_0)(as-to-parsed-context ctx_0)))"
-"(context->transformer-context99.1 #f temp251_0 'expression))))"
-"(expand9.1 #f #f #f exp-rhs249_0 temp250_0)))))"
+"(let-values(((exp-rhs227_0) exp-rhs_0)"
+"((temp228_0)"
+"(let-values(((temp229_0)(as-to-parsed-context ctx_0)))"
+"(context->transformer-context.1 #f temp229_0 'expression))))"
+"(expand.1 #f #f #f exp-rhs227_0 temp228_0)))))"
 "(begin"
 "(if log-next?_0"
 "(let-values()"
@@ -44408,8 +44376,8 @@ static const char *startup_source =
 "(lambda(who_0 rhs_0 ids_0 ctx_0)"
 "(begin"
 "(let-values(((exp-rhs_0 parsed-rhs_0 vals_0)"
-"(let-values(((who252_0) who_0)((rhs253_0) rhs_0)((ids254_0) ids_0)((ctx255_0) ctx_0))"
-"(expand+eval-for-syntaxes-binding108.1 #t who252_0 rhs253_0 ids254_0 ctx255_0))))"
+"(let-values(((who230_0) who_0)((rhs231_0) rhs_0)((ids232_0) ids_0)((ctx233_0) ctx_0))"
+"(expand+eval-for-syntaxes-binding.1 #t who230_0 rhs231_0 ids232_0 ctx233_0))))"
 " vals_0))))"
 "(define-values"
 "(eval-for-bindings)"
@@ -44420,8 +44388,8 @@ static const char *startup_source =
 " #f"
 "(compile-single"
 " p_0"
-"(let-values(((ns256_0) ns_0)((phase257_0) phase_0))"
-"(make-compile-context14.1 #f unsafe-undefined #f ns256_0 phase257_0 unsafe-undefined))))))"
+"(let-values(((ns234_0) ns_0)((phase235_0) phase_0))"
+"(make-compile-context.1 #f unsafe-undefined #f ns234_0 phase235_0 unsafe-undefined))))))"
 "(let-values(((vals_0)"
 "(call-with-values"
 "(lambda()"
@@ -44461,15 +44429,15 @@ static const char *startup_source =
 "(define-values(keep-properties-only)(lambda(s_0)(begin(datum->syntax$1 #f 'props s_0 s_0))))"
 "(define-values(keep-properties-only~)(lambda(s_0)(begin #f)))"
 "(define-values"
-"(keep-as-needed119.1)"
-"(lambda(for-track?111_0 keep-for-error?113_0 keep-for-parsed?112_0 ctx117_0 s118_0)"
+"(keep-as-needed.1)"
+"(lambda(for-track?91_0 keep-for-error?93_0 keep-for-parsed?92_0 ctx97_0 s98_0)"
 "(begin"
-" 'keep-as-needed119"
-"(let-values(((ctx_0) ctx117_0))"
-"(let-values(((s_0) s118_0))"
-"(let-values(((for-track?_0) for-track?111_0))"
-"(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))"
-"(let-values(((keep-for-error?_0) keep-for-error?113_0))"
+" 'keep-as-needed"
+"(let-values(((ctx_0) ctx97_0))"
+"(let-values(((s_0) s98_0))"
+"(let-values(((for-track?_0) for-track?91_0))"
+"(let-values(((keep-for-parsed?_0) keep-for-parsed?92_0))"
+"(let-values(((keep-for-error?_0) keep-for-error?93_0))"
 "(let-values()"
 "(let-values(((d_0)(syntax-e/no-taint s_0)))"
 "(let-values(((keep-e_0)"
@@ -44546,7 +44514,7 @@ static const char *startup_source =
 "(let-values(((v_0) rhs-ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((env258_0)"
+"(let-values(((env236_0)"
 "(let-values(((lst_0) ids_0)((lst_1) keys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -44599,14 +44567,14 @@ static const char *startup_source =
 "(expand-context-env rhs-ctx_0)"
 " lst_0"
 " lst_1))))"
-"((inner259_0)(root-expand-context/outer-inner v_0)))"
+"((inner237_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner259_0"
+" inner237_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
 "(expand-context/outer-context the-struct_0)"
-" env258_0"
+" env236_0"
 "(expand-context/outer-scopes the-struct_0)"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
 "(expand-context/outer-binding-layer the-struct_0)"
@@ -44646,14 +44614,14 @@ static const char *startup_source =
 "(if srcloc_0"
 "(let-values(((the-struct_0) new-s_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((srcloc260_0) srcloc_0))"
+"(let-values(((srcloc238_0) srcloc_0))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
-" srcloc260_0"
+" srcloc238_0"
 "(syntax-props the-struct_0)"
 "(syntax-inspector the-struct_0)))"
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
@@ -44799,10 +44767,10 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 3 'cache))))"
 "(define-values"
 "(1/syntax-local-make-definition-context)"
-"(let-values(((syntax-local-make-definition-context5_0)"
+"(let-values(((syntax-local-make-definition-context_0)"
 "(lambda(parent-ctx3_0 add-scope?4_0)"
 "(begin"
-" 'syntax-local-make-definition-context5"
+" 'syntax-local-make-definition-context"
 "(let-values(((parent-ctx_0) parent-ctx3_0))"
 "(let-values(((add-scope?_0) add-scope?4_0))"
 "(let-values()"
@@ -44818,8 +44786,8 @@ static const char *startup_source =
 " parent-ctx_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp47_0) 'syntax-local-make-definition-context))"
-"(get-current-expand-context18.1 #f temp47_0))))"
+"(let-values(((temp37_0) 'syntax-local-make-definition-context))"
+"(get-current-expand-context.1 #f temp37_0))))"
 "(let-values(((frame-id_0)"
 "(let-values(((or-part_0)(root-expand-context-frame-id ctx_0)))"
 "(if or-part_0"
@@ -44842,19 +44810,19 @@ static const char *startup_source =
 "(box null)"
 " parent-ctx_0))))))))))))))"
 "(case-lambda"
-"(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context5_0 #f #t)))"
-"((parent-ctx_0 add-scope?4_0)(syntax-local-make-definition-context5_0 parent-ctx_0 add-scope?4_0))"
-"((parent-ctx3_0)(syntax-local-make-definition-context5_0 parent-ctx3_0 #t)))))"
+"(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context_0 #f #t)))"
+"((parent-ctx_0 add-scope?4_0)(syntax-local-make-definition-context_0 parent-ctx_0 add-scope?4_0))"
+"((parent-ctx3_0)(syntax-local-make-definition-context_0 parent-ctx3_0 #t)))))"
 "(define-values"
 "(1/syntax-local-bind-syntaxes)"
-"(let-values(((syntax-local-bind-syntaxes11_0)"
-"(lambda(ids8_0 s9_0 intdef10_0 extra-intdefs7_0)"
+"(let-values(((syntax-local-bind-syntaxes_0)"
+"(lambda(ids6_0 s7_0 intdef8_0 extra-intdefs5_0)"
 "(begin"
-" 'syntax-local-bind-syntaxes11"
-"(let-values(((ids_0) ids8_0))"
-"(let-values(((s_0) s9_0))"
-"(let-values(((intdef_0) intdef10_0))"
-"(let-values(((extra-intdefs_0) extra-intdefs7_0))"
+" 'syntax-local-bind-syntaxes"
+"(let-values(((ids_0) ids6_0))"
+"(let-values(((s_0) s7_0))"
+"(let-values(((intdef_0) intdef8_0))"
+"(let-values(((extra-intdefs_0) extra-intdefs5_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -44898,8 +44866,8 @@ static const char *startup_source =
 " extra-intdefs_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp48_0) 'local-expand))"
-"(get-current-expand-context18.1 #f temp48_0))))"
+"(let-values(((temp38_0) 'local-expand))"
+"(get-current-expand-context.1 #f temp38_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -44946,25 +44914,25 @@ static const char *startup_source =
 " id_0"
 " ctx_0)"
 " ctx_0)))"
-"(let-values(((temp49_0)"
-"(let-values(((pre-id51_0)"
+"(let-values(((temp39_0)"
+"(let-values(((pre-id41_0)"
 " pre-id_0)"
-"((intdef52_0)"
+"((intdef42_0)"
 " intdef_0)"
-"((temp53_0)"
+"((temp43_0)"
 " #t))"
-"(add-intdef-scopes24.1"
+"(add-intdef-scopes.1"
 " unsafe-undefined"
-" temp53_0"
-" pre-id51_0"
-" intdef52_0)))"
-"((extra-intdefs50_0)"
+" temp43_0"
+" pre-id41_0"
+" intdef42_0)))"
+"((extra-intdefs40_0)"
 " extra-intdefs_0))"
-"(add-intdef-scopes24.1"
+"(add-intdef-scopes.1"
 " unsafe-undefined"
 " #f"
-" temp49_0"
-" extra-intdefs50_0))))"
+" temp39_0"
+" extra-intdefs40_0))))"
 " fold-var_1))))"
 "(values"
 " fold-var_2)))))"
@@ -45020,24 +44988,24 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((intdef-id54_0)"
+"(let-values(((intdef-id44_0)"
 " intdef-id_0)"
-"((phase55_0)"
+"((phase45_0)"
 " phase_0)"
-"((counter56_0)"
+"((counter46_0)"
 " counter_0)"
-"((temp57_0)"
+"((temp47_0)"
 "(internal-definition-context-frame-id"
 " intdef_0))"
-"((local-sym58_0)"
+"((local-sym48_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
-" temp57_0"
+"(add-local-binding!.1"
+" temp47_0"
 " #f"
-" local-sym58_0"
-" intdef-id54_0"
-" phase55_0"
-" counter56_0)))"
+" local-sym48_0"
+" intdef-id44_0"
+" phase45_0"
+" counter46_0)))"
 " fold-var_1))))"
 "(values"
 " fold-var_2)))))"
@@ -45115,19 +45083,19 @@ static const char *startup_source =
 "(expand-context-env ctx_0)"
 " lst_0"
 " lst_1)))))"
-"(let-values(((temp59_0)"
+"(let-values(((temp49_0)"
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0)"
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((env62_0)"
+"(let-values(((env52_0)"
 " tmp-env_0)"
-"((inner63_0)"
+"((inner53_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner63_0"
+" inner53_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -45136,7 +45104,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-context"
 " the-struct_0)"
-" env62_0"
+" env52_0"
 "(expand-context/outer-scopes"
 " the-struct_0)"
 "(expand-context/outer-def-ctx-scopes"
@@ -45159,32 +45127,32 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                 \"expand-context/outer?\""
 " the-struct_0)))))"
-"((temp60_0) 'expression)"
-"((all-intdefs61_0)"
+"((temp50_0) 'expression)"
+"((all-intdefs51_0)"
 " all-intdefs_0))"
-"(make-local-expand-context42.1"
-" temp60_0"
-" all-intdefs61_0"
+"(make-local-expand-context.1"
+" temp50_0"
+" all-intdefs51_0"
 " #t"
 " unsafe-undefined"
 " #f"
 " #f"
 " #f"
-" temp59_0))))"
+" temp49_0))))"
 " #f)))"
 "(let-values(((vals_0)"
 "(if s_0"
 "(let-values()"
 "(let-values(((input-s_0)"
 "(flip-introduction-scopes"
-"(let-values(((s64_0) s_0)"
-"((all-intdefs65_0)"
+"(let-values(((s54_0) s_0)"
+"((all-intdefs55_0)"
 " all-intdefs_0))"
-"(add-intdef-scopes24.1"
+"(add-intdef-scopes.1"
 " unsafe-undefined"
 " #f"
-" s64_0"
-" all-intdefs65_0))"
+" s54_0"
+" all-intdefs55_0))"
 " ctx_0)))"
 "(let-values((()"
 "(begin"
@@ -45358,8 +45326,8 @@ static const char *startup_source =
 "(call-expand-observe obs_0 'exit-local-bind)))"
 "(void)))))))))))))))))))))))))))))"
 "(case-lambda"
-"((ids_0 s_0 intdef_0)(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_0 s_0 intdef_0 '())))"
-"((ids_0 s_0 intdef_0 extra-intdefs7_0)(syntax-local-bind-syntaxes11_0 ids_0 s_0 intdef_0 extra-intdefs7_0)))))"
+"((ids_0 s_0 intdef_0)(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes_0 ids_0 s_0 intdef_0 '())))"
+"((ids_0 s_0 intdef_0 extra-intdefs5_0)(syntax-local-bind-syntaxes_0 ids_0 s_0 intdef_0 extra-intdefs5_0)))))"
 "(define-values"
 "(1/internal-definition-context-binding-identifiers)"
 "(lambda(intdef_0)"
@@ -45398,13 +45366,13 @@ static const char *startup_source =
 " lst_0))))))))"
 "(define-values"
 "(1/internal-definition-context-introduce)"
-"(let-values(((internal-definition-context-introduce16_0)"
-"(lambda(intdef14_0 s15_0 mode13_0)"
+"(let-values(((internal-definition-context-introduce_0)"
+"(lambda(intdef10_0 s11_0 mode9_0)"
 "(begin"
-" 'internal-definition-context-introduce16"
-"(let-values(((intdef_0) intdef14_0))"
-"(let-values(((s_0) s15_0))"
-"(let-values(((mode_0) mode13_0))"
+" 'internal-definition-context-introduce"
+"(let-values(((intdef_0) intdef10_0))"
+"(let-values(((s_0) s11_0))"
+"(let-values(((mode_0) mode9_0))"
 "(let-values()"
 "(begin"
 "(if(1/internal-definition-context? intdef_0)"
@@ -45418,10 +45386,10 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                  (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_0)))"
-"(let-values(((s66_0) s_0)"
-"((intdef67_0) intdef_0)"
-"((temp68_0) #t)"
-"((temp69_0)"
+"(let-values(((s56_0) s_0)"
+"((intdef57_0) intdef_0)"
+"((temp58_0) #t)"
+"((temp59_0)"
 "(let-values(((tmp_0) mode_0))"
 "(if(equal? tmp_0 'add)"
 "(let-values() add-scope)"
@@ -45434,11 +45402,11 @@ static const char *startup_source =
 " 'internal-definition-context-introduce"
 "                                                       \"(or/c 'add 'remove 'flip)\""
 " mode_0))))))))"
-"(add-intdef-scopes24.1 temp69_0 temp68_0 s66_0 intdef67_0)))))))))))"
+"(add-intdef-scopes.1 temp59_0 temp58_0 s56_0 intdef57_0)))))))))))"
 "(case-lambda"
 "((intdef_0 s_0)"
-"(begin 'internal-definition-context-introduce(internal-definition-context-introduce16_0 intdef_0 s_0 'flip)))"
-"((intdef_0 s_0 mode13_0)(internal-definition-context-introduce16_0 intdef_0 s_0 mode13_0)))))"
+"(begin 'internal-definition-context-introduce(internal-definition-context-introduce_0 intdef_0 s_0 'flip)))"
+"((intdef_0 s_0 mode9_0)(internal-definition-context-introduce_0 intdef_0 s_0 mode9_0)))))"
 "(define-values"
 "(1/internal-definition-context-seal)"
 "(lambda(intdef_0)"
@@ -45586,14 +45554,14 @@ static const char *startup_source =
 " env_0"
 " x_0))))))"
 "(define-values"
-"(add-intdef-scopes24.1)"
-"(lambda(action19_0 always?18_0 s22_0 intdefs23_0)"
+"(add-intdef-scopes.1)"
+"(lambda(action13_0 always?12_0 s16_0 intdefs17_0)"
 "(begin"
-" 'add-intdef-scopes24"
-"(let-values(((s_0) s22_0))"
-"(let-values(((intdefs_0) intdefs23_0))"
-"(let-values(((always?_0) always?18_0))"
-"(let-values(((action_0)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))"
+" 'add-intdef-scopes"
+"(let-values(((s_0) s16_0))"
+"(let-values(((intdefs_0) intdefs17_0))"
+"(let-values(((always?_0) always?12_0))"
+"(let-values(((action_0)(if(eq? action13_0 unsafe-undefined) add-scope action13_0)))"
 "(let-values()"
 "(let-values(((x_0)"
 "(let-values(((a_0) intdefs_0))"
@@ -45630,25 +45598,25 @@ static const char *startup_source =
 " s_0"
 " x_0)))))))))))"
 "(define-values"
-"(make-local-expand-context42.1)"
-"(lambda(context27_0"
-" intdefs29_0"
-" keep-#%expression?33_0"
-" phase28_0"
-" stop-ids30_0"
-" to-parsed-ok?31_0"
-" track-to-be-defined?32_0"
-" ctx41_0)"
+"(make-local-expand-context.1)"
+"(lambda(context19_0"
+" intdefs21_0"
+" keep-#%expression?25_0"
+" phase20_0"
+" stop-ids22_0"
+" to-parsed-ok?23_0"
+" track-to-be-defined?24_0"
+" ctx33_0)"
 "(begin"
-" 'make-local-expand-context42"
-"(let-values(((ctx_0) ctx41_0))"
-"(let-values(((context_0) context27_0))"
-"(let-values(((phase_0)(if(eq? phase28_0 unsafe-undefined)(expand-context-phase ctx_0) phase28_0)))"
-"(let-values(((intdefs_0) intdefs29_0))"
-"(let-values(((stop-ids_0) stop-ids30_0))"
-"(let-values(((to-parsed-ok?_0) to-parsed-ok?31_0))"
-"(let-values(((track-to-be-defined?_0) track-to-be-defined?32_0))"
-"(let-values(((keep-#%expression?_0) keep-#%expression?33_0))"
+" 'make-local-expand-context"
+"(let-values(((ctx_0) ctx33_0))"
+"(let-values(((context_0) context19_0))"
+"(let-values(((phase_0)(if(eq? phase20_0 unsafe-undefined)(expand-context-phase ctx_0) phase20_0)))"
+"(let-values(((intdefs_0) intdefs21_0))"
+"(let-values(((stop-ids_0) stop-ids22_0))"
+"(let-values(((to-parsed-ok?_0) to-parsed-ok?23_0))"
+"(let-values(((track-to-be-defined?_0) track-to-be-defined?24_0))"
+"(let-values(((keep-#%expression?_0) keep-#%expression?25_0))"
 "(let-values()"
 "(let-values(((same-kind?_0)"
 "(let-values(((or-part_0)(eq? context_0(expand-context-context ctx_0))))"
@@ -45664,9 +45632,9 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context70_0) context_0)"
-"((env71_0)(add-intdef-bindings(expand-context-env ctx_0) intdefs_0))"
-"((use-site-scopes72_0)"
+"(let-values(((context60_0) context_0)"
+"((env61_0)(add-intdef-bindings(expand-context-env ctx_0) intdefs_0))"
+"((use-site-scopes62_0)"
 "(if(let-values(((or-part_0)(eq? context_0 'module)))"
 "(if or-part_0"
 " or-part_0"
@@ -45676,7 +45644,7 @@ static const char *startup_source =
 "(root-expand-context-use-site-scopes ctx_0)))"
 "(if or-part_0 or-part_0(box null)))"
 " #f))"
-"((frame-id73_0)"
+"((frame-id63_0)"
 "(let-values(((x_0)"
 "(let-values(((a_0) intdefs_0))"
 "(if(list? a_0)"
@@ -45725,7 +45693,7 @@ static const char *startup_source =
 " for-loop_0)"
 "(root-expand-context-frame-id ctx_0)"
 " x_0))))"
-"((post-expansion74_0)"
+"((post-expansion64_0)"
 "(let-values(((pe_0)"
 "(if same-kind?_0"
 "(if(let-values(((or-part_0)(pair? context_0)))"
@@ -45741,34 +45709,34 @@ static const char *startup_source =
 "(let-values()"
 "(lambda(s_0)"
 "(begin"
-" 'post-expansion74"
-"(let-values(((temp80_0)(apply-post-expansion pe_0 s_0))"
-"((intdefs81_0) intdefs_0))"
-"(add-intdef-scopes24.1"
+" 'post-expansion64"
+"(let-values(((temp70_0)(apply-post-expansion pe_0 s_0))"
+"((intdefs71_0) intdefs_0))"
+"(add-intdef-scopes.1"
 " unsafe-undefined"
 " #f"
-" temp80_0"
-" intdefs81_0)))))"
+" temp70_0"
+" intdefs71_0)))))"
 "(let-values() pe_0))))"
-"((scopes75_0)(append def-ctx-scopes_0(expand-context-scopes ctx_0)))"
-"((only-immediate?76_0)(not stop-ids_0))"
-"((current-introduction-scopes77_0) null)"
-"((need-eventually-defined78_0)"
+"((scopes65_0)(append def-ctx-scopes_0(expand-context-scopes ctx_0)))"
+"((only-immediate?66_0)(not stop-ids_0))"
+"((current-introduction-scopes67_0) null)"
+"((need-eventually-defined68_0)"
 "(let-values(((ht_0)(expand-context-need-eventually-defined ctx_0)))"
 "(if track-to-be-defined?_0"
 "(let-values() ht_0)"
 "(if ht_0(let-values()(make-hasheqv))(let-values() #f)))))"
-"((inner79_0)"
+"((inner69_0)"
 "(let-values(((the-struct_1)(root-expand-context/outer-inner v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((to-parsed?82_0)"
+"(let-values(((to-parsed?72_0)"
 "(if to-parsed-ok?_0"
 "(expand-context-to-parsed? ctx_0)"
 " #f))"
-"((just-once?83_0) #f)"
-"((in-local-expand?84_0) #t)"
-"((keep-#%expression?85_0) keep-#%expression?_0)"
-"((stops86_0)"
+"((just-once?73_0) #f)"
+"((in-local-expand?74_0) #t)"
+"((keep-#%expression?75_0) keep-#%expression?_0)"
+"((stops76_0)"
 "(free-id-set"
 " phase_0"
 "(let-values(((or-part_0) all-stop-ids_0))"
@@ -45781,15 +45749,15 @@ static const char *startup_source =
 "(root-expand-context/inner-defined-syms the-struct_1)"
 "(root-expand-context/inner-counter the-struct_1)"
 "(root-expand-context/inner-lift-key the-struct_1)"
-" to-parsed?82_0"
+" to-parsed?72_0"
 "(expand-context/inner-phase the-struct_1)"
 "(expand-context/inner-namespace the-struct_1)"
-" just-once?83_0"
+" just-once?73_0"
 "(expand-context/inner-module-begin-k the-struct_1)"
 "(expand-context/inner-allow-unbound? the-struct_1)"
-" in-local-expand?84_0"
-" keep-#%expression?85_0"
-" stops86_0"
+" in-local-expand?74_0"
+" keep-#%expression?75_0"
+" stops76_0"
 "(expand-context/inner-declared-submodule-names the-struct_1)"
 "(expand-context/inner-lifts the-struct_1)"
 "(expand-context/inner-lift-envs the-struct_1)"
@@ -45808,19 +45776,19 @@ static const char *startup_source =
 "                                                       \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner79_0"
-" post-expansion74_0"
-" use-site-scopes72_0"
-" frame-id73_0"
-" context70_0"
-" env71_0"
-" scopes75_0"
+" inner69_0"
+" post-expansion64_0"
+" use-site-scopes62_0"
+" frame-id63_0"
+" context60_0"
+" env61_0"
+" scopes65_0"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
 "(expand-context/outer-binding-layer the-struct_0)"
 "(expand-context/outer-reference-records the-struct_0)"
-" only-immediate?76_0"
-" need-eventually-defined78_0"
-" current-introduction-scopes77_0"
+" only-immediate?66_0"
+" need-eventually-defined68_0"
+" current-introduction-scopes67_0"
 "(expand-context/outer-current-use-scopes the-struct_0)"
 "(expand-context/outer-name the-struct_0)))"
 "(raise-argument-error"
@@ -45839,27 +45807,27 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'syntax-transforming?"
-"(if(let-values(((temp55_0) #t))(get-current-expand-context18.1 temp55_0 'unexpected)) #t #f))))"
+"(if(let-values(((temp41_0) #t))(get-current-expand-context.1 temp41_0 'unexpected)) #t #f))))"
 "(define-values"
 "(1/syntax-transforming-with-lifts?)"
 "(lambda()"
 "(begin"
 " 'syntax-transforming-with-lifts?"
-"(let-values(((ctx_0)(let-values(((temp56_0) #t))(get-current-expand-context18.1 temp56_0 'unexpected))))"
+"(let-values(((ctx_0)(let-values(((temp42_0) #t))(get-current-expand-context.1 temp42_0 'unexpected))))"
 "(if ctx_0(if(expand-context-lifts ctx_0) #t #f) #f)))))"
 "(define-values"
 "(1/syntax-transforming-module-expression?)"
 "(lambda()"
 "(begin"
 " 'syntax-transforming-module-expression?"
-"(let-values(((ctx_0)(let-values(((temp57_0) #t))(get-current-expand-context18.1 temp57_0 'unexpected))))"
+"(let-values(((ctx_0)(let-values(((temp43_0) #t))(get-current-expand-context.1 temp43_0 'unexpected))))"
 "(if ctx_0(if(expand-context-to-module-lifts ctx_0) #t #f) #f)))))"
 "(define-values"
 "(1/syntax-local-transforming-module-provides?)"
 "(lambda()"
 "(begin"
 " 'syntax-local-transforming-module-provides?"
-"(let-values(((ctx_0)(let-values(((temp58_0) #t))(get-current-expand-context18.1 temp58_0 'unexpected))))"
+"(let-values(((ctx_0)(let-values(((temp44_0) #t))(get-current-expand-context.1 temp44_0 'unexpected))))"
 "(if ctx_0(if(expand-context-requires+provides ctx_0) #t #f) #f)))))"
 "(define-values"
 "(1/syntax-local-context)"
@@ -45867,7 +45835,7 @@ static const char *startup_source =
 "(begin"
 " 'syntax-local-context"
 "(let-values(((ctx_0)"
-"(let-values(((temp59_0) 'syntax-local-context))(get-current-expand-context18.1 #f temp59_0))))"
+"(let-values(((temp45_0) 'syntax-local-context))(get-current-expand-context.1 #f temp45_0))))"
 "(expand-context-context ctx_0)))))"
 "(define-values"
 "(1/syntax-local-introduce)"
@@ -45883,8 +45851,8 @@ static const char *startup_source =
 "                            (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp61_0) 'syntax-local-introduce))"
-"(get-current-expand-context18.1 #f temp61_0))))"
+"(let-values(((temp47_0) 'syntax-local-introduce))"
+"(get-current-expand-context.1 #f temp47_0))))"
 "(flip-introduction-and-use-scopes s_0 ctx_0))))))))"
 "(define-values"
 "(1/syntax-local-identifier-as-binding)"
@@ -45901,15 +45869,15 @@ static const char *startup_source =
 "                              (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp63_0) 'syntax-local-identifier-as-binding))"
-"(get-current-expand-context18.1 #f temp63_0))))"
+"(let-values(((temp49_0) 'syntax-local-identifier-as-binding))"
+"(get-current-expand-context.1 #f temp49_0))))"
 "(remove-use-site-scopes id_0 ctx_0))))))))"
 "(define-values"
 "(1/syntax-local-phase-level)"
 "(lambda()"
 "(begin"
 " 'syntax-local-phase-level"
-"(let-values(((ctx_0)(let-values(((temp64_0) #t))(get-current-expand-context18.1 temp64_0 'unexpected))))"
+"(let-values(((ctx_0)(let-values(((temp50_0) #t))(get-current-expand-context.1 temp50_0 'unexpected))))"
 "(if ctx_0(expand-context-phase ctx_0) 0)))))"
 "(define-values"
 "(1/syntax-local-name)"
@@ -45919,20 +45887,20 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((ctx_0)"
-"(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context18.1 #f who66_0))))"
+"(let-values(((who52_0) 'syntax-local-name))(get-current-expand-context.1 #f who52_0))))"
 "(let-values(((id_0)(expand-context-name ctx_0)))"
 "(if id_0(datum->syntax$1 #f(syntax-e$1 id_0) id_0) #f))))))))"
 "(define-values"
 "(1/make-syntax-introducer)"
-"(let-values(((make-syntax-introducer2_0)"
+"(let-values(((make-syntax-introducer_0)"
 "(lambda(as-use-site?1_0)"
 "(begin"
-" 'make-syntax-introducer2"
+" 'make-syntax-introducer"
 "(let-values(((as-use-site?_0) as-use-site?1_0))"
 "(let-values()(do-make-syntax-introducer(new-scope(if as-use-site?_0 'use-site 'macro)))))))))"
 "(case-lambda"
-"(()(begin 'make-syntax-introducer(make-syntax-introducer2_0 #f)))"
-"((as-use-site?1_0)(make-syntax-introducer2_0 as-use-site?1_0)))))"
+"(()(begin 'make-syntax-introducer(make-syntax-introducer_0 #f)))"
+"((as-use-site?1_0)(make-syntax-introducer_0 as-use-site?1_0)))))"
 "(define-values"
 "(1/make-interned-syntax-introducer)"
 "(lambda(sym-key_0)"
@@ -45949,12 +45917,12 @@ static const char *startup_source =
 "(do-make-syntax-introducer)"
 "(lambda(sc_0)"
 "(begin"
-"(let-values(((core70_0)"
-"(lambda(s69_0 mode68_0)"
+"(let-values(((do-make-syntax-introducer_0)"
+"(lambda(s55_0 mode54_0)"
 "(begin"
-" 'core70"
-"(let-values(((s_0) s69_0))"
-"(let-values(((mode_0) mode68_0))"
+" 'do-make-syntax-introducer"
+"(let-values(((s_0) s55_0))"
+"(let-values(((mode_0) mode54_0))"
 "(let-values()"
 "(begin"
 "(if(syntax?$1 s_0)"
@@ -45972,17 +45940,19 @@ static const char *startup_source =
 " 'syntax-introducer"
 "                                           \"(or/c 'add 'remove 'flip)\""
 " mode_0))))))))))))))"
-"(case-lambda((s_0)(core70_0 s_0 'flip))((s_0 mode68_0)(core70_0 s_0 mode68_0)))))))"
+"(case-lambda"
+"((s_0)(do-make-syntax-introducer_0 s_0 'flip))"
+"((s_0 mode54_0)(do-make-syntax-introducer_0 s_0 mode54_0)))))))"
 "(define-values"
 "(1/make-syntax-delta-introducer)"
-"(let-values(((make-syntax-delta-introducer7_0)"
-"(lambda(ext-s5_0 base-s6_0 phase4_0)"
+"(let-values(((make-syntax-delta-introducer_0)"
+"(lambda(ext-s3_0 base-s4_0 phase2_0)"
 "(begin"
-" 'make-syntax-delta-introducer7"
-"(let-values(((ext-s_0) ext-s5_0))"
-"(let-values(((base-s_0) base-s6_0))"
+" 'make-syntax-delta-introducer"
+"(let-values(((ext-s_0) ext-s3_0))"
+"(let-values(((base-s_0) base-s4_0))"
 "(let-values(((phase_0)"
-"(if(eq? phase4_0 unsafe-undefined)(1/syntax-local-phase-level) phase4_0)))"
+"(if(eq? phase2_0 unsafe-undefined)(1/syntax-local-phase-level) phase2_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -46030,16 +46000,16 @@ static const char *startup_source =
 " base-scs_0"
 "(let-values(((or-part_0)"
 "(if(identifier? base-s_0)"
-"(let-values(((base-s73_0) base-s_0)"
-"((phase74_0) phase_0)"
-"((temp75_0) #t))"
-"(resolve40.1"
+"(let-values(((base-s57_0) base-s_0)"
+"((phase58_0) phase_0)"
+"((temp59_0) #t))"
+"(resolve.1"
 " #f"
 " #f"
 " null"
-" temp75_0"
-" base-s73_0"
-" phase74_0))"
+" temp59_0"
+" base-s57_0"
+" phase58_0))"
 " #f)))"
 "(if or-part_0 or-part_0(seteq))))))"
 "(let-values(((delta-scs_0)"
@@ -46047,44 +46017,44 @@ static const char *startup_source =
 "(let-values(((maybe-taint_0)"
 "(if(syntax-clean? ext-s_0) values syntax-taint$1)))"
 "(let-values(((shifts_0)(syntax-mpi-shifts ext-s_0)))"
-"(let-values(((core78_0)"
-"(lambda(s77_0 mode76_0)"
+"(let-values(((make-syntax-delta-introducer_0)"
+"(lambda(s61_0 mode60_0)"
 "(begin"
-" 'core78"
-"(let-values(((s_0) s77_0))"
-"(let-values(((mode_0) mode76_0))"
+" 'make-syntax-delta-introducer"
+"(let-values(((s_0) s61_0))"
+"(let-values(((mode_0) mode60_0))"
 "(let-values()"
 "(maybe-taint_0"
 "(let-values(((tmp_0) mode_0))"
 "(if(equal? tmp_0 'add)"
 "(let-values()"
-"(let-values(((temp80_0)"
+"(let-values(((temp62_0)"
 "(add-scopes"
 " s_0"
 " delta-scs_0))"
-"((shifts81_0) shifts_0)"
-"((temp82_0) #t))"
-"(syntax-add-shifts44.1"
-" temp82_0"
-" temp80_0"
-" shifts81_0"
+"((shifts63_0) shifts_0)"
+"((temp64_0) #t))"
+"(syntax-add-shifts.1"
+" temp64_0"
+" temp62_0"
+" shifts63_0"
 " #f)))"
 "(if(equal? tmp_0 'remove)"
 "(let-values()"
 "(remove-scopes s_0 delta-scs_0))"
 "(if(equal? tmp_0 'flip)"
 "(let-values()"
-"(let-values(((temp83_0)"
+"(let-values(((temp65_0)"
 "(flip-scopes"
 " s_0"
 " delta-scs_0))"
-"((shifts84_0)"
+"((shifts66_0)"
 " shifts_0)"
-"((temp85_0) #t))"
-"(syntax-add-shifts44.1"
-" temp85_0"
-" temp83_0"
-" shifts84_0"
+"((temp67_0) #t))"
+"(syntax-add-shifts.1"
+" temp67_0"
+" temp65_0"
+" shifts66_0"
 " #f)))"
 "(let-values()"
 "(raise-argument-error"
@@ -46092,12 +46062,15 @@ static const char *startup_source =
 "                                                                                      \"(or/c 'add 'remove 'flip)\""
 " mode_0))))))))))))))"
 "(case-lambda"
-"((s_0)(core78_0 s_0 'add))"
-"((s_0 mode76_0)(core78_0 s_0 mode76_0)))))))))))))))))))))))"
+"((s_0)(make-syntax-delta-introducer_0 s_0 'add))"
+"((s_0 mode60_0)"
+"(make-syntax-delta-introducer_0"
+" s_0"
+" mode60_0)))))))))))))))))))))))"
 "(case-lambda"
 "((ext-s_0 base-s_0)"
-"(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer7_0 ext-s_0 base-s_0 unsafe-undefined)))"
-"((ext-s_0 base-s_0 phase4_0)(make-syntax-delta-introducer7_0 ext-s_0 base-s_0 phase4_0)))))"
+"(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer_0 ext-s_0 base-s_0 unsafe-undefined)))"
+"((ext-s_0 base-s_0 phase2_0)(make-syntax-delta-introducer_0 ext-s_0 base-s_0 phase2_0)))))"
 "(define-values"
 "(1/syntax-local-make-delta-introducer)"
 "(lambda(id-stx_0)"
@@ -46114,15 +46087,15 @@ static const char *startup_source =
 "              \"syntax-local-make-delta-introducer: not supported anymore\""
 "(current-continuation-marks)))))))))"
 "(define-values"
-"(do-syntax-local-value15.1)"
-"(lambda(immediate?9_0 who11_0 id12_0 intdefs13_0 failure-thunk14_0)"
+"(do-syntax-local-value.1)"
+"(lambda(immediate?5_0 who7_0 id8_0 intdefs9_0 failure-thunk10_0)"
 "(begin"
-" 'do-syntax-local-value15"
-"(let-values(((who_0) who11_0))"
-"(let-values(((id_0) id12_0))"
-"(let-values(((intdefs_0) intdefs13_0))"
-"(let-values(((failure-thunk_0) failure-thunk14_0))"
-"(let-values(((immediate?_0) immediate?9_0))"
+" 'do-syntax-local-value"
+"(let-values(((who_0) who7_0))"
+"(let-values(((id_0) id8_0))"
+"(let-values(((intdefs_0) intdefs9_0))"
+"(let-values(((failure-thunk_0) failure-thunk10_0))"
+"(let-values(((immediate?_0) immediate?5_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -46154,24 +46127,24 @@ static const char *startup_source =
 "(let-values()(raise-argument-error who_0 intdefs-or-false?-string intdefs_0)))"
 "(values))))"
 "(let-values(((current-ctx_0)"
-"(let-values(((who87_0) who_0))(get-current-expand-context18.1 #f who87_0))))"
+"(let-values(((who69_0) who_0))(get-current-expand-context.1 #f who69_0))))"
 "(let-values(((ctx_0)"
 "(if intdefs_0"
 "(let-values(((v_0) current-ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((env88_0)"
+"(let-values(((env70_0)"
 "(add-intdef-bindings"
 "(expand-context-env current-ctx_0)"
 " intdefs_0))"
-"((inner89_0)(root-expand-context/outer-inner v_0)))"
+"((inner71_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner89_0"
+" inner71_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
 "(expand-context/outer-context the-struct_0)"
-" env88_0"
+" env70_0"
 "(expand-context/outer-scopes the-struct_0)"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
 "(expand-context/outer-binding-layer the-struct_0)"
@@ -46201,17 +46174,17 @@ static const char *startup_source =
 " 'loop"
 "(let-values(((b_0)"
 "(if immediate?_0"
-"(let-values(((id90_0) id_1)"
-"((phase91_0) phase_0)"
-"((temp92_0) #t))"
-"(resolve+shift28.1"
+"(let-values(((id72_0) id_1)"
+"((phase73_0) phase_0)"
+"((temp74_0) #t))"
+"(resolve+shift.1"
 " #f"
 " #f"
 " null"
-" temp92_0"
+" temp74_0"
 " #f"
-" id90_0"
-" phase91_0))"
+" id72_0"
+" phase73_0))"
 "(resolve+shift/extra-inspector"
 " id_1"
 " phase_0"
@@ -46240,16 +46213,16 @@ static const char *startup_source =
 "                                                                  (error who_0 \"unbound identifier: ~v\" id_1))))"
 "(let-values()"
 "(let-values(((v_0 primitive?_0 insp_0 protected?_0)"
-"(let-values(((b93_0) b_0)"
-"((ctx94_0) ctx_0)"
-"((id95_0) id_1)"
-"((temp96_0) #t))"
-"(lookup62.1"
+"(let-values(((b75_0) b_0)"
+"((ctx76_0) ctx_0)"
+"((id77_0) id_1)"
+"((temp78_0) #t))"
+"(lookup.1"
 " #f"
-" temp96_0"
-" b93_0"
-" ctx94_0"
-" id95_0))))"
+" temp78_0"
+" b75_0"
+" ctx76_0"
+" id77_0))))"
 "(if(let-values(((or-part_0)(variable? v_0)))"
 "(if or-part_0 or-part_0(core-form? v_0)))"
 "(let-values()"
@@ -46306,54 +46279,44 @@ static const char *startup_source =
 "(flip-introduction-scopes id_0 ctx_0))))))))))))))))))"
 "(define-values"
 "(1/syntax-local-value)"
-"(let-values(((syntax-local-value21_0)"
-"(lambda(id20_0 failure-thunk18_0 intdef19_0)"
+"(let-values(((syntax-local-value_0)"
+"(lambda(id14_0 failure-thunk12_0 intdef13_0)"
 "(begin"
-" 'syntax-local-value21"
-"(let-values(((id_0) id20_0))"
-"(let-values(((failure-thunk_0) failure-thunk18_0))"
-"(let-values(((intdef_0) intdef19_0))"
+" 'syntax-local-value"
+"(let-values(((id_0) id14_0))"
+"(let-values(((failure-thunk_0) failure-thunk12_0))"
+"(let-values(((intdef_0) intdef13_0))"
 "(let-values()"
-"(let-values(((temp97_0) 'syntax-local-value)"
-"((temp98_0) #f)"
-"((id99_0) id_0)"
-"((intdef100_0) intdef_0)"
-"((failure-thunk101_0) failure-thunk_0))"
-"(do-syntax-local-value15.1"
-" temp98_0"
-" temp97_0"
-" id99_0"
-" intdef100_0"
-" failure-thunk101_0))))))))))"
+"(let-values(((temp79_0) 'syntax-local-value)"
+"((temp80_0) #f)"
+"((id81_0) id_0)"
+"((intdef82_0) intdef_0)"
+"((failure-thunk83_0) failure-thunk_0))"
+"(do-syntax-local-value.1 temp80_0 temp79_0 id81_0 intdef82_0 failure-thunk83_0))))))))))"
 "(case-lambda"
-"((id_0)(begin 'syntax-local-value(syntax-local-value21_0 id_0 #f #f)))"
-"((id_0 failure-thunk_0 intdef19_0)(syntax-local-value21_0 id_0 failure-thunk_0 intdef19_0))"
-"((id_0 failure-thunk18_0)(syntax-local-value21_0 id_0 failure-thunk18_0 #f)))))"
+"((id_0)(begin 'syntax-local-value(syntax-local-value_0 id_0 #f #f)))"
+"((id_0 failure-thunk_0 intdef13_0)(syntax-local-value_0 id_0 failure-thunk_0 intdef13_0))"
+"((id_0 failure-thunk12_0)(syntax-local-value_0 id_0 failure-thunk12_0 #f)))))"
 "(define-values"
 "(1/syntax-local-value/immediate)"
-"(let-values(((syntax-local-value/immediate26_0)"
-"(lambda(id25_0 failure-thunk23_0 intdef24_0)"
+"(let-values(((syntax-local-value/immediate_0)"
+"(lambda(id17_0 failure-thunk15_0 intdef16_0)"
 "(begin"
-" 'syntax-local-value/immediate26"
-"(let-values(((id_0) id25_0))"
-"(let-values(((failure-thunk_0) failure-thunk23_0))"
-"(let-values(((intdef_0) intdef24_0))"
+" 'syntax-local-value/immediate"
+"(let-values(((id_0) id17_0))"
+"(let-values(((failure-thunk_0) failure-thunk15_0))"
+"(let-values(((intdef_0) intdef16_0))"
 "(let-values()"
-"(let-values(((temp102_0) 'syntax-local-value/immediate)"
-"((temp103_0) #t)"
-"((id104_0) id_0)"
-"((intdef105_0) intdef_0)"
-"((failure-thunk106_0) failure-thunk_0))"
-"(do-syntax-local-value15.1"
-" temp103_0"
-" temp102_0"
-" id104_0"
-" intdef105_0"
-" failure-thunk106_0))))))))))"
+"(let-values(((temp84_0) 'syntax-local-value/immediate)"
+"((temp85_0) #t)"
+"((id86_0) id_0)"
+"((intdef87_0) intdef_0)"
+"((failure-thunk88_0) failure-thunk_0))"
+"(do-syntax-local-value.1 temp85_0 temp84_0 id86_0 intdef87_0 failure-thunk88_0))))))))))"
 "(case-lambda"
-"((id_0)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_0 #f #f)))"
-"((id_0 failure-thunk_0 intdef24_0)(syntax-local-value/immediate26_0 id_0 failure-thunk_0 intdef24_0))"
-"((id_0 failure-thunk23_0)(syntax-local-value/immediate26_0 id_0 failure-thunk23_0 #f)))))"
+"((id_0)(begin 'syntax-local-value/immediate(syntax-local-value/immediate_0 id_0 #f #f)))"
+"((id_0 failure-thunk_0 intdef16_0)(syntax-local-value/immediate_0 id_0 failure-thunk_0 intdef16_0))"
+"((id_0 failure-thunk15_0)(syntax-local-value/immediate_0 id_0 failure-thunk15_0 #f)))))"
 "(define-values"
 "(do-lift-values-expression)"
 "(lambda(who_0 n_0 s_0)"
@@ -46368,7 +46331,7 @@ static const char *startup_source =
 "(void)"
 "                          (let-values () (raise-argument-error who_0 \"exact-nonnegative-integer?\" n_0)))"
 "(values))))"
-"(let-values(((ctx_0)(let-values(((who107_0) who_0))(get-current-expand-context18.1 #f who107_0))))"
+"(let-values(((ctx_0)(let-values(((who89_0) who_0))(get-current-expand-context.1 #f who89_0))))"
 "(let-values(((lifts_0)(expand-context-lifts ctx_0)))"
 "(let-values((()"
 "(begin"
@@ -46455,8 +46418,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((ctx_0)"
-"(let-values(((who111_0) 'syntax-local-lift-context))"
-"(get-current-expand-context18.1 #f who111_0))))"
+"(let-values(((who93_0) 'syntax-local-lift-context))"
+"(get-current-expand-context.1 #f who93_0))))"
 "(root-expand-context-lift-key ctx_0)))))))"
 "(define-values"
 "(1/syntax-local-lift-module)"
@@ -46472,8 +46435,8 @@ static const char *startup_source =
 "                            (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((who113_0) 'syntax-local-lift-module))"
-"(get-current-expand-context18.1 #f who113_0))))"
+"(let-values(((who95_0) 'syntax-local-lift-module))"
+"(get-current-expand-context.1 #f who95_0))))"
 "(let-values(((phase_0)(expand-context-phase ctx_0)))"
 "(begin"
 "(let-values(((tmp_0)(core-form-sym s_0 phase_0)))"
@@ -46497,40 +46460,40 @@ static const char *startup_source =
 "(let-values()(let-values()(call-expand-observe obs_0 'lift-statement s_0)))"
 "(void))))))))))))"
 "(define-values"
-"(do-local-lift-to-module48.1)"
-"(lambda(add-lifted!32_0"
-" get-lift-ctx31_0"
-" get-wrt-phase33_0"
-" intro?29_0"
-" more-checks30_0"
-" no-target-msg28_0"
-" post-wrap36_0"
-" pre-wrap34_0"
-" shift-wrap35_0"
-" who46_0"
-" s47_0)"
+"(do-local-lift-to-module.1)"
+"(lambda(add-lifted!22_0"
+" get-lift-ctx21_0"
+" get-wrt-phase23_0"
+" intro?19_0"
+" more-checks20_0"
+" no-target-msg18_0"
+" post-wrap26_0"
+" pre-wrap24_0"
+" shift-wrap25_0"
+" who36_0"
+" s37_0)"
 "(begin"
-" 'do-local-lift-to-module48"
-"(let-values(((who_0) who46_0))"
-"(let-values(((s_0) s47_0))"
-"(let-values(((no-target-msg_0) no-target-msg28_0))"
-"(let-values(((intro?_0) intro?29_0))"
-"(let-values(((more-checks_0)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))"
-"(let-values(((get-lift-ctx_0) get-lift-ctx31_0))"
-"(let-values(((add-lifted!_0) add-lifted!32_0))"
-"(let-values(((get-wrt-phase_0) get-wrt-phase33_0))"
+" 'do-local-lift-to-module"
+"(let-values(((who_0) who36_0))"
+"(let-values(((s_0) s37_0))"
+"(let-values(((no-target-msg_0) no-target-msg18_0))"
+"(let-values(((intro?_0) intro?19_0))"
+"(let-values(((more-checks_0)(if(eq? more-checks20_0 unsafe-undefined) void more-checks20_0)))"
+"(let-values(((get-lift-ctx_0) get-lift-ctx21_0))"
+"(let-values(((add-lifted!_0) add-lifted!22_0))"
+"(let-values(((get-wrt-phase_0) get-wrt-phase23_0))"
 "(let-values(((pre-wrap_0)"
-"(if(eq? pre-wrap34_0 unsafe-undefined)"
+"(if(eq? pre-wrap24_0 unsafe-undefined)"
 "(lambda(s_1 phase_0 lift-ctx_0)(begin 'pre-wrap s_1))"
-" pre-wrap34_0)))"
+" pre-wrap24_0)))"
 "(let-values(((shift-wrap_0)"
-"(if(eq? shift-wrap35_0 unsafe-undefined)"
+"(if(eq? shift-wrap25_0 unsafe-undefined)"
 "(lambda(s_1 phase_0 lift-ctx_0)(begin 'shift-wrap s_1))"
-" shift-wrap35_0)))"
+" shift-wrap25_0)))"
 "(let-values(((post-wrap_0)"
-"(if(eq? post-wrap36_0 unsafe-undefined)"
+"(if(eq? post-wrap26_0 unsafe-undefined)"
 "(lambda(s_1 phase_0 lift-ctx_0)(begin 'post-wrap s_1))"
-" post-wrap36_0)))"
+" post-wrap26_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -46540,8 +46503,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()(begin(more-checks_0)(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((who114_0) who_0))"
-"(get-current-expand-context18.1 #f who114_0))))"
+"(let-values(((who96_0) who_0))"
+"(get-current-expand-context.1 #f who96_0))))"
 "(let-values(((lift-ctx_0)(get-lift-ctx_0 ctx_0)))"
 "(let-values((()"
 "(begin"
@@ -46610,36 +46573,36 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((sc_0)(new-scope 'lifted-require)))"
 "(let-values(((ctx_0 added-s_0)"
-"(let-values(((who116_0) 'syntax-local-lift-require)"
-"((temp117_0)(datum->syntax$1 #f s_0))"
-"                                       ((temp118_0) \"could not find target context\")"
-"((temp119_0) #f)"
-"((temp120_0)"
+"(let-values(((who98_0) 'syntax-local-lift-require)"
+"((temp99_0)(datum->syntax$1 #f s_0))"
+"                                       ((temp100_0) \"could not find target context\")"
+"((temp101_0) #f)"
+"((temp102_0)"
 "(lambda()"
 "(if(syntax?$1 use-s_0)"
 "(void)"
 "(let-values()"
 "                                              (raise-argument-error 'syntax-local-lift-require \"syntax?\" use-s_0)))))"
-"((expand-context-require-lifts121_0) expand-context-require-lifts)"
-"((require-lift-context-wrt-phase122_0) require-lift-context-wrt-phase)"
-"((add-lifted-require!123_0) add-lifted-require!)"
-"((temp124_0)"
+"((expand-context-require-lifts103_0) expand-context-require-lifts)"
+"((require-lift-context-wrt-phase104_0) require-lift-context-wrt-phase)"
+"((add-lifted-require!105_0) add-lifted-require!)"
+"((temp106_0)"
 "(lambda(s_1 phase_0 require-lift-ctx_0)(require-spec-shift-for-syntax s_1)))"
-"((temp125_0)"
+"((temp107_0)"
 "(lambda(s_1 phase_0 require-lift-ctx_0)"
 "(wrap-form '#%require(add-scope s_1 sc_0) phase_0))))"
-"(do-local-lift-to-module48.1"
-" add-lifted-require!123_0"
-" expand-context-require-lifts121_0"
-" require-lift-context-wrt-phase122_0"
-" temp119_0"
-" temp120_0"
-" temp118_0"
-" temp125_0"
+"(do-local-lift-to-module.1"
+" add-lifted-require!105_0"
+" expand-context-require-lifts103_0"
+" require-lift-context-wrt-phase104_0"
+" temp101_0"
+" temp102_0"
+" temp100_0"
+" temp107_0"
 " unsafe-undefined"
-" temp124_0"
-" who116_0"
-" temp117_0))))"
+" temp106_0"
+" who98_0"
+" temp99_0))))"
 "(let-values((()"
 "(begin"
 "(namespace-visit-available-modules!"
@@ -46662,28 +46625,28 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((ctx_0 result-s_0)"
-"(let-values(((who127_0) 'syntax-local-lift-provide)"
-"((s128_0) s_0)"
-"                                     ((temp129_0) \"not expanding in a module run-time body\")"
-"((expand-context-to-module-lifts130_0) expand-context-to-module-lifts)"
-"((to-module-lift-context-wrt-phase131_0) to-module-lift-context-wrt-phase)"
-"((add-lifted-to-module-provide!132_0) add-lifted-to-module-provide!)"
-"((temp133_0)"
+"(let-values(((who109_0) 'syntax-local-lift-provide)"
+"((s110_0) s_0)"
+"                                     ((temp111_0) \"not expanding in a module run-time body\")"
+"((expand-context-to-module-lifts112_0) expand-context-to-module-lifts)"
+"((to-module-lift-context-wrt-phase113_0) to-module-lift-context-wrt-phase)"
+"((add-lifted-to-module-provide!114_0) add-lifted-to-module-provide!)"
+"((temp115_0)"
 "(lambda(s_1 phase_0 to-module-lift-ctx_0)(wrap-form 'for-syntax s_1 #f)))"
-"((temp134_0)"
+"((temp116_0)"
 "(lambda(s_1 phase_0 to-module-lift-ctx_0)(wrap-form '#%provide s_1 phase_0))))"
-"(do-local-lift-to-module48.1"
-" add-lifted-to-module-provide!132_0"
-" expand-context-to-module-lifts130_0"
-" to-module-lift-context-wrt-phase131_0"
+"(do-local-lift-to-module.1"
+" add-lifted-to-module-provide!114_0"
+" expand-context-to-module-lifts112_0"
+" to-module-lift-context-wrt-phase113_0"
 " #t"
 " unsafe-undefined"
-" temp129_0"
-" temp134_0"
+" temp111_0"
+" temp116_0"
 " unsafe-undefined"
-" temp133_0"
-" who127_0"
-" s128_0))))"
+" temp115_0"
+" who109_0"
+" s110_0))))"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0"
 "(let-values()(let-values()(call-expand-observe obs_0 'lift-provide result-s_0)))"
@@ -46696,33 +46659,33 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((ctx_0 also-s_0)"
-"(let-values(((who136_0) 'syntax-local-lift-module-end-declaration)"
-"((s137_0) s_0)"
-"((temp138_0)"
+"(let-values(((who118_0) 'syntax-local-lift-module-end-declaration)"
+"((s119_0) s_0)"
+"((temp120_0)"
 "                                      \"not currently transforming an expression within a module declaration\")"
-"((expand-context-to-module-lifts139_0) expand-context-to-module-lifts)"
-"((temp140_0)(lambda(lift-ctx_0) 0))"
-"((add-lifted-to-module-end!141_0) add-lifted-to-module-end!)"
-"((temp142_0)"
+"((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)"
+"((temp122_0)(lambda(lift-ctx_0) 0))"
+"((add-lifted-to-module-end!123_0) add-lifted-to-module-end!)"
+"((temp124_0)"
 "(lambda(orig-s_0 phase_0 to-module-lift-ctx_0)"
 "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_0)"
 "(wrap-form '#%expression orig-s_0 phase_0)"
 " orig-s_0)))"
-"((temp143_0)"
+"((temp125_0)"
 "(lambda(s_1 phase_0 to-module-lift-ctx_0)"
 "(wrap-form 'begin-for-syntax s_1 phase_0))))"
-"(do-local-lift-to-module48.1"
-" add-lifted-to-module-end!141_0"
-" expand-context-to-module-lifts139_0"
-" temp140_0"
+"(do-local-lift-to-module.1"
+" add-lifted-to-module-end!123_0"
+" expand-context-to-module-lifts121_0"
+" temp122_0"
 " #t"
 " unsafe-undefined"
-" temp138_0"
+" temp120_0"
 " unsafe-undefined"
-" temp142_0"
-" temp143_0"
-" who136_0"
-" s137_0))))"
+" temp124_0"
+" temp125_0"
+" who118_0"
+" s119_0))))"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'lift-statement s_0)))(void)))))))))"
 "(define-values"
@@ -46749,8 +46712,8 @@ static const char *startup_source =
 "                               \"not currently transforming module provides\")))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp145_0) 'syntax-local-module-defined-identifiers))"
-"(get-current-expand-context18.1 #f temp145_0))))"
+"(let-values(((temp127_0) 'syntax-local-module-defined-identifiers))"
+"(get-current-expand-context.1 #f temp127_0))))"
 "(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_0))))))))))"
 "(define-values"
 "(1/syntax-local-module-required-identifiers)"
@@ -46791,8 +46754,8 @@ static const char *startup_source =
 "                                   \"not currently transforming module provides\")))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp147_0) 'syntax-local-module-required-identifiers))"
-"(get-current-expand-context18.1 #f temp147_0))))"
+"(let-values(((temp129_0) 'syntax-local-module-required-identifiers))"
+"(get-current-expand-context.1 #f temp129_0))))"
 "(let-values(((requires+provides_0)(expand-context-requires+provides ctx_0)))"
 "(let-values(((mpi_0)(if mod-path_0(module-path->mpi/context mod-path_0 ctx_0) #f)))"
 "(let-values(((requireds_0)"
@@ -46883,8 +46846,8 @@ static const char *startup_source =
 " mod-path_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((temp149_0) 'syntax-local-module-exports))"
-"(get-current-expand-context18.1 #f temp149_0))))"
+"(let-values(((temp131_0) 'syntax-local-module-exports))"
+"(get-current-expand-context.1 #f temp131_0))))"
 "(let-values(((ns_0)(expand-context-namespace ctx_0)))"
 "(let-values(((mod-name_0)"
 "(1/module-path-index-resolve"
@@ -46977,8 +46940,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((ctx_0)"
-"(let-values(((who151_0) 'syntax-local-submodules))"
-"(get-current-expand-context18.1 #f who151_0))))"
+"(let-values(((who133_0) 'syntax-local-submodules))"
+"(get-current-expand-context.1 #f who133_0))))"
 "(let-values(((submods_0)(expand-context-declared-submodule-names ctx_0)))"
 "(reverse$1"
 "(let-values(((ht_0) submods_0))"
@@ -47012,11 +46975,11 @@ static const char *startup_source =
 "(hash-iterate-first ht_0))))))))))))"
 "(define-values"
 "(1/syntax-local-get-shadower)"
-"(let-values(((syntax-local-get-shadower53_0)"
-"(lambda(id52_0 only-generated?51_0)"
+"(let-values(((syntax-local-get-shadower_0)"
+"(lambda(id40_0 only-generated?39_0)"
 "(begin"
-" 'syntax-local-get-shadower53"
-"(let-values(((id_0) id52_0))"
+" 'syntax-local-get-shadower"
+"(let-values(((id_0) id40_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47029,13 +46992,13 @@ static const char *startup_source =
 "                                                  (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((who153_0) 'syntax-local-get-shadower))"
-"(get-current-expand-context18.1 #f who153_0))))"
+"(let-values(((who135_0) 'syntax-local-get-shadower))"
+"(get-current-expand-context.1 #f who135_0))))"
 "(let-values(((new-id_0)(add-scopes id_0(expand-context-scopes ctx_0))))"
 "(if(syntax-clean? id_0) new-id_0(syntax-taint$1 new-id_0))))))))))))))"
 "(case-lambda"
-"((id_0)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_0 #f)))"
-"((id_0 only-generated?51_0)(syntax-local-get-shadower53_0 id_0 only-generated?51_0)))))"
+"((id_0)(begin 'syntax-local-get-shadower(syntax-local-get-shadower_0 id_0 #f)))"
+"((id_0 only-generated?39_0)(syntax-local-get-shadower_0 id_0 only-generated?39_0)))))"
 "(define-values"
 "(1/syntax-source)"
 "(lambda(s_0)"
@@ -47173,10 +47136,10 @@ static const char *startup_source =
 "(define-values(maybe-syntax->datum)(lambda(s_0)(begin(if(syntax?$1 s_0)(syntax->datum$1 s_0) s_0))))"
 "(define-values"
 "(1/datum->syntax)"
-"(let-values(((datum->syntax6_0)"
+"(let-values(((datum->syntax_0)"
 "(lambda(stx-c4_0 s5_0 stx-l1_0 stx-p2_0 ignored3_0)"
 "(begin"
-" 'datum->syntax6"
+" 'datum->syntax"
 "(let-values(((stx-c_0) stx-c4_0))"
 "(let-values(((s_0) s5_0))"
 "(let-values(((stx-l_0) stx-l1_0))"
@@ -47218,45 +47181,43 @@ static const char *startup_source =
 "                                        (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_0)))"
 "(datum->syntax$1 stx-c_0 s_0(to-srcloc-stx stx-l_0) stx-p_0))))))))))))))"
 "(case-lambda"
-"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax6_0 stx-c_0 s_0 #f #f #f)))"
-"((stx-c_0 s_0 stx-l_0 stx-p_0 ignored3_0)(datum->syntax6_0 stx-c_0 s_0 stx-l_0 stx-p_0 ignored3_0))"
-"((stx-c_0 s_0 stx-l_0 stx-p2_0)(datum->syntax6_0 stx-c_0 s_0 stx-l_0 stx-p2_0 #f))"
-"((stx-c_0 s_0 stx-l1_0)(datum->syntax6_0 stx-c_0 s_0 stx-l1_0 #f #f)))))"
+"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax_0 stx-c_0 s_0 #f #f #f)))"
+"((stx-c_0 s_0 stx-l_0 stx-p_0 ignored3_0)(datum->syntax_0 stx-c_0 s_0 stx-l_0 stx-p_0 ignored3_0))"
+"((stx-c_0 s_0 stx-l_0 stx-p2_0)(datum->syntax_0 stx-c_0 s_0 stx-l_0 stx-p2_0 #f))"
+"((stx-c_0 s_0 stx-l1_0)(datum->syntax_0 stx-c_0 s_0 stx-l1_0 #f #f)))))"
 "(define-values"
 "(1/syntax-binding-set)"
 "(lambda()(begin 'syntax-binding-set(let-values()(let-values()(syntax-binding-set1.1 null))))))"
 "(define-values"
 "(1/syntax-binding-set-extend)"
-"(let-values(((syntax-binding-set-extend19_0)"
-"(lambda(bs15_0"
-" as-sym16_0"
-" as-phase17_0"
-" mpi18_0"
-" sym8_0"
-" phase9_0"
-" nominal-mpi10_0"
-" nominal-phase11_0"
-" nominal-sym12_0"
-" nominal-require-phase13_0"
-" insp14_0)"
+"(let-values(((syntax-binding-set-extend_0)"
+"(lambda(bs13_0"
+" as-sym14_0"
+" as-phase15_0"
+" mpi16_0"
+" sym6_0"
+" phase7_0"
+" nominal-mpi8_0"
+" nominal-phase9_0"
+" nominal-sym10_0"
+" nominal-require-phase11_0"
+" insp12_0)"
 "(begin"
-" 'syntax-binding-set-extend19"
-"(let-values(((bs_0) bs15_0))"
-"(let-values(((as-sym_0) as-sym16_0))"
-"(let-values(((as-phase_0) as-phase17_0))"
-"(let-values(((mpi_0) mpi18_0))"
-"(let-values(((sym_0)(if(eq? sym8_0 unsafe-undefined) as-sym_0 sym8_0)))"
-"(let-values(((phase_0)(if(eq? phase9_0 unsafe-undefined) as-phase_0 phase9_0)))"
+" 'syntax-binding-set-extend"
+"(let-values(((bs_0) bs13_0))"
+"(let-values(((as-sym_0) as-sym14_0))"
+"(let-values(((as-phase_0) as-phase15_0))"
+"(let-values(((mpi_0) mpi16_0))"
+"(let-values(((sym_0)(if(eq? sym6_0 unsafe-undefined) as-sym_0 sym6_0)))"
+"(let-values(((phase_0)(if(eq? phase7_0 unsafe-undefined) as-phase_0 phase7_0)))"
 "(let-values(((nominal-mpi_0)"
-"(if(eq? nominal-mpi10_0 unsafe-undefined) mpi_0 nominal-mpi10_0)))"
+"(if(eq? nominal-mpi8_0 unsafe-undefined) mpi_0 nominal-mpi8_0)))"
 "(let-values(((nominal-phase_0)"
-"(if(eq? nominal-phase11_0 unsafe-undefined)"
-" phase_0"
-" nominal-phase11_0)))"
+"(if(eq? nominal-phase9_0 unsafe-undefined) phase_0 nominal-phase9_0)))"
 "(let-values(((nominal-sym_0)"
-"(if(eq? nominal-sym12_0 unsafe-undefined) sym_0 nominal-sym12_0)))"
-"(let-values(((nominal-require-phase_0) nominal-require-phase13_0))"
-"(let-values(((insp_0) insp14_0))"
+"(if(eq? nominal-sym10_0 unsafe-undefined) sym_0 nominal-sym10_0)))"
+"(let-values(((nominal-require-phase_0) nominal-require-phase11_0))"
+"(let-values(((insp_0) insp12_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47357,7 +47318,7 @@ static const char *startup_source =
 "((bs_0 as-sym_0 as-phase_0 mpi_0)"
 "(begin"
 " 'syntax-binding-set-extend"
-"(syntax-binding-set-extend19_0"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
@@ -47379,8 +47340,8 @@ static const char *startup_source =
 " nominal-phase_0"
 " nominal-sym_0"
 " nominal-require-phase_0"
-" insp14_0)"
-"(syntax-binding-set-extend19_0"
+" insp12_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
@@ -47391,7 +47352,7 @@ static const char *startup_source =
 " nominal-phase_0"
 " nominal-sym_0"
 " nominal-require-phase_0"
-" insp14_0))"
+" insp12_0))"
 "((bs_0"
 " as-sym_0"
 " as-phase_0"
@@ -47401,8 +47362,8 @@ static const char *startup_source =
 " nominal-mpi_0"
 " nominal-phase_0"
 " nominal-sym_0"
-" nominal-require-phase13_0)"
-"(syntax-binding-set-extend19_0"
+" nominal-require-phase11_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
@@ -47412,10 +47373,10 @@ static const char *startup_source =
 " nominal-mpi_0"
 " nominal-phase_0"
 " nominal-sym_0"
-" nominal-require-phase13_0"
+" nominal-require-phase11_0"
 " #f))"
-"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase_0 nominal-mpi_0 nominal-phase_0 nominal-sym12_0)"
-"(syntax-binding-set-extend19_0"
+"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase_0 nominal-mpi_0 nominal-phase_0 nominal-sym10_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
@@ -47424,11 +47385,11 @@ static const char *startup_source =
 " phase_0"
 " nominal-mpi_0"
 " nominal-phase_0"
-" nominal-sym12_0"
+" nominal-sym10_0"
 " 0"
 " #f))"
-"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase_0 nominal-mpi_0 nominal-phase11_0)"
-"(syntax-binding-set-extend19_0"
+"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase_0 nominal-mpi_0 nominal-phase9_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
@@ -47436,43 +47397,43 @@ static const char *startup_source =
 " sym_0"
 " phase_0"
 " nominal-mpi_0"
-" nominal-phase11_0"
+" nominal-phase9_0"
 " unsafe-undefined"
 " 0"
 " #f))"
-"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase_0 nominal-mpi10_0)"
-"(syntax-binding-set-extend19_0"
+"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase_0 nominal-mpi8_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
 " mpi_0"
 " sym_0"
 " phase_0"
-" nominal-mpi10_0"
+" nominal-mpi8_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " 0"
 " #f))"
-"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase9_0)"
-"(syntax-binding-set-extend19_0"
+"((bs_0 as-sym_0 as-phase_0 mpi_0 sym_0 phase7_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
 " mpi_0"
 " sym_0"
-" phase9_0"
+" phase7_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
 " 0"
 " #f))"
-"((bs_0 as-sym_0 as-phase_0 mpi_0 sym8_0)"
-"(syntax-binding-set-extend19_0"
+"((bs_0 as-sym_0 as-phase_0 mpi_0 sym6_0)"
+"(syntax-binding-set-extend_0"
 " bs_0"
 " as-sym_0"
 " as-phase_0"
 " mpi_0"
-" sym8_0"
+" sym6_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -47513,14 +47474,14 @@ static const char *startup_source =
 "(if(syntax-property$1 s_0 original-property-sym)(not(syntax-any-macro-scopes? s_0)) #f)))))))"
 "(define-values"
 "(1/bound-identifier=?)"
-"(let-values(((bound-identifier=?24_0)"
-"(lambda(a22_0 b23_0 phase21_0)"
+"(let-values(((bound-identifier=?_0)"
+"(lambda(a18_0 b19_0 phase17_0)"
 "(begin"
-" 'bound-identifier=?24"
-"(let-values(((a_0) a22_0))"
-"(let-values(((b_0) b23_0))"
+" 'bound-identifier=?"
+"(let-values(((a_0) a18_0))"
+"(let-values(((b_0) b19_0))"
 "(let-values(((phase_0)"
-"(if(eq? phase21_0 unsafe-undefined)(1/syntax-local-phase-level) phase21_0)))"
+"(if(eq? phase17_0 unsafe-undefined)(1/syntax-local-phase-level) phase17_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47536,19 +47497,19 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_0)))"
 "(bound-identifier=?$1 a_0 b_0 phase_0))))))))))))"
 "(case-lambda"
-"((a_0 b_0)(begin 'bound-identifier=?(bound-identifier=?24_0 a_0 b_0 unsafe-undefined)))"
-"((a_0 b_0 phase21_0)(bound-identifier=?24_0 a_0 b_0 phase21_0)))))"
+"((a_0 b_0)(begin 'bound-identifier=?(bound-identifier=?_0 a_0 b_0 unsafe-undefined)))"
+"((a_0 b_0 phase17_0)(bound-identifier=?_0 a_0 b_0 phase17_0)))))"
 "(define-values"
 "(1/free-identifier=?)"
-"(let-values(((free-identifier=?30_0)"
-"(lambda(a28_0 b29_0 a-phase26_0 b-phase27_0)"
+"(let-values(((free-identifier=?_0)"
+"(lambda(a22_0 b23_0 a-phase20_0 b-phase21_0)"
 "(begin"
-" 'free-identifier=?30"
-"(let-values(((a_0) a28_0))"
-"(let-values(((b_0) b29_0))"
+" 'free-identifier=?"
+"(let-values(((a_0) a22_0))"
+"(let-values(((b_0) b23_0))"
 "(let-values(((a-phase_0)"
-"(if(eq? a-phase26_0 unsafe-undefined)(1/syntax-local-phase-level) a-phase26_0)))"
-"(let-values(((b-phase_0)(if(eq? b-phase27_0 unsafe-undefined) a-phase_0 b-phase27_0)))"
+"(if(eq? a-phase20_0 unsafe-undefined)(1/syntax-local-phase-level) a-phase20_0)))"
+"(let-values(((b-phase_0)(if(eq? b-phase21_0 unsafe-undefined) a-phase_0 b-phase21_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47567,9 +47528,9 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_0)))"
 "(free-identifier=?$1 a_0 b_0 a-phase_0 b-phase_0)))))))))))))"
 "(case-lambda"
-"((a_0 b_0)(begin 'free-identifier=?(free-identifier=?30_0 a_0 b_0 unsafe-undefined unsafe-undefined)))"
-"((a_0 b_0 a-phase_0 b-phase27_0)(free-identifier=?30_0 a_0 b_0 a-phase_0 b-phase27_0))"
-"((a_0 b_0 a-phase26_0)(free-identifier=?30_0 a_0 b_0 a-phase26_0 unsafe-undefined)))))"
+"((a_0 b_0)(begin 'free-identifier=?(free-identifier=?_0 a_0 b_0 unsafe-undefined unsafe-undefined)))"
+"((a_0 b_0 a-phase_0 b-phase21_0)(free-identifier=?_0 a_0 b_0 a-phase_0 b-phase21_0))"
+"((a_0 b_0 a-phase20_0)(free-identifier=?_0 a_0 b_0 a-phase20_0 unsafe-undefined)))))"
 "(define-values"
 "(1/free-transformer-identifier=?)"
 "(lambda(a_0 b_0)"
@@ -47629,14 +47590,14 @@ static const char *startup_source =
 "(free-identifier=?$1 a_0 b_0 #f #f)))))))"
 "(define-values"
 "(1/identifier-binding)"
-"(let-values(((identifier-binding35_0)"
-"(lambda(id34_0 phase32_0 top-level-symbol?33_0)"
+"(let-values(((identifier-binding_0)"
+"(lambda(id26_0 phase24_0 top-level-symbol?25_0)"
 "(begin"
-" 'identifier-binding35"
-"(let-values(((id_0) id34_0))"
+" 'identifier-binding"
+"(let-values(((id_0) id26_0))"
 "(let-values(((phase_0)"
-"(if(eq? phase32_0 unsafe-undefined)(1/syntax-local-phase-level) phase32_0)))"
-"(let-values(((top-level-symbol?_0) top-level-symbol?33_0))"
+"(if(eq? phase24_0 unsafe-undefined)(1/syntax-local-phase-level) phase24_0)))"
+"(let-values(((top-level-symbol?_0) top-level-symbol?25_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47649,18 +47610,18 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'identifier-binding phase?-string phase_0)))"
 "(identifier-binding$1 id_0 phase_0 top-level-symbol?_0))))))))))))"
 "(case-lambda"
-"((id_0)(begin 'identifier-binding(identifier-binding35_0 id_0 unsafe-undefined #f)))"
-"((id_0 phase_0 top-level-symbol?33_0)(identifier-binding35_0 id_0 phase_0 top-level-symbol?33_0))"
-"((id_0 phase32_0)(identifier-binding35_0 id_0 phase32_0 #f)))))"
+"((id_0)(begin 'identifier-binding(identifier-binding_0 id_0 unsafe-undefined #f)))"
+"((id_0 phase_0 top-level-symbol?25_0)(identifier-binding_0 id_0 phase_0 top-level-symbol?25_0))"
+"((id_0 phase24_0)(identifier-binding_0 id_0 phase24_0 #f)))))"
 "(define-values"
 "(1/identifier-transformer-binding)"
-"(let-values(((identifier-transformer-binding39_0)"
-"(lambda(id38_0 phase37_0)"
+"(let-values(((identifier-transformer-binding_0)"
+"(lambda(id28_0 phase27_0)"
 "(begin"
-" 'identifier-transformer-binding39"
-"(let-values(((id_0) id38_0))"
+" 'identifier-transformer-binding"
+"(let-values(((id_0) id28_0))"
 "(let-values(((phase_0)"
-"(if(eq? phase37_0 unsafe-undefined)(1/syntax-local-phase-level) phase37_0)))"
+"(if(eq? phase27_0 unsafe-undefined)(1/syntax-local-phase-level) phase27_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47671,8 +47632,8 @@ static const char *startup_source =
 "                                    (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_0)))"
 "(identifier-binding$1 id_0(if phase_0(add1 phase_0) #f))))))))))))"
 "(case-lambda"
-"((id_0)(begin 'identifier-transformer-binding(identifier-transformer-binding39_0 id_0 unsafe-undefined)))"
-"((id_0 phase37_0)(identifier-transformer-binding39_0 id_0 phase37_0)))))"
+"((id_0)(begin 'identifier-transformer-binding(identifier-transformer-binding_0 id_0 unsafe-undefined)))"
+"((id_0 phase27_0)(identifier-transformer-binding_0 id_0 phase27_0)))))"
 "(define-values"
 "(1/identifier-template-binding)"
 "(lambda(id_0)"
@@ -47699,13 +47660,13 @@ static const char *startup_source =
 "(identifier-binding$1 id_0 #f)))))))"
 "(define-values"
 "(1/identifier-binding-symbol)"
-"(let-values(((identifier-binding-symbol43_0)"
-"(lambda(id42_0 phase41_0)"
+"(let-values(((identifier-binding-symbol_0)"
+"(lambda(id30_0 phase29_0)"
 "(begin"
-" 'identifier-binding-symbol43"
-"(let-values(((id_0) id42_0))"
+" 'identifier-binding-symbol"
+"(let-values(((id_0) id30_0))"
 "(let-values(((phase_0)"
-"(if(eq? phase41_0 unsafe-undefined)(1/syntax-local-phase-level) phase41_0)))"
+"(if(eq? phase29_0 unsafe-undefined)(1/syntax-local-phase-level) phase29_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47719,16 +47680,16 @@ static const char *startup_source =
 "(raise-argument-error 'identifier-binding-symbol phase?-string phase_0)))"
 "(identifier-binding-symbol$1 id_0 phase_0)))))))))))"
 "(case-lambda"
-"((id_0)(begin 'identifier-binding-symbol(identifier-binding-symbol43_0 id_0 unsafe-undefined)))"
-"((id_0 phase41_0)(identifier-binding-symbol43_0 id_0 phase41_0)))))"
+"((id_0)(begin 'identifier-binding-symbol(identifier-binding-symbol_0 id_0 unsafe-undefined)))"
+"((id_0 phase29_0)(identifier-binding-symbol_0 id_0 phase29_0)))))"
 "(define-values"
 "(1/identifier-prune-lexical-context)"
-"(let-values(((identifier-prune-lexical-context47_0)"
-"(lambda(id46_0 syms45_0)"
+"(let-values(((identifier-prune-lexical-context_0)"
+"(lambda(id32_0 syms31_0)"
 "(begin"
-" 'identifier-prune-lexical-context47"
-"(let-values(((id_0) id46_0))"
-"(let-values(((syms_0) syms45_0))"
+" 'identifier-prune-lexical-context"
+"(let-values(((id_0) id32_0))"
+"(let-values(((syms_0) syms31_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47743,18 +47704,18 @@ static const char *startup_source =
 "                                    (raise-argument-error 'identifier-prune-lexical-context \"(listof symbol?)\" syms_0)))"
 " id_0))))))))))"
 "(case-lambda"
-"((id_0)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context47_0 id_0 null)))"
-"((id_0 syms45_0)(identifier-prune-lexical-context47_0 id_0 syms45_0)))))"
+"((id_0)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context_0 id_0 null)))"
+"((id_0 syms31_0)(identifier-prune-lexical-context_0 id_0 syms31_0)))))"
 "(define-values"
 "(1/syntax-debug-info)"
-"(let-values(((syntax-debug-info52_0)"
-"(lambda(s51_0 phase49_0 all-bindings?50_0)"
+"(let-values(((syntax-debug-info_0)"
+"(lambda(s35_0 phase33_0 all-bindings?34_0)"
 "(begin"
-" 'syntax-debug-info52"
-"(let-values(((s_0) s51_0))"
+" 'syntax-debug-info"
+"(let-values(((s_0) s35_0))"
 "(let-values(((phase_0)"
-"(if(eq? phase49_0 unsafe-undefined)(1/syntax-local-phase-level) phase49_0)))"
-"(let-values(((all-bindings?_0) all-bindings?50_0))"
+"(if(eq? phase33_0 unsafe-undefined)(1/syntax-local-phase-level) phase33_0)))"
+"(let-values(((all-bindings?_0) all-bindings?34_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47767,9 +47728,9 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_0)))"
 "(syntax-debug-info$1 s_0 phase_0 all-bindings?_0))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'syntax-debug-info(syntax-debug-info52_0 s_0 unsafe-undefined #f)))"
-"((s_0 phase_0 all-bindings?50_0)(syntax-debug-info52_0 s_0 phase_0 all-bindings?50_0))"
-"((s_0 phase49_0)(syntax-debug-info52_0 s_0 phase49_0 #f)))))"
+"((s_0)(begin 'syntax-debug-info(syntax-debug-info_0 s_0 unsafe-undefined #f)))"
+"((s_0 phase_0 all-bindings?34_0)(syntax-debug-info_0 s_0 phase_0 all-bindings?34_0))"
+"((s_0 phase33_0)(syntax-debug-info_0 s_0 phase33_0 #f)))))"
 "(define-values"
 "(1/syntax-shift-phase-level)"
 "(lambda(s_0 phase_0)"
@@ -47810,7 +47771,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((s_0)(syntax-track-origin$1 new-stx_0 old-stx_0 id_0)))"
 "(let-values(((ctx_0)"
-"(let-values(((temp76_0) #t))(get-current-expand-context18.1 temp76_0 'unexpected))))"
+"(let-values(((temp58_0) #t))(get-current-expand-context.1 temp58_0 'unexpected))))"
 "(begin"
 "(if ctx_0"
 "(let-values()"
@@ -47822,10 +47783,10 @@ static const char *startup_source =
 " s_0)))))))))))"
 "(define-values"
 "(1/namespace-attach-module)"
-"(let-values(((namespace-attach-module4_0)"
+"(let-values(((namespace-attach-module_0)"
 "(lambda(src-namespace2_0 mod-path3_0 dest-namespace1_0)"
 "(begin"
-" 'namespace-attach-module4"
+" 'namespace-attach-module"
 "(let-values(((src-namespace_0) src-namespace2_0))"
 "(let-values(((mod-path_0) mod-path3_0))"
 "(let-values(((dest-namespace_0)"
@@ -47835,12 +47796,43 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((who21_0) 'namespace-attach-module)"
+"(let-values(((who15_0) 'namespace-attach-module)"
+"((src-namespace16_0) src-namespace_0)"
+"((mod-path17_0) mod-path_0)"
+"((dest-namespace18_0) dest-namespace_0)"
+"((temp19_0) #t))"
+"(do-attach-module.1"
+" temp19_0"
+" who15_0"
+" src-namespace16_0"
+" mod-path17_0"
+" dest-namespace18_0))))))))))))"
+"(case-lambda"
+"((src-namespace_0 mod-path_0)"
+"(begin 'namespace-attach-module(namespace-attach-module_0 src-namespace_0 mod-path_0 unsafe-undefined)))"
+"((src-namespace_0 mod-path_0 dest-namespace1_0)"
+"(namespace-attach-module_0 src-namespace_0 mod-path_0 dest-namespace1_0)))))"
+"(define-values"
+"(1/namespace-attach-module-declaration)"
+"(let-values(((namespace-attach-module-declaration_0)"
+"(lambda(src-namespace5_0 mod-path6_0 dest-namespace4_0)"
+"(begin"
+" 'namespace-attach-module-declaration"
+"(let-values(((src-namespace_0) src-namespace5_0))"
+"(let-values(((mod-path_0) mod-path6_0))"
+"(let-values(((dest-namespace_0)"
+"(if(eq? dest-namespace4_0 unsafe-undefined)"
+"(1/current-namespace)"
+" dest-namespace4_0)))"
+"(let-values()"
+"(let-values()"
+"(let-values()"
+"(let-values(((who21_0) 'namespace-attach-module-declaration)"
 "((src-namespace22_0) src-namespace_0)"
 "((mod-path23_0) mod-path_0)"
 "((dest-namespace24_0) dest-namespace_0)"
-"((temp25_0) #t))"
-"(do-attach-module17.1"
+"((temp25_0) #f))"
+"(do-attach-module.1"
 " temp25_0"
 " who21_0"
 " src-namespace22_0"
@@ -47848,52 +47840,21 @@ static const char *startup_source =
 " dest-namespace24_0))))))))))))"
 "(case-lambda"
 "((src-namespace_0 mod-path_0)"
-"(begin 'namespace-attach-module(namespace-attach-module4_0 src-namespace_0 mod-path_0 unsafe-undefined)))"
-"((src-namespace_0 mod-path_0 dest-namespace1_0)"
-"(namespace-attach-module4_0 src-namespace_0 mod-path_0 dest-namespace1_0)))))"
-"(define-values"
-"(1/namespace-attach-module-declaration)"
-"(let-values(((namespace-attach-module-declaration9_0)"
-"(lambda(src-namespace7_0 mod-path8_0 dest-namespace6_0)"
-"(begin"
-" 'namespace-attach-module-declaration9"
-"(let-values(((src-namespace_0) src-namespace7_0))"
-"(let-values(((mod-path_0) mod-path8_0))"
-"(let-values(((dest-namespace_0)"
-"(if(eq? dest-namespace6_0 unsafe-undefined)"
-"(1/current-namespace)"
-" dest-namespace6_0)))"
-"(let-values()"
-"(let-values()"
-"(let-values()"
-"(let-values(((who27_0) 'namespace-attach-module-declaration)"
-"((src-namespace28_0) src-namespace_0)"
-"((mod-path29_0) mod-path_0)"
-"((dest-namespace30_0) dest-namespace_0)"
-"((temp31_0) #f))"
-"(do-attach-module17.1"
-" temp31_0"
-" who27_0"
-" src-namespace28_0"
-" mod-path29_0"
-" dest-namespace30_0))))))))))))"
-"(case-lambda"
-"((src-namespace_0 mod-path_0)"
 "(begin"
 " 'namespace-attach-module-declaration"
-"(namespace-attach-module-declaration9_0 src-namespace_0 mod-path_0 unsafe-undefined)))"
-"((src-namespace_0 mod-path_0 dest-namespace6_0)"
-"(namespace-attach-module-declaration9_0 src-namespace_0 mod-path_0 dest-namespace6_0)))))"
+"(namespace-attach-module-declaration_0 src-namespace_0 mod-path_0 unsafe-undefined)))"
+"((src-namespace_0 mod-path_0 dest-namespace4_0)"
+"(namespace-attach-module-declaration_0 src-namespace_0 mod-path_0 dest-namespace4_0)))))"
 "(define-values"
-"(do-attach-module17.1)"
-"(lambda(attach-instances?11_0 who13_0 src-namespace14_0 mod-path15_0 dest-namespace16_0)"
+"(do-attach-module.1)"
+"(lambda(attach-instances?7_0 who9_0 src-namespace10_0 mod-path11_0 dest-namespace12_0)"
 "(begin"
-" 'do-attach-module17"
-"(let-values(((who_0) who13_0))"
-"(let-values(((src-namespace_0) src-namespace14_0))"
-"(let-values(((mod-path_0) mod-path15_0))"
-"(let-values(((dest-namespace_0) dest-namespace16_0))"
-"(let-values(((attach-instances?_0) attach-instances?11_0))"
+" 'do-attach-module"
+"(let-values(((who_0) who9_0))"
+"(let-values(((src-namespace_0) src-namespace10_0))"
+"(let-values(((mod-path_0) mod-path11_0))"
+"(let-values(((dest-namespace_0) dest-namespace12_0))"
+"(let-values(((attach-instances?_0) attach-instances?7_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -48032,19 +47993,19 @@ static const char *startup_source =
 " m_0)))"
 "(let-values()"
 "(let-values(((m-ns_1)"
-"(let-values(((src-namespace32_0)"
+"(let-values(((src-namespace26_0)"
 " src-namespace_0)"
-"((mod-name33_0)"
+"((mod-name27_0)"
 " mod-name_0)"
-"((phase34_0)"
+"((phase28_0)"
 " phase_1))"
-"(namespace->module-namespace82.1"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" src-namespace32_0"
-" mod-name33_0"
-" phase34_0))))"
+" src-namespace26_0"
+" mod-name27_0"
+" phase28_0))))"
 "(let-values((()"
 "(begin"
 "(if m-ns_1"
@@ -48058,19 +48019,19 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((already-m-ns_0)"
 "(if already-m_0"
-"(let-values(((dest-namespace35_0)"
+"(let-values(((dest-namespace29_0)"
 " dest-namespace_0)"
-"((mod-name36_0)"
+"((mod-name30_0)"
 " mod-name_0)"
-"((phase37_0)"
+"((phase31_0)"
 " phase_1))"
-"(namespace->module-namespace82.1"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" dest-namespace35_0"
-" mod-name36_0"
-" phase37_0))"
+" dest-namespace29_0"
+" mod-name30_0"
+" phase31_0))"
 " #f)))"
 "(begin"
 "(if(if already-m-ns_0"
@@ -48101,19 +48062,19 @@ static const char *startup_source =
 "(if(if(label-phase?"
 " phase_1)"
 "(not"
-"(let-values(((src-namespace38_0)"
+"(let-values(((src-namespace32_0)"
 " src-namespace_0)"
-"((mod-name39_0)"
+"((mod-name33_0)"
 " mod-name_0)"
-"((phase40_0)"
+"((phase34_0)"
 " phase_1))"
-"(namespace->module-namespace82.1"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" src-namespace38_0"
-" mod-name39_0"
-" phase40_0)))"
+" src-namespace32_0"
+" mod-name33_0"
+" phase34_0)))"
 " #f)"
 "(let-values()"
 "(with-continuation-mark"
@@ -48125,20 +48086,20 @@ static const char *startup_source =
 " 1/current-namespace"
 " src-namespace_0)"
 "(let-values()"
-"(let-values(((src-namespace41_0)"
+"(let-values(((src-namespace35_0)"
 " src-namespace_0)"
-"((mpi42_0)"
+"((mpi36_0)"
 " mpi_0)"
-"((phase43_0)"
+"((phase37_0)"
 " phase_1))"
-"(namespace-module-instantiate!96.1"
+"(namespace-module-instantiate!.1"
 " #t"
 " unsafe-undefined"
 " unsafe-undefined"
 " #f"
-" src-namespace41_0"
-" mpi42_0"
-" phase43_0)))))"
+" src-namespace35_0"
+" mpi36_0"
+" phase37_0)))))"
 "(void))"
 "(values"
 " #f"
@@ -48372,17 +48333,17 @@ static const char *startup_source =
 " 1/current-namespace"
 " dest-namespace_0)"
 "(let-values()"
-"(let-values(((dest-namespace44_0)"
+"(let-values(((dest-namespace38_0)"
 " dest-namespace_0)"
-"((m45_0)"
+"((m39_0)"
 " m_0)"
-"((mod-name46_0)"
+"((mod-name40_0)"
 " mod-name_0))"
-"(declare-module!58.1"
+"(declare-module!.1"
 " #t"
-" dest-namespace44_0"
-" m45_0"
-" mod-name46_0))))"
+" dest-namespace38_0"
+" m39_0"
+" mod-name40_0))))"
 "(if m-ns_0"
 "(let-values()"
 "(begin"
@@ -48391,19 +48352,19 @@ static const char *startup_source =
 " mod-name_0"
 " phase_1)"
 "(let-values(((or-part_0)"
-"(let-values(((dest-namespace47_0)"
+"(let-values(((dest-namespace41_0)"
 " dest-namespace_0)"
-"((mod-name48_0)"
+"((mod-name42_0)"
 " mod-name_0)"
-"((phase49_0)"
+"((phase43_0)"
 " phase_1))"
-"(namespace->module-namespace82.1"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" dest-namespace47_0"
-" mod-name48_0"
-" phase49_0))))"
+" dest-namespace41_0"
+" mod-name42_0"
+" phase43_0))))"
 "(if or-part_0"
 " or-part_0"
 "(namespace-install-module-namespace!"
@@ -48488,10 +48449,10 @@ static const char *startup_source =
 " ns_0)))))))"
 "(define-values"
 "(1/namespace-syntax-introduce)"
-"(let-values(((namespace-syntax-introduce3_0)"
+"(let-values(((namespace-syntax-introduce_0)"
 "(lambda(s2_0 ns1_0)"
 "(begin"
-" 'namespace-syntax-introduce3"
+" 'namespace-syntax-introduce"
 "(let-values(((s_0) s2_0))"
 "(let-values(((ns_0)(if(eq? ns1_0 unsafe-undefined)(1/current-namespace) ns1_0)))"
 "(let-values()"
@@ -48569,25 +48530,25 @@ static const char *startup_source =
 "(lambda(s_1)"
 "(begin"
 " 'add-ns-scopes"
-"(let-values(((temp64_0)"
+"(let-values(((temp40_0)"
 "(add-scopes"
 "(push-scope s_1 post-scope_0)"
 " other-namespace-scopes_0))"
-"((temp65_0)"
+"((temp41_0)"
 "(root-expand-context-all-scopes-stx root-ctx_0))"
-"((temp66_0)"
+"((temp42_0)"
 "(let-values(((or-part_0)"
 "(namespace-declaration-inspector"
 " ns_0)))"
 "(if or-part_0"
 " or-part_0"
 "(current-code-inspector))))"
-"((temp67_0) #t))"
-"(syntax-transfer-shifts36.1"
-" temp67_0"
-" temp64_0"
-" temp65_0"
-" temp66_0))))))"
+"((temp43_0) #t))"
+"(syntax-transfer-shifts.1"
+" temp43_0"
+" temp40_0"
+" temp41_0"
+" temp42_0))))))"
 "(let-values(((maybe-module-id_0)"
 "(if(pair?(1/syntax-e s_0))"
 "(if(identifier?(car(1/syntax-e s_0)))"
@@ -48608,18 +48569,18 @@ static const char *startup_source =
 " s_0))"
 "(let-values()(add-ns-scopes_0 s_0)))))))))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_0 unsafe-undefined)))"
-"((s_0 ns1_0)(namespace-syntax-introduce3_0 s_0 ns1_0)))))"
+"((s_0)(begin 'namespace-syntax-introduce(namespace-syntax-introduce_0 s_0 unsafe-undefined)))"
+"((s_0 ns1_0)(namespace-syntax-introduce_0 s_0 ns1_0)))))"
 "(define-values"
 "(namespace-datum-introduce)"
 "(lambda(s_0)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_0)))))"
 "(define-values"
 "(1/namespace-module-identifier)"
-"(let-values(((namespace-module-identifier6_0)"
-"(lambda(where5_0)"
+"(let-values(((namespace-module-identifier_0)"
+"(lambda(where3_0)"
 "(begin"
-" 'namespace-module-identifier6"
-"(let-values(((where_0)(if(eq? where5_0 unsafe-undefined)(1/current-namespace) where5_0)))"
+" 'namespace-module-identifier"
+"(let-values(((where_0)(if(eq? where3_0 unsafe-undefined)(1/current-namespace) where3_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -48638,8 +48599,8 @@ static const char *startup_source =
 "(if(1/namespace? where_0)(namespace-phase where_0) where_0))"
 " 'module))))))))))"
 "(case-lambda"
-"(()(begin 'namespace-module-identifier(namespace-module-identifier6_0 unsafe-undefined)))"
-"((where5_0)(namespace-module-identifier6_0 where5_0)))))"
+"(()(begin 'namespace-module-identifier(namespace-module-identifier_0 unsafe-undefined)))"
+"((where3_0)(namespace-module-identifier_0 where3_0)))))"
 "(define-values"
 "(1/namespace-symbol->identifier)"
 "(lambda(sym_0)"
@@ -48653,25 +48614,25 @@ static const char *startup_source =
 "              (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_0)))"
 "(1/namespace-syntax-introduce(1/datum->syntax #f sym_0))))))))"
 "(define-values"
-"(do-namespace-require21.1)"
-"(lambda(copy-variable-as-constant?11_0"
-" copy-variable-phase-level10_0"
-" run?8_0"
-" skip-variable-phase-level12_0"
-" visit?9_0"
-" who18_0"
-" req19_0"
-" ns20_0)"
+"(do-namespace-require.1)"
+"(lambda(copy-variable-as-constant?7_0"
+" copy-variable-phase-level6_0"
+" run?4_0"
+" skip-variable-phase-level8_0"
+" visit?5_0"
+" who14_0"
+" req15_0"
+" ns16_0)"
 "(begin"
-" 'do-namespace-require21"
-"(let-values(((run?_0) run?8_0))"
-"(let-values(((visit?_0) visit?9_0))"
-"(let-values(((who_0) who18_0))"
-"(let-values(((req_0) req19_0))"
-"(let-values(((ns_0) ns20_0))"
-"(let-values(((copy-variable-phase-level_0) copy-variable-phase-level10_0))"
-"(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?11_0))"
-"(let-values(((skip-variable-phase-level_0) skip-variable-phase-level12_0))"
+" 'do-namespace-require"
+"(let-values(((run?_0) run?4_0))"
+"(let-values(((visit?_0) visit?5_0))"
+"(let-values(((who_0) who14_0))"
+"(let-values(((req_0) req15_0))"
+"(let-values(((ns_0) ns16_0))"
+"(let-values(((copy-variable-phase-level_0) copy-variable-phase-level6_0))"
+"(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?7_0))"
+"(let-values(((skip-variable-phase-level_0) skip-variable-phase-level8_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -48686,181 +48647,157 @@ static const char *startup_source =
 "(if(let-values(((or-part_0)(1/module-path-index? req_0)))"
 "(if or-part_0 or-part_0(1/module-path? req_0)))"
 "(let-values()"
-"(let-values(((temp70_0)"
+"(let-values(((temp46_0)"
 "(if(1/module-path-index? req_0)"
 " req_0"
 "(1/module-path-index-join req_0 #f)))"
-"((temp71_0) #f)"
-"((temp72_0) #f)"
-"((ctx-stx73_0) ctx-stx_0)"
-"((ns74_0) ns_0)"
-"((run?75_0) run?_0)"
-"((visit?76_0) visit?_0)"
-"((temp77_0)(namespace-phase ns_0))"
-"((temp78_0)(namespace-phase ns_0))"
-"((copy-variable-phase-level79_0) copy-variable-phase-level_0)"
-"((copy-variable-as-constant?80_0) copy-variable-as-constant?_0)"
-"((skip-variable-phase-level81_0) skip-variable-phase-level_0)"
-"((who82_0) who_0))"
-"(perform-require!78.1"
+"((temp47_0) #f)"
+"((temp48_0) #f)"
+"((ctx-stx49_0) ctx-stx_0)"
+"((ns50_0) ns_0)"
+"((run?51_0) run?_0)"
+"((visit?52_0) visit?_0)"
+"((temp53_0)(namespace-phase ns_0))"
+"((temp54_0)(namespace-phase ns_0))"
+"((copy-variable-phase-level55_0) copy-variable-phase-level_0)"
+"((copy-variable-as-constant?56_0) copy-variable-as-constant?_0)"
+"((skip-variable-phase-level57_0) skip-variable-phase-level_0)"
+"((who58_0) who_0))"
+"(perform-require!.1"
 " #f"
 " #t"
 " #f"
-" copy-variable-as-constant?80_0"
-" copy-variable-phase-level79_0"
+" copy-variable-as-constant?56_0"
+" copy-variable-phase-level55_0"
 " #f"
 " 'all"
-" temp77_0"
+" temp53_0"
 " #f"
-" temp78_0"
-" run?75_0"
-" skip-variable-phase-level81_0"
-" visit?76_0"
-" who82_0"
-" temp70_0"
-" temp71_0"
-" temp72_0"
-" ctx-stx73_0"
-" ns74_0)))"
+" temp54_0"
+" run?51_0"
+" skip-variable-phase-level57_0"
+" visit?52_0"
+" who58_0"
+" temp46_0"
+" temp47_0"
+" temp48_0"
+" ctx-stx49_0"
+" ns50_0)))"
 "(let-values()"
-"(let-values(((run?83_0) run?_0)"
-"((visit?84_0) visit?_0)"
-"((temp85_0)(list(1/datum->syntax ctx-stx_0 req_0)))"
-"((temp86_0) #f)"
-"((ns87_0) ns_0)"
-"((temp88_0)(namespace-phase ns_0))"
-"((temp89_0)"
-"(let-values(((temp94_0) #f))(make-requires+provides8.1 #f temp94_0)))"
-"((copy-variable-phase-level90_0) copy-variable-phase-level_0)"
-"((copy-variable-as-constant?91_0) copy-variable-as-constant?_0)"
-"((skip-variable-phase-level92_0) skip-variable-phase-level_0)"
-"((who93_0) who_0))"
-"(parse-and-perform-requires!30.1"
-" copy-variable-as-constant?91_0"
-" copy-variable-phase-level90_0"
+"(let-values(((run?59_0) run?_0)"
+"((visit?60_0) visit?_0)"
+"((temp61_0)(list(1/datum->syntax ctx-stx_0 req_0)))"
+"((temp62_0) #f)"
+"((ns63_0) ns_0)"
+"((temp64_0)(namespace-phase ns_0))"
+"((temp65_0)"
+"(let-values(((temp70_0) #f))(make-requires+provides.1 #f temp70_0)))"
+"((copy-variable-phase-level66_0) copy-variable-phase-level_0)"
+"((copy-variable-as-constant?67_0) copy-variable-as-constant?_0)"
+"((skip-variable-phase-level68_0) skip-variable-phase-level_0)"
+"((who69_0) who_0))"
+"(parse-and-perform-requires!.1"
+" copy-variable-as-constant?67_0"
+" copy-variable-phase-level66_0"
 " unsafe-undefined"
 " #f"
 " unsafe-undefined"
-" run?83_0"
+" run?59_0"
 " #f"
-" skip-variable-phase-level92_0"
-" visit?84_0"
-" who93_0"
-" temp85_0"
-" temp86_0"
-" ns87_0"
-" temp88_0"
-" temp89_0))))))))))))))))))"
+" skip-variable-phase-level68_0"
+" visit?60_0"
+" who69_0"
+" temp61_0"
+" temp62_0"
+" ns63_0"
+" temp64_0"
+" temp65_0))))))))))))))))))"
 "(define-values"
 "(1/namespace-require)"
-"(let-values(((namespace-require26_0)"
+"(let-values(((namespace-require_0)"
+"(lambda(req19_0 ns18_0)"
+"(begin"
+" 'namespace-require"
+"(let-values(((req_0) req19_0))"
+"(let-values(((ns_0)(if(eq? ns18_0 unsafe-undefined)(1/current-namespace) ns18_0)))"
+"(let-values()"
+"(let-values()"
+"(let-values()"
+"(let-values(((who72_0) 'namespace-require)((req73_0) req_0)((ns74_0) ns_0))"
+"(do-namespace-require.1 #f #f #t #f #f who72_0 req73_0 ns74_0)))))))))))"
+"(case-lambda"
+"((req_0)(begin 'namespace-require(namespace-require_0 req_0 unsafe-undefined)))"
+"((req_0 ns18_0)(namespace-require_0 req_0 ns18_0)))))"
+"(define-values"
+"(1/namespace-require/expansion-time)"
+"(let-values(((namespace-require/expansion-time_0)"
+"(lambda(req21_0 ns20_0)"
+"(begin"
+" 'namespace-require/expansion-time"
+"(let-values(((req_0) req21_0))"
+"(let-values(((ns_0)(if(eq? ns20_0 unsafe-undefined)(1/current-namespace) ns20_0)))"
+"(let-values()"
+"(let-values()"
+"(let-values()"
+"(let-values(((temp76_0) #f)"
+"((temp77_0) #t)"
+"((who78_0) 'namespace-require/expansion-time)"
+"((req79_0) req_0)"
+"((ns80_0) ns_0))"
+"(do-namespace-require.1 #f #f temp76_0 #f temp77_0 who78_0 req79_0 ns80_0)))))))))))"
+"(case-lambda"
+"((req_0)(begin 'namespace-require/expansion-time(namespace-require/expansion-time_0 req_0 unsafe-undefined)))"
+"((req_0 ns20_0)(namespace-require/expansion-time_0 req_0 ns20_0)))))"
+"(define-values"
+"(1/namespace-require/constant)"
+"(let-values(((namespace-require/constant_0)"
+"(lambda(req23_0 ns22_0)"
+"(begin"
+" 'namespace-require/constant"
+"(let-values(((req_0) req23_0))"
+"(let-values(((ns_0)(if(eq? ns22_0 unsafe-undefined)(1/current-namespace) ns22_0)))"
+"(let-values()"
+"(let-values()"
+"(let-values()"
+"(let-values(((who82_0) 'namespace-require/constant)"
+"((req83_0) req_0)"
+"((ns84_0) ns_0)"
+"((temp85_0) 0)"
+"((temp86_0) #t))"
+"(do-namespace-require.1 temp86_0 temp85_0 #t #f #f who82_0 req83_0 ns84_0)))))))))))"
+"(case-lambda"
+"((req_0)(begin 'namespace-require/constant(namespace-require/constant_0 req_0 unsafe-undefined)))"
+"((req_0 ns22_0)(namespace-require/constant_0 req_0 ns22_0)))))"
+"(define-values"
+"(1/namespace-require/copy)"
+"(let-values(((namespace-require/copy_0)"
 "(lambda(req25_0 ns24_0)"
 "(begin"
-" 'namespace-require26"
+" 'namespace-require/copy"
 "(let-values(((req_0) req25_0))"
 "(let-values(((ns_0)(if(eq? ns24_0 unsafe-undefined)(1/current-namespace) ns24_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((who96_0) 'namespace-require)((req97_0) req_0)((ns98_0) ns_0))"
-"(do-namespace-require21.1 #f #f #t #f #f who96_0 req97_0 ns98_0)))))))))))"
+"(let-values(((who88_0) 'namespace-require/copy)"
+"((req89_0) req_0)"
+"((ns90_0) ns_0)"
+"((temp91_0) 0)"
+"((temp92_0) 0))"
+"(do-namespace-require.1 #f temp91_0 #t temp92_0 #f who88_0 req89_0 ns90_0)))))))))))"
 "(case-lambda"
-"((req_0)(begin 'namespace-require(namespace-require26_0 req_0 unsafe-undefined)))"
-"((req_0 ns24_0)(namespace-require26_0 req_0 ns24_0)))))"
-"(define-values"
-"(1/namespace-require/expansion-time)"
-"(let-values(((namespace-require/expansion-time30_0)"
-"(lambda(req29_0 ns28_0)"
-"(begin"
-" 'namespace-require/expansion-time30"
-"(let-values(((req_0) req29_0))"
-"(let-values(((ns_0)(if(eq? ns28_0 unsafe-undefined)(1/current-namespace) ns28_0)))"
-"(let-values()"
-"(let-values()"
-"(let-values()"
-"(let-values(((temp100_0) #f)"
-"((temp101_0) #t)"
-"((who102_0) 'namespace-require/expansion-time)"
-"((req103_0) req_0)"
-"((ns104_0) ns_0))"
-"(do-namespace-require21.1"
-" #f"
-" #f"
-" temp100_0"
-" #f"
-" temp101_0"
-" who102_0"
-" req103_0"
-" ns104_0)))))))))))"
-"(case-lambda"
-"((req_0)(begin 'namespace-require/expansion-time(namespace-require/expansion-time30_0 req_0 unsafe-undefined)))"
-"((req_0 ns28_0)(namespace-require/expansion-time30_0 req_0 ns28_0)))))"
-"(define-values"
-"(1/namespace-require/constant)"
-"(let-values(((namespace-require/constant34_0)"
-"(lambda(req33_0 ns32_0)"
-"(begin"
-" 'namespace-require/constant34"
-"(let-values(((req_0) req33_0))"
-"(let-values(((ns_0)(if(eq? ns32_0 unsafe-undefined)(1/current-namespace) ns32_0)))"
-"(let-values()"
-"(let-values()"
-"(let-values()"
-"(let-values(((who106_0) 'namespace-require/constant)"
-"((req107_0) req_0)"
-"((ns108_0) ns_0)"
-"((temp109_0) 0)"
-"((temp110_0) #t))"
-"(do-namespace-require21.1"
-" temp110_0"
-" temp109_0"
-" #t"
-" #f"
-" #f"
-" who106_0"
-" req107_0"
-" ns108_0)))))))))))"
-"(case-lambda"
-"((req_0)(begin 'namespace-require/constant(namespace-require/constant34_0 req_0 unsafe-undefined)))"
-"((req_0 ns32_0)(namespace-require/constant34_0 req_0 ns32_0)))))"
-"(define-values"
-"(1/namespace-require/copy)"
-"(let-values(((namespace-require/copy38_0)"
-"(lambda(req37_0 ns36_0)"
-"(begin"
-" 'namespace-require/copy38"
-"(let-values(((req_0) req37_0))"
-"(let-values(((ns_0)(if(eq? ns36_0 unsafe-undefined)(1/current-namespace) ns36_0)))"
-"(let-values()"
-"(let-values()"
-"(let-values()"
-"(let-values(((who112_0) 'namespace-require/copy)"
-"((req113_0) req_0)"
-"((ns114_0) ns_0)"
-"((temp115_0) 0)"
-"((temp116_0) 0))"
-"(do-namespace-require21.1"
-" #f"
-" temp115_0"
-" #t"
-" temp116_0"
-" #f"
-" who112_0"
-" req113_0"
-" ns114_0)))))))))))"
-"(case-lambda"
-"((req_0)(begin 'namespace-require/copy(namespace-require/copy38_0 req_0 unsafe-undefined)))"
-"((req_0 ns36_0)(namespace-require/copy38_0 req_0 ns36_0)))))"
+"((req_0)(begin 'namespace-require/copy(namespace-require/copy_0 req_0 unsafe-undefined)))"
+"((req_0 ns24_0)(namespace-require/copy_0 req_0 ns24_0)))))"
 "(define-values"
 "(1/namespace-variable-value)"
-"(let-values(((namespace-variable-value44_0)"
-"(lambda(sym43_0 use-mapping?40_0 failure-thunk41_0 ns42_0)"
+"(let-values(((namespace-variable-value_0)"
+"(lambda(sym29_0 use-mapping?26_0 failure-thunk27_0 ns28_0)"
 "(begin"
-" 'namespace-variable-value44"
-"(let-values(((sym_0) sym43_0))"
-"(let-values(((use-mapping?_0) use-mapping?40_0))"
-"(let-values(((failure-thunk_0) failure-thunk41_0))"
-"(let-values(((ns_0)(if(eq? ns42_0 unsafe-undefined)(1/current-namespace) ns42_0)))"
+" 'namespace-variable-value"
+"(let-values(((sym_0) sym29_0))"
+"(let-values(((use-mapping?_0) use-mapping?26_0))"
+"(let-values(((failure-thunk_0) failure-thunk27_0))"
+"(let-values(((ns_0)(if(eq? ns28_0 unsafe-undefined)(1/current-namespace) ns28_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -48908,23 +48845,22 @@ static const char *startup_source =
 " extra-inspector_0"
 " protected?_0)"
 "(if b_0"
-"(let-values(((b118_0) b_0)"
-"((empty-env119_0)"
-" empty-env)"
-"((null120_0) null)"
-"((ns121_0) ns_0)"
-"((temp122_0)"
+"(let-values(((b94_0) b_0)"
+"((empty-env95_0) empty-env)"
+"((null96_0) null)"
+"((ns97_0) ns_0)"
+"((temp98_0)"
 "(namespace-phase ns_0))"
-"((id123_0) id_0))"
-"(binding-lookup52.1"
+"((id99_0) id_0))"
+"(binding-lookup.1"
 " #f"
 " #f"
-" b118_0"
-" empty-env119_0"
-" null120_0"
-" ns121_0"
-" temp122_0"
-" id123_0))"
+" b94_0"
+" empty-env95_0"
+" null96_0"
+" ns97_0"
+" temp98_0"
+" id99_0))"
 "(values variable #f #f #f))))"
 "(begin"
 "(if(variable? v_0)"
@@ -48980,23 +48916,23 @@ static const char *startup_source =
 " sym_0)))))))))"
 "(lambda() val_0))))))))))))))))))"
 "(case-lambda"
-"((sym_0)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_0 #t #f unsafe-undefined)))"
-"((sym_0 use-mapping?_0 failure-thunk_0 ns42_0)"
-"(namespace-variable-value44_0 sym_0 use-mapping?_0 failure-thunk_0 ns42_0))"
-"((sym_0 use-mapping?_0 failure-thunk41_0)"
-"(namespace-variable-value44_0 sym_0 use-mapping?_0 failure-thunk41_0 unsafe-undefined))"
-"((sym_0 use-mapping?40_0)(namespace-variable-value44_0 sym_0 use-mapping?40_0 #f unsafe-undefined)))))"
+"((sym_0)(begin 'namespace-variable-value(namespace-variable-value_0 sym_0 #t #f unsafe-undefined)))"
+"((sym_0 use-mapping?_0 failure-thunk_0 ns28_0)"
+"(namespace-variable-value_0 sym_0 use-mapping?_0 failure-thunk_0 ns28_0))"
+"((sym_0 use-mapping?_0 failure-thunk27_0)"
+"(namespace-variable-value_0 sym_0 use-mapping?_0 failure-thunk27_0 unsafe-undefined))"
+"((sym_0 use-mapping?26_0)(namespace-variable-value_0 sym_0 use-mapping?26_0 #f unsafe-undefined)))))"
 "(define-values"
 "(1/namespace-set-variable-value!)"
-"(let-values(((namespace-set-variable-value!51_0)"
-"(lambda(sym49_0 val50_0 map?46_0 ns47_0 as-constant?48_0)"
+"(let-values(((namespace-set-variable-value!_0)"
+"(lambda(sym33_0 val34_0 map?30_0 ns31_0 as-constant?32_0)"
 "(begin"
-" 'namespace-set-variable-value!51"
-"(let-values(((sym_0) sym49_0))"
-"(let-values(((val_0) val50_0))"
-"(let-values(((map?_0) map?46_0))"
-"(let-values(((ns_0)(if(eq? ns47_0 unsafe-undefined)(1/current-namespace) ns47_0)))"
-"(let-values(((as-constant?_0) as-constant?48_0))"
+" 'namespace-set-variable-value!"
+"(let-values(((sym_0) sym33_0))"
+"(let-values(((val_0) val34_0))"
+"(let-values(((map?_0) map?30_0))"
+"(let-values(((ns_0)(if(eq? ns31_0 unsafe-undefined)(1/current-namespace) ns31_0)))"
+"(let-values(((as-constant?_0) as-constant?32_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -49020,12 +48956,12 @@ static const char *startup_source =
 " sym_0)"
 "(values))))"
 "(let-values(((id_0)(1/datum->syntax #f sym_0)))"
-"(let-values(((temp125_0)(1/namespace-syntax-introduce id_0 ns_0))"
-"((temp126_0)"
-"(let-values(((temp128_0)(namespace-mpi ns_0))"
-"((temp129_0)(namespace-phase ns_0))"
-"((sym130_0) sym_0))"
-"(make-module-binding20.1"
+"(let-values(((temp101_0)(1/namespace-syntax-introduce id_0 ns_0))"
+"((temp102_0)"
+"(let-values(((temp104_0)(namespace-mpi ns_0))"
+"((temp105_0)(namespace-phase ns_0))"
+"((sym106_0) sym_0))"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -49034,27 +48970,27 @@ static const char *startup_source =
 " unsafe-undefined"
 " 0"
 " unsafe-undefined"
-" temp128_0"
-" temp129_0"
-" sym130_0)))"
-"((temp127_0)(namespace-phase ns_0)))"
-"(add-binding!17.1 #f #f temp125_0 temp126_0 temp127_0)))))"
+" temp104_0"
+" temp105_0"
+" sym106_0)))"
+"((temp103_0)(namespace-phase ns_0)))"
+"(add-binding!.1 #f #f temp101_0 temp102_0 temp103_0)))))"
 "(void)))))))))))))))"
 "(case-lambda"
 "((sym_0 val_0)"
-"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_0 val_0 #f unsafe-undefined #f)))"
-"((sym_0 val_0 map?_0 ns_0 as-constant?48_0)"
-"(namespace-set-variable-value!51_0 sym_0 val_0 map?_0 ns_0 as-constant?48_0))"
-"((sym_0 val_0 map?_0 ns47_0)(namespace-set-variable-value!51_0 sym_0 val_0 map?_0 ns47_0 #f))"
-"((sym_0 val_0 map?46_0)(namespace-set-variable-value!51_0 sym_0 val_0 map?46_0 unsafe-undefined #f)))))"
+"(begin 'namespace-set-variable-value!(namespace-set-variable-value!_0 sym_0 val_0 #f unsafe-undefined #f)))"
+"((sym_0 val_0 map?_0 ns_0 as-constant?32_0)"
+"(namespace-set-variable-value!_0 sym_0 val_0 map?_0 ns_0 as-constant?32_0))"
+"((sym_0 val_0 map?_0 ns31_0)(namespace-set-variable-value!_0 sym_0 val_0 map?_0 ns31_0 #f))"
+"((sym_0 val_0 map?30_0)(namespace-set-variable-value!_0 sym_0 val_0 map?30_0 unsafe-undefined #f)))))"
 "(define-values"
 "(1/namespace-undefine-variable!)"
-"(let-values(((namespace-undefine-variable!55_0)"
-"(lambda(sym54_0 ns53_0)"
+"(let-values(((namespace-undefine-variable!_0)"
+"(lambda(sym36_0 ns35_0)"
 "(begin"
-" 'namespace-undefine-variable!55"
-"(let-values(((sym_0) sym54_0))"
-"(let-values(((ns_0)(if(eq? ns53_0 unsafe-undefined)(1/current-namespace) ns53_0)))"
+" 'namespace-undefine-variable!"
+"(let-values(((sym_0) sym36_0))"
+"(let-values(((ns_0)(if(eq? ns35_0 unsafe-undefined)(1/current-namespace) ns35_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -49068,15 +49004,15 @@ static const char *startup_source =
 "                                    (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_0)))"
 "(namespace-unset-variable! ns_0(namespace-phase ns_0) sym_0)))))))))))"
 "(case-lambda"
-"((sym_0)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_0 unsafe-undefined)))"
-"((sym_0 ns53_0)(namespace-undefine-variable!55_0 sym_0 ns53_0)))))"
+"((sym_0)(begin 'namespace-undefine-variable!(namespace-undefine-variable!_0 sym_0 unsafe-undefined)))"
+"((sym_0 ns35_0)(namespace-undefine-variable!_0 sym_0 ns35_0)))))"
 "(define-values"
 "(1/namespace-mapped-symbols)"
-"(let-values(((namespace-mapped-symbols58_0)"
-"(lambda(ns57_0)"
+"(let-values(((namespace-mapped-symbols_0)"
+"(lambda(ns37_0)"
 "(begin"
-" 'namespace-mapped-symbols58"
-"(let-values(((ns_0)(if(eq? ns57_0 unsafe-undefined)(1/current-namespace) ns57_0)))"
+" 'namespace-mapped-symbols"
+"(let-values(((ns_0)(if(eq? ns37_0 unsafe-undefined)(1/current-namespace) ns37_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -49091,15 +49027,15 @@ static const char *startup_source =
 "(namespace-phase ns_0))"
 "(list->set(1/instance-variable-names(namespace->instance ns_0 0))))))))))))))"
 "(case-lambda"
-"(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols58_0 unsafe-undefined)))"
-"((ns57_0)(namespace-mapped-symbols58_0 ns57_0)))))"
+"(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols_0 unsafe-undefined)))"
+"((ns37_0)(namespace-mapped-symbols_0 ns37_0)))))"
 "(define-values"
 "(1/namespace-base-phase)"
-"(let-values(((namespace-base-phase61_0)"
-"(lambda(ns60_0)"
+"(let-values(((namespace-base-phase_0)"
+"(lambda(ns38_0)"
 "(begin"
-" 'namespace-base-phase61"
-"(let-values(((ns_0)(if(eq? ns60_0 unsafe-undefined)(1/current-namespace) ns60_0)))"
+" 'namespace-base-phase"
+"(let-values(((ns_0)(if(eq? ns38_0 unsafe-undefined)(1/current-namespace) ns38_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -49109,14 +49045,14 @@ static const char *startup_source =
 "                                (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_0)))"
 "(namespace-phase ns_0))))))))))"
 "(case-lambda"
-"(()(begin 'namespace-base-phase(namespace-base-phase61_0 unsafe-undefined)))"
-"((ns60_0)(namespace-base-phase61_0 ns60_0)))))"
+"(()(begin 'namespace-base-phase(namespace-base-phase_0 unsafe-undefined)))"
+"((ns38_0)(namespace-base-phase_0 ns38_0)))))"
 "(define-values"
 "(1/eval)"
-"(let-values(((eval4_0)"
+"(let-values(((eval_0)"
 "(lambda(s3_0 ns1_0 compile2_0)"
 "(begin"
-" 'eval4"
+" 'eval"
 "(let-values(((s_0) s3_0))"
 "(let-values(((ns_0)(if(eq? ns1_0 unsafe-undefined)(1/current-namespace) ns1_0)))"
 "(let-values(((compile_0)"
@@ -49139,44 +49075,44 @@ static const char *startup_source =
 " #f)"
 "(let-values()(eval-compiled(1/syntax->datum s_0) ns_0))"
 "(let-values()"
-"(let-values(((s83_0) s_0)"
-"((ns84_0) ns_0)"
-"((temp85_0)"
+"(let-values(((s63_0) s_0)"
+"((ns64_0) ns_0)"
+"((temp65_0)"
 "(lambda(s_1 ns_1 tail?_0)"
 "(eval-compiled(compile_0 s_1 ns_1) ns_1 tail?_0)))"
-"((temp86_0) #f))"
-"(per-top-level71.1 #f #f temp86_0 #t #f temp85_0 #f s83_0 ns84_0)))))))))))))"
+"((temp66_0) #f))"
+"(per-top-level.1 #f #f temp66_0 #t #f temp65_0 #f s63_0 ns64_0)))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'eval(eval4_0 s_0 unsafe-undefined unsafe-undefined)))"
-"((s_0 ns_0 compile2_0)(eval4_0 s_0 ns_0 compile2_0))"
-"((s_0 ns1_0)(eval4_0 s_0 ns1_0 unsafe-undefined)))))"
+"((s_0)(begin 'eval(eval_0 s_0 unsafe-undefined unsafe-undefined)))"
+"((s_0 ns_0 compile2_0)(eval_0 s_0 ns_0 compile2_0))"
+"((s_0 ns1_0)(eval_0 s_0 ns1_0 unsafe-undefined)))))"
 "(define-values"
 "(eval-compiled)"
-"(let-values(((eval-compiled9_0)"
-"(lambda(c7_0 ns8_0 as-tail?6_0)"
+"(let-values(((eval-compiled_0)"
+"(lambda(c5_0 ns6_0 as-tail?4_0)"
 "(begin"
-" 'eval-compiled9"
-"(let-values(((c_0) c7_0))"
-"(let-values(((ns_0) ns8_0))"
-"(let-values(((as-tail?_0) as-tail?6_0))"
+" 'eval-compiled"
+"(let-values(((c_0) c5_0))"
+"(let-values(((ns_0) ns6_0))"
+"(let-values(((as-tail?_0) as-tail?4_0))"
 "(let-values()"
 "(if(1/compiled-module-expression? c_0)"
 "(let-values()"
-"(let-values(((c87_0) c_0)((ns88_0) ns_0))(eval-module8.1 ns88_0 #f #t c87_0)))"
+"(let-values(((c67_0) c_0)((ns68_0) ns_0))(eval-module.1 ns68_0 #f #t c67_0)))"
 "(let-values()(eval-top c_0 ns_0 eval-compiled as-tail?_0)))))))))))"
 "(case-lambda"
-"((c_0 ns_0)(begin(eval-compiled9_0 c_0 ns_0 #t)))"
-"((c_0 ns_0 as-tail?6_0)(eval-compiled9_0 c_0 ns_0 as-tail?6_0)))))"
+"((c_0 ns_0)(begin(eval-compiled_0 c_0 ns_0 #t)))"
+"((c_0 ns_0 as-tail?4_0)(eval-compiled_0 c_0 ns_0 as-tail?4_0)))))"
 "(define-values"
 "(1/compile)"
-"(let-values(((compile15_0)"
-"(lambda(s14_0 ns11_0 serializable?12_0 expand13_0)"
+"(let-values(((compile_0)"
+"(lambda(s10_0 ns7_0 serializable?8_0 expand9_0)"
 "(begin"
-" 'compile15"
-"(let-values(((s_0) s14_0))"
-"(let-values(((ns_0)(if(eq? ns11_0 unsafe-undefined)(1/current-namespace) ns11_0)))"
-"(let-values(((serializable?_0) serializable?12_0))"
-"(let-values(((expand_0)(if(eq? expand13_0 unsafe-undefined) expand$1 expand13_0)))"
+" 'compile"
+"(let-values(((s_0) s10_0))"
+"(let-values(((ns_0)(if(eq? ns7_0 unsafe-undefined)(1/current-namespace) ns7_0)))"
+"(let-values(((serializable?_0) serializable?8_0))"
+"(let-values(((expand_0)(if(eq? expand9_0 unsafe-undefined) expand$1 expand9_0)))"
 "(let-values()"
 "(let-values(((to-correlated-linklet?_0)"
 "(if serializable?_0(not(current-compile-target-machine)) #f)))"
@@ -49186,54 +49122,54 @@ static const char *startup_source =
 "(if(if(syntax?$1 s_0)(1/compiled-expression?(1/syntax-e s_0)) #f)"
 "(let-values()(list(1/syntax-e s_0)))"
 "(let-values()"
-"(let-values(((s89_0) s_0)"
-"((ns90_0) ns_0)"
-"((temp91_0)"
+"(let-values(((s69_0) s_0)"
+"((ns70_0) ns_0)"
+"((temp71_0)"
 "(lambda(s_1 ns_1 as-tail?_0)"
 "(list"
-"(let-values(((s94_0) s_1)"
-"((ns95_0) ns_1)"
-"((expand96_0) expand_0)"
-"((serializable?97_0) serializable?_0)"
-"((to-correlated-linklet?98_0)"
+"(let-values(((s74_0) s_1)"
+"((ns75_0) ns_1)"
+"((expand76_0) expand_0)"
+"((serializable?77_0) serializable?_0)"
+"((to-correlated-linklet?78_0)"
 " to-correlated-linklet?_0))"
-"(compile-single25.1"
-" serializable?97_0"
-" to-correlated-linklet?98_0"
-" s94_0"
-" ns95_0"
-" expand96_0)))))"
-"((append92_0) append)"
-"((temp93_0) #f))"
-"(per-top-level71.1"
-" append92_0"
+"(compile-single.1"
+" serializable?77_0"
+" to-correlated-linklet?78_0"
+" s74_0"
+" ns75_0"
+" expand76_0)))))"
+"((append72_0) append)"
+"((temp73_0) #f))"
+"(per-top-level.1"
+" append72_0"
 " #f"
-" temp93_0"
+" temp73_0"
 " #t"
 " #f"
-" temp91_0"
+" temp71_0"
 " #f"
-" s89_0"
-" ns90_0)))))))"
+" s69_0"
+" ns70_0)))))))"
 "(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)"
 "(car cs_0)"
-"(let-values(((cs99_0) cs_0)"
-"((to-correlated-linklet?100_0) to-correlated-linklet?_0)"
-"((serializable?101_0) serializable?_0)"
-"((ns102_0) ns_0))"
-"(compiled-tops->compiled-top8.1"
-" serializable?101_0"
-" ns102_0"
-" to-correlated-linklet?100_0"
-" cs99_0))))))))))))))"
+"(let-values(((cs79_0) cs_0)"
+"((to-correlated-linklet?80_0) to-correlated-linklet?_0)"
+"((serializable?81_0) serializable?_0)"
+"((ns82_0) ns_0))"
+"(compiled-tops->compiled-top.1"
+" serializable?81_0"
+" ns82_0"
+" to-correlated-linklet?80_0"
+" cs79_0))))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'compile(compile15_0 s_0 unsafe-undefined #t unsafe-undefined)))"
-"((s_0 ns_0 serializable?_0 expand13_0)(compile15_0 s_0 ns_0 serializable?_0 expand13_0))"
-"((s_0 ns_0 serializable?12_0)(compile15_0 s_0 ns_0 serializable?12_0 unsafe-undefined))"
-"((s_0 ns11_0)(compile15_0 s_0 ns11_0 #t unsafe-undefined)))))"
+"((s_0)(begin 'compile(compile_0 s_0 unsafe-undefined #t unsafe-undefined)))"
+"((s_0 ns_0 serializable?_0 expand9_0)(compile_0 s_0 ns_0 serializable?_0 expand9_0))"
+"((s_0 ns_0 serializable?8_0)(compile_0 s_0 ns_0 serializable?8_0 unsafe-undefined))"
+"((s_0 ns7_0)(compile_0 s_0 ns7_0 #t unsafe-undefined)))))"
 "(define-values"
 "(struct:lifted-parsed-begin"
-" lifted-parsed-begin17.1"
+" lifted-parsed-begin11.1"
 " lifted-parsed-begin?"
 " lifted-parsed-begin-seq"
 " lifted-parsed-begin-last)"
@@ -49259,15 +49195,15 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 0 'seq)"
 "(make-struct-field-accessor -ref_0 1 'last))))"
 "(define-values"
-"(compile-single25.1)"
-"(lambda(serializable?18_0 to-correlated-linklet?19_0 s22_0 ns23_0 expand24_0)"
+"(compile-single.1)"
+"(lambda(serializable?12_0 to-correlated-linklet?13_0 s16_0 ns17_0 expand18_0)"
 "(begin"
-" 'compile-single25"
-"(let-values(((s_0) s22_0))"
-"(let-values(((ns_0) ns23_0))"
-"(let-values(((expand_0) expand24_0))"
-"(let-values(((serializable?_0) serializable?18_0))"
-"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?19_0))"
+" 'compile-single"
+"(let-values(((s_0) s16_0))"
+"(let-values(((ns_0) ns17_0))"
+"(let-values(((expand_0) expand18_0))"
+"(let-values(((serializable?_0) serializable?12_0))"
+"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?13_0))"
 "(let-values()"
 "(let-values(((exp-s_0)(expand_0 s_0 ns_0 #f #t serializable?_0 to-correlated-linklet?_0)))"
 "((letrec-values(((loop_0)"
@@ -49276,30 +49212,30 @@ static const char *startup_source =
 " 'loop"
 "(if(parsed-module? exp-s_1)"
 "(let-values()"
-"(let-values(((exp-s104_0) exp-s_1)"
-"((temp105_0)"
-"(let-values(((ns108_0) ns_0))"
-"(make-compile-context14.1"
+"(let-values(((exp-s84_0) exp-s_1)"
+"((temp85_0)"
+"(let-values(((ns88_0) ns_0))"
+"(make-compile-context.1"
 " #f"
 " unsafe-undefined"
 " #f"
-" ns108_0"
+" ns88_0"
 " unsafe-undefined"
 " unsafe-undefined)))"
-"((serializable?106_0) serializable?_0)"
-"((to-correlated-linklet?107_0) to-correlated-linklet?_0))"
-"(compile-module13.1"
+"((serializable?86_0) serializable?_0)"
+"((to-correlated-linklet?87_0) to-correlated-linklet?_0))"
+"(compile-module.1"
 " #f"
 " unsafe-undefined"
 " #t"
-" serializable?106_0"
-" to-correlated-linklet?107_0"
-" exp-s104_0"
-" temp105_0)))"
+" serializable?86_0"
+" to-correlated-linklet?87_0"
+" exp-s84_0"
+" temp85_0)))"
 "(if(lifted-parsed-begin? exp-s_1)"
 "(let-values()"
-"(let-values(((to-correlated-linklet?109_0) to-correlated-linklet?_0)"
-"((temp110_0)"
+"(let-values(((to-correlated-linklet?89_0) to-correlated-linklet?_0)"
+"((temp90_0)"
 "(reverse$1"
 "(let-values(((lst_0)"
 "(append"
@@ -49343,44 +49279,44 @@ static const char *startup_source =
 " for-loop_0)"
 " null"
 " lst_0))))))"
-"(compiled-tops->compiled-top8.1"
+"(compiled-tops->compiled-top.1"
 " #f"
 " #f"
-" to-correlated-linklet?109_0"
-" temp110_0)))"
+" to-correlated-linklet?89_0"
+" temp90_0)))"
 "(let-values()"
-"(let-values(((exp-s111_0) exp-s_1)"
-"((temp112_0)"
-"(let-values(((ns115_0) ns_0))"
-"(make-compile-context14.1"
+"(let-values(((exp-s91_0) exp-s_1)"
+"((temp92_0)"
+"(let-values(((ns95_0) ns_0))"
+"(make-compile-context.1"
 " #f"
 " unsafe-undefined"
 " #f"
-" ns115_0"
+" ns95_0"
 " unsafe-undefined"
 " unsafe-undefined)))"
-"((serializable?113_0) serializable?_0)"
-"((to-correlated-linklet?114_0) to-correlated-linklet?_0))"
-"(compile-top9.1"
-" serializable?113_0"
+"((serializable?93_0) serializable?_0)"
+"((to-correlated-linklet?94_0) to-correlated-linklet?_0))"
+"(compile-top.1"
+" serializable?93_0"
 " #f"
-" to-correlated-linklet?114_0"
-" exp-s111_0"
-" temp112_0)))))))))"
+" to-correlated-linklet?94_0"
+" exp-s91_0"
+" temp92_0)))))))))"
 " loop_0)"
 " exp-s_0)))))))))))"
 "(define-values"
 "(expand$1)"
-"(let-values(((expand34_0)"
-"(lambda(s33_0 ns28_0 observable?29_0 to-parsed?30_0 serializable?31_0 to-correlated-linklet?32_0)"
+"(let-values(((expand_0)"
+"(lambda(s25_0 ns20_0 observable?21_0 to-parsed?22_0 serializable?23_0 to-correlated-linklet?24_0)"
 "(begin"
-" 'expand34"
-"(let-values(((s_0) s33_0))"
-"(let-values(((ns_0)(if(eq? ns28_0 unsafe-undefined)(1/current-namespace) ns28_0)))"
-"(let-values(((observable?_0) observable?29_0))"
-"(let-values(((to-parsed?_0) to-parsed?30_0))"
-"(let-values(((serializable?_0) serializable?31_0))"
-"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?32_0))"
+" 'expand"
+"(let-values(((s_0) s25_0))"
+"(let-values(((ns_0)(if(eq? ns20_0 unsafe-undefined)(1/current-namespace) ns20_0)))"
+"(let-values(((observable?_0) observable?21_0))"
+"(let-values(((to-parsed?_0) to-parsed?22_0))"
+"(let-values(((serializable?_0) serializable?23_0))"
+"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?24_0))"
 "(let-values()"
 "(let-values(((observer_0)(if observable?_0(current-expand-observe) #f)))"
 "(begin"
@@ -49392,108 +49328,108 @@ static const char *startup_source =
 " current-expand-observe"
 " #f)"
 "(let-values()"
-"(let-values(((s116_0) s_0)"
-"((ns117_0) ns_0)"
-"((temp118_0)"
+"(let-values(((s96_0) s_0)"
+"((ns97_0) ns_0)"
+"((temp98_0)"
 "(lambda(s_1 ns_1 as-tail?_0)"
-"(let-values(((s122_0) s_1)"
-"((ns123_0) ns_1)"
-"((observer124_0) observer_0)"
-"((to-parsed?125_0) to-parsed?_0)"
-"((serializable?126_0) serializable?_0)"
-"((to-correlated-linklet?127_0)"
+"(let-values(((s102_0) s_1)"
+"((ns103_0) ns_1)"
+"((observer104_0) observer_0)"
+"((to-parsed?105_0) to-parsed?_0)"
+"((serializable?106_0) serializable?_0)"
+"((to-correlated-linklet?107_0)"
 " to-correlated-linklet?_0))"
-"(expand-single44.1"
-" serializable?126_0"
-" to-correlated-linklet?127_0"
-" s122_0"
-" ns123_0"
-" observer124_0"
-" to-parsed?125_0))))"
-"((cons119_0) cons)"
-"((re-pair120_0) re-pair)"
-"((observer121_0) observer_0))"
-"(per-top-level71.1"
-" cons119_0"
+"(expand-single.1"
+" serializable?106_0"
+" to-correlated-linklet?107_0"
+" s102_0"
+" ns103_0"
+" observer104_0"
+" to-parsed?105_0))))"
+"((cons99_0) cons)"
+"((re-pair100_0) re-pair)"
+"((observer101_0) observer_0))"
+"(per-top-level.1"
+" cons99_0"
 " #f"
-" observer121_0"
+" observer101_0"
 " #t"
 " #f"
-" temp118_0"
-" re-pair120_0"
-" s116_0"
-" ns117_0)))))))))))))))))"
+" temp98_0"
+" re-pair100_0"
+" s96_0"
+" ns97_0)))))))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'expand(expand34_0 s_0 unsafe-undefined #f #f #f #f)))"
-"((s_0 ns_0 observable?_0 to-parsed?_0 serializable?_0 to-correlated-linklet?32_0)"
-"(expand34_0 s_0 ns_0 observable?_0 to-parsed?_0 serializable?_0 to-correlated-linklet?32_0))"
-"((s_0 ns_0 observable?_0 to-parsed?_0 serializable?31_0)"
-"(expand34_0 s_0 ns_0 observable?_0 to-parsed?_0 serializable?31_0 #f))"
-"((s_0 ns_0 observable?_0 to-parsed?30_0)(expand34_0 s_0 ns_0 observable?_0 to-parsed?30_0 #f #f))"
-"((s_0 ns_0 observable?29_0)(expand34_0 s_0 ns_0 observable?29_0 #f #f #f))"
-"((s_0 ns28_0)(expand34_0 s_0 ns28_0 #f #f #f #f)))))"
+"((s_0)(begin 'expand(expand_0 s_0 unsafe-undefined #f #f #f #f)))"
+"((s_0 ns_0 observable?_0 to-parsed?_0 serializable?_0 to-correlated-linklet?24_0)"
+"(expand_0 s_0 ns_0 observable?_0 to-parsed?_0 serializable?_0 to-correlated-linklet?24_0))"
+"((s_0 ns_0 observable?_0 to-parsed?_0 serializable?23_0)"
+"(expand_0 s_0 ns_0 observable?_0 to-parsed?_0 serializable?23_0 #f))"
+"((s_0 ns_0 observable?_0 to-parsed?22_0)(expand_0 s_0 ns_0 observable?_0 to-parsed?22_0 #f #f))"
+"((s_0 ns_0 observable?21_0)(expand_0 s_0 ns_0 observable?21_0 #f #f #f))"
+"((s_0 ns20_0)(expand_0 s_0 ns20_0 #f #f #f #f)))))"
 "(define-values"
-"(expand-single44.1)"
-"(lambda(serializable?36_0 to-correlated-linklet?37_0 s40_0 ns41_0 observer42_0 to-parsed?43_0)"
+"(expand-single.1)"
+"(lambda(serializable?26_0 to-correlated-linklet?27_0 s30_0 ns31_0 observer32_0 to-parsed?33_0)"
 "(begin"
-" 'expand-single44"
-"(let-values(((s_0) s40_0))"
-"(let-values(((ns_0) ns41_0))"
-"(let-values(((observer_0) observer42_0))"
-"(let-values(((to-parsed?_0) to-parsed?43_0))"
-"(let-values(((serializable?_0) serializable?36_0))"
-"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?37_0))"
+" 'expand-single"
+"(let-values(((s_0) s30_0))"
+"(let-values(((ns_0) ns31_0))"
+"(let-values(((observer_0) observer32_0))"
+"(let-values(((to-parsed?_0) to-parsed?33_0))"
+"(let-values(((serializable?_0) serializable?26_0))"
+"(let-values(((to-correlated-linklet?_0) to-correlated-linklet?27_0))"
 "(let-values()"
 "(let-values(((rebuild-s_0)(keep-properties-only s_0)))"
 "(let-values(((ctx_0)"
-"(let-values(((ns128_0) ns_0)"
-"((to-parsed?129_0) to-parsed?_0)"
-"((serializable?130_0) serializable?_0)"
-"((to-correlated-linklet?131_0) to-correlated-linklet?_0)"
-"((observer132_0) observer_0))"
-"(make-expand-context12.1"
-" serializable?130_0"
-" observer132_0"
-" to-correlated-linklet?131_0"
-" to-parsed?129_0"
-" ns128_0))))"
+"(let-values(((ns108_0) ns_0)"
+"((to-parsed?109_0) to-parsed?_0)"
+"((serializable?110_0) serializable?_0)"
+"((to-correlated-linklet?111_0) to-correlated-linklet?_0)"
+"((observer112_0) observer_0))"
+"(make-expand-context.1"
+" serializable?110_0"
+" observer112_0"
+" to-correlated-linklet?111_0"
+" to-parsed?109_0"
+" ns108_0))))"
 "(let-values(((require-lifts_0 lifts_0 exp-s_0)(expand-capturing-lifts s_0 ctx_0)))"
 "(if(if(null? require-lifts_0)(null? lifts_0) #f)"
 "(let-values() exp-s_0)"
 "(if to-parsed?_0"
 "(let-values()"
-"(let-values(((require-lifts133_0) require-lifts_0)"
-"((lifts134_0) lifts_0)"
-"((exp-s135_0) exp-s_0)"
-"((rebuild-s136_0) rebuild-s_0)"
-"((temp137_0)"
+"(let-values(((require-lifts113_0) require-lifts_0)"
+"((lifts114_0) lifts_0)"
+"((exp-s115_0) exp-s_0)"
+"((rebuild-s116_0) rebuild-s_0)"
+"((temp117_0)"
 "(lambda(form_0)"
-"(let-values(((form138_0) form_0)"
-"((ns139_0) ns_0)"
-"((observer140_0) observer_0)"
-"((to-parsed?141_0) to-parsed?_0)"
-"((serializable?142_0) serializable?_0))"
-"(expand-single44.1"
-" serializable?142_0"
+"(let-values(((form118_0) form_0)"
+"((ns119_0) ns_0)"
+"((observer120_0) observer_0)"
+"((to-parsed?121_0) to-parsed?_0)"
+"((serializable?122_0) serializable?_0))"
+"(expand-single.1"
+" serializable?122_0"
 " #f"
-" form138_0"
-" ns139_0"
-" observer140_0"
-" to-parsed?141_0)))))"
-"(wrap-lifts-as-lifted-parsed-begin80.1"
-" temp137_0"
-" require-lifts133_0"
-" lifts134_0"
-" exp-s135_0"
-" rebuild-s136_0)))"
+" form118_0"
+" ns119_0"
+" observer120_0"
+" to-parsed?121_0)))))"
+"(wrap-lifts-as-lifted-parsed-begin.1"
+" temp117_0"
+" require-lifts113_0"
+" lifts114_0"
+" exp-s115_0"
+" rebuild-s116_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(log-top-lift-begin-before ctx_0 require-lifts_0 lifts_0 exp-s_0 ns_0)"
 "(values))))"
 "(let-values(((new-s_0)"
-"(let-values(((temp143_0)(append require-lifts_0 lifts_0))"
-"((temp144_0)"
+"(let-values(((temp123_0)(append require-lifts_0 lifts_0))"
+"((temp124_0)"
 "(lambda(form_0)"
 "(begin"
 "(let-values(((obs_0)"
@@ -49503,19 +49439,19 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe obs_0 'next)))"
 "(void)))"
-"(let-values(((form148_0) form_0)"
-"((ns149_0) ns_0)"
-"((observer150_0) observer_0)"
-"((to-parsed?151_0) to-parsed?_0)"
-"((serializable?152_0) serializable?_0))"
-"(expand-single44.1"
-" serializable?152_0"
+"(let-values(((form128_0) form_0)"
+"((ns129_0) ns_0)"
+"((observer130_0) observer_0)"
+"((to-parsed?131_0) to-parsed?_0)"
+"((serializable?132_0) serializable?_0))"
+"(expand-single.1"
+" serializable?132_0"
 " #f"
-" form148_0"
-" ns149_0"
-" observer150_0"
-" to-parsed?151_0)))))"
-"((temp145_0)"
+" form128_0"
+" ns129_0"
+" observer130_0"
+" to-parsed?131_0)))))"
+"((temp125_0)"
 "(lambda(form_0)"
 "(if to-parsed?_0"
 "(let-values() form_0)"
@@ -49528,57 +49464,57 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe obs_0 'next)))"
 "(void)))"
-"(let-values(((form153_0) form_0)"
-"((ns154_0) ns_0)"
-"((observer155_0) observer_0)"
-"((to-parsed?156_0) to-parsed?_0)"
-"((serializable?157_0)"
+"(let-values(((form133_0) form_0)"
+"((ns134_0) ns_0)"
+"((observer135_0) observer_0)"
+"((to-parsed?136_0) to-parsed?_0)"
+"((serializable?137_0)"
 " serializable?_0))"
-"(expand-single44.1"
-" serializable?157_0"
+"(expand-single.1"
+" serializable?137_0"
 " #f"
-" form153_0"
-" ns154_0"
-" observer155_0"
-" to-parsed?156_0)))))))"
-"((exp-s146_0) exp-s_0)"
-"((temp147_0)(namespace-phase ns_0)))"
-"(wrap-lifts-as-begin16.1"
-" temp145_0"
-" temp144_0"
-" temp143_0"
-" exp-s146_0"
-" temp147_0))))"
+" form133_0"
+" ns134_0"
+" observer135_0"
+" to-parsed?136_0)))))))"
+"((exp-s126_0) exp-s_0)"
+"((temp127_0)(namespace-phase ns_0)))"
+"(wrap-lifts-as-begin.1"
+" temp125_0"
+" temp124_0"
+" temp123_0"
+" exp-s126_0"
+" temp127_0))))"
 "(begin(log-top-begin-after ctx_0 new-s_0) new-s_0)))))))))))))))))))"
 "(define-values"
 "(expand-once$1)"
-"(let-values(((expand-once49_0)"
-"(lambda(s48_0 ns47_0)"
+"(let-values(((expand-once_0)"
+"(lambda(s36_0 ns35_0)"
 "(begin"
-" 'expand-once49"
-"(let-values(((s_0) s48_0))"
-"(let-values(((ns_0)(if(eq? ns47_0 unsafe-undefined)(1/current-namespace) ns47_0)))"
+" 'expand-once"
+"(let-values(((s_0) s36_0))"
+"(let-values(((ns_0)(if(eq? ns35_0 unsafe-undefined)(1/current-namespace) ns35_0)))"
 "(let-values()"
-"(let-values(((s158_0) s_0)"
-"((ns159_0) ns_0)"
-"((temp160_0)(lambda(s_1 ns_1 as-tail?_0)(expand-single-once s_1 ns_1)))"
-"((cons161_0) cons)"
-"((re-pair162_0) re-pair)"
-"((temp163_0) #t)"
-"((temp164_0) #f))"
-"(per-top-level71.1"
-" cons161_0"
-" temp163_0"
-" temp164_0"
+"(let-values(((s138_0) s_0)"
+"((ns139_0) ns_0)"
+"((temp140_0)(lambda(s_1 ns_1 as-tail?_0)(expand-single-once s_1 ns_1)))"
+"((cons141_0) cons)"
+"((re-pair142_0) re-pair)"
+"((temp143_0) #t)"
+"((temp144_0) #f))"
+"(per-top-level.1"
+" cons141_0"
+" temp143_0"
+" temp144_0"
 " #t"
 " #f"
-" temp160_0"
-" re-pair162_0"
-" s158_0"
-" ns159_0)))))))))"
+" temp140_0"
+" re-pair142_0"
+" s138_0"
+" ns139_0)))))))))"
 "(case-lambda"
-"((s_0)(begin 'expand-once(expand-once49_0 s_0 unsafe-undefined)))"
-"((s_0 ns47_0)(expand-once49_0 s_0 ns47_0)))))"
+"((s_0)(begin 'expand-once(expand-once_0 s_0 unsafe-undefined)))"
+"((s_0 ns35_0)(expand-once_0 s_0 ns35_0)))))"
 "(define-values"
 "(expand-single-once)"
 "(lambda(s_0 ns_0)"
@@ -49586,13 +49522,13 @@ static const char *startup_source =
 "(let-values(((require-lifts_0 lifts_0 exp-s_0)"
 "(expand-capturing-lifts"
 " s_0"
-"(let-values(((v_0)(let-values(((ns165_0) ns_0))(make-expand-context12.1 #f #f #f #f ns165_0))))"
+"(let-values(((v_0)(let-values(((ns145_0) ns_0))(make-expand-context.1 #f #f #f #f ns145_0))))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((inner166_0)"
+"(let-values(((inner146_0)"
 "(let-values(((the-struct_1)(root-expand-context/outer-inner v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((just-once?167_0) #t))"
+"(let-values(((just-once?147_0) #t))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi the-struct_1)"
 "(root-expand-context/inner-module-scopes the-struct_1)"
@@ -49604,7 +49540,7 @@ static const char *startup_source =
 "(expand-context/inner-to-parsed? the-struct_1)"
 "(expand-context/inner-phase the-struct_1)"
 "(expand-context/inner-namespace the-struct_1)"
-" just-once?167_0"
+" just-once?147_0"
 "(expand-context/inner-module-begin-k the-struct_1)"
 "(expand-context/inner-allow-unbound? the-struct_1)"
 "(expand-context/inner-in-local-expand? the-struct_1)"
@@ -49627,7 +49563,7 @@ static const char *startup_source =
 "                                              \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner166_0"
+" inner146_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -49646,18 +49582,18 @@ static const char *startup_source =
 "(if(if(null? require-lifts_0)(null? lifts_0) #f)"
 "(let-values() exp-s_0)"
 "(let-values()"
-"(let-values(((temp168_0)(append require-lifts_0 lifts_0))"
-"((exp-s169_0) exp-s_0)"
-"((temp170_0)(namespace-phase ns_0)))"
-"(wrap-lifts-as-begin16.1 unsafe-undefined unsafe-undefined temp168_0 exp-s169_0 temp170_0))))))))"
+"(let-values(((temp148_0)(append require-lifts_0 lifts_0))"
+"((exp-s149_0) exp-s_0)"
+"((temp150_0)(namespace-phase ns_0)))"
+"(wrap-lifts-as-begin.1 unsafe-undefined unsafe-undefined temp148_0 exp-s149_0 temp150_0))))))))"
 "(define-values"
 "(expand-to-top-form$1)"
-"(let-values(((expand-to-top-form53_0)"
-"(lambda(s52_0 ns51_0)"
+"(let-values(((expand-to-top-form_0)"
+"(lambda(s38_0 ns37_0)"
 "(begin"
-" 'expand-to-top-form53"
-"(let-values(((s_0) s52_0))"
-"(let-values(((ns_0)(if(eq? ns51_0 unsafe-undefined)(1/current-namespace) ns51_0)))"
+" 'expand-to-top-form"
+"(let-values(((s_0) s38_0))"
+"(let-values(((ns_0)(if(eq? ns37_0 unsafe-undefined)(1/current-namespace) ns37_0)))"
 "(let-values()"
 "(let-values(((observer_0)(current-expand-observe)))"
 "(begin"
@@ -49669,51 +49605,51 @@ static const char *startup_source =
 " current-expand-observe"
 " #f)"
 "(let-values()"
-"(let-values(((s171_0) s_0)"
-"((ns172_0) ns_0)"
-"((temp173_0) #f)"
-"((temp174_0) #f)"
-"((observer175_0) observer_0))"
-"(per-top-level71.1"
+"(let-values(((s151_0) s_0)"
+"((ns152_0) ns_0)"
+"((temp153_0) #f)"
+"((temp154_0) #f)"
+"((observer155_0) observer_0))"
+"(per-top-level.1"
 " #f"
 " #f"
-" observer175_0"
-" temp174_0"
+" observer155_0"
+" temp154_0"
 " #f"
-" temp173_0"
+" temp153_0"
 " #f"
-" s171_0"
-" ns172_0)))))))))))))"
+" s151_0"
+" ns152_0)))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'expand-to-top-form(expand-to-top-form53_0 s_0 unsafe-undefined)))"
-"((s_0 ns51_0)(expand-to-top-form53_0 s_0 ns51_0)))))"
+"((s_0)(begin 'expand-to-top-form(expand-to-top-form_0 s_0 unsafe-undefined)))"
+"((s_0 ns37_0)(expand-to-top-form_0 s_0 ns37_0)))))"
 "(define-values"
-"(per-top-level71.1)"
-"(lambda(combine56_0"
-" just-once?58_0"
-" observer61_0"
-" quick-immediate?59_0"
-" serializable?60_0"
-" single55_0"
-" wrap57_0"
-" given-s69_0"
-" ns70_0)"
+"(per-top-level.1)"
+"(lambda(combine40_0"
+" just-once?42_0"
+" observer45_0"
+" quick-immediate?43_0"
+" serializable?44_0"
+" single39_0"
+" wrap41_0"
+" given-s53_0"
+" ns54_0)"
 "(begin"
-" 'per-top-level71"
-"(let-values(((given-s_0) given-s69_0))"
-"(let-values(((ns_0) ns70_0))"
-"(let-values(((single_0) single55_0))"
-"(let-values(((combine_0) combine56_0))"
-"(let-values(((wrap_0) wrap57_0))"
-"(let-values(((just-once?_0) just-once?58_0))"
-"(let-values(((quick-immediate?_0) quick-immediate?59_0))"
-"(let-values(((serializable?_0) serializable?60_0))"
-"(let-values(((observer_0) observer61_0))"
+" 'per-top-level"
+"(let-values(((given-s_0) given-s53_0))"
+"(let-values(((ns_0) ns54_0))"
+"(let-values(((single_0) single39_0))"
+"(let-values(((combine_0) combine40_0))"
+"(let-values(((wrap_0) wrap41_0))"
+"(let-values(((just-once?_0) just-once?42_0))"
+"(let-values(((quick-immediate?_0) quick-immediate?43_0))"
+"(let-values(((serializable?_0) serializable?44_0))"
+"(let-values(((observer_0) observer45_0))"
 "(let-values()"
 "(let-values(((s_0)(maybe-intro given-s_0 ns_0)))"
 "(let-values(((ctx_0)"
-"(let-values(((ns176_0) ns_0)((observer177_0) observer_0))"
-"(make-expand-context12.1 #f observer177_0 #f #f ns176_0))))"
+"(let-values(((ns156_0) ns_0)((observer157_0) observer_0))"
+"(make-expand-context.1 #f observer157_0 #f #f ns156_0))))"
 "(let-values(((phase_0)(namespace-phase ns_0)))"
 "((letrec-values(((loop_0)"
 "(lambda(s_1 phase_1 ns_1 as-tail?_0)"
@@ -49723,19 +49659,19 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((inner178_0)"
+"(let-values(((inner158_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((phase179_0)"
+"(let-values(((phase159_0)"
 " phase_1)"
-"((namespace180_0)"
+"((namespace160_0)"
 " ns_1)"
-"((just-once?181_0)"
+"((just-once?161_0)"
 " just-once?_0)"
-"((for-serializable?182_0)"
+"((for-serializable?162_0)"
 " serializable?_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -49754,9 +49690,9 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-to-parsed?"
 " the-struct_1)"
-" phase179_0"
-" namespace180_0"
-" just-once?181_0"
+" phase159_0"
+" namespace160_0"
+" just-once?161_0"
 "(expand-context/inner-module-begin-k"
 " the-struct_1)"
 "(expand-context/inner-allow-unbound?"
@@ -49783,7 +49719,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-observer"
 " the-struct_1)"
-" for-serializable?182_0"
+" for-serializable?162_0"
 "(expand-context/inner-to-correlated-linklet?"
 " the-struct_1)"
 "(expand-context/inner-normalize-locals?"
@@ -49795,7 +49731,7 @@ static const char *startup_source =
 "                                                                                             \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner178_0"
+" inner158_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -49845,17 +49781,17 @@ static const char *startup_source =
 "(let-values(((v_0) tl-ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((only-immediate?183_0)"
+"(let-values(((only-immediate?163_0)"
 " #t)"
-"((inner184_0)"
+"((inner164_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((phase185_0)"
+"(let-values(((phase165_0)"
 " phase_1)"
-"((namespace186_0)"
+"((namespace166_0)"
 " ns_1))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -49874,8 +49810,8 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-to-parsed?"
 " the-struct_1)"
-" phase185_0"
-" namespace186_0"
+" phase165_0"
+" namespace166_0"
 "(expand-context/inner-just-once?"
 " the-struct_1)"
 "(expand-context/inner-module-begin-k"
@@ -49917,7 +49853,7 @@ static const char *startup_source =
 "                                                                                                    \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner184_0"
+" inner164_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -49936,7 +49872,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-reference-records"
 " the-struct_0)"
-" only-immediate?183_0"
+" only-immediate?163_0"
 "(expand-context/outer-need-eventually-defined"
 " the-struct_0)"
 "(expand-context/outer-current-introduction-scopes"
@@ -49955,18 +49891,18 @@ static const char *startup_source =
 "(if or-part_0 or-part_0(pair? lifts_0)))"
 "(let-values()"
 "(let-values(((new-s_0)"
-"(let-values(((temp187_0)"
+"(let-values(((temp167_0)"
 "(append"
 " require-lifts_0"
 " lifts_0))"
-"((exp-s188_0) exp-s_0)"
-"((phase189_0) phase_1))"
-"(wrap-lifts-as-begin16.1"
+"((exp-s168_0) exp-s_0)"
+"((phase169_0) phase_1))"
+"(wrap-lifts-as-begin.1"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp187_0"
-" exp-s188_0"
-" phase189_0))))"
+" temp167_0"
+" exp-s168_0"
+" phase169_0))))"
 "(begin"
 "(let-values(((obs_0)"
 "(expand-context-observer"
@@ -50019,13 +49955,13 @@ static const char *startup_source =
 " 'prim-begin)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_0 begin190_0 e191_0)"
+"(let-values(((ok?_0 begin170_0 e171_0)"
 "(let-values(((s_2)"
 " disarmed-exp-s_0))"
 "(let-values(((orig-s_0)"
 " s_2))"
-"(let-values(((begin190_0"
-" e191_0)"
+"(let-values(((begin170_0"
+" e171_0)"
 "(let-values(((s_3)"
 "(if(syntax?$1"
 " s_2)"
@@ -50034,12 +49970,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((begin192_0)"
+"(let-values(((begin172_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((e193_0)"
+"((e173_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -50062,16 +49998,16 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" begin192_0"
-" e193_0))"
+" begin172_0"
+" e173_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                     \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" begin190_0"
-" e191_0))))))"
+" begin170_0"
+" e171_0))))))"
 "(letrec-values(((begin-loop_0)"
 "(lambda(es_0)"
 "(begin"
@@ -50136,10 +50072,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((new-s_0)"
 "(wrap_0"
-" begin190_0"
+" begin170_0"
 " exp-s_0"
 "(begin-loop_0"
-" e191_0))))"
+" e171_0))))"
 "(begin"
 "(let-values(((obs_0)"
 "(expand-context-observer"
@@ -50154,7 +50090,7 @@ static const char *startup_source =
 "(void)))"
 " new-s_0)))"
 "(let-values()"
-"(begin-loop_0 e191_0)))))))"
+"(begin-loop_0 e171_0)))))))"
 "(if(equal? tmp_0 'begin-for-syntax)"
 "(let-values()"
 "(let-values((()"
@@ -50171,14 +50107,14 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_0"
-" begin-for-syntax194_0"
-" e195_0)"
+" begin-for-syntax174_0"
+" e175_0)"
 "(let-values(((s_2)"
 " disarmed-exp-s_0))"
 "(let-values(((orig-s_0)"
 " s_2))"
-"(let-values(((begin-for-syntax194_0"
-" e195_0)"
+"(let-values(((begin-for-syntax174_0"
+" e175_0)"
 "(let-values(((s_3)"
 "(if(syntax?$1"
 " s_2)"
@@ -50187,12 +50123,12 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((begin-for-syntax196_0)"
+"(let-values(((begin-for-syntax176_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((e197_0)"
+"((e177_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -50215,16 +50151,16 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" begin-for-syntax196_0"
-" e197_0))"
+" begin-for-syntax176_0"
+" e177_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                       \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" begin-for-syntax194_0"
-" e195_0))))))"
+" begin-for-syntax174_0"
+" e175_0))))))"
 "(let-values(((next-phase_0)"
 "(add1 phase_1)))"
 "(let-values(((next-ns_0)"
@@ -50260,7 +50196,7 @@ static const char *startup_source =
 "(let-values(((l_0)"
 "(reverse$1"
 "(let-values(((lst_0)"
-" e195_0))"
+" e175_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -50321,7 +50257,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((new-s_0)"
 "(wrap_0"
-" begin-for-syntax194_0"
+" begin-for-syntax174_0"
 " exp-s_0"
 " l_0)))"
 "(begin"
@@ -50372,26 +50308,26 @@ static const char *startup_source =
 "(let-values(((ns_0)(expand-context-namespace ctx_0)))"
 "(let-values((()(begin(namespace-visit-available-modules! ns_0)(values))))"
 "(let-values(((lift-ctx_0)"
-"(let-values(((temp198_0)(make-top-level-lift ctx_0)))"
-"(make-lift-context6.1 #f temp198_0))))"
+"(let-values(((temp178_0)(make-top-level-lift ctx_0)))"
+"(make-lift-context.1 #f temp178_0))))"
 "(let-values(((require-lift-ctx_0)"
 "(make-require-lift-context"
 "(namespace-phase ns_0)"
 "(make-parse-top-lifted-require ns_0))))"
 "(let-values(((exp-s_0)"
-"(let-values(((s199_0) s_0)"
-"((temp200_0)"
+"(let-values(((s179_0) s_0)"
+"((temp180_0)"
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((inner201_0)"
+"(let-values(((inner181_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((lifts202_0) lift-ctx_0)"
-"((module-lifts203_0) lift-ctx_0)"
-"((require-lifts204_0)"
+"(let-values(((lifts182_0) lift-ctx_0)"
+"((module-lifts183_0) lift-ctx_0)"
+"((require-lifts184_0)"
 " require-lift-ctx_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -50425,10 +50361,10 @@ static const char *startup_source =
 "(expand-context/inner-stops the-struct_1)"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_1)"
-" lifts202_0"
+" lifts182_0"
 "(expand-context/inner-lift-envs the-struct_1)"
-" module-lifts203_0"
-" require-lifts204_0"
+" module-lifts183_0"
+" require-lifts184_0"
 "(expand-context/inner-to-module-lifts"
 " the-struct_1)"
 "(expand-context/inner-requires+provides"
@@ -50447,7 +50383,7 @@ static const char *startup_source =
 "                                                                         \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner201_0"
+" inner181_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -50466,7 +50402,7 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                       \"expand-context/outer?\""
 " the-struct_0))))))"
-"(expand9.1 #f #f #f s199_0 temp200_0))))"
+"(expand.1 #f #f #f s179_0 temp180_0))))"
 "(values"
 "(get-and-clear-require-lifts! require-lift-ctx_0)"
 "(get-and-clear-lifts! lift-ctx_0)"
@@ -50477,19 +50413,19 @@ static const char *startup_source =
 "(lambda(ns_0)"
 "(begin"
 "(lambda(s_0 phase_0)"
-"(let-values(((ok?_0 #%require205_0 req206_0)"
+"(let-values(((ok?_0 #%require185_0 req186_0)"
 "(let-values(((s_1)(syntax-disarm$1 s_0)))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%require205_0 req206_0)"
+"(let-values(((#%require185_0 req186_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%require207_0)(let-values(((s_3)(car s_2))) s_3))"
-"((req208_0)"
+"(let-values(((#%require187_0)(let-values(((s_3)(car s_2))) s_3))"
+"((req188_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((req209_0)"
+"(let-values(((req189_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
@@ -50503,46 +50439,46 @@ static const char *startup_source =
 " #f"
 "                                                                                     \"bad syntax\""
 " orig-s_0))))))"
-"(values req209_0))"
+"(values req189_0))"
 "                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values #%require207_0 req208_0))"
+"(values #%require187_0 req188_0))"
 "                                            (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%require205_0 req206_0))))))"
-"(let-values(((temp210_0)(list req206_0))"
-"((s211_0) s_0)"
-"((ns212_0) ns_0)"
-"((phase213_0) phase_0)"
-"((phase214_0) phase_0)"
-"((temp215_0)(let-values(((temp217_0) #f))(make-requires+provides8.1 #f temp217_0)))"
-"((temp216_0) 'require))"
-"(parse-and-perform-requires!30.1"
+"(values #t #%require185_0 req186_0))))))"
+"(let-values(((temp190_0)(list req186_0))"
+"((s191_0) s_0)"
+"((ns192_0) ns_0)"
+"((phase193_0) phase_0)"
+"((phase194_0) phase_0)"
+"((temp195_0)(let-values(((temp197_0) #f))(make-requires+provides.1 #f temp197_0)))"
+"((temp196_0) 'require))"
+"(parse-and-perform-requires!.1"
 " #f"
 " #f"
 " unsafe-undefined"
 " #f"
-" phase214_0"
+" phase194_0"
 " #f"
 " #f"
 " #f"
 " #t"
-" temp216_0"
-" temp210_0"
-" s211_0"
-" ns212_0"
-" phase213_0"
-" temp215_0)))))))"
+" temp196_0"
+" temp190_0"
+" s191_0"
+" ns192_0"
+" phase193_0"
+" temp195_0)))))))"
 "(define-values"
-"(wrap-lifts-as-lifted-parsed-begin80.1)"
-"(lambda(adjust-form74_0 require-lifts76_0 lifts77_0 exp-s78_0 rebuild-s79_0)"
+"(wrap-lifts-as-lifted-parsed-begin.1)"
+"(lambda(adjust-form56_0 require-lifts58_0 lifts59_0 exp-s60_0 rebuild-s61_0)"
 "(begin"
-" 'wrap-lifts-as-lifted-parsed-begin80"
-"(let-values(((require-lifts_0) require-lifts76_0))"
-"(let-values(((lifts_0) lifts77_0))"
-"(let-values(((exp-s_0) exp-s78_0))"
-"(let-values(((rebuild-s_0) rebuild-s79_0))"
-"(let-values(((adjust-form_0) adjust-form74_0))"
+" 'wrap-lifts-as-lifted-parsed-begin"
+"(let-values(((require-lifts_0) require-lifts58_0))"
+"(let-values(((lifts_0) lifts59_0))"
+"(let-values(((exp-s_0) exp-s60_0))"
+"(let-values(((rebuild-s_0) rebuild-s61_0))"
+"(let-values(((adjust-form_0) adjust-form56_0))"
 "(let-values()"
-"(lifted-parsed-begin17.1"
+"(lifted-parsed-begin11.1"
 "(append"
 "(reverse$1"
 "(let-values(((lst_0) require-lifts_0))"
@@ -50614,12 +50550,12 @@ static const char *startup_source =
 " exp-rhs_0))"
 "(if(lifted-parsed-begin?"
 " the-struct_0)"
-"(let-values(((last218_0)"
+"(let-values(((last198_0)"
 " dv_0))"
-"(lifted-parsed-begin17.1"
+"(lifted-parsed-begin11.1"
 "(lifted-parsed-begin-seq"
 " the-struct_0)"
-" last218_0))"
+" last198_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                   \"lifted-parsed-begin?\""
@@ -50641,15 +50577,10 @@ static const char *startup_source =
 "(if obs_0"
 "(let-values()"
 "(let-values(((new-s_0)"
-"(let-values(((temp219_0)(append require-lifts_0 lifts_0))"
-"((exp-s220_0) exp-s_0)"
-"((temp221_0)(namespace-phase ns_0)))"
-"(wrap-lifts-as-begin16.1"
-" unsafe-undefined"
-" unsafe-undefined"
-" temp219_0"
-" exp-s220_0"
-" temp221_0))))"
+"(let-values(((temp199_0)(append require-lifts_0 lifts_0))"
+"((exp-s200_0) exp-s_0)"
+"((temp201_0)(namespace-phase ns_0)))"
+"(wrap-lifts-as-begin.1 unsafe-undefined unsafe-undefined temp199_0 exp-s200_0 temp201_0))))"
 "(begin(call-expand-observe obs_0 'lift-loop new-s_0)(log-top-begin-before ctx_0 new-s_0))))"
 "(void))))))"
 "(define-values"
@@ -50659,14 +50590,14 @@ static const char *startup_source =
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0"
 "(let-values()"
-"(let-values(((ok?_0 begin222_0 e223_0)"
+"(let-values(((ok?_0 begin202_0 e203_0)"
 "(let-values(((s_0) new-s_0))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((begin222_0 e223_0)"
+"(let-values(((begin202_0 e203_0)"
 "(let-values(((s_1)(if(syntax?$1 s_0)(syntax-e$1 s_0) s_0)))"
 "(if(pair? s_1)"
-"(let-values(((begin224_0)(let-values(((s_2)(car s_1))) s_2))"
-"((e225_0)"
+"(let-values(((begin204_0)(let-values(((s_2)(car s_1))) s_2))"
+"((e205_0)"
 "(let-values(((s_2)(cdr s_1)))"
 "(let-values(((s_3)"
 "(if(syntax?$1 s_2)"
@@ -50677,15 +50608,15 @@ static const char *startup_source =
 "(let-values()"
 "                                                                        (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))"
 "(let-values() flat-s_0)))))))"
-"(values begin224_0 e225_0))"
+"(values begin204_0 e205_0))"
 "                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t begin222_0 e223_0))))))"
+"(values #t begin202_0 e203_0))))))"
 "(begin"
 "(call-expand-observe obs_0 'visit new-s_0)"
-"(call-expand-observe obs_0 'resolve begin222_0)"
+"(call-expand-observe obs_0 'resolve begin202_0)"
 "(call-expand-observe obs_0 'enter-prim new-s_0)"
 "(call-expand-observe obs_0 'prim-begin)"
-"(call-expand-observe obs_0 'enter-list(1/datum->syntax #f e223_0 new-s_0)))))"
+"(call-expand-observe obs_0 'enter-list(1/datum->syntax #f e203_0 new-s_0)))))"
 "(void))))))"
 "(define-values"
 "(log-top-begin-after)"
@@ -50694,14 +50625,14 @@ static const char *startup_source =
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0"
 "(let-values()"
-"(let-values(((ok?_0 begin226_0 e227_0)"
+"(let-values(((ok?_0 begin206_0 e207_0)"
 "(let-values(((s_0) new-s_0))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((begin226_0 e227_0)"
+"(let-values(((begin206_0 e207_0)"
 "(let-values(((s_1)(if(syntax?$1 s_0)(syntax-e$1 s_0) s_0)))"
 "(if(pair? s_1)"
-"(let-values(((begin228_0)(let-values(((s_2)(car s_1))) s_2))"
-"((e229_0)"
+"(let-values(((begin208_0)(let-values(((s_2)(car s_1))) s_2))"
+"((e209_0)"
 "(let-values(((s_2)(cdr s_1)))"
 "(let-values(((s_3)"
 "(if(syntax?$1 s_2)"
@@ -50712,15 +50643,15 @@ static const char *startup_source =
 "(let-values()"
 "                                                                        (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))"
 "(let-values() flat-s_0)))))))"
-"(values begin228_0 e229_0))"
+"(values begin208_0 e209_0))"
 "                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t begin226_0 e227_0))))))"
+"(values #t begin206_0 e207_0))))))"
 "(let-values(((obs_1)(expand-context-observer ctx_0)))"
 "(if obs_1"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_1 'exit-list(1/datum->syntax #f e227_0 new-s_0))"
+"(call-expand-observe obs_1 'exit-list(1/datum->syntax #f e207_0 new-s_0))"
 "(call-expand-observe obs_1 'exit-prim new-s_0)"
 "(call-expand-observe obs_1 'return new-s_0))))"
 "(void)))))"
@@ -51049,24 +50980,24 @@ static const char *startup_source =
 "(expand-to-top-form$1 s_0)))))))"
 "(define-values"
 "(intro)"
-"(let-values(((intro3_0)"
+"(let-values(((intro_0)"
 "(lambda(given-s2_0 ns1_0)"
 "(begin"
-" 'intro3"
+" 'intro"
 "(let-values(((given-s_0) given-s2_0))"
 "(let-values(((ns_0)(if(eq? ns1_0 unsafe-undefined)(1/current-namespace) ns1_0)))"
 "(let-values()"
 "(let-values(((s_0)(if(syntax?$1 given-s_0) given-s_0(1/datum->syntax #f given-s_0))))"
 "(1/namespace-syntax-introduce s_0 ns_0)))))))))"
 "(case-lambda"
-"((given-s_0)(begin(intro3_0 given-s_0 unsafe-undefined)))"
-"((given-s_0 ns1_0)(intro3_0 given-s_0 ns1_0)))))"
+"((given-s_0)(begin(intro_0 given-s_0 unsafe-undefined)))"
+"((given-s_0 ns1_0)(intro_0 given-s_0 ns1_0)))))"
 "(define-values"
 "(do-dynamic-require)"
-"(let-values(((do-dynamic-require5_0)"
+"(let-values(((do-dynamic-require_0)"
 "(lambda(who2_0 mod-path3_0 sym4_0 fail-k1_0)"
 "(begin"
-" 'do-dynamic-require5"
+" 'do-dynamic-require"
 "(let-values(((who_0) who2_0))"
 "(let-values(((mod-path_0) mod-path3_0))"
 "(let-values(((sym_0) sym4_0))"
@@ -51125,44 +51056,40 @@ static const char *startup_source =
 "(let-values(((phase_0)(namespace-phase ns_0)))"
 "(if(not sym_0)"
 "(let-values()"
-"(let-values(((ns17_0) ns_0)"
-"((mpi18_0) mpi_0)"
-"((phase19_0) phase_0)"
-"((phase20_0) phase_0)"
-"((temp21_0) #f))"
-"(namespace-module-instantiate!96.1"
-" temp21_0"
-" phase20_0"
+"(let-values(((ns11_0) ns_0)"
+"((mpi12_0) mpi_0)"
+"((phase13_0) phase_0)"
+"((phase14_0) phase_0)"
+"((temp15_0) #f))"
+"(namespace-module-instantiate!.1"
+" temp15_0"
+" phase14_0"
 " unsafe-undefined"
 " #f"
-" ns17_0"
-" mpi18_0"
-" phase19_0)))"
+" ns11_0"
+" mpi12_0"
+" phase13_0)))"
 "(if(equal? sym_0 0)"
 "(let-values()"
-"(let-values(((ns22_0) ns_0)"
-"((mpi23_0) mpi_0)"
-"((phase24_0) phase_0)"
-"((phase25_0) phase_0))"
-"(namespace-module-instantiate!96.1"
+"(let-values(((ns16_0) ns_0)"
+"((mpi17_0) mpi_0)"
+"((phase18_0) phase_0)"
+"((phase19_0) phase_0))"
+"(namespace-module-instantiate!.1"
 " #t"
-" phase25_0"
+" phase19_0"
 " unsafe-undefined"
 " #f"
-" ns22_0"
-" mpi23_0"
-" phase24_0)))"
+" ns16_0"
+" mpi17_0"
+" phase18_0)))"
 "(if(void? sym_0)"
 "(let-values()"
-"(let-values(((ns26_0) ns_0)"
-"((mpi27_0) mpi_0)"
-"((phase28_0) phase_0)"
-"((phase29_0) phase_0))"
-"(namespace-module-visit!104.1"
-" phase29_0"
-" ns26_0"
-" mpi27_0"
-" phase28_0)))"
+"(let-values(((ns20_0) ns_0)"
+"((mpi21_0) mpi_0)"
+"((phase22_0) phase_0)"
+"((phase23_0) phase_0))"
+"(namespace-module-visit!.1 phase23_0 ns20_0 mpi21_0 phase22_0)))"
 "(let-values()"
 "(let-values(((m_0)(namespace->module ns_0 mod-name_0)))"
 "(let-values((()"
@@ -51199,19 +51126,19 @@ static const char *startup_source =
 "(module-binding-phase binding_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ns30_0) ns_0)"
-"((mpi31_0) mpi_0)"
-"((phase32_0) phase_0)"
-"((phase33_0) phase_0)"
-"((temp34_0) #f))"
-"(namespace-module-instantiate!96.1"
-" temp34_0"
-" phase33_0"
+"(let-values(((ns24_0) ns_0)"
+"((mpi25_0) mpi_0)"
+"((phase26_0) phase_0)"
+"((phase27_0) phase_0)"
+"((temp28_0) #f))"
+"(namespace-module-instantiate!.1"
+" temp28_0"
+" phase27_0"
 " unsafe-undefined"
 " #f"
-" ns30_0"
-" mpi31_0"
-" phase32_0))"
+" ns24_0"
+" mpi25_0"
+" phase26_0))"
 "(values))))"
 "(let-values(((ex-mod-name_0)"
 "(1/module-path-index-resolve"
@@ -51220,21 +51147,21 @@ static const char *startup_source =
 "(module-self m_0)"
 " mpi_0))))"
 "(let-values(((m-ns_0)"
-"(let-values(((ns35_0) ns_0)"
-"((ex-mod-name36_0)"
+"(let-values(((ns29_0) ns_0)"
+"((ex-mod-name30_0)"
 " ex-mod-name_0)"
-"((temp37_0)"
+"((temp31_0)"
 "(phase-"
 " phase_0"
 " ex-phase_0))"
-"((temp38_0) #t))"
-"(namespace->module-namespace82.1"
+"((temp32_0) #t))"
+"(namespace->module-namespace.1"
 " #f"
-" temp38_0"
+" temp32_0"
 " unsafe-undefined"
-" ns35_0"
-" ex-mod-name36_0"
-" temp37_0))))"
+" ns29_0"
+" ex-mod-name30_0"
+" temp31_0))))"
 "(let-values(((ex-m_0)"
 "(namespace->module"
 " ns_0"
@@ -51314,19 +51241,19 @@ static const char *startup_source =
 "(gensym 'missing)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ns39_0)"
+"(let-values(((ns33_0)"
 " ns_0)"
-"((mpi40_0)"
+"((mpi34_0)"
 " mpi_0)"
-"((phase41_0)"
+"((phase35_0)"
 " phase_0)"
-"((phase42_0)"
+"((phase36_0)"
 " phase_0))"
-"(namespace-module-visit!104.1"
-" phase42_0"
-" ns39_0"
-" mpi40_0"
-" phase41_0))"
+"(namespace-module-visit!.1"
+" phase36_0"
+" ns33_0"
+" mpi34_0"
+" phase35_0))"
 "(values))))"
 "(let-values(((t_0)"
 "(namespace-get-transformer"
@@ -51338,12 +51265,12 @@ static const char *startup_source =
 "(let-values()(fail_0))"
 "(let-values()"
 "(let-values(((tmp-ns_0)"
-"(let-values(((ns43_0)"
+"(let-values(((ns37_0)"
 " ns_0))"
-"(new-namespace8.1"
+"(new-namespace.1"
 " #t"
 " unsafe-undefined"
-" ns43_0))))"
+" ns37_0))))"
 "(let-values(((mod-path_1)"
 "(resolved-module-path->module-path"
 " mod-name_0)))"
@@ -51364,39 +51291,39 @@ static const char *startup_source =
 " sym_0"
 " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))"
 "(case-lambda"
-"((who_0 mod-path_0 sym_0)(begin(do-dynamic-require5_0 who_0 mod-path_0 sym_0 unsafe-undefined)))"
-"((who_0 mod-path_0 sym_0 fail-k1_0)(do-dynamic-require5_0 who_0 mod-path_0 sym_0 fail-k1_0)))))"
+"((who_0 mod-path_0 sym_0)(begin(do-dynamic-require_0 who_0 mod-path_0 sym_0 unsafe-undefined)))"
+"((who_0 mod-path_0 sym_0 fail-k1_0)(do-dynamic-require_0 who_0 mod-path_0 sym_0 fail-k1_0)))))"
 " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))"
 "(define-values"
 "(1/dynamic-require)"
-"(let-values(((dynamic-require10_0)"
-"(lambda(mod-path8_0 sym9_0 fail-k7_0)"
+"(let-values(((dynamic-require_0)"
+"(lambda(mod-path6_0 sym7_0 fail-k5_0)"
 "(begin"
-" 'dynamic-require10"
-"(let-values(((mod-path_0) mod-path8_0))"
-"(let-values(((sym_0) sym9_0))"
+" 'dynamic-require"
+"(let-values(((mod-path_0) mod-path6_0))"
+"(let-values(((sym_0) sym7_0))"
 "(let-values(((fail-k_0)"
-"(if(eq? fail-k7_0 unsafe-undefined)"
+"(if(eq? fail-k5_0 unsafe-undefined)"
 " default-dynamic-require-fail-thunk"
-" fail-k7_0)))"
+" fail-k5_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()(do-dynamic-require 'dynamic-require mod-path_0 sym_0 fail-k_0)))))))))))"
 "(case-lambda"
-"((mod-path_0 sym_0)(begin 'dynamic-require(dynamic-require10_0 mod-path_0 sym_0 unsafe-undefined)))"
-"((mod-path_0 sym_0 fail-k7_0)(dynamic-require10_0 mod-path_0 sym_0 fail-k7_0)))))"
+"((mod-path_0 sym_0)(begin 'dynamic-require(dynamic-require_0 mod-path_0 sym_0 unsafe-undefined)))"
+"((mod-path_0 sym_0 fail-k5_0)(dynamic-require_0 mod-path_0 sym_0 fail-k5_0)))))"
 "(define-values"
 "(1/dynamic-require-for-syntax)"
-"(let-values(((dynamic-require-for-syntax15_0)"
-"(lambda(mod-path13_0 sym14_0 fail-k12_0)"
+"(let-values(((dynamic-require-for-syntax_0)"
+"(lambda(mod-path9_0 sym10_0 fail-k8_0)"
 "(begin"
-" 'dynamic-require-for-syntax15"
-"(let-values(((mod-path_0) mod-path13_0))"
-"(let-values(((sym_0) sym14_0))"
+" 'dynamic-require-for-syntax"
+"(let-values(((mod-path_0) mod-path9_0))"
+"(let-values(((sym_0) sym10_0))"
 "(let-values(((fail-k_0)"
-"(if(eq? fail-k12_0 unsafe-undefined)"
+"(if(eq? fail-k8_0 unsafe-undefined)"
 " default-dynamic-require-fail-thunk"
-" fail-k12_0)))"
+" fail-k8_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -51415,8 +51342,8 @@ static const char *startup_source =
 " fail-k_0)))))))))))))"
 "(case-lambda"
 "((mod-path_0 sym_0)"
-"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax15_0 mod-path_0 sym_0 unsafe-undefined)))"
-"((mod-path_0 sym_0 fail-k12_0)(dynamic-require-for-syntax15_0 mod-path_0 sym_0 fail-k12_0)))))"
+"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax_0 mod-path_0 sym_0 unsafe-undefined)))"
+"((mod-path_0 sym_0 fail-k8_0)(dynamic-require-for-syntax_0 mod-path_0 sym_0 fail-k8_0)))))"
 "(define-values"
 "(1/load)"
 "(lambda(s_0)"
@@ -51494,7 +51421,7 @@ static const char *startup_source =
 "(begin"
 "(file-position(current-input-port) start_1)"
 "(read-bytes(max 0(- end_1 start_1))))))))"
-"(with-input-from-file45.1 'binary exe4_0 temp5_0)))))))))"
+"(with-input-from-file.1 'binary exe4_0 temp5_0)))))))))"
 "(let-values(((p_0)(open-input-bytes s_0)))"
 "((letrec-values(((loop_0)"
 "(lambda()"
@@ -51725,14 +51652,14 @@ static const char *startup_source =
 "(let-values(((or-part_0)"
 "(if p_0"
 "(if(file-exists? p_0)"
-"(let-values(((p7_0) p_0)"
-"((temp8_0)"
+"(let-values(((p5_0) p_0)"
+"((temp6_0)"
 "(lambda()"
 "(begin"
-" 'temp8"
+" 'temp6"
 "(let-values(((v_0)(call-with-default-reading-parameterization 1/read)))"
 "(if(hash? v_0) v_0 #f))))))"
-"(with-input-from-file45.1 'binary p7_0 temp8_0))"
+"(with-input-from-file.1 'binary p5_0 temp6_0))"
 " #f)"
 " #f)))"
 "(if or-part_0 or-part_0 '#hash()))))))"
@@ -51845,11 +51772,11 @@ static const char *startup_source =
 "(file->bytes)"
 "(lambda(path_0)"
 "(begin"
-"(let-values(((path9_0) path_0)"
-"((temp10_0)"
+"(let-values(((path7_0) path_0)"
+"((temp8_0)"
 "(lambda(p_0)"
 "(begin"
-" 'temp10"
+" 'temp8"
 "(let-values(((bstr_0)(read-bytes 8192 p_0)))"
 "(if(if(bytes? bstr_0)(>=(bytes-length bstr_0) 8192) #f)"
 "(apply"
@@ -51864,7 +51791,7 @@ static const char *startup_source =
 "(if(eof-object? bstr_1) null(cons bstr_1(loop_0))))))))"
 " loop_0))))"
 " bstr_0))))))"
-"(call-with-input-file*61.1 'binary path9_0 temp10_0)))))"
+"(call-with-input-file*.1 'binary path7_0 temp8_0)))))"
 "(define-values"
 "(no-file-stamp?)"
 "(lambda(a_0)(begin(let-values(((or-part_0)(not a_0)))(if or-part_0 or-part_0(not(car a_0)))))))"
@@ -51923,18 +51850,18 @@ static const char *startup_source =
 "(let-values(((v_0)"
 "(if(no-file-stamp? ts_0)"
 " null"
-"(let-values(((links-path11_0) links-path_0)"
-"((temp12_0)"
+"(let-values(((links-path9_0) links-path_0)"
+"((temp10_0)"
 "(lambda(p_0)"
 "(begin"
-" 'temp12"
+" 'temp10"
 "(begin0"
 "(1/read p_0)"
 "(if(eof-object?(1/read p_0))"
 "(void)"
 "(let-values()"
 "                                                                      (error \"expected a single S-expression\"))))))))"
-"(call-with-input-file*61.1 'binary links-path11_0 temp12_0)))))"
+"(call-with-input-file*.1 'binary links-path9_0 temp10_0)))))"
 "(let-values((()"
 "(begin"
 "(if(if(list? v_0)"
@@ -52210,10 +52137,10 @@ static const char *startup_source =
 " #f))))))"
 "(define-values"
 "(1/find-library-collection-paths)"
-"(let-values(((find-library-collection-paths3_0)"
+"(let-values(((find-library-collection-paths_0)"
 "(lambda(extra-collects-dirs1_0 post-collects-dirs2_0)"
 "(begin"
-" 'find-library-collection-paths3"
+" 'find-library-collection-paths"
 "(let-values(((extra-collects-dirs_0) extra-collects-dirs1_0))"
 "(let-values(((post-collects-dirs_0) post-collects-dirs2_0))"
 "(let-values()"
@@ -52260,10 +52187,10 @@ static const char *startup_source =
 "(list(find-system-path 'collects-dir))"
 " post-collects-dirs_0)))))))))))))"
 "(case-lambda"
-"(()(begin 'find-library-collection-paths(find-library-collection-paths3_0 null null)))"
+"(()(begin 'find-library-collection-paths(find-library-collection-paths_0 null null)))"
 "((extra-collects-dirs_0 post-collects-dirs2_0)"
-"(find-library-collection-paths3_0 extra-collects-dirs_0 post-collects-dirs2_0))"
-"((extra-collects-dirs1_0)(find-library-collection-paths3_0 extra-collects-dirs1_0 null)))))"
+"(find-library-collection-paths_0 extra-collects-dirs_0 post-collects-dirs2_0))"
+"((extra-collects-dirs1_0)(find-library-collection-paths_0 extra-collects-dirs1_0 null)))))"
 "(define-values(prop:readtable prop:readtable? prop:readtable-ref)(make-struct-type-property 'readtable))"
 "(define-values"
 "(1/current-readtable)"
@@ -52483,7 +52410,7 @@ static const char *startup_source =
 "(current-read-config)"
 "(lambda()(begin(continuation-mark-set-first #f current-read-config default-val.1 root-tag))))"
 "(define-values"
-"(make-read-config28.1)"
+"(make-read-config.1)"
 "(lambda(call-with-root-namespace10_0"
 " coerce13_0"
 " coerce-key14_0"
@@ -52497,7 +52424,7 @@ static const char *startup_source =
 " source4_0"
 " wrap8_0)"
 "(begin"
-" 'make-read-config28"
+" 'make-read-config"
 "(let-values(((source_0) source4_0))"
 "(let-values(((for-syntax?_0) for-syntax?5_0))"
 "(let-values(((readtable_0)(if(eq? readtable6_0 unsafe-undefined)(1/current-readtable) readtable6_0)))"
@@ -52546,42 +52473,42 @@ static const char *startup_source =
 "(make-hasheq)"
 "(read-config-state3.1 #f #f))))))))))))))))))"
 "(define-values"
-"(read-config-update44.1)"
-"(lambda(for-syntax?31_0 keep-comment?36_0 next-readtable34_0 readtable33_0 reset-graph?35_0 wrap32_0 config43_0)"
+"(read-config-update.1)"
+"(lambda(for-syntax?29_0 keep-comment?34_0 next-readtable32_0 readtable31_0 reset-graph?33_0 wrap30_0 config41_0)"
 "(begin"
-" 'read-config-update44"
-"(let-values(((config_0) config43_0))"
-"(let-values(((for-syntax?_0) for-syntax?31_0))"
-"(let-values(((wrap_0) wrap32_0))"
-"(let-values(((readtable_0) readtable33_0))"
+" 'read-config-update"
+"(let-values(((config_0) config41_0))"
+"(let-values(((for-syntax?_0) for-syntax?29_0))"
+"(let-values(((wrap_0) wrap30_0))"
+"(let-values(((readtable_0) readtable31_0))"
 "(let-values(((next-readtable_0)"
-"(if(eq? next-readtable34_0 unsafe-undefined)"
+"(if(eq? next-readtable32_0 unsafe-undefined)"
 "(read-config-readtable config_0)"
-" next-readtable34_0)))"
-"(let-values(((local-graph?_0) reset-graph?35_0))"
-"(let-values(((keep-comment?_0) keep-comment?36_0))"
+" next-readtable32_0)))"
+"(let-values(((local-graph?_0) reset-graph?33_0))"
+"(let-values(((keep-comment?_0) keep-comment?34_0))"
 "(let-values()"
 "(let-values(((v_0) config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((wrap57_0) wrap_0)"
-"((keep-comment?58_0) keep-comment?_0)"
-"((inner59_0)"
+"(let-values(((wrap51_0) wrap_0)"
+"((keep-comment?52_0) keep-comment?_0)"
+"((inner53_0)"
 "(let-values(((the-struct_1)(read-config/outer-inner v_0)))"
 "(if(read-config/inner? the-struct_1)"
-"(let-values(((for-syntax?60_0) for-syntax?_0)"
-"((readtable61_0) readtable_0)"
-"((next-readtable62_0) next-readtable_0)"
-"((st63_0)"
+"(let-values(((for-syntax?54_0) for-syntax?_0)"
+"((readtable55_0) readtable_0)"
+"((next-readtable56_0) next-readtable_0)"
+"((st57_0)"
 "(if local-graph?_0"
 "(read-config-state3.1 #f #f)"
 "(read-config-st config_0)))"
-"((parameter-override64_0) '#hasheq())"
-"((parameter-cache65_0)(make-hasheq)))"
+"((parameter-override58_0) '#hasheq())"
+"((parameter-cache59_0)(make-hasheq)))"
 "(read-config/inner2.1"
-" readtable61_0"
-" next-readtable62_0"
-" for-syntax?60_0"
+" readtable55_0"
+" next-readtable56_0"
+" for-syntax?54_0"
 "(read-config/inner-source the-struct_1)"
 "(read-config/inner-read-compiled the-struct_1)"
 "(read-config/inner-call-with-root-namespace the-struct_1)"
@@ -52589,27 +52516,27 @@ static const char *startup_source =
 "(read-config/inner-module-declared? the-struct_1)"
 "(read-config/inner-coerce the-struct_1)"
 "(read-config/inner-coerce-key the-struct_1)"
-" parameter-override64_0"
-" parameter-cache65_0"
-" st63_0))"
+" parameter-override58_0"
+" parameter-cache59_0"
+" st57_0))"
 "                                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_1)))))"
 "(read-config/outer1.1"
-" inner59_0"
-" wrap57_0"
+" inner53_0"
+" wrap51_0"
 "(read-config/outer-line the-struct_0)"
 "(read-config/outer-col the-struct_0)"
 "(read-config/outer-pos the-struct_0)"
 "(read-config/outer-indentations the-struct_0)"
-" keep-comment?58_0))"
+" keep-comment?52_0))"
 "                            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_0)))))))))))))))"
 "(define-values"
-"(port+config->srcloc51.1)"
-"(lambda(end-pos47_0 in49_0 config50_0)"
+"(port+config->srcloc.1)"
+"(lambda(end-pos43_0 in45_0 config46_0)"
 "(begin"
-" 'port+config->srcloc51"
-"(let-values(((in_0) in49_0))"
-"(let-values(((config_0) config50_0))"
-"(let-values(((given-end-pos_0) end-pos47_0))"
+" 'port+config->srcloc"
+"(let-values(((in_0) in45_0))"
+"(let-values(((config_0) config46_0))"
+"(let-values(((given-end-pos_0) end-pos43_0))"
 "(let-values()"
 "(let-values(((end-pos_0)"
 "(let-values(((or-part_0) given-end-pos_0))"
@@ -52635,16 +52562,16 @@ static const char *startup_source =
 "(let-values(((v_0) config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((line66_0) line_0)"
-"((col67_0) col_0)"
-"((pos68_0) pos_0)"
-"((inner69_0)(read-config/outer-inner v_0)))"
+"(let-values(((line60_0) line_0)"
+"((col61_0) col_0)"
+"((pos62_0) pos_0)"
+"((inner63_0)(read-config/outer-inner v_0)))"
 "(read-config/outer1.1"
-" inner69_0"
+" inner63_0"
 "(read-config/outer-wrap the-struct_0)"
-" line66_0"
-" col67_0"
-" pos68_0"
+" line60_0"
+" col61_0"
+" pos62_0"
 "(read-config/outer-indentations the-struct_0)"
 "(read-config/outer-keep-comment? the-struct_0)))"
 "            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_0)))))))"
@@ -52655,10 +52582,10 @@ static const char *startup_source =
 "(let-values(((v_0) config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((wrap70_0) #f)((inner71_0)(read-config/outer-inner v_0)))"
+"(let-values(((wrap64_0) #f)((inner65_0)(read-config/outer-inner v_0)))"
 "(read-config/outer1.1"
-" inner71_0"
-" wrap70_0"
+" inner65_0"
+" wrap64_0"
 "(read-config/outer-line the-struct_0)"
 "(read-config/outer-col the-struct_0)"
 "(read-config/outer-pos the-struct_0)"
@@ -52672,15 +52599,15 @@ static const char *startup_source =
 "(let-values(((v_0) config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((keep-comment?72_0) #t)((inner73_0)(read-config/outer-inner v_0)))"
+"(let-values(((keep-comment?66_0) #t)((inner67_0)(read-config/outer-inner v_0)))"
 "(read-config/outer1.1"
-" inner73_0"
+" inner67_0"
 "(read-config/outer-wrap the-struct_0)"
 "(read-config/outer-line the-struct_0)"
 "(read-config/outer-col the-struct_0)"
 "(read-config/outer-pos the-struct_0)"
 "(read-config/outer-indentations the-struct_0)"
-" keep-comment?72_0))"
+" keep-comment?66_0))"
 "            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_0)))))))"
 "(define-values"
 "(discard-comment)"
@@ -52692,15 +52619,15 @@ static const char *startup_source =
 "(let-values(((v_0) config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((keep-comment?74_0) #f)((inner75_0)(read-config/outer-inner v_0)))"
+"(let-values(((keep-comment?68_0) #f)((inner69_0)(read-config/outer-inner v_0)))"
 "(read-config/outer1.1"
-" inner75_0"
+" inner69_0"
 "(read-config/outer-wrap the-struct_0)"
 "(read-config/outer-line the-struct_0)"
 "(read-config/outer-col the-struct_0)"
 "(read-config/outer-pos the-struct_0)"
 "(read-config/outer-indentations the-struct_0)"
-" keep-comment?74_0))"
+" keep-comment?68_0))"
 "                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_0)))))))))"
 "(define-values"
 "(next-readtable)"
@@ -52712,12 +52639,12 @@ static const char *startup_source =
 "(let-values(((v_0) config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((inner76_0)"
+"(let-values(((inner70_0)"
 "(let-values(((the-struct_1)(read-config/outer-inner v_0)))"
 "(if(read-config/inner? the-struct_1)"
-"(let-values(((readtable77_0)(read-config-next-readtable config_0)))"
+"(let-values(((readtable71_0)(read-config-next-readtable config_0)))"
 "(read-config/inner2.1"
-" readtable77_0"
+" readtable71_0"
 "(read-config/inner-next-readtable the-struct_1)"
 "(read-config/inner-for-syntax? the-struct_1)"
 "(read-config/inner-source the-struct_1)"
@@ -52732,7 +52659,7 @@ static const char *startup_source =
 "(read-config/inner-st the-struct_1)))"
 "                                  (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_1)))))"
 "(read-config/outer1.1"
-" inner76_0"
+" inner70_0"
 "(read-config/outer-wrap the-struct_0)"
 "(read-config/outer-line the-struct_0)"
 "(read-config/outer-col the-struct_0)"
@@ -52749,7 +52676,7 @@ static const char *startup_source =
 " for-syntax?_0"
 " val_0"
 "(if for-syntax?_0"
-"(let-values(((in1_0) in_0)((config2_0) config_0))(port+config->srcloc51.1 #f in1_0 config2_0))"
+"(let-values(((in1_0) in_0)((config2_0) config_0))(port+config->srcloc.1 #f in1_0 config2_0))"
 " #f))))))"
 "(define-values(default-reader-guard$1)(lambda(v_0)(begin 'default-reader-guard v_0)))"
 "(define-values"
@@ -53244,7 +53171,7 @@ static const char *startup_source =
 "(if wrap_0"
 "(wrap_0"
 " s-exp_0"
-"(let-values(((in1_0) in_0)((config2_0) config_0))(port+config->srcloc51.1 #f in1_0 config2_0))"
+"(let-values(((in1_0) in_0)((config2_0) config_0))(port+config->srcloc.1 #f in1_0 config2_0))"
 " rep_0)"
 " s-exp_0)))))"
 "(define-values(consume-char)(lambda(in_0 c_0)(begin(begin(read-char in_0)(void)))))"
@@ -53253,10 +53180,10 @@ static const char *startup_source =
 "(lambda(in_0 config_0 c_0)"
 "(begin(begin(read-char-or-special in_0 special1.1(read-config-source config_0))(void)))))"
 "(define-values"
-"(reader-error12.1)"
+"(reader-error.1)"
 "(lambda(continuation-marks1_0 due-to2_0 end-pos4_0 who3_0 in9_0 config10_0 str11_0 new-rest_0)"
 "(begin"
-" 'reader-error12"
+" 'reader-error"
 "(let-values(((in_0) in9_0))"
 "(let-values(((config_0) config10_0))"
 "(let-values(((continuation-marks_0)"
@@ -53274,8 +53201,8 @@ static const char *startup_source =
 "                      (let-values (((msg_0) (format \"~a: ~a\" who_0 (apply format str_0 args_0))))"
 "(let-values(((srcloc_0)"
 "(if in_0"
-"(let-values(((in23_0) in_0)((config24_0) config_0)((end-pos25_0) end-pos_0))"
-"(port+config->srcloc51.1 end-pos25_0 in23_0 config24_0))"
+"(let-values(((in19_0) in_0)((config20_0) config_0)((end-pos21_0) end-pos_0))"
+"(port+config->srcloc.1 end-pos21_0 in19_0 config20_0))"
 " #f)))"
 "(raise"
 "((if(eof-object? due-to_0)"
@@ -53291,58 +53218,58 @@ static const char *startup_source =
 " continuation-marks_0"
 "(if srcloc_0(list srcloc_0) null))))))))))))))))"
 "(define-values"
-"(bad-syntax-error20.1)"
-"(lambda(due-to15_0 in17_0 config18_0 str19_0)"
+"(bad-syntax-error.1)"
+"(lambda(due-to13_0 in15_0 config16_0 str17_0)"
 "(begin"
-" 'bad-syntax-error20"
-"(let-values(((in_0) in17_0))"
-"(let-values(((config_0) config18_0))"
-"(let-values(((str_0) str19_0))"
-"(let-values(((due-to_0) due-to15_0))"
+" 'bad-syntax-error"
+"(let-values(((in_0) in15_0))"
+"(let-values(((config_0) config16_0))"
+"(let-values(((str_0) str17_0))"
+"(let-values(((due-to_0) due-to13_0))"
 "(let-values()"
-"(let-values(((in26_0) in_0)"
-"((config27_0) config_0)"
-"((due-to28_0) due-to_0)"
-"                             ((temp29_0) \"bad syntax `~a`\")"
-"((str30_0) str_0))"
-"(reader-error12.1"
+"(let-values(((in22_0) in_0)"
+"((config23_0) config_0)"
+"((due-to24_0) due-to_0)"
+"                             ((temp25_0) \"bad syntax `~a`\")"
+"((str26_0) str_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" due-to28_0"
+" due-to24_0"
 " #f"
 " unsafe-undefined"
-" in26_0"
-" config27_0"
-" temp29_0"
-"(list str30_0)))))))))))"
+" in22_0"
+" config23_0"
+" temp25_0"
+"(list str26_0)))))))))))"
 "(define-values"
 "(catch-and-reraise-as-reader/proc)"
 "(lambda(in_0 config_0 thunk_0)"
 "(begin"
-"(let-values(((with-handlers-predicate31_0) exn:fail?)"
-"((with-handlers-handler32_0)"
+"(let-values(((with-handlers-predicate27_0) exn:fail?)"
+"((with-handlers-handler28_0)"
 "(lambda(exn_0)"
 "(begin"
-" 'with-handlers-handler32"
-"(let-values(((in33_0) in_0)"
-"((config34_0) config_0)"
-"                                     ((temp35_0) \"~a\")"
-"((temp36_0)"
+" 'with-handlers-handler28"
+"(let-values(((in29_0) in_0)"
+"((config30_0) config_0)"
+"                                     ((temp31_0) \"~a\")"
+"((temp32_0)"
 "                                      (let-values (((s_0) (exn-message exn_0))) (regexp-replace \"^[a-z-]*: \" s_0 \"\")))"
-"((temp37_0)(exn-continuation-marks exn_0)))"
-"(reader-error12.1"
-" temp37_0"
+"((temp33_0)(exn-continuation-marks exn_0)))"
+"(reader-error.1"
+" temp33_0"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in33_0"
-" config34_0"
-" temp35_0"
-"(list temp36_0)))))))"
+" in29_0"
+" config30_0"
+" temp31_0"
+"(list temp32_0)))))))"
 "(let-values(((bpz_0)(continuation-mark-set-first #f break-enabled-key)))"
 "(call-handled-body"
 " bpz_0"
 "(lambda(e_0)"
-"(select-handler/no-breaks e_0 bpz_0(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))"
+"(select-handler/no-breaks e_0 bpz_0(list(cons with-handlers-predicate27_0 with-handlers-handler28_0))))"
 "(lambda()(thunk_0))))))))"
 "(define-values"
 "(port-next-location*)"
@@ -53500,7 +53427,7 @@ static const char *startup_source =
 "((temp4_0)"
 "                                                                            \"expected a commented-out element for `~a;`, but found end-of-file\")"
 "((ec5_0) ec_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " v3_0"
 " #f"
@@ -53538,7 +53465,7 @@ static const char *startup_source =
 "((temp7_0)(reading-at config_0 line_0 col_0 pos_0))"
 "((c8_0) c_0)"
 "                                                     ((temp9_0) \"end of file in `#|` comment\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " c8_0"
 " #f"
@@ -53772,10 +53699,10 @@ static const char *startup_source =
 "(string-copy!(accum-string-str a_0) start-pos_0 s_0)"
 "(set-accum-string-pos! a_0(fx+ start-pos_0 len_0)))))))))"
 "(define-values"
-"(accum-string-get!6.1)"
+"(accum-string-get!.1)"
 "(lambda(start-pos2_0 a4_0 config5_0)"
 "(begin"
-" 'accum-string-get!6"
+" 'accum-string-get!"
 "(let-values(((a_0) a4_0))"
 "(let-values(((config_0) config5_0))"
 "(let-values(((start-pos_0) start-pos2_0))"
@@ -53783,13 +53710,13 @@ static const char *startup_source =
 "(let-values(((s_0)(substring(accum-string-str a_0) start-pos_0(accum-string-pos a_0))))"
 "(begin(accum-string-abandon! a_0 config_0) s_0)))))))))"
 "(define-values"
-"(accum-string-get-bytes!13.1)"
-"(lambda(start-pos9_0 a11_0 config12_0)"
+"(accum-string-get-bytes!.1)"
+"(lambda(start-pos7_0 a9_0 config10_0)"
 "(begin"
-" 'accum-string-get-bytes!13"
-"(let-values(((a_0) a11_0))"
-"(let-values(((config_0) config12_0))"
-"(let-values(((start-pos_0) start-pos9_0))"
+" 'accum-string-get-bytes!"
+"(let-values(((a_0) a9_0))"
+"(let-values(((config_0) config10_0))"
+"(let-values(((start-pos_0) start-pos7_0))"
 "(let-values()"
 "(let-values(((bstr_0)"
 "(string->bytes/latin-1(accum-string-str a_0) #f start-pos_0(accum-string-pos a_0))))"
@@ -53939,7 +53866,7 @@ static const char *startup_source =
 " c_0)))))"
 "(indentation-possible-cause config_0)))))))))"
 "(define-values"
-"(read-unwrapped-sequence17.1)"
+"(read-unwrapped-sequence.1)"
 "(lambda(dot-mode2_0"
 " elem-config1_0"
 " first-read-one5_0"
@@ -53952,7 +53879,7 @@ static const char *startup_source =
 " in15_0"
 " seq-config16_0)"
 "(begin"
-" 'read-unwrapped-sequence17"
+" 'read-unwrapped-sequence"
 "(let-values(((read-one_0) read-one11_0))"
 "(let-values(((opener-c_0) opener-c12_0))"
 "(let-values(((opener_0) opener13_0))"
@@ -53978,18 +53905,18 @@ static const char *startup_source =
 "(let-values(((v_0) elem-config_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(read-config/outer? the-struct_0)"
-"(let-values(((indentations20_0)"
+"(let-values(((indentations18_0)"
 "(cons"
 " indentation_0"
 "(read-config-indentations seq-config_0)))"
-"((inner21_0)(read-config/outer-inner v_0)))"
+"((inner19_0)(read-config/outer-inner v_0)))"
 "(read-config/outer1.1"
-" inner21_0"
+" inner19_0"
 "(read-config/outer-wrap the-struct_0)"
 "(read-config/outer-line the-struct_0)"
 "(read-config/outer-col the-struct_0)"
 "(read-config/outer-pos the-struct_0)"
-" indentations20_0"
+" indentations18_0"
 "(read-config/outer-keep-comment? the-struct_0)))"
 "(raise-argument-error"
 " 'struct-copy"
@@ -54006,26 +53933,26 @@ static const char *startup_source =
 "(begin"
 "(if(eof-object? e_0)"
 "(let-values()"
-"(let-values(((in22_0) in_0)"
-"((seq-config23_0) seq-config_0)"
-"((e24_0) e_0)"
-"((open-end-pos25_0) open-end-pos_0)"
-"((temp26_0)"
+"(let-values(((in20_0) in_0)"
+"((seq-config21_0) seq-config_0)"
+"((e22_0) e_0)"
+"((open-end-pos23_0) open-end-pos_0)"
+"((temp24_0)"
 "                                                                                \"expected a ~a to close `~a`~a\")"
-"((temp27_0)"
+"((temp25_0)"
 "(closer-name closer_0 config_1))"
-"((opener-c28_0) opener-c_0)"
-"((temp29_0)"
+"((opener-c26_0) opener-c_0)"
+"((temp27_0)"
 "(indentation-possible-cause config_1)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" e24_0"
-" open-end-pos25_0"
+" e22_0"
+" open-end-pos23_0"
 " unsafe-undefined"
-" in22_0"
-" seq-config23_0"
-" temp26_0"
-"(list temp27_0 opener-c28_0 temp29_0))))"
+" in20_0"
+" seq-config21_0"
+" temp24_0"
+"(list temp25_0 opener-c26_0 temp27_0))))"
 "(void))"
 " e_0))))))"
 "(let-values(((seq_0)"
@@ -54103,24 +54030,24 @@ static const char *startup_source =
 " #f)"
 "(void)"
 "(let-values()"
-"(let-values(((in30_0)"
+"(let-values(((in28_0)"
 " in_0)"
-"((temp31_0)"
+"((temp29_0)"
 "(reading-at"
 " config_0"
 " dot-line_0"
 " dot-col_0"
 " dot-pos_0))"
-"((temp32_0)"
+"((temp30_0)"
 "                                                                                                                              \"illegal use of `.`\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in30_0"
-" temp31_0"
-" temp32_0"
+" in28_0"
+" temp29_0"
+" temp30_0"
 "(list)))))"
 "(values))))"
 "(let-values(((v_0)"
@@ -54221,26 +54148,26 @@ static const char *startup_source =
 " post-ec_0"
 " closer_0)))"
 "(let-values()"
-"(let-values(((in33_0)"
+"(let-values(((in31_0)"
 " in_0)"
-"((temp34_0)"
+"((temp32_0)"
 "(reading-at"
 " config_0"
 " dot-line_0"
 " dot-col_0"
 " dot-pos_0))"
-"((post-ec35_0)"
+"((post-ec33_0)"
 " post-ec_0)"
-"((temp36_0)"
+"((temp34_0)"
 "                                                                                                                                        \"illegal use of `.`\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" post-ec35_0"
+" post-ec33_0"
 " #f"
 " unsafe-undefined"
-" in33_0"
+" in31_0"
+" temp32_0"
 " temp34_0"
-" temp36_0"
 "(list))))"
 "(void))"
 "(loop_0"
@@ -54250,26 +54177,26 @@ static const char *startup_source =
 " #f"
 " read-one_0))))))))"
 "(let-values()"
-"(let-values(((in37_0)"
+"(let-values(((in35_0)"
 " in_0)"
-"((temp38_0)"
+"((temp36_0)"
 "(reading-at"
 " config_0"
 " dot-line_0"
 " dot-col_0"
 " dot-pos_0))"
-"((rest-c39_0)"
+"((rest-c37_0)"
 " rest-c_0)"
-"((temp40_0)"
+"((temp38_0)"
 "                                                                                                                        \"illegal use of `.`\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" rest-c39_0"
+" rest-c37_0"
 " #f"
 " unsafe-undefined"
-" in37_0"
+" in35_0"
+" temp36_0"
 " temp38_0"
-" temp40_0"
 "(list)))))))))))))"
 "(let-values()"
 "(let-values(((v_0)"
@@ -54326,10 +54253,10 @@ static const char *startup_source =
 "(if tag_0(cons(wrap tag_0 in_0 config_0 #f) seq_0) seq_0)))))"
 " (define-values (not-an-fX.1$1) (lambda (who_0 v_0) (begin 'not-an-fX (raise-argument-error who_0 \"flonum?\" v_0))))"
 "(define-values"
-"(read-digits12.1)"
+"(read-digits.1)"
 "(lambda(base1_0 init3_0 max-count2_0 zero-digits-result4_0 in10_0 config11_0 accum-str9_0)"
 "(begin"
-" 'read-digits12"
+" 'read-digits"
 "(let-values(((in_0) in10_0))"
 "(let-values(((config_0) config11_0))"
 "(let-values(((accum-str_0) accum-str9_0))"
@@ -54439,10 +54366,10 @@ static const char *startup_source =
 "(define-values(string->number$1) string->number)"
 "(define-values"
 "(1/string->number)"
-"(let-values(((string->number6_0)"
+"(let-values(((string->number_0)"
 "(lambda(s5_0 radix1_0 convert-mode2_0 decimal-mode3_0 single-mode4_0)"
 "(begin"
-" 'string->number6"
+" 'string->number"
 "(let-values(((s_0) s5_0))"
 "(let-values(((radix_0) radix1_0))"
 "(let-values(((convert-mode_0) convert-mode2_0))"
@@ -54502,37 +54429,37 @@ static const char *startup_source =
 " decimal-mode_0"
 " single-mode_0))))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'string->number(string->number6_0 s_0 10 'number-or-false unsafe-undefined unsafe-undefined)))"
+"((s_0)(begin 'string->number(string->number_0 s_0 10 'number-or-false unsafe-undefined unsafe-undefined)))"
 "((s_0 radix_0 convert-mode_0 decimal-mode_0 single-mode4_0)"
-"(string->number6_0 s_0 radix_0 convert-mode_0 decimal-mode_0 single-mode4_0))"
+"(string->number_0 s_0 radix_0 convert-mode_0 decimal-mode_0 single-mode4_0))"
 "((s_0 radix_0 convert-mode_0 decimal-mode3_0)"
-"(string->number6_0 s_0 radix_0 convert-mode_0 decimal-mode3_0 unsafe-undefined))"
-"((s_0 radix_0 convert-mode2_0)(string->number6_0 s_0 radix_0 convert-mode2_0 unsafe-undefined unsafe-undefined))"
-"((s_0 radix1_0)(string->number6_0 s_0 radix1_0 'number-or-false unsafe-undefined unsafe-undefined)))))"
+"(string->number_0 s_0 radix_0 convert-mode_0 decimal-mode3_0 unsafe-undefined))"
+"((s_0 radix_0 convert-mode2_0)(string->number_0 s_0 radix_0 convert-mode2_0 unsafe-undefined unsafe-undefined))"
+"((s_0 radix1_0)(string->number_0 s_0 radix1_0 'number-or-false unsafe-undefined unsafe-undefined)))))"
 "(define-values"
 "(unchecked-string->number)"
 "(lambda(s_0 radix_0 convert-mode_0 decimal-mode_0 single-mode_0)"
 "(begin"
-"(let-values(((s56_0) s_0)"
-"((temp57_0) 0)"
-"((temp58_0)(string-length s_0))"
-"((radix59_0) radix_0)"
-"((temp60_0) #f)"
-"((decimal-mode61_0) decimal-mode_0)"
-"((convert-mode62_0) convert-mode_0)"
-"((single-mode63_0) single-mode_0))"
-"(do-string->number52.1"
-" temp60_0"
-" s56_0"
-" temp57_0"
-" temp58_0"
-" radix59_0"
-" decimal-mode61_0"
-" convert-mode62_0"
-" single-mode63_0)))))"
+"(let-values(((s44_0) s_0)"
+"((temp45_0) 0)"
+"((temp46_0)(string-length s_0))"
+"((radix47_0) radix_0)"
+"((temp48_0) #f)"
+"((decimal-mode49_0) decimal-mode_0)"
+"((convert-mode50_0) convert-mode_0)"
+"((single-mode51_0) single-mode_0))"
+"(do-string->number.1"
+" temp48_0"
+" s44_0"
+" temp45_0"
+" temp46_0"
+" radix47_0"
+" decimal-mode49_0"
+" convert-mode50_0"
+" single-mode51_0)))))"
 "(define-values"
 "(struct:parse-state"
-" parse-state8.1"
+" parse-state6.1"
 " parse-state?"
 " parse-state-exactness"
 " parse-state-convert-mode"
@@ -54564,7 +54491,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 3 'fst)"
 "(make-struct-field-accessor -ref_0 4 'other-exactness))))"
 "(define-values"
-"(struct:rect-prefix rect-prefix9.1 rect-prefix? rect-prefix-sgn/z rect-prefix-n rect-prefix-start)"
+"(struct:rect-prefix rect-prefix7.1 rect-prefix? rect-prefix-sgn/z rect-prefix-n rect-prefix-start)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -54588,7 +54515,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 1 'n)"
 "(make-struct-field-accessor -ref_0 2 'start))))"
 "(define-values"
-"(struct:polar-prefix polar-prefix10.1 polar-prefix? polar-prefix-sgn/z polar-prefix-n polar-prefix-start)"
+"(struct:polar-prefix polar-prefix8.1 polar-prefix? polar-prefix-sgn/z polar-prefix-n polar-prefix-start)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -54614,7 +54541,7 @@ static const char *startup_source =
 "(define-values"
 "(init-state)"
 "(lambda(exactness_0 convert-mode_0 single-mode_0 fst_0)"
-"(begin(parse-state8.1 exactness_0 convert-mode_0(eq? single-mode_0 'single) fst_0 exactness_0))))"
+"(begin(parse-state6.1 exactness_0 convert-mode_0(eq? single-mode_0 'single) fst_0 exactness_0))))"
 "(define-values"
 "(state-has-first-half?)"
 "(lambda(state_0)(begin(let-values(((fst_0)(parse-state-fst state_0)))(if fst_0(not(eq? fst_0 '+/-)) #f)))))"
@@ -54624,15 +54551,15 @@ static const char *startup_source =
 "(begin"
 "(let-values(((the-struct_0) state_0))"
 "(if(parse-state? the-struct_0)"
-"(let-values(((fst67_0) fst_0)"
-"((exactness68_0)(parse-state-other-exactness state_0))"
-"((other-exactness69_0)(parse-state-exactness state_0)))"
-"(parse-state8.1"
-" exactness68_0"
+"(let-values(((fst55_0) fst_0)"
+"((exactness56_0)(parse-state-other-exactness state_0))"
+"((other-exactness57_0)(parse-state-exactness state_0)))"
+"(parse-state6.1"
+" exactness56_0"
 "(parse-state-convert-mode the-struct_0)"
 "(parse-state-can-single? the-struct_0)"
-" fst67_0"
-" other-exactness69_0))"
+" fst55_0"
+" other-exactness57_0))"
 "          (raise-argument-error 'struct-copy \"parse-state?\" the-struct_0))))))"
 "(define-values"
 "(state-first-half)"
@@ -54703,7 +54630,7 @@ static const char *startup_source =
 "        (let-values () (format \"cannot combine extflonum `~a` into a complex number\" i_0))"
 "(let-values() #f)))))"
 "(define-values"
-"(struct:lazy-expt lazy-expt11.1 lazy-expt? lazy-expt-n lazy-expt-radix lazy-expt-exp)"
+"(struct:lazy-expt lazy-expt9.1 lazy-expt? lazy-expt-n lazy-expt-radix lazy-expt-exp)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -54727,7 +54654,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 1 'radix)"
 "(make-struct-field-accessor -ref_0 2 'exp))))"
 "(define-values"
-"(struct:lazy-rational lazy-rational12.1 lazy-rational? lazy-rational-n lazy-rational-d)"
+"(struct:lazy-rational lazy-rational10.1 lazy-rational? lazy-rational-n lazy-rational-d)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
 "(let-values()"
 "(let-values()"
@@ -54753,7 +54680,7 @@ static const char *startup_source =
 "(if(eq? n_0 'dbz!)"
 "(let-values() n_0)"
 "(let-values()"
-"(if(if(< exp_0 30)(> exp_0 -30) #f)(* n_0(expt radix_0 exp_0))(lazy-expt11.1 n_0 radix_0 exp_0))))))))"
+"(if(if(< exp_0 30)(> exp_0 -30) #f)(* n_0(expt radix_0 exp_0))(lazy-expt9.1 n_0 radix_0 exp_0))))))))"
 "(define-values"
 "(lazy-divide)"
 "(lambda(n_0 d_0 d-exactness_0)"
@@ -54761,7 +54688,7 @@ static const char *startup_source =
 "(if(eqv? d_0 0)"
 "(let-values()(if(eq? d-exactness_0 'exact) 'dbz! 'dbz))"
 "(if(let-values(((or-part_0)(lazy-expt? n_0)))(if or-part_0 or-part_0(lazy-expt? d_0)))"
-"(let-values()(lazy-rational12.1 n_0 d_0))"
+"(let-values()(lazy-rational10.1 n_0 d_0))"
 "(let-values()(/ n_0 d_0)))))))"
 "(define-values"
 "(simplify-lazy-divide)"
@@ -54793,15 +54720,15 @@ static const char *startup_source =
 "(let-values() n_0)))))))"
 "(define-values"
 "(force-lazy-inexact)"
-"(let-values(((force-lazy-inexact18_0)"
-"(lambda(sgn/z14_0 n015_0 state16_0 s17_0 precision13_0)"
+"(let-values(((force-lazy-inexact_0)"
+"(lambda(sgn/z12_0 n013_0 state14_0 s15_0 precision11_0)"
 "(begin"
-" 'force-lazy-inexact18"
-"(let-values(((sgn/z_0) sgn/z14_0))"
-"(let-values(((n0_0) n015_0))"
-"(let-values(((state_0) state16_0))"
-"(let-values(((s_0) s17_0))"
-"(let-values(((precision_0) precision13_0))"
+" 'force-lazy-inexact"
+"(let-values(((sgn/z_0) sgn/z12_0))"
+"(let-values(((n0_0) n013_0))"
+"(let-values(((state_0) state14_0))"
+"(let-values(((s_0) s15_0))"
+"(let-values(((precision_0) precision11_0))"
 "(let-values()"
 "(let-values(((n1_0)(simplify-lazy-divide n0_0)))"
 "(if(eq? n0_0 'dbz)"
@@ -54837,8 +54764,8 @@ static const char *startup_source =
 "(let-values()(if(fx= sgn/z_0 -1)(- 0.0) 0.0))"
 "(let-values() n1_0))))))))))))))))"
 "(case-lambda"
-"((sgn/z_0 n0_0 state_0 s_0)(begin(force-lazy-inexact18_0 sgn/z_0 n0_0 state_0 s_0 2048)))"
-"((sgn/z_0 n0_0 state_0 s_0 precision13_0)(force-lazy-inexact18_0 sgn/z_0 n0_0 state_0 s_0 precision13_0)))))"
+"((sgn/z_0 n0_0 state_0 s_0)(begin(force-lazy-inexact_0 sgn/z_0 n0_0 state_0 s_0 2048)))"
+"((sgn/z_0 n0_0 state_0 s_0 precision11_0)(force-lazy-inexact_0 sgn/z_0 n0_0 state_0 s_0 precision11_0)))))"
 "(define-values"
 "(fast-inexact)"
 "(lambda(state_0 sgn_0 n_0 radix_0 exp_0 sgn2_0 exp2_0)"
@@ -54869,15 +54796,15 @@ static const char *startup_source =
 "(let-values() #f)))))"
 "(let-values() #f))))))"
 "(define-values"
-"(finish26.1)"
-"(lambda(range20_0 sgn/z22_0 n23_0 s24_0 state25_0)"
+"(finish.1)"
+"(lambda(range16_0 sgn/z18_0 n19_0 s20_0 state21_0)"
 "(begin"
-" 'finish26"
-"(let-values(((sgn/z_0) sgn/z22_0))"
-"(let-values(((n_0) n23_0))"
-"(let-values(((s_0) s24_0))"
-"(let-values(((state_0) state25_0))"
-"(let-values(((range_0) range20_0))"
+" 'finish"
+"(let-values(((sgn/z_0) sgn/z18_0))"
+"(let-values(((n_0) n19_0))"
+"(let-values(((s_0) s20_0))"
+"(let-values(((state_0) state21_0))"
+"(let-values(((range_0) range16_0))"
 "(let-values()"
 "(let-values(((fst_0)(parse-state-fst state_0)))"
 "(if(let-values(((or-part_0)(not fst_0)))(if or-part_0 or-part_0(eq? fst_0 '+/-)))"
@@ -54956,19 +54883,19 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((pos_0)(polar-prefix-start fst_0)))"
 "(let-values(((m_0)"
-"(let-values(((temp72_0)(polar-prefix-sgn/z fst_0))"
-"((temp73_0)(polar-prefix-n fst_0))"
-"((s74_0) s_0)"
-"((temp75_0)(state-first-half state_0))"
-"((temp76_0)(cons 0 pos_0)))"
-"(finish26.1 temp76_0 temp72_0 temp73_0 s74_0 temp75_0))))"
+"(let-values(((temp60_0)(polar-prefix-sgn/z fst_0))"
+"((temp61_0)(polar-prefix-n fst_0))"
+"((s62_0) s_0)"
+"((temp63_0)(state-first-half state_0))"
+"((temp64_0)(cons 0 pos_0)))"
+"(finish.1 temp64_0 temp60_0 temp61_0 s62_0 temp63_0))))"
 "(let-values(((a_0)"
-"(let-values(((sgn/z77_0) sgn/z_0)"
-"((n78_0) n_0)"
-"((s79_0) s_0)"
-"((temp80_0)(state-second-half state_0))"
-"((temp81_0)(cons pos_0(string-length s_0))))"
-"(finish26.1 temp81_0 sgn/z77_0 n78_0 s79_0 temp80_0))))"
+"(let-values(((sgn/z65_0) sgn/z_0)"
+"((n66_0) n_0)"
+"((s67_0) s_0)"
+"((temp68_0)(state-second-half state_0))"
+"((temp69_0)(cons pos_0(string-length s_0))))"
+"(finish.1 temp69_0 sgn/z65_0 n66_0 s67_0 temp68_0))))"
 "(if(extflonum? m_0)"
 "(let-values()(bad-extflonum-for-complex m_0 s_0 state_0))"
 "(if(extflonum? a_0)"
@@ -55005,8 +54932,8 @@ static const char *startup_source =
 "(if(if(eq? fst_0 '+/-)(fx= start_0 end_0) #f)"
 "(let-values()"
 "(let-values(((v_0)"
-"(let-values(((sgn/z82_0) sgn/z_0)((n83_0) n_0)((s84_0) s_0)((state85_0) state_0))"
-"(finish26.1 #f sgn/z82_0 n83_0 s84_0 state85_0))))"
+"(let-values(((sgn/z70_0) sgn/z_0)((n71_0) n_0)((s72_0) s_0)((state73_0) state_0))"
+"(finish.1 #f sgn/z70_0 n71_0 s72_0 state73_0))))"
 "(if(let-values(((or-part_0)(not v_0)))(if or-part_0 or-part_0(string? v_0)))"
 " v_0"
 "((lambda(i_0)"
@@ -55022,19 +54949,19 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((pos_0)(rect-prefix-start fst_0)))"
 "(let-values(((r_0)"
-"(let-values(((temp86_0)(rect-prefix-sgn/z fst_0))"
-"((temp87_0)(rect-prefix-n fst_0))"
-"((s88_0) s_0)"
-"((temp89_0)(state-first-half state_0))"
-"((temp90_0)(cons 0 pos_0)))"
-"(finish26.1 temp90_0 temp86_0 temp87_0 s88_0 temp89_0))))"
+"(let-values(((temp74_0)(rect-prefix-sgn/z fst_0))"
+"((temp75_0)(rect-prefix-n fst_0))"
+"((s76_0) s_0)"
+"((temp77_0)(state-first-half state_0))"
+"((temp78_0)(cons 0 pos_0)))"
+"(finish.1 temp78_0 temp74_0 temp75_0 s76_0 temp77_0))))"
 "(let-values(((i_0)"
-"(let-values(((sgn/z91_0) sgn/z_0)"
-"((n92_0) n_0)"
-"((s93_0) s_0)"
-"((temp94_0)(state-second-half state_0))"
-"((temp95_0)(cons pos_0(string-length s_0))))"
-"(finish26.1 temp95_0 sgn/z91_0 n92_0 s93_0 temp94_0))))"
+"(let-values(((sgn/z79_0) sgn/z_0)"
+"((n80_0) n_0)"
+"((s81_0) s_0)"
+"((temp82_0)(state-second-half state_0))"
+"((temp83_0)(cons pos_0(string-length s_0))))"
+"(finish.1 temp83_0 sgn/z79_0 n80_0 s81_0 temp82_0))))"
 "(if(extflonum? r_0)"
 "(let-values()(bad-extflonum-for-complex r_0 s_0 state_0))"
 "(if(extflonum? i_0)"
@@ -55051,13 +54978,13 @@ static const char *startup_source =
 " v_0))))))))))"
 "            (let-values () (bad-misplaced \"i\" s_0 state_0))))))))"
 "(define-values"
-"(set-exactness33.1)"
-"(lambda(override?29_0 state31_0 new-exactness32_0)"
+"(set-exactness.1)"
+"(lambda(override?23_0 state25_0 new-exactness26_0)"
 "(begin"
-" 'set-exactness33"
-"(let-values(((state_0) state31_0))"
-"(let-values(((new-exactness_0) new-exactness32_0))"
-"(let-values(((override?_0) override?29_0))"
+" 'set-exactness"
+"(let-values(((state_0) state25_0))"
+"(let-values(((new-exactness_0) new-exactness26_0))"
+"(let-values(((override?_0) override?23_0))"
 "(let-values()"
 "(let-values(((exactness_0)(parse-state-exactness state_0)))"
 "(let-values(((result-exactness_0)"
@@ -55091,25 +55018,25 @@ static const char *startup_source =
 " state_0"
 "(let-values(((the-struct_0) state_0))"
 "(if(parse-state? the-struct_0)"
-"(let-values(((exactness96_0) result-exactness_0))"
-"(parse-state8.1"
-" exactness96_0"
+"(let-values(((exactness84_0) result-exactness_0))"
+"(parse-state6.1"
+" exactness84_0"
 "(parse-state-convert-mode the-struct_0)"
 "(parse-state-can-single? the-struct_0)"
 "(parse-state-fst the-struct_0)"
 "(parse-state-other-exactness the-struct_0)))"
 "                        (raise-argument-error 'struct-copy \"parse-state?\" the-struct_0)))))))))))))"
 "(define-values"
-"(set-exactness-by-char40.1)"
-"(lambda(override?36_0 state38_0 c39_0)"
+"(set-exactness-by-char.1)"
+"(lambda(override?28_0 state30_0 c31_0)"
 "(begin"
-" 'set-exactness-by-char40"
-"(let-values(((state_0) state38_0))"
-"(let-values(((c_0) c39_0))"
-"(let-values(((override?_0) override?36_0))"
+" 'set-exactness-by-char"
+"(let-values(((state_0) state30_0))"
+"(let-values(((c_0) c31_0))"
+"(let-values(((override?_0) override?28_0))"
 "(let-values()"
-"(let-values(((state97_0) state_0)"
-"((temp98_0)"
+"(let-values(((state85_0) state_0)"
+"((temp86_0)"
 "(let-values(((tmp_0) c_0))"
 "(let-values(((index_0)"
 "(if(char? tmp_0)"
@@ -55193,8 +55120,8 @@ static const char *startup_source =
 "(if(unsafe-fx< index_0 2)"
 "(let-values() 'double)"
 "(if(unsafe-fx< index_0 3)(let-values() 'single)(let-values() 'extended)))))))"
-"((override?99_0) override?_0))"
-"(set-exactness33.1 override?99_0 state97_0 temp98_0)))))))))"
+"((override?87_0) override?_0))"
+"(set-exactness.1 override?87_0 state85_0 temp86_0)))))))))"
 "(define-values"
 "(trim-number)"
 "(lambda(s_0 start_0 end_0)"
@@ -55206,18 +55133,18 @@ static const char *startup_source =
 "(let-values()(trim-number s_0 start_0(fx- end_0 1)))"
 "(let-values()(substring s_0 start_0 end_0)))))))"
 "(define-values"
-"(do-string->number52.1)"
-"(lambda(radix-set?43_0 s45_0 start46_0 end47_0 radix48_0 exactness49_0 convert-mode50_0 single-mode51_0)"
+"(do-string->number.1)"
+"(lambda(radix-set?33_0 s35_0 start36_0 end37_0 radix38_0 exactness39_0 convert-mode40_0 single-mode41_0)"
 "(begin"
-" 'do-string->number52"
-"(let-values(((s_0) s45_0))"
-"(let-values(((start_0) start46_0))"
-"(let-values(((end_0) end47_0))"
-"(let-values(((radix_0) radix48_0))"
-"(let-values(((radix-set?_0) radix-set?43_0))"
-"(let-values(((exactness_0) exactness49_0))"
-"(let-values(((convert-mode_0) convert-mode50_0))"
-"(let-values(((single-mode_0) single-mode51_0))"
+" 'do-string->number"
+"(let-values(((s_0) s35_0))"
+"(let-values(((start_0) start36_0))"
+"(let-values(((end_0) end37_0))"
+"(let-values(((radix_0) radix38_0))"
+"(let-values(((radix-set?_0) radix-set?33_0))"
+"(let-values(((exactness_0) exactness39_0))"
+"(let-values(((convert-mode_0) convert-mode40_0))"
+"(let-values(((single-mode_0) single-mode41_0))"
 "(let-values()"
 "(let-values(((c_0)"
 "(if(fx= start_0 end_0)"
@@ -55273,28 +55200,28 @@ static const char *startup_source =
 "(substring s_0 start_0 end_0)))"
 "(let-values() #f)))"
 "(let-values()"
-"(let-values(((s100_0) s_0)"
-"((temp101_0)(fx+ 1 next_0))"
-"((end102_0) end_0)"
-"((radix103_0) radix_0)"
-"((radix-set?104_0) radix-set?_0)"
-"((temp105_0)"
+"(let-values(((s88_0) s_0)"
+"((temp89_0)(fx+ 1 next_0))"
+"((end90_0) end_0)"
+"((radix91_0) radix_0)"
+"((radix-set?92_0) radix-set?_0)"
+"((temp93_0)"
 "(if(let-values(((or-part_0)(char=? i_0 '#\\e)))"
 "(if or-part_0 or-part_0(char=? i_0 '#\\E)))"
 " 'exact"
 " 'inexact))"
-"((temp106_0)"
+"((temp94_0)"
 "(if(eq? convert-mode_0 'read) 'must-read convert-mode_0))"
-"((single-mode107_0) single-mode_0))"
-"(do-string->number52.1"
-" radix-set?104_0"
-" s100_0"
-" temp101_0"
-" end102_0"
-" radix103_0"
-" temp105_0"
-" temp106_0"
-" single-mode107_0)))))"
+"((single-mode95_0) single-mode_0))"
+"(do-string->number.1"
+" radix-set?92_0"
+" s88_0"
+" temp89_0"
+" end90_0"
+" radix91_0"
+" temp93_0"
+" temp94_0"
+" single-mode95_0)))))"
 "(if(let-values(((or-part_0)(eqv? i_0 '#\\b)))"
 "(if or-part_0"
 " or-part_0"
@@ -55339,26 +55266,26 @@ static const char *startup_source =
 "(equal? tmp_0 '#\\D))"
 "(let-values() 10)"
 "(let-values() 16)))))))"
-"(let-values(((s108_0) s_0)"
-"((temp109_0)(fx+ 1 next_0))"
-"((end110_0) end_0)"
-"((radix111_0) radix_1)"
-"((temp112_0) #t)"
-"((exactness113_0) exactness_0)"
-"((temp114_0)"
+"(let-values(((s96_0) s_0)"
+"((temp97_0)(fx+ 1 next_0))"
+"((end98_0) end_0)"
+"((radix99_0) radix_1)"
+"((temp100_0) #t)"
+"((exactness101_0) exactness_0)"
+"((temp102_0)"
 "(if(eq? convert-mode_0 'read)"
 " 'must-read"
 " convert-mode_0))"
-"((single-mode115_0) single-mode_0))"
-"(do-string->number52.1"
-" temp112_0"
-" s108_0"
-" temp109_0"
-" end110_0"
-" radix111_0"
-" exactness113_0"
-" temp114_0"
-" single-mode115_0))))))"
+"((single-mode103_0) single-mode_0))"
+"(do-string->number.1"
+" temp100_0"
+" s96_0"
+" temp97_0"
+" end98_0"
+" radix99_0"
+" exactness101_0"
+" temp102_0"
+" single-mode103_0))))))"
 "(let-values()"
 "(if(eq?"
 "(state->convert-mode"
@@ -55398,10 +55325,10 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((temp116_0)"
+"(let-values(((temp104_0)"
 "(init-state exactness_0 convert-mode_0 single-mode_0 #f))"
-"((temp117_0) 'approx))"
-"(set-exactness33.1 #f temp116_0 temp117_0))))"
+"((temp105_0) 'approx))"
+"(set-exactness.1 #f temp104_0 temp105_0))))"
 "(let-values()(bad-digit c_0 s_0 convert-mode_0)))))))))))))))))))))"
 "(define-values"
 "(read-signed)"
@@ -55428,8 +55355,7 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state118_0) state_0)((temp119_0) 'approx))"
-"(set-exactness33.1 #f state118_0 temp119_0))))"
+"(let-values(((state106_0) state_0)((temp107_0) 'approx))(set-exactness.1 #f state106_0 temp107_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\i)))"
 "(if or-part_0 or-part_0(let-values(((or-part_1)(eqv? c_0 '#\\I)))(if or-part_1 or-part_1 #f))))"
 "(let-values()"
@@ -55460,8 +55386,8 @@ static const char *startup_source =
 "(let-values(((c_0)(string-ref s_0 start_0)))(maybe-digit c_0 radix_0)))))"
 "(if(let-values(((or-part_0)(eqv? c_0 'eof)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
-"(let-values(((sgn120_0) sgn_0)((temp121_0)(get-n_0))((s122_0) s_0)((state123_0) state_0))"
-"(finish26.1 #f sgn120_0 temp121_0 s122_0 state123_0)))"
+"(let-values(((sgn108_0) sgn_0)((temp109_0)(get-n_0))((s110_0) s_0)((state111_0) state_0))"
+"(finish.1 #f sgn108_0 temp109_0 s110_0 state111_0)))"
 "(if(let-values(((or-part_0)(fixnum? c_0)))(if or-part_0 or-part_0 #f))"
 "(let-values()(read-integer sgn_0(+(* n_0 radix_0) c_0) s_0(fx+ 1 start_0) end_0 radix_0 state_0))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\.)))(if or-part_0 or-part_0 #f))"
@@ -55474,8 +55400,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state124_0) state_0)((temp125_0) 'approx))"
-"(set-exactness33.1 #f state124_0 temp125_0))))"
+"(let-values(((state112_0) state_0)((temp113_0) 'approx))"
+"(set-exactness.1 #f state112_0 temp113_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\e)))"
 "(if or-part_0"
 " or-part_0"
@@ -55520,8 +55446,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state126_0) state_0)((c127_0) c_0))"
-"(set-exactness-by-char40.1 #f state126_0 c127_0))))"
+"(let-values(((state114_0) state_0)((c115_0) c_0))"
+"(set-exactness-by-char.1 #f state114_0 c115_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\/)))(if or-part_0 or-part_0 #f))"
 "(let-values()(read-rational sgn_0(get-n_0) #f s_0(fx+ 1 start_0) end_0 radix_0 state_0))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\#)))(if or-part_0 or-part_0 #f))"
@@ -55535,8 +55461,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state128_0) state_0)((temp129_0) 'approx))"
-"(set-exactness33.1 #f state128_0 temp129_0))))"
+"(let-values(((state116_0) state_0)((temp117_0) 'approx))"
+"(set-exactness.1 #f state116_0 temp117_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\+)))"
 "(if or-part_0"
 " or-part_0"
@@ -55582,8 +55508,8 @@ static const char *startup_source =
 "(if(let-values(((or-part_1)(not v_0)))(if or-part_1 or-part_1(string? v_0)))"
 " v_0"
 "((lambda(n_1)"
-"(let-values(((sgn130_0) sgn_0)((n131_0) n_1)((s132_0) s_0)((state133_0) state_0))"
-"(finish26.1 #f sgn130_0 n131_0 s132_0 state133_0)))"
+"(let-values(((sgn118_0) sgn_0)((n119_0) n_1)((s120_0) s_0)((state121_0) state_0))"
+"(finish.1 #f sgn118_0 n119_0 s120_0 state121_0)))"
 " v_0))))))"
 "(if(let-values(((or-part_0)(fixnum? c_0)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
@@ -55656,8 +55582,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state134_0) state_0)((c135_0) c_0))"
-"(set-exactness-by-char40.1 #f state134_0 c135_0)))"
+"(let-values(((state122_0) state_0)((c123_0) c_0))"
+"(set-exactness-by-char.1 #f state122_0 c123_0)))"
 "                      (bad-no-digits \".\" s_0 state_0)))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\/)))(if or-part_0 or-part_0 #f))"
 "(let-values()(bad-mixed-decimal-fraction s_0 state_0))"
@@ -55710,8 +55636,8 @@ static const char *startup_source =
 "(let-values(((c_0)(string-ref s_0 start_0)))(maybe-digit c_0 radix_0)))))"
 "(if(let-values(((or-part_0)(eqv? c_0 'eof)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
-"(let-values(((sgn136_0) sgn_0)((temp137_0)(get-n_0))((s138_0) s_0)((state139_0) state_0))"
-"(finish26.1 #f sgn136_0 temp137_0 s138_0 state139_0)))"
+"(let-values(((sgn124_0) sgn_0)((temp125_0)(get-n_0))((s126_0) s_0)((state127_0) state_0))"
+"(finish.1 #f sgn124_0 temp125_0 s126_0 state127_0)))"
 "(if(let-values(((or-part_0)(fixnum? c_0)))(if or-part_0 or-part_0 #f))"
 "              (let-values () (bad-misplaced \"#\" s_0 state_0))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\.)))(if or-part_0 or-part_0 #f))"
@@ -55775,8 +55701,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state140_0) state_0)((c141_0) c_0))"
-"(set-exactness-by-char40.1 #f state140_0 c141_0))))"
+"(let-values(((state128_0) state_0)((c129_0) c_0))"
+"(set-exactness-by-char.1 #f state128_0 c129_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\/)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
 "(if saw-.?_0"
@@ -55913,8 +55839,8 @@ static const char *startup_source =
 "(if(let-values(((or-part_1)(not v_0)))(if or-part_1 or-part_1(string? v_0)))"
 " v_0"
 "((lambda(n_0)"
-"(let-values(((sgn142_0) sgn_0)((n143_0) n_0)((s144_0) s_0)((state145_0) state_0))"
-"(finish26.1 #f sgn142_0 n143_0 s144_0 state145_0)))"
+"(let-values(((sgn130_0) sgn_0)((n131_0) n_0)((s132_0) s_0)((state133_0) state_0))"
+"(finish.1 #f sgn130_0 n131_0 s132_0 state133_0)))"
 " v_0))))))"
 "(if(let-values(((or-part_0)(fixnum? c_0)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
@@ -56033,13 +55959,13 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((n_0)(if(negative? sgn_0) -inf.0 +inf.0)))"
 "(let-values(((new-state_0)"
-"(let-values(((state146_0) state_0)"
-"((temp147_0)(string-ref s_0(fx+ start_0 2)))"
-"((temp148_0) #t))"
-"(set-exactness-by-char40.1"
-" temp148_0"
-" state146_0"
-" temp147_0))))"
+"(let-values(((state134_0) state_0)"
+"((temp135_0)(string-ref s_0(fx+ start_0 2)))"
+"((temp136_0) #t))"
+"(set-exactness-by-char.1"
+" temp136_0"
+" state134_0"
+" temp135_0))))"
 "(let-values(((c2_0)"
 "(if(fx=(fx+ 3 start_0) end_0)"
 " 'eof"
@@ -56048,11 +55974,11 @@ static const char *startup_source =
 "(if(let-values(((or-part_0)(eqv? c2_0 'eof)))"
 "(if or-part_0 or-part_0 #f))"
 "(let-values()"
-"(let-values(((sgn149_0) sgn_0)"
-"((n150_0) n_0)"
-"((s151_0) s_0)"
-"((new-state152_0) new-state_0))"
-"(finish26.1 #f sgn149_0 n150_0 s151_0 new-state152_0)))"
+"(let-values(((sgn137_0) sgn_0)"
+"((n138_0) n_0)"
+"((s139_0) s_0)"
+"((new-state140_0) new-state_0))"
+"(finish.1 #f sgn137_0 n138_0 s139_0 new-state140_0)))"
 "(if(let-values(((or-part_0)(eqv? c2_0 '#\\+)))"
 "(if or-part_0"
 " or-part_0"
@@ -56135,14 +56061,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((n_0) +nan.0))"
 "(let-values(((new-state_0)"
-"(let-values(((state153_0) state_0)"
-"((temp154_0)"
+"(let-values(((state141_0) state_0)"
+"((temp142_0)"
 "(string-ref s_0(fx+ start_0 3)))"
-"((temp155_0) #t))"
-"(set-exactness-by-char40.1"
-" temp155_0"
-" state153_0"
-" temp154_0))))"
+"((temp143_0) #t))"
+"(set-exactness-by-char.1"
+" temp143_0"
+" state141_0"
+" temp142_0))))"
 "(let-values(((c2_0)"
 "(if(fx=(fx+ 4 start_0) end_0)"
 " 'eof"
@@ -56154,16 +56080,16 @@ static const char *startup_source =
 "(if(let-values(((or-part_0)(eqv? c2_0 'eof)))"
 "(if or-part_0 or-part_0 #f))"
 "(let-values()"
-"(let-values(((temp156_0) 1)"
-"((n157_0) n_0)"
-"((s158_0) s_0)"
-"((new-state159_0) new-state_0))"
-"(finish26.1"
+"(let-values(((temp144_0) 1)"
+"((n145_0) n_0)"
+"((s146_0) s_0)"
+"((new-state147_0) new-state_0))"
+"(finish.1"
 " #f"
-" temp156_0"
-" n157_0"
-" s158_0"
-" new-state159_0)))"
+" temp144_0"
+" n145_0"
+" s146_0"
+" new-state147_0)))"
 "(if(let-values(((or-part_0)(eqv? c2_0 '#\\+)))"
 "(if or-part_0"
 " or-part_0"
@@ -56227,8 +56153,8 @@ static const char *startup_source =
 "(if(let-values(((or-part_0)(not v_0)))(if or-part_0 or-part_0(string? v_0)))"
 " v_0"
 "((lambda(n_0)"
-"(let-values(((sgn160_0) sgn_0)((n161_0) n_0)((s162_0) s_0)((state163_0) state_0))"
-"(finish26.1 #f sgn160_0 n161_0 s162_0 state163_0)))"
+"(let-values(((sgn148_0) sgn_0)((n149_0) n_0)((s150_0) s_0)((state151_0) state_0))"
+"(finish.1 #f sgn148_0 n149_0 s150_0 state151_0)))"
 " v_0))))"
 "(if(let-values(((or-part_0)(fixnum? c_0)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
@@ -56255,8 +56181,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state164_0) state_0)((temp165_0) 'approx))"
-"(set-exactness33.1 #f state164_0 temp165_0)))"
+"(let-values(((state152_0) state_0)((temp153_0) 'approx))"
+"(set-exactness.1 #f state152_0 temp153_0)))"
 "                      (bad-misplaced \"#\" s_0 state_0)))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\e)))"
 "(if or-part_0"
@@ -56306,8 +56232,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state166_0) state_0)((c167_0) c_0))"
-"(set-exactness-by-char40.1 #f state166_0 c167_0))))"
+"(let-values(((state154_0) state_0)((c155_0) c_0))"
+"(set-exactness-by-char.1 #f state154_0 c155_0))))"
 " v_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\/)))(if or-part_0 or-part_0 #f))"
 "                      (let-values () (bad-misplaced \"/\" s_0 state_0))"
@@ -56358,8 +56284,8 @@ static const char *startup_source =
 "(let-values(((c_0)(string-ref s_0 start_0)))(maybe-digit c_0 radix_0)))))"
 "(if(let-values(((or-part_0)(eqv? c_0 'eof)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
-"(let-values(((sgn168_0) sgn_0)((temp169_0)(get-n_0))((s170_0) s_0)((state171_0) state_0))"
-"(finish26.1 #f sgn168_0 temp169_0 s170_0 state171_0)))"
+"(let-values(((sgn156_0) sgn_0)((temp157_0)(get-n_0))((s158_0) s_0)((state159_0) state_0))"
+"(finish.1 #f sgn156_0 temp157_0 s158_0 state159_0)))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\#)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
 "(read-denom-approx sgn_0 sgn-n_0 d_0(fx+ 1 exp_0) s_0(fx+ 1 start_0) end_0 radix_0 state_0))"
@@ -56412,8 +56338,8 @@ static const char *startup_source =
 "(fx+ 1 start_0)"
 " end_0"
 " radix_0"
-"(let-values(((state172_0) state_0)((c173_0) c_0))"
-"(set-exactness-by-char40.1 #f state172_0 c173_0))))"
+"(let-values(((state160_0) state_0)((c161_0) c_0))"
+"(set-exactness-by-char.1 #f state160_0 c161_0))))"
 "(if(let-values(((or-part_0)(eqv? c_0 '#\\+)))"
 "(if or-part_0"
 " or-part_0"
@@ -56451,7 +56377,7 @@ static const char *startup_source =
 " start_0"
 " end_0"
 " radix_0"
-"(state-set-first-half state_0(rect-prefix9.1 real-sgn_0 real_0(fx- start_0 1)))))))))"
+"(state-set-first-half state_0(rect-prefix7.1 real-sgn_0 real_0(fx- start_0 1)))))))))"
 "(define-values"
 "(read-polar)"
 "(lambda(real-sgn_0 real_0 s_0 start_0 end_0 radix_0 state_0)"
@@ -56470,19 +56396,19 @@ static const char *startup_source =
 "(if or-part_0 or-part_0(let-values(((or-part_1)(eqv? c_0 '#\\-)))(if or-part_1 or-part_1 #f))))"
 "(let-values()"
 "(let-values(((new-state_0)"
-"(state-set-first-half state_0(polar-prefix10.1 real-sgn_0 real_0 start_0))))"
+"(state-set-first-half state_0(polar-prefix8.1 real-sgn_0 real_0 start_0))))"
 "(read-signed(if(eq? c_0 '#\\+) 1 -1) s_0(fx+ 1 start_0) end_0 radix_0 new-state_0)))"
 "(if(let-values(((or-part_0)(fixnum? c_0)))(if or-part_0 or-part_0 #f))"
 "(let-values()"
 "(let-values(((new-state_0)"
-"(state-set-first-half state_0(polar-prefix10.1 real-sgn_0 real_0 start_0))))"
+"(state-set-first-half state_0(polar-prefix8.1 real-sgn_0 real_0 start_0))))"
 "(read-integer 1 c_0 s_0(fx+ 1 start_0) end_0 radix_0 new-state_0)))"
 "(let-values()(bad-digit c_0 s_0 state_0)))))))))))"
 "(define-values"
-"(read-symbol-or-number8.1)"
+"(read-symbol-or-number.1)"
 "(lambda(extra-prefix2_0 mode1_0 init-c5_0 in6_0 orig-config7_0)"
 "(begin"
-" 'read-symbol-or-number8"
+" 'read-symbol-or-number"
 "(let-values(((init-c_0) init-c5_0))"
 "(let-values(((in_0) in6_0))"
 "(let-values(((orig-config_0) orig-config7_0))"
@@ -56525,30 +56451,30 @@ static const char *startup_source =
 "(lambda(c_0 after-c_0)"
 "(begin"
 " 'unexpected-quoted"
-"(let-values(((in11_0) in_0)"
-"((config12_0) config_0)"
-"((c13_0) c_0)"
-"                                                                     ((temp14_0) \"~a following `~a` in ~a\")"
-"((temp15_0)"
+"(let-values(((in9_0) in_0)"
+"((config10_0) config_0)"
+"((c11_0) c_0)"
+"                                                                     ((temp12_0) \"~a following `~a` in ~a\")"
+"((temp13_0)"
 "(if(eof-object? c_0)"
 "                                                                        \"end-of-file\""
 "                                                                        \"non-character\"))"
-"((after-c16_0) after-c_0)"
-"((temp17_0)"
+"((after-c14_0) after-c_0)"
+"((temp15_0)"
 "(if(eq? mode_0 'keyword)"
 "                                                                        (let-values () \"keyword\")"
 "(if(string? mode_0)"
 "                                                                          (let-values () \"number\")"
 "                                                                          (let-values () \"symbol\")))))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" c13_0"
+" c11_0"
 " #f"
 " unsafe-undefined"
-" in11_0"
-" config12_0"
-" temp14_0"
-"(list temp15_0 after-c16_0 temp17_0)))))))"
+" in9_0"
+" config10_0"
+" temp12_0"
+"(list temp13_0 after-c14_0 temp15_0)))))))"
 "(let-values((()"
 "(begin"
 "((letrec-values(((loop_0)"
@@ -56737,9 +56663,9 @@ static const char *startup_source =
 " 0)"
 "(values))))"
 "(let-values(((str_0)"
-"(let-values(((accum-str18_0) accum-str_0)"
-"((config19_0) config_0))"
-"(accum-string-get!6.1 0 accum-str18_0 config19_0))))"
+"(let-values(((accum-str16_0) accum-str_0)"
+"((config17_0) config_0))"
+"(accum-string-get!.1 0 accum-str16_0 config17_0))))"
 "(let-values((()"
 "(begin"
 "(if(if(= 1(string-length str_0))"
@@ -56750,17 +56676,17 @@ static const char *startup_source =
 " #f)"
 " #f)"
 "(let-values()"
-"(let-values(((in20_0) in_0)"
-"((config21_0) config_0)"
-"                                                                             ((temp22_0) \"illegal use of `.`\"))"
-"(reader-error12.1"
+"(let-values(((in18_0) in_0)"
+"((config19_0) config_0)"
+"                                                                             ((temp20_0) \"illegal use of `.`\"))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in20_0"
-" config21_0"
-" temp22_0"
+" in18_0"
+" config19_0"
+" temp20_0"
 "(list))))"
 "(void))"
 "(values))))"
@@ -56788,35 +56714,35 @@ static const char *startup_source =
 "(begin"
 "(if(string? num_0)"
 "(let-values()"
-"(let-values(((in23_0) in_0)"
-"((config24_0) config_0)"
-"                                                                   ((temp25_0) \"~a\")"
-"((num26_0) num_0))"
-"(reader-error12.1"
+"(let-values(((in21_0) in_0)"
+"((config22_0) config_0)"
+"                                                                   ((temp23_0) \"~a\")"
+"((num24_0) num_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in23_0"
-" config24_0"
-" temp25_0"
-"(list num26_0))))"
+" in21_0"
+" config22_0"
+" temp23_0"
+"(list num24_0))))"
 "(void))"
 "(if(if(not num_0)(string? mode_0) #f)"
 "(let-values()"
-"(let-values(((in27_0) in_0)"
-"((config28_0) config_0)"
-"                                                                   ((temp29_0) \"bad number: `~a`\")"
-"((temp30_0)(string-append mode_0 str_0)))"
-"(reader-error12.1"
+"(let-values(((in25_0) in_0)"
+"((config26_0) config_0)"
+"                                                                   ((temp27_0) \"bad number: `~a`\")"
+"((temp28_0)(string-append mode_0 str_0)))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in27_0"
-" config28_0"
-" temp29_0"
-"(list temp30_0))))"
+" in25_0"
+" config26_0"
+" temp27_0"
+"(list temp28_0))))"
 "(void))"
 "(wrap"
 "(let-values(((or-part_0) num_0))"
@@ -56846,7 +56772,7 @@ static const char *startup_source =
 "((temp2_0)(reading-at config_0 line_0 col_0 pos_0))"
 "                               ((temp3_0) \"expected a fixnum, found ~a\")"
 "((v4_0) v_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -56871,7 +56797,7 @@ static const char *startup_source =
 "((temp6_0)(reading-at config_0 line_0 col_0 pos_0))"
 "                               ((temp7_0) \"expected a flonum, found ~a\")"
 "((v8_0) v_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -56888,12 +56814,12 @@ static const char *startup_source =
 "(let-values() c_0)"
 "(let-values()"
 "(let-values(((c9_0) c_0)((in10_0) in_0)((config11_0) config_0)((mode12_0) mode_0))"
-"(read-symbol-or-number8.1 #f mode12_0 c9_0 in10_0 config11_0)))))))"
+"(read-symbol-or-number.1 #f mode12_0 c9_0 in10_0 config11_0)))))))"
 "(define-values"
-"(read-vector11.1)"
+"(read-vector.1)"
 "(lambda(length2_0 mode1_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_0 config10_0)"
 "(begin"
-" 'read-vector11"
+" 'read-vector"
 "(let-values(((read-one_0) read-one5_0))"
 "(let-values(((opener-c_0) opener-c6_0))"
 "(let-values(((opener_0) opener7_0))"
@@ -56921,26 +56847,26 @@ static const char *startup_source =
 "(read-flonum read-one_0 init-c_0 in_1 config_1))))"
 "(let-values()(void))))))))"
 "(let-values(((seq_0)"
-"(let-values(((read-one-element14_0) read-one-element_0)"
-"((opener-c15_0) opener-c_0)"
-"((opener16_0) opener_0)"
-"((closer17_0) closer_0)"
-"((in18_0) in_0)"
-"((config19_0) config_0)"
-"((read-one20_0) read-one_0)"
-"((temp21_0) #f))"
-"(read-unwrapped-sequence17.1"
-" temp21_0"
+"(let-values(((read-one-element12_0) read-one-element_0)"
+"((opener-c13_0) opener-c_0)"
+"((opener14_0) opener_0)"
+"((closer15_0) closer_0)"
+"((in16_0) in_0)"
+"((config17_0) config_0)"
+"((read-one18_0) read-one_0)"
+"((temp19_0) #f))"
+"(read-unwrapped-sequence.1"
+" temp19_0"
 " unsafe-undefined"
 " unsafe-undefined"
 " #f"
-" read-one20_0"
-" read-one-element14_0"
-" opener-c15_0"
-" opener16_0"
-" closer17_0"
-" in18_0"
-" config19_0))))"
+" read-one18_0"
+" read-one-element12_0"
+" opener-c13_0"
+" opener14_0"
+" closer15_0"
+" in16_0"
+" config17_0))))"
 "(let-values(((vec_0)"
 "(if(not expected-len_0)"
 "(let-values()"
@@ -57102,11 +57028,11 @@ static const char *startup_source =
 "(let-values()(list->vector seq_0))"
 "(if(< expected-len_0 len_0)"
 "(let-values()"
-"(let-values(((in22_0) in_0)"
-"((config23_0) config_0)"
-"((temp24_0)"
+"(let-values(((in20_0) in_0)"
+"((config21_0) config_0)"
+"((temp22_0)"
 "                                                                    \"~avector length ~a is too small, ~a values provided\")"
-"((temp25_0)"
+"((temp23_0)"
 "(let-values(((tmp_0) vector-mode_0))"
 "(if(equal? tmp_0 'any)"
 "                                                                        (let-values () \"\")"
@@ -57115,17 +57041,17 @@ static const char *startup_source =
 "(if(equal? tmp_0 'flonum)"
 "                                                                            (let-values () \"fl\")"
 "(let-values()(void)))))))"
-"((expected-len26_0) expected-len_0)"
-"((len27_0) len_0))"
-"(reader-error12.1"
+"((expected-len24_0) expected-len_0)"
+"((len25_0) len_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in22_0"
-" config23_0"
-" temp24_0"
-"(list temp25_0 expected-len26_0 len27_0))))"
+" in20_0"
+" config21_0"
+" temp22_0"
+"(list temp23_0 expected-len24_0 len25_0))))"
 "(let-values()"
 "(let-values(((last-or_0)"
 "(lambda(v_0)"
@@ -57344,19 +57270,19 @@ static const char *startup_source =
 "(begin"
 "(if(read-config-for-syntax? config_0)"
 "(let-values()"
-"(let-values(((in28_0) in_0)"
-"((config29_0) config_0)"
-"                                           ((temp30_0) \"literal f~avectors not allowed\")"
-"((c231_0) c2_0))"
-"(reader-error12.1"
+"(let-values(((in26_0) in_0)"
+"((config27_0) config_0)"
+"                                           ((temp28_0) \"literal f~avectors not allowed\")"
+"((c229_0) c2_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in28_0"
-" config29_0"
-" temp30_0"
-"(list c231_0))))"
+" in26_0"
+" config27_0"
+" temp28_0"
+"(list c229_0))))"
 "(void))"
 "(values))))"
 "(let-values(((c3_0)"
@@ -57369,92 +57295,92 @@ static const char *startup_source =
 "(let-values(((tmp_0) c4_0))"
 "(if(equal? tmp_0 '#\\()"
 "(let-values()"
-"(let-values(((read-one32_0) read-one_0)"
-"((temp33_0) '#\\()"
-"((temp34_0) '#\\()"
-"((temp35_0) '#\\))"
-"((in36_0) in_0)"
-"((config37_0) config_0)"
-"((vector-mode38_0) vector-mode_0)"
-"((vector-len39_0) vector-len_0))"
-"(read-vector11.1"
-" vector-len39_0"
-" vector-mode38_0"
-" read-one32_0"
+"(let-values(((read-one30_0) read-one_0)"
+"((temp31_0) '#\\()"
+"((temp32_0) '#\\()"
+"((temp33_0) '#\\))"
+"((in34_0) in_0)"
+"((config35_0) config_0)"
+"((vector-mode36_0) vector-mode_0)"
+"((vector-len37_0) vector-len_0))"
+"(read-vector.1"
+" vector-len37_0"
+" vector-mode36_0"
+" read-one30_0"
+" temp31_0"
+" temp32_0"
 " temp33_0"
-" temp34_0"
-" temp35_0"
-" in36_0"
-" config37_0)))"
+" in34_0"
+" config35_0)))"
 "(if(equal? tmp_0 '#\\[)"
 "(let-values()"
 "(if(check-parameter 1/read-square-bracket-as-paren config_0)"
 "(let-values()"
-"(let-values(((read-one40_0) read-one_0)"
-"((temp41_0) '#\\[)"
-"((temp42_0) '#\\[)"
-"((temp43_0) '#\\])"
-"((in44_0) in_0)"
-"((config45_0) config_0)"
-"((vector-mode46_0) vector-mode_0)"
-"((vector-len47_0) vector-len_0))"
-"(read-vector11.1"
-" vector-len47_0"
-" vector-mode46_0"
-" read-one40_0"
+"(let-values(((read-one38_0) read-one_0)"
+"((temp39_0) '#\\[)"
+"((temp40_0) '#\\[)"
+"((temp41_0) '#\\])"
+"((in42_0) in_0)"
+"((config43_0) config_0)"
+"((vector-mode44_0) vector-mode_0)"
+"((vector-len45_0) vector-len_0))"
+"(read-vector.1"
+" vector-len45_0"
+" vector-mode44_0"
+" read-one38_0"
+" temp39_0"
+" temp40_0"
 " temp41_0"
-" temp42_0"
-" temp43_0"
-" in44_0"
-" config45_0)))"
+" in42_0"
+" config43_0)))"
 "(let-values()"
-"(let-values(((in48_0) in_0)"
-"((config49_0) config_0)"
-"                                         ((temp50_0) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_0 c2_0))))"
-"(bad-syntax-error20.1 '#\\x in48_0 config49_0 temp50_0)))))"
+"(let-values(((in46_0) in_0)"
+"((config47_0) config_0)"
+"                                         ((temp48_0) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_0 c2_0))))"
+"(bad-syntax-error.1 '#\\x in46_0 config47_0 temp48_0)))))"
 "(if(equal? tmp_0 '#\\{)"
 "(let-values()"
 "(if(check-parameter 1/read-curly-brace-as-paren config_0)"
 "(let-values()"
-"(let-values(((read-one51_0) read-one_0)"
-"((temp52_0) '#\\{)"
-"((temp53_0) '#\\{)"
-"((temp54_0) '#\\})"
-"((in55_0) in_0)"
-"((config56_0) config_0)"
-"((vector-mode57_0) vector-mode_0)"
-"((vector-len58_0) vector-len_0))"
-"(read-vector11.1"
-" vector-len58_0"
-" vector-mode57_0"
-" read-one51_0"
+"(let-values(((read-one49_0) read-one_0)"
+"((temp50_0) '#\\{)"
+"((temp51_0) '#\\{)"
+"((temp52_0) '#\\})"
+"((in53_0) in_0)"
+"((config54_0) config_0)"
+"((vector-mode55_0) vector-mode_0)"
+"((vector-len56_0) vector-len_0))"
+"(read-vector.1"
+" vector-len56_0"
+" vector-mode55_0"
+" read-one49_0"
+" temp50_0"
+" temp51_0"
 " temp52_0"
-" temp53_0"
-" temp54_0"
-" in55_0"
-" config56_0)))"
+" in53_0"
+" config54_0)))"
 "(let-values()"
-"(let-values(((in59_0) in_0)"
-"((config60_0) config_0)"
-"                                           ((temp61_0) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_0 c2_0))))"
-"(bad-syntax-error20.1 '#\\x in59_0 config60_0 temp61_0)))))"
+"(let-values(((in57_0) in_0)"
+"((config58_0) config_0)"
+"                                           ((temp59_0) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_0 c2_0))))"
+"(bad-syntax-error.1 '#\\x in57_0 config58_0 temp59_0)))))"
 "(let-values()"
-"(let-values(((in62_0) in_0)"
-"((config63_0) config_0)"
-"((c464_0) c4_0)"
-"                                       ((temp65_0) \"expected `(`, `[`, or `{` after `#~a~a~a`\")"
-"((c66_0) c_0)"
-"((c267_0) c2_0)"
-"((len-str68_0) len-str_0))"
-"(reader-error12.1"
+"(let-values(((in60_0) in_0)"
+"((config61_0) config_0)"
+"((c462_0) c4_0)"
+"                                       ((temp63_0) \"expected `(`, `[`, or `{` after `#~a~a~a`\")"
+"((c64_0) c_0)"
+"((c265_0) c2_0)"
+"((len-str66_0) len-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c464_0"
+" c462_0"
 " #f"
 " unsafe-undefined"
-" in62_0"
-" config63_0"
-" temp65_0"
-"(list c66_0 c267_0 len-str68_0))))))))))))))))"
+" in60_0"
+" config61_0"
+" temp63_0"
+"(list c64_0 c265_0 len-str66_0))))))))))))))))"
 "(define-values"
 "(read-simple-number)"
 "(lambda(in_0 config_0 init-c_0)"
@@ -57463,18 +57389,18 @@ static const char *startup_source =
 "(let-values((()(begin(accum-string-add! accum-str_0 init-c_0)(values))))"
 "(let-values(((init-v_0)(digit->number init-c_0)))"
 "(let-values(((v_0)"
-"(let-values(((in69_0) in_0)"
-"((config70_0) config_0)"
-"((accum-str71_0) accum-str_0)"
-"((temp72_0) 10)"
-"((temp73_0) +inf.0)"
-"((init-v74_0) init-v_0)"
-"((init-v75_0) init-v_0))"
-"(read-digits12.1 temp72_0 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))"
+"(let-values(((in67_0) in_0)"
+"((config68_0) config_0)"
+"((accum-str69_0) accum-str_0)"
+"((temp70_0) 10)"
+"((temp71_0) +inf.0)"
+"((init-v72_0) init-v_0)"
+"((init-v73_0) init-v_0))"
+"(read-digits.1 temp70_0 init-v72_0 temp71_0 init-v73_0 in67_0 config68_0 accum-str69_0))))"
 "(values"
 " v_0"
-"(let-values(((accum-str76_0) accum-str_0)((config77_0) config_0))"
-"(accum-string-get!6.1 0 accum-str76_0 config77_0))"
+"(let-values(((accum-str74_0) accum-str_0)((config75_0) config_0))"
+"(accum-string-get!.1 0 accum-str74_0 config75_0))"
 "(let-values(((in_1) in_0)((source_0)(read-config-source config_0)))"
 "(read-char-or-special in_1 special1.1 source_0))))))))))"
 "(define-values"
@@ -57497,7 +57423,7 @@ static const char *startup_source =
 "(let-values(((in1_0) in_0)"
 "((config2_0) config_0)"
 "                                                 ((temp3_0) (format \"~as~a\" dispatch-c_0 c_0)))"
-"(bad-syntax-error20.1 '#\\x in1_0 config2_0 temp3_0)))))"
+"(bad-syntax-error.1 '#\\x in1_0 config2_0 temp3_0)))))"
 "(if(equal? tmp_0 '#\\{)"
 "(let-values()"
 "(if(check-parameter 1/read-curly-brace-as-paren config_0)"
@@ -57506,14 +57432,14 @@ static const char *startup_source =
 "(let-values(((in4_0) in_0)"
 "((config5_0) config_0)"
 "                                                   ((temp6_0) (format \"~as~a\" dispatch-c_0 c_0)))"
-"(bad-syntax-error20.1 '#\\x in4_0 config5_0 temp6_0)))))"
+"(bad-syntax-error.1 '#\\x in4_0 config5_0 temp6_0)))))"
 "(let-values()"
 "(let-values(((in7_0) in_0)"
 "((config8_0) config_0)"
 "                                               ((temp9_0) \"expected ~a after `~as`\")"
 "((temp10_0)(all-openers-str config_0))"
 "((dispatch-c11_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57530,7 +57456,7 @@ static const char *startup_source =
 "((config13_0) config_0)"
 "                                             ((temp14_0) \"missing structure description in `~as` form\")"
 "((dispatch-c15_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57550,7 +57476,7 @@ static const char *startup_source =
 "((config17_0) config_0)"
 "                                               ((temp18_0) \"invalid structure description in `~as` form\")"
 "((dispatch-c19_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57584,7 +57510,7 @@ static const char *startup_source =
 "                                       \"mismatch between structure description\""
 "                                       \" and number of provided field values in `~as` form\"))"
 "((dispatch-c25_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57602,7 +57528,7 @@ static const char *startup_source =
 "((config27_0) config_0)"
 "                                         ((temp28_0) \"cannot read mutable `~as` form as syntax\")"
 "((dispatch-c29_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57625,7 +57551,7 @@ static const char *startup_source =
 "((config35_0) config_0)"
 "((temp36_0)"
 "(lambda(init-c_0 in_1 config_1)(read-one_0 init-c_0 in_1(disable-wrapping config_1)))))"
-"(read-unwrapped-sequence17.1"
+"(read-unwrapped-sequence.1"
 " 'all"
 " unsafe-undefined"
 " temp36_0"
@@ -57652,7 +57578,7 @@ static const char *startup_source =
 "((temp5_0) +inf.0)"
 "((init-v6_0) init-v_0)"
 "((init-v7_0) init-v_0))"
-"(read-digits12.1 temp4_0 init-v6_0 temp5_0 init-v7_0 in1_0 config2_0 accum-str3_0))))"
+"(read-digits.1 temp4_0 init-v6_0 temp5_0 init-v7_0 in1_0 config2_0 accum-str3_0))))"
 "(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_0)))"
 "(let-values(((get-accum_0)"
 "(lambda(c_0)"
@@ -57662,7 +57588,7 @@ static const char *startup_source =
 "                                   \"~a~a~a\""
 " dispatch-c_0"
 "(let-values(((accum-str8_0) accum-str_0)((config9_0) config_0))"
-"(accum-string-get!6.1 0 accum-str8_0 config9_0))"
+"(accum-string-get!.1 0 accum-str8_0 config9_0))"
 " c_0)))))"
 "(let-values(((c_0)"
 "(let-values(((in_1) in_0)((source_0)(read-config-source config_0)))"
@@ -57680,7 +57606,7 @@ static const char *startup_source =
 "((in14_0) in_0)"
 "((config15_0) config_0)"
 "((v16_0) v_0))"
-"(read-vector11.1 v16_0 'any read-one10_0 c11_0 temp12_0 temp13_0 in14_0 config15_0))))"
+"(read-vector.1 v16_0 'any read-one10_0 c11_0 temp12_0 temp13_0 in14_0 config15_0))))"
 "(if(equal? tmp_0 '#\\[)"
 "(let-values()"
 "(begin"
@@ -57694,7 +57620,7 @@ static const char *startup_source =
 "((in21_0) in_0)"
 "((config22_0) config_0)"
 "((v23_0) v_0))"
-"(read-vector11.1"
+"(read-vector.1"
 " v23_0"
 " 'any"
 " read-one17_0"
@@ -57707,7 +57633,7 @@ static const char *startup_source =
 "(let-values(((in24_0) in_0)"
 "((config25_0) config_0)"
 "((temp26_0)(get-accum_0(get-accum_0 c_0))))"
-"(bad-syntax-error20.1 '#\\x in24_0 config25_0 temp26_0))))))"
+"(bad-syntax-error.1 '#\\x in24_0 config25_0 temp26_0))))))"
 "(if(equal? tmp_0 '#\\{)"
 "(let-values()"
 "(begin"
@@ -57721,7 +57647,7 @@ static const char *startup_source =
 "((in31_0) in_0)"
 "((config32_0) config_0)"
 "((v33_0) v_0))"
-"(read-vector11.1"
+"(read-vector.1"
 " v33_0"
 " 'any"
 " read-one27_0"
@@ -57734,7 +57660,7 @@ static const char *startup_source =
 "(let-values(((in34_0) in_0)"
 "((config35_0) config_0)"
 "((temp36_0)(get-accum_0(get-accum_0 c_0))))"
-"(bad-syntax-error20.1 '#\\x in34_0 config35_0 temp36_0))))))"
+"(bad-syntax-error.1 '#\\x in34_0 config35_0 temp36_0))))))"
 "(let-values()"
 "(let-values(((tmp_1) c_0))"
 "(if(if(equal? tmp_1 '#\\=) #t(equal? tmp_1 '#\\#))"
@@ -57753,7 +57679,7 @@ static const char *startup_source =
 "(if(read-config-for-syntax? config_0)"
 "                                                            \"allowed in `read-syntax` mode\""
 "                                                            \"enabled\")))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57773,9 +57699,9 @@ static const char *startup_source =
 "((temp46_0)"
 "(let-values(((accum-str48_0) accum-str_0)"
 "((config49_0) config_0))"
-"(accum-string-get!6.1 0 accum-str48_0 config49_0)))"
+"(accum-string-get!.1 0 accum-str48_0 config49_0)))"
 "((c47_0) c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57802,12 +57728,12 @@ static const char *startup_source =
 " accum-str_0)"
 "((config57_0)"
 " config_0))"
-"(accum-string-get!6.1"
+"(accum-string-get!.1"
 " 0"
 " accum-str56_0"
 " config57_0)))"
 "((c55_0) c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57833,12 +57759,12 @@ static const char *startup_source =
 "((temp63_0)"
 "(let-values(((accum-str65_0) accum-str_0)"
 "((config66_0) config_0))"
-"(accum-string-get!6.1"
+"(accum-string-get!.1"
 " 0"
 " accum-str65_0"
 " config66_0)))"
 "((c64_0) c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " result-v60_0"
 " #f"
@@ -57869,9 +57795,9 @@ static const char *startup_source =
 "((temp73_0)"
 "(let-values(((accum-str75_0) accum-str_0)"
 "((config76_0) config_0))"
-"(accum-string-get!6.1 0 accum-str75_0 config76_0)))"
+"(accum-string-get!.1 0 accum-str75_0 config76_0)))"
 "((c74_0) c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -57888,7 +57814,7 @@ static const char *startup_source =
 "((c79_0) c_0)"
 "                                                   ((temp80_0) \"bad syntax `~a`\")"
 "((temp81_0)(get-accum_0 c_0)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " c79_0"
 " #f"
@@ -57938,8 +57864,8 @@ static const char *startup_source =
 "((expect-c5_0) expect-c_0)"
 "((temp6_0)"
 "(let-values(((accum-str7_0) accum-str_0)((config8_0) config_0))"
-"(accum-string-get!6.1 0 accum-str7_0 config8_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str7_0 config8_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " c3_0"
 " #f"
@@ -57989,7 +57915,7 @@ static const char *startup_source =
 "((config14_0) config_0)"
 "((config15_0) config_0)"
 "((temp16_0) #f))"
-"(read-unwrapped-sequence17.1"
+"(read-unwrapped-sequence.1"
 " temp16_0"
 " config15_0"
 " unsafe-undefined"
@@ -58029,7 +57955,7 @@ static const char *startup_source =
 "((config22_0) config_0)"
 "((config23_0) config_0)"
 "((temp24_0) #f))"
-"(read-unwrapped-sequence17.1"
+"(read-unwrapped-sequence.1"
 " temp24_0"
 " config23_0"
 " unsafe-undefined"
@@ -58048,7 +57974,7 @@ static const char *startup_source =
 "((config26_0) config_0)"
 "                                                                                     ((temp27_0) \"illegal use of `~a`\")"
 "((c28_0) c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -58083,7 +58009,7 @@ static const char *startup_source =
 "((config34_0) config_0)"
 "((config35_0) config_0)"
 "((temp36_0) #f))"
-"(read-unwrapped-sequence17.1"
+"(read-unwrapped-sequence.1"
 " temp36_0"
 " config35_0"
 " unsafe-undefined"
@@ -58103,7 +58029,7 @@ static const char *startup_source =
 "((temp39_0)"
 "                                                                                        \"illegal use of `~a`\")"
 "((c40_0) c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -58135,11 +58061,11 @@ static const char *startup_source =
 " accum-str_0)"
 "((config46_0)"
 " config_0))"
-"(accum-string-get!6.1"
+"(accum-string-get!.1"
 " 0"
 " accum-str45_0"
 " config46_0))))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -58163,11 +58089,11 @@ static const char *startup_source =
 " accum-str_0)"
 "((config53_0)"
 " config_0))"
-"(accum-string-get!6.1"
+"(accum-string-get!.1"
 " 0"
 " accum-str52_0"
 " config53_0))))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " c49_0"
 " #f"
@@ -58227,7 +58153,7 @@ static const char *startup_source =
 "                                       ((temp58_0) \"expected ~a to close `~a`\")"
 "((temp59_0)(closer-name overall-closer-ec_0 config_0))"
 "((overall-opener-c60_0) overall-opener-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " c56_0"
 " prefix-end-pos57_0"
@@ -58242,7 +58168,7 @@ static const char *startup_source =
 "((temp62_0)(reading-at config_0 open-line_0 open-col_0 open-pos_0))"
 "                                         ((temp63_0) \"~a\")"
 "((temp64_0)(indentation-unexpected-closer-message ec_0 c_0 config_0)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -58268,7 +58194,7 @@ static const char *startup_source =
 "((temp66_0)(reading-at config_0 open-line_0 open-col_0 open-pos_0))"
 "                                               ((temp67_0) \"expected ~a to start a hash pair\")"
 "((temp68_0)(all-openers-str config_0)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -58306,7 +58232,7 @@ static const char *startup_source =
 "((dot-c71_0) dot-c_0)"
 "                                                               ((temp72_0) \"expected ~a and value for hash\")"
 "((temp73_0)(dot-name config_0)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " dot-c71_0"
 " #f"
@@ -58336,7 +58262,7 @@ static const char *startup_source =
 "((closer-c76_0) closer-c_0)"
 "                                                           ((temp77_0) \"expected ~a after value within a hash\")"
 "((temp78_0)(closer-name closer_0 config_0)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " closer-c76_0"
 " #f"
@@ -58347,10 +58273,10 @@ static const char *startup_source =
 "(list temp78_0)))))"
 "(cons(coerce-key k_0 elem-config_0) v_0))))))))))))))))))))))"
 "(define-values"
-"(read-string5.1)"
+"(read-string.1)"
 "(lambda(mode1_0 in3_0 config4_0)"
 "(begin"
-" 'read-string5"
+" 'read-string"
 "(let-values(((in_0) in3_0))"
 "(let-values(((config_0) config4_0))"
 "(let-values(((mode_0) mode1_0))"
@@ -58364,35 +58290,35 @@ static const char *startup_source =
 " 'bad-end"
 "(if(eof-object? c_0)"
 "(let-values()"
-"(let-values(((in8_0) in_0)"
-"((config9_0) config_0)"
-"((c10_0) c_0)"
-"((open-end-pos11_0) open-end-pos_0)"
-"                                                       ((temp12_0) \"expected a closing `\\\"`\"))"
-"(reader-error12.1"
+"(let-values(((in6_0) in_0)"
+"((config7_0) config_0)"
+"((c8_0) c_0)"
+"((open-end-pos9_0) open-end-pos_0)"
+"                                                       ((temp10_0) \"expected a closing `\\\"`\"))"
+"(reader-error.1"
 " unsafe-undefined"
-" c10_0"
-" open-end-pos11_0"
+" c8_0"
+" open-end-pos9_0"
 " unsafe-undefined"
-" in8_0"
-" config9_0"
-" temp12_0"
+" in6_0"
+" config7_0"
+" temp10_0"
 "(list))))"
 "(let-values()"
-"(let-values(((in13_0) in_0)"
-"((config14_0) config_0)"
-"((c15_0) c_0)"
-"                                                       ((temp16_0) \"found non-character while reading a ~a\")"
-"((mode17_0) mode_0))"
-"(reader-error12.1"
+"(let-values(((in11_0) in_0)"
+"((config12_0) config_0)"
+"((c13_0) c_0)"
+"                                                       ((temp14_0) \"found non-character while reading a ~a\")"
+"((mode15_0) mode_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c15_0"
+" c13_0"
 " #f"
 " unsafe-undefined"
-" in13_0"
-" config14_0"
-" temp16_0"
-"(list mode17_0)))))))))"
+" in11_0"
+" config12_0"
+" temp14_0"
+"(list mode15_0)))))))))"
 "(let-values((()"
 "(begin"
 "((letrec-values(((loop_0)"
@@ -58429,29 +58355,29 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'unknown-error"
-"(let-values(((in18_0) in_0)"
-"((config19_0)"
+"(let-values(((in16_0) in_0)"
+"((config17_0)"
 " config_0)"
-"((temp20_0)"
+"((temp18_0)"
 "                                                                                                          \"unknown escape sequence `~a~a` in ~a\")"
-"((escaping-c21_0)"
+"((escaping-c19_0)"
 " escaping-c_0)"
-"((escaped-c22_0)"
+"((escaped-c20_0)"
 " escaped-c_0)"
-"((mode23_0)"
+"((mode21_0)"
 " mode_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in18_0"
-" config19_0"
-" temp20_0"
+" in16_0"
+" config17_0"
+" temp18_0"
 "(list"
-" escaping-c21_0"
-" escaped-c22_0"
-" mode23_0)))))))"
+" escaping-c19_0"
+" escaped-c20_0"
+" mode21_0)))))))"
 "(begin"
 "(let-values(((tmp_0) escaped-c_0))"
 "(let-values(((index_0)"
@@ -58681,65 +58607,65 @@ static const char *startup_source =
 "(digit->number"
 " escaped-c_0)))"
 "(let-values(((v_0)"
-"(let-values(((in24_0)"
+"(let-values(((in22_0)"
 " in_0)"
-"((config25_0)"
+"((config23_0)"
 " config_0)"
-"((accum-str26_0)"
+"((accum-str24_0)"
 " accum-str_0)"
-"((temp27_0)"
+"((temp25_0)"
 " 8)"
-"((temp28_0)"
+"((temp26_0)"
 " 2)"
-"((init-v29_0)"
+"((init-v27_0)"
 " init-v_0)"
-"((init-v30_0)"
+"((init-v28_0)"
 " init-v_0))"
-"(read-digits12.1"
-" temp27_0"
-" init-v29_0"
-" temp28_0"
-" init-v30_0"
-" in24_0"
-" config25_0"
-" accum-str26_0))))"
+"(read-digits.1"
+" temp25_0"
+" init-v27_0"
+" temp26_0"
+" init-v28_0"
+" in22_0"
+" config23_0"
+" accum-str24_0))))"
 "(begin"
 "(if(<= v_0 255)"
 "(void)"
 "(let-values()"
-"(let-values(((in31_0)"
+"(let-values(((in29_0)"
 " in_0)"
-"((config32_0)"
+"((config30_0)"
 " config_0)"
-"((temp33_0)"
+"((temp31_0)"
 "                                                                                                                        \"escape sequence `~a~a` is out of range in ~a\")"
-"((escaping-c34_0)"
+"((escaping-c32_0)"
 " escaping-c_0)"
-"((temp35_0)"
-"(let-values(((accum-str37_0)"
+"((temp33_0)"
+"(let-values(((accum-str35_0)"
 " accum-str_0)"
-"((config38_0)"
+"((config36_0)"
 " config_0)"
-"((pos39_0)"
+"((pos37_0)"
 " pos_0))"
-"(accum-string-get!6.1"
-" pos39_0"
-" accum-str37_0"
-" config38_0)))"
-"((mode36_0)"
+"(accum-string-get!.1"
+" pos37_0"
+" accum-str35_0"
+" config36_0)))"
+"((mode34_0)"
 " mode_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in31_0"
-" config32_0"
-" temp33_0"
+" in29_0"
+" config30_0"
+" temp31_0"
 "(list"
-" escaping-c34_0"
-" temp35_0"
-" mode36_0)))))"
+" escaping-c32_0"
+" temp33_0"
+" mode34_0)))))"
 "(set-accum-string-count!"
 " accum-str_0"
 " pos_0)"
@@ -58753,24 +58679,24 @@ static const char *startup_source =
 "(accum-string-count"
 " accum-str_0)))"
 "(let-values(((v_0)"
-"(let-values(((in40_0)"
+"(let-values(((in38_0)"
 " in_0)"
-"((config41_0)"
+"((config39_0)"
 " config_0)"
-"((accum-str42_0)"
+"((accum-str40_0)"
 " accum-str_0)"
-"((temp43_0)"
+"((temp41_0)"
 " 16)"
-"((temp44_0)"
+"((temp42_0)"
 " 2))"
-"(read-digits12.1"
-" temp43_0"
+"(read-digits.1"
+" temp41_0"
 " 0"
-" temp44_0"
+" temp42_0"
 " #f"
-" in40_0"
-" config41_0"
-" accum-str42_0))))"
+" in38_0"
+" config39_0"
+" accum-str40_0))))"
 "(begin"
 "(if(integer? v_0)"
 "(void)"
@@ -58803,24 +58729,24 @@ static const char *startup_source =
 "(accum-string-count"
 " accum-str_0)))"
 "(let-values(((v_0)"
-"(let-values(((in45_0)"
+"(let-values(((in43_0)"
 " in_0)"
-"((config46_0)"
+"((config44_0)"
 " config_0)"
-"((accum-str47_0)"
+"((accum-str45_0)"
 " accum-str_0)"
-"((temp48_0)"
+"((temp46_0)"
 " 16)"
-"((temp49_0)"
+"((temp47_0)"
 " 4))"
-"(read-digits12.1"
-" temp48_0"
+"(read-digits.1"
+" temp46_0"
 " 0"
-" temp49_0"
+" temp47_0"
 " #f"
-" in45_0"
-" config46_0"
-" accum-str47_0))))"
+" in43_0"
+" config44_0"
+" accum-str45_0))))"
 "(begin"
 "(if(integer? v_0)"
 "(void)"
@@ -58886,24 +58812,24 @@ static const char *startup_source =
 " '#\\u)"
 "(let-values()"
 "(let-values(((v2_0)"
-"(let-values(((in50_0)"
+"(let-values(((in48_0)"
 " in_0)"
-"((config51_0)"
+"((config49_0)"
 " config_0)"
-"((accum-str52_0)"
+"((accum-str50_0)"
 " accum-str_0)"
-"((temp53_0)"
+"((temp51_0)"
 " 16)"
-"((temp54_0)"
+"((temp52_0)"
 " 4))"
-"(read-digits12.1"
-" temp53_0"
+"(read-digits.1"
+" temp51_0"
 " 0"
-" temp54_0"
+" temp52_0"
 " #f"
-" in50_0"
-" config51_0"
-" accum-str52_0))))"
+" in48_0"
+" config49_0"
+" accum-str50_0))))"
 "(if(integer?"
 " v2_0)"
 "(let-values()"
@@ -58940,36 +58866,36 @@ static const char *startup_source =
 " combined-v_0"
 " 1114111)"
 "(let-values()"
-"(let-values(((in55_0)"
+"(let-values(((in53_0)"
 " in_0)"
-"((config56_0)"
+"((config54_0)"
 " config_0)"
-"((temp57_0)"
+"((temp55_0)"
 "                                                                                                                                      \"escape sequence `~au~a` is out of range in string\")"
-"((escaping-c58_0)"
+"((escaping-c56_0)"
 " escaping-c_0)"
-"((temp59_0)"
-"(let-values(((accum-str60_0)"
+"((temp57_0)"
+"(let-values(((accum-str58_0)"
 " accum-str_0)"
-"((config61_0)"
+"((config59_0)"
 " config_0)"
-"((pos62_0)"
+"((pos60_0)"
 " pos_0))"
-"(accum-string-get!6.1"
-" pos62_0"
-" accum-str60_0"
-" config61_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1"
+" pos60_0"
+" accum-str58_0"
+" config59_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in55_0"
-" config56_0"
-" temp57_0"
+" in53_0"
+" config54_0"
+" temp55_0"
 "(list"
-" escaping-c58_0"
-" temp59_0))))"
+" escaping-c56_0"
+" temp57_0))))"
 "(let-values()"
 "(begin"
 "(set-accum-string-count!"
@@ -58980,38 +58906,38 @@ static const char *startup_source =
 "(integer->char"
 " combined-v_0)))))))"
 "(let-values()"
-"(let-values(((in63_0)"
+"(let-values(((in61_0)"
 " in_0)"
-"((config64_0)"
+"((config62_0)"
 " config_0)"
-"((v265_0)"
+"((v263_0)"
 " v2_0)"
-"((temp66_0)"
+"((temp64_0)"
 "                                                                                                                                \"bad or incomplete surrogate-style encoding at `~au~a`\")"
-"((escaping-c67_0)"
+"((escaping-c65_0)"
 " escaping-c_0)"
-"((temp68_0)"
-"(let-values(((accum-str69_0)"
+"((temp66_0)"
+"(let-values(((accum-str67_0)"
 " accum-str_0)"
-"((config70_0)"
+"((config68_0)"
 " config_0)"
-"((pos71_0)"
+"((pos69_0)"
 " pos_0))"
-"(accum-string-get!6.1"
-" pos71_0"
-" accum-str69_0"
-" config70_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1"
+" pos69_0"
+" accum-str67_0"
+" config68_0))))"
+"(reader-error.1"
 " unsafe-undefined"
-" v265_0"
+" v263_0"
 " #f"
 " unsafe-undefined"
-" in63_0"
-" config64_0"
-" temp66_0"
+" in61_0"
+" config62_0"
+" temp64_0"
 "(list"
-" escaping-c67_0"
-" temp68_0))))))))))))))"
+" escaping-c65_0"
+" temp66_0))))))))))))))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -59026,24 +58952,24 @@ static const char *startup_source =
 "(accum-string-count"
 " accum-str_0)))"
 "(let-values(((v_0)"
-"(let-values(((in72_0)"
+"(let-values(((in70_0)"
 " in_0)"
-"((config73_0)"
+"((config71_0)"
 " config_0)"
-"((accum-str74_0)"
+"((accum-str72_0)"
 " accum-str_0)"
-"((temp75_0)"
+"((temp73_0)"
 " 16)"
-"((temp76_0)"
+"((temp74_0)"
 " 8))"
-"(read-digits12.1"
-" temp75_0"
+"(read-digits.1"
+" temp73_0"
 " 0"
-" temp76_0"
+" temp74_0"
 " #f"
-" in72_0"
-" config73_0"
-" accum-str74_0))))"
+" in70_0"
+" config71_0"
+" accum-str72_0))))"
 "(begin"
 "(if(integer? v_0)"
 "(void)"
@@ -59077,36 +59003,36 @@ static const char *startup_source =
 "(integer->char"
 " v_0))))"
 "(let-values()"
-"(let-values(((in77_0)"
+"(let-values(((in75_0)"
 " in_0)"
-"((config78_0)"
+"((config76_0)"
 " config_0)"
-"((temp79_0)"
+"((temp77_0)"
 "                                                                                                                        \"escape sequence `~aU~a` is out of range in string\")"
-"((escaping-c80_0)"
+"((escaping-c78_0)"
 " escaping-c_0)"
-"((temp81_0)"
-"(let-values(((accum-str82_0)"
+"((temp79_0)"
+"(let-values(((accum-str80_0)"
 " accum-str_0)"
-"((config83_0)"
+"((config81_0)"
 " config_0)"
-"((pos84_0)"
+"((pos82_0)"
 " pos_0))"
-"(accum-string-get!6.1"
-" pos84_0"
-" accum-str82_0"
-" config83_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1"
+" pos82_0"
+" accum-str80_0"
+" config81_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in77_0"
-" config78_0"
-" temp79_0"
+" in75_0"
+" config76_0"
+" temp77_0"
 "(list"
-" escaping-c80_0"
-" temp81_0)))))))))))))))))"
+" escaping-c78_0"
+" temp79_0)))))))))))))))))"
 "(loop_0)))))))"
 "                                                                  (if (char=? '#\\\" c_0)"
 "(let-values() null)"
@@ -59117,20 +59043,20 @@ static const char *startup_source =
 "(if(byte?(char->integer c_0))"
 "(void)"
 "(let-values()"
-"(let-values(((in85_0) in_0)"
-"((config86_0) config_0)"
-"((temp87_0)"
+"(let-values(((in83_0) in_0)"
+"((config84_0) config_0)"
+"((temp85_0)"
 "                                                                                              \"character `~a` is out of range in byte string\")"
-"((c88_0) c_0))"
-"(reader-error12.1"
+"((c86_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in85_0"
-" config86_0"
-" temp87_0"
-"(list c88_0))))))"
+" in83_0"
+" config84_0"
+" temp85_0"
+"(list c86_0))))))"
 "(void))"
 "(accum-string-add! accum-str_0 c_0)"
 "(loop_0)))))))))))"
@@ -59138,10 +59064,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((str_0)"
 "(if(eq? mode_0 '|byte string|)"
+"(let-values(((accum-str87_0) accum-str_0)((config88_0) config_0))"
+"(accum-string-get-bytes!.1 0 accum-str87_0 config88_0))"
 "(let-values(((accum-str89_0) accum-str_0)((config90_0) config_0))"
-"(accum-string-get-bytes!13.1 0 accum-str89_0 config90_0))"
-"(let-values(((accum-str91_0) accum-str_0)((config92_0) config_0))"
-"(accum-string-get!6.1 0 accum-str91_0 config92_0)))))"
+"(accum-string-get!.1 0 accum-str89_0 config90_0)))))"
 "(wrap str_0 in_0 config_0 str_0))))))))))))))"
 "(define-values"
 "(read-here-string)"
@@ -59162,35 +59088,35 @@ static const char *startup_source =
 "(read-char-or-special in_1 special1.1 source_1))))"
 "(if(eof-object? c_0)"
 "(let-values()"
-"(let-values(((in93_0) in_0)"
-"((config94_0) config_0)"
-"((c95_0) c_0)"
-"((temp96_0)"
+"(let-values(((in91_0) in_0)"
+"((config92_0) config_0)"
+"((c93_0) c_0)"
+"((temp94_0)"
 "                                                                     \"found end-of-file after `#<<` and before a newline\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" c95_0"
+" c93_0"
 " #f"
 " unsafe-undefined"
-" in93_0"
-" config94_0"
-" temp96_0"
+" in91_0"
+" config92_0"
+" temp94_0"
 "(list))))"
 "(if(not(char? c_0))"
 "(let-values()"
-"(let-values(((in97_0) in_0)"
-"((config98_0) config_0)"
-"((c99_0) c_0)"
-"((temp100_0)"
+"(let-values(((in95_0) in_0)"
+"((config96_0) config_0)"
+"((c97_0) c_0)"
+"((temp98_0)"
 "                                                                       \"found non-character while reading `#<<`\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" c99_0"
+" c97_0"
 " #f"
 " unsafe-undefined"
-" in97_0"
-" config98_0"
-" temp100_0"
+" in95_0"
+" config96_0"
+" temp98_0"
 "(list))))"
 "(if(char=? c_0 '#\\newline)"
 "(let-values() null)"
@@ -59210,38 +59136,38 @@ static const char *startup_source =
 "(if(null? terminator_0)"
 "(void)"
 "(let-values()"
-"(let-values(((in101_0) in_0)"
-"((config102_0) config_0)"
-"((c103_0) c_0)"
-"((open-end-pos104_0) open-end-pos_0)"
-"((temp105_0)"
+"(let-values(((in99_0) in_0)"
+"((config100_0) config_0)"
+"((c101_0) c_0)"
+"((open-end-pos102_0) open-end-pos_0)"
+"((temp103_0)"
 "                                                                            \"found end-of-file before terminating `~a`\")"
-"((temp106_0)"
+"((temp104_0)"
 "(list->string(cdr full-terminator_0))))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" c103_0"
-" open-end-pos104_0"
+" c101_0"
+" open-end-pos102_0"
 " unsafe-undefined"
-" in101_0"
-" config102_0"
-" temp105_0"
-"(list temp106_0))))))"
+" in99_0"
+" config100_0"
+" temp103_0"
+"(list temp104_0))))))"
 "(if(not(char? c_0))"
 "(let-values()"
-"(let-values(((in107_0) in_0)"
-"((config108_0) config_0)"
-"((c109_0) c_0)"
-"((temp110_0)"
+"(let-values(((in105_0) in_0)"
+"((config106_0) config_0)"
+"((c107_0) c_0)"
+"((temp108_0)"
 "                                                                          \"found non-character while reading `#<<`\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" c109_0"
+" c107_0"
 " #f"
 " unsafe-undefined"
-" in107_0"
-" config108_0"
-" temp110_0"
+" in105_0"
+" config106_0"
+" temp108_0"
 "(list))))"
 "(if(if(pair? terminator_0)"
 "(char=? c_0(car terminator_0))"
@@ -59309,28 +59235,28 @@ static const char *startup_source =
 " null)"
 "(values))))"
 "(let-values(((str_0)"
-"(let-values(((accum-str111_0) accum-str_0)((config112_0) config_0))"
-"(accum-string-get!6.1 0 accum-str111_0 config112_0))))"
+"(let-values(((accum-str109_0) accum-str_0)((config110_0) config_0))"
+"(accum-string-get!.1 0 accum-str109_0 config110_0))))"
 "(wrap str_0 in_0 config_0 str_0))))))))))"
 "(define-values"
 "(no-hex-digits)"
 "(lambda(in_0 config_0 c_0 escaping-c_0 escaped-c_0)"
 "(begin"
-"(let-values(((in113_0) in_0)"
-"((config114_0) config_0)"
-"((c115_0) c_0)"
-"                   ((temp116_0) \"no hex digit following `~a~a`\")"
-"((escaping-c117_0) escaping-c_0)"
-"((escaped-c118_0) escaped-c_0))"
-"(reader-error12.1"
+"(let-values(((in111_0) in_0)"
+"((config112_0) config_0)"
+"((c113_0) c_0)"
+"                   ((temp114_0) \"no hex digit following `~a~a`\")"
+"((escaping-c115_0) escaping-c_0)"
+"((escaped-c116_0) escaped-c_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c115_0"
+" c113_0"
 " #f"
 " unsafe-undefined"
-" in113_0"
-" config114_0"
-" temp116_0"
-"(list escaping-c117_0 escaped-c118_0))))))"
+" in111_0"
+" config112_0"
+" temp114_0"
+"(list escaping-c115_0 escaped-c116_0))))))"
 "(define-values"
 "(read-character)"
 "(lambda(in_0 config_0)"
@@ -59345,22 +59271,14 @@ static const char *startup_source =
 "((config2_0) config_0)"
 "((c3_0) c_0)"
 "                                       ((temp4_0) \"expected a character after `#\\\\`\"))"
-"(reader-error12.1"
-" unsafe-undefined"
-" c3_0"
-" #f"
-" unsafe-undefined"
-" in1_0"
-" config2_0"
-" temp4_0"
-"(list))))"
+"(reader-error.1 unsafe-undefined c3_0 #f unsafe-undefined in1_0 config2_0 temp4_0(list))))"
 "(if(not(char? c_0))"
 "(let-values()"
 "(let-values(((in5_0) in_0)"
 "((config6_0) config_0)"
 "((c7_0) c_0)"
 "                                         ((temp8_0) \"found non-character after `#\\\\`\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " c7_0"
 " #f"
@@ -59404,7 +59322,7 @@ static const char *startup_source =
 "((c13_0) c_0)"
 "((c214_0) c2_0)"
 "                                                             ((temp15_0) (if (char? c3_0) c3_0 \"\")))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " c311_0"
 " #f"
@@ -59425,7 +59343,7 @@ static const char *startup_source =
 "((accum-str18_0) accum-str_0)"
 "((temp19_0) 16)"
 "((temp20_0)(if(char=? c_0 '#\\u) 4 8)))"
-"(read-digits12.1"
+"(read-digits.1"
 " temp19_0"
 " 0"
 " temp20_0"
@@ -59448,8 +59366,8 @@ static const char *startup_source =
 "((temp24_0)"
 "(let-values(((accum-str25_0) accum-str_0)"
 "((config26_0) config_0))"
-"(accum-string-get!6.1 0 accum-str25_0 config26_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str25_0 config26_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -59524,7 +59442,7 @@ static const char *startup_source =
 "(string-foldcase"
 "(let-values(((accum-str27_0) accum-str_0)"
 "((config28_0) config_0))"
-"(accum-string-get!6.1 0 accum-str27_0 config28_0)))))"
+"(accum-string-get!.1 0 accum-str27_0 config28_0)))))"
 "(let-values(((tmp_0) name_0))"
 "                                                      (if (if (equal? tmp_0 \"nul\") #t (equal? tmp_0 \"null\"))"
 "(let-values() '#\\nul)"
@@ -59552,7 +59470,7 @@ static const char *startup_source =
 "((temp31_0)"
 "                                                                                        \"bad character constant `#\\\\~a`\")"
 "((name32_0) name_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -59580,7 +59498,7 @@ static const char *startup_source =
 "((end-pos4_0) end-pos_0)"
 "                               ((temp5_0) \"expected an element for ~a, found end-of-file\")"
 "((desc6_0) desc_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " e3_0"
 " end-pos4_0"
@@ -59625,8 +59543,8 @@ static const char *startup_source =
 "((temp5_0)"
 "(let-values(((accum-str6_0) accum-str_0)"
 "((config7_0) config_0))"
-"(accum-string-get!6.1 0 accum-str6_0 config7_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str6_0 config7_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " c3_0"
 " #f"
@@ -59645,8 +59563,8 @@ static const char *startup_source =
 "((temp11_0)"
 "(let-values(((accum-str12_0) accum-str_0)"
 "((config13_0) config_0))"
-"(accum-string-get!6.1 0 accum-str12_0 config13_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str12_0 config13_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -59671,8 +59589,8 @@ static const char *startup_source =
 "((temp17_0)"
 "(let-values(((accum-str18_0) accum-str_0)"
 "((config19_0) config_0))"
-"(accum-string-get!6.1 0 accum-str18_0 config19_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str18_0 config19_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -59688,7 +59606,7 @@ static const char *startup_source =
 " in_0"
 " config_0"
 "(let-values(((accum-str20_0) accum-str_0)((config21_0) config_0))"
-"(accum-string-get!6.1 0 accum-str20_0 config21_0))))))))"
+"(accum-string-get!.1 0 accum-str20_0 config21_0))))))))"
 "(define-values"
 "(read-box)"
 "(lambda(read-one_0 dispatch-c_0 in_0 config_0)"
@@ -59702,7 +59620,7 @@ static const char *startup_source =
 "((config2_0) config_0)"
 "                                       ((temp3_0) \"`~a&` forms not enabled\")"
 "((dispatch-c4_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -59723,7 +59641,7 @@ static const char *startup_source =
 "((open-end-pos8_0) open-end-pos_0)"
 "                               ((temp9_0) \"expected an element for `~a&` box, found end-of-file\")"
 "((dispatch-c10_0) dispatch-c_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " e7_0"
 " open-end-pos8_0"
@@ -59749,7 +59667,7 @@ static const char *startup_source =
 "(let-values((()(begin(accum-string-abandon! accum-str_0 config_0)(values))))"
 "(let-values(((str_0)"
 "(let-values(((in1_0) in_0)((no-wrap-config2_0) no-wrap-config_0))"
-"(read-string5.1 'string in1_0 no-wrap-config2_0))))"
+"(read-string.1 'string in1_0 no-wrap-config2_0))))"
 "(catch-and-reraise-as-reader/proc"
 " in_0"
 " config_0"
@@ -59769,7 +59687,7 @@ static const char *startup_source =
 "(let-values(((in3_0) in_0)"
 "((no-wrap-config4_0) no-wrap-config_0)"
 "((temp5_0) '|byte string|))"
-"(read-string5.1 temp5_0 in3_0 no-wrap-config4_0))))"
+"(read-string.1 temp5_0 in3_0 no-wrap-config4_0))))"
 "(catch-and-reraise-as-reader/proc"
 " in_0"
 " config_0"
@@ -59783,8 +59701,8 @@ static const char *startup_source =
 "((temp10_0)"
 "(let-values(((accum-str11_0) accum-str_0)"
 "((config12_0) config_0))"
-"(accum-string-get!6.1 0 accum-str11_0 config12_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str11_0 config12_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " c48_0"
 " #f"
@@ -59800,8 +59718,8 @@ static const char *startup_source =
 "                                             ((temp16_0) \"expected `\\\"` or `#` after `~a`\")"
 "((temp17_0)"
 "(let-values(((accum-str18_0) accum-str_0)((config19_0) config_0))"
-"(accum-string-get!6.1 0 accum-str18_0 config19_0))))"
-"(reader-error12.1"
+"(accum-string-get!.1 0 accum-str18_0 config19_0))))"
+"(reader-error.1"
 " unsafe-undefined"
 " c315_0"
 " #f"
@@ -59822,58 +59740,58 @@ static const char *startup_source =
 "(if(check-parameter 1/read-accept-reader config_0)"
 "(void)"
 "(let-values()"
-"(let-values(((in54_0) in_0)"
-"((config55_0) config_0)"
-"                                         ((temp56_0) \"`~a` not enabled\")"
-"((extend-str57_0) extend-str_0))"
-"(reader-error12.1"
+"(let-values(((in46_0) in_0)"
+"((config47_0) config_0)"
+"                                         ((temp48_0) \"`~a` not enabled\")"
+"((extend-str49_0) extend-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in54_0"
-" config55_0"
-" temp56_0"
-"(list extend-str57_0)))))"
+" in46_0"
+" config47_0"
+" temp48_0"
+"(list extend-str49_0)))))"
 "(values))))"
 "(let-values(((mod-path-wrapped_0)(read-one_0 #f in_0(next-readtable config_0))))"
 "(begin"
 "(if(eof-object? mod-path-wrapped_0)"
 "(let-values()"
-"(let-values(((in58_0) in_0)"
-"((config59_0) config_0)"
-"((mod-path-wrapped60_0) mod-path-wrapped_0)"
-"                               ((temp61_0) \"expected a datum after `~a`, found end-of-file\")"
-"((extend-str62_0) extend-str_0))"
-"(reader-error12.1"
+"(let-values(((in50_0) in_0)"
+"((config51_0) config_0)"
+"((mod-path-wrapped52_0) mod-path-wrapped_0)"
+"                               ((temp53_0) \"expected a datum after `~a`, found end-of-file\")"
+"((extend-str54_0) extend-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" mod-path-wrapped60_0"
+" mod-path-wrapped52_0"
 " #f"
 " unsafe-undefined"
-" in58_0"
-" config59_0"
-" temp61_0"
-"(list extend-str62_0))))"
+" in50_0"
+" config51_0"
+" temp53_0"
+"(list extend-str54_0))))"
 "(void))"
-"(let-values(((temp49_0)((read-config-coerce config_0) #f mod-path-wrapped_0 #f))"
-"((read-recur50_0) read-recur_0)"
-"((in51_0) in_0)"
-"((config52_0) config_0)"
-"((mod-path-wrapped53_0) mod-path-wrapped_0))"
-"(read-extension46.1"
+"(let-values(((temp41_0)((read-config-coerce config_0) #f mod-path-wrapped_0 #f))"
+"((read-recur42_0) read-recur_0)"
+"((in43_0) in_0)"
+"((config44_0) config_0)"
+"((mod-path-wrapped45_0) mod-path-wrapped_0))"
+"(read-extension.1"
 " #f"
-" mod-path-wrapped53_0"
+" mod-path-wrapped45_0"
 " #f"
 " '|#reader|"
-" temp49_0"
-" read-recur50_0"
-" in51_0"
-" config52_0)))))))))"
+" temp41_0"
+" read-recur42_0"
+" in43_0"
+" config44_0)))))))))"
 "(define-values"
-"(read-extension-lang7.1)"
+"(read-extension-lang.1)"
 "(lambda(get-info?1_0 read-recur3_0 dispatch-c4_0 in5_0 config6_0)"
 "(begin"
-" 'read-extension-lang7"
+" 'read-extension-lang"
 "(let-values(((read-recur_0) read-recur3_0))"
 "(let-values(((dispatch-c_0) dispatch-c4_0))"
 "(let-values(((in_0) in5_0))"
@@ -59889,45 +59807,45 @@ static const char *startup_source =
 "(if(eqv? c_0 '#\\space)"
 "(void)"
 "(let-values()"
-"(let-values(((in70_0) in_0)"
-"((config71_0) config_0)"
-"                                         ((temp72_0) \"expected a single space after `~a`\")"
-"((extend-str73_0) extend-str_0))"
-"(reader-error12.1"
+"(let-values(((in62_0) in_0)"
+"((config63_0) config_0)"
+"                                         ((temp64_0) \"expected a single space after `~a`\")"
+"((extend-str65_0) extend-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in70_0"
-" config71_0"
-" temp72_0"
-"(list extend-str73_0)))))"
-"(let-values(((extend-str63_0) extend-str_0)"
-"((read-recur64_0) read-recur_0)"
-"((in65_0) in_0)"
-"((config66_0) config_0)"
-"((temp67_0) #t)"
-"((temp68_0) '|#lang|)"
-"((get-info?69_0) get-info?_0))"
-"(read-lang31.1"
-" get-info?69_0"
+" in62_0"
+" config63_0"
+" temp64_0"
+"(list extend-str65_0)))))"
+"(let-values(((extend-str55_0) extend-str_0)"
+"((read-recur56_0) read-recur_0)"
+"((in57_0) in_0)"
+"((config58_0) config_0)"
+"((temp59_0) #t)"
+"((temp60_0) '|#lang|)"
+"((get-info?61_0) get-info?_0))"
+"(read-lang.1"
+" get-info?61_0"
 " #f"
-" temp67_0"
-" temp68_0"
-" extend-str63_0"
-" read-recur64_0"
-" in65_0"
-" config66_0))))))))))))))"
+" temp59_0"
+" temp60_0"
+" extend-str55_0"
+" read-recur56_0"
+" in57_0"
+" config58_0))))))))))))))"
 "(define-values"
-"(read-extension-#!16.1)"
-"(lambda(get-info?10_0 read-recur12_0 dispatch-c13_0 in14_0 config15_0)"
+"(read-extension-#!.1)"
+"(lambda(get-info?8_0 read-recur10_0 dispatch-c11_0 in12_0 config13_0)"
 "(begin"
-" 'read-extension-#!16"
-"(let-values(((read-recur_0) read-recur12_0))"
-"(let-values(((dispatch-c_0) dispatch-c13_0))"
-"(let-values(((in_0) in14_0))"
-"(let-values(((config_0) config15_0))"
-"(let-values(((get-info?_0) get-info?10_0))"
+" 'read-extension-#!"
+"(let-values(((read-recur_0) read-recur10_0))"
+"(let-values(((dispatch-c_0) dispatch-c11_0))"
+"(let-values(((in_0) in12_0))"
+"(let-values(((config_0) config13_0))"
+"(let-values(((get-info?_0) get-info?8_0))"
 "(let-values()"
 "(let-values(((c_0)"
 "(let-values(((in_1) in_0)((source_0)(read-config-source config_0)))"
@@ -59936,40 +59854,40 @@ static const char *startup_source =
 "(if(if(char? c_0)(char-lang-nonsep? c_0) #f)"
 "(void)"
 "(let-values()"
-"(let-values(((in81_0) in_0)"
-"((config82_0) config_0)"
-"((temp83_0)"
+"(let-values(((in73_0) in_0)"
+"((config74_0) config_0)"
+"((temp75_0)"
 "(if(char? c_0)(string dispatch-c_0 '#\\! c_0)(string dispatch-c_0 '#\\!))))"
-"(bad-syntax-error20.1 '#\\x in81_0 config82_0 temp83_0))))"
-"(let-values(((temp74_0)(string dispatch-c_0 '#\\!))"
-"((read-recur75_0) read-recur_0)"
-"((in76_0) in_0)"
-"((config77_0) config_0)"
-"((c78_0) c_0)"
-"((temp79_0) '|#!|)"
-"((get-info?80_0) get-info?_0))"
-"(read-lang31.1"
-" get-info?80_0"
-" c78_0"
+"(bad-syntax-error.1 '#\\x in73_0 config74_0 temp75_0))))"
+"(let-values(((temp66_0)(string dispatch-c_0 '#\\!))"
+"((read-recur67_0) read-recur_0)"
+"((in68_0) in_0)"
+"((config69_0) config_0)"
+"((c70_0) c_0)"
+"((temp71_0) '|#!|)"
+"((get-info?72_0) get-info?_0))"
+"(read-lang.1"
+" get-info?72_0"
+" c70_0"
 " #f"
-" temp79_0"
-" temp74_0"
-" read-recur75_0"
-" in76_0"
-" config77_0)))))))))))))"
+" temp71_0"
+" temp66_0"
+" read-recur67_0"
+" in68_0"
+" config69_0)))))))))))))"
 "(define-values"
-"(read-lang31.1)"
-"(lambda(get-info?21_0 init-c19_0 one-space?20_0 who22_0 extend-str27_0 read-recur28_0 in29_0 config30_0)"
+"(read-lang.1)"
+"(lambda(get-info?17_0 init-c15_0 one-space?16_0 who18_0 extend-str23_0 read-recur24_0 in25_0 config26_0)"
 "(begin"
-" 'read-lang31"
-"(let-values(((extend-str_0) extend-str27_0))"
-"(let-values(((read-recur_0) read-recur28_0))"
-"(let-values(((in_0) in29_0))"
-"(let-values(((config_0) config30_0))"
-"(let-values(((init-c_0) init-c19_0))"
-"(let-values(((one-space?_0) one-space?20_0))"
-"(let-values(((get-info?_0) get-info?21_0))"
-"(let-values(((who_0) who22_0))"
+" 'read-lang"
+"(let-values(((extend-str_0) extend-str23_0))"
+"(let-values(((read-recur_0) read-recur24_0))"
+"(let-values(((in_0) in25_0))"
+"(let-values(((config_0) config26_0))"
+"(let-values(((init-c_0) init-c15_0))"
+"(let-values(((one-space?_0) one-space?16_0))"
+"(let-values(((get-info?_0) get-info?17_0))"
+"(let-values(((who_0) who18_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -59978,19 +59896,19 @@ static const char *startup_source =
 " #f)"
 "(void)"
 "(let-values()"
-"(let-values(((in91_0) in_0)"
-"((config92_0) config_0)"
-"                                                         ((temp93_0) \"`~a` not enabled\")"
-"((extend-str94_0) extend-str_0))"
-"(reader-error12.1"
+"(let-values(((in83_0) in_0)"
+"((config84_0) config_0)"
+"                                                         ((temp85_0) \"`~a` not enabled\")"
+"((extend-str86_0) extend-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in91_0"
-" config92_0"
-" temp93_0"
-"(list extend-str94_0)))))"
+" in83_0"
+" config84_0"
+" temp85_0"
+"(list extend-str86_0)))))"
 "(values))))"
 "(let-values(((line_0 col_0 pos_0)(port-next-location in_0)))"
 "(let-values(((accum-str_0)(accum-string-init! config_0)))"
@@ -60027,22 +59945,22 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(consume-char/special in_0 config_0 c_0)"
-"(let-values(((in95_0) in_0)"
-"((config96_0) config_0)"
-"((c97_0) c_0)"
-"((temp98_0)"
+"(let-values(((in87_0) in_0)"
+"((config88_0) config_0)"
+"((c89_0) c_0)"
+"((temp90_0)"
 "                                                                                              \"found non-character while reading `#~a`\")"
-"((extend-str99_0)"
+"((extend-str91_0)"
 " extend-str_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" c97_0"
+" c89_0"
 " #f"
 " unsafe-undefined"
-" in95_0"
-" config96_0"
-" temp98_0"
-"(list extend-str99_0)))))"
+" in87_0"
+" config88_0"
+" temp90_0"
+"(list extend-str91_0)))))"
 "(if(if(char-whitespace? c_0)"
 "(positive?"
 "(accum-string-count accum-str_0))"
@@ -60052,21 +59970,21 @@ static const char *startup_source =
 "(char=? c_0 '#\\space)"
 " #f)"
 "(let-values()"
-"(let-values(((in100_0) in_0)"
-"((config101_0) config_0)"
-"((temp102_0)"
+"(let-values(((in92_0) in_0)"
+"((config93_0) config_0)"
+"((temp94_0)"
 "                                                                                                \"expected a single space after `~a`\")"
-"((extend-str103_0)"
+"((extend-str95_0)"
 " extend-str_0))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in100_0"
-" config101_0"
-" temp102_0"
-"(list extend-str103_0))))"
+" in92_0"
+" config93_0"
+" temp94_0"
+"(list extend-str95_0))))"
 "(if(let-values(((or-part_0)"
 "(char-lang-nonsep?"
 " c_0)))"
@@ -60083,71 +60001,71 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(consume-char in_0 c_0)"
-"(let-values(((in104_0) in_0)"
-"((config105_0)"
+"(let-values(((in96_0) in_0)"
+"((config97_0)"
 " config_0)"
-"((temp106_0)"
+"((temp98_0)"
 "(string-append"
 "                                                                                                     \"expected only alphanumeric, `-`, `+`, `_`, or `/`\""
 "                                                                                                     \" characters for `~a`, found `~a`\"))"
-"((extend-str107_0)"
+"((extend-str99_0)"
 " extend-str_0)"
-"((c108_0) c_0))"
-"(reader-error12.1"
+"((c100_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in104_0"
-" config105_0"
-" temp106_0"
+" in96_0"
+" config97_0"
+" temp98_0"
 "(list"
-" extend-str107_0"
-" c108_0)))))))))))))))"
+" extend-str99_0"
+" c100_0)))))))))))))))"
 " loop_0))"
 "(values))))"
 "(let-values(((lang-str_0)"
-"(let-values(((accum-str109_0) accum-str_0)((config110_0) config_0))"
-"(accum-string-get!6.1 0 accum-str109_0 config110_0))))"
+"(let-values(((accum-str101_0) accum-str_0)((config102_0) config_0))"
+"(accum-string-get!.1 0 accum-str101_0 config102_0))))"
 "(let-values((()"
 "(begin"
 "                                                    (if (equal? lang-str_0 \"\")"
 "(let-values()"
-"(let-values(((in111_0) in_0)"
-"((config112_0) config_0)"
-"((temp113_0)"
+"(let-values(((in103_0) in_0)"
+"((config104_0) config_0)"
+"((temp105_0)"
 "                                                                      \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a~a`\")"
-"((extend-str114_0) extend-str_0)"
-"                                                                     ((temp115_0) (if one-space?_0 \" \" \"\")))"
-"(reader-error12.1"
+"((extend-str106_0) extend-str_0)"
+"                                                                     ((temp107_0) (if one-space?_0 \" \" \"\")))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in111_0"
-" config112_0"
-" temp113_0"
-"(list extend-str114_0 temp115_0))))"
+" in103_0"
+" config104_0"
+" temp105_0"
+"(list extend-str106_0 temp107_0))))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(char=? '#\\/(string-ref lang-str_0 0))"
 "(let-values()"
-"(let-values(((in116_0) in_0)"
-"((config117_0) config_0)"
-"((temp118_0)"
+"(let-values(((in108_0) in_0)"
+"((config109_0) config_0)"
+"((temp110_0)"
 "                                                                        \"expected a name that does not start `/` after `~a`\")"
-"((extend-str119_0) extend-str_0))"
-"(reader-error12.1"
+"((extend-str111_0) extend-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in116_0"
-" config117_0"
-" temp118_0"
-"(list extend-str119_0))))"
+" in108_0"
+" config109_0"
+" temp110_0"
+"(list extend-str111_0))))"
 "(void))"
 "(values))))"
 "(let-values((()"
@@ -60156,42 +60074,42 @@ static const char *startup_source =
 " '#\\/"
 "(string-ref lang-str_0(sub1(string-length lang-str_0))))"
 "(let-values()"
-"(let-values(((in120_0) in_0)"
-"((config121_0) config_0)"
-"((temp122_0)"
+"(let-values(((in112_0) in_0)"
+"((config113_0) config_0)"
+"((temp114_0)"
 "                                                                          \"expected a name that does not end `/` after `~a`\")"
-"((extend-str123_0) extend-str_0))"
-"(reader-error12.1"
+"((extend-str115_0) extend-str_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in120_0"
-" config121_0"
-" temp122_0"
-"(list extend-str123_0))))"
+" in112_0"
+" config113_0"
+" temp114_0"
+"(list extend-str115_0))))"
 "(void))"
 "(values))))"
 "(let-values(((submod-path_0)"
 "(list* 'submod(string->symbol lang-str_0) '(reader))))"
 "(let-values(((reader-path_0)"
 "                                                          (string->symbol (string-append lang-str_0 \"/lang/reader\"))))"
-"(let-values(((submod-path84_0) submod-path_0)"
-"((reader-path85_0) reader-path_0)"
-"((read-recur86_0) read-recur_0)"
-"((in87_0) in_0)"
-"((temp88_0)(reading-at config_0 line_0 col_0 pos_0))"
-"((get-info?89_0) get-info?_0)"
-"((who90_0) who_0))"
-"(read-extension46.1"
-" get-info?89_0"
+"(let-values(((submod-path76_0) submod-path_0)"
+"((reader-path77_0) reader-path_0)"
+"((read-recur78_0) read-recur_0)"
+"((in79_0) in_0)"
+"((temp80_0)(reading-at config_0 line_0 col_0 pos_0))"
+"((get-info?81_0) get-info?_0)"
+"((who82_0) who_0))"
+"(read-extension.1"
+" get-info?81_0"
 " unsafe-undefined"
-" submod-path84_0"
-" who90_0"
-" reader-path85_0"
-" read-recur86_0"
-" in87_0"
-" temp88_0)))))))))))))))))))))))))"
+" submod-path76_0"
+" who82_0"
+" reader-path77_0"
+" read-recur78_0"
+" in79_0"
+" temp80_0)))))))))))))))))))))))))"
 "(define-values"
 "(char-lang-nonsep?)"
 "(lambda(c_0)"
@@ -60252,46 +60170,46 @@ static const char *startup_source =
 "(if(eqv? c_0(car wanted_1))"
 "(void)"
 "(let-values()"
-"(let-values(((in126_0) in_0)"
-"((config127_0) config_0)"
-"((temp128_0)"
-"(let-values(((accum-str130_0) accum-str_0)"
-"((config131_0) config_0))"
-"(accum-string-get!6.1 0 accum-str130_0 config131_0)))"
-"((c129_0) c_0))"
-"(bad-syntax-error20.1 c129_0 in126_0 config127_0 temp128_0))))"
+"(let-values(((in118_0) in_0)"
+"((config119_0) config_0)"
+"((temp120_0)"
+"(let-values(((accum-str122_0) accum-str_0)"
+"((config123_0) config_0))"
+"(accum-string-get!.1 0 accum-str122_0 config123_0)))"
+"((c121_0) c_0))"
+"(bad-syntax-error.1 c121_0 in118_0 config119_0 temp120_0))))"
 "(loop_0(cdr wanted_1))))))))))"
 " loop_0)"
 " wanted_0)"
-"(let-values(((accum-str124_0) accum-str_0)((config125_0) config_0))"
-"(accum-string-get!6.1 0 accum-str124_0 config125_0)))))))"
+"(let-values(((accum-str116_0) accum-str_0)((config117_0) config_0))"
+"(accum-string-get!.1 0 accum-str116_0 config117_0)))))))"
 "(define-values"
-"(read-extension46.1)"
-"(lambda(get-info?36_0"
-" mod-path-wrapped35_0"
-" try-first-mod-path34_0"
-" who37_0"
-" mod-path-datum42_0"
-" read-recur43_0"
-" in44_0"
-" config45_0)"
+"(read-extension.1)"
+"(lambda(get-info?30_0"
+" mod-path-wrapped29_0"
+" try-first-mod-path28_0"
+" who31_0"
+" mod-path-datum36_0"
+" read-recur37_0"
+" in38_0"
+" config39_0)"
 "(begin"
-" 'read-extension46"
-"(let-values(((try-first-mod-path_0) try-first-mod-path34_0))"
-"(let-values(((mod-path-datum_0) mod-path-datum42_0))"
-"(let-values(((read-recur_0) read-recur43_0))"
-"(let-values(((in_0) in44_0))"
-"(let-values(((config_0) config45_0))"
+" 'read-extension"
+"(let-values(((try-first-mod-path_0) try-first-mod-path28_0))"
+"(let-values(((mod-path-datum_0) mod-path-datum36_0))"
+"(let-values(((read-recur_0) read-recur37_0))"
+"(let-values(((in_0) in38_0))"
+"(let-values(((config_0) config39_0))"
 "(let-values(((mod-path-wrapped_0)"
-"(if(eq? mod-path-wrapped35_0 unsafe-undefined)"
+"(if(eq? mod-path-wrapped29_0 unsafe-undefined)"
 "((read-config-coerce config_0)"
 " #t"
 " mod-path-datum_0"
-"(let-values(((in132_0) in_0)((config133_0) config_0))"
-"(port+config->srcloc51.1 #f in132_0 config133_0)))"
-" mod-path-wrapped35_0)))"
-"(let-values(((get-info?_0) get-info?36_0))"
-"(let-values(((who_0) who37_0))"
+"(let-values(((in124_0) in_0)((config125_0) config_0))"
+"(port+config->srcloc.1 #f in124_0 config125_0)))"
+" mod-path-wrapped29_0)))"
+"(let-values(((get-info?_0) get-info?30_0))"
+"(let-values(((who_0) who31_0))"
 "(let-values()"
 "(let-values((()(begin(force-parameters! config_0)(values))))"
 "(let-values(((guard_0)(1/current-reader-guard)))"
@@ -60422,7 +60340,7 @@ static const char *startup_source =
 "((in3_0) in_0)"
 "((l-config4_0) l-config_0)"
 "((temp5_0) #t))"
-"(read-extension-lang7.1 temp5_0 read-one1_0 c2_1 in3_0 l-config4_0)))"
+"(read-extension-lang.1 temp5_0 read-one1_0 c2_1 in3_0 l-config4_0)))"
 "(if(eqv? c2_0 '#\\!)"
 "(let-values()"
 "(let-values(((read-one6_0) read-one_0)"
@@ -60430,7 +60348,7 @@ static const char *startup_source =
 "((in8_0) in_0)"
 "((l-config9_0) l-config_0)"
 "((temp10_0) #t))"
-"(read-extension-#!16.1 temp10_0 read-one6_0 c7_0 in8_0 l-config9_0)))"
+"(read-extension-#!.1 temp10_0 read-one6_0 c7_0 in8_0 l-config9_0)))"
 "(let-values()(if fail-k_0(fail-k_0)(lang-error in_0 l-config_0(string c_0) c2_0))))))))))))))"
 "(define-values"
 "(lang-error)"
@@ -60453,9 +60371,9 @@ static const char *startup_source =
 "(if(not(char? c_0))"
 "                          (let-values () (add-prefix_0 \"non-character\"))"
 "                          (let-values () (format \"`~a~a`\" prefix_0 c_0))))))"
-"(reader-error12.1 unsafe-undefined c13_0 #f temp14_0 in11_0 config12_0 temp15_0(list temp16_0)))))))"
+"(reader-error.1 unsafe-undefined c13_0 #f temp14_0 in11_0 config12_0 temp15_0(list temp16_0)))))))"
 "(define-values"
-"(read32.1)"
+"(read.1)"
 "(lambda(call-with-root-namespace10_0"
 " coerce13_0"
 " coerce-key14_0"
@@ -60473,7 +60391,7 @@ static const char *startup_source =
 " wrap1_0"
 " in31_0)"
 "(begin"
-" 'read32"
+" 'read"
 "(let-values(((in_0) in31_0))"
 "(let-values(((wrap_0) wrap1_0))"
 "(let-values(((init-c_0) init-c2_0))"
@@ -60499,49 +60417,49 @@ static const char *startup_source =
 "(let-values(((c1_0)(if recursive?_0(current-read-config) #f)))"
 "(if c1_0"
 "((lambda(config_0)"
-"(let-values(((config56_0) config_0)"
-"((for-syntax?57_0) for-syntax?_0)"
-"((wrap58_0) wrap_0)"
-"((readtable59_0) readtable_0)"
-"((next-readtable60_0) next-readtable_0)"
-"((local-graph?61_0) local-graph?_0)"
-"((keep-comment?62_0) keep-comment?_0))"
-"(read-config-update44.1"
-" for-syntax?57_0"
-" keep-comment?62_0"
-" next-readtable60_0"
-" readtable59_0"
-" local-graph?61_0"
-" wrap58_0"
-" config56_0)))"
+"(let-values(((config52_0) config_0)"
+"((for-syntax?53_0) for-syntax?_0)"
+"((wrap54_0) wrap_0)"
+"((readtable55_0) readtable_0)"
+"((next-readtable56_0) next-readtable_0)"
+"((local-graph?57_0) local-graph?_0)"
+"((keep-comment?58_0) keep-comment?_0))"
+"(read-config-update.1"
+" for-syntax?53_0"
+" keep-comment?58_0"
+" next-readtable56_0"
+" readtable55_0"
+" local-graph?57_0"
+" wrap54_0"
+" config52_0)))"
 " c1_0)"
 "(let-values()"
-"(let-values(((readtable63_0) readtable_0)"
-"((next-readtable64_0) next-readtable_0)"
-"((source65_0) source_0)"
-"((for-syntax?66_0) for-syntax?_0)"
-"((wrap67_0) wrap_0)"
-"((read-compiled68_0) read-compiled_0)"
-"((call-with-root-namespace69_0)"
+"(let-values(((readtable59_0) readtable_0)"
+"((next-readtable60_0) next-readtable_0)"
+"((source61_0) source_0)"
+"((for-syntax?62_0) for-syntax?_0)"
+"((wrap63_0) wrap_0)"
+"((read-compiled64_0) read-compiled_0)"
+"((call-with-root-namespace65_0)"
 " call-with-root-namespace_0)"
-"((dynamic-require70_0) dynamic-require_0)"
-"((module-declared?71_0) module-declared?_0)"
-"((coerce72_0) coerce_0)"
-"((coerce-key73_0) coerce-key_0)"
-"((keep-comment?74_0) keep-comment?_0))"
-"(make-read-config28.1"
-" call-with-root-namespace69_0"
-" coerce72_0"
-" coerce-key73_0"
-" dynamic-require70_0"
-" for-syntax?66_0"
-" keep-comment?74_0"
-" module-declared?71_0"
-" next-readtable64_0"
-" read-compiled68_0"
-" readtable63_0"
-" source65_0"
-" wrap67_0)))))))"
+"((dynamic-require66_0) dynamic-require_0)"
+"((module-declared?67_0) module-declared?_0)"
+"((coerce68_0) coerce_0)"
+"((coerce-key69_0) coerce-key_0)"
+"((keep-comment?70_0) keep-comment?_0))"
+"(make-read-config.1"
+" call-with-root-namespace65_0"
+" coerce68_0"
+" coerce-key69_0"
+" dynamic-require66_0"
+" for-syntax?62_0"
+" keep-comment?70_0"
+" module-declared?67_0"
+" next-readtable60_0"
+" read-compiled64_0"
+" readtable59_0"
+" source61_0"
+" wrap63_0)))))))"
 "(let-values(((v_0)(read-one init-c_0 in_0 config_0)))"
 "(if(if(let-values(((or-part_0)(not recursive?_0)))"
 "(if or-part_0 or-part_0 local-graph?_0))"
@@ -60562,54 +60480,54 @@ static const char *startup_source =
 "(let-values()(begin(get-graph-hash config_0) v_0))"
 "(let-values() v_0)))))))))))))))))))))))))"
 "(define-values"
-"(read-language53.1)"
-"(lambda(call-with-root-namespace39_0"
-" coerce41_0"
-" coerce-key42_0"
-" dynamic-require38_0"
-" for-syntax?35_0"
-" module-declared?40_0"
-" read-compiled37_0"
-" wrap36_0"
-" in51_0"
-" fail-k52_0)"
+"(read-language.1)"
+"(lambda(call-with-root-namespace37_0"
+" coerce39_0"
+" coerce-key40_0"
+" dynamic-require36_0"
+" for-syntax?33_0"
+" module-declared?38_0"
+" read-compiled35_0"
+" wrap34_0"
+" in49_0"
+" fail-k50_0)"
 "(begin"
-" 'read-language53"
-"(let-values(((in_0) in51_0))"
-"(let-values(((fail-k_0) fail-k52_0))"
-"(let-values(((for-syntax?_0) for-syntax?35_0))"
-"(let-values(((wrap_0) wrap36_0))"
-"(let-values(((read-compiled_0) read-compiled37_0))"
-"(let-values(((dynamic-require_0) dynamic-require38_0))"
-"(let-values(((call-with-root-namespace_0) call-with-root-namespace39_0))"
-"(let-values(((module-declared?_0) module-declared?40_0))"
-"(let-values(((coerce_0) coerce41_0))"
-"(let-values(((coerce-key_0) coerce-key42_0))"
+" 'read-language"
+"(let-values(((in_0) in49_0))"
+"(let-values(((fail-k_0) fail-k50_0))"
+"(let-values(((for-syntax?_0) for-syntax?33_0))"
+"(let-values(((wrap_0) wrap34_0))"
+"(let-values(((read-compiled_0) read-compiled35_0))"
+"(let-values(((dynamic-require_0) dynamic-require36_0))"
+"(let-values(((call-with-root-namespace_0) call-with-root-namespace37_0))"
+"(let-values(((module-declared?_0) module-declared?38_0))"
+"(let-values(((coerce_0) coerce39_0))"
+"(let-values(((coerce-key_0) coerce-key40_0))"
 "(let-values()"
 "(let-values(((config_0)"
-"(let-values(((temp75_0) #f)"
-"((temp76_0) #f)"
-"((for-syntax?77_0) for-syntax?_0)"
-"((wrap78_0) wrap_0)"
-"((read-compiled79_0) read-compiled_0)"
-"((call-with-root-namespace80_0) call-with-root-namespace_0)"
-"((dynamic-require81_0) dynamic-require_0)"
-"((module-declared?82_0) module-declared?_0)"
-"((coerce83_0) coerce_0)"
-"((coerce-key84_0) coerce-key_0))"
-"(make-read-config28.1"
-" call-with-root-namespace80_0"
-" coerce83_0"
-" coerce-key84_0"
-" dynamic-require81_0"
-" for-syntax?77_0"
+"(let-values(((temp71_0) #f)"
+"((temp72_0) #f)"
+"((for-syntax?73_0) for-syntax?_0)"
+"((wrap74_0) wrap_0)"
+"((read-compiled75_0) read-compiled_0)"
+"((call-with-root-namespace76_0) call-with-root-namespace_0)"
+"((dynamic-require77_0) dynamic-require_0)"
+"((module-declared?78_0) module-declared?_0)"
+"((coerce79_0) coerce_0)"
+"((coerce-key80_0) coerce-key_0))"
+"(make-read-config.1"
+" call-with-root-namespace76_0"
+" coerce79_0"
+" coerce-key80_0"
+" dynamic-require77_0"
+" for-syntax?73_0"
 " #f"
-" module-declared?82_0"
-" temp76_0"
-" read-compiled79_0"
-" temp75_0"
+" module-declared?78_0"
+" temp72_0"
+" read-compiled75_0"
+" temp71_0"
 " #f"
-" wrap78_0))))"
+" wrap74_0))))"
 "(let-values(((l-config_0)(override-parameter 1/read-accept-reader config_0 #f)))"
 "(read-language/get-info read-undotted in_0 config_0 fail-k_0)))))))))))))))))"
 "(define-values"
@@ -60663,19 +60581,19 @@ static const char *startup_source =
 "(begin"
 "(if(eof-object? post-v_0)"
 "(let-values()"
-"(let-values(((in85_0) in_0)"
-"((pos-config86_0) pos-config_0)"
-"((eof87_0) eof)"
-"((temp88_0)"
+"(let-values(((in81_0) in_0)"
+"((pos-config82_0) pos-config_0)"
+"((eof83_0) eof)"
+"((temp84_0)"
 "                                                                                    \"expected a datum after cdot, found end-of-file\"))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
-" eof87_0"
+" eof83_0"
 " #f"
 " unsafe-undefined"
-" in85_0"
-" pos-config86_0"
-" temp88_0"
+" in81_0"
+" pos-config82_0"
+" temp84_0"
 "(list))))"
 "(void))"
 "(loop_0"
@@ -60776,10 +60694,10 @@ static const char *startup_source =
 "(if(unsafe-fx< index_0 1)"
 "(let-values()"
 "(let-values(((v_0)"
-"(let-values(((c89_0) c_0)"
-"((in90_0) in_0)"
-"((r-config91_0) r-config_0)"
-"((temp92_0)"
+"(let-values(((c85_0) c_0)"
+"((in86_0) in_0)"
+"((r-config87_0) r-config_0)"
+"((temp88_0)"
 "(if(let-values(((or-part_0)(eq? c_0 ec_0)))"
 "(if or-part_0"
 " or-part_0"
@@ -60788,12 +60706,7 @@ static const char *startup_source =
 " #f)))"
 " 'symbol-or-number"
 " 'symbol/indirect)))"
-"(read-symbol-or-number8.1"
-" #f"
-" temp92_0"
-" c89_0"
-" in90_0"
-" r-config91_0))))"
+"(read-symbol-or-number.1 #f temp88_0 c85_0 in86_0 r-config87_0))))"
 "(retry-special-comment v_0 in_0 config_0)))"
 "(let-values()(read-dispatch c_0 in_0 r-config_0 config_0)))"
 "(if(unsafe-fx< index_0 3)"
@@ -60804,19 +60717,19 @@ static const char *startup_source =
 "(let-values()"
 "                                            (read-quote read-one 'quasiquote \"quasiquoting \\\"`\\\"\" c_0 in_0 r-config_0))"
 "(let-values()"
-"(let-values(((in93_0) in_0)"
-"((r-config94_0) r-config_0)"
-"                                                         ((temp95_0) \"illegal use of `~a`\")"
-"((c96_0) c_0))"
-"(reader-error12.1"
+"(let-values(((in89_0) in_0)"
+"((r-config90_0) r-config_0)"
+"                                                         ((temp91_0) \"illegal use of `~a`\")"
+"((c92_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in93_0"
-" r-config94_0"
-" temp95_0"
-"(list c96_0))))))"
+" in89_0"
+" r-config90_0"
+" temp91_0"
+"(list c92_0))))))"
 "(if(unsafe-fx< index_0 5)"
 "(let-values()"
 "(if(check-parameter 1/read-accept-quasiquote config_0)"
@@ -60844,60 +60757,60 @@ static const char *startup_source =
 " r-config_0))"
 "                                                  (read-quote read-one 'unquote \"unquoting `,`\" c_0 in_0 r-config_0))))"
 "(let-values()"
-"(let-values(((in97_0) in_0)"
-"((r-config98_0) r-config_0)"
-"                                                           ((temp99_0) \"illegal use of `~a`\")"
-"((c100_0) c_0))"
-"(reader-error12.1"
+"(let-values(((in93_0) in_0)"
+"((r-config94_0) r-config_0)"
+"                                                           ((temp95_0) \"illegal use of `~a`\")"
+"((c96_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in97_0"
-" r-config98_0"
-" temp99_0"
-"(list c100_0))))))"
+" in93_0"
+" r-config94_0"
+" temp95_0"
+"(list c96_0))))))"
 "(let-values()"
 "(wrap"
-"(let-values(((read-one101_0) read-one)"
-"((ec102_0) ec_0)"
-"((temp103_0) '#\\()"
-"((temp104_0) '#\\))"
-"((in105_0) in_0)"
-"((r-config106_0) r-config_0)"
-"((temp107_0) #t))"
-"(read-unwrapped-sequence17.1"
+"(let-values(((read-one97_0) read-one)"
+"((ec98_0) ec_0)"
+"((temp99_0) '#\\()"
+"((temp100_0) '#\\))"
+"((in101_0) in_0)"
+"((r-config102_0) r-config_0)"
+"((temp103_0) #t))"
+"(read-unwrapped-sequence.1"
 " 'all"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp107_0"
-" unsafe-undefined"
-" read-one101_0"
-" ec102_0"
 " temp103_0"
-" temp104_0"
-" in105_0"
-" r-config106_0))"
+" unsafe-undefined"
+" read-one97_0"
+" ec98_0"
+" temp99_0"
+" temp100_0"
+" in101_0"
+" r-config102_0))"
 " in_0"
 " r-config_0"
 " ec_0))))))"
 "(if(unsafe-fx< index_0 9)"
 "(if(unsafe-fx< index_0 7)"
 "(let-values()"
-"(let-values(((in108_0) in_0)"
-"((r-config109_0) r-config_0)"
-"                                                   ((temp110_0) \"~a\")"
-"((temp111_0)"
+"(let-values(((in104_0) in_0)"
+"((r-config105_0) r-config_0)"
+"                                                   ((temp106_0) \"~a\")"
+"((temp107_0)"
 "(indentation-unexpected-closer-message ec_0 c_0 r-config_0)))"
-"(reader-error12.1"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in108_0"
-" r-config109_0"
-" temp110_0"
-"(list temp111_0))))"
+" in104_0"
+" r-config105_0"
+" temp106_0"
+"(list temp107_0))))"
 "(if(unsafe-fx< index_0 8)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
@@ -60907,42 +60820,42 @@ static const char *startup_source =
 "(check-parameter 1/read-square-bracket-with-tag config_0)))"
 "(let-values()"
 "(wrap"
-"(let-values(((read-one112_0) read-one)"
-"((ec113_0) ec_0)"
-"((temp114_0) '#\\[)"
-"((temp115_0) '#\\])"
-"((in116_0) in_0)"
-"((r-config117_0) r-config_0)"
-"((temp118_0) #t))"
-"(read-unwrapped-sequence17.1"
+"(let-values(((read-one108_0) read-one)"
+"((ec109_0) ec_0)"
+"((temp110_0) '#\\[)"
+"((temp111_0) '#\\])"
+"((in112_0) in_0)"
+"((r-config113_0) r-config_0)"
+"((temp114_0) #t))"
+"(read-unwrapped-sequence.1"
 " 'all"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp118_0"
-" unsafe-undefined"
-" read-one112_0"
-" ec113_0"
 " temp114_0"
-" temp115_0"
-" in116_0"
-" r-config117_0))"
+" unsafe-undefined"
+" read-one108_0"
+" ec109_0"
+" temp110_0"
+" temp111_0"
+" in112_0"
+" r-config113_0))"
 " in_0"
 " r-config_0"
 " ec_0))"
 "(let-values()"
-"(let-values(((in119_0) in_0)"
-"((r-config120_0) r-config_0)"
-"                                                         ((temp121_0) \"illegal use of `~a`\")"
-"((c122_0) c_0))"
-"(reader-error12.1"
+"(let-values(((in115_0) in_0)"
+"((r-config116_0) r-config_0)"
+"                                                         ((temp117_0) \"illegal use of `~a`\")"
+"((c118_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in119_0"
-" r-config120_0"
-" temp121_0"
-"(list c122_0))))))"
+" in115_0"
+" r-config116_0"
+" temp117_0"
+"(list c118_0))))))"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(check-parameter 1/read-square-bracket-as-paren config_0)))"
@@ -60950,12 +60863,26 @@ static const char *startup_source =
 " or-part_0"
 "(check-parameter 1/read-square-bracket-with-tag config_0)))"
 "(let-values()"
+"(let-values(((in119_0) in_0)"
+"((r-config120_0) r-config_0)"
+"                                                         ((temp121_0) \"~a\")"
+"((temp122_0)"
+"(indentation-unexpected-closer-message ec_0 c_0 r-config_0)))"
+"(reader-error.1"
+" unsafe-undefined"
+" '#\\x"
+" #f"
+" unsafe-undefined"
+" in119_0"
+" r-config120_0"
+" temp121_0"
+"(list temp122_0))))"
+"(let-values()"
 "(let-values(((in123_0) in_0)"
 "((r-config124_0) r-config_0)"
-"                                                         ((temp125_0) \"~a\")"
-"((temp126_0)"
-"(indentation-unexpected-closer-message ec_0 c_0 r-config_0)))"
-"(reader-error12.1"
+"                                                         ((temp125_0) \"illegal use of `~a`\")"
+"((c126_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -60963,21 +60890,7 @@ static const char *startup_source =
 " in123_0"
 " r-config124_0"
 " temp125_0"
-"(list temp126_0))))"
-"(let-values()"
-"(let-values(((in127_0) in_0)"
-"((r-config128_0) r-config_0)"
-"                                                         ((temp129_0) \"illegal use of `~a`\")"
-"((c130_0) c_0))"
-"(reader-error12.1"
-" unsafe-undefined"
-" '#\\x"
-" #f"
-" unsafe-undefined"
-" in127_0"
-" r-config128_0"
-" temp129_0"
-"(list c130_0))))))))"
+"(list c126_0))))))))"
 "(if(unsafe-fx< index_0 10)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
@@ -60987,42 +60900,42 @@ static const char *startup_source =
 "(check-parameter 1/read-curly-brace-with-tag config_0)))"
 "(let-values()"
 "(wrap"
-"(let-values(((read-one131_0) read-one)"
-"((ec132_0) ec_0)"
-"((temp133_0) '#\\{)"
-"((temp134_0) '#\\})"
-"((in135_0) in_0)"
-"((r-config136_0) r-config_0)"
-"((temp137_0) #t))"
-"(read-unwrapped-sequence17.1"
+"(let-values(((read-one127_0) read-one)"
+"((ec128_0) ec_0)"
+"((temp129_0) '#\\{)"
+"((temp130_0) '#\\})"
+"((in131_0) in_0)"
+"((r-config132_0) r-config_0)"
+"((temp133_0) #t))"
+"(read-unwrapped-sequence.1"
 " 'all"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp137_0"
-" unsafe-undefined"
-" read-one131_0"
-" ec132_0"
 " temp133_0"
-" temp134_0"
-" in135_0"
-" r-config136_0))"
+" unsafe-undefined"
+" read-one127_0"
+" ec128_0"
+" temp129_0"
+" temp130_0"
+" in131_0"
+" r-config132_0))"
 " in_0"
 " r-config_0"
 " ec_0))"
 "(let-values()"
-"(let-values(((in138_0) in_0)"
-"((r-config139_0) r-config_0)"
-"                                                       ((temp140_0) \"illegal use of `~a`\")"
-"((c141_0) c_0))"
-"(reader-error12.1"
+"(let-values(((in134_0) in_0)"
+"((r-config135_0) r-config_0)"
+"                                                       ((temp136_0) \"illegal use of `~a`\")"
+"((c137_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in138_0"
-" r-config139_0"
-" temp140_0"
-"(list c141_0))))))"
+" in134_0"
+" r-config135_0"
+" temp136_0"
+"(list c137_0))))))"
 "(if(unsafe-fx< index_0 11)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
@@ -61031,12 +60944,26 @@ static const char *startup_source =
 " or-part_0"
 "(check-parameter 1/read-curly-brace-with-tag config_0)))"
 "(let-values()"
+"(let-values(((in138_0) in_0)"
+"((r-config139_0) r-config_0)"
+"                                                         ((temp140_0) \"~a\")"
+"((temp141_0)"
+"(indentation-unexpected-closer-message ec_0 c_0 r-config_0)))"
+"(reader-error.1"
+" unsafe-undefined"
+" '#\\x"
+" #f"
+" unsafe-undefined"
+" in138_0"
+" r-config139_0"
+" temp140_0"
+"(list temp141_0))))"
+"(let-values()"
 "(let-values(((in142_0) in_0)"
 "((r-config143_0) r-config_0)"
-"                                                         ((temp144_0) \"~a\")"
-"((temp145_0)"
-"(indentation-unexpected-closer-message ec_0 c_0 r-config_0)))"
-"(reader-error12.1"
+"                                                         ((temp144_0) \"illegal use of `~a`\")"
+"((c145_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
@@ -61044,36 +60971,22 @@ static const char *startup_source =
 " in142_0"
 " r-config143_0"
 " temp144_0"
-"(list temp145_0))))"
-"(let-values()"
-"(let-values(((in146_0) in_0)"
-"((r-config147_0) r-config_0)"
-"                                                         ((temp148_0) \"illegal use of `~a`\")"
-"((c149_0) c_0))"
-"(reader-error12.1"
-" unsafe-undefined"
-" '#\\x"
-" #f"
-" unsafe-undefined"
-" in146_0"
-" r-config147_0"
-" temp148_0"
-"(list c149_0))))))"
+"(list c145_0))))))"
 "(if(unsafe-fx< index_0 12)"
 "(let-values()"
-"(let-values(((in150_0) in_0)((r-config151_0) r-config_0))"
-"(read-string5.1 'string in150_0 r-config151_0)))"
+"(let-values(((in146_0) in_0)((r-config147_0) r-config_0))"
+"(read-string.1 'string in146_0 r-config147_0)))"
 "(let-values()"
-"(let-values(((c152_0) c_0)"
-"((in153_0) in_0)"
-"((r-config154_0) r-config_0)"
-"((temp155_0) 'symbol))"
-"(read-symbol-or-number8.1"
+"(let-values(((c148_0) c_0)"
+"((in149_0) in_0)"
+"((r-config150_0) r-config_0)"
+"((temp151_0) 'symbol))"
+"(read-symbol-or-number.1"
 " #f"
-" temp155_0"
-" c152_0"
-" in153_0"
-" r-config154_0)))))))))))))))))))))))"
+" temp151_0"
+" c148_0"
+" in149_0"
+" r-config150_0)))))))))))))))))))))))"
 "(define-values"
 "(read-dispatch)"
 "(lambda(dispatch-c_0 in_0 config_0 orig-config_0)"
@@ -61083,36 +60996,36 @@ static const char *startup_source =
 "(read-char-or-special in_1 special1.1 source_0))))"
 "(if(eof-object? c_0)"
 "(let-values()"
-"(let-values(((in156_0) in_0)"
-"((config157_0) config_0)"
-"((c158_0) c_0)"
-"                         ((temp159_0) \"bad syntax `~a`\")"
-"((dispatch-c160_0) dispatch-c_0))"
-"(reader-error12.1"
+"(let-values(((in152_0) in_0)"
+"((config153_0) config_0)"
+"((c154_0) c_0)"
+"                         ((temp155_0) \"bad syntax `~a`\")"
+"((dispatch-c156_0) dispatch-c_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c158_0"
+" c154_0"
 " #f"
 " unsafe-undefined"
-" in156_0"
-" config157_0"
-" temp159_0"
-"(list dispatch-c160_0))))"
+" in152_0"
+" config153_0"
+" temp155_0"
+"(list dispatch-c156_0))))"
 "(if(not(char? c_0))"
 "(let-values()"
-"(let-values(((in161_0) in_0)"
-"((config162_0) config_0)"
-"((c163_0) c_0)"
-"                           ((temp164_0) \"bad syntax `~a`\")"
-"((dispatch-c165_0) dispatch-c_0))"
-"(reader-error12.1"
+"(let-values(((in157_0) in_0)"
+"((config158_0) config_0)"
+"((c159_0) c_0)"
+"                           ((temp160_0) \"bad syntax `~a`\")"
+"((dispatch-c161_0) dispatch-c_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c163_0"
+" c159_0"
 " #f"
 " unsafe-undefined"
-" in161_0"
-" config162_0"
-" temp164_0"
-"(list dispatch-c165_0))))"
+" in157_0"
+" config158_0"
+" temp160_0"
+"(list dispatch-c161_0))))"
 "(let-values(((c3_0)(readtable-dispatch-handler orig-config_0 c_0)))"
 "(if c3_0"
 "((lambda(handler_0)"
@@ -61232,86 +61145,86 @@ static const char *startup_source =
 "(if(unsafe-fx< index_0 3)"
 "(if(unsafe-fx< index_0 1)"
 "(let-values()"
-"(let-values(((in166_0) in_0)"
-"((config167_0) config_0)"
-"                                               ((temp168_0) \"bad syntax `~a~a`\")"
-"((dispatch-c169_0) dispatch-c_0)"
-"((c170_0) c_0))"
-"(reader-error12.1"
+"(let-values(((in162_0) in_0)"
+"((config163_0) config_0)"
+"                                               ((temp164_0) \"bad syntax `~a~a`\")"
+"((dispatch-c165_0) dispatch-c_0)"
+"((c166_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in166_0"
-" config167_0"
-" temp168_0"
-"(list dispatch-c169_0 c170_0))))"
+" in162_0"
+" config163_0"
+" temp164_0"
+"(list dispatch-c165_0 c166_0))))"
 "(if(unsafe-fx< index_0 2)"
 "(let-values()(read-vector-or-graph read-one dispatch-c_0 c_0 in_0 config_0))"
 "(let-values()"
-"(let-values(((read-one171_0) read-one)"
-"((temp172_0) '#\\()"
-"((temp173_0) '#\\()"
-"((temp174_0) '#\\))"
-"((in175_0) in_0)"
-"((config176_0) config_0))"
-"(read-vector11.1"
+"(let-values(((read-one167_0) read-one)"
+"((temp168_0) '#\\()"
+"((temp169_0) '#\\()"
+"((temp170_0) '#\\))"
+"((in171_0) in_0)"
+"((config172_0) config_0))"
+"(read-vector.1"
 " #f"
 " 'any"
-" read-one171_0"
-" temp172_0"
-" temp173_0"
-" temp174_0"
-" in175_0"
-" config176_0)))))"
+" read-one167_0"
+" temp168_0"
+" temp169_0"
+" temp170_0"
+" in171_0"
+" config172_0)))))"
 "(if(unsafe-fx< index_0 5)"
 "(if(unsafe-fx< index_0 4)"
 "(let-values()"
 "(if(check-parameter 1/read-square-bracket-as-paren config_0)"
 "(let-values()"
-"(let-values(((read-one177_0) read-one)"
-"((temp178_0) '#\\[)"
-"((temp179_0) '#\\[)"
-"((temp180_0) '#\\])"
-"((in181_0) in_0)"
-"((config182_0) config_0))"
-"(read-vector11.1"
+"(let-values(((read-one173_0) read-one)"
+"((temp174_0) '#\\[)"
+"((temp175_0) '#\\[)"
+"((temp176_0) '#\\])"
+"((in177_0) in_0)"
+"((config178_0) config_0))"
+"(read-vector.1"
 " #f"
 " 'any"
-" read-one177_0"
-" temp178_0"
-" temp179_0"
-" temp180_0"
-" in181_0"
-" config182_0)))"
+" read-one173_0"
+" temp174_0"
+" temp175_0"
+" temp176_0"
+" in177_0"
+" config178_0)))"
 "(let-values()"
-"(let-values(((in183_0) in_0)"
-"((config184_0) config_0)"
-"                                                     ((temp185_0) (format \"~a~a\" dispatch-c_0 c_0)))"
-"(bad-syntax-error20.1 '#\\x in183_0 config184_0 temp185_0)))))"
+"(let-values(((in179_0) in_0)"
+"((config180_0) config_0)"
+"                                                     ((temp181_0) (format \"~a~a\" dispatch-c_0 c_0)))"
+"(bad-syntax-error.1 '#\\x in179_0 config180_0 temp181_0)))))"
 "(let-values()"
 "(if(check-parameter 1/read-curly-brace-as-paren config_0)"
 "(let-values()"
-"(let-values(((read-one186_0) read-one)"
-"((temp187_0) '#\\{)"
-"((temp188_0) '#\\{)"
-"((temp189_0) '#\\})"
-"((in190_0) in_0)"
-"((config191_0) config_0))"
-"(read-vector11.1"
+"(let-values(((read-one182_0) read-one)"
+"((temp183_0) '#\\{)"
+"((temp184_0) '#\\{)"
+"((temp185_0) '#\\})"
+"((in186_0) in_0)"
+"((config187_0) config_0))"
+"(read-vector.1"
 " #f"
 " 'any"
-" read-one186_0"
-" temp187_0"
-" temp188_0"
-" temp189_0"
-" in190_0"
-" config191_0)))"
+" read-one182_0"
+" temp183_0"
+" temp184_0"
+" temp185_0"
+" in186_0"
+" config187_0)))"
 "(let-values()"
-"(let-values(((in192_0) in_0)"
-"((config193_0) config_0)"
-"                                                     ((temp194_0) (format \"~a~a\" dispatch-c_0 c_0)))"
-"(bad-syntax-error20.1 '#\\x in192_0 config193_0 temp194_0))))))"
+"(let-values(((in188_0) in_0)"
+"((config189_0) config_0)"
+"                                                     ((temp190_0) (format \"~a~a\" dispatch-c_0 c_0)))"
+"(bad-syntax-error.1 '#\\x in188_0 config189_0 temp190_0))))))"
 "(if(unsafe-fx< index_0 6)"
 "(let-values()(read-struct read-one dispatch-c_0 in_0 config_0))"
 "(if(unsafe-fx< index_0 7)"
@@ -61341,10 +61254,10 @@ static const char *startup_source =
 "(if(unsafe-fx< index_0 11)"
 "(let-values()(read-character in_0 config_0))"
 "(let-values()"
-"(let-values(((in195_0) in_0)"
-"((config196_0) config_0)"
-"((temp197_0) '|byte string|))"
-"(read-string5.1 temp197_0 in195_0 config196_0))))))"
+"(let-values(((in191_0) in_0)"
+"((config192_0) config_0)"
+"((temp193_0) '|byte string|))"
+"(read-string.1 temp193_0 in191_0 config192_0))))))"
 "(if(unsafe-fx< index_0 14)"
 "(if(unsafe-fx< index_0 13)"
 "(let-values()"
@@ -61363,34 +61276,34 @@ static const char *startup_source =
 "(let-values()"
 "(begin(consume-char in_0 '#\\<)(read-here-string in_0 config_0)))"
 "(let-values()"
-"(let-values(((in198_0) in_0)"
-"((config199_0) config_0)"
-"((c2200_0) c2_0)"
-"                                                       ((temp201_0) \"bad syntax `~a<`\")"
-"((dispatch-c202_0) dispatch-c_0))"
-"(reader-error12.1"
+"(let-values(((in194_0) in_0)"
+"((config195_0) config_0)"
+"((c2196_0) c2_0)"
+"                                                       ((temp197_0) \"bad syntax `~a<`\")"
+"((dispatch-c198_0) dispatch-c_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c2200_0"
+" c2196_0"
 " #f"
 " unsafe-undefined"
-" in198_0"
-" config199_0"
-" temp201_0"
-"(list dispatch-c202_0)))))))"
+" in194_0"
+" config195_0"
+" temp197_0"
+"(list dispatch-c198_0)))))))"
 "(let-values()"
-"(let-values(((c203_0) c_0)"
-"((in204_0) in_0)"
-"((config205_0) config_0)"
-"((dispatch-c206_0) dispatch-c_0)"
-"((temp207_0) 'symbol))"
-"(read-symbol-or-number8.1 dispatch-c206_0 temp207_0 c203_0 in204_0 config205_0))))"
+"(let-values(((c199_0) c_0)"
+"((in200_0) in_0)"
+"((config201_0) config_0)"
+"((dispatch-c202_0) dispatch-c_0)"
+"((temp203_0) 'symbol))"
+"(read-symbol-or-number.1 dispatch-c202_0 temp203_0 c199_0 in200_0 config201_0))))"
 "(if(unsafe-fx< index_0 15)"
 "(let-values()"
-"(let-values(((temp208_0) #f)"
-"((in209_0) in_0)"
-"((config210_0) config_0)"
-"((temp211_0) 'keyword))"
-"(read-symbol-or-number8.1 #f temp211_0 temp208_0 in209_0 config210_0)))"
+"(let-values(((temp204_0) #f)"
+"((in205_0) in_0)"
+"((config206_0) config_0)"
+"((temp207_0) 'keyword))"
+"(read-symbol-or-number.1 #f temp207_0 temp204_0 in205_0 config206_0)))"
 "(if(unsafe-fx< index_0 16)"
 "(let-values()"
 "(let-values(((c2_0)"
@@ -61450,87 +61363,87 @@ static const char *startup_source =
 "(if(unsafe-fx< index_0 21)"
 "(if(unsafe-fx< index_0 18)"
 "(let-values()"
+"(let-values(((temp208_0) #f)"
+"((in209_0) in_0)"
+"((config210_0) config_0)"
+"                                               ((temp211_0) \"#e\"))"
+"(read-symbol-or-number.1 #f temp211_0 temp208_0 in209_0 config210_0)))"
+"(if(unsafe-fx< index_0 19)"
+"(let-values()"
 "(let-values(((temp212_0) #f)"
 "((in213_0) in_0)"
 "((config214_0) config_0)"
-"                                               ((temp215_0) \"#e\"))"
-"(read-symbol-or-number8.1 #f temp215_0 temp212_0 in213_0 config214_0)))"
-"(if(unsafe-fx< index_0 19)"
+"                                                 ((temp215_0) \"#E\"))"
+"(read-symbol-or-number.1 #f temp215_0 temp212_0 in213_0 config214_0)))"
+"(if(unsafe-fx< index_0 20)"
 "(let-values()"
 "(let-values(((temp216_0) #f)"
 "((in217_0) in_0)"
 "((config218_0) config_0)"
-"                                                 ((temp219_0) \"#E\"))"
-"(read-symbol-or-number8.1 #f temp219_0 temp216_0 in217_0 config218_0)))"
-"(if(unsafe-fx< index_0 20)"
+"                                                   ((temp219_0) \"#i\"))"
+"(read-symbol-or-number.1 #f temp219_0 temp216_0 in217_0 config218_0)))"
 "(let-values()"
 "(let-values(((temp220_0) #f)"
 "((in221_0) in_0)"
 "((config222_0) config_0)"
-"                                                   ((temp223_0) \"#i\"))"
-"(read-symbol-or-number8.1 #f temp223_0 temp220_0 in221_0 config222_0)))"
+"                                                   ((temp223_0) \"#I\"))"
+"(read-symbol-or-number.1 #f temp223_0 temp220_0 in221_0 config222_0))))))"
+"(if(unsafe-fx< index_0 23)"
+"(if(unsafe-fx< index_0 22)"
 "(let-values()"
 "(let-values(((temp224_0) #f)"
 "((in225_0) in_0)"
 "((config226_0) config_0)"
-"                                                   ((temp227_0) \"#I\"))"
-"(read-symbol-or-number8.1 #f temp227_0 temp224_0 in225_0 config226_0))))))"
-"(if(unsafe-fx< index_0 23)"
-"(if(unsafe-fx< index_0 22)"
+"                                                 ((temp227_0) \"#d\"))"
+"(read-symbol-or-number.1 #f temp227_0 temp224_0 in225_0 config226_0)))"
 "(let-values()"
 "(let-values(((temp228_0) #f)"
 "((in229_0) in_0)"
 "((config230_0) config_0)"
-"                                                 ((temp231_0) \"#d\"))"
-"(read-symbol-or-number8.1 #f temp231_0 temp228_0 in229_0 config230_0)))"
+"                                                 ((temp231_0) \"#B\"))"
+"(read-symbol-or-number.1 #f temp231_0 temp228_0 in229_0 config230_0))))"
+"(if(unsafe-fx< index_0 24)"
 "(let-values()"
 "(let-values(((temp232_0) #f)"
 "((in233_0) in_0)"
 "((config234_0) config_0)"
-"                                                 ((temp235_0) \"#B\"))"
-"(read-symbol-or-number8.1 #f temp235_0 temp232_0 in233_0 config234_0))))"
-"(if(unsafe-fx< index_0 24)"
+"                                                 ((temp235_0) \"#o\"))"
+"(read-symbol-or-number.1 #f temp235_0 temp232_0 in233_0 config234_0)))"
+"(if(unsafe-fx< index_0 25)"
 "(let-values()"
 "(let-values(((temp236_0) #f)"
 "((in237_0) in_0)"
 "((config238_0) config_0)"
-"                                                 ((temp239_0) \"#o\"))"
-"(read-symbol-or-number8.1 #f temp239_0 temp236_0 in237_0 config238_0)))"
-"(if(unsafe-fx< index_0 25)"
+"                                                   ((temp239_0) \"#O\"))"
+"(read-symbol-or-number.1 #f temp239_0 temp236_0 in237_0 config238_0)))"
 "(let-values()"
 "(let-values(((temp240_0) #f)"
 "((in241_0) in_0)"
 "((config242_0) config_0)"
-"                                                   ((temp243_0) \"#O\"))"
-"(read-symbol-or-number8.1 #f temp243_0 temp240_0 in241_0 config242_0)))"
+"                                                   ((temp243_0) \"#D\"))"
+"(read-symbol-or-number.1 #f temp243_0 temp240_0 in241_0 config242_0)))))))"
+"(if(unsafe-fx< index_0 30)"
+"(if(unsafe-fx< index_0 27)"
 "(let-values()"
 "(let-values(((temp244_0) #f)"
 "((in245_0) in_0)"
 "((config246_0) config_0)"
-"                                                   ((temp247_0) \"#D\"))"
-"(read-symbol-or-number8.1 #f temp247_0 temp244_0 in245_0 config246_0)))))))"
-"(if(unsafe-fx< index_0 30)"
-"(if(unsafe-fx< index_0 27)"
+"                                               ((temp247_0) \"#b\"))"
+"(read-symbol-or-number.1 #f temp247_0 temp244_0 in245_0 config246_0)))"
+"(if(unsafe-fx< index_0 28)"
 "(let-values()"
 "(let-values(((temp248_0) #f)"
 "((in249_0) in_0)"
 "((config250_0) config_0)"
-"                                               ((temp251_0) \"#b\"))"
-"(read-symbol-or-number8.1 #f temp251_0 temp248_0 in249_0 config250_0)))"
-"(if(unsafe-fx< index_0 28)"
+"                                                 ((temp251_0) \"#x\"))"
+"(read-symbol-or-number.1 #f temp251_0 temp248_0 in249_0 config250_0)))"
+"(if(unsafe-fx< index_0 29)"
 "(let-values()"
 "(let-values(((temp252_0) #f)"
 "((in253_0) in_0)"
 "((config254_0) config_0)"
-"                                                 ((temp255_0) \"#x\"))"
-"(read-symbol-or-number8.1 #f temp255_0 temp252_0 in253_0 config254_0)))"
-"(if(unsafe-fx< index_0 29)"
-"(let-values()"
-"(let-values(((temp256_0) #f)"
-"((in257_0) in_0)"
-"((config258_0) config_0)"
-"                                                   ((temp259_0) \"#X\"))"
-"(read-symbol-or-number8.1 #f temp259_0 temp256_0 in257_0 config258_0)))"
+"                                                   ((temp255_0) \"#X\"))"
+"(read-symbol-or-number.1 #f temp255_0 temp252_0 in253_0 config254_0)))"
 "(let-values()"
 "(let-values(((c2_0)"
 "(let-values(((in_1) in_0)"
@@ -61544,21 +61457,21 @@ static const char *startup_source =
 "(let-values()"
 "(read-one #f in_0(override-parameter read-case-sensitive config_0 #f)))"
 "(let-values()"
-"(let-values(((in260_0) in_0)"
-"((config261_0) config_0)"
-"((c2262_0) c2_0)"
-"                                                             ((temp263_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")"
-"((dispatch-c264_0) dispatch-c_0)"
-"((c265_0) c_0))"
-"(reader-error12.1"
+"(let-values(((in256_0) in_0)"
+"((config257_0) config_0)"
+"((c2258_0) c2_0)"
+"                                                             ((temp259_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")"
+"((dispatch-c260_0) dispatch-c_0)"
+"((c261_0) c_0))"
+"(reader-error.1"
 " unsafe-undefined"
-" c2262_0"
+" c2258_0"
 " #f"
 " unsafe-undefined"
-" in260_0"
-" config261_0"
-" temp263_0"
-"(list dispatch-c264_0 c265_0))))))))))))"
+" in256_0"
+" config257_0"
+" temp259_0"
+"(list dispatch-c260_0 c261_0))))))))))))"
 "(if(unsafe-fx< index_0 32)"
 "(if(unsafe-fx< index_0 31)"
 "(let-values()(read-hash read-one dispatch-c_0 c_0 in_0 config_0))"
@@ -61586,21 +61499,21 @@ static const char *startup_source =
 " in_0"
 " config_0))"
 "(let-values()"
-"(let-values(((in266_0) in_0)"
-"((config267_0) config_0)"
-"((c2268_0) c2_0)"
-"((temp269_0)"
-"(let-values(((accum-str270_0) accum-str_0)"
-"((config271_0) config_0))"
-"(accum-string-get!6.1"
+"(let-values(((in262_0) in_0)"
+"((config263_0) config_0)"
+"((c2264_0) c2_0)"
+"((temp265_0)"
+"(let-values(((accum-str266_0) accum-str_0)"
+"((config267_0) config_0))"
+"(accum-string-get!.1"
 " 0"
-" accum-str270_0"
-" config271_0))))"
-"(bad-syntax-error20.1"
-" c2268_0"
-" in266_0"
-" config267_0"
-" temp269_0)))))))))))))"
+" accum-str266_0"
+" config267_0))))"
+"(bad-syntax-error.1"
+" c2264_0"
+" in262_0"
+" config263_0"
+" temp265_0)))))))))))))"
 "(if(unsafe-fx< index_0 33)"
 "(let-values()"
 "(let-values(((accum-str_0)(accum-string-init! config_0)))"
@@ -61618,63 +61531,63 @@ static const char *startup_source =
 "(if(equal? tmp_1 '#\\x)"
 "(let-values()(read-regexp c_0 accum-str_0 in_0 config_0))"
 "(let-values()"
-"(let-values(((in272_0) in_0)"
-"((config273_0) config_0)"
-"((c2274_0) c2_0)"
-"((temp275_0)"
-"(let-values(((accum-str276_0) accum-str_0)"
-"((config277_0) config_0))"
-"(accum-string-get!6.1"
+"(let-values(((in268_0) in_0)"
+"((config269_0) config_0)"
+"((c2270_0) c2_0)"
+"((temp271_0)"
+"(let-values(((accum-str272_0) accum-str_0)"
+"((config273_0) config_0))"
+"(accum-string-get!.1"
 " 0"
-" accum-str276_0"
-" config277_0))))"
-"(bad-syntax-error20.1"
-" c2274_0"
-" in272_0"
-" config273_0"
-" temp275_0)))))))))))"
+" accum-str272_0"
+" config273_0))))"
+"(bad-syntax-error.1"
+" c2270_0"
+" in268_0"
+" config269_0"
+" temp271_0)))))))))))"
 "(if(unsafe-fx< index_0 34)"
 "(let-values()"
+"(let-values(((read-undotted274_0) read-undotted)"
+"((dispatch-c275_0) dispatch-c_0)"
+"((in276_0) in_0)"
+"((config277_0) config_0))"
+"(read-extension-lang.1"
+" #f"
+" read-undotted274_0"
+" dispatch-c275_0"
+" in276_0"
+" config277_0)))"
+"(if(unsafe-fx< index_0 35)"
+"(let-values()"
 "(let-values(((read-undotted278_0) read-undotted)"
 "((dispatch-c279_0) dispatch-c_0)"
 "((in280_0) in_0)"
 "((config281_0) config_0))"
-"(read-extension-lang7.1"
+"(read-extension-#!.1"
 " #f"
 " read-undotted278_0"
 " dispatch-c279_0"
 " in280_0"
 " config281_0)))"
-"(if(unsafe-fx< index_0 35)"
-"(let-values()"
-"(let-values(((read-undotted282_0) read-undotted)"
-"((dispatch-c283_0) dispatch-c_0)"
-"((in284_0) in_0)"
-"((config285_0) config_0))"
-"(read-extension-#!16.1"
-" #f"
-" read-undotted282_0"
-" dispatch-c283_0"
-" in284_0"
-" config285_0)))"
 "(let-values()"
 "(if(check-parameter 1/read-accept-compiled config_0)"
 "(let-values()"
 "(wrap((read-config-read-compiled config_0) in_0) in_0 config_0 c_0))"
 "(let-values()"
-"(let-values(((in286_0) in_0)"
-"((config287_0) config_0)"
-"                                                         ((temp288_0) \"`~a~~` compiled expressions not enabled\")"
-"((dispatch-c289_0) dispatch-c_0))"
-"(reader-error12.1"
+"(let-values(((in282_0) in_0)"
+"((config283_0) config_0)"
+"                                                         ((temp284_0) \"`~a~~` compiled expressions not enabled\")"
+"((dispatch-c285_0) dispatch-c_0))"
+"(reader-error.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in286_0"
-" config287_0"
-" temp288_0"
-"(list dispatch-c289_0)))))))))))))))))))))))))"
+" in282_0"
+" config283_0"
+" temp284_0"
+"(list dispatch-c285_0)))))))))))))))))))))))))"
 "(define-values"
 "(retry-special-comment)"
 "(lambda(v_0 in_0 config_0)"
@@ -61684,10 +61597,10 @@ static const char *startup_source =
 "(let-values() v_0)))))"
 "(define-values"
 "(1/module-declared?)"
-"(let-values(((module-declared?3_0)"
+"(let-values(((module-declared?_0)"
 "(lambda(mod2_0 load?1_0)"
 "(begin"
-" 'module-declared?3"
+" 'module-declared?"
 "(let-values(((mod_0) mod2_0))"
 "(let-values(((load?_0) load?1_0))"
 "(let-values()"
@@ -61702,12 +61615,12 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ns_0)(1/current-namespace)))"
 "(let-values(((name_0)"
-"(let-values(((mod38_0) mod_0)((load?39_0) load?_0))"
-"(reference->resolved-module-path34.1 load?39_0 mod38_0))))"
+"(let-values(((mod24_0) mod_0)((load?25_0) load?_0))"
+"(reference->resolved-module-path.1 load?25_0 mod24_0))))"
 "(if(namespace->module ns_0 name_0) #t #f)))))))))))))"
 "(case-lambda"
-"((mod_0)(begin 'module-declared?(module-declared?3_0 mod_0 #f)))"
-"((mod_0 load?1_0)(module-declared?3_0 mod_0 load?1_0)))))"
+"((mod_0)(begin 'module-declared?(module-declared?_0 mod_0 #f)))"
+"((mod_0 load?1_0)(module-declared?_0 mod_0 load?1_0)))))"
 "(define-values"
 "(1/module-predefined?)"
 "(lambda(mod_0)"
@@ -61723,19 +61636,19 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ns_0)(1/current-namespace)))"
 "(let-values(((name_0)"
-"(let-values(((mod41_0) mod_0)((temp42_0) #f))"
-"(reference->resolved-module-path34.1 temp42_0 mod41_0))))"
+"(let-values(((mod27_0) mod_0)((temp28_0) #f))"
+"(reference->resolved-module-path.1 temp28_0 mod27_0))))"
 "(let-values(((m_0)(namespace->module ns_0 name_0)))(if m_0(module-is-predefined? m_0) #f))))))))))"
 "(define-values"
-"(module->11.1)"
-"(lambda(extra-checks5_0 extract8_0 who9_0 mod10_0 load?7_0)"
+"(module->.1)"
+"(lambda(extra-checks3_0 extract6_0 who7_0 mod8_0 load?5_0)"
 "(begin"
-" 'module->11"
-"(let-values(((extract_0) extract8_0))"
-"(let-values(((who_0) who9_0))"
-"(let-values(((mod_0) mod10_0))"
-"(let-values(((load?_0) load?7_0))"
-"(let-values(((extra-checks_0)(if(eq? extra-checks5_0 unsafe-undefined) void extra-checks5_0)))"
+" 'module->"
+"(let-values(((extract_0) extract6_0))"
+"(let-values(((who_0) who7_0))"
+"(let-values(((mod_0) mod8_0))"
+"(let-values(((load?_0) load?5_0))"
+"(let-values(((extra-checks_0)(if(eq? extra-checks3_0 unsafe-undefined) void extra-checks3_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -61748,33 +61661,33 @@ static const char *startup_source =
 "(namespace->module/complain"
 " who_0"
 "(1/current-namespace)"
-"(let-values(((mod43_0) mod_0)((load?44_0) load?_0))"
-"(reference->resolved-module-path34.1 load?44_0 mod43_0)))))"
+"(let-values(((mod29_0) mod_0)((load?30_0) load?_0))"
+"(reference->resolved-module-path.1 load?30_0 mod29_0)))))"
 "(extract_0 m_0)))))))))))))"
 "(define-values"
 "(1/module->language-info)"
-"(let-values(((module->language-info16_0)"
-"(lambda(mod15_0 load?14_0)"
+"(let-values(((module->language-info_0)"
+"(lambda(mod11_0 load?10_0)"
 "(begin"
-" 'module->language-info16"
-"(let-values(((mod_0) mod15_0))"
-"(let-values(((load?_0) load?14_0))"
+" 'module->language-info"
+"(let-values(((mod_0) mod11_0))"
+"(let-values(((load?_0) load?10_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((module-language-info46_0) module-language-info)"
-"((who47_0) 'module->language-info)"
-"((mod48_0) mod_0)"
-"((load?49_0) load?_0))"
-"(module->11.1"
+"(let-values(((module-language-info32_0) module-language-info)"
+"((who33_0) 'module->language-info)"
+"((mod34_0) mod_0)"
+"((load?35_0) load?_0))"
+"(module->.1"
 " unsafe-undefined"
-" module-language-info46_0"
-" who47_0"
-" mod48_0"
-" load?49_0)))))))))))"
+" module-language-info32_0"
+" who33_0"
+" mod34_0"
+" load?35_0)))))))))))"
 "(case-lambda"
-"((mod_0)(begin 'module->language-info(module->language-info16_0 mod_0 #f)))"
-"((mod_0 load?14_0)(module->language-info16_0 mod_0 load?14_0)))))"
+"((mod_0)(begin 'module->language-info(module->language-info_0 mod_0 #f)))"
+"((mod_0 load?10_0)(module->language-info_0 mod_0 load?10_0)))))"
 "(define-values"
 "(1/module->imports)"
 "(lambda(mod_0)"
@@ -61782,71 +61695,71 @@ static const char *startup_source =
 " 'module->imports"
 "(let-values()"
 "(let-values()"
-"(let-values(((module-requires51_0) module-requires)((who52_0) 'module->imports)((mod53_0) mod_0))"
-"(module->11.1 unsafe-undefined module-requires51_0 who52_0 mod53_0 #f)))))))"
+"(let-values(((module-requires37_0) module-requires)((who38_0) 'module->imports)((mod39_0) mod_0))"
+"(module->.1 unsafe-undefined module-requires37_0 who38_0 mod39_0 #f)))))))"
 "(define-values"
 "(1/module->exports)"
-"(let-values(((module->exports20_0)"
-"(lambda(mod19_0 verbosity18_0)"
+"(let-values(((module->exports_0)"
+"(lambda(mod13_0 verbosity12_0)"
 "(begin"
-" 'module->exports20"
-"(let-values(((mod_0) mod19_0))"
-"(let-values(((verbosity_0) verbosity18_0))"
+" 'module->exports"
+"(let-values(((mod_0) mod13_0))"
+"(let-values(((verbosity_0) verbosity12_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values(((provides_0 self_0)"
-"(let-values(((temp55_0)"
+"(let-values(((temp41_0)"
 "(lambda(m_0)"
 "(begin"
-" 'temp55"
+" 'temp41"
 "(values(module-provides m_0)(module-self m_0)))))"
-"((who56_0) 'module->exports)"
-"((mod57_0) mod_0)"
-"((temp58_0)"
+"((who42_0) 'module->exports)"
+"((mod43_0) mod_0)"
+"((temp44_0)"
 "(lambda()"
 "(check-provides-verbosity 'module->exports verbosity_0))))"
-"(module->11.1 temp58_0 temp55_0 who56_0 mod57_0 #f))))"
+"(module->.1 temp44_0 temp41_0 who42_0 mod43_0 #f))))"
 "(provides->api-provides provides_0 self_0 verbosity_0)))))))))))"
 "(case-lambda"
-"((mod_0)(begin 'module->exports(module->exports20_0 mod_0 #f)))"
-"((mod_0 verbosity18_0)(module->exports20_0 mod_0 verbosity18_0)))))"
+"((mod_0)(begin 'module->exports(module->exports_0 mod_0 #f)))"
+"((mod_0 verbosity12_0)(module->exports_0 mod_0 verbosity12_0)))))"
 "(define-values"
 "(1/module->indirect-exports)"
 "(lambda(mod_0)"
 "(begin"
 " 'module->indirect-exports"
-"(let-values(((temp59_0)"
+"(let-values(((temp45_0)"
 "(lambda(m_0)"
 "(begin"
-" 'temp59"
+" 'temp45"
 "(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0))))))"
-"((temp60_0) 'module->indirect-exports)"
-"((mod61_0) mod_0))"
-"(module->11.1 unsafe-undefined temp59_0 temp60_0 mod61_0 #f)))))"
+"((temp46_0) 'module->indirect-exports)"
+"((mod47_0) mod_0))"
+"(module->.1 unsafe-undefined temp45_0 temp46_0 mod47_0 #f)))))"
 "(define-values"
 "(1/module-provide-protected?)"
 "(lambda(mod_0 sym_0)"
 "(begin"
 " 'module-provide-protected?"
-"(let-values(((temp62_0)"
+"(let-values(((temp48_0)"
 "(lambda(m_0)"
 "(begin"
-" 'temp62"
+" 'temp48"
 "(let-values(((b/p_0)(hash-ref(module-provides m_0) sym_0 #f)))"
 "(let-values(((or-part_0)(not b/p_0)))"
 "(if or-part_0 or-part_0(provided-as-protected? b/p_0)))))))"
-"((temp63_0) 'module-provide-protected?)"
-"((mod64_0) mod_0))"
-"(module->11.1 unsafe-undefined temp62_0 temp63_0 mod64_0 #f)))))"
+"((temp49_0) 'module-provide-protected?)"
+"((mod50_0) mod_0))"
+"(module->.1 unsafe-undefined temp48_0 temp49_0 mod50_0 #f)))))"
 "(define-values"
 "(1/module->namespace)"
-"(let-values(((module->namespace24_0)"
-"(lambda(mod23_0 ns22_0)"
+"(let-values(((module->namespace_0)"
+"(lambda(mod15_0 ns14_0)"
 "(begin"
-" 'module->namespace24"
-"(let-values(((mod_0) mod23_0))"
-"(let-values(((ns_0)(if(eq? ns22_0 unsafe-undefined)(1/current-namespace) ns22_0)))"
+" 'module->namespace"
+"(let-values(((mod_0) mod15_0))"
+"(let-values(((ns_0)(if(eq? ns14_0 unsafe-undefined)(1/current-namespace) ns14_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -61865,20 +61778,20 @@ static const char *startup_source =
 "                                                    (raise-argument-error 'module->namespace \"namespace?\" ns_0)))"
 "(values))))"
 "(let-values(((name_0)"
-"(let-values(((mod69_0) mod_0)((temp70_0) #t))"
-"(reference->resolved-module-path34.1 temp70_0 mod69_0))))"
+"(let-values(((mod55_0) mod_0)((temp56_0) #t))"
+"(reference->resolved-module-path.1 temp56_0 mod55_0))))"
 "(let-values(((phase_0)(namespace-phase ns_0)))"
 "(let-values(((m-ns_0)"
-"(let-values(((ns71_0) ns_0)"
-"((name72_0) name_0)"
-"((phase73_0) phase_0))"
-"(namespace->module-namespace82.1"
+"(let-values(((ns57_0) ns_0)"
+"((name58_0) name_0)"
+"((phase59_0) phase_0))"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" ns71_0"
-" name72_0"
-" phase73_0))))"
+" ns57_0"
+" name58_0"
+" phase59_0))))"
 "(begin"
 "(if m-ns_0"
 "(void)"
@@ -61905,34 +61818,34 @@ static const char *startup_source =
 "(let-values()"
 "(namespace-set-root-expand-ctx!"
 " m-ns_0"
-"(let-values(((temp74_0)(namespace-mpi m-ns_0)))"
-"(make-root-expand-context13.1"
+"(let-values(((temp60_0)(namespace-mpi m-ns_0)))"
+"(make-root-expand-context.1"
 " #f"
 " null"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp74_0)))))"
-"(let-values(((ns66_0) ns_0)"
-"((temp67_0)(namespace-mpi m-ns_0))"
-"((phase68_0) phase_0))"
-"(namespace-module-make-available!112.1"
+" temp60_0)))))"
+"(let-values(((ns52_0) ns_0)"
+"((temp53_0)(namespace-mpi m-ns_0))"
+"((phase54_0) phase_0))"
+"(namespace-module-make-available!.1"
 " unsafe-undefined"
-" ns66_0"
-" temp67_0"
-" phase68_0))"
+" ns52_0"
+" temp53_0"
+" phase54_0))"
 " m-ns_0)))))))))))))))"
 "(case-lambda"
-"((mod_0)(begin 'module->namespace(module->namespace24_0 mod_0 unsafe-undefined)))"
-"((mod_0 ns22_0)(module->namespace24_0 mod_0 ns22_0)))))"
+"((mod_0)(begin 'module->namespace(module->namespace_0 mod_0 unsafe-undefined)))"
+"((mod_0 ns14_0)(module->namespace_0 mod_0 ns14_0)))))"
 "(define-values"
 "(1/namespace-unprotect-module)"
-"(let-values(((namespace-unprotect-module29_0)"
-"(lambda(insp27_0 mod28_0 ns26_0)"
+"(let-values(((namespace-unprotect-module_0)"
+"(lambda(insp17_0 mod18_0 ns16_0)"
 "(begin"
-" 'namespace-unprotect-module29"
-"(let-values(((insp_0) insp27_0))"
-"(let-values(((mod_0) mod28_0))"
-"(let-values(((ns_0)(if(eq? ns26_0 unsafe-undefined)(1/current-namespace) ns26_0)))"
+" 'namespace-unprotect-module"
+"(let-values(((insp_0) insp17_0))"
+"(let-values(((mod_0) mod18_0))"
+"(let-values(((ns_0)(if(eq? ns16_0 unsafe-undefined)(1/current-namespace) ns16_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -61967,20 +61880,20 @@ static const char *startup_source =
 " ns_0)))"
 "(values))))"
 "(let-values(((name_0)"
-"(let-values(((mod76_0) mod_0)((temp77_0) #f))"
-"(reference->resolved-module-path34.1 temp77_0 mod76_0))))"
+"(let-values(((mod62_0) mod_0)((temp63_0) #f))"
+"(reference->resolved-module-path.1 temp63_0 mod62_0))))"
 "(let-values(((phase_0)(namespace-phase ns_0)))"
 "(let-values(((m-ns_0)"
-"(let-values(((ns78_0) ns_0)"
-"((name79_0) name_0)"
-"((phase80_0) phase_0))"
-"(namespace->module-namespace82.1"
+"(let-values(((ns64_0) ns_0)"
+"((name65_0) name_0)"
+"((phase66_0) phase_0))"
+"(namespace->module-namespace.1"
 " #f"
 " #f"
 " unsafe-undefined"
-" ns78_0"
-" name79_0"
-" phase80_0))))"
+" ns64_0"
+" name65_0"
+" phase66_0))))"
 "(begin"
 "(if m-ns_0"
 "(void)"
@@ -61997,8 +61910,8 @@ static const char *startup_source =
 "(make-inspector(current-code-inspector))))"
 "(void)))))))))))))))))))"
 "(case-lambda"
-"((insp_0 mod_0)(begin 'namespace-unprotect-module(namespace-unprotect-module29_0 insp_0 mod_0 unsafe-undefined)))"
-"((insp_0 mod_0 ns26_0)(namespace-unprotect-module29_0 insp_0 mod_0 ns26_0)))))"
+"((insp_0 mod_0)(begin 'namespace-unprotect-module(namespace-unprotect-module_0 insp_0 mod_0 unsafe-undefined)))"
+"((insp_0 mod_0 ns16_0)(namespace-unprotect-module_0 insp_0 mod_0 ns16_0)))))"
 "(define-values"
 "(namespace->module/complain)"
 "(lambda(who_0 ns_0 name_0)"
@@ -62018,12 +61931,12 @@ static const char *startup_source =
 "(if or-part_1 or-part_1(1/resolved-module-path? mod_0))))))))"
 " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")"
 "(define-values"
-"(reference->resolved-module-path34.1)"
-"(lambda(load?31_0 mod33_0)"
+"(reference->resolved-module-path.1)"
+"(lambda(load?19_0 mod21_0)"
 "(begin"
-" 'reference->resolved-module-path34"
-"(let-values(((mod_0) mod33_0))"
-"(let-values(((load?_0) load?31_0))"
+" 'reference->resolved-module-path"
+"(let-values(((mod_0) mod21_0))"
+"(let-values(((load?_0) load?19_0))"
 "(let-values()"
 "(if(1/resolved-module-path? mod_0)"
 "(let-values() mod_0)"
@@ -62339,22 +62252,22 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(maybe-flush-stdout in_0)"
-"(let-values(((in17_0) in_0)((temp18_0) #t)((src19_0) src_0))"
-"(read*14.1 temp18_0 #f #f unsafe-undefined #f src19_0 in17_0))))"
+"(let-values(((in15_0) in_0)((temp16_0) #t)((src17_0) src_0))"
+"(read*.1 temp16_0 #f #f unsafe-undefined #f src17_0 in15_0))))"
 "(let-values()(values((port-read-handler in_0) in_0 src_0)))))))"
 "(define-values"
 "(read-syntax/recursive$1)"
 "(lambda(src_0 in_0 start_0 readtable_0 graph?_0)"
 "(begin"
 " 'read-syntax/recursive"
-"(let-values(((in20_0) in_0)"
-"((temp21_0) #t)"
-"((temp22_0) #t)"
-"((src23_0) src_0)"
-"((start24_0) start_0)"
-"((readtable25_0) readtable_0)"
-"((temp26_0)(not graph?_0)))"
-"(read*14.1 temp21_0 start24_0 temp26_0 readtable25_0 temp22_0 src23_0 in20_0)))))"
+"(let-values(((in18_0) in_0)"
+"((temp19_0) #t)"
+"((temp20_0) #t)"
+"((src21_0) src_0)"
+"((start22_0) start_0)"
+"((readtable23_0) readtable_0)"
+"((temp24_0)(not graph?_0)))"
+"(read*.1 temp19_0 start22_0 temp24_0 readtable23_0 temp20_0 src21_0 in18_0)))))"
 "(define-values"
 "(read$1)"
 "(lambda(in_0)"
@@ -62364,25 +62277,25 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(maybe-flush-stdout in_0)"
-"(let-values(((in27_0) in_0)((temp28_0) #f))(read*14.1 temp28_0 #f #f unsafe-undefined #f #f in27_0))))"
+"(let-values(((in25_0) in_0)((temp26_0) #f))(read*.1 temp26_0 #f #f unsafe-undefined #f #f in25_0))))"
 "(let-values()(values((port-read-handler in_0) in_0)))))))"
 "(define-values"
 "(read/recursive$1)"
 "(lambda(in_0 start_0 readtable_0 graph?_0)"
 "(begin"
 " 'read/recursive"
-"(let-values(((in29_0) in_0)"
-"((temp30_0) #f)"
-"((temp31_0) #t)"
-"((start32_0) start_0)"
-"((readtable33_0) readtable_0)"
-"((temp34_0)(not graph?_0)))"
-"(read*14.1 temp30_0 start32_0 temp34_0 readtable33_0 temp31_0 #f in29_0)))))"
+"(let-values(((in27_0) in_0)"
+"((temp28_0) #f)"
+"((temp29_0) #t)"
+"((start30_0) start_0)"
+"((readtable31_0) readtable_0)"
+"((temp32_0)(not graph?_0)))"
+"(read*.1 temp28_0 start30_0 temp32_0 readtable31_0 temp29_0 #f in27_0)))))"
 "(define-values"
-"(read*14.1)"
+"(read*.1)"
 "(lambda(for-syntax?1_0 init-c4_0 local-graph?6_0 readtable5_0 recursive?2_0 source3_0 in13_0)"
 "(begin"
-" 'read*14"
+" 'read*"
 "(let-values(((in_0) in13_0))"
 "(let-values(((for-syntax?_0) for-syntax?1_0))"
 "(let-values(((recursive?_0) recursive?2_0))"
@@ -62396,73 +62309,73 @@ static const char *startup_source =
 "(if log-performance?(let-values()(start-performance-region 'read))(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((in35_0) in_0)"
-"((for-syntax?36_0) for-syntax?_0)"
-"((recursive?37_0) recursive?_0)"
-"((source38_0) source_0)"
-"((temp39_0)(if for-syntax?_0 read-to-syntax #f))"
-"((init-c40_0) init-c_0)"
-"((readtable41_0) readtable_0)"
-"((local-graph?42_0) local-graph?_0)"
-"((read-linklet-bundle-or-directory43_0) read-linklet-bundle-or-directory)"
-"((call-with-root-namespace44_0) call-with-root-namespace)"
-"((dynamic-require45_0) 1/dynamic-require)"
-"((read-module-declared?46_0) read-module-declared?)"
-"((read-coerce47_0) read-coerce)"
-"((read-coerce-key48_0) read-coerce-key))"
-"(read32.1"
-" call-with-root-namespace44_0"
-" read-coerce47_0"
-" read-coerce-key48_0"
-" dynamic-require45_0"
-" for-syntax?36_0"
-" init-c40_0"
+"(let-values(((in33_0) in_0)"
+"((for-syntax?34_0) for-syntax?_0)"
+"((recursive?35_0) recursive?_0)"
+"((source36_0) source_0)"
+"((temp37_0)(if for-syntax?_0 read-to-syntax #f))"
+"((init-c38_0) init-c_0)"
+"((readtable39_0) readtable_0)"
+"((local-graph?40_0) local-graph?_0)"
+"((read-linklet-bundle-or-directory41_0) read-linklet-bundle-or-directory)"
+"((call-with-root-namespace42_0) call-with-root-namespace)"
+"((dynamic-require43_0) 1/dynamic-require)"
+"((read-module-declared?44_0) read-module-declared?)"
+"((read-coerce45_0) read-coerce)"
+"((read-coerce-key46_0) read-coerce-key))"
+"(read.1"
+" call-with-root-namespace42_0"
+" read-coerce45_0"
+" read-coerce-key46_0"
+" dynamic-require43_0"
+" for-syntax?34_0"
+" init-c38_0"
 " unsafe-undefined"
-" local-graph?42_0"
-" read-module-declared?46_0"
+" local-graph?40_0"
+" read-module-declared?44_0"
 " unsafe-undefined"
-" read-linklet-bundle-or-directory43_0"
-" readtable41_0"
-" recursive?37_0"
-" source38_0"
-" temp39_0"
-" in35_0)))"
+" read-linklet-bundle-or-directory41_0"
+" readtable39_0"
+" recursive?35_0"
+" source36_0"
+" temp37_0"
+" in33_0)))"
 "(if log-performance?(let-values()(end-performance-region))(void)))))))))))))))"
 "(define-values"
 "(read-language$1)"
 "(lambda(in_0 fail-thunk_0)"
 "(begin"
 " 'read-language"
-"(let-values(((in49_0) in_0)"
-"((fail-thunk50_0) fail-thunk_0)"
-"((temp51_0) #t)"
-"((read-to-syntax52_0) read-to-syntax)"
-"((read-linklet-bundle-or-directory53_0) read-linklet-bundle-or-directory)"
-"((call-with-root-namespace54_0) call-with-root-namespace)"
-"((dynamic-require55_0) 1/dynamic-require)"
-"((read-module-declared?56_0) read-module-declared?)"
-"((read-coerce57_0) read-coerce)"
-"((read-coerce-key58_0) read-coerce-key))"
-"(read-language53.1"
-" call-with-root-namespace54_0"
-" read-coerce57_0"
-" read-coerce-key58_0"
-" dynamic-require55_0"
-" temp51_0"
-" read-module-declared?56_0"
-" read-linklet-bundle-or-directory53_0"
-" read-to-syntax52_0"
-" in49_0"
-" fail-thunk50_0)))))"
+"(let-values(((in47_0) in_0)"
+"((fail-thunk48_0) fail-thunk_0)"
+"((temp49_0) #t)"
+"((read-to-syntax50_0) read-to-syntax)"
+"((read-linklet-bundle-or-directory51_0) read-linklet-bundle-or-directory)"
+"((call-with-root-namespace52_0) call-with-root-namespace)"
+"((dynamic-require53_0) 1/dynamic-require)"
+"((read-module-declared?54_0) read-module-declared?)"
+"((read-coerce55_0) read-coerce)"
+"((read-coerce-key56_0) read-coerce-key))"
+"(read-language.1"
+" call-with-root-namespace52_0"
+" read-coerce55_0"
+" read-coerce-key56_0"
+" dynamic-require53_0"
+" temp49_0"
+" read-module-declared?54_0"
+" read-linklet-bundle-or-directory51_0"
+" read-to-syntax50_0"
+" in47_0"
+" fail-thunk48_0)))))"
 "(define-values"
 "(read-to-syntax)"
 "(lambda(s-exp_0 srcloc_0 rep_0)"
 "(begin"
 "(let-values(((the-struct_0) empty-syntax))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((content59_0)(datum-intern-literal s-exp_0))"
-"((srcloc60_0) srcloc_0)"
-"((props61_0)"
+"(let-values(((content57_0)(datum-intern-literal s-exp_0))"
+"((srcloc58_0) srcloc_0)"
+"((props59_0)"
 "(let-values(((tmp_0) rep_0))"
 "(if(equal? tmp_0 '#\\[)"
 "(let-values() original-square-props)"
@@ -62470,13 +62383,13 @@ static const char *startup_source =
 "(let-values() original-curly-props)"
 "(let-values() original-props))))))"
 "(syntax1.1"
-" content59_0"
+" content57_0"
 "(syntax-scopes the-struct_0)"
 "(syntax-shifted-multi-scopes the-struct_0)"
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
-" srcloc60_0"
-" props61_0"
+" srcloc58_0"
+" props59_0"
 "(syntax-inspector the-struct_0)))"
 "          (raise-argument-error 'struct-copy \"syntax?\" the-struct_0))))))"
 "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))"
@@ -62568,10 +62481,10 @@ static const char *startup_source =
 "(thunk_0))))))"
 "(define-values"
 "(1/read-syntax)"
-"(let-values(((read-syntax3_0)"
+"(let-values(((read-syntax_0)"
 "(lambda(src1_0 in2_0)"
 "(begin"
-" 'read-syntax3"
+" 'read-syntax"
 "(let-values(((src_0)(if(eq? src1_0 unsafe-undefined)(object-name(current-input-port)) src1_0)))"
 "(let-values(((in_0)(if(eq? in2_0 unsafe-undefined)(current-input-port) in2_0)))"
 "(let-values()"
@@ -62583,21 +62496,21 @@ static const char *startup_source =
 "                                  (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_0)))"
 "(read-syntax$1 src_0 in_0)))))))))))"
 "(case-lambda"
-"(()(begin 'read-syntax(read-syntax3_0 unsafe-undefined unsafe-undefined)))"
-"((src_0 in2_0)(read-syntax3_0 src_0 in2_0))"
-"((src1_0)(read-syntax3_0 src1_0 unsafe-undefined)))))"
+"(()(begin 'read-syntax(read-syntax_0 unsafe-undefined unsafe-undefined)))"
+"((src_0 in2_0)(read-syntax_0 src_0 in2_0))"
+"((src1_0)(read-syntax_0 src1_0 unsafe-undefined)))))"
 "(define-values"
 "(1/read-syntax/recursive)"
-"(let-values(((read-syntax/recursive10_0)"
-"(lambda(src5_0 in6_0 start7_0 readtable8_0 graph?9_0)"
+"(let-values(((read-syntax/recursive_0)"
+"(lambda(src3_0 in4_0 start5_0 readtable6_0 graph?7_0)"
 "(begin"
-" 'read-syntax/recursive10"
-"(let-values(((src_0)(if(eq? src5_0 unsafe-undefined)(object-name(current-input-port)) src5_0)))"
-"(let-values(((in_0)(if(eq? in6_0 unsafe-undefined)(current-input-port) in6_0)))"
-"(let-values(((start_0) start7_0))"
+" 'read-syntax/recursive"
+"(let-values(((src_0)(if(eq? src3_0 unsafe-undefined)(object-name(current-input-port)) src3_0)))"
+"(let-values(((in_0)(if(eq? in4_0 unsafe-undefined)(current-input-port) in4_0)))"
+"(let-values(((start_0) start5_0))"
 "(let-values(((readtable_0)"
-"(if(eq? readtable8_0 unsafe-undefined)(1/current-readtable) readtable8_0)))"
-"(let-values(((graph?_0) graph?9_0))"
+"(if(eq? readtable6_0 unsafe-undefined)(1/current-readtable) readtable6_0)))"
+"(let-values(((graph?_0) graph?7_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -62626,21 +62539,19 @@ static const char *startup_source =
 "(read-syntax/recursive$1 src_0 in_0 start_0 readtable_0 graph?_0))))))))))))))"
 "(case-lambda"
 "(()"
-"(begin"
-" 'read-syntax/recursive"
-"(read-syntax/recursive10_0 unsafe-undefined unsafe-undefined #f unsafe-undefined #t)))"
-"((src_0 in_0 start_0 readtable_0 graph?9_0)(read-syntax/recursive10_0 src_0 in_0 start_0 readtable_0 graph?9_0))"
-"((src_0 in_0 start_0 readtable8_0)(read-syntax/recursive10_0 src_0 in_0 start_0 readtable8_0 #t))"
-"((src_0 in_0 start7_0)(read-syntax/recursive10_0 src_0 in_0 start7_0 unsafe-undefined #t))"
-"((src_0 in6_0)(read-syntax/recursive10_0 src_0 in6_0 #f unsafe-undefined #t))"
-"((src5_0)(read-syntax/recursive10_0 src5_0 unsafe-undefined #f unsafe-undefined #t)))))"
+"(begin 'read-syntax/recursive(read-syntax/recursive_0 unsafe-undefined unsafe-undefined #f unsafe-undefined #t)))"
+"((src_0 in_0 start_0 readtable_0 graph?7_0)(read-syntax/recursive_0 src_0 in_0 start_0 readtable_0 graph?7_0))"
+"((src_0 in_0 start_0 readtable6_0)(read-syntax/recursive_0 src_0 in_0 start_0 readtable6_0 #t))"
+"((src_0 in_0 start5_0)(read-syntax/recursive_0 src_0 in_0 start5_0 unsafe-undefined #t))"
+"((src_0 in4_0)(read-syntax/recursive_0 src_0 in4_0 #f unsafe-undefined #t))"
+"((src3_0)(read-syntax/recursive_0 src3_0 unsafe-undefined #f unsafe-undefined #t)))))"
 "(define-values"
 "(1/read)"
-"(let-values(((read13_0)"
-"(lambda(in12_0)"
+"(let-values(((read_0)"
+"(lambda(in8_0)"
 "(begin"
-" 'read13"
-"(let-values(((in_0)(if(eq? in12_0 unsafe-undefined)(current-input-port) in12_0)))"
+" 'read"
+"(let-values(((in_0)(if(eq? in8_0 unsafe-undefined)(current-input-port) in8_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -62649,18 +62560,18 @@ static const char *startup_source =
 "(void)"
 "                                (let-values () (raise-argument-error 'read \"input-port?\" in_0)))"
 "(read$1 in_0))))))))))"
-"(case-lambda(()(begin 'read(read13_0 unsafe-undefined)))((in12_0)(read13_0 in12_0)))))"
+"(case-lambda(()(begin 'read(read_0 unsafe-undefined)))((in8_0)(read_0 in8_0)))))"
 "(define-values"
 "(1/read/recursive)"
-"(let-values(((read/recursive19_0)"
-"(lambda(in15_0 start16_0 readtable17_0 graph?18_0)"
+"(let-values(((read/recursive_0)"
+"(lambda(in9_0 start10_0 readtable11_0 graph?12_0)"
 "(begin"
-" 'read/recursive19"
-"(let-values(((in_0)(if(eq? in15_0 unsafe-undefined)(current-input-port) in15_0)))"
-"(let-values(((start_0) start16_0))"
+" 'read/recursive"
+"(let-values(((in_0)(if(eq? in9_0 unsafe-undefined)(current-input-port) in9_0)))"
+"(let-values(((start_0) start10_0))"
 "(let-values(((readtable_0)"
-"(if(eq? readtable17_0 unsafe-undefined)(1/current-readtable) readtable17_0)))"
-"(let-values(((graph?_0) graph?18_0))"
+"(if(eq? readtable11_0 unsafe-undefined)(1/current-readtable) readtable11_0)))"
+"(let-values(((graph?_0) graph?12_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -62682,20 +62593,20 @@ static const char *startup_source =
 "                                        (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_0)))"
 "(read/recursive$1 in_0 start_0 readtable_0 graph?_0)))))))))))))"
 "(case-lambda"
-"(()(begin 'read/recursive(read/recursive19_0 unsafe-undefined #f unsafe-undefined #t)))"
-"((in_0 start_0 readtable_0 graph?18_0)(read/recursive19_0 in_0 start_0 readtable_0 graph?18_0))"
-"((in_0 start_0 readtable17_0)(read/recursive19_0 in_0 start_0 readtable17_0 #t))"
-"((in_0 start16_0)(read/recursive19_0 in_0 start16_0 unsafe-undefined #t))"
-"((in15_0)(read/recursive19_0 in15_0 #f unsafe-undefined #t)))))"
+"(()(begin 'read/recursive(read/recursive_0 unsafe-undefined #f unsafe-undefined #t)))"
+"((in_0 start_0 readtable_0 graph?12_0)(read/recursive_0 in_0 start_0 readtable_0 graph?12_0))"
+"((in_0 start_0 readtable11_0)(read/recursive_0 in_0 start_0 readtable11_0 #t))"
+"((in_0 start10_0)(read/recursive_0 in_0 start10_0 unsafe-undefined #t))"
+"((in9_0)(read/recursive_0 in9_0 #f unsafe-undefined #t)))))"
 "(define-values"
 "(1/read-language)"
-"(let-values(((read-language23_0)"
-"(lambda(in21_0 fail-thunk22_0)"
+"(let-values(((read-language_0)"
+"(lambda(in13_0 fail-thunk14_0)"
 "(begin"
-" 'read-language23"
-"(let-values(((in_0)(if(eq? in21_0 unsafe-undefined)(current-input-port) in21_0)))"
+" 'read-language"
+"(let-values(((in_0)(if(eq? in13_0 unsafe-undefined)(current-input-port) in13_0)))"
 "(let-values(((fail-thunk_0)"
-"(if(eq? fail-thunk22_0 unsafe-undefined) read-language-fail-thunk fail-thunk22_0)))"
+"(if(eq? fail-thunk14_0 unsafe-undefined) read-language-fail-thunk fail-thunk14_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -62715,9 +62626,9 @@ static const char *startup_source =
 " in_0"
 "(if(eq? fail-thunk_0 read-language-fail-thunk) #f fail-thunk_0))))))))))))"
 "(case-lambda"
-"(()(begin 'read-language(read-language23_0 unsafe-undefined unsafe-undefined)))"
-"((in_0 fail-thunk22_0)(read-language23_0 in_0 fail-thunk22_0))"
-"((in21_0)(read-language23_0 in21_0 unsafe-undefined)))))"
+"(()(begin 'read-language(read-language_0 unsafe-undefined unsafe-undefined)))"
+"((in_0 fail-thunk14_0)(read-language_0 in_0 fail-thunk14_0))"
+"((in13_0)(read-language_0 in13_0 unsafe-undefined)))))"
 " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))"
 "(define-values"
 "(declare-primitive-module!)"
@@ -62759,7 +62670,7 @@ static const char *startup_source =
 " 0)"
 "((sym12_0)"
 " sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -62838,7 +62749,7 @@ static const char *startup_source =
 " lst_0)))"
 "(void)))"
 "(void)))))"
-"(make-module39.1"
+"(make-module.1"
 " cross-phase-persistent?5_0"
 " unsafe-undefined"
 " unsafe-undefined"
@@ -62858,7 +62769,7 @@ static const char *startup_source =
 " null"
 " #f)))"
 "((temp3_0)(substitute-module-declare-name name_0)))"
-"(declare-module!58.1 #t in-ns1_0 temp2_0 temp3_0))))))"
+"(declare-module!.1 #t in-ns1_0 temp2_0 temp3_0))))))"
 "(define-values"
 "(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)"
 "(make-struct-type-property"
@@ -62983,22 +62894,95 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(1/local-expand)"
-"(let-values(((local-expand5_0)"
+"(let-values(((local-expand_0)"
 "(lambda(s2_0 context3_0 stop-ids4_0 intdefs1_0)"
 "(begin"
-" 'local-expand5"
+" 'local-expand"
 "(let-values(((s_0) s2_0))"
 "(let-values(((context_0) context3_0))"
 "(let-values(((stop-ids_0) stop-ids4_0))"
 "(let-values(((intdefs_0) intdefs1_0))"
 "(let-values()"
+"(let-values(((temp41_0) 'local-expand)"
+"((s42_0) s_0)"
+"((context43_0) context_0)"
+"((stop-ids44_0) stop-ids_0)"
+"((intdefs45_0) intdefs_0))"
+"(do-local-expand.1"
+" #f"
+" #f"
+" #t"
+" unsafe-undefined"
+" #f"
+" #f"
+" #f"
+" temp41_0"
+" s42_0"
+" context43_0"
+" stop-ids44_0"
+" intdefs45_0)))))))))))"
+"(case-lambda"
+"((s_0 context_0 stop-ids_0)(begin 'local-expand(local-expand_0 s_0 context_0 stop-ids_0 '())))"
+"((s_0 context_0 stop-ids_0 intdefs1_0)(local-expand_0 s_0 context_0 stop-ids_0 intdefs1_0)))))"
+"(define-values"
+"(1/local-expand/capture-lifts)"
+"(let-values(((local-expand/capture-lifts_0)"
+"(lambda(s7_0 context8_0 stop-ids9_0 intdefs5_0 lift-key6_0)"
+"(begin"
+" 'local-expand/capture-lifts"
+"(let-values(((s_0) s7_0))"
+"(let-values(((context_0) context8_0))"
+"(let-values(((stop-ids_0) stop-ids9_0))"
+"(let-values(((intdefs_0) intdefs5_0))"
+"(let-values(((lift-key_0)"
+"(if(eq? lift-key6_0 unsafe-undefined)(generate-lift-key) lift-key6_0)))"
+"(let-values()"
+"(let-values(((temp46_0) 'local-expand)"
+"((s47_0) s_0)"
+"((context48_0) context_0)"
+"((stop-ids49_0) stop-ids_0)"
+"((intdefs50_0) intdefs_0)"
+"((temp51_0) #t)"
+"((lift-key52_0) lift-key_0))"
+"(do-local-expand.1"
+" #f"
+" temp51_0"
+" #t"
+" lift-key52_0"
+" #f"
+" #f"
+" #f"
+" temp46_0"
+" s47_0"
+" context48_0"
+" stop-ids49_0"
+" intdefs50_0))))))))))))"
+"(case-lambda"
+"((s_0 context_0 stop-ids_0)"
+"(begin 'local-expand/capture-lifts(local-expand/capture-lifts_0 s_0 context_0 stop-ids_0 '() unsafe-undefined)))"
+"((s_0 context_0 stop-ids_0 intdefs_0 lift-key6_0)"
+"(local-expand/capture-lifts_0 s_0 context_0 stop-ids_0 intdefs_0 lift-key6_0))"
+"((s_0 context_0 stop-ids_0 intdefs5_0)"
+"(local-expand/capture-lifts_0 s_0 context_0 stop-ids_0 intdefs5_0 unsafe-undefined)))))"
+"(define-values"
+"(1/local-transformer-expand)"
+"(let-values(((local-transformer-expand_0)"
+"(lambda(s11_0 context12_0 stop-ids13_0 intdefs10_0)"
+"(begin"
+" 'local-transformer-expand"
+"(let-values(((s_0) s11_0))"
+"(let-values(((context_0) context12_0))"
+"(let-values(((stop-ids_0) stop-ids13_0))"
+"(let-values(((intdefs_0) intdefs10_0))"
+"(let-values()"
 "(let-values(((temp53_0) 'local-expand)"
 "((s54_0) s_0)"
 "((context55_0) context_0)"
 "((stop-ids56_0) stop-ids_0)"
-"((intdefs57_0) intdefs_0))"
-"(do-local-expand50.1"
-" #f"
+"((intdefs57_0) intdefs_0)"
+"((temp58_0) #t))"
+"(do-local-expand.1"
+" temp58_0"
 " #f"
 " #t"
 " unsafe-undefined"
@@ -63011,160 +62995,85 @@ static const char *startup_source =
 " stop-ids56_0"
 " intdefs57_0)))))))))))"
 "(case-lambda"
-"((s_0 context_0 stop-ids_0)(begin 'local-expand(local-expand5_0 s_0 context_0 stop-ids_0 '())))"
-"((s_0 context_0 stop-ids_0 intdefs1_0)(local-expand5_0 s_0 context_0 stop-ids_0 intdefs1_0)))))"
-"(define-values"
-"(1/local-expand/capture-lifts)"
-"(let-values(((local-expand/capture-lifts12_0)"
-"(lambda(s9_0 context10_0 stop-ids11_0 intdefs7_0 lift-key8_0)"
-"(begin"
-" 'local-expand/capture-lifts12"
-"(let-values(((s_0) s9_0))"
-"(let-values(((context_0) context10_0))"
-"(let-values(((stop-ids_0) stop-ids11_0))"
-"(let-values(((intdefs_0) intdefs7_0))"
-"(let-values(((lift-key_0)"
-"(if(eq? lift-key8_0 unsafe-undefined)(generate-lift-key) lift-key8_0)))"
-"(let-values()"
-"(let-values(((temp58_0) 'local-expand)"
-"((s59_0) s_0)"
-"((context60_0) context_0)"
-"((stop-ids61_0) stop-ids_0)"
-"((intdefs62_0) intdefs_0)"
-"((temp63_0) #t)"
-"((lift-key64_0) lift-key_0))"
-"(do-local-expand50.1"
-" #f"
-" temp63_0"
-" #t"
-" lift-key64_0"
-" #f"
-" #f"
-" #f"
-" temp58_0"
-" s59_0"
-" context60_0"
-" stop-ids61_0"
-" intdefs62_0))))))))))))"
-"(case-lambda"
 "((s_0 context_0 stop-ids_0)"
-"(begin"
-" 'local-expand/capture-lifts"
-"(local-expand/capture-lifts12_0 s_0 context_0 stop-ids_0 '() unsafe-undefined)))"
-"((s_0 context_0 stop-ids_0 intdefs_0 lift-key8_0)"
-"(local-expand/capture-lifts12_0 s_0 context_0 stop-ids_0 intdefs_0 lift-key8_0))"
-"((s_0 context_0 stop-ids_0 intdefs7_0)"
-"(local-expand/capture-lifts12_0 s_0 context_0 stop-ids_0 intdefs7_0 unsafe-undefined)))))"
-"(define-values"
-"(1/local-transformer-expand)"
-"(let-values(((local-transformer-expand18_0)"
-"(lambda(s15_0 context16_0 stop-ids17_0 intdefs14_0)"
-"(begin"
-" 'local-transformer-expand18"
-"(let-values(((s_0) s15_0))"
-"(let-values(((context_0) context16_0))"
-"(let-values(((stop-ids_0) stop-ids17_0))"
-"(let-values(((intdefs_0) intdefs14_0))"
-"(let-values()"
-"(let-values(((temp65_0) 'local-expand)"
-"((s66_0) s_0)"
-"((context67_0) context_0)"
-"((stop-ids68_0) stop-ids_0)"
-"((intdefs69_0) intdefs_0)"
-"((temp70_0) #t))"
-"(do-local-expand50.1"
-" temp70_0"
-" #f"
-" #t"
-" unsafe-undefined"
-" #f"
-" #f"
-" #f"
-" temp65_0"
-" s66_0"
-" context67_0"
-" stop-ids68_0"
-" intdefs69_0)))))))))))"
-"(case-lambda"
-"((s_0 context_0 stop-ids_0)"
-"(begin 'local-transformer-expand(local-transformer-expand18_0 s_0 context_0 stop-ids_0 '())))"
-"((s_0 context_0 stop-ids_0 intdefs14_0)(local-transformer-expand18_0 s_0 context_0 stop-ids_0 intdefs14_0)))))"
+"(begin 'local-transformer-expand(local-transformer-expand_0 s_0 context_0 stop-ids_0 '())))"
+"((s_0 context_0 stop-ids_0 intdefs10_0)(local-transformer-expand_0 s_0 context_0 stop-ids_0 intdefs10_0)))))"
 "(define-values"
 "(1/local-transformer-expand/capture-lifts)"
-"(let-values(((local-transformer-expand/capture-lifts25_0)"
-"(lambda(s22_0 context23_0 stop-ids24_0 intdefs20_0 lift-key21_0)"
+"(let-values(((local-transformer-expand/capture-lifts_0)"
+"(lambda(s16_0 context17_0 stop-ids18_0 intdefs14_0 lift-key15_0)"
 "(begin"
-" 'local-transformer-expand/capture-lifts25"
-"(let-values(((s_0) s22_0))"
-"(let-values(((context_0) context23_0))"
-"(let-values(((stop-ids_0) stop-ids24_0))"
-"(let-values(((intdefs_0) intdefs20_0))"
+" 'local-transformer-expand/capture-lifts"
+"(let-values(((s_0) s16_0))"
+"(let-values(((context_0) context17_0))"
+"(let-values(((stop-ids_0) stop-ids18_0))"
+"(let-values(((intdefs_0) intdefs14_0))"
 "(let-values(((lift-key_0)"
-"(if(eq? lift-key21_0 unsafe-undefined)(generate-lift-key) lift-key21_0)))"
+"(if(eq? lift-key15_0 unsafe-undefined)(generate-lift-key) lift-key15_0)))"
 "(let-values()"
-"(let-values(((temp71_0) 'local-expand)"
-"((s72_0) s_0)"
-"((context73_0) context_0)"
-"((stop-ids74_0) stop-ids_0)"
-"((intdefs75_0) intdefs_0)"
-"((temp76_0) #t)"
-"((temp77_0) #t)"
-"((lift-key78_0) lift-key_0))"
-"(do-local-expand50.1"
-" temp76_0"
-" temp77_0"
+"(let-values(((temp59_0) 'local-expand)"
+"((s60_0) s_0)"
+"((context61_0) context_0)"
+"((stop-ids62_0) stop-ids_0)"
+"((intdefs63_0) intdefs_0)"
+"((temp64_0) #t)"
+"((temp65_0) #t)"
+"((lift-key66_0) lift-key_0))"
+"(do-local-expand.1"
+" temp64_0"
+" temp65_0"
 " #t"
-" lift-key78_0"
+" lift-key66_0"
 " #f"
 " #f"
 " #f"
-" temp71_0"
-" s72_0"
-" context73_0"
-" stop-ids74_0"
-" intdefs75_0))))))))))))"
+" temp59_0"
+" s60_0"
+" context61_0"
+" stop-ids62_0"
+" intdefs63_0))))))))))))"
 "(case-lambda"
 "((s_0 context_0 stop-ids_0)"
 "(begin"
 " 'local-transformer-expand/capture-lifts"
-"(local-transformer-expand/capture-lifts25_0 s_0 context_0 stop-ids_0 '() unsafe-undefined)))"
-"((s_0 context_0 stop-ids_0 intdefs_0 lift-key21_0)"
-"(local-transformer-expand/capture-lifts25_0 s_0 context_0 stop-ids_0 intdefs_0 lift-key21_0))"
-"((s_0 context_0 stop-ids_0 intdefs20_0)"
-"(local-transformer-expand/capture-lifts25_0 s_0 context_0 stop-ids_0 intdefs20_0 unsafe-undefined)))))"
+"(local-transformer-expand/capture-lifts_0 s_0 context_0 stop-ids_0 '() unsafe-undefined)))"
+"((s_0 context_0 stop-ids_0 intdefs_0 lift-key15_0)"
+"(local-transformer-expand/capture-lifts_0 s_0 context_0 stop-ids_0 intdefs_0 lift-key15_0))"
+"((s_0 context_0 stop-ids_0 intdefs14_0)"
+"(local-transformer-expand/capture-lifts_0 s_0 context_0 stop-ids_0 intdefs14_0 unsafe-undefined)))))"
 "(define-values"
 "(1/syntax-local-expand-expression)"
-"(let-values(((syntax-local-expand-expression29_0)"
-"(lambda(s28_0 opaque-only?27_0)"
+"(let-values(((syntax-local-expand-expression_0)"
+"(lambda(s20_0 opaque-only?19_0)"
 "(begin"
-" 'syntax-local-expand-expression29"
-"(let-values(((s_0) s28_0))"
-"(let-values(((opaque-only?_0) opaque-only?27_0))"
+" 'syntax-local-expand-expression"
+"(let-values(((s_0) s20_0))"
+"(let-values(((opaque-only?_0) opaque-only?19_0))"
 "(let-values()"
 "(let-values(((exp-s_0)"
-"(let-values(((temp79_0) 'syntax-local-expand-expression)"
-"((s80_0) s_0)"
-"((temp81_0) 'expression)"
-"((null82_0) null)"
-"((temp83_0) #f)"
-"((opaque-only?84_0) opaque-only?_0)"
-"((temp85_0) #t)"
-"((temp86_0) #t)"
-"((temp87_0) #f))"
-"(do-local-expand50.1"
+"(let-values(((temp67_0) 'syntax-local-expand-expression)"
+"((s68_0) s_0)"
+"((temp69_0) 'expression)"
+"((null70_0) null)"
+"((temp71_0) #f)"
+"((opaque-only?72_0) opaque-only?_0)"
+"((temp73_0) #t)"
+"((temp74_0) #t)"
+"((temp75_0) #f))"
+"(do-local-expand.1"
 " #f"
 " #f"
-" temp87_0"
+" temp75_0"
 " unsafe-undefined"
-" temp85_0"
-" opaque-only?84_0"
-" temp86_0"
-" temp79_0"
-" s80_0"
-" temp81_0"
-" null82_0"
-" temp83_0))))"
-"(let-values(((ctx_0)(let-values()(get-current-expand-context18.1 #f 'unexpected))))"
+" temp73_0"
+" opaque-only?72_0"
+" temp74_0"
+" temp67_0"
+" s68_0"
+" temp69_0"
+" null70_0"
+" temp71_0))))"
+"(let-values(((ctx_0)(let-values()(get-current-expand-context.1 #f 'unexpected))))"
 "(let-values(((ae_0)"
 "(flip-introduction-scopes"
 "(datum->syntax$1"
@@ -63184,42 +63093,42 @@ static const char *startup_source =
 "(void)))"
 "(values(if(not opaque-only?_0) exp-s_0 #f) ae_0))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'syntax-local-expand-expression(syntax-local-expand-expression29_0 s_0 #f)))"
-"((s_0 opaque-only?27_0)(syntax-local-expand-expression29_0 s_0 opaque-only?27_0)))))"
+"((s_0)(begin 'syntax-local-expand-expression(syntax-local-expand-expression_0 s_0 #f)))"
+"((s_0 opaque-only?19_0)(syntax-local-expand-expression_0 s_0 opaque-only?19_0)))))"
 "(define-values"
-"(do-local-expand50.1)"
-"(lambda(as-transformer?32_0"
-" capture-lifts?31_0"
-" keep-#%expression?34_0"
-" lift-key35_0"
-" skip-log-exit?37_0"
-" to-parsed-ok?33_0"
-" track-to-be-defined?36_0"
-" who46_0"
-" s-or-s-exp47_0"
-" context48_0"
-" stop-ids49_0"
-" intdefs45_0)"
+"(do-local-expand.1)"
+"(lambda(as-transformer?22_0"
+" capture-lifts?21_0"
+" keep-#%expression?24_0"
+" lift-key25_0"
+" skip-log-exit?27_0"
+" to-parsed-ok?23_0"
+" track-to-be-defined?26_0"
+" who36_0"
+" s-or-s-exp37_0"
+" context38_0"
+" stop-ids39_0"
+" intdefs35_0)"
 "(begin"
-" 'do-local-expand50"
-"(let-values(((who_0) who46_0))"
-"(let-values(((s-or-s-exp_0) s-or-s-exp47_0))"
-"(let-values(((context_0) context48_0))"
-"(let-values(((stop-ids_0) stop-ids49_0))"
-"(let-values(((intdefs_0) intdefs45_0))"
-"(let-values(((capture-lifts?_0) capture-lifts?31_0))"
-"(let-values(((as-transformer?_0) as-transformer?32_0))"
-"(let-values(((to-parsed-ok?_0) to-parsed-ok?33_0))"
-"(let-values(((keep-#%expression?_0) keep-#%expression?34_0))"
+" 'do-local-expand"
+"(let-values(((who_0) who36_0))"
+"(let-values(((s-or-s-exp_0) s-or-s-exp37_0))"
+"(let-values(((context_0) context38_0))"
+"(let-values(((stop-ids_0) stop-ids39_0))"
+"(let-values(((intdefs_0) intdefs35_0))"
+"(let-values(((capture-lifts?_0) capture-lifts?21_0))"
+"(let-values(((as-transformer?_0) as-transformer?22_0))"
+"(let-values(((to-parsed-ok?_0) to-parsed-ok?23_0))"
+"(let-values(((keep-#%expression?_0) keep-#%expression?24_0))"
 "(let-values(((lift-key_0)"
-"(if(eq? lift-key35_0 unsafe-undefined)"
+"(if(eq? lift-key25_0 unsafe-undefined)"
 "(if(let-values(((or-part_0) capture-lifts?_0))"
 "(if or-part_0 or-part_0 as-transformer?_0))"
 "(generate-lift-key)"
 " #f)"
-" lift-key35_0)))"
-"(let-values(((track-to-be-defined?_0) track-to-be-defined?36_0))"
-"(let-values(((skip-log-exit?_0) skip-log-exit?37_0))"
+" lift-key25_0)))"
+"(let-values(((track-to-be-defined?_0) track-to-be-defined?26_0))"
+"(let-values(((skip-log-exit?_0) skip-log-exit?27_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?"
@@ -63273,20 +63182,20 @@ static const char *startup_source =
 " intdefs_0)))"
 "(values))))"
 "(let-values(((ctx_0)"
-"(let-values(((who88_0) who_0))"
-"(get-current-expand-context18.1 #f who88_0))))"
+"(let-values(((who76_0) who_0))"
+"(get-current-expand-context.1 #f who76_0))))"
 "(let-values(((phase_0)"
 "(if as-transformer?_0"
 "(add1(expand-context-phase ctx_0))"
 "(expand-context-phase ctx_0))))"
 "(let-values(((local-ctx_0)"
-"(let-values(((ctx89_0) ctx_0)"
-"((context90_0) context_0)"
-"((phase91_0) phase_0)"
-"((intdefs92_0) intdefs_0)"
-"((stop-ids93_0) stop-ids_0)"
-"((to-parsed-ok?94_0) to-parsed-ok?_0)"
-"((temp95_0)"
+"(let-values(((ctx77_0) ctx_0)"
+"((context78_0) context_0)"
+"((phase79_0) phase_0)"
+"((intdefs80_0) intdefs_0)"
+"((stop-ids81_0) stop-ids_0)"
+"((to-parsed-ok?82_0) to-parsed-ok?_0)"
+"((temp83_0)"
 "(let-values(((or-part_0)"
 " keep-#%expression?_0))"
 "(if or-part_0"
@@ -63296,17 +63205,17 @@ static const char *startup_source =
 "(expand-context-keep-#%expression?"
 " ctx_0)"
 " #f))))"
-"((track-to-be-defined?96_0)"
+"((track-to-be-defined?84_0)"
 " track-to-be-defined?_0))"
-"(make-local-expand-context42.1"
-" context90_0"
-" intdefs92_0"
-" temp95_0"
-" phase91_0"
-" stop-ids93_0"
-" to-parsed-ok?94_0"
-" track-to-be-defined?96_0"
-" ctx89_0))))"
+"(make-local-expand-context.1"
+" context78_0"
+" intdefs80_0"
+" temp83_0"
+" phase79_0"
+" stop-ids81_0"
+" to-parsed-ok?82_0"
+" track-to-be-defined?84_0"
+" ctx77_0))))"
 "(let-values((()"
 "(begin"
 "(namespace-visit-available-modules!"
@@ -63328,16 +63237,16 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((input-s_0)"
-"(let-values(((temp97_0)"
+"(let-values(((temp85_0)"
 "(flip-introduction-scopes"
 " s_0"
 " ctx_0))"
-"((intdefs98_0) intdefs_0))"
-"(add-intdef-scopes24.1"
+"((intdefs86_0) intdefs_0))"
+"(add-intdef-scopes.1"
 " unsafe-undefined"
 " #f"
-" temp97_0"
-" intdefs98_0))))"
+" temp85_0"
+" intdefs86_0))))"
 "(let-values((()"
 "(begin"
 "(if as-transformer?_0"
@@ -63389,79 +63298,78 @@ static const char *startup_source =
 " capture-lifts?_0"
 " #f)"
 "(let-values()"
-"(let-values(((input-s99_0) input-s_0)"
-"((local-ctx100_0)"
+"(let-values(((input-s87_0) input-s_0)"
+"((local-ctx88_0)"
 " local-ctx_0)"
-"((context101_0)"
-" context_0)"
-"((temp102_0) #f)"
-"((temp103_0) #t)"
-"((lift-key104_0)"
+"((context89_0) context_0)"
+"((temp90_0) #f)"
+"((temp91_0) #t)"
+"((lift-key92_0)"
 " lift-key_0)"
-"((temp105_0) #t)"
-"((temp106_0) #t))"
-"(expand-transformer92.1"
-" temp105_0"
-" temp103_0"
-" context101_0"
-" temp102_0"
-" temp106_0"
-" lift-key104_0"
-" input-s99_0"
-" local-ctx100_0)))"
+"((temp93_0) #t)"
+"((temp94_0) #t))"
+"(expand-transformer.1"
+" temp93_0"
+" temp91_0"
+" context89_0"
+" temp90_0"
+" temp94_0"
+" lift-key92_0"
+" input-s87_0"
+" local-ctx88_0)))"
 "(if as-transformer?_0"
 "(let-values()"
+"(let-values(((input-s95_0)"
+" input-s_0)"
+"((local-ctx96_0)"
+" local-ctx_0)"
+"((context97_0)"
+" context_0)"
+"((temp98_0) #f)"
+"((temp99_0)"
+"(eq?"
+" 'top-level"
+" context_0))"
+"((lift-key100_0)"
+" lift-key_0)"
+"((temp101_0) #t))"
+"(expand-transformer.1"
+" #f"
+" temp99_0"
+" context97_0"
+" temp98_0"
+" temp101_0"
+" lift-key100_0"
+" input-s95_0"
+" local-ctx96_0)))"
+"(if capture-lifts?_0"
+"(let-values()"
+"(let-values(((input-s102_0)"
+" input-s_0)"
+"((local-ctx103_0)"
+" local-ctx_0)"
+"((temp104_0) #t)"
+"((lift-key105_0)"
+" lift-key_0)"
+"((temp106_0) #t))"
+"(expand/capture-lifts.1"
+" temp106_0"
+" temp104_0"
+" #f"
+" lift-key105_0"
+" input-s102_0"
+" local-ctx103_0)))"
+"(let-values()"
 "(let-values(((input-s107_0)"
 " input-s_0)"
 "((local-ctx108_0)"
-" local-ctx_0)"
-"((context109_0)"
-" context_0)"
-"((temp110_0) #f)"
-"((temp111_0)"
-"(eq?"
-" 'top-level"
-" context_0))"
-"((lift-key112_0)"
-" lift-key_0)"
-"((temp113_0) #t))"
-"(expand-transformer92.1"
-" #f"
-" temp111_0"
-" context109_0"
-" temp110_0"
-" temp113_0"
-" lift-key112_0"
-" input-s107_0"
-" local-ctx108_0)))"
-"(if capture-lifts?_0"
-"(let-values()"
-"(let-values(((input-s114_0)"
-" input-s_0)"
-"((local-ctx115_0)"
-" local-ctx_0)"
-"((temp116_0) #t)"
-"((lift-key117_0)"
-" lift-key_0)"
-"((temp118_0) #t))"
-"(expand/capture-lifts75.1"
-" temp118_0"
-" temp116_0"
-" #f"
-" lift-key117_0"
-" input-s114_0"
-" local-ctx115_0)))"
-"(let-values()"
-"(let-values(((input-s119_0)"
-" input-s_0)"
-"((local-ctx120_0)"
 " local-ctx_0))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" input-s119_0"
-" local-ctx120_0))))))))"
+" input-s107_0"
+" local-ctx108_0))))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)"
@@ -63513,10 +63421,10 @@ static const char *startup_source =
 "(syntax-tainted?$1 s_0)))))))"
 "(define-values"
 "(1/syntax-arm)"
-"(let-values(((syntax-arm4_0)"
+"(let-values(((syntax-arm_0)"
 "(lambda(s3_0 maybe-insp1_0 use-mode?2_0)"
 "(begin"
-" 'syntax-arm4"
+" 'syntax-arm"
 "(let-values(((s_0) s3_0))"
 "(let-values(((maybe-insp_0) maybe-insp1_0))"
 "(let-values(((use-mode?_0) use-mode?2_0))"
@@ -63549,9 +63457,9 @@ static const char *startup_source =
 "(1/syntax-local-phase-level)))"
 "(let-values()(syntax-arm$1 s_0 insp_0))))))))))))))))"
 "(case-lambda"
-"((s_0)(begin 'syntax-arm(syntax-arm4_0 s_0 #f #f)))"
-"((s_0 maybe-insp_0 use-mode?2_0)(syntax-arm4_0 s_0 maybe-insp_0 use-mode?2_0))"
-"((s_0 maybe-insp1_0)(syntax-arm4_0 s_0 maybe-insp1_0 #f)))))"
+"((s_0)(begin 'syntax-arm(syntax-arm_0 s_0 #f #f)))"
+"((s_0 maybe-insp_0 use-mode?2_0)(syntax-arm_0 s_0 maybe-insp_0 use-mode?2_0))"
+"((s_0 maybe-insp1_0)(syntax-arm_0 s_0 maybe-insp1_0 #f)))))"
 "(define-values"
 "(1/syntax-disarm)"
 "(lambda(s_0 maybe-insp_0)"
@@ -63575,13 +63483,13 @@ static const char *startup_source =
 "(let-values(((insp_0)(inspector-for-taint maybe-insp_0)))(syntax-disarm$1 s_0 insp_0)))))))))"
 "(define-values"
 "(1/syntax-rearm)"
-"(let-values(((syntax-rearm9_0)"
-"(lambda(s7_0 from-s8_0 use-mode?6_0)"
+"(let-values(((syntax-rearm_0)"
+"(lambda(s5_0 from-s6_0 use-mode?4_0)"
 "(begin"
-" 'syntax-rearm9"
-"(let-values(((s_0) s7_0))"
-"(let-values(((from-s_0) from-s8_0))"
-"(let-values(((use-mode?_0) use-mode?6_0))"
+" 'syntax-rearm"
+"(let-values(((s_0) s5_0))"
+"(let-values(((from-s_0) from-s6_0))"
+"(let-values(((use-mode?_0) use-mode?4_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -63600,8 +63508,8 @@ static const char *startup_source =
 "(1/syntax-local-phase-level)))"
 "(let-values()(syntax-rearm$1 s_0 from-s_0))))))))))))))"
 "(case-lambda"
-"((s_0 from-s_0)(begin 'syntax-rearm(syntax-rearm9_0 s_0 from-s_0 #f)))"
-"((s_0 from-s_0 use-mode?6_0)(syntax-rearm9_0 s_0 from-s_0 use-mode?6_0)))))"
+"((s_0 from-s_0)(begin 'syntax-rearm(syntax-rearm_0 s_0 from-s_0 #f)))"
+"((s_0 from-s_0 use-mode?4_0)(syntax-rearm_0 s_0 from-s_0 use-mode?4_0)))))"
 "(define-values"
 "(1/syntax-taint)"
 "(lambda(s_0)"
@@ -63633,7 +63541,7 @@ static const char *startup_source =
 "(void)"
 "              (let-values () (raise-argument-error 'variable-reference->empty-namespace \"variable-reference?\" vr_0)))"
 "(let-values(((temp2_0)(1/variable-reference->namespace vr_0)))"
-"(new-namespace8.1 #t unsafe-undefined temp2_0))))))))"
+"(new-namespace.1 #t unsafe-undefined temp2_0))))))))"
 "(define-values"
 "(1/variable-reference->namespace)"
 "(lambda(vr_0)"
@@ -63661,7 +63569,7 @@ static const char *startup_source =
 " ns_0)"
 "(let-values()"
 "(let-values(((ns4_0) ns_0)((mpi5_0) mpi_0)((temp6_0)(namespace-0-phase ns_0)))"
-"(namespace-module-make-available!112.1 unsafe-undefined ns4_0 mpi5_0 temp6_0)))))"
+"(namespace-module-make-available!.1 unsafe-undefined ns4_0 mpi5_0 temp6_0)))))"
 "(void))"
 " ns_0)))))))))"
 "(define-values"
@@ -64063,19 +63971,19 @@ static const char *startup_source =
 "(add-core-primitive! 'read-syntax 1/read-syntax)"
 "(add-core-primitive! 'read-syntax/recursive 1/read-syntax/recursive)))"
 "(define-values"
-"(declare-kernel-module!6.1)"
+"(declare-kernel-module!.1)"
 "(lambda(main-ids1_0 read-ids2_0 ns5_0)"
 "(begin"
-" 'declare-kernel-module!6"
+" 'declare-kernel-module!"
 "(let-values(((ns_0) ns5_0))"
 "(let-values(((main-ids_0) main-ids1_0))"
 "(let-values(((read-ids_0) read-ids2_0))"
 "(let-values()"
 "(begin"
-"(let-values(((temp51_0) '#%kernel)"
-"((temp52_0) '#%runtime)"
-"((temp53_0)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))"
-"((temp54_0)"
+"(let-values(((temp43_0) '#%kernel)"
+"((temp44_0) '#%runtime)"
+"((temp45_0)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))"
+"((temp46_0)"
 "(hasheq"
 " 'variable-reference?"
 " 1/variable-reference?"
@@ -64083,23 +63991,23 @@ static const char *startup_source =
 " 1/variable-reference-constant?"
 " 'variable-reference-from-unsafe?"
 " 1/variable-reference-from-unsafe?))"
-"((ns55_0) ns_0))"
-"(copy-runtime-module!24.1 unsafe-undefined temp54_0 ns55_0 #t #f temp53_0 temp52_0 temp51_0))"
-"(let-values(((temp56_0) '#%kernel)((temp57_0) '(#%core #%runtime #%main #%read))((ns58_0) ns_0))"
-"(declare-reexporting-module!48.1 ns58_0 #t temp56_0 temp57_0))))))))))"
+"((ns47_0) ns_0))"
+"(copy-runtime-module!.1 unsafe-undefined temp46_0 ns47_0 #t #f temp45_0 temp44_0 temp43_0))"
+"(let-values(((temp48_0) '#%kernel)((temp49_0) '(#%core #%runtime #%main #%read))((ns50_0) ns_0))"
+"(declare-reexporting-module!.1 ns50_0 #t temp48_0 temp49_0))))))))))"
 "(define-values"
-"(copy-runtime-module!24.1)"
-"(lambda(alts12_0 extras13_0 namespace10_0 primitive?14_0 protected?15_0 skip11_0 to9_0 name23_0)"
+"(copy-runtime-module!.1)"
+"(lambda(alts10_0 extras11_0 namespace8_0 primitive?12_0 protected?13_0 skip9_0 to7_0 name21_0)"
 "(begin"
-" 'copy-runtime-module!24"
-"(let-values(((name_0) name23_0))"
-"(let-values(((to-name_0)(if(eq? to9_0 unsafe-undefined) name_0 to9_0)))"
-"(let-values(((ns_0) namespace10_0))"
-"(let-values(((skip-syms_0)(if(eq? skip11_0 unsafe-undefined)(seteq) skip11_0)))"
-"(let-values(((alts_0)(if(eq? alts12_0 unsafe-undefined) '#hasheq() alts12_0)))"
-"(let-values(((extras_0)(if(eq? extras13_0 unsafe-undefined) '#hasheq() extras13_0)))"
-"(let-values(((primitive?_0) primitive?14_0))"
-"(let-values(((protected?_0) protected?15_0))"
+" 'copy-runtime-module!"
+"(let-values(((name_0) name21_0))"
+"(let-values(((to-name_0)(if(eq? to7_0 unsafe-undefined) name_0 to7_0)))"
+"(let-values(((ns_0) namespace8_0))"
+"(let-values(((skip-syms_0)(if(eq? skip9_0 unsafe-undefined)(seteq) skip9_0)))"
+"(let-values(((alts_0)(if(eq? alts10_0 unsafe-undefined) '#hasheq() alts10_0)))"
+"(let-values(((extras_0)(if(eq? extras11_0 unsafe-undefined) '#hasheq() extras11_0)))"
+"(let-values(((primitive?_0) primitive?12_0))"
+"(let-values(((protected?_0) protected?13_0))"
 "(let-values()"
 "(let-values(((prims_0)(1/primitive-table name_0)))"
 "(let-values((()"
@@ -64220,41 +64128,41 @@ static const char *startup_source =
 " for-loop_0)"
 " ht_0"
 "(hash-iterate-first ht_1))))))"
-"(let-values(((to-name59_0) to-name_0)"
-"((ht+extras60_0) ht+extras_0)"
-"((ns61_0) ns_0)"
-"((primitive?62_0) primitive?_0)"
-"((protected?63_0) protected?_0))"
-"(declare-hash-based-module!39.1"
-" ns61_0"
-" primitive?62_0"
+"(let-values(((to-name51_0) to-name_0)"
+"((ht+extras52_0) ht+extras_0)"
+"((ns53_0) ns_0)"
+"((primitive?54_0) primitive?_0)"
+"((protected?55_0) protected?_0))"
+"(declare-hash-based-module!.1"
+" ns53_0"
+" primitive?54_0"
 " null"
-" protected?63_0"
+" protected?55_0"
 " #f"
-" to-name59_0"
-" ht+extras60_0)))))))))))))))))))"
+" to-name51_0"
+" ht+extras52_0)))))))))))))))))))"
 "(define-values"
-"(declare-hash-based-module!39.1)"
-"(lambda(namespace27_0 primitive?28_0 protected30_0 protected?29_0 register-builtin?31_0 name37_0 ht38_0)"
+"(declare-hash-based-module!.1)"
+"(lambda(namespace23_0 primitive?24_0 protected26_0 protected?25_0 register-builtin?27_0 name33_0 ht34_0)"
 "(begin"
-" 'declare-hash-based-module!39"
-"(let-values(((name_0) name37_0))"
-"(let-values(((ht_0) ht38_0))"
-"(let-values(((ns_0) namespace27_0))"
-"(let-values(((primitive?_0) primitive?28_0))"
-"(let-values(((protected?_0) protected?29_0))"
-"(let-values(((protected-syms_0) protected30_0))"
-"(let-values(((register-builtin?_0) register-builtin?31_0))"
+" 'declare-hash-based-module!"
+"(let-values(((name_0) name33_0))"
+"(let-values(((ht_0) ht34_0))"
+"(let-values(((ns_0) namespace23_0))"
+"(let-values(((primitive?_0) primitive?24_0))"
+"(let-values(((protected?_0) protected?25_0))"
+"(let-values(((protected-syms_0) protected26_0))"
+"(let-values(((register-builtin?_0) register-builtin?27_0))"
 "(let-values()"
 "(let-values(((mpi_0)(1/module-path-index-join(list 'quote name_0) #f)))"
-"(let-values(((ns64_0) ns_0)"
-"((temp65_0)"
-"(let-values(((temp67_0) #t)"
-"((primitive?68_0) primitive?_0)"
-"((temp69_0) #t)"
-"((temp70_0)(not protected?_0))"
-"((mpi71_0) mpi_0)"
-"((temp72_0)"
+"(let-values(((ns56_0) ns_0)"
+"((temp57_0)"
+"(let-values(((temp59_0) #t)"
+"((primitive?60_0) primitive?_0)"
+"((temp61_0) #t)"
+"((temp62_0)(not protected?_0))"
+"((mpi63_0) mpi_0)"
+"((temp64_0)"
 "(hasheqv"
 " 0"
 "(let-values(((ht_1) ht_0))"
@@ -64288,13 +64196,13 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((binding_0)"
-"(let-values(((mpi74_0)"
+"(let-values(((mpi66_0)"
 " mpi_0)"
-"((temp75_0)"
+"((temp67_0)"
 " 0)"
-"((sym76_0)"
+"((sym68_0)"
 " sym_0))"
-"(make-module-binding20.1"
+"(make-module-binding.1"
 " #f"
 " null"
 " #f"
@@ -64303,9 +64211,9 @@ static const char *startup_source =
 " unsafe-undefined"
 " 0"
 " unsafe-undefined"
-" mpi74_0"
-" temp75_0"
-" sym76_0))))"
+" mpi66_0"
+" temp67_0"
+" sym68_0))))"
 "(values"
 " sym_0"
 "(if(let-values(((or-part_0)"
@@ -64335,7 +64243,7 @@ static const char *startup_source =
 " for-loop_0)"
 " '#hash()"
 "(hash-iterate-first ht_1))))))"
-"((temp73_0)"
+"((temp65_0)"
 "(lambda(data-box_0"
 " ns_1"
 " phase-shift_0"
@@ -64386,36 +64294,36 @@ static const char *startup_source =
 "(hash-iterate-first ht_1))))"
 "(void)))"
 "(void)))))"
-"(make-module39.1"
-" temp67_0"
+"(make-module.1"
+" temp59_0"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp73_0"
+" temp65_0"
 " #f"
 " 0"
 " 0"
-" temp70_0"
+" temp62_0"
 " unsafe-undefined"
-" temp69_0"
+" temp61_0"
 " unsafe-undefined"
-" primitive?68_0"
-" temp72_0"
+" primitive?60_0"
+" temp64_0"
 " null"
-" mpi71_0"
+" mpi63_0"
 " #f"
 " null"
 " #f)))"
-"((temp66_0)(1/module-path-index-resolve mpi_0)))"
-"(declare-module!58.1 #t ns64_0 temp65_0 temp66_0))))))))))))))"
+"((temp58_0)(1/module-path-index-resolve mpi_0)))"
+"(declare-module!.1 #t ns56_0 temp57_0 temp58_0))))))))))))))"
 "(define-values"
-"(declare-reexporting-module!48.1)"
-"(lambda(namespace43_0 reexport?42_0 name46_0 require-names47_0)"
+"(declare-reexporting-module!.1)"
+"(lambda(namespace37_0 reexport?36_0 name40_0 require-names41_0)"
 "(begin"
-" 'declare-reexporting-module!48"
-"(let-values(((name_0) name46_0))"
-"(let-values(((require-names_0) require-names47_0))"
-"(let-values(((reexport?_0) reexport?42_0))"
-"(let-values(((ns_0) namespace43_0))"
+" 'declare-reexporting-module!"
+"(let-values(((name_0) name40_0))"
+"(let-values(((require-names_0) require-names41_0))"
+"(let-values(((reexport?_0) reexport?36_0))"
+"(let-values(((ns_0) namespace37_0))"
 "(let-values()"
 "(let-values(((mpi_0)(1/module-path-index-join(list 'quote name_0) #f)))"
 "(let-values(((require-mpis_0)"
@@ -64452,13 +64360,13 @@ static const char *startup_source =
 " for-loop_0)"
 " null"
 " lst_0))))))"
-"(let-values(((ns77_0) ns_0)"
-"((temp78_0)"
-"(let-values(((temp80_0) #t)"
-"((temp81_0) #t)"
-"((mpi82_0) mpi_0)"
-"((temp83_0)(list(cons 0 require-mpis_0)))"
-"((temp84_0)"
+"(let-values(((ns69_0) ns_0)"
+"((temp70_0)"
+"(let-values(((temp72_0) #t)"
+"((temp73_0) #t)"
+"((mpi74_0) mpi_0)"
+"((temp75_0)(list(cons 0 require-mpis_0)))"
+"((temp76_0)"
 "(if reexport?_0"
 "(hasheqv"
 " 0"
@@ -64558,28 +64466,28 @@ static const char *startup_source =
 " '#hash()"
 " lst_0))))"
 " '#hasheqv()))"
-"((void85_0) void))"
-"(make-module39.1"
-" temp80_0"
+"((void77_0) void))"
+"(make-module.1"
+" temp72_0"
 " unsafe-undefined"
 " unsafe-undefined"
-" void85_0"
+" void77_0"
 " #f"
 " 0"
 " 0"
 " #f"
 " unsafe-undefined"
-" temp81_0"
+" temp73_0"
 " unsafe-undefined"
 " #f"
-" temp84_0"
-" temp83_0"
-" mpi82_0"
+" temp76_0"
+" temp75_0"
+" mpi74_0"
 " #f"
 " null"
 " #f)))"
-"((temp79_0)(1/module-path-index-resolve mpi_0)))"
-"(declare-module!58.1 #t ns77_0 temp78_0 temp79_0))))))))))))"
+"((temp71_0)(1/module-path-index-resolve mpi_0)))"
+"(declare-module!.1 #t ns69_0 temp70_0 temp71_0))))))))))))"
 "(define-values"
 "(read-primitives)"
 "(hasheq"
@@ -65156,7 +65064,7 @@ static const char *startup_source =
 " args_0))))))))))"
 " loop_0)"
 "(list(void))))))))"
-"(call-with-input-file*61.1 'binary path1_0 temp2_0)))))))))))"
+"(call-with-input-file*.1 'binary path1_0 temp2_0)))))))))))"
 "(define-values(version-bytes)(string->bytes/utf-8(version)))"
 "(define-values(version-length)(bytes-length version-bytes))"
 "(define-values(vm-bytes)(string->bytes/utf-8(symbol->string(system-type 'vm))))"
@@ -65350,7 +65258,7 @@ static const char *startup_source =
 "(let-values(((i_0) #f))"
 "(dynamic-wind"
 "(lambda()"
-"(set! i_0(let-values(((path3_0) path_0)((temp4_0) #t))(open-input-file6.1 temp4_0 'binary path3_0))))"
+"(set! i_0(let-values(((path3_0) path_0)((temp4_0) #t))(open-input-file.1 temp4_0 'binary path3_0))))"
 "(lambda()(proc_0 i_0))"
 "(lambda()(close-input-port i_0)))))))"
 "(define-values(dll-suffix)(system-type 'so-suffix))"
@@ -66387,10 +66295,10 @@ static const char *startup_source =
 "(let-values(((ns_0)(namespace->namespace-at-phase(expand-context-namespace ctx_0) phase_0)))"
 "(namespace-visit-available-modules! ns_0 phase_0))))))"
 "(define-values"
-"(expand-body7.1)"
+"(expand-body.1)"
 "(lambda(source1_0 stratified?2_0 bodys5_0 ctx6_0)"
 "(begin"
-" 'expand-body7"
+" 'expand-body"
 "(let-values(((bodys_0) bodys5_0))"
 "(let-values(((ctx_0) ctx6_0))"
 "(let-values(((s_0) source1_0))"
@@ -66458,40 +66366,40 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context57_0)(list(make-liberal-define-context)))"
-"((name58_0) #f)"
-"((only-immediate?59_0) #t)"
-"((def-ctx-scopes60_0) def-ctx-scopes_0)"
-"((post-expansion61_0)"
+"(let-values(((context51_0)(list(make-liberal-define-context)))"
+"((name52_0) #f)"
+"((only-immediate?53_0) #t)"
+"((def-ctx-scopes54_0) def-ctx-scopes_0)"
+"((post-expansion55_0)"
 "(lambda(s_1)"
 "(begin"
-" 'post-expansion61"
+" 'post-expansion55"
 "(add-scope s_1 inside-sc_0))))"
-"((scopes62_0)"
+"((scopes56_0)"
 "(cons inside-sc_0(expand-context-scopes ctx_0)))"
-"((use-site-scopes63_0)(box null))"
-"((frame-id64_0) frame-id_0)"
-"((reference-records65_0)"
+"((use-site-scopes57_0)(box null))"
+"((frame-id58_0) frame-id_0)"
+"((reference-records59_0)"
 "(cons"
 " frame-id_0"
 "(expand-context-reference-records ctx_0)))"
-"((inner66_0)(root-expand-context/outer-inner v_0)))"
+"((inner60_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner66_0"
-" post-expansion61_0"
-" use-site-scopes63_0"
-" frame-id64_0"
-" context57_0"
+" inner60_0"
+" post-expansion55_0"
+" use-site-scopes57_0"
+" frame-id58_0"
+" context51_0"
 "(expand-context/outer-env the-struct_0)"
-" scopes62_0"
-" def-ctx-scopes60_0"
+" scopes56_0"
+" def-ctx-scopes54_0"
 "(expand-context/outer-binding-layer the-struct_0)"
-" reference-records65_0"
-" only-immediate?59_0"
+" reference-records59_0"
+" only-immediate?53_0"
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
-" name58_0))"
+" name52_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                   \"expand-context/outer?\""
@@ -66523,40 +66431,40 @@ static const char *startup_source =
 " 'loop"
 "(if(null? bodys_1)"
 "(let-values()"
-"(let-values(((body-ctx67_0) body-ctx_1)"
-"((frame-id68_0) frame-id_0)"
-"((def-ctx-scopes69_0) def-ctx-scopes_0)"
-"((temp70_0)(reverse$1 val-idss_0))"
-"((temp71_0)(reverse$1 val-keyss_0))"
-"((temp72_0)(reverse$1 val-rhss_0))"
-"((temp73_0)(reverse$1 track-stxs_0))"
-"((temp74_0)(reverse$1 stx-clauses_0))"
-"((temp75_0)(reverse$1 done-bodys_0))"
-"((init-bodys76_0) init-bodys_0)"
-"((s77_0) s_0)"
-"((stratified?78_0) stratified?_0)"
-"((just-saw-define-syntaxes?79_0)"
+"(let-values(((body-ctx61_0) body-ctx_1)"
+"((frame-id62_0) frame-id_0)"
+"((def-ctx-scopes63_0) def-ctx-scopes_0)"
+"((temp64_0)(reverse$1 val-idss_0))"
+"((temp65_0)(reverse$1 val-keyss_0))"
+"((temp66_0)(reverse$1 val-rhss_0))"
+"((temp67_0)(reverse$1 track-stxs_0))"
+"((temp68_0)(reverse$1 stx-clauses_0))"
+"((temp69_0)(reverse$1 done-bodys_0))"
+"((init-bodys70_0) init-bodys_0)"
+"((s71_0) s_0)"
+"((stratified?72_0) stratified?_0)"
+"((just-saw-define-syntaxes?73_0)"
 " just-saw-define-syntaxes?_0)"
-"((name80_0) name_0)"
-"((temp81_0)(reverse$1 trans-idss_0))"
-"((temp82_0)(reverse$1 trans-stxs_0)))"
-"(finish-expanding-body33.1"
-" temp81_0"
-" temp82_0"
-" just-saw-define-syntaxes?79_0"
-" name80_0"
-" init-bodys76_0"
-" s77_0"
-" stratified?78_0"
-" body-ctx67_0"
-" frame-id68_0"
-" def-ctx-scopes69_0"
-" temp70_0"
-" temp71_0"
-" temp72_0"
-" temp73_0"
-" temp74_0"
-" temp75_0)))"
+"((name74_0) name_0)"
+"((temp75_0)(reverse$1 trans-idss_0))"
+"((temp76_0)(reverse$1 trans-stxs_0)))"
+"(finish-expanding-body.1"
+" temp75_0"
+" temp76_0"
+" just-saw-define-syntaxes?73_0"
+" name74_0"
+" init-bodys70_0"
+" s71_0"
+" stratified?72_0"
+" body-ctx61_0"
+" frame-id62_0"
+" def-ctx-scopes63_0"
+" temp64_0"
+" temp65_0"
+" temp66_0"
+" temp67_0"
+" temp68_0"
+" temp69_0)))"
 "(let-values()"
 "(let-values(((rest-bodys_0)(cdr bodys_1)))"
 "(let-values((()"
@@ -66573,8 +66481,8 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-body_0)"
-"(let-values(((temp83_0)(car bodys_1))"
-"((temp84_0)"
+"(let-values(((temp77_0)(car bodys_1))"
+"((temp78_0)"
 "(if(if name_0"
 "(null?"
 "(cdr bodys_1))"
@@ -66585,13 +66493,13 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((name85_0)"
+"(let-values(((name79_0)"
 " name_0)"
-"((inner86_0)"
+"((inner80_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner86_0"
+" inner80_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -66618,18 +66526,18 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-current-use-scopes"
 " the-struct_0)"
-" name85_0))"
+" name79_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                       \"expand-context/outer?\""
 " the-struct_0))))"
 " body-ctx_1)))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" temp83_0"
-" temp84_0))))"
+" temp77_0"
+" temp78_0))))"
 "(let-values(((disarmed-exp-body_0)"
 "(syntax-disarm$1 exp-body_0)))"
 "(let-values(((tmp_0)"
@@ -66651,13 +66559,13 @@ static const char *startup_source =
 " 'prim-begin)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_0 begin87_0 e88_0)"
+"(let-values(((ok?_0 begin81_0 e82_0)"
 "(let-values(((s_1)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_1))"
-"(let-values(((begin87_0"
-" e88_0)"
+"(let-values(((begin81_0"
+" e82_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -66666,12 +66574,12 @@ static const char *startup_source =
 " s_1)))"
 "(if(pair?"
 " s_2)"
-"(let-values(((begin89_0)"
+"(let-values(((begin83_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((e90_0)"
+"((e84_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -66694,16 +66602,16 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" begin89_0"
-" e90_0))"
+" begin83_0"
+" e84_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                   \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" begin87_0"
-" e88_0))))))"
+" begin81_0"
+" e82_0))))))"
 "(let-values(((track_0)"
 "(lambda(e_0)"
 "(begin"
@@ -66713,7 +66621,7 @@ static const char *startup_source =
 " exp-body_0)))))"
 "(let-values(((splice-bodys_0)"
 "(append"
-"(map2 track_0 e88_0)"
+"(map2 track_0 e82_0)"
 " rest-bodys_0)))"
 "(begin"
 "(let-values(((obs_0)"
@@ -66756,16 +66664,16 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_0"
-" define-values91_0"
-" id92_0"
-" rhs93_0)"
+" define-values85_0"
+" id86_0"
+" rhs87_0)"
 "(let-values(((s_1)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_1))"
-"(let-values(((define-values91_0"
-" id92_0"
-" rhs93_0)"
+"(let-values(((define-values85_0"
+" id86_0"
+" rhs87_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -66774,13 +66682,13 @@ static const char *startup_source =
 " s_1)))"
 "(if(pair?"
 " s_2)"
-"(let-values(((define-values94_0)"
+"(let-values(((define-values88_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((id95_0"
-" rhs96_0)"
+"((id89_0"
+" rhs90_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -66792,7 +66700,7 @@ static const char *startup_source =
 " s_3)))"
 "(if(pair?"
 " s_4)"
-"(let-values(((id97_0)"
+"(let-values(((id91_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
@@ -66841,7 +66749,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id100_0)"
+"(let-values(((id94_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -66861,7 +66769,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_7)))))"
 "(cons"
-" id100_0"
+" id94_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -66877,7 +66785,7 @@ static const char *startup_source =
 " lst_0)))))"
 "(reverse$1"
 " id_0))))))))"
-"((rhs98_0)"
+"((rhs92_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -66889,7 +66797,7 @@ static const char *startup_source =
 " s_5)))"
 "(if(pair?"
 " s_6)"
-"(let-values(((rhs99_0)"
+"(let-values(((rhs93_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -66912,34 +66820,34 @@ static const char *startup_source =
 "                                                                                                                                                                                 \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" rhs99_0))"
+" rhs93_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                             \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id97_0"
-" rhs98_0))"
+" id91_0"
+" rhs92_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                         \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" define-values94_0"
-" id95_0"
-" rhs96_0))"
+" define-values88_0"
+" id89_0"
+" rhs90_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                     \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" define-values91_0"
-" id92_0"
-" rhs93_0))))))"
+" define-values85_0"
+" id86_0"
+" rhs87_0))))))"
 "(let-values(((ids_0)"
 "(remove-use-site-scopes"
-" id92_0"
+" id86_0"
 " body-ctx_1)))"
 "(let-values((()"
 "(begin"
@@ -66956,24 +66864,24 @@ static const char *startup_source =
 " #f"
 "(list"
 " ids_0"
-" rhs93_0)))))"
+" rhs87_0)))))"
 "(void)))"
 "(values))))"
 "(let-values(((new-dups_0)"
-"(let-values(((ids101_0)"
+"(let-values(((ids95_0)"
 " ids_0)"
-"((phase102_0)"
+"((phase96_0)"
 " phase_0)"
-"((exp-body103_0)"
+"((exp-body97_0)"
 " exp-body_0)"
-"((dups104_0)"
+"((dups98_0)"
 " dups_0))"
-"(check-no-duplicate-ids7.1"
+"(check-no-duplicate-ids.1"
 " unsafe-undefined"
-" ids101_0"
-" phase102_0"
-" exp-body103_0"
-" dups104_0))))"
+" ids95_0"
+" phase96_0"
+" exp-body97_0"
+" dups98_0))))"
 "(let-values(((counter_0)"
 "(root-expand-context-counter"
 " ctx_0)))"
@@ -67013,25 +66921,25 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id105_0)"
+"(let-values(((id99_0)"
 " id_0)"
-"((phase106_0)"
+"((phase100_0)"
 " phase_0)"
-"((counter107_0)"
+"((counter101_0)"
 " counter_0)"
-"((frame-id108_0)"
+"((frame-id102_0)"
 " frame-id_0)"
-"((exp-body109_0)"
+"((exp-body103_0)"
 " exp-body_0)"
-"((local-sym110_0)"
+"((local-sym104_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
-" frame-id108_0"
-" exp-body109_0"
-" local-sym110_0"
-" id105_0"
-" phase106_0"
-" counter107_0)))"
+"(add-local-binding!.1"
+" frame-id102_0"
+" exp-body103_0"
+" local-sym104_0"
+" id99_0"
+" phase100_0"
+" counter101_0)))"
 " fold-var_1))))"
 "(values"
 " fold-var_2)))))"
@@ -67118,17 +67026,17 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((env111_0)"
+"(let-values(((env105_0)"
 " extended-env_0)"
-"((binding-layer112_0)"
+"((binding-layer106_0)"
 "(maybe-increment-binding-layer_0"
 " ids_0"
 " body-ctx_1))"
-"((inner113_0)"
+"((inner107_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner113_0"
+" inner107_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -67137,12 +67045,12 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-context"
 " the-struct_0)"
-" env111_0"
+" env105_0"
 "(expand-context/outer-scopes"
 " the-struct_0)"
 "(expand-context/outer-def-ctx-scopes"
 " the-struct_0)"
-" binding-layer112_0"
+" binding-layer106_0"
 "(expand-context/outer-reference-records"
 " the-struct_0)"
 "(expand-context/outer-only-immediate?"
@@ -67258,7 +67166,7 @@ static const char *startup_source =
 " lst_0))))"
 " val-keyss_0))"
 "(cons"
-" rhs93_0"
+" rhs87_0"
 "(append"
 "(reverse$1"
 "(let-values(((lst_0)"
@@ -67309,18 +67217,18 @@ static const char *startup_source =
 " lst_0))))"
 " val-rhss_0))"
 "(cons"
-"(let-values(((body-ctx114_0)"
+"(let-values(((body-ctx108_0)"
 " body-ctx_1)"
-"((exp-body115_0)"
+"((exp-body109_0)"
 " exp-body_0)"
-"((temp116_0)"
+"((temp110_0)"
 " #t))"
-"(keep-as-needed119.1"
-" temp116_0"
+"(keep-as-needed.1"
+" temp110_0"
 " #f"
 " #f"
-" body-ctx114_0"
-" exp-body115_0))"
+" body-ctx108_0"
+" exp-body109_0))"
 "(append"
 "(reverse$1"
 "(let-values(((lst_0)"
@@ -67388,16 +67296,16 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_0"
-" define-syntaxes117_0"
-" id118_0"
-" rhs119_0)"
+" define-syntaxes111_0"
+" id112_0"
+" rhs113_0)"
 "(let-values(((s_1)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_1))"
-"(let-values(((define-syntaxes117_0"
-" id118_0"
-" rhs119_0)"
+"(let-values(((define-syntaxes111_0"
+" id112_0"
+" rhs113_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -67406,13 +67314,13 @@ static const char *startup_source =
 " s_1)))"
 "(if(pair?"
 " s_2)"
-"(let-values(((define-syntaxes120_0)"
+"(let-values(((define-syntaxes114_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((id121_0"
-" rhs122_0)"
+"((id115_0"
+" rhs116_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -67424,7 +67332,7 @@ static const char *startup_source =
 " s_3)))"
 "(if(pair?"
 " s_4)"
-"(let-values(((id123_0)"
+"(let-values(((id117_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
@@ -67473,7 +67381,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id126_0)"
+"(let-values(((id120_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -67493,7 +67401,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_7)))))"
 "(cons"
-" id126_0"
+" id120_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -67509,7 +67417,7 @@ static const char *startup_source =
 " lst_0)))))"
 "(reverse$1"
 " id_0))))))))"
-"((rhs124_0)"
+"((rhs118_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -67521,7 +67429,7 @@ static const char *startup_source =
 " s_5)))"
 "(if(pair?"
 " s_6)"
-"(let-values(((rhs125_0)"
+"(let-values(((rhs119_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -67544,34 +67452,34 @@ static const char *startup_source =
 "                                                                                                                                                                                   \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" rhs125_0))"
+" rhs119_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                               \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id123_0"
-" rhs124_0))"
+" id117_0"
+" rhs118_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" define-syntaxes120_0"
-" id121_0"
-" rhs122_0))"
+" define-syntaxes114_0"
+" id115_0"
+" rhs116_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                       \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" define-syntaxes117_0"
-" id118_0"
-" rhs119_0))))))"
+" define-syntaxes111_0"
+" id112_0"
+" rhs113_0))))))"
 "(let-values(((ids_0)"
 "(remove-use-site-scopes"
-" id118_0"
+" id112_0"
 " body-ctx_1)))"
 "(let-values((()"
 "(begin"
@@ -67588,24 +67496,24 @@ static const char *startup_source =
 " #f"
 "(list"
 " ids_0"
-" rhs119_0)))))"
+" rhs113_0)))))"
 "(void)))"
 "(values))))"
 "(let-values(((new-dups_0)"
-"(let-values(((ids127_0)"
+"(let-values(((ids121_0)"
 " ids_0)"
-"((phase128_0)"
+"((phase122_0)"
 " phase_0)"
-"((exp-body129_0)"
+"((exp-body123_0)"
 " exp-body_0)"
-"((dups130_0)"
+"((dups124_0)"
 " dups_0))"
-"(check-no-duplicate-ids7.1"
+"(check-no-duplicate-ids.1"
 " unsafe-undefined"
-" ids127_0"
-" phase128_0"
-" exp-body129_0"
-" dups130_0))))"
+" ids121_0"
+" phase122_0"
+" exp-body123_0"
+" dups124_0))))"
 "(let-values(((counter_0)"
 "(root-expand-context-counter"
 " ctx_0)))"
@@ -67645,25 +67553,25 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id131_0)"
+"(let-values(((id125_0)"
 " id_0)"
-"((phase132_0)"
+"((phase126_0)"
 " phase_0)"
-"((counter133_0)"
+"((counter127_0)"
 " counter_0)"
-"((frame-id134_0)"
+"((frame-id128_0)"
 " frame-id_0)"
-"((exp-body135_0)"
+"((exp-body129_0)"
 " exp-body_0)"
-"((local-sym136_0)"
+"((local-sym130_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
-" frame-id134_0"
-" exp-body135_0"
-" local-sym136_0"
-" id131_0"
-" phase132_0"
-" counter133_0)))"
+"(add-local-binding!.1"
+" frame-id128_0"
+" exp-body129_0"
+" local-sym130_0"
+" id125_0"
+" phase126_0"
+" counter127_0)))"
 " fold-var_1))))"
 "(values"
 " fold-var_2)))))"
@@ -67711,7 +67619,7 @@ static const char *startup_source =
 "(let-values(((vals_0)"
 "(eval-for-syntaxes-binding"
 " 'define-syntaxes"
-" rhs119_0"
+" rhs113_0"
 " ids_0"
 " body-ctx_1)))"
 "(let-values(((extended-env_0)"
@@ -67823,17 +67731,17 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((env137_0)"
+"(let-values(((env131_0)"
 " extended-env_0)"
-"((binding-layer138_0)"
+"((binding-layer132_0)"
 "(maybe-increment-binding-layer_0"
 " ids_0"
 " body-ctx_1))"
-"((inner139_0)"
+"((inner133_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner139_0"
+" inner133_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -67842,12 +67750,12 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-context"
 " the-struct_0)"
-" env137_0"
+" env131_0"
 "(expand-context/outer-scopes"
 " the-struct_0)"
 "(expand-context/outer-def-ctx-scopes"
 " the-struct_0)"
-" binding-layer138_0"
+" binding-layer132_0"
 "(expand-context/outer-reference-records"
 " the-struct_0)"
 "(expand-context/outer-only-immediate?"
@@ -67874,25 +67782,25 @@ static const char *startup_source =
 " ids_0"
 " trans-idss_0)"
 "(cons"
-"(let-values(((body-ctx140_0)"
+"(let-values(((body-ctx134_0)"
 " body-ctx_1)"
-"((exp-body141_0)"
+"((exp-body135_0)"
 " exp-body_0)"
-"((temp142_0)"
+"((temp136_0)"
 " #t))"
-"(keep-as-needed119.1"
-" temp142_0"
+"(keep-as-needed.1"
+" temp136_0"
 " #f"
 " #f"
-" body-ctx140_0"
-" exp-body141_0))"
+" body-ctx134_0"
+" exp-body135_0))"
 " trans-stxs_0)"
 "(cons"
 "(datum->syntax$1"
 " #f"
 "(list"
 " ids_0"
-" rhs119_0)"
+" rhs113_0)"
 " exp-body_0)"
 " stx-clauses_0)"
 " new-dups_0"
@@ -67963,42 +67871,42 @@ static const char *startup_source =
 "(make-check-no-duplicate-table)"
 " #f)))))))))))))))))))"
 "(define-values"
-"(finish-expanding-body33.1)"
-"(lambda(disappeared-transformer-bindings15_0"
-" disappeared-transformer-forms16_0"
-" just-saw-define-syntaxes?13_0"
-" name14_0"
-" original-bodys10_0"
-" source11_0"
-" stratified?12_0"
-" body-ctx24_0"
-" frame-id25_0"
-" def-ctx-scopes26_0"
-" val-idss27_0"
-" val-keyss28_0"
-" val-rhss29_0"
-" track-stxs30_0"
-" stx-clauses31_0"
-" done-bodys32_0)"
+"(finish-expanding-body.1)"
+"(lambda(disappeared-transformer-bindings13_0"
+" disappeared-transformer-forms14_0"
+" just-saw-define-syntaxes?11_0"
+" name12_0"
+" original-bodys8_0"
+" source9_0"
+" stratified?10_0"
+" body-ctx22_0"
+" frame-id23_0"
+" def-ctx-scopes24_0"
+" val-idss25_0"
+" val-keyss26_0"
+" val-rhss27_0"
+" track-stxs28_0"
+" stx-clauses29_0"
+" done-bodys30_0)"
 "(begin"
-" 'finish-expanding-body33"
-"(let-values(((body-ctx_0) body-ctx24_0))"
-"(let-values(((frame-id_0) frame-id25_0))"
-"(let-values(((def-ctx-scopes_0) def-ctx-scopes26_0))"
-"(let-values(((val-idss_0) val-idss27_0))"
-"(let-values(((val-keyss_0) val-keyss28_0))"
-"(let-values(((val-rhss_0) val-rhss29_0))"
-"(let-values(((track-stxs_0) track-stxs30_0))"
-"(let-values(((stx-clauses_0) stx-clauses31_0))"
-"(let-values(((done-bodys_0) done-bodys32_0))"
-"(let-values(((init-bodys_0) original-bodys10_0))"
-"(let-values(((s_0) source11_0))"
-"(let-values(((stratified?_0) stratified?12_0))"
-"(let-values(((just-saw-define-syntaxes?_0) just-saw-define-syntaxes?13_0))"
-"(let-values(((name_0) name14_0))"
+" 'finish-expanding-body"
+"(let-values(((body-ctx_0) body-ctx22_0))"
+"(let-values(((frame-id_0) frame-id23_0))"
+"(let-values(((def-ctx-scopes_0) def-ctx-scopes24_0))"
+"(let-values(((val-idss_0) val-idss25_0))"
+"(let-values(((val-keyss_0) val-keyss26_0))"
+"(let-values(((val-rhss_0) val-rhss27_0))"
+"(let-values(((track-stxs_0) track-stxs28_0))"
+"(let-values(((stx-clauses_0) stx-clauses29_0))"
+"(let-values(((done-bodys_0) done-bodys30_0))"
+"(let-values(((init-bodys_0) original-bodys8_0))"
+"(let-values(((s_0) source9_0))"
+"(let-values(((stratified?_0) stratified?10_0))"
+"(let-values(((just-saw-define-syntaxes?_0) just-saw-define-syntaxes?11_0))"
+"(let-values(((name_0) name12_0))"
 "(let-values(((disappeared-transformer-bindings_0)"
-" disappeared-transformer-bindings15_0))"
-"(let-values(((disappeared-transformer-forms_0) disappeared-transformer-forms16_0))"
+" disappeared-transformer-bindings13_0))"
+"(let-values(((disappeared-transformer-forms_0) disappeared-transformer-forms14_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -68020,31 +67928,31 @@ static const char *startup_source =
 " def-ctx-scopes_0)))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context143_0) 'expression)"
-"((use-site-scopes144_0)(box null))"
-"((scopes145_0)"
+"(let-values(((context137_0) 'expression)"
+"((use-site-scopes138_0)(box null))"
+"((scopes139_0)"
 "(append"
 "(unbox"
 "(root-expand-context-use-site-scopes"
 " body-ctx_0))"
 "(expand-context-scopes body-ctx_0)))"
-"((only-immediate?146_0) #f)"
-"((def-ctx-scopes147_0) #f)"
-"((post-expansion148_0) #f)"
-"((inner149_0)"
+"((only-immediate?140_0) #f)"
+"((def-ctx-scopes141_0) #f)"
+"((post-expansion142_0) #f)"
+"((inner143_0)"
 "(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner149_0"
-" post-expansion148_0"
-" use-site-scopes144_0"
+" inner143_0"
+" post-expansion142_0"
+" use-site-scopes138_0"
 "(root-expand-context/outer-frame-id the-struct_0)"
-" context143_0"
+" context137_0"
 "(expand-context/outer-env the-struct_0)"
-" scopes145_0"
-" def-ctx-scopes147_0"
+" scopes139_0"
+" def-ctx-scopes141_0"
 "(expand-context/outer-binding-layer the-struct_0)"
 "(expand-context/outer-reference-records the-struct_0)"
-" only-immediate?146_0"
+" only-immediate?140_0"
 "(expand-context/outer-need-eventually-defined"
 " the-struct_0)"
 "(expand-context/outer-current-introduction-scopes"
@@ -68145,9 +68053,9 @@ static const char *startup_source =
 " obs_0"
 " 'next)))"
 "(void)))"
-"(let-values(((done-body150_0)"
+"(let-values(((done-body144_0)"
 " done-body_0)"
-"((temp151_0)"
+"((temp145_0)"
 "(if(if name_0"
 "(="
 " i_0"
@@ -68159,13 +68067,13 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((name152_0)"
+"(let-values(((name146_0)"
 " name_0)"
-"((inner153_0)"
+"((inner147_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner153_0"
+" inner147_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -68192,18 +68100,18 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-current-use-scopes"
 " the-struct_0)"
-" name152_0))"
+" name146_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                               \"expand-context/outer?\""
 " the-struct_0))))"
 " finish-ctx_0)))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" done-body150_0"
-" temp151_0))))"
+" done-body144_0"
+" temp145_0))))"
 " fold-var_1))))"
 "(values"
 " fold-var_2)))))"
@@ -68267,29 +68175,29 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-s_0)"
-"(let-values(((val-idss154_0) val-idss_0)"
-"((val-keyss155_0) val-keyss_0)"
-"((val-rhss156_0) val-rhss_0)"
-"((track-stxs157_0) track-stxs_0)"
-"((temp158_0)(not stratified?_0))"
-"((frame-id159_0) frame-id_0)"
-"((finish-ctx160_0) finish-ctx_0)"
-"((s161_0) s_0)"
-"((temp162_0)(pair? stx-clauses_0))"
-"((finish-bodys163_0) finish-bodys_0)"
-"((temp164_0) #f))"
-"(expand-and-split-bindings-by-reference54.1"
-" finish-ctx160_0"
-" frame-id159_0"
-" finish-bodys163_0"
-" temp162_0"
-" s161_0"
+"(let-values(((val-idss148_0) val-idss_0)"
+"((val-keyss149_0) val-keyss_0)"
+"((val-rhss150_0) val-rhss_0)"
+"((track-stxs151_0) track-stxs_0)"
+"((temp152_0)(not stratified?_0))"
+"((frame-id153_0) frame-id_0)"
+"((finish-ctx154_0) finish-ctx_0)"
+"((s155_0) s_0)"
+"((temp156_0)(pair? stx-clauses_0))"
+"((finish-bodys157_0) finish-bodys_0)"
+"((temp158_0) #f))"
+"(expand-and-split-bindings-by-reference.1"
+" finish-ctx154_0"
+" frame-id153_0"
+" finish-bodys157_0"
+" temp156_0"
+" s155_0"
+" temp152_0"
 " temp158_0"
-" temp164_0"
-" val-idss154_0"
-" val-keyss155_0"
-" val-rhss156_0"
-" track-stxs157_0))))"
+" val-idss148_0"
+" val-keyss149_0"
+" val-rhss150_0"
+" track-stxs151_0))))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer body-ctx_0)))"
 "(if obs_0"
@@ -68347,31 +68255,31 @@ static const char *startup_source =
 " exp-s_1"
 " lst_0))))))))))))))))))))))))))))))))))"
 "(define-values"
-"(expand-and-split-bindings-by-reference54.1)"
-"(lambda(ctx38_0"
-" frame-id37_0"
-" get-body41_0"
-" had-stxes?40_0"
-" source39_0"
-" split?36_0"
-" track?42_0"
-" idss50_0"
-" keyss51_0"
-" rhss52_0"
-" track-stxs53_0)"
+"(expand-and-split-bindings-by-reference.1)"
+"(lambda(ctx34_0"
+" frame-id33_0"
+" get-body37_0"
+" had-stxes?36_0"
+" source35_0"
+" split?32_0"
+" track?38_0"
+" idss46_0"
+" keyss47_0"
+" rhss48_0"
+" track-stxs49_0)"
 "(begin"
-" 'expand-and-split-bindings-by-reference54"
-"(let-values(((idss_0) idss50_0))"
-"(let-values(((keyss_0) keyss51_0))"
-"(let-values(((rhss_0) rhss52_0))"
-"(let-values(((track-stxs_0) track-stxs53_0))"
-"(let-values(((split?_0) split?36_0))"
-"(let-values(((frame-id_0) frame-id37_0))"
-"(let-values(((ctx_0) ctx38_0))"
-"(let-values(((s_0) source39_0))"
-"(let-values(((had-stxes?_0) had-stxes?40_0))"
-"(let-values(((get-body_0) get-body41_0))"
-"(let-values(((track?_0) track?42_0))"
+" 'expand-and-split-bindings-by-reference"
+"(let-values(((idss_0) idss46_0))"
+"(let-values(((keyss_0) keyss47_0))"
+"(let-values(((rhss_0) rhss48_0))"
+"(let-values(((track-stxs_0) track-stxs49_0))"
+"(let-values(((split?_0) split?32_0))"
+"(let-values(((frame-id_0) frame-id33_0))"
+"(let-values(((ctx_0) ctx34_0))"
+"(let-values(((s_0) source35_0))"
+"(let-values(((had-stxes?_0) had-stxes?36_0))"
+"(let-values(((get-body_0) get-body37_0))"
+"(let-values(((track?_0) track?38_0))"
 "(let-values()"
 "(let-values(((phase_0)(expand-context-phase ctx_0)))"
 "((letrec-values(((loop_0)"
@@ -68411,9 +68319,9 @@ static const char *startup_source =
 " accum-keyss_0"
 " accum-rhss_0))"
 " exp-body_0))"
-"(let-values(((track?165_0) track?_1)"
-"((s166_0) s_0)"
-"((temp167_0)"
+"(let-values(((track?159_0) track?_1)"
+"((s160_0) s_0)"
+"((temp161_0)"
 "(list*"
 "(if(null? accum-idss_0)"
 "(core-id"
@@ -68427,10 +68335,10 @@ static const char *startup_source =
 " accum-rhss_0"
 " accum-track-stxs_0)"
 " exp-body_0)))"
-"(rebuild5.1"
-" track?165_0"
-" s166_0"
-" temp167_0)))))"
+"(rebuild.1"
+" track?159_0"
+" s160_0"
+" temp161_0)))))"
 "(begin"
 "(let-values(((obs_0)"
 "(expand-context-observer ctx_0)))"
@@ -68461,17 +68369,12 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ids_0)(car idss_1)))"
 "(let-values(((expanded-rhs_0)"
-"(let-values(((temp168_0)(car rhss_1))"
-"((temp169_0)"
+"(let-values(((temp162_0)(car rhss_1))"
+"((temp163_0)"
 "(as-named-context"
 " ctx_0"
 " ids_0)))"
-"(expand9.1"
-" #f"
-" #f"
-" #f"
-" temp168_0"
-" temp169_0))))"
+"(expand.1 #f #f #f temp162_0 temp163_0))))"
 "(let-values(((track-stx_0)(car track-stxs_1)))"
 "(let-values(((local-or-forward-references?_0)"
 "(reference-record-forward-references?"
@@ -68522,11 +68425,11 @@ static const char *startup_source =
 "(car keyss_1)"
 " expanded-rhs_0))"
 " exp-rest_0)"
-"(let-values(((track?170_0)"
+"(let-values(((track?164_0)"
 " track?_1)"
-"((s171_0)"
+"((s165_0)"
 " s_0)"
-"((temp172_0)"
+"((temp166_0)"
 "(list*"
 "(core-id"
 " 'let-values"
@@ -68537,10 +68440,10 @@ static const char *startup_source =
 " expanded-rhs_0"
 " track-stx_0))"
 " exp-rest_0)))"
-"(rebuild5.1"
-" track?170_0"
-" s171_0"
-" temp172_0)))))"
+"(rebuild.1"
+" track?164_0"
+" s165_0"
+" temp166_0)))))"
 "(begin"
 "(let-values(((obs_0)"
 "(expand-context-observer"
@@ -68602,11 +68505,11 @@ static const char *startup_source =
 " accum-keyss_0"
 " accum-rhss_0)))"
 " exp-rest_0)"
-"(let-values(((track?173_0)"
+"(let-values(((track?167_0)"
 " track?_1)"
-"((s174_0)"
+"((s168_0)"
 " s_0)"
-"((temp175_0)"
+"((temp169_0)"
 "(list*"
 "(core-id"
 " 'letrec-values"
@@ -68622,10 +68525,10 @@ static const char *startup_source =
 " track-stx_0"
 " accum-track-stxs_0))"
 " exp-rest_0)))"
-"(rebuild5.1"
-" track?173_0"
-" s174_0"
-" temp175_0)))))"
+"(rebuild.1"
+" track?167_0"
+" s168_0"
+" temp169_0)))))"
 "(begin"
 "(let-values(((obs_0)"
 "(expand-context-observer"
@@ -68798,11 +68701,11 @@ static const char *startup_source =
 "(let-values(((ids_0)(parse-and-flatten-formals formals_0 sc_0 disarmed-s_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ids33_0) ids_0)"
-"((phase34_0) phase_0)"
-"((s35_0) s_0)"
-"                                         ((temp36_0) \"argument name\"))"
-"(check-no-duplicate-ids7.1 temp36_0 ids33_0 phase34_0 s35_0 unsafe-undefined))"
+"(let-values(((ids27_0) ids_0)"
+"((phase28_0) phase_0)"
+"((s29_0) s_0)"
+"                                         ((temp30_0) \"argument name\"))"
+"(check-no-duplicate-ids.1 temp30_0 ids27_0 phase28_0 s29_0 unsafe-undefined))"
 "(values))))"
 "(let-values(((counter_0)(root-expand-context-counter ctx_0)))"
 "(let-values(((local-sym_0)(if(expand-context-normalize-locals? ctx_0) 'arg #f)))"
@@ -68826,23 +68729,23 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id37_0)"
+"(let-values(((id31_0)"
 " id_0)"
-"((phase38_0)"
+"((phase32_0)"
 " phase_0)"
-"((counter39_0)"
+"((counter33_0)"
 " counter_0)"
-"((s40_0)"
+"((s34_0)"
 " s_0)"
-"((local-sym41_0)"
+"((local-sym35_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
+"(add-local-binding!.1"
 " #f"
-" s40_0"
-" local-sym41_0"
-" id37_0"
-" phase38_0"
-" counter39_0)))"
+" s34_0"
+" local-sym35_0"
+" id31_0"
+" phase32_0"
+" counter33_0)))"
 " fold-var_1))))"
 "(values fold-var_2)))))"
 "(if(not #f)"
@@ -68937,22 +68840,22 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((env42_0) body-env_0)"
-"((scopes43_0)(cons sc_0(expand-context-scopes ctx_0)))"
-"((binding-layer44_0)"
+"(let-values(((env36_0) body-env_0)"
+"((scopes37_0)(cons sc_0(expand-context-scopes ctx_0)))"
+"((binding-layer38_0)"
 "(increment-binding-layer ids_0 ctx_0 sc_0))"
-"((frame-id45_0) #f)"
-"((inner46_0)(root-expand-context/outer-inner v_0)))"
+"((frame-id39_0) #f)"
+"((inner40_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner46_0"
+" inner40_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
-" frame-id45_0"
+" frame-id39_0"
 "(expand-context/outer-context the-struct_0)"
-" env42_0"
-" scopes43_0"
+" env36_0"
+" scopes37_0"
 "(expand-context/outer-def-ctx-scopes the-struct_0)"
-" binding-layer44_0"
+" binding-layer38_0"
 "(expand-context/outer-reference-records the-struct_0)"
 "(expand-context/outer-only-immediate? the-struct_0)"
 "(expand-context/outer-need-eventually-defined the-struct_0)"
@@ -68964,12 +68867,12 @@ static const char *startup_source =
 "                                                 \"expand-context/outer?\""
 " the-struct_0))))))"
 "(let-values(((exp-body_0)"
-"(let-values(((sc-bodys47_0) sc-bodys_0)"
-"((body-ctx48_0) body-ctx_0)"
-"((temp49_0)"
-"(let-values(((ctx50_0) ctx_0)((s51_0) s_0)((temp52_0) #t))"
-"(keep-as-needed119.1 #f temp52_0 #f ctx50_0 s51_0))))"
-"(expand-body7.1 temp49_0 #f sc-bodys47_0 body-ctx48_0))))"
+"(let-values(((sc-bodys41_0) sc-bodys_0)"
+"((body-ctx42_0) body-ctx_0)"
+"((temp43_0)"
+"(let-values(((ctx44_0) ctx_0)((s45_0) s_0)((temp46_0) #t))"
+"(keep-as-needed.1 #f temp46_0 #f ctx44_0 s45_0))))"
+"(expand-body.1 temp43_0 #f sc-bodys41_0 body-ctx42_0))))"
 "(values"
 "(if(expand-context-to-parsed? ctx_0)"
 "(unflatten-like-formals keys_0 formals_0)"
@@ -68985,21 +68888,21 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-lambda)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 lambda53_0 formals54_0 body55_0)"
+"(let-values(((ok?_0 lambda47_0 formals48_0 body49_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((lambda53_0 formals54_0 body55_0)"
+"(let-values(((lambda47_0 formals48_0 body49_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((lambda56_0)(let-values(((s_3)(car s_2))) s_3))"
-"((formals57_0 body58_0)"
+"(let-values(((lambda50_0)(let-values(((s_3)(car s_2))) s_3))"
+"((formals51_0 body52_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((formals59_0)"
+"(let-values(((formals53_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
-"((body60_0)"
+"((body54_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
@@ -69021,38 +68924,38 @@ static const char *startup_source =
 "                                                                                            \"bad syntax\""
 " orig-s_0))"
 "(let-values() flat-s_0))))))))"
-"(values formals59_0 body60_0))"
+"(values formals53_0 body54_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values lambda56_0 formals57_0 body58_0))"
+"(values lambda50_0 formals51_0 body52_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t lambda53_0 formals54_0 body55_0))))))"
+"(values #t lambda47_0 formals48_0 body49_0))))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx61_0) ctx_0)((s62_0) s_0)((temp63_0) #t))"
-"(keep-as-needed119.1 #f #f temp63_0 ctx61_0 s62_0))))"
+"(let-values(((ctx55_0) ctx_0)((s56_0) s_0)((temp57_0) #t))"
+"(keep-as-needed.1 #f #f temp57_0 ctx55_0 s56_0))))"
 "(let-values(((formals_0 body_0)"
-"(lambda-clause-expander s_0 disarmed-s_0 formals54_0 body55_0 ctx_0 'lambda-renames)))"
+"(lambda-clause-expander s_0 disarmed-s_0 formals48_0 body49_0 ctx_0 'lambda-renames)))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-lambda5.1 rebuild-s_0 formals_0 body_0)"
-"(let-values(((rebuild-s64_0) rebuild-s_0)((temp65_0)(list* lambda53_0 formals_0 body_0)))"
-"(rebuild5.1 #t rebuild-s64_0 temp65_0)))))))))))"
+"(let-values(((rebuild-s58_0) rebuild-s_0)((temp59_0)(list* lambda47_0 formals_0 body_0)))"
+"(rebuild.1 #t rebuild-s58_0 temp59_0)))))))))))"
 "(void"
 "(add-core-form!*"
 " 'λ"
 "(lambda(s_0)"
-"(let-values(((ok?_0 lam-id66_0 formals67_0 _68_0)"
+"(let-values(((ok?_0 lam-id60_0 formals61_0 _62_0)"
 "(let-values(((s_1) s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((lam-id66_0 formals67_0 _68_0)"
+"(let-values(((lam-id60_0 formals61_0 _62_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((lam-id69_0)(let-values(((s_3)(car s_2))) s_3))"
-"((formals70_0 _71_0)"
+"(let-values(((lam-id63_0)(let-values(((s_3)(car s_2))) s_3))"
+"((formals64_0 _65_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((formals72_0)"
+"(let-values(((formals66_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
-"((_73_0)"
+"((_67_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
@@ -69073,21 +68976,21 @@ static const char *startup_source =
 "                                                                                        \"bad syntax\""
 " orig-s_0))"
 "(let-values() flat-s_0))))))))"
-"(values formals72_0 _73_0))"
+"(values formals66_0 _67_0))"
 "                                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values lam-id69_0 formals70_0 _71_0))"
+"(values lam-id63_0 formals64_0 _65_0))"
 "                                         (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t lam-id66_0 formals67_0 _68_0))))))"
-"(let-values(((ids_0)(parse-and-flatten-formals formals67_0 #f s_0)))"
-"(let-values(((ctx_0)(let-values(((temp78_0) #t))(get-current-expand-context18.1 temp78_0 'unexpected))))"
+"(values #t lam-id60_0 formals61_0 _62_0))))))"
+"(let-values(((ids_0)(parse-and-flatten-formals formals61_0 #f s_0)))"
+"(let-values(((ctx_0)(let-values(((temp72_0) #t))(get-current-expand-context.1 temp72_0 'unexpected))))"
 "(let-values(((phase_0)(if ctx_0(expand-context-phase ctx_0) 0)))"
 "(begin"
-"               (let-values (((ids74_0) ids_0) ((phase75_0) phase_0) ((s76_0) s_0) ((temp77_0) \"argument name\"))"
-"(check-no-duplicate-ids7.1 temp77_0 ids74_0 phase75_0 s76_0 unsafe-undefined))"
+"               (let-values (((ids68_0) ids_0) ((phase69_0) phase_0) ((s70_0) s_0) ((temp71_0) \"argument name\"))"
+"(check-no-duplicate-ids.1 temp71_0 ids68_0 phase69_0 s70_0 unsafe-undefined))"
 "(datum->syntax$1"
 " s_0"
 "(cons"
-"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_0) 'lambda lam-id66_0 lam-id66_0)"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_0) 'lambda lam-id60_0 lam-id60_0)"
 "(cdr(syntax-e$1 s_0)))"
 " s_0"
 " s_0)))))))))"
@@ -69101,14 +69004,14 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-case-lambda)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 case-lambda79_0 formals80_0 body81_0)"
+"(let-values(((ok?_0 case-lambda73_0 formals74_0 body75_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((case-lambda79_0 formals80_0 body81_0)"
+"(let-values(((case-lambda73_0 formals74_0 body75_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((case-lambda82_0)(let-values(((s_3)(car s_2))) s_3))"
-"((formals83_0 body84_0)"
+"(let-values(((case-lambda76_0)(let-values(((s_3)(car s_2))) s_3))"
+"((formals77_0 body78_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
@@ -69148,8 +69051,8 @@ static const char *startup_source =
 "(let-values(((formals_2"
 " body_2)"
 "(let-values()"
-"(let-values(((formals91_0"
-" body92_0)"
+"(let-values(((formals85_0"
+" body86_0)"
 "(let-values()"
 "(let-values(((s_6)"
 "(if(syntax?$1"
@@ -69159,12 +69062,12 @@ static const char *startup_source =
 " s_5)))"
 "(if(pair?"
 " s_6)"
-"(let-values(((formals85_0)"
+"(let-values(((formals79_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
 " s_7))"
-"((body86_0)"
+"((body80_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
@@ -69194,18 +69097,18 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_1))))))))"
 "(values"
-" formals85_0"
-" body86_0))"
+" formals79_0"
+" body80_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                      \"bad syntax\""
 " orig-s_0))))))"
 "(values"
 "(cons"
-" formals91_0"
+" formals85_0"
 " formals_1)"
 "(cons"
-" body92_0"
+" body86_0"
 " body_1))))))"
 "(values"
 " formals_2"
@@ -69229,17 +69132,17 @@ static const char *startup_source =
 "(values"
 "(reverse$1 formals_0)"
 "(reverse$1 body_0))))))))))"
-"(values case-lambda82_0 formals83_0 body84_0))"
+"(values case-lambda76_0 formals77_0 body78_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t case-lambda79_0 formals80_0 body81_0))))))"
-"(let-values(((ok?_1 case-lambda87_0 clause88_0)"
+"(values #t case-lambda73_0 formals74_0 body75_0))))))"
+"(let-values(((ok?_1 case-lambda81_0 clause82_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((case-lambda87_0 clause88_0)"
+"(let-values(((case-lambda81_0 clause82_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((case-lambda89_0)(let-values(((s_3)(car s_2))) s_3))"
-"((clause90_0)"
+"(let-values(((case-lambda83_0)(let-values(((s_3)(car s_2))) s_3))"
+"((clause84_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
@@ -69248,15 +69151,15 @@ static const char *startup_source =
 "(let-values()"
 "                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))"
 "(let-values() flat-s_0)))))))"
-"(values case-lambda89_0 clause90_0))"
+"(values case-lambda83_0 clause84_0))"
 "                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t case-lambda87_0 clause88_0))))))"
+"(values #t case-lambda81_0 clause82_0))))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx93_0) ctx_0)((s94_0) s_0)((temp95_0) #t))"
-"(keep-as-needed119.1 #f #f temp95_0 ctx93_0 s94_0))))"
+"(let-values(((ctx87_0) ctx_0)((s88_0) s_0)((temp89_0) #t))"
+"(keep-as-needed.1 #f #f temp89_0 ctx87_0 s88_0))))"
 "(let-values(((clauses_0)"
 "(reverse$1"
-"(let-values(((lst_0) formals80_0)((lst_1) body81_0)((lst_2) clause88_0))"
+"(let-values(((lst_0) formals74_0)((lst_1) body75_0)((lst_2) clause82_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
@@ -69298,16 +69201,16 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((rebuild-clause_0)"
-"(let-values(((ctx96_0)"
+"(let-values(((ctx90_0)"
 " ctx_0)"
-"((clause97_0)"
+"((clause91_0)"
 " clause_0))"
-"(keep-as-needed119.1"
+"(keep-as-needed.1"
 " #f"
 " #f"
 " #f"
-" ctx96_0"
-" clause97_0))))"
+" ctx90_0"
+" clause91_0))))"
 "(let-values(((exp-formals_0"
 " exp-body_0)"
 "(lambda-clause-expander"
@@ -69322,16 +69225,16 @@ static const char *startup_source =
 "(list"
 " exp-formals_0"
 " exp-body_0)"
-"(let-values(((rebuild-clause98_0)"
+"(let-values(((rebuild-clause92_0)"
 " rebuild-clause_0)"
-"((temp99_0)"
+"((temp93_0)"
 "(list*"
 " exp-formals_0"
 " exp-body_0)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" rebuild-clause98_0"
-" temp99_0)))))))"
+" rebuild-clause92_0"
+" temp93_0)))))))"
 " fold-var_1))))"
 "(values fold-var_2)))))"
 "(if(not #f)"
@@ -69345,8 +69248,8 @@ static const char *startup_source =
 " lst_2))))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-case-lambda6.1 rebuild-s_0 clauses_0)"
-"(let-values(((rebuild-s100_0) rebuild-s_0)((temp101_0)(list* case-lambda79_0 clauses_0)))"
-"(rebuild5.1 #t rebuild-s100_0 temp101_0))))))))))))"
+"(let-values(((rebuild-s94_0) rebuild-s_0)((temp95_0)(list* case-lambda73_0 clauses_0)))"
+"(rebuild.1 #t rebuild-s94_0 temp95_0))))))))))))"
 "(define-values"
 "(parse-and-flatten-formals)"
 "(lambda(all-formals_0 sc_0 s_0)"
@@ -69400,10 +69303,10 @@ static const char *startup_source =
 " keys_0"
 " formals_0))))"
 "(define-values"
-"(make-let-values-form11.1)"
+"(make-let-values-form.1)"
 "(lambda(log-tag1_0 rec?3_0 renames-log-tag5_0 split-by-reference?4_0 syntaxes?2_0)"
 "(begin"
-" 'make-let-values-form11"
+" 'make-let-values-form"
 "(let-values(((log-tag_0) log-tag1_0))"
 "(let-values(((syntaxes?_0) syntaxes?2_0))"
 "(let-values(((rec?_0) rec?3_0))"
@@ -69420,39 +69323,39 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
 "(let-values(((ok?_0"
-" letrec-syntaxes+values102_0"
-" id:trans103_0"
-" trans-rhs104_0"
-" id:val105_0"
-" val-rhs106_0"
-" body107_0)"
+" letrec-syntaxes+values96_0"
+" id:trans97_0"
+" trans-rhs98_0"
+" id:val99_0"
+" val-rhs100_0"
+" body101_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(if syntaxes?_0 #t #f)"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((letrec-syntaxes+values102_0"
-" id:trans103_0"
+"(let-values(((letrec-syntaxes+values96_0"
+" id:trans97_0"
+" trans-rhs98_0"
+" id:val99_0"
+" val-rhs100_0"
+" body101_0)"
+"(let-values(((s_2)"
+"(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
+"(if(pair? s_2)"
+"(let-values(((letrec-syntaxes+values102_0)"
+"(let-values(((s_3)(car s_2))) s_3))"
+"((id:trans103_0"
 " trans-rhs104_0"
 " id:val105_0"
 " val-rhs106_0"
 " body107_0)"
-"(let-values(((s_2)"
-"(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
-"(if(pair? s_2)"
-"(let-values(((letrec-syntaxes+values108_0)"
-"(let-values(((s_3)(car s_2))) s_3))"
-"((id:trans109_0"
-" trans-rhs110_0"
-" id:val111_0"
-" val-rhs112_0"
-" body113_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((id:trans114_0"
-" trans-rhs115_0)"
+"(let-values(((id:trans108_0"
+" trans-rhs109_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
@@ -69506,8 +69409,8 @@ static const char *startup_source =
 "(let-values(((id:trans_2"
 " trans-rhs_2)"
 "(let-values()"
-"(let-values(((id:trans145_0"
-" trans-rhs146_0)"
+"(let-values(((id:trans139_0"
+" trans-rhs140_0)"
 "(let-values()"
 "(let-values(((s_8)"
 "(if(syntax?$1"
@@ -69517,7 +69420,7 @@ static const char *startup_source =
 " s_7)))"
 "(if(pair?"
 " s_8)"
-"(let-values(((id:trans119_0)"
+"(let-values(((id:trans113_0)"
 "(let-values(((s_9)"
 "(car"
 " s_8)))"
@@ -69566,7 +69469,7 @@ static const char *startup_source =
 " id:trans_2))"
 "(let-values(((id:trans_4)"
 "(let-values()"
-"(let-values(((id:trans147_0)"
+"(let-values(((id:trans141_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -69586,7 +69489,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_11)))))"
 "(cons"
-" id:trans147_0"
+" id:trans141_0"
 " id:trans_3)))))"
 "(values"
 " id:trans_4)))))"
@@ -69602,7 +69505,7 @@ static const char *startup_source =
 " lst_2)))))"
 "(reverse$1"
 " id:trans_2))))))))"
-"((trans-rhs120_0)"
+"((trans-rhs114_0)"
 "(let-values(((s_9)"
 "(cdr"
 " s_8)))"
@@ -69614,7 +69517,7 @@ static const char *startup_source =
 " s_9)))"
 "(if(pair?"
 " s_10)"
-"(let-values(((trans-rhs121_0)"
+"(let-values(((trans-rhs115_0)"
 "(let-values(((s_11)"
 "(car"
 " s_10)))"
@@ -69637,24 +69540,24 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" trans-rhs121_0))"
+" trans-rhs115_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id:trans119_0"
-" trans-rhs120_0))"
+" id:trans113_0"
+" trans-rhs114_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_0))))))"
 "(values"
 "(cons"
-" id:trans145_0"
+" id:trans139_0"
 " id:trans_1)"
 "(cons"
-" trans-rhs146_0"
+" trans-rhs140_0"
 " trans-rhs_1))))))"
 "(values"
 " id:trans_2"
@@ -69680,9 +69583,9 @@ static const char *startup_source =
 " id:trans_0)"
 "(reverse$1"
 " trans-rhs_0)))))))))"
-"((id:val116_0"
-" val-rhs117_0"
-" body118_0)"
+"((id:val110_0"
+" val-rhs111_0"
+" body112_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -69693,8 +69596,8 @@ static const char *startup_source =
 " s_5)"
 " s_5)))"
 "(if(pair? s_6)"
-"(let-values(((id:val122_0"
-" val-rhs123_0)"
+"(let-values(((id:val116_0"
+" val-rhs117_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -69749,8 +69652,8 @@ static const char *startup_source =
 "(let-values(((id:val_2"
 " val-rhs_2)"
 "(let-values()"
-"(let-values(((id:val148_0"
-" val-rhs149_0)"
+"(let-values(((id:val142_0"
+" val-rhs143_0)"
 "(let-values()"
 "(let-values(((s_10)"
 "(if(syntax?$1"
@@ -69760,7 +69663,7 @@ static const char *startup_source =
 " s_9)))"
 "(if(pair?"
 " s_10)"
-"(let-values(((id:val125_0)"
+"(let-values(((id:val119_0)"
 "(let-values(((s_11)"
 "(car"
 " s_10)))"
@@ -69809,7 +69712,7 @@ static const char *startup_source =
 " id:val_2))"
 "(let-values(((id:val_4)"
 "(let-values()"
-"(let-values(((id:val150_0)"
+"(let-values(((id:val144_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -69829,7 +69732,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_13)))))"
 "(cons"
-" id:val150_0"
+" id:val144_0"
 " id:val_3)))))"
 "(values"
 " id:val_4)))))"
@@ -69845,7 +69748,7 @@ static const char *startup_source =
 " lst_2)))))"
 "(reverse$1"
 " id:val_2))))))))"
-"((val-rhs126_0)"
+"((val-rhs120_0)"
 "(let-values(((s_11)"
 "(cdr"
 " s_10)))"
@@ -69857,7 +69760,7 @@ static const char *startup_source =
 " s_11)))"
 "(if(pair?"
 " s_12)"
-"(let-values(((val-rhs127_0)"
+"(let-values(((val-rhs121_0)"
 "(let-values(((s_13)"
 "(car"
 " s_12)))"
@@ -69880,24 +69783,24 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                                       \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" val-rhs127_0))"
+" val-rhs121_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id:val125_0"
-" val-rhs126_0))"
+" id:val119_0"
+" val-rhs120_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_0))))))"
 "(values"
 "(cons"
-" id:val148_0"
+" id:val142_0"
 " id:val_1)"
 "(cons"
-" val-rhs149_0"
+" val-rhs143_0"
 " val-rhs_1))))))"
 "(values"
 " id:val_2"
@@ -69923,7 +69826,7 @@ static const char *startup_source =
 " id:val_0)"
 "(reverse$1"
 " val-rhs_0)))))))))"
-"((body124_0)"
+"((body118_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
@@ -69953,59 +69856,59 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0))))))))"
 "(values"
-" id:val122_0"
-" val-rhs123_0"
-" body124_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                       \"bad syntax\""
-" orig-s_0))))))"
-"(values"
-" id:trans114_0"
-" trans-rhs115_0"
 " id:val116_0"
 " val-rhs117_0"
 " body118_0))"
 "(raise-syntax-error$1"
 " #f"
+"                                                                                                       \"bad syntax\""
+" orig-s_0))))))"
+"(values"
+" id:trans108_0"
+" trans-rhs109_0"
+" id:val110_0"
+" val-rhs111_0"
+" body112_0))"
+"(raise-syntax-error$1"
+" #f"
 "                                                                                   \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" letrec-syntaxes+values108_0"
-" id:trans109_0"
-" trans-rhs110_0"
-" id:val111_0"
-" val-rhs112_0"
-" body113_0))"
-"                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values"
-" #t"
 " letrec-syntaxes+values102_0"
 " id:trans103_0"
 " trans-rhs104_0"
 " id:val105_0"
 " val-rhs106_0"
-" body107_0)))"
+" body107_0))"
+"                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
+"(values"
+" #t"
+" letrec-syntaxes+values96_0"
+" id:trans97_0"
+" trans-rhs98_0"
+" id:val99_0"
+" val-rhs100_0"
+" body101_0)))"
 "(values #f #f #f #f #f #f #f)))))"
-"(let-values(((ok?_1 let-values128_0 id:val129_0 val-rhs130_0 body131_0)"
+"(let-values(((ok?_1 let-values122_0 id:val123_0 val-rhs124_0 body125_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(if(not syntaxes?_0) #t #f)"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((let-values128_0 id:val129_0 val-rhs130_0 body131_0)"
+"(let-values(((let-values122_0 id:val123_0 val-rhs124_0 body125_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((let-values132_0)"
+"(let-values(((let-values126_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((id:val133_0 val-rhs134_0 body135_0)"
+"((id:val127_0 val-rhs128_0 body129_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((id:val136_0"
-" val-rhs137_0)"
+"(let-values(((id:val130_0"
+" val-rhs131_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
@@ -70060,8 +69963,8 @@ static const char *startup_source =
 "(let-values(((id:val_2"
 " val-rhs_2)"
 "(let-values()"
-"(let-values(((id:val151_0"
-" val-rhs152_0)"
+"(let-values(((id:val145_0"
+" val-rhs146_0)"
 "(let-values()"
 "(let-values(((s_8)"
 "(if(syntax?$1"
@@ -70071,7 +69974,7 @@ static const char *startup_source =
 " s_7)))"
 "(if(pair?"
 " s_8)"
-"(let-values(((id:val139_0)"
+"(let-values(((id:val133_0)"
 "(let-values(((s_9)"
 "(car"
 " s_8)))"
@@ -70120,7 +70023,7 @@ static const char *startup_source =
 " id:val_2))"
 "(let-values(((id:val_4)"
 "(let-values()"
-"(let-values(((id:val153_0)"
+"(let-values(((id:val147_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -70140,7 +70043,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_11)))))"
 "(cons"
-" id:val153_0"
+" id:val147_0"
 " id:val_3)))))"
 "(values"
 " id:val_4)))))"
@@ -70156,7 +70059,7 @@ static const char *startup_source =
 " lst_2)))))"
 "(reverse$1"
 " id:val_2))))))))"
-"((val-rhs140_0)"
+"((val-rhs134_0)"
 "(let-values(((s_9)"
 "(cdr"
 " s_8)))"
@@ -70168,7 +70071,7 @@ static const char *startup_source =
 " s_9)))"
 "(if(pair?"
 " s_10)"
-"(let-values(((val-rhs141_0)"
+"(let-values(((val-rhs135_0)"
 "(let-values(((s_11)"
 "(car"
 " s_10)))"
@@ -70191,24 +70094,24 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" val-rhs141_0))"
+" val-rhs135_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id:val139_0"
-" val-rhs140_0))"
+" id:val133_0"
+" val-rhs134_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_0))))))"
 "(values"
 "(cons"
-" id:val151_0"
+" id:val145_0"
 " id:val_1)"
 "(cons"
-" val-rhs152_0"
+" val-rhs146_0"
 " val-rhs_1))))))"
 "(values"
 " id:val_2"
@@ -70234,7 +70137,7 @@ static const char *startup_source =
 " id:val_0)"
 "(reverse$1"
 " val-rhs_0)))))))))"
-"((body138_0)"
+"((body132_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -70264,20 +70167,20 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0))))))))"
 "(values"
-" id:val136_0"
-" val-rhs137_0"
-" body138_0))"
+" id:val130_0"
+" val-rhs131_0"
+" body132_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" let-values132_0"
-" id:val133_0"
-" val-rhs134_0"
-" body135_0))"
+" let-values126_0"
+" id:val127_0"
+" val-rhs128_0"
+" body129_0))"
 "                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t let-values128_0 id:val129_0 val-rhs130_0 body131_0)))"
+"(values #t let-values122_0 id:val123_0 val-rhs124_0 body125_0)))"
 "(values #f #f #f #f #f)))))"
 "(let-values(((sc_0)(new-scope 'local)))"
 "(let-values(((body-sc_0)(if rec?_0(new-scope 'letrec-body) #f)))"
@@ -70285,7 +70188,7 @@ static const char *startup_source =
 "(let-values(((frame-id_0)(if syntaxes?_0(make-reference-record) #f)))"
 "(let-values(((trans-idss_0)"
 "(reverse$1"
-"(let-values(((lst_0)(if syntaxes?_0 id:trans103_0 null)))"
+"(let-values(((lst_0)(if syntaxes?_0 id:trans97_0 null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
@@ -70363,7 +70266,7 @@ static const char *startup_source =
 " lst_0))))))"
 "(let-values(((val-idss_0)"
 "(reverse$1"
-"(let-values(((lst_0)(if syntaxes?_0 id:val105_0 id:val129_0)))"
+"(let-values(((lst_0)(if syntaxes?_0 id:val99_0 id:val123_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
@@ -70444,7 +70347,7 @@ static const char *startup_source =
 "(if rec?_0"
 "(reverse$1"
 "(let-values(((lst_0)"
-"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))"
+"(if syntaxes?_0 val-rhs100_0 val-rhs124_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -70481,17 +70384,17 @@ static const char *startup_source =
 " for-loop_0)"
 " null"
 " lst_0))))"
-"(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))"
+"(if syntaxes?_0 val-rhs100_0 val-rhs124_0))))"
 "(let-values(((val-clauses_0)"
 "(if syntaxes?_0"
 "(let-values()"
-"(let-values(((ok?_2 _154_0 _155_0 clause156_0 _157_0)"
+"(let-values(((ok?_2 _148_0 _149_0 clause150_0 _151_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((_154_0"
-" _155_0"
-" clause156_0"
-" _157_0)"
+"(let-values(((_148_0"
+" _149_0"
+" clause150_0"
+" _151_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -70499,14 +70402,14 @@ static const char *startup_source =
 " s_1)"
 " s_1)))"
 "(if(pair? s_2)"
-"(let-values(((_158_0)"
+"(let-values(((_152_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((_159_0"
-" clause160_0"
-" _161_0)"
+"((_153_0"
+" clause154_0"
+" _155_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -70518,13 +70421,13 @@ static const char *startup_source =
 " s_3)))"
 "(if(pair?"
 " s_4)"
-"(let-values(((_162_0)"
+"(let-values(((_156_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
 " s_5))"
-"((clause163_0"
-" _164_0)"
+"((clause157_0"
+" _158_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -70536,7 +70439,7 @@ static const char *startup_source =
 " s_5)))"
 "(if(pair?"
 " s_6)"
-"(let-values(((clause165_0)"
+"(let-values(((clause159_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -70558,47 +70461,47 @@ static const char *startup_source =
 " orig-s_0))"
 "(let-values()"
 " flat-s_0))))))"
-"((_166_0)"
+"((_160_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
 " s_7)))"
 "(values"
-" clause165_0"
-" _166_0))"
+" clause159_0"
+" _160_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                         \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _162_0"
-" clause163_0"
-" _164_0))"
+" _156_0"
+" clause157_0"
+" _158_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                     \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _158_0"
-" _159_0"
-" clause160_0"
-" _161_0))"
+" _152_0"
+" _153_0"
+" clause154_0"
+" _155_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                 \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" _154_0"
-" _155_0"
-" clause156_0"
-" _157_0))))))"
-" clause156_0))"
+" _148_0"
+" _149_0"
+" clause150_0"
+" _151_0))))))"
+" clause150_0))"
 "(let-values()"
-"(let-values(((ok?_2 _167_0 clause168_0 _169_0)"
+"(let-values(((ok?_2 _161_0 clause162_0 _163_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((_167_0 clause168_0 _169_0)"
+"(let-values(((_161_0 clause162_0 _163_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -70606,13 +70509,13 @@ static const char *startup_source =
 " s_1)"
 " s_1)))"
 "(if(pair? s_2)"
-"(let-values(((_170_0)"
+"(let-values(((_164_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((clause171_0"
-" _172_0)"
+"((clause165_0"
+" _166_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -70624,7 +70527,7 @@ static const char *startup_source =
 " s_3)))"
 "(if(pair?"
 " s_4)"
-"(let-values(((clause173_0)"
+"(let-values(((clause167_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
@@ -70646,42 +70549,42 @@ static const char *startup_source =
 " orig-s_0))"
 "(let-values()"
 " flat-s_0))))))"
-"((_174_0)"
+"((_168_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
 " s_5)))"
 "(values"
-" clause173_0"
-" _174_0))"
+" clause167_0"
+" _168_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                     \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _170_0"
-" clause171_0"
-" _172_0))"
+" _164_0"
+" clause165_0"
+" _166_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                 \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" _167_0"
-" clause168_0"
-" _169_0))))))"
-" clause168_0)))))"
+" _161_0"
+" clause162_0"
+" _163_0))))))"
+" clause162_0)))))"
 "(let-values((()"
 "(begin"
-"(let-values(((temp142_0)(list trans-idss_0 val-idss_0))"
-"((phase143_0) phase_0)"
-"((s144_0) s_0))"
-"(check-no-duplicate-ids7.1"
+"(let-values(((temp136_0)(list trans-idss_0 val-idss_0))"
+"((phase137_0) phase_0)"
+"((s138_0) s_0))"
+"(check-no-duplicate-ids.1"
 " unsafe-undefined"
-" temp142_0"
-" phase143_0"
-" s144_0"
+" temp136_0"
+" phase137_0"
+" s138_0"
 " unsafe-undefined))"
 "(values))))"
 "(let-values(((counter_0)(root-expand-context-counter ctx_0)))"
@@ -70743,25 +70646,25 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id175_0)"
+"(let-values(((id169_0)"
 " id_0)"
-"((phase176_0)"
+"((phase170_0)"
 " phase_0)"
-"((counter177_0)"
+"((counter171_0)"
 " counter_0)"
-"((frame-id178_0)"
+"((frame-id172_0)"
 " frame-id_0)"
-"((s179_0)"
+"((s173_0)"
 " s_0)"
-"((local-sym180_0)"
+"((local-sym174_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
-" frame-id178_0"
-" s179_0"
-" local-sym180_0"
-" id175_0"
-" phase176_0"
-" counter177_0)))"
+"(add-local-binding!.1"
+" frame-id172_0"
+" s173_0"
+" local-sym174_0"
+" id169_0"
+" phase170_0"
+" counter171_0)))"
 " fold-var_3))))"
 "(values"
 " fold-var_4)))))"
@@ -70843,25 +70746,25 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id181_0)"
+"(let-values(((id175_0)"
 " id_0)"
-"((phase182_0)"
+"((phase176_0)"
 " phase_0)"
-"((counter183_0)"
+"((counter177_0)"
 " counter_0)"
-"((frame-id184_0)"
+"((frame-id178_0)"
 " frame-id_0)"
-"((s185_0)"
+"((s179_0)"
 " s_0)"
-"((local-sym186_0)"
+"((local-sym180_0)"
 " local-sym_0))"
-"(add-local-binding!39.1"
-" frame-id184_0"
-" s185_0"
-" local-sym186_0"
-" id181_0"
-" phase182_0"
-" counter183_0)))"
+"(add-local-binding!.1"
+" frame-id178_0"
+" s179_0"
+" local-sym180_0"
+" id175_0"
+" phase176_0"
+" counter177_0)))"
 " fold-var_3))))"
 "(values"
 " fold-var_4)))))"
@@ -70891,8 +70794,8 @@ static const char *startup_source =
 "(reverse$1"
 "(let-values(((lst_0)"
 "(if syntaxes?_0"
-" body107_0"
-" body131_0)))"
+" body101_0"
+" body125_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -70950,7 +70853,7 @@ static const char *startup_source =
 " val-rhss_0"
 " bodys_0"
 " trans-idss_0"
-"(if syntaxes?_0 trans-rhs104_0 #f)"
+"(if syntaxes?_0 trans-rhs98_0 #f)"
 " sc_0))"
 "(void)))"
 "(values))))"
@@ -70976,7 +70879,7 @@ static const char *startup_source =
 "(reverse$1"
 "(let-values(((lst_0)"
 "(if syntaxes?_0"
-" trans-rhs104_0"
+" trans-rhs98_0"
 " '()))"
 "((lst_1) trans-idss_0))"
 "(begin"
@@ -71351,9 +71254,9 @@ static const char *startup_source =
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((env187_0)"
+"(let-values(((env181_0)"
 " rec-env_0)"
-"((scopes188_0)"
+"((scopes182_0)"
 "(let-values(((scopes_0)"
 "(cons"
 " sc_0"
@@ -71364,24 +71267,24 @@ static const char *startup_source =
 " body-sc_0"
 " scopes_0)"
 " scopes_0)))"
-"((reference-records189_0)"
+"((reference-records183_0)"
 "(if split-by-reference?_0"
 "(cons"
 " frame-id_0"
 " orig-rrs_0)"
 " orig-rrs_0))"
-"((binding-layer190_0)"
+"((binding-layer184_0)"
 "(increment-binding-layer"
 "(cons"
 " trans-idss_0"
 " val-idss_0)"
 " ctx_0"
 " sc_0))"
-"((inner191_0)"
+"((inner185_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner191_0"
+" inner185_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -71390,12 +71293,12 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-context"
 " the-struct_0)"
-" env187_0"
-" scopes188_0"
+" env181_0"
+" scopes182_0"
 "(expand-context/outer-def-ctx-scopes"
 " the-struct_0)"
-" binding-layer190_0"
-" reference-records189_0"
+" binding-layer184_0"
+" reference-records183_0"
 "(expand-context/outer-only-immediate?"
 " the-struct_0)"
 "(expand-context/outer-need-eventually-defined"
@@ -71418,18 +71321,18 @@ static const char *startup_source =
 "(core-id"
 " 'letrec-values"
 " phase_0)"
-" let-values128_0)"
+" let-values122_0)"
 " #f)))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx192_0) ctx_0)"
-"((s193_0) s_0)"
-"((temp194_0) #t))"
-"(keep-as-needed119.1"
+"(let-values(((ctx186_0) ctx_0)"
+"((s187_0) s_0)"
+"((temp188_0) #t))"
+"(keep-as-needed.1"
 " #f"
-" temp194_0"
+" temp188_0"
 " #f"
-" ctx192_0"
-" s193_0))))"
+" ctx186_0"
+" s187_0))))"
 "(let-values(((val-name-idss_0)"
 "(if(expand-context-to-parsed?"
 " ctx_0)"
@@ -71573,13 +71476,13 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((reference-records198_0)"
+"(let-values(((reference-records192_0)"
 " orig-rrs_0)"
-"((inner199_0)"
+"((inner193_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner199_0"
+" inner193_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -71596,7 +71499,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-binding-layer"
 " the-struct_0)"
-" reference-records198_0"
+" reference-records192_0"
 "(expand-context/outer-only-immediate?"
 " the-struct_0)"
 "(expand-context/outer-need-eventually-defined"
@@ -71611,23 +71514,23 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                                         \"expand-context/outer?\""
 " the-struct_0))))))"
-"(let-values(((bodys195_0)"
+"(let-values(((bodys189_0)"
 " bodys_0)"
-"((temp196_0)"
-"(let-values(((body-ctx200_0)"
+"((temp190_0)"
+"(let-values(((body-ctx194_0)"
 " body-ctx_0)"
-"((ctx201_0)"
+"((ctx195_0)"
 " ctx_0))"
-"(as-tail-context24.1"
-" ctx201_0"
-" body-ctx200_0)))"
-"((rebuild-s197_0)"
+"(as-tail-context.1"
+" ctx195_0"
+" body-ctx194_0)))"
+"((rebuild-s191_0)"
 " rebuild-s_0))"
-"(expand-body7.1"
-" rebuild-s197_0"
+"(expand-body.1"
+" rebuild-s191_0"
 " #f"
-" bodys195_0"
-" temp196_0))))))))"
+" bodys189_0"
+" temp190_0))))))))"
 "(let-values(((result-s_0)"
 "(if(not"
 " split-by-reference?_0)"
@@ -71731,9 +71634,9 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-rhs_0)"
-"(let-values(((rhs202_0)"
+"(let-values(((rhs196_0)"
 " rhs_0)"
-"((temp203_0)"
+"((temp197_0)"
 "(if rec?_0"
 "(as-named-context"
 " rec-ctx_0"
@@ -71741,12 +71644,12 @@ static const char *startup_source =
 "(as-named-context"
 " expr-ctx_0"
 " ids_0))))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" rhs202_0"
-" temp203_0))))"
+" rhs196_0"
+" temp197_0))))"
 "(if(expand-context-to-parsed?"
 " ctx_0)"
 "(list"
@@ -71799,52 +71702,52 @@ static const char *startup_source =
 " val-name-idss_0"
 " clauses_0"
 " exp-body_0))"
-"(let-values(((rebuild-s204_0)"
+"(let-values(((rebuild-s198_0)"
 " rebuild-s_0)"
-"((temp205_0)"
+"((temp199_0)"
 "(list*"
 " letrec-values-id_0"
 " clauses_0"
 " exp-body_0)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" rebuild-s204_0"
-" temp205_0)))))))"
+" rebuild-s198_0"
+" temp199_0)))))))"
 "(let-values()"
-"(let-values(((val-idss206_0)"
+"(let-values(((val-idss200_0)"
 " val-idss_0)"
-"((val-keyss207_0)"
+"((val-keyss201_0)"
 " val-keyss_0)"
-"((val-rhss208_0)"
+"((val-rhss202_0)"
 " val-rhss_0)"
-"((val-clauses209_0)"
+"((val-clauses203_0)"
 " val-clauses_0)"
-"((temp210_0)"
+"((temp204_0)"
 " #t)"
-"((frame-id211_0)"
+"((frame-id205_0)"
 " frame-id_0)"
-"((rec-ctx212_0)"
+"((rec-ctx206_0)"
 " rec-ctx_0)"
-"((rebuild-s213_0)"
+"((rebuild-s207_0)"
 " rebuild-s_0)"
-"((syntaxes?214_0)"
+"((syntaxes?208_0)"
 " syntaxes?_0)"
-"((get-body215_0)"
+"((get-body209_0)"
 " get-body_0)"
-"((temp216_0)"
+"((temp210_0)"
 " #t))"
-"(expand-and-split-bindings-by-reference54.1"
-" rec-ctx212_0"
-" frame-id211_0"
-" get-body215_0"
-" syntaxes?214_0"
-" rebuild-s213_0"
+"(expand-and-split-bindings-by-reference.1"
+" rec-ctx206_0"
+" frame-id205_0"
+" get-body209_0"
+" syntaxes?208_0"
+" rebuild-s207_0"
+" temp204_0"
 " temp210_0"
-" temp216_0"
-" val-idss206_0"
-" val-keyss207_0"
-" val-rhss208_0"
-" val-clauses209_0))))))"
+" val-idss200_0"
+" val-keyss201_0"
+" val-rhss202_0"
+" val-clauses203_0))))))"
 "(if(expand-context-to-parsed?"
 " ctx_0)"
 " result-s_0"
@@ -71948,21 +71851,21 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " 'let-values"
-"(let-values(((temp217_0) 'prim-let-values))(make-let-values-form11.1 temp217_0 #f 'let-renames #f #f))))"
+"(let-values(((temp211_0) 'prim-let-values))(make-let-values-form.1 temp211_0 #f 'let-renames #f #f))))"
 "(void"
 "(add-core-form!*"
 " 'letrec-values"
-"(let-values(((temp218_0) #t)((temp219_0) 'prim-letrec-values))"
-"(make-let-values-form11.1 temp219_0 temp218_0 'let-renames #f #f))))"
+"(let-values(((temp212_0) #t)((temp213_0) 'prim-letrec-values))"
+"(make-let-values-form.1 temp213_0 temp212_0 'let-renames #f #f))))"
 "(void"
 "(add-core-form!*"
 " 'letrec-syntaxes+values"
-"(let-values(((temp220_0) #t)"
-"((temp221_0) #t)"
-"((temp222_0) #t)"
-"((temp223_0) 'prim-letrec-syntaxes+values)"
-"((temp224_0) 'letrec-syntaxes-renames))"
-"(make-let-values-form11.1 temp223_0 temp221_0 temp224_0 temp222_0 temp220_0))))"
+"(let-values(((temp214_0) #t)"
+"((temp215_0) #t)"
+"((temp216_0) #t)"
+"((temp217_0) 'prim-letrec-syntaxes+values)"
+"((temp218_0) 'letrec-syntaxes-renames))"
+"(make-let-values-form.1 temp217_0 temp215_0 temp218_0 temp216_0 temp214_0))))"
 "(void"
 "(add-core-form!*"
 " '#%stratified-body"
@@ -71973,15 +71876,15 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-#%stratified)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 #%stratified-body225_0 body226_0)"
+"(let-values(((ok?_0 #%stratified-body219_0 body220_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%stratified-body225_0 body226_0)"
+"(let-values(((#%stratified-body219_0 body220_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%stratified-body227_0)"
+"(let-values(((#%stratified-body221_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((body228_0)"
+"((body222_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
@@ -71993,26 +71896,26 @@ static const char *startup_source =
 "(let-values()"
 "                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))"
 "(let-values() flat-s_0))))))))"
-"(values #%stratified-body227_0 body228_0))"
+"(values #%stratified-body221_0 body222_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%stratified-body225_0 body226_0))))))"
+"(values #t #%stratified-body219_0 body220_0))))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx229_0) ctx_0)((s230_0) s_0)((temp231_0) #t))"
-"(keep-as-needed119.1 #f temp231_0 #f ctx229_0 s230_0))))"
+"(let-values(((ctx223_0) ctx_0)((s224_0) s_0)((temp225_0) #t))"
+"(keep-as-needed.1 #f temp225_0 #f ctx223_0 s224_0))))"
 "(let-values(((exp-body_0)"
-"(let-values(((temp232_0) body226_0)"
-"((ctx233_0) ctx_0)"
-"((temp234_0) #t)"
-"((rebuild-s235_0) rebuild-s_0))"
-"(expand-body7.1 rebuild-s235_0 temp234_0 temp232_0 ctx233_0))))"
+"(let-values(((temp226_0) body220_0)"
+"((ctx227_0) ctx_0)"
+"((temp228_0) #t)"
+"((rebuild-s229_0) rebuild-s_0))"
+"(expand-body.1 rebuild-s229_0 temp228_0 temp226_0 ctx227_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-begin12.1 rebuild-s_0 exp-body_0)"
-"(let-values(((rebuild-s236_0) rebuild-s_0)"
-"((temp237_0)"
+"(let-values(((rebuild-s230_0) rebuild-s_0)"
+"((temp231_0)"
 "(if(null?(cdr exp-body_0))"
 "(car exp-body_0)"
 "(list*(core-id 'begin(expand-context-phase ctx_0)) exp-body_0))))"
-"(rebuild5.1 #t rebuild-s236_0 temp237_0)))))))))))"
+"(rebuild.1 #t rebuild-s230_0 temp231_0)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%datum"
@@ -72023,18 +71926,18 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-#%datum)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 #%datum238_0 datum239_0)"
+"(let-values(((ok?_0 #%datum232_0 datum233_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%datum238_0 datum239_0)"
+"(let-values(((#%datum232_0 datum233_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%datum240_0)(let-values(((s_3)(car s_2))) s_3))"
-"((datum241_0)(let-values(((s_3)(cdr s_2))) s_3)))"
-"(values #%datum240_0 datum241_0))"
+"(let-values(((#%datum234_0)(let-values(((s_3)(car s_2))) s_3))"
+"((datum235_0)(let-values(((s_3)(cdr s_2))) s_3)))"
+"(values #%datum234_0 datum235_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%datum238_0 datum239_0))))))"
-"(let-values(((datum_0) datum239_0))"
+"(values #t #%datum232_0 datum233_0))))))"
+"(let-values(((datum_0) datum233_0))"
 "(let-values((()"
 "(begin"
 "(if(if(syntax?$1 datum_0)(keyword?(syntax-e$1 datum_0)) #f)"
@@ -72045,8 +71948,8 @@ static const char *startup_source =
 "(let-values(((phase_0)(expand-context-phase ctx_0)))"
 "(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)"
 "(parsed-quote14.1(keep-properties-only~ s_0)(syntax->datum$1 datum_0))"
-"(let-values(((s242_0) s_0)((temp243_0)(list(core-id 'quote phase_0) datum_0)))"
-"(rebuild5.1 #t s242_0 temp243_0))))))))))))"
+"(let-values(((s236_0) s_0)((temp237_0)(list(core-id 'quote phase_0) datum_0)))"
+"(rebuild.1 #t s236_0 temp237_0))))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%app"
@@ -72057,14 +71960,14 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-#%app)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 #%app244_0 e245_0)"
+"(let-values(((ok?_0 #%app238_0 e239_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%app244_0 e245_0)"
+"(let-values(((#%app238_0 e239_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%app246_0)(let-values(((s_3)(car s_2))) s_3))"
-"((e247_0)"
+"(let-values(((#%app240_0)(let-values(((s_3)(car s_2))) s_3))"
+"((e241_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
@@ -72073,31 +71976,31 @@ static const char *startup_source =
 "(let-values()"
 "                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))"
 "(let-values() flat-s_0)))))))"
-"(values #%app246_0 e247_0))"
+"(values #%app240_0 e241_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%app244_0 e245_0))))))"
-"(let-values(((es_0) e245_0))"
+"(values #t #%app238_0 e239_0))))))"
+"(let-values(((es_0) e239_0))"
 "(if(null? es_0)"
 "(let-values()"
 "(let-values(((phase_0)(expand-context-phase ctx_0)))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-quote14.1(keep-properties-only~ s_0) null)"
-"(let-values(((s248_0) s_0)((temp249_0)(list(core-id 'quote phase_0) null)))"
-"(rebuild5.1 #t s248_0 temp249_0)))))"
+"(let-values(((s242_0) s_0)((temp243_0)(list(core-id 'quote phase_0) null)))"
+"(rebuild.1 #t s242_0 temp243_0)))))"
 "(let-values()"
 "(let-values(((keep-for-parsed?_0) keep-source-locations?))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx250_0) ctx_0)"
-"((s251_0) s_0)"
-"((keep-for-parsed?252_0) keep-for-parsed?_0))"
-"(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 s251_0))))"
+"(let-values(((ctx244_0) ctx_0)"
+"((s245_0) s_0)"
+"((keep-for-parsed?246_0) keep-for-parsed?_0))"
+"(keep-as-needed.1 #f #f keep-for-parsed?246_0 ctx244_0 s245_0))))"
 "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_0))))"
 "(let-values(((rebuild-prefixless_0)"
 "(if(syntax?$1 prefixless_0)"
-"(let-values(((ctx253_0) ctx_0)"
-"((prefixless254_0) prefixless_0)"
-"((keep-for-parsed?255_0) keep-for-parsed?_0))"
-"(keep-as-needed119.1 #f #f keep-for-parsed?255_0 ctx253_0 prefixless254_0))"
+"(let-values(((ctx247_0) ctx_0)"
+"((prefixless248_0) prefixless_0)"
+"((keep-for-parsed?249_0) keep-for-parsed?_0))"
+"(keep-as-needed.1 #f #f keep-for-parsed?249_0 ctx247_0 prefixless248_0))"
 " #f)))"
 "(let-values(((expr-ctx_0)(as-expression-context ctx_0)))"
 "(let-values((()"
@@ -72116,8 +72019,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((rest-es_0)(cdr es_0)))"
 "(let-values(((exp-rator_0)"
-"(let-values(((temp256_0)(car es_0))((expr-ctx257_0) expr-ctx_0))"
-"(expand9.1 #f #f #f temp256_0 expr-ctx257_0))))"
+"(let-values(((temp250_0)(car es_0))((expr-ctx251_0) expr-ctx_0))"
+"(expand.1 #f #f #f temp250_0 expr-ctx251_0))))"
 "(let-values(((exp-es_0)"
 "(reverse$1"
 "(let-values(((lst_0) rest-es_0))"
@@ -72150,16 +72053,16 @@ static const char *startup_source =
 " obs_0"
 " 'next)))"
 "(void)))"
-"(let-values(((e258_0)"
+"(let-values(((e252_0)"
 " e_0)"
-"((expr-ctx259_0)"
+"((expr-ctx253_0)"
 " expr-ctx_0))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" e258_0"
-" expr-ctx259_0))))"
+" e252_0"
+" expr-ctx253_0))))"
 " fold-var_1))))"
 "(values fold-var_2)))))"
 "(if(not #f)"
@@ -72180,9 +72083,9 @@ static const char *startup_source =
 "(let-values(((es_1)"
 "(let-values(((exp-es_1)(cons exp-rator_0 exp-es_0)))"
 "(if rebuild-prefixless_0"
-"(let-values(((rebuild-prefixless262_0) rebuild-prefixless_0)"
-"((exp-es263_0) exp-es_1))"
-"(rebuild5.1 #t rebuild-prefixless262_0 exp-es263_0))"
+"(let-values(((rebuild-prefixless256_0) rebuild-prefixless_0)"
+"((exp-es257_0) exp-es_1))"
+"(rebuild.1 #t rebuild-prefixless256_0 exp-es257_0))"
 " exp-es_1))))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer expr-ctx_0)))"
@@ -72194,9 +72097,9 @@ static const char *startup_source =
 " 'exit-list"
 "(datum->syntax$1 #f es_1 rebuild-s_0))))"
 "(void)))"
-"(let-values(((rebuild-s260_0) rebuild-s_0)"
-"((temp261_0)(cons #%app244_0 es_1)))"
-"(rebuild5.1 #t rebuild-s260_0 temp261_0))))))))))))))))))))))))"
+"(let-values(((rebuild-s254_0) rebuild-s_0)"
+"((temp255_0)(cons #%app238_0 es_1)))"
+"(rebuild.1 #t rebuild-s254_0 temp255_0))))))))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'quote"
@@ -72206,19 +72109,19 @@ static const char *startup_source =
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-quote)))(void)))"
 "(values))))"
-"(let-values(((ok?_0 quote264_0 datum265_0)"
+"(let-values(((ok?_0 quote258_0 datum259_0)"
 "(let-values(((s_1)(syntax-disarm$1 s_0)))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((quote264_0 datum265_0)"
+"(let-values(((quote258_0 datum259_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((quote266_0)(let-values(((s_3)(car s_2))) s_3))"
-"((datum267_0)"
+"(let-values(((quote260_0)(let-values(((s_3)(car s_2))) s_3))"
+"((datum261_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((datum268_0)"
+"(let-values(((datum262_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
@@ -72232,13 +72135,13 @@ static const char *startup_source =
 " #f"
 "                                                                                    \"bad syntax\""
 " orig-s_0))))))"
-"(values datum268_0))"
+"(values datum262_0))"
 "                                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values quote266_0 datum267_0))"
+"(values quote260_0 datum261_0))"
 "                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t quote264_0 datum265_0))))))"
+"(values #t quote258_0 datum259_0))))))"
 "(if(expand-context-to-parsed? ctx_0)"
-"(parsed-quote14.1(keep-properties-only~ s_0)(syntax->datum$1 datum265_0))"
+"(parsed-quote14.1(keep-properties-only~ s_0)(syntax->datum$1 datum259_0))"
 " s_0))))))"
 "(void"
 "(add-core-form!*"
@@ -72250,7 +72153,7 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-quote-syntax)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 quote-syntax269_0 datum270_0)"
+"(let-values(((ok?_0 quote-syntax263_0 datum264_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
@@ -72275,14 +72178,14 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((quote-syntax269_0 datum270_0)"
+"(let-values(((quote-syntax263_0 datum264_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
-"(let-values(((quote-syntax271_0)(let-values(((s_3)(car s_2))) s_3))"
-"((datum272_0)"
+"(let-values(((quote-syntax265_0)(let-values(((s_3)(car s_2))) s_3))"
+"((datum266_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
-"(let-values(((datum273_0)"
+"(let-values(((datum267_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
@@ -72311,26 +72214,26 @@ static const char *startup_source =
 " s_7)))"
 "(values)))))"
 "(values))))))"
-"(values datum273_0))))))"
-"(values quote-syntax271_0 datum272_0)))))"
-"(values #t quote-syntax269_0 datum270_0)))"
+"(values datum267_0))))))"
+"(values quote-syntax265_0 datum266_0)))))"
+"(values #t quote-syntax263_0 datum264_0)))"
 "(values #f #f #f)))))"
-"(let-values(((ok?_1 quote-syntax274_0 datum275_0)"
+"(let-values(((ok?_1 quote-syntax268_0 datum269_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(if(not ok?_0) #t #f)"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((quote-syntax274_0 datum275_0)"
+"(let-values(((quote-syntax268_0 datum269_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((quote-syntax276_0)(let-values(((s_3)(car s_2))) s_3))"
-"((datum277_0)"
+"(let-values(((quote-syntax270_0)(let-values(((s_3)(car s_2))) s_3))"
+"((datum271_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((datum278_0)"
+"(let-values(((datum272_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
@@ -72344,37 +72247,37 @@ static const char *startup_source =
 " #f"
 "                                                                                          \"bad syntax\""
 " orig-s_0))))))"
-"(values datum278_0))"
+"(values datum272_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
 " orig-s_0))))))"
-"(values quote-syntax276_0 datum277_0))"
+"(values quote-syntax270_0 datum271_0))"
 "                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t quote-syntax274_0 datum275_0)))"
+"(values #t quote-syntax268_0 datum269_0)))"
 "(values #f #f #f)))))"
 "(if ok?_0"
 "(let-values()"
 "(let-values((()"
 "(begin(reference-records-all-used!(expand-context-reference-records ctx_0))(values))))"
-"(let-values(((ok?_2 _279_0 _280_0 kw281_0)"
+"(let-values(((ok?_2 _273_0 _274_0 kw275_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((_279_0 _280_0 kw281_0)"
+"(let-values(((_273_0 _274_0 kw275_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((_282_0)(let-values(((s_3)(car s_2))) s_3))"
-"((_283_0 kw284_0)"
+"(let-values(((_276_0)(let-values(((s_3)(car s_2))) s_3))"
+"((_277_0 kw278_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((_285_0)"
+"(let-values(((_279_0)"
 "(let-values(((s_5)(car s_4)))"
 " s_5))"
-"((kw286_0)"
+"((kw280_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1"
@@ -72383,7 +72286,7 @@ static const char *startup_source =
 " s_5)"
 " s_5)))"
 "(if(pair? s_6)"
-"(let-values(((kw287_0)"
+"(let-values(((kw281_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -72405,33 +72308,33 @@ static const char *startup_source =
 " #f"
 "                                                                                                                    \"bad syntax\""
 " orig-s_0))))))"
-"(values kw287_0))"
+"(values kw281_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                \"bad syntax\""
 " orig-s_0))))))"
-"(values _285_0 kw286_0))"
+"(values _279_0 kw280_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                            \"bad syntax\""
 " orig-s_0))))))"
-"(values _282_0 _283_0 kw284_0))"
+"(values _276_0 _277_0 kw278_0))"
 "                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t _279_0 _280_0 kw281_0))))))"
+"(values #t _273_0 _274_0 kw275_0))))))"
 "(if(expand-context-to-parsed? ctx_0)"
-"(parsed-quote-syntax15.1(keep-properties-only~ s_0) datum270_0)"
-"(let-values(((s288_0) s_0)((temp289_0)(list quote-syntax269_0 datum270_0 kw281_0)))"
-"(rebuild5.1 #t s288_0 temp289_0))))))"
+"(parsed-quote-syntax15.1(keep-properties-only~ s_0) datum264_0)"
+"(let-values(((s282_0) s_0)((temp283_0)(list quote-syntax263_0 datum264_0 kw275_0)))"
+"(rebuild.1 #t s282_0 temp283_0))))))"
 "(let-values()"
 "(let-values(((use-site-scopes_0)(root-expand-context-use-site-scopes ctx_0)))"
 "(let-values(((datum-s_0)"
 "(remove-scopes"
-"(remove-scopes datum275_0(expand-context-scopes ctx_0))"
+"(remove-scopes datum269_0(expand-context-scopes ctx_0))"
 "(if use-site-scopes_0(unbox use-site-scopes_0) '()))))"
 "(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)"
 "(parsed-quote-syntax15.1(keep-properties-only~ s_0) datum-s_0)"
-"(let-values(((s290_0) s_0)((temp291_0)(list quote-syntax274_0 datum-s_0)))"
-"(rebuild5.1 #t s290_0 temp291_0))))))))))))))"
+"(let-values(((s284_0) s_0)((temp285_0)(list quote-syntax268_0 datum-s_0)))"
+"(rebuild.1 #t s284_0 temp285_0))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'if"
@@ -72442,7 +72345,7 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-if)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 _292_0 _293_0 _294_0)"
+"(let-values(((ok?_0 _286_0 _287_0 _288_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
@@ -72465,22 +72368,22 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((_292_0 _293_0 _294_0)"
+"(let-values(((_286_0 _287_0 _288_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
-"(let-values(((_295_0)(let-values(((s_3)(car s_2))) s_3))"
-"((_296_0 _297_0)"
+"(let-values(((_289_0)(let-values(((s_3)(car s_2))) s_3))"
+"((_290_0 _291_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
-"(let-values(((_298_0)"
+"(let-values(((_292_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
-"((_299_0)"
+"((_293_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
 "(syntax-e$1 s_5)"
 " s_5)))"
-"(let-values(((_300_0)"
+"(let-values(((_294_0)"
 "(let-values(((s_7)"
 "(car s_6)))"
 " s_7))"
@@ -72494,10 +72397,10 @@ static const char *startup_source =
 " s_7)"
 " s_7)))"
 "(values)))))"
-"(values _300_0))))))"
-"(values _298_0 _299_0))))))"
-"(values _295_0 _296_0 _297_0)))))"
-"(values #t _292_0 _293_0 _294_0)))"
+"(values _294_0))))))"
+"(values _292_0 _293_0))))))"
+"(values _289_0 _290_0 _291_0)))))"
+"(values #t _286_0 _287_0 _288_0)))"
 "(values #f #f #f #f)))))"
 "(let-values((()"
 "(begin"
@@ -72505,35 +72408,35 @@ static const char *startup_source =
 "                             (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_0))"
 "(void))"
 "(values))))"
-"(let-values(((ok?_1 if301_0 tst302_0 thn303_0 els304_0)"
+"(let-values(((ok?_1 if295_0 tst296_0 thn297_0 els298_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((if301_0 tst302_0 thn303_0 els304_0)"
+"(let-values(((if295_0 tst296_0 thn297_0 els298_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((if305_0)(let-values(((s_3)(car s_2))) s_3))"
-"((tst306_0 thn307_0 els308_0)"
+"(let-values(((if299_0)(let-values(((s_3)(car s_2))) s_3))"
+"((tst300_0 thn301_0 els302_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((tst309_0)"
+"(let-values(((tst303_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
-"((thn310_0 els311_0)"
+"((thn304_0 els305_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
 "(syntax-e$1 s_5)"
 " s_5)))"
 "(if(pair? s_6)"
-"(let-values(((thn312_0)"
+"(let-values(((thn306_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
 " s_7))"
-"((els313_0)"
+"((els307_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
@@ -72545,7 +72448,7 @@ static const char *startup_source =
 " s_7)))"
 "(if(pair?"
 " s_8)"
-"(let-values(((els314_0)"
+"(let-values(((els308_0)"
 "(let-values(((s_9)"
 "(car"
 " s_8)))"
@@ -72568,34 +72471,34 @@ static const char *startup_source =
 "                                                                                                                                  \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" els314_0))"
+" els308_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                              \"bad syntax\""
 " orig-s_0))))))"
-"(values thn312_0 els313_0))"
+"(values thn306_0 els307_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
 " orig-s_0))))))"
-"(values tst309_0 thn310_0 els311_0))"
+"(values tst303_0 thn304_0 els305_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
 " orig-s_0))))))"
-"(values if305_0 tst306_0 thn307_0 els308_0))"
+"(values if299_0 tst300_0 thn301_0 els302_0))"
 "                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t if301_0 tst302_0 thn303_0 els304_0))))))"
+"(values #t if295_0 tst296_0 thn297_0 els298_0))))))"
 "(let-values(((expr-ctx_0)(as-expression-context ctx_0)))"
 "(let-values(((tail-ctx_0)"
-"(let-values(((expr-ctx315_0) expr-ctx_0)((ctx316_0) ctx_0))"
-"(as-tail-context24.1 ctx316_0 expr-ctx315_0))))"
+"(let-values(((expr-ctx309_0) expr-ctx_0)((ctx310_0) ctx_0))"
+"(as-tail-context.1 ctx310_0 expr-ctx309_0))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx317_0) ctx_0)((s318_0) s_0))"
-"(keep-as-needed119.1 #f #f #f ctx317_0 s318_0))))"
+"(let-values(((ctx311_0) ctx_0)((s312_0) s_0))"
+"(keep-as-needed.1 #f #f #f ctx311_0 s312_0))))"
 "(let-values(((exp-tst_0)"
-"(let-values(((temp319_0) tst302_0)((expr-ctx320_0) expr-ctx_0))"
-"(expand9.1 #f #f #f temp319_0 expr-ctx320_0))))"
+"(let-values(((temp313_0) tst296_0)((expr-ctx314_0) expr-ctx_0))"
+"(expand.1 #f #f #f temp313_0 expr-ctx314_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -72604,8 +72507,8 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-thn_0)"
-"(let-values(((temp321_0) thn303_0)((tail-ctx322_0) tail-ctx_0))"
-"(expand9.1 #f #f #f temp321_0 tail-ctx322_0))))"
+"(let-values(((temp315_0) thn297_0)((tail-ctx316_0) tail-ctx_0))"
+"(expand.1 #f #f #f temp315_0 tail-ctx316_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -72614,13 +72517,13 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-els_0)"
-"(let-values(((temp323_0) els304_0)((tail-ctx324_0) tail-ctx_0))"
-"(expand9.1 #f #f #f temp323_0 tail-ctx324_0))))"
+"(let-values(((temp317_0) els298_0)((tail-ctx318_0) tail-ctx_0))"
+"(expand.1 #f #f #f temp317_0 tail-ctx318_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-if8.1 rebuild-s_0 exp-tst_0 exp-thn_0 exp-els_0)"
-"(let-values(((rebuild-s325_0) rebuild-s_0)"
-"((temp326_0)(list if301_0 exp-tst_0 exp-thn_0 exp-els_0)))"
-"(rebuild5.1 #t rebuild-s325_0 temp326_0)))))))))))))))))))"
+"(let-values(((rebuild-s319_0) rebuild-s_0)"
+"((temp320_0)(list if295_0 exp-tst_0 exp-thn_0 exp-els_0)))"
+"(rebuild.1 #t rebuild-s319_0 temp320_0)))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'with-continuation-mark"
@@ -72633,34 +72536,34 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 with-continuation-mark327_0 key328_0 val329_0 body330_0)"
+"(let-values(((ok?_0 with-continuation-mark321_0 key322_0 val323_0 body324_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((with-continuation-mark327_0 key328_0 val329_0 body330_0)"
+"(let-values(((with-continuation-mark321_0 key322_0 val323_0 body324_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((with-continuation-mark331_0)"
+"(let-values(((with-continuation-mark325_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((key332_0 val333_0 body334_0)"
+"((key326_0 val327_0 body328_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((key335_0)"
+"(let-values(((key329_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
-"((val336_0 body337_0)"
+"((val330_0 body331_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
 "(syntax-e$1 s_5)"
 " s_5)))"
 "(if(pair? s_6)"
-"(let-values(((val338_0)"
+"(let-values(((val332_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
 " s_7))"
-"((body339_0)"
+"((body333_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
@@ -72671,7 +72574,7 @@ static const char *startup_source =
 " s_7)"
 " s_7)))"
 "(if(pair? s_8)"
-"(let-values(((body340_0)"
+"(let-values(((body334_0)"
 "(let-values(((s_9)"
 "(car"
 " s_8)))"
@@ -72694,36 +72597,36 @@ static const char *startup_source =
 "                                                                                                                              \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" body340_0))"
+" body334_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
 " orig-s_0))))))"
-"(values val338_0 body339_0))"
+"(values val332_0 body333_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
 " orig-s_0))))))"
-"(values key335_0 val336_0 body337_0))"
+"(values key329_0 val330_0 body331_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values with-continuation-mark331_0 key332_0 val333_0 body334_0))"
+"(values with-continuation-mark325_0 key326_0 val327_0 body328_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t with-continuation-mark327_0 key328_0 val329_0 body330_0))))))"
+"(values #t with-continuation-mark321_0 key322_0 val323_0 body324_0))))))"
 "(let-values(((expr-ctx_0)(as-expression-context ctx_0)))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx341_0) ctx_0)((s342_0) s_0))"
-"(keep-as-needed119.1 #f #f #f ctx341_0 s342_0))))"
+"(let-values(((ctx335_0) ctx_0)((s336_0) s_0))"
+"(keep-as-needed.1 #f #f #f ctx335_0 s336_0))))"
 "(let-values(((exp-key_0)"
-"(let-values(((temp343_0) key328_0)((expr-ctx344_0) expr-ctx_0))"
-"(expand9.1 #f #f #f temp343_0 expr-ctx344_0))))"
+"(let-values(((temp337_0) key322_0)((expr-ctx338_0) expr-ctx_0))"
+"(expand.1 #f #f #f temp337_0 expr-ctx338_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'next)))(void)))"
 "(values))))"
 "(let-values(((exp-val_0)"
-"(let-values(((temp345_0) val329_0)((expr-ctx346_0) expr-ctx_0))"
-"(expand9.1 #f #f #f temp345_0 expr-ctx346_0))))"
+"(let-values(((temp339_0) val323_0)((expr-ctx340_0) expr-ctx_0))"
+"(expand.1 #f #f #f temp339_0 expr-ctx340_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -72732,25 +72635,25 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-body_0)"
-"(let-values(((temp347_0) body330_0)"
-"((temp348_0)"
-"(let-values(((expr-ctx349_0) expr-ctx_0)((ctx350_0) ctx_0))"
-"(as-tail-context24.1 ctx350_0 expr-ctx349_0))))"
-"(expand9.1 #f #f #f temp347_0 temp348_0))))"
+"(let-values(((temp341_0) body324_0)"
+"((temp342_0)"
+"(let-values(((expr-ctx343_0) expr-ctx_0)((ctx344_0) ctx_0))"
+"(as-tail-context.1 ctx344_0 expr-ctx343_0))))"
+"(expand.1 #f #f #f temp341_0 temp342_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-with-continuation-mark10.1 rebuild-s_0 exp-key_0 exp-val_0 exp-body_0)"
-"(let-values(((rebuild-s351_0) rebuild-s_0)"
-"((temp352_0)(list with-continuation-mark327_0 exp-key_0 exp-val_0 exp-body_0)))"
-"(rebuild5.1 #t rebuild-s351_0 temp352_0))))))))))))))))"
+"(let-values(((rebuild-s345_0) rebuild-s_0)"
+"((temp346_0)(list with-continuation-mark321_0 exp-key_0 exp-val_0 exp-body_0)))"
+"(rebuild.1 #t rebuild-s345_0 temp346_0))))))))))))))))"
 "(define-values"
-"(make-begin20.1)"
-"(lambda(last-is-tail?15_0 list-start-index14_0 log-tag18_0 parsed-begin19_0)"
+"(make-begin.1)"
+"(lambda(last-is-tail?13_0 list-start-index12_0 log-tag16_0 parsed-begin17_0)"
 "(begin"
-" 'make-begin20"
-"(let-values(((log-tag_0) log-tag18_0))"
-"(let-values(((parsed-begin_0) parsed-begin19_0))"
-"(let-values(((list-start-index_0) list-start-index14_0))"
-"(let-values(((last-is-tail?_0) last-is-tail?15_0))"
+" 'make-begin"
+"(let-values(((log-tag_0) log-tag16_0))"
+"(let-values(((parsed-begin_0) parsed-begin17_0))"
+"(let-values(((list-start-index_0) list-start-index12_0))"
+"(let-values(((last-is-tail?_0) last-is-tail?13_0))"
 "(let-values()"
 "(lambda(s_0 ctx_0)"
 "(let-values((()"
@@ -72761,15 +72664,15 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 begin353_0 e354_0)"
+"(let-values(((ok?_0 begin347_0 e348_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((begin353_0 e354_0)"
+"(let-values(((begin347_0 e348_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((begin355_0)"
+"(let-values(((begin349_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((e356_0)"
+"((e350_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
@@ -72790,16 +72693,16 @@ static const char *startup_source =
 "                                                                                     \"bad syntax\""
 " orig-s_0))"
 "(let-values() flat-s_0))))))))"
-"(values begin355_0 e356_0))"
+"(values begin349_0 e350_0))"
 "                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t begin353_0 e354_0))))))"
+"(values #t begin347_0 e348_0))))))"
 "(let-values(((expr-ctx_0)"
 "(if last-is-tail?_0"
 "(as-begin-expression-context ctx_0)"
 "(as-expression-context ctx_0))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx357_0) ctx_0)((s358_0) s_0))"
-"(keep-as-needed119.1 #f #f #f ctx357_0 s358_0))))"
+"(let-values(((ctx351_0) ctx_0)((s352_0) s_0))"
+"(keep-as-needed.1 #f #f #f ctx351_0 s352_0))))"
 "(let-values(((exp-es_0)"
 "((letrec-values(((loop_0)"
 "(lambda(es_0 index_0)"
@@ -72837,23 +72740,23 @@ static const char *startup_source =
 "(call-expand-observe obs_0 'next)))"
 "(void)))"
 "(cons"
-"(let-values(((temp359_0)(car es_0))"
-"((temp360_0)"
+"(let-values(((temp353_0)(car es_0))"
+"((temp354_0)"
 "(if(if last-is-tail?_0"
 "(null? rest-es_0)"
 " #f)"
-"(let-values(((expr-ctx361_0)"
+"(let-values(((expr-ctx355_0)"
 " expr-ctx_0)"
-"((ctx362_0)"
+"((ctx356_0)"
 " ctx_0))"
-"(as-tail-context24.1"
-" ctx362_0"
-" expr-ctx361_0))"
+"(as-tail-context.1"
+" ctx356_0"
+" expr-ctx355_0))"
 " expr-ctx_0)))"
-"(expand9.1 #f #f #f temp359_0 temp360_0))"
+"(expand.1 #f #f #f temp353_0 temp354_0))"
 "(loop_0 rest-es_0(sub1 index_0))))))))))))"
 " loop_0)"
-" e354_0"
+" e348_0"
 " list-start-index_0)))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -72867,23 +72770,23 @@ static const char *startup_source =
 "(void)))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-begin_0 rebuild-s_0 exp-es_0)"
-"(let-values(((rebuild-s363_0) rebuild-s_0)((temp364_0)(cons begin353_0 exp-es_0)))"
-"(rebuild5.1 #t rebuild-s363_0 temp364_0)))))))))))))))))))"
+"(let-values(((rebuild-s357_0) rebuild-s_0)((temp358_0)(cons begin347_0 exp-es_0)))"
+"(rebuild.1 #t rebuild-s357_0 temp358_0)))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin"
 "(let-values(((nonempty-begin_0)"
-"(let-values(((temp365_0) 'prim-begin)"
-"((parsed-begin366_0) parsed-begin12.1)"
-"((temp367_0) 0)"
-"((temp368_0) #t))"
-"(make-begin20.1 temp368_0 temp367_0 temp365_0 parsed-begin366_0))))"
+"(let-values(((temp359_0) 'prim-begin)"
+"((parsed-begin360_0) parsed-begin12.1)"
+"((temp361_0) 0)"
+"((temp362_0) #t))"
+"(make-begin.1 temp362_0 temp361_0 temp359_0 parsed-begin360_0))))"
 "(lambda(s_0 ctx_0)"
 "(let-values(((context_0)(expand-context-context ctx_0)))"
 "(if(let-values(((or-part_0)(eq? context_0 'top-level)))(if or-part_0 or-part_0(eq? context_0 'module)))"
 "(let-values()"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 begin369_0)"
+"(let-values(((ok?_0 begin363_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
@@ -72893,9 +72796,9 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((begin369_0)"
+"(let-values(((begin363_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
-"(let-values(((begin370_0)(let-values(((s_3)(car s_2))) s_3))"
+"(let-values(((begin364_0)(let-values(((s_3)(car s_2))) s_3))"
 "(()"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
@@ -72903,16 +72806,16 @@ static const char *startup_source =
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(values)))))"
-"(values begin370_0)))))"
-"(values #t begin369_0)))"
+"(values begin364_0)))))"
+"(values #t begin363_0)))"
 "(values #f #f)))))"
 "(if ok?_0 s_0(nonempty-begin_0 s_0 ctx_0)))))"
 "(let-values()(nonempty-begin_0 s_0 ctx_0))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin0"
-"(let-values(((temp371_0) 'prim-begin0)((parsed-begin0372_0) parsed-begin013.1)((temp373_0) 1)((temp374_0) #f))"
-"(make-begin20.1 temp374_0 temp373_0 temp371_0 parsed-begin0372_0))))"
+"(let-values(((temp365_0) 'prim-begin0)((parsed-begin0366_0) parsed-begin013.1)((temp367_0) 1)((temp368_0) #f))"
+"(make-begin.1 temp368_0 temp367_0 temp365_0 parsed-begin0366_0))))"
 "(define-values"
 "(register-eventual-variable!?)"
 "(lambda(id_0 ctx_0)"
@@ -72930,13 +72833,13 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " '#%top"
-"(let-values(((core378_0)"
-"(lambda(s376_0 ctx377_0 implicit-omitted?375_0)"
+"(let-values(((...nder/expand/expr.rkt:594:1_0)"
+"(lambda(s370_0 ctx371_0 implicit-omitted?369_0)"
 "(begin"
-" 'core378"
-"(let-values(((s_0) s376_0))"
-"(let-values(((ctx_0) ctx377_0))"
-"(let-values(((implicit-omitted?_0) implicit-omitted?375_0))"
+" '...nder/expand/expr.rkt:594:1"
+"(let-values(((s_0) s370_0))"
+"(let-values(((ctx_0) ctx371_0))"
+"(let-values(((implicit-omitted?_0) implicit-omitted?369_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -72950,21 +72853,21 @@ static const char *startup_source =
 "(if implicit-omitted?_0"
 "(let-values() s_0)"
 "(let-values()"
-"(let-values(((ok?_0 #%top380_0 id381_0)"
+"(let-values(((ok?_0 #%top372_0 id373_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%top380_0 id381_0)"
+"(let-values(((#%top372_0 id373_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1 s_1)"
 "(syntax-e$1 s_1)"
 " s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%top382_0)"
+"(let-values(((#%top374_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((id383_0)"
+"((id375_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -72985,25 +72888,25 @@ static const char *startup_source =
 "                                                                                                          \"not an identifier\""
 " orig-s_0"
 " s_3)))))"
-"(values #%top382_0 id383_0))"
+"(values #%top374_0 id375_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                        \"bad syntax\""
 " orig-s_0)))))"
-"(values #t #%top380_0 id381_0))))))"
-" id381_0)))))"
+"(values #t #%top372_0 id373_0))))))"
+" id373_0)))))"
 "(let-values(((b_0)"
-"(let-values(((id384_0) id_0)"
-"((temp385_0)(expand-context-phase ctx_0))"
-"((temp386_0) 'ambiguous))"
-"(resolve+shift28.1"
-" temp386_0"
+"(let-values(((id376_0) id_0)"
+"((temp377_0)(expand-context-phase ctx_0))"
+"((temp378_0) 'ambiguous))"
+"(resolve+shift.1"
+" temp378_0"
 " #f"
 " null"
 " unsafe-undefined"
 " #f"
-" id384_0"
-" temp385_0))))"
+" id376_0"
+" temp377_0))))"
 "(if(eq? b_0 'ambiguous)"
 "(let-values()(raise-ambiguous-error id_0 ctx_0))"
 "(if(if b_0"
@@ -73036,10 +72939,10 @@ static const char *startup_source =
 " id_0"
 "(root-expand-context-top-level-bind-scope ctx_0))))"
 "(let-values(((tl-b_0)"
-"(let-values(((tl-id387_0) tl-id_0)"
-"((temp388_0)"
+"(let-values(((tl-id379_0) tl-id_0)"
+"((temp380_0)"
 "(expand-context-phase ctx_0)))"
-"(resolve40.1 #f #f null #f tl-id387_0 temp388_0))))"
+"(resolve.1 #f #f null #f tl-id379_0 temp380_0))))"
 "(if tl-b_0"
 "(let-values()"
 "(if(expand-context-to-parsed? ctx_0)"
@@ -73047,10 +72950,10 @@ static const char *startup_source =
 "(if implicit-omitted?_0"
 "(let-values() id_0)"
 "(let-values()"
-"(let-values(((ok?_0 #%top389_0 id390_0)"
+"(let-values(((ok?_0 #%top381_0 id382_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%top389_0 id390_0)"
+"(let-values(((#%top381_0 id382_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -73058,12 +72961,12 @@ static const char *startup_source =
 " s_1)"
 " s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%top391_0)"
+"(let-values(((#%top383_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((id392_0)"
+"((id384_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -73085,23 +72988,23 @@ static const char *startup_source =
 " orig-s_0"
 " s_3)))))"
 "(values"
-" #%top391_0"
-" id392_0))"
+" #%top383_0"
+" id384_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                    \"bad syntax\""
 " orig-s_0)))))"
-"(values #t #%top389_0 id390_0))))))"
-"(let-values(((s393_0) s_0)"
-"((temp394_0)(cons #%top389_0 id_0)))"
-"(rebuild5.1 #t s393_0 temp394_0)))))))"
+"(values #t #%top381_0 id382_0))))))"
+"(let-values(((s385_0) s_0)"
+"((temp386_0)(cons #%top381_0 id_0)))"
+"(rebuild.1 #t s385_0 temp386_0)))))))"
 "(let-values()"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-top-id4.1 id_0 b_0 #f)"
 " s_0)))))))))))))))))))))))"
 "(case-lambda"
-"((s_0 ctx_0)(core378_0 s_0 ctx_0 #f))"
-"((s_0 ctx_0 implicit-omitted?375_0)(core378_0 s_0 ctx_0 implicit-omitted?375_0))))))"
+"((s_0 ctx_0)(...nder/expand/expr.rkt:594:1_0 s_0 ctx_0 #f))"
+"((s_0 ctx_0 implicit-omitted?369_0)(...nder/expand/expr.rkt:594:1_0 s_0 ctx_0 implicit-omitted?369_0))))))"
 "(void"
 "(add-core-form!*"
 " 'set!"
@@ -73112,19 +73015,19 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-set!)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 set!395_0 id396_0 rhs397_0)"
+"(let-values(((ok?_0 set!387_0 id388_0 rhs389_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((set!395_0 id396_0 rhs397_0)"
+"(let-values(((set!387_0 id388_0 rhs389_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((set!398_0)(let-values(((s_3)(car s_2))) s_3))"
-"((id399_0 rhs400_0)"
+"(let-values(((set!390_0)(let-values(((s_3)(car s_2))) s_3))"
+"((id391_0 rhs392_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((id401_0)"
+"(let-values(((id393_0)"
 "(let-values(((s_5)(car s_4)))"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1 s_5)"
@@ -73140,14 +73043,14 @@ static const char *startup_source =
 "                                                                                    \"not an identifier\""
 " orig-s_0"
 " s_5))))"
-"((rhs402_0)"
+"((rhs394_0)"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
 "(syntax-e$1 s_5)"
 " s_5)))"
 "(if(pair? s_6)"
-"(let-values(((rhs403_0)"
+"(let-values(((rhs395_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -73168,34 +73071,27 @@ static const char *startup_source =
 " #f"
 "                                                                                                          \"bad syntax\""
 " orig-s_0))))))"
-"(values rhs403_0))"
+"(values rhs395_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
 " orig-s_0))))))"
-"(values id401_0 rhs402_0))"
+"(values id393_0 rhs394_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values set!398_0 id399_0 rhs400_0))"
+"(values set!390_0 id391_0 rhs392_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t set!395_0 id396_0 rhs397_0))))))"
-"(let-values(((orig-id_0) id396_0))"
+"(values #t set!387_0 id388_0 rhs389_0))))))"
+"(let-values(((orig-id_0) id388_0))"
 "((letrec-values(((rename-loop_0)"
 "(lambda(id_0 from-rename?_0)"
 "(begin"
 " 'rename-loop"
 "(let-values(((binding_0)"
-"(let-values(((id404_0) id_0)"
-"((temp405_0)(expand-context-phase ctx_0))"
-"((temp406_0) 'ambiguous)"
-"((temp407_0) #t))"
-"(resolve+shift28.1"
-" temp406_0"
-" #f"
-" null"
-" temp407_0"
-" #f"
-" id404_0"
-" temp405_0))))"
+"(let-values(((id396_0) id_0)"
+"((temp397_0)(expand-context-phase ctx_0))"
+"((temp398_0) 'ambiguous)"
+"((temp399_0) #t))"
+"(resolve+shift.1 temp398_0 #f null temp399_0 #f id396_0 temp397_0))))"
 "(let-values((()"
 "(begin"
 "(if(eq? binding_0 'ambiguous)"
@@ -73204,10 +73100,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((t_0 primitive?_0 insp_0 protected?_0)"
 "(if binding_0"
-"(let-values(((binding408_0) binding_0)"
-"((ctx409_0) ctx_0)"
-"((s410_0) s_0))"
-"(lookup62.1 #f #f binding408_0 ctx409_0 s410_0))"
+"(let-values(((binding400_0) binding_0)"
+"((ctx401_0) ctx_0)"
+"((s402_0) s_0))"
+"(lookup.1 #f #f binding400_0 ctx401_0 s402_0))"
 "(values #f #f #f #f))))"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -73253,33 +73149,33 @@ static const char *startup_source =
 "(register-variable-referenced-if-local! binding_0)"
 "(values))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx411_0) ctx_0)((s412_0) s_0))"
-"(keep-as-needed119.1 #f #f #f ctx411_0 s412_0))))"
+"(let-values(((ctx403_0) ctx_0)((s404_0) s_0))"
+"(keep-as-needed.1 #f #f #f ctx403_0 s404_0))))"
 "(let-values(((exp-rhs_0)"
-"(let-values(((temp413_0) rhs397_0)"
-"((temp414_0)"
+"(let-values(((temp405_0) rhs389_0)"
+"((temp406_0)"
 "(as-expression-context ctx_0)))"
-"(expand9.1 #f #f #f temp413_0 temp414_0))))"
+"(expand.1 #f #f #f temp405_0 temp406_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-set!9.1"
 " rebuild-s_0"
 "(parsed-id2.1 id_0 binding_0 #f)"
 " exp-rhs_0)"
-"(let-values(((rebuild-s415_0) rebuild-s_0)"
-"((temp416_0)"
+"(let-values(((rebuild-s407_0) rebuild-s_0)"
+"((temp408_0)"
 "(list"
-" set!395_0"
-"(let-values(((id417_0) id_0)"
-"((t418_0) t_0)"
-"((temp419_0)"
+" set!387_0"
+"(let-values(((id409_0) id_0)"
+"((t410_0) t_0)"
+"((temp411_0)"
 "(free-id-set-empty-or-just-module*?"
 "(expand-context-stops ctx_0))))"
-"(substitute-variable6.1"
-" temp419_0"
-" id417_0"
-" t418_0))"
+"(substitute-variable.1"
+" temp411_0"
+" id409_0"
+" t410_0))"
 " exp-rhs_0)))"
-"(rebuild5.1 #t rebuild-s415_0 temp416_0)))))))))"
+"(rebuild.1 #t rebuild-s407_0 temp408_0)))))))))"
 "(if(not binding_0)"
 "(let-values()"
 "(raise-unbound-syntax-error"
@@ -73293,62 +73189,62 @@ static const char *startup_source =
 "(let-values()"
 "(if(not-in-this-expand-context? t_0 ctx_0)"
 "(let-values()"
-"(let-values(((temp420_0)"
+"(let-values(((temp412_0)"
 "(avoid-current-expand-context"
 "(substitute-set!-rename"
 " s_0"
 " disarmed-s_0"
-" set!395_0"
-" rhs397_0"
+" set!387_0"
+" rhs389_0"
 " id_0"
 " from-rename?_0"
 " ctx_0)"
 " t_0"
 " ctx_0))"
-"((ctx421_0) ctx_0))"
-"(expand9.1 #f #f #f temp420_0 ctx421_0)))"
+"((ctx413_0) ctx_0))"
+"(expand.1 #f #f #f temp412_0 ctx413_0)))"
 "(let-values()"
 "(let-values(((exp-s_0 re-ctx_0)"
-"(let-values(((t422_0) t_0)"
-"((insp423_0) insp_0)"
-"((s424_0) s_0)"
-"((orig-id425_0) orig-id_0)"
-"((ctx426_0) ctx_0)"
-"((binding427_0) binding_0)"
-"((orig-id428_0) orig-id_0))"
-"(apply-transformer52.1"
-" orig-id428_0"
-" t422_0"
-" insp423_0"
-" s424_0"
-" orig-id425_0"
-" ctx426_0"
-" binding427_0))))"
+"(let-values(((t414_0) t_0)"
+"((insp415_0) insp_0)"
+"((s416_0) s_0)"
+"((orig-id417_0) orig-id_0)"
+"((ctx418_0) ctx_0)"
+"((binding419_0) binding_0)"
+"((orig-id420_0) orig-id_0))"
+"(apply-transformer.1"
+" orig-id420_0"
+" t414_0"
+" insp415_0"
+" s416_0"
+" orig-id417_0"
+" ctx418_0"
+" binding419_0))))"
 "(if(expand-context-just-once? ctx_0)"
 "(let-values() exp-s_0)"
 "(let-values()"
-"(let-values(((exp-s429_0) exp-s_0)"
-"((re-ctx430_0) re-ctx_0))"
-"(expand9.1 #f #f #f exp-s429_0 re-ctx430_0))))))))"
+"(let-values(((exp-s421_0) exp-s_0)"
+"((re-ctx422_0) re-ctx_0))"
+"(expand.1 #f #f #f exp-s421_0 re-ctx422_0))))))))"
 "(if(1/rename-transformer? t_0)"
 "(let-values()"
 "(if(not-in-this-expand-context? t_0 ctx_0)"
 "(let-values()"
-"(let-values(((temp431_0)"
+"(let-values(((temp423_0)"
 "(avoid-current-expand-context"
 "(substitute-set!-rename"
 " s_0"
 " disarmed-s_0"
-" set!395_0"
-" rhs397_0"
+" set!387_0"
+" rhs389_0"
 " id_0"
 " from-rename?_0"
 " ctx_0"
 " t_0)"
 " t_0"
 " ctx_0))"
-"((ctx432_0) ctx_0))"
-"(expand9.1 #f #f #f temp431_0 ctx432_0)))"
+"((ctx424_0) ctx_0))"
+"(expand.1 #f #f #f temp423_0 ctx424_0)))"
 "(let-values()"
 "(rename-loop_0"
 "(syntax-track-origin$1"
@@ -73367,18 +73263,18 @@ static const char *startup_source =
 " #f))))))))"
 "(define-values"
 "(substitute-set!-rename)"
-"(let-values(((substitute-set!-rename31_0)"
-"(lambda(s24_0 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)"
+"(let-values(((substitute-set!-rename_0)"
+"(lambda(s20_0 disarmed-s21_0 set!-id22_0 id23_0 rhs-s24_0 from-rename?25_0 ctx26_0 t19_0)"
 "(begin"
-" 'substitute-set!-rename31"
-"(let-values(((s_0) s24_0))"
-"(let-values(((disarmed-s_0) disarmed-s25_0))"
-"(let-values(((set!-id_0) set!-id26_0))"
-"(let-values(((id_0) id27_0))"
-"(let-values(((rhs-s_0) rhs-s28_0))"
-"(let-values(((from-rename?_0) from-rename?29_0))"
-"(let-values(((ctx_0) ctx30_0))"
-"(let-values(((t_0) t23_0))"
+" 'substitute-set!-rename"
+"(let-values(((s_0) s20_0))"
+"(let-values(((disarmed-s_0) disarmed-s21_0))"
+"(let-values(((set!-id_0) set!-id22_0))"
+"(let-values(((id_0) id23_0))"
+"(let-values(((rhs-s_0) rhs-s24_0))"
+"(let-values(((from-rename?_0) from-rename?25_0))"
+"(let-values(((ctx_0) ctx26_0))"
+"(let-values(((t_0) t19_0))"
 "(let-values()"
 "(if(let-values(((or-part_0) t_0))(if or-part_0 or-part_0 from-rename?_0))"
 "(let-values()"
@@ -73394,9 +73290,9 @@ static const char *startup_source =
 "(let-values() s_0)))))))))))))))"
 "(case-lambda"
 "((s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0)"
-"(begin(substitute-set!-rename31_0 s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 #f)))"
-"((s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 t23_0)"
-"(substitute-set!-rename31_0 s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 t23_0)))))"
+"(begin(substitute-set!-rename_0 s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 #f)))"
+"((s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 t19_0)"
+"(substitute-set!-rename_0 s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 t19_0)))))"
 "(void"
 "(add-core-form!*"
 " '#%variable-reference"
@@ -73409,7 +73305,7 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 #%variable-reference433_0 id434_0)"
+"(let-values(((ok?_0 #%variable-reference425_0 id426_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
@@ -73429,15 +73325,15 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((#%variable-reference433_0 id434_0)"
+"(let-values(((#%variable-reference425_0 id426_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
-"(let-values(((#%variable-reference435_0)"
+"(let-values(((#%variable-reference427_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((id436_0)"
+"((id428_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
-"(let-values(((id437_0)"
+"(let-values(((id429_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
@@ -73446,11 +73342,11 @@ static const char *startup_source =
 "(syntax-e$1 s_5)"
 " s_5)))"
 "(values)))))"
-"(values id437_0))))))"
-"(values #%variable-reference435_0 id436_0)))))"
-"(values #t #%variable-reference433_0 id434_0)))"
+"(values id429_0))))))"
+"(values #%variable-reference427_0 id428_0)))))"
+"(values #t #%variable-reference425_0 id426_0)))"
 "(values #f #f #f)))))"
-"(let-values(((ok?_1 #%variable-reference438_0 #%top439_0 id440_0)"
+"(let-values(((ok?_1 #%variable-reference430_0 #%top431_0 id432_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(if(not ok?_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
@@ -73480,31 +73376,31 @@ static const char *startup_source =
 " #f))"
 " #f)"
 "(let-values()"
-"(let-values(((#%variable-reference438_0 #%top439_0 id440_0)"
+"(let-values(((#%variable-reference430_0 #%top431_0 id432_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
-"(let-values(((#%variable-reference441_0)"
+"(let-values(((#%variable-reference433_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((#%top442_0 id443_0)"
+"((#%top434_0 id435_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
-"(let-values(((#%top444_0 id445_0)"
+"(let-values(((#%top436_0 id437_0)"
 "(let-values(((s_5)(car s_4)))"
 "(let-values(((s_6)"
 "(if(syntax?$1 s_5)"
 "(syntax-e$1 s_5)"
 " s_5)))"
-"(let-values(((#%top446_0)"
+"(let-values(((#%top438_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
 " s_7))"
-"((id447_0)"
+"((id439_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
 " s_7)))"
-"(values #%top446_0 id447_0)))))"
+"(values #%top438_0 id439_0)))))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
 "(let-values(((s_6)"
@@ -73512,18 +73408,18 @@ static const char *startup_source =
 "(syntax-e$1 s_5)"
 " s_5)))"
 "(values)))))"
-"(values #%top444_0 id445_0))))))"
-"(values #%variable-reference441_0 #%top442_0 id443_0)))))"
-"(values #t #%variable-reference438_0 #%top439_0 id440_0)))"
+"(values #%top436_0 id437_0))))))"
+"(values #%variable-reference433_0 #%top434_0 id435_0)))))"
+"(values #t #%variable-reference430_0 #%top431_0 id432_0)))"
 "(values #f #f #f #f)))))"
-"(let-values(((ok?_2 #%variable-reference448_0)"
+"(let-values(((ok?_2 #%variable-reference440_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(if(if(not(let-values(((or-part_0) ok?_0))(if or-part_0 or-part_0 ok?_1))) #t #f)"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%variable-reference448_0)"
+"(let-values(((#%variable-reference440_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%variable-reference449_0)"
+"(let-values(((#%variable-reference441_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
 "(()"
 "(let-values(((s_3)(cdr s_2)))"
@@ -73537,18 +73433,18 @@ static const char *startup_source =
 " #f"
 "                                                                        \"bad syntax\""
 " orig-s_0))))))"
-"(values #%variable-reference449_0))"
+"(values #%variable-reference441_0))"
 "                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%variable-reference448_0)))"
+"(values #t #%variable-reference440_0)))"
 "(values #f #f)))))"
 "(if(let-values(((or-part_0) ok?_0))(if or-part_0 or-part_0 ok?_1))"
 "(let-values()"
-"(let-values(((var-id_0)(if ok?_0 id434_0 id440_0)))"
+"(let-values(((var-id_0)(if ok?_0 id426_0 id432_0)))"
 "(let-values(((binding_0)"
-"(let-values(((var-id450_0) var-id_0)"
-"((temp451_0)(expand-context-phase ctx_0))"
-"((temp452_0) 'ambiguous))"
-"(resolve+shift28.1 temp452_0 #f null unsafe-undefined #f var-id450_0 temp451_0))))"
+"(let-values(((var-id442_0) var-id_0)"
+"((temp443_0)(expand-context-phase ctx_0))"
+"((temp444_0) 'ambiguous))"
+"(resolve+shift.1 temp444_0 #f null unsafe-undefined #f var-id442_0 temp443_0))))"
 "(let-values((()"
 "(begin"
 "(if(eq? binding_0 'ambiguous)"
@@ -73571,12 +73467,12 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((t_0 primitive?_0 insp-of-t_0 protected?_0)"
 "(if binding_0"
-"(let-values(((binding453_0) binding_0)"
-"((ctx454_0) ctx_0)"
-"((var-id455_0) var-id_0)"
-"((s456_0) s_0)"
-"((temp457_0)(expand-context-in-local-expand? ctx_0)))"
-"(lookup62.1 s456_0 temp457_0 binding453_0 ctx454_0 var-id455_0))"
+"(let-values(((binding445_0) binding_0)"
+"((ctx446_0) ctx_0)"
+"((var-id447_0) var-id_0)"
+"((s448_0) s_0)"
+"((temp449_0)(expand-context-in-local-expand? ctx_0)))"
+"(lookup.1 s448_0 temp449_0 binding445_0 ctx446_0 var-id447_0))"
 "(values #f #f #f #f))))"
 "(begin"
 "(if(if t_0(not(variable? t_0)) #f)"
@@ -73606,19 +73502,19 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-#%expression)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 #%expression458_0 e459_0)"
+"(let-values(((ok?_0 #%expression450_0 e451_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%expression458_0 e459_0)"
+"(let-values(((#%expression450_0 e451_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%expression460_0)(let-values(((s_3)(car s_2))) s_3))"
-"((e461_0)"
+"(let-values(((#%expression452_0)(let-values(((s_3)(car s_2))) s_3))"
+"((e453_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)(syntax-e$1 s_3) s_3)))"
 "(if(pair? s_4)"
-"(let-values(((e462_0)"
+"(let-values(((e454_0)"
 "(let-values(((s_5)(car s_4))) s_5))"
 "(()"
 "(let-values(((s_5)(cdr s_4)))"
@@ -73632,20 +73528,20 @@ static const char *startup_source =
 " #f"
 "                                                                                      \"bad syntax\""
 " orig-s_0))))))"
-"(values e462_0))"
+"(values e454_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_0))))))"
-"(values #%expression460_0 e461_0))"
+"(values #%expression452_0 e453_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%expression458_0 e459_0))))))"
+"(values #t #%expression450_0 e451_0))))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((ctx463_0) ctx_0)((s464_0) s_0)((temp465_0) #t))"
-"(keep-as-needed119.1 temp465_0 #f #f ctx463_0 s464_0))))"
+"(let-values(((ctx455_0) ctx_0)((s456_0) s_0)((temp457_0) #t))"
+"(keep-as-needed.1 temp457_0 #f #f ctx455_0 s456_0))))"
 "(let-values(((exp-e_0)"
-"(let-values(((temp466_0) e459_0)"
-"((temp467_0)"
-"(let-values(((temp468_0)(as-expression-context ctx_0))((ctx469_0) ctx_0))"
-"(as-tail-context24.1 ctx469_0 temp468_0))))"
-"(expand9.1 #f #f #f temp466_0 temp467_0))))"
+"(let-values(((temp458_0) e451_0)"
+"((temp459_0)"
+"(let-values(((temp460_0)(as-expression-context ctx_0))((ctx461_0) ctx_0))"
+"(as-tail-context.1 ctx461_0 temp460_0))))"
+"(expand.1 #f #f #f temp458_0 temp459_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 " exp-e_0"
 "(if(let-values(((or-part_0)"
@@ -73654,8 +73550,8 @@ static const char *startup_source =
 " #f)))"
 "(if or-part_0 or-part_0(eq? 'top-level(expand-context-context ctx_0))))"
 "(let-values()"
-"(let-values(((rebuild-s470_0) rebuild-s_0)((temp471_0)(list #%expression458_0 exp-e_0)))"
-"(rebuild5.1 #t rebuild-s470_0 temp471_0)))"
+"(let-values(((rebuild-s462_0) rebuild-s_0)((temp463_0)(list #%expression450_0 exp-e_0)))"
+"(rebuild.1 #t rebuild-s462_0 temp463_0)))"
 "(let-values()"
 "(let-values(((result-s_0)(syntax-track-origin$1 exp-e_0 rebuild-s_0)))"
 "(begin"
@@ -73692,7 +73588,7 @@ static const char *startup_source =
 "((ns4_0) ns_0)"
 "((at-phase5_0) at-phase_0)"
 "((id6_0) id_0))"
-"(binding-lookup52.1 #f #f b1_0 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))"
+"(binding-lookup.1 #f #f b1_0 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))"
 "(not(variable? val_0)))))))))"
 "(define-values(layers) '(raw phaseless id))"
 "(define-values(provide-form-name) 'provide)"
@@ -73978,7 +73874,7 @@ static const char *startup_source =
 " for-meta3_0"
 " phase-level4_0"
 " exp-specs_2)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
 " spec11_0"
 " temp12_0))))))))))))"
@@ -74066,7 +73962,7 @@ static const char *startup_source =
 "(list*"
 " for-syntax13_0"
 " exp-specs_2)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
 " spec17_0"
 " temp18_0)))))))))"
@@ -74152,7 +74048,7 @@ static const char *startup_source =
 "(list*"
 " for-label19_0"
 " exp-specs_2)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
 " spec23_0"
 " temp24_0)))))))))"
@@ -74249,7 +74145,7 @@ static const char *startup_source =
 "(list*"
 " protect25_0"
 " exp-specs_2)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
 " spec29_0"
 " temp30_0))))))))))"
@@ -75721,7 +75617,7 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                                                                                                                     \"expand-context/outer?\""
 " the-struct_0))))))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
@@ -75870,7 +75766,7 @@ static const char *startup_source =
 "(let-values(((as-transformer?_0)(binding-for-transformer? b_0 spec_0 at-phase_0 ns_0)))"
 "(let-values(((immed-b_0)"
 "(let-values(((spec118_0) spec_0)((at-phase119_0) at-phase_0)((temp120_0) #t))"
-"(resolve+shift28.1 #f #f null temp120_0 #f spec118_0 at-phase119_0))))"
+"(resolve+shift.1 #f #f null temp120_0 #f spec118_0 at-phase119_0))))"
 "(let-values(((rp109_0) rp_0)"
 "((sym110_0) sym_0)"
 "((at-phase111_0) at-phase_0)"
@@ -75880,7 +75776,7 @@ static const char *startup_source =
 "((orig-s115_0) orig-s_0)"
 "((protected?116_0) protected?_0)"
 "((as-transformer?117_0) as-transformer?_0))"
-"(add-provide!117.1"
+"(add-provide!.1"
 " protected?116_0"
 " as-transformer?117_0"
 " rp109_0"
@@ -76141,7 +76037,7 @@ static const char *startup_source =
 " phase_0)"
 "((temp132_0)"
 " #t))"
-"(resolve+shift28.1"
+"(resolve+shift.1"
 " #f"
 " #f"
 " null"
@@ -76170,7 +76066,7 @@ static const char *startup_source =
 "((temp129_0)"
 "(required-as-transformer?"
 " i_0)))"
-"(add-provide!117.1"
+"(add-provide!.1"
 " protected?128_0"
 " temp129_0"
 " rp121_0"
@@ -76660,8 +76556,8 @@ static const char *startup_source =
 "(if log-performance?(let-values()(start-performance-region 'expand 'module))(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((s219_0) s_0)((ctx220_0) ctx_0)((temp221_0) #f))"
-"(expand-module16.1 #f #f #f #f unsafe-undefined #f s219_0 ctx220_0 temp221_0)))"
+"(let-values(((s195_0) s_0)((ctx196_0) ctx_0)((temp197_0) #f))"
+"(expand-module.1 #f #f #f #f unsafe-undefined #f s195_0 ctx196_0 temp197_0)))"
 "(if log-performance?(let-values()(end-performance-region))(void)))))))"
 "(void"
 "(add-core-form!*"
@@ -76689,10 +76585,10 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((inner222_0)"
+"(let-values(((inner198_0)"
 "(let-values(((the-struct_1)(root-expand-context/outer-inner v_0)))"
 "(if(expand-context/inner? the-struct_1)"
-"(let-values(((module-begin-k223_0) #f))"
+"(let-values(((module-begin-k199_0) #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi the-struct_1)"
 "(root-expand-context/inner-module-scopes the-struct_1)"
@@ -76705,7 +76601,7 @@ static const char *startup_source =
 "(expand-context/inner-phase the-struct_1)"
 "(expand-context/inner-namespace the-struct_1)"
 "(expand-context/inner-just-once? the-struct_1)"
-" module-begin-k223_0"
+" module-begin-k199_0"
 "(expand-context/inner-allow-unbound? the-struct_1)"
 "(expand-context/inner-in-local-expand? the-struct_1)"
 "(expand-context/inner-keep-#%expression? the-struct_1)"
@@ -76724,7 +76620,7 @@ static const char *startup_source =
 "(expand-context/inner-should-not-encounter-macros? the-struct_1)))"
 "                                (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner222_0"
+" inner198_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
@@ -76749,7 +76645,7 @@ static const char *startup_source =
 "(if obs_0(let-values()(let-values()(call-expand-observe obs_0 'prim-declare)))(void)))"
 "       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_0)))))"
 "(define-values"
-"(expand-module16.1)"
+"(expand-module.1)"
 "(lambda(always-produce-compiled?1_0"
 " enclosing-is-cross-phase-persistent?3_0"
 " enclosing-requires+provides4_0"
@@ -76760,7 +76656,7 @@ static const char *startup_source =
 " init-ctx14_0"
 " enclosing-self15_0)"
 "(begin"
-" 'expand-module16"
+" 'expand-module"
 "(let-values(((s_0) s13_0))"
 "(let-values(((init-ctx_0) init-ctx14_0))"
 "(let-values(((enclosing-self_0) enclosing-self15_0))"
@@ -76782,28 +76678,28 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((disarmed-s_0)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_0 module224_0 id:module-name225_0 initial-require226_0 body227_0)"
+"(let-values(((ok?_0 module200_0 id:module-name201_0 initial-require202_0 body203_0)"
 "(let-values(((s_1) disarmed-s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((module224_0"
-" id:module-name225_0"
-" initial-require226_0"
-" body227_0)"
+"(let-values(((module200_0"
+" id:module-name201_0"
+" initial-require202_0"
+" body203_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((module228_0)"
+"(let-values(((module204_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((id:module-name229_0"
-" initial-require230_0"
-" body231_0)"
+"((id:module-name205_0"
+" initial-require206_0"
+" body207_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((id:module-name232_0)"
+"(let-values(((id:module-name208_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
@@ -76824,8 +76720,8 @@ static const char *startup_source =
 "                                                                                                         \"not an identifier\""
 " orig-s_0"
 " s_5))))"
-"((initial-require233_0"
-" body234_0)"
+"((initial-require209_0"
+" body210_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -76836,12 +76732,12 @@ static const char *startup_source =
 " s_5)"
 " s_5)))"
 "(if(pair? s_6)"
-"(let-values(((initial-require235_0)"
+"(let-values(((initial-require211_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
 " s_7))"
-"((body236_0)"
+"((body212_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
@@ -76864,39 +76760,39 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" initial-require235_0"
-" body236_0))"
+" initial-require211_0"
+" body212_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                           \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id:module-name232_0"
-" initial-require233_0"
-" body234_0))"
+" id:module-name208_0"
+" initial-require209_0"
+" body210_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                       \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" module228_0"
-" id:module-name229_0"
-" initial-require230_0"
-" body231_0))"
+" module204_0"
+" id:module-name205_0"
+" initial-require206_0"
+" body207_0))"
 "                                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
 "(values"
 " #t"
-" module224_0"
-" id:module-name225_0"
-" initial-require226_0"
-" body227_0))))))"
+" module200_0"
+" id:module-name201_0"
+" initial-require202_0"
+" body203_0))))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((init-ctx249_0) init-ctx_0)"
-"((s250_0) s_0)"
-"((temp251_0) #t)"
-"((temp252_0) #t))"
-"(keep-as-needed119.1 #f temp252_0 temp251_0 init-ctx249_0 s250_0))))"
-"(let-values(((initial-require_0)(syntax->datum$1 initial-require226_0)))"
+"(let-values(((init-ctx221_0) init-ctx_0)"
+"((s222_0) s_0)"
+"((temp223_0) #t)"
+"((temp224_0) #t))"
+"(keep-as-needed.1 #f temp224_0 temp223_0 init-ctx221_0 s222_0))))"
+"(let-values(((initial-require_0)(syntax->datum$1 initial-require202_0)))"
 "(let-values((()"
 "(begin"
 "(if(let-values(((or-part_0) keep-enclosing-scope-at-phase_0))"
@@ -76907,10 +76803,10 @@ static const char *startup_source =
 " #f"
 "                                                         \"not a module path\""
 " s_0"
-" initial-require226_0)))"
+" initial-require202_0)))"
 "(values))))"
 "(let-values(((phase_0) 0))"
-"(let-values(((module-name-sym_0)(syntax-e$1 id:module-name225_0)))"
+"(let-values(((module-name-sym_0)(syntax-e$1 id:module-name201_0)))"
 "(let-values(((outside-scope_0)(new-scope 'module)))"
 "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))"
 "(let-values(((self_0)"
@@ -76945,67 +76841,67 @@ static const char *startup_source =
 " enclosing-self_0"
 " enclosing-mod_0)))"
 "(let-values(((initial-require-s_0)"
-"(apply-module-scopes_0 initial-require226_0)))"
+"(apply-module-scopes_0 initial-require202_0)))"
 "(let-values(((all-scopes-s_0) initial-require-s_0))"
 "(let-values(((root-ctx_0)"
-"(let-values(((self253_0) self_0)"
-"((temp254_0)"
+"(let-values(((self225_0) self_0)"
+"((temp226_0)"
 "(if keep-enclosing-scope-at-phase_0"
 "(root-expand-context-module-scopes"
 " init-ctx_0)"
 " null))"
-"((outside-scope255_0)"
+"((outside-scope227_0)"
 " outside-scope_0)"
-"((inside-scope256_0)"
+"((inside-scope228_0)"
 " inside-scope_0)"
-"((all-scopes-s257_0)"
+"((all-scopes-s229_0)"
 " all-scopes-s_0))"
-"(make-root-expand-context13.1"
-" all-scopes-s257_0"
-" temp254_0"
-" outside-scope255_0"
-" inside-scope256_0"
-" self253_0))))"
+"(make-root-expand-context.1"
+" all-scopes-s229_0"
+" temp226_0"
+" outside-scope227_0"
+" inside-scope228_0"
+" self225_0))))"
 "(let-values(((new-module-scopes_0)"
 "(root-expand-context-module-scopes"
 " root-ctx_0)))"
 "(let-values(((frame-id_0)"
 "(root-expand-context-frame-id root-ctx_0)))"
-"(let-values(((make-m-ns240_0)"
-"(lambda(for-submodule?237_0 ns239_0)"
+"(let-values(((make-m-ns_0)"
+"(lambda(for-submodule?213_0 ns215_0)"
 "(begin"
-" 'make-m-ns240"
-"(let-values(((ns_0) ns239_0))"
+" 'make-m-ns"
+"(let-values(((ns_0) ns215_0))"
 "(let-values(((for-submodule?_0)"
 "(if(eq?"
-" for-submodule?237_0"
+" for-submodule?213_0"
 " unsafe-undefined)"
 "(if enclosing-self_0"
 " #t"
 " #f)"
-" for-submodule?237_0)))"
+" for-submodule?213_0)))"
 "(let-values()"
-"(let-values(((ns258_0) ns_0)"
-"((self259_0)"
+"(let-values(((ns230_0) ns_0)"
+"((self231_0)"
 " self_0)"
-"((root-ctx260_0)"
+"((root-ctx232_0)"
 " root-ctx_0)"
-"((for-submodule?261_0)"
+"((for-submodule?233_0)"
 " for-submodule?_0))"
-"(make-module-namespace50.1"
-" for-submodule?261_0"
-" self259_0"
-" root-ctx260_0"
-" ns258_0)))))))))"
+"(make-module-namespace.1"
+" for-submodule?233_0"
+" self231_0"
+" root-ctx232_0"
+" ns230_0)))))))))"
 "(let-values()"
 "(let-values()"
 "(let-values(((m-ns_0)"
-"(let-values(((temp262_0)"
+"(let-values(((temp234_0)"
 "(expand-context-namespace"
 " init-ctx_0)))"
-"(make-m-ns240_0"
+"(make-m-ns_0"
 " unsafe-undefined"
-" temp262_0))))"
+" temp234_0))))"
 "(let-values(((ctx_0)"
 "(let-values(((v_0)"
 "(copy-root-expand-context"
@@ -77015,26 +76911,26 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((post-expansion263_0)"
+"(let-values(((post-expansion235_0)"
 "(lambda(s_1)"
 "(begin"
-" 'post-expansion263"
+" 'post-expansion235"
 "(add-scope"
 " s_1"
 " inside-scope_0))))"
-"((inner264_0)"
+"((inner236_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((allow-unbound?265_0)"
+"(let-values(((allow-unbound?237_0)"
 " #f)"
-"((namespace266_0)"
+"((namespace238_0)"
 " m-ns_0)"
-"((phase267_0)"
+"((phase239_0)"
 " phase_0)"
-"((just-once?268_0)"
+"((just-once?240_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -77053,12 +76949,12 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-to-parsed?"
 " the-struct_1)"
-" phase267_0"
-" namespace266_0"
-" just-once?268_0"
+" phase239_0"
+" namespace238_0"
+" just-once?240_0"
 "(expand-context/inner-module-begin-k"
 " the-struct_1)"
-" allow-unbound?265_0"
+" allow-unbound?237_0"
 "(expand-context/inner-in-local-expand?"
 " the-struct_1)"
 "(expand-context/inner-keep-#%expression?"
@@ -77094,8 +76990,8 @@ static const char *startup_source =
 "                                                                                                               \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner264_0"
-" post-expansion263_0"
+" inner236_0"
+" post-expansion235_0"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
@@ -77131,18 +77027,18 @@ static const char *startup_source =
 "(apply-module-scopes_0"
 " disarmed-s_0)))"
 "(let-values(((ok?_1"
-" _269_0"
-" _270_0"
-" _271_0"
-" body272_0)"
+" _241_0"
+" _242_0"
+" _243_0"
+" body244_0)"
 "(let-values(((s_1)"
 " scoped-s_0))"
 "(let-values(((orig-s_0)"
 " s_1))"
-"(let-values(((_269_0"
-" _270_0"
-" _271_0"
-" body272_0)"
+"(let-values(((_241_0"
+" _242_0"
+" _243_0"
+" body244_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -77151,14 +77047,14 @@ static const char *startup_source =
 " s_1)))"
 "(if(pair?"
 " s_2)"
-"(let-values(((_273_0)"
+"(let-values(((_245_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((_274_0"
-" _275_0"
-" body276_0)"
+"((_246_0"
+" _247_0"
+" body248_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -77170,13 +77066,13 @@ static const char *startup_source =
 " s_3)))"
 "(if(pair?"
 " s_4)"
-"(let-values(((_277_0)"
+"(let-values(((_249_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
 " s_5))"
-"((_278_0"
-" body279_0)"
+"((_250_0"
+" body251_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -77188,12 +77084,12 @@ static const char *startup_source =
 " s_5)))"
 "(if(pair?"
 " s_6)"
-"(let-values(((_280_0)"
+"(let-values(((_252_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
 " s_7))"
-"((body281_0)"
+"((body253_0)"
 "(let-values(((s_7)"
 "(cdr"
 " s_6)))"
@@ -77216,42 +77112,42 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" _280_0"
-" body281_0))"
+" _252_0"
+" body253_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                       \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _277_0"
-" _278_0"
-" body279_0))"
+" _249_0"
+" _250_0"
+" body251_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                   \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _273_0"
-" _274_0"
-" _275_0"
-" body276_0))"
+" _245_0"
+" _246_0"
+" _247_0"
+" body248_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                               \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" _269_0"
-" _270_0"
-" _271_0"
-" body272_0))))))"
-" body272_0))))"
+" _241_0"
+" _242_0"
+" _243_0"
+" body244_0))))))"
+" body244_0))))"
 "(let-values(((requires+provides_0)"
-"(let-values(((self282_0)"
+"(let-values(((self254_0)"
 " self_0))"
-"(make-requires+provides8.1"
+"(make-requires+provides.1"
 " #f"
-" self282_0))))"
+" self254_0))))"
 "(let-values(((defined-syms_0)"
 "(root-expand-context-defined-syms"
 " root-ctx_0)))"
@@ -77261,38 +77157,38 @@ static const char *startup_source =
 "(box #f)))"
 "(let-values(((mpis-to-reset_0)"
 "(box null)))"
-"(let-values(((initial-require!245_0)"
-"(lambda(bind?243_0)"
+"(let-values(((initial-require!_0)"
+"(lambda(bind?217_0)"
 "(begin"
-" 'initial-require!245"
+" 'initial-require!"
 "(let-values(((bind?_0)"
-" bind?243_0))"
+" bind?217_0))"
 "(let-values()"
 "(if(not"
 " keep-enclosing-scope-at-phase_0)"
 "(let-values()"
-"(let-values(((initial-require283_0)"
+"(let-values(((initial-require255_0)"
 " initial-require_0)"
-"((self284_0)"
+"((self256_0)"
 " self_0)"
-"((all-scopes-s285_0)"
+"((all-scopes-s257_0)"
 " all-scopes-s_0)"
-"((m-ns286_0)"
+"((m-ns258_0)"
 " m-ns_0)"
-"((requires+provides287_0)"
+"((requires+provides259_0)"
 " requires+provides_0)"
-"((bind?288_0)"
+"((bind?260_0)"
 " bind?_0)"
-"((temp289_0)"
+"((temp261_0)"
 " 'module))"
-"(perform-initial-require!42.1"
-" bind?288_0"
-" temp289_0"
-" initial-require283_0"
-" self284_0"
-" all-scopes-s285_0"
-" m-ns286_0"
-" requires+provides287_0)))"
+"(perform-initial-require!.1"
+" bind?260_0"
+" temp261_0"
+" initial-require255_0"
+" self256_0"
+" all-scopes-s257_0"
+" m-ns258_0"
+" requires+provides259_0)))"
 "(let-values()"
 "(begin"
 "(add-required-module!"
@@ -77300,30 +77196,30 @@ static const char *startup_source =
 " enclosing-mod_0"
 " keep-enclosing-scope-at-phase_0"
 " enclosing-is-cross-phase-persistent?_0)"
-"(let-values(((requires+provides290_0)"
+"(let-values(((requires+provides262_0)"
 " requires+provides_0)"
-"((enclosing-r+p291_0)"
+"((enclosing-r+p263_0)"
 " enclosing-r+p_0)"
-"((enclosing-mod292_0)"
+"((enclosing-mod264_0)"
 " enclosing-mod_0)"
-"((keep-enclosing-scope-at-phase293_0)"
+"((keep-enclosing-scope-at-phase265_0)"
 " keep-enclosing-scope-at-phase_0))"
-"(add-enclosing-module-defined-and-required!67.1"
-" enclosing-r+p291_0"
-" requires+provides290_0"
-" enclosing-mod292_0"
-" keep-enclosing-scope-at-phase293_0))"
-"(let-values(((m-ns294_0)"
+"(add-enclosing-module-defined-and-required!.1"
+" enclosing-r+p263_0"
+" requires+provides262_0"
+" enclosing-mod264_0"
+" keep-enclosing-scope-at-phase265_0))"
+"(let-values(((m-ns266_0)"
 " m-ns_0)"
-"((enclosing-mod295_0)"
+"((enclosing-mod267_0)"
 " enclosing-mod_0)"
-"((keep-enclosing-scope-at-phase296_0)"
+"((keep-enclosing-scope-at-phase268_0)"
 " keep-enclosing-scope-at-phase_0))"
-"(namespace-module-visit!104.1"
+"(namespace-module-visit!.1"
 " unsafe-undefined"
-" m-ns294_0"
-" enclosing-mod295_0"
-" keep-enclosing-scope-at-phase296_0)))))))))))"
+" m-ns266_0"
+" enclosing-mod267_0"
+" keep-enclosing-scope-at-phase268_0)))))))))))"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
@@ -77341,10 +77237,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((temp248_0)"
+"(let-values(((temp220_0)"
 " #t))"
-"(initial-require!245_0"
-" temp248_0))"
+"(initial-require!_0"
+" temp220_0))"
 "(values))))"
 "(let-values(((again?_0)"
 " #f))"
@@ -77360,10 +77256,10 @@ static const char *startup_source =
 "(begin"
 "(requires+provides-reset!"
 " requires+provides_0)"
-"(let-values(((temp301_0)"
+"(let-values(((temp273_0)"
 " #f))"
-"(initial-require!245_0"
-" temp301_0))"
+"(initial-require!_0"
+" temp273_0))"
 "(hash-clear!"
 " compiled-submodules_0)"
 "(set-box!"
@@ -77383,60 +77279,60 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((post-expansion302_0)"
+"(let-values(((post-expansion274_0)"
 "(lambda(s_1)"
 "(begin"
-" 'post-expansion302"
+" 'post-expansion274"
 "(add-scope"
 " s_1"
 " inside-scope_0))))"
-"((inner303_0)"
+"((inner275_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((module-begin-k304_0)"
+"(let-values(((module-begin-k276_0)"
 "(lambda(s_1"
 " ctx_1)"
 "(begin"
-" 'module-begin-k304"
+" 'module-begin-k276"
 "(let-values(((new-requires+provides_0)"
-"(let-values(((self313_0)"
+"(let-values(((self285_0)"
 " self_0)"
-"((requires+provides314_0)"
+"((requires+provides286_0)"
 " requires+provides_0))"
-"(make-requires+provides8.1"
-" requires+provides314_0"
-" self313_0))))"
-"(let-values(((requires+provides305_0)"
+"(make-requires+provides.1"
+" requires+provides286_0"
+" self285_0))))"
+"(let-values(((requires+provides277_0)"
 " requires+provides_0)"
-"((compiled-submodules306_0)"
+"((compiled-submodules278_0)"
 " compiled-submodules_0)"
-"((compiled-module-box307_0)"
+"((compiled-module-box279_0)"
 " compiled-module-box_0)"
-"((defined-syms308_0)"
+"((defined-syms280_0)"
 " defined-syms_0)"
-"((requires+provides309_0)"
+"((requires+provides281_0)"
 " new-requires+provides_0)"
-"((compiled-submodules310_0)"
+"((compiled-submodules282_0)"
 "(make-hasheq))"
-"((compiled-module-box311_0)"
+"((compiled-module-box283_0)"
 "(box"
 " #f))"
-"((defined-syms312_0)"
+"((defined-syms284_0)"
 "(make-hasheq)))"
 "(dynamic-wind"
 "(lambda()"
 "(begin"
 "(set! requires+provides_0"
-" requires+provides309_0)"
+" requires+provides281_0)"
 "(set! compiled-submodules_0"
-" compiled-submodules310_0)"
+" compiled-submodules282_0)"
 "(set! compiled-module-box_0"
-" compiled-module-box311_0)"
+" compiled-module-box283_0)"
 "(set! defined-syms_0"
-" defined-syms312_0)))"
+" defined-syms284_0)))"
 "(lambda()"
 "(module-begin-k_0"
 " s_1"
@@ -77444,13 +77340,13 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 "(set! requires+provides_0"
-" requires+provides305_0)"
+" requires+provides277_0)"
 "(set! compiled-submodules_0"
-" compiled-submodules306_0)"
+" compiled-submodules278_0)"
 "(set! compiled-module-box_0"
-" compiled-module-box307_0)"
+" compiled-module-box279_0)"
 "(set! defined-syms_0"
-" defined-syms308_0))))))))))"
+" defined-syms280_0))))))))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
 " the-struct_1)"
@@ -77474,7 +77370,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-just-once?"
 " the-struct_1)"
-" module-begin-k304_0"
+" module-begin-k276_0"
 "(expand-context/inner-allow-unbound?"
 " the-struct_1)"
 "(expand-context/inner-in-local-expand?"
@@ -77512,8 +77408,8 @@ static const char *startup_source =
 "                                                                                                                                                                  \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner303_0"
-" post-expansion302_0"
+" inner275_0"
+" post-expansion274_0"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
@@ -77566,14 +77462,14 @@ static const char *startup_source =
 "(syntax-disarm$1"
 " added-s_0)))"
 "(let-values(((ok?_1"
-" #%module-begin297_0"
-" body298_0)"
+" #%module-begin269_0"
+" body270_0)"
 "(let-values(((s_1)"
 " disarmed-mb-s_0))"
 "(let-values(((orig-s_0)"
 " s_1))"
-"(let-values(((#%module-begin297_0"
-" body298_0)"
+"(let-values(((#%module-begin269_0"
+" body270_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -77582,12 +77478,12 @@ static const char *startup_source =
 " s_1)))"
 "(if(pair?"
 " s_2)"
-"(let-values(((#%module-begin299_0)"
+"(let-values(((#%module-begin271_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((body300_0)"
+"((body272_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -77610,29 +77506,29 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" #%module-begin299_0"
-" body300_0))"
+" #%module-begin271_0"
+" body272_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                        \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" #%module-begin297_0"
-" body298_0))))))"
+" #%module-begin269_0"
+" body270_0))))))"
 "(let-values(((bodys_1)"
-" body298_0))"
+" body270_0))"
 "(let-values(((rebuild-mb-s_0)"
-"(let-values(((ctx315_0)"
+"(let-values(((ctx287_0)"
 " ctx_1)"
-"((mb-s316_0)"
+"((mb-s288_0)"
 " mb-s_0))"
-"(keep-as-needed119.1"
+"(keep-as-needed.1"
 " #f"
 " #f"
 " #f"
-" ctx315_0"
-" mb-s316_0))))"
+" ctx287_0"
+" mb-s288_0))))"
 "(let-values(((need-eventually-defined_0)"
 "(make-hasheqv)))"
 "(let-values(((module-ends_0)"
@@ -77658,35 +77554,35 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((context325_0)"
+"(let-values(((context297_0)"
 " 'module)"
-"((def-ctx-scopes326_0)"
+"((def-ctx-scopes298_0)"
 " def-ctx-scopes_0)"
-"((need-eventually-defined327_0)"
+"((need-eventually-defined299_0)"
 " need-eventually-defined_0)"
-"((inner328_0)"
+"((inner300_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((phase329_0)"
+"(let-values(((phase301_0)"
 " phase_1)"
-"((namespace330_0)"
+"((namespace302_0)"
 "(namespace->namespace-at-phase"
 " m-ns_0"
 " phase_1))"
-"((stops331_0)"
+"((stops303_0)"
 "(free-id-set"
 " phase_1"
 "(module-expand-stop-ids"
 " phase_1)))"
-"((declared-submodule-names332_0)"
+"((declared-submodule-names304_0)"
 " declared-submodule-names_0)"
-"((lift-key333_0)"
+"((lift-key305_0)"
 "(generate-lift-key))"
-"((lifts334_0)"
-"(let-values(((temp338_0)"
+"((lifts306_0)"
+"(let-values(((temp310_0)"
 "(make-wrap-as-definition"
 " self_0"
 " frame-id_0"
@@ -77694,40 +77590,40 @@ static const char *startup_source =
 " all-scopes-s_0"
 " defined-syms_0"
 " requires+provides_0)))"
-"(make-lift-context6.1"
+"(make-lift-context.1"
 " #f"
-" temp338_0)))"
-"((module-lifts335_0)"
+" temp310_0)))"
+"((module-lifts307_0)"
 "(make-module-lift-context"
 " phase_1"
 " #t))"
-"((require-lifts336_0)"
+"((require-lifts308_0)"
 "(make-require-lift-context"
 " phase_1"
-"(let-values(((m-ns339_0)"
+"(let-values(((m-ns311_0)"
 " m-ns_0)"
-"((self340_0)"
+"((self312_0)"
 " self_0)"
-"((requires+provides341_0)"
+"((requires+provides313_0)"
 " requires+provides_0)"
-"((declared-submodule-names342_0)"
+"((declared-submodule-names314_0)"
 " declared-submodule-names_0))"
-"(make-parse-lifted-require216.1"
-" declared-submodule-names342_0"
-" m-ns339_0"
-" self340_0"
-" requires+provides341_0))))"
-"((to-module-lifts337_0)"
-"(let-values(((phase343_0)"
+"(make-parse-lifted-require.1"
+" declared-submodule-names314_0"
+" m-ns311_0"
+" self312_0"
+" requires+provides313_0))))"
+"((to-module-lifts309_0)"
+"(let-values(((phase315_0)"
 " phase_1)"
-"((module-ends344_0)"
+"((module-ends316_0)"
 " module-ends_0)"
-"((temp345_0)"
+"((temp317_0)"
 " #f))"
-"(make-to-module-lift-context27.1"
-" temp345_0"
-" module-ends344_0"
-" phase343_0))))"
+"(make-to-module-lift-context.1"
+" temp317_0"
+" module-ends316_0"
+" phase315_0))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
 " the-struct_1)"
@@ -77741,11 +77637,11 @@ static const char *startup_source =
 " the-struct_1)"
 "(root-expand-context/inner-counter"
 " the-struct_1)"
-" lift-key333_0"
+" lift-key305_0"
 "(expand-context/inner-to-parsed?"
 " the-struct_1)"
-" phase329_0"
-" namespace330_0"
+" phase301_0"
+" namespace302_0"
 "(expand-context/inner-just-once?"
 " the-struct_1)"
 "(expand-context/inner-module-begin-k"
@@ -77756,14 +77652,14 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-keep-#%expression?"
 " the-struct_1)"
-" stops331_0"
-" declared-submodule-names332_0"
-" lifts334_0"
+" stops303_0"
+" declared-submodule-names304_0"
+" lifts306_0"
 "(expand-context/inner-lift-envs"
 " the-struct_1)"
-" module-lifts335_0"
-" require-lifts336_0"
-" to-module-lifts337_0"
+" module-lifts307_0"
+" require-lifts308_0"
+" to-module-lifts309_0"
 "(expand-context/inner-requires+provides"
 " the-struct_1)"
 "(expand-context/inner-observer"
@@ -77781,26 +77677,26 @@ static const char *startup_source =
 "                                                                                                                                                                                                                              \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner328_0"
+" inner300_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
 " the-struct_0)"
-" context325_0"
+" context297_0"
 "(expand-context/outer-env"
 " the-struct_0)"
 "(expand-context/outer-scopes"
 " the-struct_0)"
-" def-ctx-scopes326_0"
+" def-ctx-scopes298_0"
 "(expand-context/outer-binding-layer"
 " the-struct_0)"
 "(expand-context/outer-reference-records"
 " the-struct_0)"
 "(expand-context/outer-only-immediate?"
 " the-struct_0)"
-" need-eventually-defined327_0"
+" need-eventually-defined299_0"
 "(expand-context/outer-current-introduction-scopes"
 " the-struct_0)"
 "(expand-context/outer-current-use-scopes"
@@ -77812,55 +77708,55 @@ static const char *startup_source =
 "                                                                                                                                                                                                            \"expand-context/outer?\""
 " the-struct_0))))))"
 "(let-values(((partially-expanded-bodys_0)"
-"(let-values(((bodys346_0)"
+"(let-values(((bodys318_0)"
 " bodys_2)"
-"((phase347_0)"
+"((phase319_0)"
 " phase_1)"
-"((partial-body-ctx348_0)"
+"((partial-body-ctx320_0)"
 " partial-body-ctx_0)"
-"((m-ns349_0)"
+"((m-ns321_0)"
 " m-ns_0)"
-"((self350_0)"
+"((self322_0)"
 " self_0)"
-"((frame-id351_0)"
+"((frame-id323_0)"
 " frame-id_0)"
-"((requires+provides352_0)"
+"((requires+provides324_0)"
 " requires+provides_0)"
-"((need-eventually-defined353_0)"
+"((need-eventually-defined325_0)"
 " need-eventually-defined_0)"
-"((all-scopes-s354_0)"
+"((all-scopes-s326_0)"
 " all-scopes-s_0)"
-"((defined-syms355_0)"
+"((defined-syms327_0)"
 " defined-syms_0)"
-"((declared-keywords356_0)"
+"((declared-keywords328_0)"
 " declared-keywords_0)"
-"((declared-submodule-names357_0)"
+"((declared-submodule-names329_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules358_0)"
+"((compiled-submodules330_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled359_0)"
+"((modules-being-compiled331_0)"
 " modules-being-compiled_0)"
-"((mpis-to-reset360_0)"
+"((mpis-to-reset332_0)"
 " mpis-to-reset_0)"
-"((pass-1-and-2-loop361_0)"
+"((pass-1-and-2-loop333_0)"
 " pass-1-and-2-loop_0))"
-"(partially-expand-bodys79.1"
-" all-scopes-s354_0"
-" compiled-submodules358_0"
-" partial-body-ctx348_0"
-" declared-keywords356_0"
-" declared-submodule-names357_0"
-" defined-syms355_0"
-" frame-id351_0"
-" pass-1-and-2-loop361_0"
-" modules-being-compiled359_0"
-" mpis-to-reset360_0"
-" m-ns349_0"
-" need-eventually-defined353_0"
-" phase347_0"
-" requires+provides352_0"
-" self350_0"
-" bodys346_0))))"
+"(partially-expand-bodys.1"
+" all-scopes-s326_0"
+" compiled-submodules330_0"
+" partial-body-ctx320_0"
+" declared-keywords328_0"
+" declared-submodule-names329_0"
+" defined-syms327_0"
+" frame-id323_0"
+" pass-1-and-2-loop333_0"
+" modules-being-compiled331_0"
+" mpis-to-reset332_0"
+" m-ns321_0"
+" need-eventually-defined325_0"
+" phase319_0"
+" requires+provides324_0"
+" self322_0"
+" bodys318_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)"
@@ -77883,32 +77779,32 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((def-ctx-scopes362_0)"
+"(let-values(((def-ctx-scopes334_0)"
 " #f)"
-"((post-expansion363_0)"
+"((post-expansion335_0)"
 " #f)"
-"((inner364_0)"
+"((inner336_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((stops365_0)"
+"(let-values(((stops337_0)"
 "(if keep-stops?_0"
 "(expand-context-stops"
 " ctx_1)"
 " empty-free-id-set))"
-"((to-module-lifts366_0)"
-"(let-values(((phase367_0)"
+"((to-module-lifts338_0)"
+"(let-values(((phase339_0)"
 " phase_1)"
-"((module-ends368_0)"
+"((module-ends340_0)"
 " module-ends_0)"
-"((temp369_0)"
+"((temp341_0)"
 " #t))"
-"(make-to-module-lift-context27.1"
-" temp369_0"
-" module-ends368_0"
-" phase367_0))))"
+"(make-to-module-lift-context.1"
+" temp341_0"
+" module-ends340_0"
+" phase339_0))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
 " the-struct_1)"
@@ -77940,7 +77836,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-keep-#%expression?"
 " the-struct_1)"
-" stops365_0"
+" stops337_0"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_1)"
 "(expand-context/inner-lifts"
@@ -77951,7 +77847,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-require-lifts"
 " the-struct_1)"
-" to-module-lifts366_0"
+" to-module-lifts338_0"
 "(expand-context/inner-requires+provides"
 " the-struct_1)"
 "(expand-context/inner-observer"
@@ -77969,8 +77865,8 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                    \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner364_0"
-" post-expansion363_0"
+" inner336_0"
+" post-expansion335_0"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
@@ -77981,7 +77877,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-scopes"
 " the-struct_0)"
-" def-ctx-scopes362_0"
+" def-ctx-scopes334_0"
 "(expand-context/outer-binding-layer"
 " the-struct_0)"
 "(expand-context/outer-reference-records"
@@ -78000,31 +77896,31 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                                                                                                                                  \"expand-context/outer?\""
 " the-struct_0))))))"
-"(let-values(((partially-expanded-bodys317_0)"
+"(let-values(((partially-expanded-bodys289_0)"
 " partially-expanded-bodys_0)"
-"((phase318_0)"
+"((phase290_0)"
 " phase_1)"
-"((body-ctx319_0)"
+"((body-ctx291_0)"
 " body-ctx_0)"
-"((self320_0)"
+"((self292_0)"
 " self_0)"
-"((declared-submodule-names321_0)"
+"((declared-submodule-names293_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules322_0)"
+"((compiled-submodules294_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled323_0)"
+"((modules-being-compiled295_0)"
 " modules-being-compiled_0)"
-"((mpis-to-reset324_0)"
+"((mpis-to-reset296_0)"
 " mpis-to-reset_0))"
-"(finish-expanding-body-expressons97.1"
-" compiled-submodules322_0"
-" body-ctx319_0"
-" declared-submodule-names321_0"
-" modules-being-compiled323_0"
-" mpis-to-reset324_0"
-" phase318_0"
-" self320_0"
-" partially-expanded-bodys317_0)))))))))))"
+"(finish-expanding-body-expressons.1"
+" compiled-submodules294_0"
+" body-ctx291_0"
+" declared-submodule-names293_0"
+" modules-being-compiled295_0"
+" mpis-to-reset296_0"
+" phase290_0"
+" self292_0"
+" partially-expanded-bodys289_0)))))))))))"
 " pass-1-and-2-loop_0)"
 " bodys_1"
 " phase_0"
@@ -78052,28 +77948,28 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((fully-expanded-bodys-except-post-submodules_0)"
-"(let-values(((expression-expanded-bodys370_0)"
+"(let-values(((expression-expanded-bodys342_0)"
 " expression-expanded-bodys_0)"
-"((requires+provides371_0)"
+"((requires+provides343_0)"
 " requires+provides_0)"
-"((declared-submodule-names372_0)"
+"((declared-submodule-names344_0)"
 " declared-submodule-names_0)"
-"((m-ns373_0)"
+"((m-ns345_0)"
 " m-ns_0)"
-"((phase374_0)"
+"((phase346_0)"
 " phase_0)"
-"((self375_0)"
+"((self347_0)"
 " self_0)"
-"((ctx376_0)"
+"((ctx348_0)"
 " ctx_1))"
-"(resolve-provides113.1"
-" ctx376_0"
-" declared-submodule-names372_0"
-" m-ns373_0"
-" phase374_0"
-" requires+provides371_0"
-" self375_0"
-" expression-expanded-bodys370_0))))"
+"(resolve-provides.1"
+" ctx348_0"
+" declared-submodule-names344_0"
+" m-ns345_0"
+" phase346_0"
+" requires+provides343_0"
+" self347_0"
+" expression-expanded-bodys342_0))))"
 "(let-values(((is-cross-phase-persistent?_0)"
 "(hash-ref"
 " declared-keywords_0"
@@ -78114,13 +78010,13 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((submod-m-ns_0)"
-"(let-values(((m-ns377_0)"
+"(let-values(((m-ns349_0)"
 " m-ns_0)"
-"((temp378_0)"
+"((temp350_0)"
 " #t))"
-"(make-m-ns240_0"
-" temp378_0"
-" m-ns377_0))))"
+"(make-m-ns_0"
+" temp350_0"
+" m-ns349_0))))"
 "(let-values(((submod-ctx_0)"
 "(let-values(((v_0)"
 " ctx_1))"
@@ -78128,17 +78024,17 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((frame-id379_0)"
+"(let-values(((frame-id351_0)"
 " #f)"
-"((post-expansion380_0)"
+"((post-expansion352_0)"
 " #f)"
-"((inner381_0)"
+"((inner353_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((namespace382_0)"
+"(let-values(((namespace354_0)"
 " submod-m-ns_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -78159,7 +78055,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-phase"
 " the-struct_1)"
-" namespace382_0"
+" namespace354_0"
 "(expand-context/inner-just-once?"
 " the-struct_1)"
 "(expand-context/inner-module-begin-k"
@@ -78201,11 +78097,11 @@ static const char *startup_source =
 "                                                                                                                                                                                                        \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner381_0"
-" post-expansion380_0"
+" inner353_0"
+" post-expansion352_0"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
-" frame-id379_0"
+" frame-id351_0"
 "(expand-context/outer-context"
 " the-struct_0)"
 "(expand-context/outer-env"
@@ -78235,40 +78131,40 @@ static const char *startup_source =
 "(let-values(((declare-enclosing-module_0)"
 "(promise1.1"
 "(lambda()"
-"(let-values(((fully-expanded-bodys-except-post-submodules383_0)"
+"(let-values(((fully-expanded-bodys-except-post-submodules355_0)"
 " fully-expanded-bodys-except-post-submodules_0)"
-"((temp384_0)"
-" id:module-name225_0)"
-"((rebuild-s385_0)"
+"((temp356_0)"
+" id:module-name201_0)"
+"((rebuild-s357_0)"
 " rebuild-s_0)"
-"((requires+provides386_0)"
+"((requires+provides358_0)"
 " requires+provides_0)"
-"((submod-m-ns387_0)"
+"((submod-m-ns359_0)"
 " submod-m-ns_0)"
-"((self388_0)"
+"((self360_0)"
 " self_0)"
-"((enclosing-self389_0)"
+"((enclosing-self361_0)"
 " enclosing-self_0)"
-"((root-ctx390_0)"
+"((root-ctx362_0)"
 " root-ctx_0)"
-"((submod-ctx391_0)"
+"((submod-ctx363_0)"
 " submod-ctx_0)"
-"((modules-being-compiled392_0)"
+"((modules-being-compiled364_0)"
 " modules-being-compiled_0)"
-"((compiled-module-box393_0)"
+"((compiled-module-box365_0)"
 " compiled-module-box_0))"
-"(declare-module-for-expansion137.1"
-" submod-ctx391_0"
-" enclosing-self389_0"
-" compiled-module-box393_0"
-" temp384_0"
-" modules-being-compiled392_0"
-" submod-m-ns387_0"
-" rebuild-s385_0"
-" requires+provides386_0"
-" root-ctx390_0"
-" self388_0"
-" fully-expanded-bodys-except-post-submodules383_0)))"
+"(declare-module-for-expansion.1"
+" submod-ctx363_0"
+" enclosing-self361_0"
+" compiled-module-box365_0"
+" temp356_0"
+" modules-being-compiled364_0"
+" submod-m-ns359_0"
+" rebuild-s357_0"
+" requires+provides358_0"
+" root-ctx362_0"
+" self360_0"
+" fully-expanded-bodys-except-post-submodules355_0)))"
 " #f)))"
 "(let-values(((fully-expanded-bodys_0)"
 "(if(stop-at-module*?"
@@ -78276,43 +78172,43 @@ static const char *startup_source =
 "(let-values()"
 " fully-expanded-bodys-except-post-submodules_0)"
 "(let-values()"
-"(let-values(((fully-expanded-bodys-except-post-submodules394_0)"
+"(let-values(((fully-expanded-bodys-except-post-submodules366_0)"
 " fully-expanded-bodys-except-post-submodules_0)"
-"((declare-enclosing-module395_0)"
+"((declare-enclosing-module367_0)"
 " declare-enclosing-module_0)"
-"((phase396_0)"
+"((phase368_0)"
 " phase_0)"
-"((self397_0)"
+"((self369_0)"
 " self_0)"
-"((requires+provides398_0)"
+"((requires+provides370_0)"
 " requires+provides_0)"
-"((is-cross-phase-persistent?399_0)"
+"((is-cross-phase-persistent?371_0)"
 " is-cross-phase-persistent?_0)"
-"((all-scopes-s400_0)"
+"((all-scopes-s372_0)"
 " all-scopes-s_0)"
-"((mpis-to-reset401_0)"
+"((mpis-to-reset373_0)"
 " mpis-to-reset_0)"
-"((declared-submodule-names402_0)"
+"((declared-submodule-names374_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules403_0)"
+"((compiled-submodules375_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled404_0)"
+"((modules-being-compiled376_0)"
 " modules-being-compiled_0)"
-"((submod-ctx405_0)"
+"((submod-ctx377_0)"
 " submod-ctx_0))"
-"(expand-post-submodules163.1"
-" all-scopes-s400_0"
-" compiled-submodules403_0"
-" submod-ctx405_0"
-" declare-enclosing-module395_0"
-" declared-submodule-names402_0"
-" is-cross-phase-persistent?399_0"
-" modules-being-compiled404_0"
-" mpis-to-reset401_0"
-" phase396_0"
-" requires+provides398_0"
-" self397_0"
-" fully-expanded-bodys-except-post-submodules394_0))))))"
+"(expand-post-submodules.1"
+" all-scopes-s372_0"
+" compiled-submodules375_0"
+" submod-ctx377_0"
+" declare-enclosing-module367_0"
+" declared-submodule-names374_0"
+" is-cross-phase-persistent?371_0"
+" modules-being-compiled376_0"
+" mpis-to-reset373_0"
+" phase368_0"
+" requires+provides370_0"
+" self369_0"
+" fully-expanded-bodys-except-post-submodules366_0))))))"
 "(if(expand-context-to-parsed?"
 " submod-ctx_0)"
 "(let-values()"
@@ -78322,17 +78218,17 @@ static const char *startup_source =
 " fully-expanded-bodys_0)))"
 "(let-values()"
 "(let-values(((mb-result-s_0)"
-"(let-values(((rebuild-mb-s406_0)"
+"(let-values(((rebuild-mb-s378_0)"
 " rebuild-mb-s_0)"
-"((temp407_0)"
+"((temp379_0)"
 "(list*"
-" #%module-begin297_0"
+" #%module-begin269_0"
 "(syntax-only"
 " fully-expanded-bodys_0))))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" rebuild-mb-s406_0"
-" temp407_0))))"
+" rebuild-mb-s378_0"
+" temp379_0))))"
 "(if(not"
 "(expand-context-in-local-expand?"
 " submod-ctx_0))"
@@ -78352,25 +78248,25 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((context408_0)"
+"(let-values(((context380_0)"
 " 'module-begin)"
-"((inner409_0)"
+"((inner381_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((module-begin-k410_0)"
+"(let-values(((module-begin-k382_0)"
 " module-begin-k_0)"
-"((in-local-expand?411_0)"
+"((in-local-expand?383_0)"
 " #f)"
-"((lifts412_0)"
+"((lifts384_0)"
 " #f)"
-"((module-lifts413_0)"
+"((module-lifts385_0)"
 " #f)"
-"((to-module-lifts414_0)"
+"((to-module-lifts386_0)"
 " #f)"
-"((require-lifts415_0)"
+"((require-lifts387_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -78395,22 +78291,22 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-just-once?"
 " the-struct_1)"
-" module-begin-k410_0"
+" module-begin-k382_0"
 "(expand-context/inner-allow-unbound?"
 " the-struct_1)"
-" in-local-expand?411_0"
+" in-local-expand?383_0"
 "(expand-context/inner-keep-#%expression?"
 " the-struct_1)"
 "(expand-context/inner-stops"
 " the-struct_1)"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_1)"
-" lifts412_0"
+" lifts384_0"
 "(expand-context/inner-lift-envs"
 " the-struct_1)"
-" module-lifts413_0"
-" require-lifts415_0"
-" to-module-lifts414_0"
+" module-lifts385_0"
+" require-lifts387_0"
+" to-module-lifts386_0"
 "(expand-context/inner-requires+provides"
 " the-struct_1)"
 "(expand-context/inner-observer"
@@ -78428,14 +78324,14 @@ static const char *startup_source =
 "                                                                                                                                           \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner409_0"
+" inner381_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
 " the-struct_0)"
-" context408_0"
+" context380_0"
 "(expand-context/outer-env"
 " the-struct_0)"
 "(expand-context/outer-scopes"
@@ -78469,31 +78365,31 @@ static const char *startup_source =
 "(box"
 " null)))"
 "(let-values(((mb_0)"
-"(let-values(((bodys416_0)"
+"(let-values(((bodys388_0)"
 " bodys_0)"
-"((module-name-sym417_0)"
+"((module-name-sym389_0)"
 " module-name-sym_0)"
-"((mb-scopes-s418_0)"
+"((mb-scopes-s390_0)"
 " mb-scopes-s_0)"
-"((m-ns419_0)"
+"((m-ns391_0)"
 " m-ns_0)"
-"((mb-ctx420_0)"
+"((mb-ctx392_0)"
 " mb-ctx_0)"
-"((mb-def-ctx-scopes421_0)"
+"((mb-def-ctx-scopes393_0)"
 " mb-def-ctx-scopes_0)"
-"((phase422_0)"
+"((phase394_0)"
 " phase_0)"
-"((s423_0)"
+"((s395_0)"
 " s_0))"
-"(ensure-module-begin34.1"
-" mb-ctx420_0"
-" mb-def-ctx-scopes421_0"
-" m-ns419_0"
-" module-name-sym417_0"
-" phase422_0"
-" s423_0"
-" mb-scopes-s418_0"
-" bodys416_0))))"
+"(ensure-module-begin.1"
+" mb-ctx392_0"
+" mb-def-ctx-scopes393_0"
+" m-ns391_0"
+" module-name-sym389_0"
+" phase394_0"
+" s395_0"
+" mb-scopes-s390_0"
+" bodys388_0))))"
 "(let-values(((expanded-mb_0)"
 "(begin"
 "(if log-performance?"
@@ -78504,9 +78400,9 @@ static const char *startup_source =
 "(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((mb424_0)"
+"(let-values(((mb396_0)"
 " mb_0)"
-"((temp425_0)"
+"((temp397_0)"
 "(let-values(((v_0)"
 "(accumulate-def-ctx-scopes"
 " mb-ctx_0"
@@ -78515,13 +78411,13 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((def-ctx-scopes426_0)"
+"(let-values(((def-ctx-scopes398_0)"
 " #f)"
-"((inner427_0)"
+"((inner399_0)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(expand-context/outer1.1"
-" inner427_0"
+" inner399_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -78534,7 +78430,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-scopes"
 " the-struct_0)"
-" def-ctx-scopes426_0"
+" def-ctx-scopes398_0"
 "(expand-context/outer-binding-layer"
 " the-struct_0)"
 "(expand-context/outer-reference-records"
@@ -78553,12 +78449,12 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                                                                     \"expand-context/outer?\""
 " the-struct_0))))))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" mb424_0"
-" temp425_0)))"
+" mb396_0"
+" temp397_0)))"
 "(if log-performance?"
 "(let-values()"
 "(end-performance-region))"
@@ -78579,7 +78475,7 @@ static const char *startup_source =
 "(parsed-module25.1"
 " rebuild-s_0"
 " #f"
-" id:module-name225_0"
+" id:module-name201_0"
 " self_0"
 " requires_0"
 " provides_0"
@@ -78652,31 +78548,31 @@ static const char *startup_source =
 " lst_0)))"
 "(void)"
 "(let-values(((result-s_0)"
-"(let-values(((rebuild-s428_0)"
+"(let-values(((rebuild-s400_0)"
 " rebuild-s_0)"
-"((temp429_0)"
+"((temp401_0)"
 "(list"
-" module224_0"
-" id:module-name225_0"
+" module200_0"
+" id:module-name201_0"
 " initial-require-s_0"
 "(expanded+parsed-s"
 " expanded-mb_0))))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" rebuild-s428_0"
-" temp429_0))))"
+" rebuild-s400_0"
+" temp401_0))))"
 "(let-values(((result-s_1)"
-"(let-values(((result-s430_0)"
+"(let-values(((result-s402_0)"
 " result-s_0)"
-"((self431_0)"
+"((self403_0)"
 " self_0)"
-"((generic-self432_0)"
+"((generic-self404_0)"
 " generic-self_0))"
-"(syntax-module-path-index-shift13.1"
+"(syntax-module-path-index-shift.1"
 " #f"
-" result-s430_0"
-" self431_0"
-" generic-self432_0"
+" result-s402_0"
+" self403_0"
+" generic-self404_0"
 " #f))))"
 "(let-values(((result-s_2)"
 "(attach-root-expand-context-properties"
@@ -78718,18 +78614,18 @@ static const char *startup_source =
 "(let-values()"
 " result-s_0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
-"(ensure-module-begin34.1)"
-"(lambda(ctx22_0 def-ctx-scopes23_0 m-ns21_0 module-name-sym19_0 phase24_0 s25_0 scopes-s20_0 bodys33_0)"
+"(ensure-module-begin.1)"
+"(lambda(ctx20_0 def-ctx-scopes21_0 m-ns19_0 module-name-sym17_0 phase22_0 s23_0 scopes-s18_0 bodys31_0)"
 "(begin"
-" 'ensure-module-begin34"
-"(let-values(((bodys_0) bodys33_0))"
-"(let-values(((module-name-sym_0) module-name-sym19_0))"
-"(let-values(((scopes-s_0) scopes-s20_0))"
+" 'ensure-module-begin"
+"(let-values(((bodys_0) bodys31_0))"
+"(let-values(((module-name-sym_0) module-name-sym17_0))"
+"(let-values(((scopes-s_0) scopes-s18_0))"
 "(let-values()"
-"(let-values(((ctx_0) ctx22_0))"
-"(let-values(((def-ctx-scopes_0) def-ctx-scopes23_0))"
-"(let-values(((phase_0) phase24_0))"
-"(let-values(((s_0) s25_0))"
+"(let-values(((ctx_0) ctx20_0))"
+"(let-values(((def-ctx-scopes_0) def-ctx-scopes21_0))"
+"(let-values(((phase_0) phase22_0))"
+"(let-values(((s_0) s23_0))"
 "(let-values()"
 "(let-values(((make-mb-ctx_0)"
 "(lambda()"
@@ -78738,22 +78634,22 @@ static const char *startup_source =
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context433_0) 'module-begin)"
-"((only-immediate?434_0) #t)"
-"((def-ctx-scopes435_0) def-ctx-scopes_0)"
-"((inner436_0)(root-expand-context/outer-inner v_0)))"
+"(let-values(((context405_0) 'module-begin)"
+"((only-immediate?406_0) #t)"
+"((def-ctx-scopes407_0) def-ctx-scopes_0)"
+"((inner408_0)(root-expand-context/outer-inner v_0)))"
 "(expand-context/outer1.1"
-" inner436_0"
+" inner408_0"
 "(root-expand-context/outer-post-expansion the-struct_0)"
 "(root-expand-context/outer-use-site-scopes the-struct_0)"
 "(root-expand-context/outer-frame-id the-struct_0)"
-" context433_0"
+" context405_0"
 "(expand-context/outer-env the-struct_0)"
 "(expand-context/outer-scopes the-struct_0)"
-" def-ctx-scopes435_0"
+" def-ctx-scopes407_0"
 "(expand-context/outer-binding-layer the-struct_0)"
 "(expand-context/outer-reference-records the-struct_0)"
-" only-immediate?434_0"
+" only-immediate?406_0"
 "(expand-context/outer-need-eventually-defined the-struct_0)"
 "(expand-context/outer-current-introduction-scopes the-struct_0)"
 "(expand-context/outer-current-use-scopes the-struct_0)"
@@ -78785,12 +78681,12 @@ static const char *startup_source =
 "(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((temp437_0)"
+"(let-values(((temp409_0)"
 "(add-enclosing-name-property"
 "(car bodys_0)"
 " module-name-sym_0))"
-"((temp438_0)(make-mb-ctx_0)))"
-"(expand9.1 #f #f #f temp437_0 temp438_0)))"
+"((temp410_0)(make-mb-ctx_0)))"
+"(expand.1 #f #f #f temp409_0 temp410_0)))"
 "(if log-performance?"
 "(let-values()(end-performance-region))"
 "(void))))))"
@@ -78801,56 +78697,56 @@ static const char *startup_source =
 " phase_0))"
 "(let-values() partly-expanded-body_0)"
 "(let-values()"
-"(let-values(((temp439_0)(list partly-expanded-body_0))"
-"((s440_0) s_0)"
-"((scopes-s441_0) scopes-s_0)"
-"((phase442_0) phase_0)"
-"((module-name-sym443_0) module-name-sym_0)"
-"((temp444_0)(make-mb-ctx_0))"
-"((temp445_0) #f))"
-"(add-module-begin45.1"
-" temp445_0"
-" temp439_0"
-" s440_0"
-" scopes-s441_0"
-" phase442_0"
-" module-name-sym443_0"
-" temp444_0)))))))))"
+"(let-values(((temp411_0)(list partly-expanded-body_0))"
+"((s412_0) s_0)"
+"((scopes-s413_0) scopes-s_0)"
+"((phase414_0) phase_0)"
+"((module-name-sym415_0) module-name-sym_0)"
+"((temp416_0)(make-mb-ctx_0))"
+"((temp417_0) #f))"
+"(add-module-begin.1"
+" temp417_0"
+" temp411_0"
+" s412_0"
+" scopes-s413_0"
+" phase414_0"
+" module-name-sym415_0"
+" temp416_0)))))))))"
 "(let-values()"
-"(let-values(((bodys446_0) bodys_0)"
-"((s447_0) s_0)"
-"((scopes-s448_0) scopes-s_0)"
-"((phase449_0) phase_0)"
-"((module-name-sym450_0) module-name-sym_0)"
-"((temp451_0)(make-mb-ctx_0)))"
-"(add-module-begin45.1"
+"(let-values(((bodys418_0) bodys_0)"
+"((s419_0) s_0)"
+"((scopes-s420_0) scopes-s_0)"
+"((phase421_0) phase_0)"
+"((module-name-sym422_0) module-name-sym_0)"
+"((temp423_0)(make-mb-ctx_0)))"
+"(add-module-begin.1"
 " #t"
-" bodys446_0"
-" s447_0"
-" scopes-s448_0"
-" phase449_0"
-" module-name-sym450_0"
-" temp451_0))))))"
+" bodys418_0"
+" s419_0"
+" scopes-s420_0"
+" phase421_0"
+" module-name-sym422_0"
+" temp423_0))))))"
 "(add-enclosing-name-property mb_0 module-name-sym_0)))))))))))))))"
 "(define-values"
-"(add-module-begin45.1)"
-"(lambda(log-rename-one?37_0 bodys39_0 s40_0 scopes-s41_0 phase42_0 module-name-sym43_0 mb-ctx44_0)"
+"(add-module-begin.1)"
+"(lambda(log-rename-one?33_0 bodys35_0 s36_0 scopes-s37_0 phase38_0 module-name-sym39_0 mb-ctx40_0)"
 "(begin"
-" 'add-module-begin45"
-"(let-values(((bodys_0) bodys39_0))"
-"(let-values(((s_0) s40_0))"
-"(let-values(((scopes-s_0) scopes-s41_0))"
-"(let-values(((phase_0) phase42_0))"
-"(let-values(((module-name-sym_0) module-name-sym43_0))"
-"(let-values(((mb-ctx_0) mb-ctx44_0))"
-"(let-values(((log-rename-one?_0) log-rename-one?37_0))"
+" 'add-module-begin"
+"(let-values(((bodys_0) bodys35_0))"
+"(let-values(((s_0) s36_0))"
+"(let-values(((scopes-s_0) scopes-s37_0))"
+"(let-values(((phase_0) phase38_0))"
+"(let-values(((module-name-sym_0) module-name-sym39_0))"
+"(let-values(((mb-ctx_0) mb-ctx40_0))"
+"(let-values(((log-rename-one?_0) log-rename-one?33_0))"
 "(let-values()"
 "(let-values(((disarmed-scopes-s_0)(syntax-disarm$1 scopes-s_0)))"
 "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((mb-id452_0) mb-id_0)((phase453_0) phase_0))"
-"(resolve40.1 #f #f null #f mb-id452_0 phase453_0))"
+"(if(let-values(((mb-id424_0) mb-id_0)((phase425_0) phase_0))"
+"(resolve.1 #f #f null #f mb-id424_0 phase425_0))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -78884,12 +78780,12 @@ static const char *startup_source =
 "(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((temp454_0)"
+"(let-values(((temp426_0)"
 "(add-enclosing-name-property"
 " mb_0"
 " module-name-sym_0))"
-"((mb-ctx455_0) mb-ctx_0))"
-"(expand9.1 #f #f #f temp454_0 mb-ctx455_0)))"
+"((mb-ctx427_0) mb-ctx_0))"
+"(expand.1 #f #f #f temp426_0 mb-ctx427_0)))"
 "(if log-performance?"
 "(let-values()(end-performance-region))"
 "(void))))))"
@@ -78934,63 +78830,63 @@ static const char *startup_source =
 "(let-values(((s-with-suitable-enclosing_0)"
 "(if keep-enclosing-scope-at-phase_0"
 "(let-values()"
-"(let-values(((s-with-edges460_0) s-with-edges_0)"
-"((enclosing-self461_0) enclosing-self_0)"
-"((enclosing-mod462_0) enclosing-mod_0))"
-"(syntax-module-path-index-shift13.1"
+"(let-values(((s-with-edges432_0) s-with-edges_0)"
+"((enclosing-self433_0) enclosing-self_0)"
+"((enclosing-mod434_0) enclosing-mod_0))"
+"(syntax-module-path-index-shift.1"
 " #f"
-" s-with-edges460_0"
-" enclosing-self461_0"
-" enclosing-mod462_0"
+" s-with-edges432_0"
+" enclosing-self433_0"
+" enclosing-mod434_0"
 " #f)))"
 "(let-values() s-with-edges_0))))"
-"(let-values(((s-with-suitable-enclosing456_0) s-with-suitable-enclosing_0)"
-"((temp457_0)(make-generic-self-module-path-index self_0))"
-"((self458_0) self_0)"
-"((temp459_0)(current-code-inspector)))"
-"(syntax-module-path-index-shift13.1"
+"(let-values(((s-with-suitable-enclosing428_0) s-with-suitable-enclosing_0)"
+"((temp429_0)(make-generic-self-module-path-index self_0))"
+"((self430_0) self_0)"
+"((temp431_0)(current-code-inspector)))"
+"(syntax-module-path-index-shift.1"
 " #f"
-" s-with-suitable-enclosing456_0"
-" temp457_0"
-" self458_0"
-" temp459_0))))))"
+" s-with-suitable-enclosing428_0"
+" temp429_0"
+" self430_0"
+" temp431_0))))))"
 "(if log-performance?(let-values()(end-performance-region))(void))))))))"
 "(define-values"
-"(partially-expand-bodys79.1)"
-"(lambda(all-scopes-stx55_0"
-" compiled-submodules59_0"
-" ctx49_0"
-" declared-keywords57_0"
-" declared-submodule-names58_0"
-" defined-syms56_0"
-" frame-id52_0"
-" loop62_0"
-" modules-being-compiled60_0"
-" mpis-to-reset61_0"
-" namespace50_0"
-" need-eventually-defined54_0"
-" phase48_0"
-" requires-and-provides53_0"
-" self51_0"
-" bodys78_0)"
+"(partially-expand-bodys.1)"
+"(lambda(all-scopes-stx49_0"
+" compiled-submodules53_0"
+" ctx43_0"
+" declared-keywords51_0"
+" declared-submodule-names52_0"
+" defined-syms50_0"
+" frame-id46_0"
+" loop56_0"
+" modules-being-compiled54_0"
+" mpis-to-reset55_0"
+" namespace44_0"
+" need-eventually-defined48_0"
+" phase42_0"
+" requires-and-provides47_0"
+" self45_0"
+" bodys72_0)"
 "(begin"
-" 'partially-expand-bodys79"
-"(let-values(((bodys_0) bodys78_0))"
-"(let-values(((phase_0) phase48_0))"
-"(let-values(((partial-body-ctx_0) ctx49_0))"
-"(let-values(((m-ns_0) namespace50_0))"
-"(let-values(((self_0) self51_0))"
-"(let-values(((frame-id_0) frame-id52_0))"
-"(let-values(((requires+provides_0) requires-and-provides53_0))"
-"(let-values(((need-eventually-defined_0) need-eventually-defined54_0))"
-"(let-values(((all-scopes-stx_0) all-scopes-stx55_0))"
-"(let-values(((defined-syms_0) defined-syms56_0))"
-"(let-values(((declared-keywords_0) declared-keywords57_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names58_0))"
-"(let-values(((compiled-submodules_0) compiled-submodules59_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled60_0))"
-"(let-values(((mpis-to-reset_0) mpis-to-reset61_0))"
-"(let-values(((pass-1-and-2-loop_0) loop62_0))"
+" 'partially-expand-bodys"
+"(let-values(((bodys_0) bodys72_0))"
+"(let-values(((phase_0) phase42_0))"
+"(let-values(((partial-body-ctx_0) ctx43_0))"
+"(let-values(((m-ns_0) namespace44_0))"
+"(let-values(((self_0) self45_0))"
+"(let-values(((frame-id_0) frame-id46_0))"
+"(let-values(((requires+provides_0) requires-and-provides47_0))"
+"(let-values(((need-eventually-defined_0) need-eventually-defined48_0))"
+"(let-values(((all-scopes-stx_0) all-scopes-stx49_0))"
+"(let-values(((defined-syms_0) defined-syms50_0))"
+"(let-values(((declared-keywords_0) declared-keywords51_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names52_0))"
+"(let-values(((compiled-submodules_0) compiled-submodules53_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled54_0))"
+"(let-values(((mpis-to-reset_0) mpis-to-reset55_0))"
+"(let-values(((pass-1-and-2-loop_0) loop56_0))"
 "(let-values()"
 "(begin"
 "(namespace-visit-available-modules! m-ns_0 phase_0)"
@@ -79071,16 +78967,16 @@ static const char *startup_source =
 "(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((temp463_0)"
+"(let-values(((temp435_0)"
 "(car bodys_1))"
-"((partial-body-ctx464_0)"
+"((partial-body-ctx436_0)"
 " partial-body-ctx_0))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" temp463_0"
-" partial-body-ctx464_0)))"
+" temp435_0"
+" partial-body-ctx436_0)))"
 "(if log-performance?"
 "(let-values()"
 "(end-performance-region))"
@@ -79124,14 +79020,14 @@ static const char *startup_source =
 " 'begin)"
 "(let-values()"
 "(let-values(((ok?_0"
-" begin465_0"
-" e466_0)"
+" begin437_0"
+" e438_0)"
 "(let-values(((s_0)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((begin465_0"
-" e466_0)"
+"(let-values(((begin437_0"
+" e438_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -79140,12 +79036,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((begin467_0)"
+"(let-values(((begin439_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e468_0)"
+"((e440_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -79168,16 +79064,16 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" begin467_0"
-" e468_0))"
+" begin439_0"
+" e440_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                             \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" begin465_0"
-" e466_0))))))"
+" begin437_0"
+" e438_0))))))"
 "(let-values(((track_0)"
 "(lambda(e_0)"
 "(begin"
@@ -79189,7 +79085,7 @@ static const char *startup_source =
 "(append"
 "(map2"
 " track_0"
-" e466_0)"
+" e438_0)"
 " rest-bodys_0)))"
 "(begin"
 "(let-values(((obs_0)"
@@ -79255,14 +79151,14 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_0"
-" begin-for-syntax469_0"
-" e470_0)"
+" begin-for-syntax441_0"
+" e442_0)"
 "(let-values(((s_0)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((begin-for-syntax469_0"
-" e470_0)"
+"(let-values(((begin-for-syntax441_0"
+" e442_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -79271,12 +79167,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((begin-for-syntax471_0)"
+"(let-values(((begin-for-syntax443_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((e472_0)"
+"((e444_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -79299,19 +79195,19 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" begin-for-syntax471_0"
-" e472_0))"
+" begin-for-syntax443_0"
+" e444_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                       \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" begin-for-syntax469_0"
-" e470_0))))))"
+" begin-for-syntax441_0"
+" e442_0))))))"
 "(let-values(((nested-bodys_0)"
 "(pass-1-and-2-loop_0"
-" e470_0"
+" e442_0"
 "(add1"
 " phase_0)"
 " #f)))"
@@ -79398,7 +79294,7 @@ static const char *startup_source =
 "(datum->syntax$1"
 " #f"
 "(cons"
-" begin-for-syntax469_0"
+" begin-for-syntax441_0"
 " s-nested-bodys_0)"
 " exp-body_0)))))"
 "(void)))"
@@ -79432,16 +79328,16 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_0"
-" define-values473_0"
-" id474_0"
-" rhs475_0)"
+" define-values445_0"
+" id446_0"
+" rhs447_0)"
 "(let-values(((s_0)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((define-values473_0"
-" id474_0"
-" rhs475_0)"
+"(let-values(((define-values445_0"
+" id446_0"
+" rhs447_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -79450,13 +79346,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((define-values476_0)"
+"(let-values(((define-values448_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((id477_0"
-" rhs478_0)"
+"((id449_0"
+" rhs450_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -79468,7 +79364,7 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((id479_0)"
+"(let-values(((id451_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -79517,7 +79413,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id492_0)"
+"(let-values(((id464_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -79537,7 +79433,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_6)))))"
 "(cons"
-" id492_0"
+" id464_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -79553,7 +79449,7 @@ static const char *startup_source =
 " lst_0)))))"
 "(reverse$1"
 " id_0))))))))"
-"((rhs480_0)"
+"((rhs452_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -79565,7 +79461,7 @@ static const char *startup_source =
 " s_4)))"
 "(if(pair?"
 " s_5)"
-"(let-values(((rhs481_0)"
+"(let-values(((rhs453_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
@@ -79588,94 +79484,94 @@ static const char *startup_source =
 "                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" rhs481_0))"
+" rhs453_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                           \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id479_0"
-" rhs480_0))"
+" id451_0"
+" rhs452_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                       \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" define-values476_0"
-" id477_0"
-" rhs478_0))"
+" define-values448_0"
+" id449_0"
+" rhs450_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                   \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" define-values473_0"
-" id474_0"
-" rhs475_0))))))"
+" define-values445_0"
+" id446_0"
+" rhs447_0))))))"
 "(let-values(((ids_0)"
 "(remove-use-site-scopes"
-" id474_0"
+" id446_0"
 " partial-body-ctx_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ids482_0)"
+"(let-values(((ids454_0)"
 " ids_0)"
-"((phase483_0)"
+"((phase455_0)"
 " phase_0)"
-"((exp-body484_0)"
+"((exp-body456_0)"
 " exp-body_0))"
-"(check-no-duplicate-ids7.1"
+"(check-no-duplicate-ids.1"
 " unsafe-undefined"
-" ids482_0"
-" phase483_0"
-" exp-body484_0"
+" ids454_0"
+" phase455_0"
+" exp-body456_0"
 " unsafe-undefined))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((ids485_0)"
+"(let-values(((ids457_0)"
 " ids_0)"
-"((phase486_0)"
+"((phase458_0)"
 " phase_0)"
-"((requires+provides487_0)"
+"((requires+provides459_0)"
 " requires+provides_0)"
-"((exp-body488_0)"
+"((exp-body460_0)"
 " exp-body_0))"
-"(check-ids-unbound171.1"
-" exp-body488_0"
-" ids485_0"
-" phase486_0"
-" requires+provides487_0))"
+"(check-ids-unbound.1"
+" exp-body460_0"
+" ids457_0"
+" phase458_0"
+" requires+provides459_0))"
 "(values))))"
 "(let-values(((syms_0)"
-"(let-values(((ids493_0)"
+"(let-values(((ids465_0)"
 " ids_0)"
-"((defined-syms494_0)"
+"((defined-syms466_0)"
 " defined-syms_0)"
-"((self495_0)"
+"((self467_0)"
 " self_0)"
-"((phase496_0)"
+"((phase468_0)"
 " phase_0)"
-"((all-scopes-stx497_0)"
+"((all-scopes-stx469_0)"
 " all-scopes-stx_0)"
-"((frame-id498_0)"
+"((frame-id470_0)"
 " frame-id_0)"
-"((requires+provides499_0)"
+"((requires+provides471_0)"
 " requires+provides_0)"
-"((exp-body500_0)"
+"((exp-body472_0)"
 " exp-body_0))"
-"(select-defined-syms-and-bind!16.1"
+"(select-defined-syms-and-bind!.1"
 " #f"
-" frame-id498_0"
-" exp-body500_0"
-" requires+provides499_0"
+" frame-id470_0"
+" exp-body472_0"
+" requires+provides471_0"
 " #f"
-" ids493_0"
-" defined-syms494_0"
-" self495_0"
-" phase496_0"
-" all-scopes-stx497_0))))"
+" ids465_0"
+" defined-syms466_0"
+" self467_0"
+" phase468_0"
+" all-scopes-stx469_0))))"
 "(begin"
 "(let-values(((lst_0)"
 " syms_0))"
@@ -79719,17 +79615,17 @@ static const char *startup_source =
 " for-loop_0)"
 " lst_0)))"
 "(void)"
-"(let-values(((requires+provides489_0)"
+"(let-values(((requires+provides461_0)"
 " requires+provides_0)"
-"((syms490_0)"
+"((syms462_0)"
 " syms_0)"
-"((phase491_0)"
+"((phase463_0)"
 " phase_0))"
-"(add-defined-syms!103.1"
+"(add-defined-syms!.1"
 " #f"
-" requires+provides489_0"
-" syms490_0"
-" phase491_0))"
+" requires+provides461_0"
+" syms462_0"
+" phase463_0))"
 "(let-values(((obs_0)"
 "(expand-context-observer"
 " partial-body-ctx_0)))"
@@ -79742,9 +79638,9 @@ static const char *startup_source =
 "(datum->syntax$1"
 " #f"
 "(list"
-" define-values473_0"
+" define-values445_0"
 " ids_0"
-" rhs475_0)"
+" rhs447_0)"
 " exp-body_0))))"
 "(void)))"
 "(cons"
@@ -79752,7 +79648,7 @@ static const char *startup_source =
 " exp-body_0"
 " syms_0"
 " ids_0"
-" rhs475_0)"
+" rhs447_0)"
 "(loop_0"
 " tail?_0"
 " rest-bodys_0))))))))))"
@@ -79800,16 +79696,16 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((ok?_0"
-" define-syntaxes501_0"
-" id502_0"
-" rhs503_0)"
+" define-syntaxes473_0"
+" id474_0"
+" rhs475_0)"
 "(let-values(((s_0)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((define-syntaxes501_0"
-" id502_0"
-" rhs503_0)"
+"(let-values(((define-syntaxes473_0"
+" id474_0"
+" rhs475_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -79818,13 +79714,13 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((define-syntaxes504_0)"
+"(let-values(((define-syntaxes476_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((id505_0"
-" rhs506_0)"
+"((id477_0"
+" rhs478_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -79836,7 +79732,7 @@ static const char *startup_source =
 " s_2)))"
 "(if(pair?"
 " s_3)"
-"(let-values(((id507_0)"
+"(let-values(((id479_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
@@ -79885,7 +79781,7 @@ static const char *startup_source =
 " id_0))"
 "(let-values(((id_2)"
 "(let-values()"
-"(let-values(((id521_0)"
+"(let-values(((id493_0)"
 "(let-values()"
 "(if(let-values(((or-part_0)"
 "(if(syntax?$1"
@@ -79905,7 +79801,7 @@ static const char *startup_source =
 " orig-s_0"
 " s_6)))))"
 "(cons"
-" id521_0"
+" id493_0"
 " id_1)))))"
 "(values"
 " id_2)))))"
@@ -79921,7 +79817,7 @@ static const char *startup_source =
 " lst_0)))))"
 "(reverse$1"
 " id_0))))))))"
-"((rhs508_0)"
+"((rhs480_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -79933,7 +79829,7 @@ static const char *startup_source =
 " s_4)))"
 "(if(pair?"
 " s_5)"
-"(let-values(((rhs509_0)"
+"(let-values(((rhs481_0)"
 "(let-values(((s_6)"
 "(car"
 " s_5)))"
@@ -79956,141 +79852,141 @@ static const char *startup_source =
 "                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" rhs509_0))"
+" rhs481_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" id507_0"
-" rhs508_0))"
+" id479_0"
+" rhs480_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                             \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" define-syntaxes504_0"
-" id505_0"
-" rhs506_0))"
+" define-syntaxes476_0"
+" id477_0"
+" rhs478_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                         \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" define-syntaxes501_0"
-" id502_0"
-" rhs503_0))))))"
+" define-syntaxes473_0"
+" id474_0"
+" rhs475_0))))))"
 "(let-values(((ids_0)"
 "(remove-use-site-scopes"
-" id502_0"
+" id474_0"
 " partial-body-ctx_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ids510_0)"
+"(let-values(((ids482_0)"
 " ids_0)"
-"((phase511_0)"
+"((phase483_0)"
 " phase_0)"
-"((exp-body512_0)"
+"((exp-body484_0)"
 " exp-body_0))"
-"(check-no-duplicate-ids7.1"
+"(check-no-duplicate-ids.1"
 " unsafe-undefined"
-" ids510_0"
-" phase511_0"
-" exp-body512_0"
+" ids482_0"
+" phase483_0"
+" exp-body484_0"
 " unsafe-undefined))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((ids513_0)"
+"(let-values(((ids485_0)"
 " ids_0)"
-"((phase514_0)"
+"((phase486_0)"
 " phase_0)"
-"((requires+provides515_0)"
+"((requires+provides487_0)"
 " requires+provides_0)"
-"((exp-body516_0)"
+"((exp-body488_0)"
 " exp-body_0))"
-"(check-ids-unbound171.1"
-" exp-body516_0"
-" ids513_0"
-" phase514_0"
-" requires+provides515_0))"
+"(check-ids-unbound.1"
+" exp-body488_0"
+" ids485_0"
+" phase486_0"
+" requires+provides487_0))"
 "(values))))"
 "(let-values(((syms_0)"
-"(let-values(((ids522_0)"
+"(let-values(((ids494_0)"
 " ids_0)"
-"((defined-syms523_0)"
+"((defined-syms495_0)"
 " defined-syms_0)"
-"((self524_0)"
+"((self496_0)"
 " self_0)"
-"((phase525_0)"
+"((phase497_0)"
 " phase_0)"
-"((all-scopes-stx526_0)"
+"((all-scopes-stx498_0)"
 " all-scopes-stx_0)"
-"((frame-id527_0)"
+"((frame-id499_0)"
 " frame-id_0)"
-"((requires+provides528_0)"
+"((requires+provides500_0)"
 " requires+provides_0)"
-"((exp-body529_0)"
+"((exp-body501_0)"
 " exp-body_0)"
-"((temp530_0)"
+"((temp502_0)"
 " #t))"
-"(select-defined-syms-and-bind!16.1"
-" temp530_0"
-" frame-id527_0"
-" exp-body529_0"
-" requires+provides528_0"
+"(select-defined-syms-and-bind!.1"
+" temp502_0"
+" frame-id499_0"
+" exp-body501_0"
+" requires+provides500_0"
 " #f"
-" ids522_0"
-" defined-syms523_0"
-" self524_0"
-" phase525_0"
-" all-scopes-stx526_0))))"
+" ids494_0"
+" defined-syms495_0"
+" self496_0"
+" phase497_0"
+" all-scopes-stx498_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((requires+provides517_0)"
+"(let-values(((requires+provides489_0)"
 " requires+provides_0)"
-"((syms518_0)"
+"((syms490_0)"
 " syms_0)"
-"((phase519_0)"
+"((phase491_0)"
 " phase_0)"
-"((temp520_0)"
+"((temp492_0)"
 " #t))"
-"(add-defined-syms!103.1"
-" temp520_0"
-" requires+provides517_0"
-" syms518_0"
-" phase519_0))"
+"(add-defined-syms!.1"
+" temp492_0"
+" requires+provides489_0"
+" syms490_0"
+" phase491_0))"
 "(values))))"
 "(let-values(((exp-rhs_0"
 " parsed-rhs_0"
 " vals_0)"
-"(let-values(((temp531_0)"
+"(let-values(((temp503_0)"
 " 'define-syntaxes)"
-"((temp532_0)"
-" rhs503_0)"
-"((ids533_0)"
+"((temp504_0)"
+" rhs475_0)"
+"((ids505_0)"
 " ids_0)"
-"((temp534_0)"
+"((temp506_0)"
 "(let-values(((v_0)"
 " partial-body-ctx_0))"
 "(let-values(((the-struct_0)"
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((need-eventually-defined536_0)"
+"(let-values(((need-eventually-defined508_0)"
 " need-eventually-defined_0)"
-"((inner537_0)"
+"((inner509_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((lifts538_0)"
+"(let-values(((lifts510_0)"
 " #f)"
-"((module-lifts539_0)"
+"((module-lifts511_0)"
 " #f)"
-"((to-module-lifts540_0)"
+"((to-module-lifts512_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -80127,13 +80023,13 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_1)"
-" lifts538_0"
+" lifts510_0"
 "(expand-context/inner-lift-envs"
 " the-struct_1)"
-" module-lifts539_0"
+" module-lifts511_0"
 "(expand-context/inner-require-lifts"
 " the-struct_1)"
-" to-module-lifts540_0"
+" to-module-lifts512_0"
 "(expand-context/inner-requires+provides"
 " the-struct_1)"
 "(expand-context/inner-observer"
@@ -80151,7 +80047,7 @@ static const char *startup_source =
 "                                                                                                                                                                                     \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner537_0"
+" inner509_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
@@ -80172,7 +80068,7 @@ static const char *startup_source =
 " the-struct_0)"
 "(expand-context/outer-only-immediate?"
 " the-struct_0)"
-" need-eventually-defined536_0"
+" need-eventually-defined508_0"
 "(expand-context/outer-current-introduction-scopes"
 " the-struct_0)"
 "(expand-context/outer-current-use-scopes"
@@ -80183,14 +80079,14 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                                                                                   \"expand-context/outer?\""
 " the-struct_0)))))"
-"((temp535_0)"
+"((temp507_0)"
 " #f))"
-"(expand+eval-for-syntaxes-binding108.1"
-" temp535_0"
-" temp531_0"
-" temp532_0"
-" ids533_0"
-" temp534_0))))"
+"(expand+eval-for-syntaxes-binding.1"
+" temp507_0"
+" temp503_0"
+" temp504_0"
+" ids505_0"
+" temp506_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((lst_0)"
@@ -80297,7 +80193,7 @@ static const char *startup_source =
 "(datum->syntax$1"
 " #f"
 "(list"
-" define-syntaxes501_0"
+" define-syntaxes473_0"
 " ids_0"
 " exp-rhs_0)))))"
 "(void)))"
@@ -80314,17 +80210,17 @@ static const char *startup_source =
 " partial-body-ctx_0)"
 " parsed-body_0"
 "(expanded+parsed1.1"
-"(let-values(((exp-body541_0)"
+"(let-values(((exp-body513_0)"
 " exp-body_0)"
-"((temp542_0)"
+"((temp514_0)"
 "(list"
-" define-syntaxes501_0"
+" define-syntaxes473_0"
 " ids_0"
 " exp-rhs_0)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" exp-body541_0"
-" temp542_0))"
+" exp-body513_0"
+" temp514_0))"
 " parsed-body_0))"
 "(loop_0"
 " tail?_0"
@@ -80356,14 +80252,14 @@ static const char *startup_source =
 " disarmed-exp-body_0"
 " partial-body-ctx_0)))"
 "(let-values(((ok?_0"
-" #%require543_0"
-" req544_0)"
+" #%require515_0"
+" req516_0)"
 "(let-values(((s_0)"
 " ready-body_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((#%require543_0"
-" req544_0)"
+"(let-values(((#%require515_0"
+" req516_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -80372,12 +80268,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((#%require545_0)"
+"(let-values(((#%require517_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((req546_0)"
+"((req518_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -80400,51 +80296,51 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" #%require545_0"
-" req546_0))"
+" #%require517_0"
+" req518_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                         \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" #%require543_0"
-" req544_0))))))"
+" #%require515_0"
+" req516_0))))))"
 "(begin"
-"(let-values(((temp547_0)"
-" req544_0)"
-"((exp-body548_0)"
+"(let-values(((temp519_0)"
+" req516_0)"
+"((exp-body520_0)"
 " exp-body_0)"
-"((self549_0)"
+"((self521_0)"
 " self_0)"
-"((m-ns550_0)"
+"((m-ns522_0)"
 " m-ns_0)"
-"((phase551_0)"
+"((phase523_0)"
 " phase_0)"
-"((phase552_0)"
+"((phase524_0)"
 " phase_0)"
-"((requires+provides553_0)"
+"((requires+provides525_0)"
 " requires+provides_0)"
-"((declared-submodule-names554_0)"
+"((declared-submodule-names526_0)"
 " declared-submodule-names_0)"
-"((temp555_0)"
+"((temp527_0)"
 " 'module))"
-"(parse-and-perform-requires!30.1"
+"(parse-and-perform-requires!.1"
 " #f"
 " #f"
-" declared-submodule-names554_0"
+" declared-submodule-names526_0"
 " #f"
-" phase552_0"
+" phase524_0"
 " #f"
-" self549_0"
+" self521_0"
 " #f"
 " #t"
-" temp555_0"
-" temp547_0"
-" exp-body548_0"
-" m-ns550_0"
-" phase551_0"
-" requires+provides553_0))"
+" temp527_0"
+" temp519_0"
+" exp-body520_0"
+" m-ns522_0"
+" phase523_0"
+" requires+provides525_0))"
 "(let-values(((obs_0)"
 "(expand-context-observer"
 " partial-body-ctx_0)))"
@@ -80479,34 +80375,34 @@ static const char *startup_source =
 " exp-body_0"
 " partial-body-ctx_0)))"
 "(let-values(((submod_0)"
-"(let-values(((ready-body556_0)"
+"(let-values(((ready-body528_0)"
 " ready-body_0)"
-"((self557_0)"
+"((self529_0)"
 " self_0)"
-"((partial-body-ctx558_0)"
+"((partial-body-ctx530_0)"
 " partial-body-ctx_0)"
-"((temp559_0)"
+"((temp531_0)"
 " #f)"
-"((declared-submodule-names560_0)"
+"((declared-submodule-names532_0)"
 " declared-submodule-names_0)"
-"((mpis-to-reset561_0)"
+"((mpis-to-reset533_0)"
 " mpis-to-reset_0)"
-"((compiled-submodules562_0)"
+"((compiled-submodules534_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled563_0)"
+"((modules-being-compiled535_0)"
 " modules-being-compiled_0))"
-"(expand-submodule193.1"
-" compiled-submodules562_0"
-" declared-submodule-names560_0"
+"(expand-submodule.1"
+" compiled-submodules534_0"
+" declared-submodule-names532_0"
 " #f"
 " #f"
-" temp559_0"
+" temp531_0"
 " #f"
-" modules-being-compiled563_0"
-" mpis-to-reset561_0"
-" ready-body556_0"
-" self557_0"
-" partial-body-ctx558_0))))"
+" modules-being-compiled535_0"
+" mpis-to-reset533_0"
+" ready-body528_0"
+" self529_0"
+" partial-body-ctx530_0))))"
 "(cons"
 " submod_0"
 "(loop_0"
@@ -80546,14 +80442,14 @@ static const char *startup_source =
 " '#%declare)"
 "(let-values()"
 "(let-values(((ok?_0"
-" #%declare564_0"
-" kw565_0)"
+" #%declare536_0"
+" kw537_0)"
 "(let-values(((s_0)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((#%declare564_0"
-" kw565_0)"
+"(let-values(((#%declare536_0"
+" kw537_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -80562,12 +80458,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((#%declare566_0)"
+"(let-values(((#%declare538_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((kw567_0)"
+"((kw539_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -80590,20 +80486,20 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" #%declare566_0"
-" kw567_0))"
+" #%declare538_0"
+" kw539_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                             \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" #%declare564_0"
-" kw565_0))))))"
+" #%declare536_0"
+" kw537_0))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((lst_0)"
-" kw565_0))"
+" kw537_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -80755,24 +80651,24 @@ static const char *startup_source =
 " null"
 " lst_0))))))"
 "(let-values(((syms_0)"
-"(let-values(((scoped-ids568_0) scoped-ids_0)"
-"((defined-syms569_0) defined-syms_0)"
-"((self570_0) self_0)"
-"((phase571_0) phase_0)"
-"((all-scopes-stx572_0) all-scopes-stx_0)"
-"((frame-id573_0) frame-id_0)"
-"((requires+provides574_0) requires+provides_0))"
-"(select-defined-syms-and-bind!16.1"
+"(let-values(((scoped-ids540_0) scoped-ids_0)"
+"((defined-syms541_0) defined-syms_0)"
+"((self542_0) self_0)"
+"((phase543_0) phase_0)"
+"((all-scopes-stx544_0) all-scopes-stx_0)"
+"((frame-id545_0) frame-id_0)"
+"((requires+provides546_0) requires+provides_0))"
+"(select-defined-syms-and-bind!.1"
 " #f"
-" frame-id573_0"
+" frame-id545_0"
 " #f"
-" requires+provides574_0"
+" requires+provides546_0"
 " #f"
-" scoped-ids568_0"
-" defined-syms569_0"
-" self570_0"
-" phase571_0"
-" all-scopes-stx572_0))))"
+" scoped-ids540_0"
+" defined-syms541_0"
+" self542_0"
+" phase543_0"
+" all-scopes-stx544_0))))"
 "(let-values(((s_0)"
 "(add-scope"
 "(datum->syntax$1"
@@ -80815,25 +80711,25 @@ static const char *startup_source =
 " lst_0))))"
 " bodys_0)))))"
 "(define-values"
-"(finish-expanding-body-expressons97.1)"
-"(lambda(compiled-submodules86_0"
-" ctx83_0"
-" declared-submodule-names85_0"
-" modules-being-compiled87_0"
-" mpis-to-reset88_0"
-" phase82_0"
-" self84_0"
-" partially-expanded-bodys96_0)"
+"(finish-expanding-body-expressons.1)"
+"(lambda(compiled-submodules78_0"
+" ctx75_0"
+" declared-submodule-names77_0"
+" modules-being-compiled79_0"
+" mpis-to-reset80_0"
+" phase74_0"
+" self76_0"
+" partially-expanded-bodys88_0)"
 "(begin"
-" 'finish-expanding-body-expressons97"
-"(let-values(((partially-expanded-bodys_0) partially-expanded-bodys96_0))"
-"(let-values(((phase_0) phase82_0))"
-"(let-values(((body-ctx_0) ctx83_0))"
-"(let-values(((self_0) self84_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names85_0))"
-"(let-values(((compiled-submodules_0) compiled-submodules86_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled87_0))"
-"(let-values(((mpis-to-reset_0) mpis-to-reset88_0))"
+" 'finish-expanding-body-expressons"
+"(let-values(((partially-expanded-bodys_0) partially-expanded-bodys88_0))"
+"(let-values(((phase_0) phase74_0))"
+"(let-values(((body-ctx_0) ctx75_0))"
+"(let-values(((self_0) self76_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names77_0))"
+"(let-values(((compiled-submodules_0) compiled-submodules78_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled79_0))"
+"(let-values(((mpis-to-reset_0) mpis-to-reset80_0))"
 "(let-values()"
 "((letrec-values(((loop_0)"
 "(lambda(tail?_0 bodys_0)"
@@ -80919,9 +80815,9 @@ static const char *startup_source =
 "(semi-parsed-define-values-s"
 " body_0)))"
 "(let-values(((ok?_0"
-" define-values575_0"
-" _576_0"
-" _577_0)"
+" define-values547_0"
+" _548_0"
+" _549_0)"
 "(let-values(((s_1)"
 "(syntax-disarm$1"
 " s_0)))"
@@ -80932,9 +80828,9 @@ static const char *startup_source =
 " #f)"
 "(let-values(((orig-s_0)"
 " s_1))"
-"(let-values(((define-values575_0"
-" _576_0"
-" _577_0)"
+"(let-values(((define-values547_0"
+" _548_0"
+" _549_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1"
 " s_1)"
@@ -80943,13 +80839,13 @@ static const char *startup_source =
 " s_1)))"
 "(if(pair?"
 " s_2)"
-"(let-values(((define-values578_0)"
+"(let-values(((define-values550_0)"
 "(let-values(((s_3)"
 "(car"
 " s_2)))"
 " s_3))"
-"((_579_0"
-" _580_0)"
+"((_551_0"
+" _552_0)"
 "(let-values(((s_3)"
 "(cdr"
 " s_2)))"
@@ -80961,12 +80857,12 @@ static const char *startup_source =
 " s_3)))"
 "(if(pair?"
 " s_4)"
-"(let-values(((_581_0)"
+"(let-values(((_553_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
 " s_5))"
-"((_582_0)"
+"((_554_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
@@ -80978,7 +80874,7 @@ static const char *startup_source =
 " s_5)))"
 "(if(pair?"
 " s_6)"
-"(let-values(((_583_0)"
+"(let-values(((_555_0)"
 "(let-values(((s_7)"
 "(car"
 " s_6)))"
@@ -81001,49 +80897,49 @@ static const char *startup_source =
 "                                                                                                                                                                                       \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _583_0))"
+" _555_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                   \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" _581_0"
-" _582_0))"
+" _553_0"
+" _554_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                               \"bad syntax\""
 " orig-s_0))))))"
 "(values"
-" define-values578_0"
-" _579_0"
-" _580_0))"
+" define-values550_0"
+" _551_0"
+" _552_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                           \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" define-values575_0"
-" _576_0"
-" _577_0)))"
+" define-values547_0"
+" _548_0"
+" _549_0)))"
 "(values"
 " #f"
 " #f"
 " #f"
 " #f)))))"
 "(let-values(((rebuild-s_0)"
-"(let-values(((rhs-ctx584_0)"
+"(let-values(((rhs-ctx556_0)"
 " rhs-ctx_0)"
-"((s585_0)"
+"((s557_0)"
 " s_0)"
-"((temp586_0)"
+"((temp558_0)"
 " #t))"
-"(keep-as-needed119.1"
+"(keep-as-needed.1"
 " #f"
 " #f"
-" temp586_0"
-" rhs-ctx584_0"
-" s585_0))))"
+" temp558_0"
+" rhs-ctx556_0"
+" s557_0))))"
 "(let-values((()"
 "(begin"
 "(log-defn-enter"
@@ -81060,17 +80956,17 @@ static const char *startup_source =
 "(void))"
 "(begin0"
 "(let-values()"
-"(let-values(((temp587_0)"
+"(let-values(((temp559_0)"
 "(semi-parsed-define-values-rhs"
 " body_0))"
-"((rhs-ctx588_0)"
+"((rhs-ctx560_0)"
 " rhs-ctx_0))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" temp587_0"
-" rhs-ctx588_0)))"
+" temp559_0"
+" rhs-ctx560_0)))"
 "(if log-performance?"
 "(let-values()"
 "(end-performance-region))"
@@ -81090,32 +80986,32 @@ static const char *startup_source =
 "(if(expand-context-to-parsed?"
 " rhs-ctx_0)"
 " exp-rhs_0"
-"(let-values(((exp-rhs589_0)"
+"(let-values(((exp-rhs561_0)"
 " exp-rhs_0)"
-"((temp590_0)"
+"((temp562_0)"
 "(as-to-parsed-context"
 " rhs-ctx_0)))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" exp-rhs589_0"
-" temp590_0))))))"
+" exp-rhs561_0"
+" temp562_0))))))"
 "(if(expand-context-to-parsed?"
 " rhs-ctx_0)"
 " comp-form_0"
 "(expanded+parsed1.1"
-"(let-values(((rebuild-s591_0)"
+"(let-values(((rebuild-s563_0)"
 " rebuild-s_0)"
-"((temp592_0)"
+"((temp564_0)"
 "(list"
-" define-values575_0"
+" define-values547_0"
 " ids_0"
 " exp-rhs_0)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" rebuild-s591_0"
-" temp592_0))"
+" rebuild-s563_0"
+" temp564_0))"
 " comp-form_0)))))))))))))"
 "(let-values()"
 "(let-values(((disarmed-body_0)"
@@ -81141,33 +81037,33 @@ static const char *startup_source =
 "(begin0"
 "(let-values()"
 "(let-values(((exp-body_0)"
-"(let-values(((body593_0)"
+"(let-values(((body565_0)"
 " body_0)"
-"((temp594_0)"
+"((temp566_0)"
 "(as-expression-context"
 " body-ctx_0)))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" body593_0"
-" temp594_0))))"
+" body565_0"
+" temp566_0))))"
 "(if(expand-context-to-parsed?"
 " body-ctx_0)"
 " exp-body_0"
 "(expanded+parsed1.1"
 " exp-body_0"
-"(let-values(((exp-body595_0)"
+"(let-values(((exp-body567_0)"
 " exp-body_0)"
-"((temp596_0)"
+"((temp568_0)"
 "(as-to-parsed-context"
 " body-ctx_0)))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
-" exp-body595_0"
-" temp596_0))))))"
+" exp-body567_0"
+" temp568_0))))))"
 "(if log-performance?"
 "(let-values()"
 "(end-performance-region))"
@@ -81211,29 +81107,29 @@ static const char *startup_source =
 "(void)))))"
 "(values))))"
 "(let-values(((exp-lifted-modules_0)"
-"(let-values(((lifted-modules597_0)"
+"(let-values(((lifted-modules569_0)"
 " lifted-modules_0)"
-"((phase598_0) phase_0)"
-"((self599_0) self_0)"
-"((body-ctx600_0)"
+"((phase570_0) phase_0)"
+"((self571_0) self_0)"
+"((body-ctx572_0)"
 " body-ctx_0)"
-"((mpis-to-reset601_0)"
+"((mpis-to-reset573_0)"
 " mpis-to-reset_0)"
-"((declared-submodule-names602_0)"
+"((declared-submodule-names574_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules603_0)"
+"((compiled-submodules575_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled604_0)"
+"((modules-being-compiled576_0)"
 " modules-being-compiled_0))"
-"(expand-non-module*-submodules208.1"
-" compiled-submodules603_0"
-" declared-submodule-names602_0"
-" modules-being-compiled604_0"
-" mpis-to-reset601_0"
-" lifted-modules597_0"
-" phase598_0"
-" self599_0"
-" body-ctx600_0))))"
+"(expand-non-module*-submodules.1"
+" compiled-submodules575_0"
+" declared-submodule-names574_0"
+" modules-being-compiled576_0"
+" mpis-to-reset573_0"
+" lifted-modules569_0"
+" phase570_0"
+" self571_0"
+" body-ctx572_0))))"
 "(let-values(((exp-lifted-defns_0)"
 "(loop_0 #f lifted-defns_0)))"
 "(begin"
@@ -81307,18 +81203,18 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(let-values(((b_0)"
-"(let-values(((id605_0)"
+"(let-values(((id577_0)"
 " id_0)"
-"((phase606_0)"
+"((phase578_0)"
 " phase_0))"
-"(resolve+shift28.1"
+"(resolve+shift.1"
 " #f"
 " #f"
 " null"
 " unsafe-undefined"
 " #f"
-" id605_0"
-" phase606_0))))"
+" id577_0"
+" phase578_0))))"
 "(let-values(((bound-here?_0)"
 "(if b_0"
 "(if(module-binding?"
@@ -81397,23 +81293,23 @@ static const char *startup_source =
 "(hash-iterate-first ht_0))))"
 "(void)))))"
 "(define-values"
-"(resolve-provides113.1)"
-"(lambda(ctx105_0"
-" declared-submodule-names101_0"
-" namespace102_0"
-" phase103_0"
-" requires-and-provides100_0"
-" self104_0"
-" expression-expanded-bodys112_0)"
+"(resolve-provides.1)"
+"(lambda(ctx95_0"
+" declared-submodule-names91_0"
+" namespace92_0"
+" phase93_0"
+" requires-and-provides90_0"
+" self94_0"
+" expression-expanded-bodys102_0)"
 "(begin"
-" 'resolve-provides113"
-"(let-values(((expression-expanded-bodys_0) expression-expanded-bodys112_0))"
-"(let-values(((requires+provides_0) requires-and-provides100_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names101_0))"
-"(let-values(((m-ns_0) namespace102_0))"
-"(let-values(((phase_0) phase103_0))"
-"(let-values(((self_0) self104_0))"
-"(let-values(((ctx_0) ctx105_0))"
+" 'resolve-provides"
+"(let-values(((expression-expanded-bodys_0) expression-expanded-bodys102_0))"
+"(let-values(((requires+provides_0) requires-and-provides90_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names91_0))"
+"(let-values(((m-ns_0) namespace92_0))"
+"(let-values(((phase_0) phase93_0))"
+"(let-values(((self_0) self94_0))"
+"(let-values(((ctx_0) ctx95_0))"
 "(let-values()"
 "(begin"
 "(if log-performance?(let-values()(start-performance-region 'expand 'provide))(void))"
@@ -81439,10 +81335,10 @@ static const char *startup_source =
 "(cons"
 "(let-values(((the-struct_0)(car bodys_0)))"
 "(if(semi-parsed-begin-for-syntax? the-struct_0)"
-"(let-values(((body607_0) nested-bodys_0))"
+"(let-values(((body579_0) nested-bodys_0))"
 "(semi-parsed-begin-for-syntax3.1"
 "(semi-parsed-begin-for-syntax-s the-struct_0)"
-" body607_0))"
+" body579_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                  \"semi-parsed-begin-for-syntax?\""
@@ -81473,11 +81369,11 @@ static const char *startup_source =
 " 'prim-provide))))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_0 #%provide608_0 spec609_0)"
+"(let-values(((ok?_0 #%provide580_0 spec581_0)"
 "(let-values(((s_0) disarmed-body_0))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((#%provide608_0"
-" spec609_0)"
+"(let-values(((#%provide580_0"
+" spec581_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -81485,12 +81381,12 @@ static const char *startup_source =
 " s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((#%provide610_0)"
+"(let-values(((#%provide582_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((spec611_0)"
+"((spec583_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -81513,19 +81409,19 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" #%provide610_0"
-" spec611_0))"
+" #%provide582_0"
+" spec583_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                         \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" #%provide608_0"
-" spec609_0))))))"
+" #%provide580_0"
+" spec581_0))))))"
 "(let-values(((track-stxes_0 specs_0)"
 "(parse-and-expand-provides!"
-" spec609_0"
+" spec581_0"
 "(car bodys_0)"
 " requires+provides_0"
 " self_0"
@@ -81535,23 +81431,23 @@ static const char *startup_source =
 " v_0))"
 "(if(expand-context/outer?"
 " the-struct_0)"
-"(let-values(((context612_0)"
+"(let-values(((context584_0)"
 " 'top-level)"
-"((inner613_0)"
+"((inner585_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((phase614_0)"
+"(let-values(((phase586_0)"
 " phase_1)"
-"((namespace615_0)"
+"((namespace587_0)"
 "(namespace->namespace-at-phase"
 " m-ns_0"
 " phase_1))"
-"((requires+provides616_0)"
+"((requires+provides588_0)"
 " requires+provides_0)"
-"((declared-submodule-names617_0)"
+"((declared-submodule-names589_0)"
 " declared-submodule-names_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -81570,8 +81466,8 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-to-parsed?"
 " the-struct_1)"
-" phase614_0"
-" namespace615_0"
+" phase586_0"
+" namespace587_0"
 "(expand-context/inner-just-once?"
 " the-struct_1)"
 "(expand-context/inner-module-begin-k"
@@ -81584,7 +81480,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-stops"
 " the-struct_1)"
-" declared-submodule-names617_0"
+" declared-submodule-names589_0"
 "(expand-context/inner-lifts"
 " the-struct_1)"
 "(expand-context/inner-lift-envs"
@@ -81595,7 +81491,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-to-module-lifts"
 " the-struct_1)"
-" requires+provides616_0"
+" requires+provides588_0"
 "(expand-context/inner-observer"
 " the-struct_1)"
 "(expand-context/inner-for-serializable?"
@@ -81611,14 +81507,14 @@ static const char *startup_source =
 "                                                                                                              \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner613_0"
+" inner585_0"
 "(root-expand-context/outer-post-expansion"
 " the-struct_0)"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
 " the-struct_0)"
-" context612_0"
+" context584_0"
 "(expand-context/outer-env"
 " the-struct_0)"
 "(expand-context/outer-scopes"
@@ -81649,16 +81545,16 @@ static const char *startup_source =
 "(let-values(((new-s_0)"
 "(syntax-track-origin*"
 " track-stxes_0"
-"(let-values(((temp618_0)"
+"(let-values(((temp590_0)"
 "(car bodys_0))"
-"((temp619_0)"
+"((temp591_0)"
 "(list*"
-" #%provide608_0"
+" #%provide580_0"
 " specs_0)))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" temp618_0"
-" temp619_0)))))"
+" temp590_0"
+" temp591_0)))))"
 "(begin"
 "(let-values(((obs_0)"
 "(expand-context-observer"
@@ -81683,31 +81579,31 @@ static const char *startup_source =
 " phase_0))"
 "(if log-performance?(let-values()(end-performance-region))(void)))))))))))))))"
 "(define-values"
-"(declare-module-for-expansion137.1)"
-"(lambda(ctx123_0"
-" enclosing121_0"
-" fill125_0"
-" module-name-id116_0"
-" modules-being-compiled124_0"
-" namespace119_0"
-" rebuild-s117_0"
-" requires-and-provides118_0"
-" root-ctx122_0"
-" self120_0"
-" fully-expanded-bodys-except-post-submodules136_0)"
+"(declare-module-for-expansion.1)"
+"(lambda(ctx111_0"
+" enclosing109_0"
+" fill113_0"
+" module-name-id104_0"
+" modules-being-compiled112_0"
+" namespace107_0"
+" rebuild-s105_0"
+" requires-and-provides106_0"
+" root-ctx110_0"
+" self108_0"
+" fully-expanded-bodys-except-post-submodules124_0)"
 "(begin"
-" 'declare-module-for-expansion137"
-"(let-values(((fully-expanded-bodys-except-post-submodules_0) fully-expanded-bodys-except-post-submodules136_0))"
-"(let-values(((module-name-id_0) module-name-id116_0))"
-"(let-values(((rebuild-s_0) rebuild-s117_0))"
-"(let-values(((requires+provides_0) requires-and-provides118_0))"
-"(let-values(((m-ns_0) namespace119_0))"
-"(let-values(((self_0) self120_0))"
-"(let-values(((enclosing-self_0) enclosing121_0))"
-"(let-values(((root-ctx_0) root-ctx122_0))"
-"(let-values(((ctx_0) ctx123_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled124_0))"
-"(let-values(((compiled-module-box_0) fill125_0))"
+" 'declare-module-for-expansion"
+"(let-values(((fully-expanded-bodys-except-post-submodules_0) fully-expanded-bodys-except-post-submodules124_0))"
+"(let-values(((module-name-id_0) module-name-id104_0))"
+"(let-values(((rebuild-s_0) rebuild-s105_0))"
+"(let-values(((requires+provides_0) requires-and-provides106_0))"
+"(let-values(((m-ns_0) namespace107_0))"
+"(let-values(((self_0) self108_0))"
+"(let-values(((enclosing-self_0) enclosing109_0))"
+"(let-values(((root-ctx_0) root-ctx110_0))"
+"(let-values(((ctx_0) ctx111_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled112_0))"
+"(let-values(((compiled-module-box_0) fill113_0))"
 "(let-values()"
 "(let-values(((requires_0 provides_0)"
 "(extract-requires-and-provides requires+provides_0 self_0 self_0)))"
@@ -81729,35 +81625,35 @@ static const char *startup_source =
 "(let-values(((or-part_0) enclosing-self_0))"
 "(if or-part_0 or-part_0 self_0)))))"
 "(let-values(((compiled-module_0)"
-"(let-values(((parsed-mod620_0) parsed-mod_0)"
-"((temp621_0)"
-"(let-values(((m-ns626_0) m-ns_0)"
-"((enclosing-self627_0) enclosing-self_0)"
-"((temp628_0)"
+"(let-values(((parsed-mod592_0) parsed-mod_0)"
+"((temp593_0)"
+"(let-values(((m-ns598_0) m-ns_0)"
+"((enclosing-self599_0) enclosing-self_0)"
+"((temp600_0)"
 "(if enclosing-self_0"
 "(1/resolved-module-path-name"
 " module-name_0)"
 " #f)))"
-"(make-compile-context14.1"
-" temp628_0"
+"(make-compile-context.1"
+" temp600_0"
 " unsafe-undefined"
-" enclosing-self627_0"
-" m-ns626_0"
+" enclosing-self599_0"
+" m-ns598_0"
 " unsafe-undefined"
 " unsafe-undefined)))"
-"((temp622_0)(expand-context-for-serializable? ctx_0))"
-"((temp623_0)"
+"((temp594_0)(expand-context-for-serializable? ctx_0))"
+"((temp595_0)"
 "(expand-context-to-correlated-linklet? ctx_0))"
-"((modules-being-compiled624_0) modules-being-compiled_0)"
-"((temp625_0) #f))"
-"(compile-module13.1"
+"((modules-being-compiled596_0) modules-being-compiled_0)"
+"((temp597_0) #f))"
+"(compile-module.1"
 " #f"
-" modules-being-compiled624_0"
-" temp625_0"
-" temp622_0"
-" temp623_0"
-" parsed-mod620_0"
-" temp621_0))))"
+" modules-being-compiled596_0"
+" temp597_0"
+" temp594_0"
+" temp595_0"
+" parsed-mod592_0"
+" temp593_0))))"
 "(let-values((()"
 "(begin"
 "(set-box! compiled-module-box_0 compiled-module_0)"
@@ -81773,12 +81669,12 @@ static const char *startup_source =
 " 1/current-module-declare-name"
 "(1/make-resolved-module-path root-module-name_0))"
 "(let-values()"
-"(let-values(((compiled-module629_0) compiled-module_0)((temp630_0) #f))"
-"(eval-module8.1"
+"(let-values(((compiled-module601_0) compiled-module_0)((temp602_0) #f))"
+"(eval-module.1"
 " unsafe-undefined"
 " #f"
-" temp630_0"
-" compiled-module629_0)))))))))))))))))))))))))"
+" temp602_0"
+" compiled-module601_0)))))))))))))))))))))))))"
 "(define-values"
 "(attach-root-expand-context-properties)"
 "(lambda(s_0 root-ctx_0 orig-self_0 new-self_0)"
@@ -81791,33 +81687,33 @@ static const char *startup_source =
 "(apply-post-expansion(root-expand-context-post-expansion root-ctx_0) empty-syntax))))"
 " s_2)))))"
 "(define-values"
-"(expand-post-submodules163.1)"
-"(lambda(all-scopes-s145_0"
-" compiled-submodules148_0"
-" ctx150_0"
-" declare-enclosing140_0"
-" declared-submodule-names147_0"
-" enclosing-is-cross-phase-persistent?144_0"
-" modules-being-compiled149_0"
-" mpis-to-reset146_0"
-" phase141_0"
-" requires-and-provides143_0"
-" self142_0"
-" fully-expanded-bodys-except-post-submodules162_0)"
+"(expand-post-submodules.1)"
+"(lambda(all-scopes-s131_0"
+" compiled-submodules134_0"
+" ctx136_0"
+" declare-enclosing126_0"
+" declared-submodule-names133_0"
+" enclosing-is-cross-phase-persistent?130_0"
+" modules-being-compiled135_0"
+" mpis-to-reset132_0"
+" phase127_0"
+" requires-and-provides129_0"
+" self128_0"
+" fully-expanded-bodys-except-post-submodules148_0)"
 "(begin"
-" 'expand-post-submodules163"
-"(let-values(((fully-expanded-bodys-except-post-submodules_0) fully-expanded-bodys-except-post-submodules162_0))"
-"(let-values(((declare-enclosing-module_0) declare-enclosing140_0))"
-"(let-values(((phase_0) phase141_0))"
-"(let-values(((self_0) self142_0))"
-"(let-values(((requires+provides_0) requires-and-provides143_0))"
-"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?144_0))"
+" 'expand-post-submodules"
+"(let-values(((fully-expanded-bodys-except-post-submodules_0) fully-expanded-bodys-except-post-submodules148_0))"
+"(let-values(((declare-enclosing-module_0) declare-enclosing126_0))"
+"(let-values(((phase_0) phase127_0))"
+"(let-values(((self_0) self128_0))"
+"(let-values(((requires+provides_0) requires-and-provides129_0))"
+"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?130_0))"
 "(let-values()"
-"(let-values(((mpis-to-reset_0) mpis-to-reset146_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names147_0))"
-"(let-values(((compiled-submodules_0) compiled-submodules148_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled149_0))"
-"(let-values(((submod-ctx_0) ctx150_0))"
+"(let-values(((mpis-to-reset_0) mpis-to-reset132_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names133_0))"
+"(let-values(((compiled-submodules_0) compiled-submodules134_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled135_0))"
+"(let-values(((submod-ctx_0) ctx136_0))"
 "(let-values()"
 "((letrec-values(((loop_0)"
 "(lambda(bodys_0 phase_1)"
@@ -81833,13 +81729,13 @@ static const char *startup_source =
 "(let-values(((body-s_0)"
 "(semi-parsed-begin-for-syntax-s"
 " body_0)))"
-"(let-values(((ok?_0 begin-for-syntax631_0 _632_0)"
+"(let-values(((ok?_0 begin-for-syntax603_0 _604_0)"
 "(let-values(((s_0)"
 "(syntax-disarm$1"
 " body-s_0)))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((begin-for-syntax631_0"
-" _632_0)"
+"(let-values(((begin-for-syntax603_0"
+" _604_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -81847,12 +81743,12 @@ static const char *startup_source =
 " s_0)"
 " s_0)))"
 "(if(pair? s_1)"
-"(let-values(((begin-for-syntax633_0)"
+"(let-values(((begin-for-syntax605_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((_634_0)"
+"((_606_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -81875,27 +81771,27 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" begin-for-syntax633_0"
-" _634_0))"
+" begin-for-syntax605_0"
+" _606_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                         \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" begin-for-syntax631_0"
-" _632_0))))))"
+" begin-for-syntax603_0"
+" _604_0))))))"
 "(let-values(((rebuild-body-s_0)"
-"(let-values(((submod-ctx635_0)"
+"(let-values(((submod-ctx607_0)"
 " submod-ctx_0)"
-"((body-s636_0)"
+"((body-s608_0)"
 " body-s_0))"
-"(keep-as-needed119.1"
+"(keep-as-needed.1"
 " #f"
 " #f"
 " #f"
-" submod-ctx635_0"
-" body-s636_0))))"
+" submod-ctx607_0"
+" body-s608_0))))"
 "(let-values(((nested-bodys_0)"
 "(loop_0"
 "(semi-parsed-begin-for-syntax-body"
@@ -81910,17 +81806,17 @@ static const char *startup_source =
 " submod-ctx_0)"
 " parsed-bfs_0"
 "(expanded+parsed1.1"
-"(let-values(((rebuild-body-s637_0)"
+"(let-values(((rebuild-body-s609_0)"
 " rebuild-body-s_0)"
-"((temp638_0)"
+"((temp610_0)"
 "(list*"
-" begin-for-syntax631_0"
+" begin-for-syntax603_0"
 "(syntax-only"
 " nested-bodys_0))))"
-"(rebuild5.1"
+"(rebuild.1"
 " #t"
-" rebuild-body-s637_0"
-" temp638_0))"
+" rebuild-body-s609_0"
+" temp610_0))"
 " parsed-bfs_0))"
 "(loop_0 rest-bodys_0 phase_1))))))))"
 "(if(let-values(((or-part_0)(parsed? body_0)))"
@@ -81948,9 +81844,9 @@ static const char *startup_source =
 " body_0"
 " submod-ctx_0)))"
 "(let-values(((ok?_0"
-" module*639_0"
-" name640_0"
-" _641_0)"
+" module*611_0"
+" name612_0"
+" _613_0)"
 "(let-values(((s_0)"
 " disarmed-body_0))"
 "(if(let-values(((s_1)"
@@ -82013,22 +81909,22 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((module*639_0"
-" name640_0"
-" _641_0)"
+"(let-values(((module*611_0"
+" name612_0"
+" _613_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
 "(syntax-e$1"
 " s_0)"
 " s_0)))"
-"(let-values(((module*642_0)"
+"(let-values(((module*614_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((name643_0"
-" _644_0)"
+"((name615_0"
+" _616_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -82038,12 +81934,12 @@ static const char *startup_source =
 "(syntax-e$1"
 " s_2)"
 " s_2)))"
-"(let-values(((name645_0)"
+"(let-values(((name617_0)"
 "(let-values(((s_4)"
 "(car"
 " s_3)))"
 " s_4))"
-"((_646_0)"
+"((_618_0)"
 "(let-values(((s_4)"
 "(cdr"
 " s_3)))"
@@ -82064,25 +81960,25 @@ static const char *startup_source =
 " s_6)"
 " s_6)))"
 "(values))))"
-"((_647_0)"
+"((_619_0)"
 "(let-values(((s_6)"
 "(cdr"
 " s_5)))"
 " s_6)))"
 "(values"
-" _647_0))))))"
+" _619_0))))))"
 "(values"
-" name645_0"
-" _646_0))))))"
+" name617_0"
+" _618_0))))))"
 "(values"
-" module*642_0"
-" name643_0"
-" _644_0)))))"
+" module*614_0"
+" name615_0"
+" _616_0)))))"
 "(values"
 " #t"
-" module*639_0"
-" name640_0"
-" _641_0)))"
+" module*611_0"
+" name612_0"
+" _613_0)))"
 "(values"
 " #f"
 " #f"
@@ -82100,40 +81996,40 @@ static const char *startup_source =
 " ready-body_0"
 " neg-phase_0)))"
 "(let-values(((submod_0)"
-"(let-values(((shifted-s648_0)"
+"(let-values(((shifted-s620_0)"
 " shifted-s_0)"
-"((self649_0)"
+"((self621_0)"
 " self_0)"
-"((submod-ctx650_0)"
+"((submod-ctx622_0)"
 " submod-ctx_0)"
-"((temp651_0)"
+"((temp623_0)"
 " #t)"
-"((neg-phase652_0)"
+"((neg-phase624_0)"
 " neg-phase_0)"
-"((requires+provides653_0)"
+"((requires+provides625_0)"
 " requires+provides_0)"
-"((enclosing-is-cross-phase-persistent?654_0)"
+"((enclosing-is-cross-phase-persistent?626_0)"
 " enclosing-is-cross-phase-persistent?_0)"
-"((mpis-to-reset655_0)"
+"((mpis-to-reset627_0)"
 " mpis-to-reset_0)"
-"((declared-submodule-names656_0)"
+"((declared-submodule-names628_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules657_0)"
+"((compiled-submodules629_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled658_0)"
+"((modules-being-compiled630_0)"
 " modules-being-compiled_0))"
-"(expand-submodule193.1"
-" compiled-submodules657_0"
-" declared-submodule-names656_0"
-" enclosing-is-cross-phase-persistent?654_0"
-" requires+provides653_0"
-" temp651_0"
-" neg-phase652_0"
-" modules-being-compiled658_0"
-" mpis-to-reset655_0"
-" shifted-s648_0"
-" self649_0"
-" submod-ctx650_0))))"
+"(expand-submodule.1"
+" compiled-submodules629_0"
+" declared-submodule-names628_0"
+" enclosing-is-cross-phase-persistent?626_0"
+" requires+provides625_0"
+" temp623_0"
+" neg-phase624_0"
+" modules-being-compiled630_0"
+" mpis-to-reset627_0"
+" shifted-s620_0"
+" self621_0"
+" submod-ctx622_0))))"
 "(if(parsed?"
 " submod_0)"
 "(let-values()"
@@ -82145,13 +82041,13 @@ static const char *startup_source =
 " submod_0))"
 "(if(expanded+parsed?"
 " the-struct_0)"
-"(let-values(((s659_0)"
+"(let-values(((s631_0)"
 "(syntax-shift-phase-level$1"
 "(expanded+parsed-s"
 " submod_0)"
 " phase_1)))"
 "(expanded+parsed1.1"
-" s659_0"
+" s631_0"
 "(expanded+parsed-parsed"
 " the-struct_0)))"
 "(raise-argument-error"
@@ -82163,34 +82059,34 @@ static const char *startup_source =
 " submod_0"
 " phase_1))))))))"
 "(let-values()"
-"(let-values(((ready-body660_0)"
+"(let-values(((ready-body632_0)"
 " ready-body_0)"
-"((self661_0)"
+"((self633_0)"
 " self_0)"
-"((submod-ctx662_0)"
+"((submod-ctx634_0)"
 " submod-ctx_0)"
-"((temp663_0)"
+"((temp635_0)"
 " #t)"
-"((mpis-to-reset664_0)"
+"((mpis-to-reset636_0)"
 " mpis-to-reset_0)"
-"((declared-submodule-names665_0)"
+"((declared-submodule-names637_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules666_0)"
+"((compiled-submodules638_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled667_0)"
+"((modules-being-compiled639_0)"
 " modules-being-compiled_0))"
-"(expand-submodule193.1"
-" compiled-submodules666_0"
-" declared-submodule-names665_0"
+"(expand-submodule.1"
+" compiled-submodules638_0"
+" declared-submodule-names637_0"
 " #f"
 " #f"
-" temp663_0"
+" temp635_0"
 " #f"
-" modules-being-compiled667_0"
-" mpis-to-reset664_0"
-" ready-body660_0"
-" self661_0"
-" submod-ctx662_0))))))"
+" modules-being-compiled639_0"
+" mpis-to-reset636_0"
+" ready-body632_0"
+" self633_0"
+" submod-ctx634_0))))))"
 "(cons"
 " submod_0"
 "(loop_0 rest-bodys_0 phase_1)))))))"
@@ -82212,14 +82108,14 @@ static const char *startup_source =
 "(expand-context-phase ctx_0)"
 "(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_0))))))"
 "(define-values"
-"(check-ids-unbound171.1)"
-"(lambda(in166_0 ids168_0 phase169_0 requires+provides170_0)"
+"(check-ids-unbound.1)"
+"(lambda(in150_0 ids152_0 phase153_0 requires+provides154_0)"
 "(begin"
-" 'check-ids-unbound171"
-"(let-values(((ids_0) ids168_0))"
-"(let-values(((phase_0) phase169_0))"
-"(let-values(((requires+provides_0) requires+provides170_0))"
-"(let-values(((s_0) in166_0))"
+" 'check-ids-unbound"
+"(let-values(((ids_0) ids152_0))"
+"(let-values(((phase_0) phase153_0))"
+"(let-values(((requires+provides_0) requires+provides154_0))"
+"(let-values(((s_0) in150_0))"
 "(let-values()"
 "(begin"
 "(let-values(((lst_0) ids_0))"
@@ -82239,23 +82135,23 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((requires+provides668_0)"
+"(let-values(((requires+provides640_0)"
 " requires+provides_0)"
-"((id669_0) id_0)"
-"((phase670_0) phase_0)"
-"((s671_0) s_0)"
-"((temp672_0) 'module))"
-"(check-not-defined95.1"
+"((id641_0) id_0)"
+"((phase642_0) phase_0)"
+"((s643_0) s_0)"
+"((temp644_0) 'module))"
+"(check-not-defined.1"
 " #f"
 " #f"
 " #f"
-" s671_0"
+" s643_0"
 " #f"
 " #f"
-" temp672_0"
-" requires+provides668_0"
-" id669_0"
-" phase670_0)))"
+" temp644_0"
+" requires+provides640_0"
+" id641_0"
+" phase642_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)(for-loop_0 rest_0)(values))))"
@@ -82414,16 +82310,16 @@ static const char *startup_source =
 "(eval-single-top"
 "(compile-single"
 " p_0"
-"(let-values(((m-ns673_0)"
+"(let-values(((m-ns645_0)"
 " m-ns_0)"
-"((phase674_0)"
+"((phase646_0)"
 " phase_0))"
-"(make-compile-context14.1"
+"(make-compile-context.1"
 " #f"
 " unsafe-undefined"
 " #f"
-" m-ns673_0"
-" phase674_0"
+" m-ns645_0"
+" phase646_0"
 " unsafe-undefined)))"
 " m-ns_0)))))))))))"
 "(values)))))"
@@ -82434,31 +82330,31 @@ static const char *startup_source =
 " lst_0)))"
 "(void)))))"
 "(define-values"
-"(expand-submodule193.1)"
-"(lambda(compiled-submodules180_0"
-" declared-submodule-names179_0"
-" enclosing-is-cross-phase-persistent?177_0"
-" enclosing-requires+provides176_0"
-" is-star?174_0"
-" keep-enclosing-scope-at-phase175_0"
-" modules-being-compiled181_0"
-" mpis-to-reset178_0"
-" s190_0"
-" self191_0"
-" ctx192_0)"
+"(expand-submodule.1)"
+"(lambda(compiled-submodules162_0"
+" declared-submodule-names161_0"
+" enclosing-is-cross-phase-persistent?159_0"
+" enclosing-requires+provides158_0"
+" is-star?156_0"
+" keep-enclosing-scope-at-phase157_0"
+" modules-being-compiled163_0"
+" mpis-to-reset160_0"
+" s172_0"
+" self173_0"
+" ctx174_0)"
 "(begin"
-" 'expand-submodule193"
-"(let-values(((s_0) s190_0))"
-"(let-values(((self_0) self191_0))"
-"(let-values(((ctx_0) ctx192_0))"
-"(let-values(((is-star?_0) is-star?174_0))"
-"(let-values(((keep-enclosing-scope-at-phase_0) keep-enclosing-scope-at-phase175_0))"
-"(let-values(((enclosing-r+p_0) enclosing-requires+provides176_0))"
-"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?177_0))"
-"(let-values(((mpis-to-reset_0) mpis-to-reset178_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names179_0))"
-"(let-values(((compiled-submodules_0) compiled-submodules180_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled181_0))"
+" 'expand-submodule"
+"(let-values(((s_0) s172_0))"
+"(let-values(((self_0) self173_0))"
+"(let-values(((ctx_0) ctx174_0))"
+"(let-values(((is-star?_0) is-star?156_0))"
+"(let-values(((keep-enclosing-scope-at-phase_0) keep-enclosing-scope-at-phase157_0))"
+"(let-values(((enclosing-r+p_0) enclosing-requires+provides158_0))"
+"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?159_0))"
+"(let-values(((mpis-to-reset_0) mpis-to-reset160_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names161_0))"
+"(let-values(((compiled-submodules_0) compiled-submodules162_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled163_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -82476,43 +82372,43 @@ static const char *startup_source =
 "(if is-star?_0 'prim-submodule* 'prim-submodule)))))"
 "(void)))))"
 "(values))))"
-"(let-values(((ok?_0 module675_0 name676_0 _677_0)"
+"(let-values(((ok?_0 module647_0 name648_0 _649_0)"
 "(let-values(((s_1) s_0))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((module675_0 name676_0 _677_0)"
+"(let-values(((module647_0 name648_0 _649_0)"
 "(let-values(((s_2)"
 "(if(syntax?$1 s_1)"
 "(syntax-e$1 s_1)"
 " s_1)))"
 "(if(pair? s_2)"
-"(let-values(((module678_0)"
+"(let-values(((module650_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((name679_0 _680_0)"
+"((name651_0 _652_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((name681_0)"
+"(let-values(((name653_0)"
 "(let-values(((s_5)"
 "(car"
 " s_4)))"
 " s_5))"
-"((_682_0)"
+"((_654_0)"
 "(let-values(((s_5)"
 "(cdr"
 " s_4)))"
 " s_5)))"
-"(values name681_0 _682_0))"
+"(values name653_0 _654_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                         \"bad syntax\""
 " orig-s_0))))))"
-"(values module678_0 name679_0 _680_0))"
+"(values module650_0 name651_0 _652_0))"
 "                                                                    (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t module675_0 name676_0 _677_0))))))"
-"(let-values(((name_0)(syntax-e$1 name676_0)))"
+"(values #t module647_0 name648_0 _649_0))))))"
+"(let-values(((name_0)(syntax-e$1 name648_0)))"
 "(let-values((()"
 "(begin"
 "(if(hash-ref declared-submodule-names_0 name_0 #f)"
@@ -82529,7 +82425,7 @@ static const char *startup_source =
 "(hash-set!"
 " declared-submodule-names_0"
 " name_0"
-"(syntax-e$1 module675_0))"
+"(syntax-e$1 module647_0))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -82541,20 +82437,20 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((submod_0)"
-"(let-values(((s683_0) s_0)"
-"((temp684_0)"
+"(let-values(((s655_0) s_0)"
+"((temp656_0)"
 "(let-values(((v_0) ctx_0))"
 "(let-values(((the-struct_0) v_0))"
 "(if(expand-context/outer? the-struct_0)"
-"(let-values(((context692_0) 'module)"
-"((post-expansion693_0) #f)"
-"((inner694_0)"
+"(let-values(((context664_0) 'module)"
+"((post-expansion665_0) #f)"
+"((inner666_0)"
 "(let-values(((the-struct_1)"
 "(root-expand-context/outer-inner"
 " v_0)))"
 "(if(expand-context/inner?"
 " the-struct_1)"
-"(let-values(((stops695_0)"
+"(let-values(((stops667_0)"
 " empty-free-id-set))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -82587,7 +82483,7 @@ static const char *startup_source =
 " the-struct_1)"
 "(expand-context/inner-keep-#%expression?"
 " the-struct_1)"
-" stops695_0"
+" stops667_0"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_1)"
 "(expand-context/inner-lifts"
@@ -82617,13 +82513,13 @@ static const char *startup_source =
 "                                                                                               \"expand-context/inner?\""
 " the-struct_1)))))"
 "(expand-context/outer1.1"
-" inner694_0"
-" post-expansion693_0"
+" inner666_0"
+" post-expansion665_0"
 "(root-expand-context/outer-use-site-scopes"
 " the-struct_0)"
 "(root-expand-context/outer-frame-id"
 " the-struct_0)"
-" context692_0"
+" context664_0"
 "(expand-context/outer-env the-struct_0)"
 "(expand-context/outer-scopes"
 " the-struct_0)"
@@ -82647,26 +82543,26 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                             \"expand-context/outer?\""
 " the-struct_0)))))"
-"((self685_0) self_0)"
-"((temp686_0) #t)"
-"((keep-enclosing-scope-at-phase687_0)"
+"((self657_0) self_0)"
+"((temp658_0) #t)"
+"((keep-enclosing-scope-at-phase659_0)"
 " keep-enclosing-scope-at-phase_0)"
-"((enclosing-r+p688_0) enclosing-r+p_0)"
-"((enclosing-is-cross-phase-persistent?689_0)"
+"((enclosing-r+p660_0) enclosing-r+p_0)"
+"((enclosing-is-cross-phase-persistent?661_0)"
 " enclosing-is-cross-phase-persistent?_0)"
-"((mpis-to-reset690_0) mpis-to-reset_0)"
-"((modules-being-compiled691_0)"
+"((mpis-to-reset662_0) mpis-to-reset_0)"
+"((modules-being-compiled663_0)"
 " modules-being-compiled_0))"
-"(expand-module16.1"
-" temp686_0"
-" enclosing-is-cross-phase-persistent?689_0"
-" enclosing-r+p688_0"
-" keep-enclosing-scope-at-phase687_0"
-" modules-being-compiled691_0"
-" mpis-to-reset690_0"
-" s683_0"
-" temp684_0"
-" self685_0))))"
+"(expand-module.1"
+" temp658_0"
+" enclosing-is-cross-phase-persistent?661_0"
+" enclosing-r+p660_0"
+" keep-enclosing-scope-at-phase659_0"
+" modules-being-compiled663_0"
+" mpis-to-reset662_0"
+" s655_0"
+" temp656_0"
+" self657_0))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_0)(expand-context-observer ctx_0)))"
@@ -82684,41 +82580,41 @@ static const char *startup_source =
 "(let-values(((root-module-name_0)"
 "(resolved-module-path-root-name module-name_0)))"
 "(let-values(((compiled-submodule_0)"
-"(let-values(((temp696_0)"
+"(let-values(((temp668_0)"
 "(if(expanded+parsed? submod_0)"
 "(expanded+parsed-parsed submod_0)"
 " submod_0))"
-"((temp697_0)"
-"(let-values(((ns703_0) ns_0)"
-"((self704_0) self_0)"
-"((temp705_0)"
+"((temp669_0)"
+"(let-values(((ns675_0) ns_0)"
+"((self676_0) self_0)"
+"((temp677_0)"
 "(1/resolved-module-path-name"
 " module-name_0)))"
-"(make-compile-context14.1"
-" temp705_0"
+"(make-compile-context.1"
+" temp677_0"
 " unsafe-undefined"
-" self704_0"
-" ns703_0"
+" self676_0"
+" ns675_0"
 " unsafe-undefined"
 " unsafe-undefined)))"
-"((temp698_0) #t)"
-"((temp699_0)"
+"((temp670_0) #t)"
+"((temp671_0)"
 "(expand-context-for-serializable?"
 " ctx_0))"
-"((temp700_0)"
+"((temp672_0)"
 "(expand-context-to-correlated-linklet?"
 " ctx_0))"
-"((modules-being-compiled701_0)"
+"((modules-being-compiled673_0)"
 " modules-being-compiled_0)"
-"((temp702_0) #f))"
-"(compile-module13.1"
-" temp698_0"
-" modules-being-compiled701_0"
-" temp702_0"
-" temp699_0"
-" temp700_0"
-" temp696_0"
-" temp697_0))))"
+"((temp674_0) #f))"
+"(compile-module.1"
+" temp670_0"
+" modules-being-compiled673_0"
+" temp674_0"
+" temp671_0"
+" temp672_0"
+" temp668_0"
+" temp669_0))))"
 "(begin"
 "(hash-set!"
 " compiled-submodules_0"
@@ -82733,13 +82629,13 @@ static const char *startup_source =
 " 1/current-module-declare-name"
 "(1/make-resolved-module-path root-module-name_0))"
 "(let-values()"
-"(let-values(((compiled-submodule706_0) compiled-submodule_0)"
-"((temp707_0) #f))"
-"(eval-module8.1"
+"(let-values(((compiled-submodule678_0) compiled-submodule_0)"
+"((temp679_0) #f))"
+"(eval-module.1"
 " unsafe-undefined"
 " #f"
-" temp707_0"
-" compiled-submodule706_0))))"
+" temp679_0"
+" compiled-submodule678_0))))"
 "(if is-star?_0"
 "(void)"
 "(let-values()"
@@ -82758,15 +82654,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((the-struct_0) submod_0))"
 "(if(expanded+parsed? the-struct_0)"
-"(let-values(((parsed708_0)"
+"(let-values(((parsed680_0)"
 "(let-values(((the-struct_1)"
 "(expanded+parsed-parsed"
 " submod_0)))"
 "(if(parsed-module? the-struct_1)"
-"(let-values(((star?709_0) #t))"
+"(let-values(((star?681_0) #t))"
 "(parsed-module25.1"
 "(parsed-s the-struct_1)"
-" star?709_0"
+" star?681_0"
 "(parsed-module-name-id"
 " the-struct_1)"
 "(parsed-module-self the-struct_1)"
@@ -82789,7 +82685,7 @@ static const char *startup_source =
 " the-struct_1)))))"
 "(expanded+parsed1.1"
 "(expanded+parsed-s the-struct_0)"
-" parsed708_0))"
+" parsed680_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                   \"expanded+parsed?\""
@@ -82797,10 +82693,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((the-struct_0) submod_0))"
 "(if(parsed-module? the-struct_0)"
-"(let-values(((star?710_0) #t))"
+"(let-values(((star?682_0) #t))"
 "(parsed-module25.1"
 "(parsed-s the-struct_0)"
-" star?710_0"
+" star?682_0"
 "(parsed-module-name-id the-struct_0)"
 "(parsed-module-self the-struct_0)"
 "(parsed-module-requires the-struct_0)"
@@ -82815,25 +82711,25 @@ static const char *startup_source =
 "                                                                   \"parsed-module?\""
 " the-struct_0))))))))))))))))))))))))))))))))))"
 "(define-values"
-"(expand-non-module*-submodules208.1)"
-"(lambda(compiled-submodules198_0"
-" declared-submodule-names197_0"
-" modules-being-compiled199_0"
-" mpis-to-reset196_0"
-" bodys204_0"
-" phase205_0"
-" self206_0"
-" ctx207_0)"
+"(expand-non-module*-submodules.1)"
+"(lambda(compiled-submodules178_0"
+" declared-submodule-names177_0"
+" modules-being-compiled179_0"
+" mpis-to-reset176_0"
+" bodys184_0"
+" phase185_0"
+" self186_0"
+" ctx187_0)"
 "(begin"
-" 'expand-non-module*-submodules208"
-"(let-values(((bodys_0) bodys204_0))"
-"(let-values(((phase_0) phase205_0))"
-"(let-values(((self_0) self206_0))"
-"(let-values(((ctx_0) ctx207_0))"
-"(let-values(((mpis-to-reset_0) mpis-to-reset196_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names197_0))"
-"(let-values(((compiled-submodules_0) compiled-submodules198_0))"
-"(let-values(((modules-being-compiled_0) modules-being-compiled199_0))"
+" 'expand-non-module*-submodules"
+"(let-values(((bodys_0) bodys184_0))"
+"(let-values(((phase_0) phase185_0))"
+"(let-values(((self_0) self186_0))"
+"(let-values(((ctx_0) ctx187_0))"
+"(let-values(((mpis-to-reset_0) mpis-to-reset176_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names177_0))"
+"(let-values(((compiled-submodules_0) compiled-submodules178_0))"
+"(let-values(((modules-being-compiled_0) modules-being-compiled179_0))"
 "(let-values()"
 "(reverse$1"
 "(let-values(((lst_0) bodys_0))"
@@ -82861,34 +82757,34 @@ static const char *startup_source =
 " phase_0)))"
 "(if(equal? tmp_0 'module)"
 "(let-values()"
-"(let-values(((body711_0)"
+"(let-values(((body683_0)"
 " body_0)"
-"((self712_0)"
+"((self684_0)"
 " self_0)"
-"((ctx713_0)"
+"((ctx685_0)"
 " ctx_0)"
-"((temp714_0)"
+"((temp686_0)"
 " #f)"
-"((mpis-to-reset715_0)"
+"((mpis-to-reset687_0)"
 " mpis-to-reset_0)"
-"((declared-submodule-names716_0)"
+"((declared-submodule-names688_0)"
 " declared-submodule-names_0)"
-"((compiled-submodules717_0)"
+"((compiled-submodules689_0)"
 " compiled-submodules_0)"
-"((modules-being-compiled718_0)"
+"((modules-being-compiled690_0)"
 " modules-being-compiled_0))"
-"(expand-submodule193.1"
-" compiled-submodules717_0"
-" declared-submodule-names716_0"
+"(expand-submodule.1"
+" compiled-submodules689_0"
+" declared-submodule-names688_0"
 " #f"
 " #f"
-" temp714_0"
+" temp686_0"
 " #f"
-" modules-being-compiled718_0"
-" mpis-to-reset715_0"
-" body711_0"
-" self712_0"
-" ctx713_0)))"
+" modules-being-compiled690_0"
+" mpis-to-reset687_0"
+" body683_0"
+" self684_0"
+" ctx685_0)))"
 "(let-values() body_0))))"
 " fold-var_1))))"
 "(values fold-var_2)))))"
@@ -82898,32 +82794,32 @@ static const char *startup_source =
 " null"
 " lst_0))))))))))))))))"
 "(define-values"
-"(make-parse-lifted-require216.1)"
-"(lambda(declared-submodule-names211_0 m-ns213_0 self214_0 requires+provides215_0)"
+"(make-parse-lifted-require.1)"
+"(lambda(declared-submodule-names189_0 m-ns191_0 self192_0 requires+provides193_0)"
 "(begin"
-" 'make-parse-lifted-require216"
-"(let-values(((m-ns_0) m-ns213_0))"
-"(let-values(((self_0) self214_0))"
-"(let-values(((requires+provides_0) requires+provides215_0))"
-"(let-values(((declared-submodule-names_0) declared-submodule-names211_0))"
+" 'make-parse-lifted-require"
+"(let-values(((m-ns_0) m-ns191_0))"
+"(let-values(((self_0) self192_0))"
+"(let-values(((requires+provides_0) requires+provides193_0))"
+"(let-values(((declared-submodule-names_0) declared-submodule-names189_0))"
 "(let-values()"
 "(lambda(s_0 phase_0)"
-"(let-values(((ok?_0 #%require719_0 req720_0)"
+"(let-values(((ok?_0 #%require691_0 req692_0)"
 "(let-values(((s_1)(syntax-disarm$1 s_0)))"
 "(let-values(((orig-s_0) s_1))"
-"(let-values(((#%require719_0 req720_0)"
+"(let-values(((#%require691_0 req692_0)"
 "(let-values(((s_2)(if(syntax?$1 s_1)(syntax-e$1 s_1) s_1)))"
 "(if(pair? s_2)"
-"(let-values(((#%require721_0)"
+"(let-values(((#%require693_0)"
 "(let-values(((s_3)(car s_2))) s_3))"
-"((req722_0)"
+"((req694_0)"
 "(let-values(((s_3)(cdr s_2)))"
 "(let-values(((s_4)"
 "(if(syntax?$1 s_3)"
 "(syntax-e$1 s_3)"
 " s_3)))"
 "(if(pair? s_4)"
-"(let-values(((req723_0)"
+"(let-values(((req695_0)"
 "(let-values(((s_5)(car s_4)))"
 " s_5))"
 "(()"
@@ -82940,39 +82836,39 @@ static const char *startup_source =
 " #f"
 "                                                                                               \"bad syntax\""
 " orig-s_0))))))"
-"(values req723_0))"
+"(values req695_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                           \"bad syntax\""
 " orig-s_0))))))"
-"(values #%require721_0 req722_0))"
+"(values #%require693_0 req694_0))"
 "                                                      (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t #%require719_0 req720_0))))))"
-"(let-values(((temp724_0)(list req720_0))"
-"((s725_0) s_0)"
-"((self726_0) self_0)"
-"((m-ns727_0) m-ns_0)"
-"((phase728_0) phase_0)"
-"((phase729_0) phase_0)"
-"((requires+provides730_0) requires+provides_0)"
-"((declared-submodule-names731_0) declared-submodule-names_0)"
-"((temp732_0) 'require))"
-"(parse-and-perform-requires!30.1"
+"(values #t #%require691_0 req692_0))))))"
+"(let-values(((temp696_0)(list req692_0))"
+"((s697_0) s_0)"
+"((self698_0) self_0)"
+"((m-ns699_0) m-ns_0)"
+"((phase700_0) phase_0)"
+"((phase701_0) phase_0)"
+"((requires+provides702_0) requires+provides_0)"
+"((declared-submodule-names703_0) declared-submodule-names_0)"
+"((temp704_0) 'require))"
+"(parse-and-perform-requires!.1"
 " #f"
 " #f"
-" declared-submodule-names731_0"
+" declared-submodule-names703_0"
 " #f"
-" phase729_0"
+" phase701_0"
 " #f"
-" self726_0"
+" self698_0"
 " #f"
 " #t"
-" temp732_0"
-" temp724_0"
-" s725_0"
-" m-ns727_0"
-" phase728_0"
-" requires+provides730_0))))))))))))"
+" temp704_0"
+" temp696_0"
+" s697_0"
+" m-ns699_0"
+" phase700_0"
+" requires+provides702_0))))))))))))"
 "(define-values"
 "(defn-extract-syntax)"
 "(lambda(defn_0)"
@@ -83041,14 +82937,14 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(let-values(((ok?_0"
-" define-values737_0"
-" _738_0)"
+" define-values709_0"
+" _710_0)"
 "(let-values(((s_0)"
 " s-lifted-defn_0))"
 "(let-values(((orig-s_0)"
 " s_0))"
-"(let-values(((define-values737_0"
-" _738_0)"
+"(let-values(((define-values709_0"
+" _710_0)"
 "(let-values(((s_1)"
 "(if(syntax?$1"
 " s_0)"
@@ -83057,12 +82953,12 @@ static const char *startup_source =
 " s_0)))"
 "(if(pair?"
 " s_1)"
-"(let-values(((define-values739_0)"
+"(let-values(((define-values711_0)"
 "(let-values(((s_2)"
 "(car"
 " s_1)))"
 " s_2))"
-"((_740_0)"
+"((_712_0)"
 "(let-values(((s_2)"
 "(cdr"
 " s_1)))"
@@ -83085,16 +82981,16 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" define-values739_0"
-" _740_0))"
+" define-values711_0"
+" _712_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                         \"bad syntax\""
 " orig-s_0)))))"
 "(values"
 " #t"
-" define-values737_0"
-" _738_0))))))"
+" define-values709_0"
+" _710_0))))))"
 "(begin"
 "(call-expand-observe"
 " obs_0"
@@ -83106,7 +83002,7 @@ static const char *startup_source =
 "(call-expand-observe"
 " obs_0"
 " 'resolve"
-" define-values737_0)"
+" define-values709_0)"
 "(call-expand-observe"
 " obs_0"
 " 'enter-prim"
@@ -83145,22 +83041,22 @@ static const char *startup_source =
 " lst_0)))"
 "(values))))"
 "(let-values()"
-"(let-values(((ok?_0 form-id733_0 _734_0)"
+"(let-values(((ok?_0 form-id705_0 _706_0)"
 "(let-values(((s_0) exp-body_0))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((form-id733_0 _734_0)"
+"(let-values(((form-id705_0 _706_0)"
 "(let-values(((s_1)(if(syntax?$1 s_0)(syntax-e$1 s_0) s_0)))"
 "(if(pair? s_1)"
-"(let-values(((form-id735_0)"
+"(let-values(((form-id707_0)"
 "(let-values(((s_2)(car s_1))) s_2))"
-"((_736_0)(let-values(((s_2)(cdr s_1))) s_2)))"
-"(values form-id735_0 _736_0))"
+"((_708_0)(let-values(((s_2)(cdr s_1))) s_2)))"
+"(values form-id707_0 _708_0))"
 "                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t form-id733_0 _734_0))))))"
+"(values #t form-id705_0 _706_0))))))"
 "(begin"
 "(call-expand-observe obs_0 'next)"
 "(call-expand-observe obs_0 'visit exp-body_0)"
-"(call-expand-observe obs_0 'resolve form-id733_0)"
+"(call-expand-observe obs_0 'resolve form-id705_0)"
 "(call-expand-observe obs_0 'enter-prim exp-body_0)"
 "(call-expand-observe obs_0 'prim-stop)"
 "(call-expand-observe obs_0 'exit-prim exp-body_0)"
@@ -83174,15 +83070,15 @@ static const char *startup_source =
 "(if obs_0"
 "(let-values()"
 "(let-values(((s-defn_0)(defn-extract-syntax defn_0)))"
-"(let-values(((ok?_0 define-values741_0 _742_0)"
+"(let-values(((ok?_0 define-values713_0 _714_0)"
 "(let-values(((s_0) s-defn_0))"
 "(let-values(((orig-s_0) s_0))"
-"(let-values(((define-values741_0 _742_0)"
+"(let-values(((define-values713_0 _714_0)"
 "(let-values(((s_1)(if(syntax?$1 s_0)(syntax-e$1 s_0) s_0)))"
 "(if(pair? s_1)"
-"(let-values(((define-values743_0)"
+"(let-values(((define-values715_0)"
 "(let-values(((s_2)(car s_1))) s_2))"
-"((_744_0)"
+"((_716_0)"
 "(let-values(((s_2)(cdr s_1)))"
 "(let-values(((s_3)"
 "(if(syntax?$1 s_2)"
@@ -83196,12 +83092,12 @@ static const char *startup_source =
 "                                                                           \"bad syntax\""
 " orig-s_0))"
 "(let-values() flat-s_0)))))))"
-"(values define-values743_0 _744_0))"
+"(values define-values715_0 _716_0))"
 "                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_0)))))"
-"(values #t define-values741_0 _742_0))))))"
+"(values #t define-values713_0 _714_0))))))"
 "(begin"
 "(call-expand-observe obs_0 'visit s-defn_0)"
-"(call-expand-observe obs_0 'resolve define-values741_0)"
+"(call-expand-observe obs_0 'resolve define-values713_0)"
 "(call-expand-observe obs_0 'enter-prim s-defn_0)"
 "(call-expand-observe obs_0 'prim-define-values)))))"
 "(void))))))"
@@ -83257,7 +83153,7 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((tl-ids1_0) tl-ids_0)((temp2_0)(expand-context-phase ctx_0))((s3_0) s_0))"
-"(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_0 s3_0 unsafe-undefined))"
+"(check-no-duplicate-ids.1 unsafe-undefined tl-ids1_0 temp2_0 s3_0 unsafe-undefined))"
 "(values))))"
 "(let-values(((tmp-bind-ids_0)"
 "(reverse$1"
@@ -83441,11 +83337,11 @@ static const char *startup_source =
 "(let-values(((exp-rhs_0)"
 "(let-values(((temp11_0) rhs3_0)"
 "((temp12_0)(as-named-context(as-expression-context ctx_0) ids_0)))"
-"(expand9.1 #f #f #f temp11_0 temp12_0))))"
+"(expand.1 #f #f #f temp11_0 temp12_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-define-values19.1 s_0 ids_0 syms_0 exp-rhs_0)"
 "(let-values(((s13_0) s_0)((temp14_0)(list define-values1_0 ids_0 exp-rhs_0)))"
-"(rebuild5.1 #t s13_0 temp14_0))))))))))))"
+"(rebuild.1 #t s13_0 temp14_0))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-syntaxes"
@@ -83608,11 +83504,11 @@ static const char *startup_source =
 "(let-values(((ids_0 syms_0)(as-expand-time-top-level-bindings id16_0 s_0 ctx_0)))"
 "(let-values(((exp-rhs_0)"
 "(let-values(((temp25_0) rhs17_0)((temp26_0)(as-named-context ctx_0 ids_0)))"
-"(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_0 temp26_0))))"
+"(expand-transformer.1 #f #f 'expression #t #f unsafe-undefined temp25_0 temp26_0))))"
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-define-syntaxes20.1 s_0 ids_0 syms_0 exp-rhs_0)"
 "(let-values(((s27_0) s_0)((temp28_0)(list define-syntaxes15_0 ids_0 exp-rhs_0)))"
-"(rebuild5.1 #t s27_0 temp28_0)))))))))))))"
+"(rebuild.1 #t s27_0 temp28_0)))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin-for-syntax"
@@ -83656,10 +83552,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((trans-ctx_0)"
 "(let-values(((ctx33_0) ctx_0)((temp34_0) 'top-level)((temp35_0) #t))"
-"(context->transformer-context99.1 temp35_0 ctx33_0 temp34_0))))"
+"(context->transformer-context.1 temp35_0 ctx33_0 temp34_0))))"
 "(let-values(((lift-ctx_0)"
 "(let-values(((temp36_0)(make-top-level-lift trans-ctx_0)))"
-"(make-lift-context6.1 #f temp36_0))))"
+"(make-lift-context.1 #f temp36_0))))"
 "(let-values(((capture-ctx_0)"
 "(let-values(((v_0) trans-ctx_0))"
 "(let-values(((the-struct_0) v_0))"
@@ -83784,7 +83680,7 @@ static const char *startup_source =
 " forms_1))"
 "((capture-ctx41_0)"
 " capture-ctx_0))"
-"(expand9.1"
+"(expand.1"
 " #f"
 " #f"
 " #f"
@@ -83822,7 +83718,7 @@ static const char *startup_source =
 "((temp44_0)"
 "(expand-context-phase"
 " trans-ctx_0)))"
-"(wrap-lifts-as-begin16.1"
+"(wrap-lifts-as-begin.1"
 " unsafe-undefined"
 " unsafe-undefined"
 " lifts42_0"
@@ -83839,7 +83735,7 @@ static const char *startup_source =
 "(if(expand-context-to-parsed? ctx_0)"
 "(parsed-begin-for-syntax21.1 s_0 all-exp-forms_0)"
 "(let-values(((s45_0) s_0)((temp46_0)(cons begin-for-syntax29_0 all-exp-forms_0)))"
-"(rebuild5.1 #t s45_0 temp46_0))))))))))))))"
+"(rebuild.1 #t s45_0 temp46_0))))))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%require"
@@ -83915,10 +83811,10 @@ static const char *startup_source =
 "((temp54_0) #f)"
 "((ns55_0) ns_0)"
 "((temp56_0)(expand-context-phase ctx_0))"
-"((temp57_0)(let-values(((temp60_0) #f))(make-requires+provides8.1 #f temp60_0)))"
+"((temp57_0)(let-values(((temp60_0) #f))(make-requires+provides.1 #f temp60_0)))"
 "((temp58_0) 'require)"
 "((temp59_0) #t))"
-"(parse-and-perform-requires!30.1"
+"(parse-and-perform-requires!.1"
 " #f"
 " #f"
 " unsafe-undefined"
@@ -83952,18 +83848,18 @@ static const char *startup_source =
 "(begin"
 "(declare-core-module! ns_0)"
 "(let-values(((temp1_0) '#%read)((read-primitives2_0) read-primitives)((ns3_0) ns_0))"
-"(declare-hash-based-module!39.1 ns3_0 #f null #f #f temp1_0 read-primitives2_0))"
+"(declare-hash-based-module!.1 ns3_0 #f null #f #f temp1_0 read-primitives2_0))"
 "(let-values(((temp4_0) '#%main)((main-primitives5_0) main-primitives)((ns6_0) ns_0))"
-"(declare-hash-based-module!39.1 ns6_0 #f null #f #f temp4_0 main-primitives5_0))"
+"(declare-hash-based-module!.1 ns6_0 #f null #f #f temp4_0 main-primitives5_0))"
 "(let-values(((temp7_0) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_0) ns_0))"
-"(declare-hash-based-module!39.1 ns9_0 #f null #f #f temp7_0 utils-primitives8_0))"
+"(declare-hash-based-module!.1 ns9_0 #f null #f #f temp7_0 utils-primitives8_0))"
 "(let-values(((temp10_0) '#%place-struct)"
 "((place-struct-primitives11_0) place-struct-primitives)"
 "((ns12_0) ns_0)"
 "((temp13_0) '(dynamic-place)))"
-"(declare-hash-based-module!39.1 ns12_0 #f temp13_0 #f #f temp10_0 place-struct-primitives11_0))"
+"(declare-hash-based-module!.1 ns12_0 #f temp13_0 #f #f temp10_0 place-struct-primitives11_0))"
 "(let-values(((temp14_0) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_0) ns_0))"
-"(declare-hash-based-module!39.1 ns16_0 #f null #f #f temp14_0 boot-primitives15_0))"
+"(declare-hash-based-module!.1 ns16_0 #f null #f #f temp14_0 boot-primitives15_0))"
 "(let-values(((linklet-primitives_0)"
 "(hash-remove"
 "(hash-remove linklet-primitives 'variable-reference?)"
@@ -83974,20 +83870,20 @@ static const char *startup_source =
 "((ns19_0) ns_0)"
 "((temp20_0) #t)"
 "((temp21_0) #t))"
-"(declare-hash-based-module!39.1 ns19_0 temp20_0 null #f temp21_0 temp17_0 linklet-primitives18_0))"
+"(declare-hash-based-module!.1 ns19_0 temp20_0 null #f temp21_0 temp17_0 linklet-primitives18_0))"
 "(let-values(((temp22_0) '#%linklet-expander)"
 "((linklet-expander-primitives23_0) linklet-expander-primitives)"
 "((ns24_0) ns_0))"
-"(declare-hash-based-module!39.1 ns24_0 #f null #f #f temp22_0 linklet-expander-primitives23_0))"
+"(declare-hash-based-module!.1 ns24_0 #f null #f #f temp22_0 linklet-expander-primitives23_0))"
 "(let-values(((temp25_0) '#%linklet)"
 "((temp26_0)(list '#%linklet-primitive '#%linklet-expander))"
 "((ns27_0) ns_0))"
-"(declare-reexporting-module!48.1 ns27_0 #t temp25_0 temp26_0))))"
+"(declare-reexporting-module!.1 ns27_0 #t temp25_0 temp26_0))))"
 "(let-values(((temp28_0) '#%expobs)"
 "((expobs-primitives29_0) expobs-primitives)"
 "((ns30_0) ns_0)"
 "((temp31_0) #t))"
-"(declare-hash-based-module!39.1 ns30_0 #f null temp31_0 #f temp28_0 expobs-primitives29_0))"
+"(declare-hash-based-module!.1 ns30_0 #f null temp31_0 #f temp28_0 expobs-primitives29_0))"
 "(let-values(((ns32_0) ns_0)"
 "((temp33_0)"
 "(let-values(((ht_0) main-primitives))"
@@ -84057,7 +83953,7 @@ static const char *startup_source =
 " for-loop_0)"
 " '#hash()"
 "(hash-iterate-first ht_0))))))"
-"(declare-kernel-module!6.1 temp33_0 temp34_0 ns32_0))"
+"(declare-kernel-module!.1 temp33_0 temp34_0 ns32_0))"
 "(begin"
 "(let-values(((lst_0) runtime-instances))"
 "(begin"
@@ -84095,7 +83991,7 @@ static const char *startup_source =
 "(eq?"
 " name_0"
 " '#%unsafe)))))))"
-"(copy-runtime-module!24.1"
+"(copy-runtime-module!.1"
 " unsafe-undefined"
 " unsafe-undefined"
 " ns36_0"
@@ -84115,7 +84011,7 @@ static const char *startup_source =
 "((temp39_0)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))"
 "((ns40_0) ns_0)"
 "((temp41_0) #f))"
-"(declare-reexporting-module!48.1 ns40_0 temp41_0 temp38_0 temp39_0))"
+"(declare-reexporting-module!.1 ns40_0 temp41_0 temp38_0 temp39_0))"
 "(1/current-namespace ns_0)"
 "(1/dynamic-require ''#%kernel 0)))))))"
 "(call-with-values(lambda()(namespace-init!)) print-values)"