diff --git a/pkgs/racket-doc/scribblings/reference/syntax-model.scrbl b/pkgs/racket-doc/scribblings/reference/syntax-model.scrbl
index 3028db2646..885d7fa78c 100644
--- a/pkgs/racket-doc/scribblings/reference/syntax-model.scrbl
+++ b/pkgs/racket-doc/scribblings/reference/syntax-model.scrbl
@@ -1170,7 +1170,8 @@ and only if no module-level binding is @racket[set!]ed.
                  boolean
                  identifier
                  string
-                 bytes]
+                 bytes
+                 ()]
 ]
 
 This grammar applies after @tech{expansion}, but because a @tech{cross-phase persistent}
diff --git a/pkgs/racket-test/tests/racket/cross-phase.rkt b/pkgs/racket-test/tests/racket/cross-phase.rkt
index 875ced07d8..c968ccb97f 100644
--- a/pkgs/racket-test/tests/racket/cross-phase.rkt
+++ b/pkgs/racket-test/tests/racket/cross-phase.rkt
@@ -53,6 +53,17 @@
 (check-cross-phase #f '(define-values (x) (#%variable-reference)))
 (check-cross-phase #f '(define-values (x) (lambda () (#%variable-reference))))
 (check-cross-phase #f '(define-values (x) (lambda () (if #f (#%variable-reference) 10))))
+(check-cross-phase #f '(define-values (x) (lambda () (if #f 10 (#%variable-reference)))))
+(check-cross-phase #f '(define-values (x) (lambda () (if (#%variable-reference) #f 10))))
+(check-cross-phase #f '(define-values (x) (lambda () (with-continuation-mark (set! x x) 1 2))))
+(check-cross-phase #f '(define-values (x) (lambda () (with-continuation-mark 1 (set! x x) 2))))
+(check-cross-phase #f '(define-values (x) (lambda () (with-continuation-mark 1 2 (set! x x)))))
+(check-cross-phase #f '(define-values (x) (lambda () (begin 1 2 (set! x x)))))
+(check-cross-phase #f '(define-values (x) (lambda () (begin0 1 2 (set! x x)))))
+(check-cross-phase #f '(define-values (x) (lambda () (let-values ([q (set! x x)]) q))))
+(check-cross-phase #f '(define-values (x) (lambda () (let-values ([q 'ok]) (set! x x)))))
+(check-cross-phase #f '(define-values (x) (lambda () (letrec-values ([q (set! x x)]) q))))
+(check-cross-phase #f '(define-values (x) (lambda () (letrec-values ([q 'ok]) (set! x x)))))
 (check-cross-phase #f '(define-values (x) (#%variable-reference x)))
 (check-cross-phase #f '(#%require racket/base))
 (check-cross-phase #f '(define-values (x) (gensym 1)))
diff --git a/racket/src/expander/expand/cross-phase.rkt b/racket/src/expander/expand/cross-phase.rkt
index 9fca3b16e4..74cff4eb2f 100644
--- a/racket/src/expander/expand/cross-phase.rkt
+++ b/racket/src/expander/expand/cross-phase.rkt
@@ -15,53 +15,103 @@
 
 (provide check-cross-phase-persistent-form)
 
-(define (check-cross-phase-persistent-form bodys)
-  (check-body bodys))
+(define (check-cross-phase-persistent-form bodys self-mpi)
 
-(define (check-body bodys)
-  (for ([body (in-list bodys)])
-    (define p (if (expanded+parsed? body)
-                  (expanded+parsed-parsed body)
-                  body))
+  (define (check-body bodys)
+    (for ([body (in-list bodys)])
+      (define p (if (expanded+parsed? body)
+                    (expanded+parsed-parsed body)
+                    body))
+      (cond
+        [(parsed-define-values? p)
+         (check-expr (parsed-define-values-rhs p) (length (parsed-define-values-syms p)) p)]
+        [(or (parsed-#%declare? p)
+             (parsed-module? p)
+             (syntax? p)) ;; remaining unparsed forms, such as `#%require` and `#%provide`, are ok
+         (void)]
+        [else
+         (disallow p)])))
+
+  (define (check-expr e num-results enclosing)
     (cond
-     [(parsed-define-values? p)
-      (check-expr (parsed-define-values-rhs p) (length (parsed-define-values-syms p)) p)]
-     [(or (parsed-#%declare? p)
-          (parsed-module? p)
-          (syntax? p)) ;; remaining unparsed forms, such as `#%require` and `#%provide`, are ok
-      (void)]
-     [else
-      (disallow p)])))
+      [(parsed-lambda? e)
+       (check-count 1 num-results enclosing)
+       (check-no-disallowed-expr e)]
+      [(parsed-case-lambda? e)
+       (check-count 1 num-results enclosing)
+       (check-no-disallowed-expr e)]
+      [(parsed-quote? e)
+       (check-datum (parsed-quote-datum e) e)
+       (check-count 1 num-results enclosing)]
+      [(parsed-app? e)
+       (define rands (parsed-app-rands e))
+       (for ([rand (in-list rands)])
+         (check-expr rand 1 e))
+       (case (cross-phase-primitive-name (parsed-app-rator e))
+         [(cons list)
+          (check-count 1 num-results enclosing)]
+         [(make-struct-type)
+          (check-count 5 num-results enclosing)]
+         [(make-struct-type-property)
+          (check-count 3 num-results enclosing)]
+         [(gensym)
+          (unless (or (= 0 (length rands))
+                      (and (= 1 (length rands))
+                           (quoted-string? (car rands))))
+            (disallow e))]
+         [(string->uninterned-symbol)
+          (unless (and (= 1 (length rands))
+                       (quoted-string? (car rands)))
+            (disallow e))]
+         [else (disallow e)])]
+      [else (check-no-disallowed-expr e)]))
 
-(define (check-expr e num-results enclosing)
-  (cond
-    [(or (parsed-lambda? e)
-         (parsed-case-lambda? e))
-     (check-count 1 num-results enclosing)]
-    [(parsed-quote? e)
-     (check-datum (parsed-quote-datum e) e)
-     (check-count 1 num-results enclosing)]
-    [(parsed-app? e)
-     (define rands (parsed-app-rands e))
-     (for ([rand (in-list rands)])
-       (check-expr rand 1 e))
-     (case (cross-phase-primitive-name (parsed-app-rator e))
-       [(cons list)
-        (check-count 1 num-results enclosing)]
-       [(make-struct-type)
-        (check-count 5 num-results enclosing)]
-       [(make-struct-type-property)
-        (check-count 3 num-results enclosing)]
-       [(gensym)
-        (unless (or (= 0 (length rands))
-                    (and (= 1 (length rands))
-                         (quoted-string? (car rands))))
-          (disallow e))]
-       [(string->uninterned-symbol)
-        (unless (and (= 1 (length rands))
-                     (quoted-string? (car rands)))
-          (disallow e))]
-       [else (disallow e)])]))
+  (define (check-no-disallowed-expr e)
+    (cond
+      [(parsed-lambda? e)
+       (check-body-no-disallowed-expr (parsed-lambda-body e))]
+      [(parsed-case-lambda? e)
+       (for ([clause (in-list (parsed-case-lambda-clauses e))])
+         (check-body-no-disallowed-expr (cadr clause)))]
+      [(parsed-app? e)
+       (check-no-disallowed-expr (parsed-app-rator e))
+       (for ([e (in-list (parsed-app-rands e))])
+         (check-no-disallowed-expr e))]
+      [(parsed-if? e)
+       (check-no-disallowed-expr (parsed-if-tst e))
+       (check-no-disallowed-expr (parsed-if-thn e))
+       (check-no-disallowed-expr (parsed-if-els e))]
+      [(parsed-set!? e)
+       (define id (parsed-set!-id e))
+       (define normal-b (parsed-id-binding id))
+       (when (or (not normal-b)
+                 (parsed-top-id? id)
+                 (eq? (module-binding-module normal-b) self-mpi))
+         (disallow e))
+       (check-no-disallowed-expr (parsed-set!-rhs e))]
+      [(parsed-with-continuation-mark? e)
+       (check-no-disallowed-expr (parsed-with-continuation-mark-key e))
+       (check-no-disallowed-expr (parsed-with-continuation-mark-val e))
+       (check-no-disallowed-expr (parsed-with-continuation-mark-body e))]
+      [(parsed-begin? e)
+       (check-body-no-disallowed-expr (parsed-begin-body e))]
+      [(parsed-begin0? e)
+       (check-body-no-disallowed-expr (parsed-begin0-body e))]
+      [(parsed-let_-values? e)
+       (for ([clause (in-list (parsed-let_-values-clauses e))])
+         (check-no-disallowed-expr (cadr clause)))
+       (check-body-no-disallowed-expr (parsed-let_-values-body e))]
+      [(or (parsed-quote-syntax? e)
+           (parsed-#%variable-reference? e))
+       (disallow e)]
+      ;; Other forms have no subexpressions
+      [else (void)]))
+
+  (define (check-body-no-disallowed-expr l)
+    (for ([e (in-list l)])
+      (check-no-disallowed-expr e)))
+
+  (check-body bodys))
 
 (define (check-count is-num expected-num enclosing)
   (unless (= is-num expected-num)
@@ -69,9 +119,9 @@
 
 (define (check-datum d e)
   (cond
-   [(or (number? d) (boolean? d) (symbol? d) (string? d) (bytes? d))
-    (void)]
-   [else (disallow e)]))
+    [(or (number? d) (boolean? d) (symbol? d) (string? d) (bytes? d) (null? d))
+     (void)]
+    [else (disallow e)]))
 
 (define (quoted-string? e)
   (and (parsed-quote? e)
@@ -79,12 +129,12 @@
 
 (define (cross-phase-primitive-name id)
   (cond
-   [(parsed-id? id)
-    (define b (parsed-id-binding id))
-    (and (module-binding? b)
-         (eq? runtime-module-name (module-path-index-resolve (module-binding-module b)))
-         (module-binding-sym b))]
-   [else #f]))
+    [(parsed-id? id)
+     (define b (parsed-id-binding id))
+     (and (module-binding? b)
+          (eq? runtime-module-name (module-path-index-resolve (module-binding-module b)))
+          (module-binding-sym b))]
+    [else #f]))
 
 (define (disallow body)
   (raise-syntax-error 'module
diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt
index ffeba59676..cdf49433f9 100644
--- a/racket/src/expander/expand/module.rkt
+++ b/racket/src/expander/expand/module.rkt
@@ -389,7 +389,7 @@
          (raise-syntax-error #f "cannot be cross-phase persistent due to required modules"
                              rebuild-s
                              (hash-ref declared-keywords '#:cross-phase-persistent)))
-       (check-cross-phase-persistent-form fully-expanded-bodys-except-post-submodules))
+       (check-cross-phase-persistent-form fully-expanded-bodys-except-post-submodules self))
 
      ;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ;; Pass 4: expand `module*` submodules
diff --git a/racket/src/expander/namespace/attach.rkt b/racket/src/expander/namespace/attach.rkt
index 157f5f8361..1d898c031e 100644
--- a/racket/src/expander/namespace/attach.rkt
+++ b/racket/src/expander/namespace/attach.rkt
@@ -81,7 +81,8 @@
 
         (define-values (m-ns already?)
           (cond
-           [attach-this-instance?
+           [(or attach-this-instance?
+                (module-cross-phase-persistent? m))
             (define m-ns (namespace->module-namespace src-namespace mod-name phase))
             (unless m-ns
               (raise-arguments-error who
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index dbe77f1902..53337d783e 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -41889,7 +41889,12 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((m-ns_13"
 " already?_0)"
-"(if attach-this-instance?_0"
+"(if(let-values(((or-part_287)"
+" attach-this-instance?_0))"
+"(if or-part_287"
+" or-part_287"
+"(module-cross-phase-persistent?"
+" m_20)))"
 "(let-values()"
 "(let-values(((m-ns_14)"
 "(let-values(((src-namespace32_0)"
@@ -42032,7 +42037,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_293)"
+"(let-values(((lst_9)"
 "(module-requires"
 " m_20)))"
 "(begin"
@@ -42041,21 +42046,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_293)))"
-"((letrec-values(((for-loop_251)"
-"(lambda(lst_220)"
+" lst_9)))"
+"((letrec-values(((for-loop_1)"
+"(lambda(lst_21)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_220)"
+" lst_21)"
 "(let-values(((phase+reqs_1)"
 "(unsafe-car"
-" lst_220))"
+" lst_21))"
 "((rest_164)"
 "(unsafe-cdr"
-" lst_220)))"
+" lst_21)))"
 "(let-values((()"
-"(let-values(((lst_158)"
+"(let-values(((lst_22)"
 "(cdr"
 " phase+reqs_1)))"
 "(begin"
@@ -42064,19 +42069,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_158)))"
-"((letrec-values(((for-loop_252)"
-"(lambda(lst_173)"
+" lst_22)))"
+"((letrec-values(((for-loop_179)"
+"(lambda(lst_174)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_173)"
+" lst_174)"
 "(let-values(((req_5)"
 "(unsafe-car"
-" lst_173))"
-"((rest_165)"
+" lst_174))"
+"((rest_117)"
 "(unsafe-cdr"
-" lst_173)))"
+" lst_174)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -42099,22 +42104,22 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_252"
-" rest_165)"
+"(for-loop_179"
+" rest_117)"
 "(values))))"
 "(values))))))"
-" for-loop_252)"
-" lst_158)))))"
+" for-loop_179)"
+" lst_22)))))"
 "(if(not"
 " #f)"
-"(for-loop_251"
+"(for-loop_1"
 " rest_164)"
 "(values))))"
 "(values))))))"
-" for-loop_251)"
-" lst_293)))"
+" for-loop_1)"
+" lst_9)))"
 "(void)"
-"(let-values(((lst_282)"
+"(let-values(((lst_175)"
 "(module-submodule-names"
 " m_20)))"
 "(begin"
@@ -42123,19 +42128,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_282)))"
-"((letrec-values(((for-loop_253)"
-"(lambda(lst_176)"
+" lst_175)))"
+"((letrec-values(((for-loop_251)"
+"(lambda(lst_293)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_176)"
+" lst_293)"
 "(let-values(((submod-name_0)"
 "(unsafe-car"
-" lst_176))"
-"((rest_91)"
+" lst_293))"
+"((rest_165)"
 "(unsafe-cdr"
-" lst_176)))"
+" lst_293)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -42156,12 +42161,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_253"
-" rest_91)"
+"(for-loop_251"
+" rest_165)"
 "(values))))"
 "(values))))))"
-" for-loop_253)"
-" lst_282)))"
+" for-loop_251)"
+" lst_175)))"
 "(void)"
 "(if(module-supermodule-name"
 " m_20)"
@@ -42193,17 +42198,17 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_143)))"
-"((letrec-values(((for-loop_254)"
-"(lambda(i_95)"
+"((letrec-values(((for-loop_252)"
+"(lambda(i_168)"
 "(begin"
 " 'for-loop"
-"(if i_95"
+"(if i_168"
 "(let-values(((mod-name_20 phases_0)"
 "(hash-iterate-key+value"
 " ht_143"
-" i_95)))"
+" i_168)))"
 "(let-values((()"
-"(let-values(((ht_144)"
+"(let-values(((ht_24)"
 " phases_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -42211,17 +42216,17 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_144)))"
-"((letrec-values(((for-loop_238)"
-"(lambda(i_168)"
+" ht_24)))"
+"((letrec-values(((for-loop_19)"
+"(lambda(i_98)"
 "(begin"
 " 'for-loop"
-"(if i_168"
+"(if i_98"
 "(let-values(((phase_134"
 " m-ns_15)"
 "(hash-iterate-key+value"
-" ht_144"
-" i_168)))"
+" ht_24"
+" i_98)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -42255,7 +42260,7 @@ static const char *startup_source =
 " src-namespace_6"
 " mod-name_20"
 " phase_134)"
-"(let-values(((or-part_261)"
+"(let-values(((or-part_210)"
 "(let-values(((dest-namespace47_0)"
 " dest-namespace_2)"
 "((mod-name48_0)"
@@ -42272,8 +42277,8 @@ static const char *startup_source =
 " dest-namespace47_0"
 " mod-name48_0"
 " phase49_2))))"
-"(if or-part_261"
-" or-part_261"
+"(if or-part_210"
+" or-part_210"
 "(namespace-install-module-namespace!"
 " dest-namespace_2"
 " mod-name_20"
@@ -42285,21 +42290,21 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_238"
+"(for-loop_19"
 "(hash-iterate-next"
-" ht_144"
-" i_168))"
+" ht_24"
+" i_98))"
 "(values))))"
 "(values))))))"
-" for-loop_238)"
+" for-loop_19)"
 "(hash-iterate-first"
-" ht_144))))))"
+" ht_24))))))"
 "(if(not #f)"
-"(for-loop_254"
-"(hash-iterate-next ht_143 i_95))"
+"(for-loop_252"
+"(hash-iterate-next ht_143 i_168))"
 "(values))))"
 "(values))))))"
-" for-loop_254)"
+" for-loop_252)"
 "(hash-iterate-first ht_143))))"
 "(values))))"
 "(let-values()"
@@ -42312,18 +42317,18 @@ static const char *startup_source =
 " dest-namespace_2)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_145) todo_0))"
+"(let-values(((ht_47) todo_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_145)))"
-"((letrec-values(((for-loop_110)"
+"(let-values()(check-in-hash-keys ht_47)))"
+"((letrec-values(((for-loop_49)"
 "(lambda(i_169)"
 "(begin"
 " 'for-loop"
 "(if i_169"
 "(let-values(((mod-name_21)"
-"(hash-iterate-key ht_145 i_169)))"
+"(hash-iterate-key ht_47 i_169)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -42336,12 +42341,12 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_110"
-"(hash-iterate-next ht_145 i_169))"
+"(for-loop_49"
+"(hash-iterate-next ht_47 i_169))"
 "(values))))"
 "(values))))))"
-" for-loop_110)"
-"(hash-iterate-first ht_145))))"
+" for-loop_49)"
+"(hash-iterate-first ht_47))))"
 "(void))))))))))))))))))))))))"
 "(define-values"
 "(1/make-empty-namespace)"
@@ -42817,9 +42822,9 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(escape_0"
-"(let-values(((or-part_287) failure-thunk_5))"
-"(if or-part_287"
-" or-part_287"
+"(let-values(((or-part_288) failure-thunk_5))"
+"(if or-part_288"
+" or-part_288"
 "(lambda()"
 "(raise"
 "(make-exn:fail:syntax$1"
@@ -42852,9 +42857,9 @@ static const char *startup_source =
 " var-sym_6"
 "(lambda()"
 "(escape_0"
-"(let-values(((or-part_288) failure-thunk_5))"
-"(if or-part_288"
-" or-part_288"
+"(let-values(((or-part_289) failure-thunk_5))"
+"(if or-part_289"
+" or-part_289"
 "(raise"
 "(exn:fail:contract:variable"
 "(format"
@@ -43009,18 +43014,18 @@ static const char *startup_source =
 " compile2_0"
 "(lambda(s_411 ns_67)(begin 'compile(1/compile s_411 ns_67 #f))))))"
 "(let-values()"
-"(if(let-values(((or-part_289)(compiled-in-memory? s_146)))"
-"(if or-part_289"
-" or-part_289"
-"(let-values(((or-part_290)(1/linklet-directory? s_146)))"
-"(if or-part_290 or-part_290(1/linklet-bundle? s_146)))))"
+"(if(let-values(((or-part_290)(compiled-in-memory? s_146)))"
+"(if or-part_290"
+" or-part_290"
+"(let-values(((or-part_291)(1/linklet-directory? s_146)))"
+"(if or-part_291 or-part_291(1/linklet-bundle? s_146)))))"
 "(let-values()(eval-compiled s_146 ns_42))"
 "(if(if(syntax?$1 s_146)"
-"(let-values(((or-part_291)(compiled-in-memory?(1/syntax-e s_146))))"
-"(if or-part_291"
-" or-part_291"
-"(let-values(((or-part_292)(1/linklet-directory?(1/syntax-e s_146))))"
-"(if or-part_292 or-part_292(1/linklet-bundle?(1/syntax-e s_146))))))"
+"(let-values(((or-part_292)(compiled-in-memory?(1/syntax-e s_146))))"
+"(if or-part_292"
+" or-part_292"
+"(let-values(((or-part_293)(1/linklet-directory?(1/syntax-e s_146))))"
+"(if or-part_293 or-part_293(1/linklet-bundle?(1/syntax-e s_146))))))"
 " #f)"
 "(let-values()(eval-compiled(1/syntax->datum s_146) ns_42))"
 "(let-values()"
@@ -43777,8 +43782,8 @@ static const char *startup_source =
 "                                                                                  \"expand-context/outer?\""
 " the-struct_74))))))))"
 "(let-values(((disarmed-exp-s_0)(syntax-disarm$1 exp-s_8)))"
-"(if(let-values(((or-part_293)(pair? require-lifts_5)))"
-"(if or-part_293 or-part_293(pair? lifts_11)))"
+"(if(let-values(((or-part_294)(pair? require-lifts_5)))"
+"(if or-part_294 or-part_294(pair? lifts_11)))"
 "(let-values()"
 "(let-values(((new-s_2)"
 "(let-values(((temp159_1)"
@@ -44041,7 +44046,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_294)))"
-"((letrec-values(((for-loop_255)"
+"((letrec-values(((for-loop_253)"
 "(lambda(fold-var_260"
 " lst_295)"
 "(begin"
@@ -44071,12 +44076,12 @@ static const char *startup_source =
 " fold-var_263)))))"
 "(if(not"
 " #f)"
-"(for-loop_255"
+"(for-loop_253"
 " fold-var_261"
 " rest_166)"
 " fold-var_261)))"
 " fold-var_260)))))"
-" for-loop_255)"
+" for-loop_253)"
 " null"
 " lst_294))))))"
 "(if wrap_2"
@@ -44292,7 +44297,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_296)))"
-"((letrec-values(((for-loop_256)"
+"((letrec-values(((for-loop_254)"
 "(lambda(fold-var_264 lst_297)"
 "(begin"
 " 'for-loop"
@@ -44308,9 +44313,9 @@ static const char *startup_source =
 "(parsed-require23.1 req_19))"
 " fold-var_266))))"
 "(values fold-var_267)))))"
-"(if(not #f)(for-loop_256 fold-var_265 rest_167) fold-var_265)))"
+"(if(not #f)(for-loop_254 fold-var_265 rest_167) fold-var_265)))"
 " fold-var_264)))))"
-" for-loop_256)"
+" for-loop_254)"
 " null"
 " lst_296))))"
 "(reverse$1"
@@ -44319,7 +44324,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_298)))"
-"((letrec-values(((for-loop_257)"
+"((letrec-values(((for-loop_255)"
 "(lambda(fold-var_268 lst_299)"
 "(begin"
 " 'for-loop"
@@ -44369,9 +44374,9 @@ static const char *startup_source =
 " dv_0)))))"
 " fold-var_270))))"
 "(values fold-var_271)))))"
-"(if(not #f)(for-loop_257 fold-var_269 rest_168) fold-var_269)))"
+"(if(not #f)(for-loop_255 fold-var_269 rest_168) fold-var_269)))"
 " fold-var_268)))))"
-" for-loop_257)"
+" for-loop_255)"
 " null"
 " lst_298)))))"
 " exp-s_10))))))))))"
@@ -44882,25 +44887,25 @@ static const char *startup_source =
 "(if(list? l_8)"
 "(andmap2"
 "(lambda(p_51)"
-"(let-values(((or-part_289)(not p_51)))"
-"(if or-part_289"
-" or-part_289"
-"(let-values(((or-part_290)(complete-path-string? p_51)))"
+"(let-values(((or-part_290)(not p_51)))"
 "(if or-part_290"
 " or-part_290"
+"(let-values(((or-part_291)(complete-path-string? p_51)))"
+"(if or-part_291"
+" or-part_291"
 "(if(hash? p_51)"
-"(let-values(((ht_146) p_51))"
+"(let-values(((ht_144) p_51))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_146)))"
+"(let-values()(check-in-hash ht_144)))"
 "((letrec-values(((for-loop_177)"
 "(lambda(result_109 i_85)"
 "(begin"
 " 'for-loop"
 "(if i_85"
 "(let-values(((k_34 v_3)"
-"(hash-iterate-key+value ht_146 i_85)))"
+"(hash-iterate-key+value ht_144 i_85)))"
 "(let-values(((result_110)"
 "(let-values()"
 "(let-values(((result_111)"
@@ -44928,12 +44933,12 @@ static const char *startup_source =
 " #f)"
 "(for-loop_177"
 " result_110"
-"(hash-iterate-next ht_146 i_85))"
+"(hash-iterate-next ht_144 i_85))"
 " result_110)))"
 " result_109)))))"
 " for-loop_177)"
 " #t"
-"(hash-iterate-first ht_146))))"
+"(hash-iterate-first ht_144))))"
 " #f))))))"
 " l_8)"
 " #f))"
@@ -44957,17 +44962,17 @@ static const char *startup_source =
 "(if(string? p_3)"
 "(let-values()(string->path p_3))"
 "(let-values()"
-"(let-values(((ht_147) p_3))"
+"(let-values(((ht_145) p_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_147)))"
-"((letrec-values(((for-loop_258)"
+"(let-values()(check-in-hash ht_145)))"
+"((letrec-values(((for-loop_256)"
 "(lambda(table_201 i_86)"
 "(begin"
 " 'for-loop"
 "(if i_86"
-"(let-values(((k_35 v_196)(hash-iterate-key+value ht_147 i_86)))"
+"(let-values(((k_35 v_196)(hash-iterate-key+value ht_145 i_86)))"
 "(let-values(((table_202)"
 "(let-values(((table_103) table_201))"
 "(let-values(((table_203)"
@@ -44983,12 +44988,12 @@ static const char *startup_source =
 " val_73)))))"
 "(values table_203)))))"
 "(if(not #f)"
-"(for-loop_258 table_202(hash-iterate-next ht_147 i_86))"
+"(for-loop_256 table_202(hash-iterate-next ht_145 i_86))"
 " table_202)))"
 " table_201)))))"
-" for-loop_258)"
+" for-loop_256)"
 " '#hash()"
-"(hash-iterate-first ht_147)))))))))"
+"(hash-iterate-first ht_145)))))))))"
 " l_74)))))))"
 "(define-values"
 "(1/use-compiled-file-paths)"
@@ -45102,8 +45107,8 @@ static const char *startup_source =
 "(let-values(((or-part_28)(1/string->number start_42)))"
 "(if or-part_28 or-part_28 0))))"
 "(let-values(((end_32)"
-"(let-values(((or-part_289)(1/string->number end_31)))"
-"(if or-part_289 or-part_289 0))))"
+"(let-values(((or-part_290)(1/string->number end_31)))"
+"(if or-part_290 or-part_290 0))))"
 "(let-values(((exe4_0) exe_0)"
 "((temp5_6)"
 "(lambda()"
@@ -45258,9 +45263,9 @@ static const char *startup_source =
 "(let-values(((or-part_160)(find-main-collects)))(if or-part_160 or-part_160(current-directory)))))))))"
 "(define-values"
 "(add-config-search)"
-"(lambda(ht_148 key_83 orig-l_9)"
+"(lambda(ht_146 key_83 orig-l_9)"
 "(begin"
-"(let-values(((l_66)(hash-ref ht_148 key_83 #f)))"
+"(let-values(((l_66)(hash-ref ht_146 key_83 #f)))"
 "(if l_66"
 "((letrec-values(((loop_99)"
 "(lambda(l_67)"
@@ -45279,22 +45284,22 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'find-library-collection-links"
-"(let-values(((ht_149)(get-config-table(find-main-config))))"
+"(let-values(((ht_147)(get-config-table(find-main-config))))"
 "(let-values(((lf_0)"
 "(coerce-to-path"
-"(let-values(((or-part_70)(hash-ref ht_149 'links-file #f)))"
+"(let-values(((or-part_70)(hash-ref ht_147 'links-file #f)))"
 "(if or-part_70"
 " or-part_70"
 "(build-path"
-"(let-values(((or-part_71)(hash-ref ht_149 'share-dir #f)))"
+"(let-values(((or-part_71)(hash-ref ht_147 'share-dir #f)))"
 "                              (if or-part_71 or-part_71 (build-path 'up \"share\")))"
 "                            \"links.rktd\"))))))"
 "(append"
 "(list #f)"
 "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)"
-"             (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_149) \"links.rktd\"))"
+"             (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_147) \"links.rktd\"))"
 " null)"
-"(if(1/use-collection-link-paths)(add-config-search ht_149 'links-search-files(list lf_0)) null)))))))"
+"(if(1/use-collection-link-paths)(add-config-search ht_147 'links-search-files(list lf_0)) null)))))))"
 "(define-values(links-cache)(make-weak-hash))"
 "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))"
 "(define-values"
@@ -45432,9 +45437,9 @@ static const char *startup_source =
 "(if(list? p_61)"
 "(if(let-values(((or-part_64)(= 2(length p_61))))"
 "(if or-part_64 or-part_64(= 3(length p_61))))"
-"(if(let-values(((or-part_294)(string?(car p_61))))"
-"(if or-part_294"
-" or-part_294"
+"(if(let-values(((or-part_295)(string?(car p_61))))"
+"(if or-part_295"
+" or-part_295"
 "(let-values(((or-part_262)"
 "(eq? 'root(car p_61))))"
 "(if or-part_262"
@@ -45452,7 +45457,7 @@ static const char *startup_source =
 "(void)"
 "                                                  (let-values () (error \"ill-formed content\")))"
 "(values))))"
-"(let-values(((ht_150)(make-hasheq)))"
+"(let-values(((ht_148)(make-hasheq)))"
 "(let-values(((dir_0)"
 "(let-values(((base_20 name_42 dir?_5)(split-path links-path_0)))"
 " base_20)))"
@@ -45472,34 +45477,34 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((k_36)(string->symbol(path->string sub_1))))"
 "(hash-set!"
-" ht_150"
+" ht_148"
 " k_36"
-"(cons dir_1(hash-ref ht_150 k_36 null)))))"
+"(cons dir_1(hash-ref ht_148 k_36 null)))))"
 "(void)))"
 "(directory-list dir_1)))"
 "(if(eq?(car p_62) 'root)"
 "(let-values()"
 "(begin"
-"(if(hash-ref ht_150 #f #f)"
+"(if(hash-ref ht_148 #f #f)"
 "(void)"
-"(let-values()(hash-set! ht_150 #f null)))"
+"(let-values()(hash-set! ht_148 #f null)))"
 "(hash-for-each"
-" ht_150"
+" ht_148"
 "(lambda(k_37 v_198)"
-"(hash-set! ht_150 k_37(cons dir_1 v_198))))))"
+"(hash-set! ht_148 k_37(cons dir_1 v_198))))))"
 "(let-values()"
 "(let-values(((s_16)(string->symbol(car p_62))))"
 "(hash-set!"
-" ht_150"
+" ht_148"
 " s_16"
-"(cons(box dir_1)(hash-ref ht_150 s_16 null)))))))))"
+"(cons(box dir_1)(hash-ref ht_148 s_16 null)))))))))"
 "(void)))"
 " v_131)"
 "(hash-for-each"
-" ht_150"
-"(lambda(k_38 v_199)(hash-set! ht_150 k_38(reverse$1 v_199))))"
-"(hash-set! links-cache links-path_0(cons ts_1 ht_150))"
-" ht_150))))))))))))))))))))))"
+" ht_148"
+"(lambda(k_38 v_199)(hash-set! ht_148 k_38(reverse$1 v_199))))"
+"(hash-set! links-cache links-path_0(cons ts_1 ht_148))"
+" ht_148))))))))))))))))))))))"
 "(define-values"
 "(normalize-collection-reference)"
 "(lambda(collection_2 collection-path_2)"
@@ -45546,10 +45551,10 @@ static const char *startup_source =
 "(hash-ref(car l_79) #f null)"
 "(loop_96(cdr l_79))))"
 "(let-values()"
-"(let-values(((ht_151)(get-linked-collections(car l_79))))"
+"(let-values(((ht_149)(get-linked-collections(car l_79))))"
 "(append"
-"(hash-ref ht_151 sym_88 null)"
-"(hash-ref ht_151 #f null)"
+"(hash-ref ht_149 sym_88 null)"
+"(hash-ref ht_149 #f null)"
 "(loop_96(cdr l_79))))))))))))"
 " loop_96)"
 "(1/current-library-collection-links)))))"
@@ -46019,10 +46024,10 @@ static const char *startup_source =
 "(if or-part_221"
 " or-part_221"
 "                                   (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))"
-"(let-values(((or-part_295) coerce_1))"
-"(if or-part_295 or-part_295(lambda(for-syntax?_2 v_111 srcloc_8) v_111)))"
-"(let-values(((or-part_296) coerce-key_1))"
-"(if or-part_296 or-part_296(lambda(for-syntax?_3 v_115) v_115)))"
+"(let-values(((or-part_296) coerce_1))"
+"(if or-part_296 or-part_296(lambda(for-syntax?_2 v_111 srcloc_8) v_111)))"
+"(let-values(((or-part_297) coerce-key_1))"
+"(if or-part_297 or-part_297(lambda(for-syntax?_3 v_115) v_115)))"
 " #f"
 " #f"
 " #f"
@@ -46429,10 +46434,10 @@ static const char *startup_source =
 " 'non-terminating-macro)))"
 "(if or-part_33"
 " or-part_33"
-"(let-values(((or-part_297)"
+"(let-values(((or-part_298)"
 "(eq? mode_16 'dispatch-macro)))"
-"(if or-part_297"
-" or-part_297"
+"(if or-part_298"
+" or-part_298"
 "(char? mode_16)))))))"
 "(void)"
 "(let-values()"
@@ -46671,21 +46676,21 @@ static const char *startup_source =
 "(readtable-equivalent-chars)"
 "(lambda(rt_6 c_61)"
 "(begin"
-"(let-values(((ht_152)(readtable-char-ht rt_6)))"
+"(let-values(((ht_150)(readtable-char-ht rt_6)))"
 "(append"
-"(if(hash-ref ht_152 c_61 #f) null(list c_61))"
+"(if(hash-ref ht_150 c_61 #f) null(list c_61))"
 "(reverse$1"
-"(let-values(((ht_153) ht_152))"
+"(let-values(((ht_151) ht_150))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_153)))"
-"((letrec-values(((for-loop_259)"
+"(let-values()(check-in-hash ht_151)))"
+"((letrec-values(((for-loop_257)"
 "(lambda(fold-var_79 i_171)"
 "(begin"
 " 'for-loop"
 "(if i_171"
-"(let-values(((k_39 v_223)(hash-iterate-key+value ht_153 i_171)))"
+"(let-values(((k_39 v_223)(hash-iterate-key+value ht_151 i_171)))"
 "(let-values(((fold-var_272)"
 "(let-values(((fold-var_82) fold-var_79))"
 "(if(eqv? v_223 c_61)"
@@ -46696,12 +46701,12 @@ static const char *startup_source =
 "(values fold-var_13)))"
 " fold-var_82))))"
 "(if(not #f)"
-"(for-loop_259 fold-var_272(hash-iterate-next ht_153 i_171))"
+"(for-loop_257 fold-var_272(hash-iterate-next ht_151 i_171))"
 " fold-var_272)))"
 " fold-var_79)))))"
-" for-loop_259)"
+" for-loop_257)"
 " null"
-"(hash-iterate-first ht_153))))))))))"
+"(hash-iterate-first ht_151))))))))))"
 "(define-values"
 "(struct:special special1.1 special? special-value)"
 "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)"
@@ -46846,10 +46851,10 @@ static const char *startup_source =
 " in_10"
 " special1.1"
 " source_5))))"
-"(if(let-values(((or-part_291)"
+"(if(let-values(((or-part_292)"
 "(eof-object? c_48)))"
-"(if or-part_291"
-" or-part_291"
+"(if or-part_292"
+" or-part_292"
 "(eqv?"
 " '#\\newline"
 "(effective-char c_48 config_15))))"
@@ -47009,9 +47014,9 @@ static const char *startup_source =
 "(let-values(((or-part_26)(char-whitespace? dc_0)))"
 "(if or-part_26"
 " or-part_26"
-"(let-values(((or-part_298)(char=? dc_0 '#\\()))"
-"(if or-part_298"
-" or-part_298"
+"(let-values(((or-part_299)(char=? dc_0 '#\\()))"
+"(if or-part_299"
+" or-part_299"
 "(let-values(((or-part_284)(char=? dc_0 '#\\))))"
 "(if or-part_284"
 " or-part_284"
@@ -47110,9 +47115,9 @@ static const char *startup_source =
 "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))"
 "(if(if s_10 c_49 #f)"
 "              (let-values () (format \"~a, ~a, or ~a\" p_57 s_10 c_49))"
-"(if(let-values(((or-part_290) s_10))(if or-part_290 or-part_290 c_49))"
+"(if(let-values(((or-part_291) s_10))(if or-part_291 or-part_291 c_49))"
 "(let-values()"
-"                  (format \"~a or ~a\" p_57 (let-values (((or-part_291) s_10)) (if or-part_291 or-part_291 c_49))))"
+"                  (format \"~a or ~a\" p_57 (let-values (((or-part_292) s_10)) (if or-part_292 or-part_292 c_49))))"
 "(let-values() p_57)))))))))"
 "(define-values"
 "(struct:accum-string"
@@ -47300,7 +47305,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_300)))"
-"((letrec-values(((for-loop_260)"
+"((letrec-values(((for-loop_258)"
 "(lambda(result_37 lst_301)"
 "(begin"
 " 'for-loop"
@@ -47325,10 +47330,10 @@ static const char *startup_source =
 " indt_3))"
 "(not #f)"
 " #f)"
-"(for-loop_260 result_112 rest_169)"
+"(for-loop_258 result_112 rest_169)"
 " result_112)))"
 " result_37)))))"
-" for-loop_260)"
+" for-loop_258)"
 " #f"
 " lst_300)))))"
 "                                   (if or-part_262 or-part_262 \"expected\"))))"
@@ -47600,11 +47605,11 @@ static const char *startup_source =
 " post-c_0"
 " seq-config_0)))"
 "(begin"
-"(if(let-values(((or-part_299)"
+"(if(let-values(((or-part_300)"
 "(eof-object?"
 " post-ec_0)))"
-"(if or-part_299"
-" or-part_299"
+"(if or-part_300"
+" or-part_300"
 "(eqv?"
 " post-ec_0"
 " closer_1)))"
@@ -48012,10 +48017,10 @@ static const char *startup_source =
 "((radix79_0) radix_3)"
 "((radix-set?80_0) radix-set?_0)"
 "((temp81_1)"
-"(if(let-values(((or-part_300)"
+"(if(let-values(((or-part_301)"
 "(char=? i_35 '#\\e)))"
-"(if or-part_300"
-" or-part_300"
+"(if or-part_301"
+" or-part_301"
 "(char=? i_35 '#\\E)))"
 " 'exact"
 " 'inexact))"
@@ -48319,10 +48324,10 @@ static const char *startup_source =
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
 "(if(if sign-pos_0"
-"(let-values(((or-part_301)"
+"(let-values(((or-part_302)"
 "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))"
-"(if or-part_301"
-" or-part_301"
+"(if or-part_302"
+" or-part_302"
 "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))"
 " #f)"
 "(let-values()"
@@ -48441,27 +48446,27 @@ static const char *startup_source =
 " slash-pos_0"
 " #f"
 "(if(> i_172 start_45)"
-"(let-values(((or-part_302)(not @-pos_0)))"
-"(if or-part_302"
-" or-part_302"
+"(let-values(((or-part_303)(not @-pos_0)))"
+"(if or-part_303"
+" or-part_303"
 "(> i_172(add1 @-pos_0))))"
 " #f)))))"
 "(if(char=? c_71 '#\\.)"
 "(let-values()"
-"(if(let-values(((or-part_303)"
+"(if(let-values(((or-part_304)"
 "(if exp-pos_0"
-"(let-values(((or-part_304)"
+"(let-values(((or-part_305)"
 "(not sign-pos_0)))"
-"(if or-part_304"
-" or-part_304"
-"(> exp-pos_0 sign-pos_0)))"
-" #f)))"
-"(if or-part_303"
-" or-part_303"
-"(if dot-pos_1"
-"(let-values(((or-part_305)(not sign-pos_0)))"
 "(if or-part_305"
 " or-part_305"
+"(> exp-pos_0 sign-pos_0)))"
+" #f)))"
+"(if or-part_304"
+" or-part_304"
+"(if dot-pos_1"
+"(let-values(((or-part_306)(not sign-pos_0)))"
+"(if or-part_306"
+" or-part_306"
 "(> dot-pos_1 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -48547,58 +48552,58 @@ static const char *startup_source =
 " i_172"
 " #f"
 " must-i?_0)))))"
-"(if(let-values(((or-part_306)(char=? c_71 '#\\e)))"
-"(if or-part_306"
-" or-part_306"
-"(let-values(((or-part_307)(char=? c_71 '#\\E)))"
+"(if(let-values(((or-part_307)(char=? c_71 '#\\e)))"
 "(if or-part_307"
 " or-part_307"
-"(let-values(((or-part_308)"
-"(char=? c_71 '#\\f)))"
+"(let-values(((or-part_308)(char=? c_71 '#\\E)))"
 "(if or-part_308"
 " or-part_308"
+"(let-values(((or-part_309)"
+"(char=? c_71 '#\\f)))"
+"(if or-part_309"
+" or-part_309"
 "(let-values(((or-part_181)"
 "(char=? c_71 '#\\F)))"
 "(if or-part_181"
 " or-part_181"
-"(let-values(((or-part_309)"
-"(char=? c_71 '#\\d)))"
-"(if or-part_309"
-" or-part_309"
 "(let-values(((or-part_310)"
-"(char=? c_71 '#\\D)))"
+"(char=? c_71 '#\\d)))"
 "(if or-part_310"
 " or-part_310"
 "(let-values(((or-part_311)"
-"(char=?"
-" c_71"
-" '#\\s)))"
+"(char=? c_71 '#\\D)))"
 "(if or-part_311"
 " or-part_311"
 "(let-values(((or-part_312)"
 "(char=?"
 " c_71"
-" '#\\S)))"
+" '#\\s)))"
 "(if or-part_312"
 " or-part_312"
 "(let-values(((or-part_313)"
 "(char=?"
 " c_71"
-" '#\\l)))"
+" '#\\S)))"
 "(if or-part_313"
 " or-part_313"
 "(let-values(((or-part_314)"
 "(char=?"
 " c_71"
-" '#\\L)))"
+" '#\\l)))"
 "(if or-part_314"
 " or-part_314"
 "(let-values(((or-part_315)"
 "(char=?"
 " c_71"
-" '#\\t)))"
+" '#\\L)))"
 "(if or-part_315"
 " or-part_315"
+"(let-values(((or-part_316)"
+"(char=?"
+" c_71"
+" '#\\t)))"
+"(if or-part_316"
+" or-part_316"
 "(char=?"
 " c_71"
 " '#\\T)))))))))))))))))))))))"
@@ -48625,8 +48630,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_316) exp-pos_0))"
-"(if or-part_316 or-part_316 i_172))"
+"(let-values(((or-part_317) exp-pos_0))"
+"(if or-part_317 or-part_317 i_172))"
 " must-i?_0))"
 "(let-values()"
 "(loop_106"
@@ -48638,8 +48643,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_317) exp-pos_0))"
-"(if or-part_317 or-part_317 i_172))"
+"(let-values(((or-part_318) exp-pos_0))"
+"(if or-part_318 or-part_318 i_172))"
 " must-i?_0)))))"
 "(if(char=? c_71 '#\\@)"
 "(let-values()"
@@ -48651,9 +48656,9 @@ static const char *startup_source =
 "                                                                             \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_318) @-pos_0))"
-"(if or-part_318"
-" or-part_318"
+"(if(let-values(((or-part_319) @-pos_0))"
+"(if or-part_319"
+" or-part_319"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -48690,17 +48695,17 @@ static const char *startup_source =
 " #f"
 " #f"
 " must-i?_0)))))))"
-"(if(if(let-values(((or-part_319)"
+"(if(if(let-values(((or-part_320)"
 "(char=? c_71 '#\\i)))"
-"(if or-part_319"
-" or-part_319"
+"(if or-part_320"
+" or-part_320"
 "(char=? c_71 '#\\I)))"
 " sign-pos_0"
 " #f)"
 "(let-values()"
-"(if(let-values(((or-part_320) @-pos_0))"
-"(if or-part_320"
-" or-part_320"
+"(if(let-values(((or-part_321) @-pos_0))"
+"(if or-part_321"
+" or-part_321"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -48709,10 +48714,10 @@ static const char *startup_source =
 "                                                                               \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_86 start_45 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_321)"
+"(if(let-values(((or-part_322)"
 "(<(add1 i_172) end_34)))"
-"(if or-part_321"
-" or-part_321"
+"(if or-part_322"
+" or-part_322"
 "(eq? in-complex_1 'i)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -48825,11 +48830,11 @@ static const char *startup_source =
 " radix_6"
 " exactness173_0"
 " convert-mode175_0))))))"
-"(if(let-values(((or-part_322)(not v1_0)))"
-"(if or-part_322 or-part_322(not v2_6)))"
+"(if(let-values(((or-part_323)(not v1_0)))"
+"(if or-part_323 or-part_323(not v2_6)))"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_323)(extflonum? v1_0)))"
-"(if or-part_323 or-part_323(extflonum? v2_6)))"
+"(if(if(let-values(((or-part_324)(extflonum? v1_0)))"
+"(if or-part_324 or-part_324(extflonum? v2_6)))"
 "(not(eq? convert-mode_4 'must-read))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_4 v1_0))"
@@ -48856,14 +48861,14 @@ static const char *startup_source =
 "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_462 exp-pos_1)) '#\\t)))))"
 "(let-values(((simple?_0)"
 "(if(not slash-pos_1)"
-"(if(let-values(((or-part_324)(eq? exactness_3 'inexact)))"
-"(if or-part_324"
-" or-part_324"
-"(let-values(((or-part_325)(eq? exactness_3 'decimal-as-inexact)))"
-"(if or-part_325 or-part_325(if(not dot-pos_2)(not exp-pos_1) #f)))))"
-"(if(let-values(((or-part_326)(not exp-pos_1)))"
-"(if or-part_326"
-" or-part_326"
+"(if(let-values(((or-part_325)(eq? exactness_3 'inexact)))"
+"(if or-part_325"
+" or-part_325"
+"(let-values(((or-part_326)(eq? exactness_3 'decimal-as-inexact)))"
+"(if or-part_326 or-part_326(if(not dot-pos_2)(not exp-pos_1) #f)))))"
+"(if(let-values(((or-part_327)(not exp-pos_1)))"
+"(if or-part_327"
+" or-part_327"
 "(let-values(((or-part_229)(not(eq? convert-mode_5 'number-or-false))))"
 "(if or-part_229 or-part_229(not(extfl-mark?_0))))))"
 "(not(if any-hashes?_1(hashes? s_462 start_46 end_35) #f))"
@@ -48891,9 +48896,9 @@ static const char *startup_source =
 "                          (format \"missing digits before exponent marker in `~.a`\" (substring s_462 start_46 end_35)))"
 "(let-values() #f)))"
 "(if(if exp-pos_1"
-"(let-values(((or-part_327)(= exp-pos_1(sub1 end_35))))"
-"(if or-part_327"
-" or-part_327"
+"(let-values(((or-part_328)(= exp-pos_1(sub1 end_35))))"
+"(if or-part_328"
+" or-part_328"
 "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_462(sub1 end_35))) #f)))"
 " #f)"
 "(let-values()"
@@ -48906,14 +48911,14 @@ static const char *startup_source =
 "(string->number$1"
 "(maybe-substring s_462 start_46 end_35)"
 " radix_7"
-"(if(let-values(((or-part_328)(eq? convert-mode_5 'number-or-false)))"
-"(if or-part_328"
-" or-part_328"
+"(if(let-values(((or-part_329)(eq? convert-mode_5 'number-or-false)))"
+"(if or-part_329"
+" or-part_329"
 "(let-values(((or-part_230)(not exp-pos_1)))"
 "(if or-part_230 or-part_230(not(extfl-mark?_0))))))"
 " 'number-or-false"
 " 'read))))"
-"(if(let-values(((or-part_329)(not n_30)))(if or-part_329 or-part_329(string? n_30)))"
+"(if(let-values(((or-part_330)(not n_30)))(if or-part_330 or-part_330(string? n_30)))"
 "(let-values()"
 "(error"
 " 'string->number"
@@ -48970,7 +48975,7 @@ static const char *startup_source =
 " 'read)))"
 "(let-values()(real->double-flonum r_47)))))))))"
 "(let-values(((get-extfl?_0)(extfl-mark?_0)))"
-"(if(let-values(((or-part_330)(not m-v_0)))(if or-part_330 or-part_330(not e-v_0)))"
+"(if(let-values(((or-part_331)(not m-v_0)))(if or-part_331 or-part_331(not e-v_0)))"
 "(let-values() #f)"
 "(if(string? m-v_0)"
 "(let-values() m-v_0)"
@@ -48978,8 +48983,8 @@ static const char *startup_source =
 "(let-values() e-v_0)"
 "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_331)(eq? exactness_3 'inexact)))"
-"(if or-part_331 or-part_331(eq? exactness_3 'decimal-as-inexact)))"
+"(if(if(let-values(((or-part_332)(eq? exactness_3 'inexact)))"
+"(if or-part_332 or-part_332(eq? exactness_3 'decimal-as-inexact)))"
 "(>(abs e-v_0)(if get-extfl?_0 6000 400))"
 " #f)"
 "(let-values()"
@@ -49001,8 +49006,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))"
 "(if(if(not get-extfl?_0)"
-"(let-values(((or-part_332)(eq? exactness_3 'exact)))"
-"(if or-part_332 or-part_332(eq? exactness_3 'decimal-as-exact)))"
+"(let-values(((or-part_333)(eq? exactness_3 'exact)))"
+"(if or-part_333 or-part_333(eq? exactness_3 'decimal-as-exact)))"
 " #f)"
 "(let-values() n_31)"
 "(if(if(eqv? n_31 0)(char=?(string-ref s_462 start_46) '#\\-) #f)"
@@ -49038,13 +49043,13 @@ static const char *startup_source =
 "(lambda(from-pos_0)"
 "(begin"
 " 'get-inexact?"
-"(let-values(((or-part_333)(eq? exactness_3 'inexact)))"
-"(if or-part_333"
-" or-part_333"
+"(let-values(((or-part_334)(eq? exactness_3 'inexact)))"
+"(if or-part_334"
+" or-part_334"
 "(if(not(eq? exactness_3 'exact))"
 "(hashes? s_462 from-pos_0 end_35)"
 " #f)))))))"
-"(if(let-values(((or-part_334)(not n-v_0)))(if or-part_334 or-part_334(not d-v_0)))"
+"(if(let-values(((or-part_335)(not n-v_0)))(if or-part_335 or-part_335(not d-v_0)))"
 "(let-values() #f)"
 "(if(string? n-v_0)"
 "(let-values() n-v_0)"
@@ -49076,8 +49081,8 @@ static const char *startup_source =
 "(lambda(s_445 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)"
 "(begin"
 "(let-values(((get-exact?_0)"
-"(let-values(((or-part_335)(eq? exactness_4 'exact)))"
-"(if or-part_335 or-part_335(eq? exactness_4 'decimal-as-exact)))))"
+"(let-values(((or-part_336)(eq? exactness_4 'exact)))"
+"(if or-part_336 or-part_336(eq? exactness_4 'decimal-as-exact)))))"
 "(let-values(((new-str_0)(make-string(- end_36 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))"
 "((letrec-values(((loop_107)"
 "(lambda(i_173 j_3 hashes-pos_0)"
@@ -49120,8 +49125,8 @@ static const char *startup_source =
 "(sub1 i_173)"
 "(sub1 j_3)"
 "(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))"
-"(if(let-values(((or-part_336)(char=? c_72 '#\\-)))"
-"(if or-part_336 or-part_336(char=? c_72 '#\\+)))"
+"(if(let-values(((or-part_337)(char=? c_72 '#\\-)))"
+"(if or-part_337 or-part_337(char=? c_72 '#\\+)))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_72)"
@@ -49173,25 +49178,25 @@ static const char *startup_source =
 "(lambda(s_447 start_49 end_38 convert-mode_8)"
 "(begin"
 "(if(=(- end_38 start_49) 6)"
-"(if(let-values(((or-part_337)(char=?(string-ref s_447 start_49) '#\\+)))"
-"(if or-part_337 or-part_337(char=?(string-ref s_447 start_49) '#\\-)))"
+"(if(let-values(((or-part_338)(char=?(string-ref s_447 start_49) '#\\+)))"
+"(if or-part_338 or-part_338(char=?(string-ref s_447 start_49) '#\\-)))"
 "(let-values(((or-part_224)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 1))) '#\\i)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 2))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 3))) '#\\f)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 4))) '#\\.)"
-"(let-values(((or-part_338)"
+"(let-values(((or-part_339)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0)"
 "(if(char=?(string-ref s_447 start_49) '#\\+) +inf.0 -inf.0)"
 " #f)))"
-"(if or-part_338"
-" or-part_338"
-"(let-values(((or-part_339)"
+"(if or-part_339"
+" or-part_339"
+"(let-values(((or-part_340)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\f)"
 "(if(char=?(string-ref s_447 start_49) '#\\+) +inf.f -inf.f)"
 " #f)))"
-"(if or-part_339"
-" or-part_339"
+"(if or-part_340"
+" or-part_340"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false))"
 "(if(char=?(string-ref s_447 start_49) '#\\+) '+inf.t '-inf.t)"
@@ -49207,14 +49212,14 @@ static const char *startup_source =
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 2))) '#\\a)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 3))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 4))) '#\\.)"
-"(let-values(((or-part_340)"
-"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0) +nan.0 #f)))"
-"(if or-part_340"
-" or-part_340"
 "(let-values(((or-part_341)"
-"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\f) +nan.f #f)))"
+"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0) +nan.0 #f)))"
 "(if or-part_341"
 " or-part_341"
+"(let-values(((or-part_342)"
+"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\f) +nan.f #f)))"
+"(if or-part_342"
+" or-part_342"
 "(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)"
 " #f)))))"
@@ -49263,8 +49268,8 @@ static const char *startup_source =
 "                                  (let-values () (format \"no exact representation for `~a`\" v_231))"
 "(let-values() #f)))"
 "(if(if(extflonum? v_231)"
-"(let-values(((or-part_342)(not reading-first?_0)))"
-"(if or-part_342 or-part_342(not(eq? convert-mode_10 'must-read))))"
+"(let-values(((or-part_343)(not reading-first?_0)))"
+"(if or-part_343 or-part_343(not(eq? convert-mode_10 'must-read))))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_10 v_231))"
 "(let-values()"
@@ -49306,7 +49311,7 @@ static const char *startup_source =
 " 1)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_261)"
+"((letrec-values(((for-loop_259)"
 "(lambda(result_113 idx_5)"
 "(begin"
 " 'for-loop"
@@ -49318,10 +49323,10 @@ static const char *startup_source =
 "(let-values()(let-values()(char=? c_73 '#\\#)))))"
 "(values result_115)))))"
 "(if(if(not((lambda x_83 result_114) c_73))(not #f) #f)"
-"(for-loop_261 result_114(unsafe-fx+ idx_5 1))"
+"(for-loop_259 result_114(unsafe-fx+ idx_5 1))"
 " result_114)))"
 " result_113)))))"
-" for-loop_261)"
+" for-loop_259)"
 " #f"
 " start*_5))))))"
 "(define-values"
@@ -49346,7 +49351,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_53)))"
-"((letrec-values(((for-loop_262)"
+"((letrec-values(((for-loop_260)"
 "(lambda(idx_6 pos_111)"
 "(begin"
 " 'for-loop"
@@ -49363,9 +49368,9 @@ static const char *startup_source =
 "(string-set! new-s_7 i_174 c_74)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_262(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))"
+"(if(not #f)(for-loop_260(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))"
 "(values))))))"
-" for-loop_262)"
+" for-loop_260)"
 " start*_6"
 " start_53)))"
 "(void)"
@@ -49378,25 +49383,25 @@ static const char *startup_source =
 "(exactness-set?)"
 "(lambda(exactness_6)"
 "(begin"
-"(let-values(((or-part_343)(eq? exactness_6 'exact)))(if or-part_343 or-part_343(eq? exactness_6 'inexact))))))"
+"(let-values(((or-part_344)(eq? exactness_6 'exact)))(if or-part_344 or-part_344(eq? exactness_6 'inexact))))))"
 "(define-values"
 "(char-sign?)"
 "(lambda(c_75)"
-"(begin(let-values(((or-part_344)(char=? c_75 '#\\-)))(if or-part_344 or-part_344(char=? c_75 '#\\+))))))"
+"(begin(let-values(((or-part_345)(char=? c_75 '#\\-)))(if or-part_345 or-part_345(char=? c_75 '#\\+))))))"
 "(define-values"
 "(digit?)"
 "(lambda(c_76 radix_11)"
 "(begin"
 "(let-values(((v_232)(char->integer c_76)))"
-"(let-values(((or-part_345)"
-"(if(>= v_232(char->integer '#\\0))(<(- v_232(char->integer '#\\0)) radix_11) #f)))"
-"(if or-part_345"
-" or-part_345"
-"(if(> radix_11 10)"
 "(let-values(((or-part_346)"
-"(if(>= v_232(char->integer '#\\a))(<(- v_232(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if(>= v_232(char->integer '#\\0))(<(- v_232(char->integer '#\\0)) radix_11) #f)))"
 "(if or-part_346"
 " or-part_346"
+"(if(> radix_11 10)"
+"(let-values(((or-part_347)"
+"(if(>= v_232(char->integer '#\\a))(<(- v_232(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if or-part_347"
+" or-part_347"
 "(if(>= v_232(char->integer '#\\A))(<(- v_232(-(char->integer '#\\A) 10)) radix_11) #f)))"
 " #f)))))))"
 "(define-values"
@@ -49745,11 +49750,11 @@ static const char *startup_source =
 "(let-values(((or-part_33) num_0))"
 "(if or-part_33"
 " or-part_33"
-"(let-values(((or-part_297)"
+"(let-values(((or-part_298)"
 "(if(eq? mode_17 'keyword)"
 "(string->keyword str_29)"
 " #f)))"
-"(if or-part_297 or-part_297(string->symbol str_29)))))"
+"(if or-part_298 or-part_298(string->symbol str_29)))))"
 " in_24"
 " config_24"
 " str_29)))))))))))))))))))))))))"
@@ -49948,7 +49953,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_78)))"
-"((letrec-values(((for-loop_263)"
+"((letrec-values(((for-loop_261)"
 "(lambda(i_56 lst_54)"
 "(begin"
 " 'for-loop"
@@ -49990,12 +49995,12 @@ static const char *startup_source =
 " e_76))"
 "(not #f)"
 " #f)"
-"(for-loop_263"
+"(for-loop_261"
 " i_176"
 " rest_171)"
 " i_176)))"
 " i_56)))))"
-" for-loop_263)"
+" for-loop_261)"
 " 0"
 " lst_78)))))"
 " v_233))))))"
@@ -50196,21 +50201,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-naturals start_57)))"
-"((letrec-values(((for-loop_264)"
-"(lambda(lst_304"
+"((letrec-values(((for-loop_251)"
+"(lambda(lst_293"
 " pos_115)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_304)"
+" lst_293)"
 " #t"
 " #f)"
 "(let-values(((e_78)"
 "(unsafe-car"
-" lst_304))"
+" lst_293))"
 "((rest_92)"
 "(unsafe-cdr"
-" lst_304))"
+" lst_293))"
 "((i_95)"
 " pos_115))"
 "(let-values((()"
@@ -50226,14 +50231,14 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_264"
+"(for-loop_251"
 " rest_92"
 "(+"
 " pos_115"
 " 1))"
 "(values))))"
 "(values))))))"
-" for-loop_264)"
+" for-loop_251)"
 " lst_282"
 " start_57)))"
 "(void)))"
@@ -50639,9 +50644,9 @@ static const char *startup_source =
 "(if(if(equal? tmp_6 '#\\=) #t(equal? tmp_6 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_347)(read-config-for-syntax? config_45)))"
-"(if or-part_347"
-" or-part_347"
+"(if(let-values(((or-part_287)(read-config-for-syntax? config_45)))"
+"(if or-part_287"
+" or-part_287"
 "(not(check-parameter 1/read-accept-graph config_45))))"
 "(let-values()"
 "(let-values(((in37_0) in_35)"
@@ -50691,10 +50696,10 @@ static const char *startup_source =
 "(if(equal? tmp_49 '#\\=)"
 "(let-values()"
 "(let-values(((ph_1)(make-placeholder 'placeholder)))"
-"(let-values(((ht_154)(get-graph-hash config_45)))"
+"(let-values(((ht_152)(get-graph-hash config_45)))"
 "(let-values((()"
 "(begin"
-"(if(hash-ref ht_154 v_28 #f)"
+"(if(hash-ref ht_152 v_28 #f)"
 "(let-values()"
 "(let-values(((in50_0) in_35)"
 "((config51_0) config_45)"
@@ -50724,7 +50729,7 @@ static const char *startup_source =
 "(list dispatch-c53_0 temp54_4 c55_0))))"
 "(void))"
 "(values))))"
-"(let-values((()(begin(hash-set! ht_154 v_28 ph_1)(values))))"
+"(let-values((()(begin(hash-set! ht_152 v_28 ph_1)(values))))"
 "(let-values(((result-v_0)"
 "(read-one_3 #f in_35(next-readtable config_45))))"
 "(begin"
@@ -50818,7 +50823,7 @@ static const char *startup_source =
 "(let-values(((or-part_263)(read-config-state-graph st_3)))"
 "(if or-part_263"
 " or-part_263"
-"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))"
+"(let-values(((ht_153)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_153) ht_153))))))))"
 "(define-values"
 "(coerce-key)"
 "(lambda(key_85 config_8)"
@@ -51702,12 +51707,12 @@ static const char *startup_source =
 " v_35"
 " escaping-c_0"
 " escaped-c_0)))"
-"(if(let-values(((or-part_347)"
+"(if(let-values(((or-part_287)"
 "(<"
 " v_35"
 " 55296)))"
-"(if or-part_347"
-" or-part_347"
+"(if or-part_287"
+" or-part_287"
 "(>"
 " v_35"
 " 57343)))"
@@ -52124,16 +52129,16 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_96)))"
 "((letrec-values(((for-loop_6)"
-"(lambda(lst_305)"
+"(lambda(lst_304)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_305)"
+"(if(pair? lst_304)"
 "(let-values(((c_89)"
 "(unsafe-car"
-" lst_305))"
+" lst_304))"
 "((rest_173)"
 "(unsafe-cdr"
-" lst_305)))"
+" lst_304)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -52948,12 +52953,12 @@ static const char *startup_source =
 "(let-values(((or-part_265)(char-alphabetic? c_94)))"
 "(if or-part_265"
 " or-part_265"
-"(let-values(((or-part_287)(char-numeric? c_94)))"
-"(if or-part_287"
-" or-part_287"
-"(let-values(((or-part_288)(char=? '#\\- c_94)))"
+"(let-values(((or-part_288)(char-numeric? c_94)))"
 "(if or-part_288"
 " or-part_288"
+"(let-values(((or-part_289)(char=? '#\\- c_94)))"
+"(if or-part_289"
+" or-part_289"
 "(let-values(((or-part_349)(char=? '#\\+ c_94)))"
 "(if or-part_349 or-part_349(char=? '#\\_ c_94)))))))))"
 " #f))))"
@@ -52966,12 +52971,12 @@ static const char *startup_source =
 "(let-values(((lst_197) already_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))"
-"((letrec-values(((for-loop_265)"
-"(lambda(lst_306)"
+"((letrec-values(((for-loop_262)"
+"(lambda(lst_305)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_306)"
-"(let-values(((c_95)(unsafe-car lst_306))((rest_104)(unsafe-cdr lst_306)))"
+"(if(pair? lst_305)"
+"(let-values(((c_95)(unsafe-car lst_305))((rest_104)(unsafe-cdr lst_305)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -52981,9 +52986,9 @@ static const char *startup_source =
 "(accum-string-add! accum-str_11 c_95))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_265 rest_104)(values))))"
+"(if(not #f)(for-loop_262 rest_104)(values))))"
 "(values))))))"
-" for-loop_265)"
+" for-loop_262)"
 " lst_197)))"
 "(void)"
 "((letrec-values(((loop_117)"
@@ -53312,8 +53317,8 @@ static const char *startup_source =
 " wrap63_0"
 " #t)))))))"
 "(let-values(((v_133)(read-one init-c_6 in_21 config_54)))"
-"(if(if(let-values(((or-part_347)(not recursive?_0)))"
-"(if or-part_347 or-part_347 local-graph?_1))"
+"(if(if(let-values(((or-part_287)(not recursive?_0)))"
+"(if or-part_287 or-part_287 local-graph?_1))"
 "(read-config-state-graph(read-config-st config_54))"
 " #f)"
 "(let-values()"
@@ -56069,8 +56074,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_290)(not maybe-insp_2)))"
-"(if or-part_290 or-part_290(inspector? maybe-insp_2)))"
+"(if(let-values(((or-part_291)(not maybe-insp_2)))"
+"(if or-part_291 or-part_291(inspector? maybe-insp_2)))"
 "(void)"
 "                          (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))"
 "(values))))"
@@ -56562,18 +56567,18 @@ static const char *startup_source =
 "(let-values(((prims_0)(1/primitive-table name_72)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ht_156) prims_0))"
+"(let-values(((ht_154) prims_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_156)))"
+"(let-values()(check-in-hash-keys ht_154)))"
 "((letrec-values(((for-loop_242)"
 "(lambda(i_178)"
 "(begin"
 " 'for-loop"
 "(if i_178"
 "(let-values(((sym_95)"
-"(hash-iterate-key ht_156 i_178)))"
+"(hash-iterate-key ht_154 i_178)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -56586,27 +56591,27 @@ static const char *startup_source =
 "(values)))))"
 "(if(not #f)"
 "(for-loop_242"
-"(hash-iterate-next ht_156 i_178))"
+"(hash-iterate-next ht_154 i_178))"
 "(values))))"
 "(values))))))"
 " for-loop_242)"
-"(hash-iterate-first ht_156))))"
+"(hash-iterate-first ht_154))))"
 "(values))))"
 "(let-values()"
-"(let-values(((ht_157)"
-"(let-values(((ht_158) prims_0))"
+"(let-values(((ht_155)"
+"(let-values(((ht_156) prims_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_158)))"
-"((letrec-values(((for-loop_264)"
+"(let-values()(check-in-hash ht_156)))"
+"((letrec-values(((for-loop_251)"
 "(lambda(table_206 i_179)"
 "(begin"
 " 'for-loop"
 "(if i_179"
 "(let-values(((sym_96 val_78)"
 "(hash-iterate-key+value"
-" ht_158"
+" ht_156"
 " i_179)))"
 "(let-values(((table_13)"
 "(let-values(((table_14)"
@@ -56638,48 +56643,48 @@ static const char *startup_source =
 " val_79)))))"
 "(values table_208)))))))"
 "(if(not #f)"
-"(for-loop_264"
+"(for-loop_251"
 " table_13"
-"(hash-iterate-next ht_158 i_179))"
+"(hash-iterate-next ht_156 i_179))"
 " table_13)))"
 " table_206)))))"
-" for-loop_264)"
+" for-loop_251)"
 " '#hasheq()"
-"(hash-iterate-first ht_158))))))"
+"(hash-iterate-first ht_156))))))"
 "(let-values(((ht+extras_0)"
-"(let-values(((ht_159) extras_0))"
+"(let-values(((ht_157) extras_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_159)))"
-"((letrec-values(((for-loop_266)"
-"(lambda(ht_160 i_180)"
+"(let-values()(check-in-hash ht_157)))"
+"((letrec-values(((for-loop_263)"
+"(lambda(ht_158 i_180)"
 "(begin"
 " 'for-loop"
 "(if i_180"
 "(let-values(((k_42 v_40)"
 "(hash-iterate-key+value"
-" ht_159"
+" ht_157"
 " i_180)))"
-"(let-values(((ht_161)"
-"(let-values(((ht_151)"
-" ht_160))"
-"(let-values(((ht_162)"
+"(let-values(((ht_159)"
+"(let-values(((ht_149)"
+" ht_158))"
+"(let-values(((ht_160)"
 "(let-values()"
 "(hash-set"
-" ht_151"
+" ht_149"
 " k_42"
 " v_40))))"
-"(values ht_162)))))"
+"(values ht_160)))))"
 "(if(not #f)"
-"(for-loop_266"
-" ht_161"
-"(hash-iterate-next ht_159 i_180))"
-" ht_161)))"
-" ht_160)))))"
-" for-loop_266)"
-" ht_157"
-"(hash-iterate-first ht_159))))))"
+"(for-loop_263"
+" ht_159"
+"(hash-iterate-next ht_157 i_180))"
+" ht_159)))"
+" ht_158)))))"
+" for-loop_263)"
+" ht_155"
+"(hash-iterate-first ht_157))))))"
 "(let-values(((ns63_0) ns_118)"
 "((primitive?64_0) primitive?_9)"
 "((protected?65_0) protected?_2))"
@@ -56711,7 +56716,7 @@ static const char *startup_source =
 "(begin"
 " 'declare-hash-based-module!41"
 "(let-values(((name_73) name39_0))"
-"(let-values(((ht_163) ht40_0))"
+"(let-values(((ht_161) ht40_0))"
 "(let-values(((ns_119) namespace29_0))"
 "(let-values(((primitive?_6)(if primitive?35_0 primitive?30_0 #f)))"
 "(let-values(((protected?_3)(if protected?36_0 protected?31_0 #f)))"
@@ -56729,11 +56734,11 @@ static const char *startup_source =
 "((temp74_2)"
 "(hasheqv"
 " 0"
-"(let-values(((ht_164) ht_163))"
+"(let-values(((ht_162) ht_161))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_164)))"
+"(let-values()(check-in-hash-keys ht_162)))"
 "((letrec-values(((for-loop_189)"
 "(lambda(table_209 i_181)"
 "(begin"
@@ -56741,7 +56746,7 @@ static const char *startup_source =
 "(if i_181"
 "(let-values(((sym_97)"
 "(hash-iterate-key"
-" ht_164"
+" ht_162"
 " i_181)))"
 "(let-values(((table_36)"
 "(let-values(((table_37)"
@@ -56812,13 +56817,13 @@ static const char *startup_source =
 "(for-loop_189"
 " table_36"
 "(hash-iterate-next"
-" ht_164"
+" ht_162"
 " i_181))"
 " table_36)))"
 " table_209)))))"
 " for-loop_189)"
 " '#hash()"
-"(hash-iterate-first ht_164))))))"
+"(hash-iterate-first ht_162))))))"
 "((temp75_2)"
 "(lambda(data-box_6"
 " ns_120"
@@ -56830,13 +56835,13 @@ static const char *startup_source =
 "(if(= 0 phase-level_5)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_125) ht_163))"
+"(let-values(((ht_125) ht_161))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_125)))"
-"((letrec-values(((for-loop_267)"
+"((letrec-values(((for-loop_264)"
 "(lambda(i_182)"
 "(begin"
 " 'for-loop"
@@ -56859,13 +56864,13 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_267"
+"(for-loop_264"
 "(hash-iterate-next"
 " ht_125"
 " i_182))"
 "(values))))"
 "(values))))))"
-" for-loop_267)"
+" for-loop_264)"
 "(hash-iterate-first ht_125))))"
 "(void)))"
 "(void)))))"
@@ -56924,12 +56929,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_150)))"
 "((letrec-values(((for-loop_244)"
-"(lambda(fold-var_273 lst_307)"
+"(lambda(fold-var_273 lst_306)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_307)"
-"(let-values(((require-name_0)(unsafe-car lst_307))"
-"((rest_175)(unsafe-cdr lst_307)))"
+"(if(pair? lst_306)"
+"(let-values(((require-name_0)(unsafe-car lst_306))"
+"((rest_175)(unsafe-cdr lst_306)))"
 "(let-values(((fold-var_138)"
 "(let-values(((fold-var_274) fold-var_273))"
 "(let-values(((fold-var_275)"
@@ -56960,20 +56965,20 @@ static const char *startup_source =
 "(if reexport?_0"
 "(hasheqv"
 " 0"
-"(let-values(((lst_308) require-mpis_0))"
+"(let-values(((lst_307) require-mpis_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_308)))"
+"(let-values()(check-list lst_307)))"
 "((letrec-values(((for-loop_120)"
-"(lambda(table_211 lst_309)"
+"(lambda(table_211 lst_308)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_309)"
+"(if(pair? lst_308)"
 "(let-values(((require-mpi_0)"
-"(unsafe-car lst_309))"
+"(unsafe-car lst_308))"
 "((rest_176)"
-"(unsafe-cdr lst_309)))"
+"(unsafe-cdr lst_308)))"
 "(let-values(((table_212)"
 "(let-values(((m_29)"
 "(namespace->module"
@@ -56982,13 +56987,13 @@ static const char *startup_source =
 " require-mpi_0))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_268)"
+"((letrec-values(((for-loop_265)"
 "(lambda(table_213)"
 "(begin"
 " 'for-loop"
 "(let-values()"
 "(let-values(((table_214)"
-"(let-values(((ht_165)"
+"(let-values(((ht_163)"
 "(hash-ref"
 "(shift-provides-module-path-index"
 "(module-provides"
@@ -57003,7 +57008,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_165)))"
+" ht_163)))"
 "((letrec-values(((for-loop_121)"
 "(lambda(table_107"
 " i_183)"
@@ -57013,7 +57018,7 @@ static const char *startup_source =
 "(let-values(((sym_99"
 " binding_29)"
 "(hash-iterate-key+value"
-" ht_165"
+" ht_163"
 " i_183)))"
 "(let-values(((table_32)"
 "(let-values(((table_215)"
@@ -57037,16 +57042,16 @@ static const char *startup_source =
 "(for-loop_121"
 " table_32"
 "(hash-iterate-next"
-" ht_165"
+" ht_163"
 " i_183))"
 " table_32)))"
 " table_107)))))"
 " for-loop_121)"
 " table_213"
 "(hash-iterate-first"
-" ht_165))))))"
+" ht_163))))))"
 " table_214))))))"
-" for-loop_268)"
+" for-loop_265)"
 " table_211)))))"
 "(if(not #f)"
 "(for-loop_120 table_212 rest_176)"
@@ -57054,7 +57059,7 @@ static const char *startup_source =
 " table_211)))))"
 " for-loop_120)"
 " '#hash()"
-" lst_308))))"
+" lst_307))))"
 " '#hasheqv()))"
 "((void87_0) void))"
 "(make-module39.1"
@@ -57442,8 +57447,8 @@ static const char *startup_source =
 "(check-module-form)"
 "(lambda(exp_0 filename_1)"
 "(begin"
-"(if(let-values(((or-part_298)(eof-object? exp_0)))"
-"(if or-part_298 or-part_298(eof-object?(1/syntax-e exp_0))))"
+"(if(let-values(((or-part_299)(eof-object? exp_0)))"
+"(if or-part_299 or-part_299(eof-object?(1/syntax-e exp_0))))"
 "(let-values()"
 "(if filename_1"
 "(error"
@@ -57780,11 +57785,11 @@ static const char *startup_source =
 "(apply"
 " bytes-append"
 "(reverse$1"
-"(let-values(((lst_310)(cdr expected-mod_1)))"
+"(let-values(((lst_309)(cdr expected-mod_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_310)))"
+"(let-values()(check-list lst_309)))"
 "((letrec-values(((for-loop_102)"
 "(lambda(fold-var_67 lst_87)"
 "(begin"
@@ -57822,7 +57827,7 @@ static const char *startup_source =
 " fold-var_67)))))"
 " for-loop_102)"
 " null"
-" lst_310))))))))))"
+" lst_309))))))))))"
 "(define-values"
 "(with-module-reading-parameterization+delay-source)"
 "(lambda(path_13 thunk_7)"
@@ -58019,9 +58024,9 @@ static const char *startup_source =
 "(let-values(((so_0)(get-so_0 file_1 #t)))"
 "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))"
 "(let-values(((try-main?_0)"
-"(let-values(((or-part_347) main-path-d_0))"
-"(if or-part_347"
-" or-part_347"
+"(let-values(((or-part_287) main-path-d_0))"
+"(if or-part_287"
+" or-part_287"
 "(not alt-path-d_0)))))"
 "(let-values(((try-alt?_0)"
 "(if alt-file_0"
@@ -59052,7 +59057,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_264)))"
-"((letrec-values(((for-loop_269)"
+"((letrec-values(((for-loop_266)"
 "(lambda(fold-var_65 lst_168)"
 "(begin"
 " 'for-loop"
@@ -59071,10 +59076,10 @@ static const char *startup_source =
 " fold-var_12))))"
 "(values fold-var_211)))))"
 "(if(not #f)"
-"(for-loop_269 fold-var_11 rest_140)"
+"(for-loop_266 fold-var_11 rest_140)"
 " fold-var_11)))"
 " fold-var_65)))))"
-" for-loop_269)"
+" for-loop_266)"
 " null"
 " lst_264))))))"
 "(let-values((()"
@@ -59437,7 +59442,7 @@ static const char *startup_source =
 " orig-s_40))"
 "(let-values()"
 "(let-values(((id_16)"
-"(let-values(((lst_311)"
+"(let-values(((lst_310)"
 " flat-s_25))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -59445,20 +59450,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_311)))"
-"((letrec-values(((for-loop_270)"
+" lst_310)))"
+"((letrec-values(((for-loop_267)"
 "(lambda(id_100"
-" lst_312)"
+" lst_311)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_312)"
+" lst_311)"
 "(let-values(((s_314)"
 "(unsafe-car"
-" lst_312))"
+" lst_311))"
 "((rest_177)"
 "(unsafe-cdr"
-" lst_312)))"
+" lst_311)))"
 "(let-values(((id_101)"
 "(let-values(((id_80)"
 " id_100))"
@@ -59490,14 +59495,14 @@ static const char *startup_source =
 " id_81)))))"
 "(if(not"
 " #f)"
-"(for-loop_270"
+"(for-loop_267"
 " id_101"
 " rest_177)"
 " id_101)))"
 " id_100)))))"
-" for-loop_270)"
+" for-loop_267)"
 " null"
-" lst_311)))))"
+" lst_310)))))"
 "(reverse$1"
 " id_16))))))))"
 "((rhs90_0)"
@@ -59615,17 +59620,17 @@ static const char *startup_source =
 " lst_191)))"
 "((letrec-values(((for-loop_12)"
 "(lambda(fold-var_276"
-" lst_313)"
+" lst_312)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_313)"
+" lst_312)"
 "(let-values(((id_102)"
 "(unsafe-car"
-" lst_313))"
+" lst_312))"
 "((rest_178)"
 "(unsafe-cdr"
-" lst_313)))"
+" lst_312)))"
 "(let-values(((fold-var_242)"
 "(let-values(((fold-var_243)"
 " fold-var_276))"
@@ -59659,7 +59664,7 @@ static const char *startup_source =
 " null"
 " lst_191))))))"
 "(let-values(((extended-env_0)"
-"(let-values(((lst_314)"
+"(let-values(((lst_313)"
 " keys_5)"
 "((lst_221)"
 " ids_4))"
@@ -59669,7 +59674,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_314)))"
+" lst_313)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
@@ -59722,7 +59727,7 @@ static const char *startup_source =
 " for-loop_229)"
 "(expand-context-env"
 " body-ctx_2)"
-" lst_314"
+" lst_313"
 " lst_221)))))"
 "(loop_123"
 "(let-values(((v_247)"
@@ -59826,7 +59831,7 @@ static const char *startup_source =
 " keys_5"
 "(append"
 "(reverse$1"
-"(let-values(((lst_315)"
+"(let-values(((lst_314)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -59834,20 +59839,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_315)))"
-"((letrec-values(((for-loop_271)"
+" lst_314)))"
+"((letrec-values(((for-loop_268)"
 "(lambda(fold-var_190"
-" lst_316)"
+" lst_315)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_316)"
+" lst_315)"
 "(let-values(((done-body_1)"
 "(unsafe-car"
-" lst_316))"
+" lst_315))"
 "((rest_181)"
 "(unsafe-cdr"
-" lst_316)))"
+" lst_315)))"
 "(let-values(((fold-var_280)"
 "(let-values(((fold-var_281)"
 " fold-var_190))"
@@ -59861,14 +59866,14 @@ static const char *startup_source =
 " fold-var_282)))))"
 "(if(not"
 " #f)"
-"(for-loop_271"
+"(for-loop_268"
 " fold-var_280"
 " rest_181)"
 " fold-var_280)))"
 " fold-var_190)))))"
-" for-loop_271)"
+" for-loop_268)"
 " null"
-" lst_315))))"
+" lst_314))))"
 " val-keyss_0))"
 "(cons"
 " rhs85_0"
@@ -59885,17 +59890,17 @@ static const char *startup_source =
 " lst_148)))"
 "((letrec-values(((for-loop_115)"
 "(lambda(fold-var_283"
-" lst_317)"
+" lst_316)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_317)"
+" lst_316)"
 "(let-values(((done-body_2)"
 "(unsafe-car"
-" lst_317))"
+" lst_316))"
 "((rest_182)"
 "(unsafe-cdr"
-" lst_317)))"
+" lst_316)))"
 "(let-values(((fold-var_41)"
 "(let-values(((fold-var_284)"
 " fold-var_283))"
@@ -60213,7 +60218,7 @@ static const char *startup_source =
 " ctx_14)))"
 "(let-values(((keys_6)"
 "(reverse$1"
-"(let-values(((lst_318)"
+"(let-values(((lst_317)"
 " ids_29))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -60221,20 +60226,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_318)))"
-"((letrec-values(((for-loop_272)"
+" lst_317)))"
+"((letrec-values(((for-loop_269)"
 "(lambda(fold-var_285"
-" lst_319)"
+" lst_318)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_319)"
+" lst_318)"
 "(let-values(((id_109)"
 "(unsafe-car"
-" lst_319))"
+" lst_318))"
 "((rest_183)"
 "(unsafe-cdr"
-" lst_319)))"
+" lst_318)))"
 "(let-values(((fold-var_286)"
 "(let-values(((fold-var_287)"
 " fold-var_285))"
@@ -60259,14 +60264,14 @@ static const char *startup_source =
 " fold-var_288)))))"
 "(if(not"
 " #f)"
-"(for-loop_272"
+"(for-loop_269"
 " fold-var_286"
 " rest_183)"
 " fold-var_286)))"
 " fold-var_285)))))"
-" for-loop_272)"
+" for-loop_269)"
 " null"
-" lst_318))))))"
+" lst_317))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_65)"
@@ -60304,11 +60309,11 @@ static const char *startup_source =
 " ids_29"
 " body-ctx_2)))"
 "(let-values(((extended-env_1)"
-"(let-values(((lst_320)"
+"(let-values(((lst_319)"
 " keys_6)"
-"((lst_321)"
+"((lst_320)"
 " vals_8)"
-"((lst_322)"
+"((lst_321)"
 " ids_29))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -60316,6 +60321,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_319)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_320)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -60323,45 +60334,39 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_321)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_322)))"
-"((letrec-values(((for-loop_273)"
+"((letrec-values(((for-loop_270)"
 "(lambda(env_21"
+" lst_322"
 " lst_323"
-" lst_324"
-" lst_325)"
+" lst_324)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_323)"
+" lst_322)"
 "(if(pair?"
-" lst_324)"
+" lst_323)"
 "(pair?"
-" lst_325)"
+" lst_324)"
 " #f)"
 " #f)"
 "(let-values(((key_91)"
 "(unsafe-car"
-" lst_323))"
+" lst_322))"
 "((rest_184)"
 "(unsafe-cdr"
-" lst_323))"
+" lst_322))"
 "((val_83)"
 "(unsafe-car"
-" lst_324))"
+" lst_323))"
 "((rest_185)"
 "(unsafe-cdr"
-" lst_324))"
+" lst_323))"
 "((id_110)"
 "(unsafe-car"
-" lst_325))"
+" lst_324))"
 "((rest_186)"
 "(unsafe-cdr"
-" lst_325)))"
+" lst_324)))"
 "(let-values(((env_22)"
 "(let-values(((env_23)"
 " env_21))"
@@ -60381,19 +60386,19 @@ static const char *startup_source =
 " env_24)))))"
 "(if(not"
 " #f)"
-"(for-loop_273"
+"(for-loop_270"
 " env_22"
 " rest_184"
 " rest_185"
 " rest_186)"
 " env_22)))"
 " env_21)))))"
-" for-loop_273)"
+" for-loop_270)"
 "(expand-context-env"
 " body-ctx_2)"
+" lst_319"
 " lst_320"
-" lst_321"
-" lst_322)))))"
+" lst_321)))))"
 "(begin"
 "(let-values(((obs_67)"
 "(expand-context-observer"
@@ -60653,14 +60658,14 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((exp-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_326) done-bodys_1)"
+"(let-values(((lst_325) done-bodys_1)"
 "((start_64) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_326)))"
+"(check-list lst_325)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
@@ -60668,20 +60673,20 @@ static const char *startup_source =
 "(check-naturals start_64)))"
 "((letrec-values(((for-loop_132)"
 "(lambda(fold-var_289"
-" lst_327"
+" lst_326"
 " pos_122)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_327)"
+" lst_326)"
 " #t"
 " #f)"
 "(let-values(((done-body_4)"
 "(unsafe-car"
-" lst_327))"
+" lst_326))"
 "((rest_187)"
 "(unsafe-cdr"
-" lst_327))"
+" lst_326))"
 "((i_167)"
 " pos_122))"
 "(let-values(((fold-var_290)"
@@ -60777,7 +60782,7 @@ static const char *startup_source =
 " fold-var_289)))))"
 " for-loop_132)"
 " null"
-" lst_326"
+" lst_325"
 " start_64))))))"
 "(begin"
 "(let-values(((obs_71)"
@@ -61218,28 +61223,28 @@ static const char *startup_source =
 "(let-values(((phase_141)(expand-context-phase ctx_74)))"
 "(let-values(((clauses_0)"
 "(reverse$1"
-"(let-values(((lst_328) val-idss_2)((lst_329) val-rhss_2)((lst_330) track-stxs_4))"
+"(let-values(((lst_327) val-idss_2)((lst_328) val-rhss_2)((lst_329) track-stxs_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
+"(let-values()(check-list lst_327)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
 "(let-values()(check-list lst_328)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_329)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_330)))"
-"((letrec-values(((for-loop_274)"
-"(lambda(fold-var_291 lst_238 lst_331 lst_332)"
+"((letrec-values(((for-loop_271)"
+"(lambda(fold-var_291 lst_238 lst_330 lst_331)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_238)(if(pair? lst_331)(pair? lst_332) #f) #f)"
+"(if(if(pair? lst_238)(if(pair? lst_330)(pair? lst_331) #f) #f)"
 "(let-values(((val-ids_0)(unsafe-car lst_238))"
 "((rest_188)(unsafe-cdr lst_238))"
-"((val-rhs_0)(unsafe-car lst_331))"
-"((rest_189)(unsafe-cdr lst_331))"
-"((track-stx_2)(unsafe-car lst_332))"
-"((rest_190)(unsafe-cdr lst_332)))"
+"((val-rhs_0)(unsafe-car lst_330))"
+"((rest_189)(unsafe-cdr lst_330))"
+"((track-stx_2)(unsafe-car lst_331))"
+"((rest_190)(unsafe-cdr lst_331)))"
 "(let-values(((fold-var_292)"
 "(let-values(((fold-var_293) fold-var_291))"
 "(let-values(((fold-var_294)"
@@ -61253,14 +61258,14 @@ static const char *startup_source =
 " fold-var_293))))"
 "(values fold-var_294)))))"
 "(if(not #f)"
-"(for-loop_274 fold-var_292 rest_188 rest_189 rest_190)"
+"(for-loop_271 fold-var_292 rest_188 rest_189 rest_190)"
 " fold-var_292)))"
 " fold-var_291)))))"
-" for-loop_274)"
+" for-loop_271)"
 " null"
+" lst_327"
 " lst_328"
-" lst_329"
-" lst_330))))))"
+" lst_329))))))"
 "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))"
 "(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_141)))"
 "(let-values(((lv-s_0)"
@@ -61325,7 +61330,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_269)))"
-"((letrec-values(((for-loop_275)"
+"((letrec-values(((for-loop_272)"
 "(lambda(fold-var_63 lst_38)"
 "(begin"
 " 'for-loop"
@@ -61351,10 +61356,10 @@ static const char *startup_source =
 " fold-var_64))))"
 "(values fold-var_150)))))"
 "(if(not #f)"
-"(for-loop_275 fold-var_295 rest_191)"
+"(for-loop_272 fold-var_295 rest_191)"
 " fold-var_295)))"
 " fold-var_63)))))"
-" for-loop_275)"
+" for-loop_272)"
 " null"
 " lst_269))))))"
 "(let-values(((body-env_0)"
@@ -61590,14 +61595,14 @@ static const char *startup_source =
 "                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))"
 "(let-values()"
 "(let-values(((formals_3 body_14)"
-"(let-values(((lst_312) flat-s_28))"
+"(let-values(((lst_311) flat-s_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_312)))"
-"((letrec-values(((for-loop_276)"
+"(check-list lst_311)))"
+"((letrec-values(((for-loop_273)"
 "(lambda(formals_4"
 " body_15"
 " lst_98)"
@@ -61684,7 +61689,7 @@ static const char *startup_source =
 " body_18)))))"
 "(if(not"
 " #f)"
-"(for-loop_276"
+"(for-loop_273"
 " formals_5"
 " body_16"
 " rest_192)"
@@ -61694,10 +61699,10 @@ static const char *startup_source =
 "(values"
 " formals_4"
 " body_15))))))"
-" for-loop_276)"
+" for-loop_273)"
 " null"
 " null"
-" lst_312)))))"
+" lst_311)))))"
 "(values"
 "(reverse$1 formals_3)"
 "(reverse$1 body_14))))))))))"
@@ -61741,19 +61746,19 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_224)))"
-"((letrec-values(((for-loop_277)"
-"(lambda(fold-var_298 lst_333 lst_334 lst_335)"
+"((letrec-values(((for-loop_274)"
+"(lambda(fold-var_298 lst_332 lst_333 lst_334)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_333)"
-"(if(pair? lst_334)(pair? lst_335) #f)"
+"(if(if(pair? lst_332)"
+"(if(pair? lst_333)(pair? lst_334) #f)"
 " #f)"
-"(let-values(((formals_8)(unsafe-car lst_333))"
-"((rest_193)(unsafe-cdr lst_333))"
-"((body_19)(unsafe-car lst_334))"
-"((rest_194)(unsafe-cdr lst_334))"
-"((clause_3)(unsafe-car lst_335))"
-"((rest_195)(unsafe-cdr lst_335)))"
+"(let-values(((formals_8)(unsafe-car lst_332))"
+"((rest_193)(unsafe-cdr lst_332))"
+"((body_19)(unsafe-car lst_333))"
+"((rest_194)(unsafe-cdr lst_333))"
+"((clause_3)(unsafe-car lst_334))"
+"((rest_195)(unsafe-cdr lst_334)))"
 "(let-values(((fold-var_299)"
 "(let-values(((fold-var_300) fold-var_298))"
 "(let-values(((fold-var_187)"
@@ -61815,10 +61820,10 @@ static const char *startup_source =
 " fold-var_300))))"
 "(values fold-var_187)))))"
 "(if(not #f)"
-"(for-loop_277 fold-var_299 rest_193 rest_194 rest_195)"
+"(for-loop_274 fold-var_299 rest_193 rest_194 rest_195)"
 " fold-var_299)))"
 " fold-var_298)))))"
-" for-loop_277)"
+" for-loop_274)"
 " null"
 " lst_192"
 " lst_223"
@@ -61963,7 +61968,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:trans_0"
 " trans-rhs_0)"
-"(let-values(((lst_336)"
+"(let-values(((lst_335)"
 " flat-s_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -61971,21 +61976,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_336)))"
-"((letrec-values(((for-loop_278)"
+" lst_335)))"
+"((letrec-values(((for-loop_275)"
 "(lambda(id:trans_1"
 " trans-rhs_1"
-" lst_337)"
+" lst_336)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_337)"
+" lst_336)"
 "(let-values(((s_497)"
 "(unsafe-car"
-" lst_337))"
+" lst_336))"
 "((rest_196)"
 "(unsafe-cdr"
-" lst_337)))"
+" lst_336)))"
 "(let-values(((id:trans_2"
 " trans-rhs_2)"
 "(let-values(((id:trans_3)"
@@ -62028,7 +62033,7 @@ static const char *startup_source =
 " orig-s_45))"
 "(let-values()"
 "(let-values(((id:trans_5)"
-"(let-values(((lst_338)"
+"(let-values(((lst_337)"
 " flat-s_32))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62036,20 +62041,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_338)))"
-"((letrec-values(((for-loop_279)"
+" lst_337)))"
+"((letrec-values(((for-loop_276)"
 "(lambda(id:trans_6"
-" lst_339)"
+" lst_338)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_339)"
+" lst_338)"
 "(let-values(((s_499)"
 "(unsafe-car"
-" lst_339))"
+" lst_338))"
 "((rest_197)"
 "(unsafe-cdr"
-" lst_339)))"
+" lst_338)))"
 "(let-values(((id:trans_7)"
 "(let-values(((id:trans_8)"
 " id:trans_6))"
@@ -62081,14 +62086,14 @@ static const char *startup_source =
 " id:trans_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_279"
+"(for-loop_276"
 " id:trans_7"
 " rest_197)"
 " id:trans_7)))"
 " id:trans_6)))))"
-" for-loop_279)"
+" for-loop_276)"
 " null"
-" lst_338)))))"
+" lst_337)))))"
 "(reverse$1"
 " id:trans_5))))))))"
 "((trans-rhs107_0)"
@@ -62150,7 +62155,7 @@ static const char *startup_source =
 " trans-rhs_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_278"
+"(for-loop_275"
 " id:trans_2"
 " trans-rhs_2"
 " rest_196)"
@@ -62160,10 +62165,10 @@ static const char *startup_source =
 "(values"
 " id:trans_1"
 " trans-rhs_1))))))"
-" for-loop_278)"
+" for-loop_275)"
 " null"
 " null"
-" lst_336)))))"
+" lst_335)))))"
 "(values"
 "(reverse$1"
 " id:trans_0)"
@@ -62215,7 +62220,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_201)))"
-"((letrec-values(((for-loop_280)"
+"((letrec-values(((for-loop_277)"
 "(lambda(id:val_1"
 " val-rhs_2"
 " lst_204)"
@@ -62271,7 +62276,7 @@ static const char *startup_source =
 " orig-s_45))"
 "(let-values()"
 "(let-values(((id:val_5)"
-"(let-values(((lst_340)"
+"(let-values(((lst_339)"
 " flat-s_34))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62279,20 +62284,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_340)))"
-"((letrec-values(((for-loop_281)"
+" lst_339)))"
+"((letrec-values(((for-loop_278)"
 "(lambda(id:val_6"
-" lst_341)"
+" lst_340)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_341)"
+" lst_340)"
 "(let-values(((s_340)"
 "(unsafe-car"
-" lst_341))"
+" lst_340))"
 "((rest_199)"
 "(unsafe-cdr"
-" lst_341)))"
+" lst_340)))"
 "(let-values(((id:val_7)"
 "(let-values(((id:val_8)"
 " id:val_6))"
@@ -62300,15 +62305,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val137_0)"
 "(let-values()"
-"(if(let-values(((or-part_331)"
+"(if(let-values(((or-part_332)"
 "(if(syntax?$1"
 " s_340)"
 "(symbol?"
 "(syntax-e$1"
 " s_340))"
 " #f)))"
-"(if or-part_331"
-" or-part_331"
+"(if or-part_332"
+" or-part_332"
 "(symbol?"
 " s_340)))"
 " s_340"
@@ -62324,14 +62329,14 @@ static const char *startup_source =
 " id:val_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_281"
+"(for-loop_278"
 " id:val_7"
 " rest_199)"
 " id:val_7)))"
 " id:val_6)))))"
-" for-loop_281)"
+" for-loop_278)"
 " null"
-" lst_340)))))"
+" lst_339)))))"
 "(reverse$1"
 " id:val_5))))))))"
 "((val-rhs113_0)"
@@ -62393,7 +62398,7 @@ static const char *startup_source =
 " val-rhs_5)))))"
 "(if(not"
 " #f)"
-"(for-loop_280"
+"(for-loop_277"
 " id:val_2"
 " val-rhs_3"
 " rest_198)"
@@ -62403,7 +62408,7 @@ static const char *startup_source =
 "(values"
 " id:val_1"
 " val-rhs_2))))))"
-" for-loop_280)"
+" for-loop_277)"
 " null"
 " null"
 " lst_201)))))"
@@ -62520,7 +62525,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val_10"
 " val-rhs_6)"
-"(let-values(((lst_342)"
+"(let-values(((lst_341)"
 " flat-s_36))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62528,8 +62533,8 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_342)))"
-"((letrec-values(((for-loop_282)"
+" lst_341)))"
+"((letrec-values(((for-loop_279)"
 "(lambda(id:val_11"
 " val-rhs_7"
 " lst_212)"
@@ -62585,7 +62590,7 @@ static const char *startup_source =
 " orig-s_46))"
 "(let-values()"
 "(let-values(((id:val_15)"
-"(let-values(((lst_343)"
+"(let-values(((lst_342)"
 " flat-s_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62593,20 +62598,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_343)))"
-"((letrec-values(((for-loop_283)"
+" lst_342)))"
+"((letrec-values(((for-loop_280)"
 "(lambda(id:val_16"
-" lst_344)"
+" lst_343)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_344)"
+" lst_343)"
 "(let-values(((s_517)"
 "(unsafe-car"
-" lst_344))"
+" lst_343))"
 "((rest_201)"
 "(unsafe-cdr"
-" lst_344)))"
+" lst_343)))"
 "(let-values(((id:val_17)"
 "(let-values(((id:val_18)"
 " id:val_16))"
@@ -62638,14 +62643,14 @@ static const char *startup_source =
 " id:val_19)))))"
 "(if(not"
 " #f)"
-"(for-loop_283"
+"(for-loop_280"
 " id:val_17"
 " rest_201)"
 " id:val_17)))"
 " id:val_16)))))"
-" for-loop_283)"
+" for-loop_280)"
 " null"
-" lst_343)))))"
+" lst_342)))))"
 "(reverse$1"
 " id:val_15))))))))"
 "((val-rhs127_0)"
@@ -62707,7 +62712,7 @@ static const char *startup_source =
 " val-rhs_10)))))"
 "(if(not"
 " #f)"
-"(for-loop_282"
+"(for-loop_279"
 " id:val_12"
 " val-rhs_8"
 " rest_200)"
@@ -62717,10 +62722,10 @@ static const char *startup_source =
 "(values"
 " id:val_11"
 " val-rhs_7))))))"
-" for-loop_282)"
+" for-loop_279)"
 " null"
 " null"
-" lst_342)))))"
+" lst_341)))))"
 "(values"
 "(reverse$1"
 " id:val_10)"
@@ -62776,20 +62781,20 @@ static const char *startup_source =
 "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))"
 "(let-values(((trans-idss_2)"
 "(reverse$1"
-"(let-values(((lst_345)(if syntaxes?_0 id:trans90_0 null)))"
+"(let-values(((lst_344)(if syntaxes?_0 id:trans90_0 null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_345)))"
-"((letrec-values(((for-loop_284)"
-"(lambda(fold-var_301 lst_346)"
+"(let-values()(check-list lst_344)))"
+"((letrec-values(((for-loop_281)"
+"(lambda(fold-var_301 lst_345)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_346)"
+"(if(pair? lst_345)"
 "(let-values(((ids_33)"
-"(unsafe-car lst_346))"
+"(unsafe-car lst_345))"
 "((rest_202)"
-"(unsafe-cdr lst_346)))"
+"(unsafe-cdr lst_345)))"
 "(let-values(((fold-var_302)"
 "(let-values(((fold-var_303)"
 " fold-var_301))"
@@ -62798,7 +62803,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_347)"
+"(let-values(((lst_346)"
 " ids_33))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62806,20 +62811,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_347)))"
-"((letrec-values(((for-loop_285)"
+" lst_346)))"
+"((letrec-values(((for-loop_282)"
 "(lambda(fold-var_304"
-" lst_348)"
+" lst_347)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_348)"
+" lst_347)"
 "(let-values(((id_113)"
 "(unsafe-car"
-" lst_348))"
+" lst_347))"
 "((rest_203)"
 "(unsafe-cdr"
-" lst_348)))"
+" lst_347)))"
 "(let-values(((fold-var_305)"
 "(let-values(((fold-var_306)"
 " fold-var_304))"
@@ -62835,40 +62840,40 @@ static const char *startup_source =
 " fold-var_307)))))"
 "(if(not"
 " #f)"
-"(for-loop_285"
+"(for-loop_282"
 " fold-var_305"
 " rest_203)"
 " fold-var_305)))"
 " fold-var_304)))))"
-" for-loop_285)"
+" for-loop_282)"
 " null"
-" lst_347)))))"
+" lst_346)))))"
 " fold-var_303))))"
 "(values"
 " fold-var_269)))))"
 "(if(not #f)"
-"(for-loop_284 fold-var_302 rest_202)"
+"(for-loop_281 fold-var_302 rest_202)"
 " fold-var_302)))"
 " fold-var_301)))))"
-" for-loop_284)"
+" for-loop_281)"
 " null"
-" lst_345))))))"
+" lst_344))))))"
 "(let-values(((val-idss_3)"
 "(reverse$1"
-"(let-values(((lst_349)(if syntaxes?_0 id:val92_0 id:val116_0)))"
+"(let-values(((lst_348)(if syntaxes?_0 id:val92_0 id:val116_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_349)))"
-"((letrec-values(((for-loop_286)"
-"(lambda(fold-var_308 lst_350)"
+"(let-values()(check-list lst_348)))"
+"((letrec-values(((for-loop_283)"
+"(lambda(fold-var_308 lst_349)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_350)"
+"(if(pair? lst_349)"
 "(let-values(((ids_20)"
-"(unsafe-car lst_350))"
+"(unsafe-car lst_349))"
 "((rest_204)"
-"(unsafe-cdr lst_350)))"
+"(unsafe-cdr lst_349)))"
 "(let-values(((fold-var_309)"
 "(let-values(((fold-var_310)"
 " fold-var_308))"
@@ -62877,7 +62882,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_351)"
+"(let-values(((lst_350)"
 " ids_20))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62885,20 +62890,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_351)))"
-"((letrec-values(((for-loop_287)"
+" lst_350)))"
+"((letrec-values(((for-loop_284)"
 "(lambda(fold-var_312"
-" lst_352)"
+" lst_351)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_352)"
+" lst_351)"
 "(let-values(((id_114)"
 "(unsafe-car"
-" lst_352))"
+" lst_351))"
 "((rest_205)"
 "(unsafe-cdr"
-" lst_352)))"
+" lst_351)))"
 "(let-values(((fold-var_313)"
 "(let-values(((fold-var_314)"
 " fold-var_312))"
@@ -62914,44 +62919,44 @@ static const char *startup_source =
 " fold-var_315)))))"
 "(if(not"
 " #f)"
-"(for-loop_287"
+"(for-loop_284"
 " fold-var_313"
 " rest_205)"
 " fold-var_313)))"
 " fold-var_312)))))"
-" for-loop_287)"
+" for-loop_284)"
 " null"
-" lst_351)))))"
+" lst_350)))))"
 " fold-var_310))))"
 "(values"
 " fold-var_311)))))"
 "(if(not #f)"
-"(for-loop_286"
+"(for-loop_283"
 " fold-var_309"
 " rest_204)"
 " fold-var_309)))"
 " fold-var_308)))))"
-" for-loop_286)"
+" for-loop_283)"
 " null"
-" lst_349))))))"
+" lst_348))))))"
 "(let-values(((val-rhss_3)"
 "(if rec?_1"
 "(reverse$1"
-"(let-values(((lst_353)"
+"(let-values(((lst_352)"
 "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_353)))"
-"((letrec-values(((for-loop_288)"
-"(lambda(fold-var_316 lst_354)"
+"(let-values()(check-list lst_352)))"
+"((letrec-values(((for-loop_285)"
+"(lambda(fold-var_316 lst_353)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_354)"
+"(if(pair? lst_353)"
 "(let-values(((rhs_20)"
-"(unsafe-car lst_354))"
+"(unsafe-car lst_353))"
 "((rest_206)"
-"(unsafe-cdr lst_354)))"
+"(unsafe-cdr lst_353)))"
 "(let-values(((fold-var_317)"
 "(let-values(((fold-var_318)"
 " fold-var_316))"
@@ -62966,14 +62971,14 @@ static const char *startup_source =
 "(values"
 " fold-var_319)))))"
 "(if(not #f)"
-"(for-loop_288"
+"(for-loop_285"
 " fold-var_317"
 " rest_206)"
 " fold-var_317)))"
 " fold-var_316)))))"
-" for-loop_288)"
+" for-loop_285)"
 " null"
-" lst_353))))"
+" lst_352))))"
 "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))"
 "(let-values((()"
 "(begin"
@@ -62992,23 +62997,23 @@ static const char *startup_source =
 "(let-values(((counter_8)(root-expand-context-counter ctx_80)))"
 "(let-values(((trans-keyss_0)"
 "(reverse$1"
-"(let-values(((lst_355) trans-idss_2))"
+"(let-values(((lst_354) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_355)))"
-"((letrec-values(((for-loop_289)"
-"(lambda(fold-var_320 lst_356)"
+"(let-values()(check-list lst_354)))"
+"((letrec-values(((for-loop_286)"
+"(lambda(fold-var_320 lst_355)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_356)"
+"(if(pair? lst_355)"
 "(let-values(((ids_34)"
 "(unsafe-car"
-" lst_356))"
+" lst_355))"
 "((rest_207)"
 "(unsafe-cdr"
-" lst_356)))"
+" lst_355)))"
 "(let-values(((fold-var_321)"
 "(let-values(((fold-var_322)"
 " fold-var_320))"
@@ -63017,7 +63022,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_357)"
+"(let-values(((lst_356)"
 " ids_34))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63025,20 +63030,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_357)))"
-"((letrec-values(((for-loop_290)"
+" lst_356)))"
+"((letrec-values(((for-loop_287)"
 "(lambda(fold-var_324"
-" lst_358)"
+" lst_357)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_358)"
+" lst_357)"
 "(let-values(((id_115)"
 "(unsafe-car"
-" lst_358))"
+" lst_357))"
 "((rest_208)"
 "(unsafe-cdr"
-" lst_358)))"
+" lst_357)))"
 "(let-values(((fold-var_325)"
 "(let-values(((fold-var_98)"
 " fold-var_324))"
@@ -63063,45 +63068,45 @@ static const char *startup_source =
 " fold-var_99)))))"
 "(if(not"
 " #f)"
-"(for-loop_290"
+"(for-loop_287"
 " fold-var_325"
 " rest_208)"
 " fold-var_325)))"
 " fold-var_324)))))"
-" for-loop_290)"
+" for-loop_287)"
 " null"
-" lst_357)))))"
+" lst_356)))))"
 " fold-var_322))))"
 "(values"
 " fold-var_323)))))"
 "(if(not #f)"
-"(for-loop_289"
+"(for-loop_286"
 " fold-var_321"
 " rest_207)"
 " fold-var_321)))"
 " fold-var_320)))))"
-" for-loop_289)"
+" for-loop_286)"
 " null"
-" lst_355))))))"
+" lst_354))))))"
 "(let-values(((val-keyss_2)"
 "(reverse$1"
-"(let-values(((lst_359) val-idss_3))"
+"(let-values(((lst_358) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_359)))"
-"((letrec-values(((for-loop_291)"
-"(lambda(fold-var_326 lst_360)"
+"(let-values()(check-list lst_358)))"
+"((letrec-values(((for-loop_288)"
+"(lambda(fold-var_326 lst_359)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_360)"
+"(if(pair? lst_359)"
 "(let-values(((ids_35)"
 "(unsafe-car"
-" lst_360))"
+" lst_359))"
 "((rest_209)"
 "(unsafe-cdr"
-" lst_360)))"
+" lst_359)))"
 "(let-values(((fold-var_327)"
 "(let-values(((fold-var_328)"
 " fold-var_326))"
@@ -63110,7 +63115,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_361)"
+"(let-values(((lst_360)"
 " ids_35))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63118,20 +63123,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_361)))"
-"((letrec-values(((for-loop_292)"
+" lst_360)))"
+"((letrec-values(((for-loop_289)"
 "(lambda(fold-var_330"
-" lst_362)"
+" lst_361)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_362)"
+" lst_361)"
 "(let-values(((id_116)"
 "(unsafe-car"
-" lst_362))"
+" lst_361))"
 "((rest_210)"
 "(unsafe-cdr"
-" lst_362)))"
+" lst_361)))"
 "(let-values(((fold-var_331)"
 "(let-values(((fold-var_332)"
 " fold-var_330))"
@@ -63156,46 +63161,46 @@ static const char *startup_source =
 " fold-var_333)))))"
 "(if(not"
 " #f)"
-"(for-loop_292"
+"(for-loop_289"
 " fold-var_331"
 " rest_210)"
 " fold-var_331)))"
 " fold-var_330)))))"
-" for-loop_292)"
+" for-loop_289)"
 " null"
-" lst_361)))))"
+" lst_360)))))"
 " fold-var_328))))"
 "(values"
 " fold-var_329)))))"
 "(if(not #f)"
-"(for-loop_291"
+"(for-loop_288"
 " fold-var_327"
 " rest_209)"
 " fold-var_327)))"
 " fold-var_326)))))"
-" for-loop_291)"
+" for-loop_288)"
 " null"
-" lst_359))))))"
+" lst_358))))))"
 "(let-values(((bodys_10)"
 "(reverse$1"
-"(let-values(((lst_363)"
+"(let-values(((lst_362)"
 "(if syntaxes?_0 body94_0 body118_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_363)))"
-"((letrec-values(((for-loop_293)"
-"(lambda(fold-var_334 lst_364)"
+"(let-values()(check-list lst_362)))"
+"((letrec-values(((for-loop_290)"
+"(lambda(fold-var_334 lst_363)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_364)"
+"(if(pair? lst_363)"
 "(let-values(((body_20)"
 "(unsafe-car"
-" lst_364))"
+" lst_363))"
 "((rest_211)"
 "(unsafe-cdr"
-" lst_364)))"
+" lst_363)))"
 "(let-values(((fold-var_335)"
 "(let-values(((fold-var_336)"
 " fold-var_334))"
@@ -63210,14 +63215,14 @@ static const char *startup_source =
 "(values"
 " fold-var_337)))))"
 "(if(not #f)"
-"(for-loop_293"
+"(for-loop_290"
 " fold-var_335"
 " rest_211)"
 " fold-var_335)))"
 " fold-var_334)))))"
-" for-loop_293)"
+" for-loop_290)"
 " null"
-" lst_363))))))"
+" lst_362))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_84)"
@@ -63255,26 +63260,26 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((trans-valss_0)"
 "(reverse$1"
-"(let-values(((lst_365)"
+"(let-values(((lst_364)"
 "(if syntaxes?_0 trans-rhs91_0 '()))"
-"((lst_366) trans-idss_2))"
+"((lst_365) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
+"(let-values()(check-list lst_364)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
 "(let-values()(check-list lst_365)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_366)))"
-"((letrec-values(((for-loop_294)"
+"((letrec-values(((for-loop_291)"
 "(lambda(fold-var_338"
 " lst_231"
-" lst_367)"
+" lst_366)"
 "(begin"
 " 'for-loop"
 "(if(if(pair? lst_231)"
-"(pair? lst_367)"
+"(pair? lst_366)"
 " #f)"
 "(let-values(((rhs_19)"
 "(unsafe-car"
@@ -63284,10 +63289,10 @@ static const char *startup_source =
 " lst_231))"
 "((ids_36)"
 "(unsafe-car"
-" lst_367))"
+" lst_366))"
 "((rest_213)"
 "(unsafe-cdr"
-" lst_367)))"
+" lst_366)))"
 "(let-values(((fold-var_339)"
 "(let-values(((fold-var_340)"
 " fold-var_338))"
@@ -63335,29 +63340,29 @@ static const char *startup_source =
 "(values"
 " fold-var_341)))))"
 "(if(not #f)"
-"(for-loop_294"
+"(for-loop_291"
 " fold-var_339"
 " rest_212"
 " rest_213)"
 " fold-var_339)))"
 " fold-var_338)))))"
-" for-loop_294)"
+" for-loop_291)"
 " null"
-" lst_365"
-" lst_366))))))"
+" lst_364"
+" lst_365))))))"
 "(let-values(((rec-val-env_0)"
-"(let-values(((lst_368) val-keyss_2)"
+"(let-values(((lst_367) val-keyss_2)"
 "((lst_120) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_368)))"
+"(let-values()(check-list lst_367)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_120)))"
-"((letrec-values(((for-loop_295)"
+"((letrec-values(((for-loop_292)"
 "(lambda(env_29"
 " lst_234"
 " lst_235)"
@@ -63381,9 +63386,9 @@ static const char *startup_source =
 "(let-values(((env_6)"
 "(let-values(((env_30)"
 " env_29))"
-"(let-values(((lst_328)"
+"(let-values(((lst_327)"
 " keys_10)"
-"((lst_329)"
+"((lst_328)"
 " ids_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63391,30 +63396,30 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_328)))"
+" lst_327)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_329)))"
-"((letrec-values(((for-loop_296)"
+" lst_328)))"
+"((letrec-values(((for-loop_293)"
 "(lambda(env_31"
-" lst_369"
+" lst_368"
 " lst_238)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_369)"
+" lst_368)"
 "(pair?"
 " lst_238)"
 " #f)"
 "(let-values(((key_93)"
 "(unsafe-car"
-" lst_369))"
+" lst_368))"
 "((rest_215)"
 "(unsafe-cdr"
-" lst_369))"
+" lst_368))"
 "((id_117)"
 "(unsafe-car"
 " lst_238))"
@@ -63435,57 +63440,57 @@ static const char *startup_source =
 " env_34)))))"
 "(if(not"
 " #f)"
-"(for-loop_296"
+"(for-loop_293"
 " env_32"
 " rest_215"
 " rest_188)"
 " env_32)))"
 " env_31)))))"
-" for-loop_296)"
+" for-loop_293)"
 " env_30"
-" lst_328"
-" lst_329))))))"
+" lst_327"
+" lst_328))))))"
 "(if(not #f)"
-"(for-loop_295"
+"(for-loop_292"
 " env_6"
 " rest_156"
 " rest_214)"
 " env_6)))"
 " env_29)))))"
-" for-loop_295)"
+" for-loop_292)"
 "(expand-context-env ctx_80)"
-" lst_368"
+" lst_367"
 " lst_120)))))"
 "(let-values(((rec-env_0)"
-"(let-values(((lst_370) trans-keyss_0)"
-"((lst_371) trans-valss_0)"
-"((lst_372) trans-idss_2))"
+"(let-values(((lst_369) trans-keyss_0)"
+"((lst_370) trans-valss_0)"
+"((lst_371) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
+"(let-values()(check-list lst_369)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
 "(let-values()(check-list lst_370)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_371)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_372)))"
-"((letrec-values(((for-loop_297)"
+"((letrec-values(((for-loop_294)"
 "(lambda(env_35"
 " lst_241"
-" lst_373"
-" lst_374)"
+" lst_372"
+" lst_373)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
 " lst_241)"
 "(if(pair?"
-" lst_373)"
+" lst_372)"
 "(pair?"
-" lst_374)"
+" lst_373)"
 " #f)"
 " #f)"
 "(let-values(((keys_11)"
@@ -63496,16 +63501,16 @@ static const char *startup_source =
 " lst_241))"
 "((vals_9)"
 "(unsafe-car"
-" lst_373))"
+" lst_372))"
 "((rest_217)"
 "(unsafe-cdr"
-" lst_373))"
+" lst_372))"
 "((ids_38)"
 "(unsafe-car"
-" lst_374))"
+" lst_373))"
 "((rest_218)"
 "(unsafe-cdr"
-" lst_374)))"
+" lst_373)))"
 "(let-values(((env_36)"
 "(let-values(((env_37)"
 " env_35))"
@@ -63513,9 +63518,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((lst_121)"
 " keys_11)"
-"((lst_375)"
+"((lst_374)"
 " vals_9)"
-"((lst_376)"
+"((lst_375)"
 " ids_38))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63529,46 +63534,46 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_375)))"
+" lst_374)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_376)))"
-"((letrec-values(((for-loop_298)"
+" lst_375)))"
+"((letrec-values(((for-loop_295)"
 "(lambda(env_39"
+" lst_376"
 " lst_377"
-" lst_378"
-" lst_379)"
+" lst_378)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_377)"
+" lst_376)"
 "(if(pair?"
-" lst_378)"
+" lst_377)"
 "(pair?"
-" lst_379)"
+" lst_378)"
 " #f)"
 " #f)"
 "(let-values(((key_94)"
 "(unsafe-car"
-" lst_377))"
+" lst_376))"
 "((rest_219)"
 "(unsafe-cdr"
-" lst_377))"
+" lst_376))"
 "((val_84)"
 "(unsafe-car"
-" lst_378))"
+" lst_377))"
 "((rest_220)"
 "(unsafe-cdr"
-" lst_378))"
+" lst_377))"
 "((id_118)"
 "(unsafe-car"
-" lst_379))"
+" lst_378))"
 "((rest_221)"
 "(unsafe-cdr"
-" lst_379)))"
+" lst_378)))"
 "(let-values(((env_40)"
 "(let-values(((env_41)"
 " env_39))"
@@ -63588,33 +63593,33 @@ static const char *startup_source =
 " env_42)))))"
 "(if(not"
 " #f)"
-"(for-loop_298"
+"(for-loop_295"
 " env_40"
 " rest_219"
 " rest_220"
 " rest_221)"
 " env_40)))"
 " env_39)))))"
-" for-loop_298)"
+" for-loop_295)"
 " env_37"
 " lst_121"
-" lst_375"
-" lst_376))))))"
+" lst_374"
+" lst_375))))))"
 "(values"
 " env_38)))))"
 "(if(not #f)"
-"(for-loop_297"
+"(for-loop_294"
 " env_36"
 " rest_216"
 " rest_217"
 " rest_218)"
 " env_36)))"
 " env_35)))))"
-" for-loop_297)"
+" for-loop_294)"
 " rec-val-env_0"
+" lst_369"
 " lst_370"
-" lst_371"
-" lst_372)))))"
+" lst_371)))))"
 "(let-values(((expr-ctx_0)(as-expression-context ctx_80)))"
 "(let-values(((orig-rrs_0)"
 "(expand-context-reference-records"
@@ -63698,27 +63703,27 @@ static const char *startup_source =
 "(if(expand-context-to-parsed?"
 " ctx_80)"
 "(reverse$1"
-"(let-values(((lst_380)"
+"(let-values(((lst_379)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_380)))"
-"((letrec-values(((for-loop_299)"
+"(check-list lst_379)))"
+"((letrec-values(((for-loop_296)"
 "(lambda(fold-var_106"
-" lst_381)"
+" lst_380)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_381)"
+" lst_380)"
 "(let-values(((val-ids_1)"
 "(unsafe-car"
-" lst_381))"
+" lst_380))"
 "((rest_222)"
 "(unsafe-cdr"
-" lst_381)))"
+" lst_380)))"
 "(let-values(((fold-var_342)"
 "(let-values(((fold-var_343)"
 " fold-var_106))"
@@ -63727,7 +63732,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_382)"
+"(let-values(((lst_381)"
 " val-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63735,20 +63740,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_382)))"
-"((letrec-values(((for-loop_300)"
+" lst_381)))"
+"((letrec-values(((for-loop_297)"
 "(lambda(fold-var_345"
-" lst_383)"
+" lst_382)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_383)"
+" lst_382)"
 "(let-values(((val-id_0)"
 "(unsafe-car"
-" lst_383))"
+" lst_382))"
 "((rest_223)"
 "(unsafe-cdr"
-" lst_383)))"
+" lst_382)))"
 "(let-values(((fold-var_109)"
 "(let-values(((fold-var_346)"
 " fold-var_345))"
@@ -63767,27 +63772,27 @@ static const char *startup_source =
 " fold-var_347)))))"
 "(if(not"
 " #f)"
-"(for-loop_300"
+"(for-loop_297"
 " fold-var_109"
 " rest_223)"
 " fold-var_109)))"
 " fold-var_345)))))"
-" for-loop_300)"
+" for-loop_297)"
 " null"
-" lst_382)))))"
+" lst_381)))))"
 " fold-var_343))))"
 "(values"
 " fold-var_344)))))"
 "(if(not"
 " #f)"
-"(for-loop_299"
+"(for-loop_296"
 " fold-var_342"
 " rest_222)"
 " fold-var_342)))"
 " fold-var_106)))))"
-" for-loop_299)"
+" for-loop_296)"
 " null"
-" lst_380))))"
+" lst_379))))"
 " val-idss_3)))"
 "(let-values((()"
 "(begin"
@@ -63894,11 +63899,11 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((clauses_2)"
 "(reverse$1"
-"(let-values(((lst_384)"
+"(let-values(((lst_383)"
 " val-name-idss_0)"
-"((lst_385)"
+"((lst_384)"
 " val-keyss_2)"
-"((lst_386)"
+"((lst_385)"
 " val-rhss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63906,6 +63911,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_383)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_384)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -63913,45 +63924,39 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_385)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_386)))"
 "((letrec-values(((for-loop_158)"
 "(lambda(fold-var_116"
+" lst_386"
 " lst_387"
-" lst_388"
-" lst_389)"
+" lst_388)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_387)"
+" lst_386)"
 "(if(pair?"
-" lst_388)"
+" lst_387)"
 "(pair?"
-" lst_389)"
+" lst_388)"
 " #f)"
 " #f)"
 "(let-values(((ids_39)"
 "(unsafe-car"
-" lst_387))"
+" lst_386))"
 "((rest_224)"
 "(unsafe-cdr"
-" lst_387))"
+" lst_386))"
 "((keys_12)"
 "(unsafe-car"
-" lst_388))"
+" lst_387))"
 "((rest_225)"
 "(unsafe-cdr"
-" lst_388))"
+" lst_387))"
 "((rhs_21)"
 "(unsafe-car"
-" lst_389))"
+" lst_388))"
 "((rest_226)"
 "(unsafe-cdr"
-" lst_389)))"
+" lst_388)))"
 "(let-values(((fold-var_348)"
 "(let-values(((fold-var_119)"
 " fold-var_116))"
@@ -64012,9 +64017,9 @@ static const char *startup_source =
 " fold-var_116)))))"
 " for-loop_158)"
 " null"
+" lst_383"
 " lst_384"
-" lst_385"
-" lst_386))))))"
+" lst_385))))))"
 "(let-values(((exp-body_4)"
 "(get-body_1)))"
 "(begin"
@@ -64051,7 +64056,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((temp173_0)"
 "(reverse$1"
-"(let-values(((lst_390)"
+"(let-values(((lst_389)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -64059,20 +64064,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_390)))"
-"((letrec-values(((for-loop_301)"
+" lst_389)))"
+"((letrec-values(((for-loop_298)"
 "(lambda(fold-var_349"
-" lst_391)"
+" lst_390)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_391)"
+" lst_390)"
 "(let-values(((rhs_22)"
 "(unsafe-car"
-" lst_391))"
+" lst_390))"
 "((rest_227)"
 "(unsafe-cdr"
-" lst_391)))"
+" lst_390)))"
 "(let-values(((fold-var_350)"
 "(let-values(((fold-var_351)"
 " fold-var_349))"
@@ -64086,14 +64091,14 @@ static const char *startup_source =
 " fold-var_352)))))"
 "(if(not"
 " #f)"
-"(for-loop_301"
+"(for-loop_298"
 " fold-var_350"
 " rest_227)"
 " fold-var_350)))"
 " fold-var_349)))))"
-" for-loop_301)"
+" for-loop_298)"
 " null"
-" lst_390)))))"
+" lst_389)))))"
 "((temp174_0)"
 " #t)"
 "((frame-id175_0)"
@@ -64132,23 +64137,23 @@ static const char *startup_source =
 "(let-values(((vals+body_0)"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_392) val-idss_4)((lst_59) val-rhss_4))"
+"(let-values(((lst_391) val-idss_4)((lst_59) val-rhss_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_392)))"
+"(let-values()(check-list lst_391)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_59)))"
-"((letrec-values(((for-loop_302)"
-"(lambda(fold-var_353 lst_393 lst_394)"
+"((letrec-values(((for-loop_299)"
+"(lambda(fold-var_353 lst_392 lst_393)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_393)(pair? lst_394) #f)"
-"(let-values(((val-ids_2)(unsafe-car lst_393))"
-"((rest_228)(unsafe-cdr lst_393))"
-"((val-rhs_11)(unsafe-car lst_394))"
-"((rest_229)(unsafe-cdr lst_394)))"
+"(if(if(pair? lst_392)(pair? lst_393) #f)"
+"(let-values(((val-ids_2)(unsafe-car lst_392))"
+"((rest_228)(unsafe-cdr lst_392))"
+"((val-rhs_11)(unsafe-car lst_393))"
+"((rest_229)(unsafe-cdr lst_393)))"
 "(let-values(((fold-var_354)"
 "(let-values(((fold-var_355) fold-var_353))"
 "(let-values(((fold-var_356)"
@@ -64161,12 +64166,12 @@ static const char *startup_source =
 " fold-var_355))))"
 "(values fold-var_356)))))"
 "(if(not #f)"
-"(for-loop_302 fold-var_354 rest_228 rest_229)"
+"(for-loop_299 fold-var_354 rest_228 rest_229)"
 " fold-var_354)))"
 " fold-var_353)))))"
-" for-loop_302)"
+" for-loop_299)"
 " null"
-" lst_392"
+" lst_391"
 " lst_59))))"
 "(datum->syntax$1 #f bodys_11))))"
 "(call-expand-observe"
@@ -64176,23 +64181,23 @@ static const char *startup_source =
 " vals+body_0"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_62) trans-idss_3)((lst_395) trans-rhss_0))"
+"(let-values(((lst_62) trans-idss_3)((lst_394) trans-rhss_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_62)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_395)))"
-"((letrec-values(((for-loop_303)"
-"(lambda(fold-var_357 lst_396 lst_397)"
+"(let-values()(check-list lst_394)))"
+"((letrec-values(((for-loop_300)"
+"(lambda(fold-var_357 lst_395 lst_396)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_396)(pair? lst_397) #f)"
-"(let-values(((trans-ids_0)(unsafe-car lst_396))"
-"((rest_230)(unsafe-cdr lst_396))"
-"((trans-rhs_5)(unsafe-car lst_397))"
-"((rest_231)(unsafe-cdr lst_397)))"
+"(if(if(pair? lst_395)(pair? lst_396) #f)"
+"(let-values(((trans-ids_0)(unsafe-car lst_395))"
+"((rest_230)(unsafe-cdr lst_395))"
+"((trans-rhs_5)(unsafe-car lst_396))"
+"((rest_231)(unsafe-cdr lst_396)))"
 "(let-values(((fold-var_122)"
 "(let-values(((fold-var_358) fold-var_357))"
 "(let-values(((fold-var_359)"
@@ -64206,12 +64211,12 @@ static const char *startup_source =
 "(add-scope trans-rhs_5 sc_33))))"
 " fold-var_358))))"
 "(values fold-var_359)))))"
-"(if(not #f)(for-loop_303 fold-var_122 rest_230 rest_231) fold-var_122)))"
+"(if(not #f)(for-loop_300 fold-var_122 rest_230 rest_231) fold-var_122)))"
 " fold-var_357)))))"
-" for-loop_303)"
+" for-loop_300)"
 " null"
 " lst_62"
-" lst_395))))"
+" lst_394))))"
 " vals+body_0)))))))"
 "(define-values"
 "(log-letrec-values)"
@@ -64401,19 +64406,19 @@ static const char *startup_source =
 "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))"
 "(let-values(((exp-es_0)"
 "(reverse$1"
-"(let-values(((lst_398) rest-es_0))"
+"(let-values(((lst_397) rest-es_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_398)))"
-"((letrec-values(((for-loop_304)"
-"(lambda(fold-var_56 lst_399)"
+"(let-values()(check-list lst_397)))"
+"((letrec-values(((for-loop_301)"
+"(lambda(fold-var_56 lst_398)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_399)"
-"(let-values(((e_85)(unsafe-car lst_399))"
+"(if(pair? lst_398)"
+"(let-values(((e_85)(unsafe-car lst_398))"
 "((rest_232)"
-"(unsafe-cdr lst_399)))"
+"(unsafe-cdr lst_398)))"
 "(let-values(((fold-var_360)"
 "(let-values(((fold-var_361)"
 " fold-var_56))"
@@ -64447,12 +64452,12 @@ static const char *startup_source =
 "(values"
 " fold-var_362)))))"
 "(if(not #f)"
-"(for-loop_304 fold-var_360 rest_232)"
+"(for-loop_301 fold-var_360 rest_232)"
 " fold-var_360)))"
 " fold-var_56)))))"
-" for-loop_304)"
+" for-loop_301)"
 " null"
-" lst_398))))))"
+" lst_397))))))"
 "(if(expand-context-to-parsed? ctx_83)"
 "(let-values()"
 "(parsed-app7.1"
@@ -65989,16 +65994,16 @@ static const char *startup_source =
 "((letrec-values(((for-loop_91)"
 "(lambda(track-stxes_1"
 " exp-specs_1"
-" lst_400)"
+" lst_399)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_400)"
+"(if(pair? lst_399)"
 "(let-values(((spec_0)"
 "(unsafe-car"
-" lst_400))"
+" lst_399))"
 "((rest_233)"
 "(unsafe-cdr"
-" lst_400)))"
+" lst_399)))"
 "(let-values(((track-stxes_2"
 " exp-specs_2)"
 "(let-values(((track-stxes_3)"
@@ -66801,17 +66806,17 @@ static const char *startup_source =
 " lst_100)))"
 "((letrec-values(((for-loop_116)"
 "(lambda(id:field_1"
-" lst_401)"
+" lst_400)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_401)"
+" lst_400)"
 "(let-values(((s_66)"
 "(unsafe-car"
-" lst_401))"
+" lst_400))"
 "((rest_234)"
 "(unsafe-cdr"
-" lst_401)))"
+" lst_400)))"
 "(let-values(((id:field_2)"
 "(let-values(((id:field_3)"
 " id:field_1))"
@@ -67076,7 +67081,7 @@ static const char *startup_source =
 " orig-s_67))"
 "(let-values()"
 "(let-values(((id_127)"
-"(let-values(((lst_402)"
+"(let-values(((lst_401)"
 " flat-s_47))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67084,20 +67089,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_402)))"
-"((letrec-values(((for-loop_305)"
+" lst_401)))"
+"((letrec-values(((for-loop_302)"
 "(lambda(id_128"
-" lst_403)"
+" lst_402)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_403)"
+" lst_402)"
 "(let-values(((s_325)"
 "(unsafe-car"
-" lst_403))"
+" lst_402))"
 "((rest_235)"
 "(unsafe-cdr"
-" lst_403)))"
+" lst_402)))"
 "(let-values(((id_109)"
 "(let-values(((id_129)"
 " id_128))"
@@ -67129,14 +67134,14 @@ static const char *startup_source =
 " id_130)))))"
 "(if(not"
 " #f)"
-"(for-loop_305"
+"(for-loop_302"
 " id_109"
 " rest_235)"
 " id_109)))"
 " id_128)))))"
-" for-loop_305)"
+" for-loop_302)"
 " null"
-" lst_402)))))"
+" lst_401)))))"
 "(reverse$1"
 " id_127)))))))))"
 "(values"
@@ -67297,7 +67302,7 @@ static const char *startup_source =
 " orig-s_69))"
 "(let-values()"
 "(let-values(((id_131)"
-"(let-values(((lst_404)"
+"(let-values(((lst_403)"
 " flat-s_48))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67305,20 +67310,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_404)))"
-"((letrec-values(((for-loop_306)"
+" lst_403)))"
+"((letrec-values(((for-loop_303)"
 "(lambda(id_132"
-" lst_405)"
+" lst_404)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_405)"
+" lst_404)"
 "(let-values(((s_498)"
 "(unsafe-car"
-" lst_405))"
+" lst_404))"
 "((rest_236)"
 "(unsafe-cdr"
-" lst_405)))"
+" lst_404)))"
 "(let-values(((id_133)"
 "(let-values(((id_134)"
 " id_132))"
@@ -67350,14 +67355,14 @@ static const char *startup_source =
 " id_30)))))"
 "(if(not"
 " #f)"
-"(for-loop_306"
+"(for-loop_303"
 " id_133"
 " rest_236)"
 " id_133)))"
 " id_132)))))"
-" for-loop_306)"
+" for-loop_303)"
 " null"
-" lst_404)))))"
+" lst_403)))))"
 "(reverse$1"
 " id_131)))))))))"
 "(values"
@@ -67598,19 +67603,19 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_4)))"
-"((letrec-values(((for-loop_307)"
+"((letrec-values(((for-loop_304)"
 "(lambda(id_136"
-" lst_406)"
+" lst_405)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_406)"
+" lst_405)"
 "(let-values(((s_723)"
 "(unsafe-car"
-" lst_406))"
+" lst_405))"
 "((rest_237)"
 "(unsafe-cdr"
-" lst_406)))"
+" lst_405)))"
 "(let-values(((id_137)"
 "(let-values(((id_138)"
 " id_136))"
@@ -67642,12 +67647,12 @@ static const char *startup_source =
 " id_139)))))"
 "(if(not"
 " #f)"
-"(for-loop_307"
+"(for-loop_304"
 " id_137"
 " rest_237)"
 " id_137)))"
 " id_136)))))"
-" for-loop_307)"
+" for-loop_304)"
 " null"
 " lst_4)))))"
 "(reverse$1"
@@ -68174,17 +68179,17 @@ static const char *startup_source =
 "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))"
 "(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))"
 "(begin"
-"            (let-values (((lst_407) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
+"            (let-values (((lst_406) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_407)))"
-"((letrec-values(((for-loop_308)"
-"(lambda(lst_408)"
+"(let-values()(check-list lst_406)))"
+"((letrec-values(((for-loop_305)"
+"(lambda(lst_407)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_408)"
-"(let-values(((fmt_3)(unsafe-car lst_408))((rest_238)(unsafe-cdr lst_408)))"
+"(if(pair? lst_407)"
+"(let-values(((fmt_3)(unsafe-car lst_407))((rest_238)(unsafe-cdr lst_407)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -68202,22 +68207,22 @@ static const char *startup_source =
 " protected?_6)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_308 rest_238)(values))))"
+"(if(not #f)(for-loop_305 rest_238)(values))))"
 "(values))))))"
-" for-loop_308)"
-" lst_407)))"
+" for-loop_305)"
+" lst_406)))"
 "(void)"
-"(let-values(((lst_409) fields_0))"
+"(let-values(((lst_408) fields_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_409)))"
-"((letrec-values(((for-loop_309)"
-"(lambda(lst_410)"
+"(let-values()(check-list lst_408)))"
+"((letrec-values(((for-loop_306)"
+"(lambda(lst_409)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_410)"
-"(let-values(((field_0)(unsafe-car lst_410))((rest_239)(unsafe-cdr lst_410)))"
+"(if(pair? lst_409)"
+"(let-values(((field_0)(unsafe-car lst_409))((rest_239)(unsafe-cdr lst_409)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -68249,10 +68254,10 @@ static const char *startup_source =
 " protected?_6)))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_309 rest_239)(values))))"
+"(if(not #f)(for-loop_306 rest_239)(values))))"
 "(values))))))"
-" for-loop_309)"
-" lst_409)))"
+" for-loop_306)"
+" lst_408)))"
 "(void)))))))"
 "(define-values"
 "(parse-all-from)"
@@ -68300,12 +68305,12 @@ static const char *startup_source =
 "                              (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))"
 "(let-values(((found_0)(make-hasheq)))"
 "(begin"
-"(let-values(((lst_411) requireds_2))"
+"(let-values(((lst_410) requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_411)))"
-"((letrec-values(((for-loop_310)"
+"(let-values()(check-list lst_410)))"
+"((letrec-values(((for-loop_307)"
 "(lambda(lst_283)"
 "(begin"
 " 'for-loop"
@@ -68350,19 +68355,19 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_234)))"
-"((letrec-values(((for-loop_311)"
+"((letrec-values(((for-loop_308)"
 "(lambda(result_119"
-" lst_412)"
+" lst_411)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_412)"
+" lst_411)"
 "(let-values(((except-id_0)"
 "(unsafe-car"
-" lst_412))"
+" lst_411))"
 "((rest_214)"
 "(unsafe-cdr"
-" lst_412)))"
+" lst_411)))"
 "(let-values(((result_120)"
 "(let-values()"
 "(let-values(((result_121)"
@@ -68387,12 +68392,12 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_311"
+"(for-loop_308"
 " result_120"
 " rest_214)"
 " result_120)))"
 " result_119)))))"
-" for-loop_311)"
+" for-loop_308)"
 " #f"
 " lst_234)))))"
 "(void)"
@@ -68449,27 +68454,27 @@ static const char *startup_source =
 " orig-s127_0)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_310 rest_240)(values))))"
+"(if(not #f)(for-loop_307 rest_240)(values))))"
 "(values))))))"
-" for-loop_310)"
-" lst_411)))"
+" for-loop_307)"
+" lst_410)))"
 "(void)"
 "(if(=(hash-count found_0)(length except-ids_1))"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_370) except-ids_1))"
+"(let-values(((lst_369) except-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_370)))"
-"((letrec-values(((for-loop_312)"
-"(lambda(lst_372)"
+"(let-values()(check-list lst_369)))"
+"((letrec-values(((for-loop_309)"
+"(lambda(lst_371)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_372)"
-"(let-values(((except-id_1)(unsafe-car lst_372))"
-"((rest_241)(unsafe-cdr lst_372)))"
+"(if(pair? lst_371)"
+"(let-values(((except-id_1)(unsafe-car lst_371))"
+"((rest_241)(unsafe-cdr lst_371)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -68483,7 +68488,7 @@ static const char *startup_source =
 " #f)))"
 "(if or-part_156"
 " or-part_156"
-"(let-values(((lst_373)"
+"(let-values(((lst_372)"
 " requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -68491,8 +68496,8 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_373)))"
-"((letrec-values(((for-loop_313)"
+" lst_372)))"
+"((letrec-values(((for-loop_310)"
 "(lambda(result_122"
 " lst_141)"
 "(begin"
@@ -68530,14 +68535,14 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_313"
+"(for-loop_310"
 " result_123"
 " rest_217)"
 " result_123)))"
 " result_122)))))"
-" for-loop_313)"
+" for-loop_310)"
 " #f"
-" lst_373)))))"
+" lst_372)))))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -68551,102 +68556,125 @@ static const char *startup_source =
 " except-id_1))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_312 rest_241)(values))))"
+"(if(not #f)(for-loop_309 rest_241)(values))))"
 "(values))))))"
-" for-loop_312)"
-" lst_370)))"
+" for-loop_309)"
+" lst_369)))"
 "(void)))))))))))))"
-"(define-values(check-cross-phase-persistent-form)(lambda(bodys_13)(begin(check-body bodys_13))))"
 "(define-values"
-"(check-body)"
+"(check-cross-phase-persistent-form)"
+"(lambda(bodys_13 self-mpi_0)"
+"(begin"
+"(letrec-values(((check-body_0)"
 "(lambda(bodys_14)"
 "(begin"
+" 'check-body"
 "(begin"
-"(let-values(((lst_71) bodys_14))"
+"(let-values(((lst_412) bodys_14))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))"
-"((letrec-values(((for-loop_90)"
-"(lambda(lst_413)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_412)))"
+"((letrec-values(((for-loop_311)"
+"(lambda(lst_80)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_413)"
-"(let-values(((body_21)(unsafe-car lst_413))((rest_242)(unsafe-cdr lst_413)))"
+"(if(pair? lst_80)"
+"(let-values(((body_21)(unsafe-car lst_80))"
+"((rest_38)(unsafe-cdr lst_80)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((p_47)"
-"(if(expanded+parsed? body_21)"
+"(let-values(((p_34)"
+"(if(expanded+parsed?"
+" body_21)"
 "(expanded+parsed-parsed"
 " body_21)"
 " body_21)))"
-"(if(parsed-define-values? p_47)"
+"(if(parsed-define-values?"
+" p_34)"
 "(let-values()"
-"(check-expr"
-"(parsed-define-values-rhs p_47)"
+"(check-expr_0"
+"(parsed-define-values-rhs"
+" p_34)"
 "(length"
-"(parsed-define-values-syms p_47))"
-" p_47))"
-"(if(let-values(((or-part_27)"
+"(parsed-define-values-syms"
+" p_34))"
+" p_34))"
+"(if(let-values(((or-part_215)"
 "(parsed-#%declare?"
-" p_47)))"
-"(if or-part_27"
-" or-part_27"
-"(let-values(((or-part_10)"
+" p_34)))"
+"(if or-part_215"
+" or-part_215"
+"(let-values(((or-part_3)"
 "(parsed-module?"
-" p_47)))"
-"(if or-part_10"
-" or-part_10"
-"(syntax?$1 p_47)))))"
-"(let-values()(void))"
-"(let-values()(disallow p_47))))))"
+" p_34)))"
+"(if or-part_3"
+" or-part_3"
+"(syntax?$1"
+" p_34)))))"
+"(let-values()"
+"(void))"
+"(let-values()"
+"(disallow"
+" p_34))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_90 rest_242)(values))))"
+"(if(not #f)(for-loop_311 rest_38)(values))))"
 "(values))))))"
-" for-loop_90)"
-" lst_71)))"
+" for-loop_311)"
+" lst_412)))"
 "(void)))))"
-"(define-values"
-"(check-expr)"
+"((check-expr_0)"
 "(lambda(e_86 num-results_0 enclosing_15)"
 "(begin"
-"(if(let-values(((or-part_215)(parsed-lambda? e_86)))(if or-part_215 or-part_215(parsed-case-lambda? e_86)))"
-"(let-values()(check-count 1 num-results_0 enclosing_15))"
+" 'check-expr"
+"(if(parsed-lambda? e_86)"
+"(let-values()"
+"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_86)))"
+"(if(parsed-case-lambda? e_86)"
+"(let-values()"
+"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_86)))"
 "(if(parsed-quote? e_86)"
 "(let-values()"
-"(begin(check-datum(parsed-quote-datum e_86) e_86)(check-count 1 num-results_0 enclosing_15)))"
+"(begin"
+"(check-datum(parsed-quote-datum e_86) e_86)"
+"(check-count 1 num-results_0 enclosing_15)))"
 "(if(parsed-app? e_86)"
 "(let-values()"
 "(let-values(((rands_1)(parsed-app-rands e_86)))"
 "(begin"
-"(let-values(((lst_260) rands_1))"
+"(let-values(((lst_74) rands_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_260)))"
-"((letrec-values(((for-loop_202)"
-"(lambda(lst_261)"
+"(let-values()(check-list lst_74)))"
+"((letrec-values(((for-loop_70)"
+"(lambda(lst_81)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_261)"
-"(let-values(((rand_0)(unsafe-car lst_261))"
-"((rest_138)(unsafe-cdr lst_261)))"
+"(if(pair? lst_81)"
+"(let-values(((rand_0)(unsafe-car lst_81))"
+"((rest_242)(unsafe-cdr lst_81)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(check-expr rand_0 1 e_86))"
+"(check-expr_0"
+" rand_0"
+" 1"
+" e_86))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_202 rest_138)(values))))"
+"(if(not #f)(for-loop_70 rest_242)(values))))"
 "(values))))))"
-" for-loop_202)"
-" lst_260)))"
+" for-loop_70)"
+" lst_74)))"
 "(void)"
 "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_86))))"
 "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))"
@@ -68657,10 +68685,12 @@ static const char *startup_source =
 "(let-values()(check-count 3 num-results_0 enclosing_15))"
 "(if(equal? tmp_64 'gensym)"
 "(let-values()"
-"(if(let-values(((or-part_289)(= 0(length rands_1))))"
-"(if or-part_289"
-" or-part_289"
-"(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)))"
+"(if(let-values(((or-part_393)(= 0(length rands_1))))"
+"(if or-part_393"
+" or-part_393"
+"(if(= 1(length rands_1))"
+"(quoted-string?(car rands_1))"
+" #f)))"
 "(void)"
 "(let-values()(disallow e_86))))"
 "(if(equal? tmp_64 'string->uninterned-symbol)"
@@ -68669,40 +68699,214 @@ static const char *startup_source =
 "(void)"
 "(let-values()(disallow e_86))))"
 "(let-values()(disallow e_86)))))))))))"
-"(void)))))))"
+"(let-values()(check-no-disallowed-expr_0 e_86)))))))))"
+"((check-no-disallowed-expr_0)"
+"(lambda(e_73)"
+"(begin"
+" 'check-no-disallowed-expr"
+"(if(parsed-lambda? e_73)"
+"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_73)))"
+"(if(parsed-case-lambda? e_73)"
+"(let-values()"
+"(begin"
+"(let-values(((lst_269)(parsed-case-lambda-clauses e_73)))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_269)))"
+"((letrec-values(((for-loop_272)"
+"(lambda(lst_262)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_262)"
+"(let-values(((clause_4)(unsafe-car lst_262))"
+"((rest_243)(unsafe-cdr lst_262)))"
+"(let-values((()"
+"(let-values()"
+"(let-values((()"
+"(let-values()"
+"(begin"
+"(let-values()"
+"(check-body-no-disallowed-expr_0"
+"(cadr clause_4)))"
+"(values)))))"
+"(values)))))"
+"(if(not #f)(for-loop_272 rest_243)(values))))"
+"(values))))))"
+" for-loop_272)"
+" lst_269)))"
+"(void)))"
+"(if(parsed-app? e_73)"
+"(let-values()"
+"(begin"
+"(check-no-disallowed-expr_0(parsed-app-rator e_73))"
+"(let-values(((lst_217)(parsed-app-rands e_73)))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_217)))"
+"((letrec-values(((for-loop_100)"
+"(lambda(lst_263)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_263)"
+"(let-values(((e_87)(unsafe-car lst_263))"
+"((rest_244)(unsafe-cdr lst_263)))"
+"(let-values((()"
+"(let-values()"
+"(let-values((()"
+"(let-values()"
+"(begin"
+"(let-values()"
+"(check-no-disallowed-expr_0"
+" e_87))"
+"(values)))))"
+"(values)))))"
+"(if(not #f)(for-loop_100 rest_244)(values))))"
+"(values))))))"
+" for-loop_100)"
+" lst_217)))"
+"(void)))"
+"(if(parsed-if? e_73)"
+"(let-values()"
+"(begin"
+"(check-no-disallowed-expr_0(parsed-if-tst e_73))"
+"(check-no-disallowed-expr_0(parsed-if-thn e_73))"
+"(check-no-disallowed-expr_0(parsed-if-els e_73))))"
+"(if(parsed-set!? e_73)"
+"(let-values()"
+"(let-values(((id_143)(parsed-set!-id e_73)))"
+"(let-values(((normal-b_1)(parsed-id-binding id_143)))"
+"(begin"
+"(if(let-values(((or-part_83)(not normal-b_1)))"
+"(if or-part_83"
+" or-part_83"
+"(let-values(((or-part_84)(parsed-top-id? id_143)))"
+"(if or-part_84"
+" or-part_84"
+"(eq?(module-binding-module normal-b_1) self-mpi_0)))))"
+"(let-values()(disallow e_73))"
+"(void))"
+"(check-no-disallowed-expr_0(parsed-set!-rhs e_73))))))"
+"(if(parsed-with-continuation-mark? e_73)"
+"(let-values()"
+"(begin"
+"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_73))"
+"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_73))"
+"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_73))))"
+"(if(parsed-begin? e_73)"
+"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_73)))"
+"(if(parsed-begin0? e_73)"
+"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_73)))"
+"(if(parsed-let_-values? e_73)"
+"(let-values()"
+"(begin"
+"(let-values(((lst_24)(parsed-let_-values-clauses e_73)))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_24)))"
+"((letrec-values(((for-loop_241)"
+"(lambda(lst_75)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_75)"
+"(let-values(((clause_5)"
+"(unsafe-car lst_75))"
+"((rest_245)"
+"(unsafe-cdr lst_75)))"
+"(let-values((()"
+"(let-values()"
+"(let-values((()"
+"(let-values()"
+"(begin"
+"(let-values()"
+"(check-no-disallowed-expr_0"
+"(cadr"
+" clause_5)))"
+"(values)))))"
+"(values)))))"
+"(if(not #f)"
+"(for-loop_241 rest_245)"
+"(values))))"
+"(values))))))"
+" for-loop_241)"
+" lst_24)))"
+"(void)"
+"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_73))))"
+"(if(let-values(((or-part_97)(parsed-quote-syntax? e_73)))"
+"(if or-part_97 or-part_97(parsed-#%variable-reference? e_73)))"
+"(let-values()(disallow e_73))"
+"(let-values()(void)))))))))))))))"
+"((check-body-no-disallowed-expr_0)"
+"(lambda(l_48)"
+"(begin"
+" 'check-body-no-disallowed-expr"
+"(begin"
+"(let-values(((lst_78) l_48))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_78)))"
+"((letrec-values(((for-loop_261)"
+"(lambda(lst_17)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_17)"
+"(let-values(((e_88)(unsafe-car lst_17))"
+"((rest_36)(unsafe-cdr lst_17)))"
+"(let-values((()"
+"(let-values()"
+"(let-values((()"
+"(let-values()"
+"(begin"
+"(let-values()"
+"(check-no-disallowed-expr_0"
+" e_88))"
+"(values)))))"
+"(values)))))"
+"(if(not #f)(for-loop_261 rest_36)(values))))"
+"(values))))))"
+" for-loop_261)"
+" lst_78)))"
+"(void))))))"
+"(check-body_0 bodys_13)))))"
 "(define-values"
 "(check-count)"
 "(lambda(is-num_0 expected-num_0 enclosing_16)"
 "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))"
 "(define-values"
 "(check-datum)"
-"(lambda(d_38 e_73)"
+"(lambda(d_38 e_89)"
 "(begin"
-"(if(let-values(((or-part_160)(number? d_38)))"
-"(if or-part_160"
-" or-part_160"
-"(let-values(((or-part_164)(boolean? d_38)))"
-"(if or-part_164"
-" or-part_164"
-"(let-values(((or-part_76)(symbol? d_38)))"
-"(if or-part_76"
-" or-part_76"
-"(let-values(((or-part_77)(string? d_38)))(if or-part_77 or-part_77(bytes? d_38)))))))))"
+"(if(let-values(((or-part_161)(number? d_38)))"
+"(if or-part_161"
+" or-part_161"
+"(let-values(((or-part_166)(boolean? d_38)))"
+"(if or-part_166"
+" or-part_166"
+"(let-values(((or-part_167)(symbol? d_38)))"
+"(if or-part_167"
+" or-part_167"
+"(let-values(((or-part_168)(string? d_38)))"
+"(if or-part_168"
+" or-part_168"
+"(let-values(((or-part_169)(bytes? d_38)))(if or-part_169 or-part_169(null? d_38)))))))))))"
 "(let-values()(void))"
-"(let-values()(disallow e_73))))))"
+"(let-values()(disallow e_89))))))"
 "(define-values"
 "(quoted-string?)"
-"(lambda(e_87)(begin(if(parsed-quote? e_87)(string?(parsed-quote-datum e_87)) #f))))"
+"(lambda(e_90)(begin(if(parsed-quote? e_90)(string?(parsed-quote-datum e_90)) #f))))"
 "(define-values"
 "(cross-phase-primitive-name)"
-"(lambda(id_143)"
+"(lambda(id_144)"
 "(begin"
-"(if(parsed-id? id_143)"
+"(if(parsed-id? id_144)"
 "(let-values()"
-"(let-values(((b_93)(parsed-id-binding id_143)))"
-"(if(module-binding? b_93)"
-"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_93)))"
-"(module-binding-sym b_93)"
+"(let-values(((b_61)(parsed-id-binding id_144)))"
+"(if(module-binding? b_61)"
+"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_61)))"
+"(module-binding-sym b_61)"
 " #f)"
 " #f)))"
 "(let-values() #f)))))"
@@ -70116,7 +70320,8 @@ static const char *startup_source =
 " declared-keywords_0"
 " '#:cross-phase-persistent))))"
 "(check-cross-phase-persistent-form"
-" fully-expanded-bodys-except-post-submodules_0)))"
+" fully-expanded-bodys-except-post-submodules_0"
+" self_30)))"
 "(void))"
 "(values))))"
 "(let-values((()"
@@ -70509,11 +70714,11 @@ static const char *startup_source =
 " self_30"
 " self_30)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_339)"
+"(if(let-values(((or-part_340)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_339"
-" or-part_339"
+"(if or-part_340"
+" or-part_340"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
@@ -70559,18 +70764,18 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_215)))"
-"((letrec-values(((for-loop_314)"
-"(lambda(lst_414)"
+"((letrec-values(((for-loop_312)"
+"(lambda(lst_413)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_414)"
+" lst_413)"
 "(let-values(((mpi_54)"
 "(unsafe-car"
-" lst_414))"
-"((rest_243)"
+" lst_413))"
+"((rest_246)"
 "(unsafe-cdr"
-" lst_414)))"
+" lst_413)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -70583,11 +70788,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_314"
-" rest_243)"
+"(for-loop_312"
+" rest_246)"
 "(values))))"
 "(values))))))"
-" for-loop_314)"
+" for-loop_312)"
 " lst_215)))"
 "(void)"
 "(let-values(((result-s_15)"
@@ -71102,11 +71307,11 @@ static const char *startup_source =
 " begin458_1"
 " e459_1))))))"
 "(let-values(((track_1)"
-"(lambda(e_88)"
+"(lambda(e_91)"
 "(begin"
 " 'track"
 "(syntax-track-origin$1"
-" e_88"
+" e_91"
 " exp-body_7)))))"
 "(let-values(((spliced-bodys_0)"
 "(append"
@@ -71411,8 +71616,8 @@ static const char *startup_source =
 "                                                                                                                                                                                               \"bad syntax\""
 " orig-s_84))"
 "(let-values()"
-"(let-values(((id_144)"
-"(let-values(((lst_415)"
+"(let-values(((id_145)"
+"(let-values(((lst_414)"
 " flat-s_55))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -71420,36 +71625,36 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_415)))"
-"((letrec-values(((for-loop_315)"
-"(lambda(id_145"
-" lst_416)"
+" lst_414)))"
+"((letrec-values(((for-loop_313)"
+"(lambda(id_146"
+" lst_415)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_416)"
+" lst_415)"
 "(let-values(((s_751)"
 "(unsafe-car"
-" lst_416))"
-"((rest_244)"
+" lst_415))"
+"((rest_247)"
 "(unsafe-cdr"
-" lst_416)))"
-"(let-values(((id_146)"
+" lst_415)))"
 "(let-values(((id_147)"
-" id_145))"
 "(let-values(((id_148)"
+" id_146))"
+"(let-values(((id_149)"
 "(let-values()"
 "(let-values(((id482_0)"
 "(let-values()"
-"(if(let-values(((or-part_393)"
+"(if(let-values(((or-part_394)"
 "(if(syntax?$1"
 " s_751)"
 "(symbol?"
 "(syntax-e$1"
 " s_751))"
 " #f)))"
-"(if or-part_393"
-" or-part_393"
+"(if or-part_394"
+" or-part_394"
 "(symbol?"
 " s_751)))"
 " s_751"
@@ -71460,21 +71665,21 @@ static const char *startup_source =
 " s_751)))))"
 "(cons"
 " id482_0"
-" id_147)))))"
-"(values"
 " id_148)))))"
+"(values"
+" id_149)))))"
 "(if(not"
 " #f)"
-"(for-loop_315"
-" id_146"
-" rest_244)"
-" id_146)))"
-" id_145)))))"
-" for-loop_315)"
+"(for-loop_313"
+" id_147"
+" rest_247)"
+" id_147)))"
+" id_146)))))"
+" for-loop_313)"
 " null"
-" lst_415)))))"
+" lst_414)))))"
 "(reverse$1"
-" id_144))))))))"
+" id_145))))))))"
 "((rhs473_0)"
 "(let-values(((s_752)"
 "(cdr"
@@ -71720,8 +71925,8 @@ static const char *startup_source =
 "                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_85))"
 "(let-values()"
-"(let-values(((id_149)"
-"(let-values(((lst_417)"
+"(let-values(((id_150)"
+"(let-values(((lst_416)"
 " flat-s_56))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -71729,36 +71934,36 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_417)))"
-"((letrec-values(((for-loop_316)"
-"(lambda(id_150"
-" lst_418)"
+" lst_416)))"
+"((letrec-values(((for-loop_314)"
+"(lambda(id_151"
+" lst_417)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_418)"
+" lst_417)"
 "(let-values(((s_760)"
 "(unsafe-car"
-" lst_418))"
-"((rest_245)"
+" lst_417))"
+"((rest_248)"
 "(unsafe-cdr"
-" lst_418)))"
-"(let-values(((id_151)"
+" lst_417)))"
 "(let-values(((id_152)"
-" id_150))"
 "(let-values(((id_153)"
+" id_151))"
+"(let-values(((id_154)"
 "(let-values()"
 "(let-values(((id507_0)"
 "(let-values()"
-"(if(let-values(((or-part_394)"
+"(if(let-values(((or-part_395)"
 "(if(syntax?$1"
 " s_760)"
 "(symbol?"
 "(syntax-e$1"
 " s_760))"
 " #f)))"
-"(if or-part_394"
-" or-part_394"
+"(if or-part_395"
+" or-part_395"
 "(symbol?"
 " s_760)))"
 " s_760"
@@ -71769,21 +71974,21 @@ static const char *startup_source =
 " s_760)))))"
 "(cons"
 " id507_0"
-" id_152)))))"
-"(values"
 " id_153)))))"
+"(values"
+" id_154)))))"
 "(if(not"
 " #f)"
-"(for-loop_316"
-" id_151"
-" rest_245)"
-" id_151)))"
-" id_150)))))"
-" for-loop_316)"
+"(for-loop_314"
+" id_152"
+" rest_248)"
+" id_152)))"
+" id_151)))))"
+" for-loop_314)"
 " null"
-" lst_417)))))"
+" lst_416)))))"
 "(reverse$1"
-" id_149))))))))"
+" id_150))))))))"
 "((rhs498_0)"
 "(let-values(((s_761)"
 "(cdr"
@@ -72027,11 +72232,11 @@ static const char *startup_source =
 " temp519_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_419)"
+"(let-values(((lst_418)"
 " syms_25)"
-"((lst_420)"
+"((lst_419)"
 " vals_10)"
-"((lst_421)"
+"((lst_420)"
 " ids_41))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72039,6 +72244,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_418)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_419)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -72046,44 +72257,38 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_420)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_421)))"
-"((letrec-values(((for-loop_317)"
-"(lambda(lst_422"
-" lst_423"
-" lst_424)"
+"((letrec-values(((for-loop_315)"
+"(lambda(lst_421"
+" lst_422"
+" lst_423)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_422)"
+" lst_421)"
 "(if(pair?"
-" lst_423)"
+" lst_422)"
 "(pair?"
-" lst_424)"
+" lst_423)"
 " #f)"
 " #f)"
 "(let-values(((sym_105)"
 "(unsafe-car"
-" lst_422))"
-"((rest_246)"
+" lst_421))"
+"((rest_249)"
 "(unsafe-cdr"
-" lst_422))"
+" lst_421))"
 "((val_86)"
 "(unsafe-car"
-" lst_423))"
-"((rest_247)"
+" lst_422))"
+"((rest_250)"
 "(unsafe-cdr"
-" lst_423))"
-"((id_154)"
+" lst_422))"
+"((id_155)"
 "(unsafe-car"
-" lst_424))"
-"((rest_248)"
+" lst_423))"
+"((rest_251)"
 "(unsafe-cdr"
-" lst_424)))"
+" lst_423)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72093,7 +72298,7 @@ static const char *startup_source =
 "(begin"
 "(maybe-install-free=id-in-context!"
 " val_86"
-" id_154"
+" id_155"
 " phase_45"
 " partial-body-ctx_1)"
 "(namespace-set-transformer!"
@@ -72105,16 +72310,16 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_317"
-" rest_246"
-" rest_247"
-" rest_248)"
+"(for-loop_315"
+" rest_249"
+" rest_250"
+" rest_251)"
 "(values))))"
 "(values))))))"
-" for-loop_317)"
+" for-loop_315)"
+" lst_418"
 " lst_419"
-" lst_420"
-" lst_421)))"
+" lst_420)))"
 "(values))))"
 "(let-values()"
 "(let-values((()"
@@ -72445,7 +72650,7 @@ static const char *startup_source =
 " kw550_1))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_425)"
+"(let-values(((lst_424)"
 " kw550_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72453,19 +72658,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_425)))"
-"((letrec-values(((for-loop_318)"
-"(lambda(lst_426)"
+" lst_424)))"
+"((letrec-values(((for-loop_316)"
+"(lambda(lst_425)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_426)"
+" lst_425)"
 "(let-values(((kw_1)"
 "(unsafe-car"
-" lst_426))"
-"((rest_249)"
+" lst_425))"
+"((rest_252)"
 "(unsafe-cdr"
-" lst_426)))"
+" lst_425)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72516,12 +72721,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_318"
-" rest_249)"
+"(for-loop_316"
+" rest_252)"
 "(values))))"
 "(values))))))"
-" for-loop_318)"
-" lst_425)))"
+" for-loop_316)"
+" lst_424)))"
 "(values))))"
 "(let-values()"
 "(let-values(((parsed-body_1)"
@@ -72571,18 +72776,18 @@ static const char *startup_source =
 "(lambda(ids_42 rhs_23 phase_151)"
 "(let-values(((scoped-ids_0)"
 "(reverse$1"
-"(let-values(((lst_427) ids_42))"
+"(let-values(((lst_426) ids_42))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_427)))"
-"((letrec-values(((for-loop_319)"
-"(lambda(fold-var_363 lst_428)"
+"(let-values()(check-list lst_426)))"
+"((letrec-values(((for-loop_317)"
+"(lambda(fold-var_363 lst_427)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_428)"
-"(let-values(((id_155)(unsafe-car lst_428))"
-"((rest_250)(unsafe-cdr lst_428)))"
+"(if(pair? lst_427)"
+"(let-values(((id_156)(unsafe-car lst_427))"
+"((rest_253)(unsafe-cdr lst_427)))"
 "(let-values(((fold-var_364)"
 "(let-values(((fold-var_365) fold-var_363))"
 "(let-values(((fold-var_366)"
@@ -72590,15 +72795,15 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_155"
+" id_156"
 " inside-scope_2))"
 " fold-var_365))))"
 "(values fold-var_366)))))"
-"(if(not #f)(for-loop_319 fold-var_364 rest_250) fold-var_364)))"
+"(if(not #f)(for-loop_317 fold-var_364 rest_253) fold-var_364)))"
 " fold-var_363)))))"
-" for-loop_319)"
+" for-loop_317)"
 " null"
-" lst_427))))))"
+" lst_426))))))"
 "(let-values(((syms_26)"
 "(let-values(((frame-id558_0) frame-id_18)((requires+provides559_0) requires+provides_8))"
 "(select-defined-syms-and-bind!16.1"
@@ -72633,15 +72838,15 @@ static const char *startup_source =
 "(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_111)))"
 "(if sc_34"
 "(reverse$1"
-"(let-values(((lst_429) bodys_23))"
+"(let-values(((lst_428) bodys_23))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_429)))"
-"((letrec-values(((for-loop_320)"
-"(lambda(fold-var_367 lst_430)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_428)))"
+"((letrec-values(((for-loop_318)"
+"(lambda(fold-var_367 lst_429)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_430)"
-"(let-values(((body_23)(unsafe-car lst_430))((rest_251)(unsafe-cdr lst_430)))"
+"(if(pair? lst_429)"
+"(let-values(((body_23)(unsafe-car lst_429))((rest_254)(unsafe-cdr lst_429)))"
 "(let-values(((fold-var_368)"
 "(let-values(((fold-var_369) fold-var_367))"
 "(let-values(((fold-var_370)"
@@ -72650,11 +72855,11 @@ static const char *startup_source =
 "(let-values()(add-scope body_23 sc_34))"
 " fold-var_369))))"
 "(values fold-var_370)))))"
-"(if(not #f)(for-loop_320 fold-var_368 rest_251) fold-var_368)))"
+"(if(not #f)(for-loop_318 fold-var_368 rest_254) fold-var_368)))"
 " fold-var_367)))))"
-" for-loop_320)"
+" for-loop_318)"
 " null"
-" lst_429))))"
+" lst_428))))"
 " bodys_23)))))"
 "(define-values"
 "(finish-expanding-body-expressons99.1)"
@@ -72737,14 +72942,14 @@ static const char *startup_source =
 "(let-values(((body_24)(car bodys_24)))"
 "(let-values(((rest-bodys_2)(cdr bodys_24)))"
 "(let-values(((exp-body_8)"
-"(if(let-values(((or-part_395)"
+"(if(let-values(((or-part_396)"
 "(parsed? body_24)))"
-"(if or-part_395"
-" or-part_395"
-"(let-values(((or-part_396)"
-"(expanded+parsed? body_24)))"
 "(if or-part_396"
 " or-part_396"
+"(let-values(((or-part_397)"
+"(expanded+parsed? body_24)))"
+"(if or-part_397"
+" or-part_397"
 "(semi-parsed-begin-for-syntax?"
 " body_24)))))"
 "(let-values() body_24)"
@@ -73087,15 +73292,15 @@ static const char *startup_source =
 "(lambda(need-eventually-defined_3 self_34 ctx_112)"
 "(begin"
 "(begin"
-"(let-values(((ht_166) need-eventually-defined_3))"
+"(let-values(((ht_164) need-eventually-defined_3))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))"
-"((letrec-values(((for-loop_321)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_164)))"
+"((letrec-values(((for-loop_319)"
 "(lambda(i_193)"
 "(begin"
 " 'for-loop"
 "(if i_193"
-"(let-values(((phase_153 l_85)(hash-iterate-key+value ht_166 i_193)))"
+"(let-values(((phase_153 l_85)(hash-iterate-key+value ht_164 i_193)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -73103,33 +73308,33 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(let-values(((lst_431) l_85))"
+"(let-values(((lst_430) l_85))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_431)))"
-"((letrec-values(((for-loop_322)"
-"(lambda(lst_432)"
+"(let-values()(check-list lst_430)))"
+"((letrec-values(((for-loop_320)"
+"(lambda(lst_431)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_432)"
-"(let-values(((id_156)"
+" lst_431)"
+"(let-values(((id_157)"
 "(unsafe-car"
-" lst_432))"
-"((rest_252)"
+" lst_431))"
+"((rest_255)"
 "(unsafe-cdr"
-" lst_432)))"
+" lst_431)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((b_94)"
+"(let-values(((b_93)"
 "(let-values(((id590_0)"
-" id_156)"
+" id_157)"
 "((phase591_0)"
 " phase_153))"
 "(resolve+shift30.1"
@@ -73145,17 +73350,17 @@ static const char *startup_source =
 " #f"
 " id590_0"
 " phase591_0))))"
-"(if(if b_94"
+"(if(if b_93"
 "(if(module-binding?"
-" b_94)"
+" b_93)"
 "(if(eq?"
 "(module-binding-sym"
-" b_94)"
+" b_93)"
 "(syntax-e$1"
-" id_156))"
+" id_157))"
 "(eq?"
 "(module-binding-module"
-" b_94)"
+" b_93)"
 " self_34)"
 " #f)"
 " #f)"
@@ -73165,28 +73370,28 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                     \"reference to an unbound identifier\""
-" id_156"
+" id_157"
 " #f"
 " null"
 "(syntax-debug-info-string"
-" id_156"
+" id_157"
 " ctx_112))))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_322"
-" rest_252)"
+"(for-loop_320"
+" rest_255)"
 "(values))))"
 "(values))))))"
-" for-loop_322)"
-" lst_431)))"
+" for-loop_320)"
+" lst_430)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_321(hash-iterate-next ht_166 i_193))(values))))"
+"(if(not #f)(for-loop_319(hash-iterate-next ht_164 i_193))(values))))"
 "(values))))))"
-" for-loop_321)"
-"(hash-iterate-first ht_166))))"
+" for-loop_319)"
+"(hash-iterate-first ht_164))))"
 "(void)))))"
 "(define-values"
 "(resolve-provides115.1)"
@@ -73214,8 +73419,8 @@ static const char *startup_source =
 " 'loop"
 "(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_397)(parsed?(car bodys_26))))"
-"(if or-part_397 or-part_397(expanded+parsed?(car bodys_26))))"
+"(if(let-values(((or-part_398)(parsed?(car bodys_26))))"
+"(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))"
 "(let-values()"
 "(cons(car bodys_26)(loop_130(cdr bodys_26) phase_155)))"
 "(if(semi-parsed-begin-for-syntax?(car bodys_26))"
@@ -73495,8 +73700,8 @@ static const char *startup_source =
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_398) enclosing-self_3))"
-"(if or-part_398 or-part_398 self_36)))))"
+"(let-values(((or-part_399) enclosing-self_3))"
+"(if or-part_399 or-part_399 self_36)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((temp606_0)"
 "(let-values(((m-ns610_0) m-ns_22)"
@@ -73708,9 +73913,9 @@ static const char *startup_source =
 " temp622_0))"
 " parsed-bfs_0))"
 "(loop_131 rest-bodys_3 phase_157))))))))"
-"(if(let-values(((or-part_399)(parsed? body_25)))"
-"(if or-part_399"
-" or-part_399"
+"(if(let-values(((or-part_400)(parsed? body_25)))"
+"(if or-part_400"
+" or-part_400"
 "(expanded+parsed? body_25)))"
 "(let-values()"
 "(cons body_25(loop_131 rest-bodys_3 phase_157)))"
@@ -74009,18 +74214,18 @@ static const char *startup_source =
 "(let-values(((s_799) in168_0))"
 "(let-values()"
 "(begin"
-"(let-values(((lst_433) ids_44))"
+"(let-values(((lst_432) ids_44))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_433)))"
-"((letrec-values(((for-loop_323)"
-"(lambda(lst_434)"
+"(let-values()(check-list lst_432)))"
+"((letrec-values(((for-loop_321)"
+"(lambda(lst_433)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_434)"
-"(let-values(((id_157)(unsafe-car lst_434))"
-"((rest_253)(unsafe-cdr lst_434)))"
+"(if(pair? lst_433)"
+"(let-values(((id_158)(unsafe-car lst_433))"
+"((rest_256)(unsafe-cdr lst_433)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74041,29 +74246,29 @@ static const char *startup_source =
 " #f"
 " temp657_0"
 " requires+provides_12"
-" id_157"
+" id_158"
 " phase_158)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_323 rest_253)(values))))"
+"(if(not #f)(for-loop_321 rest_256)(values))))"
 "(values))))))"
-" for-loop_323)"
-" lst_433)))"
+" for-loop_321)"
+" lst_432)))"
 "(void))))))))))"
 "(define-values"
 "(eval-nested-bodys)"
 "(lambda(bodys_28 phase_159 m-ns_23 self_38 ctx_116)"
 "(begin"
 "(begin"
-"(let-values(((lst_435) bodys_28))"
+"(let-values(((lst_434) bodys_28))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_435)))"
-"((letrec-values(((for-loop_324)"
-"(lambda(lst_436)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_434)))"
+"((letrec-values(((for-loop_322)"
+"(lambda(lst_435)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_436)"
-"(let-values(((body_26)(unsafe-car lst_436))((rest_254)(unsafe-cdr lst_436)))"
+"(if(pair? lst_435)"
+"(let-values(((body_26)(unsafe-car lst_435))((rest_257)(unsafe-cdr lst_435)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74089,59 +74294,59 @@ static const char *startup_source =
 " m-ns_23"
 " ctx_116)))"
 "(begin"
-"(let-values(((lst_437) ids_45)"
-"((lst_438)"
+"(let-values(((lst_436) ids_45)"
+"((lst_437)"
 "(parsed-define-values-syms"
 " p_84))"
-"((lst_439) vals_11))"
+"((lst_438) vals_11))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
+"(check-list lst_436)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
 "(check-list lst_437)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list lst_438)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list lst_439)))"
-"((letrec-values(((for-loop_325)"
-"(lambda(lst_440"
-" lst_441"
-" lst_442)"
+"((letrec-values(((for-loop_323)"
+"(lambda(lst_439"
+" lst_440"
+" lst_441)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_440)"
+" lst_439)"
 "(if(pair?"
-" lst_441)"
+" lst_440)"
 "(pair?"
-" lst_442)"
+" lst_441)"
 " #f)"
 " #f)"
-"(let-values(((id_158)"
+"(let-values(((id_159)"
 "(unsafe-car"
-" lst_440))"
-"((rest_255)"
+" lst_439))"
+"((rest_258)"
 "(unsafe-cdr"
-" lst_440))"
+" lst_439))"
 "((sym_106)"
 "(unsafe-car"
-" lst_441))"
-"((rest_256)"
+" lst_440))"
+"((rest_259)"
 "(unsafe-cdr"
-" lst_441))"
+" lst_440))"
 "((val_87)"
 "(unsafe-car"
-" lst_442))"
-"((rest_257)"
+" lst_441))"
+"((rest_260)"
 "(unsafe-cdr"
-" lst_442)))"
+" lst_441)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74157,30 +74362,30 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_325"
-" rest_255"
-" rest_256"
-" rest_257)"
+"(for-loop_323"
+" rest_258"
+" rest_259"
+" rest_260)"
 "(values))))"
 "(values))))))"
-" for-loop_325)"
+" for-loop_323)"
+" lst_436"
 " lst_437"
-" lst_438"
-" lst_439)))"
+" lst_438)))"
 "(void)))))"
-"(if(let-values(((or-part_400)"
-"(parsed-define-syntaxes?"
-" p_84)))"
-"(if or-part_400"
-" or-part_400"
-"(semi-parsed-begin-for-syntax?"
-" p_84)))"
-"(let-values()(void))"
 "(if(let-values(((or-part_401)"
-"(parsed-#%declare?"
+"(parsed-define-syntaxes?"
 " p_84)))"
 "(if or-part_401"
 " or-part_401"
+"(semi-parsed-begin-for-syntax?"
+" p_84)))"
+"(let-values()(void))"
+"(if(let-values(((or-part_402)"
+"(parsed-#%declare?"
+" p_84)))"
+"(if or-part_402"
+" or-part_402"
 "(syntax?$1 p_84)))"
 "(let-values()(void))"
 "(let-values()"
@@ -74218,10 +74423,10 @@ static const char *startup_source =
 " m-ns_23)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_324 rest_254)(values))))"
+"(if(not #f)(for-loop_322 rest_257)(values))))"
 "(values))))))"
-" for-loop_324)"
-" lst_435)))"
+" for-loop_322)"
+" lst_434)))"
 "(void)))))"
 "(define-values"
 "(expand-submodule197.1)"
@@ -74661,18 +74866,18 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_443) bodys_29))"
+"(let-values(((lst_442) bodys_29))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_443)))"
-"((letrec-values(((for-loop_326)"
-"(lambda(fold-var_371 lst_444)"
+"(let-values()(check-list lst_442)))"
+"((letrec-values(((for-loop_324)"
+"(lambda(fold-var_371 lst_443)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_444)"
-"(let-values(((body_27)(unsafe-car lst_444))"
-"((rest_258)(unsafe-cdr lst_444)))"
+"(if(pair? lst_443)"
+"(let-values(((body_27)(unsafe-car lst_443))"
+"((rest_261)(unsafe-cdr lst_443)))"
 "(let-values(((fold-var_372)"
 "(let-values(((fold-var_373) fold-var_371))"
 "(let-values(((fold-var_374)"
@@ -74717,12 +74922,12 @@ static const char *startup_source =
 " fold-var_373))))"
 "(values fold-var_374)))))"
 "(if(not #f)"
-"(for-loop_326 fold-var_372 rest_258)"
+"(for-loop_324 fold-var_372 rest_261)"
 " fold-var_372)))"
 " fold-var_371)))))"
-" for-loop_326)"
+" for-loop_324)"
 " null"
-" lst_443))))))))))))))))"
+" lst_442))))))))))))))))"
 "(define-values"
 "(make-parse-lifted-require220.1)"
 "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)"
@@ -74824,16 +75029,16 @@ static const char *startup_source =
 "(lambda(lifted-defns_2)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_445) lifted-defns_2))"
+"(let-values(((lst_444) lifted-defns_2))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))"
-"((letrec-values(((for-loop_327)"
-"(lambda(fold-var_375 lst_446)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))"
+"((letrec-values(((for-loop_325)"
+"(lambda(fold-var_375 lst_445)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_446)"
-"(let-values(((lifted-defn_0)(unsafe-car lst_446))"
-"((rest_259)(unsafe-cdr lst_446)))"
+"(if(pair? lst_445)"
+"(let-values(((lifted-defn_0)(unsafe-car lst_445))"
+"((rest_262)(unsafe-cdr lst_445)))"
 "(let-values(((fold-var_376)"
 "(let-values(((fold-var_377) fold-var_375))"
 "(let-values(((fold-var_378)"
@@ -74843,11 +75048,11 @@ static const char *startup_source =
 "(defn-extract-syntax lifted-defn_0))"
 " fold-var_377))))"
 "(values fold-var_378)))))"
-"(if(not #f)(for-loop_327 fold-var_376 rest_259) fold-var_376)))"
+"(if(not #f)(for-loop_325 fold-var_376 rest_262) fold-var_376)))"
 " fold-var_375)))))"
-" for-loop_327)"
+" for-loop_325)"
 " null"
-" lst_445)))))))"
+" lst_444)))))))"
 "(define-values"
 "(log-lifted-defns)"
 "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)"
@@ -74863,18 +75068,18 @@ static const char *startup_source =
 "(let-values((()(begin(call-expand-observe obs_159 'module-lift-loop s-lifted-defns_0)(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_447) s-lifted-defns_0))"
+"(let-values(((lst_446) s-lifted-defns_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_447)))"
-"((letrec-values(((for-loop_328)"
-"(lambda(lst_448)"
+"(let-values()(check-list lst_446)))"
+"((letrec-values(((for-loop_326)"
+"(lambda(lst_447)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_448)"
-"(let-values(((s-lifted-defn_0)(unsafe-car lst_448))"
-"((rest_260)(unsafe-cdr lst_448)))"
+"(if(pair? lst_447)"
+"(let-values(((s-lifted-defn_0)(unsafe-car lst_447))"
+"((rest_263)(unsafe-cdr lst_447)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74980,10 +75185,10 @@ static const char *startup_source =
 " s-lifted-defn_0))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_328 rest_260)(values))))"
+"(if(not #f)(for-loop_326 rest_263)(values))))"
 "(values))))))"
-" for-loop_328)"
-" lst_447)))"
+" for-loop_326)"
+" lst_446)))"
 "(values))))"
 "(let-values()"
 "(let-values(((ok?_87 form-id718_0 _719_0)"
@@ -75079,7 +75284,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_80)"
-"(let-values(((id_159)(unsafe-car lst_80))"
+"(let-values(((id_160)(unsafe-car lst_80))"
 "((rest_38)(unsafe-cdr lst_80)))"
 "(let-values(((fold-var_60)"
 "(let-values(((fold-var_61) fold-var_379))"
@@ -75088,7 +75293,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(remove-use-site-scopes"
-" id_159"
+" id_160"
 " ctx_121))"
 " fold-var_61))))"
 "(values fold-var_380)))))"
@@ -75109,13 +75314,13 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_94)))"
-"((letrec-values(((for-loop_329)"
+"((letrec-values(((for-loop_327)"
 "(lambda(fold-var_217 lst_81)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_81)"
 "(let-values(((id_3)(unsafe-car lst_81))"
-"((rest_261)(unsafe-cdr lst_81)))"
+"((rest_242)(unsafe-cdr lst_81)))"
 "(let-values(((fold-var_381)"
 "(let-values(((fold-var_31) fold-var_217))"
 "(let-values(((fold-var_32)"
@@ -75128,10 +75333,10 @@ static const char *startup_source =
 " fold-var_31))))"
 "(values fold-var_32)))))"
 "(if(not #f)"
-"(for-loop_329 fold-var_381 rest_261)"
+"(for-loop_327 fold-var_381 rest_242)"
 " fold-var_381)))"
 " fold-var_217)))))"
-" for-loop_329)"
+" for-loop_327)"
 " null"
 " lst_94))))))"
 "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_121)))))))))"
@@ -75184,7 +75389,7 @@ static const char *startup_source =
 "                                                                                            \"bad syntax\""
 " orig-s_96))"
 "(let-values()"
-"(let-values(((id_160)"
+"(let-values(((id_161)"
 "(let-values(((lst_24)"
 " flat-s_63))"
 "(begin"
@@ -75195,7 +75400,7 @@ static const char *startup_source =
 "(check-list"
 " lst_24)))"
 "((letrec-values(((for-loop_241)"
-"(lambda(id_161"
+"(lambda(id_162"
 " lst_76)"
 "(begin"
 " 'for-loop"
@@ -75207,10 +75412,10 @@ static const char *startup_source =
 "((rest_141)"
 "(unsafe-cdr"
 " lst_76)))"
-"(let-values(((id_162)"
-"(let-values(((id_52)"
-" id_161))"
 "(let-values(((id_163)"
+"(let-values(((id_52)"
+" id_162))"
+"(let-values(((id_164)"
 "(let-values()"
 "(let-values(((id10_0)"
 "(let-values()"
@@ -75235,18 +75440,18 @@ static const char *startup_source =
 " id10_0"
 " id_52)))))"
 "(values"
-" id_163)))))"
+" id_164)))))"
 "(if(not"
 " #f)"
 "(for-loop_241"
-" id_162"
+" id_163"
 " rest_141)"
-" id_162)))"
-" id_161)))))"
+" id_163)))"
+" id_162)))))"
 " for-loop_241)"
 " null"
 " lst_24)))))"
-"(reverse$1 id_160))))))))"
+"(reverse$1 id_161))))))))"
 "((rhs8_0)"
 "(let-values(((s_82)(cdr s_173)))"
 "(let-values(((s_305)"
@@ -75358,23 +75563,23 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_177)))"
-"((letrec-values(((for-loop_266)"
-"(lambda(id_164"
-" lst_449)"
+"((letrec-values(((for-loop_263)"
+"(lambda(id_165"
+" lst_448)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_449)"
+" lst_448)"
 "(let-values(((s_489)"
 "(unsafe-car"
-" lst_449))"
-"((rest_262)"
+" lst_448))"
+"((rest_264)"
 "(unsafe-cdr"
-" lst_449)))"
+" lst_448)))"
 "(let-values(((id_75)"
 "(let-values(((id_95)"
-" id_164))"
-"(let-values(((id_165)"
+" id_165))"
+"(let-values(((id_166)"
 "(let-values()"
 "(let-values(((id24_1)"
 "(let-values()"
@@ -75399,15 +75604,15 @@ static const char *startup_source =
 " id24_1"
 " id_95)))))"
 "(values"
-" id_165)))))"
+" id_166)))))"
 "(if(not"
 " #f)"
-"(for-loop_266"
+"(for-loop_263"
 " id_75"
-" rest_262)"
+" rest_264)"
 " id_75)))"
-" id_164)))))"
-" for-loop_266)"
+" id_165)))))"
+" for-loop_263)"
 " null"
 " lst_177)))))"
 "(reverse$1 id_93))))))))"
@@ -75511,13 +75716,13 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_12)))"
-"((letrec-values(((for-loop_330)"
-"(lambda(fold-var_382 lst_450)"
+"((letrec-values(((for-loop_328)"
+"(lambda(fold-var_382 lst_449)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_450)"
-"(let-values(((req_20)(unsafe-car lst_450))"
-"((rest_263)(unsafe-cdr lst_450)))"
+"(if(pair? lst_449)"
+"(let-values(((req_20)(unsafe-car lst_449))"
+"((rest_265)(unsafe-cdr lst_449)))"
 "(let-values(((fold-var_383)"
 "(let-values(((fold-var_384) fold-var_382))"
 "(let-values(((fold-var_36)"
@@ -75530,10 +75735,10 @@ static const char *startup_source =
 " fold-var_384))))"
 "(values fold-var_36)))))"
 "(if(not #f)"
-"(for-loop_330 fold-var_383 rest_263)"
+"(for-loop_328 fold-var_383 rest_265)"
 " fold-var_383)))"
 " fold-var_382)))))"
-" for-loop_330)"
+" for-loop_328)"
 " null"
 " lst_12)))))"
 "((s34_0) s_45)"
@@ -75636,17 +75841,17 @@ static const char *startup_source =
 " '#hash()"
 "(hash-iterate-first ht_66)))))"
 "((temp29_4)"
-"(let-values(((ht_167) read-primitives))"
+"(let-values(((ht_165) read-primitives))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_167)))"
-"((letrec-values(((for-loop_269)"
+"(let-values()(check-in-hash-keys ht_165)))"
+"((letrec-values(((for-loop_266)"
 "(lambda(table_202 i_36)"
 "(begin"
 " 'for-loop"
 "(if i_36"
-"(let-values(((name_83)(hash-iterate-key ht_167 i_36)))"
+"(let-values(((name_83)(hash-iterate-key ht_165 i_36)))"
 "(let-values(((table_219)"
 "(let-values(((table_175) table_202))"
 "(let-values(((table_95)"
@@ -75659,18 +75864,18 @@ static const char *startup_source =
 "(hash-set table_175 key_95 val_89)))))"
 "(values table_95)))))"
 "(if(not #f)"
-"(for-loop_269 table_219(hash-iterate-next ht_167 i_36))"
+"(for-loop_266 table_219(hash-iterate-next ht_165 i_36))"
 " table_219)))"
 " table_202)))))"
-" for-loop_269)"
+" for-loop_266)"
 " '#hash()"
-"(hash-iterate-first ht_167))))))"
+"(hash-iterate-first ht_165))))))"
 "(declare-kernel-module!8.1 eval27_0 temp28_6 temp29_4 ns))"
 "(begin"
 "(let-values(((lst_270) runtime-instances))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_270)))"
-"((letrec-values(((for-loop_331)"
+"((letrec-values(((for-loop_329)"
 "(lambda(lst_54)"
 "(begin"
 " 'for-loop"
@@ -75719,9 +75924,9 @@ static const char *startup_source =
 " name_84)))"
 "(values)))))"
 "(values)))))))"
-"(if(not #f)(for-loop_331 rest_171)(values))))"
+"(if(not #f)(for-loop_329 rest_171)(values))))"
 "(values))))))"
-" for-loop_331)"
+" for-loop_329)"
 " lst_270)))"
 "(void))"
 "(let-values(((temp33_5) '#%builtin)"